mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-04-18 03:37:41 +00:00
tiny_wip: half-done works in progress
This commit is contained in:
Vince Weaver
parent
7848dbaf33
commit
96635f52eb
51
demos/tiny_wip/Makefile
Normal file
51
demos/tiny_wip/Makefile
Normal file
@ -0,0 +1,51 @@
|
||||
include ../../Makefile.inc
|
||||
|
||||
DOS33 = ../../utils/dos33fs-utils/dos33
|
||||
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
|
||||
EMPTYDISK = ../../empty_disk/empty.dsk
|
||||
LINKER_SCRIPTS = ../../linker_scripts/
|
||||
|
||||
all: tiny_demos.dsk
|
||||
|
||||
tiny_demos.dsk: HELLO CHEVRON_17 CIRCUIT_17 TIGER_22
|
||||
cp $(EMPTYDISK) tiny_demos.dsk
|
||||
$(DOS33) -y tiny_demos.dsk SAVE A HELLO
|
||||
$(DOS33) -y tiny_demos.dsk BSAVE -a 0xE7 CHEVRON_17
|
||||
$(DOS33) -y tiny_demos.dsk BSAVE -a 0xE7 CIRCUIT_17
|
||||
$(DOS33) -y tiny_demos.dsk BSAVE -a 0xE7 TIGER_22
|
||||
|
||||
###
|
||||
|
||||
HELLO: hello.bas
|
||||
$(TOKENIZE) < hello.bas > HELLO
|
||||
|
||||
###
|
||||
|
||||
CHEVRON_17: chevron_17.o
|
||||
ld65 -o CHEVRON_17 chevron_17.o -C $(LINKER_SCRIPTS)/apple2_e7_zp.inc
|
||||
|
||||
chevron_17.o: chevron_17.s
|
||||
ca65 -o chevron_17.o chevron_17.s -l chevron_17.lst
|
||||
|
||||
###
|
||||
|
||||
CIRCUIT_17: circuit_17.o
|
||||
ld65 -o CIRCUIT_17 circuit_17.o -C $(LINKER_SCRIPTS)/apple2_e7_zp.inc
|
||||
|
||||
circuit_17.o: circuit_17.s
|
||||
ca65 -o circuit_17.o circuit_17.s -l circuit_17.lst
|
||||
|
||||
###
|
||||
|
||||
TIGER_22: tiger_22.o
|
||||
ld65 -o TIGER_22 tiger_22.o -C $(LINKER_SCRIPTS)/apple2_e7_zp.inc
|
||||
|
||||
tiger_22.o: tiger_22.s
|
||||
ca65 -o tiger_22.o tiger_22.s -l tiger_22.lst
|
||||
|
||||
####
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o *.lst HELLO \
|
||||
CHEVRON_17 CIRCUIT_17 TIGER_22 *.zip
|
||||
|
||||
110
demos/tiny_wip/chevron_17.s
Normal file
110
demos/tiny_wip/chevron_17.s
Normal file
@ -0,0 +1,110 @@
|
||||
; 17B interesting XDRAW pattern
|
||||
|
||||
; This one looks vaguely like a chevron shape
|
||||
|
||||
; by Vince `deater` Weaver / dSr
|
||||
|
||||
; zero page locations
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
HGR_SCALE = $E7
|
||||
HGR_COLLISIONS = $EA
|
||||
|
||||
; ROM locations
|
||||
HGR2 = $F3D8
|
||||
HPOSN = $F411
|
||||
XDRAW0 = $F65D
|
||||
XDRAW1 = $F661
|
||||
HPLOT0 = $F457
|
||||
|
||||
chevron17:
|
||||
|
||||
; we load at zero page $E7 which is HGR_SCALE
|
||||
; this means the scale is $20 (JSR)
|
||||
|
||||
; $20 $D8 $F3
|
||||
|
||||
jsr HGR2 ; Hi-res, full screen ; 3
|
||||
; Y=0, A=0 after this call
|
||||
|
||||
; A and Y are 0 here.
|
||||
; X is left behind by the boot process?
|
||||
|
||||
; set GBASL/GBASH
|
||||
; we really have to call this, otherwise it won't run
|
||||
; on some real hardware depending on setup of zero page at boot
|
||||
|
||||
jsr HPLOT0 ; set screen position to X= (y,x) Y=(a)
|
||||
; saves X,Y,A to zero page
|
||||
; after Y= orig X/7
|
||||
; A and X are ??
|
||||
|
||||
|
||||
; aa = (orange)tiger stripes
|
||||
; 55 = purple
|
||||
; 2a = green
|
||||
; lda #$2a
|
||||
; jsr $F3F4
|
||||
|
||||
tiny_loop:
|
||||
|
||||
; e2/e3
|
||||
; 0.. 63?
|
||||
; 0 = maze
|
||||
; 1 = scaly
|
||||
; 2 = ??
|
||||
; 3 = tower plates
|
||||
; 4 = bubbles
|
||||
; 5 = strings
|
||||
; 6 = circuit board *
|
||||
; 7 = noodles
|
||||
; 8 = pickup sticks
|
||||
; 9 = meh
|
||||
; 10 = interesting
|
||||
; 11 = meh
|
||||
; 12 = static
|
||||
; 13 = weave
|
||||
; 14 = core
|
||||
; 15 = masts *
|
||||
; 16 = maze again
|
||||
; 17 = spots *
|
||||
; 18 = bamboo *
|
||||
; 19 = mesh
|
||||
; 20 = coils
|
||||
; 21 = sunspots
|
||||
; 22 = gridy
|
||||
; 23 = dominos
|
||||
; 24 = chevron **
|
||||
; 25 = borg
|
||||
; 26 = grid
|
||||
; 27 = plants
|
||||
; 28 = spaces
|
||||
; 29 = ridges
|
||||
; 30 = net
|
||||
; 31 = odd
|
||||
; 32 = maze again
|
||||
|
||||
; e2/e5
|
||||
; e3 looks best?
|
||||
; a0 interesting, green train
|
||||
|
||||
; inc rot_smc+1 ; broken glass
|
||||
|
||||
; bit $C030
|
||||
|
||||
rot_smc:
|
||||
lda #$D8 ; $18, $58, $98, $D8
|
||||
|
||||
; ROT=$D8
|
||||
|
||||
ldy #$E2 ;
|
||||
ldx #$E3 ; Y=$E2
|
||||
; X=$E3
|
||||
|
||||
jsr XDRAW0 ; XDRAW, A =ROTATE, X/Y = point to shape
|
||||
; Both A and X are 0 at exit
|
||||
; Z flag set on exit
|
||||
; Y varies
|
||||
|
||||
beq tiny_loop ; bra
|
||||
|
||||
110
demos/tiny_wip/circuit_17.s
Normal file
110
demos/tiny_wip/circuit_17.s
Normal file
@ -0,0 +1,110 @@
|
||||
; 17B interesting XDRAW pattern
|
||||
|
||||
; This one looks vaguely like a circuit board
|
||||
|
||||
; by Vince `deater` Weaver / dSr
|
||||
|
||||
; zero page locations
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
HGR_SCALE = $E7
|
||||
HGR_COLLISIONS = $EA
|
||||
|
||||
; ROM locations
|
||||
HGR2 = $F3D8
|
||||
HPOSN = $F411
|
||||
XDRAW0 = $F65D
|
||||
XDRAW1 = $F661
|
||||
HPLOT0 = $F457
|
||||
|
||||
circuit17:
|
||||
|
||||
; we load at zero page $E7 which is HGR_SCALE
|
||||
; this means the scale is $20 (JSR)
|
||||
|
||||
; $20 $D8 $F3
|
||||
|
||||
jsr HGR2 ; Hi-res, full screen ; 3
|
||||
; Y=0, A=0 after this call
|
||||
|
||||
; A and Y are 0 here.
|
||||
; X is left behind by the boot process?
|
||||
|
||||
; set GBASL/GBASH
|
||||
; we really have to call this, otherwise it won't run
|
||||
; on some real hardware depending on setup of zero page at boot
|
||||
|
||||
jsr HPLOT0 ; set screen position to X= (y,x) Y=(a)
|
||||
; saves X,Y,A to zero page
|
||||
; after Y= orig X/7
|
||||
; A and X are ??
|
||||
|
||||
|
||||
; aa = (orange)tiger stripes
|
||||
; 55 = purple
|
||||
; 2a = green
|
||||
; lda #$2a
|
||||
; jsr $F3F4
|
||||
|
||||
tiny_loop:
|
||||
|
||||
; e2/e3
|
||||
; 0.. 63?
|
||||
; 0 = maze
|
||||
; 1 = scaly
|
||||
; 2 = ??
|
||||
; 3 = tower plates
|
||||
; 4 = bubbles
|
||||
; 5 = strings
|
||||
; 6 = circuit board *
|
||||
; 7 = noodles
|
||||
; 8 = pickup sticks
|
||||
; 9 = meh
|
||||
; 10 = interesting
|
||||
; 11 = meh
|
||||
; 12 = static
|
||||
; 13 = weave
|
||||
; 14 = core
|
||||
; 15 = masts *
|
||||
; 16 = maze again
|
||||
; 17 = spots *
|
||||
; 18 = bamboo *
|
||||
; 19 = mesh
|
||||
; 20 = coils
|
||||
; 21 = sunspots
|
||||
; 22 = gridy
|
||||
; 23 = dominos
|
||||
; 24 = chevron **
|
||||
; 25 = borg
|
||||
; 26 = grid
|
||||
; 27 = plants
|
||||
; 28 = spaces
|
||||
; 29 = ridges
|
||||
; 30 = net
|
||||
; 31 = odd
|
||||
; 32 = maze again
|
||||
|
||||
; e2/e5
|
||||
; e3 looks best?
|
||||
; a0 interesting, green train
|
||||
|
||||
; inc rot_smc+1 ; broken glass
|
||||
|
||||
; bit $C030
|
||||
|
||||
rot_smc:
|
||||
lda #$6 ; $6
|
||||
|
||||
; ROT=$C6
|
||||
|
||||
ldy #$E2 ;
|
||||
ldx #$E3 ; Y=$E2
|
||||
; X=$E3
|
||||
|
||||
jsr XDRAW0 ; XDRAW, A =ROTATE, X/Y = point to shape
|
||||
; Both A and X are 0 at exit
|
||||
; Z flag set on exit
|
||||
; Y varies
|
||||
|
||||
beq tiny_loop ; bra
|
||||
|
||||
2
demos/tiny_wip/hello.bas
Normal file
2
demos/tiny_wip/hello.bas
Normal file
@ -0,0 +1,2 @@
|
||||
5 HOME
|
||||
40 PRINT CHR$(4)"CATALOG"
|
||||
Loading…
x
Reference in New Issue
Block a user