mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-12 11:29:37 +00:00
bubble: clean up code comments a bit
This commit is contained in:
parent
46c79e587e
commit
02d20faf82
|
@ -1,15 +1,23 @@
|
||||||
; bubble universe -- Apple II Hires
|
; bubble universe -- Apple II Hires
|
||||||
|
|
||||||
; original = 612 bytes
|
; by Vince `deater` Weaver
|
||||||
; clear screen:
|
; based roughly on the BASIC code posted on the pouet forum
|
||||||
; bkgnd0 = $44198 = 278936 cycles = max ~4fps
|
; original effect by yuruyrau on twitter
|
||||||
; new: $A616 = 42518 = max ~22fps
|
|
||||||
; hplot
|
; original implementation = 612 bytes
|
||||||
; hplot0 = ($14E-$15C) $14E = 334 * 1024 = 342016 = max ~3fps
|
|
||||||
; lookup = 46 * 1024 = 47104 = max ~21fps
|
; Fast hi-res pixel notes (Apple II hi-res graphics pain is
|
||||||
|
; a bit much to get into here)
|
||||||
|
|
||||||
|
; clear screen routine:
|
||||||
|
; ROM built-in: BKGND0 = $44198 = 278936 cycles = max ~4fps
|
||||||
|
; hand-optimized: $A616 = 42518 cycles = max ~22fps
|
||||||
|
; hplot (plot pixel) routine, plot 32x32=1024 points
|
||||||
|
; ROM HPLOT0 = ($14E-$15C) $14E = 334 * 1024 = 342016 = max ~3fps
|
||||||
|
; hand-optimized = 46 * 1024 = 47104 = max ~21fps
|
||||||
|
|
||||||
|
|
||||||
; after fast graphics
|
; after fast graphics, for I=32,J=32
|
||||||
; D7E77(??) = 884343 = 1.1fps
|
; D7E77(??) = 884343 = 1.1fps
|
||||||
; DD06E = (made J countdown, why longer?)
|
; DD06E = (made J countdown, why longer?)
|
||||||
; DB584 = destructive U when plotting
|
; DB584 = destructive U when plotting
|
||||||
|
@ -30,13 +38,13 @@
|
||||||
; 5CFBE = move TL/TH out of zero page
|
; 5CFBE = move TL/TH out of zero page
|
||||||
; 5C353 = put UL in Y = ~2.6fps
|
; 5C353 = put UL in Y = ~2.6fps
|
||||||
|
|
||||||
; NUM=24 35CD3 = ~4.5fps
|
; NUM (I,J)=24 35CD3 = ~4.5fps
|
||||||
; NUM=16 1A2DD = ~9 fps
|
; NUM (I,J)=16 1A2DD = ~9 fps
|
||||||
|
|
||||||
; soft-switches
|
; soft-switches
|
||||||
|
|
||||||
KEYPRESS = $C000
|
;KEYPRESS = $C000
|
||||||
KEYRESET = $C010
|
;KEYRESET = $C010
|
||||||
PAGE1 = $C054
|
PAGE1 = $C054
|
||||||
PAGE2 = $C055
|
PAGE2 = $C055
|
||||||
|
|
||||||
|
@ -46,10 +54,10 @@ BKGND0 = $F3F4 ; clear current page to A
|
||||||
HGR2 = $F3D8 ; set hires page2 and clear $4000-$5fff
|
HGR2 = $F3D8 ; set hires page2 and clear $4000-$5fff
|
||||||
HGR = $F3E2 ; set hires page1 and clear $2000-$3fff
|
HGR = $F3E2 ; set hires page1 and clear $2000-$3fff
|
||||||
HPLOT0 = $F457 ; plot at (Y,X), (A)
|
HPLOT0 = $F457 ; plot at (Y,X), (A)
|
||||||
HLINRL = $F530 ; line to (X,A), (Y)
|
;HLINRL = $F530 ; line to (X,A), (Y)
|
||||||
HCOLOR1 = $F6F0 ; set HGR_COLOR to value in X
|
;HCOLOR1 = $F6F0 ; set HGR_COLOR to value in X
|
||||||
COLORTBL = $F6F6
|
;COLORTBL = $F6F6
|
||||||
WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us
|
;WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us
|
||||||
|
|
||||||
; zero page
|
; zero page
|
||||||
|
|
||||||
|
@ -122,7 +130,7 @@ next_frame:
|
||||||
.include "hgr_clear_part.s"
|
.include "hgr_clear_part.s"
|
||||||
|
|
||||||
|
|
||||||
; FIXME: see value of X/Y/A after clear
|
; TODO: see if value of X/Y/A useful after clear
|
||||||
|
|
||||||
ldx #0 ; 2
|
ldx #0 ; 2
|
||||||
stx I ; 3
|
stx I ; 3
|
||||||
|
|
Loading…
Reference in New Issue
Block a user