Home » Personal collection » Commodore disks » disk47a_unlabelled.d64 » main 17.4.95

main 17.4.95

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Commodore disks » disk47a_unlabelled.d64
Filename: main 17.4.95
Read OK:
File size: 11A3 bytes
Load address: 0801
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    10 ; CRYSTAL LIGHT - MAIN PROGRAM
    20 ; BY DOMINIC FORD
    30 ; DECEMBER '94 -
    40 *=$C000
  1000 ; VARIABLES
  1005 DEAD=$CF40
  1010 CLOCK=$CF41
  1020 EFDAT=$CF42
  1030 NWAIT=$CF43
  1040 MHI=$3F
  1050 VDAT=$BC01
  1060 DATA=$CF45
  1070 ;XP=$CF44
  1080 ;YP=$CF47
  1090 MEMS=$41
  1100 XP=$22
  1105 YP=$23
  1110 BT=$CF48
  1120 XPS=$CF49
  1130 YPS=$CF4A
  1140 ;MEMRS=$CF4B
  1150 ;XPTL=$CF4C
  1160 DALL=$CF4D
  1170 XSSTE=$CF4E
  1180 YSSTE=$CF4F
  1190 COLCH=$CF50
  1200 SCRNO=$CF51
  1210 ASTORE=$CF52
  1220 XSTORE=$CF53
  1230 YSTORE=$CF54
  1240 IRQCONT=$CF55
  1250 ILSTATE=$CF57
  2000 ; MUSIC ROUTINES
  2005 MUSON SEI
  2010 LDA #<MDATAPLAY
  2020 STA IRQCONT
  2030 LDA #>MDATAPLAY
  2040 STA IRQCONT+1
  2050 LDA DATA
  2060 STA MHI+1
  2070 LDA DATA+1
  2080 STA MHI
  2090 LDA #$00
  2100 STA NWAIT
  2110 JSR SCNCLRUP
  2120 CLI
  2130 RTS
  2140 MUSOFF SEI
  2150 LDA #$31
  2160 STA IRQCONT
  2170 LDA #$EA
  2180 STA IRQCONT+1
  2190 CLI
  2200 RTS
  2210 MDATAPLAY JSR STACK
  2220 LDA NWAIT
  2230 BEQ READ
  2240 JMP $EA31
  2250 READ LDY #$00
  2260 LDA (MHI),Y
  2270 AND #$01
  2280 BEQ CONTMA
  2290 LDA #$07
  2300 CONTMA TAX
  2310 LDA (MHI),Y
  2320 LSR A
  2330 STA NWAIT
  2340 CMP #$06
  2350 BNE MRCONT
  2360 LDA VDAT,X
  2370 STA $D404,X
  2380 TAY
  2390 INY
  2400 TYA
  2410 STA $D404,X
  2420 JSR DESTACK
  2430 JMP $EA31
  2440 STACK STA ASTORE
  2450 STX XSTORE
  2460 STY YSTORE
  2490 RTS
  2500 DESTACK JSR EFFECTS
  2510 UNSTACK LDA ASTORE
  2520 LDX XSTORE
  2530 LDY YSTORE
  2560 RTS
  2570 MRCONT INY
  2580 LDA (MHI),Y
  2590 STA $D400,X
  2600 INY
  2610 LDA (MHI),Y
  2620 STA $D401,X
  2630 JSR DESTACK
  2640 JMP $EA31
  2650 SCNCLRUP LDX VDAT
  2660 INX
  2670 STX $D404
  2680 LDX VDAT+7
  2690 INX
  2700 STX $D40B
  2710 RTS
  2720 EFFECTSON SEI
  2730 LDA #<EFFONLY
  2740 STA $0314
  2750 LDA #>EFFONLY
  2760 STA $0315
  2770 CLI
  2780 RTS
  2790 EFFONLY JSR STACK
  2800 JSR DESTACK
  2810 JMP $EA31
  3000 ; MAIN GAME LOOP
  3005 MAIN LDA #$00
  3010 STA DEAD
  3020 STA EFDAT
  3030 JSR MUSON
  3040 JSR FULLSDISP
  3050 LDA $A2
  3060 CLC
  3070 ADC CLOCK
  3080 STA CLOCK
  3090 MAINLOP JSR YOU
  3100 JSR MONSTERS
  3110 JSR PANEL
  3120 LDA DEAD
  3130 BNE GAMEOVER
  3140 LDA CLOCK
  3150 TRLOP CMP $A2
  3160 BCC TRLOP
  3170 CLC
  3180 ADC #$03
  3190 STA CLOCK
  3200 JMP MAINLOP
  3210 GAMEOVER JSR GAMEND
  4000 ; GRAPHIC ROUTINES
  4005 DISPBLOCK JSR STACK
  4007 JSR INITDB
  4010 LDX YPS
  4020 YPLOPD CPX #$00
  4030 BEQ YPDCNT
  4040 DEX
  4050 LDA MEMS
  4060 CLC
  4070 ADC #$50
  4082 STA MEMS
  4090 BCC YPLOPD
  4100 INC MEMS+1
  4110 JMP YPLOPD
  4120 YPDCNT LDA XPS
  4130 ASL A
  4140 CLC
  4150 ADC MEMS
  4160 STA MEMS
  4170 BCC XPCNT
  4180 INC MEMS+1
  4310 XPCNT LDA (XP),Y
  4320 STA BT
  4325 LDX COLCH
  4330 ASL A
  4335 BNE COLOUR
  4340 STA (MEMS),Y
  4343 LDX DALL
  4346 BNE CHARCONA
  4350 CLC
  4360 ADC #$01
  4370 INY
  4380 STA (MEMS),Y
  4390 CLC
  4400 ADC #$1F
  4410 LDY #$28
  4420 CHARCONA STA (MEMS),Y
  4423 LDX DALL
  4426 BNE COLCONB
  4430 CLC
  4440 ADC #$01
  4450 INY
  4460 STA (MEMS),Y
  4465 JMP UNSTACK
  4470 COLOUR LDA MEMS+1
  4480 CLC
  4490 ADC #$54
  4500 STA MEMS+1
  4510 LDY #$00
  4520 LDA BT
  4530 STA (MEMS),Y
  4533 LDX DALL
  4536 BNE COLCONA
  4540 INY
  4550 STA (MEMS),Y
  4560 LDY #$28
  4570 COLCONA STA (MEMS),Y
  4573 LDX DALL
  4576 BNE COLCONB
  4580 INY
  4590 STA (MEMS),Y
  4600 COLCOMB JMP UNSTACK
  4610 INITDB LDA #$04 ; CHANGE TO #$98
  4620 STA MEMS+1
  4630 LDY #$00
  4640 STY MEMS
  4650 RST RTS
  5000 ; SCROLLING ROUTINES
  5010 LSCROLL JSR STACK
  5020 LDX XSSTE
  5030 INX
  5040 TXA
  5050 AND #$07
  5060 STA XSSTE
  5070 CLC
  5080 ADC #$10
  5090 STA $D016
  5100 CMP #$14
  5110 BEQ LSCRSCL
  5140 CMP #$10
  5150 BNE RST
  5160 LDX SCRNO
  5170 INX
  5172 LDA $D018
  5175 AND #$15
  5177 STA $D018
  5180 TXA
  5190 AND #$01
  5200 STA SCRNO
  5210 ASL A
  5220 ASL A
  5230 ASL A
  5240 ASL A
  5250 CLC
  5260 ADC #$60
  5280 ORA $D018
  5290 STA $D018
  5300 LDA #$01
  5310 STA $FB
  5320 LDY #$00
  5330 STY $FD
  5340 LDA $D8
  5350 STA $FC
  5360 STA $FE
  5362 LDA #$01
  5365 STA DALL
  5370 JSR SCLDISP
  5380 LSLOP LDA ($FB),Y
  5390 STA ($FD),Y
  5400 INY
  5410 BNE LSLOP
  5420 INC $FC
  5430 INC $FE
  5440 LDA $FC
  5450 CMP #$DC
  5460 BNE LSLOP
  5470 LDX SCRNO
  5480 INX
  5490 TXA
  5500 AND #$01
  5510 STA SCRNO
  5512 LDA #$00
  5515 STA DALL
  5520 JSR SCLDISP
  5530 JMP UNSTACK
  5540 SCLDISP LDA SCRNO
  5550 BEQ SCLDG
  5560 RTS
  5570 SCLDG LDX #$00
  5580 LDA DALL
  5590 BNE SCLDBF
  5600 SCLDAT STX YPS
  5610 LDA #$13
  5620 STA XPS
  5630 JSR DISPBLOCK
  5640 INX
  5650 CPX #$0A
  5660 BNE SCLDAT
  5670 RTS
  5680 SCLDBF STX YPS
  5690 LDA #$00
  5700 STA XPS
  5710 JSR DISPBLOCK
  5720 INX
  5730 CPX #$0A
  5740 BNE SCLDBF
  5750 RTS
  9000 ; INTERLACING ROUTINES
  9010 ILACEON SEI
  9020 LDA #<INTERLACE
  9030 STA $0314
  9040 LDA #>INTERLACE
  9050 STA $0315
  9060 CLI
  9070 RTS
  9080 ILACEOFF SEI
  9090 LDA #<ILACEQUIT
  9100 STA $0314
  9110 LDA #>ILACEQUIT
  9120 STA $0315
  9130 LDA #$64
  9140 STA $D018
  9150 CLI
  9160 RTS
  9170 INTERLACE LDA ILSTATE
  9180 BEQ INZERO
  9190 LDA #$00
  9200 STA ILSTATE
  9210 LDA #$62
  9220 STA $D018
  9230 LDA #$15
  9240 STA $D016
  9250 ILACEQUIT JMP (IRQCONT)
  9260 INZERO INC ILSTATE
  9270 LDA #$60
  9280 STA $D018
  9290 LDA #$14
  9300 STA $D016
  9310 JMP (IRQCONT)
 10000 ; TEMP ROUTINES
 10001 EFFECTS NOP
 10002 FULLSDISP NOP
 10003 YOU NOP
 10004 MONSTERS NOP
 10005 PANEL NOP
 10006 GAMEND NOP

$
; CRYSTAL LIGHT � MAIN PROGRAM:; BY DOMINIC FORDO; DECEMBER '94 -[(��$C000k�; VARIABLESz�DEAD�$CF40��CLOCK�$CF41��EFDAT�$CF42�N��$CF43�MHI�$3F�VDAT�$BC01�$�=$CF45�.;XP�$CF44�8;YP�$CF47�BMEMS�$41	LXP�$22
	QYP�$23	VBT�$CF48(	`XPS�$CF496	jYPS�$CF4AG	t;MEMRS�$CF4BW	~;XPTL�$CF4Cf	�DALL�$CF4Dv	�XSSTE�$CF4E�	�YSSTE�$CF4F�	�COLCH�$CF50�	�SCRNO�$CF51�	�AS�RE�$CF52�	�XS�RE�$CF53�	�YS�RE�$CF54�	�IRQ��$CF55�	�ILSTATE�$CF57
�; MUSIC ROUTINES
�MUS� SEI*
�LDA #�M�PLAY7
�STA IRQ�H
�LDA #�M�PLAYW
�STA IRQ��1a
LDA �o
STA MHI�1{
LDA �+1�
 STA MHI�
*LDA #$00�
4STA N��
>JSR �UP�
HCLI�
RRTS�
\MUSOFF SEI�
fLDA #$31�
pSTA IRQ��
zLDA #$EA�STA IRQ��1�CLI�RTS%�M�PLAY JSR STACK0�LDA N�:�BEQ �H�JMP $EA31W�� LDY #$00g�LDA (MHI),Yr�� #$01~�BEQ �MA��LDA #$07���MA TAX�	LDA (MHI),Y�	LSR A�	STA N��$	CMP #$06�.	BNE MR��8	LDA VDAT,X�B	STA $D404,X�L	TAYV	INY`	TYAj	STA $D404,X,t	JSR DESTACK:~	JMP $EA31N�	STACK STA AS�RE\�	STX XS�REj�	STY YS�REr�	RTS��	DESTACK JSR EFFECTS��	UNSTACK LDA AS�RE��	LDX XS�RE��	LDY YS�RE�
RTS�

MR� INY�
LDA (MHI),Y�
STA $D400,X�(
INY
2
LDA (MHI),Y
<
STA $D401,X(
F
JSR DESTACK6
P
JMP $EA31G
Z
�UP LDX VDATO
d
INX]
n
STX $D404l
x
LDX VDAT�7t
�
INX�
�
STX $D40B�
�
RTS�
�
EFFECTS� SEI�
�
LDA #�EFF�LY�
�
STA $0314�
�
LDA #�EFF�LY�
�
STA $0315�
�
CLI�
�
RTS�
�
EFF�LY JSR STACK�
JSR DESTACK�
JMP $EA311�; MAIN GAME LOOPC�MAIN LDA #$00P�STA DEAD^�STA EFDATk�JSR MUS�}�JSR FULLSDISP��LDA $A2��CLC��ADC CLOCK�STA CLOCK�MAINLOP JSR YOU�JSR M�STERS�&JSR PANEL�0LDA DEAD�:BNE GAMEOVERDLDA CLOCKNTRLOP CMP $A2+XBCC TRLOP3bCLC@lADC #$03NvSTA CLOCK^�JMP MAINLOPt�GAMEOVER JSR GAM���; GRAPHIC ROUTINES��DISPBLOCK JSR STACK��JSR INITDB��LDX YPS��YPLOPD CPX #$00��BEQ YPDCNT��DEX��LDA MEMS��CLC�ADC #$50�STA MEMS'�BCC YPLOPD6INC MEMS�1EJMP YPLOPDXYPDCNT LDA XPSb"ASL Aj,CLCw6ADC MEMS�@STA MEMS�JBCC XPCNT�TINC MEMS�1��XPCNT LDA (XP),Y��STA BT��LDX COLCH��ASL A��BNE COLOUR��STA (MEMS),Y�LDX DALL�BNE CHARC�A�CLC+ADC #$013INYDSTA (MEMS),YL&CLCY0ADC #$1Ff:LDY #$28DCHARC�A STA (MEMS),Y�GLDX DALL�JBNE COLC�B�NCLC�XADC #$01�bINY�lSTA (MEMS),Y�qJMP UNSTACK�vCOLOUR LDA MEMS�1��CLC�ADC #$54�STA MEMS�1 �LDY #$00+�LDA BT<�STA (MEMS),YI�LDX DALLX�BNE COLC�A`�INYq�STA (MEMS),Y~�LDY #$28��COLC�A STA (MEMS),Y��LDX DALL��BNE COLC�B��INY��STA (MEMS),Y��COLCOMB JMP UNSTACKINITDB LDA #$04 ; CHANGE � #$98STA MEMS�1#LDY #$000 STY MEMS<*RST RTSU�; SCROLLING ROUTINESk�LSCROLL JSR STACKy�LDX XSSTE��INX��TXA��� #$07��STA XSSTE��CLC��ADC #$10��STA $D016��CMP #$14��BEQ LSCRSCL�CMP #$10�BNE RST	(LDX SCRNO2INX4LDA $D018*7� #$1589STA $D018@<TXAKF� #$01YPSTA SCRNOcZASL AmdASL AwnASL A�xASL A��CLC��ADC #$60���A $D018��STA $D018��LDA #$01��STA $FB��LDY #$00��STY $FD��LDA $D8��STA $FC�STA $FE�LDA #$01!�STA DALL1�JSR SCLDISPGLSLOP LDA ($FB),YWSTA ($FD),Y_INYm"BNE LSLOPy,INC $FC�6INC $FE�@LDA $FC�JCMP #$DC�TBNE LSLOP�^LDX SCRNO�hINX�rTXA�|� #$01��STA SCRNO��LDA #$00��STA DALL
�JSR SCLDISP�JMP UNSTACK3�SCLDISP LDA SCRNOA�BEQ SCLDGI�RTS\�SCLDG LDX #$00i�LDA DALLx�BNE SCLDBF��SCLDAT STX YPS��LDA #$13��STA XPS��JSR DISPBLOCK�INX�CPX #$0A�BNE SCLDAT�&RTS�0SCLDBF STX YPS:LDA #$00DSTA XPS NJSR DISPBLOCK(XINX5bCPX #$0ADlBNE SCLDBFLvRTSg(#; INTERLACING ROUTINESv2#ILACE� SEI�<#LDA #��ERLACE�F#STA $0314�P#LDA #��ERLACE�Z#STA $0315�d#CLI�n#RTS�x#ILACEOFF SEI��#LDA #�ILACEQUIT��#STA $0314
�#LDA #�ILACEQUIT�#STA $0315(�#LDA #$646�#STA $D018>�#CLIF�#RTS^�#�ERLACE LDA ILSTATEm�#BEQ INZEROz�#LDA #$00��#STA ILSTATE��#LDA #$62�$STA $D018�$LDA #$15�$STA $D016�"$ILACEQUIT JMP (IRQ�)�,$INZERO INC ILSTATE�6$LDA #$60@$STA $D018J$LDA #$14&T$STA $D0165^$JMP (IRQ�)I'; TEMP ROUTINESY'EFFECTS NOPk'FULLSDISP NOPw'YOU NOP�'M�STERS NOP�'PANEL NOP�'GAM� NOP
$HJ@; crystal light . main program@:HT@; by dominic ford@oH.@; december '94 -@[H(@..$c000@KH.C; variables@ZH.Cdead.$cf40@.H.Cclock.$cf41@.H.Cefdat.$cf42@.HFDn..$cf43@.HPDmhi.$3f@.HZDvdat.$bc01@.H$D.=$cf45@.H.D;xp.$cf44@.H8D;yp.$cf47@.HbDmems.$41@BIlDxp.$22@MIqDyp.$23@ZIvDbt.$cf48@(I.Dxps.$cf49@6IJDyps.$cf4a@gITD;memrs.$cf4b@wI.D;xptl.$cf4c@FI.Ddall.$cf4d@VI.Dxsste.$cf4e@.I.Dysste.$cf4f@.I.Dcolch.$cf50@.I.Dscrno.$cf51@.I.Das.re.$cf52@.I.Dxs.re.$cf53@.I.Dys.re.$cf54@.I.Dirq..$cf55@.I.Dilstate.$cf57@LJ.G; music routines@YJ.Gmus. sei@*J.Glda #.m.play@7J.Gsta irq.@hJ.Glda #.m.play@wJ.Gsta irq..1@AJBHlda .@OJLHsta mhi.1@.JVHlda .+1@.J Hsta mhi@.J*Hlda #$00@.J4Hsta n.@.J>Hjsr .up@.JhHcli@.JrHrts@.J£Hmusoff sei@.JFHlda #$31@.JPHsta irq.@.JZHlda #$ea@@K.Hsta irq..1@HK.Hcli@PK.Hrts@%K.Hm.play jsr stack@0K.Hlda n.@:K.Hbeq .@hK.Hjmp $ea31@wK.H. ldy #$00@GK.Hlda (mhi),y@RK.H. #$01@.K.Hbeq .ma@.K.Hlda #$07@.K.H.ma tax@.KFIlda (mhi),y@.KPIlsr a@.KZIsta n.@.K$Icmp #$06@.K.Ibne mr.@.K8Ilda vdat,x@.KbIsta $d404,x@.KlItay@DLvIiny@LL.Itya@£LJIsta $d404,x@,LTIjsr destack@:L.Ijmp $ea31@nL.Istack sta as.re@£L.Istx xs.re@JL.Isty ys.re@RL.Irts@.L.Idestack jsr effects@.L.Iunstack lda as.re@.L.Ildx xs.re@.L.Ildy ys.re@.L@Jrts@.LJJmr. iny@.LTJlda (mhi),y@.L.Jsta $d400,x@.L(Jiny@HM2Jlda (mhi),y@XM<Jsta $d401,x@(MfJjsr destack@6MpJjmp $ea31@gMzJ.up ldx vdat@oMDJinx@]MNJstx $d404@LMXJldx vdat.7@TM.Jinx@.M.Jstx $d40b@.M.Jrts@.M.Jeffects. sei@.M.Jlda #.eff.ly@.M.Jsta $0314@.M.Jlda #.eff.ly@.M.Jsta $0315@.M.Jcli@.M.Jrts@.M.Jeff.ly jsr stack@NN.Jjsr destack@£N.Jjmp $ea31@1N.K; main game loop@cN.Kmain lda #$00@pN.Ksta dead@.N.Ksta efdat@KN.Kjsr mus.@.N.Kjsr fullsdisp@.N.Klda $a2@.N.Kclc@.N.Kadc clock@.NHLsta clock@.NRLmainlop jsr you@.N£Ljsr m.sters@.N&Ljsr panel@.N0Llda dead@.N:Lbne gameover@KOdLlda clock@]OnLtrlop cmp $a2@+OxLbcc trlop@3OBLclc@@OLLadc #$03@nOVLsta clock@.O.Ljmp mainlop@TO.Lgameover jsr gam.@.O.O; graphic routines@.O.Odispblock jsr stack@.O.Ojsr initdb@.O.Oldx yps@.O.Oyplopd cpx #$00@.O.Obeq ypdcnt@.O.Odex@.O.Olda mems@.O.Oclc@KP.Oadc #$50@XP.Osta mems@'P.Obcc yplopd@6PDPinc mems.1@ePNPjmp yplopd@xPXPypdcnt lda xps@BP"Pasl a@JP,Pclc@WP6Padc mems@.P@Psta mems@.PjPbcc xpcnt@.PtPinc mems.1@.P.Pxpcnt lda (xp),y@.P.Psta bt@.P.Pldx colch@.P.Pasl a@.P.Pbne colour@.P.Psta (mems),y@FQ.Pldx dall@VQ.Pbne charc.a@.Q.Pclc@+QHQadc #$01@3QRQiny@dQ£Qsta (mems),y@lQ&Qclc@yQ0Qadc #$1f@FQ:Qldy #$28@.QdQcharc.a sta (mems),y@.QgQldx dall@.QjQbne colc.b@.QnQclc@.QxQadc #$01@.QBQiny@.QLQsta (mems),y@.QQQjmp unstack@.QVQcolour lda mems.1@.Q.Qclc@DR.Qadc #$54@SR.Qsta mems.1@ R.Qldy #$00@+R.Qlda bt@<R.Qsta (mems),y@iR.Qldx dall@xR.Qbne colc.a@.R.Qiny@QR.Qsta (mems),y@.R.Qldy #$28@.R.Qcolc.a sta (mems),y@.R.Qldx dall@.R.Qbne colc.b@.R.Qiny@.R.Qsta (mems),y@.R.Qcolcomb jmp unstack@GSBRinitdb lda #$04 ; change . #$98@VSLRsta mems.1@#SVRldy #$00@0S Rsty mems@<S*Rrst rts@uS.S; scrolling routines@KS.Slscroll jsr stack@YS.Sldx xsste@.S.Sinx@.S.Stxa@.S.S. #$07@.S.Ssta xsste@.S.Sclc@.S.Sadc #$10@.S.Ssta $d016@.S.Scmp #$14@.S.Sbeq lscrscl@.STTcmp #$10@.S.Tbne rst@IT(Tldx scrno@QT2Tinx@.T4Tlda $d018@*T7T. #$15@8T9Tsta $d018@@T<Ttxa@kTfT. #$01@yTpTsta scrno@CTzTasl a@MTDTasl a@WTNTasl a@.TXTasl a@.T.Tclc@.T.Tadc #$60@.T.T.a $d018@.T.Tsta $d018@.T.Tlda #$01@.T.Tsta $fb@.T.Tldy #$00@.T.Tsty $fd@.T.Tlda $d8@.T.Tsta $fc@GU.Tsta $fe@TU.Tlda #$01@!U.Tsta dall@1U.Tjsr scldisp@gUDUlslop lda ($fb),y@wUNUsta ($fd),y@.UXUiny@MU"Ubne lslop@YU,Uinc $fc@.U6Uinc $fe@.U@Ulda $fc@.UjUcmp #$dc@.UtUbne lslop@.U.Uldx scrno@.UHUinx@.URUtxa@.U.U. #$01@.U.Usta scrno@.U.Ulda #$00@.U.Usta dall@MV.Ujsr scldisp@]V.Ujmp unstack@3V.Uscldisp lda scrno@aV.Ubeq scldg@iV.Urts@£V.Uscldg ldx #$00@IV.Ulda dall@XV.Ubne scldbf@.V.Uscldat stx yps@.V.Ulda #$13@.V.Usta xps@.V.Ujsr dispblock@.VHVinx@.VRVcpx #$0a@.V£Vbne scldat@.V&Vrts@.V0Vscldbf stx yps@BW:Vlda #$00@NWdVsta xps@ WnVjsr dispblock@(WxVinx@5WBVcpx #$0a@dWLVbne scldbf@lWVVrts@GW(#; interlacing routines@VW2#ilace. sei@.W<#lda #..erlace@.Wf#sta $0314@.Wp#lda #..erlace@.Wz#sta $0315@.WD#cli@.WN#rts@.WX#ilaceoff sei@.W.#lda #.ilacequit@.W.#sta $0314@MX.#lda #.ilacequit@[X.#sta $0315@(X.#lda #$64@6X.#sta $d018@>X.#cli@fX.#rts@.X.#.erlace lda ilstate@MX.#beq inzero@ZX.#lda #$00@.X.#sta ilstate@.X.#lda #$62@.XD$sta $d018@.XN$lda #$15@.XX$sta $d016@.X"$ilacequit jmp (irq.)@.X,$inzero inc ilstate@.X6$lda #$60@KY@$sta $d018@XYj$lda #$14@&Yt$sta $d016@5Y.$jmp (irq.)@iYP'; temp routines@yYQ'effects nop@KYR'fullsdisp nop@WYS'you nop@.YT'm.sters nop@.YU'panel nop@.YV'gam. nop@@@
00000000  24 08 0a 00 3b 20 43 52  59 53 54 41 4c 20 4c 49  |$...; CRYSTAL LI|
00000010  47 48 54 20 ab 20 4d 41  49 4e 20 50 52 4f 47 52  |GHT . MAIN PROGR|
00000020  41 4d 00 3a 08 14 00 3b  20 42 59 20 44 4f 4d 49  |AM.:...; BY DOMI|
00000030  4e 49 43 20 46 4f 52 44  00 4f 08 1e 00 3b 20 44  |NIC FORD.O...; D|
00000040  45 43 45 4d 42 45 52 20  27 39 34 20 2d 00 5b 08  |ECEMBER '94 -.[.|
00000050  28 00 ac b2 24 43 30 30  30 00 6b 08 e8 03 3b 20  |(...$C000.k...; |
00000060  56 41 52 49 41 42 4c 45  53 00 7a 08 ed 03 44 45  |VARIABLES.z...DE|
00000070  41 44 b2 24 43 46 34 30  00 8a 08 f2 03 43 4c 4f  |AD.$CF40.....CLO|
00000080  43 4b b2 24 43 46 34 31  00 9a 08 fc 03 45 46 44  |CK.$CF41.....EFD|
00000090  41 54 b2 24 43 46 34 32  00 a7 08 06 04 4e 92 b2  |AT.$CF42.....N..|
000000a0  24 43 46 34 33 00 b3 08  10 04 4d 48 49 b2 24 33  |$CF43.....MHI.$3|
000000b0  46 00 c2 08 1a 04 56 44  41 54 b2 24 42 43 30 31  |F.....VDAT.$BC01|
000000c0  00 ce 08 24 04 83 3d 24  43 46 34 35 00 dc 08 2e  |...$..=$CF45....|
000000d0  04 3b 58 50 b2 24 43 46  34 34 00 ea 08 38 04 3b  |.;XP.$CF44...8.;|
000000e0  59 50 b2 24 43 46 34 37  00 f7 08 42 04 4d 45 4d  |YP.$CF47...B.MEM|
000000f0  53 b2 24 34 31 00 02 09  4c 04 58 50 b2 24 32 32  |S.$41...L.XP.$22|
00000100  00 0d 09 51 04 59 50 b2  24 32 33 00 1a 09 56 04  |...Q.YP.$23...V.|
00000110  42 54 b2 24 43 46 34 38  00 28 09 60 04 58 50 53  |BT.$CF48.(.`.XPS|
00000120  b2 24 43 46 34 39 00 36  09 6a 04 59 50 53 b2 24  |.$CF49.6.j.YPS.$|
00000130  43 46 34 41 00 47 09 74  04 3b 4d 45 4d 52 53 b2  |CF4A.G.t.;MEMRS.|
00000140  24 43 46 34 42 00 57 09  7e 04 3b 58 50 54 4c b2  |$CF4B.W.~.;XPTL.|
00000150  24 43 46 34 43 00 66 09  88 04 44 41 4c 4c b2 24  |$CF4C.f...DALL.$|
00000160  43 46 34 44 00 76 09 92  04 58 53 53 54 45 b2 24  |CF4D.v...XSSTE.$|
00000170  43 46 34 45 00 86 09 9c  04 59 53 53 54 45 b2 24  |CF4E.....YSSTE.$|
00000180  43 46 34 46 00 96 09 a6  04 43 4f 4c 43 48 b2 24  |CF4F.....COLCH.$|
00000190  43 46 35 30 00 a6 09 b0  04 53 43 52 4e 4f b2 24  |CF50.....SCRNO.$|
000001a0  43 46 35 31 00 b6 09 ba  04 41 53 a4 52 45 b2 24  |CF51.....AS.RE.$|
000001b0  43 46 35 32 00 c6 09 c4  04 58 53 a4 52 45 b2 24  |CF52.....XS.RE.$|
000001c0  43 46 35 33 00 d6 09 ce  04 59 53 a4 52 45 b2 24  |CF53.....YS.RE.$|
000001d0  43 46 35 34 00 e5 09 d8  04 49 52 51 9a b2 24 43  |CF54.....IRQ..$C|
000001e0  46 35 35 00 f7 09 e2 04  49 4c 53 54 41 54 45 b2  |F55.....ILSTATE.|
000001f0  24 43 46 35 37 00 0c 0a  d0 07 3b 20 4d 55 53 49  |$CF57.....; MUSI|
00000200  43 20 52 4f 55 54 49 4e  45 53 00 19 0a d5 07 4d  |C ROUTINES.....M|
00000210  55 53 91 20 53 45 49 00  2a 0a da 07 4c 44 41 20  |US. SEI.*...LDA |
00000220  23 b3 4d 83 50 4c 41 59  00 37 0a e4 07 53 54 41  |#.M.PLAY.7...STA|
00000230  20 49 52 51 9a 00 48 0a  ee 07 4c 44 41 20 23 b1  | IRQ..H...LDA #.|
00000240  4d 83 50 4c 41 59 00 57  0a f8 07 53 54 41 20 49  |M.PLAY.W...STA I|
00000250  52 51 9a aa 31 00 61 0a  02 08 4c 44 41 20 83 00  |RQ..1.a...LDA ..|
00000260  6f 0a 0c 08 53 54 41 20  4d 48 49 aa 31 00 7b 0a  |o...STA MHI.1.{.|
00000270  16 08 4c 44 41 20 83 2b  31 00 87 0a 20 08 53 54  |..LDA .+1... .ST|
00000280  41 20 4d 48 49 00 94 0a  2a 08 4c 44 41 20 23 24  |A MHI...*.LDA #$|
00000290  30 30 00 9f 0a 34 08 53  54 41 20 4e 92 00 ab 0a  |00...4.STA N....|
000002a0  3e 08 4a 53 52 20 e8 55  50 00 b3 0a 48 08 43 4c  |>.JSR .UP...H.CL|
000002b0  49 00 bb 0a 52 08 52 54  53 00 ca 0a 5c 08 4d 55  |I...R.RTS...\.MU|
000002c0  53 4f 46 46 20 53 45 49  00 d7 0a 66 08 4c 44 41  |SOFF SEI...f.LDA|
000002d0  20 23 24 33 31 00 e4 0a  70 08 53 54 41 20 49 52  | #$31...p.STA IR|
000002e0  51 9a 00 f1 0a 7a 08 4c  44 41 20 23 24 45 41 00  |Q....z.LDA #$EA.|
000002f0  00 0b 84 08 53 54 41 20  49 52 51 9a aa 31 00 08  |....STA IRQ..1..|
00000300  0b 8e 08 43 4c 49 00 10  0b 98 08 52 54 53 00 25  |...CLI.....RTS.%|
00000310  0b a2 08 4d 83 50 4c 41  59 20 4a 53 52 20 53 54  |...M.PLAY JSR ST|
00000320  41 43 4b 00 30 0b ac 08  4c 44 41 20 4e 92 00 3a  |ACK.0...LDA N..:|
00000330  0b b6 08 42 45 51 20 87  00 48 0b c0 08 4a 4d 50  |...BEQ ..H...JMP|
00000340  20 24 45 41 33 31 00 57  0b ca 08 87 20 4c 44 59  | $EA31.W.... LDY|
00000350  20 23 24 30 30 00 67 0b  d4 08 4c 44 41 20 28 4d  | #$00.g...LDA (M|
00000360  48 49 29 2c 59 00 72 0b  de 08 af 20 23 24 30 31  |HI),Y.r.... #$01|
00000370  00 7e 0b e8 08 42 45 51  20 9a 4d 41 00 8b 0b f2  |.~...BEQ .MA....|
00000380  08 4c 44 41 20 23 24 30  37 00 97 0b fc 08 9a 4d  |.LDA #$07......M|
00000390  41 20 54 41 58 00 a7 0b  06 09 4c 44 41 20 28 4d  |A TAX.....LDA (M|
000003a0  48 49 29 2c 59 00 b1 0b  10 09 4c 53 52 20 41 00  |HI),Y.....LSR A.|
000003b0  bc 0b 1a 09 53 54 41 20  4e 92 00 c9 0b 24 09 43  |....STA N....$.C|
000003c0  4d 50 20 23 24 30 36 00  d5 0b 2e 09 42 4e 45 20  |MP #$06.....BNE |
000003d0  4d 52 9a 00 e4 0b 38 09  4c 44 41 20 56 44 41 54  |MR....8.LDA VDAT|
000003e0  2c 58 00 f4 0b 42 09 53  54 41 20 24 44 34 30 34  |,X...B.STA $D404|
000003f0  2c 58 00 fc 0b 4c 09 54  41 59 00 04 0c 56 09 49  |,X...L.TAY...V.I|
00000400  4e 59 00 0c 0c 60 09 54  59 41 00 1c 0c 6a 09 53  |NY...`.TYA...j.S|
00000410  54 41 20 24 44 34 30 34  2c 58 00 2c 0c 74 09 4a  |TA $D404,X.,.t.J|
00000420  53 52 20 44 45 53 54 41  43 4b 00 3a 0c 7e 09 4a  |SR DESTACK.:.~.J|
00000430  4d 50 20 24 45 41 33 31  00 4e 0c 88 09 53 54 41  |MP $EA31.N...STA|
00000440  43 4b 20 53 54 41 20 41  53 a4 52 45 00 5c 0c 92  |CK STA AS.RE.\..|
00000450  09 53 54 58 20 58 53 a4  52 45 00 6a 0c 9c 09 53  |.STX XS.RE.j...S|
00000460  54 59 20 59 53 a4 52 45  00 72 0c ba 09 52 54 53  |TY YS.RE.r...RTS|
00000470  00 8a 0c c4 09 44 45 53  54 41 43 4b 20 4a 53 52  |.....DESTACK JSR|
00000480  20 45 46 46 45 43 54 53  00 a0 0c ce 09 55 4e 53  | EFFECTS.....UNS|
00000490  54 41 43 4b 20 4c 44 41  20 41 53 a4 52 45 00 ae  |TACK LDA AS.RE..|
000004a0  0c d8 09 4c 44 58 20 58  53 a4 52 45 00 bc 0c e2  |...LDX XS.RE....|
000004b0  09 4c 44 59 20 59 53 a4  52 45 00 c4 0c 00 0a 52  |.LDY YS.RE.....R|
000004c0  54 53 00 d0 0c 0a 0a 4d  52 9a 20 49 4e 59 00 e0  |TS.....MR. INY..|
000004d0  0c 14 0a 4c 44 41 20 28  4d 48 49 29 2c 59 00 f0  |...LDA (MHI),Y..|
000004e0  0c 1e 0a 53 54 41 20 24  44 34 30 30 2c 58 00 f8  |...STA $D400,X..|
000004f0  0c 28 0a 49 4e 59 00 08  0d 32 0a 4c 44 41 20 28  |.(.INY...2.LDA (|
00000500  4d 48 49 29 2c 59 00 18  0d 3c 0a 53 54 41 20 24  |MHI),Y...<.STA $|
00000510  44 34 30 31 2c 58 00 28  0d 46 0a 4a 53 52 20 44  |D401,X.(.F.JSR D|
00000520  45 53 54 41 43 4b 00 36  0d 50 0a 4a 4d 50 20 24  |ESTACK.6.P.JMP $|
00000530  45 41 33 31 00 47 0d 5a  0a e8 55 50 20 4c 44 58  |EA31.G.Z..UP LDX|
00000540  20 56 44 41 54 00 4f 0d  64 0a 49 4e 58 00 5d 0d  | VDAT.O.d.INX.].|
00000550  6e 0a 53 54 58 20 24 44  34 30 34 00 6c 0d 78 0a  |n.STX $D404.l.x.|
00000560  4c 44 58 20 56 44 41 54  aa 37 00 74 0d 82 0a 49  |LDX VDAT.7.t...I|
00000570  4e 58 00 82 0d 8c 0a 53  54 58 20 24 44 34 30 42  |NX.....STX $D40B|
00000580  00 8a 0d 96 0a 52 54 53  00 9b 0d a0 0a 45 46 46  |.....RTS.....EFF|
00000590  45 43 54 53 91 20 53 45  49 00 ac 0d aa 0a 4c 44  |ECTS. SEI.....LD|
000005a0  41 20 23 b3 45 46 46 91  4c 59 00 ba 0d b4 0a 53  |A #.EFF.LY.....S|
000005b0  54 41 20 24 30 33 31 34  00 cb 0d be 0a 4c 44 41  |TA $0314.....LDA|
000005c0  20 23 b1 45 46 46 91 4c  59 00 d9 0d c8 0a 53 54  | #.EFF.LY.....ST|
000005d0  41 20 24 30 33 31 35 00  e1 0d d2 0a 43 4c 49 00  |A $0315.....CLI.|
000005e0  e9 0d dc 0a 52 54 53 00  fe 0d e6 0a 45 46 46 91  |....RTS.....EFF.|
000005f0  4c 59 20 4a 53 52 20 53  54 41 43 4b 00 0e 0e f0  |LY JSR STACK....|
00000600  0a 4a 53 52 20 44 45 53  54 41 43 4b 00 1c 0e fa  |.JSR DESTACK....|
00000610  0a 4a 4d 50 20 24 45 41  33 31 00 31 0e b8 0b 3b  |.JMP $EA31.1...;|
00000620  20 4d 41 49 4e 20 47 41  4d 45 20 4c 4f 4f 50 00  | MAIN GAME LOOP.|
00000630  43 0e bd 0b 4d 41 49 4e  20 4c 44 41 20 23 24 30  |C...MAIN LDA #$0|
00000640  30 00 50 0e c2 0b 53 54  41 20 44 45 41 44 00 5e  |0.P...STA DEAD.^|
00000650  0e cc 0b 53 54 41 20 45  46 44 41 54 00 6b 0e d6  |...STA EFDAT.k..|
00000660  0b 4a 53 52 20 4d 55 53  91 00 7d 0e e0 0b 4a 53  |.JSR MUS..}...JS|
00000670  52 20 46 55 4c 4c 53 44  49 53 50 00 89 0e ea 0b  |R FULLSDISP.....|
00000680  4c 44 41 20 24 41 32 00  91 0e f4 0b 43 4c 43 00  |LDA $A2.....CLC.|
00000690  9f 0e fe 0b 41 44 43 20  43 4c 4f 43 4b 00 ad 0e  |....ADC CLOCK...|
000006a0  08 0c 53 54 41 20 43 4c  4f 43 4b 00 c1 0e 12 0c  |..STA CLOCK.....|
000006b0  4d 41 49 4e 4c 4f 50 20  4a 53 52 20 59 4f 55 00  |MAINLOP JSR YOU.|
000006c0  d1 0e 1c 0c 4a 53 52 20  4d 91 53 54 45 52 53 00  |....JSR M.STERS.|
000006d0  df 0e 26 0c 4a 53 52 20  50 41 4e 45 4c 00 ec 0e  |..&.JSR PANEL...|
000006e0  30 0c 4c 44 41 20 44 45  41 44 00 fd 0e 3a 0c 42  |0.LDA DEAD...:.B|
000006f0  4e 45 20 47 41 4d 45 4f  56 45 52 00 0b 0f 44 0c  |NE GAMEOVER...D.|
00000700  4c 44 41 20 43 4c 4f 43  4b 00 1d 0f 4e 0c 54 52  |LDA CLOCK...N.TR|
00000710  4c 4f 50 20 43 4d 50 20  24 41 32 00 2b 0f 58 0c  |LOP CMP $A2.+.X.|
00000720  42 43 43 20 54 52 4c 4f  50 00 33 0f 62 0c 43 4c  |BCC TRLOP.3.b.CL|
00000730  43 00 40 0f 6c 0c 41 44  43 20 23 24 30 33 00 4e  |C.@.l.ADC #$03.N|
00000740  0f 76 0c 53 54 41 20 43  4c 4f 43 4b 00 5e 0f 80  |.v.STA CLOCK.^..|
00000750  0c 4a 4d 50 20 4d 41 49  4e 4c 4f 50 00 74 0f 8a  |.JMP MAINLOP.t..|
00000760  0c 47 41 4d 45 4f 56 45  52 20 4a 53 52 20 47 41  |.GAMEOVER JSR GA|
00000770  4d 80 00 8b 0f a0 0f 3b  20 47 52 41 50 48 49 43  |M......; GRAPHIC|
00000780  20 52 4f 55 54 49 4e 45  53 00 a3 0f a5 0f 44 49  | ROUTINES.....DI|
00000790  53 50 42 4c 4f 43 4b 20  4a 53 52 20 53 54 41 43  |SPBLOCK JSR STAC|
000007a0  4b 00 b2 0f a7 0f 4a 53  52 20 49 4e 49 54 44 42  |K.....JSR INITDB|
000007b0  00 be 0f aa 0f 4c 44 58  20 59 50 53 00 d2 0f b4  |.....LDX YPS....|
000007c0  0f 59 50 4c 4f 50 44 20  43 50 58 20 23 24 30 30  |.YPLOPD CPX #$00|
000007d0  00 e1 0f be 0f 42 45 51  20 59 50 44 43 4e 54 00  |.....BEQ YPDCNT.|
000007e0  e9 0f c8 0f 44 45 58 00  f6 0f d2 0f 4c 44 41 20  |....DEX.....LDA |
000007f0  4d 45 4d 53 00 fe 0f dc  0f 43 4c 43 00 0b 10 e6  |MEMS.....CLC....|
00000800  0f 41 44 43 20 23 24 35  30 00 18 10 f2 0f 53 54  |.ADC #$50.....ST|
00000810  41 20 4d 45 4d 53 00 27  10 fa 0f 42 43 43 20 59  |A MEMS.'...BCC Y|
00000820  50 4c 4f 50 44 00 36 10  04 10 49 4e 43 20 4d 45  |PLOPD.6...INC ME|
00000830  4d 53 aa 31 00 45 10 0e  10 4a 4d 50 20 59 50 4c  |MS.1.E...JMP YPL|
00000840  4f 50 44 00 58 10 18 10  59 50 44 43 4e 54 20 4c  |OPD.X...YPDCNT L|
00000850  44 41 20 58 50 53 00 62  10 22 10 41 53 4c 20 41  |DA XPS.b.".ASL A|
00000860  00 6a 10 2c 10 43 4c 43  00 77 10 36 10 41 44 43  |.j.,.CLC.w.6.ADC|
00000870  20 4d 45 4d 53 00 84 10  40 10 53 54 41 20 4d 45  | MEMS...@.STA ME|
00000880  4d 53 00 92 10 4a 10 42  43 43 20 58 50 43 4e 54  |MS...J.BCC XPCNT|
00000890  00 a1 10 54 10 49 4e 43  20 4d 45 4d 53 aa 31 00  |...T.INC MEMS.1.|
000008a0  b6 10 d6 10 58 50 43 4e  54 20 4c 44 41 20 28 58  |....XPCNT LDA (X|
000008b0  50 29 2c 59 00 c1 10 e0  10 53 54 41 20 42 54 00  |P),Y.....STA BT.|
000008c0  cf 10 e5 10 4c 44 58 20  43 4f 4c 43 48 00 d9 10  |....LDX COLCH...|
000008d0  ea 10 41 53 4c 20 41 00  e8 10 ef 10 42 4e 45 20  |..ASL A.....BNE |
000008e0  43 4f 4c 4f 55 52 00 f9  10 f4 10 53 54 41 20 28  |COLOUR.....STA (|
000008f0  4d 45 4d 53 29 2c 59 00  06 11 f7 10 4c 44 58 20  |MEMS),Y.....LDX |
00000900  44 41 4c 4c 00 16 11 fa  10 42 4e 45 20 43 48 41  |DALL.....BNE CHA|
00000910  52 43 91 41 00 1e 11 fe  10 43 4c 43 00 2b 11 08  |RC.A.....CLC.+..|
00000920  11 41 44 43 20 23 24 30  31 00 33 11 12 11 49 4e  |.ADC #$01.3...IN|
00000930  59 00 44 11 1c 11 53 54  41 20 28 4d 45 4d 53 29  |Y.D...STA (MEMS)|
00000940  2c 59 00 4c 11 26 11 43  4c 43 00 59 11 30 11 41  |,Y.L.&.CLC.Y.0.A|
00000950  44 43 20 23 24 31 46 00  66 11 3a 11 4c 44 59 20  |DC #$1F.f.:.LDY |
00000960  23 24 32 38 00 7f 11 44  11 43 48 41 52 43 91 41  |#$28...D.CHARC.A|
00000970  20 53 54 41 20 28 4d 45  4d 53 29 2c 59 00 8c 11  | STA (MEMS),Y...|
00000980  47 11 4c 44 58 20 44 41  4c 4c 00 9b 11 4a 11 42  |G.LDX DALL...J.B|
00000990  4e 45 20 43 4f 4c 43 91  42 00 a3 11 4e 11 43 4c  |NE COLC.B...N.CL|
000009a0  43 00 b0 11 58 11 41 44  43 20 23 24 30 31 00 b8  |C...X.ADC #$01..|
000009b0  11 62 11 49 4e 59 00 c9  11 6c 11 53 54 41 20 28  |.b.INY...l.STA (|
000009c0  4d 45 4d 53 29 2c 59 00  d9 11 71 11 4a 4d 50 20  |MEMS),Y...q.JMP |
000009d0  55 4e 53 54 41 43 4b 00  ef 11 76 11 43 4f 4c 4f  |UNSTACK...v.COLO|
000009e0  55 52 20 4c 44 41 20 4d  45 4d 53 aa 31 00 f7 11  |UR LDA MEMS.1...|
000009f0  80 11 43 4c 43 00 04 12  8a 11 41 44 43 20 23 24  |..CLC.....ADC #$|
00000a00  35 34 00 13 12 94 11 53  54 41 20 4d 45 4d 53 aa  |54.....STA MEMS.|
00000a10  31 00 20 12 9e 11 4c 44  59 20 23 24 30 30 00 2b  |1. ...LDY #$00.+|
00000a20  12 a8 11 4c 44 41 20 42  54 00 3c 12 b2 11 53 54  |...LDA BT.<...ST|
00000a30  41 20 28 4d 45 4d 53 29  2c 59 00 49 12 b5 11 4c  |A (MEMS),Y.I...L|
00000a40  44 58 20 44 41 4c 4c 00  58 12 b8 11 42 4e 45 20  |DX DALL.X...BNE |
00000a50  43 4f 4c 43 91 41 00 60  12 bc 11 49 4e 59 00 71  |COLC.A.`...INY.q|
00000a60  12 c6 11 53 54 41 20 28  4d 45 4d 53 29 2c 59 00  |...STA (MEMS),Y.|
00000a70  7e 12 d0 11 4c 44 59 20  23 24 32 38 00 96 12 da  |~...LDY #$28....|
00000a80  11 43 4f 4c 43 91 41 20  53 54 41 20 28 4d 45 4d  |.COLC.A STA (MEM|
00000a90  53 29 2c 59 00 a3 12 dd  11 4c 44 58 20 44 41 4c  |S),Y.....LDX DAL|
00000aa0  4c 00 b2 12 e0 11 42 4e  45 20 43 4f 4c 43 91 42  |L.....BNE COLC.B|
00000ab0  00 ba 12 e4 11 49 4e 59  00 cb 12 ee 11 53 54 41  |.....INY.....STA|
00000ac0  20 28 4d 45 4d 53 29 2c  59 00 e3 12 f8 11 43 4f  | (MEMS),Y.....CO|
00000ad0  4c 43 4f 4d 42 20 4a 4d  50 20 55 4e 53 54 41 43  |LCOMB JMP UNSTAC|
00000ae0  4b 00 07 13 02 12 49 4e  49 54 44 42 20 4c 44 41  |K.....INITDB LDA|
00000af0  20 23 24 30 34 20 3b 20  43 48 41 4e 47 45 20 a4  | #$04 ; CHANGE .|
00000b00  20 23 24 39 38 00 16 13  0c 12 53 54 41 20 4d 45  | #$98.....STA ME|
00000b10  4d 53 aa 31 00 23 13 16  12 4c 44 59 20 23 24 30  |MS.1.#...LDY #$0|
00000b20  30 00 30 13 20 12 53 54  59 20 4d 45 4d 53 00 3c  |0.0. .STY MEMS.<|
00000b30  13 2a 12 52 53 54 20 52  54 53 00 55 13 88 13 3b  |.*.RST RTS.U...;|
00000b40  20 53 43 52 4f 4c 4c 49  4e 47 20 52 4f 55 54 49  | SCROLLING ROUTI|
00000b50  4e 45 53 00 6b 13 92 13  4c 53 43 52 4f 4c 4c 20  |NES.k...LSCROLL |
00000b60  4a 53 52 20 53 54 41 43  4b 00 79 13 9c 13 4c 44  |JSR STACK.y...LD|
00000b70  58 20 58 53 53 54 45 00  81 13 a6 13 49 4e 58 00  |X XSSTE.....INX.|
00000b80  89 13 b0 13 54 58 41 00  94 13 ba 13 af 20 23 24  |....TXA...... #$|
00000b90  30 37 00 a2 13 c4 13 53  54 41 20 58 53 53 54 45  |07.....STA XSSTE|
00000ba0  00 aa 13 ce 13 43 4c 43  00 b7 13 d8 13 41 44 43  |.....CLC.....ADC|
00000bb0  20 23 24 31 30 00 c5 13  e2 13 53 54 41 20 24 44  | #$10.....STA $D|
00000bc0  30 31 36 00 d2 13 ec 13  43 4d 50 20 23 24 31 34  |016.....CMP #$14|
00000bd0  00 e2 13 f6 13 42 45 51  20 4c 53 43 52 53 43 4c  |.....BEQ LSCRSCL|
00000be0  00 ef 13 14 14 43 4d 50  20 23 24 31 30 00 fb 13  |.....CMP #$10...|
00000bf0  1e 14 42 4e 45 20 52 53  54 00 09 14 28 14 4c 44  |..BNE RST...(.LD|
00000c00  58 20 53 43 52 4e 4f 00  11 14 32 14 49 4e 58 00  |X SCRNO...2.INX.|
00000c10  1f 14 34 14 4c 44 41 20  24 44 30 31 38 00 2a 14  |..4.LDA $D018.*.|
00000c20  37 14 af 20 23 24 31 35  00 38 14 39 14 53 54 41  |7.. #$15.8.9.STA|
00000c30  20 24 44 30 31 38 00 40  14 3c 14 54 58 41 00 4b  | $D018.@.<.TXA.K|
00000c40  14 46 14 af 20 23 24 30  31 00 59 14 50 14 53 54  |.F.. #$01.Y.P.ST|
00000c50  41 20 53 43 52 4e 4f 00  63 14 5a 14 41 53 4c 20  |A SCRNO.c.Z.ASL |
00000c60  41 00 6d 14 64 14 41 53  4c 20 41 00 77 14 6e 14  |A.m.d.ASL A.w.n.|
00000c70  41 53 4c 20 41 00 81 14  78 14 41 53 4c 20 41 00  |ASL A...x.ASL A.|
00000c80  89 14 82 14 43 4c 43 00  96 14 8c 14 41 44 43 20  |....CLC.....ADC |
00000c90  23 24 36 30 00 a3 14 a0  14 b0 41 20 24 44 30 31  |#$60......A $D01|
00000ca0  38 00 b1 14 aa 14 53 54  41 20 24 44 30 31 38 00  |8.....STA $D018.|
00000cb0  be 14 b4 14 4c 44 41 20  23 24 30 31 00 ca 14 be  |....LDA #$01....|
00000cc0  14 53 54 41 20 24 46 42  00 d7 14 c8 14 4c 44 59  |.STA $FB.....LDY|
00000cd0  20 23 24 30 30 00 e3 14  d2 14 53 54 59 20 24 46  | #$00.....STY $F|
00000ce0  44 00 ef 14 dc 14 4c 44  41 20 24 44 38 00 fb 14  |D.....LDA $D8...|
00000cf0  e6 14 53 54 41 20 24 46  43 00 07 15 f0 14 53 54  |..STA $FC.....ST|
00000d00  41 20 24 46 45 00 14 15  f2 14 4c 44 41 20 23 24  |A $FE.....LDA #$|
00000d10  30 31 00 21 15 f5 14 53  54 41 20 44 41 4c 4c 00  |01.!...STA DALL.|
00000d20  31 15 fa 14 4a 53 52 20  53 43 4c 44 49 53 50 00  |1...JSR SCLDISP.|
00000d30  47 15 04 15 4c 53 4c 4f  50 20 4c 44 41 20 28 24  |G...LSLOP LDA ($|
00000d40  46 42 29 2c 59 00 57 15  0e 15 53 54 41 20 28 24  |FB),Y.W...STA ($|
00000d50  46 44 29 2c 59 00 5f 15  18 15 49 4e 59 00 6d 15  |FD),Y._...INY.m.|
00000d60  22 15 42 4e 45 20 4c 53  4c 4f 50 00 79 15 2c 15  |".BNE LSLOP.y.,.|
00000d70  49 4e 43 20 24 46 43 00  85 15 36 15 49 4e 43 20  |INC $FC...6.INC |
00000d80  24 46 45 00 91 15 40 15  4c 44 41 20 24 46 43 00  |$FE...@.LDA $FC.|
00000d90  9e 15 4a 15 43 4d 50 20  23 24 44 43 00 ac 15 54  |..J.CMP #$DC...T|
00000da0  15 42 4e 45 20 4c 53 4c  4f 50 00 ba 15 5e 15 4c  |.BNE LSLOP...^.L|
00000db0  44 58 20 53 43 52 4e 4f  00 c2 15 68 15 49 4e 58  |DX SCRNO...h.INX|
00000dc0  00 ca 15 72 15 54 58 41  00 d5 15 7c 15 af 20 23  |...r.TXA...|.. #|
00000dd0  24 30 31 00 e3 15 86 15  53 54 41 20 53 43 52 4e  |$01.....STA SCRN|
00000de0  4f 00 f0 15 88 15 4c 44  41 20 23 24 30 30 00 fd  |O.....LDA #$00..|
00000df0  15 8b 15 53 54 41 20 44  41 4c 4c 00 0d 16 90 15  |...STA DALL.....|
00000e00  4a 53 52 20 53 43 4c 44  49 53 50 00 1d 16 9a 15  |JSR SCLDISP.....|
00000e10  4a 4d 50 20 55 4e 53 54  41 43 4b 00 33 16 a4 15  |JMP UNSTACK.3...|
00000e20  53 43 4c 44 49 53 50 20  4c 44 41 20 53 43 52 4e  |SCLDISP LDA SCRN|
00000e30  4f 00 41 16 ae 15 42 45  51 20 53 43 4c 44 47 00  |O.A...BEQ SCLDG.|
00000e40  49 16 b8 15 52 54 53 00  5c 16 c2 15 53 43 4c 44  |I...RTS.\...SCLD|
00000e50  47 20 4c 44 58 20 23 24  30 30 00 69 16 cc 15 4c  |G LDX #$00.i...L|
00000e60  44 41 20 44 41 4c 4c 00  78 16 d6 15 42 4e 45 20  |DA DALL.x...BNE |
00000e70  53 43 4c 44 42 46 00 8b  16 e0 15 53 43 4c 44 41  |SCLDBF.....SCLDA|
00000e80  54 20 53 54 58 20 59 50  53 00 98 16 ea 15 4c 44  |T STX YPS.....LD|
00000e90  41 20 23 24 31 33 00 a4  16 f4 15 53 54 41 20 58  |A #$13.....STA X|
00000ea0  50 53 00 b6 16 fe 15 4a  53 52 20 44 49 53 50 42  |PS.....JSR DISPB|
00000eb0  4c 4f 43 4b 00 be 16 08  16 49 4e 58 00 cb 16 12  |LOCK.....INX....|
00000ec0  16 43 50 58 20 23 24 30  41 00 da 16 1c 16 42 4e  |.CPX #$0A.....BN|
00000ed0  45 20 53 43 4c 44 41 54  00 e2 16 26 16 52 54 53  |E SCLDAT...&.RTS|
00000ee0  00 f5 16 30 16 53 43 4c  44 42 46 20 53 54 58 20  |...0.SCLDBF STX |
00000ef0  59 50 53 00 02 17 3a 16  4c 44 41 20 23 24 30 30  |YPS...:.LDA #$00|
00000f00  00 0e 17 44 16 53 54 41  20 58 50 53 00 20 17 4e  |...D.STA XPS. .N|
00000f10  16 4a 53 52 20 44 49 53  50 42 4c 4f 43 4b 00 28  |.JSR DISPBLOCK.(|
00000f20  17 58 16 49 4e 58 00 35  17 62 16 43 50 58 20 23  |.X.INX.5.b.CPX #|
00000f30  24 30 41 00 44 17 6c 16  42 4e 45 20 53 43 4c 44  |$0A.D.l.BNE SCLD|
00000f40  42 46 00 4c 17 76 16 52  54 53 00 67 17 28 23 3b  |BF.L.v.RTS.g.(#;|
00000f50  20 49 4e 54 45 52 4c 41  43 49 4e 47 20 52 4f 55  | INTERLACING ROU|
00000f60  54 49 4e 45 53 00 76 17  32 23 49 4c 41 43 45 91  |TINES.v.2#ILACE.|
00000f70  20 53 45 49 00 88 17 3c  23 4c 44 41 20 23 b3 b5  | SEI...<#LDA #..|
00000f80  45 52 4c 41 43 45 00 96  17 46 23 53 54 41 20 24  |ERLACE...F#STA $|
00000f90  30 33 31 34 00 a8 17 50  23 4c 44 41 20 23 b1 b5  |0314...P#LDA #..|
00000fa0  45 52 4c 41 43 45 00 b6  17 5a 23 53 54 41 20 24  |ERLACE...Z#STA $|
00000fb0  30 33 31 35 00 be 17 64  23 43 4c 49 00 c6 17 6e  |0315...d#CLI...n|
00000fc0  23 52 54 53 00 d7 17 78  23 49 4c 41 43 45 4f 46  |#RTS...x#ILACEOF|
00000fd0  46 20 53 45 49 00 eb 17  82 23 4c 44 41 20 23 b3  |F SEI....#LDA #.|
00000fe0  49 4c 41 43 45 51 55 49  54 00 f9 17 8c 23 53 54  |ILACEQUIT....#ST|
00000ff0  41 20 24 30 33 31 34 00  0d 18 96 23 4c 44 41 20  |A $0314....#LDA |
00001000  23 b1 49 4c 41 43 45 51  55 49 54 00 1b 18 a0 23  |#.ILACEQUIT....#|
00001010  53 54 41 20 24 30 33 31  35 00 28 18 aa 23 4c 44  |STA $0315.(..#LD|
00001020  41 20 23 24 36 34 00 36  18 b4 23 53 54 41 20 24  |A #$64.6..#STA $|
00001030  44 30 31 38 00 3e 18 be  23 43 4c 49 00 46 18 c8  |D018.>..#CLI.F..|
00001040  23 52 54 53 00 5e 18 d2  23 b5 45 52 4c 41 43 45  |#RTS.^..#.ERLACE|
00001050  20 4c 44 41 20 49 4c 53  54 41 54 45 00 6d 18 dc  | LDA ILSTATE.m..|
00001060  23 42 45 51 20 49 4e 5a  45 52 4f 00 7a 18 e6 23  |#BEQ INZERO.z..#|
00001070  4c 44 41 20 23 24 30 30  00 8a 18 f0 23 53 54 41  |LDA #$00....#STA|
00001080  20 49 4c 53 54 41 54 45  00 97 18 fa 23 4c 44 41  | ILSTATE....#LDA|
00001090  20 23 24 36 32 00 a5 18  04 24 53 54 41 20 24 44  | #$62....$STA $D|
000010a0  30 31 38 00 b2 18 0e 24  4c 44 41 20 23 24 31 35  |018....$LDA #$15|
000010b0  00 c0 18 18 24 53 54 41  20 24 44 30 31 36 00 d9  |....$STA $D016..|
000010c0  18 22 24 49 4c 41 43 45  51 55 49 54 20 4a 4d 50  |."$ILACEQUIT JMP|
000010d0  20 28 49 52 51 9a 29 00  f0 18 2c 24 49 4e 5a 45  | (IRQ.)...,$INZE|
000010e0  52 4f 20 49 4e 43 20 49  4c 53 54 41 54 45 00 fd  |RO INC ILSTATE..|
000010f0  18 36 24 4c 44 41 20 23  24 36 30 00 0b 19 40 24  |.6$LDA #$60...@$|
00001100  53 54 41 20 24 44 30 31  38 00 18 19 4a 24 4c 44  |STA $D018...J$LD|
00001110  41 20 23 24 31 34 00 26  19 54 24 53 54 41 20 24  |A #$14.&.T$STA $|
00001120  44 30 31 36 00 35 19 5e  24 4a 4d 50 20 28 49 52  |D016.5.^$JMP (IR|
00001130  51 9a 29 00 49 19 10 27  3b 20 54 45 4d 50 20 52  |Q.).I..'; TEMP R|
00001140  4f 55 54 49 4e 45 53 00  59 19 11 27 45 46 46 45  |OUTINES.Y..'EFFE|
00001150  43 54 53 20 4e 4f 50 00  6b 19 12 27 46 55 4c 4c  |CTS NOP.k..'FULL|
00001160  53 44 49 53 50 20 4e 4f  50 00 77 19 13 27 59 4f  |SDISP NOP.w..'YO|
00001170  55 20 4e 4f 50 00 87 19  14 27 4d 91 53 54 45 52  |U NOP....'M.STER|
00001180  53 20 4e 4f 50 00 95 19  15 27 50 41 4e 45 4c 20  |S NOP....'PANEL |
00001190  4e 4f 50 00 a2 19 16 27  47 41 4d 80 20 4e 4f 50  |NOP....'GAM. NOP|
000011a0  00 00 00                                          |...|
000011a3