1 0000 NAM STAR TREK 2 ***************************** 3 * STAR TREK GAME 1.2 4 * BY UNKNOWN SOURCE 5 * RECOVERED FROM OLD FLOPPIES 6 * 7 * ADOPTED TO RUN ON THE MC3 8 * BY DANIEL TUFVESSON 2014 9 ***************************** 10 0000 11 * 12 * MONITOR ROUTINE ADDRESSES 13 * 14 C003 OUTCH EQU $C003 15 C006 INCH EQU $C006 16 C000 CONTRL EQU $C000 17 * 18 * STORAGE AREAS 19 * 20 0020 ORG $20 21 0020 0001 STPSFL RMB 1 22 0021 0001 BASEX RMB 1 23 0022 0001 BASEY RMB 1 24 0023 0001 BASESX RMB 1 25 0024 0001 BASESY RMB 1 26 0025 0001 GLMFLG RMB 1 27 0026 0001 SECKLN RMB 1 28 0027 0001 FLAGC RMB 1 29 0028 0001 TIMDEC RMB 1 30 0029 0001 STCFLG RMB 1 31 002A 0001 SQFLG RMB 1 32 002B 0001 PNTFLG RMB 1 33 002C 0001 COURSE RMB 1 34 002D 0001 WARP RMB 1 35 002E 0001 FINCX RMB 1 36 002F 0001 FINCY RMB 1 37 0030 0001 COUNT RMB 1 38 0031 0002 TEMP RMB 2 39 0033 0002 TEMP2 RMB 2 40 0035 0002 XTEMP RMB 2 41 0037 0002 TIME0 RMB 2 42 0039 0001 GAMTIM RMB 1 43 003A 0002 TIMUSE RMB 2 44 003C 0002 SHENGY RMB 2 45 003E 0002 KLNENG RMB 2 46 0040 0002 PHSENG RMB 2 47 0042 0001 TOPFLG RMB 1 48 0043 0001 BOTFLG RMB 1 49 0044 0001 LSDFLG RMB 1 50 0045 0001 RSDFLG RMB 1 51 0046 0001 PHOTON RMB 1 52 0047 0001 CURQUX RMB 1 53 0048 0001 CURQUY RMB 1 54 0049 0001 CURSCX RMB 1 55 004A 0001 CURSCY RMB 1 56 004B 0001 TRIALX RMB 1 57 004C 0001 TRIALY RMB 1 58 004D 0001 FLAG RMB 1 59 004E 0001 CNDFLG RMB 1 60 004F 0001 SCANX RMB 1 61 0050 0001 SCANY RMB 1 62 0051 0001 COUNT1 RMB 1 63 0052 0001 SECINF RMB 1 64 0053 0001 MASK RMB 1 65 0054 0001 KLNGCT RMB 1 66 0055 0001 LENGTH RMB 1 67 0056 0001 ASAVE RMB 1 68 0057 0001 SHIELD RMB 1 69 0058 0002 ENERGY RMB 2 70 005A 0001 TSAVE1 RMB 1 71 005B 0001 HITKLS RMB 1 72 005C 0001 HITSTR RMB 1 73 005D 0001 HITBAS RMB 1 74 005E 0002 TEMP3 RMB 2 75 0060 0001 GALCNT RMB 1 76 0061 0001 DAMENG RMB 1 77 0062 0001 DAMSRS RMB 1 78 0063 0001 DAMLRS RMB 1 79 0064 0001 DAMPHS RMB 1 80 0065 0001 DAMPHT RMB 1 81 0066 0001 DAMSHL RMB 1 82 0067 0001 DAMTEL RMB 1 83 0068 0001 DAMTRB RMB 1 84 0069 0001 DAMCOM RMB 1 85 006A 0001 PCOUNT RMB 1 TORP SPREAD COUNT 86 006B 0001 PTZFLG RMB 1 NO MORE TORP FLAG 87 006C 0001 GAMEND RMB 1 88 006D 0001 AUTOSR RMB 1 89 006E 0001 AUTOLR RMB 1 90 006F 0001 SUPFLG RMB 1 91 0070 0001 TELFLG RMB 1 92 0071 0002 ATKENG RMB 2 93 0073 0002 QUDPTR RMB 2 POINTS TO CURR LOC IN QUDMAP 94 0075 0003 PASWRD RMB 3 95 0078 0001 PHTFLG RMB 1 96 0079 0001 SHUTCR RMB 1 97 007A 0001 SHUTLX RMB 1 98 007B 0001 SHUTLY RMB 1 99 007C 0040 QUDMAP RMB 64 100 00BC 0040 COMMAP RMB 64 MUST FOLLOW QUDMAP IMMEDIATELY 101 00FC 0010 SECMAP RMB 16 PACKED SECTOR (64*2 BITS) 00=., 01=*, 10=K, 11=B 102 010C 0004 STUF RMB 4 SEED FOR RANDOM FUNCTION 103 * 104 * PROGRAM ENTRY 105 * 106 0200 ORG $0200 107 0200 7E 02A3 JMP STRTRK 108 * 109 * TABLE OF MOVE VECTORS 110 * 111 0203 00 FF 01 FF MOVTBL FCB $00,$FF,$01,$FF,$01,$00,$01,$01 FF=-1 0207 01 00 01 01 112 020B 00 01 FF 01 FCB $00,$01,$FF,$01,$FF,$00,$FF,$FF 020F FF 00 FF FF 113 * 114 * CHARACTER PRINT TABLE 115 * 116 0213 2E 2A 4B 42 CHRTBL FCC /.*KBN/ 0217 4E 117 * 118 * COMMAND CODE TABLE 119 * 120 0218 45 4E 53 52 CMDTBL FCC /ENSRLRPHPTDRSHTPSDTBCO/ 021C 4C 52 50 48 0220 50 54 44 52 0224 53 48 54 50 0228 53 44 54 42 022C 43 4F 121 * 122 * COMMAND JUMP TABLE 123 * 124 022E 0835 JMPTBL FDB SETCRS 125 0230 05A8 FDB SRSCAN 126 0232 0AEF FDB LRSCAN 127 0234 0BB2 FDB PHASOR 128 0236 080E FDB PHOTOR 129 0238 0E38 FDB DAMRPT 130 023A 0579 FDB SHLDS 131 023C 0CD0 FDB TELEPT 132 023E 0CA9 FDB SELFDE 133 0240 0F27 FDB TRCTBM 134 0242 0E80 FDB COMPTR 135 * 136 0244 BD C003 PDATA JSR OUTCH 137 0247 08 INX 138 0248 A6 00 PDATA1 LDAA 0,X 139 024A 81 04 CMPA #$04 140 024C 26 F6 BNE PDATA 141 024E 39 RTS 142 * 143 024F 86 0D PCRLF LDAA #$0D 144 0251 BD C003 JSR OUTCH 145 0254 86 0A LDAA #$0A 146 0256 7E C003 JMP OUTCH 147 * 148 0259 8D F4 PSTRNG BSR PCRLF 149 025B 20 EB BRA PDATA1 150 * 151 025D 36 OUTHL PSHA 152 025E 44 LSRA 153 025F 44 LSRA 154 0260 44 LSRA 155 0261 44 LSRA 156 0262 8D 02 BSR OUTHR 157 0264 32 PULA 158 0265 39 RTS 159 * 160 0266 36 OUTHR PSHA 161 0267 84 0F ANDA #$0F 162 0269 8A 30 ORAA #$30 163 026B 81 39 CMPA #$39 164 026D 23 02 BLS OUTDIG 165 026F 8B 07 ADDA #7 166 0271 BD C003 OUTDIG JSR OUTCH 167 0274 32 PULA 168 0275 39 RTS 169 * 170 0276 36 OUTS PSHA 171 0277 86 20 LDAA #$20 172 0279 20 F6 BRA OUTDIG 173 * 174 * LIB RANDOM 175 027B 37 RANDOM PSHB RANDOM NUMBER GENERATOR - SAVE B 176 027C B6 010D LDAA STUF+1 COMPUTE (STUF * 2 * * 9) MOD 2 ** 16 177 027F 0C CLC 178 0280 49 ROLA 179 0281 0C CLC 180 0282 49 ROLA 181 0283 BB 010C ADDA STUF ADD STUFF TO RESULT 182 0286 F6 010D LDAB STUF+1 183 0289 0C CLC MULTIPLY BY 2 ** 2 184 028A 59 ROLB 185 028B 49 ROLA 186 028C 0C CLC 187 028D 59 ROLB 188 028E 49 ROLA 189 028F 0C CLC 190 0290 FB 010D ADDB STUF+1 ADD STUFF TO RESULT 191 0293 B9 010C ADCA STUF 192 0296 0C CLC 193 0297 CB 19 ADDB #$19 ADD HEXADECIMAL 3619 TO THE RESULT 194 0299 8B 36 ADDA #$36 195 029B B7 010C STAA STUF STORE RESULT IN STUF 196 029E F7 010D STAB STUF+1 197 02A1 33 PULB RESTORE B 198 02A2 39 RTS 199 * 200 * PRINT TITLE 201 * 202 02A3 CE 0F47 STRTRK LDX #TITLE 203 02A6 BD 0259 JSR PSTRNG 204 * 205 * CLEAR ALL TEMP STORAGE 206 * 207 02A9 CE 0020 LDX #STPSFL 208 02AC 6F 00 SETCLR CLR 0,X 209 02AE 08 INX 210 02AF 8C 010C CPX #STUF LAST VALUE OF RAM AREA 211 02B2 26 F8 BNE SETCLR 212 02B4 86 FF LDAA #$FF 213 02B6 CE 00BC LDX #COMMAP 214 02B9 A7 00 CLRMAP STAA 0,X 215 02BB 08 INX 216 02BC 8C 00FC CPX #COMMAP+64 217 02BF 26 F8 BNE CLRMAP 218 02C1 CE 0F7F LDX #SHTLNG 219 02C4 BD 0259 JSR PSTRNG 220 02C7 BD C006 JSR INCH 221 02CA 81 53 CMPA #'S 222 02CC 27 03 BEQ SETQD 223 02CE 7C 0055 INC LENGTH SET LONG FLAG 224 * 225 * SETUP SPACE 226 * 227 02D1 CE 007C SETQD LDX #QUDMAP 228 02D4 C6 40 LDAB #64 229 02D6 BD 027B SETUP0 JSR RANDOM 230 02D9 81 FC CMPA #$FC 231 02DB 23 04 BLS SETUP1 232 02DD 86 04 LDAA #4 233 02DF 20 19 BRA SETUP5 234 02E1 81 F7 SETUP1 CMPA #$F7 235 02E3 23 04 BLS SETUP2 236 02E5 86 03 LDAA #3 237 02E7 20 11 BRA SETUP5 238 02E9 81 E0 SETUP2 CMPA #$E0 239 02EB 23 04 BLS SETUP3 240 02ED 86 02 LDAA #2 241 02EF 20 09 BRA SETUP5 242 02F1 81 A0 SETUP3 CMPA #$A0 243 02F3 23 04 BLS SETUP4 244 02F5 86 01 LDAA #1 245 02F7 20 01 BRA SETUP5 246 02F9 4F SETUP4 CLRA 247 02FA 7F 0056 SETUP5 CLR ASAVE 248 02FD 7D 0055 TST LENGTH 249 0300 27 16 BEQ SETUP8 250 0302 97 56 STAA ASAVE 251 0304 BD 027B JSR RANDOM 252 0307 81 F0 CMPA #$F0 253 0309 23 04 BLS SETUP6 254 030B 86 03 LDAA #3 255 030D 20 09 BRA SETUP8 256 030F 81 C0 SETUP6 CMPA #$C0 257 0311 23 04 BLS SETUP7 258 0313 86 02 LDAA #2 259 0315 20 01 BRA SETUP8 260 0317 4F SETUP7 CLRA 261 0318 9B 56 SETUP8 ADDA ASAVE 262 031A A7 00 STAA 0,X STORE SECT KLNGON CNT 263 031C 9B 54 ADDA KLNGCT 264 031E 97 54 STAA KLNGCT 265 0320 BD 027B STARS JSR RANDOM 266 0323 84 38 ANDA #$38 267 0325 AA 00 ORAA 0,X 268 0327 A7 00 STAA 0,X 269 0329 08 CONT INX 270 032A 5A DECB 271 032B 27 03 BEQ CONT1 272 032D 7E 02D6 JMP SETUP0 273 * 274 * GET STARBASE LOCATION 275 * 276 0330 BD 027B CONT1 JSR RANDOM 277 0333 84 07 ANDA #$7 278 0335 16 TAB 279 0336 BD 027B JSR RANDOM 280 0339 84 07 ANDA #$7 281 033B 97 21 STAA BASEX 282 033D D7 22 STAB BASEY 283 033F 7C 0020 INC STPSFL 284 0342 CE 007C LDX #QUDMAP 285 0345 BD 06E1 JSR STPSEX 286 0348 86 40 LDAA #$40 287 034A AA 00 ORAA 0,X 288 034C A7 00 STAA 0,X 289 034E 8D 32 CONT2 BSR REFUEL 290 0350 BD 027B JSR RANDOM 291 0353 8B 00 ADDA #0 292 0355 19 DAA 293 0356 97 38 STAA TIME0+1 294 0358 BD 027B JSR RANDOM 295 035B 84 7F ANDA #$7F 296 035D 8A 23 ORAA #$23 297 035F 8B 00 ADDA #0 298 0361 19 DAA 299 0362 97 37 STAA TIME0 300 0364 8D 3B BSR MAKTIM 301 0366 7D 0055 TST LENGTH 302 0369 27 05 BEQ GATM 303 036B 16 TAB 304 036C 8D 33 BSR MAKTIM 305 036E 1B ABA 306 036F 19 DAA 307 0370 97 39 GATM STAA GAMTIM 308 0372 BD 027B JSR RANDOM SET SHUTTLECRAFT LOCATION 309 0375 84 07 ANDA #$7 310 0377 97 7A STAA SHUTLX 311 0379 BD 027B JSR RANDOM 312 037C 84 07 ANDA #$7 313 037E 97 7B STAA SHUTLY 314 0380 20 2A BRA CONT3 315 * 316 * REFUEL THE ENTERPRISE 317 * 318 0382 7F 0057 REFUEL CLR SHIELD 319 0385 86 30 LDAA #$30 320 0387 97 58 STAA ENERGY 321 0389 7F 0059 CLR ENERGY+1 322 038C 97 3C STAA SHENGY 323 038E 7F 003D CLR SHENGY+1 324 0391 86 0F LDAA #15 325 0393 97 46 STAA PHOTON 326 0395 CE 0061 LDX #DAMENG FIX ALL DAMAGE 327 0398 6F 00 REFUL1 CLR 0,X 328 039A 08 INX 329 039B 8C 006A CPX #DAMENG+9 330 039E 26 F8 BNE REFUL1 331 03A0 39 RTS 332 * 333 * CALCULATE GAME TIME 334 * 335 03A1 BD 027B MAKTIM JSR RANDOM 336 03A4 84 0F ANDA #$0F 337 03A6 8A 31 ORAA #$31 338 03A8 8B 00 ADDA #0 339 03AA 19 DAA 340 03AB 39 RTS 341 * 342 * CONTINUE SETUP 343 * 344 03AC BD 027B CONT3 JSR RANDOM 345 03AF 84 07 ANDA #7 346 03B1 97 47 STAA CURQUX 347 03B3 BD 027B JSR RANDOM 348 03B6 84 07 ANDA #7 349 03B8 97 48 STAA CURQUY 350 03BA BD 06CB JSR SETUPS 351 03BD CE 0F9F LDX #BASINF 352 03C0 BD 0259 JSR PSTRNG 353 03C3 96 21 LDAA BASEX 354 03C5 8D 4E BSR FIXOUT 355 03C7 BD 046A JSR OUTDSH 356 03CA 96 22 LDAA BASEY 357 03CC 8D 47 BSR FIXOUT 358 03CE CE 135D LDX #INTRO0 359 03D1 BD 0259 JSR PSTRNG 360 03D4 CE 0075 LDX #PASWRD 361 03D7 C6 03 LDAB #3 362 03D9 BD C006 CONT4 JSR INCH 363 03DC A7 00 STAA 0,X 364 03DE 08 INX 365 03DF 5A DECB 366 03E0 26 F7 BNE CONT4 367 03E2 CE 0FD7 LDX #INTRO1 368 03E5 BD 0259 JSR PSTRNG 369 03E8 8D 31 BSR OUTDAT 370 03EA CE 0FE8 LDX #INTRO2 371 03ED BD 0259 JSR PSTRNG 372 03F0 8D 3B BSR OUTKLN 373 03F2 CE 0FFD LDX #INTRO3 374 03F5 BD 0259 JSR PSTRNG 375 03F8 7F 0031 CLR TEMP 376 03FB 96 39 LDAA GAMTIM 377 03FD 97 32 STAA TEMP+1 378 03FF BD 0549 JSR OUTBCD 379 0402 CE 101F LDX #INTRO4 380 0405 BD 0259 JSR PSTRNG 381 0408 8D 4A BSR OUTQUD 382 040A CE 1034 LDX #INTRO6 383 040D BD 0259 JSR PSTRNG 384 0410 8D 4D BSR OUTSEC 385 0412 7E 0479 JMP COMAND 386 * 387 * OUTPUT A NUMBER 388 * 389 0415 8B 31 FIXOUT ADDA #$31 390 0417 BD C003 JSR OUTCH 391 041A 39 RTS 392 * 393 * OUTPUT STARDATE 394 * 395 041B DE 37 OUTDAT LDX TIME0 396 041D DF 31 STX TEMP 397 041F BD 0549 JSR OUTBCD 398 0422 86 2E LDAA #'. 399 0424 BD C003 JSR OUTCH 400 0427 96 28 LDAA TIMDEC 401 0429 BD 0266 JSR OUTHR 402 042C 39 RTS 403 * 404 * OUTPUT A KLINGON COUNT 405 * 406 042D 96 54 OUTKLN LDAA KLNGCT 407 042F 7F 0031 OUTK0 CLR TEMP 408 0432 7F 0032 OUTK1 CLR TEMP+1 409 0435 C6 0A LDAB #10 410 0437 10 OUTK2 SBA 411 0438 25 0C BCS OUTK3 412 043A 7C 0032 INC TEMP+1 413 043D D1 32 CMPB TEMP+1 414 043F 26 F6 BNE OUTK2 415 0441 7C 0031 INC TEMP 416 0444 20 EC BRA OUTK1 417 0446 1B OUTK3 ABA 418 0447 D6 32 LDAB TEMP+1 419 0449 58 ASLB 420 044A 58 ASLB 421 044B 58 ASLB 422 044C 58 ASLB 423 044D 1B ABA 424 044E 97 32 STAA TEMP+1 425 0450 BD 0549 JSR OUTBCD 426 0453 39 RTS 427 * 428 * OUTPUT QUADRANT LOCATION 429 * 430 0454 96 48 OUTQUD LDAA CURQUY 431 0456 8D BD BSR FIXOUT 432 0458 8D 10 BSR OUTDSH 433 045A 96 47 LDAA CURQUX 434 045C 8D B7 BSR FIXOUT 435 045E 39 RTS 436 * 437 * OUTPUT A SECTOR 438 * 439 045F 96 4A OUTSEC LDAA CURSCY 440 0461 8D B2 BSR FIXOUT 441 0463 8D 05 BSR OUTDSH 442 0465 96 49 LDAA CURSCX 443 0467 8D AC BSR FIXOUT 444 0469 39 RTS 445 * 446 * OUTPUT A DASH 447 * 448 046A 86 2D OUTDSH LDAA #'- 449 046C BD C003 JSR OUTCH 450 046F 39 RTS 451 * 452 * ADD THE A-REG TO THE INDEX REGISTER 453 * 454 0470 DF 31 FIXXRG STX TEMP 455 0472 9B 32 ADDA TEMP+1 456 0474 97 32 STAA TEMP+1 457 0476 DE 31 LDX TEMP 458 0478 39 RTS 459 * 460 * GET COMMAND AND PERFORM IT 461 * 462 0479 96 39 COMAND LDAA GAMTIM 463 047B 91 3B CMPA TIMUSE+1 464 047D 22 03 BHI NOEXTC 465 047F 7E 0D69 JMP NOMTIM 466 0482 7D 0054 NOEXTC TST KLNGCT 467 0485 26 03 BNE NOEXT2 468 0487 7E 0D6E JMP NOMKLN 469 048A 7D 006F NOEXT2 TST SUPFLG 470 048D 27 0C BEQ NOEXT4 471 048F CE 16BD LDX #SUPDES 472 0492 BD 0259 JSR PSTRNG 473 0495 BD 0CBF JSR SELFDA 474 0498 7E 0D76 JMP ENDGAM 475 * 476 049B BD 0D97 NOEXT4 JSR CLRCQU CLEAR K & S 477 049E 86 02 LDAA #2 478 04A0 91 4E CMPA CNDFLG DOCKED? 479 04A2 27 5F BEQ CMND27 480 04A4 7F 004E CLR CNDFLG 481 04A7 7D 0026 TST SECKLN RED? 482 04AA 27 03 BEQ CMNDAC 483 04AC 4A DECA 484 04AD 97 4E STAA CNDFLG 485 04AF BD 027B CMNDAC JSR RANDOM 486 04B2 81 FC CMPA #$FC SPACE STORM 487 04B4 23 0D BLS COMND2 488 04B6 CE 14DB LDX #SPSTRM 489 04B9 BD 0259 JSR PSTRNG 490 04BC 86 02 LDAA #2 491 04BE 97 66 STAA DAMSHL 492 04C0 BD 057E JSR SHLDWN 493 * 494 04C3 BD 027B COMND2 JSR RANDOM 495 04C6 81 FC CMPA #$FC SUPERNOVA? 496 04C8 23 03 BLS CMND25 497 04CA BD 0DCD JSR SUPNOV 498 04CD BD 0D19 CMND25 JSR ATTACK ALLOW ATTACK 499 04D0 7D 0058 TST ENERGY 500 04D3 2A 03 BPL COMND0 501 04D5 7E 0D61 JMP NRGOUT 502 * 503 04D8 7D 0079 COMND0 TST SHUTCR 504 04DB 26 12 BNE CMND01 505 04DD 96 7A LDAA SHUTLX 506 04DF 91 47 CMPA CURQUX 507 04E1 26 0C BNE CMND01 508 04E3 96 7B LDAA SHUTLY 509 04E5 91 48 CMPA CURQUY 510 04E7 26 06 BNE CMND01 511 04E9 CE 1A11 LDX #SHTSIG 512 04EC BD 0259 JSR PSTRNG 513 04EF 86 03 CMND01 LDAA #3 514 04F1 91 58 CMPA ENERGY 515 04F3 23 02 BLS CMNDAD 516 04F5 97 4E STAA CNDFLG 517 04F7 7D 003C CMNDAD TST SHENGY 518 04FA 2A 07 BPL CMND27 519 04FC 4F CLRA 520 04FD 97 57 STAA SHIELD 521 04FF 97 3C STAA SHENGY 522 0501 97 3D STAA SHENGY+1 523 0503 CE 1040 CMND27 LDX #COMST PRINT COMMAND PROMPT 524 0506 BD 0259 JSR PSTRNG 525 0509 7F 0029 CLR STCFLG 526 050C 7F 0078 CLR PHTFLG 527 050F BD C006 COMND3 JSR INCH 528 0512 81 0D CMPA #$D 529 0514 27 16 BEQ ILCMND 530 0516 16 TAB 531 0517 BD C006 JSR INCH 532 051A CE 0218 LDX #CMDTBL 533 051D E1 00 CHKCM1 CMPB 0,X 534 051F 26 04 BNE INX2 535 0521 A1 01 CMPA 1,X 536 0523 27 0F BEQ GOTCMD 537 0525 08 INX2 INX 538 0526 08 INX 539 0527 8C 022E CPX #CMDTBL+22 540 052A 26 F1 BNE CHKCM1 541 052C CE 18B3 ILCMND LDX #EXPCMD 542 052F BD 0259 JSR PSTRNG 543 0532 20 DB BRA COMND3 544 * 545 0534 86 16 GOTCMD LDAA #22 STEP FORWARD 22 BYTES TO ROUTINE ADDRESS 546 0536 08 GCMD1 INX 547 0537 4A DECA 548 0538 26 FC BNE GCMD1 549 053A EE 00 LDX 0,X 550 053C AD 00 JSR 0,X 551 053E 7D 006C TST GAMEND 552 0541 27 03 BEQ CMND99 553 0543 7E 0D76 JMP ENDGAM 554 0546 7E 0479 CMND99 JMP COMAND 555 * 556 * OUTPUT A 4 DIGIT BCD NUMBER 557 * 558 0549 7F 004D OUTBCD CLR FLAG 559 054C 96 31 LDAA TEMP 560 054E 27 13 BEQ OUTBC2 561 0550 84 F0 ANDA #$F0 562 0552 27 05 BEQ OUTBC1 563 0554 96 31 LDAA TEMP 564 0556 BD 025D JSR OUTHL 565 0559 96 31 OUTBC1 LDAA TEMP 566 055B 84 0F ANDA #$0F 567 055D BD 0266 JSR OUTHR 568 0560 7C 004D INC FLAG 569 0563 96 32 OUTBC2 LDAA TEMP+1 570 0565 7D 004D TST FLAG 571 0568 26 04 BNE NOZERO 572 056A 84 F0 ANDA #$F0 573 056C 27 03 BEQ OUTBC3 574 056E BD 025D NOZERO JSR OUTHL 575 0571 96 32 OUTBC3 LDAA TEMP+1 576 0573 84 0F ANDA #$0F 577 0575 BD 0266 JSR OUTHR 578 0578 39 RTS 579 * 580 * LOWER THE SHIELDS 581 * 582 0579 7D 0057 SHLDS TST SHIELD 583 057C 27 0A BEQ SHLDUP 584 057E 7F 0057 SHLDWN CLR SHIELD 585 0581 CE 104B LDX #DWNST 586 0584 BD 0259 SHLD0 JSR PSTRNG 587 0587 39 SHLD1 RTS 588 * 589 * RAISE THE SHIELDS 590 * 591 0588 96 3C SHLDUP LDAA SHENGY 592 058A 81 01 CMPA #1 593 058C 23 F9 BLS SHLD1 594 058E 7D 0066 TST DAMSHL 595 0591 26 EB BNE SHLDWN 596 0593 7C 0057 INC SHIELD 597 0596 CE 003C LDX #SHENGY 598 0599 86 02 LDAA #2 599 059B 97 31 STAA TEMP 600 059D 7F 0032 CLR TEMP+1 601 05A0 BD 0AD3 JSR BCDSUB 602 05A3 CE 1065 LDX #UPSTR 603 05A6 20 DC BRA SHLD0 604 * 605 * SHORT RANGE SCAN 606 * 607 05A8 7D 0062 SRSCAN TST DAMSRS 608 05AB 27 0F BEQ SSCAN1 609 05AD 7D 0079 TST SHUTCR 610 05B0 26 04 BNE SSCAN0 611 05B2 BD 0E31 JSR RPTDAM 612 05B5 39 RTS 613 05B6 CE 1A4D SSCAN0 LDX #SCBKUP 614 05B9 BD 0259 JSR PSTRNG 615 05BC BD 024F SSCAN1 JSR PCRLF 616 05BF 7F 0050 CLR SCANY 617 05C2 96 4E LDAA CNDFLG 618 05C4 81 02 CMPA #2 619 05C6 26 03 BNE SSCAN2 620 05C8 BD 0382 JSR REFUEL 621 05CB CE 00FC SSCAN2 LDX #SECMAP 622 05CE DF 33 STX TEMP2 623 05D0 BD 0674 JSR DOSCAN 624 05D3 CE 1187 LDX #SDATE 625 05D6 BD 0248 JSR PDATA1 626 05D9 BD 041B JSR OUTDAT 627 05DC BD 0674 JSR DOSCAN 628 05DF CE 1194 LDX #CNDTNS 629 05E2 BD 0248 JSR PDATA1 630 05E5 96 4E LDAA CNDFLG 631 05E7 27 1A BEQ SRSCN1 632 05E9 81 01 CMPA #1 633 05EB 27 11 BEQ SRSCN0 634 05ED 81 03 CMPA #3 635 05EF 27 05 BEQ OUTCN1 636 05F1 CE 0FB6 LDX #DOCKED 637 05F4 20 03 BRA OUTCND 638 05F6 CE 11A2 OUTCN1 LDX #YELLOW 639 05F9 BD 0248 OUTCND JSR PDATA1 640 05FC 20 0A BRA SRSCN2 641 * 642 05FE CE 11AA SRSCN0 LDX #RED 643 0601 20 F6 BRA OUTCND 644 * 645 0603 CE 11B1 SRSCN1 LDX #GREEN 646 0606 20 F1 BRA OUTCND 647 * 648 0608 8D 6A SRSCN2 BSR DOSCAN 649 060A CE 11B7 LDX #QUADP 650 060D BD 0248 JSR PDATA1 651 0610 BD 0454 JSR OUTQUD 652 0613 8D 5F BSR DOSCAN 653 0615 CE 11C4 LDX #SECP 654 0618 BD 0248 JSR PDATA1 655 061B BD 045F JSR OUTSEC 656 061E 8D 54 BSR DOSCAN 657 0620 CE 11D1 LDX #ENGSTR 658 0623 BD 0248 JSR PDATA1 659 0626 DE 58 LDX ENERGY 660 0628 DF 31 STX TEMP 661 062A BD 0549 JSR OUTBCD 662 062D 8D 45 BSR DOSCAN 663 062F CE 11DC LDX #KLSTR 664 0632 BD 0248 JSR PDATA1 665 0635 BD 042D JSR OUTKLN 666 0638 8D 3A BSR DOSCAN 667 063A CE 11E9 LDX #SHSTR 668 063D BD 0248 JSR PDATA1 669 0640 DE 3C LDX SHENGY 670 0642 DF 31 STX TEMP 671 0644 BD 0549 JSR OUTBCD 672 0647 7D 0057 TST SHIELD 673 064A 27 05 BEQ SRSCN4 674 064C CE 0F9B LDX #UPSCAS 675 064F 20 03 BRA SRSCN5 676 * 677 0651 CE 0FBD SRSCN4 LDX #DNSCAS 678 0654 BD 0248 SRSCN5 JSR PDATA1 679 0657 8D 1B BSR DOSCAN 680 0659 CE 11F5 LDX #TRPSTR 681 065C BD 0248 JSR PDATA1 682 065F 7F 0031 CLR TEMP 683 0662 96 46 LDAA PHOTON 684 0664 8B 00 ADDA #0 685 0666 19 DAA 686 0667 97 32 STAA TEMP+1 687 0669 BD 0549 JSR OUTBCD 688 066C DE 73 LDX QUDPTR UPDATE COMPUTER MAP 689 066E A6 00 LDAA 0,X 690 0670 BD 0B7C JSR UPDCMP 691 0673 39 RTS 692 * 693 * OUTPUT 1 SHORT RANGE SCAN LINE 694 * 695 0674 BD 024F DOSCAN JSR PCRLF 696 0677 86 02 LDAA #2 697 0679 97 30 STAA COUNT 698 067B 7F 004F CLR SCANX 699 067E 86 04 DOSCN LDAA #4 700 0680 97 51 STAA COUNT1 701 0682 DE 33 LDX TEMP2 702 0684 A6 00 LDAA 0,X 703 0686 97 56 DOSCN0 STAA ASAVE 704 0688 96 4A LDAA CURSCY 705 068A 91 50 CMPA SCANY IS IT Y-LOC OF ENTERPRISE? 706 068C 26 0D BNE CHK0 707 068E 96 49 LDAA CURSCX 708 0690 91 4F CMPA SCANX 709 0692 26 07 BNE CHK0 710 0694 86 45 LDAA #'E 711 0696 BD C003 JSR OUTCH 712 0699 20 0F BRA GOAHD 713 069B 96 56 CHK0 LDAA ASAVE 714 069D CE 0213 DOSCN1 LDX #CHRTBL 715 06A0 84 03 ANDA #3 716 06A2 BD 0470 JSR FIXXRG 717 06A5 A6 00 LDAA 0,X 718 06A7 BD C003 JSR OUTCH 719 06AA BD 0276 GOAHD JSR OUTS 720 06AD DE 33 LDX TEMP2 721 06AF 7C 004F INC SCANX 722 06B2 7A 0051 DEC COUNT1 723 06B5 27 06 BEQ DOSCN2 724 06B7 96 56 LDAA ASAVE 725 06B9 44 LSRA 726 06BA 44 LSRA 727 06BB 20 C9 BRA DOSCN0 728 06BD 08 DOSCN2 INX 729 06BE DF 33 STX TEMP2 730 06C0 A6 00 LDAA 0,X 731 06C2 7A 0030 DEC COUNT 732 06C5 26 B7 BNE DOSCN 733 06C7 7C 0050 INC SCANY 734 06CA 39 RTS 735 * 736 * SETUP SECTOR MAP 737 * 738 06CB 7F 0026 SETUPS CLR SECKLN 739 06CE CE 00FC LDX #SECMAP 740 06D1 C6 10 LDAB #16 741 06D3 4F CLRA 742 06D4 A7 00 SETPS1 STAA 0,X 743 06D6 08 INX 744 06D7 5A DECB 745 06D8 26 FA BNE SETPS1 746 06DA CE 007C LDX #QUDMAP 747 06DD 96 47 LDAA CURQUX 748 06DF D6 48 LDAB CURQUY 749 06E1 97 56 STPSEX STAA ASAVE 750 06E3 5D TSTB 751 06E4 27 09 BEQ SETPS4 752 06E6 86 08 SETPS2 LDAA #8 753 06E8 08 SETPS3 INX 754 06E9 4A DECA 755 06EA 26 FC BNE SETPS3 756 06EC 5A DECB 757 06ED 26 F7 BNE SETPS2 758 06EF 96 56 SETPS4 LDAA ASAVE 759 06F1 27 04 BEQ SETPS6 760 06F3 08 SETPS5 INX 761 06F4 4A DECA 762 06F5 26 FC BNE SETPS5 763 06F7 7D 0020 SETPS6 TST STPSFL 764 06FA 27 04 BEQ STPSNX 765 06FC 7F 0020 CLR STPSFL 766 06FF 39 RTS 767 * 768 0700 DF 73 STPSNX STX QUDPTR 769 0702 E6 00 LDAB 0,X 770 0704 D7 52 STAB SECINF 771 0706 27 36 BEQ SETP10 772 0708 C4 07 ANDB #7 773 070A 27 0A BEQ SETPS7 774 070C D7 30 STAB COUNT 775 070E D7 26 STAB SECKLN 776 0710 86 02 LDAA #2 777 0712 97 53 STAA MASK 778 0714 8D 62 BSR PUTINM 779 0716 D6 52 SETPS7 LDAB SECINF 780 0718 C4 38 ANDB #$38 781 071A 27 0B BEQ SETPS8 782 071C 54 LSRB 783 071D 54 LSRB 784 071E 54 LSRB 785 071F D7 30 STAB COUNT 786 0721 86 01 LDAA #1 787 0723 97 53 STAA MASK 788 0725 8D 51 BSR PUTINM 789 0727 D6 52 SETPS8 LDAB SECINF 790 0729 C5 40 BITB #$40 791 072B 27 0A BEQ SETPS9 792 072D 86 01 LDAA #1 793 072F 97 30 STAA COUNT 794 0731 86 03 LDAA #3 795 0733 97 53 STAA MASK 796 0735 8D 41 BSR PUTINM 797 0737 D6 52 SETPS9 LDAB SECINF 798 0739 2A 03 BPL SETP10 799 073B 7C 006F INC SUPFLG 800 073E BD 027B SETP10 JSR RANDOM 801 0741 84 07 ANDA #7 802 0743 97 4B STAA TRIALX 803 0745 BD 027B JSR RANDOM 804 0748 84 07 ANDA #7 805 074A 97 4C STAA TRIALY 806 074C BD 07C0 JSR CHKPOS 807 074F 7D 004D TST FLAG 808 0752 26 EA BNE SETP10 809 0754 96 4B LDAA TRIALX 810 0756 97 49 STAA CURSCX 811 0758 96 4C LDAA TRIALY 812 075A 97 4A STAA CURSCY 813 * 814 * COMPUTE LOCAL KLINGON ENERGY 815 * 816 075C D6 26 CSCKEN LDAB SECKLN 817 075E 58 ASLB 818 075F CE 003E LDX #KLNENG 819 0762 6F 00 CSCEXT CLR 0,X 820 0764 6F 01 CLR 1,X 821 0766 BD 027B CSCKN1 JSR RANDOM 822 0769 8B 00 ADDA #0 823 076B 19 DAA 824 076C 7F 0031 CLR TEMP 825 076F 97 32 STAA TEMP+1 826 0771 BD 0AD0 JSR BCDADD 827 0774 5A DECB 828 0775 26 EF BNE CSCKN1 829 0777 39 RTS 830 * 831 * PUT OBJECTS IN SECTOR MAP 832 * 833 0778 CE 00FC PUTINM LDX #SECMAP 834 077B BD 027B JSR RANDOM 835 077E 84 0F ANDA #$F 836 0780 97 5A STAA TSAVE1 837 0782 BD 0470 JSR FIXXRG 838 0785 E6 00 LDAB 0,X 839 0787 BD 027B JSR RANDOM 840 078A 84 03 ANDA #3 841 078C 97 56 STAA ASAVE 842 078E 27 05 BEQ PUTIN2 843 0790 56 PUTIN1 RORB 844 0791 56 RORB 845 0792 4A DECA 846 0793 26 FB BNE PUTIN1 847 0795 C5 03 PUTIN2 BITB #3 848 0797 26 DF BNE PUTINM 849 0799 DA 53 ORAB MASK 850 079B 96 56 LDAA ASAVE 851 079D 27 05 BEQ PUTIN4 852 079F 59 PUTIN3 ROLB 853 07A0 59 ROLB 854 07A1 4A DECA 855 07A2 26 FB BNE PUTIN3 856 07A4 E7 00 PUTIN4 STAB 0,X 857 07A6 7A 0030 DEC COUNT 858 07A9 26 CD BNE PUTINM 859 07AB 96 53 LDAA MASK 860 07AD 81 03 CMPA #3 861 07AF 26 0E BNE PUTIN6 862 07B1 D6 5A LDAB TSAVE1 863 07B3 0C CLC 864 07B4 56 RORB 865 07B5 96 56 LDAA ASAVE 866 07B7 24 02 BCC PUTIN5 867 07B9 8B 04 ADDA #4 868 07BB 97 23 PUTIN5 STAA BASESX 869 07BD D7 24 STAB BASESY 870 07BF 39 PUTIN6 RTS 871 * 872 * CHECK FOR EMPTY POSITIONS 873 * 874 07C0 7F 004D CHKPOS CLR FLAG 875 07C3 DF 35 STX XTEMP 876 07C5 CE 00FC LDX #SECMAP 877 07C8 96 4C LDAA TRIALY 878 07CA 27 05 BEQ CHKPO2 879 07CC 08 CHKPO1 INX 880 07CD 08 INX 881 07CE 4A DECA 882 07CF 26 FB BNE CHKPO1 883 07D1 96 4B CHKPO2 LDAA TRIALX 884 07D3 81 03 CMPA #3 885 07D5 23 03 BLS CHKPO3 886 07D7 08 INX 887 07D8 80 04 SUBA #4 888 07DA E6 00 CHKPO3 LDAB 0,X 889 07DC 97 56 STAA ASAVE 890 07DE 27 05 BEQ CHKPO5 891 07E0 54 CHKPO4 LSRB 892 07E1 54 LSRB 893 07E2 4A DECA 894 07E3 26 FB BNE CHKPO4 895 07E5 C4 03 CHKPO5 ANDB #3 896 07E7 27 10 BEQ CHKPO6 897 07E9 D7 4D STAB FLAG 898 07EB 7D 0029 TST STCFLG 899 07EE 27 09 BEQ CHKPO6 900 07F0 7D 0078 TST PHTFLG 901 07F3 26 07 BNE CHKPO7 902 07F5 C1 02 CMPB #2 903 07F7 27 03 BEQ CHKPO7 904 07F9 DE 35 CHKPO6 LDX XTEMP 905 07FB 39 RTS 906 * 907 07FC C6 FC CHKPO7 LDAB #$FC 908 07FE 96 56 LDAA ASAVE 909 0800 27 06 BEQ CHKPO9 910 0802 0D SEC 911 0803 59 CHKPO8 ROLB 912 0804 59 ROLB 913 0805 4A DECA 914 0806 26 FB BNE CHKPO8 915 0808 E4 00 CHKPO9 ANDB 0,X 916 080A E7 00 STAB 0,X 917 080C 20 EB BRA CHKPO6 918 * 919 * FIRE PHOTON TORPEDO 920 * 921 080E 7D 0065 PHOTOR TST DAMPHT 922 0811 27 04 BEQ PTRNDM 923 0813 BD 0E31 PTRND9 JSR RPTDAM 924 0816 39 RTS 925 0817 7D 0046 PTRNDM TST PHOTON ANY LEFT 926 081A 26 0A BNE PHOTRO 927 081C CE 0FC3 PTEMPT LDX #PTEMST 928 081F BD 0259 JSR PSTRNG 929 0822 7C 006B INC PTZFLG 930 0825 39 RTS 931 * 932 0826 7C 0078 PHOTRO INC PHTFLG 933 0829 BD 027B JSR RANDOM 934 082C 84 0F ANDA #$F 935 082E 8A 04 ORAA #4 936 0830 97 2D STAA WARP 937 0832 7A 0046 DEC PHOTON 938 * 939 * WARP ENGINES AND PHOTON TORP COURSE 940 * 941 0835 7F 002A SETCRS CLR SQFLG 942 0838 7F 0025 CLR GLMFLG 943 083B CE 107D LDX #CRSSTR 944 083E BD 0259 JSR PSTRNG 945 0841 BD 0A7B JSR INCHCK 946 0844 81 07 CMPA #7 947 0846 22 38 BHI ABC29 948 0848 BD 0276 JSR OUTS 949 084B BD 0276 JSR OUTS 950 084E 97 2C STAA COURSE 951 0850 7D 0078 TST PHTFLG 952 0853 26 20 BNE PHTOR1 953 0855 CE 1097 LDX #WRPSTR 954 0858 BD 0259 JSR PSTRNG 955 085B BD 0A7B JSR INCHCK 956 085E 97 2D STAA WARP 957 0860 7D 002B TST PNTFLG 958 0863 26 07 BNE STCRS2 959 0865 97 2A STAA SQFLG 960 0867 7D 0061 TST DAMENG 961 086A 26 A7 BNE PTRND9 962 * 963 086C BD C006 STCRS2 JSR INCH 964 086F 81 0D CMPA #$0D 965 0871 26 F9 BNE STCRS2 966 0873 96 2C LDAA COURSE 967 0875 CE 0203 PHTOR1 LDX #MOVTBL 968 0878 48 ASLA 969 0879 BD 0470 JSR FIXXRG 970 087C 96 2D LDAA WARP 971 087E 26 01 BNE ABC30 972 0880 39 ABC29 RTS 973 * 974 0881 97 30 ABC30 STAA COUNT 975 0883 7D 002A TST SQFLG 976 0886 27 04 BEQ STCRS3 977 0888 86 0F LDAA #$0F 978 088A 97 30 STAA COUNT 979 088C 96 49 STCRS3 LDAA CURSCX 980 088E D6 4A LDAB CURSCY 981 0890 AB 00 PHTOR2 ADDA 0,X 982 0892 EB 01 ADDB 1,X 983 0894 BD 0A57 JSR TSTBND 984 0897 7D 002E TST FINCX 985 089A 27 03 BEQ ABC1 986 089C 7E 092A JMP STCRS5 987 * 988 089F 7D 002F ABC1 TST FINCY 989 08A2 27 03 BEQ ABC5 990 08A4 7E 092A JMP STCRS5 991 * 992 08A7 97 4B ABC5 STAA TRIALX SAVE TRIAL POSITION 993 08A9 D7 4C STAB TRIALY 994 08AB 7D 0078 TST PHTFLG 995 08AE 27 05 BEQ ABC4 996 08B0 BD 0276 JSR OUTS 997 08B3 8D 1F BSR OBATSO 998 08B5 7C 0029 ABC4 INC STCFLG 999 08B8 BD 07C0 JSR CHKPOS CHK IF BLKD 1000 08BB 96 4D LDAA FLAG 1001 08BD 27 2B BEQ STCRS4 1002 08BF 7D 0078 TST PHTFLG 1003 08C2 27 03 BEQ ABC2 1004 08C4 7E 0A1B JMP PHTOR3 1005 * 1006 08C7 81 02 ABC2 CMPA #2 1007 08C9 26 03 BNE ABC3 1008 08CB 7E 09C4 JMP KLGRAM 1009 * 1010 08CE CE 10AF ABC3 LDX #BLOKST 1011 08D1 BD 0259 JSR PSTRNG 1012 08D4 96 4C OBATSO LDAA TRIALY 1013 08D6 BD 0415 JSR FIXOUT 1014 08D9 BD 046A JSR OUTDSH 1015 08DC 96 4B LDAA TRIALX 1016 08DE BD 0415 JSR FIXOUT 1017 08E1 7D 0078 TST PHTFLG 1018 08E4 27 01 BEQ STCRET 1019 08E6 39 RTS 1020 * 1021 08E7 7E 0977 STCRET JMP STCRS6 1022 * 1023 08EA 7D 0078 STCRS4 TST PHTFLG 1024 08ED 27 12 BEQ STCRSB JUMP IF NOT 1025 08EF 96 4B LDAA TRIALX 1026 08F1 D6 4C LDAB TRIALY 1027 08F3 7A 0030 DEC COUNT 1028 08F6 26 98 BNE PHTOR2 1029 08F8 CE 1165 PHTOR4 LDX #PNOENG 1030 08FB BD 0259 JSR PSTRNG 1031 08FE 7E 0977 JMP STCRS6 1032 * 1033 0901 96 4B STCRSB LDAA TRIALX 1034 0903 97 49 STAA CURSCX 1035 0905 96 4C LDAA TRIALY 1036 0907 97 4A STAA CURSCY 1037 0909 BD 027B JSR RANDOM 1038 090C 81 80 CMPA #$80 1039 090E 23 0A BLS STCRSC 1040 0910 86 01 LDAA #1 1041 0912 BD 0A98 JSR FIXTIM 1042 0915 86 03 LDAA #3 1043 0917 BD 0AC0 JSR FIXENG 1044 091A 7A 0030 STCRSC DEC COUNT DEC MOVE CNTR 1045 091D 27 03 BEQ STCRSD 1046 091F 7E 088C JMP STCRS3 1047 * 1048 0922 7D 002A STCRSD TST SQFLG 1049 0925 26 03 BNE STCRS5 QUADRANT MOVE! 1050 0927 7E 0977 JMP STCRS6 1051 * 1052 092A 7D 0078 STCRS5 TST PHTFLG 1053 092D 27 03 BEQ ABC6 1054 092F 7E 08F8 JMP PHTOR4 1055 0932 96 2D ABC6 LDAA WARP 1056 0934 97 30 STAA COUNT 1057 0936 96 47 ABC7 LDAA CURQUX 1058 0938 D6 48 LDAB CURQUY 1059 093A 7D 002A TST SQFLG 1060 093D 27 6E BEQ STCRS7 1061 093F AB 00 ADDA 0,X 1062 0941 EB 01 ADDB 1,X 1063 0943 97 4B STAA TRIALX 1064 0945 D7 4C STAB TRIALY 1065 0947 BD 0A57 JSR TSTBND 1066 094A 7D 002E TST FINCX 1067 094D 27 03 BEQ ABCD0 1068 094F 7E 09F7 JMP GALBND 1069 * 1070 0952 7D 002F ABCD0 TST FINCY 1071 0955 27 03 BEQ ABCD1 1072 0957 7E 09F7 JMP GALBND 1073 * 1074 095A 96 4B ABCD1 LDAA TRIALX 1075 095C 97 47 STAA CURQUX 1076 095E 96 4C LDAA TRIALY 1077 0960 97 48 STAA CURQUY 1078 0962 7C 0025 INC GLMFLG 1079 0965 86 06 LDAA #6 1080 0967 BD 0A98 JSR FIXTIM 1081 096A 86 30 LDAA #$30 1082 096C BD 0AC0 JSR FIXENG 1083 096F 7A 0030 DEC COUNT 1084 0972 26 C2 BNE ABC7 1085 0974 BD 06CB STCRSA JSR SETUPS 1086 0977 7F 004E STCRS6 CLR CNDFLG 1087 097A 96 21 LDAA BASEX 1088 097C 91 47 CMPA CURQUX 1089 097E 26 1C BNE SEXIT1 1090 0980 D6 22 LDAB BASEY 1091 0982 D1 48 CMPB CURQUY 1092 0984 26 16 BNE SEXIT1 1093 0986 96 23 LDAA BASESX 1094 0988 D6 24 LDAB BASESY DOCKED? 1095 098A 4C INCA 1096 098B 90 49 SUBA CURSCX 1097 098D 81 02 CMPA #2 1098 098F 22 0B BHI SEXIT1 1099 0991 5C SEXIT0 INCB 1100 0992 D0 4A SUBB CURSCY 1101 0994 C1 02 CMPB #2 1102 0996 22 04 BHI SEXIT1 1103 0998 86 02 SDOCK LDAA #2 1104 099A 97 4E STAA CNDFLG 1105 099C 7D 006D SEXIT1 TST AUTOSR 1106 099F 27 03 BEQ SEXIT2 1107 09A1 BD 05A8 JSR SRSCAN 1108 09A4 7D 006E SEXIT2 TST AUTOLR 1109 09A7 27 03 BEQ SEXIT3 1110 09A9 BD 0AEF JSR LRSCAN 1111 09AC 39 SEXIT3 RTS 1112 * 1113 09AD 9B 2E STCRS7 ADDA FINCX 1114 09AF DB 2F ADDB FINCY 1115 09B1 81 07 CMPA #7 1116 09B3 22 42 BHI GALBND 1117 09B5 C1 07 CMPB #7 1118 09B7 22 3E BHI GALBND 1119 09B9 97 47 STAA CURQUX 1120 09BB D7 48 STAB CURQUY 1121 09BD 86 07 LDAA #7 1122 09BF BD 0A98 JSR FIXTIM 1123 09C2 20 B0 BRA STCRSA 1124 * 1125 * RAMMED A KLINGON ROUTINE 1126 * 1127 09C4 CE 10D4 KLGRAM LDX #KRMSTR 1128 09C7 BD 0259 JSR PSTRNG 1129 09CA 86 01 LDAA #1 1130 09CC 97 30 STAA COUNT 1131 09CE 7F 002A CLR SQFLG 1132 09D1 7C 005B INC HITKLS 1133 09D4 7A 0054 DEC KLNGCT DEC KLINGON COUNT 1134 09D7 7A 0026 DEC SECKLN 1135 09DA 7C 0078 INC PHTFLG 1136 09DD BD 08D4 JSR OBATSO 1137 09E0 CE 1774 LDX #HEVDAM 1138 09E3 BD 0259 JSR PSTRNG 1139 09E6 C6 6A LDAB #$6A 1140 09E8 BD 0E04 JSR MANDAM 1141 09EB CE 1382 LDX #STILFT 1142 09EE BD 0259 JSR PSTRNG 1143 09F1 BD 042D JSR OUTKLN 1144 09F4 7E 0901 JMP STCRSB 1145 * 1146 * PRINT GALAXY LIMIT MESSAGE 1147 * 1148 09F7 CE 10F6 GALBND LDX #GLBNDS 1149 09FA BD 0259 JSR PSTRNG 1150 09FD 96 60 LDAA GALCNT 1151 09FF 4C INCA 1152 0A00 81 03 CMPA #3 1153 0A02 26 0A BNE GALBN2 1154 0A04 CE 1507 LDX #GALDUM 1155 0A07 BD 0259 JSR PSTRNG 1156 0A0A 7C 006C INC GAMEND 1157 0A0D 39 RTS 1158 * 1159 0A0E 97 60 GALBN2 STAA GALCNT 1160 0A10 7D 0025 TST GLMFLG 1161 0A13 26 03 BNE ABC20 1162 0A15 7E 0977 JMP STCRS6 1163 * 1164 0A18 7E 0974 ABC20 JMP STCRSA 1165 * 1166 * TORPEDO HAS HIT SOMETHING 1167 * 1168 0A1B CE 114D PHTOR3 LDX #PHITST 1169 0A1E BD 0259 JSR PSTRNG 1170 0A21 96 4D LDAA FLAG 1171 0A23 81 02 CMPA #2 KLINGON? 1172 0A25 26 1A BNE ABC8 1173 0A27 7A 0026 DEC SECKLN 1174 0A2A 7A 0054 DEC KLNGCT 1175 0A2D 7C 005B INC HITKLS 1176 0A30 CE 1344 LDX #KLGSTR 1177 0A33 BD 0248 JSR PDATA1 1178 0A36 CE 1382 LDX #STILFT 1179 0A39 BD 0259 JSR PSTRNG 1180 0A3C BD 042D JSR OUTKLN 1181 0A3F 20 0D BRA ABC10 1182 * 1183 0A41 81 01 ABC8 CMPA #1 STAR? 1184 0A43 26 0A BNE ABC11 1185 0A45 7C 005C INC HITSTR 1186 0A48 CE 12FD LDX #STARST 1187 0A4B BD 0248 ABC9 JSR PDATA1 1188 0A4E 39 ABC10 RTS 1189 * 1190 0A4F CE 1316 ABC11 LDX #BASEST HIT BASE! 1191 0A52 7C 005D INC HITBAS 1192 0A55 20 F4 BRA ABC9 1193 * 1194 * SEE IF GALAXY EDGE REACHED 1195 * 1196 0A57 7F 002E TSTBND CLR FINCX 1197 0A5A 7F 002F CLR FINCY 1198 0A5D 4D TSTA 1199 0A5E 2A 05 BPL TSTBN1 1200 0A60 7A 002E DEC FINCX 1201 0A63 20 07 BRA TSTBN2 1202 * 1203 0A65 81 07 TSTBN1 CMPA #7 1204 0A67 23 03 BLS TSTBN2 1205 0A69 7C 002E INC FINCX 1206 0A6C 5D TSTBN2 TSTB 1207 0A6D 2A 04 BPL TSTBN3 1208 0A6F 7A 002F DEC FINCY 1209 0A72 39 RTS 1210 * 1211 0A73 C1 07 TSTBN3 CMPB #7 1212 0A75 23 03 BLS TSTBN4 1213 0A77 7C 002F INC FINCY 1214 0A7A 39 TSTBN4 RTS 1215 * 1216 * INPUT CHARACTER AND CHECK 1217 * 1218 0A7B 4F INCHCK CLRA 1219 0A7C 97 2B INCHK0 STAA PNTFLG 1220 0A7E BD C006 JSR INCH 1221 0A81 81 2E CMPA #'. 1222 0A83 27 F7 BEQ INCHK0 1223 0A85 81 39 CMPA #'9 1224 0A87 22 07 BHI INCHK1 1225 0A89 81 2F CMPA #'0-1 1226 0A8B 23 03 BLS INCHK1 1227 0A8D 80 30 SUBA #$30 1228 0A8F 39 RTS 1229 * 1230 0A90 CE 12EC INCHK1 LDX #ERR 1231 0A93 BD 0248 JSR PDATA1 1232 0A96 20 E3 BRA INCHCK 1233 * 1234 * ADD TO GAME TIME 1235 * 1236 0A98 9B 28 FIXTIM ADDA TIMDEC 1237 0A9A 81 09 CMPA #9 1238 0A9C 23 1F BLS FIXTM1 1239 0A9E 80 0A SUBA #10 1240 0AA0 97 28 STAA TIMDEC 1241 0AA2 7F 0031 CLR TEMP 1242 0AA5 86 01 LDAA #1 1243 0AA7 97 32 STAA TEMP+1 1244 0AA9 DF 35 STX XTEMP 1245 0AAB CE 0037 LDX #TIME0 1246 0AAE BD 0AD0 JSR BCDADD 1247 0AB1 CE 003A LDX #TIMUSE 1248 0AB4 BD 0AD0 JSR BCDADD 1249 0AB7 BD 0DBD JSR FIXDAM 1250 0ABA DE 35 LDX XTEMP 1251 0ABC 39 RTS 1252 * 1253 0ABD 97 28 FIXTM1 STAA TIMDEC 1254 0ABF 39 RTS 1255 * 1256 *SUBTRACT FROM ENERGY AMOUNT 1257 * 1258 0AC0 DF 35 FIXENG STX XTEMP 1259 0AC2 CE 0058 LDX #ENERGY 1260 0AC5 7F 0031 CLR TEMP 1261 0AC8 97 32 STAA TEMP+1 1262 0ACA BD 0AD3 JSR BCDSUB 1263 0ACD DE 35 LDX XTEMP 1264 0ACF 39 RTS 1265 * 1266 * BCD ADDITION 1267 * 1268 0AD0 0C BCDADD CLC 1269 0AD1 20 0D BRA BCDFIX 1270 * 1271 * BCD SUBTRACTION 1272 * 1273 0AD3 86 99 BCDSUB LDAA #$99 1274 0AD5 90 31 SUBA TEMP 1275 0AD7 97 31 STAA TEMP 1276 0AD9 86 99 LDAA #$99 1277 0ADB 90 32 SUBA TEMP+1 1278 0ADD 97 32 STAA TEMP+1 1279 0ADF 0D SEC 1280 * 1281 0AE0 A6 01 BCDFIX LDAA 1,X 1282 0AE2 99 32 ADCA TEMP+1 1283 0AE4 19 DAA 1284 0AE5 A7 01 STAA 1,X 1285 0AE7 A6 00 LDAA 0,X 1286 0AE9 99 31 ADCA TEMP 1287 0AEB 19 DAA 1288 0AEC A7 00 STAA 0,X 1289 0AEE 39 RTS 1290 * 1291 * LONG RANGE SCAN 1292 * 1293 0AEF 7D 0063 LRSCAN TST DAMLRS 1294 0AF2 27 04 BEQ LRSNDM 1295 0AF4 BD 0E31 JSR RPTDAM 1296 0AF7 39 RTS 1297 * 1298 0AF8 7F 0042 LRSNDM CLR TOPFLG 1299 0AFB 7F 0043 CLR BOTFLG 1300 0AFE 7F 0044 CLR LSDFLG 1301 0B01 7F 0045 CLR RSDFLG 1302 0B04 CE 1202 LDX #LRSCST 1303 0B07 BD 0259 JSR PSTRNG 1304 0B0A BD 0454 JSR OUTQUD 1305 0B0D BD 024F JSR PCRLF 1306 0B10 96 47 LDAA CURQUX 1307 0B12 26 03 BNE LRSCNT 1308 0B14 7C 0044 INC LSDFLG 1309 0B17 81 07 LRSCNT CMPA #7 1310 0B19 26 03 BNE LRSCN2 1311 0B1B 7C 0045 INC RSDFLG 1312 0B1E 96 48 LRSCN2 LDAA CURQUY 1313 0B20 26 03 BNE LRSCN3 1314 0B22 7C 0042 INC TOPFLG 1315 0B25 81 07 LRSCN3 CMPA #7 1316 0B27 26 03 BNE LRSCN4 1317 0B29 7C 0043 INC BOTFLG 1318 0B2C DE 73 LRSCN4 LDX QUDPTR 1319 0B2E 86 F7 LRSCNC LDAA #$F7 1320 0B30 BD 0470 JSR FIXXRG 1321 0B33 7D 0042 TST TOPFLG 1322 0B36 27 04 BEQ LRSCN7 1323 0B38 8D 68 BSR OUTTH0 1324 0B3A 20 02 BRA LRSCN8 1325 * 1326 0B3C 8D 18 LRSCN7 BSR OUTLIN 1327 0B3E 86 05 LRSCN8 LDAA #5 1328 0B40 BD 0470 JSR FIXXRG 1329 0B43 8D 11 BSR OUTLIN 1330 0B45 86 05 LDAA #5 1331 0B47 BD 0470 JSR FIXXRG 1332 0B4A 7D 0043 TST BOTFLG 1333 0B4D 27 04 BEQ LRSCN9 1334 0B4F 8D 51 BSR OUTTH0 1335 0B51 20 02 BRA LRSC10 1336 * 1337 0B53 8D 01 LRSCN9 BSR OUTLIN 1338 0B55 39 LRSC10 RTS 1339 * 1340 * OUTPUT 1 LINE OF LONG RANGE SCAN 1341 * 1342 0B56 A6 00 OUTLIN LDAA 0,X 1343 0B58 7D 0044 TST LSDFLG 1344 0B5B 27 03 BEQ OUTLN1 1345 0B5D 4F CLRA 1346 0B5E 20 02 BRA OUTLN2 1347 0B60 8D 1A OUTLN1 BSR UPDCMP 1348 0B62 8D 1B OUTLN2 BSR OUTQIN 1349 0B64 A6 00 LDAA 0,X 1350 0B66 8D 14 BSR UPDCMP 1351 0B68 8D 15 BSR OUTQIN 1352 0B6A A6 00 LDAA 0,X 1353 0B6C 7D 0045 TST RSDFLG 1354 0B6F 27 03 BEQ OUTLN3 1355 0B71 4F CLRA 1356 0B72 20 02 BRA OUTLN4 1357 0B74 8D 06 OUTLN3 BSR UPDCMP 1358 0B76 8D 07 OUTLN4 BSR OUTQIN 1359 0B78 BD 024F JSR PCRLF 1360 0B7B 39 RTS 1361 * 1362 * UPDATE COMPUTER HISTORY MAP 1363 * 1364 0B7C A7 40 UPDCMP STAA 64,X 1365 0B7E 39 RTS 1366 * 1367 * OUTPUT QUADRANT INFORMATION 1368 * 1369 0B7F 16 OUTQIN TAB 1370 0B80 84 80 ANDA #$80 1371 0B82 0C CLC 1372 0B83 49 ROLA 1373 0B84 49 ROLA 1374 0B85 BD 0266 JSR OUTHR 1375 0B88 17 TBA 1376 0B89 84 40 ANDA #$40 1377 0B8B 44 LSRA 1378 0B8C 44 LSRA 1379 0B8D BD 025D JSR OUTHL 1380 0B90 17 TBA 1381 0B91 84 38 ANDA #$38 STARS 1382 0B93 48 ASLA 1383 0B94 BD 025D JSR OUTHL 1384 0B97 17 TBA 1385 0B98 84 07 ANDA #$07 KLINGONS 1386 0B9A BD 0266 JSR OUTHR 1387 0B9D 08 INX 1388 0B9E BD 0276 JSR OUTS 1389 0BA1 39 RTS 1390 * 1391 * OUTPUT A LINE OF ZEROS 1392 * 1393 0BA2 86 03 OUTTH0 LDAA #3 1394 0BA4 97 30 STAA COUNT 1395 0BA6 4F OUTTH1 CLRA 1396 0BA7 8D D6 BSR OUTQIN 1397 0BA9 7A 0030 DEC COUNT 1398 0BAC 26 F8 BNE OUTTH1 1399 0BAE BD 024F JSR PCRLF 1400 0BB1 39 RTS 1401 * 1402 * FIRE PHASORS 1403 * 1404 0BB2 7D 0064 PHASOR TST DAMPHS 1405 0BB5 27 04 BEQ PHSNDM 1406 0BB7 BD 0E31 JSR RPTDAM 1407 0BBA 39 RTS 1408 * 1409 0BBB 7D 0057 PHSNDM TST SHIELD 1410 0BBE 27 05 BEQ PHASR1 1411 0BC0 CE 1215 LDX #MLSHLD 1412 0BC3 20 27 BRA TOOMC1 1413 * 1414 0BC5 CE 1233 PHASR1 LDX #ENAVLB REPORT ENERGY 1415 0BC8 BD 0259 JSR PSTRNG 1416 0BCB DE 58 LDX ENERGY 1417 0BCD DF 31 STX TEMP 1418 0BCF BD 0549 JSR OUTBCD 1419 0BD2 CE 124D LDX #FIRENG 1420 0BD5 BD 0259 JSR PSTRNG 1421 0BD8 BD 0C6D JSR INBCD 1422 0BDB 96 40 LDAA PHSENG 1423 0BDD 91 58 CMPA ENERGY 1424 0BDF 22 08 BHI TOOMCH 1425 0BE1 26 0D BNE PHASR2 1426 0BE3 96 41 LDAA PHSENG+1 1427 0BE5 91 59 CMPA ENERGY+1 1428 0BE7 23 07 BLS PHASR2 1429 0BE9 CE 126B TOOMCH LDX #TOMUCH 1430 0BEC BD 0259 TOOMC1 JSR PSTRNG 1431 0BEF 39 RTS 1432 * 1433 0BF0 BD 027B PHASR2 JSR RANDOM 1434 0BF3 81 F4 CMPA #$F4 1435 0BF5 23 08 BLS PHASR3 1436 0BF7 CE 1289 LDX #PHAMIS 1437 0BFA BD 0259 JSR PSTRNG 1438 0BFD 20 63 BRA PHASR6 1439 * 1440 0BFF 96 40 PHASR3 LDAA PHSENG 1441 0C01 91 3E CMPA KLNENG 1442 0C03 22 08 BHI PHASR4 1443 0C05 26 4A BNE PHASR5 1444 0C07 96 41 LDAA PHSENG+1 1445 0C09 91 3F CMPA KLNENG+1 1446 0C0B 23 44 BLS PHASR5 1447 0C0D 7F 003E PHASR4 CLR KLNENG 1448 0C10 7F 003F CLR KLNENG+1 1449 0C13 CE 12A0 LDX #ALKILL 1450 0C16 BD 0259 JSR PSTRNG 1451 0C19 CE 1382 LDX #STILFT 1452 0C1C BD 0259 JSR PSTRNG 1453 0C1F D6 26 LDAB SECKLN 1454 0C21 D7 5B STAB HITKLS 1455 0C23 96 54 LDAA KLNGCT 1456 0C25 10 SBA 1457 0C26 97 54 STAA KLNGCT 1458 0C28 BD 042D JSR OUTKLN 1459 0C2B 7F 0026 CLR SECKLN 1460 0C2E CE 00FC KILALK LDX #SECMAP 1461 0C31 86 10 LDAA #16 1462 0C33 97 30 STAA COUNT 1463 0C35 C6 04 KILAL1 LDAB #4 1464 0C37 A6 00 LDAA 0,X 1465 0C39 46 KILAL2 RORA 1466 0C3A 25 12 BCS KILAL4 1467 0C3C 46 RORA 1468 0C3D 24 01 BCC KILAL3 1469 0C3F 0C CLC 1470 0C40 5A KILAL3 DECB 1471 0C41 26 F6 BNE KILAL2 1472 0C43 46 RORA 1473 0C44 A7 00 STAA 0,X 1474 0C46 08 INX 1475 0C47 7A 0030 DEC COUNT 1476 0C4A 26 E9 BNE KILAL1 1477 0C4C 20 14 BRA PHASR6 1478 * 1479 0C4E 46 KILAL4 RORA 1480 0C4F 20 EF BRA KILAL3 1481 * 1482 0C51 CE 0040 PHASR5 LDX #PHSENG 1483 0C54 DF 31 STX TEMP 1484 0C56 CE 003E LDX #KLNENG 1485 0C59 BD 0AD3 JSR BCDSUB 1486 0C5C CE 12D1 LDX #KHTADM 1487 0C5F BD 0259 JSR PSTRNG 1488 0C62 DE 40 PHASR6 LDX PHSENG 1489 0C64 DF 31 STX TEMP 1490 0C66 CE 0058 LDX #ENERGY 1491 0C69 BD 0AD3 JSR BCDSUB 1492 0C6C 39 RTS 1493 * 1494 * INPUT A BCD NUMBER 1495 * 1496 0C6D 7F 0040 INBCD CLR PHSENG 1497 0C70 7F 0041 CLR PHSENG+1 1498 0C73 BD C006 INBCD1 JSR INCH 1499 0C76 81 30 CMPA #'0 1500 0C78 25 20 BLO EXIT 1501 0C7A 8D 1F BSR CHECK 1502 0C7C 7D 0027 TST FLAGC 1503 0C7F 26 11 BNE INEROR 1504 0C81 C6 04 LDAB #4 1505 0C83 78 0041 INBCD2 ASL PHSENG+1 1506 0C86 79 0040 ROL PHSENG 1507 0C89 5A DECB 1508 0C8A 26 F7 BNE INBCD2 1509 0C8C 9B 41 ADDA PHSENG+1 1510 0C8E 97 41 STAA PHSENG+1 1511 0C90 20 E1 BRA INBCD1 1512 * 1513 0C92 CE 12EC INEROR LDX #ERR 1514 0C95 BD 0248 JSR PDATA1 1515 0C98 20 D9 BRA INBCD1 1516 * 1517 0C9A 39 EXIT RTS 1518 * 1519 0C9B 7F 0027 CHECK CLR FLAGC 1520 0C9E 81 39 CMPA #'9 1521 0CA0 22 03 BHI SETFLG 1522 0CA2 84 0F ANDA #$0F 1523 0CA4 39 RTS 1524 * 1525 0CA5 7C 0027 SETFLG INC FLAGC 1526 0CA8 39 RTS 1527 * 1528 * SELF DESTRUCT ROUTINE 1529 * 1530 0CA9 CE 1422 SELFDE LDX #ABORT1 1531 0CAC BD 0259 JSR PSTRNG 1532 0CAF CE 0075 LDX #PASWRD 1533 0CB2 C6 03 LDAB #3 1534 0CB4 BD C006 SELFD1 JSR INCH 1535 0CB7 A1 00 CMPA 0,X 1536 0CB9 26 0E BNE SELFD2 1537 0CBB 08 INX 1538 0CBC 5A DECB 1539 0CBD 26 F5 BNE SELFD1 1540 0CBF CE 13F2 SELFDA LDX #DISINT 1541 0CC2 BD 0259 JSR PSTRNG 1542 0CC5 7C 006C INC GAMEND 1543 0CC8 39 RTS 1544 * 1545 0CC9 CE 1454 SELFD2 LDX #ABORT2 1546 0CCC BD 0259 JSR PSTRNG 1547 0CCF 39 RTS 1548 * 1549 * TELEPORT ROUTINE 1550 * 1551 0CD0 86 12 TELEPT LDAA #$12 1552 0CD2 91 3B CMPA TIMUSE+1 1553 0CD4 22 21 BHI TELEP2 1554 0CD6 7D 0070 TST TELFLG 1555 0CD9 26 23 BNE TELEP4 1556 0CDB BD 027B JSR RANDOM 1557 0CDE 81 B0 CMPA #$B0 POSS DAMAGED 1558 0CE0 23 03 BLS TELEP1 1559 0CE2 7C 0070 INC TELFLG 1560 0CE5 BD 027B TELEP1 JSR RANDOM MALFUNCTION? 1561 0CE8 81 80 CMPA #$80 1562 0CEA 22 17 BHI TELEP5 1563 0CEC 96 21 LDAA BASEX 1564 0CEE 97 47 STAA CURQUX 1565 0CF0 96 22 LDAA BASEY 1566 0CF2 97 48 STAA CURQUY 1567 0CF4 7E 0974 TELEPA JMP STCRSA 1568 * 1569 0CF7 CE 147E TELEP2 LDX #CANTUS 1570 0CFA BD 0259 TELEP3 JSR PSTRNG 1571 0CFD 39 RTS 1572 * 1573 0CFE CE 1782 TELEP4 LDX #DMGDST 1574 0D01 20 F7 BRA TELEP3 1575 * 1576 0D03 BD 027B TELEP5 JSR RANDOM 1577 0D06 84 07 ANDA #7 1578 0D08 97 47 STAA CURQUX 1579 0D0A BD 027B JSR RANDOM 1580 0D0D 84 07 ANDA #7 1581 0D0F 97 48 STAA CURQUY 1582 0D11 CE 14B1 LDX #SOMWHR 1583 0D14 BD 0259 JSR PSTRNG 1584 0D17 20 DB BRA TELEPA 1585 * 1586 * KLINGON ATTACK ROUTINE 1587 * 1588 0D19 7D 0026 ATTACK TST SECKLN ANY Ks? 1589 0D1C 26 01 BNE ATTAC1 1590 0D1E 39 RTS 1591 * 1592 0D1F BD 027B ATTAC1 JSR RANDOM MAY NOT ATTACK 1593 0D22 81 B0 CMPA #$B0 1594 0D24 22 2D BHI ATTAC2 1595 0D26 CE 0071 LDX #ATKENG 1596 0D29 D6 26 LDAB SECKLN 1597 0D2B 58 ASLB 1598 0D2C BD 0762 JSR CSCEXT 1599 0D2F DE 71 LDX ATKENG 1600 0D31 DF 31 STX TEMP 1601 0D33 7D 0057 TST SHIELD 1602 0D36 26 1C BNE ATTAC3 1603 0D38 CE 0058 LDX #ENERGY 1604 0D3B BD 0AD3 JSR BCDSUB 1605 0D3E BD 024F JSR PCRLF 1606 0D41 DE 71 LDX ATKENG 1607 0D43 DF 31 STX TEMP 1608 0D45 BD 0549 JSR OUTBCD 1609 0D48 CE 13A1 LDX #KATKDN 1610 0D4B BD 0248 JSR PDATA1 1611 0D4E C6 FA LDAB #$FA 1612 0D50 BD 0E04 JSR MANDAM 1613 0D53 39 ATTAC2 RTS 1614 * 1615 0D54 CE 003C ATTAC3 LDX #SHENGY 1616 0D57 BD 0AD3 JSR BCDSUB 1617 0D5A CE 13BD LDX #KATKUP 1618 0D5D BD 0259 JSR PSTRNG 1619 0D60 39 RTS 1620 * 1621 * END OF GAME CLEANUP ROUTINE 1622 * 1623 0D61 CE 1574 NRGOUT LDX #NMENGS 1624 0D64 BD 0259 NRGOU1 JSR PSTRNG 1625 0D67 20 0D BRA ENDGAM 1626 * 1627 0D69 CE 15AE NOMTIM LDX #NMTMST 1628 0D6C 20 F6 BRA NRGOU1 1629 * 1630 0D6E CE 15DF NOMKLN LDX #NMKLST 1631 0D71 BD 0259 JSR PSTRNG 1632 0D74 20 08 BRA ENDGM2 1633 * 1634 0D76 CE 161C ENDGAM LDX #FAILST 1635 0D79 BD 0259 JSR PSTRNG 1636 0D7C 20 06 BRA ENDGM3 1637 * 1638 0D7E CE 1657 ENDGM2 LDX #SUCCST 1639 0D81 BD 0259 JSR PSTRNG 1640 0D84 CE 1833 ENDGM3 LDX #PLAYAG 1641 0D87 BD 0259 JSR PSTRNG 1642 0D8A BD C006 JSR INCH 1643 0D8D 81 59 CMPA #'Y 1644 0D8F 27 03 BEQ ENDGM4 1645 0D91 7E C000 JMP CONTRL 1646 * 1647 0D94 7E 02A3 ENDGM4 JMP STRTRK 1648 * 1649 * CLEAR OUT CURRENT QUADRANT 1650 * 1651 0D97 DE 73 CLRCQU LDX QUDPTR 1652 0D99 A6 00 LDAA 0,X 1653 0D9B 90 5B SUBA HITKLS CLEAR Ks 1654 0D9D D6 5C LDAB HITSTR CLEAR Ss 1655 0D9F 58 ASLB 1656 0DA0 58 ASLB 1657 0DA1 58 ASLB 1658 0DA2 10 SBA 1659 0DA3 7D 005D TST HITBAS CLEAR B? 1660 0DA6 27 0B BEQ CLRCQ2 1661 0DA8 84 BF ANDA #$BF 1662 0DAA C6 0A LDAB #$A 1663 0DAC D7 21 STAB BASEX 1664 0DAE D7 22 STAB BASEY 1665 0DB0 7F 004E CLR CNDFLG 1666 0DB3 A7 00 CLRCQ2 STAA 0,X 1667 0DB5 4F CLRA 1668 0DB6 97 5B STAA HITKLS 1669 0DB8 97 5C STAA HITSTR 1670 0DBA 97 5D STAA HITBAS 1671 0DBC 39 RTS 1672 * 1673 * FIX DAMAGE ROUTINE 1674 * 1675 0DBD CE 0061 FIXDAM LDX #DAMENG 1676 0DC0 6D 00 FIXDM1 TST 0,X 1677 0DC2 27 02 BEQ FIXDM2 1678 0DC4 6A 00 DEC 0,X 1679 0DC6 08 FIXDM2 INX 1680 0DC7 8C 006A CPX #DAMENG+9 1681 0DCA 26 F4 BNE FIXDM1 1682 0DCC 39 RTS 1683 * 1684 * SUPERNOVA GENERATOR 1685 * 1686 0DCD BD 027B SUPNOV JSR RANDOM 1687 0DD0 84 07 ANDA #7 1688 0DD2 16 TAB 1689 0DD3 BD 027B JSR RANDOM 1690 0DD6 84 07 ANDA #7 1691 0DD8 D7 5A STAB TSAVE1 1692 0DDA CE 007C LDX #QUDMAP 1693 0DDD 7C 0020 INC STPSFL 1694 0DE0 BD 06E1 JSR STPSEX 1695 0DE3 E6 00 LDAB 0,X 1696 0DE5 C4 07 ANDB #7 CLEAR Ks 1697 0DE7 96 54 LDAA KLNGCT 1698 0DE9 10 SBA 1699 0DEA 97 54 STAA KLNGCT 1700 0DEC 86 80 LDAA #$80 1701 0DEE A7 00 STAA 0,X 1702 0DF0 CE 174A LDX #SUPSTR 1703 0DF3 BD 0259 JSR PSTRNG 1704 0DF6 96 5A LDAA TSAVE1 1705 0DF8 BD 0415 JSR FIXOUT 1706 0DFB BD 046A JSR OUTDSH 1707 0DFE 96 56 LDAA ASAVE 1708 0E00 BD 0415 JSR FIXOUT 1709 0E03 39 RTS 1710 * 1711 * GENERATE MAIN DAMAGE 1712 * 1713 0E04 CE 0061 MANDAM LDX #DAMENG 1714 0E07 BD 027B MANDM1 JSR RANDOM 1715 0E0A 11 CBA 1716 0E0B 23 0A BLS MANDM2 1717 0E0D BD 027B JSR RANDOM 1718 0E10 84 03 ANDA #3 1719 0E12 0D SEC 1720 0E13 A9 00 ADCA 0,X 1721 0E15 A7 00 STAA 0,X 1722 0E17 08 MANDM2 INX 1723 0E18 8C 006A CPX #DAMENG+9 1724 0E1B 26 EA BNE MANDM1 1725 0E1D 7D 0066 TST DAMSHL 1726 0E20 27 03 BEQ MANDM3 1727 0E22 7F 0057 CLR SHIELD 1728 0E25 7D 0069 MANDM3 TST DAMCOM 1729 0E28 27 06 BEQ MANDM4 1730 0E2A 7F 006D CLR AUTOSR 1731 0E2D 7F 006E CLR AUTOLR 1732 0E30 39 MANDM4 RTS 1733 * 1734 * REPORT DAMAGE HAS OCCURED 1735 * 1736 0E31 CE 1782 RPTDAM LDX #DMGDST 1737 0E34 BD 0259 JSR PSTRNG 1738 0E37 39 RPTDM8 RTS 1739 * 1740 * GENERATE A DAMAGE REPORT 1741 * 1742 0E38 CE 17BD DAMRPT LDX #DMRPST 1743 0E3B BD 0259 JSR PSTRNG 1744 0E3E CE 17D0 LDX #DEVSTR 1745 0E41 DF 33 STX TEMP2 1746 0E43 CE 0061 LDX #DAMENG 1747 0E46 6D 00 DMRPT2 TST 0,X 1748 0E48 26 15 BNE DMRPT3 1749 0E4A DF 5E BMPX4 STX TEMP3 1750 0E4C DE 33 LDX TEMP2 1751 0E4E 08 INX 1752 0E4F 08 INX 1753 0E50 08 INX 1754 0E51 08 INX 1755 0E52 08 INX 1756 0E53 08 INX 1757 0E54 08 INX 1758 0E55 08 INX 1759 0E56 08 INX 1760 0E57 08 INX 1761 0E58 08 INX 1762 0E59 DF 33 STX TEMP2 1763 0E5B DE 5E LDX TEMP3 1764 0E5D 20 19 BRA DMRPT4 1765 * 1766 0E5F DF 5E DMRPT3 STX TEMP3 1767 0E61 DE 33 LDX TEMP2 1768 0E63 BD 0259 JSR PSTRNG 1769 0E66 08 INX 1770 0E67 DF 33 STX TEMP2 1771 0E69 DE 5E LDX TEMP3 1772 0E6B C6 03 LDAB #3 1773 0E6D BD 0276 OUTS4 JSR OUTS 1774 0E70 5A DECB 1775 0E71 26 FA BNE OUTS4 1776 0E73 A6 00 LDAA 0,X 1777 0E75 BD 042F JSR OUTK0 1778 0E78 08 DMRPT4 INX 1779 0E79 8C 006A CPX #DAMENG+9 1780 0E7C 26 C8 BNE DMRPT2 1781 0E7E 20 B7 BRA RPTDM8 1782 * 1783 * COMPUTER CODE 1784 * 1785 0E80 7D 0069 COMPTR TST DAMCOM 1786 0E83 27 04 BEQ CMPTR1 1787 0E85 BD 0E31 JSR RPTDAM 1788 0E88 39 RTS 1789 * 1790 0E89 CE 1A7E CMPTR1 LDX #CPRMPT 1791 0E8C BD 0259 JSR PSTRNG 1792 0E8F BD C006 JSR INCH 1793 0E92 81 54 CMPA #'T 1794 0E94 27 60 BEQ TSPRED 1795 0E96 81 4D CMPA #'M 1796 0E98 27 2B BEQ CMPMAP 1797 0E9A 81 53 CMPA #'S 1798 0E9C 26 EB BNE CMPTR1 1799 0E9E CE 1B77 LDX #SRMODE 1800 0EA1 BD 0259 JSR PSTRNG 1801 0EA4 7F 006D CLR AUTOSR 1802 0EA7 BD C006 JSR INCH 1803 0EAA 81 59 CMPA #'Y 1804 0EAC 26 03 BNE AUTO2 1805 0EAE 7C 006D INC AUTOSR 1806 0EB1 CE 1BA5 AUTO2 LDX #LRMODE 1807 0EB4 BD 0259 JSR PSTRNG 1808 0EB7 7F 006E CLR AUTOLR 1809 0EBA BD C006 JSR INCH 1810 0EBD 81 59 CMPA #'Y 1811 0EBF 26 03 BNE AUTOEX 1812 0EC1 7C 006E INC AUTOLR 1813 0EC4 39 AUTOEX RTS 1814 * 1815 0EC5 CE 1B09 CMPMAP LDX #CMPHST 1816 0EC8 BD 0259 JSR PSTRNG 1817 0ECB CE 00BC LDX #COMMAP 1818 0ECE BD 024F CMPMP1 JSR PCRLF 1819 0ED1 86 08 LDAA #8 1820 0ED3 97 30 STAA COUNT 1821 0ED5 A6 00 CMPMP2 LDAA 0,X 1822 0ED7 81 FF CMPA #$FF 1823 0ED9 26 0D BNE CMPMP3 1824 0EDB DF 5E STX TEMP3 1825 0EDD CE 1B46 LDX #NOSCAN 1826 0EE0 BD 0248 JSR PDATA1 1827 0EE3 DE 5E LDX TEMP3 1828 0EE5 08 INX 1829 0EE6 20 03 BRA CMPMP4 1830 * 1831 0EE8 BD 0B7F CMPMP3 JSR OUTQIN 1832 0EEB 7A 0030 CMPMP4 DEC COUNT 1833 0EEE 26 E5 BNE CMPMP2 1834 0EF0 8C 00FC CPX #COMMAP+64 1835 0EF3 26 D9 BNE CMPMP1 1836 0EF5 39 RTS 1837 * 1838 0EF6 7D 0065 TSPRED TST DAMPHT 1839 0EF9 27 04 BEQ TS2 1840 0EFB BD 0E31 JSR RPTDAM 1841 0EFE 39 RTS 1842 * 1843 0EFF 7F 006B TS2 CLR PTZFLG 1844 0F02 CE 1B4C LDX #HWMANY 1845 0F05 BD 0259 JSR PSTRNG 1846 0F08 BD C006 JSR INCH 1847 0F0B 81 30 CMPA #'0 1848 0F0D 25 F0 BLO TS2 1849 0F0F 27 15 BEQ TSEX 1850 0F11 81 39 CMPA #'9 1851 0F13 2E EA BGT TS2 1852 0F15 84 0F ANDA #$0F 1853 0F17 97 6A STAA PCOUNT 1854 0F19 BD 0817 TS3 JSR PTRNDM 1855 0F1C 7A 006A DEC PCOUNT 1856 0F1F 27 05 BEQ TSEX 1857 0F21 7D 006B TST PTZFLG 1858 0F24 27 F3 BEQ TS3 1859 0F26 39 TSEX RTS 1860 * 1861 * TRACTOR BEAM ROUTINE 1862 * 1863 0F27 7D 0079 TRCTBM TST SHUTCR 1864 0F2A 26 14 BNE NPCKUP 1865 0F2C 96 7A LDAA SHUTLX 1866 0F2E 91 47 CMPA CURQUX 1867 0F30 26 0E BNE NPCKUP 1868 0F32 96 7B LDAA SHUTLY 1869 0F34 91 48 CMPA CURQUY 1870 0F36 26 08 BNE NPCKUP 1871 0F38 CE 1859 LDX #SCONBD 1872 0F3B 7C 0079 INC SHUTCR 1873 0F3E 20 03 BRA TRCTEX 1874 * 1875 0F40 CE 1885 NPCKUP LDX #NOPICK 1876 0F43 BD 0259 TRCTEX JSR PSTRNG 1877 0F46 39 RTS 1878 * 1879 * TEXT STRINGS 1880 * 1881 0F47 0A TITLE FCB $A 1882 0F48 2D 20 2D 20 FCC /- - - - S T A R T R E K - - - - VERSION 1.2/ 0F4C 2D 20 2D 20 0F50 20 20 53 20 0F54 54 20 41 20 0F58 52 20 20 20 0F5C 54 20 52 20 0F60 45 20 4B 20 0F64 20 20 2D 20 0F68 2D 20 2D 20 0F6C 2D 20 20 20 0F70 20 20 20 56 0F74 45 52 53 49 0F78 4F 4E 20 31 0F7C 2E 32 1883 0F7E 04 FCB 4 1884 0F7F 53 48 4F 52 SHTLNG FCC /SHORT OR LONG GAME? (S-L): / 0F83 54 20 4F 52 0F87 20 4C 4F 4E 0F8B 47 20 47 41 0F8F 4D 45 3F 20 0F93 28 53 2D 4C 0F97 29 3A 20 1885 0F9A 04 FCB 4 1886 0F9B 20 55 50 UPSCAS FCC / UP/ 1887 0F9E 04 FCB 4 1888 0F9F 53 54 41 52 BASINF FCC /STARBASE IN QUADRANT: / 0FA3 42 41 53 45 0FA7 20 49 4E 20 0FAB 51 55 41 44 0FAF 52 41 4E 54 0FB3 3A 20 1889 0FB5 04 FCB 4 1890 0FB6 44 4F 43 4B DOCKED FCC /DOCKED/ 0FBA 45 44 1891 0FBC 04 FCB 4 1892 0FBD 20 44 4F 57 DNSCAS FCC / DOWN/ 0FC1 4E 1893 0FC2 04 FCB 4 1894 0FC3 41 4C 4C 20 PTEMST FCC /ALL TORPEDOS FIRED!/ 0FC7 54 4F 52 50 0FCB 45 44 4F 53 0FCF 20 46 49 52 0FD3 45 44 21 1895 0FD6 04 FCB 4 1896 0FD7 0A INTRO1 FCB $A 1897 0FD8 49 54 20 49 FCC /IT IS STARDATE / 0FDC 53 20 53 54 0FE0 41 52 44 41 0FE4 54 45 20 1898 0FE7 04 FCB 4 1899 0FE8 54 48 45 20 INTRO2 FCC /THE KLINGONS NUMBER / 0FEC 4B 4C 49 4E 0FF0 47 4F 4E 53 0FF4 20 4E 55 4D 0FF8 42 45 52 20 1900 0FFC 04 FCB 4 1901 0FFD 59 4F 55 52 INTRO3 FCC /YOUR TIME LIMIT (IN STARDATES) = / 1001 20 54 49 4D 1005 45 20 4C 49 1009 4D 49 54 20 100D 28 49 4E 20 1011 53 54 41 52 1015 44 41 54 45 1019 53 29 20 3D 101D 20 1902 101E 04 FCB 4 1903 101F 59 4F 55 20 INTRO4 FCC /YOU ARE IN QUADRANT / 1023 41 52 45 20 1027 49 4E 20 51 102B 55 41 44 52 102F 41 4E 54 20 1904 1033 04 FCB 4 1905 1034 41 4E 44 20 INTRO6 FCC /AND SECTOR / 1038 53 45 43 54 103C 4F 52 20 1906 103F 04 FCB 4 1907 1040 0A COMST FCB $A 1908 1041 43 4F 4D 4D FCC /COMMAND? / 1045 41 4E 44 3F 1049 20 1909 104A 04 FCB 4 1910 104B 54 48 45 20 DWNST FCC /THE SHIELDS ARE DOWN, SIR/ 104F 53 48 49 45 1053 4C 44 53 20 1057 41 52 45 20 105B 44 4F 57 4E 105F 2C 20 53 49 1063 52 1911 1064 04 FCB 4 1912 1065 54 48 45 20 UPSTR FCC /THE SHIELDS ARE UP, SIR/ 1069 53 48 49 45 106D 4C 44 53 20 1071 41 52 45 20 1075 55 50 2C 20 1079 53 49 52 1913 107C 04 FCB 4 1914 107D 57 48 41 54 CRSSTR FCC /WHAT COURSE, SIR? (0-7): / 1081 20 43 4F 55 1085 52 53 45 2C 1089 20 53 49 52 108D 3F 20 28 30 1091 2D 37 29 3A 1095 20 1915 1096 04 FCB 4 1916 1097 57 48 41 54 WRPSTR FCC /WHAT WARP FACTOR, SIR: / 109B 20 57 41 52 109F 50 20 46 41 10A3 43 54 4F 52 10A7 2C 20 53 49 10AB 52 3A 20 1917 10AE 04 FCB 4 1918 10AF 54 48 45 20 BLOKST FCC /THE ENTERPRISE IS BLOCKED AT SECTOR / 10B3 45 4E 54 45 10B7 52 50 52 49 10BB 53 45 20 49 10BF 53 20 42 4C 10C3 4F 43 4B 45 10C7 44 20 41 54 10CB 20 53 45 43 10CF 54 4F 52 20 1919 10D3 04 FCB 4 1920 10D4 57 45 27 56 KRMSTR FCC /WE'VE RAMMED A KLINGON AT SECTOR / 10D8 45 20 52 41 10DC 4D 4D 45 44 10E0 20 41 20 4B 10E4 4C 49 4E 47 10E8 4F 4E 20 41 10EC 54 20 53 45 10F0 43 54 4F 52 10F4 20 1921 10F5 04 FCB 4 1922 10F6 59 4F 55 27 GLBNDS FCC /YOU'VE REACHED THE EDGE OF THE GALAXY AND UNKNOWN/ 10FA 56 45 20 52 10FE 45 41 43 48 1102 45 44 20 54 1106 48 45 20 45 110A 44 47 45 20 110E 4F 46 20 54 1112 48 45 20 47 1116 41 4C 41 58 111A 59 20 41 4E 111E 44 20 55 4E 1122 4B 4E 4F 57 1126 4E 1923 1127 0D 0A FCB $D,$A 1924 1129 46 4F 52 43 FCC /FORCES HAVE STOPPED THE ENTERPRISE!/ 112D 45 53 20 48 1131 41 56 45 20 1135 53 54 4F 50 1139 50 45 44 20 113D 54 48 45 20 1141 45 4E 54 45 1145 52 50 52 49 1149 53 45 21 1925 114C 04 FCB 4 1926 114D 59 4F 55 52 PHITST FCC /YOUR TORPEDO HAS HIT A / 1151 20 54 4F 52 1155 50 45 44 4F 1159 20 48 41 53 115D 20 48 49 54 1161 20 41 20 1927 1164 04 FCB 4 1928 1165 54 48 45 20 PNOENG FCC /THE TORPEDO HAS RUN OUT OF ENERGY/ 1169 54 4F 52 50 116D 45 44 4F 20 1171 48 41 53 20 1175 52 55 4E 20 1179 4F 55 54 20 117D 4F 46 20 45 1181 4E 45 52 47 1185 59 1929 1186 04 FCB 4 1930 1187 20 20 53 54 SDATE FCC / STARDATE: / 118B 41 52 44 41 118F 54 45 3A 20 1931 1193 04 FCB 4 1932 1194 20 20 43 4F CNDTNS FCC / CONDITION: / 1198 4E 44 49 54 119C 49 4F 4E 3A 11A0 20 1933 11A1 04 FCB 4 1934 11A2 59 45 4C 4C YELLOW FCC /YELLOW!/ 11A6 4F 57 21 1935 11A9 04 FCB 4 1936 11AA 52 45 44 21 RED FCC /RED!!!/ 11AE 21 21 1937 11B0 04 FCB 4 1938 11B1 47 52 45 45 GREEN FCC /GREEN/ 11B5 4E 1939 11B6 04 FCB 4 1940 11B7 20 20 51 55 QUADP FCC / QUADRANT: / 11BB 41 44 52 41 11BF 4E 54 3A 20 1941 11C3 04 FCB 4 1942 11C4 20 20 53 45 SECP FCC / SECTOR: / 11C8 43 54 4F 52 11CC 3A 20 20 20 1943 11D0 04 FCB 4 1944 11D1 20 20 45 4E ENGSTR FCC / ENERGY: / 11D5 45 52 47 59 11D9 3A 20 1945 11DB 04 FCB 4 1946 11DC 20 20 4B 4C KLSTR FCC / KLINGONS: / 11E0 49 4E 47 4F 11E4 4E 53 3A 20 1947 11E8 04 FCB 4 1948 11E9 20 20 53 48 SHSTR FCC / SHIELDS: / 11ED 49 45 4C 44 11F1 53 3A 20 1949 11F4 04 FCB 4 1950 11F5 20 20 54 4F TRPSTR FCC / TORPEDOS: / 11F9 52 50 45 44 11FD 4F 53 3A 20 1951 1201 04 FCB 4 1952 1202 53 43 41 4E LRSCST FCC /SCAN FOR QUADRANT / 1206 20 46 4F 52 120A 20 51 55 41 120E 44 52 41 4E 1212 54 20 1953 1214 04 FCB 4 1954 1215 59 4F 55 20 MLSHLD FCC /YOU MUST FIRST LOWER SHIELDS!/ 1219 4D 55 53 54 121D 20 46 49 52 1221 53 54 20 4C 1225 4F 57 45 52 1229 20 53 48 49 122D 45 4C 44 53 1231 21 1955 1232 04 FCB 4 1956 1233 54 48 45 20 ENAVLB FCC /THE AVAILABLE ENERGY IS: / 1237 41 56 41 49 123B 4C 41 42 4C 123F 45 20 45 4E 1243 45 52 47 59 1247 20 49 53 3A 124B 20 1957 124C 04 FCB 4 1958 124D 48 4F 57 20 FIRENG FCC /HOW MUCH ENERGY SHALL I USE: / 1251 4D 55 43 48 1255 20 45 4E 45 1259 52 47 59 20 125D 53 48 41 4C 1261 4C 20 49 20 1265 55 53 45 3A 1269 20 1959 126A 04 FCB 4 1960 126B 59 4F 55 20 TOMUCH FCC /YOU DON'T HAVE ENOUGH ENERGY!/ 126F 44 4F 4E 27 1273 54 20 48 41 1277 56 45 20 45 127B 4E 4F 55 47 127F 48 20 45 4E 1283 45 52 47 59 1287 21 1961 1288 04 FCB 4 1962 1289 50 48 41 53 PHAMIS FCC /PHASORS HAVE MISFIRED!/ 128D 4F 52 53 20 1291 48 41 56 45 1295 20 4D 49 53 1299 46 49 52 45 129D 44 21 1963 129F 04 FCB 4 1964 12A0 41 4C 4C 20 ALKILL FCC /ALL KLINGONS IN THIS SECTOR HAVE BEEN DESTROYED!/ 12A4 4B 4C 49 4E 12A8 47 4F 4E 53 12AC 20 49 4E 20 12B0 54 48 49 53 12B4 20 53 45 43 12B8 54 4F 52 20 12BC 48 41 56 45 12C0 20 42 45 45 12C4 4E 20 44 45 12C8 53 54 52 4F 12CC 59 45 44 21 1965 12D0 04 FCB 4 1966 12D1 54 48 45 20 KHTADM FCC /THE ENEMY HAS BEEN DAMAGED/ 12D5 45 4E 45 4D 12D9 59 20 48 41 12DD 53 20 42 45 12E1 45 4E 20 44 12E5 41 4D 41 47 12E9 45 44 1967 12EB 04 FCB 4 1968 12EC 20 49 4E 56 ERR FCC / INVALID ENTRY! / 12F0 41 4C 49 44 12F4 20 45 4E 54 12F8 52 59 21 20 1969 12FC 04 FCB 4 1970 12FD 53 54 41 52 STARST FCC /STAR, BILLIONS HAVE DIED/ 1301 2C 20 42 49 1305 4C 4C 49 4F 1309 4E 53 20 48 130D 41 56 45 20 1311 44 49 45 44 1971 1315 04 FCB 4 1972 1316 42 41 53 45 BASEST FCC /BASE, YOUR ONLY SOURCE OF SUPPLY IS NOW GONE!/ 131A 2C 20 59 4F 131E 55 52 20 4F 1322 4E 4C 59 20 1326 53 4F 55 52 132A 43 45 20 4F 132E 46 20 53 55 1332 50 50 4C 59 1336 20 49 53 20 133A 4E 4F 57 20 133E 47 4F 4E 45 1342 21 1973 1343 04 FCB 4 1974 1344 4B 4C 49 4E KLGSTR FCC /KLINGON, CONGRATULATIONS/ 1348 47 4F 4E 2C 134C 20 43 4F 4E 1350 47 52 41 54 1354 55 4C 41 54 1358 49 4F 4E 53 1975 135C 04 FCB 4 1976 135D 45 4E 54 45 INTRO0 FCC /ENTER YOUR 3 LETTER ABORT PASSWORD: / 1361 52 20 59 4F 1365 55 52 20 33 1369 20 4C 45 54 136D 54 45 52 20 1371 41 42 4F 52 1375 54 20 50 41 1379 53 53 57 4F 137D 52 44 3A 20 1977 1381 04 FCB 4 1978 1382 54 48 45 20 STILFT FCC /THE REMAINING KLINGONS NUMBER / 1386 52 45 4D 41 138A 49 4E 49 4E 138E 47 20 4B 4C 1392 49 4E 47 4F 1396 4E 53 20 4E 139A 55 4D 42 45 139E 52 20 1979 13A0 04 FCB 4 1980 13A1 20 55 4E 49 KATKDN FCC / UNIT HIT ON THE ENTERPRISE/ 13A5 54 20 48 49 13A9 54 20 4F 4E 13AD 20 54 48 45 13B1 20 45 4E 54 13B5 45 52 50 52 13B9 49 53 45 1981 13BC 04 FCB 4 1982 13BD 4B 4C 49 4E KATKUP FCC /KLINGONS HAVE ATTACKED, BUT THE SHIELDS ARE HOLDING!/ 13C1 47 4F 4E 53 13C5 20 48 41 56 13C9 45 20 41 54 13CD 54 41 43 4B 13D1 45 44 2C 20 13D5 42 55 54 20 13D9 54 48 45 20 13DD 53 48 49 45 13E1 4C 44 53 20 13E5 41 52 45 20 13E9 48 4F 4C 44 13ED 49 4E 47 21 1983 13F1 04 FCB 4 1984 13F2 45 4E 54 45 DISINT FCC /ENTERPRISE HAS BEEN DESTROYED - ALL HANDS LOST!/ 13F6 52 50 52 49 13FA 53 45 20 48 13FE 41 53 20 42 1402 45 45 4E 20 1406 44 45 53 54 140A 52 4F 59 45 140E 44 20 2D 20 1412 41 4C 4C 20 1416 48 41 4E 44 141A 53 20 4C 4F 141E 53 54 21 1985 1421 04 FCB 4 1986 1422 41 42 4F 52 ABORT1 FCC /ABORT SEQUENCE STARTED - WHAT WAS YOUR PASSWORD? / 1426 54 20 53 45 142A 51 55 45 4E 142E 43 45 20 53 1432 54 41 52 54 1436 45 44 20 2D 143A 20 57 48 41 143E 54 20 57 41 1442 53 20 59 4F 1446 55 52 20 50 144A 41 53 53 57 144E 4F 52 44 3F 1452 20 1987 1453 04 FCB 4 1988 1454 41 42 4F 52 ABORT2 FCC /ABORT SEQUENCE ABANDONED - PASSWORD ERROR/ 1458 54 20 53 45 145C 51 55 45 4E 1460 43 45 20 41 1464 42 41 4E 44 1468 4F 4E 45 44 146C 20 2D 20 50 1470 41 53 53 57 1474 4F 52 44 20 1478 45 52 52 4F 147C 52 1989 147D 04 FCB 4 1990 147E 54 48 45 20 CANTUS FCC /THE TELEPORTER REPAIRS ARE NOT YET FINISHED, SORRY/ 1482 54 45 4C 45 1486 50 4F 52 54 148A 45 52 20 52 148E 45 50 41 49 1492 52 53 20 41 1496 52 45 20 4E 149A 4F 54 20 59 149E 45 54 20 46 14A2 49 4E 49 53 14A6 48 45 44 2C 14AA 20 53 4F 52 14AE 52 59 1991 14B0 04 FCB 4 1992 14B1 54 45 4C 45 SOMWHR FCC /TELEPORTER MALFUNCTION - BASE NOT REACHED/ 14B5 50 4F 52 54 14B9 45 52 20 4D 14BD 41 4C 46 55 14C1 4E 43 54 49 14C5 4F 4E 20 2D 14C9 20 42 41 53 14CD 45 20 4E 4F 14D1 54 20 52 45 14D5 41 43 48 45 14D9 44 1993 14DA 04 FCB 4 1994 14DB 07 SPSTRM FCB 7 1995 14DC 57 45 27 56 FCC /WE'VE HIT A SPACE STORM - SHIELDS DAMAGED!/ 14E0 45 20 48 49 14E4 54 20 41 20 14E8 53 50 41 43 14EC 45 20 53 54 14F0 4F 52 4D 20 14F4 2D 20 53 48 14F8 49 45 4C 44 14FC 53 20 44 41 1500 4D 41 47 45 1504 44 21 1996 1506 04 FCB 4 1997 1507 54 48 45 20 GALDUM FCC /THE 3RD ATTEMPT TO LEAVE THE GALAXY HAS CAUSED AN/ 150B 33 52 44 20 150F 41 54 54 45 1513 4D 50 54 20 1517 54 4F 20 4C 151B 45 41 56 45 151F 20 54 48 45 1523 20 47 41 4C 1527 41 58 59 20 152B 48 41 53 20 152F 43 41 55 53 1533 45 44 20 41 1537 4E 1998 1538 0D 0A FCB $D,$A 1999 153A 41 55 54 4F FCC /AUTOMATIC SELF-DESTRUCT SEQUENCE. IT CANNOT BE STOPPED!!!/ 153E 4D 41 54 49 1542 43 20 53 45 1546 4C 46 2D 44 154A 45 53 54 52 154E 55 43 54 20 1552 53 45 51 55 1556 45 4E 43 45 155A 2E 20 49 54 155E 20 43 41 4E 1562 4E 4F 54 20 1566 42 45 20 53 156A 54 4F 50 50 156E 45 44 21 21 1572 21 2000 1573 04 FCB 4 2001 1574 07 NMENGS FCB 7 2002 1575 54 48 45 20 FCC /THE ENTERPRISE IS OUT OF ENERGY. IT CAN NO LONGER EXIST./ 1579 45 4E 54 45 157D 52 50 52 49 1581 53 45 20 49 1585 53 20 4F 55 1589 54 20 4F 46 158D 20 45 4E 45 1591 52 47 59 2E 1595 20 49 54 20 1599 43 41 4E 20 159D 4E 4F 20 4C 15A1 4F 4E 47 45 15A5 52 20 45 58 15A9 49 53 54 2E 2003 15AD 04 FCB 4 2004 15AE 07 NMTMST FCB 7 2005 15AF 59 4F 55 20 FCC /YOU HAVE RUN OUT OF STARDATES FOR THIS MISSION./ 15B3 48 41 56 45 15B7 20 52 55 4E 15BB 20 4F 55 54 15BF 20 4F 46 20 15C3 53 54 41 52 15C7 44 41 54 45 15CB 53 20 46 4F 15CF 52 20 54 48 15D3 49 53 20 4D 15D7 49 53 53 49 15DB 4F 4E 2E 2006 15DE 04 FCB 4 2007 15DF 0A 07 NMKLST FCB $A,7 2008 15E1 43 4F 4E 47 FCC /CONGRATULATIONS!/ 15E5 52 41 54 55 15E9 4C 41 54 49 15ED 4F 4E 53 21 2009 15F1 0A 0D 00 00 FCB $A,$D,0,0,0,0 15F5 00 00 2010 15F7 59 4F 55 20 FCC /YOU HAVE DESTROYED ALL THE KLINGONS./ 15FB 48 41 56 45 15FF 20 44 45 53 1603 54 52 4F 59 1607 45 44 20 41 160B 4C 4C 20 54 160F 48 45 20 4B 1613 4C 49 4E 47 1617 4F 4E 53 2E 2011 161B 04 FCB 4 2012 161C 59 4F 55 52 FAILST FCC /YOUR MISSION WAS A FAILURE, THE FEDERATION MUST SURRENDER./ 1620 20 4D 49 53 1624 53 49 4F 4E 1628 20 57 41 53 162C 20 41 20 46 1630 41 49 4C 55 1634 52 45 2C 20 1638 54 48 45 20 163C 46 45 44 45 1640 52 41 54 49 1644 4F 4E 20 4D 1648 55 53 54 20 164C 53 55 52 52 1650 45 4E 44 45 1654 52 2E 2013 1656 04 FCB 4 2014 1657 54 48 45 20 SUCCST FCC /THE FEDERATION HAS BEEN SAVED BY YOUR GALLANT ACTIONS./ 165B 46 45 44 45 165F 52 41 54 49 1663 4F 4E 20 48 1667 41 53 20 42 166B 45 45 4E 20 166F 53 41 56 45 1673 44 20 42 59 1677 20 59 4F 55 167B 52 20 47 41 167F 4C 4C 41 4E 1683 54 20 41 43 1687 54 49 4F 4E 168B 53 2E 2015 168D 0D 0A FCB $D,$A 2016 168F 59 4F 55 20 FCC /YOU ARE AWARDED THE STARFLEET MEDAL OF HONOR./ 1693 41 52 45 20 1697 41 57 41 52 169B 44 45 44 20 169F 54 48 45 20 16A3 53 54 41 52 16A7 46 4C 45 45 16AB 54 20 4D 45 16AF 44 41 4C 20 16B3 4F 46 20 48 16B7 4F 4E 4F 52 16BB 2E 2017 16BC 04 FCB 4 2018 16BD 4D 45 53 53 SUPDES FCC /MESSAGE FROM STARFLEET COMMAND:/ 16C1 41 47 45 20 16C5 46 52 4F 4D 16C9 20 53 54 41 16CD 52 46 4C 45 16D1 45 54 20 43 16D5 4F 4D 4D 41 16D9 4E 44 3A 2019 16DC 0D 0A FCB $D,$A 2020 16DE 20 20 20 20 FCC / THE ENTERPRISE HAS JUST BEEN DESTROYED BY A/ 16E2 20 54 48 45 16E6 20 45 4E 54 16EA 45 52 50 52 16EE 49 53 45 20 16F2 48 41 53 20 16F6 4A 55 53 54 16FA 20 42 45 45 16FE 4E 20 44 45 1702 53 54 52 4F 1706 59 45 44 20 170A 42 59 20 41 2021 170E 0D 0A FCB $D,$A 2022 1710 20 20 20 20 FCC / SUPERNOVA IN IT'S CURRENT QUADRANT - ALL HANDS LOST./ 1714 20 53 55 50 1718 45 52 4E 4F 171C 56 41 20 49 1720 4E 20 49 54 1724 27 53 20 43 1728 55 52 52 45 172C 4E 54 20 51 1730 55 41 44 52 1734 41 4E 54 20 1738 2D 20 41 4C 173C 4C 20 48 41 1740 4E 44 53 20 1744 4C 4F 53 54 1748 2E 2023 1749 04 FCB 4 2024 174A 07 SUPSTR FCB 7 2025 174B 53 45 4E 53 FCC /SENSORS REPORT A SUPER NOVA IN QUADRANT / 174F 4F 52 53 20 1753 52 45 50 4F 1757 52 54 20 41 175B 20 53 55 50 175F 45 52 20 4E 1763 4F 56 41 20 1767 49 4E 20 51 176B 55 41 44 52 176F 41 4E 54 20 2026 1773 04 FCB 4 2027 1774 42 41 44 4C HEVDAM FCC /BADLY DAMAGED/ 1778 59 20 44 41 177C 4D 41 47 45 1780 44 2028 1781 04 FCB 4 2029 1782 44 45 56 49 DMGDST FCC /DEVICE IS DAMAGED AND UNUSABLE. REPAIRS HAVE BEEN STARTED/ 1786 43 45 20 49 178A 53 20 44 41 178E 4D 41 47 45 1792 44 20 41 4E 1796 44 20 55 4E 179A 55 53 41 42 179E 4C 45 2E 20 17A2 20 52 45 50 17A6 41 49 52 53 17AA 20 48 41 56 17AE 45 20 42 45 17B2 45 4E 20 53 17B6 54 41 52 54 17BA 45 44 2030 17BC 04 FCB 4 2031 17BD 0A DMRPST FCB $A 2032 17BE 44 45 56 49 FCC /DEVICE STATUS/ 17C2 43 45 20 20 17C6 20 20 20 53 17CA 54 41 54 55 17CE 53 2033 17CF 04 FCB 4 2034 17D0 45 4E 47 49 DEVSTR FCC /ENGINES / 17D4 4E 45 53 20 17D8 20 20 2035 17DA 04 FCB 4 2036 17DB 53 48 4F 52 FCC /SHORT SCAN/ 17DF 54 20 53 43 17E3 41 4E 2037 17E5 04 FCB 4 2038 17E6 4C 4F 4E 47 FCC /LONG SCAN / 17EA 20 53 43 41 17EE 4E 20 2039 17F0 04 FCB 4 2040 17F1 50 48 41 53 FCC /PHASORS / 17F5 4F 52 53 20 17F9 20 20 2041 17FB 04 FCB 4 2042 17FC 54 4F 52 50 FCC /TORPEDOS / 1800 45 44 4F 53 1804 20 20 2043 1806 04 FCB 4 2044 1807 53 48 49 45 FCC /SHIELDS / 180B 4C 44 53 20 180F 20 20 2045 1811 04 FCB 4 2046 1812 54 45 4C 45 FCC /TELEPORTER/ 1816 50 4F 52 54 181A 45 52 2047 181C 04 FCB 4 2048 181D 54 52 41 43 FCC /TRACTOR BM/ 1821 54 4F 52 20 1825 42 4D 2049 1827 04 FCB 4 2050 1828 43 4F 4D 50 FCC /COMPUTER / 182C 55 54 45 52 1830 20 20 2051 1832 04 FCB 4 2052 1833 57 4F 55 4C PLAYAG FCC /WOULD YOU LIKE TO PLAY AGAIN? (Y-N): / 1837 44 20 59 4F 183B 55 20 4C 49 183F 4B 45 20 54 1843 4F 20 50 4C 1847 41 59 20 41 184B 47 41 49 4E 184F 3F 20 28 59 1853 2D 4E 29 3A 1857 20 2053 1858 04 FCB 4 2054 1859 54 48 45 20 SCONBD FCC /THE SHUTTLE CRAFT IS REPORTED ON BOARD, SIR/ 185D 53 48 55 54 1861 54 4C 45 20 1865 43 52 41 46 1869 54 20 49 53 186D 20 52 45 50 1871 4F 52 54 45 1875 44 20 4F 4E 1879 20 42 4F 41 187D 52 44 2C 20 1881 53 49 52 2055 1884 04 FCB 4 2056 1885 54 48 45 20 NOPICK FCC /THE SENSORS SHOW NOTHING TO BE PICKED UP, SIR/ 1889 53 45 4E 53 188D 4F 52 53 20 1891 53 48 4F 57 1895 20 4E 4F 54 1899 48 49 4E 47 189D 20 54 4F 20 18A1 42 45 20 50 18A5 49 43 4B 45 18A9 44 20 55 50 18AD 2C 20 53 49 18B1 52 2057 18B2 04 FCB 4 2058 18B3 54 48 45 20 EXPCMD FCC /THE COMMANDS ARE AS FOLLOWS:/ 18B7 43 4F 4D 4D 18BB 41 4E 44 53 18BF 20 41 52 45 18C3 20 41 53 20 18C7 46 4F 4C 4C 18CB 4F 57 53 3A 2059 18CF 0D 0A 0A FCB $D,$A,$A 2060 18D2 43 4D 4E 44 FCC /CMND ACTION/ 18D6 20 20 20 41 18DA 43 54 49 4F 18DE 4E 2061 18DF 0D 0A FCB $D,$A 2062 18E1 20 45 4E 20 FCC / EN ACTIVATE WARP ENGINGS/ 18E5 20 20 20 41 18E9 43 54 49 56 18ED 41 54 45 20 18F1 57 41 52 50 18F5 20 45 4E 47 18F9 49 4E 47 53 2063 18FD 0D 0A FCB $D,$A 2064 18FF 20 53 52 20 FCC / SR SHORT RANGE SCAN/ 1903 20 20 20 53 1907 48 4F 52 54 190B 20 52 41 4E 190F 47 45 20 53 1913 43 41 4E 2065 1916 0D 0A FCB $D,$A 2066 1918 20 4C 52 20 FCC / LR LONG RANGE SCAN/ 191C 20 20 20 4C 1920 4F 4E 47 20 1924 52 41 4E 47 1928 45 20 53 43 192C 41 4E 2067 192E 0D 0A FCB $D,$A 2068 1930 20 50 48 20 FCC / PH FIRE PHASOR BEAMS/ 1934 20 20 20 46 1938 49 52 45 20 193C 50 48 41 53 1940 4F 52 20 42 1944 45 41 4D 53 2069 1948 0D 0A FCB $D,$A 2070 194A 20 50 54 20 FCC / PT FIRE PHOTON TORPEDOS/ 194E 20 20 20 46 1952 49 52 45 20 1956 50 48 4F 54 195A 4F 4E 20 54 195E 4F 52 50 45 1962 44 4F 53 2071 1965 0D 0A FCB $D,$A 2072 1967 20 44 52 20 FCC / DR DAMAGE REPORT/ 196B 20 20 20 44 196F 41 4D 41 47 1973 45 20 52 45 1977 50 4F 52 54 2073 197B 0D 0A FCB $D,$A 2074 197D 20 53 48 20 FCC / SH SHIELDS UP OR DOWN/ 1981 20 20 20 53 1985 48 49 45 4C 1989 44 53 20 55 198D 50 20 4F 52 1991 20 44 4F 57 1995 4E 2075 1996 0D 0A FCB $D,$A 2076 1998 20 54 50 20 FCC / TP TELEPORT TO BASE QUADRANT/ 199C 20 20 20 54 19A0 45 4C 45 50 19A4 4F 52 54 20 19A8 54 4F 20 42 19AC 41 53 45 20 19B0 51 55 41 44 19B4 52 41 4E 54 2077 19B8 0D 0A FCB $D,$A 2078 19BA 20 53 44 20 FCC / SD SELF DESTRUCT SEQUENCE/ 19BE 20 20 20 53 19C2 45 4C 46 20 19C6 44 45 53 54 19CA 52 55 43 54 19CE 20 53 45 51 19D2 55 45 4E 43 19D6 45 2079 19D7 0D 0A FCB $D,$A 2080 19D9 20 54 42 20 FCC / TB ACTIVATE TRACTOR BEAMS/ 19DD 20 20 20 41 19E1 43 54 49 56 19E5 41 54 45 20 19E9 54 52 41 43 19ED 54 4F 52 20 19F1 42 45 41 4D 19F5 53 2081 19F6 0D 0A FCB $D,$A 2082 19F8 20 43 4F 20 FCC / CO BATTLE COMPUTER/ 19FC 20 20 20 42 1A00 41 54 54 4C 1A04 45 20 43 4F 1A08 4D 50 55 54 1A0C 45 52 2083 1A0E 0D 0A FCB $D,$A 2084 1A10 04 FCB 4 2085 1A11 53 45 4E 53 SHTSIG FCC /SENSORS REPORT SHUTTLE CRAFT GALILLEO IN THIS QUADRANT, SIR/ 1A15 4F 52 53 20 1A19 52 45 50 4F 1A1D 52 54 20 53 1A21 48 55 54 54 1A25 4C 45 20 43 1A29 52 41 46 54 1A2D 20 47 41 4C 1A31 49 4C 4C 45 1A35 4F 20 49 4E 1A39 20 54 48 49 1A3D 53 20 51 55 1A41 41 44 52 41 1A45 4E 54 2C 20 1A49 53 49 52 2086 1A4C 04 FCB 4 2087 1A4D 53 48 55 54 SCBKUP FCC /SHUTTLE CRAFT SENSORS PROVIDING BACKUP SCAN, SIR/ 1A51 54 4C 45 20 1A55 43 52 41 46 1A59 54 20 53 45 1A5D 4E 53 4F 52 1A61 53 20 50 52 1A65 4F 56 49 44 1A69 49 4E 47 20 1A6D 42 41 43 4B 1A71 55 50 20 53 1A75 43 41 4E 2C 1A79 20 53 49 52 2088 1A7D 04 FCB 4 2089 1A7E 43 4F 4D 50 CPRMPT FCC /COMPUTER IS CAPABLE OF 3 FUNCTIONS:/ 1A82 55 54 45 52 1A86 20 49 53 20 1A8A 43 41 50 41 1A8E 42 4C 45 20 1A92 4F 46 20 33 1A96 20 46 55 4E 1A9A 43 54 49 4F 1A9E 4E 53 3A 2090 1AA1 0D 0A FCB $D,$A 2091 1AA3 20 20 20 54 FCC / T = TORPEDO SPREAD/ 1AA7 20 3D 20 54 1AAB 4F 52 50 45 1AAF 44 4F 20 53 1AB3 50 52 45 41 1AB7 44 2092 1AB8 0D 0A FCB $D,$A 2093 1ABA 20 20 20 4D FCC / M = PRINT SCAN HISTORY MAP/ 1ABE 20 3D 20 50 1AC2 52 49 4E 54 1AC6 20 53 43 41 1ACA 4E 20 48 49 1ACE 53 54 4F 52 1AD2 59 20 4D 41 1AD6 50 2094 1AD7 0D 0A FCB $D,$A 2095 1AD9 20 20 20 53 FCC / S = SET AUTO SCAN/ 1ADD 20 3D 20 53 1AE1 45 54 20 41 1AE5 55 54 4F 20 1AE9 53 43 41 4E 2096 1AED 0D 0A 0A FCB $D,$A,$A 2097 1AF0 45 4E 54 45 FCC /ENTER COMPUTER COMMAND: / 1AF4 52 20 43 4F 1AF8 4D 50 55 54 1AFC 45 52 20 43 1B00 4F 4D 4D 41 1B04 4E 44 3A 20 2098 1B08 04 FCB 4 2099 1B09 53 54 41 54 CMPHST FCC /STATUS OF QUADRANTS WHEN LAST SCANNED (**** = NO SCAN YET)/ 1B0D 55 53 20 4F 1B11 46 20 51 55 1B15 41 44 52 41 1B19 4E 54 53 20 1B1D 57 48 45 4E 1B21 20 4C 41 53 1B25 54 20 53 43 1B29 41 4E 4E 45 1B2D 44 20 28 2A 1B31 2A 2A 2A 20 1B35 3D 20 4E 4F 1B39 20 53 43 41 1B3D 4E 20 59 45 1B41 54 29 2100 1B43 0D 0A 04 FCB $D,$A,4 2101 1B46 2A 2A 2A 2A NOSCAN FCC /**** / 1B4A 20 2102 1B4B 04 FCB 4 2103 1B4C 45 4E 54 45 HWMANY FCC /ENTER NUMBER OF TORPEDOS IN SPREAD (0-9): / 1B50 52 20 4E 55 1B54 4D 42 45 52 1B58 20 4F 46 20 1B5C 54 4F 52 50 1B60 45 44 4F 53 1B64 20 49 4E 20 1B68 53 50 52 45 1B6C 41 44 20 28 1B70 30 2D 39 29 1B74 3A 20 2104 1B76 04 FCB 4 2105 1B77 41 55 54 4F SRMODE FCC /AUTO SCAN ON FOR SHORT RANGE SENSORS? (Y-N): / 1B7B 20 53 43 41 1B7F 4E 20 4F 4E 1B83 20 46 4F 52 1B87 20 53 48 4F 1B8B 52 54 20 52 1B8F 41 4E 47 45 1B93 20 53 45 4E 1B97 53 4F 52 53 1B9B 3F 20 28 59 1B9F 2D 4E 29 3A 1BA3 20 2106 1BA4 04 FCB 4 2107 1BA5 41 55 54 4F LRMODE FCC /AUTO SCAN ON FOR LONG RANGE SENSORS? (Y-N): / 1BA9 20 53 43 41 1BAD 4E 20 4F 4E 1BB1 20 46 4F 52 1BB5 20 4C 4F 4E 1BB9 47 20 52 41 1BBD 4E 47 45 20 1BC1 53 45 4E 53 1BC5 4F 52 53 3F 1BC9 20 28 59 2D 1BCD 4E 29 3A 20 2108 1BD1 04 FCB 4 2109 * 2110 1BD2 END Total Errors 0