User Tools

Site Tools


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

Deck CHD

4 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.chd     +++|          IDENT  CHD,CHD
00002  M01S00002.chd     +++|          PERIPH
00003  M01S00003.chd     +++|          BASE   MIXED
00004  M01S00004.chd     +++|          SST    RDS
00005  M01S00005.chd     +++|          SYSCOM
Line S00006 Modification History
M01 (Added by) chd
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.ns22000 ---|*COMMENT  CHESS DISPLAY DRIVER.
00007  M01S00001.ns22000 +++|*COMMENT  CHD - CHESS DISPLAY DRIVER.
Line S00002 Modification History
M01 (Added by) ns22000
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00002.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00007.chd     +++|          TITLE  CHD - CHESS DISPLAY DRIVER.
00011  M01S00008.chd     +++|          SPACE  4
00012  M01S00009.chd     +++|***       AUTHOR:
00013  M01S00010.chd     +++|*                 K. E. GORLEN
00014  M01S00011.chd     +++|*                 VOGELBACK COMPUTING CENTER
00015  M01S00012.chd     +++|*                 NORTHWESTERN UNIVERSITY
00016  M01S00013.chd     +++|*                 6400/6500/6600 SCOPE 3    03/20/69
00017  M01S00014.chd     +++|
00018  M01S00015.chd     +++|
00019  M01S00016.chd     +++|***       CONVERSION TO KRONOS -
00020  M01S00017.chd     +++|*         G. R. MANSFIELD.
00021  M01S00018.chd     +++|*         E. W. HOBBS.       70/03/06.
00022  M01S00019.chd     +++|          SPACE  4
00023  M01S00003.ns22000 +++|**        COMMON DECKS.
00024  M01S00004.ns22000 +++|
00025  M01S00005.ns22000 +++|
00026  M01S00020.chd     +++|*CALL     COMDMAC
00027  M01S00021.chd     +++|*CALL     COMPMAC
00028  M01S00001.242l642 +++|*CALL     COMSCPS
Line S00022 Modification History
M01 (Added by) chd
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00022.ns22000 ---|          PURGMAC INDEX
00030  M01S00023.chd     +++|          SPACE  4
00031  M01S00024.chd     +++|****      DIRECT STORAGE LOCATION ASSIGNMENTS.
00032  M01S00025.chd     +++|
00033  M01S00026.chd     +++|
00034  M01S00027.chd     +++| NC       EQU    15          NUMBER OF CP-S (FOR *COMDSYS*)
00035  M01S00028.chd     +++| XC       EQU    16          X-COORDINATE
00036  M01S00029.chd     +++| YC       EQU    17          Y-COORDINATE
00037  M01S00030.chd     +++| CN       EQU    20 - 24     CM WORD BUFFER
00038  M01S00031.chd     +++| CC       EQU    25          CHARACTER COUNT
00039  M01S00032.chd     +++| KM       EQU    26          MESSAGE ADDRESS
00040  M01S00033.chd     +++| CR       EQU    27          CARRIAGE RETURN FLAG
00041  M01S00034.chd     +++| SW       EQU    30 - 34     STATUS WORD
00042  M01S00035.chd     +++| WF       EQU    35          WAITING FOR CPU FLAG
00043  M01S00036.chd     +++| LF       EQU    36          LIMIT FLAG
00044  M01S00037.chd     +++| A.SW     EQU    37 - 40     STATUS WORD ABSOLUTE ADDRESS
00045  M01S00038.chd     +++| A.TR     EQU    41 - 42     ADDRESS OF TREE POSITION
00046  M01S00039.chd     +++| A.OP     EQU    43 - 44     ADDRESS OF OPTION DISPLAY
00047  M01S00040.chd     +++| A.GS     EQU    45 - 46     ADDRESS OF GAME SCORE DISPLAY
00048  M01S00041.chd     +++|*         EQU    47
00049  M01S00042.chd     +++| WC       EQU    57          KEYBOARD ENTRY WORD COUNT
00050  M01S00043.chd     +++| FT       EQU    60 - 61     FIRST
00051  M01S00044.chd     +++| SC       EQU    62          REAL TIME SECOND CLOCK
00052  M01S00045.chd     +++| GC       EQU    63          GAME CLOCK STATUS
00053  M01S00046.chd     +++| OT       EQU    64 - 65     OUT
00054  M01S00047.chd     +++| LM       EQU    66 - 67     LIMIT
00055  M01S00048.chd     +++|          SPACE  4
00056  M01S00049.chd     +++|**        ASSEMBLY CONSTANTS.
00057  M01S00050.chd     +++|
00058  M01S00051.chd     +++|
00059  M01S00052.chd     +++| NAME     MICRO  1,, CHESS
00060  M01S00053.chd     +++| CH       EQU    CHDS        DISPLAY CHANNEL
00061  M01S00054.chd     +++| CPF      EQU    3           LOOP CYCLES/FLASH
00062  M01S00055.chd     +++| FPM      EQU    6           FLASHES/MOVE
00063  M01S00056.chd     +++| DSCT     EQU    20D         DISPLAY CYCLE (MS)
00064  M01S00057.chd     +++| LOPT     EQU    6           LENGTH OF OPTION LIST
00065  M01S00058.chd     +++| LSCR     EQU    18D*4       LENGTH OF GAME SCORE (CM WORDS)
00066  M01S00059.chd     +++| LLIM     EQU    8D          LENGTH OF LIMIT LIST
00067  M01S00060.chd     +++| XLIM     EQU    6000        LIMIT AND TREE COORDINATES
00068  M01S00061.chd     +++| YLIM     EQU    7650
00069  M01S00062.chd     +++| XBRD     EQU    6020        BOARD  COORDINATES
00070  M01S00063.chd     +++| YBRD     EQU    7120
00071  M01S00064.chd     +++| XOPT     EQU    6000        OPTIONS COORDINATES
00072  M01S00065.chd     +++| YOPT     EQU    7610
00073  M01S00066.chd     +++| XSCR     EQU    6060        GAME SCORE COORDINATES
00074  M01S00067.chd     +++| YSCR     EQU    7350
00075  M01S00068.chd     +++| XCLK     EQU    6000        GAME CLOCK COORDINATES
00076  M01S00069.chd     +++| YCLK     EQU    7440
00077  M01S00070.chd     +++| XNAM     EQU    6070        PLAYER NAMES COORDINATES
00078  M01S00071.chd     +++| YNAM     EQU    7520
00079  M01S00072.chd     +++|          SPACE  4
00080  M01S00073.chd     +++|**        DISPLAY ENVIRONMENT TABLE POINTERS.
00081  M01S00074.chd     +++|
00082  M01S00075.chd     +++|
00083  M01S00076.chd     +++| P.PD     EQU    1           PIECE DISPLAY BUFFER
00084  M01S00077.chd     +++| P.IM     EQU    2           MESSAGE INPUT BUFFER
00085  M01S00078.chd     +++| P.EM     EQU    3           ERROR MESSAGE BUFFER
00086  M01S00079.chd     +++| P.OM     EQU    4           OUTPUT MESSAGE BUFFER
00087  M01S00080.chd     +++| P.LM     EQU    5           LIMIT SETTING
00088  M01S00081.chd     +++| P.TR     EQU    6           CURRENT POSITION IN TREE
00089  M01S00082.chd     +++| P.BD     EQU    7           PACKED BOARD
00090  M01S00083.chd     +++| P.OP     EQU    10          OPTION DISPLAY
00091  M01S00084.chd     +++| P.GS     EQU    11          GAME SCORE DISPLAY
00092  M01S00085.chd     +++| P.NM     EQU    12          PLAYER NAMES
00093  M01S00086.chd     +++| P.RO     EQU    13          TEMPORARY ROLLOUT STORAGE
00094  M01S00087.chd     +++|          SPACE  4
00095  M01S00088.chd     +++|**        FUNCTION MNEMONICS.
00096  M01S00089.chd     +++|
00097  M01S00090.chd     +++|
00098  M01S00091.chd     +++| F.DUM    EQU    2           DUMMY FUNCTION
00099  M01S00092.chd     +++| F.AKL    EQU    4           ACCEPT KEYBOARD LINE
00100  M01S00093.chd     +++| F.ERR    EQU    6           DISPLAY ERROR MESSAGE
00101  M01S00094.chd     +++| F.FLA    EQU    10          FLASH PIECE
00102  M01S00095.chd     +++| F.SET    EQU    12          SET CLOCKS
00103  M01S00096.chd     +++| F.STP    EQU    14          STOP CLOCKS
00104  M01S00097.chd     +++| F.SCA    EQU    16          START CLOCK A
00105  M01S00098.chd     +++| F.SCB    EQU    20          START CLOCK B
00106  M01S00099.chd     +++| F.EPR    EQU    22          ENTER PRIORITY
00107  M01S00100.chd     +++| F.EFL    EQU    24          ENTER FIELD LENGTH
00108  M01S00101.chd     +++| F.DRP    EQU    26          DROP PP
00109  M01S00102.chd     +++| F.ABT    EQU    30          KILL JOB
00110  M01S00103.chd     +++|
00111  M01S00104.chd     +++|****
00112  M01S00105.chd     +++| LCMA     TITLE  MACROS
00113  M01S00106.chd     +++|**        LCMA - LOAD AN 18 BIT CENTRAL MEMORY ADDRESS INTO
00114  M01S00107.chd     +++|*         THE A REGISTER.
00115  M01S00108.chd     +++|*         THE HIGH ORDER BITS ARE IN BITS 0-5 OF (ADDR).
00116  M01S00109.chd     +++|*         THE LOW ORDER BITS ARE IN (ADDR+1).
00117  M01S00110.chd     +++|*         ADDR MAY BE EITHER A DIRECT OR MEMORY LOCATION.
00118  M01S00111.chd     +++|
00119  M01S00112.chd     +++|
00120  M01S00113.chd     +++| LCMA     MACRO  ADDR        LOAD CM ADDRESS
00121  M01S00114.chd     +++|          LOCAL  N
00122  M01S00115.chd     +++| N        SET    1
00123  M01S00116.chd     +++|          IFGT   ADDR,77,1
00124  M01S00117.chd     +++| N        SET    2
00125  M01S00118.chd     +++| K        MICRO  N,1,*DM*
00126  M01S00119.chd     +++|          LD_"K" ADDR
00127  M01S00120.chd     +++|          SHN    14
00128  M01S00121.chd     +++|          AD_"K" ADDR+1
00129  M01S00122.chd     +++|          ENDM
00130  M01S00123.chd     +++|          SPACE  4
00131  M01S00124.chd     +++|**        SCMA - STORE AN 18 BIT CM ADDRESS.
00132  M01S00125.chd     +++|*         HIGH ORDER BITS IN (ADDR).
00133  M01S00126.chd     +++|*         LOW ORDER BITS IN (ADDR+1).
00134  M01S00127.chd     +++|*         ADDR MAY BE DIRECT OR MEMORY.
00135  M01S00128.chd     +++|
00136  M01S00129.chd     +++|
00137  M01S00130.chd     +++| SCMA     MACRO  ADDR
00138  M01S00131.chd     +++|          LOCAL  N
00139  M01S00132.chd     +++| N        SET    1
00140  M01S00133.chd     +++|          IFGT   ADDR,77,1
00141  M01S00134.chd     +++| N        SET    2
00142  M01S00135.chd     +++| K        MICRO  N,1,*DM*
00143  M01S00136.chd     +++|          ST_"K" ADDR+1
00144  M01S00137.chd     +++|          SHN    -14
00145  M01S00138.chd     +++|          ST_"K" ADDR
00146  M01S00139.chd     +++|          ENDM
00147  M01S00140.chd     +++|          SPACE  4
00148  M01S00141.chd     +++|**        TCMA - TRANSFER THE CM ADDRESS IN (A1 - A1+1) TO
00149  M01S00142.chd     +++|*         (A2 - A2+1).
00150  M01S00143.chd     +++|
00151  M01S00144.chd     +++|
00152  M01S00145.chd     +++| TCMA     MACRO  A1,A2
00153  M01S00146.chd     +++|          LOCAL  N1,N2
00154  M01S00147.chd     +++| N1       SET    1
00155  M01S00148.chd     +++| N2       SET    1
00156  M01S00149.chd     +++|          IFGT   A1,77,1
00157  M01S00150.chd     +++| N1       SET    2
00158  M01S00151.chd     +++|          IFGT   A2,77,1
00159  M01S00152.chd     +++| N2       SET    2
00160  M01S00153.chd     +++| K1       MICRO  N1,1,*DM*
00161  M01S00154.chd     +++| K2       MICRO  N2,1,*DM*
00162  M01S00155.chd     +++|          LD_"K1" A1
00163  M01S00156.chd     +++|          ST_"K2" A2
00164  M01S00157.chd     +++|          LD_"K1" A1+1
00165  M01S00158.chd     +++|          ST_"K2" A2+1
00166  M01S00159.chd     +++|          ENDM
00167  M01S00160.chd     +++| INDEX    SPACE  4
00168  M01S00161.chd     +++|***       INDEX - GENERATE INDEXED TABLE.
00169  M01S00162.chd     +++|*
00170  M01S00163.chd     +++|*
00171  M01S00164.chd     +++|*NAME     INDEX  TYPE,ADDRESS
00172  M01S00165.chd     +++|*         THIS MACRO IS INTENDED TO GENERATE TABLES WHICH ARE INDEXED
00173  M01S00166.chd     +++|*         BY SYMBOLIC CONSTANTS.
00174  M01S00167.chd     +++|*         IT HAS 3 CALLING SEQUENCES.
00175  M01S00168.chd     +++|*         IF *NAME* IS PRESENT, THE FWA OF THE TABLE IS SET TO *NAME*
00176  M01S00169.chd     +++|*         AND *TYPE* IS APPENDED AS A BIAS TO *TYPE* FOR ALL
00177  M01S00170.chd     +++|*         SUBSEQUENT CALLS.
00178  M01S00171.chd     +++|*
00179  M01S00172.chd     +++|*         IF *ADDRESS* IS MISSING, THE TABLE IS TERMINATED WITH AN
00180  M01S00173.chd     +++|*         *ORG* TO THE END OF THE TABLE. THIS RESULTS IN ZERO ENTRIES
00181  M01S00174.chd     +++|*         FOR UNDEFINED ENTRIES IN THE TABLE.
00182  M01S00175.chd     +++|*
00183  M01S00176.chd     +++|*         OTHERWISE, A TABLE ENTRY IS MADE AT *INDEX* + *TYPE* OF
00184  M01S00177.chd     +++|*         *ADDRESS*, WITH *TYPE* MODIFIED BY *TYPE* GIVEN IN THE
00185  M01S00178.chd     +++|*         INITIALIZING CALL.
00186  M01S00179.chd     +++|*
00187  M01S00180.chd     +++|*         USES   SYMBOL NAME *INDEX*.
00188  M01S00181.chd     +++|*         CALLS  NONE.
00189  M01S00182.chd     +++|
00190  M01S00183.chd     +++|
00191  M01S00006.ns22000 +++|          PURGMAC  INDEX
00192  M01S00184.chd     +++|          MACRO  INDEX,A,B,C
00193  M01S00185.chd     +++|          IFC NE,*A**
00194  M01S00186.chd     +++| A        BSS    0
00195  M01S00187.chd     +++| .3       MICRO  1,, B
00196  M01S00188.chd     +++| .2       SET    A
00197  M01S00189.chd     +++|          ELSE   5
00198  M01S00190.chd     +++|          ORG    .2+B".3"
00199  M01S00191.chd     +++|          IFC    NE,*C**,2
00200  M01S00192.chd     +++|          LOC    B
00201  M01S00193.chd     +++|          CON    C
00202  M01S00194.chd     +++|          BSS    0
00203  M01S00195.chd     +++|          ENDM
00204  M01S00196.chd     +++| INDEX    SPACE  4
00205  M01S00197.chd     +++| .3       MICRO  1,,
00206  M01S00198.chd     +++| CHD      TITLE  MAIN DISPLAY LOOP
Line S00199 Modification History
M01 (Added by) chd
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00199.ns22000 ---|**        MAIN DISPLAY LOOP
00208  M01S00007.ns22000 +++|**        CHD - MAIN ROUTINE.
00209  M01S00200.chd     +++|
00210  M01S00201.chd     +++|          ORG    PPFW
00211  M01S00202.chd     +++|
00212  M01S00203.chd     +++| CHD      RJM    PRS         PRESET
00213  M01S00204.chd     +++| CHD1     RJM    PAUSE       FOR RELOCATION
Line S00205 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00205.v23l617 ---|          RJM    FNC         PROCESS FUNCTION CODES
00215  M01S00001.v23l617 +++|          RJM    PFC         PROCESS FUNCTION CODES
00216  M01S00206.chd     +++|          RJM    RKE         READ KEYBOARD ENTRY
00217  M01S00207.chd     +++|          RJM    DKE         DISPLAY KEYBOARD ENTRY
00218  M01S00208.chd     +++|          RJM    SKE         STORE KEYBOARD ENTRY
00219  M01S00209.chd     +++|          RJM    DBD         DISPLAY CHESS BOARD
00220  M01S00210.chd     +++|          RJM    DPC         DISPLAY CHESS PIECES
00221  M01S00211.chd     +++|          RJM    DOE         DISPLAY OUTPUT AND ERROR MESSAGES
00222  M01S00212.chd     +++|          RJM    DLM         DISPLAY LIMITS AND TREE POSITION
00223  M01S00213.chd     +++|          RJM    DGC         DISPLAY GAME CLOCKS
00224  M01S00214.chd     +++|          RJM    DOS         DISPLAY OPTIONS AND GAME SCORE
00225  M01S00215.chd     +++|          RJM    PFP         PROCESS FLASHING PIECE
00226  M01S00216.chd     +++|          RJM    UGC         UPDATE GAME CLOCKS
00227  M01S00217.chd     +++|          RJM    DSS         DISPLAY SYSTEM STATUS
00228  M01S00218.chd     +++|          UJN    CHD1        LOOP
00229  M01S00219.chd     +++| PAUSE    TITLE  PAUSE - PAUSE FOR RELOCATION
00230  M01S00220.chd     +++|**        PAUSE - PAUSE FOR RELOCATION.
00231  M01S00221.chd     +++|*                UPDATE STATUS ADDRESS.
00232  M01S00222.chd     +++|*                CHECK CONTROL POINT ERROR FLAG.
00233  M01S00223.chd     +++|*                CHECK ROLLOUT FLAG - DROP WITH RECALL IF SET.
00234  M01S00224.chd     +++|*                PROCESS DROP PP FUNCTION.
00235  M01S00225.chd     +++|*                PROCESS KILL JOB FUNCTION.
00236  M01S00226.chd     +++|*                PROCESS FIELD LENGTH REQUEST.
00237  M01S00227.chd     +++|
00238  M01S00228.chd     +++|
00239  M01S00229.chd     +++| PAUSE    SUBR               ENTRY/EXIT
00240  M01S00230.chd     +++|          RJM    PSS         PAUSE FOR SYSTEM
00241  M01S00231.chd     +++|          LCMA   IR+3        UPDATE STATUS ADDRESS
00242  M01S00232.chd     +++|          RJM    ABS
00243  M01S00233.chd     +++|          CRD    SW          READ STATUS WORD
00244  M01S00234.chd     +++|          SCMA   A.SW        STORE ABSOLUTE ADDRESS OF STATUS
00245  M01S00235.chd     +++|          LDD    SW+4
00246  M01S00236.chd     +++|          LMN    F.DRP
00247  M01S00237.chd     +++|          NJN    PAUSE1      IF NOT DROP FUNCTION
00248  M01S00238.chd     +++|          RJM    SB0
00249  M01S00239.chd     +++|          LJM    DRP         DROP PP
00250  M01S00240.chd     +++|
00251  M01S00241.chd     +++| PAUSE1   LMN    F.ABT&F.DRP
00252  M01S00242.chd     +++|          NJN    PAUSE2      IF NOT KILL FUNCTION
00253  M01S00243.chd     +++|          LJM    ABT         ABORT JOB
00254  M01S00244.chd     +++|
00255  M01S00245.chd     +++| PAUSE2   LDD    CP
00256  M01S00246.chd     +++|          ADN    STSW
00257  M01S00247.chd     +++|          CRD    CM
00258  M01S00248.chd     +++|          LDD    CM+2
00259  M01S00249.chd     +++|          LPN    1
00260  M01S00250.chd     +++|          NJN    PAUSE4      IF ROLLOUT SET
00261  M01S00251.chd     +++|          LDD    SW+4
00262  M01S00252.chd     +++|          LMN    F.EFL
00263  M01S00253.chd     +++|          ZJN    PAUSE3      IF FL REQUEST
00264  M01S00254.chd     +++|          LJM    PAUSEX      RETURN
00265  M01S00255.chd     +++|
00266  M01S00256.chd     +++| PAUSE3   LDD    FL
00267  M01S00257.chd     +++|          SHN    6
00268  M01S00258.chd     +++|          SCMA   SW+2        RETURN CURRENT FL
00269  M01S00259.chd     +++|          RJM    SB0
00270  M01S00260.chd     +++|          LJM    PAUSEX      RETURN
00271  M01S00261.chd     +++|
00272  M01S00262.chd     +++| PAUSE4   LDM    CLKAO       SAVE STATUS IN CENTRAL MEMORY
00273  M01S00263.chd     +++|          STD    CM
00274  M01S00264.chd     +++|          LDM    CLKBO
00275  M01S00265.chd     +++|          STD    CM+1
00276  M01S00266.chd     +++|          LDD    GC
00277  M01S00267.chd     +++|          STD    CM+2
00278  M01S00268.chd     +++|          LDM    UGCB
00279  M01S00269.chd     +++|          STD    CM+3
00280  M01S00270.chd     +++|          LDM    UGCE
00281  M01S00271.chd     +++|          STD    CM+4
00282  M01S00272.chd     +++|          LCMA   IR+3
00283  M01S00273.chd     +++|          ADN    P.RO
00284  M01S00274.chd     +++|          RJM    ABS
00285  M01S00275.chd     +++|          CWD    CM
00286  M01S00276.chd     +++|
Line S00277 Modification History
M01 (Added by) chd
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00277.ns22000 ---|*         DROP WITH RECALL
00288  M01S00008.ns22000 +++|*         DROP WITH RECALL.
00289  M01S00278.chd     +++|
00290  M01S00279.chd     +++|          RJM    DDS
00291  M01S00280.chd     +++|          LDN    ZERL        CLEAR REQUEST BUFFER
00292  M01S00281.chd     +++|          CRD    CM
00293  M01S00282.chd     +++|          LDD    MA          WRITE IR TO MESSAGE BUFFER
00294  M01S00283.chd     +++|          CWD    IR
00295  M01S00284.chd     +++|          MONITOR  RECM      RECALL PP
00296  M01S00285.chd     +++|          LJM    PPR         RETURN TO PP RESIDENT
00297  M01S00286.chd     +++| FNC      TITLE  FNC - FUNCTION CODE PROCESSOR
00298  M01S00287.chd     +++|**        FNC - PROCESS FUNCTION CODES.
00299  M01S00288.chd     +++|*                READ OUTPUT MESSAGE.
00300  M01S00289.chd     +++|*                READ CURRENT LIMIT SETTING.
00301  M01S00290.chd     +++|*                UPDATE PIECE DISPLAY BUFFER POINTERS.
00302  M01S00291.chd     +++|*                READ RANK LABELS AND FILE LABELS.
00303  M01S00292.chd     +++|*                UPDATE POINTERS TO BOARD,OPTION,GAME SCORE,TREE.
00304  M01S00293.chd     +++|
00305  M01S00294.chd     +++|
00306  M01S00002.v23l617 +++|          QUAL   FNC
00307  M01S00003.v23l617 +++|
00308  M01S00295.chd     +++| FNC      SUBR               ENTRY/EXIT
00309  M01S00296.chd     +++|          LDD    SW+4        CHECK FUNCTION CODE
00310  M01S00297.chd     +++|          LPN    1
00311  M01S00298.chd     +++|          NJN    FNCX        RETURN IF COMPLETED
00312  M01S00299.chd     +++|          LDM    PFPA
00313  M01S00300.chd     +++|          NJN    FNCX        RETURN IF *FLASH* SET
00314  M01S00301.chd     +++|          LDD    SW+4
00315  M01S00302.chd     +++|          SHN    -1
00316  M01S00303.chd     +++|          ZJN    FNCX
00317  M01S00304.chd     +++|          STD    YC
00318  M01S00305.chd     +++|          SBN    TFNCL+4
00319  M01S00306.chd     +++|          MJN    FNC1        IF LEGAL FUNCTION CODE
00320  M01S00307.chd     +++|          LDC    FNCA+CPON   MESSAGE = *ILLEGAL FUNCTION CODE.*
00321  M01S00308.chd     +++|          RJM    DFM
00322  M01S00309.chd     +++|          LJM    ABT         ABORT JOB
00323  M01S00310.chd     +++|
00324  M01S00311.chd     +++| FNC1     ADN    3
00325  M01S00312.chd     +++|          PJN    FNCX        IF ENFL, DROP, KILL
00326  M01S00313.chd     +++|
00327  M01S00314.chd     +++|*         SET BUFFER POINTERS.
00328  M01S00315.chd     +++|
00329  M01S00316.chd     +++|          LDD    A.SW
00330  M01S00317.chd     +++|          SHN    14
00331  M01S00318.chd     +++|          ADD    A.SW+1
00332  M01S00319.chd     +++|          ADN    P.PD
00333  M01S00320.chd     +++|          CRD    CN
00334  M01S00321.chd     +++|          TCMA   CN+1,FT
00335  M01S00322.chd     +++|          TCMA   CN+3,LM
00336  M01S00323.chd     +++|          LDD    A.SW
00337  M01S00324.chd     +++|          SHN    14
00338  M01S00325.chd     +++|          ADD    A.SW+1
00339  M01S00326.chd     +++|          ADN    P.OM
00340  M01S00327.chd     +++|          CRD    CN
00341  M01S00328.chd     +++|          ADN    P.TR-P.OM
00342  M01S00329.chd     +++|          CRD    CM
00343  M01S00330.chd     +++|          ADN    P.OP-P.TR
00344  M01S00331.chd     +++|          CRD    T6
00345  M01S00332.chd     +++|          ADN    P.GS-P.OP
00346  M01S00333.chd     +++|          CRD    T4
00347  M01S00334.chd     +++|          ADN    P.NM-P.GS
00348  M01S00335.chd     +++|          CRD    T2
00349  M01S00336.chd     +++|          LCMA   T5          READ PLAYER NAMES
00350  M01S00337.chd     +++|          RJM    ABS
00351  M01S00338.chd     +++|          CRM    DOSE,ON
00352  M01S00339.chd     +++|          CRM    DOSF,ON
00353  M01S00340.chd     +++|          LCMA   CN+3        READ OUTPUT MESSAGE
00354  M01S00341.chd     +++|          RJM    ABS
00355  M01S00342.chd     +++|          CRM    DOEB,TR
00356  M01S00343.chd     +++|          TCMA   CM+3,A.TR
00357  M01S00344.chd     +++|          TCMA   CM+1,A.OP
00358  M01S00345.chd     +++|          TCMA   T7,A.GS
00359  M01S00346.chd     +++|
00360  M01S00347.chd     +++|*         READ LIMIT SETTING.
00361  M01S00348.chd     +++|
00362  M01S00349.chd     +++|          LDN    LLIM        SET LENGTH OF LIMIT BUFFER
00363  M01S00350.chd     +++|          STD    T1
00364  M01S00351.chd     +++|          LDD    A.SW
00365  M01S00352.chd     +++|          SHN    14
00366  M01S00353.chd     +++|          ADD    A.SW+1
00367  M01S00354.chd     +++|          ADN    P.LM
00368  M01S00355.chd     +++|          CRD    CM
00369  M01S00356.chd     +++|          LCMA   CM+3        READ LIMITS
00370  M01S00357.chd     +++|          RJM    ABS
00371  M01S00358.chd     +++|          CRM    BUF,T1
00372  M01S00359.chd     +++|          LDN    0           SET INDEX
00373  M01S00360.chd     +++|          STD    T5
00374  M01S00361.chd     +++|          STD    LF          CLEAR FLAG
00375  M01S00362.chd     +++|          LDC    BUF-1       SET BUFFER POINTER
00376  M01S00363.chd     +++|          STD    T6
00377  M01S00364.chd     +++| FNC2     LDN    5
00378  M01S00365.chd     +++|          RAD    T6          INCREMENT POINTER
00379  M01S00366.chd     +++|          LDI    T6          CHECK LIMIT
00380  M01S00367.chd     +++|          NJN    FNC3        IF NOT ZERO BYTE
00381  M01S00368.chd     +++|          STM    DLMC,T5     SET ZERO BYTE
00382  M01S00369.chd     +++|          LDD    T5
00383  M01S00370.chd     +++|          SBN    2*6
00384  M01S00371.chd     +++|          MJN    FNC5        IF ;6 LEVELS
00385  M01S00372.chd     +++|          UJN    FNC4
00386  M01S00373.chd     +++|
00387  M01S00374.chd     +++| FNC3     RJM    CDD         CONVERT TO DECIMAL DISPLAY CODE
00388  M01S00375.chd     +++|          STM    DLMC,T5     STORE
00389  M01S00376.chd     +++|          LDN    2           INCREMENT INDEX
00390  M01S00377.chd     +++|          RAD    T5
00391  M01S00378.chd     +++|          SBN    2*LLIM
00392  M01S00379.chd     +++|          NJN    FNC2        LOOP
00393  M01S00380.chd     +++|
00394  M01S00381.chd     +++| FNC4     LCN    0           SET FLAG
00395  M01S00382.chd     +++|          STD    LF
00396  M01S00383.chd     +++|
00397  M01S00384.chd     +++|*         READ RANK LABELS.
00398  M01S00385.chd     +++|
00399  M01S00386.chd     +++| FNC5     LDN    8D          SET NUMBER OF LABELS
00400  M01S00387.chd     +++|          STD    T1
00401  M01S00388.chd     +++|          LDD    A.SW        READ POINTER TO LABELS
00402  M01S00389.chd     +++|          SHN    14
00403  M01S00390.chd     +++|          ADD    A.SW+1
00404  M01S00391.chd     +++|          ADN    P.BD
00405  M01S00392.chd     +++|          CRD    CM
00406  M01S00393.chd     +++|          LCMA   CM+3        READ LABELS
00407  M01S00394.chd     +++|          RJM    ABS
00408  M01S00395.chd     +++|          CRM    BUF,T1
00409  M01S00396.chd     +++|          LDC    BUF+5*7     SET POINTER TO BUFFER
00410  M01S00397.chd     +++|          STD    T2
00411  M01S00398.chd     +++| FNC6     LDI    T2          LOAD NEXT LABEL
00412  M01S00399.chd     +++|          STM    DBDE-1,T1   STORE
00413  M01S00400.chd     +++|          LCN    5           DECREMENT POINTER
00414  M01S00401.chd     +++|          RAD    T2
00415  M01S00402.chd     +++|          SOD    T1          DECREMENT INDEX
00416  M01S00403.chd     +++|          NJN    FNC6        LOOP
00417  M01S00404.chd     +++|
00418  M01S00405.chd     +++|*         READ FILE LABELS.
00419  M01S00406.chd     +++|
00420  M01S00407.chd     +++|          LDD    A.SW        READ POINTER TO BOARD
00421  M01S00408.chd     +++|          SHN    14
00422  M01S00409.chd     +++|          ADD    A.SW+1
00423  M01S00410.chd     +++|          ADN    P.BD
00424  M01S00411.chd     +++|          CRD    CM
00425  M01S00412.chd     +++|          LCMA   CM+3        READ LABELS
00426  M01S00413.chd     +++|          ADN    8D
00427  M01S00414.chd     +++|          RJM    ABS
00428  M01S00415.chd     +++|          CRM    BUF,ON
00429  M01S00416.chd     +++|          LDC    BUF+4       SET POINTER TO LABELS
00430  M01S00417.chd     +++|          STD    CM
00431  M01S00418.chd     +++|          LDC    DBDD+12D    SET POINTER TO LABEL BUFFER
00432  M01S00419.chd     +++|          STD    CM+1
00433  M01S00420.chd     +++| FNC7     LDI    CM          UNPACK LABELS
00434  M01S00421.chd     +++|          LPN    77
00435  M01S00422.chd     +++|          STI    CM+1
00436  M01S00423.chd     +++|          SOD    CM+1
00437  M01S00424.chd     +++|          LDI    CM
00438  M01S00425.chd     +++|          SCN    77
00439  M01S00426.chd     +++|          STI    CM+1
00440  M01S00427.chd     +++|          LCN    2
00441  M01S00428.chd     +++|          RAD    CM+1
00442  M01S00429.chd     +++|          SOD    CM
00443  M01S00430.chd     +++|          LMC    BUF
00444  M01S00431.chd     +++|          NJN    FNC7        LOOP
00445  M01S00432.chd     +++|
00446  M01S00433.chd     +++|*         PROCESS FUNCTION CODE.
00447  M01S00434.chd     +++|
00448  M01S00435.chd     +++|          LDM    TFNC-1,YC   SET ADDRESS OF FUNCTION ROUTINE
00449  M01S00436.chd     +++|          STM    FNC8
00450  M01S00437.chd     +++|          RJM    **          EXECUTE
00451  M01S00438.chd     +++| FNC8     EQU    *-1
00452  M01S00439.chd     +++|          LJM    FNCX        RETURN
00453  M01S00440.chd     +++|
00454  M01S00441.chd     +++| FNCA     DATA   C*CHD - ILLEGAL FUNCTION CODE.*
00455  M01S00442.chd     +++| TFNC     SPACE  4
00456  M01S00443.chd     +++|**        TFNC - TABLE OF FUNCTION CODES.
00457  M01S00444.chd     +++|
00458  M01S00445.chd     +++|
00459  M01S00446.chd     +++| TFNC     INDEX  /2-1
00460  M01S00447.chd     +++|          INDEX  F.DUM,SB0
00461  M01S00448.chd     +++|          INDEX  F.AKL,AKL
00462  M01S00449.chd     +++|          INDEX  F.ERR,ERR
00463  M01S00450.chd     +++|          INDEX  F.FLA,SFF
00464  M01S00451.chd     +++|          INDEX  F.SET,SET
00465  M01S00452.chd     +++|          INDEX  F.STP,STP
00466  M01S00453.chd     +++|          INDEX  F.SCA,SCA
00467  M01S00454.chd     +++|          INDEX  F.SCB,SCB
00468  M01S00455.chd     +++|          INDEX  F.EPR,EPR
00469  M01S00456.chd     +++|          INDEX  F.EFL
00470  M01S00457.chd     +++| TFNCL    EQU    *-TFNC
00471  M01S00004.v23l617 +++|
00472  M01S00005.v23l617 +++|          QUAL
00473  M01S00006.v23l617 +++| PFC      EQU    /FNC/FNC
00474  M01S00458.chd     +++| AKL      TITLE  FUNCTION CODE PROCESSING SUBROUTINES
00475  M01S00459.chd     +++|**        AKL- ACCEPT KEYIN.
00476  M01S00009.ns22000 +++|*
00477  M01S00460.chd     +++|*         CALLS  SB0.
00478  M01S00461.chd     +++|
00479  M01S00462.chd     +++|
00480  M01S00463.chd     +++| AKL      SUBR               ENTRY/EXIT
00481  M01S00464.chd     +++|          LDD    KM
00482  M01S00465.chd     +++|          NJN    AKL1        IF MESSAGE SET
00483  M01S00466.chd     +++|          STD    CC          RESET CHARACTER COUNT
00484  M01S00467.chd     +++|          STD    WC          RESET WORD COUNT
00485  M01S00468.chd     +++| AKL1     RJM    SB0         SET COMPLETE
00486  M01S00469.chd     +++|          UJN    AKLX        RETURN
00487  M01S00470.chd     +++| ERR      SPACE  4
00488  M01S00471.chd     +++|**        ERR - ERROR IN KEYIN - SET ERROR FLAG.
00489  M01S00010.ns22000 +++|*
00490  M01S00472.chd     +++|*         CALLS  ABS, SB0.
00491  M01S00473.chd     +++|
00492  M01S00474.chd     +++|
00493  M01S00475.chd     +++| ERR      SUBR               ENTRY/EXIT
00494  M01S00476.chd     +++|          LDD    A.SW
00495  M01S00477.chd     +++|          SHN    14
00496  M01S00478.chd     +++|          ADD    A.SW+1
00497  M01S00479.chd     +++|          ADN    P.EM
00498  M01S00480.chd     +++|          CRD    CM
00499  M01S00481.chd     +++|          LCMA   CM+3
00500  M01S00482.chd     +++|          RJM    ABS
00501  M01S00483.chd     +++|          CRM    ERRA,TR
00502  M01S00484.chd     +++|          LDC    ERRA        DISPLAY ERROR MESSAGE
00503  M01S00485.chd     +++|          STD    KM
00504  M01S00486.chd     +++|          RJM    SB0
00505  M01S00487.chd     +++|          UJN    ERRX        RETURN
00506  M01S00488.chd     +++|
00507  M01S00489.chd     +++| ERRA     BSSZ   3*5+1
00508  M01S00490.chd     +++| SFF      SPACE  4
00509  M01S00491.chd     +++|**        SFF - SET FLASH FLAG TO FLASH PIECE.
00510  M01S00492.chd     +++|
00511  M01S00493.chd     +++|
00512  M01S00494.chd     +++| SFF      SUBR               ENTRY/EXIT
00513  M01S00495.chd     +++|          LDN    0           STOP CLOCKS
00514  M01S00496.chd     +++|          STD    GC
00515  M01S00497.chd     +++|          LDN    1           SET FLAG
00516  M01S00498.chd     +++|          STM    PFPA
00517  M01S00499.chd     +++|          UJN    SFFX
00518  M01S00500.chd     +++| SET      SPACE  4
00519  M01S00501.chd     +++|**        SET - SET CLOCKS.
00520  M01S00011.ns22000 +++|*
00521  M01S00502.chd     +++|*         CALLS  CTD, SB0.
00522  M01S00503.chd     +++|
00523  M01S00504.chd     +++|
00524  M01S00505.chd     +++| SET      SUBR               ENTRY/EXIT
00525  M01S00506.chd     +++|          LDD    SW
00526  M01S00507.chd     +++|          STM    CLKAO       SET OCTAL SECONDS
00527  M01S00508.chd     +++|          RJM    CTD
00528  M01S00509.chd     +++|          STM    UGCC        SET MINUTES
00529  M01S00510.chd     +++|          LDD    CM
00530  M01S00511.chd     +++|          STM    UGCD        SET DISPLAY SECONDS
00531  M01S00512.chd     +++|          LDD    SW+1        REPEAT FOR CLOCK B
00532  M01S00513.chd     +++|          STM    CLKBO
00533  M01S00514.chd     +++|          RJM    CTD
00534  M01S00515.chd     +++|          STM    UGCF
00535  M01S00516.chd     +++|          LDD    CM
00536  M01S00517.chd     +++|          STM    UGCG
00537  M01S00518.chd     +++|          LDN    0           CLEAR TIME UP FLAGS
00538  M01S00519.chd     +++|          STM    UGCB
00539  M01S00520.chd     +++|          STM    UGCE
00540  M01S00521.chd     +++|          STD    GC          STOP CLOCKS
00541  M01S00522.chd     +++|          RJM    SB0
00542  M01S00523.chd     +++|          UJN    SETX        RETURN
00543  M01S00524.chd     +++| STP      SPACE  4
00544  M01S00525.chd     +++|**        STP - STOP CLOCKS.
00545  M01S00012.ns22000 +++|*
00546  M01S00526.chd     +++|*         CALLS  SB0.
00547  M01S00527.chd     +++|
00548  M01S00528.chd     +++|
00549  M01S00529.chd     +++| STP      SUBR               ENTRY/EXIT
00550  M01S00530.chd     +++|          LDN    0
00551  M01S00531.chd     +++|          STD    GC
00552  M01S00532.chd     +++|          RJM    SB0
00553  M01S00533.chd     +++|          UJN    STPX
00554  M01S00534.chd     +++| SCA      SPACE  4
00555  M01S00535.chd     +++|**        SCA - START CLOCK A.
00556  M01S00013.ns22000 +++|*
00557  M01S00536.chd     +++|*         CALLS  SB0.
00558  M01S00537.chd     +++|
00559  M01S00538.chd     +++|
00560  M01S00539.chd     +++| SCA      SUBR               ENTRY/EXIT
00561  M01S00540.chd     +++|          LDM    CLKAO
00562  M01S00541.chd     +++|          ZJN    SCA1        IF TIME IS UP
00563  M01S00542.chd     +++|          LDN    1
00564  M01S00543.chd     +++|          STD    GC
00565  M01S00544.chd     +++| SCA1     RJM    SB0
00566  M01S00545.chd     +++|          UJN    SCAX
00567  M01S00546.chd     +++| SCB      SPACE  4
00568  M01S00547.chd     +++|**        SCB - START CLOCK B.
00569  M01S00014.ns22000 +++|*
00570  M01S00548.chd     +++|*         CALLS  SB0.
00571  M01S00549.chd     +++|
00572  M01S00550.chd     +++|
00573  M01S00551.chd     +++| SCB      SUBR               ENTRY/EXIT
00574  M01S00552.chd     +++|          LDM    CLKBO
00575  M01S00553.chd     +++|          ZJN    SCB1        IF TIME IS UP
00576  M01S00554.chd     +++|          LDN    2
00577  M01S00555.chd     +++|          STD    GC
00578  M01S00556.chd     +++| SCB1     RJM    SB0
00579  M01S00557.chd     +++|          UJN    SCBX
00580  M01S00558.chd     +++| EPR      SPACE  4
00581  M01S00559.chd     +++|**        EPR - ENTER PRIORITY.
00582  M01S00560.chd     +++|
00583  M01S00561.chd     +++|
00584  M01S00562.chd     +++| EPR1     LDN    ZERL
00585  M01S00563.chd     +++|          CRD    CM
00586  M01S00564.chd     +++|          LDN    17
00587  M01S00565.chd     +++|          STD    CM+4
00588  M01S00566.chd     +++|          MONITOR  SJCM
00589  M01S00567.chd     +++| EPR2     RJM    SB0
00590  M01S00568.chd     +++|
00591  M01S00569.chd     +++| EPR      SUBR               ENTRY/EXIT
00592  M01S00570.chd     +++|          LDD    SW+3
00593  M01S00571.chd     +++|          NJN    EPR1
00594  M01S00572.chd     +++|          LDD    CP
00595  M01S00573.chd     +++|          ADN    JCIW
00596  M01S00574.chd     +++|          CRD    CM
00597  M01S00575.chd     +++|          LDD    CM
00598  M01S00576.chd     +++|          STD    SW+3
00599  M01S00577.chd     +++|          UJN    EPR2
00600  M01S00578.chd     +++| ABT      SPACE  4
00601  M01S00579.chd     +++|**        ABT - ABORT JOB.
00602  M01S00580.chd     +++|
00603  M01S00581.chd     +++|
00604  M01S00582.chd     +++| ABT      RJM    DDS
00605  M01S00583.chd     +++|          MONITOR ABTM
00606  M01S00584.chd     +++|          LJM    PPR
00607  M01S00585.chd     +++| DRP      SPACE  4
00608  M01S00586.chd     +++|**        DRP - DROP PP.
00609  M01S00587.chd     +++|
00610  M01S00588.chd     +++|
00611  M01S00589.chd     +++| DRP      RJM    DDS
00612  M01S00590.chd     +++| DPP      MONITOR DPPM
00613  M01S00591.chd     +++|          LJM    PPR
00614  M01S00592.chd     +++| SB0      SPACE  4
00615  M01S00593.chd     +++|**        SB0 - SET THE COMPLETE BIT IN THE STATUS WORD (BIT 0).
00616  M01S00594.chd     +++|
00617  M01S00595.chd     +++|
00618  M01S00596.chd     +++| SB0      SUBR               ENTRY/EXIT
00619  M01S00597.chd     +++|          LDD    SW+4
00620  M01S00598.chd     +++|          SCN    1
00621  M01S00599.chd     +++|          ADN    1
00622  M01S00600.chd     +++|          STD    SW+4
00623  M01S00601.chd     +++|          LDC    600D        STORE CURRENT GAME CLOCK READINGS
00624  M01S00602.chd     +++| CLKAO    EQU    *-1
00625  M01S00603.chd     +++|          STD    SW
00626  M01S00604.chd     +++|          LDC    600D
00627  M01S00605.chd     +++| CLKBO    EQU    *-1
00628  M01S00606.chd     +++|          STD    SW+1
00629  M01S00607.chd     +++|          LDD    A.SW        WRITE CM STATUS WORD
00630  M01S00608.chd     +++|          SHN    14
00631  M01S00609.chd     +++|          ADD    A.SW+1
00632  M01S00610.chd     +++|          CWD    SW
00633  M01S00611.chd     +++|          MONITOR RCLM       RECALL CENTRAL PROCESSOR
00634  M01S00612.chd     +++|          UJN    SB0X        RETURN
00635  M01S00613.chd     +++| RKE      TITLE  RKE - READ KEYBOARD ENTRY
00636  M01S00614.chd     +++|*CALL     COMPCHI
00637  M01S00615.chd     +++| RKE      SPACE  4
00638  M01S00616.chd     +++|**        RKE - READ KEYBOARD ENTRY.
00639  M01S00015.ns22000 +++|*
00640  M01S00617.chd     +++|*         CALLS  DDS, RDS, HDC.
00641  M01S00618.chd     +++|
00642  M01S00619.chd     +++|
00643  M01S00620.chd     +++| RKE      SUBR               ENTRY/EXIT
00644  M01S00621.chd     +++| RKEA     FNC    7020,CH     SELECT KEYBOARD INPUT
00645  M01S00622.chd     +++|          ACN    CH
00646  M01S00623.chd     +++|          IAN    CH
00647  M01S00624.chd     +++|          DCN    CH
00648  M01S00625.chd     +++|          ZJN    RKE0.1      IF NO INPUT
00649  M01S00626.chd     +++|          LMC    0
00650  M01S00627.chd     +++| RKEC     EQU    *-1
00651  M01S00628.chd     +++|          ZJN    RKEX        IF SAME INPUT
00652  M01S00629.chd     +++|          LMM    RKEC        STORE NEW INPUT
00653  M01S00630.chd     +++| RKE0.1   STM    RKEC
00654  M01S00631.chd     +++|          ZJN    RKEX        RETURN IF NO CHARACTER
00655  M01S00632.chd     +++|          STD    CM          SAVE CHARACTER
00656  M01S00633.chd     +++|          LMN    60
00657  M01S00634.chd     +++|          NJN    RKE2        IF NOT CARRIAGE RETURN (60B)
00658  M01S00635.chd     +++|          LDD    WC
00659  M01S00636.chd     +++|          NJN    RKE1        IF NOT EMPTY CARRIAGE RETURN
00660  M01S00637.chd     +++|          LDC    RKEB        DISPLAY *REPEAT ENTRY.*
00661  M01S00638.chd     +++|          STD    KM
00662  M01S00639.chd     +++|          UJN    RKEX
00663  M01S00640.chd     +++|
00664  M01S00641.chd     +++| RKE1     LDN    1           SET CARRIAGE RETURN FLAG
00665  M01S00642.chd     +++|          STD    CR
00666  M01S00643.chd     +++|          UJN    RKEX        RETURN
00667  M01S00644.chd     +++|
00668  M01S00645.chd     +++| RKE2     LMN    1R &60
00669  M01S00646.chd     +++|          NJN    RKE3        IF NOT RIGHT BLANK (55B)
00670  M01S00647.chd     +++|          RJM    DDS         DROP DISPLAY
00671  M01S00648.chd     +++|          RJM    RDS         REQUEST DISPLAY
00672  M01S00649.chd     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
00673  M01S00650.chd     +++|          UJN    RKE4        RETURN
00674  M01S00651.chd     +++|
00675  M01S00652.chd     +++| RKE3     LMN    1R*&1R
00676  M01S00653.chd     +++|          NJN    RKE5        IF NOT (*)
00677  M01S00654.chd     +++|          LDD    CC
00678  M01S00655.chd     +++|          NJN    RKE5        IF NOT FIRST ENTRY
00679  M01S00656.chd     +++|          RJM    HDC         HOLD DISPLAY CHANNEL
00680  M01S00657.chd     +++| RKE4     LJM    RKEX        RETURN
00681  M01S00658.chd     +++|
00682  M01S00659.chd     +++| RKE5     LDD    CM
00683  M01S00660.chd     +++|          LMN    61
00684  M01S00661.chd     +++|          NJN    RKE7        IF NOT BACKSPACE (61B)
00685  M01S00662.chd     +++|          STD    CR          CLEAR CR FLAG
00686  M01S00663.chd     +++|          STD    WF          CLEAR WAITING FOR CP FLAG
00687  M01S00664.chd     +++|          STD    KM          CLEAR MESSAGE
00688  M01S00665.chd     +++|          LDD    CC
00689  M01S00666.chd     +++|          ZJN    RKE4        RETURN IF CHARACTER COUNT = 0
00690  M01S00667.chd     +++|          SHN    -1          FORM WORD COUNT
00691  M01S00668.chd     +++|          STD    WC
00692  M01S00669.chd     +++|          SOD    CC          DECREMENT CHARACTER COUNT
00693  M01S00670.chd     +++|          LPN    1           TEST SHIFT BIT
00694  M01S00671.chd     +++|          ZJN    RKE6
00695  M01S00672.chd     +++|          LDM    KBUF-1,WC   CLEAR LAST CHARACTER
00696  M01S00673.chd     +++|          SCN    77
00697  M01S00674.chd     +++|          STM    KBUF-1,WC
00698  M01S00675.chd     +++| RKE6     LJM    RKE13
00699  M01S00676.chd     +++|
00700  M01S00677.chd     +++| RKE7     LMN    53&61
00701  M01S00678.chd     +++|          NJN    RKE8        IF NOT LEFT BLANK (53B)
00702  M01S00679.chd     +++|          STD    CR          CLEAR CR FLAG
00703  M01S00680.chd     +++|          STD    WF          CLEAR WAITING FOR CP FLAG
00704  M01S00681.chd     +++|          STD    KM          CLEAR MESSAGE
00705  M01S00682.chd     +++|          STD    CC          ZERO CHARACTER AND WORD COUNT
00706  M01S00683.chd     +++|          STD    WC
00707  M01S00684.chd     +++|          LJM    RKEX        RETURN
00708  M01S00685.chd     +++|
00709  M01S00686.chd     +++| RKE8     LMN    62&53
00710  M01S00687.chd     +++|          NJN    RKE9        IF NOT SPACE (62B)
00711  M01S00688.chd     +++|          LDN    1R          CORRECT SPACE CODE
00712  M01S00689.chd     +++|          STD    CM
00713  M01S00690.chd     +++|          UJN    RKE10
00714  M01S00691.chd     +++|
00715  M01S00692.chd     +++| RKE9     LDD    CM
00716  M01S00693.chd     +++|          SBN    60
00717  M01S00694.chd     +++|          MJN    RKE10       IF LEGAL CHARACTER
00718  M01S00695.chd     +++|          LJM    RKEX        RETURN
00719  M01S00696.chd     +++|
00720  M01S00697.chd     +++| RKE10    LDD    CC
00721  M01S00698.chd     +++|          SBN    40D
00722  M01S00699.chd     +++|          PJN    RKE11       IF \ 40 CHARACTERS
00723  M01S00700.chd     +++|          AOD    CC          INCREMENT CHARACTER COUNT
00724  M01S00701.chd     +++| RKE11    LDD    CC          SET WORD COUNT
00725  M01S00702.chd     +++|          ADN    1
00726  M01S00703.chd     +++|          SHN    -1
00727  M01S00704.chd     +++|          STD    WC
00728  M01S00705.chd     +++|          LDD    CC
00729  M01S00706.chd     +++|          LPN    1
00730  M01S00707.chd     +++|          ZJN    RKE12       IF LOWER CHARACTER
00731  M01S00708.chd     +++|          LDD    CM          STORE UPPER CHARACTER
00732  M01S00709.chd     +++|          SHN    6
00733  M01S00710.chd     +++|          STM    KBUF-1,WC
00734  M01S00711.chd     +++|          UJN    RKE13
00735  M01S00712.chd     +++|
00736  M01S00713.chd     +++| RKE12    LDM    KBUF-1,WC   STORE LOWER CHARACTER
00737  M01S00714.chd     +++|          SCN    77
00738  M01S00715.chd     +++|          ADD    CM
00739  M01S00716.chd     +++|          STM    KBUF-1,WC
00740  M01S00717.chd     +++| RKE13    LDC    7001        PRESET 32 CHARACTERS/LINE
00741  M01S00718.chd     +++|          STM    DKEA
00742  M01S00719.chd     +++|          LDD    CC
00743  M01S00720.chd     +++|          SBN    31D
00744  M01S00721.chd     +++|          MJN    RKE14       IF < 30 CHARACTERS
00745  M01S00722.chd     +++|          SOM    DKEA        SET 64 CHARACTERS/LINE
00746  M01S00723.chd     +++| RKE14    LJM    RKEX        RETURN
00747  M01S00724.chd     +++|
00748  M01S00725.chd     +++| RKEB     DATA   C*REPEAT ENTRY.*
00749  M01S00726.chd     +++| DKE      TITLE  DKE - DISPLAY KEYBOARD ENTRY
00750  M01S00727.chd     +++|**        DKE - DISPLAY KEYBOARD ENTRY.
00751  M01S00016.ns22000 +++|*
00752  M01S00728.chd     +++|*         USES   T7.
00753  M01S00729.chd     +++|
00754  M01S00730.chd     +++|
00755  M01S00731.chd     +++| DKE      SUBR               ENTRY/EXIT
00756  M01S00732.chd     +++|          LDD    WC
00757  M01S00733.chd     +++|          ZJN    DKEX        RETURN IF NO ENTRY
00758  M01S00734.chd     +++|          LDC    7001        SELECT LEFT SCREEN
00759  M01S00735.chd     +++| DKEA     EQU    *-1         SIZE FUNCTION CODE
00760  M01S00736.chd     +++|          FAN    CH
00761  M01S00737.chd     +++|          ACN    CH
00762  M01S00738.chd     +++|          LDD    WC          DISPLAY ENTRY
00763  M01S00739.chd     +++|          ADN    2
00764  M01S00740.chd     +++|          STD    T7
00765  M01S00741.chd     +++|          OAM    DKEB,CH
00766  M01S00742.chd     +++|          DUP    3
00767  M01S00743.chd     +++|          LDD    T7
00768  M01S00744.chd     +++|          OAM    DKEB,CH
00769  M01S00745.chd     +++|          ENDD
00770  M01S00746.chd     +++|          DCN    CH
00771  M01S00747.chd     +++|          LJM    DKEX        RETURN
00772  M01S00748.chd     +++|
00773  M01S00749.chd     +++| DKEB     DATA   6002,7002
00774  M01S00750.chd     +++| KBUF     BSSZ   21D
00775  M01S00751.chd     +++| DBD      TITLE  LEFT SCREEN DISPLAYS
00776  M01S00752.chd     +++|**        DBD - DISPLAY CHESS BOARD.
00777  M01S00017.ns22000 +++|*
00778  M01S00753.chd     +++|*         USES   T5 - T7.
00779  M01S00018.ns22000 +++|*
00780  M01S00754.chd     +++|*         CALLS  DHL.
00781  M01S00755.chd     +++|
00782  M01S00756.chd     +++|
00783  M01S00757.chd     +++| DBD      SUBR               ENTRY/EXIT
00784  M01S00758.chd     +++|          FNC    7001,CH     SELECT LEFT SCREEN, 32 CHARACTERS/LINE
00785  M01S00759.chd     +++|          ACN    CH
00786  M01S00760.chd     +++|          LDC    YBRD        SET Y-COORDINATE
00787  M01S00761.chd     +++|          STD    T7
00788  M01S00762.chd     +++|          LDN    4           SET INDEX
00789  M01S00763.chd     +++|          STD    T5
00790  M01S00764.chd     +++| DBD1     LDD    T7          OUTPUT Y-COORDINATE
00791  M01S00765.chd     +++|          OAN    CH
00792  M01S00766.chd     +++|          RJM    DHL         DISPLAY A HORIZONTAL LINE
00793  M01S00767.chd     +++|          LDN    5           INITIALIZE INDEX
00794  M01S00768.chd     +++|          STD    T6
00795  M01S00769.chd     +++| DBD2     LDN    10          ADVANCE Y-COORDINATE
00796  M01S00770.chd     +++|          RAD    T7
00797  M01S00771.chd     +++|          OAN    CH
00798  M01S00772.chd     +++|          LDC    XBRD-4      OUTPUT X-COORDINATE
00799  M01S00773.chd     +++|          OAN    CH
00800  M01S00774.chd     +++|          LDN    DBDBL
00801  M01S00775.chd     +++|          OAM    DBDB,CH
00802  M01S00776.chd     +++|          SOD    T6          ADVANCE INDEX
00803  M01S00777.chd     +++|          NJN    DBD2        LOOP
00804  M01S00778.chd     +++|          LDN    10          ADVANCE Y-COORDINATE
00805  M01S00779.chd     +++|          RAD    T7
00806  M01S00780.chd     +++|          OAN    CH
00807  M01S00781.chd     +++|          LDC    XBRD-4
00808  M01S00782.chd     +++|          OAN    CH
00809  M01S00783.chd     +++|          LDN    DBDAL
00810  M01S00784.chd     +++|          OAM    DBDA,CH
00811  M01S00785.chd     +++|          LDD    T7          OUTPUT Y-COORDINATE
00812  M01S00786.chd     +++|          OAN    CH
00813  M01S00787.chd     +++|          RJM    DHL         DISPLAY A HORIZONTAL LINE
00814  M01S00788.chd     +++|          LDN    5           SET INDEX
00815  M01S00789.chd     +++|          STD    T6
00816  M01S00790.chd     +++| DBD3     LDN    10          ADVANCE Y-COORDINATE
00817  M01S00791.chd     +++|          RAD    T7
00818  M01S00792.chd     +++|          OAN    CH
00819  M01S00793.chd     +++|          LDC    XBRD-4      OUTPUT X-COORDINATE
00820  M01S00794.chd     +++|          OAN    CH
00821  M01S00795.chd     +++|          LDN    DBDCL
00822  M01S00796.chd     +++|          OAM    DBDC,CH
00823  M01S00797.chd     +++|          SOD    T6          ADVANCE INDEX
00824  M01S00798.chd     +++|          NJN    DBD3        LOOP IF NOT DONE
00825  M01S00799.chd     +++|          SOD    T5
00826  M01S00800.chd     +++|          ZJN    DBD4        IF 8 RANKS DISPLAYED
00827  M01S00801.chd     +++|          LDN    10          ADVANCE Y-COORDINATE
00828  M01S00802.chd     +++|          RAD    T7
00829  M01S00803.chd     +++|          OAN    CH
00830  M01S00804.chd     +++|          LDC    XBRD-4      OUTPUT X-COORDINATE
00831  M01S00805.chd     +++|          OAN    CH
00832  M01S00806.chd     +++|          LDN    DBDAL
00833  M01S00807.chd     +++|          OAM    DBDA,CH
00834  M01S00808.chd     +++|          LJM    DBD1        LOOP
00835  M01S00809.chd     +++|
00836  M01S00810.chd     +++| DBD4     LDN    10          ADVANCE Y-COORDINATE
00837  M01S00811.chd     +++|          RAD    T7
00838  M01S00812.chd     +++|          OAN    CH
00839  M01S00813.chd     +++|          RJM    DHL         DISPLAY TOP HORIZONTAL LINE
00840  M01S00814.chd     +++|
00841  M01S00815.chd     +++|*         DISPLAY FILE LABELS.
00842  M01S00816.chd     +++|
00843  M01S00817.chd     +++|          LDN    DBDDL
00844  M01S00818.chd     +++|          OAM    DBDD,CH
00845  M01S00819.chd     +++|
00846  M01S00820.chd     +++|*         DISPLAY RANK LABELS.
00847  M01S00821.chd     +++|
00848  M01S00822.chd     +++|          LDC    YBRD+550    SET STARTING Y-COORDINATE
00849  M01S00823.chd     +++|          STD    T7
00850  M01S00824.chd     +++|          LDN    0           INITIALIZE INDEX
00851  M01S00825.chd     +++|          STD    T6
00852  M01S00826.chd     +++| DBD5     LDC    XBRD-20     STARTING X-COORDINATE
00853  M01S00827.chd     +++|          OAN    CH
00854  M01S00828.chd     +++|          LDD    T7          OUTPUT Y-COORDINATE
00855  M01S00829.chd     +++|          OAN    CH
00856  M01S00830.chd     +++|          LDM    DBDE,T6     DISPLAY NEXT LABEL
00857  M01S00831.chd     +++|          OAN    CH
00858  M01S00832.chd     +++|          LCN    60          ADVANCE Y-COORDINATE
00859  M01S00833.chd     +++|          RAD    T7
00860  M01S00834.chd     +++|          AOD    T6          ADVANCE INDEX
00861  M01S00835.chd     +++|          LMN    8D
00862  M01S00836.chd     +++|          NJN    DBD5        LOOP FOR 8 LABELS
00863  M01S00837.chd     +++|          DCN    CH
00864  M01S00838.chd     +++|          LJM    DBDX
00865  M01S00839.chd     +++|
00866  M01S00840.chd     +++| DBDA     DATA   H*I  I  I  I  I  I  I  I  I*
00867  M01S00841.chd     +++| DBDAL    EQU    *-DBDA
00868  M01S00842.chd     +++| DBDB     DATA   H*I  I//I  I//I  I//I  I//I*
00869  M01S00843.chd     +++| DBDBL    EQU    *-DBDB
00870  M01S00844.chd     +++| DBDC     DATA   H*I//I  I//I  I//I  I//I  I*
00871  M01S00845.chd     +++| DBDCL    EQU    *-DBDC
00872  M01S00846.chd     +++| DBDD     CON    XBRD+24
00873  M01S00847.chd     +++|          CON    YBRD-20
00874  M01S00848.chd     +++|          BSSZ   11D         FILE LABEL BUFFER
00875  M01S00849.chd     +++| DBDDL    EQU    *-DBDD
00876  M01S00850.chd     +++| DBDE     BSSZ   8D
00877  M01S00851.chd     +++| DHL      SPACE  4
00878  M01S00852.chd     +++|**        DHL - DISPLAY A HORIZONTAL LINE.
00879  M01S00853.chd     +++|
00880  M01S00854.chd     +++|
00881  M01S00855.chd     +++| DHL      SUBR               ENTRY/EXIT
00882  M01S00856.chd     +++|          LDC    XBRD        DISPLAY LINE
00883  M01S00857.chd     +++|          OAN    CH
00884  M01S00858.chd     +++|          LDN    DHLAL
00885  M01S00859.chd     +++|          OAM    DHLA,CH
00886  M01S00860.chd     +++|          LDC    XBRD+10     DISPLAY SHIFTED LINE
00887  M01S00861.chd     +++|          OAN    CH
00888  M01S00862.chd     +++|          LDN    DHLAL
00889  M01S00863.chd     +++|          OAM    DHLA,CH
00890  M01S00864.chd     +++|          UJN    DHLX        RETURN
00891  M01S00865.chd     +++|
00892  M01S00866.chd     +++| DHLA     DATA   H*------------------------*
00893  M01S00867.chd     +++| DHLAL    EQU    *-DHLA
00894  M01S00868.chd     +++| DPC      SPACE  4
00895  M01S00869.chd     +++|**        DPC - DISPLAY PIECES.
00896  M01S00019.ns22000 +++|*
00897  M01S00870.chd     +++|*         USES   T6, T7, OT - OT+1.
00898  M01S00020.ns22000 +++|*
00899  M01S00871.chd     +++|*         CALLS  ABS.
00900  M01S00872.chd     +++|
00901  M01S00873.chd     +++|
00902  M01S00874.chd     +++| DPC      SUBR               ENTRY/EXIT
00903  M01S00875.chd     +++|          LDD    LM          COMPUTE BUFFER LENGTH
00904  M01S00876.chd     +++|          SBD    FT
00905  M01S00877.chd     +++|          SHN    14
00906  M01S00878.chd     +++|          ADD    LM+1
00907  M01S00879.chd     +++|          SBD    FT+1
00908  M01S00880.chd     +++|          MJN    DPCX        RETURN IF NEGATIVE
00909  M01S00881.chd     +++|          ZJN    DPCX        RETURN IF ZERO
00910  M01S00882.chd     +++|          STD    T7          SAVE BUFFER LENGTH
00911  M01S00883.chd     +++|          LDC    BUFL        SET BUFFER LENGTH
00912  M01S00884.chd     +++|          STD    T6
00913  M01S00885.chd     +++|          LCMA   FT          SET STARTING ADDRESS
00914  M01S00886.chd     +++|          RJM    ABS
00915  M01S00887.chd     +++|          SCMA   OT
00916  M01S00888.chd     +++|          LCMA   LM          CHECK BUFFER LIMIT
00917  M01S00889.chd     +++|          RJM    ABS
00918  M01S00890.chd     +++|          FNC    7010,CH     SELECT LEFT SCREEN, DOT MODE
00919  M01S00891.chd     +++|          ACN    CH
00920  M01S00892.chd     +++| DPC1     LDC    -BUFL
00921  M01S00893.chd     +++|          RAD    T7
00922  M01S00894.chd     +++|          MJN    DPC2        IF NOT A FULL PP BUFFER
00923  M01S00895.chd     +++|          LCMA   OT          FILL PP BUFFER
00924  M01S00896.chd     +++|          CRM    BUF,T6      FILL PP BUFFER
00925  M01S00897.chd     +++|          SCMA   OT          SET NEXT STARTING ADDRESS
00926  M01S00898.chd     +++|          LDC    BUFL*5      DISPLAY
00927  M01S00899.chd     +++|          OAM    BUF,CH
00928  M01S00900.chd     +++|          UJN    DPC1        LOOP
00929  M01S00901.chd     +++|
00930  M01S00902.chd     +++| DPC2     ADC    BUFL        COMPUTE WORDS LEFT
00931  M01S00903.chd     +++|          ZJN    DPC3        RETURN IF ZERO
00932  M01S00904.chd     +++|          STD    T6
00933  M01S00905.chd     +++|          LCMA   OT          LOAD PP BUFFER
00934  M01S00906.chd     +++|          CRM    BUF,T6
00935  M01S00907.chd     +++|          LDD    T6          DISPLAY
00936  M01S00908.chd     +++|          SHN    2
00937  M01S00909.chd     +++|          ADD    T6
00938  M01S00910.chd     +++|          OAM    BUF,CH
00939  M01S00911.chd     +++| DPC3     DCN    CH
00940  M01S00912.chd     +++|          LJM    DPCX
00941  M01S00913.chd     +++| DOE      SPACE  4
00942  M01S00914.chd     +++|**        DOE - DISPLAY OUTPUT AND ERROR MESSAGES.
00943  M01S00021.ns22000 +++|*
00944  M01S00915.chd     +++|*         CALLS  DPM.
00945  M01S00916.chd     +++|
00946  M01S00917.chd     +++|
00947  M01S00918.chd     +++| DOE1     DCN    CH
00948  M01S00919.chd     +++|
00949  M01S00920.chd     +++| DOE      SUBR               ENTRY/EXIT
00950  M01S00921.chd     +++|          FNC    7001,CH     SELECT LEFT SCREEN, 32 CHARACTERS/LINE
00951  M01S00922.chd     +++|          ACN    CH
00952  M01S00923.chd     +++|          DUP    3
00953  M01S00924.chd     +++|          LDC    DOEA
00954  M01S00925.chd     +++|          RJM    DPM
00955  M01S00926.chd     +++|          ENDD
00956  M01S00927.chd     +++|          LDD    KM
00957  M01S00928.chd     +++|          ZJN    DOE1        EXIT IF NO MESSAGE
00958  M01S00929.chd     +++|          DUP    3
00959  M01S00930.chd     +++|          LDC    6000
00960  M01S00931.chd     +++|          OAN    CH
00961  M01S00932.chd     +++|          LDC    7024
00962  M01S00933.chd     +++|          OAN    CH
00963  M01S00934.chd     +++|          LDD    KM
00964  M01S00935.chd     +++|          RJM    DPM
00965  M01S00936.chd     +++|          ENDD
00966  M01S00937.chd     +++|          LJM    DOE1        RETURN
00967  M01S00938.chd     +++|
00968  M01S00939.chd     +++| DOEA     DATA   6000,7050
00969  M01S00940.chd     +++| DOEB     BSSZ   16D
00970  M01S00941.chd     +++| DLM      TITLE  RIGHT SCREEN DISPLAYS
00971  M01S00942.chd     +++|**        DLM - DISPLAY LIMITS AND CURRENT TREE POSITION.
00972  M01S00022.ns22000 +++|*
00973  M01S00943.chd     +++|*         USES   T6, T7.
00974  M01S00023.ns22000 +++|*
00975  M01S00944.chd     +++|*         CALLS  DPM, ABS, CDD.
00976  M01S00945.chd     +++|
00977  M01S00946.chd     +++|
00978  M01S00947.chd     +++| DLM      SUBR               ENTRY/EXIT
00979  M01S00948.chd     +++|          FNC    7101,CH     SELECT RIGHT SCREEN, 32 CHARACTERS/LINE
00980  M01S00949.chd     +++|          ACN    CH
00981  M01S00950.chd     +++|          LDC    XLIM        OUTPUT INITIAL COORDINATES
00982  M01S00951.chd     +++|          OAN    CH
00983  M01S00952.chd     +++|          LDC    YLIM
00984  M01S00953.chd     +++|          OAN    CH
00985  M01S00954.chd     +++|          LDD    LF
00986  M01S00955.chd     +++|          NJN    DLM1        IF LIMIT FLAG SET
00987  M01S00956.chd     +++|          LDN    DLMAL       DISPLAY *LIMITS-*
00988  M01S00957.chd     +++|          OAM    DLMA,CH
00989  M01S00958.chd     +++| DLM1     LDC    DLMC        DISPLAY LIMITS
00990  M01S00959.chd     +++|          RJM    DPM
00991  M01S00960.chd     +++|          LDN    LLIM        SET WORD COUNT
00992  M01S00961.chd     +++|          STD    T6
00993  M01S00962.chd     +++|          LCMA   A.TR        READ LIMITS
00994  M01S00963.chd     +++|          RJM    ABS
00995  M01S00964.chd     +++|          CRM    BUF,T6
00996  M01S00965.chd     +++|          LDC    BUF-1       SET POINTER
00997  M01S00966.chd     +++|          STD    T6
00998  M01S00967.chd     +++|          LDN    LLIM        SET COUNTER
00999  M01S00968.chd     +++|          STD    T7          INITIALIZE INDEX
01000  M01S00969.chd     +++|          LDC    YLIM-20     OUTPUT STARTING COORDINATES
01001  M01S00970.chd     +++|          OAN    CH
01002  M01S00971.chd     +++|          LDC    XLIM
01003  M01S00972.chd     +++|          OAN    CH
01004  M01S00973.chd     +++|          LDD    LF
01005  M01S00974.chd     +++|          NJN    DLM3        IF LIMIT FLAG SET
01006  M01S00975.chd     +++|          LDN    DLMBL       DISPLAY *NOW AT-*
01007  M01S00976.chd     +++|          OAM    DLMB,CH
01008  M01S00977.chd     +++|          UJN    DLM3
01009  M01S00978.chd     +++|
01010  M01S00979.chd     +++| DLM2     LDN    0           DISPLAY *  *
01011  M01S00980.chd     +++|          OAN    CH
01012  M01S00981.chd     +++| DLM3     LDN    5           ADVANCE POINTER
01013  M01S00982.chd     +++|          RAD    T6
01014  M01S00983.chd     +++|          LDI    T6          LOAD LIMIT
01015  M01S00984.chd     +++|          ZJN    DLM4        EXIT ON ZERO BYTE
01016  M01S00985.chd     +++|          RJM    CDD         CONVERT TO DISPLAY CODE
01017  M01S00986.chd     +++|          OAN    CH          DISPLAY
01018  M01S00987.chd     +++|          SOD    T7          DECREMENT COUNTER
01019  M01S00988.chd     +++|          NJN    DLM2        LOOP
01020  M01S00989.chd     +++| DLM4     DCN    CH
01021  M01S00990.chd     +++|          LJM    DLMX        RETURN
01022  M01S00991.chd     +++|
01023  M01S00992.chd     +++| DLMA     DATA   C*LIMITS-*
01024  M01S00993.chd     +++| DLMAL    EQU    *-DLMA
01025  M01S00994.chd     +++| DLMB     DATA   C*NOW AT-*
01026  M01S00995.chd     +++| DLMBL    EQU    *-DLMB
01027  M01S00996.chd     +++| DLMC     DIS    2*LLIM-1,
01028  M01S00997.chd     +++|          DATA   0
01029  M01S00998.chd     +++| DGC      SPACE  4
01030  M01S00999.chd     +++|**        DGC - DISPLAY GAME CLOCKS.
01031  M01S01000.chd     +++|
01032  M01S01001.chd     +++|
01033  M01S01002.chd     +++| DGC      SUBR               ENTRY/EXIT
01034  M01S01003.chd     +++|          FNC    7102,CH     SELECT RIGHT SCREEN, 16 CHARACTERS/LINE
01035  M01S01004.chd     +++|          ACN    CH
01036  M01S01005.chd     +++|          DUP    4,2
01037  M01S01006.chd     +++|          LDN    UGCAL
01038  M01S01007.chd     +++|          OAM    UGCA,CH
01039  M01S01008.chd     +++|          DCN    CH
01040  M01S01009.chd     +++|          UJN    DGCX
01041  M01S01010.chd     +++| DOS      SPACE  4
01042  M01S01011.chd     +++|**        DOS - DISPLAY OPTIONS AND GAME SCORE.
01043  M01S00024.ns22000 +++|*
01044  M01S01012.chd     +++|*         USES   T5 - T7.
01045  M01S00025.ns22000 +++|*
01046  M01S01013.chd     +++|*         CALLS  ABS.
01047  M01S01014.chd     +++|
01048  M01S01015.chd     +++|
01049  M01S01016.chd     +++| DOS      SUBR               ENTRY/EXIT
01050  M01S01017.chd     +++|          FNC    7101,CH     SELECT RIGHT SCREEN, 32 CHARACTERS/LINE
01051  M01S01018.chd     +++|          ACN    CH
01052  M01S01019.chd     +++|          LDN    DOSCL       DISPLAY *OPTIONS *
01053  M01S01020.chd     +++|          OAM    DOSC,CH
01054  M01S01021.chd     +++|          LDN    DOSDL       DISPLAY PLAYER NAMES
01055  M01S01022.chd     +++|          OAM    DOSD,CH
01056  M01S01023.chd     +++|          DCN    CH
01057  M01S01024.chd     +++|          FNC    7100,CH     SELECT RIGHT SCREEN, 64 CHARACTERS/LINE
01058  M01S01025.chd     +++|          ACN    CH
01059  M01S01026.chd     +++|          LDN    LOPT        SET CM WORD COUNT
01060  M01S01027.chd     +++|          STD    T6
01061  M01S01028.chd     +++|          LCMA   A.OP        READ OPTION LIST
01062  M01S01029.chd     +++|          RJM    ABS
01063  M01S01030.chd     +++|          CRM    BUF,T6
01064  M01S01031.chd     +++|          LDC    YOPT        OUTPUT Y-COORDINATE
01065  M01S01032.chd     +++|          STD    T7
01066  M01S01033.chd     +++|          OAN    CH
01067  M01S01034.chd     +++|          LDC    BUF
01068  M01S01035.chd     +++|          STM    DOSA        SET POINTER TO OPTION LIST
01069  M01S01036.chd     +++|          STM    DOSB        SET POINTER TO SCORE
01070  M01S01037.chd     +++| DOS1     LDC    XOPT+240    OUTPUT X-COORDINATE
01071  M01S01038.chd     +++|          OAN    CH
01072  M01S01039.chd     +++| DOS2     LDN    5           DISPLAY ONE CM WORD
01073  M01S01040.chd     +++|          OAM    **,CH
01074  M01S01041.chd     +++| DOSA     EQU    *-1
01075  M01S01042.chd     +++|          OAN    CH          DISPLAY *  *
01076  M01S01043.chd     +++|          LDN    5           ADVANCE POINTER
01077  M01S01044.chd     +++|          RAM    DOSA
01078  M01S01045.chd     +++|          SOD    T6          DECREMENT WORD COUNT
01079  M01S01046.chd     +++|          ZJN    DOS3        IF DONE
01080  M01S01047.chd     +++|          LMN    3           IF THREE WORDS COMPLETE
01081  M01S01048.chd     +++|          NJN    DOS2        LOOP FOR THREE WORDS
01082  M01S01049.chd     +++|          LCN    12          ADVANCE Y-COORDINATE
01083  M01S01050.chd     +++|          RAD    T7
01084  M01S01051.chd     +++|          OAN    CH
01085  M01S01052.chd     +++|          UJN    DOS1        LOOP FOR NEXT LINE
01086  M01S01053.chd     +++|
01087  M01S01054.chd     +++|*         DISPLAY GAME SCORE.
01088  M01S01055.chd     +++|
01089  M01S01056.chd     +++| DOS3     LDC    LSCR        SET CM WORD COUNT
01090  M01S01057.chd     +++|          STD    T6
01091  M01S01058.chd     +++|          SHN    -1          SET INDEX
01092  M01S01059.chd     +++|          STD    T5
01093  M01S01060.chd     +++|          LCMA   A.GS        READ GAME SCORE BUFFER
01094  M01S01061.chd     +++|          RJM    ABS
01095  M01S01062.chd     +++|          CRM    BUF,T6
01096  M01S01063.chd     +++|          LDC    YSCR        OUTPUT Y-COORDINATE
01097  M01S01064.chd     +++|          STD    T7
01098  M01S01065.chd     +++|          OAN    CH
01099  M01S01066.chd     +++| DOS4     LDC    XSCR        OUTPUT X-COORDINATE
01100  M01S01067.chd     +++|          OAN    CH
01101  M01S01068.chd     +++| DOS5     LDN    2*5         DISPLAY TWO CM WORDS
01102  M01S01069.chd     +++|          OAM    **,CH
01103  M01S01070.chd     +++| DOSB     EQU    *-1
01104  M01S01071.chd     +++|          LDC    XSCR+300    ADVANCE X-COORDINATE
01105  M01S01072.chd     +++|          OAN    CH
01106  M01S01073.chd     +++|          LDN    2*5         ADVANCE POINTER
01107  M01S01074.chd     +++|          RAM    DOSB
01108  M01S01075.chd     +++|          SOD    T5          ADVANCE INDEX
01109  M01S01076.chd     +++|          ZJN    DOS6        IF DONE
01110  M01S01077.chd     +++|          LPN    1
01111  M01S01078.chd     +++|          NJN    DOS5        LOOP FOR NEXT WORD
01112  M01S01079.chd     +++|          LCN    12          ADVANCE Y-COORDINATE
01113  M01S01080.chd     +++|          RAD    T7
01114  M01S01081.chd     +++|          OAN    CH
01115  M01S01082.chd     +++|          UJN    DOS4        LOOP FOR NEXT LINE
01116  M01S01083.chd     +++|
01117  M01S01084.chd     +++| DOS6     DCN    CH
01118  M01S01085.chd     +++|          LJM    DOSX
01119  M01S01086.chd     +++|
01120  M01S01087.chd     +++| DOSC     CON    XOPT        X-COORDINATE
01121  M01S01088.chd     +++|          CON    YOPT-10     Y-COORDINATE
01122  M01S01089.chd     +++|          DATA   C*OPTIONS *
01123  M01S01090.chd     +++| DOSCL    EQU    *-DOSC
01124  M01S01091.chd     +++|
01125  M01S01092.chd     +++| DOSD     CON    YNAM
01126  M01S01093.chd     +++|          CON    XNAM
01127  M01S01094.chd     +++| DOSE     BSSZ   5
01128  M01S01095.chd     +++|          CON    XNAM+310
01129  M01S01096.chd     +++| DOSF     BSSZ   5
01130  M01S01097.chd     +++| DOSDL    EQU    *-DOSD
01131  M01S01098.chd     +++| SYSDIS   SPACE  4
01132  M01S01099.chd     +++|**        DSS    - DISPLAY SYSTEM STATUS.
01133  M01S00026.ns22000 +++|*
01134  M01S01100.chd     +++|*         CALLS  SYS.
01135  M01S01101.chd     +++|
01136  M01S01102.chd     +++|
01137  M01S01103.chd     +++| DSS      SUBR               ENTRY/EXIT
01138  M01S01104.chd     +++|          LDC    6000        SET X-COORDINATE
01139  M01S01105.chd     +++|          STD    XC
01140  M01S01106.chd     +++|          RJM    SYS
01141  M01S00007.v23l617 +++|          DCN    CH+40
01142  M01S01107.chd     +++|          UJN    DSSX
01143  M01S01108.chd     +++| DPM      TITLE  DISPLAY SUBROUTINES
01144  M01S01109.chd     +++|**        DPM - DISPLAY PERIPHERAL MEMORY.
01145  M01S00027.ns22000 +++|*
01146  M01S01110.chd     +++|*         ENTRY  (A) = FWA OF DISPLAY DATA.
01147  M01S00028.ns22000 +++|*
01148  M01S01111.chd     +++|*         USES   T0.
01149  M01S01112.chd     +++|
01150  M01S01113.chd     +++|
01151  M01S01114.chd     +++| DPM      SUBR               ENTRY/EXIT
01152  M01S01115.chd     +++|          STD    T0          SET START ADDRESS
01153  M01S01116.chd     +++| DPM1     LDI    T0
01154  M01S01117.chd     +++|          ZJN    DPMX        IF ZERO BYTE
01155  M01S01118.chd     +++|          OAN    CH
01156  M01S01119.chd     +++|          AOD    T0          ADVANCE POINTER
01157  M01S01120.chd     +++|          UJN    DPM1
01158  M01S01121.chd     +++| MDC      SPACE  4
01159  M01S01122.chd     +++|**        MDC - MODIFY CHANNEL INSTRUCTIONS.
01160  M01S00029.ns22000 +++|*
01161  M01S01123.chd     +++|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED.
01162  M01S00030.ns22000 +++|*
01163  M01S01124.chd     +++|*         USES   T1, T2, T3.
01164  M01S01125.chd     +++|
01165  M01S01126.chd     +++|
01166  M01S01127.chd     +++| MDC      SUBR               ENTRY/EXIT
01167  M01S01128.chd     +++|          LDM    /COMDDSP/DDSB  CHECK ASSIGNED CHANNEL
01168  M01S01129.chd     +++|          STD    T3
01169  M01S01130.chd     +++|          CHTE   *
01170  M01S01131.chd     +++|          LMN    CH
01171  M01S01132.chd     +++|          ZJN    MDCX        IF CHANNELS MODIFIED
01172  M01S01133.chd     +++|          LDC    TCHS        MODIFY CHANNELS
01173  M01S01134.chd     +++|          STD    T1
01174  M01S01135.chd     +++| MDC1     LDI    T1
01175  M01S01136.chd     +++|          ZJN    MDC2        IF CHANNEL TABLE MODIFICATION COMPLETE
01176  M01S01137.chd     +++|          STD    T2
01177  M01S01138.chd     +++|          LDI    T2
01178  M01S01139.chd     +++|          SCN    77
01179  M01S01140.chd     +++|          ADD    T3
01180  M01S01141.chd     +++|          STI    T2
01181  M01S01142.chd     +++|          AOD    T1
01182  M01S01143.chd     +++|          UJN    MDC1        LOOP
01183  M01S01144.chd     +++| MDC2     LDC    MDCA        SET 1ST ADDRESS FOR BLIND MODIFICATION
01184  M01S01145.chd     +++|          STD    T1
01185  M01S01146.chd     +++| MDC3     AOD    T1          ADVANCE ADDRESS
01186  M01S01147.chd     +++|          LMC    MDCB
01187  M01S01148.chd     +++|          ZJN    MDCX        RETURN IF COMPLETE
01188  M01S01149.chd     +++|          LDI    T1          CHECK WORD
01189  M01S01150.chd     +++|          LPC    7077
01190  M01S01151.chd     +++|          LMC    7000+CH
01191  M01S01152.chd     +++|          NJN    MDC3        IF NOT 7XCH
01192  M01S01153.chd     +++|          LDI    T1          MODIFY CHANNEL
01193  M01S01154.chd     +++|          SCN    77
01194  M01S01155.chd     +++|          ADD    T3
01195  M01S01156.chd     +++|          STI    T1
01196  M01S01157.chd     +++|          UJN    MDC3
01197  M01S01158.chd     +++| TCHS     SPACE  4
01198  M01S01159.chd     +++|**        TCHS - TABLE OF CHANNEL INSTRUCTIONS.
01199  M01S01160.chd     +++|
01200  M01S01161.chd     +++|
01201  M01S01162.chd     +++| TCHS     CHTB
01202  M01S01163.chd     +++|
01203  M01S01164.chd     +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
01204  M01S01165.chd     +++|          SPACE  4
01205  M01S01166.chd     +++|**        COMMON DECKS.
01206  M01S00031.ns22000 +++|*
01207  M01S01167.chd     +++|
01208  M01S01168.chd     +++| MDCA     BSS    0           FIRST ADDRESS FOR BLIND CHANNEL MOD
01209  M01S01169.chd     +++|
01210  M01S01170.chd     +++|*CALL     COMDSYS
01211  M01S01171.chd     +++|*CALL     COMDDSP
01212  M01S01172.chd     +++|
01213  M01S01173.chd     +++| MDCB     BSS    0           LIMIT ADDRESS FOR BLIND CHANNEL MOD
01214  M01S01174.chd     +++| PFP      TITLE  PROCESS FLASHING PIECE
01215  M01S01175.chd     +++|**        PFP - PROCESS FLASHING PIECE.
01216  M01S00032.ns22000 +++|*
01217  M01S01176.chd     +++|*         CALLS  SB0.
01218  M01S01177.chd     +++|
01219  M01S01178.chd     +++|
01220  M01S01179.chd     +++| PFPD     BSSZ   2           POINTER BUFFER
01221  M01S01180.chd     +++|
01222  M01S01181.chd     +++| PFP      SUBR               ENTRY/EXIT
01223  M01S01182.chd     +++|          LDC    **
01224  M01S01183.chd     +++| PFPA     EQU    *-1         FLASH STATUS FLAG
01225  M01S01184.chd     +++|          ZJN    PFPX
01226  M01S01185.chd     +++|          SOM    PFPB        DECREMENT CYCLE COUNT
01227  M01S01186.chd     +++|          NJN    PFPX
01228  M01S01187.chd     +++|          LDN    CPF
01229  M01S01188.chd     +++|          STM    PFPB        RESET CYCLE COUNT
01230  M01S01189.chd     +++|          SOM    PFPC        DECREMENT FLASH COUNT
01231  M01S01190.chd     +++|          MJN    PFP2        IF FINISHED
01232  M01S01191.chd     +++|          LPN    1           TOGGLE ON OR OFF
01233  M01S01192.chd     +++|          NJN    PFP1
01234  M01S01193.chd     +++|          TCMA   PFPD,LM     SWITCH ON
01235  M01S01194.chd     +++|          UJN    PFPX        RETURN
01236  M01S01195.chd     +++|
01237  M01S01196.chd     +++| PFP1     TCMA   LM,PFPD     SWITCH OFF
01238  M01S01197.chd     +++|          TCMA   SW+2,LM
01239  M01S01198.chd     +++|          LJM    PFPX        RETURN
01240  M01S01199.chd     +++|
01241  M01S01200.chd     +++| PFP2     LDN    FPM/2*2     RESET FLASHES/MOVE
01242  M01S01201.chd     +++|          STM    PFPC
01243  M01S01202.chd     +++|          LDN    0
01244  M01S01203.chd     +++|          STM    PFPA        CLEAR FLASH STATUS FLAG
01245  M01S01204.chd     +++|          RJM    SB0
01246  M01S01205.chd     +++|          LJM    PFPX        RETURN
01247  M01S01206.chd     +++|
01248  M01S01207.chd     +++| PFPB     CON    CPF         CYCLES/FLASH
01249  M01S01208.chd     +++| PFPC     CON    FPM/2*2     FLASHES /MOVE
01250  M01S01209.chd     +++| SKE      TITLE  SKE - STORE KEYBOARD ENTRY IN CM
01251  M01S01210.chd     +++|**        SKE - STORE KEYBOARD BUFFER.
01252  M01S00033.ns22000 +++|*
01253  M01S01211.chd     +++|*         EXIT   KEYBOARD BUFFER STORED IN CM WITH ZERO BYTE
01254  M01S01212.chd     +++|*                APPENDED.
01255  M01S00034.ns22000 +++|*
01256  M01S01213.chd     +++|*         USES   T7, CM - CM+4.
01257  M01S00035.ns22000 +++|*
01258  M01S01214.chd     +++|*         CALLS  ABS, SB0.
01259  M01S01215.chd     +++|
01260  M01S01216.chd     +++|
01261  M01S01217.chd     +++| SKE      SUBR               ENTRY/EXIT
01262  M01S01218.chd     +++|          LDD    CR          CHECK CARRIAGE RETURN FLAG
01263  M01S01219.chd     +++|          ZJN    SKEX        RETURN IF NOT SET
01264  M01S01220.chd     +++|          LDD    SW+4
01265  M01S01221.chd     +++|          ZJN    SKE1        IF CP READY TO READ
01266  M01S01222.chd     +++|          LDD    WF          CHECK WAITING FOR CP FLAG
01267  M01S01223.chd     +++|          NJN    SKEX        IF PREVIOUSLY SET
01268  M01S01224.chd     +++|          LDN    1           SET FLAG
01269  M01S01225.chd     +++|          STD    WF
01270  M01S01226.chd     +++|          LDD    KM          SAVE CURRENT MESSAGE
01271  M01S01227.chd     +++|          STM    SKEA
01272  M01S01228.chd     +++|          LDC    SKEB        DISPLAY *WAITING - CP BUSY.*
01273  M01S01229.chd     +++|          STD    KM
01274  M01S01230.chd     +++|          UJN    SKEX
01275  M01S01231.chd     +++|
01276  M01S01232.chd     +++| SKE1     STM    KBUF,WC     SET ZERO BYTE
01277  M01S01233.chd     +++|          STD    CR          CLEAR CR FLAG
01278  M01S01234.chd     +++|          STD    WF          CLEAR WAITING FLAG
01279  M01S01235.chd     +++|          LDD    KM
01280  M01S01236.chd     +++|          LMC    SKEB
01281  M01S01237.chd     +++|          NJN    SKE2        IF WAITING MESSAGE STILL UP
01282  M01S01238.chd     +++|          LDC    **
01283  M01S01239.chd     +++| SKEA     EQU    *-1         PREVIOUS MESSAGE ADDRESS
01284  M01S01240.chd     +++|          STD    KM
01285  M01S01241.chd     +++| SKE2     LDN    4           SET CONSTANT 4
01286  M01S01242.chd     +++|          STD    T7
01287  M01S01243.chd     +++|          LDD    A.SW        READ INPUT MESSAGE BUFFER
01288  M01S01244.chd     +++|          SHN    14
01289  M01S01245.chd     +++|          ADD    A.SW+1
01290  M01S01246.chd     +++|          ADN    P.IM
01291  M01S01247.chd     +++|          CRD    CM
01292  M01S01248.chd     +++|          LCMA   CM+3        WRITE BUFFER
01293  M01S01249.chd     +++|          RJM    ABS
01294  M01S01250.chd     +++|          CWM    KBUF,T7
01295  M01S01251.chd     +++|          RJM    SB0
01296  M01S01252.chd     +++|          LJM    SKEX        RETURN
01297  M01S01253.chd     +++|
01298  M01S01254.chd     +++| SKEB     DATA   C*WAITING - CP BUSY.*
01299  M01S01255.chd     +++| UGC      TITLE  GAME CLOCKS
01300  M01S01256.chd     +++|**        UGC - UPDATE GAME CLOCKS.
01301  M01S01257.chd     +++|
01302  M01S01258.chd     +++|
01303  M01S01259.chd     +++| UGC      SUBR               ENTRY/EXIT
01304  M01S01260.chd     +++|          LDD    GC
01305  M01S01261.chd     +++|          ZJN    UGCX        RETURN IF CLOCKS STOPPED
01306  M01S01262.chd     +++|          LDC    RTCL        READ REAL TIME CLOCK
01307  M01S01263.chd     +++|          CRD    CM
01308  M01S01264.chd     +++|          LDD    CM+1
01309  M01S01265.chd     +++|          SBD    SC          COMPARE CLOCKS
01310  M01S01266.chd     +++|          ZJN    UGCX        RETURN IF SAME
01311  M01S01267.chd     +++|          RAD    SC          RESET SECOND CLOCK
01312  M01S01268.chd     +++|          LDD    GC          CHECK GAME CLOCKS
01313  M01S01269.chd     +++|          SCN    1
01314  M01S01270.chd     +++|          NJN    UGC3        IF CLOCK B
01315  M01S01271.chd     +++|          SOM    CLKAO       DECREMENT BY 1 SECOND
01316  M01S01272.chd     +++|          NJN    UGC2        IF NON-ZERO
01317  M01S01273.chd     +++| UGC1     RJM    TUP
01318  M01S01274.chd     +++|          UJN    UGCX        RETURN
01319  M01S01275.chd     +++|
01320  M01S01276.chd     +++| UGC2     RJM    CTD         CONVERT SECONDS TO DISPLAY CODE
01321  M01S01277.chd     +++|          STM    UGCC        STORE MINUTES
01322  M01S01278.chd     +++|          LDD    CM
01323  M01S01279.chd     +++|          STM    UGCD        STORE SECONDS
01324  M01S01280.chd     +++|          LJM    UGCX        RETURN
01325  M01S01281.chd     +++|
01326  M01S01282.chd     +++| UGC3     SOM    CLKBO       DECREMENT BY ONE SECOND
01327  M01S01283.chd     +++|          ZJN    UGC1        IF TIME IS UP
01328  M01S01284.chd     +++|          RJM    CTD         CONVERT SECONDS TO DISPLAY CODE
01329  M01S01285.chd     +++|          STM    UGCF        STORE MINUTES
01330  M01S01286.chd     +++|          LDD    CM
01331  M01S01287.chd     +++|          STM    UGCG        STORE SECONDS
01332  M01S01288.chd     +++|          LJM    UGCX        RETURN
01333  M01S01289.chd     +++|
01334  M01S01290.chd     +++| UGCA     CON    XCLK
01335  M01S01291.chd     +++|          CON    YCLK
01336  M01S01292.chd     +++| UGCB     CON    0
01337  M01S01293.chd     +++| UGCC     CON    2R10
01338  M01S01294.chd     +++|          CON    XCLK+204
01339  M01S01295.chd     +++| UGCD     CON    2R00
01340  M01S01296.chd     +++| UGCE     CON    0
01341  M01S01297.chd     +++| UGCF     CON    2R10
01342  M01S01298.chd     +++|          CON    XCLK+510
01343  M01S01299.chd     +++| UGCG     CON    2R00
01344  M01S01300.chd     +++|          CON    YCLK+5
01345  M01S01301.chd     +++|          CON    XCLK+176
01346  M01S01302.chd     +++|          CON    2R.
01347  M01S01303.chd     +++|          CON    XCLK+502
01348  M01S01304.chd     +++|          CON    2R.
01349  M01S01305.chd     +++|          CON    YCLK+20
01350  M01S01306.chd     +++|          CON    XCLK+176
01351  M01S01307.chd     +++|          CON    2R.
01352  M01S01308.chd     +++|          CON    XCLK+502
01353  M01S01309.chd     +++|          CON    2R.
01354  M01S01310.chd     +++| UGCAL    EQU    *-UGCA
01355  M01S01311.chd     +++| TUP      SPACE  4
01356  M01S01312.chd     +++|**        TUP - TIME IS UP FOR A PLAYER.
01357  M01S01313.chd     +++|
01358  M01S01314.chd     +++|
01359  M01S01315.chd     +++| TUP      SUBR               ENTRY/EXIT
01360  M01S01316.chd     +++|          LDN    0           CLEAR STATUS
01361  M01S01317.chd     +++|          CRD    SW
01362  M01S01318.chd     +++|          LDN    0           CLEAR OUTPUT MESSAGE
01363  M01S01319.chd     +++|          STM    DOEB
01364  M01S01320.chd     +++|          LDD    A.SW        CLEAR INPUT MESSAGE
01365  M01S01321.chd     +++|          SHN    14
01366  M01S01322.chd     +++|          ADD    A.SW+1
01367  M01S01323.chd     +++|          ADN    P.IM
01368  M01S01324.chd     +++|          CRD    CM
01369  M01S01325.chd     +++|          LCMA   CM+3
01370  M01S01326.chd     +++|          RJM    ABS
01371  M01S01327.chd     +++|          CWD    SW
01372  M01S01328.chd     +++|          LDD    GC          CHECK GAME CLOCKS
01373  M01S01329.chd     +++|          SCN    1
01374  M01S01330.chd     +++|          NJN    TUP1        IF CLOCK B
01375  M01S01331.chd     +++|          LDC    2R
01376  M01S01332.chd     +++|          STM    UGCB        FLAG CLOCK A
01377  M01S01333.chd     +++|          LDC    2R00        SET SECONDS TO ZERO
01378  M01S01334.chd     +++|          STM    UGCD
01379  M01S01335.chd     +++|          UJN    TUP2
01380  M01S01336.chd     +++|
01381  M01S01337.chd     +++| TUP1     LDC    2R
01382  M01S01338.chd     +++|          STM    UGCE        FLAG CLOCK B
01383  M01S01339.chd     +++|          LDC    2R00        SET SECONDS TO ZERO
01384  M01S01340.chd     +++|          STM    UGCG
01385  M01S01341.chd     +++| TUP2     RJM    AKL         SET COMPLETE BIT AND CLEAR MESSAGES
01386  M01S01342.chd     +++|          LDN    0           STOP CLOCKS
01387  M01S01343.chd     +++|          STD    GC
01388  M01S01344.chd     +++|          LJM    TUPX        RETURN
01389  M01S01345.chd     +++| ABS      TITLE  CONVERSION  ROUTINES
01390  M01S01346.chd     +++|**        ABS - CONVERT RELATIVE ADDRESS TO ABSOLUTE.
01391  M01S00036.ns22000 +++|*
01392  M01S01347.chd     +++|*         ENTRY  (A) = RELATIVE ADDRESS.
01393  M01S00037.ns22000 +++|*
01394  M01S01348.chd     +++|*         EXIT   (A) = ABSOLUTE ADDRESS IF IN RANGE.
01395  M01S01349.chd     +++|*                ABORT IF ADDRESS OUT OF RANGE.
01396  M01S01350.chd     +++|
01397  M01S01351.chd     +++|
01398  M01S01352.chd     +++| ABS1     SHN    14
01399  M01S01353.chd     +++|          ADD    FL
01400  M01S01354.chd     +++|          ADD    RA
01401  M01S01355.chd     +++|          SHN    6
01402  M01S01356.chd     +++|
01403  M01S01357.chd     +++| ABS      SUBR               ENTRY/EXIT
01404  M01S01358.chd     +++|          SHN    14
01405  M01S01359.chd     +++|          SBD    FL
01406  M01S01360.chd     +++|          SHN    6
01407  M01S01361.chd     +++|          MJN    ABS1        IF IN RANGE
01408  M01S01362.chd     +++|          LDC    ABSA+CPON   MESSAGE = *POINTER OUT OF RANGE.*
01409  M01S01363.chd     +++|          RJM    DFM
01410  M01S01364.chd     +++|          LJM    ABT         ABORT JOB
01411  M01S01365.chd     +++|
01412  M01S01366.chd     +++| ABSA     DATA   C*CHD - POINTER OUT OF RANGE.*
01413  M01S01367.chd     +++| CDD      SPACE  4
01414  M01S01368.chd     +++|**        CDD - CONVERT OCTAL TO DISPLAY CODED DECIMAL.
01415  M01S00038.ns22000 +++|*
01416  M01S01369.chd     +++|*         ENTRY  (A) = OCTAL NUMBER TO BE CONVERTED.
01417  M01S00039.ns22000 +++|*
01418  M01S01370.chd     +++|*         EXIT   (A) = NUMBER IN DISPLAY CODED DECIMAL.
01419  M01S00040.ns22000 +++|*
01420  M01S01371.chd     +++|*         USES   T0, T1.
01421  M01S01372.chd     +++|
01422  M01S01373.chd     +++|
01423  M01S01374.chd     +++| CDD2     ADN    10D+1R0     CONVERT TO DISPLAY CODE
01424  M01S01375.chd     +++|          SHN    14
01425  M01S01376.chd     +++|          ADD    T1
01426  M01S01377.chd     +++|          SHN    6
01427  M01S01378.chd     +++|
01428  M01S01379.chd     +++| CDD      SUBR               ENTRY/EXIT
01429  M01S01380.chd     +++|          STD    T0          STORE THE NUMBER
01430  M01S01381.chd     +++|          LDN    1R0         INITIALIZE TENS COUNTER
01431  M01S01382.chd     +++|          STD    T1
01432  M01S01383.chd     +++| CDD1     LCN    10D         COUNT TENS
01433  M01S01384.chd     +++|          RAD    T0
01434  M01S01385.chd     +++|          MJN    CDD2        IF UNDERFLOW
01435  M01S01386.chd     +++|          AOD    T1          ADVANCE TENS COUNT
01436  M01S01387.chd     +++|          UJN    CDD1        LOOP
01437  M01S01388.chd     +++| CTD      SPACE  4
01438  M01S01389.chd     +++|*         CTD - CONVERT TIME TO DISPLAY CODED MINUTES AND SECONDS.
01439  M01S00041.ns22000 +++|*
01440  M01S01390.chd     +++|*         ENTRY  (A) = TIME IN OCTAL SECONDS.
01441  M01S00042.ns22000 +++|*
01442  M01S01391.chd     +++|*         EXIT   (A) = MINUTES IN DISPLAY CODED DECIMAL.
01443  M01S01392.chd     +++|*                (CM) = SECONDS IN DISPLAY CODED DECIMAL.
01444  M01S00043.ns22000 +++|*
01445  M01S01393.chd     +++|*         USES   T2, T3.
01446  M01S00044.ns22000 +++|*
01447  M01S01394.chd     +++|*         CALLS  CDD.
01448  M01S01395.chd     +++|
01449  M01S01396.chd     +++|
01450  M01S01397.chd     +++| CTD2     ADN    60D         FORM REMAINDER (SECONDS)
01451  M01S01398.chd     +++|          RJM    CDD         CONVERT TO DISPLAY CODE
01452  M01S01399.chd     +++|          STD    CM          STORE
01453  M01S01400.chd     +++|          LDD    T3
01454  M01S01401.chd     +++|          RJM    CDD         CONVERT MINUTES TO DISPLAY CODE
01455  M01S01402.chd     +++|          STD    T3          SUPPRESS LEADING ZERO
01456  M01S01403.chd     +++|          SHN    -6
01457  M01S01404.chd     +++|          SBN    1R0
01458  M01S01405.chd     +++|          NJN    CTD3
01459  M01S01406.chd     +++|          LDD    T3
01460  M01S01407.chd     +++|          LPN    77
01461  M01S01408.chd     +++|          STD    T3
01462  M01S01409.chd     +++| CTD3     LDD    T3
01463  M01S01410.chd     +++|
01464  M01S01411.chd     +++| CTD      SUBR               ENTRY/EXIT
01465  M01S01412.chd     +++|          STD    T2
01466  M01S01413.chd     +++|          LDN    0           INITIALIZE
01467  M01S01414.chd     +++|          STD    T3
01468  M01S01415.chd     +++| CTD1     LCN    60D         COUNT MINUTES
01469  M01S01416.chd     +++|          RAD    T2
01470  M01S01417.chd     +++|          MJN    CTD2        IF UNDERFLOW
01471  M01S01418.chd     +++|          AOD    T3          ADVANCE MINUTE COUNT
01472  M01S01419.chd     +++|          UJN    CTD1        LOOP
01473  M01S01420.chd     +++|          SPACE  4,10
01474  M01S01421.chd     +++| DIS      HERE               *COMDSYS* *DISPLA* EXPANSION
01475  M01S01422.chd     +++|          SPACE  4,10
01476  M01S01423.chd     +++| BUF      EQU    *
01477  M01S01424.chd     +++| L        SET    7777-BUF
01478  M01S01425.chd     +++| BUFL     EQU    L/5         LENGTH OF PIECE DISPLAY BUFFER (CM WDS)
01479  M01S01426.chd     +++| PRS      TITLE  PRS - PRESET DRIVER
01480  M01S01427.chd     +++|**        PRS - PRESET. (WILL BE OVERLAID)
01481  M01S01428.chd     +++|*
01482  M01S01429.chd     +++|*         EXIT   (NC) = NUMBER OF CP-S.
01483  M01S01430.chd     +++|
01484  M01S01431.chd     +++|
01485  M01S01432.chd     +++| PRS      SUBR               ENTRY/EXIT
Line S01433 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01486  M02S01433.v23l617 ---|          RJM    CUA         CHECK USER ACCESS
Line S01434 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01487  M02S01434.v23l617 ---|          ZJN    PRS1        IF ACCESS ALLOWED
Line S01435 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01488  M02S01435.v23l617 ---|          LDC    PRSA        DAYFILE MESSAGE = *ILLEGAL CONTROL CARD.*
Line S01436 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01489  M02S01436.v23l617 ---|          RJM    DFM
Line S01437 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01490  M02S01437.v23l617 ---|          LJM    ABT
Line S01438 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01491  M02S01438.v23l617 ---| PRS1     LDN    0           INITIALIZE DIRECT LOCATIONS
Line S01439 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01492  M02S01439.v23l617 ---|          STD    WC
01493  M01S00008.v23l617 +++|          CATD               CHECK ACCESS TO DISPLAY CONSOLE
01494  M01S00009.v23l617 +++|*         LDN    0
01495  M01S00010.v23l617 +++|          STD    WC          INITIALIZE DIRECT CELLS
01496  M01S01440.chd     +++|          STD    CC
01497  M01S01441.chd     +++|          STD    CR
01498  M01S01442.chd     +++|          STD    GC
01499  M01S01443.chd     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01500  M01S01444.chd     +++|          LDC    RTCL        SET REAL TIME CLOCK
01501  M01S01445.chd     +++|          CRD    CM
01502  M01S01446.chd     +++|          LDD    CM+1        SET SECOND CLOCK
01503  M01S01447.chd     +++|          STD    SC
01504  M01S01448.chd     +++|          RJM    PAUSE
01505  M01S01449.chd     +++|          LDN    CMUR        CLEAR CMU OPTION AVAILABLE BIT
01506  M01S01450.chd     +++|          RJM    ABS
01507  M01S01451.chd     +++|          CRD    CM
01508  M01S01452.chd     +++|          LDD    CM
01509  M01S01453.chd     +++|          LPC    3777
01510  M01S01454.chd     +++|          STD    CM
01511  M01S01455.chd     +++|          LDN    CMUR
01512  M01S01456.chd     +++|          RJM    ABS
01513  M01S01457.chd     +++|          CWD    CM
01514  M01S01458.chd     +++|          LDC    PAUSE4      SET RETURN FROM HOLD ON A ROLLOUT FLAG
01515  M01S01459.chd     +++|          STM    /COMDDSP/ROFA
01516  M01S01460.chd     +++|          LCMA   IR+3        STATUS POINTER
01517  M01S01461.chd     +++|          NJN    PRS2        IF NON ZERO
01518  M01S01462.chd     +++|          LJM    ABT         ABORT JOB
01519  M01S01463.chd     +++|
01520  M01S01464.chd     +++| PRS2     LDD    A.SW        READ PIECE DISPLAY BUFFER POINTERS
01521  M01S01465.chd     +++|          SHN    14
01522  M01S01466.chd     +++|          ADD    A.SW+1
01523  M01S01467.chd     +++|          ADN    P.PD
01524  M01S01468.chd     +++|          CRD    CN
01525  M01S01469.chd     +++|          TCMA   CN+1,FT
01526  M01S01470.chd     +++|          TCMA   CN+3,LM
01527  M01S01471.chd     +++|          LCMA   FT
01528  M01S01472.chd     +++|          RJM    ABS
01529  M01S01473.chd     +++|          LCMA   LM
01530  M01S01474.chd     +++|          RJM    ABS
01531  M01S01475.chd     +++|          LDD    A.SW        LOAD OTHER POINTERS
01532  M01S01476.chd     +++|          SHN    14
01533  M01S01477.chd     +++|          ADD    A.SW+1
01534  M01S01478.chd     +++|          ADN    P.TR
01535  M01S01479.chd     +++|          CRD    CN
01536  M01S01480.chd     +++|          ADN    P.OP-P.TR
01537  M01S01481.chd     +++|          CRD    CM
01538  M01S01482.chd     +++|          ADN    P.GS-P.OP
01539  M01S01483.chd     +++|          CRD    T6
01540  M01S01484.chd     +++|          ADN    P.NM-P.GS
01541  M01S01485.chd     +++|          CRD    T4
01542  M01S01486.chd     +++|          LCMA   T7
01543  M01S01487.chd     +++|          RJM    ABS
01544  M01S01488.chd     +++|          CRM    DOSE,ON     READ PLAYER NAMES
01545  M01S01489.chd     +++|          CRM    DOSF,ON
01546  M01S01490.chd     +++|          TCMA   CN+3,A.TR
01547  M01S01491.chd     +++|          TCMA   CM+3,A.OP
01548  M01S01492.chd     +++|          TCMA   CM+1,A.GS
01549  M01S01493.chd     +++|          LDD    IR+2
01550  M01S01494.chd     +++|          ADC    -7777
01551  M01S01495.chd     +++|          ZJN    PRS3        IF RECALLED
01552  M01S01496.chd     +++|          LCN    0           SET RECALL PARAMETER
01553  M01S01497.chd     +++|          STD    IR+2
01554  M01S01498.chd     +++|          MONITOR DCPM       DROP CPU
01555  M01S01499.chd     +++|          LDN    0           CLEAR (RA+1)
01556  M01S01500.chd     +++|          CRD    CM
01557  M01S01501.chd     +++|          LDD    RA
01558  M01S01502.chd     +++|          SHN    6
01559  M01S01503.chd     +++|          ADN    1
01560  M01S01504.chd     +++|          CWD    CM
01561  M01S01505.chd     +++|          RJM    SB0
01562  M01S01506.chd     +++|          MONITOR RCPM       REQUEST CPU
01563  M01S01507.chd     +++|          RJM    RDS         REQUEST DISPLAY
01564  M01S01508.chd     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
01565  M01S01509.chd     +++|          LJM    PRSX        RETURN
01566  M01S01510.chd     +++|
01567  M01S01511.chd     +++| PRS3     LDD    A.SW        RESET CLOCKS
01568  M01S01512.chd     +++|          SHN    14
01569  M01S01513.chd     +++|          ADD    A.SW+1
01570  M01S01514.chd     +++|          ADN    P.RO
01571  M01S01515.chd     +++|          CRD    CM
01572  M01S01516.chd     +++|          LDD    CM
01573  M01S01517.chd     +++|          STM    CLKAO
01574  M01S01518.chd     +++|          RJM    CTD
01575  M01S01519.chd     +++|          STM    UGCC
01576  M01S01520.chd     +++|          LDD    CM
01577  M01S01521.chd     +++|          STM    UGCD
01578  M01S01522.chd     +++|          LDD    CM+1
01579  M01S01523.chd     +++|          STM    CLKBO
01580  M01S01524.chd     +++|          RJM    CTD
01581  M01S01525.chd     +++|          STM    UGCF
01582  M01S01526.chd     +++|          LDD    CM
01583  M01S01527.chd     +++|          STM    UGCG
01584  M01S01528.chd     +++|          LDD    CM+2
01585  M01S01529.chd     +++|          STD    GC
01586  M01S01530.chd     +++|          LDD    CM+3
01587  M01S01531.chd     +++|          STM    UGCB
01588  M01S01532.chd     +++|          LDD    CM+4
01589  M01S01533.chd     +++|          STM    UGCE
01590  M01S01534.chd     +++|
01591  M01S01535.chd     +++|*         READ OUTPUT MESSAGE.
01592  M01S01536.chd     +++|
01593  M01S01537.chd     +++|          LDD    A.SW        READ POINTER
01594  M01S01538.chd     +++|          SHN    14
01595  M01S01539.chd     +++|          ADD    A.SW+1
01596  M01S01540.chd     +++|          ADN    P.OM
01597  M01S01541.chd     +++|          CRD    CM
01598  M01S01542.chd     +++|          LCMA   CM+3
01599  M01S01543.chd     +++|          RJM    ABS
01600  M01S01544.chd     +++|          CRM    DOEB,TR
01601  M01S01545.chd     +++|
01602  M01S01546.chd     +++|*         READ LIMITS.
01603  M01S01547.chd     +++|
01604  M01S01548.chd     +++|          LDN    LLIM        SET WORD COUNT
01605  M01S01549.chd     +++|          STD    T1
01606  M01S01550.chd     +++|          LDD    A.SW        READ POINTER
01607  M01S01551.chd     +++|          SHN    14
01608  M01S01552.chd     +++|          ADD    A.SW+1
01609  M01S01553.chd     +++|          ADN    P.LM
01610  M01S01554.chd     +++|          CRD    CM
01611  M01S01555.chd     +++|          LCMA   CM+3        READ LIMITS
01612  M01S01556.chd     +++|          RJM    ABS
01613  M01S01557.chd     +++|          CRM    PRSA,T1
01614  M01S01558.chd     +++|          LDN    0
01615  M01S01559.chd     +++|          STD    T5          SET INDEX
01616  M01S01560.chd     +++|          STD    LF          CLEAR FLAG
01617  M01S01561.chd     +++|          LDC    PRSA-1      SET POINTER
01618  M01S01562.chd     +++|          STD    T6
01619  M01S01563.chd     +++| PRS4     LDN    5           ADVANCE POINTER
01620  M01S01564.chd     +++|          RAD    T6
01621  M01S01565.chd     +++|          LDI    T6          LOAD NEXT LIMIT
01622  M01S01566.chd     +++|          NJN    PRS5        IF NOT ZERO BYTE
01623  M01S01567.chd     +++|          STM    DLMC,T5     SET ZERO BYTE
01624  M01S01568.chd     +++|          LDD    T5
01625  M01S01569.chd     +++|          SBN    2*6
01626  M01S01570.chd     +++|          MJN    PRS7        IF ;6 LEVELS
01627  M01S01571.chd     +++|          UJN    PRS6
01628  M01S01572.chd     +++|
01629  M01S01573.chd     +++| PRS5     RJM    CDD         CONVERT TO DISPLAY CODE
01630  M01S01574.chd     +++|          STM    DLMC,T5
01631  M01S01575.chd     +++|          LDN    2           ADVANCE INDEX
01632  M01S01576.chd     +++|          RAD    T5
01633  M01S01577.chd     +++|          SBN    2*LLIM
01634  M01S01578.chd     +++|          NJN    PRS4        LOOP
01635  M01S01579.chd     +++| PRS6     LCN    0           SET FLAG
01636  M01S01580.chd     +++|          STD    LF
01637  M01S01581.chd     +++|
01638  M01S01582.chd     +++|*         READ RANK LABELS.
01639  M01S01583.chd     +++|
01640  M01S01584.chd     +++| PRS7     LDN    8D          SET LABEL COUNT
01641  M01S01585.chd     +++|          STD    T1
01642  M01S01586.chd     +++|          LDD    A.SW        READ POINTER TO BOARD
01643  M01S01587.chd     +++|          SHN    14
01644  M01S01588.chd     +++|          ADD    A.SW+1
01645  M01S01589.chd     +++|          ADN    P.BD
01646  M01S01590.chd     +++|          CRD    CM
01647  M01S01591.chd     +++|          LCMA   CM+3        READ LABELS
01648  M01S01592.chd     +++|          RJM    ABS
01649  M01S01593.chd     +++|          CRM    PRSA,T1
01650  M01S01594.chd     +++|          LDC    PRSA+5*7    SET POINTER TO BUFFER
01651  M01S01595.chd     +++|          STD    T2
01652  M01S01596.chd     +++| PRS8     LDI    T2          LOAD NEXT LABEL
01653  M01S01597.chd     +++|          STM    DBDE-1,T1   STORE
01654  M01S01598.chd     +++|          LCN    5           DECREMENT POINTER
01655  M01S01599.chd     +++|          RAD    T2
01656  M01S01600.chd     +++|          SOD    T1          DECREMENT INDEX
01657  M01S01601.chd     +++|          NJN    PRS8        LOOP
01658  M01S01602.chd     +++|
01659  M01S01603.chd     +++|*         READ FILE LABELS.
01660  M01S01604.chd     +++|
01661  M01S01605.chd     +++|          LDD    A.SW        READ POINTER TO BOARD
01662  M01S01606.chd     +++|          SHN    14
01663  M01S01607.chd     +++|          ADD    A.SW+1
01664  M01S01608.chd     +++|          ADN    P.BD
01665  M01S01609.chd     +++|          CRD    CM
01666  M01S01610.chd     +++|          LCMA   CM+3        READ LABELS
01667  M01S01611.chd     +++|          ADN    8D
01668  M01S01612.chd     +++|          RJM    ABS
01669  M01S01613.chd     +++|          CRM    PRSA,ON
01670  M01S01614.chd     +++|          LDC    PRSA+4      SET POINTER TO LABELS
01671  M01S01615.chd     +++|          STD    CM
01672  M01S01616.chd     +++|          LDC    DBDD+12D    SET POINTER TO LABEL BUFFER
01673  M01S01617.chd     +++|          STD    CM+1
01674  M01S01618.chd     +++| PRS9     LDI    CM          UNPACK LABELS
01675  M01S01619.chd     +++|          LPN    77
01676  M01S01620.chd     +++|          STI    CM+1
01677  M01S01621.chd     +++|          SOD    CM+1
01678  M01S01622.chd     +++|          LDI    CM
01679  M01S01623.chd     +++|          SCN    77
01680  M01S01624.chd     +++|          STI    CM+1
01681  M01S01625.chd     +++|          LCN    2
01682  M01S01626.chd     +++|          RAD    CM+1
01683  M01S01627.chd     +++|          SOD    CM
01684  M01S01628.chd     +++|          LMC    PRSA
01685  M01S01629.chd     +++|          NJN    PRS9        LOOP
01686  M01S01630.chd     +++|          RJM    RDS         REQUEST DISPLAY
01687  M01S01631.chd     +++|          RJM    MDC         MODIFY CHANNEL INSTRUCTIONS
01688  M01S01632.chd     +++|          LDN    NCPL        SAVE NUMBER OF CP-S
01689  M01S01633.chd     +++|          CRD    CM
01690  M01S01634.chd     +++|          AOD    CM+1
01691  M01S01635.chd     +++|          STD    NC
01692  M01S01636.chd     +++|          LJM    PRSX        RETURN
01693  M01S01637.chd     +++|
Line S01638 Modification History
M01 (Added by) chd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01694  M02S01638.v23l617 ---| PRSA     DATA   C* ILLEGAL CONTROL CARD.*
01695  M01S00011.v23l617 +++| PRSA     BSS    0
01696  M01S01639.chd     +++|          SPACE  4
01697  M01S01640.chd     +++|**        COMMON DECKS.
01698  M01S01641.chd     +++|
01699  M01S01642.chd     +++|
01700  M01S01643.chd     +++|*CALL     COMPCUA
01701  M01S01644.chd     +++|          SPACE  4
01702  M01S01645.chd     +++|          END
cdc/nos2.source/opl.opl871/deck/chd.txt · Last modified: by 127.0.0.1