/ DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 1 1 / DEBUGGER FOR CONDOR APPLICATIONS 2 3 / ........................... 4 / : ....................... : 5 / : : : : 6 / : : : : 7 / : : CPODT : : 8 / : : : : 9 / : :.....................: : 10 / :.........................: 11 12 / +---------------------------------------------------------------+ 13 / | | 14 / | DISCLAIMER AND EDIT HISTORY | 15 / | | 16 / +---------------------------------------------------------------+ 17 18 / This program is produced and maintained by the WPS development 19 / group (CC 3W1) for its own internal use. 20 21 / 005 AIB ...14-JUL addition of symbol table & definition 22 / 004 AIB 12-JUL-82 commands altered to mnemonic versions 23 / 003 AIB 28-JUN-82 addition of PAL8 mnemonic interpretation 24 / 002 AIB 22-JUN-82 addition of character interpretation on output 25 / 001 AIB 17-JUN-82 addition of text error messages 26 / 000 AIB 17-JUN-82 creation of version 1.0 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 2 27 / +---------------------------------------------------------------+ 28 / | | 29 / | DEFINITIONS AND PARAMETERS | 30 / | | 31 / +---------------------------------------------------------------+ 32 33 / links to firmware 34 7605 OS8ENT= 7605 / restart OS8 ep 35 0200 REBOOT= 0200 / prime -- inject -- boot 36 0430 EOFPR= 0430 / end-of-frame interrupt processing sub 37 2415 KBYBD= 2415 / keyboard receive interrupt processing sub 38 3200 KBXMT= 3200 / keyboard transmit interrupt processing sub 39 1000 SLUIN= 1000 / display driver ep 40 3244 KBXQP= 3244 / keyboard transmit driver ep 41 0021 FLSAV= 0021 / panel firmware interrupt saved flags 42 0000 PCSAV= 0000 / panel firmware interrupt saved program counter 43 0020 ACSAV= 0020 / panel firmware interrupt saved AC reg 44 0023 MQSAV= 0023 / panel firmware interrupt saved MQ reg 45 0022 PSTAT= 0022 / panel firmware interrupt saved panel status word 46 0120 ATTRIB= 0120 / panel firmware CRT attributes 47 0121 G0FLAG= 0121 / panel firmware G0 character set 48 0122 G1FLAG= 0122 / panel firmware G1 character set 49 0026 LOCKED= 0026 / keyboard locked status (0 = not locked) 50 0112 HOLD= 0112 / hold screen mode flag (0 = locked) 51 0154 PUSHVC= 0154 / pointer to put-away sub for keyboard receive 52 4617 PSHSL= 4617 / put-away sub for keyboard receive ep 53 0426 MOD40= 0426 / panel firmware interrupt HLT processing block 54 0460 FWEXIT= 0460 / entry to panel interrupt return block 55 0476 EXIT3= 0476 / last chance to intercept exit from panel firmware 56 57 / assembly & location parameters 58 0000 HDRFLD= 00 / main mem field for ODT loader 59 0010 MOVFLD= 10 / main mem field for ODT 60 0000 PRQFLD= 00 / instruction field of panel firmware 61 0070 ODTFLD= 70 / panel mem field for ODT execution 62 7600 PRQBGN= 7600 / locn of part of ODT in same field as panel firmware 63 0020 ODTBGN= 0020 / locn of ODT after installation 64 65 / assembler extensions 66 7014 R3L= 7014 / rotate acc 3 bits left without link 67 6003 PGO= 6003 / (panel) clear HLT flag 68 6266 CPD= 6266 / (panel) clear panel data (switch indirects to main mem) 69 6276 SPD= 6276 / (panel) set panel data (switch indirects to panel mem) 70 7412 XX= SKP HLT / used to mark subroutine heads 71 6207 RDSPT= 6207 / acc = indicated stack pointer 72 6217 WRSPT= 6217 / indicated stack pointer = acc 73 6207 PTR1= 6207 / arg for RDSPT and WRSPT 74 6227 PTR2= 6227 / arg for RDSPT and WRSPT 75 6001 SKCFL= 6001 / if device done flag, then clear device flag and skip 76 6003 ORCLF= 6003 / acc = acc | data and clear flag (used with APU) 77 6006 WRSEQ= 6006 / data = acc, clear device done flag, start device 78 6040 TTY= 6040 / console output, seen from application 79 6050 MATTX= 6050 / keyboard transmit, seen from firmware 80 6060 FRAME= 6060 / display frame end flag 81 6070 USRIO= 6070 / flag set by 603N or 604N executed in main mem / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 2-1 82 6110 MATIN= 6110 / keyboard receive, seen from firmware 83 6140 APU= 6140 / Z80 aux processor unit 84 6236 PANEL= 6236 / (main) panel request 85 4000 MOVPM= 4000 / (after PANEL) move block from main mem to panel mem 86 6000 JMSPM= 6000 / (after PANEL) branch to panel mem location 87 88 / some useful mnemonics 89 0177 ASCII= 177 / 7-bit mask to remove parity attached by PAL8 90 0015 CARRTN= 15 / ASCII 91 0012 LNFEED= 12 / ASCII 92 0033 ESCAPE= 33 / ASCII 93 0211 LOCKBD= 211 / MAT COM 94 0213 UNLOCK= 213 / MAT COM 95 0144 INTKEY= 144 / MAT KEY / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 3 96 / +---------------------------------------------------------------+ 97 / | | 98 / | CPODT LOADER This segment is loaded into main memory | 99 / | in field MOVFLD and serves to copy the other seven segments | 100 / | into panel memory in fields PRQFLD and ODTFLD. It then | 101 / | starts CPODT at the proper location, ODTFLD:DEBUG. | 102 / | | 103 / +---------------------------------------------------------------+ 104 105 0000 FIELD HDRFLD%10 106 0200 * 200 107 108 000200 7000 NOP 109 000201 7200 CLA 110 000202 4330 JMS TXEL 111 000203 4336 JMS TXTMSG 112 000204 0320 TEXT "CPODT VERSION 1.5, 14-JUL-82" 113 000205 1704 114 000206 2440 115 000207 2605 116 000210 2223 117 000211 1117 118 000212 1640 119 000213 6156 120 000214 6554 121 000215 4061 122 000216 6455 123 000217 1225 124 000220 1455 125 000221 7062 126 000222 0000 127 000223 4330 JMS TXEL 128 000224 4336 JMS TXTMSG 129 000225 2225 TEXT "RUNS ONLY WITH FIRMWARE 0031" 130 000226 1623 131 000227 4017 132 000230 1614 133 000231 3140 134 000232 2711 135 000233 2410 136 000234 4006 137 000235 1122 138 000236 1527 139 000237 0122 140 000240 0540 141 000241 6060 142 000242 6361 143 000243 0000 144 000244 4330 JMS TXEL 145 000245 2377 ISZ (0 146 000246 5245 JMP .-1 147 000247 7000 NOP 148 000250 6236 PANEL 149 000251 4000 HDRFLD%10+PRQFLD+MOVPM 150 000252 0400 HDRBGN / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 3-1 151 000253 7600 PRQBGN 152 000254 7715 HDRBGN-HDREND 153 000255 7777 7777 154 000256 6236 PANEL 155 000257 4000 HDRFLD%10+PRQFLD+MOVPM 156 000260 0463 HK1BGN 157 000261 0476 EXIT3 158 000262 7776 HK1BGN-HK1END 159 000263 7777 7777 160 000264 6236 PANEL 161 000265 4000 HDRFLD%10+PRQFLD+MOVPM 162 000266 0465 HK2BGN 163 000267 0577 MOD40&7600+177 164 000270 7777 HK2BGN-HK2END 165 000271 7777 7777 166 000272 6236 PANEL 167 000273 4000 HDRFLD%10+PRQFLD+MOVPM 168 000274 0466 HK3BGN 169 000275 0426 MOD40 170 000276 7776 HK3BGN-HK3END 171 000277 7777 7777 172 000300 6236 PANEL 173 000301 4000 HDRFLD%10+PRQFLD+MOVPM 174 000302 0470 HK4BGN 175 000303 2577 KBYBD&7600+177 176 000304 7777 HK4BGN-HK4END 177 000305 7777 7777 178 000306 6236 PANEL 179 000307 4000 HDRFLD%10+PRQFLD+MOVPM 180 000310 0471 HK5BGN 181 000311 2420 KBYBD+3 182 000312 7777 HK5BGN-HK5END 183 000313 7777 7777 184 000314 6236 PANEL 185 000315 4071 MOVFLD%10+ODTFLD+MOVPM 186 000316 0020 MOVBGN 187 000317 0020 ODTBGN 188 000320 1773 MOVBGN-MOVEND 189 000321 7777 7777 190 000322 6236 PANEL 191 000323 6070 ODTFLD+JMSPM 192 000324 1457 DEBUG 193 000325 7777 7777 194 000326 5727 JMP I .+1 195 000327 7605 OS8ENT 196 197 000330 7412 TXEL, XX 198 000331 1376 TAD (15 199 000332 4361 JMS TXCH 200 000333 1375 TAD (12 201 000334 4361 JMS TXCH 202 000335 5730 JMP I TXEL 203 204 000336 7412 TXTMSG, XX 205 000337 1736 TAD I TXTMSG / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 3-2 206 000340 2336 ISZ TXTMSG 207 000341 7421 MQL 208 000342 7501 MQA 209 000343 7002 BSW 210 000344 4350 JMS TXMS 211 000345 7501 MQA 212 000346 4350 JMS TXMS 213 000347 5337 JMP TXTMSG+1 214 000350 7412 TXMS, XX 215 000351 0374 AND (77 216 000352 7450 SNA 217 000353 5736 JMP I TXTMSG 218 000354 1373 TAD (40 219 000355 0374 AND (77 220 000356 1373 TAD (40 221 000357 4361 JMS TXCH 222 000360 5750 JMP I TXMS 223 224 000361 7412 TXCH, XX 225 000362 6041 SKCFL TTY 226 000363 5362 JMP .-1 227 000364 6046 WRSEQ TTY 228 000365 7200 CLA 229 000366 5761 JMP I TXCH 230 231 / ------------------------ 232 000373 0040 233 000374 0077 234 000375 0012 235 000376 0015 236 000377 0000 237 0400 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 4 238 / +---------------------------------------------------------------+ 239 / | | 240 / | FIRMWARE LINKAGE This segment executes in panel | 241 / | memory in the same field as the panel firmware (PRQFLD). It | 242 / | provides for various cross-field references between the | 243 / | panel firmware and CPODT. | 244 / | | 245 / +---------------------------------------------------------------+ 246 247 HDRBGN, 248 7600 RELOC PRQBGN 249 250 007600* 7412 KBDINT, XX 251 007601* 7421 MQL 252 007602* 7501 MQA 253 007603* 1211 TAD MINTK 254 007604* 7640 SZA CLA 255 007605* 5600 JMP I KBDINT 256 007606* 6273 CIF CDF ODTFLD 257 007607* 5610 JMP I .+1 258 007610* 1455 DBGINT 259 007611* 7634 MINTK, -INTKEY 260 261 007612* 7412 CALLAR, XX 262 007613* 3220 DCA SUBADR 263 007614* 7501 MQA 264 007615* 4620 JMS I SUBADR 265 007616* 6273 CDF CIF ODTFLD 266 007617* 5612 JMP I CALLAR 267 007620* 0000 SUBADR, 0 268 269 007621* 7412 CATCH, XX 270 007622* 6271 CDF ODTFLD 271 007623* 3626 DCA I XCHAR 272 007624* 6201 CDF PRQFLD 273 007625* 5621 JMP I CATCH 274 007626* 0100 XCHAR, LATCH 275 276 007627* 7412 WAITLP, XX 277 007630* 6111 SKCFL MATIN 278 007631* 5234 JMP .+3 279 007632* 4645 JMS I XKBYBD 280 007633* 7200 CLA 281 007634* 6051 SKCFL MATTX 282 007635* 5240 JMP .+3 283 007636* 4646 JMS I XKBXMT 284 007637* 7200 CLA 285 007640* 6061 SKCFL FRAME 286 007641* 5244 JMP .+3 287 007642* 4647 JMS I XEOFPR 288 007643* 7200 CLA 289 007644* 5627 JMP I WAITLP 290 007645* 2415 XKBYBD, KBYBD 291 007646* 3200 XKBXMT, KBXMT 292 007647* 0430 XEOFPR, EOFPR / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 4-1 293 294 007650* 7412 EXPTCH, XX 295 007651* 2250 ISZ EXPTCH 296 007652* 6071 SKCFL USRIO 297 007653* 7000 NOP 298 007654* 1022 TAD PSTAT 299 007655* 7106 CLL RTL 300 007656* 7006 RTL 301 007657* 7700 SMA CLA 302 007660* 5650 JMP I EXPTCH 303 007661* 5662 JMP I .+1 304 007662* 0426 MOD40 305 306 0463 RELOC 307 HDREND, / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 5 308 / +---------------------------------------------------------------+ 309 / | | 310 / | FIRMWARE MODIFICATIONS These five segments must be | 311 / | written over certain locations in the panel RAM firmware. | 312 / | | 313 / +---------------------------------------------------------------+ 314 315 HK1BGN, 316 0476 RELOC EXIT3 317 318 000476* 4677 JMS I .+1 319 000477* 7650 EXPTCH 320 321 0465 RELOC 322 HK1END, 323 324 HK2BGN, 325 0577 RELOC MOD40&7600+177 326 327 000577* 1457 DBGHLT 328 329 0466 RELOC 330 HK2END, 331 332 HK3BGN, 333 0426 RELOC MOD40 334 335 000426* 6273 CDF CIF ODTFLD 336 000427* 5777 JMP I MOD40&7600+177 337 338 0470 RELOC 339 HK3END, 340 341 HK4BGN, 342 2577 RELOC KBYBD&7600+177 343 344 002577* 7600 KBDINT 345 346 0471 RELOC 347 HK4END, 348 349 HK5BGN, 350 2420 RELOC KBYBD+3 351 352 002420* 4777 JMS I KBYBD&7600+177 353 354 0472 RELOC 355 HK5END, / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 6 356 / +---------------------------------------------------------------+ 357 / | | 358 / | DEBUG PROGRAM This segment executes in panel memory | 359 / | in its own field (ODTFLD) and is linked to the panel firmware | 360 / | by the linkage segment. This is the main & largest segment. | 361 / | | 362 / +---------------------------------------------------------------+ 363 364 0001 FIELD MOVFLD%10 365 0020 * ODTBGN 366 MOVBGN, 367 368 / debug program control registers 369 010020 0115 DBGCTL, ASCII&"M 370 010021 0000 0 371 010022 7777 SCHMSK, 7777 / mask used in "search" command 372 010023 0123 ASCII&"S 373 010024 0000 SCHBGN, 0 / beginning of range for a "search" command 374 010025 0000 0 375 010026 0106 ASCII&"F 376 010027 7777 SCHEND, 7777 / end of range for a "search" command 377 010030 7777 7777 378 010031 0107 ASCII&"G 379 010032 0000 GSTART, 0 / default starting address for a "go" command 380 010033 0200 200 381 010034 0000 0 382 010035 0021 DBGCTL+1 383 384 / parameters which determine current processor 385 / the following 11 symbols must be kept together in order 386 PLIST, 387 / these 6 are set only when the processor is selected 388 010036 4127 ADRRDX, ADRRDH / output format list for address size 389 010037 4135 DATRDX, DATRDH / output format list for data size 390 010040 0007 ADRMSK, 0007 / mask for hi word of address size 391 010041 7777 DATMSK, 7777 / mask for data size 392 010042 0000 PROCSW, 0 / 0 = 6120 selected; 2 = Z80 selected 393 010043 4201 PROCTB, H6120R / pointer to saved machine state register list 394 / these 4 are variables, initialized when the processor is selected 395 010044 4202 MCHPTR, H6120R+1 / points to value field of currently opened machine register 396 010045 0000 INPRFL, 0 / input radix flag: 0 = rdx 8; 1 = rdx 10; 2 = rdx 16 397 010046 0000 ADRRFL, 0 / address sized output radix flag: see INPRFL for definition 398 010047 0000 DATRFL, 0 / data sized output radix flag: see INPRFL for definition 399 400 / the next 6 locations must be kept in order 401 / symbol typed by user 402 010050 0000 SYMBOL, 0; 0; 0; 0 403 010051 0000 404 010052 0000 405 010053 0000 406 / double precision variables 407 ARG, / if an argument was entered for the current command, 408 010054 0000 ARGHI, 0 / it will be stored here and ARGCNT will be 1; if no 409 010055 0000 ARGLO, 0 / argument was entered, ARG and ARGCNT will both be 0 410 CURR, / if a memory location is open for modification, its / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 6-1 411 010056 0000 CURRHI, 0 / address will be stored here and OPNFLG will be 2 412 010057 0000 CURRLO, 0 413 LOOK, / dbl-pr temp, used in "search" command 414 010060 0000 LOOKHI, 0 415 010061 0000 LOOKLO, 0 416 PSMA, / dbl-pr temp, used in subrs 417 010062 0000 PSMAHI, 0 418 010063 0000 PSMALO, 0 419 PSDB, / dbl-pr temp, used in subrs 420 010064 0000 PSDBHI, 0 421 010065 0000 PSDBLO, 0 422 DPTR, / used by DYPAL etc 423 010066 0000 DPTRHI, 0 424 010067 0000 DPTRLO, 0 425 426 / single precision variables 427 010070 0000 BRKFLG, 0 / 0 = no break set; 1 = break point set 428 010071 0000 OPNFLG, 0 / 0 = nothing open; 1 = machine reg; 2 = program reg; 3 = mem 429 010072 0021 PRGPTR, DBGCTL+1 / points to value field of currently open program register 430 010073 0000 ARGCNT, 0 / 0 = no arg entered for this command; 1 = arg entered 431 010074 0001 TRACE, 0001 / 0 = no report; 1 = report instr before single-stepping 432 010075 0001 SYMFLG, 0001 / 0 = suppress CHAR & PAL8 reports; 1 = print reports 433 010076 0000 CNTCNT, 0 / continue count for "single-step" and "continue" commands 434 010077 0000 TEMP, 0 / whore 435 010100 0000 LATCH, 0 / holds input from keyboard routine 436 010101 0000 CHAR, 0 / holds input character in 7-bit ASCII, etc. 437 010102 0000 RDXLIM, 0 / neg of radix, used to check input digits 438 010103 0000 SBTMP, 0 / used by subroutines 439 010104 0000 SYMBGN, 0 / current beginning of symbol table 440 7776 SYMEND= 7776 / end of symbol table 441 010105 0000 SYMLOC, 0 / symbol table entry symbol pointer 442 010106 0000 VALLOC, 0 / symbol table entry value pointer 443 010107 0000 SYMCRS, 0 / temp used by symbol table routines 444 010110 0000 SYMCCT, 0 / temp used by symbol table routines 445 446 / subroutines used by main stem 447 / subr -- add dbl-pr LOOK into dbl-pr ARG 448 DPVAL, / var shares subr head 449 010111 7412 DBLADD, XX 450 010112 7100 CLL 451 010113 1055 TAD ARGLO 452 010114 1061 TAD LOOKLO 453 010115 3055 DCA ARGLO 454 010116 7004 RAL 455 010117 1054 TAD ARGHI 456 010120 1060 TAD LOOKHI 457 010121 3054 DCA ARGHI 458 010122 5511 JMP I DBLADD 459 / subr -- shift dbl-pr ARG left one bit 460 SYTMP, / var shares subr head 461 010123 7412 DBLSHL, XX 462 010124 1055 TAD ARGLO 463 010125 7104 CLL RAL 464 010126 3055 DCA ARGLO 465 010127 1054 TAD ARGHI / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 6-2 466 010130 7004 RAL 467 010131 3054 DCA ARGHI 468 010132 5523 JMP I DBLSHL 469 470 / ------------------------ 471 0200 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 7 472 / main stem -- get optional arg & command char 473 / here for new line & new command 474 010200 4577 START, JMS I [CRLF 475 / here for new command on same line 476 010201 3054 DISCR, DCA ARGHI / prime arg 477 010202 3055 DCA ARGLO 478 010203 3073 DCA ARGCNT / signify no arg yet 479 010204 1045 TAD INPRFL / prepare to use input radix as specified 480 010205 7104 CLL RAL / by the input radix flag 481 010206 1377 TAD (RLIST / (access parameter list) 482 010207 3077 DCA TEMP 483 010210 1477 TAD I TEMP / (set digit value limit) 484 010211 3102 DCA RDXLIM 485 010212 2077 ISZ TEMP 486 010213 1477 TAD I TEMP / (set switch in main stem) 487 010214 3265 DCA RDXSW 488 010215 4576 NXDGT, JMS I [GETNXT / get next input char into CHAR 489 010216 1101 TAD CHAR / do range checks on CHAR 490 010217 1376 TAD (-"F!7600 491 010220 7540 SMA SZA 492 010221 5233 JMP TXLST / :"F=%6000? 674 010447 1077 TAD TEMP 675 010450 7430 SZL / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 8-1 676 010451 4575 JMS I [ERR / :yes, IOT or OPR, no memory reference 677 0452 ERRFEX= . / CANNOT FIND REFERENCE -- INSTRUCTION IS IOT OR OPR 678 010452 0375 AND (200 / :no -- which page referenced? 679 010453 7640 SZA CLA 680 010454 1374 TAD (7600 / :current -- use addr<1-5> 681 010455 0057 AND CURRLO / :zero -- use 0 682 010456 3057 DCA CURRLO 683 010457 1077 TAD TEMP / add displacement = contents<6-11> 684 010460 0373 AND (177 685 010461 1057 TAD CURRLO 686 010462 3057 DCA CURRLO 687 010463 1077 TAD TEMP / indirect? 688 010464 7014 R3L 689 010465 7700 SMA CLA 690 010466 5777' JMP ODYMEM / :no -- go open memory 691 010467 4566 JMS I [LOAD / :yes -- defer 692 010470 0056 CURR 693 010471 3057 DCA CURRLO 694 010472 1077 TAD TEMP / contents>=%4000? 695 010473 7710 SPA CLA 696 010474 5777' JMP ODYMEM / :yes, JMP or JMS, defer is done 697 010475 1565 TAD I [SVFL / :no -- change to data field 698 010476 0372 AND (7 699 010477 3056 DCA CURRHI 700 010500 5777' JMP ODYMEM / go open memory 701 702 / command -- open location pointed to by current location 703 010501 4570 XUNDLN, JMS I [QALTER / alter if arg & any open 704 010502 4575 JMS I [ERR / :nothing was open 705 0503 ERINNO= . / CANNOT FIND INDIRECT -- NOTHING IS OPEN 706 010503 5330 JMP XUND2 / :machine register was open 707 010504 4575 JMS I [ERR / :program register was open 708 0505 ERINPO= . / CANNOT FIND INDIRECT -- PROGRAM REGISTER IS OPEN 709 010505 4567 JMS I [PRCTST / :memory was open -- which processor? 710 010506 5313 JMP XUND1 / :Z80 711 010507 4566 JMS I [LOAD / :6120 -- 12b indirect 712 010510 0056 CURR 713 010511 3057 DCA CURRLO 714 010512 5777' JMP ODYMEM / go open memory 715 010513 4566 XUND1, JMS I [LOAD / 16b indirect 716 010514 0056 CURR 717 010515 3077 DCA TEMP 718 010516 2057 ISZ CURRLO 719 010517 7410 SKP 720 010520 2056 ISZ CURRHI 721 010521 7000 NOP / eff nop const 722 010522 4566 JMS I [LOAD 723 010523 0056 CURR 724 010524 3056 DCA CURRHI 725 010525 1077 TAD TEMP 726 010526 3057 DCA CURRLO 727 010527 5777' JMP ODYMEM / go open memory 728 010530 1044 XUND2, TAD MCHPTR / use register as pointer 729 010531 7001 IAC 730 010532 3077 DCA TEMP / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 8-2 731 010533 1477 TAD I TEMP 732 010534 3057 DCA CURRLO 733 010535 1444 TAD I MCHPTR 734 010536 3056 DCA CURRHI 735 010537 5777' JMP ODYMEM 736 737 / command -- execute in single-step mode 738 010540 4567 XLFANG, JMS I [PRCTST / which processor? 739 010541 4575 JMS I [ERR / :Z80, can't handle it 740 0542 ERSTZA= . / CANNOT STEP -- Z80 SELECTED 741 010542 4571 JMS I [ARGTST / :6120 -- any arg? 742 010543 2055 ISZ ARGLO / :no -- use 1 743 010544 1055 TAD ARGLO / :yes -- set continue count 744 010545 7041 CMA IAC 745 010546 3076 DCA CNTCNT 746 010547 1074 XLFALP, TAD TRACE / trace mode on? 747 010550 7640 SZA CLA 748 010551 4771' JMS REPORT / :yes -- print instruction report 749 010552 7402 HLT / :no -- restart main prog with halt flag set 750 010553 4770' JMS EMLATE / so cpu will execute only one instr 751 010554 5767' JMP HLTHIT / :HLT executed 752 010555 2076 ISZ CNTCNT / :not a HLT -- continue? 753 010556 5347 JMP XLFALP / :yes 754 010557 1366 TAD (ASCII&"< / :no -- use "step" message 755 010560 5765' JMP DYSTTH / display machine state 756 757 / ------------------------ 758 010565 1666 759 010566 0074 760 010567 1665 761 010570 1400 762 010571 2600 763 010572 0007 764 010573 0177 765 010574 7600 766 010575 0200 767 010576 0640 768 010577 0633 769 0600 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 9 770 771 / command -- open successor to currently open 772 010600 4570 XPRIME, JMS I [QALTER / alter if arg & any open 773 010601 4575 JMS I [ERR / :nothing was open 774 0602 ERSCNO= . / CANNOT FIND SUCCESSOR -- NOTHING IS OPEN 775 010602 5211 JMP XPRI1 / :machine register was open 776 010603 5222 JMP XPRI2 / :program register was open 777 010604 2057 ISZ CURRLO / :memory was open -- bump CURR 778 010605 5233 JMP ODYMEM 779 010606 2056 ISZ CURRHI 780 010607 5233 JMP ODYMEM 781 010610 5233 JMP ODYMEM / go open memory 782 010611 2044 XPRI1, ISZ MCHPTR / bump reg pointer to next name 783 010612 2044 ISZ MCHPTR 784 010613 1444 TAD I MCHPTR / end of list? 785 010614 2044 ISZ MCHPTR 786 010615 7640 SZA CLA 787 010616 5265 JMP ODYMCH / :no 788 010617 1444 TAD I MCHPTR / :yes -- wrap to beginning 789 010620 3044 DCA MCHPTR 790 010621 5265 JMP ODYMCH 791 010622 2072 XPRI2, ISZ PRGPTR / bump reg pointer to next name 792 010623 2072 ISZ PRGPTR 793 010624 1472 TAD I PRGPTR / end of list? 794 010625 2072 ISZ PRGPTR 795 010626 7640 SZA CLA 796 010627 5323 JMP ODYPRG / :no 797 010630 1472 TAD I PRGPTR / :yes -- wrap to beginning 798 010631 3072 DCA PRGPTR 799 010632 5323 JMP ODYPRG 800 801 / display current address & open memory location 802 010633 4577 ODYMEM, JMS I [CRLF / get a new line 803 010634 4572 JMS I [DYADR / print CURR in address size 804 010635 0056 CURR 805 010636 1377 TAD (ASCII&"/ / signal memory open 806 010637 4564 JMS I [PRCH 807 808 / open memory location when addr is already displayed 809 010640 4566 OPNMEM, JMS I [LOAD / get contents of current location 810 010641 0056 CURR 811 010642 3077 DCA TEMP 812 010643 1077 TAD TEMP / print contents in data size 813 010644 4563 JMS I [DYDAT 814 010645 1077 TAD TEMP / print contents as characters 815 010646 4562 JMS I [DYCHR 816 010647 7300 CLA CLL / print contents as PAL8 mnemonics, in static 817 010650 4561 JMS I [DYPAL / context (DF unknown) 818 010651 0056 CURR 819 010652 7325 CLA CLL CML IAC RAL / set open-flag to "memory" 820 010653 3071 DCA OPNFLG 821 010654 5573 JMP I [DISCR / next command 822 823 / command -- open saved machine register 824 010655 4560 XBAKSL, JMS I [XALTER / alter if arg & any open / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 9-1 825 010656 4576 JMS I [GETNXT / get name of register into CHAR 826 010657 1043 TAD PROCTB / look up name in current processor saved 827 010660 4342 JMS LOOKUP / register list 828 010661 5265 JMP ODYMCH / :it's "/" 829 010662 4575 JMS I [ERR / :not "/" and not found 830 0663 ERUNMR= . / UNRECOGNIZED MACHINE REGISTER NAME 831 010663 3044 DCA MCHPTR / :found, acc pts to data entry 832 010664 5273 JMP OPNMCH 833 010665 4577 ODYMCH, JMS I [CRLF / get a new line 834 010666 7340 CLA CLL CMA / back up to name of entry 835 010667 1044 TAD MCHPTR 836 010670 3077 DCA TEMP 837 010671 1477 TAD I TEMP / display name of register 838 010672 4564 JMS I [PRCH 839 010673 1376 OPNMCH, TAD (ASCII&"\ / indicate it's machine register 840 010674 4564 JMS I [PRCH 841 010675 7301 CLA CLL IAC / indicate machine register open 842 010676 3071 DCA OPNFLG 843 010677 4567 JMS I [PRCTST / which processor? 844 010700 5311 JMP OPMC / :Z80 845 010701 1044 TAD MCHPTR / :6120 -- dump data in data size 846 010702 7001 IAC 847 010703 3077 DCA TEMP 848 010704 1477 TAD I TEMP 849 010705 4563 JMS I [DYDAT 850 010706 1477 TAD I TEMP / print data as characters 851 010707 4562 JMS I [DYCHR 852 010710 5573 JMP I [DISCR / done 853 010711 1044 OPMC, TAD MCHPTR / dump data in address size 854 010712 5336 JMP OPRG 855 856 / command -- open program control register 857 010713 4560 XVRTLN, JMS I [XALTER / alter if arg & any open 858 010714 4576 JMS I [GETNXT / get name of register into CHAR 859 010715 1375 TAD (DBGCTL / look up name in debug program control 860 010716 4342 JMS LOOKUP / register list 861 010717 5323 JMP ODYPRG / :it's "/" 862 010720 4575 JMS I [ERR / :not "/" and not found 863 0721 ERUNPR= . / UNRECOGNIZED PROGRAM REGISTER NAME 864 010721 3072 DCA PRGPTR / :found, acc pts to data entry 865 010722 5331 JMP OPNPRG 866 010723 4577 ODYPRG, JMS I [CRLF / get a new line 867 010724 7340 CLA CLL CMA / back up to name of entry 868 010725 1072 TAD PRGPTR 869 010726 3077 DCA TEMP 870 010727 1477 TAD I TEMP / display name of register 871 010730 4564 JMS I [PRCH 872 010731 1374 OPNPRG, TAD (ASCII&"| / indicate it's program register 873 010732 4564 JMS I [PRCH 874 010733 7305 CLA CLL IAC RAL / indicate program register open 875 010734 3071 DCA OPNFLG 876 010735 1072 TAD PRGPTR / dump data in address size 877 010736 3340 OPRG, DCA .+2 878 010737 4572 JMS I [DYADR 879 010740 0000 0 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 9-2 880 010741 5573 JMP I [DISCR / done 881 882 / subr -- find register entry in list by name in CHAR 883 / panel addr of register list is in accum 884 / return+0: CHAR is "/" -- acc == 0 885 / return+1: fail, CHAR is not "/" and is not in the list 886 / return+2: succ, acc pts to first word of data field of entry 887 010742 7412 LOOKUP, XX 888 010743 3077 DCA TEMP / set entry pointer 889 010744 1101 TAD CHAR / check for "/" 890 010745 1373 TAD (-"/!7600 891 010746 7650 SNA CLA 892 010747 5742 JMP I LOOKUP 893 010750 2342 ISZ LOOKUP 894 010751 1477 LKLP, TAD I TEMP / get entry name 895 010752 2077 ISZ TEMP / bump to entry value 896 010753 7450 SNA / end of list? 897 010754 5742 JMP I LOOKUP / :yes -- take fail return 898 010755 7041 CMA IAC / :no -- name==CHAR? 899 010756 1101 TAD CHAR 900 010757 7650 SNA CLA 901 010760 5364 JMP LKSC / :yes -- take succ return 902 010761 2077 ISZ TEMP / :no -- bump to next entry 903 010762 2077 ISZ TEMP 904 010763 5351 JMP LKLP / try next entry 905 010764 1077 LKSC, TAD TEMP / succ return 906 010765 2342 ISZ LOOKUP 907 010766 5742 JMP I LOOKUP 908 909 / command -- close open location 910 010767 4560 XCRETN, JMS I [XALTER / alter if arg & any open 911 010770 5574 JMP I [START / next command 912 913 / ------------------------ 914 010773 7721 915 010774 0174 916 010775 0020 917 010776 0134 918 010777 0057 919 1000 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 10 920 / command -- set or clear break point 921 011000 4571 XRTANG, JMS I [ARGTST / any arg? 922 011001 5207 JMP XRTA1 / :no -- clear break flag 923 011002 1054 TAD ARGHI / :yes -- restrict ARG to memory size 924 011003 0040 AND ADRMSK 925 011004 7004 RAL / insure ARG hi bit is set 926 011005 7130 CLL CML RAR 927 011006 3054 DCA ARGHI 928 011007 1377 XRTA1, TAD (BPLIST / set up table pointer & length to do entire 929 011010 3077 DCA TEMP / table, if no BP # identified 930 011011 1376 TAD (-12 931 011012 3076 DCA CNTCNT 932 011013 4576 JMS I [GETNXT / get BP # char into CHAR 933 011014 1101 TAD CHAR / do all BPs? 934 011015 1375 TAD (-"/!7600 935 011016 7450 SNA 936 011017 5236 JMP XRTA2 / :yes 937 011020 1374 TAD ("/-"?!7600 / :no -- dump active BP list? 938 011021 7450 SNA 939 011022 5265 JMP BPDUMP / :yes 940 011023 1373 TAD ("?-"9 / :no -- do which BP? 941 011024 7540 SMA SZA 942 011025 4575 JMS I [ERR 943 1026 ERUNBH= . / UNRECOGNIZED BREAKPOINT NAME 944 011026 1372 TAD ("9-"0 945 011027 7510 SPA 946 011030 4575 JMS I [ERR 947 1031 ERUNBL= . / UNRECOGNIZED BREAKPOINT NAME 948 011031 7104 CLL RAL / set up table pointer & length to do just the 949 011032 1377 TAD (BPLIST / one indicated BP 950 011033 3077 DCA TEMP 951 011034 7240 CLA CMA 952 011035 3076 DCA CNTCNT 953 011036 1054 XRTA2, TAD ARGHI / set all indicated BPs to ARG 954 011037 3477 DCA I TEMP 955 011040 2077 ISZ TEMP 956 011041 1055 TAD ARGLO 957 011042 3477 DCA I TEMP 958 011043 2077 ISZ TEMP 959 011044 2076 ISZ CNTCNT / end of BP list? 960 011045 5236 JMP XRTA2 / :no -- do next BP 961 011046 1377 TAD (BPLIST / :yes -- any BP now set? 962 011047 3077 DCA TEMP / set up table pointer & length 963 011050 1376 TAD (-12 964 011051 3076 DCA CNTCNT 965 011052 7301 CLA CLL IAC / first, set BRKFLG 966 011053 3070 DCA BRKFLG 967 011054 1477 XRTA3, TAD I TEMP / then, scan for set BP 968 011055 2077 ISZ TEMP 969 011056 2077 ISZ TEMP 970 011057 7710 SPA CLA / is it set? 971 011060 5574 JMP I [START / :yes -- leave BRKFLG set 972 011061 2076 ISZ CNTCNT / :no -- end of BP list? 973 011062 5254 JMP XRTA3 / :no -- do next BP 974 011063 3070 DCA BRKFLG / :yes, no BP is set -- clear BRKFLG / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 10-1 975 011064 5574 JMP I [START / done 976 011065 1377 BPDUMP, TAD (BPLIST / set up pointers for scan 977 011066 3276 DCA BPDTMP / note -- CNTCNT is already set to -12 978 011067 1371 TAD (ASCII&"0 979 011070 3101 DCA CHAR 980 011071 1676 BPDLP, TAD I BPDTMP / is this BP set? 981 011072 7700 SMA CLA 982 011073 5304 JMP BPDSK / :no -- skip to next BP 983 011074 4577 JMS I [CRLF / :yes -- print BP report line 984 011075 4572 JMS I [DYADR 985 011076 0000 BPDTMP, 0 986 011077 1370 TAD (ASCII&"> 987 011100 4564 JMS I [PRCH 988 011101 1101 TAD CHAR 989 011102 4564 JMS I [PRCH 990 011103 4557 JMS I [SPACE 991 011104 2276 BPDSK, ISZ BPDTMP / bump pointers to next BP 992 011105 2276 ISZ BPDTMP 993 011106 2101 ISZ CHAR 994 011107 2076 ISZ CNTCNT / end of BP list? 995 011110 5271 JMP BPDLP / :no -- do next BP 996 011111 5574 JMP I [START / :yes -- done 997 998 / command -- begin execution at specified address 999 011112 4571 XCOLON, JMS I [ARGTST / any arg? 1000 011113 5315 JMP .+2 / :no -- use GSTART 1001 011114 5321 JMP XCOL1 / :yes -- use arg 1002 011115 1033 TAD GSTART+1 1003 011116 3055 DCA ARGLO 1004 011117 1032 TAD GSTART 1005 011120 3054 DCA ARGHI 1006 011121 7340 XCOL1, CLA CLL CMA / set continue to count to 1 1007 011122 3076 DCA CNTCNT 1008 011123 1043 TAD PROCTB / clear saved machine state 1009 011124 3077 DCA TEMP 1010 011125 2077 XCOL2, ISZ TEMP / set entry to 0 1011 011126 3477 DCA I TEMP 1012 011127 2077 ISZ TEMP 1013 011130 3477 DCA I TEMP 1014 011131 2077 ISZ TEMP / end of list? 1015 011132 1477 TAD I TEMP 1016 011133 7640 SZA CLA 1017 011134 5325 JMP XCOL2 / :no -- do next entry 1018 011135 4567 JMS I [PRCTST / :yes -- which processor? 1019 011136 5351 JMP XCOL3 / :Z80 1020 011137 1054 TAD ARGHI / :6120 -- set PC 1021 011140 0367 AND (7 1022 011141 7421 MQL 1023 011142 7501 MQA 1024 011143 7014 R3L 1025 011144 7501 MQA 1026 011145 3565 DCA I [SVFL 1027 011146 1055 TAD ARGLO 1028 011147 3556 DCA I [SVPC 1029 011150 5766' JMP RESTRT / start 6120 main program / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 10-2 1030 011151 1055 XCOL3, TAD ARGLO / set Z80 PCR 1031 011152 3765' DCA SVPCR+1 1032 011153 1054 TAD ARGHI 1033 011154 3764' DCA SVPCR 1034 011155 5763' JMP RUNZ80 / start Z80 APU 1035 1036 / ------------------------ 1037 011163 1705 1038 011164 4267 1039 011165 4270 1040 011166 1207 1041 011167 0007 1042 011170 0076 1043 011171 0060 1044 011172 0011 1045 011173 0006 1046 011174 7760 1047 011175 7721 1048 011176 7766 1049 011177 4276 1050 1200 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 11 1051 / command -- continue from point of interrupt 1052 011200 4571 XSEMIC, JMS I [ARGTST / any arg? 1053 011201 2055 ISZ ARGLO / :no -- use 1 1054 011202 1055 TAD ARGLO / :yes -- set continue count 1055 011203 7041 CMA IAC 1056 011204 3076 DCA CNTCNT 1057 011205 4567 JMS I [PRCTST / which processor? 1058 011206 5777' JMP RUNZ80 / :Z80 -- start it 1059 / :6120 -- start main program 1060 1061 / run program in 6120 main memory 1062 011207 1070 RESTRT, TAD BRKFLG / any breakpoint set? 1063 011210 7650 SNA CLA 1064 011211 5245 JMP REST2 / :no 1065 011212 4311 JMS BATTST / :yes -- any break addr == start addr? 1066 011213 5217 JMP REST1 / :no 1067 011214 7402 REST0, HLT / :yes -- execute 1 instr 1068 011215 4776' JMS EMLATE 1069 011216 5775' JMP HLTHIT / :HLT executed 1070 011217 1374 REST1, TAD (BPLIST / :not a HLT -- set traps 1071 011220 3231 DCA RESTA / set up table pointers & length 1072 011221 1373 TAD (INSLST 1073 011222 3077 DCA TEMP 1074 011223 1372 TAD (-12 1075 011224 3102 DCA RDXLIM 1076 011225 1631 REST3, TAD I RESTA / is this BP set? 1077 011226 7700 SMA CLA 1078 011227 5240 JMP REST4 / :no -- skip to next BP 1079 011230 4566 JMS I [LOAD / :yes -- save instr in table 1080 011231 0000 RESTA, 0 1081 011232 3477 DCA I TEMP 1082 011233 1231 TAD RESTA / set trap 1083 011234 3237 DCA RESTB 1084 011235 1371 TAD (HLT 1085 011236 4555 JMS I [STORE 1086 011237 0000 RESTB, 0 1087 011240 2231 REST4, ISZ RESTA / incr table pointers 1088 011241 2231 ISZ RESTA 1089 011242 2077 ISZ TEMP 1090 011243 2102 ISZ RDXLIM / end of BP list? 1091 011244 5225 JMP REST3 / :no -- do next BP 1092 011245 6003 REST2, PGO / :yes -- restart main program 1093 011246 4776' JMS EMLATE 1094 011247 7000 NOP / :HLT was first instr -- continue 1095 011250 1070 TAD BRKFLG / :HLT other than first -- breakpoint set? 1096 011251 7650 SNA CLA 1097 011252 5775' JMP HLTHIT / :no, must be coded HLT 1098 011253 1370 TAD (BPLIST+22 / :yes -- restore instrs under breakpoints 1099 011254 3266 DCA RESTC / set up table pointers & length 1100 011255 1367 TAD (INSLST+11 1101 011256 3077 DCA TEMP 1102 011257 1372 TAD (-12 1103 011260 3102 DCA RDXLIM 1104 011261 1666 REST5, TAD I RESTC / is this BP set? 1105 011262 7700 SMA CLA / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 11-1 1106 011263 5267 JMP REST6 / :no -- skip to next BP 1107 011264 1477 TAD I TEMP / :yes -- restore instr from table 1108 011265 4555 JMS I [STORE 1109 011266 0000 RESTC, 0 1110 011267 7344 REST6, CLA CLL CMA RAL / decr table pointers 1111 011270 1266 TAD RESTC 1112 011271 3266 DCA RESTC 1113 011272 7340 CLA CLL CMA 1114 011273 1077 TAD TEMP 1115 011274 3077 DCA TEMP 1116 011275 2102 ISZ RDXLIM / end (actually bgn) of BP list? 1117 011276 5261 JMP REST5 / :no -- do next BP 1118 011277 7340 CLA CLL CMA / :yes -- this will back up saved PC for test 1119 011300 4311 JMS BATTST / any break addr == HLT addr? 1120 011301 5775' JMP HLTHIT / :no, must be coded HLT 1121 011302 7340 CLA CLL CMA / :yes, breakpoint -- back up saved PC 1122 011303 1556 TAD I [SVPC 1123 011304 3556 DCA I [SVPC 1124 011305 2076 ISZ CNTCNT / continue? 1125 011306 5214 JMP REST0 / :yes 1126 011307 1101 TAD CHAR / :no -- use "break" message 1127 011310 5766' JMP DYSTTH / go display registers 1128 1129 / subr -- test for (saved PC + accum) == any break point 1130 / accum = 0 to test next locn to be executed (restart addr) 1131 / accum = -1 to test locn most recently executed (HLT addr) 1132 / return+0: fail -- no break point matches 1133 / return+1: succ -- CHAR contains name of break point 1134 011311 7412 BATTST, XX 1135 011312 1556 TAD I [SVPC / set up address comparison 1136 011313 7041 CMA IAC 1137 011314 3061 DCA LOOKLO 1138 011315 1565 TAD I [SVFL 1139 011316 7012 RTR 1140 011317 7130 CLL CML RAR / trust me 1141 011320 0365 AND (4007 1142 011321 7041 CMA IAC 1143 011322 3060 DCA LOOKHI 1144 011323 1364 TAD (BPLIST-1 / set up table pointer & length 1145 011324 3077 DCA TEMP 1146 011325 1372 TAD (-12 1147 011326 3102 DCA RDXLIM 1148 011327 1363 TAD (ASCII&"0 1149 011330 3101 DCA CHAR 1150 011331 2077 BTLP, ISZ TEMP / does this BP match? 1151 011332 1477 TAD I TEMP / test hi words 1152 011333 2077 ISZ TEMP 1153 011334 1060 TAD LOOKHI 1154 011335 7640 SZA CLA 1155 011336 5345 JMP BTFL / :no -- skip to next BP 1156 011337 1477 TAD I TEMP / :maybe -- test lo words 1157 011340 1061 TAD LOOKLO 1158 011341 7640 SZA CLA 1159 011342 5345 JMP BTFL / :no -- skip to next BP 1160 011343 2311 ISZ BATTST / :yes -- take succ return / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 11-2 1161 011344 5711 JMP I BATTST 1162 011345 2101 BTFL, ISZ CHAR / incr BP number 1163 011346 2102 ISZ RDXLIM / end of BP list? 1164 011347 5331 JMP BTLP / :no -- do next BP 1165 011350 5711 JMP I BATTST / :yes -- take fail return 1166 1167 / ------------------------ 1168 011363 0060 1169 011364 4275 1170 011365 4007 1171 011366 1666 1172 011367 4333 1173 011370 4320 1174 011371 7402 1175 011372 7766 1176 011373 4322 1177 011374 4276 1178 011375 1665 1179 011376 1400 1180 011377 1705 1181 1400 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 12 1182 / subr -- restart execution in 6120 main mem using saved machine state 1183 / if HLT flag is set, the 6120 will execute 1 instruction and then interrupt 1184 / if HLT flag is clear, the 6120 will execute until a HLT is encountered 1185 / all 6120 main mem HLTs come back to this subr 1186 / return+0: HLT was first (or only) instruction executed 1187 / return+1: HLT was not the first instruction, or HLTFLG was already set 1188 011400 1665 EMLATE, HLTHIT / prepared for primeval HLT 1189 011401 4777' JMS FETCH / see if first instruction to be executed 1190 011402 0376 AND (7403 / includes a HLT -- if not, bump return addr 1191 011403 1375 TAD (-7402 1192 011404 7640 SZA CLA 1193 011405 2200 ISZ EMLATE 1194 011406 1374 TAD (PSHSL / direct mat dvc input to firmware silo 1195 011407 6201 CDF PRQFLD 1196 011410 3773 DCA I (PUSHVC 1197 011411 1772 TAD I (PSTAT / clear saved HLT flag so firmware can exit 1198 011412 0371 AND (7577 1199 011413 3772 DCA I (PSTAT 1200 011414 1770 TAD I (LOCKED / was mat dvc (keyboard) locked? 1201 011415 6271 CDF ODTFLD 1202 011416 7650 SNA CLA 1203 011417 5225 JMP NOLCK2 / :no 1204 011420 1367 TAD (LOCKBD / :yes -- lock it again 1205 011421 7421 MQL 1206 011422 1366 TAD (KBXQP 1207 011423 6203 CDF CIF PRQFLD 1208 011424 4765' JMS CALLAR 1209 011425 4764' NOLCK2, JMS XFMOV / restore saved machine state & CRT attributes 1210 011426 6271 CDF ODTFLD 1211 011427 6201 CDF PRQFLD 1212 011430 7771 -7 1213 011431 4203 SVFL; FLSAV 1214 011432 0021 1215 011433 4206 SVPC; PCSAV 1216 011434 0000 1217 011435 4211 SVAC; ACSAV 1218 011436 0020 1219 011437 4214 SVMQ; MQSAV 1220 011440 0023 1221 011441 1533 ATRSAV; ATTRIB 1222 011442 0120 1223 011443 1534 G0FSAV; G0FLAG 1224 011444 0121 1225 011445 1535 G1FSAV; G1FLAG 1226 011446 0122 1227 011447 1763' TAD SVS1 1228 011450 6217 WRSPT PTR1 1229 011451 1762' TAD SVS2 1230 011452 6237 WRSPT PTR2 1231 011453 6203 CDF CIF PRQFLD 1232 011454 5761' JMP FWEXIT / go to panel firmware interrupt return block 1233 1234 011455 1360 DBGINT, TAD (HLTHIT 1235 011456 3200 DCA EMLATE 1236 DBGHLT, / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 12-1 1237 011457 6271 DEBUG, CDF ODTFLD / HLT in main memory program comes here 1238 011460 4764' JMS XFMOV / record saved machine state & CRT attributes 1239 011461 6201 CDF PRQFLD 1240 011462 6271 CDF ODTFLD 1241 011463 7771 -7 1242 011464 0021 FLSAV; SVFL 1243 011465 4203 1244 011466 0000 PCSAV; SVPC 1245 011467 4206 1246 011470 0020 ACSAV; SVAC 1247 011471 4211 1248 011472 0023 MQSAV; SVMQ 1249 011473 4214 1250 011474 0120 ATTRIB; ATRSAV 1251 011475 1533 1252 011476 0121 G0FLAG; G0FSAV 1253 011477 1534 1254 011500 0122 G1FLAG; G1FSAV 1255 011501 1535 1256 011502 6207 RDSPT PTR1 1257 011503 3763' DCA SVS1 1258 011504 6227 RDSPT PTR2 1259 011505 3762' DCA SVS2 1260 011506 1357 TAD (CATCH / direct mat dvc input to variable CHAR 1261 011507 6201 CDF PRQFLD 1262 011510 3773 DCA I (PUSHVC 1263 011511 1770 TAD I (LOCKED / is mat dvc locked? 1264 011512 6271 CDF ODTFLD 1265 011513 7650 SNA CLA 1266 011514 5322 JMP NOLCK1 / :no 1267 011515 1356 TAD (UNLOCK / :yes -- unlock it (but leave LOCKED as is) 1268 011516 7421 MQL 1269 011517 1366 TAD (KBXQP 1270 011520 6203 CDF CIF PRQFLD 1271 011521 4765' JMS CALLAR 1272 011522 4554 NOLCK1, JMS I [DUMP / reset terminal for debug program output 1273 011523 0033 ESCAPE 1274 011524 0133 ASCII&"[ 1275 011525 0060 ASCII&"0 1276 011526 0073 ASCII&"; 1277 011527 0067 ASCII&"7 / 1 = bold, 4 = underline, 5 = blink, 7 = reverse 1278 011530 0155 ASCII&"m 1279 011531 0000 0 1280 011532 5600 JMP I EMLATE / start or return to debugger 1281 1282 011533 0000 ATRSAV, 0 1283 011534 0000 G0FSAV, 0 1284 011535 0000 G1FSAV, 0 1285 1286 / command -- inject & run bootstrap loader 1287 011536 1360 XGRAVE, TAD (HLTHIT / preset debug entry point 1288 011537 3200 DCA EMLATE 1289 011540 1374 TAD (PSHSL / direct mat dvc input to firmware silo 1290 011541 6201 CDF PRQFLD 1291 011542 3773 DCA I (PUSHVC / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 12-2 1292 011543 6003 PGO / restart RAM firmware from beginning -- it 1293 011544 6203 CDF CIF PRQFLD / will preset memory and hardware, then 1294 011545 5755' JMP REBOOT / inject and run the RX boot loader 1295 1296 / ------------------------ 1297 011555 0200 1298 011556 0213 1299 011557 7621 1300 011560 1665 1301 011561 0460 1302 011562 4222 1303 011563 4217 1304 011564 2630 1305 011565 7612 1306 011566 3244 1307 011567 0211 1308 011570 0026 1309 011571 7577 1310 011572 0022 1311 011573 0154 1312 011574 4617 1313 011575 0376 1314 011576 7403 1315 011577 2615 1316 1600 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 13 1317 / command -- search memory range under mask 1318 011600 1025 XQUOTE, TAD SCHBGN+1 / pointer = search begin 1319 011601 3061 DCA LOOKLO 1320 011602 1024 TAD SCHBGN 1321 011603 0040 AND ADRMSK 1322 011604 3060 DCA LOOKHI 1323 011605 1055 TAD ARGLO / set up search arg 1324 011606 0041 AND DATMSK 1325 011607 0022 AND SCHMSK 1326 011610 7041 CMA IAC 1327 011611 3101 DCA CHAR 1328 011612 1027 XQUOLP, TAD SCHEND / pointer > search end? 1329 011613 0040 AND ADRMSK 1330 011614 7161 CLL CMA CML IAC 1331 011615 1060 TAD LOOKHI 1332 011616 7460 SNL SZA 1333 011617 5574 JMP I [START / :yes -- next command 1334 011620 7630 SZL CLA 1335 011621 5227 JMP .+6 / :no 1336 011622 1030 TAD SCHEND+1 / :maybe... 1337 011623 7161 CLL CMA CML IAC 1338 011624 1061 TAD LOOKLO 1339 011625 7660 SNL SZA CLA 1340 011626 5574 JMP I [START / :yes -- next command 1341 011627 4566 JMS I [LOAD / :no -- check location 1342 011630 0060 LOOK 1343 011631 3077 DCA TEMP 1344 011632 1077 TAD TEMP / ( contents & mask ) == search arg? 1345 011633 0022 AND SCHMSK 1346 011634 1101 TAD CHAR 1347 011635 7640 SZA CLA 1348 011636 5253 JMP XQUONM / :no 1349 011637 4577 JMS I [CRLF / :yes -- display hit, addr & contents 1350 011640 4572 JMS I [DYADR 1351 011641 0060 LOOK 1352 011642 1377 TAD (ASCII&"/ 1353 011643 4564 JMS I [PRCH 1354 011644 1077 TAD TEMP 1355 011645 4563 JMS I [DYDAT 1356 011646 1077 TAD TEMP / print contents as characters 1357 011647 4562 JMS I [DYCHR 1358 011650 7300 CLA CLL / print contents as PAL8 mnemonics, in static 1359 011651 4561 JMS I [DYPAL / context (DF unknown) 1360 011652 0060 LOOK 1361 011653 2061 XQUONM, ISZ LOOKLO / bump pointer 1362 011654 5212 JMP XQUOLP 1363 011655 2060 ISZ LOOKHI / never skips because pointer <= search end 1364 011656 5212 JMP XQUOLP 1365 1366 / command -- display all machine registers for current processor 1367 011657 4567 XEQUAL, JMS I [PRCTST / which processor? 1368 011660 5263 JMP XEQZ / :Z80 1369 011661 1376 TAD (ASCII&"= / :6120 1370 011662 5266 JMP DYSTTH 1371 011663 1376 XEQZ, TAD (ASCII&"= / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 13-1 1372 011664 5306 JMP DYSTTZ 1373 1374 / coded HLT instruction encountered in main memory 1375 011665 1375 HLTHIT, TAD (ASCII&"@ / use "HLT" message 1376 1377 / display saved 6120 machine state 1378 011666 4553 DYSTTH, JMS I [LNHEAD / indicate report type 1379 011667 1374 TAD (H6120R / point to 6120 reg list 1380 011670 3077 DCA TEMP 1381 011671 1477 DYSHLP, TAD I TEMP / get name of reg 1382 011672 7450 SNA / end of list? 1383 011673 5574 JMP I [START / :yes -- next command 1384 011674 4564 JMS I [PRCH / :no -- display name 1385 011675 1376 TAD (ASCII&"= 1386 011676 4564 JMS I [PRCH 1387 011677 2077 ISZ TEMP / display reg lo wd in data size 1388 011700 2077 ISZ TEMP 1389 011701 1477 TAD I TEMP 1390 011702 4563 JMS I [DYDAT 1391 011703 2077 ISZ TEMP / bump to next entry 1392 011704 5271 JMP DYSHLP / do next entry 1393 1394 / run the Z80 APU and monitor it for a halt or failure 1395 011705 1373 RUNZ80, TAD ("| / not implemented yet 1396 1397 / display saved Z80 APU machine state 1398 011706 4553 DYSTTZ, JMS I [LNHEAD / indicate report type 1399 011707 1372 TAD (Z80APU / point to Z80 reg list 1400 011710 3077 DCA TEMP 1401 011711 1371 TAD (-10 / must begin a new line after 8th reg 1402 011712 3076 DCA CNTCNT 1403 011713 1477 DYSZLP, TAD I TEMP / get name of reg 1404 011714 7450 SNA / end of list? 1405 011715 5574 JMP I [START / :yes -- next command 1406 011716 4564 JMS I [PRCH / :no -- display name 1407 011717 1376 TAD (ASCII&"= 1408 011720 4564 JMS I [PRCH 1409 011721 2077 ISZ TEMP / display reg in addr size 1410 011722 1077 TAD TEMP 1411 011723 3325 DCA .+2 1412 011724 4572 JMS I [DYADR 1413 011725 0000 0 1414 011726 2077 ISZ TEMP / bump to next entry 1415 011727 2077 ISZ TEMP 1416 011730 2076 ISZ CNTCNT / 8th reg? 1417 011731 5313 JMP DYSZLP / :no -- do next entry 1418 011732 4577 JMS I [CRLF / :yes -- begin new line 1419 011733 5313 JMP DYSZLP / do next entry 1420 1421 / errors and abortions come here 1422 011734 7412 ERR, XX 1423 011735 7200 CLA 1424 011736 1370 TAD (ERRLST-2 1425 011737 3077 DCA TEMP 1426 011740 2077 ERLP, ISZ TEMP / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 13-2 1427 011741 2077 ISZ TEMP 1428 011742 1477 TAD I TEMP 1429 011743 2077 ISZ TEMP 1430 011744 7450 SNA 1431 011745 5351 JMP ERFN 1432 011746 1334 TAD ERR 1433 011747 7640 SZA CLA 1434 011750 5340 JMP ERLP 1435 011751 1477 ERFN, TAD I TEMP 1436 011752 4552 JMS I [TXMSG 1437 011753 2077 ISZ TEMP 1438 011754 1477 TAD I TEMP 1439 011755 7440 SZA 1440 011756 4552 JMS I [TXMSG 1441 011757 5574 JMP I [START 1442 1443 / ------------------------ 1444 011770 5345 1445 011771 7770 1446 011772 4225 1447 011773 0374 1448 011774 4201 1449 011775 0100 1450 011776 0075 1451 011777 0057 1452 2000 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 14 1453 / command -- accept and define or delete symbols 1454 / first accept optional symbol from user, then check for arg 1455 / if no arg and no symbol, then purge symbol table 1456 / if no arg but symbol entered, then delete one symbol from table 1457 / if arg entered but no symbol, then delete first symbol with that value 1458 / if arg and symbol entered, and symbol is not in table, then 1459 / add symbol to table with that value 1460 / if arg and symbol entered, and symbol is found in table, then 1461 / change symbol value to arg 1462 012000 4777' XDEFSY, JMS GETSYM / get symbol from user 1463 012001 5254 JMP XDEF3 / :none 1464 012002 4571 JMS I [ARGTST / :ok -- any arg? 1465 012003 5251 JMP XDEF2 / :no 1466 012004 4776' JMS LOCSYM / :yes -- symbol in table? 1467 012005 5207 JMP .+2 / :no 1468 012006 5243 JMP XDEF1 / :yes 1469 012007 1105 TAD SYMLOC / add symbol and arg to table 1470 012010 7040 CMA 1471 012011 1104 TAD SYMBGN 1472 012012 3110 DCA SYMCCT 1473 012013 7240 CLA CMA 1474 012014 1104 TAD SYMBGN 1475 012015 3010 DCA 10 1476 012016 7327 CLA CLL CML IAC RTL 1477 012017 1104 TAD SYMBGN 1478 012020 3104 DCA SYMBGN 1479 012021 7240 CLA CMA 1480 012022 1104 TAD SYMBGN 1481 012023 3011 DCA 11 1482 012024 2110 INSYLP, ISZ SYMCCT 1483 012025 5227 JMP .+2 1484 012026 5232 JMP INSYDN 1485 012027 1410 TAD I 10 1486 012030 3411 DCA I 11 1487 012031 5224 JMP INSYLP 1488 012032 1375 INSYDN, TAD (SYMBOL-1 1489 012033 3010 DCA 10 1490 012034 1374 TAD (-6 1491 012035 3110 DCA SYMCCT 1492 012036 1410 INDNLP, TAD I 10 1493 012037 3411 DCA I 11 1494 012040 2110 ISZ SYMCCT 1495 012041 5236 JMP INDNLP 1496 012042 5574 JMP I [START / done 1497 012043 1054 XDEF1, TAD ARGHI / set value to arg 1498 012044 3506 DCA I VALLOC 1499 012045 2106 ISZ VALLOC 1500 012046 1055 TAD ARGLO 1501 012047 3506 DCA I VALLOC 1502 012050 5574 JMP I [START / done 1503 012051 4776' XDEF2, JMS LOCSYM / symbol in table? 1504 012052 4575 JMS I [ERR / :no 1505 2053 ERNDNS= . / ? CANNOT DELETE -- SYMBOL NOT DEFINED 1506 012053 5260 JMP XDEF4 / :yes 1507 012054 4571 XDEF3, JMS I [ARGTST / any arg? / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 14-1 1508 012055 5304 JMP XDEF5 / :no 1509 012056 4773' JMS LOCVAL / :yes -- value in table? 1510 012057 4575 JMS I [ERR / :no 1511 2060 ERNDNV= . / ? CANNOT DELETE -- VALUE NOT DEFINED 1512 012060 4772' XDEF4, JMS CONFRM / :yes -- last chance 1513 012061 1105 TAD SYMLOC / delete one table entry 1514 012062 7040 CMA 1515 012063 1104 TAD SYMBGN 1516 012064 3110 DCA SYMCCT 1517 012065 7327 CLA CLL CML IAC RTL 1518 012066 1105 TAD SYMLOC 1519 012067 3104 DCA SYMBGN 1520 012070 2110 DESYLP, ISZ SYMCCT 1521 012071 5273 JMP .+2 1522 012072 5574 JMP I [START / done 1523 012073 7240 CLA CMA 1524 012074 1105 TAD SYMLOC 1525 012075 3105 DCA SYMLOC 1526 012076 7240 CLA CMA 1527 012077 1104 TAD SYMBGN 1528 012100 3104 DCA SYMBGN 1529 012101 1505 TAD I SYMLOC 1530 012102 3504 DCA I SYMBGN 1531 012103 5270 JMP DESYLP 1532 012104 4772' XDEF5, JMS CONFRM / last chance 1533 012105 1371 TAD (SYMEND / purge the table 1534 012106 3104 DCA SYMBGN 1535 012107 5574 JMP I [START / done 1536 1537 / command -- accept and use symbol, or display table entries 1538 / first accept optional symbol from user, then check for arg 1539 / if no arg and no symbol, then display entire symbol table 1540 / if arg entered but no symbol, then display symbols with that value 1541 / if symbol entered (arg or no), then use it as an arg 1542 012110 4777' XUSESY, JMS GETSYM / get symbol from user 1543 012111 5324 JMP XUSE1 / :none 1544 012112 4776' JMS LOCSYM / :ok -- symbol in table? 1545 012113 4575 JMS I [ERR / :no 1546 2114 ERNUNS= . / ? UNRECOGNIZED -- SYMBOL NOT DEFINED 1547 012114 1506 TAD I VALLOC / :yes -- set arg to value 1548 012115 3054 DCA ARGHI 1549 012116 2106 ISZ VALLOC 1550 012117 1506 TAD I VALLOC 1551 012120 3055 DCA ARGLO 1552 012121 7201 CLA IAC / mark arg as entered 1553 012122 3073 DCA ARGCNT 1554 012123 5770' JMP NXDGT / back to command processor 1555 012124 4571 XUSE1, JMS I [ARGTST / any arg? 1556 012125 5332 JMP XUSE2 / :no 1557 012126 4773' JMS LOCVAL / :yes -- value in table? 1558 012127 4575 JMS I [ERR / :no 1559 2130 ERNPNV= . / ? CANNOT DISPLAY -- VALUE NOT DEFINED 1560 012130 4767' JMS PRENT / :yes -- print one table entry 1561 012131 5574 JMP I [START / done 1562 012132 1104 XUSE2, TAD SYMBGN / print entire symbol table / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 14-2 1563 012133 3105 XUSE3, DCA SYMLOC 1564 012134 1105 TAD SYMLOC 1565 012135 1366 TAD (-SYMEND 1566 012136 7650 SNA CLA 1567 012137 5574 JMP I [START / done 1568 012140 4767' JMS PRENT 1569 012141 7327 CLA CLL CML IAC RTL 1570 012142 1105 TAD SYMLOC 1571 012143 5333 JMP XUSE3 1572 1573 / ------------------------ 1574 012166 0002 1575 012167 2400 1576 012170 0215 1577 012171 7776 1578 012172 2345 1579 012173 2306 1580 012174 7772 1581 012175 0047 1582 012176 2252 1583 012177 2200 1584 2200 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 15 1585 / subr -- get optional symbol from the user 1586 / symbol is terminated by a space 1587 / return+0: user did not enter symbol (he just pressed space) 1588 / return+1: user entered a symbol -- first 6 chars packed at SYMBOL 1589 012200 7412 GETSYM, XX 1590 012201 4777' JMS GTCH / get input char into CHAR 1591 012202 5600 JMP I GETSYM / :space 1592 012203 2200 ISZ GETSYM / :non-space -- bump return 1593 012204 3051 DCA SYMBOL+1 / clear the text var SYMBOL 1594 012205 3052 DCA SYMBOL+2 1595 012206 3053 DCA SYMBOL+3 1596 012207 1376 TAD (SYMBOL / set up pointer & count 1597 012210 3107 DCA SYMCRS 1598 012211 7344 CLA CLL CMA RAL 1599 012212 3110 DCA SYMCCT 1600 012213 1101 GTSYLP, TAD CHAR / chars are packed 3 to 2 words 1601 012214 7106 CLL RTL 1602 012215 7006 RTL 1603 012216 3507 DCA I SYMCRS 1604 012217 4777' JMS GTCH / get input char into CHAR 1605 012220 5600 JMP I GETSYM / :space 1606 012221 1101 TAD CHAR / :non-space 1607 012222 7012 RTR 1608 012223 7012 RTR 1609 012224 0375 AND (17 1610 012225 1507 TAD I SYMCRS 1611 012226 3507 DCA I SYMCRS 1612 012227 2107 ISZ SYMCRS 1613 012230 1101 TAD CHAR 1614 012231 0375 AND (17 1615 012232 7002 BSW 1616 012233 7106 CLL RTL 1617 012234 3507 DCA I SYMCRS 1618 012235 4777' JMS GTCH / get input char into CHAR 1619 012236 5600 JMP I GETSYM / :space 1620 012237 1101 TAD CHAR / :non-space 1621 012240 1507 TAD I SYMCRS 1622 012241 3507 DCA I SYMCRS 1623 012242 2107 ISZ SYMCRS 1624 012243 4777' GTSYEX, JMS GTCH / get input char into CHAR 1625 012244 5600 JMP I GETSYM / :space 1626 012245 2110 ISZ SYMCCT / :non-space -- packed 4 words yet? 1627 012246 5213 JMP GTSYLP / :no -- go pack 2 more 1628 012247 7240 CLA CMA / :yes -- ignore chars until space 1629 012250 3110 DCA SYMCCT 1630 012251 5243 JMP GTSYEX 1631 1632 / subr -- find an entry in the table by its symbol 1633 / the target symbol is in the 4-wd string var SYMBOL 1634 / return+0: not found -- SYMLOC points to the first entry with symbol greater 1635 / than the target symbol 1636 / return+1: found -- SYMLOC points to the entry's symbol, and VALLOC points to 1637 / the entry's value 1638 012252 7412 LOCSYM, XX 1639 012253 1104 TAD SYMBGN / set up entry pointer / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 15-1 1640 012254 3105 LCSYLP, DCA SYMLOC 1641 012255 1105 TAD SYMLOC / end of table? 1642 012256 1374 TAD (-SYMEND 1643 012257 7650 SNA CLA 1644 012260 5652 JMP I LOCSYM / :yes -- fail return 1645 012261 1105 TAD SYMLOC / :no -- compare symbols 1646 012262 3106 DCA VALLOC / set up word pointers & count 1647 012263 1373 TAD (SYMBOL-1 1648 012264 3010 DCA 10 1649 012265 1372 TAD (-4 1650 012266 3110 DCA SYMCCT 1651 012267 1506 LCSYRP, TAD I VALLOC / compare words 1652 012270 7161 CLL CMA CML IAC 1653 012271 1410 TAD I 10 1654 012272 7460 SNL SZA 1655 012273 5303 JMP LCSYNX / :entry < target -- try next symbol 1656 012274 7640 SZA CLA 1657 012275 5652 JMP I LOCSYM / :entry > target -- fail return 1658 012276 2106 ISZ VALLOC / :word matches -- try next word 1659 012277 2110 ISZ SYMCCT / all words tried? 1660 012300 5267 JMP LCSYRP / :no 1661 012301 2252 ISZ LOCSYM / :yes, symbol matches -- succ return 1662 012302 5652 JMP I LOCSYM 1663 012303 7327 LCSYNX, CLA CLL CML IAC RTL / bump to next entry 1664 012304 1105 TAD SYMLOC 1665 012305 5254 JMP LCSYLP / try again 1666 1667 / subr -- find an entry in the table by its value 1668 / the target value is in the 2-wd integer var ARG 1669 / return+0: not found 1670 / return+1: found -- SYMLOC points to the entry's symbol, and VALLOC points to 1671 / the entry's value 1672 012306 7412 LOCVAL, XX 1673 012307 1054 TAD ARGHI / form negatives, to speed comparisons 1674 012310 7041 CMA IAC 1675 012311 3060 DCA LOOKHI 1676 012312 1055 TAD ARGLO 1677 012313 7041 CMA IAC 1678 012314 3061 DCA LOOKLO 1679 012315 1104 TAD SYMBGN / set up entry pointer 1680 012316 3105 LCVLLP, DCA SYMLOC 1681 012317 1105 TAD SYMLOC / end of table? 1682 012320 1374 TAD (-SYMEND 1683 012321 7650 SNA CLA 1684 012322 5706 JMP I LOCVAL / :yes -- fail return 1685 012323 7307 CLA CLL IAC RTL / :no -- set up value pointer 1686 012324 1105 TAD SYMLOC 1687 012325 3106 DCA VALLOC 1688 012326 1506 TAD I VALLOC / compare hi words 1689 012327 1060 TAD LOOKHI 1690 012330 7640 SZA CLA 1691 012331 5342 JMP LCVLNX / :different -- try next entry 1692 012332 1106 TAD VALLOC / :same -- compare lo words 1693 012333 3010 DCA 10 1694 012334 1410 TAD I 10 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 15-2 1695 012335 1061 TAD LOOKLO 1696 012336 7640 SZA CLA 1697 012337 5342 JMP LCVLNX / :different -- try next entry 1698 012340 2306 ISZ LOCVAL / :same -- succ return 1699 012341 5706 JMP I LOCVAL 1700 012342 7327 LCVLNX, CLA CLL CML IAC RTL / bump to next entry 1701 012343 1105 TAD SYMLOC 1702 012344 5316 JMP LCVLLP / try again 1703 1704 / subr -- allow user the opportunity to confirm or abort a deletion 1705 012345 7412 CONFRM, XX 1706 012346 1371 TAD (CNFMSG 1707 012347 4552 JMS I [TXMSG 1708 012350 4576 JMS I [GETNXT 1709 012351 1101 TAD CHAR 1710 012352 1370 TAD (-"Y!7600 1711 012353 7640 SZA CLA 1712 012354 4575 JMS I [ERR 1713 2355 ERNCFM= . / * DELETION ABORTED 1714 012355 5745 JMP I CONFRM 1715 1716 / ------------------------ 1717 012370 7647 1718 012371 5337 1719 012372 7774 1720 012373 0047 1721 012374 0002 1722 012375 0017 1723 012376 0050 1724 012377 3604 1725 2400 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 16 1726 / subr -- display one symbol table entry 1727 / SYMLOC points to entry 1728 012400 7412 PRENT, XX 1729 012401 1105 TAD SYMLOC 1730 012402 3234 DCA PRENX 1731 012403 7344 CLA CLL CMA RAL 1732 012404 3110 DCA SYMCCT 1733 012405 4577 JMS I [CRLF 1734 012406 1634 PRENLP, TAD I PRENX 1735 012407 7012 RTR 1736 012410 7012 RTR 1737 012411 4236 JMS PUTCH 1738 012412 1634 TAD I PRENX 1739 012413 0377 AND (17 1740 012414 7106 CLL RTL 1741 012415 7006 RTL 1742 012416 7421 MQL 1743 012417 2234 ISZ PRENX 1744 012420 1634 TAD I PRENX 1745 012421 7002 BSW 1746 012422 7012 RTR 1747 012423 0377 AND (17 1748 012424 7501 MQA 1749 012425 4236 JMS PUTCH 1750 012426 1634 TAD I PRENX 1751 012427 4236 JMS PUTCH 1752 012430 2234 ISZ PRENX 1753 012431 2110 ISZ SYMCCT 1754 012432 5206 JMP PRENLP 1755 012433 4572 JMS I [DYADR 1756 012434 0000 PRENX, 0 1757 012435 5600 JMP I PRENT 1758 012436 7412 PUTCH, XX 1759 012437 0376 AND (177 1760 012440 7450 SNA 1761 012441 1375 TAD (ASCII&" 1762 012442 4564 JMS I [PRCH 1763 012443 5636 JMP I PUTCH 1764 1765 / ------------------------ 1766 012575 0040 1767 012576 0177 1768 012577 0017 1769 2600 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 17 1770 / subr -- report next instr to be executed according to flags in SVFL and 1771 / program counter in SVPC; print address and contents 1772 012600 7412 REPORT, XX 1773 012601 1377 TAD (ASCII&"[ / indicate report type 1774 012602 4553 JMS I [LNHEAD 1775 012603 4215 JMS FETCH / also sets LOOK* to address 1776 012604 3215 DCA FETCH 1777 012605 4572 JMS I [DYADR / print address 1778 012606 0060 LOOK 1779 012607 1215 TAD FETCH / print contents 1780 012610 4563 JMS I [DYDAT 1781 012611 7301 CLA CLL IAC / print contents as PAL8 mnemonics, in dynamic 1782 012612 4561 JMS I [DYPAL / context (DF taken from saved flags) 1783 012613 0060 LOOK 1784 012614 5600 JMP I REPORT / done 1785 1786 / subr -- fetch next instr to be executed according to flags in SVFL and 1787 / program counter in SVPC; leave complete address in LOOK* 1788 012615 7412 FETCH, XX 1789 012616 1556 TAD I [SVPC 1790 012617 3061 DCA LOOKLO 1791 012620 1565 TAD I [SVFL 1792 012621 7012 RTR 1793 012622 7010 RAR 1794 012623 0376 AND (7 1795 012624 3060 DCA LOOKHI 1796 012625 4566 JMS I [LOAD 1797 012626 0060 LOOK 1798 012627 5615 JMP I FETCH 1799 1800 / subr -- cross-field move utility 1801 / return+0: arg -- CDF for source field 1802 / return+1: arg -- CDF for target field 1803 / return+2: arg -- minus the number of words to move 1804 / return+3: arg -- source address of first word 1805 / return+4: arg -- target address of first word 1806 / return+5: arg -- source address of second word 1807 / return+6: arg -- target address of second word 1808 / ...etc source & target address pairs for etc words 1809 CHRTMP, / var shares subr head 1810 012630 7412 XFMOV, XX 1811 012631 7200 CLA 1812 012632 1630 TAD I XFMOV 1813 012633 2230 ISZ XFMOV 1814 012634 3251 DCA XFA 1815 012635 1630 TAD I XFMOV 1816 012636 2230 ISZ XFMOV 1817 012637 3253 DCA XFB 1818 012640 1630 TAD I XFMOV 1819 012641 2230 ISZ XFMOV 1820 012642 3102 DCA RDXLIM 1821 012643 1630 XFLP, TAD I XFMOV 1822 012644 2230 ISZ XFMOV 1823 012645 3077 DCA TEMP 1824 012646 1630 TAD I XFMOV / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 17-1 1825 012647 2230 ISZ XFMOV 1826 012650 3101 DCA CHAR 1827 012651 0000 XFA, 000 1828 012652 1477 TAD I TEMP 1829 012653 0000 XFB, 000 1830 012654 3501 DCA I CHAR 1831 012655 6271 CDF ODTFLD 1832 012656 2102 ISZ RDXLIM 1833 012657 5243 JMP XFLP 1834 012660 5630 JMP I XFMOV 1835 1836 / subr -- if SYMFLG is set (<>0), print ASCII, SIXBIT, and COS-310 character 1837 / interpretation of argument in accum 1838 012661 7412 DYCHR, XX 1839 012662 3230 DCA CHRTMP / save arg 1840 012663 1075 TAD SYMFLG / extended reporting? 1841 012664 7650 SNA CLA 1842 012665 5661 JMP I DYCHR / :off 1843 012666 4557 JMS I [SPACE / :on 1844 012667 1230 TAD CHRTMP / print it as one ASCII char 1845 012670 0375 AND (177 1846 012671 1374 TAD (-40 1847 012672 7510 SPA 1848 012673 5302 JMP NULL1 1849 012674 1373 TAD (40-177 1850 012675 7500 SMA 1851 012676 5302 JMP NULL1 1852 012677 1375 TAD (177 1853 012700 4564 JMS I [PRCH 1854 012701 5303 JMP NULL2 1855 012702 4340 NULL1, JMS BLANK 1856 012703 4557 NULL2, JMS I [SPACE 1857 012704 1230 TAD CHRTMP / print it as two SIXBIT chars 1858 012705 7002 BSW 1859 012706 1372 TAD (40 1860 012707 0371 AND (77 1861 012710 1372 TAD (40 1862 012711 4564 JMS I [PRCH 1863 012712 1230 TAD CHRTMP 1864 012713 1372 TAD (40 1865 012714 0371 AND (77 1866 012715 1372 TAD (40 1867 012716 4564 JMS I [PRCH 1868 012717 4557 JMS I [SPACE 1869 012720 1230 TAD CHRTMP / print it as two COS-310 chars 1870 012721 7002 BSW 1871 012722 4327 JMS DYCOS 1872 012723 1230 TAD CHRTMP 1873 012724 4327 JMS DYCOS 1874 012725 4557 JMS I [SPACE 1875 012726 5661 JMP I DYCHR / done 1876 1877 / subr -- print one COS-310 character from accum 1878 012727 7412 DYCOS, XX 1879 012730 0371 AND (77 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 17-2 1880 012731 7450 SNA 1881 012732 5336 JMP NULL3 1882 012733 1370 TAD (37 1883 012734 4564 JMS I [PRCH 1884 012735 5727 JMP I DYCOS 1885 012736 4340 NULL3, JMS BLANK 1886 012737 5727 JMP I DYCOS 1887 1888 / subr -- print a blank to represent a NULL character 1889 012740 7412 BLANK, XX 1890 012741 4554 JMS I [DUMP 1891 012742 0033 ESCAPE 1892 012743 0133 ASCII&"[ 1893 012744 0060 ASCII&"0 1894 012745 0155 ASCII&"m 1895 012746 0100 ASCII&"@ 1896 012747 0033 ESCAPE 1897 012750 0133 ASCII&"[ 1898 012751 0067 ASCII&"7 1899 012752 0155 ASCII&"m 1900 012753 0000 0 1901 012754 5740 JMP I BLANK 1902 1903 / ------------------------ 1904 012770 0037 1905 012771 0077 1906 012772 0040 1907 012773 7641 1908 012774 7740 1909 012775 0177 1910 012776 0007 1911 012777 0133 1912 3000 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 18 1913 / subr -- if SYMFLG is set (<>0), print the PAL8 mnemonics for the contents 1914 / of the indicated location interpreted as an instruction. The location is 1915 / required in order to complete the address calculations. 1916 013000 7412 DYPAL, XX 1917 013001 3103 DCA SBTMP / save static:dynamic flag 1918 013002 1600 TAD I DYPAL / get arg & bump return 1919 013003 2200 ISZ DYPAL 1920 013004 3123 DCA SYTMP 1921 013005 1075 TAD SYMFLG / extended reporting? 1922 013006 7650 SNA CLA 1923 013007 5600 JMP I DYPAL / :off -- exit 1924 013010 4557 JMS I [SPACE / :on 1925 013011 1523 TAD I SYTMP / make local copy of pointer 1926 013012 3066 DCA DPTRHI 1927 013013 2123 ISZ SYTMP 1928 013014 1523 TAD I SYTMP 1929 013015 3067 DCA DPTRLO 1930 013016 4566 JMS I [LOAD / get contents 1931 013017 0066 DPTR 1932 013020 3111 DCA DPVAL 1933 013021 7332 CLA CLL CML RTR / memory reference instruction? 1934 013022 1111 TAD DPVAL 1935 013023 7430 SZL 1936 013024 5313 JMP DYNMR / :no 1937 013025 0377 AND (200 / :yes -- make direct address 1938 013026 7041 CMA IAC 1939 013027 0067 AND DPTRLO 1940 013030 7421 MQL 1941 013031 1111 TAD DPVAL 1942 013032 0376 AND (177 1943 013033 7501 MQA 1944 013034 3067 DCA DPTRLO 1945 013035 4323 JMS SYSCH / print mnemonics 1946 013036 7000 NOP / table is format 1 1947 013037 4334 MRITBL 1948 013040 4572 JMS I [DYADR / print direct address 1949 013041 0066 DPTR 1950 013042 1111 TAD DPVAL / indirect? 1951 013043 0375 AND (400 1952 013044 7640 SZA CLA 1953 013045 5253 JMP DYPL1 / :yes 1954 013046 1111 TAD DPVAL / :no -- instruction type? 1955 013047 1374 TAD (1000 1956 013050 7710 SPA CLA 1957 013051 5600 JMP I DYPAL / :DCA, JMS, JMP -- exit 1958 013052 5305 JMP DYPL4 / :AND, TAD, ISZ 1959 013053 1373 DYPL1, TAD (ARROW2 1960 013054 4552 JMS I [TXMSG 1961 013055 1111 TAD DPVAL / instruction type? 1962 013056 7710 SPA CLA 1963 013057 5266 JMP DYPL2 / :JMS, JMP 1964 013060 1103 TAD SBTMP / :AND, TAD, ISZ, DCA -- call type? 1965 013061 7640 SZA CLA 1966 013062 5266 JMP DYPL2 / :dynamic 1967 013063 1372 TAD (ASCII&"? / :static -- unable to determine data field / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 18-1 1968 013064 4564 JMS I [PRCH 1969 013065 5307 JMP DYPL5 1970 013066 4566 DYPL2, JMS I [LOAD / make indirect address 1971 013067 0066 DPTR 1972 013070 3067 DCA DPTRLO 1973 013071 1111 TAD DPVAL / instruction type? 1974 013072 7710 SPA CLA 1975 013073 5277 JMP DYPL3 / :JMS, JMP -- use IF 1976 013074 1565 TAD I [SVFL / :AND, TAD, ISZ, DCA -- use DF 1977 013075 0371 AND (7 1978 013076 3066 DCA DPTRHI 1979 013077 4572 DYPL3, JMS I [DYADR / print indirect address 1980 013100 0066 DPTR 1981 013101 1111 TAD DPVAL / instruction type? 1982 013102 1374 TAD (1000 1983 013103 7710 SPA CLA 1984 013104 5600 JMP I DYPAL / :DCA, JMS, JMP -- exit 1985 013105 1370 DYPL4, TAD (ARROW1 / :AND, TAD, ISZ 1986 013106 4552 JMS I [TXMSG 1987 013107 4566 DYPL5, JMS I [LOAD / print contents of address 1988 013110 0066 DPTR 1989 013111 4563 JMS I [DYDAT 1990 013112 5600 JMP I DYPAL / exit 1991 013113 7200 DYNMR, CLA / it's OPR or IOT 1992 013114 4323 JMS SYSCH / print mnemonics 1993 013115 7000 NOP / table is format 1 1994 013116 4375 OPRTBL 1995 013117 4323 JMS SYSCH / print mnemonics 1996 013120 5343 JMP SYJ1 / table is format 2 1997 013121 4612 IOTTBL 1998 013122 5600 JMP I DYPAL / exit 1999 2000 / subr -- called by DYPAL to search mnemonic tables 2001 / tables are of two formats: (1) each entry is 4 wds -- a mask, a neg match, 2002 / and a 2 wd text msg; (2) each entry is 4 wds -- a neg match, and a 3 wd text 2003 / msg. Each table is terminated with a single zero wd. Format (1) requires a 2004 / NOP at location SYINS, while format (2) requires a JMP SYJ1. For each entry 2005 / in a format (1) table, the word in DPVAL is anded with the mask and compared 2006 / with the match; if the result is equal, the 2 wd text msg is printed. For 2007 / each entry in a format (2) table, the word in DPVAL is compared with the 2008 / match; if the result is equal, the 3 wd text msg is printed. 2009 013123 7412 SYSCH, XX 2010 013124 1723 TAD I SYSCH / get NOP or JMP SYJ1 instruction 2011 013125 2323 ISZ SYSCH 2012 013126 3336 DCA SYINS 2013 013127 1723 TAD I SYSCH / get table address 2014 013130 2323 ISZ SYSCH 2015 013131 3123 SYLP, DCA SYTMP 2016 013132 1523 TAD I SYTMP / end of table? 2017 013133 7450 SNA 2018 013134 5723 JMP I SYSCH / :yes, done -- exit 2019 013135 2123 ISZ SYTMP / :no 2020 013136 0000 SYINS, 000 / NOP for format (1), JMP SYJ1 for format (2) 2021 013137 0111 AND DPVAL / mask 2022 013140 1523 TAD I SYTMP / compare / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 18-2 2023 013141 7120 CLL CML / 2 wd msg starts with wd 3 of entry 2024 013142 5345 JMP SYJ2 2025 013143 1111 SYJ1, TAD DPVAL / compare 2026 013144 7100 CLL / 3 wd msg starts with wd 2 of entry 2027 013145 7640 SYJ2, SZA CLA / comparison result? 2028 013146 5352 JMP SYJ3 / :not equal -- skip printing 2029 013147 7004 RAL / :equal -- select wd 3 or wd 2 2030 013150 1123 TAD SYTMP 2031 013151 4552 JMS I [TXMSG / print msg 2032 013152 7325 SYJ3, CLA CLL CML IAC RAL / bump pointer to next entry 2033 013153 1123 TAD SYTMP 2034 013154 5331 JMP SYLP / go do next entry 2035 2036 / ------------------------ 2037 013170 5333 2038 013171 0007 2039 013172 0077 2040 013173 5335 2041 013174 1000 2042 013175 0400 2043 013176 0177 2044 013177 0200 2045 3200 PAGE / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 19 2046 / subr -- if arg was entered & anything was open, alter it 2047 / signal what was open by return displacement 2048 / return+0: nothing was open 2049 / return+1: register was open (program or machine) 2050 / return+2: memory location was open 2051 DDTMP, / var shares subr head locn 2052 013200 7412 QALTER, XX 2053 013201 1200 TAD QALTER / set up return 2054 013202 1071 TAD OPNFLG 2055 013203 3205 DCA XALTER 2056 013204 5206 JMP XALT0 / alter if arg & any open 2057 2058 / subr -- if arg was entered & anything was open, alter it 2059 RDXPTR, / var shares subr head locn 2060 013205 7412 XALTER, XX 2061 013206 4571 XALT0, JMS I [ARGTST / any arg? 2062 013207 5235 JMP XALTX / :no 2063 013210 1071 TAD OPNFLG / :yes -- what is open? 2064 013211 7450 SNA 2065 013212 4575 JMS I [ERR / :nothing is open 2066 3213 ERMDNO= . / CANNOT MODIFY -- NOTHING IS OPEN 2067 013213 7110 CLL RAR 2068 013214 7450 SNA 2069 013215 5224 JMP XALT1 / :machine register is open 2070 013216 7620 SNL CLA 2071 013217 5226 JMP XALT2 / :program register is open 2072 013220 1055 TAD ARGLO / :memory is open -- change it 2073 013221 4555 JMS I [STORE 2074 013222 0056 CURR 2075 013223 5235 JMP XALTX 2076 013224 1044 XALT1, TAD MCHPTR / change machine register contents 2077 013225 5227 JMP XALT3 2078 013226 1072 XALT2, TAD PRGPTR / change program register contents 2079 013227 3200 XALT3, DCA DDTMP 2080 013230 1054 TAD ARGHI 2081 013231 3600 DCA I DDTMP 2082 013232 2200 ISZ DDTMP 2083 013233 1055 TAD ARGLO 2084 013234 3600 DCA I DDTMP 2085 013235 3071 XALTX, DCA OPNFLG / set open flag to "nothing" 2086 013236 1046 TAD ADRRFL / set input radix to address output radix 2087 013237 3045 DCA INPRFL 2088 013240 5605 JMP I XALTER / exit 2089 2090 / subr -- print address-sized number (dbl-pr) using current radix 2091 / number of digits printed depends on radix & current processor 2092 / return+0: arg = panel addr of 2 wd number 2093 / return+1: normal return 2094 GADIG, / var shares subr head locn 2095 013241 7412 DYADR, XX 2096 013242 1641 TAD I DYADR / get number pointer 2097 013243 4777' JMS GETADR / use number pointer 2098 013244 7201 CLA IAC / discard CDF result 2099 013245 1241 TAD DYADR / get return addr & bump it over arg 2100 013246 3257 DCA DYDAT / set up return from common code / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 19-1 2101 013247 1062 TAD PSMAHI / mask number to proper size for current proc 2102 013250 0040 AND ADRMSK 2103 013251 3062 DCA PSMAHI 2104 013252 1046 TAD ADRRFL / set input radix to most recent output radix 2105 013253 3045 DCA INPRFL 2106 013254 1036 TAD ADRRDX / select format for current processor 2107 013255 1046 TAD ADRRFL 2108 013256 5267 JMP DDAT0 / join common code 2109 2110 / subr -- print data-sized number using current radix 2111 / number of digits printed depends on radix & current processor 2112 / 8 or 12 bit value is in the accum 2113 / return+0: normal return 2114 013257 7412 DYDAT, XX 2115 013260 0041 AND DATMSK / mask number to proper size for current proc 2116 013261 3063 DCA PSMALO 2117 013262 3062 DCA PSMAHI 2118 013263 1047 TAD DATRFL / set input radix to most recent output radix 2119 013264 3045 DCA INPRFL 2120 013265 1037 TAD DATRDX / select format for current processor 2121 013266 1047 TAD DATRFL 2122 2123 / code common to DYADR & DYDAT 2124 013267 3205 DDAT0, DCA RDXPTR / select format for current radix 2125 013270 1605 TAD I RDXPTR 2126 013271 3205 DCA RDXPTR 2127 013272 2205 DADR1, ISZ RDXPTR / get digit weight (stored as negative) 2128 013273 1605 TAD I RDXPTR 2129 013274 3064 DCA PSDBHI 2130 013275 2205 ISZ RDXPTR 2131 013276 1605 TAD I RDXPTR 2132 013277 3065 DCA PSDBLO 2133 013300 1376 TAD (-12 / prime the gathering digit 2134 013301 3241 DCA GADIG 2135 013302 7100 DADR2, CLL / number" 3252 015334 7600 3253 015335 7575 ARROW2, TEXT "==>" 3254 015336 7600 3255 3256 / confirmation prompt message 3257 015337 4042 CNFMSG, TEXT / "Y" TO DELETE:/ 3258 015340 3142 3259 015341 4024 3260 015342 1740 3261 015343 0405 3262 015344 1405 3263 015345 2405 3264 015346 7200 3265 3266 / table of error locations and err messages 3267 015347 7536 ERRLST, -ERUNCO; MSUNRC; MSCMND 3268 015350 5560 3269 015351 5707 3270 015352 7521 -ERDEIR; MSDEIR; 0 3271 015353 5751 3272 015354 0000 3273 015355 7341 -ERRFNO; MSCNFR; MSNTIO 3274 015356 5454 3275 015357 5570 3276 015360 7340 -ERRFMO; MSCNFR; MSRGIO 3277 015361 5454 3278 015362 5602 3279 015363 7337 -ERRFPO; MSCNFR; MSRGIO 3280 015364 5454 3281 015365 5602 3282 015366 7335 -ERRFZA; MSCNFR; MSZ80S 3283 015367 5454 3284 015370 5632 3285 015371 7326 -ERRFEX; MSCNFR; MSIIIO 3286 015372 5454 3287 015373 5642 3288 015374 7275 -ERINNO; MSCNFI; MSNTIO 3289 015375 5470 3290 015376 5570 3291 015377 7273 -ERINPO; MSCNFI; MSPRIO 3292 015400 5470 3293 015401 5614 3294 015402 7176 -ERSCNO; MSCNFS; MSNTIO 3295 015403 5504 3296 015404 5570 3297 015405 7115 -ERUNMR; MSUNRC; MSMRGN 3298 015406 5560 3299 015407 5713 3300 015410 7057 -ERUNPR; MSUNRC; MSPRGN 3301 015411 5560 3302 015412 5726 3303 015413 7236 -ERSTZA; MSCNST; MSZ80S 3304 015414 5520 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 24-1 3305 015415 5632 3306 015416 6752 -ERUNBH; MSUNRC; MSBKPN 3307 015417 5560 3308 015420 5741 3309 015421 6747 -ERUNBL; MSUNRC; MSBKPN 3310 015422 5560 3311 015423 5741 3312 015424 4565 -ERMDNO; MSCNMD; MSNTIO 3313 015425 5527 3314 015426 5570 3315 015427 5725 -ERNDNS; MSCNDL; MSSYND 3316 015430 5537 3317 015431 5661 3318 015432 5720 -ERNDNV; MSCNDL; MSVLND 3319 015433 5537 3320 015434 5674 3321 015435 5664 -ERNUNS; MSUNRC; MSSYND 3322 015436 5560 3323 015437 5661 3324 015440 5650 -ERNPNV; MSCNPR; MSVLND 3325 015441 5547 3326 015442 5674 3327 015443 4052 -EROUTI; MSOUTI; MSABOR 3328 015444 5773 3329 015445 6006 3330 015446 5423 -ERNCFM; MSDELI; MSABOR 3331 015447 6000 3332 015450 6006 3333 015451 0000 0; MSUNER; 0 3334 015452 6012 3335 015453 0000 3336 3337 / the messages referred to in the error list 3338 015454 7740 MSCNFR, TEXT "? CANNOT FIND REFERENCE" 3339 015455 0301 3340 015456 1616 3341 015457 1724 3342 015460 4006 3343 015461 1116 3344 015462 0440 3345 015463 2205 3346 015464 0605 3347 015465 2205 3348 015466 1603 3349 015467 0500 3350 015470 7740 MSCNFI, TEXT "? CANNOT FIND INDIRECT" 3351 015471 0301 3352 015472 1616 3353 015473 1724 3354 015474 4006 3355 015475 1116 3356 015476 0440 3357 015477 1116 3358 015500 0411 3359 015501 2205 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 24-2 3360 015502 0324 3361 015503 0000 3362 015504 7740 MSCNFS, TEXT "? CANNOT FIND SUCCESSOR" 3363 015505 0301 3364 015506 1616 3365 015507 1724 3366 015510 4006 3367 015511 1116 3368 015512 0440 3369 015513 2325 3370 015514 0303 3371 015515 0523 3372 015516 2317 3373 015517 2200 3374 015520 7740 MSCNST, TEXT "? CANNOT STEP" 3375 015521 0301 3376 015522 1616 3377 015523 1724 3378 015524 4023 3379 015525 2405 3380 015526 2000 3381 015527 7740 MSCNMD, TEXT "? CANNOT MODIFY" 3382 015530 0301 3383 015531 1616 3384 015532 1724 3385 015533 4015 3386 015534 1704 3387 015535 1106 3388 015536 3100 3389 015537 7740 MSCNDL, TEXT "? CANNOT DELETE" 3390 015540 0301 3391 015541 1616 3392 015542 1724 3393 015543 4004 3394 015544 0514 3395 015545 0524 3396 015546 0500 3397 015547 7740 MSCNPR, TEXT "? CANNOT DISPLAY" 3398 015550 0301 3399 015551 1616 3400 015552 1724 3401 015553 4004 3402 015554 1123 3403 015555 2014 3404 015556 0131 3405 015557 0000 3406 015560 7740 MSUNRC, TEXT "? UNRECOGNIZED" 3407 015561 2516 3408 015562 2205 3409 015563 0317 3410 015564 0716 3411 015565 1132 3412 015566 0504 3413 015567 0000 3414 015570 5555 MSNTIO, TEXT "-- NOTHING IS OPEN" / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 24-3 3415 015571 4016 3416 015572 1724 3417 015573 1011 3418 015574 1607 3419 015575 4011 3420 015576 2340 3421 015577 1720 3422 015600 0516 3423 015601 0000 3424 015602 5555 MSRGIO, TEXT "-- REGISTER IS OPEN" 3425 015603 4022 3426 015604 0507 3427 015605 1123 3428 015606 2405 3429 015607 2240 3430 015610 1123 3431 015611 4017 3432 015612 2005 3433 015613 1600 3434 015614 5555 MSPRIO, TEXT "-- PROGRAM REGISTER IS OPEN" 3435 015615 4020 3436 015616 2217 3437 015617 0722 3438 015620 0115 3439 015621 4022 3440 015622 0507 3441 015623 1123 3442 015624 2405 3443 015625 2240 3444 015626 1123 3445 015627 4017 3446 015630 2005 3447 015631 1600 3448 015632 5555 MSZ80S, TEXT "-- Z80 SELECTED" 3449 015633 4032 3450 015634 7060 3451 015635 4023 3452 015636 0514 3453 015637 0503 3454 015640 2405 3455 015641 0400 3456 015642 5555 MSIIIO, TEXT "-- INSTRUCTION IS IOT OR OPR" 3457 015643 4011 3458 015644 1623 3459 015645 2422 3460 015646 2503 3461 015647 2411 3462 015650 1716 3463 015651 4011 3464 015652 2340 3465 015653 1117 3466 015654 2440 3467 015655 1722 3468 015656 4017 3469 015657 2022 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 24-4 3470 015660 0000 3471 015661 5555 MSSYND, TEXT "-- SYMBOL NOT DEFINED" 3472 015662 4023 3473 015663 3115 3474 015664 0217 3475 015665 1440 3476 015666 1617 3477 015667 2440 3478 015670 0405 3479 015671 0611 3480 015672 1605 3481 015673 0400 3482 015674 5555 MSVLND, TEXT "-- VALUE NOT DEFINED" 3483 015675 4026 3484 015676 0114 3485 015677 2505 3486 015700 4016 3487 015701 1724 3488 015702 4004 3489 015703 0506 3490 015704 1116 3491 015705 0504 3492 015706 0000 3493 015707 0317 MSCMND, TEXT "COMMAND" 3494 015710 1515 3495 015711 0116 3496 015712 0400 3497 015713 1501 MSMRGN, TEXT "MACHINE REGISTER NAME" 3498 015714 0310 3499 015715 1116 3500 015716 0540 3501 015717 2205 3502 015720 0711 3503 015721 2324 3504 015722 0522 3505 015723 4016 3506 015724 0115 3507 015725 0500 3508 015726 2022 MSPRGN, TEXT "PROGRAM REGISTER NAME" 3509 015727 1707 3510 015730 2201 3511 015731 1540 3512 015732 2205 3513 015733 0711 3514 015734 2324 3515 015735 0522 3516 015736 4016 3517 015737 0115 3518 015740 0500 3519 015741 0222 MSBKPN, TEXT "BREAKPOINT NAME" 3520 015742 0501 3521 015743 1320 3522 015744 1711 3523 015745 1624 3524 015746 4016 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 24-5 3525 015747 0115 3526 015750 0500 3527 015751 7740 MSDEIR, TEXT "? DIGIT EXCEEDS CURRENT INPUT RADIX" 3528 015752 0411 3529 015753 0711 3530 015754 2440 3531 015755 0530 3532 015756 0305 3533 015757 0504 3534 015760 2340 3535 015761 0325 3536 015762 2222 3537 015763 0516 3538 015764 2440 3539 015765 1116 3540 015766 2025 3541 015767 2440 3542 015770 2201 3543 015771 0411 3544 015772 3000 3545 015773 5240 MSOUTI, TEXT "* OUTPUT" 3546 015774 1725 3547 015775 2420 3548 015776 2524 3549 015777 0000 3550 016000 5240 MSDELI, TEXT "* DELETION" 3551 016001 0405 3552 016002 1405 3553 016003 2411 3554 016004 1716 3555 016005 0000 3556 016006 0102 MSABOR, TEXT "ABORTED" 3557 016007 1722 3558 016010 2405 3559 016011 0400 3560 016012 4140 MSUNER, TEXT "! -- NO ERROR HELP --" 3561 016013 5555 3562 016014 4016 3563 016015 1740 3564 016016 0522 3565 016017 2217 3566 016020 2240 3567 016021 1005 3568 016022 1420 3569 016023 4055 3570 016024 5500 3571 3572 / ------------------------ 3573 3574 MOVEND, 3575 3576 $$ 3577 010152 3542 3578 010153 3651 3579 010154 3702 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 24-6 3580 010155 3434 3581 010156 4206 3582 010157 3676 3583 010160 3205 3584 010161 3000 3585 010162 2661 3586 010163 3257 3587 010164 3712 3588 010165 4203 3589 010166 3400 3590 010167 3535 3591 010170 3200 3592 010171 3530 3593 010172 3241 3594 010173 0201 3595 010174 0200 3596 010175 1734 3597 010176 3600 3598 010177 3660 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 25 ACSAV 0020 DDTMP 3200 EXPTCH 7650 LKSC 0764 ADRMSK 0040 DEBUG 1457 FETCH 2615 LNFEED 0012 ADRRDH 4127 DESYLP 2070 FLSAV 0021 LNHEAD 3651 ADRRDX 0036 DISCR 0201 FRAME 6060 LNTMP 3600 ADRRDZ 4132 DMPLP 3704 FWEXIT 0460 LOAD 3400 ADRRFL 0046 DPTR 0066 GADIG 3241 LOADZ 3415 APU 6140 DPTRHI 0066 GETADR 3475 LOCKBD 0211 ARG 0054 DPTRLO 0067 GETNXT 3600 LOCKED 0026 ARGCNT 0073 DPVAL 0111 GETSYM 2200 LOCSYM 2252 ARGHI 0054 DUMP 3702 GSTART 0032 LOCVAL 2306 ARGLO 0055 DYADR 3241 GTCH 3604 LODH1 3410 ARGTST 3530 DYCHR 2661 GTHALF 0251 LODZ1 3423 ARROW1 5333 DYCOS 2727 GTHNUM 0252 LODZ2 3424 ARROW2 5335 DYDAT 3257 GTNXLP 3606 LOOK 0060 ASCII 0177 DYNMR 3113 GTSYEX 2243 LOOKHI 0060 ATRSAV 1533 DYPAL 3000 GTSYLP 2213 LOOKLO 0061 ATTRIB 0120 DYPL1 3053 G0FLAG 0121 LOOKUP 0742 BATTST 1311 DYPL2 3066 G0FSAV 1534 MATIN 6110 BLANK 2740 DYPL3 3077 G1FLAG 0122 MATTX 6050 BPDLP 1071 DYPL4 3105 G1FSAV 1535 MCHPTR 0044 BPDSK 1104 DYPL5 3107 HDRBGN 0400 MINTK 7611 BPDTMP 1076 DYSHLP 1671 HDREND 0463 MOD40 0426 BPDUMP 1065 DYSTTH 1666 HDRFLD 0000 MOVBGN 0020 BPLIST 4276 DYSTTZ 1706 HK1BGN 0463 MOVEND 6025 BRKFLG 0070 DYSZLP 1713 HK1END 0465 MOVFLD 0010 BTFL 1345 EMLATE 1400 HK2BGN 0465 MOVPM 4000 BTLP 1331 EOFPR 0430 HK2END 0466 MQSAV 0023 CALLAR 7612 ERDEIR 0257 HK3BGN 0466 MRITBL 4334 CARRTN 0015 ERFN 1751 HK3END 0470 MSABOR 6006 CATCH 7621 ERINNO 0503 HK4BGN 0470 MSBKPN 5741 CHAR 0101 ERINPO 0505 HK4END 0471 MSCMND 5707 CHRTMP 2630 ERLP 1740 HK5BGN 0471 MSCNDL 5537 CMNDTB 4006 ERMDNO 3213 HK5END 0472 MSCNFI 5470 CNFMSG 5337 ERNCFM 2355 HLTHIT 1665 MSCNFR 5454 CNTCNT 0076 ERNDNS 2053 HOLD 0112 MSCNFS 5504 CONFRM 2345 ERNDNV 2060 H6120R 4201 MSCNMD 5527 CPD 6266 ERNPNV 2130 INDNLP 2036 MSCNPR 5547 CRLF 3660 ERNUNS 2114 INPRFL 0045 MSCNST 5520 CURR 0056 EROUTI 3726 INSLST 4322 MSDEIR 5751 CURRHI 0056 ERR 1734 INSYDN 2032 MSDELI 6000 CURRLO 0057 ERRFEX 0452 INSYLP 2024 MSIIIO 5642 DADR1 3272 ERRFMO 0440 INTKEY 0144 MSMRGN 5713 DADR2 3302 ERRFNO 0437 IOTTBL 4612 MSNTIO 5570 DADR3 3321 ERRFPO 0441 JMSPM 6000 MSOUTI 5773 DATMSK 0041 ERRFZA 0443 KBDINT 7600 MSPRGN 5726 DATRDH 4135 ERRLST 5347 KBXMT 3200 MSPRIO 5614 DATRDX 0037 ERSCNO 0602 KBXQP 3244 MSRGIO 5602 DATRDZ 4140 ERSTZA 0542 KBYBD 2415 MSSYND 5661 DATRFL 0047 ERUNBH 1026 LATCH 0100 MSUNER 6012 DBGCTL 0020 ERUNBL 1031 LCSYLP 2254 MSUNRC 5560 DBGHLT 1457 ERUNCO 0242 LCSYNX 2303 MSVLND 5674 DBGINT 1455 ERUNMR 0663 LCSYRP 2267 MSZ80S 5632 DBLADD 0111 ERUNPR 0721 LCVLLP 2316 MVLP 0311 DBLSHL 0123 ESCAPE 0033 LCVLNX 2342 NOLCK1 1522 DDAT0 3267 EXIT3 0476 LKLP 0751 NOLCK2 1425 / DEBUGGER FOR CONDOR APPLICATIONS PAL8-VA1 NO DATE PAGE 25-1 NONEG 0424 RDX084 4147 SYMBOL 0050 XEQUAL 1657 NULL1 2702 RDX085 4145 SYMCCT 0110 XEQZ 1663 NULL2 2703 RDX086 4143 SYMCRS 0107 XEXCLM 0330 NULL3 2736 RDX103 4163 SYMEND 7776 XFA 2651 NXDGT 0215 RDX104 4161 SYMFLG 0075 XFB 2653 ODTBGN 0020 RDX105 4157 SYMLOC 0105 XFLP 2643 ODTFLD 0070 RDX162 4175 SYSCH 3123 XFMOV 2630 ODYMCH 0665 RDX163 4173 SYTMP 0123 XGRAVE 1536 ODYMEM 0633 RDX164 4171 TEMP 0077 XKBXMT 7646 ODYPRG 0723 RDZBYT 3756 TRACE 0074 XKBYBD 7645 OPMC 0711 REBOOT 0200 TTY 6040 XLFALP 0547 OPNFLG 0071 REPORT 2600 TXCH 0361 XLFANG 0540 OPNMCH 0673 RESTA 1231 TXEL 0330 XLFBRK 0336 OPNMEM 0640 RESTB 1237 TXEX 3564 XLFCRL 0341 OPNPRG 0731 RESTC 1266 TXLLP 0236 XLFPAR 0301 OPRG 0736 RESTRT 1207 TXLST 0233 XMINUS 0407 OPRTBL 4375 REST0 1214 TXML 3544 XPRCNT 0323 ORCLF 6003 REST1 1217 TXMS 0350 XPRIME 0600 OS8ENT 7605 REST2 1245 TXMSG 3542 XPRI1 0611 PANEL 6236 REST3 1225 TXSXB 3553 XPRI2 0622 PCKADR 3511 REST4 1240 TXTMP 3535 XQUOLP 1612 PCSAV 0000 REST5 1261 TXTMSG 0336 XQUONM 1653 PGO 6003 REST6 1267 UNLOCK 0213 XQUOTE 1600 PLIST 0036 RLIST 4000 USRIO 6070 XRTANG 1000 PLSTH 4103 RUNZ80 1705 VALLOC 0106 XRTA1 1007 PLSTZ 4115 R3L 7014 WAITLP 7627 XRTA2 1036 PRCH 3712 SBTMP 0103 WRSEQ 6006 XRTA3 1054 PRCTST 3535 SCHBGN 0024 WRSPT 6217 XRTBRK 0337 PRENLP 2406 SCHEND 0027 WRZBYT 3740 XRTCRL 0342 PRENT 2400 SCHMSK 0022 WRZLP 3744 XRTPAR 0302 PRENX 2434 SKCFL 6001 XALTER 3205 XSEMIC 1200 PRGPTR 0072 SLUIN 1000 XALTX 3235 XSLASH 0400 PRLP 3716 SPACE 3676 XALT0 3206 XUNDLN 0501 PROCSW 0042 SPD 6276 XALT1 3224 XUND1 0513 PROCTB 0043 START 0200 XALT2 3226 XUND2 0530 PRQBGN 7600 STORE 3434 XALT3 3227 XUSESY 2110 PRQFLD 0000 STOREZ 3453 XAMPER 0276 XUSE1 2124 PSDB 0064 STORH1 3446 XASTER 0277 XUSE2 2132 PSDBHI 0064 STORZ1 3464 XATSGN 0325 XUSE3 2133 PSDBLO 0065 STORZ2 3465 XBAKSL 0655 XVRTLN 0713 PSHSL 4617 STORZ3 3472 XCARET 0435 XX 7412 PSMA 0062 SUBADR 7620 XCHAR 7626 XXECHO 0333 PSMAHI 0062 SVAC 4211 XCOLON 1112 XXNUMB 0321 PSMALO 0063 SVFL 4203 XCOL1 1121 XXPLUS 0410 PSTAT 0022 SVMQ 4214 XCOL2 1125 Z80APU 4225 PTR1 6207 SVPC 4206 XCOL3 1151 PTR2 6227 SVPCR 4267 XCRETN 0767 PUSHVC 0154 SVS1 4217 XDEFSY 2000 PUTCH 2436 SVS2 4222 XDEF1 2043 QALTER 3200 SYINS 3136 XDEF2 2051 RDSPT 6207 SYJ1 3143 XDEF3 2054 RDXLIM 0102 SYJ2 3145 XDEF4 2060 RDXPTR 3205 SYJ3 3152 XDEF5 2104 RDXSW 0265 SYLP 3131 XDOLAR 0322 RDX083 4151 SYMBGN 0104 XEOFPR 7647 ERRORS DETECTED: 0 LINKS GENERATED: 59 ACSAV 43# 1218 1246 2418 ADRMSK 390# 924 1321 1329 2102 ADRRDH 388 2555 2580# ADRRDX 388# 2106 ADRRDZ 2567 2584# ADRRFL 397# 582 2086 2104 2107 APU 83# 2450 2452 2459 2461 ARG 407# 592 ARGCNT 430# 478 540 1553 2278 ARGHI 408# 455 457 465 467 476 526 627 646 648 655 923 927 953 1005 1020 1032 1497 1548 1673 2080 ARGLO 409# 451 453 462 464 477 524 625 639 642 644 651 742 743 956 1003 1027 1030 1053 1054 1323 1500 1551 1676 2072 2083 ARGTST 623 638 741 921 999 1052 1464 1507 1555 2061 2277# 2280 2281 ARROW1 1985 3251# ARROW2 1959 3253# ASCII 89# 369 372 375 378 754 805 839 872 978 986 1148 1274 1275 1276 1277 1278 1352 1369 1371 1375 1385 1407 1761 1773 1892 1893 1894 1895 1897 1898 1899 1967 2356 2357 2358 2359 2360 2366 2367 2368 2369 2370 2401 2632 2635 2638 2641 2644 2647 2654 2657 2660 2663 2666 2669 2672 2675 2678 2681 2684 2687 2690 ATRSAV 1221 1251 1282# ATTRIB 46# 1222 1250 BATTST 1065 1119 1134# 1160 1161 1165 BLANK 1855 1885 1889# 1901 BPDLP 980# 995 BPDSK 982 991# BPDTMP 977 980 985# 991 992 BPDUMP 939 976# BPLIST 928 949 961 976 1070 1098 1144 2700# BRKFLG 427# 966 974 1062 1095 BTFL 1155 1159 1162# BTLP 1150# 1164 CALLAR 261# 266 1208 1271 2341 2394 2423 2436 CARRTN 90# 2386 CATCH 269# 273 1260 CHAR 436# 489 511 558 563 564 889 899 933 979 988 993 1126 1149 1162 1327 1346 1600 1606 1613 1620 1709 1826 1830 2347 2348 2362 CHRTMP 1809# 1839 1844 1857 1863 1869 1872 CMNDTB 503 2488# CNFMSG 1706 3257# CNTCNT 433# 560 565 745 752 931 952 959 964 972 994 1007 1056 1124 1402 1416 CONFRM 1512 1532 1705# 1714 CPD 68# 2179 2214 CRLF 474 802 833 866 983 1349 1418 1733 2377 2384# 2397 CURR 410# 671 692 712 716 723 804 810 818 2074 CURRHI 411# 628 654 656 699 720 724 734 779 CURRLO 412# 626 650 652 681 682 685 686 693 713 718 726 732 777 DADR1 2127# 2159 DADR2 2135# 2149 DADR3 2143 2150# DATMSK 391# 1324 2115 DATRDH 389 2556 2588# DATRDX 389# 2120 DATRDZ 2568 2592# DATRFL 398# 587 2118 2121 DBGCTL 369# 382 429 859 DBGHLT 327 1236# DBGINT 258 1234# DBLADD 449# 458 538 2482 DBLSHL 461# 468 529 530 534 2485 DDAT0 2108 2124# DDTMP 2051# 2079 2081 2082 2084 2138 2145 DEBUG 192 1237# DESYLP 1520# 1531 DISCR 476# 578 583 588 593 600 607 821 852 880 DMPLP 2408# 2413 DPTR 422# 1931 1949 1971 1980 1988 DPTRHI 423# 1926 1978 DPTRLO 424# 1929 1939 1944 1972 DPVAL 448# 1932 1934 1941 1950 1954 1961 1973 1981 2021 2025 DUMP 1272 1890 2354 2364 2385 2406# 2408 2409 2411 DYADR 591 803 878 984 1350 1412 1755 1777 1948 1979 2095# 2096 2099 DYCHR 815 851 1357 1838# 1842 1875 DYCOS 1871 1873 1878# 1884 1886 DYDAT 813 849 1355 1390 1780 1989 2100 2114# 2161 DYNMR 1936 1991# DYPAL 817 1359 1782 1916# 1918 1919 1923 1957 1984 1990 1998 DYPL1 1953 1959# DYPL2 1963 1966 1970# DYPL3 1975 1979# DYPL4 1958 1985# DYPL5 1969 1987# DYSHLP 1381# 1392 DYSTTH 755 1127 1370 1378# DYSTTZ 1372 1398# DYSZLP 1403# 1417 1419 EMLATE 750 1068 1093 1188# 1193 1235 1280 1288 EOFPR 36# 292 2392 ERDEIR 523# 3270 ERFN 1431 1435# ERINNO 705# 3288 ERINPO 708# 3291 ERLP 1426# 1434 ERMDNO 2066# 3312 ERNCFM 1713# 3330 ERNDNS 1505# 3315 ERNDNV 1511# 3318 ERNPNV 1559# 3324 ERNUNS 1546# 3321 EROUTI 2428# 3327 ERR 508 522 661 663 665 668 676 704 707 739 773 829 862 942 946 1422# 1432 1504 1510 1545 1558 1712 2065 2427 ERRFEX 677# 3285 ERRFMO 664# 3276 ERRFNO 662# 3273 ERRFPO 666# 3279 ERRFZA 669# 3282 ERRLST 1424 3267# ERSCNO 774# 3294 ERSTZA 740# 3303 ERUNBH 943# 3306 ERUNBL 947# 3309 ERUNCO 509# 3267 ERUNMR 830# 3297 ERUNPR 863# 3300 ESCAPE 92# 1273 1891 1896 2355 2365 EXIT3 55# 157 316 EXPTCH 294# 295 302 319 FETCH 1189 1775 1776 1779 1788# 1798 FLSAV 41# 1214 1242 FRAME 80# 285 2389 FWEXIT 54# 1232 GADIG 2094# 2134 2147 2151 GETADR 2097 2175 2209 2243# 2254 GETNXT 488 825 858 932 1708 2328# 2331 GETSYM 1462 1542 1589# 1591 1592 1605 1619 1625 GSTART 379# 1002 1004 GTCH 1590 1604 1618 1624 2329 2336# 2351 2353 2372 GTHALF 495 517# GTHNUM 501 518# GTNXLP 2338# 2345 GTSYEX 1624# 1630 GTSYLP 1600# 1627 G0FLAG 47# 1224 1252 G0FSAV 1223 1253 1283# G1FLAG 48# 1226 1254 G1FSAV 1225 1255 1284# HDRBGN 150 152 247# HDREND 152 307# HDRFLD 58# 105 149 155 161 167 173 179 HK1BGN 156 158 315# HK1END 158 322# HK2BGN 162 164 324# HK2END 164 330# HK3BGN 168 170 332# HK3END 170 339# HK4BGN 174 176 341# HK4END 176 347# HK5BGN 180 182 349# HK5END 182 355# HLTHIT 751 1069 1097 1120 1188 1234 1287 1375# HOLD 50# 2430 H6120R 393 395 1379 2560 2561 2632# 2651 INDNLP 1492# 1495 INPRFL 396# 479 577 581 586 2087 2105 2119 INSLST 1072 1100 2724# INSYDN 1484 1488# INSYLP 1482# 1487 INTKEY 95# 259 IOTTBL 1997 2913# JMSPM 86# 191 KBDINT 250# 255 344 KBXMT 38# 291 KBXQP 40# 1206 1269 KBYBD 37# 175 181 290 342 350 352 LATCH 274 435# 2337 2343 2419 2425 LCSYLP 1640# 1665 LCSYNX 1655 1663# LCSYRP 1651# 1660 LCVLLP 1680# 1702 LCVLNX 1691 1697 1700# LKLP 894# 904 LKSC 901 905# LNFEED 91# 2387 LNHEAD 1378 1398 1774 2375# 2381 LNTMP 2327# 2376 2378 LOAD 670 691 711 715 722 809 1079 1341 1796 1930 1970 1987 2172# 2173 2174 2184 2199 LOADZ 2178 2185# LOCKBD 93# 1204 LOCKED 49# 1200 1263 LOCSYM 1466 1503 1544 1638# 1644 1657 1661 1662 LOCVAL 1509 1557 1672# 1684 1698 1699 LODH1 2176 2180# LODZ1 2188 2191# LODZ2 2186 2192# LOOK 413# 1342 1351 1360 1778 1783 1797 LOOKHI 414# 456 527 537 1143 1153 1322 1331 1363 1675 1689 1795 LOOKLO 415# 452 525 536 1137 1157 1319 1338 1361 1678 1695 1790 LOOKUP 827 860 887# 892 893 897 906 907 MATIN 82# 277 MATTX 79# 281 MCHPTR 395# 728 733 782 783 784 785 788 789 831 835 845 853 2076 MINTK 253 259# MOD40 53# 163 169 304 325 333 336 MOVBGN 186 188 366# MOVEND 188 3574# MOVFLD 59# 185 364 MOVPM 85# 149 155 161 167 173 179 185 MQSAV 44# 1220 1248 MRITBL 1947 2735# MSABOR 3329 3332 3556# MSBKPN 3308 3311 3519# MSCMND 3269 3493# MSCNDL 3316 3319 3389# MSCNFI 3289 3292 3350# MSCNFR 3274 3277 3280 3283 3286 3338# MSCNFS 3295 3362# MSCNMD 3313 3381# MSCNPR 3325 3397# MSCNST 3304 3374# MSDEIR 3271 3527# MSDELI 3331 3550# MSIIIO 3287 3456# MSMRGN 3299 3497# MSNTIO 3275 3290 3296 3314 3414# MSOUTI 3328 3545# MSPRGN 3302 3508# MSPRIO 3293 3434# MSRGIO 3278 3281 3424# MSSYND 3317 3323 3471# MSUNER 3334 3560# MSUNRC 3268 3298 3301 3307 3310 3322 3406# MSVLND 3320 3326 3482# MSZ80S 3284 3305 3448# MVLP 561# 566 NOLCK1 1266 1272# NOLCK2 1203 1209# NONEG 641 649# NULL1 1848 1851 1855# NULL2 1854 1856# NULL3 1881 1885# NXDGT 488# 541 1554 ODTBGN 63# 187 365 ODTFLD 61# 185 191 256 265 270 335 1201 1210 1237 1240 1264 1831 2183 2218 ODYMCH 787 790 828 833# ODYMEM 624 657 690 696 700 714 727 735 778 780 781 802# ODYPRG 796 799 861 866# OPMC 844 853# OPNFLG 428# 567 820 842 875 2054 2063 2085 OPNMCH 832 839# OPNMEM 629 809# OPNPRG 865 872# OPRG 854 877# OPRTBL 1994 2770# ORCLF 76# 2461 OS8ENT 34# 195 PANEL 84# 148 154 160 166 172 178 184 190 PCKADR 2185 2223 2244 2245 2247 2248 2258# 2272 PCSAV 42# 1216 1244 PGO 67# 1092 1292 PLIST 386# 557 PLSTH 544 2555# PLSTZ 544 551 2567# PRCH 806 838 840 871 873 987 989 1353 1384 1386 1406 1408 1762 1853 1862 1867 1883 1968 2155 2311 2363 2379 2402 2412 2416# 2438 PRCTST 667 709 738 843 1018 1057 1367 2177 2211 2287# 2290 2291 PRENLP 1734# 1754 PRENT 1560 1568 1728# 1757 PRENX 1730 1734 1738 1743 1744 1750 1752 1756# PRGPTR 429# 791 792 793 794 797 798 864 868 876 2078 PRLP 2420# 2432 PROCSW 392# 2288 PROCTB 393# 826 1008 PRQBGN 62# 151 248 PRQFLD 60# 149 155 161 167 173 179 272 1195 1207 1211 1231 1239 1261 1270 1290 1293 2340 2393 2417 2422 2429 2435 PSDB 419# PSDBHI 420# 2129 2141 PSDBLO 421# 2132 2137 2156 PSHSL 52# 1194 1289 PSMA 416# PSMAHI 417# 2101 2103 2117 2140 2144 2246 2250 2259 PSMALO 418# 2116 2136 2146 2181 2216 2249 2264 2270 PSTAT 45# 298 1197 1199 PTR1 73# 1228 1256 PTR2 74# 1230 1258 PUSHVC 51# 1196 1262 1291 PUTCH 1737 1749 1751 1758# 1763 QALTER 660 703 772 2052# 2053 RDSPT 71# 1256 1258 RDXLIM 437# 484 520 1075 1090 1103 1116 1147 1163 1820 1832 RDXPTR 2059# 2124 2125 2126 2127 2128 2130 2131 RDXSW 487 531# RDX083 2592 2604# RDX084 2588 2602# RDX085 2580 2600# RDX086 2584 2598# RDX103 2593 2615# RDX104 2589 2613# RDX105 2581 2585 2611# RDX162 2594 2626# RDX163 2590 2624# RDX164 2582 2586 2622# RDZBYT 2198 2457# 2462 REBOOT 35# 1294 RELOC 248 306 316 321 325 329 333 338 342 346 350 354 REPORT 748 1772# 1784 RESTA 1071 1076 1080# 1082 1087 1088 RESTB 1083 1086# RESTC 1099 1104 1109# 1111 1112 RESTRT 1029 1062# REST0 1067# 1125 REST1 1066 1070# REST2 1064 1092# REST3 1076# 1091 REST4 1078 1087# REST5 1104# 1117 REST6 1106 1110# RLIST 481 2476# RUNZ80 1034 1058 1395# R3L 66# 688 1024 2252 SBTMP 438# 1917 1964 SCHBGN 373# 1318 1320 SCHEND 376# 1328 1336 SCHMSK 371# 1325 1345 SKCFL 75# 225 277 281 285 296 2389 2450 2459 SLUIN 39# 2434 SPACE 990 1843 1856 1868 1874 1924 2160 2313 2380 2396 2400# 2403 SPD 69# 2182 2217 START 474# 568 911 971 975 996 1333 1340 1383 1405 1441 1496 1502 1522 1535 1561 1567 STORE 1085 1108 2073 2205# 2207 2208 2219 2237 STOREZ 2212 2220# STORH1 2210 2215# STORZ1 2226 2229# STORZ2 2224 2230# STORZ3 2206 2213 2220 2222 2235# SUBADR 262 264 267# SVAC 1217 1247 2640# SVFL 697 1026 1138 1213 1243 1791 1976 2634# SVMQ 1219 1249 2643# SVPC 1028 1122 1123 1135 1215 1245 1789 2637# SVPCR 1031 1033 2688# SVS1 1227 1257 2646# SVS2 1229 1259 2649# SYINS 2012 2020# SYJ1 1996 2025# SYJ2 2024 2027# SYJ3 2028 2032# SYLP 2015# 2034 SYMBGN 439# 1471 1474 1477 1478 1480 1515 1519 1527 1528 1530 1534 1562 1639 1679 SYMBOL 402# 1488 1593 1594 1595 1596 1647 SYMCCT 444# 1472 1482 1491 1494 1516 1520 1599 1626 1629 1650 1659 1732 1753 SYMCRS 443# 1597 1603 1610 1611 1612 1617 1621 1622 1623 SYMEND 440# 1533 1565 1642 1682 SYMFLG 432# 606 1840 1921 SYMLOC 441# 1469 1513 1518 1524 1525 1529 1563 1564 1570 1640 1641 1645 1664 1680 1681 1686 1701 1729 SYSCH 1945 1992 1995 2009# 2010 2011 2013 2014 2018 SYTMP 460# 1920 1925 1927 1928 2015 2016 2019 2022 2030 2033 TEMP 434# 482 483 485 486 504 505 506 510 514 515 516 518 519 535 556 561 562 635 640 672 674 683 687 694 717 725 730 731 811 812 814 836 837 847 848 850 869 870 888 894 895 902 903 905 929 950 954 955 957 958 962 967 968 969 1009 1010 1011 1012 1013 1014 1015 1073 1081 1089 1101 1107 1114 1115 1145 1150 1151 1152 1156 1343 1344 1354 1356 1380 1381 1387 1388 1389 1391 1400 1403 1409 1410 1414 1415 1425 1426 1427 1428 1429 1435 1437 1438 1823 1828 TRACE 431# 599 746 TTY 78# 225 227 TXCH 199 201 221 224# 229 TXEL 110 127 144 197# 202 TXEX 2307 2313# TXLLP 505# 513 TXLST 492 498 502# TXML 2297# 2303 TXMS 210 212 214# 222 TXMSG 1436 1440 1707 1960 1986 2031 2295# 2314 TXSXB 2299 2301 2304# 2312 TXTMP 2286# 2296 2297 2300 2302 TXTMSG 111 128 204# 205 206 213 217 UNLOCK 94# 1267 USRIO 81# 296 VALLOC 442# 1498 1499 1501 1547 1549 1550 1646 1651 1658 1687 1688 1692 WAITLP 276# 289 2339 2421 WRSEQ 77# 227 2452 WRSPT 72# 1228 1230 WRZBYT 2189 2227 2441# 2445 2446 2448 WRZLP 2445# 2454 XALTER 824 857 910 2055 2060# 2088 XALTX 2062 2075 2085# XALT0 2056 2061# XALT1 2069 2076# XALT2 2071 2078# XALT3 2077 2079# XAMPER 544# 2489 XASTER 547# XATSGN 581# 2500 XBAKSL 824# 2530 XCARET 660# 2520 XCHAR 271 274# XCOLON 999# 2542 XCOL1 1001 1006# XCOL2 1010# 1017 XCOL3 1019 1030# XCRETN 910# 2528 XDEFSY 1462# 2546 XDEF1 1468 1497# XDEF2 1465 1503# XDEF3 1463 1507# XDEF4 1506 1512# XDEF5 1508 1532# XDOLAR 574# 2496 XEOFPR 287 292# XEQUAL 1367# 2534 XEQZ 1368 1371# XEXCLM 586# 2502 XFA 1814 1827# XFB 1817 1829# XFLP 1821# 1833 XFMOV 1209 1238 1810# 1812 1813 1815 1816 1818 1819 1821 1822 1824 1825 1834 XGRAVE 1287# 2551 XKBXMT 283 291# XKBYBD 279 290# XLFALP 746# 753 XLFANG 738# 2540 XLFBRK 596# 2504 XLFCRL 603# 2508 XLFPAR 551# XMINUS 632# 2518 XPRCNT 577# 2498 XPRIME 772# 2524 2526 XPRI1 775 782# XPRI2 776 791# XQUOLP 1328# 1362 1364 XQUONM 1348 1361# XQUOTE 1318# 2536 XRTANG 921# 2538 XRTA1 922 928# XRTA2 936 953# 960 XRTA3 967# 973 XRTBRK 599# 2506 XRTCRL 606# 2510 XRTPAR 554# XSEMIC 1052# 2544 XSLASH 623# 2514 XUNDLN 703# 2522 XUND1 710 715# XUND2 706 728# XUSESY 1542# 2548 XUSE1 1543 1555# XUSE2 1556 1562# XUSE3 1563# 1571 XVRTLN 857# 2532 XX 70# 197 204 214 224 250 261 269 276 294 449 461 887 1134 1422 1589 1638 1672 1705 1728 1758 1772 1788 1810 1838 1878 1889 1916 2009 2052 2060 2095 2114 2172 2205 2243 2258 2277 2287 2295 2304 2328 2336 2375 2384 2400 2406 2416 2441 2457 XXECHO 591# 2512 XXNUMB 571# 2494 XXPLUS 635# 2516 Z80APU 1399 2572 2573 2654# 2694 _00037 145 215 219 _00055 990 1085 1108 1272 1378 1398 1436 1440 1707 1774 1843 1856 1868 1874 1890 1924 1960 1986 2031 2073 2160 2313 _00056 667 670 691 709 711 715 722 738 806 809 813 815 817 824 838 840 843 849 851 857 871 873 910 987 989 1018 1057 1079 1341 1353 1355 1357 1359 1367 1384 1386 1390 1406 1408 1762 1780 1782 1796 1853 1862 1867 1883 1930 1968 1970 1987 1989 2155 2311 _00057 474 488 508 522 591 623 638 660 661 663 665 668 676 703 704 707 739 741 772 773 802 803 825 829 833 858 862 866 878 921 932 942 946 983 984 999 1052 1349 1350 1412 1418 1464 1504 1507 1510 1545 1555 1558 1708 1712 1733 1755 1777 1948 1979 2061 2065 2427 _00137 198 200 218 220 _00155 1028 1122 1123 1135 1789 _00156 697 1026 1138 1791 1976 _00157 568 578 583 588 593 600 607 821 852 880 911 971 975 996 1333 1340 1383 1405 1441 1496 1502 1522 1535 1561 1567 _01036 1021 1141 _01037 678 684 698 1190 1198 _01135 1260 1267 _01136 551 557 754 1100 1144 1148 1204 1206 1234 1269 1287 _01137 481 490 493 496 499 503 517 544 559 680 805 839 859 872 890 928 930 934 937 940 944 949 961 963 976 978 986 1070 1072 1074 1084 1098 1102 1146 1191 1194 1289 1352 1369 1371 1375 1379 1385 1395 1399 1401 1407 1424 _01177 1196 1197 1199 1200 1262 1263 1291 _01237 1609 1614 1739 1747 1759 1794 1845 1860 1865 1879 1937 1942 1951 1977 2221 2251 2260 2267 2271 2305 2309 2346 _01336 1565 2434 _01337 1488 1490 1533 1596 1642 1647 1649 1682 1706 1710 1761 1773 1846 1849 1852 1859 1861 1864 1866 1882 1955 1959 1967 1982 1985 2133 2153 2154 2253 2308 2310 2339 2349 2392 2401 2421 _01377 2418 2430 V5B