Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-08 15:29:41 +00:00
Code Issues Projects Releases Wiki Activity

lovebyte: getting late

Browse Source
This commit is contained in:
Vince Weaver 2024-02-07 21:20:08 -05:00
parent bea119cf04
commit d2f99b48af
3 changed files with 47 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
demos/lovebyte2024/d2v/Makefile
View File

@ -7,11 +7,12 @@ LINKERSCRIPTS = ../../../linker_scripts/
all: dont.dsk all: dont.dsk
dont.dsk: HELLO DONT DONT2 dont.dsk: HELLO DONT DONT2 SA_ED
cp $(EMPTYDISK) dont.dsk cp $(EMPTYDISK) dont.dsk
$(DOS33) -y dont.dsk SAVE A HELLO $(DOS33) -y dont.dsk SAVE A HELLO
$(DOS33) -y dont.dsk BSAVE -a 0xc00 DONT $(DOS33) -y dont.dsk BSAVE -a 0xc00 DONT
$(DOS33) -y dont.dsk BSAVE -a 0xc00 DONT2 $(DOS33) -y dont.dsk BSAVE -a 0xc00 DONT2
$(DOS33) -y dont.dsk BSAVE -a 0xc00 SA_ED
### ###
@ -52,6 +53,15 @@ DONT2: dont2.o
dont2.o: dont2.s still.s dont2.o: dont2.s still.s
ca65 -o dont2.o dont2.s -l dont2.lst ca65 -o dont2.o dont2.s -l dont2.lst
###
SA_ED: sa_ed.o
ld65 -o SA_ED sa_ed.o -C $(LINKERSCRIPTS)/apple2_c00.inc
sa_ed.o: sa_ed.s duet.s
ca65 -o sa_ed.o sa_ed.s -l sa_ed.lst
#### ####

2
demos/lovebyte2024/d2v/dont2.s
View File

@ -8,6 +8,7 @@
; 135 bytes = more optimization ; 135 bytes = more optimization
; zero page locations ; zero page locations
CH = $24
GBASL = $26 GBASL = $26
GBASH = $27 GBASH = $27
H2 = $2C H2 = $2C
@ -37,6 +38,7 @@ HOME = $FC58 ; Clear the text screen
TEXT = $FB36 TEXT = $FB36
HLINE = $F819 ; HLINE Y,$2C at A HLINE = $F819 ; HLINE Y,$2C at A
VLINE = $F828 ; VLINE A,$2D at Y VLINE = $F828 ; VLINE A,$2D at Y
TABV = $FB5B ; go to A
HGR2 = $F3D8 HGR2 = $F3D8

48
demos/lovebyte2024/d2v/still.s
View File

@ -46,7 +46,7 @@ still:
lda #20 lda #20
sta $20 ; left edge sta $20 ; left edge
sta $21 ; right edge sta $21 ; width
lda #2 lda #2
sta $22 ; top edge sta $22 ; top edge
@ -61,7 +61,7 @@ still:
ldy #0 ldy #0
opening_loop: opening_loop:
lda (INL),Y lda (INL),Y
beq done_still beq play_music
ora #$80 ora #$80
jsr COUT1 jsr COUT1
iny iny
@ -70,6 +70,25 @@ opening_loop:
;=========================== ;===========================
; play music and draw loop ; play music and draw loop
play_music:
;==========================
; set screen for wrap again
lda #1
sta $20 ; left edge
lda #15 ; width
sta $21
lda #2
sta $22 ; top edge
lda #18
sta $23
lda #2
sta CH
jsr TABV
lda #<music_data lda #<music_data
sta INL sta INL
lda #>music_data lda #>music_data
@ -102,6 +121,16 @@ ahead:
jmp play_tone jmp play_tone
done_tone: done_tone:
lda #'@'|$80
jsr COUT1
lda #'@'|$80
jsr COUT1
lda #'@'|$80
jsr COUT1
lda #' '|$80
jsr COUT1
ldy SAVEY ldy SAVEY
jmp music_loop jmp music_loop
@ -131,17 +160,8 @@ opening:
; F,D ; F,D
music_data: music_data:
.byte 85,54 .byte 85,54, 91,54, 102,54, 102,54, 91,54, 1,54
.byte 91,54 .byte 152,54, 85,54, 91,54, 102,54, 102,108, 91,54, 1,54
.byte 102,54 .byte 114,108, 102,54, 152, 108, 1,108
.byte 102,54
.byte 91,54
.byte 0 .byte 0
;80 T$="This ":D=54:F=85:GOSUB 8
;82 T$="was ":F=91:GOSUB 8
;84 T$="a ":F=102:GOSUB 8
;86 T$="tri":GOSUB 8
;89 T$="umph."+C$:F=91:GOSUB 8
;90 FOR I=1 TO 800:NEXT