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