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

PADDLE.L

FILE INFORMATION

FILENAME(S): PADDLE.L

FILE TYPE(S): SEQ

FILE SIZE: 350b

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

APPEARS ON: 2 disk(s)

FILE HASH

39a53c9c3200ca9ebdbee731e74a6aafed856254cffe6ca1e81a76864dbe0306

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 50 41 44 44 4C 45  |9000 PROC PADDLE|
00000010: 28 50 2C 52 45 46 20 58  2C 52 45 46 20 59 2C 52  |(P,REF X,REF Y,R|
00000020: 45 46 20 46 31 2C 52 45  46 20 46 32 29 20 43 4C  |EF F1,REF F2) CL|
00000030: 4F 53 45 44 0D 39 30 31  30 20 43 49 41 3A 3D 35  |OSED.9010 CIA:=5|
00000040: 36 33 32 30 0D 39 30 32  30 20 53 49 44 3A 3D 35  |6320.9020 SID:=5|
00000050: 34 32 37 32 0D 39 30 33  30 20 50 4F 4B 45 20 43  |4272.9030 POKE C|
00000060: 49 41 2B 31 33 2C 31 0D  39 30 34 30 20 44 44 52  |IA+13,1.9040 DDR|
00000070: 41 3A 3D 50 45 45 4B 28  43 49 41 2B 32 29 0D 39  |A:=PEEK(CIA+2).9|
00000080: 30 35 30 20 50 4F 4B 45  20 43 49 41 2B 32 2C 31  |050 POKE CIA+2,1|
00000090: 39 32 0D 39 30 36 30 20  50 4F 4B 45 20 43 49 41  |92.9060 POKE CIA|
000000A0: 2C 36 34 2A 50 0D 39 30  37 30 20 58 3A 3D 50 45  |,64*P.9070 X:=PE|
000000B0: 45 4B 28 53 49 44 2B 32  35 29 3B 20 59 3A 3D 50  |EK(SID+25); Y:=P|
000000C0: 45 45 4B 28 53 49 44 2B  32 36 29 0D 39 30 38 30  |EEK(SID+26).9080|
000000D0: 20 50 4F 4B 45 20 43 49  41 2B 32 2C 44 44 52 41  | POKE CIA+2,DDRA|
000000E0: 0D 39 30 39 30 20 50 4F  4B 45 20 43 49 41 2B 31  |.9090 POKE CIA+1|
000000F0: 33 2C 31 32 39 0D 39 31  30 30 20 4D 3A 3D 50 45  |3,129.9100 M:=PE|
00000100: 45 4B 28 43 49 41 2B 32  2D 50 41 49 52 29 0D 39  |EK(CIA+2-PAIR).9|
00000110: 31 31 30 20 46 31 3A 3D  31 2D 28 28 4D 20 4D 4F  |110 F1:=1-((M MO|
00000120: 44 20 31 36 29 20 44 49  56 20 38 29 0D 39 31 32  |D 16) DIV 8).912|
00000130: 30 20 46 32 3A 3D 31 2D  28 28 4D 20 4D 4F 44 20  |0 F2:=1-((M MOD |
00000140: 38 29 20 44 49 56 20 34  29 0D 39 31 33 30 20 45  |8) DIV 4).9130 E|
00000150: 4E 44 50 52 4F 43 20 50  41 44 44 4C 45 0D        |NDPROC PADDLE.  |

9000 PROC PADDLE(P,REF X,REF Y,REF F1,RE
F F2) CLOSED.9010 CIA:=56320.9020 SID:=5
4272.9030 POKE CIA+13,1.9040 DDRA:=PEEK(
CIA+2).9050 POKE CIA+2,192.9060 POKE CIA
,64*P.9070 X:=PEEK(SID+25); Y:=PEEK(SID+
26).9080 POKE CIA+2,DDRA.9090 POKE CIA+1
3,129.9100 M:=PEEK(CIA+2-PAIR).9110 F1:=
1-((M MOD 16) DIV 8).9120 F2:=1-((M MOD 
8) DIV 4).9130 ENDPROC PADDLE.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL