b0VIM 6.20OA@`iancNODDYBOXW2Ke:\home\ianc\src\c64\ras2\asm.s3210#"! UtpÿŒadÿCŒîíÚÆ³¢}kZYED-ùøîÞÑÈ½®©Ÿ’ƒ‚f[PE'÷íÜÒ¨Š‰ƒyxsi=</#"ÿöæÖÆ¼µ£‘ƒtoeZUTLB=0/%þùðåÛÑÆ¶®­¤š‹Š…„ukdWJ=0+ ý
ô
ó
Ù
Ø
Ð
´
˜
|
`
D
(

ð	Ô	Ó	»	º	q	l	"	ØŽDCB2*á		.byte  "as unmarked as the passing rain...      "	.byte  "	.byte  "as unmarked as the passing rain...      "	.byte  "as unmarked as	.byte " 	.byte " fall and wash away any evidence of my existance here."	.by	.byte 	.byte "ntinues	.byte "ntinues to fall and wash away any evidence of my existance here."	.byte "turn to ash.  as this wish will never ever be filled the rain co"	.byte "hy never said 'no' and that the stars did not fade and the moon "	.byte "          if there is only one wish in my life, it is that dorot"msg:	      ;0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef;data for text message 	.byte	$00,$00,$00,$00,$00 	.byte	$08,$02,$02,$09,$09 	.byte	$0f,$0f,$0a,$0a,$08 	.byte	$01,$01,$01,$07,$07 	.byte	$01,$01,$01,$01,$01 	.byte	$01,$01,$01,$01,$01 	.byte	$07,$07,$01,$01,$01 	.byte	$08,$0a,$0a,$0f,$0f 	.byte	$09,$09,$02,$02,$08 colour:;data tables for colours 	.byte	0msgp:	.byte	0scrx:;data	rts	bne	@loop	iny	sta	$06e8,y	sta	$0600,y	sta	$0500,y	sta	$0400,y@loop:	lda	#$20	ldy	#$00cls:	rts	stx	vic_ctrl2	stx	scrx@nomove:	ldx	#7	sta	scrline+39	lda	msg,x	ldx	msgp	inc	msgp	bne	@loop	cpx	#39	inx	sta	scrline,x	lda	scrline+1,x@loop:	ldx	#$00	bpl	@nomove	dex	ldx	scrxscroll:	rts	bne	@loop	cpx	#$28	inx	sta	colline,x	lda	colour,x	sta	colour+$00,x	lda	colour+$01,x@loop:	ldx	#$00	sta	vic_border	sta	colour+$28	lda	colour+$00colwash:	jmp	$ea31		; Normal OS iterrupt?	jsr	scroll	jsr	colwash	sta	vic_irqreg	; Acknowledge the interrupt	lda	#$01irq:	jmp	holdhold:	cli			; Re-enable interrupts	sta	vic_irqmask	; Enable raster line IRQ	lda	#$01	sta	cia_intctrl	lda	#$7f	sta	vic_raster	; Set raster line IRQ	lda	#$00	stx	$0315		; Set IRQ address	sta	$0314	ldx	#>irq	lda	#<irq	sei			; Disable interrupts	stx	msgp	dex	bne	showmsg	cpx	#$28	inx	sta	scrline,x	lda	msg,xshowmsg:	stx	vic_bg0	stx	vic_border	ldx	#$00	jsr	cls_asmentry:.codecolline		= $d800+24*40scrline		= $0400+24*40cia_intctrl	= $dc0dvic_addr	= $d018vic_ctrl2	= $d016vic_raster	= $d012vic_ctrl1	= $d011vic_bg0		= $d021vic_border	= $d020vic_irqmask	= $d01avic_irqreg	= $d019.export _asmentry