mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-08 12:30:47 +00:00
thick_sine: as thick as it's going to get I suppose
This commit is contained in:
Vince Weaver
parent
9fa0ff23e2
commit
d014d2adcf
47
demos/l/thick_sin_64/Makefile
Normal file
47
demos/l/thick_sin_64/Makefile
Normal file
@ -0,0 +1,47 @@
|
||||
include ../../../Makefile.inc
|
||||
|
||||
DOS33 = ../../../utils/dos33fs-utils/dos33
|
||||
TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
|
||||
EMPTYDISK = ../../../empty_disk/empty.dsk
|
||||
LINKERSCRIPTS = ../../../linker_scripts
|
||||
|
||||
all: thick_sine.dsk
|
||||
|
||||
thick_sine.dsk: HELLO THICK_SINE
|
||||
cp $(EMPTYDISK) thick_sine.dsk
|
||||
$(DOS33) -y thick_sine.dsk SAVE A HELLO
|
||||
$(DOS33) -y thick_sine.dsk BSAVE -a 0xC00 THICK_SINE
|
||||
|
||||
###
|
||||
|
||||
submit: thick_sine64
|
||||
|
||||
thick_sine64: DSR dsr.s file_id.diz thick_sine.dsk
|
||||
mkdir -p lovebyte2022_thick_sine64
|
||||
cp THICK_SINE ./lovebyte2022_thick_sine64
|
||||
cp thick_sine.s ./lovebyte2022_thick_sine64
|
||||
cp file_id.diz ./lovebyte2022_thick_sine64
|
||||
cp thick_sine.dsk ./lovebyte2022_thick_sine64
|
||||
cp thick_sine_720p.mp4 ./lovebyte2022_thick_sine64
|
||||
zip -r thick_sine64 lovebyte2022_thick_sine64
|
||||
|
||||
####
|
||||
|
||||
|
||||
####
|
||||
|
||||
HELLO: hello.bas
|
||||
$(TOKENIZE) < hello.bas > HELLO
|
||||
|
||||
###
|
||||
|
||||
THICK_SINE: thick_sine.o
|
||||
ld65 -o THICK_SINE thick_sine.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||
|
||||
thick_sine.o: thick_sine.s
|
||||
ca65 -o thick_sine.o thick_sine.s -l thick_sine.lst
|
||||
|
||||
####
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o *.lst HELLO THICK_SINE *.zip
|
||||
10
demos/l/thick_sin_64/file_id.diz
Normal file
10
demos/l/thick_sin_64/file_id.diz
Normal file
@ -0,0 +1,10 @@
|
||||
Thick Sine
|
||||
-
|
||||
64-byte Intro for Apple II, Lovebyte 2022
|
||||
by Deater / dSr
|
||||
|
||||
The tricky part is getting a SIN table this
|
||||
small. The Apple II has a COS table in ROM
|
||||
but it's a bit of a pain to use, and is
|
||||
missing the last value (which is why there's
|
||||
a gap in the sine here)
|
||||
8
demos/l/thick_sin_64/hello.bas
Normal file
8
demos/l/thick_sin_64/hello.bas
Normal file
@ -0,0 +1,8 @@
|
||||
5 HOME
|
||||
10 PRINT "THICK_SINE - 64B INTRO FOR LOVEBYTE 2022"
|
||||
15 PRINT " BY DEATER / DSR"
|
||||
20 PRINT CHR$(4)"CATALOG"
|
||||
25 PRINT:PRINT "PRESS ANY KEY TO 'BRUN THICK_SINE'"
|
||||
30 GET A$
|
||||
35 PRINT
|
||||
40 PRINT CHR$(4)"BRUN THICK_SINE"
|
||||
131
demos/l/thick_sin_64/thick_sine.s
Normal file
131
demos/l/thick_sin_64/thick_sine.s
Normal file
@ -0,0 +1,131 @@
|
||||
; thick sine
|
||||
|
||||
; 105 bytes -- original with table sine
|
||||
; 89 bytes -- use ROM cosine table to generate sine table
|
||||
; 86 bytes -- put sine table in zero page
|
||||
; 89 bytes -- adjust to add #1 to avoid thick line at middle
|
||||
; 87 bytes -- Y is 0 after HGR2
|
||||
; 83 bytes -- optimize color flip
|
||||
; 79 bytes -- use X
|
||||
; 74 bytes -- optimize frame
|
||||
; 72 bytes -- depend on X being 0 at end of loop
|
||||
; 71 bytes -- rerrange so can beq rather than jmp
|
||||
; 70 bytes -- update the sine table division
|
||||
; 69 bytes -- optimize sine routine
|
||||
; 63 bytes -- strip out stuff until it fits
|
||||
|
||||
; zero page
|
||||
sinetable=$60
|
||||
HGR_X = $E0
|
||||
HGR_XH = $E1
|
||||
HGR_Y = $E2
|
||||
HGR_COLOR = $E4
|
||||
HGR_PAGE = $E6
|
||||
|
||||
|
||||
FRAME = $FF
|
||||
|
||||
; ROM routines
|
||||
|
||||
HGR2 = $F3D8
|
||||
HPOSN = $F411 ; (Y,X),(A) (values stores in HGRX,XH,Y)
|
||||
HPLOT0 = $F457 ; plot at (Y,X), (A)
|
||||
costable_base = $F5BA
|
||||
|
||||
;================================
|
||||
; Clear screen and setup graphics
|
||||
;================================
|
||||
thick_sine:
|
||||
|
||||
jsr HGR2 ; set hi-res 140x192, page2, fullscreen
|
||||
; A and Y both 0 at end
|
||||
|
||||
; try to get sine table from ROM
|
||||
|
||||
rom_sine:
|
||||
|
||||
;==========================================
|
||||
; create sinetable using ROM cosine table
|
||||
|
||||
; ldy #0 ; from HGR2
|
||||
ldx #$f
|
||||
sinetable_loop:
|
||||
|
||||
lda costable_base,Y
|
||||
force_zero:
|
||||
lsr ; rom value is *256
|
||||
lsr ; we want *64
|
||||
|
||||
sta sinetable+$10,Y
|
||||
sta sinetable+$00,X
|
||||
|
||||
eor #$FF
|
||||
; sec
|
||||
; adc #$0
|
||||
|
||||
sta sinetable+$30,Y
|
||||
sta sinetable+$20,X
|
||||
|
||||
iny
|
||||
dex
|
||||
|
||||
; txa ; hack, ROM cosine table doesn't
|
||||
; have a good zero for some reason
|
||||
|
||||
; beq force_zero
|
||||
bpl sinetable_loop
|
||||
|
||||
; x is FF at this point
|
||||
|
||||
|
||||
;============================
|
||||
; main loop
|
||||
;============================
|
||||
|
||||
inx
|
||||
draw_sine:
|
||||
; X is 0 here, either from above, or from end of loop
|
||||
|
||||
; ldx #0 ; HGR_X
|
||||
|
||||
; offset next time through
|
||||
|
||||
inc FRAME
|
||||
|
||||
; X is zero here
|
||||
|
||||
; 9 bytes to flip color (was 14)
|
||||
|
||||
txa
|
||||
; lda #$FF
|
||||
bit FRAME
|
||||
bvs color_black
|
||||
eor #$FF
|
||||
color_black:
|
||||
sta HGR_COLOR
|
||||
|
||||
circle_loop:
|
||||
|
||||
; get sine value
|
||||
|
||||
lda FRAME
|
||||
and #$3f ; wrap value to 0..63
|
||||
tay
|
||||
lda sinetable,Y
|
||||
|
||||
; center on screen $60 is midscreen
|
||||
clc
|
||||
adc #$60
|
||||
|
||||
; ldx HGR_X ; saved in HGR_X
|
||||
ldy #0 ; saved in HGR_XH
|
||||
jsr HPLOT0 ; plot at (Y,X), (A)
|
||||
|
||||
inc FRAME
|
||||
|
||||
ldx HGR_X
|
||||
inx ; HGR_X
|
||||
|
||||
bne circle_loop
|
||||
|
||||
beq draw_sine ; bra
|
||||
Loading…
x
Reference in New Issue
Block a user