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

PADDLE.L

FILE INFORMATION

FILENAME(S): PADDLE.L

FILE TYPE(S): SEQ

FILE SIZE: 648b

FIRST SEEN: 2025-11-30 21:07:13

APPEARS ON: 3 disk(s)

FILE HASH

1f4f872fe643d9e257c0bd6175372fbae032c1f3b78f1fc0650f2a4af6802c8a

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMAL 80 VS 0 14 PADDLE.L SEQ DuncanTwain 12 3 DOWNLOAD FILE
COMAL 0 14 PADDLE.L SEQ DuncanTwain 12 3 DOWNLOAD FILE
COMAL 0 14 PADDLE.L SEQ DuncanTwain 12 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 0D  39 30 31 30 20 2F 2F 20  |9000 //.9010 // |
00000010: 20 50 41 44 44 4C 45 2E  4C 0D 39 30 32 30 20 2F  | PADDLE.L.9020 /|
00000020: 2F 20 20 3C 43 3E 20 31  39 38 34 20 43 4F 4D 41  |/  <C> 1984 COMA|
00000030: 4C 2D 38 30 47 47 0D 39  30 33 30 20 2F 2F 0D 39  |L-80GG.9030 //.9|
00000040: 30 34 30 20 50 52 4F 43  20 50 41 44 44 4C 45 28  |040 PROC PADDLE(|
00000050: 4E 52 2C 52 45 46 20 58  2C 52 45 46 20 59 29 20  |NR,REF X,REF Y) |
00000060: 43 4C 4F 53 45 44 0D 39  30 35 30 20 2F 2F 4E 52  |CLOSED.9050 //NR|
00000070: 20 49 53 20 4E 55 4D 4D  45 52 20 56 41 4E 20 44  | IS NUMMER VAN D|
00000080: 45 20 50 4F 52 54 0D 39  30 36 30 20 43 49 41 3A  |E PORT.9060 CIA:|
00000090: 3D 31 33 2A 34 30 39 36  2B 31 32 2A 32 35 36 0D  |=13*4096+12*256.|
000000A0: 39 30 37 30 20 53 49 44  3A 3D 31 33 2A 34 30 39  |9070 SID:=13*409|
000000B0: 36 2B 34 2A 32 35 36 0D  39 30 38 30 20 50 4F 4B  |6+4*256.9080 POK|
000000C0: 45 20 43 49 41 2B 31 33  2C 31 20 2F 2F 54 49 4D  |E CIA+13,1 //TIM|
000000D0: 45 52 20 42 55 49 54 45  4E 20 57 45 52 4B 49 4E  |ER BUITEN WERKIN|
000000E0: 47 0D 39 30 39 30 20 44  44 52 41 3A 3D 50 45 45  |G.9090 DDRA:=PEE|
000000F0: 4B 28 43 49 41 2B 32 29  20 2F 2F 44 41 54 41 20  |K(CIA+2) //DATA |
00000100: 44 49 52 45 43 54 49 4F  4E 20 52 45 47 49 53 54  |DIRECTION REGIST|
00000110: 45 52 20 41 0D 39 31 30  30 20 50 4F 4B 45 20 43  |ER A.9100 POKE C|
00000120: 49 41 2B 32 2C 31 32 2A  31 36 0D 39 31 31 30 20  |IA+2,12*16.9110 |
00000130: 50 4F 4B 45 20 43 49 41  2C 34 2A 31 36 2A 4E 52  |POKE CIA,4*16*NR|
00000140: 0D 39 31 32 30 20 58 3A  3D 50 45 45 4B 28 53 49  |.9120 X:=PEEK(SI|
00000150: 44 2B 32 35 29 3B 20 59  3A 3D 50 45 45 4B 28 53  |D+25); Y:=PEEK(S|
00000160: 49 44 2B 32 36 29 0D 39  31 33 30 20 50 4F 4B 45  |ID+26).9130 POKE|
00000170: 20 43 49 41 2B 32 2C 44  44 52 41 0D 39 31 34 30  | CIA+2,DDRA.9140|
00000180: 20 50 4F 4B 45 20 43 49  41 2B 31 33 2C 31 32 38  | POKE CIA+13,128|
00000190: 2B 31 20 2F 2F 54 49 4D  45 52 20 41 41 4E 0D 39  |+1 //TIMER AAN.9|
000001A0: 31 35 30 20 45 4E 44 50  52 4F 43 20 50 41 44 44  |150 ENDPROC PADD|
000001B0: 4C 45 0D 39 31 36 30 20  2F 2F 0D 39 31 37 30 20  |LE.9160 //.9170 |
000001C0: 52 45 50 45 41 54 20 0D  39 31 38 30 20 50 41 44  |REPEAT .9180 PAD|
000001D0: 44 4C 45 28 32 2C 58 2C  59 29 0D 39 31 39 30 20  |DLE(2,X,Y).9190 |
000001E0: 50 52 49 4E 54 20 58 3B  59 0D 39 32 30 30 20 55  |PRINT X;Y.9200 U|
000001F0: 4E 54 49 4C 20 46 41 4C  53 45 0D 39 32 31 30 20  |NTIL FALSE.9210 |
00000200: 2F 2F 0D 39 32 32 30 20  2F 2F 50 4F 52 54 20 31  |//.9220 //PORT 1|
00000210: 20 57 4F 52 44 54 20 42  45 49 4E 56 4C 4F 45 44  | WORDT BEINVLOED|
00000220: 20 44 4F 4F 52 20 44 45  0D 39 32 33 30 20 2F 2F  | DOOR DE.9230 //|
00000230: 42 55 46 46 45 52 20 56  41 4E 20 48 45 54 20 54  |BUFFER VAN HET T|
00000240: 4F 45 54 53 45 4E 42 4F  52 44 2E 0D 39 32 34 30  |OETSENBORD..9240|
00000250: 20 2F 2F 47 45 42 52 55  49 4B 20 44 41 41 52 4F  | //GEBRUIK DAARO|
00000260: 4D 20 50 4F 52 54 20 32  20 49 4E 0D 39 32 35 30  |M PORT 2 IN.9250|
00000270: 20 2F 2F 50 52 4F 47 52  41 4D 4D 41 27 53 2E 0D  | //PROGRAMMA'S..|
00000280: 39 32 36 30 20 2F 2F 0D                           |9260 //.        |

9000 //.9010 //  PADDLE.L.9020 //  <C> 1
984 COMAL-80GG.9030 //.9040 PROC PADDLE(
NR,REF X,REF Y) CLOSED.9050 //NR IS NUMM
ER VAN DE PORT.9060 CIA:=13*4096+12*256.
9070 SID:=13*4096+4*256.9080 POKE CIA+13
,1 //TIMER BUITEN WERKING.9090 DDRA:=PEE
K(CIA+2) //DATA DIRECTION REGISTER A.910
0 POKE CIA+2,12*16.9110 POKE CIA,4*16*NR
.9120 X:=PEEK(SID+25); Y:=PEEK(SID+26).9
130 POKE CIA+2,DDRA.9140 POKE CIA+13,128
+1 //TIMER AAN.9150 ENDPROC PADDLE.9160 
//.9170 REPEAT .9180 PADDLE(2,X,Y).9190 
PRINT X;Y.9200 UNTIL FALSE.9210 //.9220 
//PORT 1 WORDT BEINVLOED DOOR DE.9230 //
BUFFER VAN HET TOETSENBORD..9240 //GEBRU
IK DAAROM PORT 2 IN.9250 //PROGRAMMA'S..
9260 //.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL