Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 00:30:31 +00:00
Code Issues Projects Releases Wiki Activity

plasma: update code comments

Browse Source
This commit is contained in:
Vince Weaver 2021-01-09 23:16:54 -05:00
parent ae3c914eca
commit f119774703
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
graphics/gr/plasma/plasma.s
View File

@ -11,6 +11,7 @@
; 128 -- set color ourselves ; 128 -- set color ourselves
; 127 -- overlap color lookup with sine table ; 127 -- overlap color lookup with sine table
; 119 -- forgot to comment out unused ; 119 -- forgot to comment out unused
; 121 -- make it use full screen (40x48)
; 149 -- add page flipping ; 149 -- add page flipping
; 144 -- optimize a bit ; 144 -- optimize a bit
@ -33,8 +34,8 @@ SAVEY = $FF
jsr SETGR jsr SETGR
bit FULLGR bit FULLGR
;col = ( 8.0 + (sintable[xx&0xf]) ;col = ( 16.0 + (sintable[xx&0xf])
; + 8.0 + (sintable[yy&0xf]) ; + 16.0 + (sintable[yy&0xf])
; ) / 2; ; ) / 2;
create_lookup: create_lookup:
@ -88,14 +89,14 @@ plot_frame:
beq done_page beq done_page
inx inx
done_page: done_page:
ldy PAGE0,X ldy PAGE0,X ; set display page to PAGE1 or PAGE2
eor #$4 eor #$4 ; flip draw page between $400/$800
sta draw_page_smc+1 ; DRAW_PAGE sta draw_page_smc+1 ; DRAW_PAGE
; plot frame ; plot frame
ldx #47 ; YY=0 ldx #47 ; YY=47 (count backwards)
plot_yloop: plot_yloop:
@ -104,13 +105,13 @@ plot_yloop:
asl asl
asl asl
asl asl
sta CTEMP sta CTEMP ; save for later
txa txa
lsr lsr
php php
jsr GBASCALC ; point GBASL/H to address in A jsr GBASCALC ; point GBASL/H to address in (A is ycoord)
; after, A is GBASL, C is clear ; after, A is GBASL, C is clear
lda GBASH lda GBASH
@ -120,7 +121,7 @@ draw_page_smc:
plp plp
lda #$0f ; setup mask lda #$0f ; setup mask for odd/even line
bcc plot_mask bcc plot_mask
adc #$e0 ; needlessly clever, from monitor rom src adc #$e0 ; needlessly clever, from monitor rom src
plot_mask: plot_mask:
@ -155,7 +156,7 @@ plot_lookup_smc:
lda colorlookup,X lda colorlookup,X
sta COLOR sta COLOR
jsr PLOT1 ; plot at GBASL,Y (x co-ord in Y) jsr PLOT1 ; plot at GBASL,Y (x co-ord goes in Y)
ldx SAVEX ; restore YY ldx SAVEX ; restore YY
@ -170,6 +171,7 @@ colorlookup:
bw_color_lookup: bw_color_lookup:
.byte $55,$22,$66,$77,$ff,$77,$55 ; ,$00 shared w sin table .byte $55,$22,$66,$77,$ff,$77,$55 ; ,$00 shared w sin table
; this is actually 8*sin(x)
sinetable: sinetable:
.byte $00,$03,$05,$07,$08,$07,$05,$03 .byte $00,$03,$05,$07,$08,$07,$05,$03
.byte $00,$FD,$FB,$F9,$F8,$F9,$FB,$FD .byte $00,$FD,$FB,$F9,$F8,$F9,$FB,$FD