30 ;OPTION SCREEN DATA 60 OPTIONS .SBYTE " cosmic glob " 90 .SBYTE " [C] BY " 0120 .SBYTE " RICH B. ENNS " 0150 OPTIONS2 .SBYTE " . of players:1 . " 0180 .SBYTE " " 0210 .SBYTE " . of ships:5 " 0240 .SBYTE " " 0270 .SBYTE " difficulty:01 " 0300 .SBYTE " " 0330 .SBYTE " enable mines:Y " 0360 .SBYTE " " 0390 .SBYTE " repeat fire:Y " 0420 .SBYTE " " 0450 .SBYTE " control type:HH " 0480 .SBYTE " . " 0510 .BYTE 0,0,0,0 0540 STHOLD LDA #168 0570 STA AUDC1 0600 STX TSTORE6 0630 LDX #4 0660 STHOLD2 STX TSTORE7 0690 STX AUDF1 0720 LDX #0 0750 STHOLD3 INX 0780 CPX #100 0810 BNE STHOLD3 0840 LDX TSTORE7 0870 INX 0900 CPX #200 0930 BNE STHOLD2 0960 LDA #0 0990 STA AUDF1 1020 STA AUDC1 1050 LDX TSTORE6 1080 RTS 1110 OPTMOVE LDY #2 1140 LDA #0 1170 STA (SCLO),Y 1200 CLC 1230 LDA SCLO ;MOVE TO 1260 ADC #40 ;NEXT OPTION 1290 STA SCLO 1320 LDA SCLO+1 1350 ADC #0 1380 STA SCLO+1 1410 LDA #92 1440 STA (SCLO),Y 1470 LDY #0 1500 JSR STHOLD 1530 RTS 1560 OPTMOVE2 LDY #2 1590 LDA #0 1620 STA (SCLO),Y 1650 SEC 1680 LDA SCLO 1710 SBC #40 1740 STA SCLO 1770 LDA SCLO+1 1800 SBC #0 1830 STA SCLO+1 1860 LDA #92 1890 STA (SCLO),Y 1920 LDY #0 1950 JSR STHOLD 1980 RTS 2010 DEFAULT LDA #1 ;DEFAULTS 2040 STA NUMPLAY ;1 PLAYER 2070 STA MINEGATE ;MINES ENABLED 2100 LDA #5 2130 STA NUMLIFE ;5 LIVES 2160 LDA #0 ;EASIEST PLAY 2190 STA DIFFIC 2220 LDA #1 ;DECIMAL OF 2250 STA DECDIF ;ABOVE FOR SCREEN DISPLAY 2280 STA RAPFIRE ;RAPID FIRE ON 2310 STA DIFSTEER1 ;HARD CONTROL 2340 STA DIFSTEER2 2370 SEC 2400 LDA RAMTOP ;LOCATE CHAR. 2430 SBC #26 ;SET BELOW 2460 STA SCLO+1 ;PMBASE 2490 STA CHARHOLD 2520 LDA #0 2550 STA SCLO 2580 LDA #CHARDAT 256 2610 STA DLLO 2640 LDA #CHARDAT/256 2670 STA DLLO+1 2700 LDY #0 2730 CHARPLOT LDA (DLLO),Y 2760 STA (SCLO),Y 2790 CLC 2820 LDA DLLO 2850 ADC #1 2880 STA DLLO 2910 LDA DLLO+1 2940 ADC #0 2970 STA DLLO+1 3000 CLC 3030 LDA SCLO 3060 ADC #1 3090 STA SCLO 3120 LDA SCLO+1 3150 ADC #0 3180 STA SCLO+1 3210 SEC 3240 SBC #2 3270 CMP CHARHOLD 3300 BNE CHARPLOT 3330 BEGIN ; INITIALIZE 3360 LDA #0 3390 CMP STRIG0 3420 BEQ BEGIN 3450 CMP STRIG1 3480 BEQ BEGIN 3510 JSR INIT 3540 LDA #0 3570 STA 53277 ;TURN OFF 3600 LDX #0 ;PM AND ALL 3630 VOFF STA AUDF1,X ;SOUND 3660 INX 3690 CPX #9 3720 BNE VOFF 3750 JSR DLI2 ;OPTION / TITLE 3780 LDA CHARHOLD ;TURN ON 3810 STA 756 ;CHARACTERS 3840 LDA #170 3870 STA 708 3900 LDA #12 3930 STA 709 3960 LDA #180 3990 STA 710 4020 LDX #0 4050 LDY #20 4080 TITLELOOP LDA OPTIONS,X 4110 STA (SCREENLO),Y ;GET TITLE 4140 INX 4170 INY ;SCREEN DATA 4200 CPX #60 ;TO SCREEN 4230 BNE TITLELOOP 4260 CLC ;UP SCREEN 4290 LDA SCREENLO ;MEMORY FOR 4320 ADC #120 ;OPTION TABLE 4350 STA SCLO 4380 STA DLLO 4410 LDA SCREENLO+1 4440 ADC #0 4470 STA SCLO+1 4500 STA DLLO+1 4530 LDY #0 4560 OPTPLOT LDA OPTIONS2,Y 4590 STA (SCLO),Y ;GET OPTIONS 4620 INY ;DATA TO SCREEN 4650 CPY #240 4680 BNE OPTPLOT 4710 LDA #3 4740 STA SKCTL 4770 LDA #0 4800 STA AUDCTL 4830 JSR STHOLD 4860 JSR STHOLD 4890 OPTSTART LDA DLLO 4920 STA SCLO 4950 LDA DLLO+1 4980 STA SCLO+1 5010 CLC 5040 LDA SCLO 5070 ADC #15 5100 STA SCLO 5130 LDA SCLO+1 5160 ADC #0 5190 STA SCLO+1 5220 LDY #2 5250 LDA #92 5280 STA (SCLO),Y 5310 LDY #0 5340 JSR STHOLD 5370 OPT1 LDA STICK0 ;# OF PLAYERS 5400 CMP #7 ;OPTION 5430 BNE SOPT2 5460 INC NUMPLAY 5490 LDA NUMPLAY 5520 CMP #3 5550 BNE OPT2 5580 LDA #1 5610 STA NUMPLAY 5640 OPT2 CLC 5670 LDA NUMPLAY 5700 ADC #16 5730 STA (SCLO),Y 5760 LDX #15 5790 STA OPTIONS2,X 5820 JSR STHOLD 5850 SOPT2 LDA STRIG0 5880 CMP #0 5910 BNE SKOPT1 5940 JMP OPTDONE 5970 SKOPT1 LDA STICK0 6000 CMP #14 6030 BNE SKOPTT1 6060 LDY #2 6090 LDA #0 6120 STA (SCLO),Y 6150 CLC 6180 LDA DLLO 6210 ADC #215 6240 STA SCLO 6270 LDA DLLO+1 6300 ADC #0 6330 STA SCLO+1 6360 LDA #92 6390 STA (SCLO),Y 6420 LDY #0 6450 JSR STHOLD 6480 JMP OPT15 6510 SKOPTT1 CMP #13 6540 BNE OPT1 6570 JSR OPTMOVE 6600 OPT3 LDA STICK0 ;# OF SHIPS 6630 CMP #7 ;OPTION 6660 BNE OPTB1 6690 INC NUMLIFE 6720 LDA NUMLIFE 6750 CMP #9 6780 BNE OPT4 6810 LDA #3 6840 STA NUMLIFE 6870 JMP OPT4 6900 OPTB1 CMP #11 6930 BNE SOPT4 6960 DEC NUMLIFE 6990 LDA NUMLIFE 7020 CMP #2 7050 BNE OPT4 7080 LDA #8 7110 STA NUMLIFE 7140 OPT4 LDA NUMLIFE 7170 CMP #8 ;ENDLESS 7200 BNE LIMITS ;LIFE OPTION 7230 LDA #10 7260 STA (SCLO),Y 7290 JMP ENDLESS 7320 LIMITS LDA NUMLIFE 7350 CLC 7380 ADC #16 7410 STA (SCLO),Y 7440 ENDLESS LDX #55 7470 STA OPTIONS2,X 7500 JSR STHOLD 7530 SOPT4 LDA STRIG0 7560 CMP #0 7590 BNE SKOPT2 7620 JMP OPTDONE 7650 SKOPT2 LDA STICK0 7680 CMP #14 7710 BNE SKOPTT2 7740 JSR OPTMOVE2 7770 JMP OPT1 7800 SKOPTT2 CMP #13 7830 BNE OPT3 7860 JSR OPTMOVE 7890 OPT5 LDA STICK0 ;DIFFICULTY 7920 CMP #7 ;OPTION 7950 BNE OPTB2 7980 INC DIFFIC 8010 SED 8040 CLC 8070 LDA DECDIF 8100 ADC #1 8130 STA DECDIF 8160 CLD 8190 LDA DIFFIC 8220 CMP #30 8250 BNE OPT6 8280 LDA #0 8310 STA DIFFIC 8340 LDA #1 8370 STA DECDIF 8400 JMP OPT6 8430 OPTB2 CMP #11 8460 BNE SOPT6 8490 DEC DIFFIC 8520 SED 8550 SEC 8580 LDA DECDIF 8610 SBC #1 8640 STA DECDIF 8670 CLD 8700 LDA DIFFIC 8730 CMP #255 8760 BNE OPT6 8790 LDA #29 8820 STA DIFFIC 8850 LDA #48 8880 STA DECDIF 8910 OPT6 LDY #0 8940 LDA DECDIF 8970 LSR A 9000 LSR A 9030 LSR A 9060 LSR A 9090 CLC 9120 ADC #16 9150 STA (SCLO),Y 9180 LDX #95 9210 STA OPTIONS2,X 9240 LDY #1 9270 LDA DECDIF 9300 AND #15 9330 CLC 9360 ADC #16 9390 STA (SCLO),Y 9420 LDX #96 9450 STA OPTIONS2,X 9480 JSR STHOLD 9510 SOPT6 LDA STRIG0 9540 CMP #0 9570 BNE SKOPT3 9600 JMP OPTDONE 9630 SKOPT3 LDA STICK0 9660 CMP #14 9690 BNE SKOPTT3 9720 JSR OPTMOVE2 9750 JMP OPT3 9780 SKOPTT3 CMP #13 9810 BEQ SKOPTTT3 9840 JMP OPT5 9870 SKOPTTT3 JSR OPTMOVE 9900 OPT7 LDA STICK0 ;MINES OPTION 9930 CMP #7 9960 BNE OPT9 9990 INC MINEGATE 010020 LDA MINEGATE 010050 CMP #2 010080 BNE OPT8 010110 LDA #0 010140 STA MINEGATE 010170 OPT8 LDX #135 010200 LDA MINEGATE 010230 CMP #1 010260 BNE OPTIT 010290 LDA #57 010320 STA (SCLO),Y 010350 STA OPTIONS2,X 010380 JMP OPT99 010410 OPTIT LDA #46 010440 STA (SCLO),Y 010470 STA OPTIONS2,X 010500 OPT99 JSR STHOLD 010530 OPT9 LDA STRIG0 010560 CMP #0 010590 BNE SKOPT6 010620 JMP OPTDONE 010650 SKOPT6 LDA STICK0 010680 CMP #14 010710 BNE SKOPTT6 010740 JSR OPTMOVE2 010770 JMP OPT5 010800 SKOPTT6 CMP #13 010830 BNE OPT7 010860 JSR OPTMOVE 010890 OPT11 LDA STICK0 ;REPEAT FIRE 010920 CMP #7 010950 BNE OPT14 010980 INC RAPFIRE 011010 LDA RAPFIRE 011040 CMP #2 011070 BNE OPT12 011100 LDA #0 011130 STA RAPFIRE 011160 OPT12 LDX #175 011190 LDA RAPFIRE 011220 CMP #0 011250 BNE OPT13 011280 LDA #46 011310 STA (SCLO),Y 011340 STA OPTIONS2,X 011370 JMP SSOPT14 011400 OPT13 LDA #57 011430 STA (SCLO),Y 011460 STA OPTIONS2,X 011490 SSOPT14 JSR STHOLD 011520 OPT14 LDA STRIG0 011550 CMP #0 011580 BNE SKOPT7 011610 JMP OPTDONE 011640 SKOPT7 LDA STICK0 011670 CMP #14 011700 BNE SKOPTT7 011730 JSR OPTMOVE2 011760 JMP OPT7 011790 SKOPTT7 CMP #13 011820 BNE OPT11 011850 JSR OPTMOVE 011880 OPT15 CLC 011910 LDA SCLO 011940 ADC #20 011970 STA TSTORE4 012000 LDA SCLO+1 012030 ADC #0 012060 STA TSTORE5 012090 LDX #215 012120 OPTT15 LDA STICK0 ;STEERING 012150 CMP #11 012180 BEQ NEXTOPT15 012210 CMP #7 012240 BNE OPT18 012270 CLC 012300 LDA DIFSTEER1,Y 012330 ADC #1 012360 STA DIFSTEER1,Y 012390 CMP #2 012420 BNE OPT16 012450 LDA #0 012480 STA DIFSTEER1,Y 012510 OPT16 CMP #0 012540 BNE OPT17 012570 LDA #37 012600 STA (SCLO),Y 012630 STA OPTIONS2,X 012660 JMP SSOPT18 012690 OPT17 LDA #40 012720 STA (SCLO),Y 012750 STA OPTIONS2,X 012780 SSOPT18 JSR STHOLD 012810 OPT18 LDA STRIG0 012840 CMP #0 012870 BEQ OPTDONE 012900 LDA STICK0 012930 CMP #14 012960 BNE SKOPTT9 012990 LDY #0 013020 LDA #71 013050 STA (TSTORE4),Y 013080 INY 013110 LDA #0 013140 STA (TSTORE4),Y 013170 JSR OPTMOVE2 013200 JMP OPT11 013230 SKOPTT9 CMP #13 013260 BNE OPTT15 013290 LDY #0 013320 LDA #71 013350 STA (TSTORE4),Y 013380 INY 013410 LDA #0 013440 STA (TSTORE4),Y 013470 INY 013500 STA (SCLO),Y 013530 JMP OPTSTART 013560 NEXTOPT15 LDA #0 013590 STA (TSTORE4),Y 013620 INX 013650 INY 013680 CPY #2 013710 BNE OPTRET15 013740 LDY #0 013770 LDX #215 013800 OPTRET15 LDA #71 013830 STA (TSTORE4),Y 013860 JSR STHOLD 013890 JMP OPTT15 013920 OPTDONE JSR DLI7 013950 LDA CHARHOLD ;TURN ON 013980 STA 756 ;CHARACTERS 014010 JSR SCOREDUMP 014160 JSR PMINIT 014190 LDA DIFFIC 014220 STA DIFFCTRL 014250 ASL A 014280 ASL A 014310 ASL A 014340 ASL A 014370 STA TSTORE4 014400 JSR VBINIT 014430 LDA NUMLIFE 014460 STA LIVES0 014490 STA LIVES1 014492 LDX #0 014494 JSR FEEDTRANS 014496 LDX #1 014498 JSR FEEDTRANS 014520 CLC 014550 LDA #166 ;INIT COLORS 014580 ADC TSTORE4 014610 STA 708 014640 CLC 014670 LDA #218 014700 ADC TSTORE4 014730 STA 709 014760 CLC 014790 LDA #104 014820 ADC TSTORE4 014850 STA 710 014880 CLC 014910 LDA #10 014940 ADC TSTORE4 014970 STA 711 015000 CLC 015030 LDA #98 ;INTERRUPT 015060 ADC TSTORE4 015090 STA COL0ALT ;COLORS 015120 CLC 015150 LDA #106 015180 ADC TSTORE4 015210 STA COL1ALT 015240 CLC 015270 LDA #190 015300 ADC TSTORE4 015330 STA COL3ALT 015360 CLC 015390 LDA #166 015420 ADC TSTORE4 015450 STA 704 015480 CLC 015510 LDA #218 015540 ADC TSTORE4 015570 STA 705 015600 LDA MINEGATE 015630 CMP #1 015660 BNE RESTART 015690 JSR MINEINIT ;ACTUAL GAME 015720 RESTART JSR GLOBINIT ;BEGIN 015750 LDA DIFFCTRL ;SET GLOB 015780 TAX ;MOVEMENT 015810 LDA DIFFDAT1,X 015840 STA RATE1+1 015870 LDA DIFFDAT2,X 015900 STA RATE2+1 015930 GLOBMOVE ; GLOB MOVEMENT 015960 GLOBPATH LDA FLYFAST 015990 CMP #1 016020 BEQ GLOBCHECK ;CHECK TIME 016050 LDA 19 ;TO SEE IF 016080 CMP #8 ;FLY AHOULD 016110 BNE GLOBCHECK ;GO FASTER 016140 LDA #1 016170 STA FLYFAST 016200 GLOBCHECK LDA CONSOL 016230 CMP #6 016260 BNE NOSTART ;SHOULD GAME 016290 LDA #0 ;RESTART ? 016320 STA GLOBGATE 016350 JSR CLEARPM 016380 JMP BEGIN 016410 NOSTART LDX #0 ;CHECK IF BOTH 016440 OVERCHECK LDA LIVES0,X ;SHIPS 016470 CMP #0 ;ARE GONE 016500 BNE NOEND 016530 INX 016560 CPX NUMPLAY 016590 BNE OVERCHECK ;IF SO THEN 016620 JMP ENDGAME ;END GAME 016650 NOEND LDA 764 016680 CMP #33 ;CHECK IF SPACE 016710 BNE NOPAUSE ;BAR PRESSED 016740 LDA #0 016770 STA GLOBGATE 016800 STA AUDC1 016830 STA AUDC2 016860 STA AUDC3 016890 STA AUDC4 016920 LDX 20 016950 LDY 19 016980 PAUSE LDA 764 ;GAME PAUSED 017010 CMP #33 017040 BEQ PAUSE 017070 LDA #1 017100 STA GLOBGATE 017130 STY 19 017160 STX 20 017190 NOPAUSE LDX #0 017220 GHMOVE1 LDY GLOBGYRO 017250 CLC 017280 LDA HPM2 017310 ADC GHDAT,Y 017340 STA HPM2 017370 GHMOVE2 CLC 017400 LDA HPM3 017430 ADC GHDAT,Y 017460 STA HPM3 017490 JSR GLOBDELAY 017520 LDA HPM2 017550 CMP #50 017580 BEQ HTWIST 017610 CMP #174 017640 BNE GHSKIP 017670 HTWIST LDA RANDOM 017700 AND #1 017730 ASL A 017760 ASL A 017790 ASL A 017820 STA TSTORE4 017850 LDA GLOBGYRO 017880 CLC 017910 ADC TSTORE4 017940 TAY 017970 LDA HGCHANGE,Y 018000 STA GLOBGYRO 018030 LDA #1 018060 STA BOUMUSIC ;SOUND 018090 JMP GLOBMOVE 018120 GHSKIP INX 018150 GHTIME LDY GLOBGYRO 018180 TXA 018210 CMP GHLOOP,Y 018240 BNE GHMOVE1 018270 LDX #0 018300 GVMOVE1 LDY GLOBGYRO 018330 CLC 018360 LDA PM2MOVE 018390 ADC GVDAT,Y 018420 STA PM2MOVE 018450 GVMOVE2 CLC 018480 LDA PM3MOVE 018510 ADC GVDAT,Y 018540 STA PM3MOVE 018570 JSR GLOBDELAY 018600 LDA PM2MOVE 018630 CMP #18 018660 BEQ VTWIST 018690 CMP #92 018720 BNE GVSKIP 018750 VTWIST LDA RANDOM 018780 AND #1 018810 ASL A 018840 ASL A 018870 ASL A 018900 STA TSTORE4 018930 LDA GLOBGYRO 018960 CLC 018990 ADC TSTORE4 019020 TAY 019050 LDA VGCHANGE,Y 019080 STA GLOBGYRO 019110 LDA #1 019140 STA BOUMUSIC 019170 JMP GLOBMOVE 019200 GVSKIP INX 019230 GVTIME LDY GLOBGYRO 019260 TXA 019290 CMP GVLOOP,Y 019320 BNE GVMOVE1 019350 JMP GLOBPATH 019380 GLOBDELAY STX TSTORE5 019410 LDX #0 019440 GLOBDEL1 INX 019470 LDY #0 019500 GLOBDEL2 INY 019530 LDA GLOBGATE ;CHECK IF TO 019560 CMP #0 ;DO GLOB 019590 BNE RATE2 ;DESTRUCTION 019620 JMP GLOBDESTROY 019650 RATE2 CPY #0 ;SPEED CTRL 2 019680 BNE GLOBDEL2 019710 RATE1 CPX #0 ;SPEED CTRL 1 019740 BNE GLOBDEL1 019770 LDX TSTORE5 019800 RTS 019830 ENDGAME ; GAME OVER 019860 LDA SOUNDACT1 ;WAIT UNTIL 019890 CMP #0 ;LAST 019920 BNE ENDGAME ;EXPLOSION 019950 LDA #0 ;TURN OFF VB 019980 STA GLOBGATE 020010 LDX #0 020040 VOIOFF LDA #0 020070 STA AUDF1,X 020100 INX 020130 CPX #9 020160 BNE VOIOFF 020190 JSR ZEROSTART ;CLEAR MINES 020220 JSR CLEARPM ;CLEAR PMGR. 020250 LDA #96 020280 STA HPOSP2 020310 LDA #128 020340 STA HPOSP3 020370 LDA #52 020400 STA PM2MOVE 020430 LDA #180 020460 STA PM3MOVE 020490 LDA #3 020520 STA 53258 020550 STA 53259 020580 LDX #0 020610 LDY #0 020640 LARGEGLOB LDA GLOB1+2,X 020670 STA (PM2MOVE),Y ;PLOT 020700 LDA GLOB2+2,X ;LARGE 020730 STA (PM3MOVE),Y ;GLOB 020760 INY 020790 LDA GLOB1+2,X 020820 STA (PM2MOVE),Y 020850 LDA GLOB2+2,X 020880 STA (PM3MOVE),Y 020910 INX 020940 INY 020970 CPY #36 021000 BNE LARGEGLOB 021030 CLC 021060 LDA SCREENLO ;LOCATION 021090 ADC #80 ;OF 'THE END' 021120 STA SCLO ;ON SCREEN 021150 LDA SCREENLO+1 021180 ADC #3 021210 STA SCLO+1 021240 LDX #0 021270 ENDROWS LDY #0 021300 PLOTEND LDA ENDDAT,X 021330 STA (SCLO),Y 021360 INX 021390 INY 021420 CPY #24 021450 BNE PLOTEND ;PLOT 021480 CLC ; 'THE END' 021510 LDA SCLO 021540 ADC #40 021570 STA SCLO 021600 LDA SCLO+1 021630 ADC #0 021660 STA SCLO+1 021690 CPX #120 021720 BNE ENDROWS 021750 LDA #3 021780 STA SKCTL ;FINAL END 021810 LDA #5 ;SOUND 021840 STA AUDCTL 021870 LDA #166 021900 STA AUDC1 021930 LDA #162 021960 STA AUDC3 021990 LDA #216 022020 STA AUDF1 022050 LDA #217 022080 STA AUDF3 022110 ENDHOLD LDA #0 022140 CMP STRIG0 022170 BEQ ENDSTOP 022200 CMP STRIG1 022230 BNE ENDHOLD 022260 ENDSTOP STA AUDC1 022290 STA AUDC3 022320 STA AUDF1 022350 STA AUDF3 022380 JSR CLEARPM 022410 JMP BEGIN ;START NEW GAME 022440 ENDDAT ; PLOT ' THE END ' 022470 .BYTE 170,170,170,0,170,0,170,0,170,170,170,0,0,170,170,170,0,170,170,170,0,170,170,160 022500 .BYTE 0,170,0,0,170,0,170,0,170,0,0,0,0,170,0,0,0,170,0,170,0,170,0,170 022530 .BYTE 0,170,0,0,170,170,170,0,170,170,0,0,0,170,170,0,0,170,0,170,0,170,0,170 022560 .BYTE 0,170,0,0,170,0,170,0,170,0,0,0,0,170,0,0,0,170,0,170,0,170,0,170 022590 .BYTE 0,170,0,0,170,0,170,0,170,170,170,0,0,170,170,170,0,170,0,170,0,170,170,160 022620 GLOBDESTROY ; FINAL GLOB DESTRUCTION 022650 JSR CLEARPM ;PM CLEAR 022680 LDA #3 022710 STA SKCTL ;INIT POKEY 022740 LDA #4 022770 STA AUDCTL 022800 LDA #15 022830 STA AUDC1 ;SET VOLUMES 022860 LDA #9 ;FOR EXPLOSION 022890 STA AUDC2 ;NOISE 022920 LDA #3 022950 STA AUDC3 022980 LDA #5 023010 STA AUDC4 023040 LDA #10 ;INITIAL NOTE 023070 STA NOTE1 023100 CLC 023130 LDA PM2MOVE 023160 ADC #10 ;EXPLOSION 023190 STA MSTATUS1 ;AT CURRENT 023220 ADC #2 ;GLOB 023250 STA MSTATUS0 ;LOCATION 023280 ADC #127 023310 STA MIS1GYRO 023340 ADC #2 023370 STA MIS0GYRO 023400 LDX #0 023430 LDA #255 023460 STA BEELINE+1 023490 SPECTAC STX TSTORE4 023520 LDA MSTATUS0 023550 STA PM2MOVE ;LEFT UP 023580 LDA MSTATUS1 023610 STA PM2AUX ;LEFT DOWN 023640 LDA MIS0GYRO 023670 STA PM3MOVE ;RIGHT UP 023700 LDA MIS1GYRO 023730 STA PM3AUX ;RIGHT DOWN 023760 LDX #0 023790 LDY #0 023820 SPREADIT CLC 023850 LDA NOTE1 ;DO SOUND 023880 STA AUDF1 ;PITCH IS 023910 ADC #8 ;8 NOTES APART 023940 STA AUDF2 ;FROM V1 TO V4 023970 ADC #8 024000 STA AUDF3 024030 ADC #8 024060 STA AUDF4 024090 INC NOTE1 ;LOWER NOTE 024120 DEC PM2MOVE 024150 INC PM2AUX 024180 DEC PM3MOVE 024210 INC PM3AUX 024240 LDA #0 024270 JSR PLOTLINE 024300 DEC PM2MOVE ;DO EXPLOSION 024330 INC PM2AUX ;EFFECT BY 024360 DEC PM3MOVE ;PLOTTING EVERY 024390 INC PM3AUX ;SECOND LINE 024420 BEELINE LDA #0 ;0 OR 255 024450 JSR PLOTLINE 024480 STX TSTORE5 024510 LDX #20 024540 SPDELAY1 DEX ;DELAY 024570 LDY #160 024600 SPDELAY2 DEY 024630 CPY #0 024660 BNE SPDELAY2 024690 CPX #0 024720 BNE SPDELAY1 024750 LDX TSTORE5 024780 INX 024810 CPX #24 024840 BNE SPREADIT 024870 LDA #0 024900 STA BEELINE+1 024930 LDX TSTORE4 024960 INX 024990 CPX #2 025020 BNE SPECTAC 025050 LDX #0 025080 EXPLOOFF LDA #0 ;TURN OFF 025110 STA AUDF1,X ;EXPLOSION 025140 INX 025170 CPX #9 025200 BNE EXPLOOFF 025230 STA MSTATUS0 ;CLEAR MISSILE 025260 STA MSTATUS1 ;STATUS 025290 HOLD LDA #0 ;CONTINUE IF 025320 CMP STRIG0 ;EITHER 025350 BEQ GAMECONT ;BUTTON IS 025380 CMP STRIG1 ;PRESSED 025410 BEQ GAMECONT 025440 LDA CONSOL 025470 CMP #6 ;SHOULD GAME 025500 BNE HOLD ;RESTART 025530 LDA #0 025560 STA GLOBGATE 025590 JSR CLEARPM 025620 JMP BEGIN 025650 GAMECONT JSR CLEARPM ;CLEAR PM 025680 LDA DIFFCTRL ;INCREASE 025710 CMP #29 ;DIFFICULTY IF 025740 BEQ DIFFSKIP ;NOT AT MAX. 025770 INC DIFFCTRL 025800 DIFFSKIP LDX #0 025830 COLORADD1 CLC ;CHANGE 025860 LDA 704,X ;PLAYER & 025890 ADC #16 ;PLAYFIELD 025920 STA 704,X ;COLORS 025950 INX 025980 CPX #8 026010 BNE COLORADD1 026040 LDX #0 026070 COLORADD2 CLC 026100 LDA DLICOLOR1,X ;CHANGE GLOB 026130 ADC #16 ;INTERRUPT 026160 STA DLICOLOR1,X ;COLORS 026190 INX 026220 CPX #12 026250 BNE COLORADD2 026280 LDX #0 026310 COLORADD3 CLC 026340 LDA COL0ALT,X ;CHANGE 026370 ADC #16 ;PLAYFIELD 026400 STA COL0ALT,X ;INTERRUPT 026430 INX ;COLORS 026460 CPX #3 026490 BNE COLORADD3 026520 JMP RESTART ;CONTINUE PLAY 026550 PLOTLINE STA (PM2MOVE),Y 026580 STA (PM2AUX),Y 026610 STA (PM3MOVE),Y 026640 STA (PM3AUX),Y 026670 INC HPM2 026700 DEC HPM3 026730 LDA HPM2 026760 STA HPOSP2 026790 LDA HPM3 026820 STA HPOSP3 026850 RTS 026880 FEEDTRANS ; SCORE PLOT 026910 TXA 026940 CMP #1 026970 BNE FEEDTRANS1 027000 LDA NUMPLAY 027030 CMP #2 027060 BNE ENDFEED 027090 FEEDTRANS1 LDY LIFEPOS,X 027094 CLC 027120 LDA LIVES0,X 027122 ADC #16 027150 CMP #24 027180 BCC FEEDTRANS2 027210 LDA #10 027240 FEEDTRANS2 CLC 027270 ADC SCORCOL,X 027300 STA (SCREENLO),Y 027330 LDA SCLO0,X 027360 STA SFEEDLO 027390 LDA SCMED0,X 027420 STA SFEEDMED 027450 LDA SCHI0,X 027480 STA SFEEDHI 027510 LDY SCOREOFF,X 027540 LDX #2 027570 SCPRINT LDA SFEEDLO,X ;SCREEN 027600 LSR A ;POSITION 027630 LSR A 027660 LSR A 027690 LSR A 027720 CLC 027750 ADC #208 027780 STA (SCREENLO),Y 027810 INY 027840 LDA SFEEDLO,X 027870 AND #15 027900 CLC 027930 ADC #208 027960 STA (SCREENLO),Y 027990 INY 028020 DEX 028050 CPX #255 028080 BNE SCPRINT 028110 ENDFEED RTS 028140 SCOREDUMP LDY #0 028170 DUMPLOOP LDA SCDAT,Y 028200 STA (SCREENLO),Y 028230 INY 028260 CPY #20 028290 BNE DUMPLOOP 028320 RTS 028350 SCOREOFF .BYTE 3,13 028380 SCDAT .SBYTE " 0>...... ........ " 028410 LIFEPOS .BYTE 1,11 028440 SCORCOL .BYTE 0,64 028470 GHDAT .BYTE 1,1,1,1,255,255,255,255 028500 GVDAT .BYTE 255,255,1,1,1,1,255,255 028530 GHLOOP .BYTE 1,2,2,1,1,2,2,1 028560 GVLOOP .BYTE 2,1,1,2,2,1,1,2 028590 HGCHANGE .BYTE 7,6,5,4,3,2,1,0,6,7,4,5,2,3,0,1 028620 VGCHANGE .BYTE 3,2,1,0,7,6,5,4,2,3,0,1,6,7,4,5 028650 DIFFDAT1 .BYTE 30,29,27,25,24,22,21,20,19,18,17,14,13,12,10,10,10,10,8,8,8,8,8,8,8,8,8,8,8,8 028680 DIFFDAT2 .BYTE 32,30,28,27,24,23,22,21,20,19,18,20,20,20,23,22,21,20,24,23,22,21,20,19,18,17,16,15,14,13 028710 DLI2 ; OPTIONS SCREEN 028740 LDA #17 028770 JSR GRAFIC 028800 LDA DLIST 028830 STA DLLO 028860 LDA DLIST+1 028890 STA DLLO+1 028920 LDY #0 028950 DLI2LOOP1 LDA DLI2DAT,Y 028980 STA (DLLO),Y 029010 INY 029040 CPY #28 029070 BNE DLI2LOOP1 029100 LDY #4 029130 LDA SCREENLO 029160 STA (DLLO),Y 029190 INY 029220 LDA SCREENLO+1 029250 STA (DLLO),Y 029280 LDY #25 029310 LDA DLLO 029340 STA (DLLO),Y 029370 INY 029400 LDA DLLO+1 029430 STA (DLLO),Y 029460 RTS 029490 DLI2DAT .BYTE 112,112,112,71,200,200,7,7,7,7,6,6,6,6,6,6,6,6,6,6,6,6,6,6,65,100,100,0,0,0,0 029520 DLI7 ; 1 LINE GR.1 & REST GR.7 029550 SEC 029580 LDA RAMTOP 029610 SBC #16 029640 STA SCREENLO+1 029670 SBC #2 029700 STA DLIST+1 029730 STA DLLO+1 029760 LDA #0 029790 STA SCREENLO 029820 STA DLIST ;TRANSFER DLIST 029850 STA DLLO ;VECTORS TO 029880 LDY #0 ;START 029910 LDA #112 ;DISPLAY 029940 STA (DLLO),Y ;WITH 029970 INY ;24 030000 STA (DLLO),Y ;BLANK 030030 INY ;SCAN LINES 030060 STA (DLLO),Y 030090 LDY #3 ;ONE LINE GR.1 030120 LDA #198 ;128+64+6 ANTIC 030150 STA (DLLO),Y 030180 INY ;THESE 030210 LDA SCREENLO ;NEXT TWO BYTES 030240 STA (DLLO),Y ;ARE THE 030270 INY ;START OF 030300 LDA SCREENLO+1 ;SCREEN MEMORY 030330 STA (DLLO),Y 030360 LDY #6 ;START GR.7 030390 LDA #205 ;128+64+13 ANTIC 030420 STA (DLLO),Y 030450 LDA SCREENLO ;COPY 030480 STA SCLO ;SCREEN 030510 LDA SCREENLO+1 ;MEMORY TO ADD 030540 STA SCLO+1 030570 LDA SCLO ;ADD 030600 CLC ;40 030630 ADC #40 ;FOR START 030660 STA SCLO ;OF SCREEN 030690 LDA SCLO+1 ;MEMORY 030720 ADC #0 ;FOR GR.7 030750 STA SCLO+1 030780 LDY #7 ;START 030810 LDA SCLO ;OF SCREEN 030840 STA (DLLO),Y ;MEMORY 030870 INY ;FOR 030900 LDA SCLO+1 ;GR.7 LINES 030930 STA (DLLO),Y 030960 LDY #9 ;91 030990 DLLOOP LDA #141 ;LINES 031020 STA (DLLO),Y ;OF 031050 INY ;GRAPHICS 7 031080 CPY #97 ;128+13 ANTIC 031110 BNE DLLOOP 031140 LDA #13 031170 STA (DLLO),Y 031200 INY 031230 STA (DLLO),Y 031260 INY 031290 STA (DLLO),Y 031320 INY 031350 LDA #65 ;JUMP & WAIT 031380 STA (DLLO),Y 031410 INY ;LAST 031440 LDA DLLO ;LINES 031470 STA (DLLO),Y ;ARE 031500 INY ;DLIST 031530 LDA DLLO+1 ;ADDRESS 031560 STA (DLLO),Y 031590 FRAME ; PLAYFIELD BORDER 031620 CLC 031650 LDA SCREENLO 031680 ADC #40 031710 STA SCLO 031740 LDA SCREENLO+1 031770 ADC #0 031800 STA SCLO+1 031830 LDX #0 031860 BORSTART STX TSTORE4 031890 LDX #0 031920 BORSTEP LDY #0 031950 BORLOOP LDA BORDAT,X 031980 STA (SCLO),Y 032010 INY 032040 CPY #40 032070 BNE BORLOOP 032100 CLC 032130 LDA SCLO 032160 ADC #40 032190 STA SCLO 032220 LDA SCLO+1 032250 ADC #0 032280 STA SCLO+1 032310 INX 032340 CPX #4 032370 BNE BORSTEP 032400 LDX TSTORE4 032430 INX 032460 CPX #23 032490 BNE BORSTART 032520 ZEROSTART CLC ;CLEAR 032550 LDA SCREENLO ;PLAYFIELD 032580 ADC #202 032610 STA SCLO 032640 LDA SCREENLO+1 032670 ADC #0 032700 STA SCLO+1 032730 LDX #0 032760 ZEROROW LDY #0 032790 ZEROLOOP LDA #0 032820 STA (SCLO),Y 032850 INY 032880 CPY #36 032910 BNE ZEROLOOP 032940 CLC 032970 LDA SCLO 033000 ADC #40 033030 STA SCLO 033060 LDA SCLO+1 033090 ADC #0 033120 STA SCLO+1 033150 INX 033180 CPX #84 033210 BNE ZEROROW 033240 CLC ;STARTING 033270 LDA SCREENLO ;LOCATIONS 033300 ADC #10 ;IN SCREEN 033330 STA PM0BLOCK ;MEMORY OF 033360 LDA SCREENLO+1 ;SHIP START 033390 ADC #12 ;GRAPHICS 033420 STA PM0BLOCK+1 033450 CLC 033480 LDA SCREENLO 033510 ADC #43 033540 STA PM1BLOCK 033570 LDA SCREENLO+1 033600 ADC #12 033630 STA PM1BLOCK+1 033660 RTS ;DONE 033690 BORDAT .BYTE 150,165,105,90 033720 GLOBINIT ; GLOB INITIALIZE 033750 LDA RANDOM ;GLOB RANDOM 033780 AND #7 ;START 033810 STA GLOBGYRO ;DIRECTION 033840 LDA #0 033870 STA HPM2 ;HORIZ POSITION 033900 STA HPOSP2 033930 LDA #240 ;SHADOWS 033960 STA HPM3 033990 STA HPOSP3 034020 LDA #30 ;VERTICAL 034050 STA PM2MOVE ;POSITION 034080 LDA #158 ;OF GLOB 034110 STA PM3MOVE 034140 LDA #1 ;DOUBLE WIDTH 034170 STA 53258 ;FOR PM2 & PM3 034200 STA 53259 034230 LDX #0 034260 PARTLOOP LDA GLOB1,X 034290 STA FRAG1,X ;TRANSFER 034320 INX ;PERMANENT 034350 CPX #44 ;GLOB DATA 034380 BNE PARTLOOP ;TO FRAGMENT 034410 LDY #0 ;GLOB DATA 034440 GLOBPLOT LDA GLOB1,Y 034470 STA (PM2MOVE),Y ;PLOT GLOB 034500 LDA GLOB2,Y 034530 STA (PM3MOVE),Y 034560 INY 034590 CPY #22 034620 BNE GLOBPLOT 034650 LDA #3 034680 STA SKCTL 034710 LDA #5 034740 STA AUDCTL ;PREPARE FOR 034770 LDA #172 ;APPEAR 034800 STA AUDC1 ;SOUND 034830 LDA #164 034860 STA AUDC3 034890 LDA #50 034920 STA NOTE1 034950 LDA #54 034980 STA NOTE3 035010 GLOBSLIDE INC HPM2 035040 DEC HPM3 ;MOVE GLOB 035070 LDA HPM2 ;TOGETHER 035100 STA HPOSP2 035130 LDA HPM3 035160 STA HPOSP3 035190 CMP #128 035220 BEQ FLYINIT 035250 LDX #0 035280 SLDEL1 INX 035310 LDY #0 035340 SLDEL2 INY 035370 CPY #255 035400 BNE SLDEL2 035430 CPX #3 035460 BNE SLDEL1 035490 INC NOTE1 035520 INC NOTE3 035550 LDA NOTE1 035580 STA AUDF1 035610 LDA NOTE3 035640 STA AUDF3 035670 JMP GLOBSLIDE 035700 FLYINIT LDA #0 035730 STA AUDC1 ;TURN OFF 035760 STA AUDC3 ;APPEAR SOUND 035790 STA AUDF1 035820 STA AUDF3 035850 ;FLY INITIALIZE 035880 LDA RANDOM 035910 AND #3 035940 STA FLYGYRO ;INIT FLY DIR. 035970 LDA #0 036000 STA FLYDURATE ;DIR. TIMER 036030 STA FLYTIME ;& SPEED 036060 STA APPDELAY0 ;INIT SHIP 036090 STA APPDELAY1 ;APPEAR DELAYS 036120 STA ACTTIME0 036150 STA ACTTIME1 036180 STA FLIPTIME0 036210 STA FLIPTIME1 036240 STA 764 036270 STA 20 ;FLY STARTS 036300 STA 19 ;OUT SLOW 036330 STA FLYFAST 036360 LDA #128 036390 STA HMS2 036420 LDA #126 ;HORIZ START 036450 STA HMS3 ;POSITION 036480 LDA #166 036510 STA MIS2MOVE ;VERT START 036540 LDA #1 ;POSITION 036570 STA GLOBGATE 036600 LDA #3 ;INIT POKEY 036630 STA SKCTL 036660 LDA #129 036690 STA AUDCTL 036720 RTS 036750 MINEINIT ; PLOT MINES 036780 LDX #0 036810 MINELOOP CLC 036840 LDA SCREENLO 036870 ADC MINEINC,X ;INITIAL 036900 STA SCLO ;MINE 036930 INX ;COORDINATES 036960 LDA SCREENLO+1 036990 ADC MINEINC,X 037020 STA SCLO+1 037050 INX 037080 STX TSTORE4 037110 LDX #0 037140 MINELINE LDY #0 037170 MINEPLOT LDA MINEDAT,X 037200 STA (SCLO),Y ;PLOT ONE 037230 INX ;LINE OF MINE 037260 INY 037290 CPY #4 037320 BNE MINEPLOT 037350 CLC 037380 LDA SCLO ;NEXT LINE 037410 ADC #40 037440 STA SCLO 037470 LDA SCLO+1 037500 ADC #0 037530 STA SCLO+1 037560 CPX #56 037590 BNE MINELINE 037620 LDA #3 037650 STA SKCTL 037680 LDA #5 037710 STA AUDCTL 037740 LDA #156 037770 STA AUDF1 037800 LDA #157 037830 STA AUDF3 037860 LDX #0 037890 MSOUND1 STX TSTORE6 037920 CLC 037950 LDA #160 037980 ADC TSTORE6 038010 STA AUDC1 038040 LSR A 038070 STA AUDC3 038100 LDA #253 038130 STA 20 038160 LDA #0 038190 STA 19 038220 SOHOLD LDA 19 038250 CMP #1 038280 BNE SOHOLD 038310 INX 038340 CPX #16 038370 BNE MSOUND1 038400 LDA #0 038430 STA AUDC1 038460 STA AUDC3 038490 STA AUDF1 038520 STA AUDF3 038550 STA 19 038580 LDA #230 038610 STA 20 038640 SHOLD LDA 19 038670 CMP #1 038700 BNE SHOLD 038730 LDX TSTORE4 038760 CPX #4 038790 BEQ MINEFIN 038820 JMP MINELOOP 038850 MINEFIN RTS 038880 MINEINC .BYTE 75,6,89,6 038910 ; *** graphics routine *** 038940 ; load graphics # into ACCUMULATOR 038970 GRAFIC 039000 PHA ;store on stack 039030 LDX #$60 ;IOCB6 for screen 039060 LDA #$0C ;CLOSE command 039090 STA $0342,X ;in command byte 039120 JSR $E456 ;do the CLOSE 039150 LDX #$60 ;the screen again 039180 LDA #3 ;open command 039210 STA $0342,X ;in command byte 039240 LDA #NAME&255 ;name is "S:" 039270 STA $0344,X ;low byte 039300 LDA #NAME/256 ;high byte 039330 STA $0345,X 039360 PLA ;get GRAPHICS n 039390 STA $034B,X ;graphics mode 039420 AND #$F0 ;get high four bits 039450 EOR #$10 ;flip high bit 039480 ORA #$0C ;read or write 039510 STA $034A,X ;n+16,n+32 etc. 039540 JSR $E456 ;set up GRAPHICS n 039570 RTS ;all done 039600 INIT ; GENERAL INITIALIZATION OF PAGE ZERO 039630 LDX #0 039660 ZEROINIT LDA #0 039690 STA 128,X 039720 INX 039750 CPX #128 039780 BNE ZEROINIT 039810 RTS 039840 NAME .BYTE "S:",$9B 039870 PMINIT ; PM SETUP / INIT 039900 SEC ;PM GR. 039930 LDA RAMTOP ;24 PAGES 039960 SBC #24 ;BELOW RAMTOP 039990 STA PMBASE ;STORE IN PMBASE 040020 STA PMSETUP ;AND ITS SHADOW 040050 LDA #46 ;DOUBLE LINE RES 040080 STA SDMCTL 040110 LDA #56 ;PRIOR 8+16+32 040140 STA GPRIOR 040170 LDA #0 ;SINGLE WIDTH 040200 STA 53256 ;FOR P0 & P1 040230 STA 53257 ;& MISSILES 040260 STA 53260 040290 LDA #1 ;DOUBL WIDTH 040320 STA 53258 ;FOR P2 & P3 040350 STA 53259 040380 CLC ;VERTICAL 040410 LDA PMSETUP ;MISSILE 040440 ADC #1 ;STARTING 040470 STA MIS0MOVE+1 ;POSITION 040500 STA MIS1MOVE+1 ;HIGH BYTE 040530 STA MIS2MOVE+1 040560 ADC #1 ;PM0 - PM1 040590 STA PM0MOVE+1 ;VERT HIGH 040620 STA PM1MOVE+1 ;BYTE START 040650 ADC #1 ;PM2 - PM3 040680 STA PM2MOVE+1 ;VERT HIGH 040710 STA PM3MOVE+1 ;BYTE START 040740 STA PM2AUX+1 ;PM2 - PM3 040770 STA PM3AUX+1 ;AUX. HIGH 040800 LDA #3 ;ENABLE PM/GR 040830 STA GRACTL 040860 CLEARPM LDY #0 ;CLEAR PM 040890 LDA #0 ;MEMORY 040920 STA SCLO 040950 LDA PMSETUP 040980 STA SCLO+1 041010 PMCLEAR LDA #0 041040 STA (SCLO),Y 041070 CLC 041100 LDA SCLO 041130 ADC #1 041160 STA SCLO 041190 LDA SCLO+1 041220 ADC #0 041250 STA SCLO+1 041280 SEC 041310 LDA SCLO+1 041340 SBC PMSETUP 041370 CMP #4 041400 BNE PMCLEAR 041430 LDA #0 ;CLEAR COLISION 041460 STA HITCLR 041490 RTS 041520 VBINIT ; VBLANK INIT 041550 LDA #DLIS 256 041580 STA 512 041610 LDA #DLIS/256 ;DLI START 041640 STA 513 041670 LDA #192 041700 STA 54286 041730 LDX #0 041760 LDY #4 041790 DLIPOKE1 TYA 041820 CLC 041850 ADC TSTORE4 041880 STA DLICOLOR1,X 041910 INY 041940 INY 041970 INX 042000 CPX #6 042030 BNE DLIPOKE1 042060 LDX #0 042090 LDY #14 042120 DLIPOKE2 TYA 042150 CLC 042180 ADC TSTORE4 042210 STA DLICOLOR2,X 042240 DEY 042270 DEY 042300 INX 042330 CPX #6 042360 BNE DLIPOKE2 042390 LDA #0 042420 STA NCOLORS 042450 LDY #VBLANK 256 ;VB START 042480 LDX #VBLANK/256 042510 LDA #7 042540 JSR SETVBV 042570 RTS 042600 SHIP ; PLAYER SHIP DATA 042630 ;[ N ] TO [ NW ] CLOCKWISE 042660 .BYTE 0,8,8,28,28,62,62,107,65,0,0,0,0,0,0,0 042690 .BYTE 0,3,15,62,254,124,28,24,8,0,0,0,0,0,0,0 042720 .BYTE 0,0,192,112,60,127,60,112,192,0,0,0,0,0,0,0 042750 .BYTE 0,8,24,28,124,254,62,15,3,0,0,0,0,0,0,0 042780 .BYTE 0,130,214,124,124,56,56,16,16,0,0,0,0,0,0,0 042810 .BYTE 0,16,24,56,62,127,124,240,192,0,0,0,0,0,0,0 042840 .BYTE 0,3,14,60,254,60,14,3,0,0,0,0,0,0,0,0 042870 .BYTE 0,192,240,124,127,62,56,24,16,0,0,0,0,0,0,0 042900 GLOB1 ; COSMIC GLOB DATA 042930 ;LEFT SIDE 042960 .BYTE 0,0,7,15,31,63,127,255,255,255,254,254,255,255,255,127,63,31,15,7,0,0 042990 GLOB2 ; RIGHT SIDE 043020 .BYTE 0,0,224,240,248,252,254,255,255,255,127,127,255,255,255,254,252,248,240,224,0,0 043050 FRAG1 ; GLOB REMAINS 043080 ;LEFT SIDE 043110 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 043140 FRAG2 ; RIGHT SIDE 043170 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 043200 MINEDAT ; MINE DATA 043230 .BYTE 0,252,63,0,3,255,255,192,15,223,247,240 043260 .BYTE 63,87,213,252,61,95,245,124,63,125,125,252,15,245,95,240 043290 .BYTE 15,245,95,240,63,125,125,252,61,95,245,124,63,87,213,252 043320 .BYTE 15,223,247,240,3,255,255,192,0,252,63,0,0,0,0,0,0,0,0,0 043350 CHARDAT ; CHARACTER DATA 043380 .BYTE 0,0,0,0,0,0,0,0 043410 .BYTE 56,56,56,56,56,0,56,0 043440 .BYTE 102,102,102,0,0,0,0,0 043470 .BYTE 108,254,108,108,108,254,108,0 043500 .BYTE 56,254,224,254,6,254,56,0 043530 .BYTE 230,238,28,56,112,238,206,0 043560 .BYTE 124,108,104,248,222,204,246,0 043590 .BYTE 56,56,56,0,0,0,0,0 043620 .BYTE 28,56,48,48,48,56,28,0 043650 .BYTE 56,28,12,12,12,28,56,0 043680 .BYTE 108,56,254,124,254,56,108,0 043710 .BYTE 24,24,24,255,24,24,24,0 043740 .BYTE 0,0,0,0,56,56,120,0 043770 .BYTE 0,0,0,254,0,0,0,0 043800 .BYTE 0,0,0,0,0,56,56,0 043830 .BYTE 4,14,28,56,112,224,64,0 043860 .BYTE 254,230,230,230,246,246,254,0 043890 .BYTE 248,24,24,24,24,248,254,0 043920 .BYTE 254,198,6,254,224,224,254,0 043950 .BYTE 254,14,14,126,14,14,254,0 043980 .BYTE 230,230,230,254,6,6,6,0 044010 .BYTE 254,224,224,254,6,198,254,0 044040 .BYTE 254,230,224,254,230,230,254,0 044070 .BYTE 254,206,14,14,14,14,14,0 044100 .BYTE 254,230,230,254,230,230,254,0 044130 .BYTE 254,206,206,254,14,206,254,0 044160 .BYTE 0,56,56,0,56,56,0,0 044190 .BYTE 0,56,56,0,56,56,120,0 044220 .BYTE 14,28,56,252,56,28,14,0 044250 .BYTE 0,0,254,0,0,254,0,0 044280 .BYTE 224,112,56,126,56,112,224,0 044310 .BYTE 254,198,6,62,56,0,56,0 044340 .BYTE 254,230,230,238,238,224,254,0 044370 .BYTE 254,230,230,254,230,230,230,0 044400 .BYTE 254,230,230,252,230,230,254,0 044430 .BYTE 254,230,224,224,224,230,254,0 044460 .BYTE 252,230,230,230,230,230,252,0 044490 .BYTE 254,224,224,252,224,224,254,0 044520 .BYTE 254,224,224,252,224,224,224,0 044550 .BYTE 254,224,224,238,230,230,254,0 044580 .BYTE 230,230,230,254,230,230,230,0 044610 .BYTE 254,56,56,56,56,56,254,0 044640 .BYTE 0,14,14,14,14,206,254,0 044670 .BYTE 230,230,230,252,230,230,230,0 044700 .BYTE 224,224,224,224,224,224,254,0 044730 .BYTE 254,214,214,198,198,198,198,0 044760 .BYTE 254,230,230,230,230,230,230,0 044790 .BYTE 254,230,230,230,230,230,254,0 044820 .BYTE 254,230,230,254,224,224,224,0 044850 .BYTE 254,230,230,230,230,238,252,0 044880 .BYTE 254,230,230,252,230,230,230,0 044910 .BYTE 254,230,224,254,6,198,254,0 044940 .BYTE 254,56,56,56,56,56,56,0 044970 .BYTE 230,230,230,230,230,230,254,0 045000 .BYTE 230,230,230,230,230,124,56,0 045030 .BYTE 198,198,198,198,214,214,254,0 045060 .BYTE 198,198,124,124,124,198,198,0 045090 .BYTE 230,230,230,254,24,24,24,0 045120 .BYTE 254,14,28,56,112,224,254,0 045150 .BYTE 124,112,112,112,112,112,124,0 045180 .BYTE 64,224,112,56,28,14,4,0 045210 .BYTE 62,14,14,14,14,14,62,0 045240 .BYTE 16,56,124,238,198,0,0,0 045270 .BYTE 0,0,0,0,0,0,255,0 045300 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 045330 GLOBEND 045360 .END