logo: guess I'll get in on this LOGO action

This commit is contained in:
Vince Weaver 2021-07-26 01:29:42 -04:00
parent e78e44abca
commit 4e8e83cee6
9 changed files with 647 additions and 3 deletions

View File

@ -9,7 +9,7 @@ TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
all: checkers32.dsk
checkers32.dsk: HELLO CHECKERS CHECKERS_SMALL CHECKERS_SMALL2 CHECKERS_LINE \
CHECKERS_QUESTION CHECKERS_RAINBOW CHECKERS_ORIG
CHECKERS_QUESTION CHECKERS_RAINBOW CHECKERS_ORIG CHECKERS_2000
cp $(EMPTY_DISK) checkers32.dsk
$(DOS33) -y checkers32.dsk SAVE A HELLO
$(DOS33) -y checkers32.dsk BSAVE -a 0x070 CHECKERS
@ -19,6 +19,7 @@ checkers32.dsk: HELLO CHECKERS CHECKERS_SMALL CHECKERS_SMALL2 CHECKERS_LINE \
$(DOS33) -y checkers32.dsk BSAVE -a 0x070 CHECKERS_RAINBOW
$(DOS33) -y checkers32.dsk BSAVE -a 0x070 CHECKERS_QUESTION
$(DOS33) -y checkers32.dsk BSAVE -a 0x070 CHECKERS_ORIG
$(DOS33) -y checkers32.dsk BSAVE -a 0x2000 CHECKERS_2000
###
@ -31,6 +32,15 @@ checkers.o: checkers.s
###
CHECKERS_2000: checkers_2000.o
ld65 -o CHECKERS_2000 checkers_2000.o -C $(LINKER_DIR)/apple2_2000.inc
checkers_2000.o: checkers_2000.s
ca65 -o checkers_2000.o checkers_2000.s -l checkers_2000.lst
###
CHECKERS_SMALL: checkers_small.o
ld65 -o CHECKERS_SMALL checkers_small.o -C $(LINKER_DIR)/apple2_70_zp.inc

View File

@ -0,0 +1,98 @@
; Checkers
; vaguely based on a scene in Hellmood's Memories
; 32 bytes, for Lovebyte 2021
; by deater (Vince Weaver) <vince@deater.net>
; 42 -- original
; 39 -- not fullscreen
; 36 -- now marches oddly
; 32 -- colors now rainbow
; 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
.zeropage
checkers:
;===================
; init screen
jsr SETGR ; 3
; bit FULLGR ; 3
checkers_forever:
inc FRAME ; 2
ldx #39 ; 2
yloop:
ldy #39 ; 2
xloop:
; calculate color
; color = (XX-FRAME)^(A) | DB+1
; sec ; subtract frame from Y
tya
sbc FRAME
sta X2
txa
; sbc #0
eor X2
; ora #$DB ; needed for solid colors
; adc #1
jsr SETCOL
txa ; A==Y1 ; 1
jsr PLOT ; plots in (Y,A) ; 3
dey ; 1
bpl xloop ; 2
dex ; 1
bpl yloop ; 2
bmi checkers_forever ; 2

View File

@ -1,6 +1,6 @@
MEMORY {
ZP: start = $00, size = $1A, type = rw;
RAM: start = $2000, size = $A000, file = %O;
RAM: start = $2000, size = $8000, file = %O;
}
SEGMENTS {

154
logo/NOTES Normal file
View File

@ -0,0 +1,154 @@
; defualt screen is -140,120 to 140,-120 with SCRUNCH .8
; 96? -80 if splitscreen
SCREEN
~~~~~~
CLEAN -- erase screen
TEXTSCREEN (TS) -- show full screen text
SPLITSCREEN
FULLSCREEN
SETCURSOR x y
CLEARTEXT (CT)
CLEARSCREEN (CS)
FENCE -- enforce screen bounds
WINDOW -- no wrap no bounds
WRAP -- turtle wraps around edge
SETBG -- set background color
SETWIDTH -- 40 or 80
GRAPHICS
~~~~~~~~
BACK (BK)
FORWARD (FD)
HIDETURTLE (HT)
HOME -- move to center (0,0)
LEFT (LT)
RIGHT (RT)
SETHEADING (SETH) -- set direction
SETPOS [x y] -- move to X, Y (drawing if appropriate)
SETX
SETY
SHOWTURTLE (ST)
DOT [x y] -- put dot at x,y w/o moving turtle
SETPC -- set pen color
FILL fill area bounded by color by current color
PENDOWN (PD)
PENERASE (PE) -- erase instead of draw
PENREVERSE (PX) -- xor
PENUP (PU) -- pen up
LOAD/SAVE
~~~~~~~~~
CATALOG p 194 -- lists files in current PREFIX
SETPREFIX "BLAH -- sort of like chdir
ERASEFILE (ERF) p 196: ERF "RR
PR ONLINE shows list of volumes
READ STATE
~~~~~~~~~~
POS -- shows position
TOWARDS [X Y] -- returns direction you'd need to point at x,y
XCOR -- print x
YCOR -- print y
BACKGROUND
PEN
PENCOLOR (PC) -- prints pencolor
CURSOR -- get cursor location
SCRUNCH factor .8 by default 280x240?
TOOT = freq duration, duration is 1/60th of second
VARIABLES
~~~~~~~~~
MAKE "A 5 - define var A with value 5
PR :A - print value of variable A
FUNCTIONS
~~~~~~~~~
TO BLAH :PARAM
END
TEXT (p67)
~~~~
( a lot, TODO)
CHAR -- like CHR$ in BASIC
ASSEMBLY
~~~~~~~~
- note, PRODOS puts things in language card, have to switch back on
to use ROM routines
.AUXDEPOSIT loc byte - store to AUX mem
.AUXEXAMINE loc
.BLOAD pathname loc
.BSAVE pathname loc len
.CALL loc
.DEPOSIT loc byte
.EXAMINE loc
.QUIT exit back to ProDOS
STARTUP
~~~~~~~
can create a file called STARTUP that starts at startup
whatever is in the STARTUP function is run
FREESPACE
~~~~~~~~~
internally in nodes. 5 Bytes?
RECYCLE PRINT NODES shows free
EDITOR
~~~~~~
EDIT "FUNCTION
open apple-A (ALT-A on applewin) accept
References:
https://archive.org/details/Apple_Logo_II_Reference_Manual/page/n260/mode/1up
https://archive.org/details/Learning_With_Apple_Logo_by_Daniel_Watt_1984/page/209/mode/2up
Memory Map
$00 -- zero page
$04-$07 -- text page 1
$08-$1f -- edit buffer
$20-$3f -- hi-res page1
$40-$43 -- load/save buffer
$44-$47 -- dribble buffer
$48-$4b -- file buffer 0
$4c-$4f -- file buffer 1
$50-$53 -- file buffer 2
$54-$57 -- file buffer 3
$58-$5b -- file buffer 4
$5c-$5f -- file buffer 5
$60 -- logo data
$61-$BE -- logo code
$BF -- free space / prodos
$C0-$CF -- I/O
$D0-$FF -- ProDOS
AUX
$00 -- zero page
$20-$3f -- ProDOS
$40-$7f -- text page1 (80 col)
$80-$b6 -- node space?
$b7-$Ba -- main help
$BB-$BE -- editor help
$BF -- prodos
$C0-$CF -- I/O
$D0-$DF -- Logo code
$E0-$FF -- ProDOS
Info
$300 = max num data files *9 (usually 54)
$10 = pointer to first page beyond node space (usually $B7)
$301 = flag for invalid edit buffer
Can use edit buffer for temp storage, but mark as invalid when done
Can use the file buffer area, be sure to adjust the max data size
Can adjust node space but have to do it right at startup

12
logo/checkers.logo Normal file
View File

@ -0,0 +1,12 @@
{L}
REPEAT 10 [FD 10 RT 45]
MAKE "A [173 130 192 230 252 162 39 160 39 152 229 252]
MAKE "B [133 241 138 69 241 32 100 248 138 32 0 248 136 16 238 202 16 233 48 227]
MAKE "D SENTENCE :A :B
MAKE "I 1
REPEAT 32 [ .DEPOSIT 8191+:I ITEM :I :D MAKE "I 1+:I]
.DEPOSIT 49238 1
.CALL 8192
TEXTSCREEN

30
logo/coord_convert.c Normal file
View File

@ -0,0 +1,30 @@
#include <stdio.h>
#include <string.h>
int main(int argc, char **argv) {
char string[BUFSIZ];
char *result;
int x,y;
while(1) {
result=fgets(string,BUFSIZ,stdin);
if (result==NULL) break;
if (result[0]==';') continue;
if (strstr(result,"SETPOS")) {
sscanf(result,"%*s %d %d",&x,&y);
printf("SETPOS [%d %d]\n",x-140,96-y); // 140,96 => 0,0
}
else if (strstr(result,"FILL")) {
sscanf(result,"%*s %d %d",&x,&y);
printf("FILL [%d %d]\n",x-140,96-y); // 140,96 => 0,0
}
else {
printf("%s",result);
}
}
return 0;
}

16
logo/logo_convert.c Normal file
View File

@ -0,0 +1,16 @@
#include <stdio.h>
int main(int argc, char **argv) {
int result;
while(1) {
result=getchar();
if (result<0) break;
printf("%d ",result);
}
printf("\n");
}

252
logo/rick.coords Normal file
View File

@ -0,0 +1,252 @@
FULLSCREEN
SETPC 1
; COAT
PU
SETPOS 117 111
PD
SETPOS 145 191
PU
SETPOS 130 191
PD
SETPOS 91 120
PU
SETPOS 91 133
PD
SETPOS 101 171
SETPOS 111 191
PU
SETPOS 100 190
PD
SETPOS 97 170
SETPOS 97 184
SETPOS 93 186
SETPOS 98 191
PU
SETPOS 73 191
PD
SETPOS 65 187
SETPOS 65 178
SETPOS 71 172
SETPOS 71 113
SETPOS 109 83
SETPOS 115 113
SETPOS 129 106
SETPOS 117 99
SETPOS 108 84
PU
SETPOS 140 76
PD
SETPOS 146 87
SETPOS 147 101
SETPOS 142 108
SETPOS 133 103
SETPOS 140 77
SETPOS 184 80
SETPOS 192 90
SETPOS 192 100
SETPOS 199 107
SETPOS 199 116
SETPOS 213 126
SETPOS 212 141
SETPOS 217 147
SETPOS 216 182
SETPOS 211 182
SETPOS 211 171
SETPOS 203 163
SETPOS 195 163
SETPOS 192 169
SETPOS 184 169
SETPOS 180 171
SETPOS 181 191
SETPOS 175 191
SETPOS 146 102
PU
SETPOS 191 158
PD
SETPOS 188 123
SETPOS 192 135
SETPOS 201 137
SETPOS 195 141
SETPOS 208 148
SETPOS 198 150
SETPOS 192 148
SETPOS 197 153
SETPOS 185 169
; STRIPES
PU
SETPOS 120 111
PD
SETPOS 149 109
PU
SETPOS 151 114
PD
SETPOS 121 118
PU
SETPOS 122 122
PD
SETPOS 152 118
PU
SETPOS 154 124
PD
SETPOS 125 128
PU
SETPOS 127 133
PD
SETPOS 155 128
PU
SETPOS 156 132
PD
SETPOS 128 137
PU
SETPOS 129 140
PD
SETPOS 157 136
PU
SETPOS 159 141
PD
SETPOS 132 146
PU
SETPOS 134 149
PD
SETPOS 161 146
PU
SETPOS 162 152
PD
SETPOS 135 155
PU
SETPOS 137 159
PD
SETPOS 163 155
PU
SETPOS 164 158
PD
SETPOS 138 164
PU
SETPOS 140 168
PD
SETPOS 166 162
PU
SETPOS 167 165
PD
SETPOS 140 172
PU
SETPOS 141 176
PD
SETPOS 159 174
SETPOS 168 169
PU
SETPOS 169 172
PD
SETPOS 157 179
SETPOS 141 179
PU
SETPOS 142 183
PD
SETPOS 158 182
SETPOS 179 175
PU
SETPOS 145 191
PD
SETPOS 171 178
; PURPLE SKIN
SET PC 3
PU
SETPOS 109 83
PD
SETPOS 102 68
SETPOS 99 68
SETPOS 96 58
SETPOS 99 57
SETPOS 102 68
SETPOS 94 49
SETPOS 97 37
SETPOS 109 36
SETPOS 111 30
SETPOS 123 30
SETPOS 133 50
SETPOS 138 47
SETPOS 141 47
SETPOS 138 61
SETPOS 127 78
SETPOS 117 79
SETPOS 109 78
PU
SETPOS 135 52
PD
SETPOS 136 56
PU
SETPOS 125 49
PD
SETPOS 118 48
PU
SETPOS 105 52
PD
SETPOS 100 54
PU
SETPOS 110 49
PD
SETPOS 111 60
PU
SETPOS 109 63
PD
SETPOS 111 62
PU
SETPOS 115 61
PD
SETPOS 119 61
PU
SETPOS 116 68
PD
SETPOS 110 68
SETPOS 108 69
SETPOS 116 70
SETPOS 123 67
PU
SETPOS 211 183
PD
SETPOS 207 188
SETPOS 201 189
SETPOS 189 184
SETPOS 202 172
SETPOS 202 163
PU
SETPOS 197 168
PD
SETPOS 198 176
SETPOS 194 178
SETPOS 192 169
; ORANGE HAIR
SET PC 4
PU
SETPOS 93 48
PD
SETPOS 90 34
SETPOS 89 24
SETPOS 100 16
SETPOS 122 14
SETPOS 136 23
SETPOS 137 44
PU
SETPOS 99 51
PD
SETPOS 102 49
SETPOS 107 49
PU
SETPOS 113 47
PD
SETPOS 118 46
SETPOS 125 46
; BLUE MIC
SET PC 5
PU
SETPOS 133 191
PD
SETPOS 134 86
SETPOS 130 86
SETPOS 130 63
SETPOS 142 63
SETPOS 142 87
SETPOS 138 87
SETPOS 137 191
SETPOS 133 191
FILL 136 76

72
logo/rr.logo Normal file
View File

@ -0,0 +1,72 @@
TO G :X :Y
MAKE "XY SENTENCE :X :Y
SETHEADING TOWARDS :XY
SETPOS :XY
END
TO MUSIC
PU
SETPOS [-80 -70]
SETH 90
CT
SETCURSOR [8 20]
PR [NEVER GONNA GIVE YOU UP]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 440 15
FD 35
TOOT 440 15
FD 28
TOOT 392 30
CT
SETCURSOR [8 20]
SETPOS [-80 -70]
PR [NEVER GONNA LET YOU DOWN]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 392 15
FD 28
TOOT 392 15
FD 28
TOOT 349 15
CT
SETCURSOR [1 20]
SETPOS [-128 -70]
PR [NEVER GONNA RUN AROUND AND DESERT YOU]
TOOT 262 10
FD 14
TOOT 294 10
FD 28
TOOT 349 10
FD 21
TOOT 294 10
FD 21
TOOT 349 20
FD 28
TOOT 392 10
FD 7
TOOT 330 15
FD 42
TOOT 294 5
TOOT 262 20
FD 28
TOOT 262 10
FD 14
TOOT 392 20
FD 35
TOOT 349 40
END