Library Member Format: MODIFY

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

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00002.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1984.

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M00S00003.comcdcm +++| DCM      SPACE  4,10
00005  M00S00004.comcdcm +++|***       COMCDCM - CPU DISPLAY CONSOLE MACROS.
00006  M00S00005.comcdcm +++|*
00007  M00S00006.comcdcm +++|*         J. T. LITTLE.     84/01/05.
00008  M00S00007.comcdcm +++|          SPACE  4,10
00009  M00S00008.comcdcm +++|***              *COMCDCM* CONTAINS MACROS FOR ACCESSING THE SYSTEM
00010  M00S00009.comcdcm +++|*         DISPLAY CONSOLE BY *K* AND *L* DISPLAY UTILITIES.
00011  M00S00010.comcdcm +++| CONSOLE  SPACE  4,20
00012  M00S00011.comcdcm +++|***       CONSOLE - SET *K* DISPLAY CONTROL.
00013  M00S00012.comcdcm +++|*
00014  M00S00013.comcdcm +++|*         CONSOLE ADDR
00015  M00S00014.comcdcm +++|*
00016  M00S00015.comcdcm +++|*         ENTRY  *ADDR* = ADDRESS OF DISPLAY CONTROL WORD.
00017  M00S00016.comcdcm +++|*
00018  M00S00017.comcdcm +++|*T ADDR   1/0,1/U,1/0,1/S,2/0,18/  IB,18/  RB,18/  LB

Figure ADDR

00019  M00S00018.comcdcm +++|*         U      =1, IF UPDATE OF STATUS WORD IS NOT REQUIRED.
00020  M00S00019.comcdcm +++|*         S      =1, IF DISPLAY INPUT TO BE SUPPRESSED FROM DAYFILE.
00021  M00S00020.comcdcm +++|*         IB     ADDRESS OF KEYBOARD INPUT BUFFER.
00022  M00S00021.comcdcm +++|*         RB     ADDRESS OF RIGHT SCREEN DISPLAY BUFFER.
00023  M00S00022.comcdcm +++|*         LB     ADDRESS OF LEFT SCREEN DISPLAY BUFFER.
00024  M00S00023.comcdcm +++|*
00025  M00S00024.comcdcm +++|*         USES   X - 1, 2.
00026  M00S00025.comcdcm +++|*
00027  M00S00026.comcdcm +++|*         CALLS  CPM=.
00028  M00S00027.comcdcm +++|
00029  M00S00028.comcdcm +++|
00030  M00S00029.comcdcm +++|          PURGMAC  CONSOLE
00031  M00S00030.comcdcm +++|
00032  M00S00031.comcdcm +++| CONSOLE  MACRO  A
00033  M00S00032.comcdcm +++|  MACREF CONSOLE
00034  M00S00033.comcdcm +++|  R= X1,A
00035  M00S00034.comcdcm +++|  SX2 5
00036  M00S00035.comcdcm +++|  RJ =XCPM=
00037  M00S00036.comcdcm +++| CONSOLE  ENDM
00038  M00S00037.comcdcm +++| CSTATUS  SPACE  4,15
00039  M00S00038.comcdcm +++|***       CSTATUS - GET CONSOLE TYPE.
00040  M00S00039.comcdcm +++|*
00041  M00S00040.comcdcm +++|*         CSTATUS ADDR
00042  M00S00041.comcdcm +++|*
00043  M00S00042.comcdcm +++|*         ENTRY  *ADDR* = ADDRESS OF STATUS WORD FOR CONSOLE TYPE.
00044  M00S00043.comcdcm +++|*
00045  M00S00044.comcdcm +++|*T ADDR   12/TYPE,48/0

Figure ADDR

00046  M00S00045.comcdcm +++|*         TYPE   =0, IF CC545 CONSOLE.
00047  M00S00046.comcdcm +++|*                =1, IF CDC721 CONSOLE.
00048  M00S00047.comcdcm +++|*
00049  M00S00048.comcdcm +++|*         USES   X - 1, 2.
00050  M00S00049.comcdcm +++|*
00051  M00S00050.comcdcm +++|*         CALLS  CPM=.
00052  M00S00051.comcdcm +++|
00053  M00S00052.comcdcm +++|
00054  M00S00053.comcdcm +++|          PURGMAC  CSTATUS
00055  M00S00054.comcdcm +++|
00056  M00S00055.comcdcm +++| CSTATUS  MACRO  A
00057  M00S00056.comcdcm +++|  MACREF CSTATUS
00058  M00S00057.comcdcm +++|  R= X1,A
00059  M00S00058.comcdcm +++|  SX2 137B
00060  M00S00059.comcdcm +++|  RJ =XCPM=
00061  M00S00060.comcdcm +++| CSTATUS  ENDM
00062  M00S00061.comcdcm +++| DSDINP   SPACE  4,20
00063  M00S00062.comcdcm +++|***       DSDINP - TRANSFER *L* DISPLAY KEYBOARD INPUT
00064  M00S00063.comcdcm +++|*         FROM CMR BUFFER TO USER-S FL.
00065  M00S00064.comcdcm +++|*
00066  M00S00065.comcdcm +++|*         DSDINP N,C
00067  M00S00066.comcdcm +++|*
00068  M00S00067.comcdcm +++|*         ENTRY  *N* = FWA OF BLOCK IN USER-S FL TO RECEIVE
00069  M00S00068.comcdcm +++|*                      KEYBOARD INPUT FROM *DSD*.
00070  M00S00069.comcdcm +++|*                *C* = FLAG TO CLEAR *L* DISPLAY INTERLOCK
00071  M00S00070.comcdcm +++|*                      AND ACCEPT NO MORE COMMANDS.
00072  M00S00071.comcdcm +++|*
00073  M00S00072.comcdcm +++|*         USES   X - 1, 2.
00074  M00S00073.comcdcm +++|*
00075  M00S00074.comcdcm +++|*         CALLS  CPM=.
00076  M00S00075.comcdcm +++|*
00077  M00S00076.comcdcm +++|*         NOTE   SEE *CPM* DOCUMENTATION IN *TDU* FUNCTION FOR
00078  M00S00077.comcdcm +++|*                FORMAT OF COMMAND BUFFER IN USER-S FL.
00079  M00S00078.comcdcm +++|
00080  M00S00079.comcdcm +++|
00081  M00S00080.comcdcm +++|          PURGMAC  DSDINP
00082  M00S00081.comcdcm +++|
00083  M00S00082.comcdcm +++| DSDINP   MACRO  N,C
00084  M00S00083.comcdcm +++|  MACREF DSDINP
00085  M00S00084.comcdcm +++|  R= X1,N
00086  M00S00085.comcdcm +++| .A IFC NE,$C$$
00087  M00S00086.comcdcm +++|  R= X2,1
00088  M00S00087.comcdcm +++|  LX2 18
00089  M00S00088.comcdcm +++|  BX1 X1+X2
00090  M00S00089.comcdcm +++| .A ENDIF
00091  M00S00090.comcdcm +++|  SX2 103B
00092  M00S00091.comcdcm +++|  RJ =XCPM=
00093  M00S00092.comcdcm +++| DSDINP   ENDM
00094  M00S00093.comcdcm +++| DSDOUT   SPACE  4,20
00095  M00S00094.comcdcm +++|***       DSDOUT - TRANSFER *L* DISPLAY DATA FROM USER-S FL
00096  M00S00095.comcdcm +++|*         TO CMR BUFFER.
00097  M00S00096.comcdcm +++|*
00098  M00S00097.comcdcm +++|*         DSDOUT N,I
00099  M00S00098.comcdcm +++|*
00100  M00S00099.comcdcm +++|*         ENTRY  *N* = FWA OF BLOCK IN USER-S FL CONTAINING *L*
00101  M00S00100.comcdcm +++|*                      DISPLAY INFORMATION.
00102  M00S00101.comcdcm +++|*                *I* = SPECIFIES THAT *N* CONTAINS THE FWA
00103  M00S00102.comcdcm +++|*                      OF THE DISPLAY BUFFER.
00104  M00S00103.comcdcm +++|*
00105  M00S00104.comcdcm +++|*         USES   X - 1, 2.
00106  M00S00105.comcdcm +++|*                A - 1.
00107  M00S00106.comcdcm +++|*
00108  M00S00107.comcdcm +++|*         CALLS  CPM=.
00109  M00S00108.comcdcm +++|*
00110  M00S00109.comcdcm +++|*         NOTE   SEE *CPM* DOCUMENTATION IN *TDC* FUNCTION FOR
00111  M00S00110.comcdcm +++|*                FORMAT OF DISPLAY BUFFER IN USER-S FL.
00112  M00S00111.comcdcm +++|
00113  M00S00112.comcdcm +++|
00114  M00S00113.comcdcm +++|          PURGMAC  DSDOUT
00115  M00S00114.comcdcm +++|
00116  M00S00115.comcdcm +++| DSDOUT   MACRO  N,I
00117  M00S00116.comcdcm +++|  MACREF DSDOUT
00118  M00S00117.comcdcm +++| .A IFC EQ,$I$$
00119  M00S00118.comcdcm +++|  R= X1,N
00120  M00S00119.comcdcm +++| .A ELSE
00121  M00S00120.comcdcm +++|  R= A1,N
00122  M00S00121.comcdcm +++| .A ENDIF
00123  M00S00122.comcdcm +++|  SX2 102B
00124  M00S00123.comcdcm +++|  RJ =XCPM=
00125  M00S00124.comcdcm +++| DSDOUT   ENDM
00126  M00S00125.comcdcm +++| DSL      SPACE  4,10
00127  M00S00126.comcdcm +++|***       DSL - GENERATE *K* DISPLAY LINE.
00128  M00S00127.comcdcm +++|*
00129  M00S00128.comcdcm +++|*         DSL    X,Y,(STRING)
00130  M00S00129.comcdcm +++|*
00131  M00S00130.comcdcm +++|*         ENTRY  *X* = COLUMN (0 = FAR LEFT).
00132  M00S00131.comcdcm +++|*                *Y* = LINE (0 = TOP LINE).
00133  M00S00132.comcdcm +++|*                *STRING* = CHARACTER STRING TO BE DISPLAYED.
00134  M00S00133.comcdcm +++|*                ASSUMES 64 CHARACTERS PER LINE.
00135  M00S00134.comcdcm +++|*
00136  M00S00135.comcdcm +++|*         EXIT   IF *Y* = K, K IS INCREMENTED BY 1.
00137  M00S00136.comcdcm +++|
00138  M00S00137.comcdcm +++|
00139  M00S00138.comcdcm +++|          PURGMAC  DSL
00140  M00S00139.comcdcm +++|
00141  M00S00140.comcdcm +++| DSL      MACRO  X,Y,A
00142  M00S00141.comcdcm +++|  LOCAL XX,YY
00143  M00S00142.comcdcm +++|  MACREF DSL
00144  M00S00143.comcdcm +++| B MICRO 1,6,$A$
00145  M00S00144.comcdcm +++| C MICRO 7,,$A$
00146  M00S00145.comcdcm +++| XX EQU X
00147  M00S00146.comcdcm +++| YY EQU Y
00148  M00S00147.comcdcm +++|  VFD 12/6000B+XX*8,12/7756B-YY*10,36/6H"B"
00149  M00S00148.comcdcm +++|  DATA L$"C"$
00150  M00S00149.comcdcm +++|  IFC EQ,$Y$K$,1
00151  M00S00150.comcdcm +++| K SET K+1
00152  M00S00151.comcdcm +++| DSL      ENDM
00153  M00S00152.comcdcm +++|          SPACE  4,10
00154  M00S00153.comcdcm +++| KDL      SPACE  4,35
00155  M00S00154.comcdcm +++|***       KDL - GENERATE K-DISPLAY LINE.
00156  M00S00155.comcdcm +++|*
00157  M00S00156.comcdcm +++|*         KDL    X,Y,(STRING)
00158  M00S00157.comcdcm +++|*
00159  M00S00158.comcdcm +++|*         ENTRY  *X* = COLUMN (1 = FAR LEFT).
00160  M00S00159.comcdcm +++|*                *Y* = LINE (1 = TOP LINE).
00161  M00S00160.comcdcm +++|*                IF *Y* =T, LINE NUMBER IS SET TO 2 AND K IS THEN
00162  M00S00161.comcdcm +++|*                        SET TO 4.  THIS IS FOR THE TITLE LINE.
00163  M00S00162.comcdcm +++|*                       =H, LINE NUMBER IS SET TO K AND K IS THEN
00164  M00S00163.comcdcm +++|*                        SET TO K+2.  THIS IS FOR A HEADER LINE - A
00165  M00S00164.comcdcm +++|*                        LINE WHICH WILL BE FOLLOWED BY A BLANK LINE.
00166  M00S00165.comcdcm +++|*                       =M, LINE NUMBER IS SET TO 22 AND K IS THEN
00167  M00S00166.comcdcm +++|*                        SET TO 23.  THIS IS FOR THE MESSAGE LINE.
00168  M00S00167.comcdcm +++|*                       =I, LINE NUMBER IS SET TO 23.  THIS IS FOR
00169  M00S00168.comcdcm +++|*                        THE KEYBOARD INPUT LINE.
00170  M00S00169.comcdcm +++|*                       =K, LINE NUMBER IS SET TO K AND K IS THEN
00171  M00S00170.comcdcm +++|*                        SET TO K+1.
00172  M00S00171.comcdcm +++|*                       =NULL, LINE NUMBER IS SET TO K .  IF K IS
00173  M00S00172.comcdcm +++|*                        UNDEFINED, THEN LINE NUMBER IS SET TO 1.
00174  M00S00173.comcdcm +++|*                       =NUMBER, LINE IS SET TO THAT NUMBER.  IF
00175  M00S00174.comcdcm +++|*                        .LT. 1 OR .GT. 23, THEN LINE IS SET TO 1.
00176  M00S00175.comcdcm +++|*                       =*, THEN REMOTE BLOCK IS ASSEMBLED AT THE
00177  M00S00176.comcdcm +++|*                        LOCATION OF THE MACRO CALL.
00178  M00S00177.comcdcm +++|*
00179  M00S00178.comcdcm +++|*                *STRING* = CHARACTER STRING TO BE DISPLAYED (0 - 64
00180  M00S00179.comcdcm +++|*                CHARACTERS).
00181  M00S00180.comcdcm +++|*                ASSUMES 64 CHARACTERS PER LINE.
00182  M00S00181.comcdcm +++|*                ASSUMES 23 LINES PER DISPLAY.
00183  M00S00182.comcdcm +++|*
00184  M00S00183.comcdcm +++|*         EXIT   K IS SET TO NEXT LINE NUMBER AS DESCRIBED ABOVE.
00185  M00S00184.comcdcm +++|*                AN ENTRY IN THE KDL REMOTE BLOCK WILL BE GENERATED FOR
00186  M00S00185.comcdcm +++|*                EACH Y VALUE .NE. *.  IT IS OF THE FOLLOWING FORM.
00187  M00S00186.comcdcm +++|*
00188  M00S00187.comcdcm +++|*T        24/           0,18/        LL,18/        Y

Figure

00189  M00S00188.comcdcm +++|*         LL     LOCATION OF Y-COORDINATE IN DISPLAY BUFFER.
00190  M00S00189.comcdcm +++|*         Y      Y COORDINATE FOR 721 CONSOLE.
00191  M00S00190.comcdcm +++|*
00192  M00S00191.comcdcm +++|*         NOTE   THE KDL REMOTE BLOCK IS USED BY SUBROUTINE PRK IN
00193  M00S00192.comcdcm +++|*                COMCDCP.
00194  M00S00193.comcdcm +++|
00195  M00S00194.comcdcm +++|
00196  M00S00195.comcdcm +++|          PURGMAC KDL
00197  M00S00196.comcdcm +++|
00198  M00S00197.comcdcm +++| KDL MACRO  X,Y,S
00199  M00S00198.comcdcm +++|  LOCAL XX,YY,LL
00200  M00S00199.comcdcm +++|  MACREF KDL
00201  M00S00200.comcdcm +++| B MICRO 1,6,$S$
00202  M00S00201.comcdcm +++| C MICRO 7,,$S$
00203  M00S00202.comcdcm +++| XX EQU X-1
00204  M00S00203.comcdcm +++| LL EQU *
00205  M00S00204.comcdcm +++| .A IFC NE,$X$*$
00206  M00S00205.comcdcm +++| .B IFC EQ,$Y$K$
00207  M00S00206.comcdcm +++|  IF -DEF,K,1
00208  M00S00207.comcdcm +++| K SET 1
00209  M00S00208.comcdcm +++| YY EQU K
00210  M00S00209.comcdcm +++| K SET K+1
00211  M00S00210.comcdcm +++| .B ELSE
00212  M00S00211.comcdcm +++| .C IFC EQ,$Y$T$
00213  M00S00212.comcdcm +++| YY SET 2
00214  M00S00213.comcdcm +++| K SET 4
00215  M00S00214.comcdcm +++| .C ELSE
00216  M00S00215.comcdcm +++| .D IFC EQ,$Y$H$
00217  M00S00216.comcdcm +++| YY SET K
00218  M00S00217.comcdcm +++| K SET K+2
00219  M00S00218.comcdcm +++| .D ELSE
00220  M00S00219.comcdcm +++| .E IFC EQ,$Y$$
00221  M00S00220.comcdcm +++|  IF -DEF,K,1
00222  M00S00221.comcdcm +++| K SET 1
00223  M00S00222.comcdcm +++| YY SET K
00224  M00S00223.comcdcm +++| .E ELSE
00225  M00S00224.comcdcm +++| .F IFC EQ,$Y$M$
00226  M00S00225.comcdcm +++| YY SET 22
00227  M00S00226.comcdcm +++| K SET 23
00228  M00S00227.comcdcm +++| .F ELSE
00229  M00S00228.comcdcm +++| .G IFC EQ,$Y$I$
00230  M00S00229.comcdcm +++| YY SET 23
00231  M00S00230.comcdcm +++| K SET 1
00232  M00S00231.comcdcm +++| .G ELSE
00233  M00S00232.comcdcm +++| YY EQU Y
00234  M00S00233.comcdcm +++| .B ENDIF
00235  M00S00234.comcdcm +++| .C ENDIF
00236  M00S00235.comcdcm +++| .D ENDIF
00237  M00S00236.comcdcm +++| .E ENDIF
00238  M00S00237.comcdcm +++| .F ENDIF
00239  M00S00238.comcdcm +++| .G ENDIF
00240  M00S00239.comcdcm +++| .H IFGT YY,23
00241  M00S00240.comcdcm +++|  ERR     LINE VALUE TOO LARGE
00242  M00S00241.comcdcm +++| YY SET 1
00243  M00S00242.comcdcm +++| .H ELSE
00244  M00S00243.comcdcm +++| .I IFLT YY,1
00245  M00S00244.comcdcm +++|  ERR     LINE VALUE TOO SMALL
00246  M00S00245.comcdcm +++| YY SET 1
00247  M00S00246.comcdcm +++| .I ENDIF
00248  M00S00247.comcdcm +++| .H ENDIF
00249  M00S00248.comcdcm +++| .J IFGT XX,63
00250  M00S00249.comcdcm +++| XX SET 0
00251  M00S00250.comcdcm +++| .J ELSE
00252  M00S00251.comcdcm +++| .K IFLT XX,0
00253  M00S00252.comcdcm +++| XX SET 0
00254  M00S00253.comcdcm +++| .K ENDIF
00255  M00S00254.comcdcm +++| .J ENDIF
00256  M00S00255.comcdcm +++|  VFD 12/6000B+XX*8,12/7707B-YY*15,36/6L"B"
00257  M00S00256.comcdcm +++|  DATA L$"C"$
00258  M00S00257.comcdcm +++| KDL RMT
00259  M00S00258.comcdcm +++|  VFD 24/0,18/LL,18/7726B-YY*10
00260  M00S00259.comcdcm +++| KDL RMT
00261  M00S00260.comcdcm +++| .A ELSE
00262  M00S00261.comcdcm +++| KDL HERE
00263  M00S00262.comcdcm +++|  CON 0
00264  M00S00263.comcdcm +++| .A ENDIF
00265  M00S00264.comcdcm +++| KDL      ENDM
00266  M00S00265.comcdcm +++| PAGT     SPACE  4,25
00267  M00S00266.comcdcm +++|***       PAGT - GENERATE PAGE TABLE.
00268  M00S00267.comcdcm +++|*
00269  M00S00268.comcdcm +++|*     A   PAGT    B,C,D,E
00270  M00S00269.comcdcm +++|*
00271  M00S00270.comcdcm +++|*         ENTRY  *A* = FWA OF PAGE TABLE.  WHEN SPECIFIED, THIS
00272  M00S00271.comcdcm +++|*                      INDICATES THE FIRST ENTRY IN THE PAGE TABLE.
00273  M00S00272.comcdcm +++|*                *B* = FWA OF PAGE DISPLAY BUFFER.  IF NOT SPECIFIED,
00274  M00S00273.comcdcm +++|*                      INDICATES THE START OF RIGHT SCREENS.
00275  M00S00274.comcdcm +++|*                *C* = ERROR MESSAGE LINE ADDRESS IN DISPLAY BUFFER
00276  M00S00275.comcdcm +++|*                      (OPTIONAL).
00277  M00S00276.comcdcm +++|*                *D* = KEYBOARD INPUT LINE ADDRESS IN DISPLAY BUFFER
00278  M00S00277.comcdcm +++|*                      (OPTIONAL).
00279  M00S00278.comcdcm +++|*                *E* = INDEX OF INITIAL DISPLAY (OPTIONAL).
00280  M00S00279.comcdcm +++|*
00281  M00S00280.comcdcm +++|*         EXIT   PAGE TABLE GENERATED WITH THE FOLLOWING FORMAT.
00282  M00S00281.comcdcm +++|*
00283  M00S00282.comcdcm +++|*T        12/     NL,18/        CL,12/     NR,18/        CR

Figure

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

Figure

00285  M00S00284.comcdcm +++|*         NL     NUMBER OF LEFT SCREEN PAGES.
00286  M00S00285.comcdcm +++|*         CL     INDEX OF CURRENT LEFT SCREEN.
00287  M00S00286.comcdcm +++|*         NR     NUMBER OF RIGHT SCREEN PAGES.
00288  M00S00287.comcdcm +++|*         CR     INDEX OF CURRENT RIGHT SCREEN.
00289  M00S00288.comcdcm +++|*         K      KEYBOARD INPUT LINE ADDRESS IN DISPLAY BUFFER.
00290  M00S00289.comcdcm +++|*         M      ERROR MESSAGE LINE ADDRESS IN DISPLAY BUFFER.
00291  M00S00290.comcdcm +++|*         B      FWA OF PAGE DISPLAY BUFFER.
00292  M00S00291.comcdcm +++|*
00293  M00S00292.comcdcm +++|*         NOTE   THE PAGE TABLE IS USED BY SUBROUTINE PRK IN COMCDCP.
00294  M00S00293.comcdcm +++|
00295  M00S00294.comcdcm +++|
00296  M00S00295.comcdcm +++|          PURGMAC  PAGT
00297  M00S00296.comcdcm +++|
00298  M00S00297.comcdcm +++|          MACRO  PAGT,T,L,M,K,I
00299  M00S00298.comcdcm +++|  MACREF PAGT
00300  M00S00299.comcdcm +++| .A IFC NE,$T$$
00301  M00S00300.comcdcm +++| .4 SET -1
00302  M00S00301.comcdcm +++| .3 SET 0
00303  M00S00302.comcdcm +++| .2 SET 0
00304  M00S00303.comcdcm +++| .1 SET 0
00305  M00S00304.comcdcm +++| PGT RMT
00306  M00S00305.comcdcm +++| T VFD 12/.1,18/.2,12/.3,18/.4
00307  M00S00306.comcdcm +++| PGT RMT
00308  M00S00307.comcdcm +++| .A ENDIF
00309  M00S00308.comcdcm +++| .F IFC NE,$I$$
00310  M00S00309.comcdcm +++| .E IFGT .4,-1
00311  M00S00310.comcdcm +++| .4 SET I
00312  M00S00311.comcdcm +++| .E ELSE
00313  M00S00312.comcdcm +++| .2 SET I
00314  M00S00313.comcdcm +++| .E ENDIF
00315  M00S00314.comcdcm +++| .F ENDIF
00316  M00S00315.comcdcm +++| .B IFC NE,$L$$
00317  M00S00316.comcdcm +++| .C IFC NE,$L$*$
00318  M00S00317.comcdcm +++| .D IFGT .4,-1
00319  M00S00318.comcdcm +++| .3 SET .3+1
00320  M00S00319.comcdcm +++| .D ELSE
00321  M00S00320.comcdcm +++| .1 SET .1+1
00322  M00S00321.comcdcm +++| .D ENDIF
00323  M00S00322.comcdcm +++| PGT RMT
00324  M00S00323.comcdcm +++|  VFD 6/0,18/K,18/M,18/L
00325  M00S00324.comcdcm +++| PGT RMT
00326  M00S00325.comcdcm +++| .C ELSE
00327  M00S00326.comcdcm +++| .G IFGT .1,0
00328  M00S00327.comcdcm +++| .2 MAX .2,1
00329  M00S00328.comcdcm +++| .G ELSE
00330  M00S00329.comcdcm +++| .2 SET 0
00331  M00S00330.comcdcm +++| .G ENDIF
00332  M00S00331.comcdcm +++| .H IFGT .3,0
00333  M00S00332.comcdcm +++| .4 MAX .4,1
00334  M00S00333.comcdcm +++| .H ELSE
00335  M00S00334.comcdcm +++| .4 SET 0
00336  M00S00335.comcdcm +++| .H ENDIF
00337  M00S00336.comcdcm +++| PGT HERE
00338  M00S00337.comcdcm +++| .C ENDIF
00339  M00S00338.comcdcm +++| .B ELSE
00340  M00S00339.comcdcm +++| .4 SET 0
00341  M00S00340.comcdcm +++| .B ENDIF
00342  M00S00341.comcdcm +++| PAGT     ENDM
00343  M00S00342.comcdcm +++| DCM      ENDX