6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-10-18 07:24:16 +00:00
Code Issues Projects Releases Wiki Activity

bounce.4th samplesrc (replaces gr.4th)

Browse Source
This commit is contained in:
David Schmenk 2023-12-28 17:05:02 -08:00
parent 3cb1d97a6c
commit f7c37de60a
2 changed files with 49 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mkrel
View File

@ -202,7 +202,7 @@ cp samplesrc/lz4cat.pla prodos/bld/samples/LZ4CAT.PLA.TXT
cp samplesrc/sfm.pla prodos/bld/samples/SFM.PLA.TXT
cp samplesrc/sfmsprt.pla prodos/bld/samples/SFMSPRT.PLA.TXT
cp samplesrc/fppow.pla prodos/bld/samples/FPPOW.PLA.TXT
cp samplesrc/gr.4th prodos/bld/samples/GR.4TH.TXT
cp samplesrc/bounce.4th prodos/bld/samples/BOUNCE.4TH.TXT
cp utilsrc/apple/mon.pla prodos/bld/samples/MON.PLA.TXT
cp utilsrc/apple/zipchip.pla prodos/bld/samples/ZIPCHIP.PLA.TXT

48
src/samplesrc/bounce.4th Normal file
View File

@ -0,0 +1,48 @@
: IFACE 2 * + @ ;
LOOKUP CMDSYS 3 IFACE PLASMA EXECMOD
" CONIO" EXECMOD
." Load module returns " . CR
LOOKUP CONIO CONSTANT CONIOAPI
CONIOAPI 3 IFACE PLASMA HOME
CONIOAPI 4 IFACE PLASMA GOTOXY
CONIOAPI 7 IFACE PLASMA TEXTMODE
CONIOAPI 8 IFACE PLASMA GRMODE
CONIOAPI 9 IFACE PLASMA GRCOLOR
CONIOAPI 10 IFACE PLASMA GRPLOT
CONIOAPI 11 IFACE PLASMA TONE
CONIOAPI 12 IFACE PLASMA RAND
5 VARIABLE BALLCLR
10 VARIABLE BALLX
20 VARIABLE BALLY
10 VARIABLE OLDX
20 VARIABLE OLDY
1 VARIABLE INCX
1 VARIABLE INCY
: MOVEBALL
BALLX @ 0= IF INCX @ NEG INCX ! THEN
BALLX @ 39 = IF INCX @ NEG INCX ! THEN
BALLY @ 0= IF INCY @ NEG INCY ! THEN
BALLY @ 47 = IF INCY @ NEG INCY ! THEN
INCX @ BALLX +!
INCY @ BALLY +!
BALLCLR @ GRCOLOR DROP
BALLX @ BALLY @ GRPLOT DROP
0 GRCOLOR DROP
OLDX @ OLDY @ GRPLOT DROP
BALLX @ OLDX !
BALLY @ OLDY !
;
: BOUNCE
0 GRMODE DROP
BEGIN
MOVEBALL
?TERMINAL
UNTIL
KEY
40 TEXTMODE DROP
;