_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

JOYSTICK.L

FILE INFORMATION

FILENAME(S): JOYSTICK.L

FILE TYPE(S): SEQ

FILE SIZE: 448b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

2839efffbcf646b115a857c7d2034c0f99cea1a3d194ffef50d5fe72b2fc352e

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL JOYSTICK.L SEQ hedning, Mattias H00r 11 16 DOWNLOAD FILE
CCS COMAL JOYSTICK.L SEQ hedning, Mattias H00r 11 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4A 4F 59 53 54 49  |9000 PROC JOYSTI|
00000010: 43 4B 28 50 2C 52 45 46  20 44 2C 52 45 46 20 46  |CK(P,REF D,REF F|
00000020: 29 20 43 4C 4F 53 45 44  0D 39 30 31 30 20 49 46  |) CLOSED.9010 IF|
00000030: 20 50 3D 31 20 54 48 45  4E 0D 39 30 32 30 20 4D  | P=1 THEN.9020 M|
00000040: 3A 3D 50 45 45 4B 28 35  36 33 32 31 29 0D 39 30  |:=PEEK(56321).90|
00000050: 33 30 20 45 4C 49 46 20  50 3D 32 20 54 48 45 4E  |30 ELIF P=2 THEN|
00000060: 0D 39 30 34 30 20 4D 3A  3D 50 45 45 4B 28 35 36  |.9040 M:=PEEK(56|
00000070: 33 32 30 29 0D 39 30 35  30 20 45 4C 53 45 20 0D  |320).9050 ELSE .|
00000080: 39 30 36 30 20 52 45 54  55 52 4E 0D 39 30 37 30  |9060 RETURN.9070|
00000090: 20 45 4E 44 49 46 20 0D  39 30 38 30 20 46 3A 3D  | ENDIF .9080 F:=|
000000A0: 31 2D 28 28 4D 20 4D 4F  44 20 33 32 29 20 44 49  |1-((M MOD 32) DI|
000000B0: 56 20 31 36 29 0D 39 30  39 30 20 43 41 53 45 20  |V 16).9090 CASE |
000000C0: 31 35 2D 28 4D 20 4D 4F  44 20 31 36 29 20 4F 46  |15-(M MOD 16) OF|
000000D0: 0D 39 31 30 30 20 57 48  45 4E 20 31 0D 39 31 31  |.9100 WHEN 1.911|
000000E0: 30 20 44 3A 3D 31 0D 39  31 32 30 20 57 48 45 4E  |0 D:=1.9120 WHEN|
000000F0: 20 32 0D 39 31 33 30 20  44 3A 3D 35 0D 39 31 34  | 2.9130 D:=5.914|
00000100: 30 20 57 48 45 4E 20 34  0D 39 31 35 30 20 44 3A  |0 WHEN 4.9150 D:|
00000110: 3D 37 0D 39 31 36 30 20  57 48 45 4E 20 35 0D 39  |=7.9160 WHEN 5.9|
00000120: 31 37 30 20 44 3A 3D 38  0D 39 31 38 30 20 57 48  |170 D:=8.9180 WH|
00000130: 45 4E 20 36 0D 39 31 39  30 20 44 3A 3D 36 0D 39  |EN 6.9190 D:=6.9|
00000140: 32 30 30 20 57 48 45 4E  20 38 0D 39 32 31 30 20  |200 WHEN 8.9210 |
00000150: 44 3A 3D 33 0D 39 32 32  30 20 57 48 45 4E 20 39  |D:=3.9220 WHEN 9|
00000160: 0D 39 32 33 30 20 44 3A  3D 32 0D 39 32 34 30 20  |.9230 D:=2.9240 |
00000170: 57 48 45 4E 20 31 30 0D  39 32 35 30 20 44 3A 3D  |WHEN 10.9250 D:=|
00000180: 34 0D 39 32 36 30 20 4F  54 48 45 52 57 49 53 45  |4.9260 OTHERWISE|
00000190: 20 0D 39 32 37 30 20 44  3A 3D 30 0D 39 32 38 30  | .9270 D:=0.9280|
000001A0: 20 45 4E 44 43 41 53 45  20 0D 39 32 39 30 20 45  | ENDCASE .9290 E|
000001B0: 4E 44 50 52 4F 43 20 4A  4F 59 53 54 49 43 4B 0D  |NDPROC JOYSTICK.|

9000 PROC JOYSTICK(P,REF D,REF F) CLOSED
.9010 IF P=1 THEN.9020 M:=PEEK(56321).90
30 ELIF P=2 THEN.9040 M:=PEEK(56320).905
0 ELSE .9060 RETURN.9070 ENDIF .9080 F:=
1-((M MOD 32) DIV 16).9090 CASE 15-(M MO
D 16) OF.9100 WHEN 1.9110 D:=1.9120 WHEN
 2.9130 D:=5.9140 WHEN 4.9150 D:=7.9160 
WHEN 5.9170 D:=8.9180 WHEN 6.9190 D:=6.9
200 WHEN 8.9210 D:=3.9220 WHEN 9.9230 D:
=2.9240 WHEN 10.9250 D:=4.9260 OTHERWISE
 .9270 D:=0.9280 ENDCASE .9290 ENDPROC J
OYSTICK.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL