mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-07 21:30:39 +00:00
lovebyte: work on desire_wires
This commit is contained in:
Vince Weaver
parent
9abcdcac62
commit
ad9f2dce0d
49
demos/lovebyte2024/dsr_wires_256/Makefile
Normal file
49
demos/lovebyte2024/dsr_wires_256/Makefile
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
include ../../../Makefile.inc
|
||||||
|
|
||||||
|
DOS33 = ../../../utils/dos33fs-utils/dos33
|
||||||
|
TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
|
||||||
|
EMPTYDISK = ../../../empty_disk/empty.dsk
|
||||||
|
LINKERSCRIPTS = ../../../linker_scripts/
|
||||||
|
|
||||||
|
all: dsr_wires.dsk
|
||||||
|
|
||||||
|
dsr_wires.dsk: HELLO DSR_WIRES
|
||||||
|
cp $(EMPTYDISK) dsr_wires.dsk
|
||||||
|
$(DOS33) -y dsr_wires.dsk SAVE A HELLO
|
||||||
|
$(DOS33) -y dsr_wires.dsk BSAVE -a 0xc00 DSR_WIRES
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
submit: dsr_wires.zip
|
||||||
|
|
||||||
|
dsr_wires.zip: DSR_WIRES dsr_wires file_id.diz dsr_wires.dsk
|
||||||
|
mkdir -p lovebyte2024_wires
|
||||||
|
cp DSR_WIRES ./lovebyte2024_wires
|
||||||
|
cp dsr_wires ./lovebyte2024_wires
|
||||||
|
cp file_id.diz ./lovebyte2024_wires
|
||||||
|
cp dsr_wires.dsk ./lovebyte2024_wires
|
||||||
|
cp monitor.txt ./lovebyte2024_wires
|
||||||
|
cp wires_screen.png ./lovebyte2024_wires
|
||||||
|
cp wires_720p.mp4 ./lovebyte2024_wires
|
||||||
|
zip -r dsr_wires.zip lovebyte2024_wires
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
HELLO: hello.bas
|
||||||
|
$(TOKENIZE) < hello.bas > HELLO
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
DSR_WIRES: dsr_wires.o
|
||||||
|
ld65 -o DSR_WIRES dsr_wires.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
dsr_wires.o: dsr_wires.s
|
||||||
|
ca65 -o dsr_wires.o dsr_wires.s -l dsr_wires.lst
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.o *.lst HELLO DSR_WIRES *.zip
|
||||||
231
demos/lovebyte2024/dsr_wires_256/dsr_wires.s
Normal file
231
demos/lovebyte2024/dsr_wires_256/dsr_wires.s
Normal file
@ -0,0 +1,231 @@
|
|||||||
|
; desire wires -- Apple II Hires
|
||||||
|
|
||||||
|
; by Vince `deater` Weaver / dSr
|
||||||
|
|
||||||
|
; Lovebyte 2024
|
||||||
|
|
||||||
|
|
||||||
|
; D0+ used by HGR routines
|
||||||
|
|
||||||
|
HGR_X = $E0
|
||||||
|
HGR_Y = $E2
|
||||||
|
HGR_COLOR = $E4
|
||||||
|
HGR_PAGE = $E6
|
||||||
|
|
||||||
|
GBASL = $26
|
||||||
|
GBASH = $27
|
||||||
|
|
||||||
|
TEMPY = $F0
|
||||||
|
TEMPX = $F1
|
||||||
|
HGR_END2 = $FC
|
||||||
|
HGR_END = $FD
|
||||||
|
COUNT = $FE
|
||||||
|
FRAME = $FF
|
||||||
|
|
||||||
|
; soft-switches
|
||||||
|
|
||||||
|
PAGE1 = $C054
|
||||||
|
PAGE2 = $C055
|
||||||
|
|
||||||
|
; ROM routines
|
||||||
|
|
||||||
|
HGR2 = $F3D8 ; set hires page2 and clear $4000-$5fff
|
||||||
|
HGR = $F3E2 ; set hires page1 and clear $2000-$3FFF
|
||||||
|
HPOSN = $F411
|
||||||
|
WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us
|
||||||
|
|
||||||
|
|
||||||
|
hposn_low = $8000
|
||||||
|
hposn_high = $8100
|
||||||
|
|
||||||
|
|
||||||
|
wires:
|
||||||
|
jsr HGR
|
||||||
|
|
||||||
|
;==========================
|
||||||
|
; make HGR lookup table
|
||||||
|
|
||||||
|
; Y=0 from before
|
||||||
|
table_loop:
|
||||||
|
tya ; XPOS=(Y,X) YPOS=A
|
||||||
|
jsr HPOSN
|
||||||
|
ldy HGR_Y ; HPOSN saves this
|
||||||
|
lda GBASL
|
||||||
|
sta hposn_low,Y
|
||||||
|
lda GBASH
|
||||||
|
sec
|
||||||
|
sbc #$20 ; adjust to take off HGR_PAGE
|
||||||
|
sta hposn_high,Y
|
||||||
|
iny
|
||||||
|
; cpy #192 ; what happens if we run 192..255?
|
||||||
|
bne table_loop
|
||||||
|
|
||||||
|
jsr HGR2 ; clear screen PAGE2 A and Y 0 after
|
||||||
|
|
||||||
|
reset_x:
|
||||||
|
ldx #$0
|
||||||
|
|
||||||
|
switch_pages:
|
||||||
|
lda HGR_PAGE
|
||||||
|
eor #$60
|
||||||
|
sta HGR_PAGE
|
||||||
|
cmp #$40
|
||||||
|
bne switch_page2
|
||||||
|
bit PAGE1
|
||||||
|
jmp outer_loop
|
||||||
|
switch_page2:
|
||||||
|
bit PAGE2
|
||||||
|
|
||||||
|
outer_loop:
|
||||||
|
|
||||||
|
;=====================================
|
||||||
|
; pulse loop horizontal
|
||||||
|
;=====================================
|
||||||
|
; write out pattern to horizontal line
|
||||||
|
; due to memory layout by going $4000-$43FF only draw every 8th line
|
||||||
|
|
||||||
|
|
||||||
|
lda #$00
|
||||||
|
tay
|
||||||
|
|
||||||
|
sta GBASL
|
||||||
|
|
||||||
|
lda HGR_PAGE ; point GBASL to $4000
|
||||||
|
sta GBASH
|
||||||
|
|
||||||
|
clc
|
||||||
|
adc #$4
|
||||||
|
sta HGR_END
|
||||||
|
adc #$1C
|
||||||
|
sta HGR_END2
|
||||||
|
horiz_loop:
|
||||||
|
|
||||||
|
lda even_lookup,X
|
||||||
|
sta (GBASL),Y
|
||||||
|
iny
|
||||||
|
|
||||||
|
lda odd_lookup,X
|
||||||
|
sta (GBASL),Y
|
||||||
|
iny
|
||||||
|
|
||||||
|
bne noflo2
|
||||||
|
inc GBASH
|
||||||
|
noflo2:
|
||||||
|
|
||||||
|
lda HGR_END
|
||||||
|
cmp GBASH
|
||||||
|
bne horiz_loop
|
||||||
|
|
||||||
|
;========================================
|
||||||
|
; vertical loop
|
||||||
|
;========================================
|
||||||
|
|
||||||
|
; A should already be $44 here
|
||||||
|
; Y should be 0
|
||||||
|
; X is position in pattern
|
||||||
|
|
||||||
|
; to be honest I don't remember how this works
|
||||||
|
|
||||||
|
vert_loop:
|
||||||
|
txa
|
||||||
|
|
||||||
|
clc
|
||||||
|
adc #2 ; $44 + 2? = $46
|
||||||
|
asl ; = $8E
|
||||||
|
asl ; shift left? = $1C + carry
|
||||||
|
adc HGR_PAGE ; what? = $5D
|
||||||
|
sbc GBASH ; huh - $44 = $19
|
||||||
|
|
||||||
|
cmp #8 ; WHAT IS GOING ON HERE?
|
||||||
|
lda #$81
|
||||||
|
bcs noeor
|
||||||
|
ora #$02
|
||||||
|
noeor:
|
||||||
|
|
||||||
|
sta (GBASL),Y ; store it out
|
||||||
|
|
||||||
|
inc GBASL ; skip two columns
|
||||||
|
inc GBASL
|
||||||
|
bne noflo
|
||||||
|
inc GBASH
|
||||||
|
noflo:
|
||||||
|
lda HGR_END2
|
||||||
|
cmp GBASH
|
||||||
|
bne vert_loop
|
||||||
|
|
||||||
|
stx TEMPX
|
||||||
|
|
||||||
|
ldx #11
|
||||||
|
draw_loop:
|
||||||
|
jsr draw_box
|
||||||
|
dex
|
||||||
|
bpl draw_loop
|
||||||
|
|
||||||
|
ldx TEMPX
|
||||||
|
|
||||||
|
inx ; wrap at 7
|
||||||
|
cpx #7
|
||||||
|
beq reset_x
|
||||||
|
|
||||||
|
bne switch_pages ; bra
|
||||||
|
|
||||||
|
even_lookup:
|
||||||
|
.byte $D7,$DD,$F5, $D5,$D5,$D5,$D5
|
||||||
|
odd_lookup:
|
||||||
|
.byte $AA,$AA,$AA, $AB,$AE,$BA,$EA
|
||||||
|
|
||||||
|
|
||||||
|
;box_color_odd:
|
||||||
|
; .byte $2A,$55,$AA,$7F,$7F,$7F,$60,$03,$E0
|
||||||
|
;box_color_even:
|
||||||
|
; .byte $55,$2A,$D5,$7F,$7F,$7F,$60,$03,$E0
|
||||||
|
box_x1:
|
||||||
|
.byte 0, 0, 3, 5, 11, 13, 13, 18, 16, 26, 31, 37
|
||||||
|
box_y1:
|
||||||
|
.byte 169, 0, 0,105, 0, 24, 88,105,137, 88,105, 88
|
||||||
|
box_x2:
|
||||||
|
.byte 40, 3, 11, 11, 40, 40, 16, 26, 24, 29, 37, 40
|
||||||
|
box_y2:
|
||||||
|
.byte 192,169, 88,152, 24, 88,169,120,152,170,170,170
|
||||||
|
|
||||||
|
;==========================
|
||||||
|
; draw box
|
||||||
|
;==========================
|
||||||
|
; which to draw in X
|
||||||
|
; X preserved?
|
||||||
|
|
||||||
|
draw_box:
|
||||||
|
lda box_y1,X ; 3
|
||||||
|
draw_box_outer:
|
||||||
|
sta TEMPY ; 2
|
||||||
|
tay ; 1
|
||||||
|
lda hposn_low,Y ; 3
|
||||||
|
sta GBASL ; 2
|
||||||
|
lda hposn_high,Y ; 3
|
||||||
|
clc
|
||||||
|
adc HGR_PAGE ; 2
|
||||||
|
sta GBASH ; 2
|
||||||
|
ldy box_x1,X ; 3
|
||||||
|
draw_box_inner:
|
||||||
|
; tya ; 1
|
||||||
|
; lsr ; 1
|
||||||
|
; lda box_color_odd,X ; 3
|
||||||
|
; bcc draw_color_odd ; 2 ; we might have these flipped
|
||||||
|
;draw_color_even:
|
||||||
|
; lda box_color_even,X ; 3
|
||||||
|
;draw_color_odd:
|
||||||
|
|
||||||
|
lda #$80 ; always color black1 here
|
||||||
|
|
||||||
|
sta (GBASL),Y ; 2
|
||||||
|
iny ; 1
|
||||||
|
tya ; 1
|
||||||
|
cmp box_x2,X ; 3
|
||||||
|
bne draw_box_inner ; 2
|
||||||
|
|
||||||
|
inc TEMPY ; 2
|
||||||
|
lda TEMPY ; 2
|
||||||
|
cmp box_y2,X ; 3
|
||||||
|
bne draw_box_outer ; 2
|
||||||
|
|
||||||
|
rts ; 1
|
||||||
10
demos/lovebyte2024/dsr_wires_256/hello.bas
Normal file
10
demos/lovebyte2024/dsr_wires_256/hello.bas
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
5 HOME
|
||||||
|
10 PRINT " -= DESIRE WIRES =-"
|
||||||
|
12 PRINT " --------------"
|
||||||
|
15 PRINT " 256 BYTE INTRO AT LOVEBYTE2024"
|
||||||
|
17 PRINT " BY DEATER/DESIRE"
|
||||||
|
20 PRINT CHR$(4)"CATALOG"
|
||||||
|
25 PRINT:PRINT "PRESS ANY KEY TO 'BRUN DSR_WIRES'"
|
||||||
|
30 GET A$
|
||||||
|
35 PRINT
|
||||||
|
40 PRINT CHR$(4)"BRUN DSR_WIRES"
|
||||||
@ -1,49 +0,0 @@
|
|||||||
include ../../../Makefile.inc
|
|
||||||
|
|
||||||
DOS33 = ../../../utils/dos33fs-utils/dos33
|
|
||||||
TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
|
|
||||||
EMPTYDISK = ../../../empty_disk/empty.dsk
|
|
||||||
LINKERSCRIPTS = ../../../linker_scripts/
|
|
||||||
|
|
||||||
all: wires.dsk
|
|
||||||
|
|
||||||
wires.dsk: HELLO WIRES
|
|
||||||
cp $(EMPTYDISK) wires.dsk
|
|
||||||
$(DOS33) -y wires.dsk SAVE A HELLO
|
|
||||||
$(DOS33) -y wires.dsk BSAVE -a 0xc00 WIRES
|
|
||||||
|
|
||||||
###
|
|
||||||
|
|
||||||
submit: wires.zip
|
|
||||||
|
|
||||||
wires.zip: WIRES wires.s file_id.diz wires.dsk
|
|
||||||
mkdir -p lovebyte2023_wires
|
|
||||||
cp WIRES ./lovebyte2023_wires
|
|
||||||
cp wires.s ./lovebyte2023_wires
|
|
||||||
cp file_id.diz ./lovebyte2023_wires
|
|
||||||
cp wires.dsk ./lovebyte2023_wires
|
|
||||||
cp monitor.txt ./lovebyte2023_wires
|
|
||||||
cp wires_screen.png ./lovebyte2023_wires
|
|
||||||
cp wires_720p.mp4 ./lovebyte2023_wires
|
|
||||||
zip -r wires.zip lovebyte2023_wires
|
|
||||||
|
|
||||||
####
|
|
||||||
|
|
||||||
|
|
||||||
####
|
|
||||||
|
|
||||||
HELLO: hello.bas
|
|
||||||
$(TOKENIZE) < hello.bas > HELLO
|
|
||||||
|
|
||||||
###
|
|
||||||
|
|
||||||
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
|
|
||||||
|
|
||||||
####
|
|
||||||
|
|
||||||
clean:
|
|
||||||
rm -f *~ *.o *.lst HELLO WIRES *.zip
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
5 HOME
|
|
||||||
10 PRINT " WIRES"
|
|
||||||
20 PRINT CHR$(4)"CATALOG"
|
|
||||||
25 PRINT:PRINT "PRESS ANY KEY TO 'BRUN WIRES'"
|
|
||||||
30 GET A$
|
|
||||||
35 PRINT
|
|
||||||
40 PRINT CHR$(4)"BRUN WIRES"
|
|
||||||
@ -1,132 +0,0 @@
|
|||||||
; wires -- Apple II Hires
|
|
||||||
|
|
||||||
|
|
||||||
; D0+ used by HGR routines
|
|
||||||
|
|
||||||
HGR_COLOR = $E4
|
|
||||||
HGR_PAGE = $E6
|
|
||||||
|
|
||||||
GBASL = $26
|
|
||||||
GBASH = $27
|
|
||||||
|
|
||||||
HGR_END2 = $FC
|
|
||||||
HGR_END = $FD
|
|
||||||
COUNT = $FE
|
|
||||||
FRAME = $FF
|
|
||||||
|
|
||||||
; soft-switches
|
|
||||||
|
|
||||||
PAGE1 = $C054
|
|
||||||
PAGE2 = $C055
|
|
||||||
|
|
||||||
; ROM routines
|
|
||||||
|
|
||||||
HGR2 = $F3D8 ; set hires page2 and clear $4000-$5fff
|
|
||||||
HGR = $F3E2 ; set hires page1 and clear $2000-$3FFF
|
|
||||||
WAIT = $FCA8 ; delay 1/2(26+27A+5A^2) us
|
|
||||||
|
|
||||||
wires:
|
|
||||||
jsr HGR
|
|
||||||
jsr HGR2 ; clear screen PAGE2 A and Y 0 after
|
|
||||||
|
|
||||||
reset_x:
|
|
||||||
ldx #$0
|
|
||||||
|
|
||||||
switch_pages:
|
|
||||||
lda HGR_PAGE
|
|
||||||
eor #$60
|
|
||||||
sta HGR_PAGE
|
|
||||||
cmp #$40
|
|
||||||
bne switch_page2
|
|
||||||
bit PAGE1
|
|
||||||
jmp outer_loop
|
|
||||||
switch_page2:
|
|
||||||
bit PAGE2
|
|
||||||
|
|
||||||
outer_loop:
|
|
||||||
|
|
||||||
;=====================================
|
|
||||||
; pulse loop horizontal
|
|
||||||
;=====================================
|
|
||||||
; write out pattern to horizontal line
|
|
||||||
; due to memory layout by going $4000-$43FF only draw every 8th line
|
|
||||||
|
|
||||||
|
|
||||||
lda #$00
|
|
||||||
tay
|
|
||||||
|
|
||||||
sta GBASL
|
|
||||||
|
|
||||||
lda HGR_PAGE ; point GBASL to $4000
|
|
||||||
sta GBASH
|
|
||||||
|
|
||||||
clc
|
|
||||||
adc #$4
|
|
||||||
sta HGR_END
|
|
||||||
adc #$1C
|
|
||||||
sta HGR_END2
|
|
||||||
horiz_loop:
|
|
||||||
|
|
||||||
lda even_lookup,X
|
|
||||||
sta (GBASL),Y
|
|
||||||
iny
|
|
||||||
|
|
||||||
lda odd_lookup,X
|
|
||||||
sta (GBASL),Y
|
|
||||||
iny
|
|
||||||
|
|
||||||
bne noflo2
|
|
||||||
inc GBASH
|
|
||||||
noflo2:
|
|
||||||
|
|
||||||
lda HGR_END
|
|
||||||
cmp GBASH
|
|
||||||
bne horiz_loop
|
|
||||||
|
|
||||||
;========================================
|
|
||||||
; vertical loop
|
|
||||||
;========================================
|
|
||||||
|
|
||||||
; A should already be $44 here
|
|
||||||
; Y should be 0
|
|
||||||
; X is position in pattern
|
|
||||||
|
|
||||||
; to be honest I don't remember how this works
|
|
||||||
|
|
||||||
vert_loop:
|
|
||||||
txa
|
|
||||||
|
|
||||||
clc
|
|
||||||
adc #2 ; $44 + 2? = $46
|
|
||||||
asl ; = $8E
|
|
||||||
asl ; shift left? = $1C + carry
|
|
||||||
adc HGR_PAGE ; what? = $5D
|
|
||||||
sbc GBASH ; huh - $44 = $19
|
|
||||||
|
|
||||||
cmp #8 ; WHAT IS GOING ON HERE?
|
|
||||||
lda #$81
|
|
||||||
bcs noeor
|
|
||||||
ora #$02
|
|
||||||
noeor:
|
|
||||||
|
|
||||||
sta (GBASL),Y ; store it out
|
|
||||||
|
|
||||||
inc GBASL ; skip two columns
|
|
||||||
inc GBASL
|
|
||||||
bne noflo
|
|
||||||
inc GBASH
|
|
||||||
noflo:
|
|
||||||
lda HGR_END2
|
|
||||||
cmp GBASH
|
|
||||||
bne vert_loop
|
|
||||||
|
|
||||||
inx ; wrap at 7
|
|
||||||
cpx #7
|
|
||||||
beq reset_x
|
|
||||||
|
|
||||||
bne switch_pages ; bra
|
|
||||||
|
|
||||||
even_lookup:
|
|
||||||
.byte $D7,$DD,$F5, $D5,$D5,$D5,$D5
|
|
||||||
odd_lookup:
|
|
||||||
.byte $AA,$AA,$AA, $AB,$AE,$BA,$EA
|
|
||||||
Loading…
x
Reference in New Issue
Block a user