mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-27 02:31:00 +00:00
mem: add assembly version
This commit is contained in:
Vince Weaver
parent
e690731f43
commit
67fec1ce5b
37
hellmood_memories/Makefile
Normal file
37
hellmood_memories/Makefile
Normal file
@ -0,0 +1,37 @@
|
||||
include ../Makefile.inc
|
||||
|
||||
DOS33 = ../dos33fs-utils/dos33
|
||||
PNG_TO_40x96 = ../gr-utils/png_to_40x96
|
||||
PNG_TO_40x48D = ../gr-utils/png_to_40x48d
|
||||
PNG2RLE = ../gr-utils/png2rle
|
||||
B2D = ../bmp2dhr/b2d
|
||||
|
||||
all: memories.dsk
|
||||
|
||||
memories.dsk: HELLO CIRCLES.BAS CIRCLES
|
||||
cp empty.dsk memories.dsk
|
||||
$(DOS33) -y memories.dsk SAVE A HELLO
|
||||
$(DOS33) -y memories.dsk SAVE A CIRCLES.BAS
|
||||
$(DOS33) -y memories.dsk BSAVE -a 0x070 CIRCLES
|
||||
|
||||
|
||||
CIRCLES: circles.o
|
||||
ld65 -o CIRCLES circles.o -C ../linker_scripts/apple2_70_zp.inc
|
||||
|
||||
circles.o: circles.s
|
||||
ca65 -o circles.o circles.s -l circles.lst
|
||||
|
||||
###
|
||||
|
||||
HELLO: hello.bas
|
||||
../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
|
||||
|
||||
CIRCLES.BAS: zooming_circles.bas
|
||||
../asoft_basic-utils/tokenize_asoft < zooming_circles.bas > CIRCLES.BAS
|
||||
|
||||
####
|
||||
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o *.lst HELLO CIRCLES.BAS
|
||||
|
||||
157
hellmood_memories/circles.s
Normal file
157
hellmood_memories/circles.s
Normal file
@ -0,0 +1,157 @@
|
||||
; Zooming Circles, based on the code in Hellmood's Memories
|
||||
|
||||
; by deater (Vince Weaver) <vince@deater.net>
|
||||
|
||||
; Zero Page
|
||||
BASL = $28
|
||||
BASH = $29
|
||||
H2 = $2C
|
||||
COLOR = $30
|
||||
|
||||
X1 = $F0
|
||||
X2 = $F1
|
||||
Y1 = $F2
|
||||
Y2 = $F3
|
||||
|
||||
TEMP = $FA
|
||||
TEMPY = $FB
|
||||
FRAME = $FC
|
||||
TEMPX = $FD
|
||||
|
||||
|
||||
; Soft Switches
|
||||
KEYPRESS= $C000
|
||||
KEYRESET= $C010
|
||||
SET_GR = $C050 ; Enable graphics
|
||||
FULLGR = $C052 ; Full screen, no text
|
||||
PAGE0 = $C054 ; Page0
|
||||
PAGE1 = $C055 ; Page1
|
||||
LORES = $C056 ; Enable LORES graphics
|
||||
|
||||
; ROM routines
|
||||
|
||||
PLOT = $F800 ; plot, horiz=y, vert=A (A trashed, XY Saved)
|
||||
SETCOL = $F864
|
||||
TEXT = $FB36 ;; Set text mode
|
||||
BASCALC = $FBC1
|
||||
SETGR = $FB40
|
||||
HOME = $FC58 ;; Clear the text screen
|
||||
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||
HLINE = $F819
|
||||
|
||||
; 103 bytes
|
||||
|
||||
; attempted HLINE, not much help (122 bytes, slow)
|
||||
|
||||
; quad plot, also 122
|
||||
|
||||
|
||||
.globalzp squares_table_y
|
||||
.globalzp color_lookup
|
||||
.globalzp smc1,smc2,smc3,smc4
|
||||
|
||||
.zeropage
|
||||
|
||||
zooming_circles:
|
||||
|
||||
;===================
|
||||
; init screen
|
||||
jsr SETGR ; 3
|
||||
bit FULLGR ; 3
|
||||
;====
|
||||
; 6
|
||||
circle_forever:
|
||||
|
||||
inc FRAME ; 2
|
||||
|
||||
ldx #24 ; 2
|
||||
stx Y2 ; 2
|
||||
dex ; 1
|
||||
|
||||
yloop:
|
||||
ldy #20 ; 2
|
||||
sty X2 ; 2
|
||||
dey ; 1
|
||||
|
||||
xloop:
|
||||
|
||||
clc ; 1
|
||||
lda squares_table_y+4,y ; 3
|
||||
asl ; 1
|
||||
asl ; 1
|
||||
adc squares_table_y,x ; 2
|
||||
|
||||
lsr ; 1
|
||||
adc FRAME ; 2
|
||||
and #$1f ; 2
|
||||
|
||||
; and #$18
|
||||
; 00, 10 = black
|
||||
; 01 = grey 55 or aa
|
||||
; 11 = light blue 77
|
||||
|
||||
lsr ; 1
|
||||
lsr ; 1
|
||||
lsr ; 1
|
||||
sty TEMPY ; 2
|
||||
tay ; 1
|
||||
lda color_lookup,Y ; 3
|
||||
sta COLOR ; 2
|
||||
|
||||
ldy X2 ; Y==X2 ; 2
|
||||
txa ; A==Y1 ; 1
|
||||
jsr PLOT ; (X2,Y1) ; 3
|
||||
lda Y2 ; A==Y2 ; 2
|
||||
jsr PLOT ; (X2,Y2) ; 3
|
||||
|
||||
ldy TEMPY ; Y==X1 ; 2
|
||||
txa ; A==Y1 ; 1
|
||||
jsr PLOT ; (X1,Y1) ; 3
|
||||
lda Y2 ; A==Y2 ; 2
|
||||
jsr PLOT ; (X1,Y2) ; 3
|
||||
|
||||
inc X2 ; 2
|
||||
|
||||
dey ; 1
|
||||
bpl xloop ; 2
|
||||
|
||||
inc Y2 ; 2
|
||||
|
||||
dex ; 1
|
||||
bpl yloop ; 2
|
||||
|
||||
bmi circle_forever ; 2
|
||||
|
||||
|
||||
|
||||
|
||||
; 24 bytes
|
||||
squares_table_y:
|
||||
.byte $24,$21,$1e,$1b,$19,$16,$14,$12
|
||||
.byte $10,$0e,$0c,$0a,$09,$07,$06,$05
|
||||
.byte $04,$03,$02,$01,$01,$00,$00
|
||||
|
||||
color_lookup:
|
||||
.byte $00 ; also last byte of squares table
|
||||
.byte $55,$00,$77
|
||||
|
||||
|
||||
|
||||
;.byte $00,$00,$00,$00,$01,$01,$02,$03
|
||||
;.byte $04,$05,$06,$07,$09,$0a,$0c,$0e
|
||||
;.byte $10,$12,$14,$16,$19,$1b,$1e,$21
|
||||
|
||||
|
||||
|
||||
|
||||
; 40 bytes
|
||||
;squares_table_x:
|
||||
;.byte $71,$6a,$64,$5d,$57,$51,$4b,$45
|
||||
;.byte $40,$3a,$35,$31,
|
||||
;.byte $2c,$28,$24,$20
|
||||
;.byte $1c,$19,$15,$12,$10,$0d,$0b,$09
|
||||
;.byte $07,$05,$04,$02,$01,$01,$00,$00
|
||||
;.byte $00,$00,$00,$01,$01,$02,$04,$05
|
||||
;.byte $07,$09,$0b,$0d,$10,$12,$15,$19
|
||||
;.byte $1c,$20,$24,$28 ;,$2c,$31,$35,$3a
|
||||
;;.byte $40,$45,$4b,$51,$57,$5d,$64,$6a
|
||||
BIN
hellmood_memories/empty.dsk
Normal file
BIN
hellmood_memories/empty.dsk
Normal file
Binary file not shown.
4
hellmood_memories/hello.bas
Normal file
4
hellmood_memories/hello.bas
Normal file
@ -0,0 +1,4 @@
|
||||
5 HOME
|
||||
100 PRINT "SOME DEMOS BASED ON"
|
||||
110 PRINT "HELMOOD'S MEMORIES"
|
||||
120 PRINT CHR$(4);"CATALOG"
|
||||
BIN
hellmood_memories/memories.dsk
Normal file
BIN
hellmood_memories/memories.dsk
Normal file
Binary file not shown.
12
hellmood_memories/table_gen.c
Normal file
12
hellmood_memories/table_gen.c
Normal file
@ -0,0 +1,12 @@
|
||||
#include <stdio.h>
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
|
||||
int x,y;
|
||||
|
||||
// for(x=-32;x<32;x++) printf("$%02x,",(x*x)>>4);
|
||||
|
||||
for(x=-32;x<32;x++) printf("$%02x,",(x*x*16/9)>>4);
|
||||
|
||||
return 0;
|
||||
}
|
||||
3
hellmood_memories/zooming_circles.bas
Normal file
3
hellmood_memories/zooming_circles.bas
Normal file
@ -0,0 +1,3 @@
|
||||
1 GR:X=PEEK(49234):A(0)=0:A(1)=5:A(2)=0:A(3)=7
|
||||
2 FOR Y=-24 TO 23: FOR X=-20 TO 19: Z=X*4/3:C=F+(Z*Z+Y*Y)/16: C=C-INT(C/32)*32:COLOR=A(C/8):PLOT X+20,Y+24:NEXT:NEXT:F=F+1: GOTO 2
|
||||
|
||||
Loading…
Reference in New Issue
Block a user