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

glados: add some mouse/joystick test code

Browse Source
This commit is contained in:
Vince Weaver 2017-01-12 20:16:55 -05:00
parent 88bb2adcf6
commit d1b6a2558d
3 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
glados3.3/Makefile
View File

@ -17,6 +17,12 @@ PORTAL.BAS: portal.bas
STILL_ALIVE.BAS: still_alive.bas
$(TXT2BAS) < still_alive.bas > STILL_ALIVE.BAS
JOYSTICK_TEST.BAS: joystick_test.bas
$(TXT2BAS) < joystick_test.bas > JOYSTICK_TEST.BAS
MOUSE_TEST.BAS: mouse_test.bas
$(TXT2BAS) < mouse_test.bas > MOUSE_TEST.BAS
shape_test.bas: objects.shape
$(SHAPETABLE) < objects.shape > shape_test.bas
@ -31,7 +37,8 @@ SOUND_TEST.BAS: sound_test.bas
$(TXT2BAS) < sound_test.bas > SOUND_TEST.BAS
glados33.dsk: STILL_ALIVE.BAS OBJECTS.SHAPE SHAPE_TEST.BAS SOUND_TEST.BAS \
PORTAL.BAS CUBE.BAS PORTAL_TITLE.HGR GLADOS.HGR
PORTAL.BAS CUBE.BAS PORTAL_TITLE.HGR GLADOS.HGR MOUSE_TEST.BAS \
JOYSTICK_TEST.BAS
$(DOS33) -y glados33.dsk SAVE A STILL_ALIVE.BAS
$(DOS33) -y glados33.dsk SAVE B OBJECTS.SHAPE
$(DOS33) -y glados33.dsk SAVE B PORTAL_TITLE.HGR
@ -40,6 +47,8 @@ glados33.dsk: STILL_ALIVE.BAS OBJECTS.SHAPE SHAPE_TEST.BAS SOUND_TEST.BAS \
$(DOS33) -y glados33.dsk SAVE A SOUND_TEST.BAS
$(DOS33) -y glados33.dsk SAVE A PORTAL.BAS
$(DOS33) -y glados33.dsk SAVE A CUBE.BAS
$(DOS33) -y glados33.dsk SAVE A MOUSE_TEST.BAS
$(DOS33) -y glados33.dsk SAVE A JOYSTICK_TEST.BAS
clean:
rm -f *~ *.BAS *.SHAPE sound_test.bas shape_test.bas *.lst

2
glados3.3/joystick_test.bas Normal file
View File

@ -0,0 +1,2 @@
10 PRINT PDL(0),PDL(1):GOTO 10

15
glados3.3/mouse_test.bas Normal file
View File

@ -0,0 +1,15 @@
' Cheat and assume the mouse card is in slot #4
' (which is where it is on the Apple IIc)
' This means no Mockingboard support under Linapple
'
20 IF PEEK(50188) = 32 AND PEEK(50427) = 214 THEN GOTO 30
25 PRINT "NO MOUSE IN SLOT #4":END
30 PRINT "MOUSE FOND SLOT #4"
' Enable the mouse
100 PRINT CHR$(4)"PR#4":PRINT CHR$(1)
105 PRINT CHR$(4)"IN#4":INPUT "";X,Y,S
110 PRINT X,Y,S
120 PRINT CHR$(4)"IN#0"
130 GOTO 105