Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-29 21:31:53 +00:00
Code Issues Projects Releases Wiki Activity

basic: add large_xor

Browse Source
This commit is contained in:
Vince Weaver 2022-09-25 17:37:38 -04:00
parent e3e4f2a559
commit f02c284329
10 changed files with 430 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basic/appleiibot/Makefile
View File

@ -26,7 +26,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
PARTICLE_HGR.BAS DIAMOND_SCROLL.BAS RANDOM_SCROLL.BAS STAR_BOUNCE.BAS\
OOZE.BAS HORIZ_STAR.BAS PLANET.BAS SECRET_COLLECT.BAS PLANET_GR.BAS \
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \
LARGE_XOR.BAS
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
# cp empty.dsk appleiibot.dsk
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -141,6 +142,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A MYSTERY.BAS
$(DOS33) -y appleiibot.dsk SAVE A OFFICE.BAS
$(DOS33) -y appleiibot.dsk SAVE A GR_XOR.BAS
$(DOS33) -y appleiibot.dsk SAVE A LARGE_XOR.BAS
####
@ -793,6 +795,11 @@ OFFICE.BAS: office.bas
GR_XOR.BAS: gr_xor.bas
$(TOKENIZE) < gr_xor.bas > GR_XOR.BAS
####
LARGE_XOR.BAS: large_xor.bas
$(TOKENIZE) < large_xor.bas > LARGE_XOR.BAS
####

2
basic/appleiibot/large_xor.bas Normal file
View File

@ -0,0 +1,2 @@
1FORI=0TO113:POKE902+I,4*PEEK(2125+I)-204+(PEEK(2239+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"/@q<GcY2ThjmRkE;CE8:3Xao2TrUj3Jc3Uk3Id3[rECE]aHcLE4Kp[6U;@p\88LeQ<X<APJmIoUFlDp=4k3\je3Y2W<U7je7\<\Fllgll`I98EZ8Q3S+4LLMY9*XTXX(-$'H.66X/GP<*3C4%-U<=Y5[

21
graphics/gr/parallax/Makefile
View File

@ -8,11 +8,13 @@ TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
all: paralax.dsk
paralax.dsk: HELLO BOXES BOXES_BOT
paralax.dsk: HELLO BOXES BOXES_BOT LARGE LARGE_BOT
cp $(EMPTY_DISK) paralax.dsk
$(DOS33) -y paralax.dsk SAVE A HELLO
$(DOS33) -y paralax.dsk BSAVE -a 0xc00 BOXES
$(DOS33) -y paralax.dsk BSAVE -a 0x3B7 BOXES_BOT
$(DOS33) -y paralax.dsk BSAVE -a 0xc00 LARGE
$(DOS33) -y paralax.dsk BSAVE -a 0x386 LARGE_BOT
###
@ -24,6 +26,15 @@ boxes.o: boxes.s
###
LARGE: large.o
ld65 -o LARGE large.o -C $(LINKER_DIR)/apple2_c00.inc
large.o: large.s
ca65 -o large.o large.s -l large.lst
###
BOXES_BOT: boxes_bot.o
ld65 -o BOXES_BOT boxes_bot.o -C $(LINKER_DIR)/apple2_3b7.inc
@ -33,6 +44,14 @@ boxes_bot.o: boxes_bot.s
###
LARGE_BOT: large_bot.o
ld65 -o LARGE_BOT large_bot.o -C $(LINKER_DIR)/apple2_386.inc
large_bot.o: large_bot.s
ca65 -o large_bot.o large_bot.s -l large_bot.lst
###
HELLO: hello.bas
$(TOKENIZE) < hello.bas > HELLO

170
graphics/gr/parallax/large.s Normal file
View File

@ -0,0 +1,170 @@
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
GBASL = $26
GBASH = $27
H2 = $2C
COLOR = $30
X2 = $FB
COLORS = $FC
FRAME = $EA ; also a nop
PAGE = $FD
; Soft Switches
KEYPRESS= $C000
KEYRESET= $C010
SET_GR = $C050 ; Enable graphics
FULLGR = $C052 ; Full screen, no text
PAGE1 = $C054 ; Page1
PAGE2 = $C055 ; Page2
LORES = $C056 ; Enable LORES graphics
; ROM routines
PLOT = $F800 ; plot, horiz=y, vert=A (A trashed, XY Saved)
SETCOL = $F864
GBASCALC= $F847 ;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
SETGR = $FB40
HOME = $FC58 ;; Clear the text screen
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
HLINE = $F819
boxes:
;===================
; init screen
jsr SETGR ; 3
bit FULLGR ; 3
lda #$0
sta PAGE
boxes_forever:
inc FRAME ; 2
;========================
; update directions
lda FRAME
lsr
lsr
lsr
lsr
lsr
and #$3
tax
lda colors,X
sta COLORS
lda dir_horiz_lookup,X
sta horiz_smc
lda dir_vert_lookup,X
sta vert_smc
;==========================
; flip page
lda PAGE
pha
lsr
lsr
tay
lda PAGE1,Y
pla
eor #$4
sta PAGE
;========================
; setup for 23 lines
ldx #23 ; 2
yloop:
;==============
; point GBASL/GBSAH to current line
txa
jsr GBASCALC
lda GBASH
clc
adc PAGE
sta GBASH
;==============
; current column (work backwards)
ldy #39 ; 2
xloop:
; calculate color
; color = (XX-FRAME)^(YY)
sec ; subtract frame from Y
tya
horiz_smc:
adc FRAME
sta X2
txa
vert_smc:
adc FRAME
eor X2
and #$4
beq clear_it
lda COLORS
bne done_set_color
clear_it:
lda #$0
done_set_color:
sta (GBASL),Y
dey ; 1
bpl xloop ; 2
dex ; 1
bpl yloop ; 2
bmi boxes_forever ; 2
; 00 = right
; 01 = up
; 10 = left
; 11 = down
; adc = $65
; sbc = $E5
dir_horiz_lookup:
.byte $65,$EA,$E5,$EA
dir_vert_lookup:
.byte $EA,$E5,$EA,$65
colors:
.byte $1B,$26,$4C,$9D
; for bot
; 3F5 - 111 = 6F = 386
; jmp boxes

170
graphics/gr/parallax/large_bot.s Normal file
View File

@ -0,0 +1,170 @@
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
GBASL = $26
GBASH = $27
H2 = $2C
COLOR = $30
X2 = $FB
COLORS = $FC
FRAME = $EA ; also a nop
PAGE = $FD
; Soft Switches
KEYPRESS= $C000
KEYRESET= $C010
SET_GR = $C050 ; Enable graphics
FULLGR = $C052 ; Full screen, no text
PAGE1 = $C054 ; Page1
PAGE2 = $C055 ; Page2
LORES = $C056 ; Enable LORES graphics
; ROM routines
PLOT = $F800 ; plot, horiz=y, vert=A (A trashed, XY Saved)
SETCOL = $F864
GBASCALC= $F847 ;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
SETGR = $FB40
HOME = $FC58 ;; Clear the text screen
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
HLINE = $F819
boxes:
;===================
; init screen
jsr SETGR ; 3
bit FULLGR ; 3
lda #$0
sta PAGE
boxes_forever:
inc FRAME ; 2
;========================
; update directions
lda FRAME
lsr
lsr
lsr
lsr
lsr
and #$3
tax
lda colors,X
sta COLORS
lda dir_horiz_lookup,X
sta horiz_smc
lda dir_vert_lookup,X
sta vert_smc
;==========================
; flip page
lda PAGE ; if disp page == 0 (page1)
pha ; make draw_page1, disp_page2
; if displ_page == 4 (page2)
lsr ; make draw_page2, disp_page1
lsr
tay
lda PAGE1,Y
pla
eor #$4
sta PAGE
;========================
; setup for 23 lines
ldx #23 ; 2
yloop:
;==============
; point GBASL/GBSAH to current line
txa
jsr GBASCALC
lda GBASH
clc
adc PAGE
sta GBASH
;==============
; current column (work backwards)
ldy #39 ; 2
xloop:
; calculate color
; color = (XX-FRAME)^(YY)
sec ; subtract frame from Y
tya
horiz_smc:
adc FRAME
sta X2
txa
vert_smc:
adc FRAME
eor X2
and #$4
beq clear_it
lda COLORS
bne done_set_color
clear_it:
lda #$0
done_set_color:
sta (GBASL),Y
dey ; 1
bpl xloop ; 2
dex ; 1
bpl yloop ; 2
bmi boxes_forever ; 2
; 00 = right
; 01 = up
; 10 = left
; 11 = down
; adc = $65
; sbc = $E5
dir_horiz_lookup:
.byte $65,$EA,$E5,$EA
dir_vert_lookup:
.byte $EA,$E5,$EA,$65
colors:
.byte $1B,$26,$4C,$9D
; for bot
; 3F5 - 111 = 6F = 386
jmp boxes

12
linker_scripts/apple2_200.inc Normal file
View File

@ -0,0 +1,12 @@
MEMORY {
ZP: start = $00, size = $1A, type = rw;
RAM: start = $200, size = $8000, file = %O;
}
SEGMENTS {
CODE: load = RAM, type = ro, align = $100;
RODATA: load = RAM, type = ro;
DATA: load = RAM, type = rw;
BSS: load = RAM, type = bss, define = yes;
ZEROPAGE: load = ZP, type = zp;
}

12
linker_scripts/apple2_386.inc Normal file
View File

@ -0,0 +1,12 @@
MEMORY {
ZP: start = $00, size = $1A, type = rw;
RAM: start = $386, size = $8E00, file = %O;
}
SEGMENTS {
CODE: load = RAM, type = ro;
RODATA: load = RAM, type = ro;
DATA: load = RAM, type = rw;
BSS: load = RAM, type = bss, define = yes;
ZEROPAGE: load = ZP, type = zp;
}

12
linker_scripts/apple2_389.inc Normal file
View File

@ -0,0 +1,12 @@
MEMORY {
ZP: start = $00, size = $1A, type = rw;
RAM: start = $389, size = $8E00, file = %O;
}
SEGMENTS {
CODE: load = RAM, type = ro;
RODATA: load = RAM, type = ro;
DATA: load = RAM, type = rw;
BSS: load = RAM, type = bss, define = yes;
ZEROPAGE: load = ZP, type = zp;
}

12
linker_scripts/apple2_3b7.inc Normal file
View File

@ -0,0 +1,12 @@
MEMORY {
ZP: start = $00, size = $1A, type = rw;
RAM: start = $3b7, size = $8E00, file = %O;
}
SEGMENTS {
CODE: load = RAM, type = ro;
RODATA: load = RAM, type = ro;
DATA: load = RAM, type = rw;
BSS: load = RAM, type = bss, define = yes;
ZEROPAGE: load = ZP, type = zp;
}

12
linker_scripts/apple2_80_zp.inc Normal file
View File

@ -0,0 +1,12 @@
MEMORY {
ZP: start = $80, size = $80, type = rw;
RAM: start = $90, size = $8E00, file = %O;
}
SEGMENTS {
CODE: load = RAM, type = ro;
RODATA: load = RAM, type = ro;
DATA: load = RAM, type = rw;
BSS: load = RAM, type = bss, define = yes;
ZEROPAGE: load = ZP, type = ro;
}