1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcdcm +++|          CTEXT  COMCDCM - CPU DISPLAY CONSOLE MACROS.

Seq #  *Modification Id* Act 
----------------------------+
00002  M02S00002.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1984.
00003  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M01S00003.comcdcm +++| DCM      SPACE  4,10
00005  M01S00004.comcdcm +++|***       COMCDCM - CPU DISPLAY CONSOLE MACROS.
00006  M01S00005.comcdcm +++|*
00007  M01S00006.comcdcm +++|*         J. T. LITTLE.     84/01/05.
00008  M01S00007.comcdcm +++|          SPACE  4,10
00009  M01S00008.comcdcm +++|***              *COMCDCM* CONTAINS MACROS FOR ACCESSING THE SYSTEM
00010  M01S00009.comcdcm +++|*         DISPLAY CONSOLE BY *K* AND *L* DISPLAY UTILITIES.
00011  M01S00010.comcdcm +++| CONSOLE  SPACE  4,20
00012  M01S00011.comcdcm +++|***       CONSOLE - SET *K* DISPLAY CONTROL.
00013  M01S00012.comcdcm +++|*
00014  M01S00013.comcdcm +++|*         CONSOLE ADDR
00015  M01S00014.comcdcm +++|*
00016  M01S00015.comcdcm +++|*         ENTRY  *ADDR* = ADDRESS OF DISPLAY CONTROL WORD.
00017  M01S00016.comcdcm +++|*
00018  M01S00017.comcdcm +++|*T ADDR   1/0,1/U,1/0,1/S,2/0,18/  IB,18/  RB,18/  LB

Figure ADDR

00019  M01S00018.comcdcm +++|*         U      =1, IF UPDATE OF STATUS WORD IS NOT REQUIRED.
00020  M01S00019.comcdcm +++|*         S      =1, IF DISPLAY INPUT TO BE SUPPRESSED FROM DAYFILE.
00021  M01S00020.comcdcm +++|*         IB     ADDRESS OF KEYBOARD INPUT BUFFER.
00022  M01S00021.comcdcm +++|*         RB     ADDRESS OF RIGHT SCREEN DISPLAY BUFFER.
00023  M01S00022.comcdcm +++|*         LB     ADDRESS OF LEFT SCREEN DISPLAY BUFFER.
00024  M01S00023.comcdcm +++|*
00025  M01S00024.comcdcm +++|*         USES   X - 1, 2.
00026  M01S00025.comcdcm +++|*
00027  M01S00026.comcdcm +++|*         CALLS  CPM=.
00028  M01S00027.comcdcm +++|
00029  M01S00028.comcdcm +++|
00030  M01S00029.comcdcm +++|          PURGMAC  CONSOLE
00031  M01S00030.comcdcm +++|
00032  M01S00031.comcdcm +++| CONSOLE  MACRO  A
00033  M01S00032.comcdcm +++|  MACREF CONSOLE
00034  M01S00033.comcdcm +++|  R= X1,A
00035  M01S00034.comcdcm +++|  SX2 5
00036  M01S00035.comcdcm +++|  RJ =XCPM=
00037  M01S00036.comcdcm +++| CONSOLE  ENDM
00038  M01S00037.comcdcm +++| CSTATUS  SPACE  4,15
00039  M01S00038.comcdcm +++|***       CSTATUS - GET CONSOLE TYPE.
00040  M01S00039.comcdcm +++|*
00041  M01S00040.comcdcm +++|*         CSTATUS ADDR
00042  M01S00041.comcdcm +++|*
00043  M01S00042.comcdcm +++|*         ENTRY  *ADDR* = ADDRESS OF STATUS WORD FOR CONSOLE TYPE.
00044  M01S00043.comcdcm +++|*
00045  M01S00044.comcdcm +++|*T ADDR   12/TYPE,48/0

Figure ADDR

00046  M01S00045.comcdcm +++|*         TYPE   =0, IF CC545 CONSOLE.
00047  M01S00046.comcdcm +++|*                =1, IF CDC721 CONSOLE.
00048  M01S00047.comcdcm +++|*
00049  M01S00048.comcdcm +++|*         USES   X - 1, 2.
00050  M01S00049.comcdcm +++|*
00051  M01S00050.comcdcm +++|*         CALLS  CPM=.
00052  M01S00051.comcdcm +++|
00053  M01S00052.comcdcm +++|
00054  M01S00053.comcdcm +++|          PURGMAC  CSTATUS
00055  M01S00054.comcdcm +++|
00056  M01S00055.comcdcm +++| CSTATUS  MACRO  A
00057  M01S00056.comcdcm +++|  MACREF CSTATUS
00058  M01S00057.comcdcm +++|  R= X1,A
00059  M01S00058.comcdcm +++|  SX2 137B
00060  M01S00059.comcdcm +++|  RJ =XCPM=
00061  M01S00060.comcdcm +++| CSTATUS  ENDM
00062  M01S00061.comcdcm +++| DSDINP   SPACE  4,20
00063  M01S00062.comcdcm +++|***       DSDINP - TRANSFER *L* DISPLAY KEYBOARD INPUT
00064  M01S00063.comcdcm +++|*         FROM CMR BUFFER TO USER-S FL.
00065  M01S00064.comcdcm +++|*
00066  M01S00065.comcdcm +++|*         DSDINP N,C
00067  M01S00066.comcdcm +++|*
00068  M01S00067.comcdcm +++|*         ENTRY  *N* = FWA OF BLOCK IN USER-S FL TO RECEIVE
00069  M01S00068.comcdcm +++|*                      KEYBOARD INPUT FROM *DSD*.
00070  M01S00069.comcdcm +++|*                *C* = FLAG TO CLEAR *L* DISPLAY INTERLOCK
00071  M01S00070.comcdcm +++|*                      AND ACCEPT NO MORE COMMANDS.
00072  M01S00071.comcdcm +++|*
00073  M01S00072.comcdcm +++|*         USES   X - 1, 2.
00074  M01S00073.comcdcm +++|*
00075  M01S00074.comcdcm +++|*         CALLS  CPM=.
00076  M01S00075.comcdcm +++|*
00077  M01S00076.comcdcm +++|*         NOTE   SEE *CPM* DOCUMENTATION IN *TDU* FUNCTION FOR
00078  M01S00077.comcdcm +++|*                FORMAT OF COMMAND BUFFER IN USER-S FL.
00079  M01S00078.comcdcm +++|
00080  M01S00079.comcdcm +++|
00081  M01S00080.comcdcm +++|          PURGMAC  DSDINP
00082  M01S00081.comcdcm +++|
00083  M01S00082.comcdcm +++| DSDINP   MACRO  N,C
00084  M01S00083.comcdcm +++|  MACREF DSDINP
00085  M01S00084.comcdcm +++|  R= X1,N
00086  M01S00085.comcdcm +++| .A IFC NE,$C$$
00087  M01S00086.comcdcm +++|  R= X2,1
00088  M01S00087.comcdcm +++|  LX2 18
00089  M01S00088.comcdcm +++|  BX1 X1+X2
00090  M01S00089.comcdcm +++| .A ENDIF
00091  M01S00090.comcdcm +++|  SX2 103B
00092  M01S00091.comcdcm +++|  RJ =XCPM=
00093  M01S00092.comcdcm +++| DSDINP   ENDM
00094  M01S00093.comcdcm +++| DSDOUT   SPACE  4,20
00095  M01S00094.comcdcm +++|***       DSDOUT - TRANSFER *L* DISPLAY DATA FROM USER-S FL
00096  M01S00095.comcdcm +++|*         TO CMR BUFFER.
00097  M01S00096.comcdcm +++|*
00098  M01S00097.comcdcm +++|*         DSDOUT N,I
00099  M01S00098.comcdcm +++|*
00100  M01S00099.comcdcm +++|*         ENTRY  *N* = FWA OF BLOCK IN USER-S FL CONTAINING *L*
00101  M01S00100.comcdcm +++|*                      DISPLAY INFORMATION.
00102  M01S00101.comcdcm +++|*                *I* = SPECIFIES THAT *N* CONTAINS THE FWA
00103  M01S00102.comcdcm +++|*                      OF THE DISPLAY BUFFER.
00104  M01S00103.comcdcm +++|*
00105  M01S00104.comcdcm +++|*         USES   X - 1, 2.
00106  M01S00105.comcdcm +++|*                A - 1.
00107  M01S00106.comcdcm +++|*
00108  M01S00107.comcdcm +++|*         CALLS  CPM=.
00109  M01S00108.comcdcm +++|*
00110  M01S00109.comcdcm +++|*         NOTE   SEE *CPM* DOCUMENTATION IN *TDC* FUNCTION FOR
00111  M01S00110.comcdcm +++|*                FORMAT OF DISPLAY BUFFER IN USER-S FL.
00112  M01S00111.comcdcm +++|
00113  M01S00112.comcdcm +++|
00114  M01S00113.comcdcm +++|          PURGMAC  DSDOUT
00115  M01S00114.comcdcm +++|
00116  M01S00115.comcdcm +++| DSDOUT   MACRO  N,I
00117  M01S00116.comcdcm +++|  MACREF DSDOUT
00118  M01S00117.comcdcm +++| .A IFC EQ,$I$$
00119  M01S00118.comcdcm +++|  R= X1,N
00120  M01S00119.comcdcm +++| .A ELSE
00121  M01S00120.comcdcm +++|  R= A1,N
00122  M01S00121.comcdcm +++| .A ENDIF
00123  M01S00122.comcdcm +++|  SX2 102B
00124  M01S00123.comcdcm +++|  RJ =XCPM=
00125  M01S00124.comcdcm +++| DSDOUT   ENDM
00126  M01S00125.comcdcm +++| DSL      SPACE  4,10
00127  M01S00126.comcdcm +++|***       DSL - GENERATE *K* DISPLAY LINE.
00128  M01S00127.comcdcm +++|*
00129  M01S00128.comcdcm +++|*         DSL    X,Y,(STRING)
00130  M01S00129.comcdcm +++|*
00131  M01S00130.comcdcm +++|*         ENTRY  *X* = COLUMN (0 = FAR LEFT).
00132  M01S00131.comcdcm +++|*                *Y* = LINE (0 = TOP LINE).
00133  M01S00132.comcdcm +++|*                *STRING* = CHARACTER STRING TO BE DISPLAYED.
00134  M01S00133.comcdcm +++|*                ASSUMES 64 CHARACTERS PER LINE.
00135  M01S00134.comcdcm +++|*
00136  M01S00135.comcdcm +++|*         EXIT   IF *Y* = K, K IS INCREMENTED BY 1.
00137  M01S00136.comcdcm +++|
00138  M01S00137.comcdcm +++|
00139  M01S00138.comcdcm +++|          PURGMAC  DSL
00140  M01S00139.comcdcm +++|
00141  M01S00140.comcdcm +++| DSL      MACRO  X,Y,A
00142  M01S00141.comcdcm +++|  LOCAL XX,YY
00143  M01S00142.comcdcm +++|  MACREF DSL
00144  M01S00143.comcdcm +++| B MICRO 1,6,$A$
00145  M01S00144.comcdcm +++| C MICRO 7,,$A$
00146  M01S00145.comcdcm +++| XX EQU X
00147  M01S00146.comcdcm +++| YY EQU Y
00148  M01S00147.comcdcm +++|  VFD 12/6000B+XX*8,12/7756B-YY*10,36/6H"B"
00149  M01S00148.comcdcm +++|  DATA L$"C"$
00150  M01S00149.comcdcm +++|  IFC EQ,$Y$K$,1
00151  M01S00150.comcdcm +++| K SET K+1
00152  M01S00151.comcdcm +++| DSL      ENDM
00153  M01S00152.comcdcm +++|          SPACE  4,10
00154  M01S00153.comcdcm +++| KDL      SPACE  4,35
00155  M01S00154.comcdcm +++|***       KDL - GENERATE K-DISPLAY LINE.
00156  M01S00155.comcdcm +++|*
00157  M01S00156.comcdcm +++|*         KDL    X,Y,(STRING)
00158  M01S00157.comcdcm +++|*
00159  M01S00158.comcdcm +++|*         ENTRY  *X* = COLUMN (1 = FAR LEFT).
00160  M01S00159.comcdcm +++|*                *Y* = LINE (1 = TOP LINE).
00161  M01S00160.comcdcm +++|*                IF *Y* =T, LINE NUMBER IS SET TO 2 AND K IS THEN
00162  M01S00161.comcdcm +++|*                        SET TO 4.  THIS IS FOR THE TITLE LINE.
00163  M01S00162.comcdcm +++|*                       =H, LINE NUMBER IS SET TO K AND K IS THEN
00164  M01S00163.comcdcm +++|*                        SET TO K+2.  THIS IS FOR A HEADER LINE - A
00165  M01S00164.comcdcm +++|*                        LINE WHICH WILL BE FOLLOWED BY A BLANK LINE.
00166  M01S00165.comcdcm +++|*                       =M, LINE NUMBER IS SET TO 22 AND K IS THEN
00167  M01S00166.comcdcm +++|*                        SET TO 23.  THIS IS FOR THE MESSAGE LINE.
00168  M01S00167.comcdcm +++|*                       =I, LINE NUMBER IS SET TO 23.  THIS IS FOR
00169  M01S00168.comcdcm +++|*                        THE KEYBOARD INPUT LINE.
00170  M01S00169.comcdcm +++|*                       =K, LINE NUMBER IS SET TO K AND K IS THEN
00171  M01S00170.comcdcm +++|*                        SET TO K+1.
00172  M01S00171.comcdcm +++|*                       =NULL, LINE NUMBER IS SET TO K .  IF K IS
00173  M01S00172.comcdcm +++|*                        UNDEFINED, THEN LINE NUMBER IS SET TO 1.
00174  M01S00173.comcdcm +++|*                       =NUMBER, LINE IS SET TO THAT NUMBER.  IF
00175  M01S00174.comcdcm +++|*                        .LT. 1 OR .GT. 23, THEN LINE IS SET TO 1.
00176  M01S00175.comcdcm +++|*                       =*, THEN REMOTE BLOCK IS ASSEMBLED AT THE
00177  M01S00176.comcdcm +++|*                        LOCATION OF THE MACRO CALL.
00178  M01S00177.comcdcm +++|*
00179  M01S00178.comcdcm +++|*                *STRING* = CHARACTER STRING TO BE DISPLAYED (0 - 64
00180  M01S00179.comcdcm +++|*                CHARACTERS).
00181  M01S00180.comcdcm +++|*                ASSUMES 64 CHARACTERS PER LINE.
00182  M01S00181.comcdcm +++|*                ASSUMES 23 LINES PER DISPLAY.
00183  M01S00182.comcdcm +++|*
00184  M01S00183.comcdcm +++|*         EXIT   K IS SET TO NEXT LINE NUMBER AS DESCRIBED ABOVE.
00185  M01S00184.comcdcm +++|*                AN ENTRY IN THE KDL REMOTE BLOCK WILL BE GENERATED FOR
00186  M01S00185.comcdcm +++|*                EACH Y VALUE .NE. *.  IT IS OF THE FOLLOWING FORM.
00187  M01S00186.comcdcm +++|*
00188  M01S00187.comcdcm +++|*T        24/           0,18/        LL,18/        Y

Figure

00189  M01S00188.comcdcm +++|*         LL     LOCATION OF Y-COORDINATE IN DISPLAY BUFFER.
00190  M01S00189.comcdcm +++|*         Y      Y COORDINATE FOR 721 CONSOLE.
00191  M01S00190.comcdcm +++|*
00192  M01S00191.comcdcm +++|*         NOTE   THE KDL REMOTE BLOCK IS USED BY SUBROUTINE PRK IN
00193  M01S00192.comcdcm +++|*                COMCDCP.
00194  M01S00193.comcdcm +++|
00195  M01S00194.comcdcm +++|
00196  M01S00195.comcdcm +++|          PURGMAC KDL
00197  M01S00196.comcdcm +++|
00198  M01S00197.comcdcm +++| KDL MACRO  X,Y,S
00199  M01S00198.comcdcm +++|  LOCAL XX,YY,LL
00200  M01S00199.comcdcm +++|  MACREF KDL
00201  M01S00200.comcdcm +++| B MICRO 1,6,$S$
00202  M01S00201.comcdcm +++| C MICRO 7,,$S$
00203  M01S00202.comcdcm +++| XX EQU X-1
00204  M01S00203.comcdcm +++| LL EQU *
00205  M01S00204.comcdcm +++| .A IFC NE,$X$*$
00206  M01S00205.comcdcm +++| .B IFC EQ,$Y$K$
00207  M01S00206.comcdcm +++|  IF -DEF,K,1
00208  M01S00207.comcdcm +++| K SET 1
00209  M01S00208.comcdcm +++| YY EQU K
00210  M01S00209.comcdcm +++| K SET K+1
00211  M01S00210.comcdcm +++| .B ELSE
00212  M01S00211.comcdcm +++| .C IFC EQ,$Y$T$
00213  M01S00212.comcdcm +++| YY SET 2
00214  M01S00213.comcdcm +++| K SET 4
00215  M01S00214.comcdcm +++| .C ELSE
00216  M01S00215.comcdcm +++| .D IFC EQ,$Y$H$
00217  M01S00216.comcdcm +++| YY SET K
00218  M01S00217.comcdcm +++| K SET K+2
00219  M01S00218.comcdcm +++| .D ELSE
00220  M01S00219.comcdcm +++| .E IFC EQ,$Y$$
00221  M01S00220.comcdcm +++|  IF -DEF,K,1
00222  M01S00221.comcdcm +++| K SET 1
00223  M01S00222.comcdcm +++| YY SET K
00224  M01S00223.comcdcm +++| .E ELSE
00225  M01S00224.comcdcm +++| .F IFC EQ,$Y$M$
00226  M01S00225.comcdcm +++| YY SET 22
00227  M01S00226.comcdcm +++| K SET 23
00228  M01S00227.comcdcm +++| .F ELSE
00229  M01S00228.comcdcm +++| .G IFC EQ,$Y$I$
00230  M01S00229.comcdcm +++| YY SET 23
00231  M01S00230.comcdcm +++| K SET 1
00232  M01S00231.comcdcm +++| .G ELSE
00233  M01S00232.comcdcm +++| YY EQU Y
00234  M01S00233.comcdcm +++| .B ENDIF
00235  M01S00234.comcdcm +++| .C ENDIF
00236  M01S00235.comcdcm +++| .D ENDIF
00237  M01S00236.comcdcm +++| .E ENDIF
00238  M01S00237.comcdcm +++| .F ENDIF
00239  M01S00238.comcdcm +++| .G ENDIF
00240  M01S00239.comcdcm +++| .H IFGT YY,23
00241  M01S00240.comcdcm +++|  ERR     LINE VALUE TOO LARGE
00242  M01S00241.comcdcm +++| YY SET 1
00243  M01S00242.comcdcm +++| .H ELSE
00244  M01S00243.comcdcm +++| .I IFLT YY,1
00245  M01S00244.comcdcm +++|  ERR     LINE VALUE TOO SMALL
00246  M01S00245.comcdcm +++| YY SET 1
00247  M01S00246.comcdcm +++| .I ENDIF
00248  M01S00247.comcdcm +++| .H ENDIF
00249  M01S00248.comcdcm +++| .J IFGT XX,63
00250  M01S00249.comcdcm +++| XX SET 0
00251  M01S00250.comcdcm +++| .J ELSE
00252  M01S00251.comcdcm +++| .K IFLT XX,0
00253  M01S00252.comcdcm +++| XX SET 0
00254  M01S00253.comcdcm +++| .K ENDIF
00255  M01S00254.comcdcm +++| .J ENDIF
00256  M01S00255.comcdcm +++|  VFD 12/6000B+XX*8,12/7707B-YY*15,36/6L"B"
00257  M01S00256.comcdcm +++|  DATA L$"C"$
00258  M01S00257.comcdcm +++| KDL RMT
00259  M01S00258.comcdcm +++|  VFD 24/0,18/LL,18/7726B-YY*10
00260  M01S00259.comcdcm +++| KDL RMT
00261  M01S00260.comcdcm +++| .A ELSE
00262  M01S00261.comcdcm +++| KDL HERE
00263  M01S00262.comcdcm +++|  CON 0
00264  M01S00263.comcdcm +++| .A ENDIF
00265  M01S00264.comcdcm +++| KDL      ENDM
00266  M01S00265.comcdcm +++| PAGT     SPACE  4,25
00267  M01S00266.comcdcm +++|***       PAGT - GENERATE PAGE TABLE.
00268  M01S00267.comcdcm +++|*
00269  M01S00268.comcdcm +++|*     A   PAGT    B,C,D,E
00270  M01S00269.comcdcm +++|*
00271  M01S00270.comcdcm +++|*         ENTRY  *A* = FWA OF PAGE TABLE.  WHEN SPECIFIED, THIS
00272  M01S00271.comcdcm +++|*                      INDICATES THE FIRST ENTRY IN THE PAGE TABLE.
00273  M01S00272.comcdcm +++|*                *B* = FWA OF PAGE DISPLAY BUFFER.  IF NOT SPECIFIED,
00274  M01S00273.comcdcm +++|*                      INDICATES THE START OF RIGHT SCREENS.
00275  M01S00274.comcdcm +++|*                *C* = ERROR MESSAGE LINE ADDRESS IN DISPLAY BUFFER
00276  M01S00275.comcdcm +++|*                      (OPTIONAL).
00277  M01S00276.comcdcm +++|*                *D* = KEYBOARD INPUT LINE ADDRESS IN DISPLAY BUFFER
00278  M01S00277.comcdcm +++|*                      (OPTIONAL).
00279  M01S00278.comcdcm +++|*                *E* = INDEX OF INITIAL DISPLAY (OPTIONAL).
00280  M01S00279.comcdcm +++|*
00281  M01S00280.comcdcm +++|*         EXIT   PAGE TABLE GENERATED WITH THE FOLLOWING FORMAT.
00282  M01S00281.comcdcm +++|*
00283  M01S00282.comcdcm +++|*T        12/     NL,18/        CL,12/     NR,18/        CR

Figure

00284  M01S00283.comcdcm +++|*T,       6/  0,18/        K,18/        M,18/        B

Figure

00285  M01S00284.comcdcm +++|*         NL     NUMBER OF LEFT SCREEN PAGES.
00286  M01S00285.comcdcm +++|*         CL     INDEX OF CURRENT LEFT SCREEN.
00287  M01S00286.comcdcm +++|*         NR     NUMBER OF RIGHT SCREEN PAGES.
00288  M01S00287.comcdcm +++|*         CR     INDEX OF CURRENT RIGHT SCREEN.
00289  M01S00288.comcdcm +++|*         K      KEYBOARD INPUT LINE ADDRESS IN DISPLAY BUFFER.
00290  M01S00289.comcdcm +++|*         M      ERROR MESSAGE LINE ADDRESS IN DISPLAY BUFFER.
00291  M01S00290.comcdcm +++|*         B      FWA OF PAGE DISPLAY BUFFER.
00292  M01S00291.comcdcm +++|*
00293  M01S00292.comcdcm +++|*         NOTE   THE PAGE TABLE IS USED BY SUBROUTINE PRK IN COMCDCP.
00294  M01S00293.comcdcm +++|
00295  M01S00294.comcdcm +++|
00296  M01S00295.comcdcm +++|          PURGMAC  PAGT
00297  M01S00296.comcdcm +++|
00298  M01S00297.comcdcm +++|          MACRO  PAGT,T,L,M,K,I
00299  M01S00298.comcdcm +++|  MACREF PAGT
00300  M01S00299.comcdcm +++| .A IFC NE,$T$$
00301  M01S00300.comcdcm +++| .4 SET -1
00302  M01S00301.comcdcm +++| .3 SET 0
00303  M01S00302.comcdcm +++| .2 SET 0
00304  M01S00303.comcdcm +++| .1 SET 0
00305  M01S00304.comcdcm +++| PGT RMT
00306  M01S00305.comcdcm +++| T VFD 12/.1,18/.2,12/.3,18/.4
00307  M01S00306.comcdcm +++| PGT RMT
00308  M01S00307.comcdcm +++| .A ENDIF
00309  M01S00308.comcdcm +++| .F IFC NE,$I$$
00310  M01S00309.comcdcm +++| .E IFGT .4,-1
00311  M01S00310.comcdcm +++| .4 SET I
00312  M01S00311.comcdcm +++| .E ELSE
00313  M01S00312.comcdcm +++| .2 SET I
00314  M01S00313.comcdcm +++| .E ENDIF
00315  M01S00314.comcdcm +++| .F ENDIF
00316  M01S00315.comcdcm +++| .B IFC NE,$L$$
00317  M01S00316.comcdcm +++| .C IFC NE,$L$*$
00318  M01S00317.comcdcm +++| .D IFGT .4,-1
00319  M01S00318.comcdcm +++| .3 SET .3+1
00320  M01S00319.comcdcm +++| .D ELSE
00321  M01S00320.comcdcm +++| .1 SET .1+1
00322  M01S00321.comcdcm +++| .D ENDIF
00323  M01S00322.comcdcm +++| PGT RMT
00324  M01S00323.comcdcm +++|  VFD 6/0,18/K,18/M,18/L
00325  M01S00324.comcdcm +++| PGT RMT
00326  M01S00325.comcdcm +++| .C ELSE
00327  M01S00326.comcdcm +++| .G IFGT .1,0
00328  M01S00327.comcdcm +++| .2 MAX .2,1
00329  M01S00328.comcdcm +++| .G ELSE
00330  M01S00329.comcdcm +++| .2 SET 0
00331  M01S00330.comcdcm +++| .G ENDIF
00332  M01S00331.comcdcm +++| .H IFGT .3,0
00333  M01S00332.comcdcm +++| .4 MAX .4,1
00334  M01S00333.comcdcm +++| .H ELSE
00335  M01S00334.comcdcm +++| .4 SET 0
00336  M01S00335.comcdcm +++| .H ENDIF
00337  M01S00336.comcdcm +++| PGT HERE
00338  M01S00337.comcdcm +++| .C ENDIF
00339  M01S00338.comcdcm +++| .B ELSE
00340  M01S00339.comcdcm +++| .4 SET 0
00341  M01S00340.comcdcm +++| .B ENDIF
00342  M01S00341.comcdcm +++| PAGT     ENDM
00343  M01S00342.comcdcm +++| DCM      ENDX