hgr: wastingg time with star demo

way too big for appleiibot without further research
2020-12-08 11:22:39 -05:00 · 2020-12-08 11:22:39 -05:00 · 0eb1d0d84f
parent 3a7b77c3c3
commit 0eb1d0d84f
2 changed files with 49 additions and 0 deletions
--- a/appleiibot/fastar2.s
+++ b/appleiibot/fastar2.s
--- a/hgr/stars.s
+++ b/hgr/stars.s
@ -0,0 +1,49 @@
+GBASL = $26
+GBASH = $27
+HGRPAGE = $E6
+
+PAGE0           =       $C054
+PAGE1           =       $C055
+
+HGR = $F3E2
+HGR2 = $F3D8
+HCLR	= $F3F2
+HPOSN	= $F411
+WAIT    = $FCA8                 ;; delay 1/2(26+27A+5A^2) us
+
+stars:
+	jsr	HGR
+	jsr	HGR2
+;	lda	#0
+;	sta	ybase
+	lda	#$20
+	sta	HGRPAGE
+
+move_stars:
+	lda	HGRPAGE
+	cmp	#$20
+	beq	show_page1
+show_page2:
+	bit	PAGE1
+	lsr	HGRPAGE
+	bne	doit
+
+show_page1:
+	bit	PAGE0
+	asl	HGRPAGE
+
+doit:
+	jsr	HCLR
+
+	; FORI=1TO10
+	; A=X(I)
+	; B=Y(I)
+	; C=Z(I)*.1
+	; X(I)=A+(A-140)*C
+	; Y(I)=B+(B-96)*C
+	; Z(I)=Z(I)+.1
+	; IFX(I)<0ORX(I)>279ORY(I)<0ORY(I)>191THENX(I)=RND(1)*280:Y(I)=RND(1)*192:Z(I)=0:GOTO7
+	;HPLOTA,BTOX(I),Y(I)
+	;NEXTI
+
+	jmp	move_stars