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

starpath: few more minor optimizations

Browse Source
This commit is contained in:
Vince Weaver 2025-03-02 16:25:25 -05:00
parent f4c5a7ed01
commit 73f4d6f5b5
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
graphics/gr/starpath/andor.s
View File

@ -11,6 +11,13 @@
VARPNTL = $83
VARPNTH = $84
EXECUTE = $D838 ; execute basic command in Y, return through CHRGET?
POS = $E2FF ; load value in CH and convert to FAC ($D9 in table)
; ldy #$d9 ; $A0 $D9 = COLOR=POS
; jmp $D838 ; $4C $38 $D8 L8PDL
FRMEVL = $DD7B
GETADDR= $E752
CHKCOM = $DEBE

8
graphics/gr/starpath/starpath.bas
View File

@ -1,7 +1,7 @@
0P=2253:V=256:GR
1R=RND(0):FORY=0TO47:FORX=0TO39:D=14
2Z=Y*4*D:T=X*6-D:IFT<0THEN7
3POKE36,T*D/V:POKEP+8,Z/V:POKEP+10,D+F:CALLP:C=POS(0):D=D+1:IFC<16THEN2
0P=2250:V=256:GR
1R=RND(-1):FORY=0TO47:FORX=0TO39:D=14
2T=X*6-D:IFT<0THEN7
3POKE36,T*D/V:POKEP+8,Y*4*D/V:POKEP+10,D+F:CALLP:C=POS(0):D=D+1:IFC<16THEN2
4GOTO8
7C=31:IFRND(1)*V>6THENC=Y/4+32
8COLOR=PEEK(C/2+P+9):PLOTX,Y:NEXTX,Y:F=F+1:GOTO1ONERR$,