mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-17 08:54:50 +00:00
hgr: wastingg time with star demo
way too big for appleiibot without further research
This commit is contained in:
parent
3a7b77c3c3
commit
0eb1d0d84f
49
hgr/stars.s
Normal file
49
hgr/stars.s
Normal file
@ -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
|
Loading…
Reference in New Issue
Block a user