mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
wires, wires
This commit is contained in:
parent
45d4908c80
commit
9633c05d45
@ -6,12 +6,13 @@ LINKERSCRIPTS = ../../../linker_scripts
|
|||||||
|
|
||||||
all: plasma.dsk
|
all: plasma.dsk
|
||||||
|
|
||||||
plasma.dsk: HELLO PLASMA PLASMA_TINY PLASMA_BOT
|
plasma.dsk: HELLO PLASMA PLASMA_TINY PLASMA_BOT WIRES
|
||||||
cp empty.dsk plasma.dsk
|
cp empty.dsk plasma.dsk
|
||||||
$(DOS33) -y plasma.dsk SAVE A HELLO
|
$(DOS33) -y plasma.dsk SAVE A HELLO
|
||||||
$(DOS33) -y plasma.dsk BSAVE -a 0x300 PLASMA
|
$(DOS33) -y plasma.dsk BSAVE -a 0x300 PLASMA
|
||||||
$(DOS33) -y plasma.dsk BSAVE -a 0xC00 PLASMA_TINY
|
$(DOS33) -y plasma.dsk BSAVE -a 0xC00 PLASMA_TINY
|
||||||
$(DOS33) -y plasma.dsk BSAVE -a 0x36B PLASMA_BOT
|
$(DOS33) -y plasma.dsk BSAVE -a 0x36B PLASMA_BOT
|
||||||
|
$(DOS33) -y plasma.dsk BSAVE -a 0xC00 WIRES
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
@ -43,6 +44,14 @@ PLASMA_TINY: plasma_tiny.o
|
|||||||
plasma_tiny.o: plasma_tiny.s
|
plasma_tiny.o: plasma_tiny.s
|
||||||
ca65 -o plasma_tiny.o plasma_tiny.s -l plasma_tiny.lst
|
ca65 -o plasma_tiny.o plasma_tiny.s -l plasma_tiny.lst
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
WIRES: wires.o
|
||||||
|
ld65 -o WIRES wires.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
wires.o: wires.s
|
||||||
|
ca65 -o wires.o wires.s -l wires.lst
|
||||||
|
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
|
206
graphics/gr/plasma/wires.s
Normal file
206
graphics/gr/plasma/wires.s
Normal file
@ -0,0 +1,206 @@
|
|||||||
|
; wires
|
||||||
|
|
||||||
|
; 159 -- initial
|
||||||
|
; 158 -- jmp to branch
|
||||||
|
; 152 -- special case dark blue
|
||||||
|
; 151 -- another jmp to branch
|
||||||
|
; 148 -- use $10 instead of $ff for black color
|
||||||
|
; 147 -- optimize color code
|
||||||
|
|
||||||
|
; goal=135
|
||||||
|
|
||||||
|
.include "zp.inc"
|
||||||
|
.include "hardware.inc"
|
||||||
|
|
||||||
|
CTEMP = $FC
|
||||||
|
|
||||||
|
|
||||||
|
;================================
|
||||||
|
; Clear screen and setup graphics
|
||||||
|
;================================
|
||||||
|
plasma:
|
||||||
|
|
||||||
|
jsr SETGR ; set lo-res 40x40 mode
|
||||||
|
bit FULLGR ; make it 40x48
|
||||||
|
|
||||||
|
; we only create a 16x16 texture, which we pattern across 40x48 screen
|
||||||
|
|
||||||
|
create_lookup:
|
||||||
|
ldy #15
|
||||||
|
create_yloop:
|
||||||
|
ldx #15
|
||||||
|
create_xloop:
|
||||||
|
|
||||||
|
; vertical
|
||||||
|
txa
|
||||||
|
and #$7
|
||||||
|
bne horiz
|
||||||
|
|
||||||
|
xnot:
|
||||||
|
tya
|
||||||
|
bne lookup_smc
|
||||||
|
|
||||||
|
horiz:
|
||||||
|
; horizontal
|
||||||
|
tya
|
||||||
|
and #$7
|
||||||
|
beq ynot
|
||||||
|
lda #$10
|
||||||
|
bne lookup_smc
|
||||||
|
|
||||||
|
ynot:
|
||||||
|
txa
|
||||||
|
lookup_smc:
|
||||||
|
sta lookup ; always starts at $d00
|
||||||
|
|
||||||
|
inc lookup_smc+1
|
||||||
|
|
||||||
|
dex
|
||||||
|
bpl create_xloop
|
||||||
|
|
||||||
|
dey
|
||||||
|
bpl create_yloop
|
||||||
|
|
||||||
|
; X and Y both $FF
|
||||||
|
|
||||||
|
create_lookup_done:
|
||||||
|
|
||||||
|
forever_loop:
|
||||||
|
|
||||||
|
cycle_colors:
|
||||||
|
; cycle colors
|
||||||
|
|
||||||
|
; can't do palette rotate on Apple II so faking it here
|
||||||
|
; just incrementing every entry in texture by 1
|
||||||
|
|
||||||
|
; X is $FF when arriving here
|
||||||
|
; ldx #0
|
||||||
|
inx ; make X 0
|
||||||
|
cycle_loop:
|
||||||
|
ldy lookup,X
|
||||||
|
cpy #$10
|
||||||
|
beq skip_zero
|
||||||
|
iny
|
||||||
|
tya
|
||||||
|
and #$f
|
||||||
|
sta lookup,X
|
||||||
|
skip_zero:
|
||||||
|
inx
|
||||||
|
bne cycle_loop
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; set/flip pages
|
||||||
|
; we want to flip pages and then draw to the offscreen one
|
||||||
|
|
||||||
|
flip_pages:
|
||||||
|
|
||||||
|
; ldx #0 ; x already 0
|
||||||
|
|
||||||
|
lda draw_page_smc+1 ; DRAW_PAGE
|
||||||
|
beq done_page
|
||||||
|
inx
|
||||||
|
done_page:
|
||||||
|
ldy PAGE0,X ; set display page to PAGE1 or PAGE2
|
||||||
|
|
||||||
|
eor #$4 ; flip draw page between $400/$800
|
||||||
|
sta draw_page_smc+1 ; DRAW_PAGE
|
||||||
|
|
||||||
|
|
||||||
|
; plot current frame
|
||||||
|
; scan whole 40x48 screen and plot each point based on
|
||||||
|
; lookup table colors
|
||||||
|
plot_frame:
|
||||||
|
|
||||||
|
ldx #47 ; YY=47 (count backwards)
|
||||||
|
|
||||||
|
plot_yloop:
|
||||||
|
|
||||||
|
txa ; get (y&0xf)<<4
|
||||||
|
pha ; save YY / SAVEX
|
||||||
|
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
sta CTEMP ; save for later
|
||||||
|
|
||||||
|
txa ; get Y in accumulator
|
||||||
|
lsr ; call actually wants Ycoord/2
|
||||||
|
|
||||||
|
|
||||||
|
ldy #$0f ; setup mask for odd/even line
|
||||||
|
bcc plot_mask
|
||||||
|
ldy #$f0
|
||||||
|
plot_mask:
|
||||||
|
sty MASK
|
||||||
|
|
||||||
|
jsr GBASCALC ; point GBASL/H to address in (A is ycoord/2)
|
||||||
|
; after, A is GBASL, C is clear
|
||||||
|
|
||||||
|
lda GBASH ; adjust to be PAGE1/PAGE2 ($400 or $800)
|
||||||
|
draw_page_smc:
|
||||||
|
adc #0
|
||||||
|
sta GBASH
|
||||||
|
|
||||||
|
;==========
|
||||||
|
|
||||||
|
ldy #39 ; XX = 39 (countdown)
|
||||||
|
|
||||||
|
plot_xloop:
|
||||||
|
|
||||||
|
tya ; get x&0xf
|
||||||
|
and #$f
|
||||||
|
ora CTEMP ; combine with val from earlier
|
||||||
|
; get ((y&0xf)*16)+x
|
||||||
|
|
||||||
|
tax
|
||||||
|
|
||||||
|
plot_lookup:
|
||||||
|
|
||||||
|
plot_lookup_smc:
|
||||||
|
lda lookup,X ; load lookup, (y*16)+x
|
||||||
|
cmp #11
|
||||||
|
bcs color_notblue ; if < 11, blue
|
||||||
|
|
||||||
|
color_blue:
|
||||||
|
lda #$11 ; blue offset
|
||||||
|
|
||||||
|
color_notblue:
|
||||||
|
tax
|
||||||
|
lda colorlookup-11,X ; lookup color
|
||||||
|
|
||||||
|
color_notblack:
|
||||||
|
|
||||||
|
sta COLOR ; each nibble should be same
|
||||||
|
|
||||||
|
jsr PLOT1 ; plot at GBASL,Y (x co-ord goes in Y)
|
||||||
|
|
||||||
|
dey
|
||||||
|
bpl plot_xloop
|
||||||
|
|
||||||
|
pla
|
||||||
|
tax
|
||||||
|
|
||||||
|
dex
|
||||||
|
bpl plot_yloop
|
||||||
|
bmi forever_loop
|
||||||
|
|
||||||
|
colorlookup:
|
||||||
|
|
||||||
|
;.byte $22,$22,$22,$22,$22,$22,$22,$22
|
||||||
|
;.byte $22,$22,$22,
|
||||||
|
.byte $66,$77,$ff,$77,$66,$00,$22
|
||||||
|
|
||||||
|
|
||||||
|
; want this to be at 3f5
|
||||||
|
; Length is 141 so start at $3f4 -
|
||||||
|
; 1013 - 141 + 3 = 875 = $36B
|
||||||
|
|
||||||
|
jmp plasma
|
||||||
|
|
||||||
|
; make lookup happen at page boundary
|
||||||
|
|
||||||
|
.org $d00
|
||||||
|
lookup:
|
Loading…
Reference in New Issue
Block a user