User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:chd

Deck CHD

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.chd     +++|          IDENT  CHD,CHD
00002  M00S00002.chd     +++|          PERIPH
00003  M00S00003.chd     +++|          BASE   MIXED
00004  M00S00004.chd     +++|          SST    RDS
00005  M00S00005.chd     +++|          SYSCOM
Line S00006 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.ns22000 ---|*COMMENT  CHESS DISPLAY DRIVER.
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.ns22000 +++|*COMMENT  CHD - CHESS DISPLAY DRIVER.
Line S00002 Modification History
M01 (Added by) ns22000
M02 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00002.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M00S00007.chd     +++|          TITLE  CHD - CHESS DISPLAY DRIVER.
00011  M00S00008.chd     +++|          SPACE  4
00012  M00S00009.chd     +++|***       AUTHOR:
00013  M00S00010.chd     +++|*                 K. E. GORLEN
00014  M00S00011.chd     +++|*                 VOGELBACK COMPUTING CENTER
00015  M00S00012.chd     +++|*                 NORTHWESTERN UNIVERSITY
00016  M00S00013.chd     +++|*                 6400/6500/6600 SCOPE 3    03/20/69
00017  M00S00014.chd     +++|
00018  M00S00015.chd     +++|
00019  M00S00016.chd     +++|***       CONVERSION TO KRONOS -
00020  M00S00017.chd     +++|*         G. R. MANSFIELD.
00021  M00S00018.chd     +++|*         E. W. HOBBS.       70/03/06.
00022  M00S00019.chd     +++|          SPACE  4
Line S00003 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00003.ns22000 +++|**        COMMON DECKS.
00024  M01S00004.ns22000 +++|
00025  M01S00005.ns22000 +++|
00026  M00S00020.chd     +++|*CALL     COMDMAC
00027  M00S00021.chd     +++|*CALL     COMPMAC
Line S00001 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00001.242l642 +++|*CALL     COMSCPS
Line S00022 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00022.ns22000 ---|          PURGMAC INDEX
00030  M00S00023.chd     +++|          SPACE  4
00031  M00S00024.chd     +++|****      DIRECT STORAGE LOCATION ASSIGNMENTS.
00032  M00S00025.chd     +++|
00033  M00S00026.chd     +++|
00034  M00S00027.chd     +++| NC       EQU    15          NUMBER OF CP-S (FOR *COMDSYS*)
00035  M00S00028.chd     +++| XC       EQU    16          X-COORDINATE
00036  M00S00029.chd     +++| YC       EQU    17          Y-COORDINATE
00037  M00S00030.chd     +++| CN       EQU    20 - 24     CM WORD BUFFER
00038  M00S00031.chd     +++| CC       EQU    25          CHARACTER COUNT
00039  M00S00032.chd     +++| KM       EQU    26          MESSAGE ADDRESS
00040  M00S00033.chd     +++| CR       EQU    27          CARRIAGE RETURN FLAG
00041  M00S00034.chd     +++| SW       EQU    30 - 34     STATUS WORD
00042  M00S00035.chd     +++| WF       EQU    35          WAITING FOR CPU FLAG
00043  M00S00036.chd     +++| LF       EQU    36          LIMIT FLAG
00044  M00S00037.chd     +++| A.SW     EQU    37 - 40     STATUS WORD ABSOLUTE ADDRESS
00045  M00S00038.chd     +++| A.TR     EQU    41 - 42     ADDRESS OF TREE POSITION
00046  M00S00039.chd     +++| A.OP     EQU    43 - 44     ADDRESS OF OPTION DISPLAY
00047  M00S00040.chd     +++| A.GS     EQU    45 - 46     ADDRESS OF GAME SCORE DISPLAY
00048  M00S00041.chd     +++|*         EQU    47
00049  M00S00042.chd     +++| WC       EQU    57          KEYBOARD ENTRY WORD COUNT
00050  M00S00043.chd     +++| FT       EQU    60 - 61     FIRST
00051  M00S00044.chd     +++| SC       EQU    62          REAL TIME SECOND CLOCK
00052  M00S00045.chd     +++| GC       EQU    63          GAME CLOCK STATUS
00053  M00S00046.chd     +++| OT       EQU    64 - 65     OUT
00054  M00S00047.chd     +++| LM       EQU    66 - 67     LIMIT
00055  M00S00048.chd     +++|          SPACE  4
00056  M00S00049.chd     +++|**        ASSEMBLY CONSTANTS.
00057  M00S00050.chd     +++|
00058  M00S00051.chd     +++|
00059  M00S00052.chd     +++| NAME     MICRO  1,, CHESS
00060  M00S00053.chd     +++| CH       EQU    CHDS        DISPLAY CHANNEL
00061  M00S00054.chd     +++| CPF      EQU    3           LOOP CYCLES/FLASH
00062  M00S00055.chd     +++| FPM      EQU    6           FLASHES/MOVE
00063  M00S00056.chd     +++| DSCT     EQU    20D         DISPLAY CYCLE (MS)
00064  M00S00057.chd     +++| LOPT     EQU    6           LENGTH OF OPTION LIST
00065  M00S00058.chd     +++| LSCR     EQU    18D*4       LENGTH OF GAME SCORE (CM WORDS)
00066  M00S00059.chd     +++| LLIM     EQU    8D          LENGTH OF LIMIT LIST
00067  M00S00060.chd     +++| XLIM     EQU    6000        LIMIT AND TREE COORDINATES
00068  M00S00061.chd     +++| YLIM     EQU    7650
00069  M00S00062.chd     +++| XBRD     EQU    6020        BOARD  COORDINATES
00070  M00S00063.chd     +++| YBRD     EQU    7120
00071  M00S00064.chd     +++| XOPT     EQU    6000        OPTIONS COORDINATES
00072  M00S00065.chd     +++| YOPT     EQU    7610
00073  M00S00066.chd     +++| XSCR     EQU    6060        GAME SCORE COORDINATES
00074  M00S00067.chd     +++| YSCR     EQU    7350
00075  M00S00068.chd     +++| XCLK     EQU    6000        GAME CLOCK COORDINATES
00076  M00S00069.chd     +++| YCLK     EQU    7440
00077  M00S00070.chd     +++| XNAM     EQU    6070        PLAYER NAMES COORDINATES
00078  M00S00071.chd     +++| YNAM     EQU    7520
00079  M00S00072.chd     +++|          SPACE  4
00080  M00S00073.chd     +++|**        DISPLAY ENVIRONMENT TABLE POINTERS.
00081  M00S00074.chd     +++|
00082  M00S00075.chd     +++|
00083  M00S00076.chd     +++| P.PD     EQU    1           PIECE DISPLAY BUFFER
00084  M00S00077.chd     +++| P.IM     EQU    2           MESSAGE INPUT BUFFER
00085  M00S00078.chd     +++| P.EM     EQU    3           ERROR MESSAGE BUFFER
00086  M00S00079.chd     +++| P.OM     EQU    4           OUTPUT MESSAGE BUFFER
00087  M00S00080.chd     +++| P.LM     EQU    5           LIMIT SETTING
00088  M00S00081.chd     +++| P.TR     EQU    6           CURRENT POSITION IN TREE
00089  M00S00082.chd     +++| P.BD     EQU    7           PACKED BOARD
00090  M00S00083.chd     +++| P.OP     EQU    10          OPTION DISPLAY
00091  M00S00084.chd     +++| P.GS     EQU    11          GAME SCORE DISPLAY
00092  M00S00085.chd     +++| P.NM     EQU    12          PLAYER NAMES
00093  M00S00086.chd     +++| P.RO     EQU    13          TEMPORARY ROLLOUT STORAGE
00094  M00S00087.chd     +++|          SPACE  4
00095  M00S00088.chd     +++|**        FUNCTION MNEMONICS.
00096  M00S00089.chd     +++|
00097  M00S00090.chd     +++|
00098  M00S00091.chd     +++| F.DUM    EQU    2           DUMMY FUNCTION
00099  M00S00092.chd     +++| F.AKL    EQU    4           ACCEPT KEYBOARD LINE
00100  M00S00093.chd     +++| F.ERR    EQU    6           DISPLAY ERROR MESSAGE
00101  M00S00094.chd     +++| F.FLA    EQU    10          FLASH PIECE
00102  M00S00095.chd     +++| F.SET    EQU    12          SET CLOCKS
00103  M00S00096.chd     +++| F.STP    EQU    14          STOP CLOCKS
00104  M00S00097.chd     +++| F.SCA    EQU    16          START CLOCK A
00105  M00S00098.chd     +++| F.SCB    EQU    20          START CLOCK B
00106  M00S00099.chd     +++| F.EPR    EQU    22          ENTER PRIORITY
00107  M00S00100.chd     +++| F.EFL    EQU    24          ENTER FIELD LENGTH
00108  M00S00101.chd     +++| F.DRP    EQU    26          DROP PP
00109  M00S00102.chd     +++| F.ABT    EQU    30          KILL JOB
00110  M00S00103.chd     +++|
00111  M00S00104.chd     +++|****
00112  M00S00105.chd     +++| LCMA     TITLE  MACROS
00113  M00S00106.chd     +++|**        LCMA - LOAD AN 18 BIT CENTRAL MEMORY ADDRESS INTO
00114  M00S00107.chd     +++|*         THE A REGISTER.
00115  M00S00108.chd     +++|*         THE HIGH ORDER BITS ARE IN BITS 0-5 OF (ADDR).
00116  M00S00109.chd     +++|*         THE LOW ORDER BITS ARE IN (ADDR+1).
00117  M00S00110.chd     +++|*         ADDR MAY BE EITHER A DIRECT OR MEMORY LOCATION.
00118  M00S00111.chd     +++|
00119  M00S00112.chd     +++|
00120  M00S00113.chd     +++| LCMA     MACRO  ADDR        LOAD CM ADDRESS
00121  M00S00114.chd     +++|          LOCAL  N
00122  M00S00115.chd     +++| N        SET    1
00123  M00S00116.chd     +++|          IFGT   ADDR,77,1
00124  M00S00117.chd     +++| N        SET    2
00125  M00S00118.chd     +++| K        MICRO  N,1,*DM*
00126  M00S00119.chd     +++|          LD_"K" ADDR
00127  M00S00120.chd     +++|          SHN    14
00128  M00S00121.chd     +++|          AD_"K" ADDR+1
00129  M00S00122.chd     +++|          ENDM
00130  M00S00123.chd     +++|          SPACE  4
00131  M00S00124.chd     +++|**        SCMA - STORE AN 18 BIT CM ADDRESS.
00132  M00S00125.chd     +++|*         HIGH ORDER BITS IN (ADDR).
00133  M00S00126.chd     +++|*         LOW ORDER BITS IN (ADDR+1).
00134  M00S00127.chd     +++|*         ADDR MAY BE DIRECT OR MEMORY.
00135  M00S00128.chd     +++|
00136  M00S00129.chd     +++|
00137  M00S00130.chd     +++| SCMA     MACRO  ADDR
00138  M00S00131.chd     +++|          LOCAL  N
00139  M00S00132.chd     +++| N        SET    1
00140  M00S00133.chd     +++|          IFGT   ADDR,77,1
00141  M00S00134.chd     +++| N        SET    2
00142  M00S00135.chd     +++| K        MICRO  N,1,*DM*
00143  M00S00136.chd     +++|          ST_"K" ADDR+1
00144  M00S00137.chd     +++|          SHN    -14
00145  M00S00138.chd     +++|          ST_"K" ADDR
00146  M00S00139.chd     +++|          ENDM
00147  M00S00140.chd     +++|          SPACE  4
00148  M00S00141.chd     +++|**        TCMA - TRANSFER THE CM ADDRESS IN (A1 - A1+1) TO
00149  M00S00142.chd     +++|*         (A2 - A2+1).
00150  M00S00143.chd     +++|
00151  M00S00144.chd     +++|
00152  M00S00145.chd     +++| TCMA     MACRO  A1,A2
00153  M00S00146.chd     +++|          LOCAL  N1,N2
00154  M00S00147.chd     +++| N1       SET    1
00155  M00S00148.chd     +++| N2       SET    1
00156  M00S00149.chd     +++|          IFGT   A1,77,1
00157  M00S00150.chd     +++| N1       SET    2
00158  M00S00151.chd     +++|          IFGT   A2,77,1
00159  M00S00152.chd     +++| N2       SET    2
00160  M00S00153.chd     +++| K1       MICRO  N1,1,*DM*
00161  M00S00154.chd     +++| K2       MICRO  N2,1,*DM*
00162  M00S00155.chd     +++|          LD_"K1" A1
00163  M00S00156.chd     +++|          ST_"K2" A2
00164  M00S00157.chd     +++|          LD_"K1" A1+1
00165  M00S00158.chd     +++|          ST_"K2" A2+1
00166  M00S00159.chd     +++|          ENDM
00167  M00S00160.chd     +++| INDEX    SPACE  4
00168  M00S00161.chd     +++|***       INDEX - GENERATE INDEXED TABLE.
00169  M00S00162.chd     +++|*
00170  M00S00163.chd     +++|*
00171  M00S00164.chd     +++|*NAME     INDEX  TYPE,ADDRESS
00172  M00S00165.chd     +++|*         THIS MACRO IS INTENDED TO GENERATE TABLES WHICH ARE INDEXED
00173  M00S00166.chd     +++|*         BY SYMBOLIC CONSTANTS.
00174  M00S00167.chd     +++|*         IT HAS 3 CALLING SEQUENCES.
00175  M00S00168.chd     +++|*         IF *NAME* IS PRESENT, THE FWA OF THE TABLE IS SET TO *NAME*
00176  M00S00169.chd     +++|*         AND *TYPE* IS APPENDED AS A BIAS TO *TYPE* FOR ALL
00177  M00S00170.chd     +++|*         SUBSEQUENT CALLS.
00178  M00S00171.chd     +++|*
00179  M00S00172.chd     +++|*         IF *ADDRESS* IS MISSING, THE TABLE IS TERMINATED WITH AN
00180  M00S00173.chd     +++|*         *ORG* TO THE END OF THE TABLE. THIS RESULTS IN ZERO ENTRIES
00181  M00S00174.chd     +++|*         FOR UNDEFINED ENTRIES IN THE TABLE.
00182  M00S00175.chd     +++|*
00183  M00S00176.chd     +++|*         OTHERWISE, A TABLE ENTRY IS MADE AT *INDEX* + *TYPE* OF
00184  M00S00177.chd     +++|*         *ADDRESS*, WITH *TYPE* MODIFIED BY *TYPE* GIVEN IN THE
00185  M00S00178.chd     +++|*         INITIALIZING CALL.
00186  M00S00179.chd     +++|*
00187  M00S00180.chd     +++|*         USES   SYMBOL NAME *INDEX*.
00188  M00S00181.chd     +++|*         CALLS  NONE.
00189  M00S00182.chd     +++|
00190  M00S00183.chd     +++|
Line S00006 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00191  M01S00006.ns22000 +++|          PURGMAC  INDEX
00192  M00S00184.chd     +++|          MACRO  INDEX,A,B,C
00193  M00S00185.chd     +++|          IFC NE,*A**
00194  M00S00186.chd     +++| A        BSS    0
00195  M00S00187.chd     +++| .3       MICRO  1,, B
00196  M00S00188.chd     +++| .2       SET    A
00197  M00S00189.chd     +++|          ELSE   5
00198  M00S00190.chd     +++|          ORG    .2+B".3"
00199  M00S00191.chd     +++|          IFC    NE,*C**,2
00200  M00S00192.chd     +++|          LOC    B
00201  M00S00193.chd     +++|          CON    C
00202  M00S00194.chd     +++|          BSS    0
00203  M00S00195.chd     +++|          ENDM
00204  M00S00196.chd     +++| INDEX    SPACE  4
00205  M00S00197.chd     +++| .3       MICRO  1,,
00206  M00S00198.chd     +++| CHD      TITLE  MAIN DISPLAY LOOP
Line S00199 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00207  M01S00199.ns22000 ---|**        MAIN DISPLAY LOOP
Line S00007 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00208  M01S00007.ns22000 +++|**        CHD - MAIN ROUTINE.
00209  M00S00200.chd     +++|
00210  M00S00201.chd     +++|          ORG    PPFW
00211  M00S00202.chd     +++|
00212  M00S00203.chd     +++| CHD      RJM    PRS         PRESET
00213  M00S00204.chd     +++| CHD1     RJM    PAUSE       FOR RELOCATION
Line S00205 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00214  M01S00205.v23l617 ---|          RJM    FNC         PROCESS FUNCTION CODES
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00215  M01S00001.v23l617 +++|          RJM    PFC         PROCESS FUNCTION CODES
00216  M00S00206.chd     +++|          RJM    RKE         READ KEYBOARD ENTRY
00217  M00S00207.chd     +++|          RJM    DKE         DISPLAY KEYBOARD ENTRY
00218  M00S00208.chd     +++|          RJM    SKE         STORE KEYBOARD ENTRY
00219  M00S00209.chd     +++|          RJM    DBD         DISPLAY CHESS BOARD
00220  M00S00210.chd     +++|          RJM    DPC         DISPLAY CHESS PIECES
00221  M00S00211.chd     +++|          RJM    DOE         DISPLAY OUTPUT AND ERROR MESSAGES
00222  M00S00212.chd     +++|          RJM    DLM         DISPLAY LIMITS AND TREE POSITION
00223  M00S00213.chd     +++|          RJM    DGC         DISPLAY GAME CLOCKS
00224  M00S00214.chd     +++|          RJM    DOS         DISPLAY OPTIONS AND GAME SCORE
00225  M00S00215.chd     +++|          RJM    PFP         PROCESS FLASHING PIECE
00226  M00S00216.chd     +++|          RJM    UGC         UPDATE GAME CLOCKS
00227  M00S00217.chd     +++|          RJM    DSS         DISPLAY SYSTEM STATUS
00228  M00S00218.chd     +++|          UJN    CHD1        LOOP
00229  M00S00219.chd     +++| PAUSE    TITLE  PAUSE - PAUSE FOR RELOCATION
00230  M00S00220.chd     +++|**        PAUSE - PAUSE FOR RELOCATION.
00231  M00S00221.chd     +++|*                UPDATE STATUS ADDRESS.
00232  M00S00222.chd     +++|*                CHECK CONTROL POINT ERROR FLAG.
00233  M00S00223.chd     +++|*                CHECK ROLLOUT FLAG - DROP WITH RECALL IF SET.
00234  M00S00224.chd     +++|*                PROCESS DROP PP FUNCTION.
00235  M00S00225.chd     +++|*                PROCESS KILL JOB FUNCTION.
00236  M00S00226.chd     +++|*                PROCESS FIELD LENGTH REQUEST.
00237  M00S00227.chd     +++|
00238  M00S00228.chd     +++|
00239  M00S00229.chd     +++| PAUSE    SUBR               ENTRY/EXIT
00240  M00S00230.chd     +++|          RJM    PSS         PAUSE FOR SYSTEM
00241  M00S00231.chd     +++|          LCMA   IR+3        UPDATE STATUS ADDRESS
00242  M00S00232.chd     +++|          RJM    ABS
00243  M00S00233.chd     +++|          CRD    SW          READ STATUS WORD
00244  M00S00234.chd     +++|          SCMA   A.SW        STORE ABSOLUTE ADDRESS OF STATUS
00245  M00S00235.chd     +++|          LDD    SW+4
00246  M00S00236.chd     +++|          LMN    F.DRP
00247  M00S00237.chd     +++|          NJN    PAUSE1      IF NOT DROP FUNCTION
00248  M00S00238.chd     +++|          RJM    SB0
00249  M00S00239.chd     +++|          LJM    DRP         DROP PP
00250  M00S00240.chd     +++|
00251  M00S00241.chd     +++| PAUSE1   LMN    F.ABT&F.DRP
00252  M00S00242.chd     +++|          NJN    PAUSE2      IF NOT KILL FUNCTION
00253  M00S00243.chd     +++|          LJM    ABT         ABORT JOB
00254  M00S00244.chd     +++|
00255  M00S00245.chd     +++| PAUSE2   LDD    CP
00256  M00S00246.chd     +++|          ADN    STSW
00257  M00S00247.chd     +++|          CRD    CM
00258  M00S00248.chd     +++|          LDD    CM+2
00259  M00S00249.chd     +++|          LPN    1
00260  M00S00250.chd     +++|          NJN    PAUSE4      IF ROLLOUT SET
00261  M00S00251.chd     +++|          LDD    SW+4
00262  M00S00252.chd     +++|          LMN    F.EFL
00263  M00S00253.chd     +++|          ZJN    PAUSE3      IF FL REQUEST
00264  M00S00254.chd     +++|          LJM    PAUSEX      RETURN
00265  M00S00255.chd     +++|
00266  M00S00256.chd     +++| PAUSE3   LDD    FL
00267  M00S00257.chd     +++|          SHN    6
00268  M00S00258.chd     +++|          SCMA   SW+2        RETURN CURRENT FL
00269  M00S00259.chd     +++|          RJM    SB0
00270  M00S00260.chd     +++|          LJM    PAUSEX      RETURN
00271  M00S00261.chd     +++|
00272  M00S00262.chd     +++| PAUSE4   LDM    CLKAO       SAVE STATUS IN CENTRAL MEMORY
00273  M00S00263.chd     +++|          STD    CM
00274  M00S00264.chd     +++|          LDM    CLKBO
00275  M00S00265.chd     +++|          STD    CM+1
00276  M00S00266.chd     +++|          LDD    GC
00277  M00S00267.chd     +++|          STD    CM+2
00278  M00S00268.chd     +++|          LDM    UGCB
00279  M00S00269.chd     +++|          STD    CM+3
00280  M00S00270.chd     +++|          LDM    UGCE
00281  M00S00271.chd     +++|          STD    CM+4
00282  M00S00272.chd     +++|          LCMA   IR+3
00283  M00S00273.chd     +++|          ADN    P.RO
00284  M00S00274.chd     +++|          RJM    ABS
00285  M00S00275.chd     +++|          CWD    CM
00286  M00S00276.chd     +++|
Line S00277 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00287  M01S00277.ns22000 ---|*         DROP WITH RECALL
Line S00008 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00288  M01S00008.ns22000 +++|*         DROP WITH RECALL.
00289  M00S00278.chd     +++|
00290  M00S00279.chd     +++|          RJM    DDS
00291  M00S00280.chd     +++|          LDN    ZERL        CLEAR REQUEST BUFFER
00292  M00S00281.chd     +++|          CRD    CM
00293  M00S00282.chd     +++|          LDD    MA          WRITE IR TO MESSAGE BUFFER
00294  M00S00283.chd     +++|          CWD    IR
00295  M00S00284.chd     +++|          MONITOR  RECM      RECALL PP
00296  M00S00285.chd     +++|          LJM    PPR         RETURN TO PP RESIDENT
00297  M00S00286.chd     +++| FNC      TITLE  FNC - FUNCTION CODE PROCESSOR
00298  M00S00287.chd     +++|**        FNC - PROCESS FUNCTION CODES.
00299  M00S00288.chd     +++|*                READ OUTPUT MESSAGE.
00300  M00S00289.chd     +++|*                READ CURRENT LIMIT SETTING.
00301  M00S00290.chd     +++|*                UPDATE PIECE DISPLAY BUFFER POINTERS.
00302  M00S00291.chd     +++|*                READ RANK LABELS AND FILE LABELS.
00303  M00S00292.chd     +++|*                UPDATE POINTERS TO BOARD,OPTION,GAME SCORE,TREE.
00304  M00S00293.chd     +++|
00305  M00S00294.chd     +++|
Line S00002 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00306  M01S00002.v23l617 +++|          QUAL   FNC
00307  M01S00003.v23l617 +++|
00308  M00S00295.chd     +++| FNC      SUBR               ENTRY/EXIT
00309  M00S00296.chd     +++|          LDD    SW+4        CHECK FUNCTION CODE
00310  M00S00297.chd     +++|          LPN    1
00311  M00S00298.chd     +++|          NJN    FNCX        RETURN IF COMPLETED
00312  M00S00299.chd     +++|          LDM    PFPA
00313  M00S00300.chd     +++|          NJN    FNCX        RETURN IF *FLASH* SET
00314  M00S00301.chd     +++|          LDD    SW+4
00315  M00S00302.chd     +++|          SHN    -1
00316  M00S00303.chd     +++|          ZJN    FNCX
00317  M00S00304.chd     +++|          STD    YC
00318  M00S00305.chd     +++|          SBN    TFNCL+4
00319  M00S00306.chd     +++|          MJN    FNC1        IF LEGAL FUNCTION CODE
00320  M00S00307.chd     +++|          LDC    FNCA+CPON   MESSAGE = *ILLEGAL FUNCTION CODE.*
00321  M00S00308.chd     +++|          RJM    DFM
00322  M00S00309.chd     +++|          LJM    ABT         ABORT JOB
00323  M00S00310.chd     +++|
00324  M00S00311.chd     +++| FNC1     ADN    3
00325  M00S00312.chd     +++|          PJN    FNCX        IF ENFL, DROP, KILL
00326  M00S00313.chd     +++|
00327  M00S00314.chd     +++|*         SET BUFFER POINTERS.
00328  M00S00315.chd     +++|
00329  M00S00316.chd     +++|          LDD    A.SW
00330  M00S00317.chd     +++|          SHN    14
00331  M00S00318.chd     +++|          ADD    A.SW+1
00332  M00S00319.chd     +++|          ADN    P.PD
00333  M00S00320.chd     +++|          CRD    CN
00334  M00S00321.chd     +++|          TCMA   CN+1,FT
00335  M00S00322.chd     +++|          TCMA   CN+3,LM
00336  M00S00323.chd     +++|          LDD    A.SW
00337  M00S00324.chd     +++|          SHN    14
00338  M00S00325.chd     +++|          ADD    A.SW+1
00339  M00S00326.chd     +++|          ADN    P.OM
00340  M00S00327.chd     +++|          CRD    CN
00341  M00S00328.chd     +++|          ADN    P.TR-P.OM
00342  M00S00329.chd     +++|          CRD    CM
00343  M00S00330.chd     +++|          ADN    P.OP-P.TR
00344  M00S00331.chd     +++|          CRD    T6
00345  M00S00332.chd     +++|          ADN    P.GS-P.OP
00346  M00S00333.chd     +++|          CRD    T4
00347  M00S00334.chd     +++|          ADN    P.NM-P.GS
00348  M00S00335.chd     +++|          CRD    T2
00349  M00S00336.chd     +++|          LCMA   T5          READ PLAYER NAMES
00350  M00S00337.chd     +++|          RJM    ABS
00351  M00S00338.chd     +++|          CRM    DOSE,ON
00352  M00S00339.chd     +++|          CRM    DOSF,ON
00353  M00S00340.chd     +++|          LCMA   CN+3        READ OUTPUT MESSAGE
00354  M00S00341.chd     +++|          RJM    ABS
00355  M00S00342.chd     +++|          CRM    DOEB,TR
00356  M00S00343.chd     +++|          TCMA   CM+3,A.TR
00357  M00S00344.chd     +++|          TCMA   CM+1,A.OP
00358  M00S00345.chd     +++|          TCMA   T7,A.GS
00359  M00S00346.chd     +++|
00360  M00S00347.chd     +++|*         READ LIMIT SETTING.
00361  M00S00348.chd     +++|
00362  M00S00349.chd     +++|          LDN    LLIM        SET LENGTH OF LIMIT BUFFER
00363  M00S00350.chd     +++|          STD    T1
00364  M00S00351.chd     +++|          LDD    A.SW
00365  M00S00352.chd     +++|          SHN    14
00366  M00S00353.chd     +++|          ADD    A.SW+1
00367  M00S00354.chd     +++|          ADN    P.LM
00368  M00S00355.chd     +++|          CRD    CM
00369  M00S00356.chd     +++|          LCMA   CM+3        READ LIMITS
00370  M00S00357.chd     +++|          RJM    ABS
00371  M00S00358.chd     +++|          CRM    BUF,T1
00372  M00S00359.chd     +++|          LDN    0           SET INDEX
00373  M00S00360.chd     +++|          STD    T5
00374  M00S00361.chd     +++|          STD    LF          CLEAR FLAG
00375  M00S00362.chd     +++|          LDC    BUF-1       SET BUFFER POINTER
00376  M00S00363.chd     +++|          STD    T6
00377  M00S00364.chd     +++| FNC2     LDN    5
00378  M00S00365.chd     +++|          RAD    T6          INCREMENT POINTER
00379  M00S00366.chd     +++|          LDI    T6          CHECK LIMIT
00380  M00S00367.chd     +++|          NJN    FNC3        IF NOT ZERO BYTE
00381  M00S00368.chd     +++|          STM    DLMC,T5     SET ZERO BYTE
00382  M00S00369.chd     +++|          LDD    T5
00383  M00S00370.chd     +++|          SBN    2*6
00384  M00S00371.chd     +++|          MJN    FNC5        IF ;6 LEVELS
00385  M00S00372.chd     +++|          UJN    FNC4
00386  M00S00373.chd     +++|
00387  M00S00374.chd     +++| FNC3     RJM    CDD         CONVERT TO DECIMAL DISPLAY CODE
00388  M00S00375.chd     +++|          STM    DLMC,T5     STORE
00389  M00S00376.chd     +++|          LDN    2           INCREMENT INDEX
00390  M00S00377.chd     +++|          RAD    T5
00391  M00S00378.chd     +++|          SBN    2*LLIM
00392  M00S00379.chd     +++|          NJN    FNC2        LOOP
00393  M00S00380.chd     +++|
00394  M00S00381.chd     +++| FNC4     LCN    0           SET FLAG
00395  M00S00382.chd     +++|          STD    LF
00396  M00S00383.chd     +++|
00397  M00S00384.chd     +++|*         READ RANK LABELS.
00398  M00S00385.chd     +++|
00399  M00S00386.chd     +++| FNC5     LDN    8D          SET NUMBER OF LABELS
00400  M00S00387.chd     +++|          STD    T1
00401  M00S00388.chd     +++|          LDD    A.SW        READ POINTER TO LABELS
00402  M00S00389.chd     +++|          SHN    14
00403  M00S00390.chd     +++|          ADD    A.SW+1
00404  M00S00391.chd     +++|          ADN    P.BD
00405  M00S00392.chd     +++|          CRD    CM
00406  M00S00393.chd     +++|          LCMA   CM+3        READ LABELS
00407  M00S00394.chd     +++|          RJM    ABS
00408  M00S00395.chd     +++|          CRM    BUF,T1
00409  M00S00396.chd     +++|          LDC    BUF+5*7     SET POINTER TO BUFFER
00410  M00S00397.chd     +++|          STD    T2
00411  M00S00398.chd     +++| FNC6     LDI    T2          LOAD NEXT LABEL
00412  M00S00399.chd     +++|          STM    DBDE-1,T1   STORE
00413  M00S00400.chd     +++|          LCN    5           DECREMENT POINTER
00414  M00S00401.chd     +++|          RAD    T2
00415  M00S00402.chd     +++|          SOD    T1          DECREMENT INDEX
00416  M00S00403.chd     +++|          NJN    FNC6        LOOP
00417  M00S00404.chd     +++|
00418  M00S00405.chd     +++|*         READ FILE LABELS.
00419  M00S00406.chd     +++|
00420  M00S00407.chd     +++|          LDD    A.SW        READ POINTER TO BOARD
00421  M00S00408.chd     +++|          SHN    14
00422  M00S00409.chd     +++|          ADD    A.SW+1
00423  M00S00410.chd     +++|          ADN    P.BD
00424  M00S00411.chd     +++|          CRD    CM
00425  M00S00412.chd     +++|          LCMA   CM+3        READ LABELS
00426  M00S00413.chd     +++|          ADN    8D
00427  M00S00414.chd     +++|          RJM    ABS
00428  M00S00415.chd     +++|          CRM    BUF,ON
00429  M00S00416.chd     +++|          LDC    BUF+4       SET POINTER TO LABELS
00430  M00S00417.chd     +++|          STD    CM
00431  M00S00418.chd     +++|          LDC    DBDD+12D    SET POINTER TO LABEL BUFFER
00432  M00S00419.chd     +++|          STD    CM+1
00433  M00S00420.chd     +++| FNC7     LDI    CM          UNPACK LABELS
00434  M00S00421.chd     +++|          LPN    77
00435  M00S00422.chd     +++|          STI    CM+1
00436  M00S00423.chd     +++|          SOD    CM+1
00437  M00S00424.chd     +++|          LDI    CM
00438  M00S00425.chd     +++|          SCN    77
00439  M00S00426.chd     +++|          STI    CM+1
00440  M00S00427.chd     +++|          LCN    2
00441  M00S00428.chd     +++|          RAD    CM+1
00442  M00S00429.chd     +++|          SOD    CM
00443  M00S00430.chd     +++|          LMC    BUF
00444  M00S00431.chd     +++|          NJN    FNC7        LOOP
00445  M00S00432.chd     +++|
00446  M00S00433.chd     +++|*         PROCESS FUNCTION CODE.
00447  M00S00434.chd     +++|
00448  M00S00435.chd     +++|          LDM    TFNC-1,YC   SET ADDRESS OF FUNCTION ROUTINE
00449  M00S00436.chd     +++|          STM    FNC8
00450  M00S00437.chd     +++|          RJM    **          EXECUTE
00451  M00S00438.chd     +++| FNC8     EQU    *-1
00452  M00S00439.chd     +++|          LJM    FNCX        RETURN
00453  M00S00440.chd     +++|
00454  M00S00441.chd     +++| FNCA     DATA   C*CHD - ILLEGAL FUNCTION CODE.*
00455  M00S00442.chd     +++| TFNC     SPACE  4
00456  M00S00443.chd     +++|**        TFNC - TABLE OF FUNCTION CODES.
00457  M00S00444.chd     +++|
00458  M00S00445.chd     +++|
00459  M00S00446.chd     +++| TFNC     INDEX  /2-1
00460  M00S00447.chd     +++|          INDEX  F.DUM,SB0
00461  M00S00448.chd     +++|          INDEX  F.AKL,AKL
00462  M00S00449.chd     +++|          INDEX  F.ERR,ERR
00463  M00S00450.chd     +++|          INDEX  F.FLA,SFF
00464  M00S00451.chd     +++|          INDEX  F.SET,SET
00465  M00S00452.chd     +++|          INDEX  F.STP,STP
00466  M00S00453.chd     +++|          INDEX  F.SCA,SCA
00467  M00S00454.chd     +++|          INDEX  F.SCB,SCB
00468  M00S00455.chd     +++|          INDEX  F.EPR,EPR
00469  M00S00456.chd     +++|          INDEX  F.EFL
00470  M00S00457.chd     +++| TFNCL    EQU    *-TFNC
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00471  M01S00004.v23l617 +++|
00472  M01S00005.v23l617 +++|          QUAL
00473  M01S00006.v23l617 +++| PFC      EQU    /FNC/FNC
00474  M00S00458.chd     +++| AKL      TITLE  FUNCTION CODE PROCESSING SUBROUTINES
00475  M00S00459.chd     +++|**        AKL- ACCEPT KEYIN.
Line S00009 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00009.ns22000 +++|*
00477  M00S00460.chd     +++|*         CALLS  SB0.
00478  M00S00461.chd     +++|
00479  M00S00462.chd     +++|
00480  M00S00463.chd     +++| AKL      SUBR               ENTRY/EXIT
00481  M00S00464.chd     +++|          LDD    KM
00482  M00S00465.chd     +++|          NJN    AKL1        IF MESSAGE SET
00483  M00S00466.chd     +++|          STD    CC          RESET CHARACTER COUNT
00484  M00S00467.chd     +++|          STD    WC          RESET WORD COUNT
00485  M00S00468.chd     +++| AKL1     RJM    SB0         SET COMPLETE
00486  M00S00469.chd     +++|          UJN    AKLX        RETURN
00487  M00S00470.chd     +++| ERR      SPACE  4
00488  M00S00471.chd     +++|**        ERR - ERROR IN KEYIN - SET ERROR FLAG.
Line S00010 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00489  M01S00010.ns22000 +++|*
00490  M00S00472.chd     +++|*         CALLS  ABS, SB0.
00491  M00S00473.chd     +++|
00492  M00S00474.chd     +++|
00493  M00S00475.chd     +++| ERR      SUBR               ENTRY/EXIT
00494  M00S00476.chd     +++|          LDD    A.SW
00495  M00S00477.chd     +++|          SHN    14
00496  M00S00478.chd     +++|          ADD    A.SW+1
00497  M00S00479.chd     +++|          ADN    P.EM
00498  M00S00480.chd     +++|          CRD    CM
00499  M00S00481.chd     +++|          LCMA   CM+3
00500  M00S00482.chd     +++|          RJM    ABS
00501  M00S00483.chd     +++|          CRM    ERRA,TR
00502  M00S00484.chd     +++|          LDC    ERRA        DISPLAY ERROR MESSAGE
00503  M00S00485.chd     +++|          STD    KM
00504  M00S00486.chd     +++|          RJM    SB0
00505  M00S00487.chd     +++|          UJN    ERRX        RETURN
00506  M00S00488.chd     +++|
00507  M00S00489.chd     +++| ERRA     BSSZ   3*5+1
00508  M00S00490.chd     +++| SFF      SPACE  4
00509  M00S00491.chd     +++|**        SFF - SET FLASH FLAG TO FLASH PIECE.
00510  M00S00492.chd     +++|
00511  M00S00493.chd     +++|
00512  M00S00494.chd     +++| SFF      SUBR               ENTRY/EXIT
00513  M00S00495.chd     +++|          LDN    0           STOP CLOCKS
00514  M00S00496.chd     +++|          STD    GC
00515  M00S00497.chd     +++|          LDN    1           SET FLAG
00516  M00S00498.chd     +++|          STM    PFPA
00517  M00S00499.chd     +++|          UJN    SFFX
00518  M00S00500.chd     +++| SET      SPACE  4
00519  M00S00501.chd     +++|**        SET - SET CLOCKS.
Line S00011 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00011.ns22000 +++|*
00521  M00S00502.chd     +++|*         CALLS  CTD, SB0.
00522  M00S00503.chd     +++|
00523  M00S00504.chd     +++|
00524  M00S00505.chd     +++| SET      SUBR               ENTRY/EXIT
00525  M00S00506.chd     +++|          LDD    SW
00526  M00S00507.chd     +++|          STM    CLKAO       SET OCTAL SECONDS
00527  M00S00508.chd     +++|          RJM    CTD
00528  M00S00509.chd     +++|          STM    UGCC        SET MINUTES
00529  M00S00510.chd     +++|          LDD    CM
00530  M00S00511.chd     +++|          STM    UGCD        SET DISPLAY SECONDS
00531  M00S00512.chd     +++|          LDD    SW+1        REPEAT FOR CLOCK B
00532  M00S00513.chd     +++|          STM    CLKBO
00533  M00S00514.chd     +++|          RJM    CTD
00534  M00S00515.chd     +++|          STM    UGCF
00535  M00S00516.chd     +++|          LDD    CM
00536  M00S00517.chd     +++|          STM    UGCG
00537  M00S00518.chd     +++|          LDN    0           CLEAR TIME UP FLAGS
00538  M00S00519.chd     +++|          STM    UGCB
00539  M00S00520.chd     +++|          STM    UGCE
00540  M00S00521.chd     +++|          STD    GC          STOP CLOCKS
00541  M00S00522.chd     +++|          RJM    SB0
00542  M00S00523.chd     +++|          UJN    SETX        RETURN
00543  M00S00524.chd     +++| STP      SPACE  4
00544  M00S00525.chd     +++|**        STP - STOP CLOCKS.
Line S00012 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00545  M01S00012.ns22000 +++|*
00546  M00S00526.chd     +++|*         CALLS  SB0.
00547  M00S00527.chd     +++|
00548  M00S00528.chd     +++|
00549  M00S00529.chd     +++| STP      SUBR               ENTRY/EXIT
00550  M00S00530.chd     +++|          LDN    0
00551  M00S00531.chd     +++|          STD    GC
00552  M00S00532.chd     +++|          RJM    SB0
00553  M00S00533.chd     +++|          UJN    STPX
00554  M00S00534.chd     +++| SCA      SPACE  4
00555  M00S00535.chd     +++|**        SCA - START CLOCK A.
Line S00013 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00013.ns22000 +++|*
00557  M00S00536.chd     +++|*         CALLS  SB0.
00558  M00S00537.chd     +++|
00559  M00S00538.chd     +++|
00560  M00S00539.chd     +++| SCA      SUBR               ENTRY/EXIT
00561  M00S00540.chd     +++|          LDM    CLKAO
00562  M00S00541.chd     +++|          ZJN    SCA1        IF TIME IS UP
00563  M00S00542.chd     +++|          LDN    1
00564  M00S00543.chd     +++|          STD    GC
00565  M00S00544.chd     +++| SCA1     RJM    SB0
00566  M00S00545.chd     +++|          UJN    SCAX
00567  M00S00546.chd     +++| SCB      SPACE  4
00568  M00S00547.chd     +++|**        SCB - START CLOCK B.
Line S00014 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00014.ns22000 +++|*
00570  M00S00548.chd     +++|*         CALLS  SB0.
00571  M00S00549.chd     +++|
00572  M00S00550.chd     +++|
00573  M00S00551.chd     +++| SCB      SUBR               ENTRY/EXIT
00574  M00S00552.chd     +++|          LDM    CLKBO
00575  M00S00553.chd     +++|          ZJN    SCB1        IF TIME IS UP
00576  M00S00554.chd     +++|          LDN    2
00577  M00S00555.chd     +++|          STD    GC
00578  M00S00556.chd     +++| SCB1     RJM    SB0
00579  M00S00557.chd     +++|          UJN    SCBX
00580  M00S00558.chd     +++| EPR      SPACE  4
00581  M00S00559.chd     +++|**        EPR - ENTER PRIORITY.
00582  M00S00560.chd     +++|
00583  M00S00561.chd     +++|
00584  M00S00562.chd     +++| EPR1     LDN    ZERL
00585  M00S00563.chd     +++|          CRD    CM
00586  M00S00564.chd     +++|          LDN    17
00587  M00S00565.chd     +++|          STD    CM+4
00588  M00S00566.chd     +++|          MONITOR  SJCM
00589  M00S00567.chd     +++| EPR2     RJM    SB0
00590  M00S00568.chd     +++|
00591  M00S00569.chd     +++| EPR      SUBR               ENTRY/EXIT
00592  M00S00570.chd     +++|          LDD    SW+3
00593  M00S00571.chd     +++|          NJN    EPR1
00594  M00S00572.chd     +++|          LDD    CP
00595  M00S00573.chd     +++|          ADN    JCIW
00596  M00S00574.chd     +++|          CRD    CM
00597  M00S00575.chd     +++|          LDD    CM
00598  M00S00576.chd     +++|          STD    SW+3
00599  M00S00577.chd     +++|          UJN    EPR2
00600  M00S00578.chd     +++| ABT      SPACE  4
00601  M00S00579.chd     +++|**        ABT - ABORT JOB.
00602  M00S00580.chd     +++|
00603  M00S00581.chd     +++|
00604  M00S00582.chd     +++| ABT      RJM    DDS
00605  M00S00583.chd     +++|          MONITOR ABTM
00606  M00S00584.chd     +++|          LJM    PPR
00607  M00S00585.chd     +++| DRP      SPACE  4
00608  M00S00586.chd     +++|**        DRP - DROP PP.
00609  M00S00587.chd     +++|
00610  M00S00588.chd     +++|
00611  M00S00589.chd     +++| DRP      RJM    DDS
00612  M00S00590.chd     +++| DPP      MONITOR DPPM
00613  M00S00591.chd     +++|          LJM    PPR
00614  M00S00592.chd     +++| SB0      SPACE  4
00615  M00S00593.chd     +++|**        SB0 - SET THE COMPLETE BIT IN THE STATUS WORD (BIT 0).
00616  M00S00594.chd     +++|
00617  M00S00595.chd     +++|
00618  M00S00596.chd     +++| SB0      SUBR               ENTRY/EXIT
00619  M00S00597.chd     +++|          LDD    SW+4
00620  M00S00598.chd     +++|          SCN    1
00621  M00S00599.chd     +++|          ADN    1
00622  M00S00600.chd     +++|          STD    SW+4
00623  M00S00601.chd     +++|          LDC    600D        STORE CURRENT GAME CLOCK READINGS
00624  M00S00602.chd     +++| CLKAO    EQU    *-1
00625  M00S00603.chd     +++|          STD    SW
00626  M00S00604.chd     +++|          LDC    600D
00627  M00S00605.chd     +++| CLKBO    EQU    *-1
00628  M00S00606.chd     +++|          STD    SW+1
00629  M00S00607.chd     +++|          LDD    A.SW        WRITE CM STATUS WORD
00630  M00S00608.chd     +++|          SHN    14
00631  M00S00609.chd     +++|          ADD    A.SW+1
00632  M00S00610.chd     +++|          CWD    SW
00633  M00S00611.chd     +++|          MONITOR RCLM       RECALL CENTRAL PROCESSOR
00634  M00S00612.chd     +++|          UJN    SB0X        RETURN
00635  M00S00613.chd     +++| RKE      TITLE  RKE - READ KEYBOARD ENTRY
00636  M00S00614.chd     +++|*CALL     COMPCHI
00637  M00S00615.chd     +++| RKE      SPACE  4
00638  M00S00616.chd     +++|**        RKE - READ KEYBOARD ENTRY.
Line S00015 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00639  M01S00015.ns22000 +++|*
00640  M00S00617.chd     +++|*         CALLS  DDS, RDS, HDC.
00641  M00S00618.chd     +++|
00642  M00S00619.chd     +++|
00643  M00S00620.chd     +++| RKE      SUBR               ENTRY/EXIT
00644  M00S00621.chd     +++| RKEA     FNC    7020,CH     SELECT KEYBOARD INPUT
00645  M00S00622.chd     +++|          ACN    CH
00646  M00S00623.chd     +++|          IAN    CH
00647  M00S00624.chd     +++|          DCN    CH
00648  M00S00625.chd     +++|          ZJN    RKE0.1      IF NO INPUT
00649  M00S00626.chd     +++|          LMC    0
00650  M00S00627.chd     +++| RKEC     EQU    *-1
00651  M00S00628.chd     +++|          ZJN    RKEX        IF SAME INPUT
00652  M00S00629.chd     +++|          LMM    RKEC        STORE NEW INPUT
00653  M00S00630.chd     +++| RKE0.1   STM    RKEC
00654  M00S00631.chd     +++|          ZJN    RKEX        RETURN IF NO CHARACTER
00655  M00S00632.chd     +++|          STD    CM          SAVE CHARACTER
00656  M00S00633.chd     +++|          LMN    60
00657  M00S00634.chd     +++|          NJN    RKE2        IF NOT CARRIAGE RETURN (60B)
00658  M00S00635.chd     +++|          LDD    WC
00659  M00S00636.chd     +++|          NJN    RKE1        IF NOT EMPTY CARRIAGE RETURN
00660  M00S00637.chd     +++|          LDC    RKEB        DISPLAY *REPEAT ENTRY.*
00661  M00S00638.chd     +++|          STD    KM
00662  M00S00639.chd     +++|          UJN    RKEX
00663  M00S00640.chd     +++|
00664  M00S00641.chd     +++| RKE1     LDN    1           SET CARRIAGE RETURN FLAG
00665  M00S00642.chd     +++|          STD    CR
00666  M00S00643.chd     +++|          UJN    RKEX        RETURN
00667  M00S00644.chd     +++|
00668  M00S00645.chd     +++| RKE2     LMN    1R &60
00669  M00S00646.chd     +++|          NJN    RKE3        IF NOT RIGHT BLANK (55B)
00670  M00S00647.chd     +++|          RJM    DDS         DROP DISPLAY
00671  M00S00648.chd     +++|          RJM    RDS         REQUEST DISPLAY
00672  M00S00649.chd     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
00673  M00S00650.chd     +++|          UJN    RKE4        RETURN
00674  M00S00651.chd     +++|
00675  M00S00652.chd     +++| RKE3     LMN    1R*&1R
00676  M00S00653.chd     +++|          NJN    RKE5        IF NOT (*)
00677  M00S00654.chd     +++|          LDD    CC
00678  M00S00655.chd     +++|          NJN    RKE5        IF NOT FIRST ENTRY
00679  M00S00656.chd     +++|          RJM    HDC         HOLD DISPLAY CHANNEL
00680  M00S00657.chd     +++| RKE4     LJM    RKEX        RETURN
00681  M00S00658.chd     +++|
00682  M00S00659.chd     +++| RKE5     LDD    CM
00683  M00S00660.chd     +++|          LMN    61
00684  M00S00661.chd     +++|          NJN    RKE7        IF NOT BACKSPACE (61B)
00685  M00S00662.chd     +++|          STD    CR          CLEAR CR FLAG
00686  M00S00663.chd     +++|          STD    WF          CLEAR WAITING FOR CP FLAG
00687  M00S00664.chd     +++|          STD    KM          CLEAR MESSAGE
00688  M00S00665.chd     +++|          LDD    CC
00689  M00S00666.chd     +++|          ZJN    RKE4        RETURN IF CHARACTER COUNT = 0
00690  M00S00667.chd     +++|          SHN    -1          FORM WORD COUNT
00691  M00S00668.chd     +++|          STD    WC
00692  M00S00669.chd     +++|          SOD    CC          DECREMENT CHARACTER COUNT
00693  M00S00670.chd     +++|          LPN    1           TEST SHIFT BIT
00694  M00S00671.chd     +++|          ZJN    RKE6
00695  M00S00672.chd     +++|          LDM    KBUF-1,WC   CLEAR LAST CHARACTER
00696  M00S00673.chd     +++|          SCN    77
00697  M00S00674.chd     +++|          STM    KBUF-1,WC
00698  M00S00675.chd     +++| RKE6     LJM    RKE13
00699  M00S00676.chd     +++|
00700  M00S00677.chd     +++| RKE7     LMN    53&61
00701  M00S00678.chd     +++|          NJN    RKE8        IF NOT LEFT BLANK (53B)
00702  M00S00679.chd     +++|          STD    CR          CLEAR CR FLAG
00703  M00S00680.chd     +++|          STD    WF          CLEAR WAITING FOR CP FLAG
00704  M00S00681.chd     +++|          STD    KM          CLEAR MESSAGE
00705  M00S00682.chd     +++|          STD    CC          ZERO CHARACTER AND WORD COUNT
00706  M00S00683.chd     +++|          STD    WC
00707  M00S00684.chd     +++|          LJM    RKEX        RETURN
00708  M00S00685.chd     +++|
00709  M00S00686.chd     +++| RKE8     LMN    62&53
00710  M00S00687.chd     +++|          NJN    RKE9        IF NOT SPACE (62B)
00711  M00S00688.chd     +++|          LDN    1R          CORRECT SPACE CODE
00712  M00S00689.chd     +++|          STD    CM
00713  M00S00690.chd     +++|          UJN    RKE10
00714  M00S00691.chd     +++|
00715  M00S00692.chd     +++| RKE9     LDD    CM
00716  M00S00693.chd     +++|          SBN    60
00717  M00S00694.chd     +++|          MJN    RKE10       IF LEGAL CHARACTER
00718  M00S00695.chd     +++|          LJM    RKEX        RETURN
00719  M00S00696.chd     +++|
00720  M00S00697.chd     +++| RKE10    LDD    CC
00721  M00S00698.chd     +++|          SBN    40D
00722  M00S00699.chd     +++|          PJN    RKE11       IF \ 40 CHARACTERS
00723  M00S00700.chd     +++|          AOD    CC          INCREMENT CHARACTER COUNT
00724  M00S00701.chd     +++| RKE11    LDD    CC          SET WORD COUNT
00725  M00S00702.chd     +++|          ADN    1
00726  M00S00703.chd     +++|          SHN    -1
00727  M00S00704.chd     +++|          STD    WC
00728  M00S00705.chd     +++|          LDD    CC
00729  M00S00706.chd     +++|          LPN    1
00730  M00S00707.chd     +++|          ZJN    RKE12       IF LOWER CHARACTER
00731  M00S00708.chd     +++|          LDD    CM          STORE UPPER CHARACTER
00732  M00S00709.chd     +++|          SHN    6
00733  M00S00710.chd     +++|          STM    KBUF-1,WC
00734  M00S00711.chd     +++|          UJN    RKE13
00735  M00S00712.chd     +++|
00736  M00S00713.chd     +++| RKE12    LDM    KBUF-1,WC   STORE LOWER CHARACTER
00737  M00S00714.chd     +++|          SCN    77
00738  M00S00715.chd     +++|          ADD    CM
00739  M00S00716.chd     +++|          STM    KBUF-1,WC
00740  M00S00717.chd     +++| RKE13    LDC    7001        PRESET 32 CHARACTERS/LINE
00741  M00S00718.chd     +++|          STM    DKEA
00742  M00S00719.chd     +++|          LDD    CC
00743  M00S00720.chd     +++|          SBN    31D
00744  M00S00721.chd     +++|          MJN    RKE14       IF < 30 CHARACTERS
00745  M00S00722.chd     +++|          SOM    DKEA        SET 64 CHARACTERS/LINE
00746  M00S00723.chd     +++| RKE14    LJM    RKEX        RETURN
00747  M00S00724.chd     +++|
00748  M00S00725.chd     +++| RKEB     DATA   C*REPEAT ENTRY.*
00749  M00S00726.chd     +++| DKE      TITLE  DKE - DISPLAY KEYBOARD ENTRY
00750  M00S00727.chd     +++|**        DKE - DISPLAY KEYBOARD ENTRY.
Line S00016 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00016.ns22000 +++|*
00752  M00S00728.chd     +++|*         USES   T7.
00753  M00S00729.chd     +++|
00754  M00S00730.chd     +++|
00755  M00S00731.chd     +++| DKE      SUBR               ENTRY/EXIT
00756  M00S00732.chd     +++|          LDD    WC
00757  M00S00733.chd     +++|          ZJN    DKEX        RETURN IF NO ENTRY
00758  M00S00734.chd     +++|          LDC    7001        SELECT LEFT SCREEN
00759  M00S00735.chd     +++| DKEA     EQU    *-1         SIZE FUNCTION CODE
00760  M00S00736.chd     +++|          FAN    CH
00761  M00S00737.chd     +++|          ACN    CH
00762  M00S00738.chd     +++|          LDD    WC          DISPLAY ENTRY
00763  M00S00739.chd     +++|          ADN    2
00764  M00S00740.chd     +++|          STD    T7
00765  M00S00741.chd     +++|          OAM    DKEB,CH
00766  M00S00742.chd     +++|          DUP    3
00767  M00S00743.chd     +++|          LDD    T7
00768  M00S00744.chd     +++|          OAM    DKEB,CH
00769  M00S00745.chd     +++|          ENDD
00770  M00S00746.chd     +++|          DCN    CH
00771  M00S00747.chd     +++|          LJM    DKEX        RETURN
00772  M00S00748.chd     +++|
00773  M00S00749.chd     +++| DKEB     DATA   6002,7002
00774  M00S00750.chd     +++| KBUF     BSSZ   21D
00775  M00S00751.chd     +++| DBD      TITLE  LEFT SCREEN DISPLAYS
00776  M00S00752.chd     +++|**        DBD - DISPLAY CHESS BOARD.
Line S00017 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00017.ns22000 +++|*
00778  M00S00753.chd     +++|*         USES   T5 - T7.
Line S00018 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00018.ns22000 +++|*
00780  M00S00754.chd     +++|*         CALLS  DHL.
00781  M00S00755.chd     +++|
00782  M00S00756.chd     +++|
00783  M00S00757.chd     +++| DBD      SUBR               ENTRY/EXIT
00784  M00S00758.chd     +++|          FNC    7001,CH     SELECT LEFT SCREEN, 32 CHARACTERS/LINE
00785  M00S00759.chd     +++|          ACN    CH
00786  M00S00760.chd     +++|          LDC    YBRD        SET Y-COORDINATE
00787  M00S00761.chd     +++|          STD    T7
00788  M00S00762.chd     +++|          LDN    4           SET INDEX
00789  M00S00763.chd     +++|          STD    T5
00790  M00S00764.chd     +++| DBD1     LDD    T7          OUTPUT Y-COORDINATE
00791  M00S00765.chd     +++|          OAN    CH
00792  M00S00766.chd     +++|          RJM    DHL         DISPLAY A HORIZONTAL LINE
00793  M00S00767.chd     +++|          LDN    5           INITIALIZE INDEX
00794  M00S00768.chd     +++|          STD    T6
00795  M00S00769.chd     +++| DBD2     LDN    10          ADVANCE Y-COORDINATE
00796  M00S00770.chd     +++|          RAD    T7
00797  M00S00771.chd     +++|          OAN    CH
00798  M00S00772.chd     +++|          LDC    XBRD-4      OUTPUT X-COORDINATE
00799  M00S00773.chd     +++|          OAN    CH
00800  M00S00774.chd     +++|          LDN    DBDBL
00801  M00S00775.chd     +++|          OAM    DBDB,CH
00802  M00S00776.chd     +++|          SOD    T6          ADVANCE INDEX
00803  M00S00777.chd     +++|          NJN    DBD2        LOOP
00804  M00S00778.chd     +++|          LDN    10          ADVANCE Y-COORDINATE
00805  M00S00779.chd     +++|          RAD    T7
00806  M00S00780.chd     +++|          OAN    CH
00807  M00S00781.chd     +++|          LDC    XBRD-4
00808  M00S00782.chd     +++|          OAN    CH
00809  M00S00783.chd     +++|          LDN    DBDAL
00810  M00S00784.chd     +++|          OAM    DBDA,CH
00811  M00S00785.chd     +++|          LDD    T7          OUTPUT Y-COORDINATE
00812  M00S00786.chd     +++|          OAN    CH
00813  M00S00787.chd     +++|          RJM    DHL         DISPLAY A HORIZONTAL LINE
00814  M00S00788.chd     +++|          LDN    5           SET INDEX
00815  M00S00789.chd     +++|          STD    T6
00816  M00S00790.chd     +++| DBD3     LDN    10          ADVANCE Y-COORDINATE
00817  M00S00791.chd     +++|          RAD    T7
00818  M00S00792.chd     +++|          OAN    CH
00819  M00S00793.chd     +++|          LDC    XBRD-4      OUTPUT X-COORDINATE
00820  M00S00794.chd     +++|          OAN    CH
00821  M00S00795.chd     +++|          LDN    DBDCL
00822  M00S00796.chd     +++|          OAM    DBDC,CH
00823  M00S00797.chd     +++|          SOD    T6          ADVANCE INDEX
00824  M00S00798.chd     +++|          NJN    DBD3        LOOP IF NOT DONE
00825  M00S00799.chd     +++|          SOD    T5
00826  M00S00800.chd     +++|          ZJN    DBD4        IF 8 RANKS DISPLAYED
00827  M00S00801.chd     +++|          LDN    10          ADVANCE Y-COORDINATE
00828  M00S00802.chd     +++|          RAD    T7
00829  M00S00803.chd     +++|          OAN    CH
00830  M00S00804.chd     +++|          LDC    XBRD-4      OUTPUT X-COORDINATE
00831  M00S00805.chd     +++|          OAN    CH
00832  M00S00806.chd     +++|          LDN    DBDAL
00833  M00S00807.chd     +++|          OAM    DBDA,CH
00834  M00S00808.chd     +++|          LJM    DBD1        LOOP
00835  M00S00809.chd     +++|
00836  M00S00810.chd     +++| DBD4     LDN    10          ADVANCE Y-COORDINATE
00837  M00S00811.chd     +++|          RAD    T7
00838  M00S00812.chd     +++|          OAN    CH
00839  M00S00813.chd     +++|          RJM    DHL         DISPLAY TOP HORIZONTAL LINE
00840  M00S00814.chd     +++|
00841  M00S00815.chd     +++|*         DISPLAY FILE LABELS.
00842  M00S00816.chd     +++|
00843  M00S00817.chd     +++|          LDN    DBDDL
00844  M00S00818.chd     +++|          OAM    DBDD,CH
00845  M00S00819.chd     +++|
00846  M00S00820.chd     +++|*         DISPLAY RANK LABELS.
00847  M00S00821.chd     +++|
00848  M00S00822.chd     +++|          LDC    YBRD+550    SET STARTING Y-COORDINATE
00849  M00S00823.chd     +++|          STD    T7
00850  M00S00824.chd     +++|          LDN    0           INITIALIZE INDEX
00851  M00S00825.chd     +++|          STD    T6
00852  M00S00826.chd     +++| DBD5     LDC    XBRD-20     STARTING X-COORDINATE
00853  M00S00827.chd     +++|          OAN    CH
00854  M00S00828.chd     +++|          LDD    T7          OUTPUT Y-COORDINATE
00855  M00S00829.chd     +++|          OAN    CH
00856  M00S00830.chd     +++|          LDM    DBDE,T6     DISPLAY NEXT LABEL
00857  M00S00831.chd     +++|          OAN    CH
00858  M00S00832.chd     +++|          LCN    60          ADVANCE Y-COORDINATE
00859  M00S00833.chd     +++|          RAD    T7
00860  M00S00834.chd     +++|          AOD    T6          ADVANCE INDEX
00861  M00S00835.chd     +++|          LMN    8D
00862  M00S00836.chd     +++|          NJN    DBD5        LOOP FOR 8 LABELS
00863  M00S00837.chd     +++|          DCN    CH
00864  M00S00838.chd     +++|          LJM    DBDX
00865  M00S00839.chd     +++|
00866  M00S00840.chd     +++| DBDA     DATA   H*I  I  I  I  I  I  I  I  I*
00867  M00S00841.chd     +++| DBDAL    EQU    *-DBDA
00868  M00S00842.chd     +++| DBDB     DATA   H*I  I//I  I//I  I//I  I//I*
00869  M00S00843.chd     +++| DBDBL    EQU    *-DBDB
00870  M00S00844.chd     +++| DBDC     DATA   H*I//I  I//I  I//I  I//I  I*
00871  M00S00845.chd     +++| DBDCL    EQU    *-DBDC
00872  M00S00846.chd     +++| DBDD     CON    XBRD+24
00873  M00S00847.chd     +++|          CON    YBRD-20
00874  M00S00848.chd     +++|          BSSZ   11D         FILE LABEL BUFFER
00875  M00S00849.chd     +++| DBDDL    EQU    *-DBDD
00876  M00S00850.chd     +++| DBDE     BSSZ   8D
00877  M00S00851.chd     +++| DHL      SPACE  4
00878  M00S00852.chd     +++|**        DHL - DISPLAY A HORIZONTAL LINE.
00879  M00S00853.chd     +++|
00880  M00S00854.chd     +++|
00881  M00S00855.chd     +++| DHL      SUBR               ENTRY/EXIT
00882  M00S00856.chd     +++|          LDC    XBRD        DISPLAY LINE
00883  M00S00857.chd     +++|          OAN    CH
00884  M00S00858.chd     +++|          LDN    DHLAL
00885  M00S00859.chd     +++|          OAM    DHLA,CH
00886  M00S00860.chd     +++|          LDC    XBRD+10     DISPLAY SHIFTED LINE
00887  M00S00861.chd     +++|          OAN    CH
00888  M00S00862.chd     +++|          LDN    DHLAL
00889  M00S00863.chd     +++|          OAM    DHLA,CH
00890  M00S00864.chd     +++|          UJN    DHLX        RETURN
00891  M00S00865.chd     +++|
00892  M00S00866.chd     +++| DHLA     DATA   H*------------------------*
00893  M00S00867.chd     +++| DHLAL    EQU    *-DHLA
00894  M00S00868.chd     +++| DPC      SPACE  4
00895  M00S00869.chd     +++|**        DPC - DISPLAY PIECES.
Line S00019 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00896  M01S00019.ns22000 +++|*
00897  M00S00870.chd     +++|*         USES   T6, T7, OT - OT+1.
Line S00020 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00898  M01S00020.ns22000 +++|*
00899  M00S00871.chd     +++|*         CALLS  ABS.
00900  M00S00872.chd     +++|
00901  M00S00873.chd     +++|
00902  M00S00874.chd     +++| DPC      SUBR               ENTRY/EXIT
00903  M00S00875.chd     +++|          LDD    LM          COMPUTE BUFFER LENGTH
00904  M00S00876.chd     +++|          SBD    FT
00905  M00S00877.chd     +++|          SHN    14
00906  M00S00878.chd     +++|          ADD    LM+1
00907  M00S00879.chd     +++|          SBD    FT+1
00908  M00S00880.chd     +++|          MJN    DPCX        RETURN IF NEGATIVE
00909  M00S00881.chd     +++|          ZJN    DPCX        RETURN IF ZERO
00910  M00S00882.chd     +++|          STD    T7          SAVE BUFFER LENGTH
00911  M00S00883.chd     +++|          LDC    BUFL        SET BUFFER LENGTH
00912  M00S00884.chd     +++|          STD    T6
00913  M00S00885.chd     +++|          LCMA   FT          SET STARTING ADDRESS
00914  M00S00886.chd     +++|          RJM    ABS
00915  M00S00887.chd     +++|          SCMA   OT
00916  M00S00888.chd     +++|          LCMA   LM          CHECK BUFFER LIMIT
00917  M00S00889.chd     +++|          RJM    ABS
00918  M00S00890.chd     +++|          FNC    7010,CH     SELECT LEFT SCREEN, DOT MODE
00919  M00S00891.chd     +++|          ACN    CH
00920  M00S00892.chd     +++| DPC1     LDC    -BUFL
00921  M00S00893.chd     +++|          RAD    T7
00922  M00S00894.chd     +++|          MJN    DPC2        IF NOT A FULL PP BUFFER
00923  M00S00895.chd     +++|          LCMA   OT          FILL PP BUFFER
00924  M00S00896.chd     +++|          CRM    BUF,T6      FILL PP BUFFER
00925  M00S00897.chd     +++|          SCMA   OT          SET NEXT STARTING ADDRESS
00926  M00S00898.chd     +++|          LDC    BUFL*5      DISPLAY
00927  M00S00899.chd     +++|          OAM    BUF,CH
00928  M00S00900.chd     +++|          UJN    DPC1        LOOP
00929  M00S00901.chd     +++|
00930  M00S00902.chd     +++| DPC2     ADC    BUFL        COMPUTE WORDS LEFT
00931  M00S00903.chd     +++|          ZJN    DPC3        RETURN IF ZERO
00932  M00S00904.chd     +++|          STD    T6
00933  M00S00905.chd     +++|          LCMA   OT          LOAD PP BUFFER
00934  M00S00906.chd     +++|          CRM    BUF,T6
00935  M00S00907.chd     +++|          LDD    T6          DISPLAY
00936  M00S00908.chd     +++|          SHN    2
00937  M00S00909.chd     +++|          ADD    T6
00938  M00S00910.chd     +++|          OAM    BUF,CH
00939  M00S00911.chd     +++| DPC3     DCN    CH
00940  M00S00912.chd     +++|          LJM    DPCX
00941  M00S00913.chd     +++| DOE      SPACE  4
00942  M00S00914.chd     +++|**        DOE - DISPLAY OUTPUT AND ERROR MESSAGES.
Line S00021 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00943  M01S00021.ns22000 +++|*
00944  M00S00915.chd     +++|*         CALLS  DPM.
00945  M00S00916.chd     +++|
00946  M00S00917.chd     +++|
00947  M00S00918.chd     +++| DOE1     DCN    CH
00948  M00S00919.chd     +++|
00949  M00S00920.chd     +++| DOE      SUBR               ENTRY/EXIT
00950  M00S00921.chd     +++|          FNC    7001,CH     SELECT LEFT SCREEN, 32 CHARACTERS/LINE
00951  M00S00922.chd     +++|          ACN    CH
00952  M00S00923.chd     +++|          DUP    3
00953  M00S00924.chd     +++|          LDC    DOEA
00954  M00S00925.chd     +++|          RJM    DPM
00955  M00S00926.chd     +++|          ENDD
00956  M00S00927.chd     +++|          LDD    KM
00957  M00S00928.chd     +++|          ZJN    DOE1        EXIT IF NO MESSAGE
00958  M00S00929.chd     +++|          DUP    3
00959  M00S00930.chd     +++|          LDC    6000
00960  M00S00931.chd     +++|          OAN    CH
00961  M00S00932.chd     +++|          LDC    7024
00962  M00S00933.chd     +++|          OAN    CH
00963  M00S00934.chd     +++|          LDD    KM
00964  M00S00935.chd     +++|          RJM    DPM
00965  M00S00936.chd     +++|          ENDD
00966  M00S00937.chd     +++|          LJM    DOE1        RETURN
00967  M00S00938.chd     +++|
00968  M00S00939.chd     +++| DOEA     DATA   6000,7050
00969  M00S00940.chd     +++| DOEB     BSSZ   16D
00970  M00S00941.chd     +++| DLM      TITLE  RIGHT SCREEN DISPLAYS
00971  M00S00942.chd     +++|**        DLM - DISPLAY LIMITS AND CURRENT TREE POSITION.
Line S00022 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00972  M01S00022.ns22000 +++|*
00973  M00S00943.chd     +++|*         USES   T6, T7.
Line S00023 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00974  M01S00023.ns22000 +++|*
00975  M00S00944.chd     +++|*         CALLS  DPM, ABS, CDD.
00976  M00S00945.chd     +++|
00977  M00S00946.chd     +++|
00978  M00S00947.chd     +++| DLM      SUBR               ENTRY/EXIT
00979  M00S00948.chd     +++|          FNC    7101,CH     SELECT RIGHT SCREEN, 32 CHARACTERS/LINE
00980  M00S00949.chd     +++|          ACN    CH
00981  M00S00950.chd     +++|          LDC    XLIM        OUTPUT INITIAL COORDINATES
00982  M00S00951.chd     +++|          OAN    CH
00983  M00S00952.chd     +++|          LDC    YLIM
00984  M00S00953.chd     +++|          OAN    CH
00985  M00S00954.chd     +++|          LDD    LF
00986  M00S00955.chd     +++|          NJN    DLM1        IF LIMIT FLAG SET
00987  M00S00956.chd     +++|          LDN    DLMAL       DISPLAY *LIMITS-*
00988  M00S00957.chd     +++|          OAM    DLMA,CH
00989  M00S00958.chd     +++| DLM1     LDC    DLMC        DISPLAY LIMITS
00990  M00S00959.chd     +++|          RJM    DPM
00991  M00S00960.chd     +++|          LDN    LLIM        SET WORD COUNT
00992  M00S00961.chd     +++|          STD    T6
00993  M00S00962.chd     +++|          LCMA   A.TR        READ LIMITS
00994  M00S00963.chd     +++|          RJM    ABS
00995  M00S00964.chd     +++|          CRM    BUF,T6
00996  M00S00965.chd     +++|          LDC    BUF-1       SET POINTER
00997  M00S00966.chd     +++|          STD    T6
00998  M00S00967.chd     +++|          LDN    LLIM        SET COUNTER
00999  M00S00968.chd     +++|          STD    T7          INITIALIZE INDEX
01000  M00S00969.chd     +++|          LDC    YLIM-20     OUTPUT STARTING COORDINATES
01001  M00S00970.chd     +++|          OAN    CH
01002  M00S00971.chd     +++|          LDC    XLIM
01003  M00S00972.chd     +++|          OAN    CH
01004  M00S00973.chd     +++|          LDD    LF
01005  M00S00974.chd     +++|          NJN    DLM3        IF LIMIT FLAG SET
01006  M00S00975.chd     +++|          LDN    DLMBL       DISPLAY *NOW AT-*
01007  M00S00976.chd     +++|          OAM    DLMB,CH
01008  M00S00977.chd     +++|          UJN    DLM3
01009  M00S00978.chd     +++|
01010  M00S00979.chd     +++| DLM2     LDN    0           DISPLAY *  *
01011  M00S00980.chd     +++|          OAN    CH
01012  M00S00981.chd     +++| DLM3     LDN    5           ADVANCE POINTER
01013  M00S00982.chd     +++|          RAD    T6
01014  M00S00983.chd     +++|          LDI    T6          LOAD LIMIT
01015  M00S00984.chd     +++|          ZJN    DLM4        EXIT ON ZERO BYTE
01016  M00S00985.chd     +++|          RJM    CDD         CONVERT TO DISPLAY CODE
01017  M00S00986.chd     +++|          OAN    CH          DISPLAY
01018  M00S00987.chd     +++|          SOD    T7          DECREMENT COUNTER
01019  M00S00988.chd     +++|          NJN    DLM2        LOOP
01020  M00S00989.chd     +++| DLM4     DCN    CH
01021  M00S00990.chd     +++|          LJM    DLMX        RETURN
01022  M00S00991.chd     +++|
01023  M00S00992.chd     +++| DLMA     DATA   C*LIMITS-*
01024  M00S00993.chd     +++| DLMAL    EQU    *-DLMA
01025  M00S00994.chd     +++| DLMB     DATA   C*NOW AT-*
01026  M00S00995.chd     +++| DLMBL    EQU    *-DLMB
01027  M00S00996.chd     +++| DLMC     DIS    2*LLIM-1,
01028  M00S00997.chd     +++|          DATA   0
01029  M00S00998.chd     +++| DGC      SPACE  4
01030  M00S00999.chd     +++|**        DGC - DISPLAY GAME CLOCKS.
01031  M00S01000.chd     +++|
01032  M00S01001.chd     +++|
01033  M00S01002.chd     +++| DGC      SUBR               ENTRY/EXIT
01034  M00S01003.chd     +++|          FNC    7102,CH     SELECT RIGHT SCREEN, 16 CHARACTERS/LINE
01035  M00S01004.chd     +++|          ACN    CH
01036  M00S01005.chd     +++|          DUP    4,2
01037  M00S01006.chd     +++|          LDN    UGCAL
01038  M00S01007.chd     +++|          OAM    UGCA,CH
01039  M00S01008.chd     +++|          DCN    CH
01040  M00S01009.chd     +++|          UJN    DGCX
01041  M00S01010.chd     +++| DOS      SPACE  4
01042  M00S01011.chd     +++|**        DOS - DISPLAY OPTIONS AND GAME SCORE.
Line S00024 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01043  M01S00024.ns22000 +++|*
01044  M00S01012.chd     +++|*         USES   T5 - T7.
Line S00025 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00025.ns22000 +++|*
01046  M00S01013.chd     +++|*         CALLS  ABS.
01047  M00S01014.chd     +++|
01048  M00S01015.chd     +++|
01049  M00S01016.chd     +++| DOS      SUBR               ENTRY/EXIT
01050  M00S01017.chd     +++|          FNC    7101,CH     SELECT RIGHT SCREEN, 32 CHARACTERS/LINE
01051  M00S01018.chd     +++|          ACN    CH
01052  M00S01019.chd     +++|          LDN    DOSCL       DISPLAY *OPTIONS *
01053  M00S01020.chd     +++|          OAM    DOSC,CH
01054  M00S01021.chd     +++|          LDN    DOSDL       DISPLAY PLAYER NAMES
01055  M00S01022.chd     +++|          OAM    DOSD,CH
01056  M00S01023.chd     +++|          DCN    CH
01057  M00S01024.chd     +++|          FNC    7100,CH     SELECT RIGHT SCREEN, 64 CHARACTERS/LINE
01058  M00S01025.chd     +++|          ACN    CH
01059  M00S01026.chd     +++|          LDN    LOPT        SET CM WORD COUNT
01060  M00S01027.chd     +++|          STD    T6
01061  M00S01028.chd     +++|          LCMA   A.OP        READ OPTION LIST
01062  M00S01029.chd     +++|          RJM    ABS
01063  M00S01030.chd     +++|          CRM    BUF,T6
01064  M00S01031.chd     +++|          LDC    YOPT        OUTPUT Y-COORDINATE
01065  M00S01032.chd     +++|          STD    T7
01066  M00S01033.chd     +++|          OAN    CH
01067  M00S01034.chd     +++|          LDC    BUF
01068  M00S01035.chd     +++|          STM    DOSA        SET POINTER TO OPTION LIST
01069  M00S01036.chd     +++|          STM    DOSB        SET POINTER TO SCORE
01070  M00S01037.chd     +++| DOS1     LDC    XOPT+240    OUTPUT X-COORDINATE
01071  M00S01038.chd     +++|          OAN    CH
01072  M00S01039.chd     +++| DOS2     LDN    5           DISPLAY ONE CM WORD
01073  M00S01040.chd     +++|          OAM    **,CH
01074  M00S01041.chd     +++| DOSA     EQU    *-1
01075  M00S01042.chd     +++|          OAN    CH          DISPLAY *  *
01076  M00S01043.chd     +++|          LDN    5           ADVANCE POINTER
01077  M00S01044.chd     +++|          RAM    DOSA
01078  M00S01045.chd     +++|          SOD    T6          DECREMENT WORD COUNT
01079  M00S01046.chd     +++|          ZJN    DOS3        IF DONE
01080  M00S01047.chd     +++|          LMN    3           IF THREE WORDS COMPLETE
01081  M00S01048.chd     +++|          NJN    DOS2        LOOP FOR THREE WORDS
01082  M00S01049.chd     +++|          LCN    12          ADVANCE Y-COORDINATE
01083  M00S01050.chd     +++|          RAD    T7
01084  M00S01051.chd     +++|          OAN    CH
01085  M00S01052.chd     +++|          UJN    DOS1        LOOP FOR NEXT LINE
01086  M00S01053.chd     +++|
01087  M00S01054.chd     +++|*         DISPLAY GAME SCORE.
01088  M00S01055.chd     +++|
01089  M00S01056.chd     +++| DOS3     LDC    LSCR        SET CM WORD COUNT
01090  M00S01057.chd     +++|          STD    T6
01091  M00S01058.chd     +++|          SHN    -1          SET INDEX
01092  M00S01059.chd     +++|          STD    T5
01093  M00S01060.chd     +++|          LCMA   A.GS        READ GAME SCORE BUFFER
01094  M00S01061.chd     +++|          RJM    ABS
01095  M00S01062.chd     +++|          CRM    BUF,T6
01096  M00S01063.chd     +++|          LDC    YSCR        OUTPUT Y-COORDINATE
01097  M00S01064.chd     +++|          STD    T7
01098  M00S01065.chd     +++|          OAN    CH
01099  M00S01066.chd     +++| DOS4     LDC    XSCR        OUTPUT X-COORDINATE
01100  M00S01067.chd     +++|          OAN    CH
01101  M00S01068.chd     +++| DOS5     LDN    2*5         DISPLAY TWO CM WORDS
01102  M00S01069.chd     +++|          OAM    **,CH
01103  M00S01070.chd     +++| DOSB     EQU    *-1
01104  M00S01071.chd     +++|          LDC    XSCR+300    ADVANCE X-COORDINATE
01105  M00S01072.chd     +++|          OAN    CH
01106  M00S01073.chd     +++|          LDN    2*5         ADVANCE POINTER
01107  M00S01074.chd     +++|          RAM    DOSB
01108  M00S01075.chd     +++|          SOD    T5          ADVANCE INDEX
01109  M00S01076.chd     +++|          ZJN    DOS6        IF DONE
01110  M00S01077.chd     +++|          LPN    1
01111  M00S01078.chd     +++|          NJN    DOS5        LOOP FOR NEXT WORD
01112  M00S01079.chd     +++|          LCN    12          ADVANCE Y-COORDINATE
01113  M00S01080.chd     +++|          RAD    T7
01114  M00S01081.chd     +++|          OAN    CH
01115  M00S01082.chd     +++|          UJN    DOS4        LOOP FOR NEXT LINE
01116  M00S01083.chd     +++|
01117  M00S01084.chd     +++| DOS6     DCN    CH
01118  M00S01085.chd     +++|          LJM    DOSX
01119  M00S01086.chd     +++|
01120  M00S01087.chd     +++| DOSC     CON    XOPT        X-COORDINATE
01121  M00S01088.chd     +++|          CON    YOPT-10     Y-COORDINATE
01122  M00S01089.chd     +++|          DATA   C*OPTIONS *
01123  M00S01090.chd     +++| DOSCL    EQU    *-DOSC
01124  M00S01091.chd     +++|
01125  M00S01092.chd     +++| DOSD     CON    YNAM
01126  M00S01093.chd     +++|          CON    XNAM
01127  M00S01094.chd     +++| DOSE     BSSZ   5
01128  M00S01095.chd     +++|          CON    XNAM+310
01129  M00S01096.chd     +++| DOSF     BSSZ   5
01130  M00S01097.chd     +++| DOSDL    EQU    *-DOSD
01131  M00S01098.chd     +++| SYSDIS   SPACE  4
01132  M00S01099.chd     +++|**        DSS    - DISPLAY SYSTEM STATUS.
Line S00026 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00026.ns22000 +++|*
01134  M00S01100.chd     +++|*         CALLS  SYS.
01135  M00S01101.chd     +++|
01136  M00S01102.chd     +++|
01137  M00S01103.chd     +++| DSS      SUBR               ENTRY/EXIT
01138  M00S01104.chd     +++|          LDC    6000        SET X-COORDINATE
01139  M00S01105.chd     +++|          STD    XC
01140  M00S01106.chd     +++|          RJM    SYS
Line S00007 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00007.v23l617 +++|          DCN    CH+40
01142  M00S01107.chd     +++|          UJN    DSSX
01143  M00S01108.chd     +++| DPM      TITLE  DISPLAY SUBROUTINES
01144  M00S01109.chd     +++|**        DPM - DISPLAY PERIPHERAL MEMORY.
Line S00027 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01145  M01S00027.ns22000 +++|*
01146  M00S01110.chd     +++|*         ENTRY  (A) = FWA OF DISPLAY DATA.
Line S00028 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01147  M01S00028.ns22000 +++|*
01148  M00S01111.chd     +++|*         USES   T0.
01149  M00S01112.chd     +++|
01150  M00S01113.chd     +++|
01151  M00S01114.chd     +++| DPM      SUBR               ENTRY/EXIT
01152  M00S01115.chd     +++|          STD    T0          SET START ADDRESS
01153  M00S01116.chd     +++| DPM1     LDI    T0
01154  M00S01117.chd     +++|          ZJN    DPMX        IF ZERO BYTE
01155  M00S01118.chd     +++|          OAN    CH
01156  M00S01119.chd     +++|          AOD    T0          ADVANCE POINTER
01157  M00S01120.chd     +++|          UJN    DPM1
01158  M00S01121.chd     +++| MDC      SPACE  4
01159  M00S01122.chd     +++|**        MDC - MODIFY CHANNEL INSTRUCTIONS.
Line S00029 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01160  M01S00029.ns22000 +++|*
01161  M00S01123.chd     +++|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED.
Line S00030 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01162  M01S00030.ns22000 +++|*
01163  M00S01124.chd     +++|*         USES   T1, T2, T3.
01164  M00S01125.chd     +++|
01165  M00S01126.chd     +++|
01166  M00S01127.chd     +++| MDC      SUBR               ENTRY/EXIT
01167  M00S01128.chd     +++|          LDM    /COMDDSP/DDSB  CHECK ASSIGNED CHANNEL
01168  M00S01129.chd     +++|          STD    T3
01169  M00S01130.chd     +++|          CHTE   *
01170  M00S01131.chd     +++|          LMN    CH
01171  M00S01132.chd     +++|          ZJN    MDCX        IF CHANNELS MODIFIED
01172  M00S01133.chd     +++|          LDC    TCHS        MODIFY CHANNELS
01173  M00S01134.chd     +++|          STD    T1
01174  M00S01135.chd     +++| MDC1     LDI    T1
01175  M00S01136.chd     +++|          ZJN    MDC2        IF CHANNEL TABLE MODIFICATION COMPLETE
01176  M00S01137.chd     +++|          STD    T2
01177  M00S01138.chd     +++|          LDI    T2
01178  M00S01139.chd     +++|          SCN    77
01179  M00S01140.chd     +++|          ADD    T3
01180  M00S01141.chd     +++|          STI    T2
01181  M00S01142.chd     +++|          AOD    T1
01182  M00S01143.chd     +++|          UJN    MDC1        LOOP
01183  M00S01144.chd     +++| MDC2     LDC    MDCA        SET 1ST ADDRESS FOR BLIND MODIFICATION
01184  M00S01145.chd     +++|          STD    T1
01185  M00S01146.chd     +++| MDC3     AOD    T1          ADVANCE ADDRESS
01186  M00S01147.chd     +++|          LMC    MDCB
01187  M00S01148.chd     +++|          ZJN    MDCX        RETURN IF COMPLETE
01188  M00S01149.chd     +++|          LDI    T1          CHECK WORD
01189  M00S01150.chd     +++|          LPC    7077
01190  M00S01151.chd     +++|          LMC    7000+CH
01191  M00S01152.chd     +++|          NJN    MDC3        IF NOT 7XCH
01192  M00S01153.chd     +++|          LDI    T1          MODIFY CHANNEL
01193  M00S01154.chd     +++|          SCN    77
01194  M00S01155.chd     +++|          ADD    T3
01195  M00S01156.chd     +++|          STI    T1
01196  M00S01157.chd     +++|          UJN    MDC3
01197  M00S01158.chd     +++| TCHS     SPACE  4
01198  M00S01159.chd     +++|**        TCHS - TABLE OF CHANNEL INSTRUCTIONS.
01199  M00S01160.chd     +++|
01200  M00S01161.chd     +++|
01201  M00S01162.chd     +++| TCHS     CHTB
01202  M00S01163.chd     +++|
01203  M00S01164.chd     +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
01204  M00S01165.chd     +++|          SPACE  4
01205  M00S01166.chd     +++|**        COMMON DECKS.
Line S00031 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01206  M01S00031.ns22000 +++|*
01207  M00S01167.chd     +++|
01208  M00S01168.chd     +++| MDCA     BSS    0           FIRST ADDRESS FOR BLIND CHANNEL MOD
01209  M00S01169.chd     +++|
01210  M00S01170.chd     +++|*CALL     COMDSYS
01211  M00S01171.chd     +++|*CALL     COMDDSP
01212  M00S01172.chd     +++|
01213  M00S01173.chd     +++| MDCB     BSS    0           LIMIT ADDRESS FOR BLIND CHANNEL MOD
01214  M00S01174.chd     +++| PFP      TITLE  PROCESS FLASHING PIECE
01215  M00S01175.chd     +++|**        PFP - PROCESS FLASHING PIECE.
Line S00032 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01216  M01S00032.ns22000 +++|*
01217  M00S01176.chd     +++|*         CALLS  SB0.
01218  M00S01177.chd     +++|
01219  M00S01178.chd     +++|
01220  M00S01179.chd     +++| PFPD     BSSZ   2           POINTER BUFFER
01221  M00S01180.chd     +++|
01222  M00S01181.chd     +++| PFP      SUBR               ENTRY/EXIT
01223  M00S01182.chd     +++|          LDC    **
01224  M00S01183.chd     +++| PFPA     EQU    *-1         FLASH STATUS FLAG
01225  M00S01184.chd     +++|          ZJN    PFPX
01226  M00S01185.chd     +++|          SOM    PFPB        DECREMENT CYCLE COUNT
01227  M00S01186.chd     +++|          NJN    PFPX
01228  M00S01187.chd     +++|          LDN    CPF
01229  M00S01188.chd     +++|          STM    PFPB        RESET CYCLE COUNT
01230  M00S01189.chd     +++|          SOM    PFPC        DECREMENT FLASH COUNT
01231  M00S01190.chd     +++|          MJN    PFP2        IF FINISHED
01232  M00S01191.chd     +++|          LPN    1           TOGGLE ON OR OFF
01233  M00S01192.chd     +++|          NJN    PFP1
01234  M00S01193.chd     +++|          TCMA   PFPD,LM     SWITCH ON
01235  M00S01194.chd     +++|          UJN    PFPX        RETURN
01236  M00S01195.chd     +++|
01237  M00S01196.chd     +++| PFP1     TCMA   LM,PFPD     SWITCH OFF
01238  M00S01197.chd     +++|          TCMA   SW+2,LM
01239  M00S01198.chd     +++|          LJM    PFPX        RETURN
01240  M00S01199.chd     +++|
01241  M00S01200.chd     +++| PFP2     LDN    FPM/2*2     RESET FLASHES/MOVE
01242  M00S01201.chd     +++|          STM    PFPC
01243  M00S01202.chd     +++|          LDN    0
01244  M00S01203.chd     +++|          STM    PFPA        CLEAR FLASH STATUS FLAG
01245  M00S01204.chd     +++|          RJM    SB0
01246  M00S01205.chd     +++|          LJM    PFPX        RETURN
01247  M00S01206.chd     +++|
01248  M00S01207.chd     +++| PFPB     CON    CPF         CYCLES/FLASH
01249  M00S01208.chd     +++| PFPC     CON    FPM/2*2     FLASHES /MOVE
01250  M00S01209.chd     +++| SKE      TITLE  SKE - STORE KEYBOARD ENTRY IN CM
01251  M00S01210.chd     +++|**        SKE - STORE KEYBOARD BUFFER.
Line S00033 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01252  M01S00033.ns22000 +++|*
01253  M00S01211.chd     +++|*         EXIT   KEYBOARD BUFFER STORED IN CM WITH ZERO BYTE
01254  M00S01212.chd     +++|*                APPENDED.
Line S00034 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01255  M01S00034.ns22000 +++|*
01256  M00S01213.chd     +++|*         USES   T7, CM - CM+4.
Line S00035 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01257  M01S00035.ns22000 +++|*
01258  M00S01214.chd     +++|*         CALLS  ABS, SB0.
01259  M00S01215.chd     +++|
01260  M00S01216.chd     +++|
01261  M00S01217.chd     +++| SKE      SUBR               ENTRY/EXIT
01262  M00S01218.chd     +++|          LDD    CR          CHECK CARRIAGE RETURN FLAG
01263  M00S01219.chd     +++|          ZJN    SKEX        RETURN IF NOT SET
01264  M00S01220.chd     +++|          LDD    SW+4
01265  M00S01221.chd     +++|          ZJN    SKE1        IF CP READY TO READ
01266  M00S01222.chd     +++|          LDD    WF          CHECK WAITING FOR CP FLAG
01267  M00S01223.chd     +++|          NJN    SKEX        IF PREVIOUSLY SET
01268  M00S01224.chd     +++|          LDN    1           SET FLAG
01269  M00S01225.chd     +++|          STD    WF
01270  M00S01226.chd     +++|          LDD    KM          SAVE CURRENT MESSAGE
01271  M00S01227.chd     +++|          STM    SKEA
01272  M00S01228.chd     +++|          LDC    SKEB        DISPLAY *WAITING - CP BUSY.*
01273  M00S01229.chd     +++|          STD    KM
01274  M00S01230.chd     +++|          UJN    SKEX
01275  M00S01231.chd     +++|
01276  M00S01232.chd     +++| SKE1     STM    KBUF,WC     SET ZERO BYTE
01277  M00S01233.chd     +++|          STD    CR          CLEAR CR FLAG
01278  M00S01234.chd     +++|          STD    WF          CLEAR WAITING FLAG
01279  M00S01235.chd     +++|          LDD    KM
01280  M00S01236.chd     +++|          LMC    SKEB
01281  M00S01237.chd     +++|          NJN    SKE2        IF WAITING MESSAGE STILL UP
01282  M00S01238.chd     +++|          LDC    **
01283  M00S01239.chd     +++| SKEA     EQU    *-1         PREVIOUS MESSAGE ADDRESS
01284  M00S01240.chd     +++|          STD    KM
01285  M00S01241.chd     +++| SKE2     LDN    4           SET CONSTANT 4
01286  M00S01242.chd     +++|          STD    T7
01287  M00S01243.chd     +++|          LDD    A.SW        READ INPUT MESSAGE BUFFER
01288  M00S01244.chd     +++|          SHN    14
01289  M00S01245.chd     +++|          ADD    A.SW+1
01290  M00S01246.chd     +++|          ADN    P.IM
01291  M00S01247.chd     +++|          CRD    CM
01292  M00S01248.chd     +++|          LCMA   CM+3        WRITE BUFFER
01293  M00S01249.chd     +++|          RJM    ABS
01294  M00S01250.chd     +++|          CWM    KBUF,T7
01295  M00S01251.chd     +++|          RJM    SB0
01296  M00S01252.chd     +++|          LJM    SKEX        RETURN
01297  M00S01253.chd     +++|
01298  M00S01254.chd     +++| SKEB     DATA   C*WAITING - CP BUSY.*
01299  M00S01255.chd     +++| UGC      TITLE  GAME CLOCKS
01300  M00S01256.chd     +++|**        UGC - UPDATE GAME CLOCKS.
01301  M00S01257.chd     +++|
01302  M00S01258.chd     +++|
01303  M00S01259.chd     +++| UGC      SUBR               ENTRY/EXIT
01304  M00S01260.chd     +++|          LDD    GC
01305  M00S01261.chd     +++|          ZJN    UGCX        RETURN IF CLOCKS STOPPED
01306  M00S01262.chd     +++|          LDC    RTCL        READ REAL TIME CLOCK
01307  M00S01263.chd     +++|          CRD    CM
01308  M00S01264.chd     +++|          LDD    CM+1
01309  M00S01265.chd     +++|          SBD    SC          COMPARE CLOCKS
01310  M00S01266.chd     +++|          ZJN    UGCX        RETURN IF SAME
01311  M00S01267.chd     +++|          RAD    SC          RESET SECOND CLOCK
01312  M00S01268.chd     +++|          LDD    GC          CHECK GAME CLOCKS
01313  M00S01269.chd     +++|          SCN    1
01314  M00S01270.chd     +++|          NJN    UGC3        IF CLOCK B
01315  M00S01271.chd     +++|          SOM    CLKAO       DECREMENT BY 1 SECOND
01316  M00S01272.chd     +++|          NJN    UGC2        IF NON-ZERO
01317  M00S01273.chd     +++| UGC1     RJM    TUP
01318  M00S01274.chd     +++|          UJN    UGCX        RETURN
01319  M00S01275.chd     +++|
01320  M00S01276.chd     +++| UGC2     RJM    CTD         CONVERT SECONDS TO DISPLAY CODE
01321  M00S01277.chd     +++|          STM    UGCC        STORE MINUTES
01322  M00S01278.chd     +++|          LDD    CM
01323  M00S01279.chd     +++|          STM    UGCD        STORE SECONDS
01324  M00S01280.chd     +++|          LJM    UGCX        RETURN
01325  M00S01281.chd     +++|
01326  M00S01282.chd     +++| UGC3     SOM    CLKBO       DECREMENT BY ONE SECOND
01327  M00S01283.chd     +++|          ZJN    UGC1        IF TIME IS UP
01328  M00S01284.chd     +++|          RJM    CTD         CONVERT SECONDS TO DISPLAY CODE
01329  M00S01285.chd     +++|          STM    UGCF        STORE MINUTES
01330  M00S01286.chd     +++|          LDD    CM
01331  M00S01287.chd     +++|          STM    UGCG        STORE SECONDS
01332  M00S01288.chd     +++|          LJM    UGCX        RETURN
01333  M00S01289.chd     +++|
01334  M00S01290.chd     +++| UGCA     CON    XCLK
01335  M00S01291.chd     +++|          CON    YCLK
01336  M00S01292.chd     +++| UGCB     CON    0
01337  M00S01293.chd     +++| UGCC     CON    2R10
01338  M00S01294.chd     +++|          CON    XCLK+204
01339  M00S01295.chd     +++| UGCD     CON    2R00
01340  M00S01296.chd     +++| UGCE     CON    0
01341  M00S01297.chd     +++| UGCF     CON    2R10
01342  M00S01298.chd     +++|          CON    XCLK+510
01343  M00S01299.chd     +++| UGCG     CON    2R00
01344  M00S01300.chd     +++|          CON    YCLK+5
01345  M00S01301.chd     +++|          CON    XCLK+176
01346  M00S01302.chd     +++|          CON    2R.
01347  M00S01303.chd     +++|          CON    XCLK+502
01348  M00S01304.chd     +++|          CON    2R.
01349  M00S01305.chd     +++|          CON    YCLK+20
01350  M00S01306.chd     +++|          CON    XCLK+176
01351  M00S01307.chd     +++|          CON    2R.
01352  M00S01308.chd     +++|          CON    XCLK+502
01353  M00S01309.chd     +++|          CON    2R.
01354  M00S01310.chd     +++| UGCAL    EQU    *-UGCA
01355  M00S01311.chd     +++| TUP      SPACE  4
01356  M00S01312.chd     +++|**        TUP - TIME IS UP FOR A PLAYER.
01357  M00S01313.chd     +++|
01358  M00S01314.chd     +++|
01359  M00S01315.chd     +++| TUP      SUBR               ENTRY/EXIT
01360  M00S01316.chd     +++|          LDN    0           CLEAR STATUS
01361  M00S01317.chd     +++|          CRD    SW
01362  M00S01318.chd     +++|          LDN    0           CLEAR OUTPUT MESSAGE
01363  M00S01319.chd     +++|          STM    DOEB
01364  M00S01320.chd     +++|          LDD    A.SW        CLEAR INPUT MESSAGE
01365  M00S01321.chd     +++|          SHN    14
01366  M00S01322.chd     +++|          ADD    A.SW+1
01367  M00S01323.chd     +++|          ADN    P.IM
01368  M00S01324.chd     +++|          CRD    CM
01369  M00S01325.chd     +++|          LCMA   CM+3
01370  M00S01326.chd     +++|          RJM    ABS
01371  M00S01327.chd     +++|          CWD    SW
01372  M00S01328.chd     +++|          LDD    GC          CHECK GAME CLOCKS
01373  M00S01329.chd     +++|          SCN    1
01374  M00S01330.chd     +++|          NJN    TUP1        IF CLOCK B
01375  M00S01331.chd     +++|          LDC    2R
01376  M00S01332.chd     +++|          STM    UGCB        FLAG CLOCK A
01377  M00S01333.chd     +++|          LDC    2R00        SET SECONDS TO ZERO
01378  M00S01334.chd     +++|          STM    UGCD
01379  M00S01335.chd     +++|          UJN    TUP2
01380  M00S01336.chd     +++|
01381  M00S01337.chd     +++| TUP1     LDC    2R
01382  M00S01338.chd     +++|          STM    UGCE        FLAG CLOCK B
01383  M00S01339.chd     +++|          LDC    2R00        SET SECONDS TO ZERO
01384  M00S01340.chd     +++|          STM    UGCG
01385  M00S01341.chd     +++| TUP2     RJM    AKL         SET COMPLETE BIT AND CLEAR MESSAGES
01386  M00S01342.chd     +++|          LDN    0           STOP CLOCKS
01387  M00S01343.chd     +++|          STD    GC
01388  M00S01344.chd     +++|          LJM    TUPX        RETURN
01389  M00S01345.chd     +++| ABS      TITLE  CONVERSION  ROUTINES
01390  M00S01346.chd     +++|**        ABS - CONVERT RELATIVE ADDRESS TO ABSOLUTE.
Line S00036 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01391  M01S00036.ns22000 +++|*
01392  M00S01347.chd     +++|*         ENTRY  (A) = RELATIVE ADDRESS.
Line S00037 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01393  M01S00037.ns22000 +++|*
01394  M00S01348.chd     +++|*         EXIT   (A) = ABSOLUTE ADDRESS IF IN RANGE.
01395  M00S01349.chd     +++|*                ABORT IF ADDRESS OUT OF RANGE.
01396  M00S01350.chd     +++|
01397  M00S01351.chd     +++|
01398  M00S01352.chd     +++| ABS1     SHN    14
01399  M00S01353.chd     +++|          ADD    FL
01400  M00S01354.chd     +++|          ADD    RA
01401  M00S01355.chd     +++|          SHN    6
01402  M00S01356.chd     +++|
01403  M00S01357.chd     +++| ABS      SUBR               ENTRY/EXIT
01404  M00S01358.chd     +++|          SHN    14
01405  M00S01359.chd     +++|          SBD    FL
01406  M00S01360.chd     +++|          SHN    6
01407  M00S01361.chd     +++|          MJN    ABS1        IF IN RANGE
01408  M00S01362.chd     +++|          LDC    ABSA+CPON   MESSAGE = *POINTER OUT OF RANGE.*
01409  M00S01363.chd     +++|          RJM    DFM
01410  M00S01364.chd     +++|          LJM    ABT         ABORT JOB
01411  M00S01365.chd     +++|
01412  M00S01366.chd     +++| ABSA     DATA   C*CHD - POINTER OUT OF RANGE.*
01413  M00S01367.chd     +++| CDD      SPACE  4
01414  M00S01368.chd     +++|**        CDD - CONVERT OCTAL TO DISPLAY CODED DECIMAL.
Line S00038 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01415  M01S00038.ns22000 +++|*
01416  M00S01369.chd     +++|*         ENTRY  (A) = OCTAL NUMBER TO BE CONVERTED.
Line S00039 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01417  M01S00039.ns22000 +++|*
01418  M00S01370.chd     +++|*         EXIT   (A) = NUMBER IN DISPLAY CODED DECIMAL.
Line S00040 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01419  M01S00040.ns22000 +++|*
01420  M00S01371.chd     +++|*         USES   T0, T1.
01421  M00S01372.chd     +++|
01422  M00S01373.chd     +++|
01423  M00S01374.chd     +++| CDD2     ADN    10D+1R0     CONVERT TO DISPLAY CODE
01424  M00S01375.chd     +++|          SHN    14
01425  M00S01376.chd     +++|          ADD    T1
01426  M00S01377.chd     +++|          SHN    6
01427  M00S01378.chd     +++|
01428  M00S01379.chd     +++| CDD      SUBR               ENTRY/EXIT
01429  M00S01380.chd     +++|          STD    T0          STORE THE NUMBER
01430  M00S01381.chd     +++|          LDN    1R0         INITIALIZE TENS COUNTER
01431  M00S01382.chd     +++|          STD    T1
01432  M00S01383.chd     +++| CDD1     LCN    10D         COUNT TENS
01433  M00S01384.chd     +++|          RAD    T0
01434  M00S01385.chd     +++|          MJN    CDD2        IF UNDERFLOW
01435  M00S01386.chd     +++|          AOD    T1          ADVANCE TENS COUNT
01436  M00S01387.chd     +++|          UJN    CDD1        LOOP
01437  M00S01388.chd     +++| CTD      SPACE  4
01438  M00S01389.chd     +++|*         CTD - CONVERT TIME TO DISPLAY CODED MINUTES AND SECONDS.
Line S00041 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01439  M01S00041.ns22000 +++|*
01440  M00S01390.chd     +++|*         ENTRY  (A) = TIME IN OCTAL SECONDS.
Line S00042 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01441  M01S00042.ns22000 +++|*
01442  M00S01391.chd     +++|*         EXIT   (A) = MINUTES IN DISPLAY CODED DECIMAL.
01443  M00S01392.chd     +++|*                (CM) = SECONDS IN DISPLAY CODED DECIMAL.
Line S00043 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01444  M01S00043.ns22000 +++|*
01445  M00S01393.chd     +++|*         USES   T2, T3.
Line S00044 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01446  M01S00044.ns22000 +++|*
01447  M00S01394.chd     +++|*         CALLS  CDD.
01448  M00S01395.chd     +++|
01449  M00S01396.chd     +++|
01450  M00S01397.chd     +++| CTD2     ADN    60D         FORM REMAINDER (SECONDS)
01451  M00S01398.chd     +++|          RJM    CDD         CONVERT TO DISPLAY CODE
01452  M00S01399.chd     +++|          STD    CM          STORE
01453  M00S01400.chd     +++|          LDD    T3
01454  M00S01401.chd     +++|          RJM    CDD         CONVERT MINUTES TO DISPLAY CODE
01455  M00S01402.chd     +++|          STD    T3          SUPPRESS LEADING ZERO
01456  M00S01403.chd     +++|          SHN    -6
01457  M00S01404.chd     +++|          SBN    1R0
01458  M00S01405.chd     +++|          NJN    CTD3
01459  M00S01406.chd     +++|          LDD    T3
01460  M00S01407.chd     +++|          LPN    77
01461  M00S01408.chd     +++|          STD    T3
01462  M00S01409.chd     +++| CTD3     LDD    T3
01463  M00S01410.chd     +++|
01464  M00S01411.chd     +++| CTD      SUBR               ENTRY/EXIT
01465  M00S01412.chd     +++|          STD    T2
01466  M00S01413.chd     +++|          LDN    0           INITIALIZE
01467  M00S01414.chd     +++|          STD    T3
01468  M00S01415.chd     +++| CTD1     LCN    60D         COUNT MINUTES
01469  M00S01416.chd     +++|          RAD    T2
01470  M00S01417.chd     +++|          MJN    CTD2        IF UNDERFLOW
01471  M00S01418.chd     +++|          AOD    T3          ADVANCE MINUTE COUNT
01472  M00S01419.chd     +++|          UJN    CTD1        LOOP
01473  M00S01420.chd     +++|          SPACE  4,10
01474  M00S01421.chd     +++| DIS      HERE               *COMDSYS* *DISPLA* EXPANSION
01475  M00S01422.chd     +++|          SPACE  4,10
01476  M00S01423.chd     +++| BUF      EQU    *
01477  M00S01424.chd     +++| L        SET    7777-BUF
01478  M00S01425.chd     +++| BUFL     EQU    L/5         LENGTH OF PIECE DISPLAY BUFFER (CM WDS)
01479  M00S01426.chd     +++| PRS      TITLE  PRS - PRESET DRIVER
01480  M00S01427.chd     +++|**        PRS - PRESET. (WILL BE OVERLAID)
01481  M00S01428.chd     +++|*
01482  M00S01429.chd     +++|*         EXIT   (NC) = NUMBER OF CP-S.
01483  M00S01430.chd     +++|
01484  M00S01431.chd     +++|
01485  M00S01432.chd     +++| PRS      SUBR               ENTRY/EXIT
Line S01433 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01486  M01S01433.v23l617 ---|          RJM    CUA         CHECK USER ACCESS
01487  M01S01434.v23l617 ---|          ZJN    PRS1        IF ACCESS ALLOWED
01488  M01S01435.v23l617 ---|          LDC    PRSA        DAYFILE MESSAGE = *ILLEGAL CONTROL CARD.*
01489  M01S01436.v23l617 ---|          RJM    DFM
01490  M01S01437.v23l617 ---|          LJM    ABT
01491  M01S01438.v23l617 ---| PRS1     LDN    0           INITIALIZE DIRECT LOCATIONS
01492  M01S01439.v23l617 ---|          STD    WC
Line S00008 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01493  M01S00008.v23l617 +++|          CATD               CHECK ACCESS TO DISPLAY CONSOLE
01494  M01S00009.v23l617 +++|*         LDN    0
01495  M01S00010.v23l617 +++|          STD    WC          INITIALIZE DIRECT CELLS
01496  M00S01440.chd     +++|          STD    CC
01497  M00S01441.chd     +++|          STD    CR
01498  M00S01442.chd     +++|          STD    GC
01499  M00S01443.chd     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01500  M00S01444.chd     +++|          LDC    RTCL        SET REAL TIME CLOCK
01501  M00S01445.chd     +++|          CRD    CM
01502  M00S01446.chd     +++|          LDD    CM+1        SET SECOND CLOCK
01503  M00S01447.chd     +++|          STD    SC
01504  M00S01448.chd     +++|          RJM    PAUSE
01505  M00S01449.chd     +++|          LDN    CMUR        CLEAR CMU OPTION AVAILABLE BIT
01506  M00S01450.chd     +++|          RJM    ABS
01507  M00S01451.chd     +++|          CRD    CM
01508  M00S01452.chd     +++|          LDD    CM
01509  M00S01453.chd     +++|          LPC    3777
01510  M00S01454.chd     +++|          STD    CM
01511  M00S01455.chd     +++|          LDN    CMUR
01512  M00S01456.chd     +++|          RJM    ABS
01513  M00S01457.chd     +++|          CWD    CM
01514  M00S01458.chd     +++|          LDC    PAUSE4      SET RETURN FROM HOLD ON A ROLLOUT FLAG
01515  M00S01459.chd     +++|          STM    /COMDDSP/ROFA
01516  M00S01460.chd     +++|          LCMA   IR+3        STATUS POINTER
01517  M00S01461.chd     +++|          NJN    PRS2        IF NON ZERO
01518  M00S01462.chd     +++|          LJM    ABT         ABORT JOB
01519  M00S01463.chd     +++|
01520  M00S01464.chd     +++| PRS2     LDD    A.SW        READ PIECE DISPLAY BUFFER POINTERS
01521  M00S01465.chd     +++|          SHN    14
01522  M00S01466.chd     +++|          ADD    A.SW+1
01523  M00S01467.chd     +++|          ADN    P.PD
01524  M00S01468.chd     +++|          CRD    CN
01525  M00S01469.chd     +++|          TCMA   CN+1,FT
01526  M00S01470.chd     +++|          TCMA   CN+3,LM
01527  M00S01471.chd     +++|          LCMA   FT
01528  M00S01472.chd     +++|          RJM    ABS
01529  M00S01473.chd     +++|          LCMA   LM
01530  M00S01474.chd     +++|          RJM    ABS
01531  M00S01475.chd     +++|          LDD    A.SW        LOAD OTHER POINTERS
01532  M00S01476.chd     +++|          SHN    14
01533  M00S01477.chd     +++|          ADD    A.SW+1
01534  M00S01478.chd     +++|          ADN    P.TR
01535  M00S01479.chd     +++|          CRD    CN
01536  M00S01480.chd     +++|          ADN    P.OP-P.TR
01537  M00S01481.chd     +++|          CRD    CM
01538  M00S01482.chd     +++|          ADN    P.GS-P.OP
01539  M00S01483.chd     +++|          CRD    T6
01540  M00S01484.chd     +++|          ADN    P.NM-P.GS
01541  M00S01485.chd     +++|          CRD    T4
01542  M00S01486.chd     +++|          LCMA   T7
01543  M00S01487.chd     +++|          RJM    ABS
01544  M00S01488.chd     +++|          CRM    DOSE,ON     READ PLAYER NAMES
01545  M00S01489.chd     +++|          CRM    DOSF,ON
01546  M00S01490.chd     +++|          TCMA   CN+3,A.TR
01547  M00S01491.chd     +++|          TCMA   CM+3,A.OP
01548  M00S01492.chd     +++|          TCMA   CM+1,A.GS
01549  M00S01493.chd     +++|          LDD    IR+2
01550  M00S01494.chd     +++|          ADC    -7777
01551  M00S01495.chd     +++|          ZJN    PRS3        IF RECALLED
01552  M00S01496.chd     +++|          LCN    0           SET RECALL PARAMETER
01553  M00S01497.chd     +++|          STD    IR+2
01554  M00S01498.chd     +++|          MONITOR DCPM       DROP CPU
01555  M00S01499.chd     +++|          LDN    0           CLEAR (RA+1)
01556  M00S01500.chd     +++|          CRD    CM
01557  M00S01501.chd     +++|          LDD    RA
01558  M00S01502.chd     +++|          SHN    6
01559  M00S01503.chd     +++|          ADN    1
01560  M00S01504.chd     +++|          CWD    CM
01561  M00S01505.chd     +++|          RJM    SB0
01562  M00S01506.chd     +++|          MONITOR RCPM       REQUEST CPU
01563  M00S01507.chd     +++|          RJM    RDS         REQUEST DISPLAY
01564  M00S01508.chd     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
01565  M00S01509.chd     +++|          LJM    PRSX        RETURN
01566  M00S01510.chd     +++|
01567  M00S01511.chd     +++| PRS3     LDD    A.SW        RESET CLOCKS
01568  M00S01512.chd     +++|          SHN    14
01569  M00S01513.chd     +++|          ADD    A.SW+1
01570  M00S01514.chd     +++|          ADN    P.RO
01571  M00S01515.chd     +++|          CRD    CM
01572  M00S01516.chd     +++|          LDD    CM
01573  M00S01517.chd     +++|          STM    CLKAO
01574  M00S01518.chd     +++|          RJM    CTD
01575  M00S01519.chd     +++|          STM    UGCC
01576  M00S01520.chd     +++|          LDD    CM
01577  M00S01521.chd     +++|          STM    UGCD
01578  M00S01522.chd     +++|          LDD    CM+1
01579  M00S01523.chd     +++|          STM    CLKBO
01580  M00S01524.chd     +++|          RJM    CTD
01581  M00S01525.chd     +++|          STM    UGCF
01582  M00S01526.chd     +++|          LDD    CM
01583  M00S01527.chd     +++|          STM    UGCG
01584  M00S01528.chd     +++|          LDD    CM+2
01585  M00S01529.chd     +++|          STD    GC
01586  M00S01530.chd     +++|          LDD    CM+3
01587  M00S01531.chd     +++|          STM    UGCB
01588  M00S01532.chd     +++|          LDD    CM+4
01589  M00S01533.chd     +++|          STM    UGCE
01590  M00S01534.chd     +++|
01591  M00S01535.chd     +++|*         READ OUTPUT MESSAGE.
01592  M00S01536.chd     +++|
01593  M00S01537.chd     +++|          LDD    A.SW        READ POINTER
01594  M00S01538.chd     +++|          SHN    14
01595  M00S01539.chd     +++|          ADD    A.SW+1
01596  M00S01540.chd     +++|          ADN    P.OM
01597  M00S01541.chd     +++|          CRD    CM
01598  M00S01542.chd     +++|          LCMA   CM+3
01599  M00S01543.chd     +++|          RJM    ABS
01600  M00S01544.chd     +++|          CRM    DOEB,TR
01601  M00S01545.chd     +++|
01602  M00S01546.chd     +++|*         READ LIMITS.
01603  M00S01547.chd     +++|
01604  M00S01548.chd     +++|          LDN    LLIM        SET WORD COUNT
01605  M00S01549.chd     +++|          STD    T1
01606  M00S01550.chd     +++|          LDD    A.SW        READ POINTER
01607  M00S01551.chd     +++|          SHN    14
01608  M00S01552.chd     +++|          ADD    A.SW+1
01609  M00S01553.chd     +++|          ADN    P.LM
01610  M00S01554.chd     +++|          CRD    CM
01611  M00S01555.chd     +++|          LCMA   CM+3        READ LIMITS
01612  M00S01556.chd     +++|          RJM    ABS
01613  M00S01557.chd     +++|          CRM    PRSA,T1
01614  M00S01558.chd     +++|          LDN    0
01615  M00S01559.chd     +++|          STD    T5          SET INDEX
01616  M00S01560.chd     +++|          STD    LF          CLEAR FLAG
01617  M00S01561.chd     +++|          LDC    PRSA-1      SET POINTER
01618  M00S01562.chd     +++|          STD    T6
01619  M00S01563.chd     +++| PRS4     LDN    5           ADVANCE POINTER
01620  M00S01564.chd     +++|          RAD    T6
01621  M00S01565.chd     +++|          LDI    T6          LOAD NEXT LIMIT
01622  M00S01566.chd     +++|          NJN    PRS5        IF NOT ZERO BYTE
01623  M00S01567.chd     +++|          STM    DLMC,T5     SET ZERO BYTE
01624  M00S01568.chd     +++|          LDD    T5
01625  M00S01569.chd     +++|          SBN    2*6
01626  M00S01570.chd     +++|          MJN    PRS7        IF ;6 LEVELS
01627  M00S01571.chd     +++|          UJN    PRS6
01628  M00S01572.chd     +++|
01629  M00S01573.chd     +++| PRS5     RJM    CDD         CONVERT TO DISPLAY CODE
01630  M00S01574.chd     +++|          STM    DLMC,T5
01631  M00S01575.chd     +++|          LDN    2           ADVANCE INDEX
01632  M00S01576.chd     +++|          RAD    T5
01633  M00S01577.chd     +++|          SBN    2*LLIM
01634  M00S01578.chd     +++|          NJN    PRS4        LOOP
01635  M00S01579.chd     +++| PRS6     LCN    0           SET FLAG
01636  M00S01580.chd     +++|          STD    LF
01637  M00S01581.chd     +++|
01638  M00S01582.chd     +++|*         READ RANK LABELS.
01639  M00S01583.chd     +++|
01640  M00S01584.chd     +++| PRS7     LDN    8D          SET LABEL COUNT
01641  M00S01585.chd     +++|          STD    T1
01642  M00S01586.chd     +++|          LDD    A.SW        READ POINTER TO BOARD
01643  M00S01587.chd     +++|          SHN    14
01644  M00S01588.chd     +++|          ADD    A.SW+1
01645  M00S01589.chd     +++|          ADN    P.BD
01646  M00S01590.chd     +++|          CRD    CM
01647  M00S01591.chd     +++|          LCMA   CM+3        READ LABELS
01648  M00S01592.chd     +++|          RJM    ABS
01649  M00S01593.chd     +++|          CRM    PRSA,T1
01650  M00S01594.chd     +++|          LDC    PRSA+5*7    SET POINTER TO BUFFER
01651  M00S01595.chd     +++|          STD    T2
01652  M00S01596.chd     +++| PRS8     LDI    T2          LOAD NEXT LABEL
01653  M00S01597.chd     +++|          STM    DBDE-1,T1   STORE
01654  M00S01598.chd     +++|          LCN    5           DECREMENT POINTER
01655  M00S01599.chd     +++|          RAD    T2
01656  M00S01600.chd     +++|          SOD    T1          DECREMENT INDEX
01657  M00S01601.chd     +++|          NJN    PRS8        LOOP
01658  M00S01602.chd     +++|
01659  M00S01603.chd     +++|*         READ FILE LABELS.
01660  M00S01604.chd     +++|
01661  M00S01605.chd     +++|          LDD    A.SW        READ POINTER TO BOARD
01662  M00S01606.chd     +++|          SHN    14
01663  M00S01607.chd     +++|          ADD    A.SW+1
01664  M00S01608.chd     +++|          ADN    P.BD
01665  M00S01609.chd     +++|          CRD    CM
01666  M00S01610.chd     +++|          LCMA   CM+3        READ LABELS
01667  M00S01611.chd     +++|          ADN    8D
01668  M00S01612.chd     +++|          RJM    ABS
01669  M00S01613.chd     +++|          CRM    PRSA,ON
01670  M00S01614.chd     +++|          LDC    PRSA+4      SET POINTER TO LABELS
01671  M00S01615.chd     +++|          STD    CM
01672  M00S01616.chd     +++|          LDC    DBDD+12D    SET POINTER TO LABEL BUFFER
01673  M00S01617.chd     +++|          STD    CM+1
01674  M00S01618.chd     +++| PRS9     LDI    CM          UNPACK LABELS
01675  M00S01619.chd     +++|          LPN    77
01676  M00S01620.chd     +++|          STI    CM+1
01677  M00S01621.chd     +++|          SOD    CM+1
01678  M00S01622.chd     +++|          LDI    CM
01679  M00S01623.chd     +++|          SCN    77
01680  M00S01624.chd     +++|          STI    CM+1
01681  M00S01625.chd     +++|          LCN    2
01682  M00S01626.chd     +++|          RAD    CM+1
01683  M00S01627.chd     +++|          SOD    CM
01684  M00S01628.chd     +++|          LMC    PRSA
01685  M00S01629.chd     +++|          NJN    PRS9        LOOP
01686  M00S01630.chd     +++|          RJM    RDS         REQUEST DISPLAY
01687  M00S01631.chd     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
01688  M00S01632.chd     +++|          LDN    NCPL        SAVE NUMBER OF CP-S
01689  M00S01633.chd     +++|          CRD    CM
01690  M00S01634.chd     +++|          AOD    CM+1
01691  M00S01635.chd     +++|          STD    NC
01692  M00S01636.chd     +++|          LJM    PRSX        RETURN
01693  M00S01637.chd     +++|
Line S01638 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01694  M01S01638.v23l617 ---| PRSA     DATA   C* ILLEGAL CONTROL CARD.*
Line S00011 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01695  M01S00011.v23l617 +++| PRSA     BSS    0
01696  M00S01639.chd     +++|          SPACE  4
01697  M00S01640.chd     +++|**        COMMON DECKS.
01698  M00S01641.chd     +++|
01699  M00S01642.chd     +++|
01700  M00S01643.chd     +++|*CALL     COMPCUA
01701  M00S01644.chd     +++|          SPACE  4
01702  M00S01645.chd     +++|          END
cdc/nos2.source/opl.opl871/deck/chd.txt ยท Last modified: by 127.0.0.1