LIST 1.1

FILE INFORMATION

FILENAME(S): LIST 1.1

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 21:11:00

APPEARS ON: 1 disk(s)

FILE HASH

342c2f3a062dc895b6005f0ef6e79d2112b973181b8bff305984105b4f8a5480

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SPEEDY WERK	LIST 1.1	PRG	DuncanTwain	20	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 12 08 E8 03 CF 52  47 20 20 20 20 24 34 30  |.......RG    $40|
00000010: 30 30 00 24 08 F2 03 4A  4F 59 20 44 45 46 20 24  |00.$...JOY DEF $|
00000020: 44 43 30 30 00 39 08 FC  03 53 43 52 45 45 4E 20  |DC00.9...SCREEN |
00000030: 44 45 46 20 24 30 34 30  30 00 4D 08 06 04 43 4F  |DEF $0400.M...CO|
00000040: 4C 4F 52 20 44 45 46 20  24 44 38 30 30 00 61 08  |LOR DEF $D800.a.|
00000050: 10 04 43 48 52 49 4E 20  44 45 46 20 24 46 46 45  |..CHRIN DEF $FFE|
00000060: 34 00 71 08 1A 04 5A 50  30 20 44 45 46 20 24 46  |4.q...ZP0 DEF $F|
00000070: 42 00 81 08 24 04 5A 50  31 20 44 45 46 20 24 46  |B...$.ZP1 DEF $F|
00000080: 43 00 91 08 2E 04 5A 50  32 20 44 45 46 20 24 46  |C.....ZP2 DEF $F|
00000090: 44 00 A1 08 38 04 5A 50  33 20 44 45 46 20 24 46  |D...8.ZP3 DEF $F|
000000A0: 45 00 B1 08 42 04 49 4E  49 54 20 4C 44 41 20 23  |E...B.INIT LDA #|
000000B0: 30 00 BE 08 4C 04 D3 54  41 20 58 50 4F 53 00 CB  |0...L..TA XPOS..|
000000C0: 08 56 04 D3 54 41 20 59  50 4F 53 00 D9 08 60 04  |.V..TA YPOS...`.|
000000D0: D3 54 41 20 24 44 30 32  30 00 E7 08 6A 04 D3 54  |.TA $D020...j..T|
000000E0: 41 20 24 44 30 32 31 00  F2 08 74 04 CC 44 41 20  |A $D021...t..DA |
000000F0: 23 31 00 00 09 7E 04 D3  54 41 20 4B 4C 45 55 52  |#1...~..TA KLEUR|
00000100: 00 08 09 88 04 D3 45 49  00 18 09 92 04 CC 44 41  |......EI......DA|
00000110: 20 23 B3 49 4E 54 45 52  00 25 09 9C 04 D3 54 41  | #.INTER.%....TA|
00000120: 20 24 33 31 34 00 35 09  A6 04 CC 44 41 20 23 B1  | $314.5....DA #.|
00000130: 49 4E 54 45 52 00 42 09  B0 04 D3 54 41 20 24 33  |INTER.B....TA $3|
00000140: 31 35 00 4A 09 BA 04 C3  4C 49 00 5E 09 C4 04 57  |15.J....LI.^...W|
00000150: 41 43 48 54 20 4A 53 52  20 43 48 52 49 4E 00 6A  |ACHT JSR CHRIN.j|
00000160: 09 CE 04 C3 4D 50 20 23  31 33 00 79 09 D8 04 C2  |....MP #13.y....|
00000170: 4E 45 20 57 41 43 48 54  31 00 84 09 E2 04 CC 44  |NE WACHT1......D|
00000180: 58 20 23 30 00 90 09 EC  04 CC 44 41 20 23 33 32  |X #0......DA #32|
00000190: 00 A8 09 F6 04 57 41 43  48 54 30 20 53 54 41 20  |.....WACHT0 STA |
000001A0: 53 43 52 45 45 4E 2C 58  00 BD 09 00 05 D3 54 41  |SCREEN,X......TA|
000001B0: 20 53 43 52 45 45 4E AA  32 35 36 2C 58 00 D2 09  | SCREEN.256,X...|
000001C0: 0A 05 D3 54 41 20 53 43  52 45 45 4E AA 35 31 32  |...TA SCREEN.512|
000001D0: 2C 58 00 E7 09 14 05 D3  54 41 20 53 43 52 45 45  |,X......TA SCREE|
000001E0: 4E AA 37 36 38 2C 58 00  EF 09 1E 05 C9 4E 58 00  |N.768,X......NX.|
000001F0: FE 09 28 05 C2 4E 45 20  57 41 43 48 54 30 00 11  |..(..NE WACHT0..|
00000200: 0A 32 05 57 41 43 48 54  31 20 43 4D 50 20 23 33  |.2.WACHT1 CMP #3|
00000210: 32 00 20 0A 3C 05 C2 4E  45 20 57 41 43 48 54 32  |2. .<..NE WACHT2|
00000220: 00 2E 0A 46 05 C9 4E 43  20 4B 4C 45 55 52 00 3C  |...F..NC KLEUR.<|
00000230: 0A 50 05 CA 4D 50 20 57  41 43 48 54 00 50 0A 5A  |.P..MP WACHT.P.Z|
00000240: 05 57 41 43 48 54 32 20  43 4D 50 20 23 31 33 33  |.WACHT2 CMP #133|
00000250: 00 5F 0A 64 05 C2 4E 45  20 57 41 43 48 54 33 00  |._.d..NE WACHT3.|
00000260: 6D 0A 6E 05 C9 4E 43 20  24 44 30 32 30 00 7B 0A  |m.n..NC $D020.{.|
00000270: 78 05 C9 4E 43 20 24 44  30 32 31 00 89 0A 82 05  |x..NC $D021.....|
00000280: CA 4D 50 20 57 41 43 48  54 00 9D 0A 83 05 57 41  |.MP WACHT.....WA|
00000290: 43 48 54 33 20 43 4D 50  20 23 31 33 34 00 AC 0A  |CHT3 CMP #134...|
000002A0: 84 05 C2 4E 45 20 57 41  43 48 54 34 00 B4 0A 85  |...NE WACHT4....|
000002B0: 05 D2 54 53 00 C8 0A 86  05 57 41 43 48 54 34 20  |..TS.....WACHT4 |
000002C0: 43 4D 50 20 23 24 34 30  00 D6 0A 87 05 C2 45 51  |CMP #$40......EQ|
000002D0: 20 57 41 43 48 54 00 E4  0A 88 05 CA 53 52 20 24  | WACHT......SR $|
000002E0: 46 46 39 46 00 F2 0A 89  05 CA 53 52 20 24 46 46  |FF9F......SR $FF|
000002F0: 44 32 00 00 0B 8A 05 CA  4D 50 20 57 41 43 48 54  |D2......MP WACHT|
00000300: 00 16 0B 8C 05 4B 4C 45  55 52 20 44 41 54 20 30  |.....KLEUR DAT 0|
00000310: 20 20 20 20 30 30 00 2B  0B 96 05 58 50 4F 53 20  |    00.+...XPOS |
00000320: 44 41 54 20 30 20 20 20  20 30 30 00 40 0B A0 05  |DAT 0    00.@...|
00000330: 59 50 4F 53 20 44 41 54  20 30 20 20 20 20 30 30  |YPOS DAT 0    00|
00000340: 00 52 0B AA 05 49 4E 54  45 52 20 4C 44 41 20 4A  |.R...INTER LDA J|
00000350: 4F 59 00 5D 0B B4 05 C1  4E 44 20 23 31 00 6C 0B  |OY.]....ND #1.l.|
00000360: BE 05 C2 4E 45 20 49 4E  54 45 52 30 00 79 0B C8  |...NE INTER0.y..|
00000370: 05 C4 45 43 20 59 50 4F  53 00 88 0B D2 05 C2 50  |..EC YPOS......P|
00000380: 4C 20 49 4E 54 45 52 31  00 94 0B DC 05 CC 44 41  |L INTER1......DA|
00000390: 20 23 32 34 00 A1 0B E6  05 D3 54 41 20 59 50 4F  | #24......TA YPO|
000003A0: 53 00 B0 0B F0 05 CA 4D  50 20 49 4E 54 45 52 31  |S......MP INTER1|
000003B0: 00 C3 0B FA 05 49 4E 54  45 52 30 20 4C 44 41 20  |.....INTER0 LDA |
000003C0: 4A 4F 59 00 CE 0B 04 06  C1 4E 44 20 23 32 00 DD  |JOY......ND #2..|
000003D0: 0B 0E 06 C2 4E 45 20 49  4E 54 45 52 31 00 EA 0B  |....NE INTER1...|
000003E0: 18 06 C9 4E 43 20 59 50  4F 53 00 F7 0B 22 06 CC  |...NC YPOS..."..|
000003F0: 44 41 20 59 50 4F 53 00  03 0C 2C 06 C3 4D 50 20  |DA YPOS...,..MP |
00000400: 23 32 35 00 12 0C 36 06  C2 43 43 20 49 4E 54 45  |#25...6..CC INTE|
00000410: 52 31 00 1D 0C 40 06 CC  44 41 20 23 30 00 2A 0C  |R1...@..DA #0.*.|
00000420: 4A 06 D3 54 41 20 59 50  4F 53 00 3D 0C 54 06 49  |J..TA YPOS.=.T.I|
00000430: 4E 54 45 52 31 20 4C 44  41 20 4A 4F 59 00 48 0C  |NTER1 LDA JOY.H.|
00000440: 5E 06 C1 4E 44 20 23 34  00 57 0C 68 06 C2 4E 45  |^..ND #4.W.h..NE|
00000450: 20 49 4E 54 45 52 32 00  64 0C 72 06 C4 45 43 20  | INTER2.d.r..EC |
00000460: 58 50 4F 53 00 73 0C 7C  06 C2 50 4C 20 49 4E 54  |XPOS.s.|..PL INT|
00000470: 45 52 33 00 7F 0C 86 06  CC 44 41 20 23 33 39 00  |ER3......DA #39.|
00000480: 8C 0C 90 06 D3 54 41 20  58 50 4F 53 00 9B 0C 9A  |.....TA XPOS....|
00000490: 06 CA 4D 50 20 49 4E 54  45 52 33 00 AE 0C A4 06  |..MP INTER3.....|
000004A0: 49 4E 54 45 52 32 20 4C  44 41 20 4A 4F 59 00 B9  |INTER2 LDA JOY..|
000004B0: 0C AE 06 C1 4E 44 20 23  38 00 C8 0C B8 06 C2 4E  |....ND #8......N|
000004C0: 45 20 49 4E 54 45 52 33  00 D5 0C C2 06 C9 4E 43  |E INTER3......NC|
000004D0: 20 58 50 4F 53 00 E2 0C  CC 06 CC 44 41 20 58 50  | XPOS......DA XP|
000004E0: 4F 53 00 EE 0C D6 06 C3  4D 50 20 23 34 30 00 FD  |OS......MP #40..|
000004F0: 0C E0 06 C2 43 43 20 49  4E 54 45 52 33 00 08 0D  |....CC INTER3...|
00000500: EA 06 CC 44 41 20 23 30  00 15 0D F4 06 D3 54 41  |...DA #0......TA|
00000510: 20 58 50 4F 53 00 28 0D  FE 06 49 4E 54 45 52 33  | XPOS.(...INTER3|
00000520: 20 4C 44 41 20 4A 4F 59  00 34 0D 08 07 C1 4E 44  | LDA JOY.4....ND|
00000530: 20 23 31 36 00 43 0D 12  07 C2 4E 45 20 49 4E 54  | #16.C....NE INT|
00000540: 45 52 37 00 54 0D 1C 07  CC 44 41 20 23 B3 53 43  |ER7.T....DA #.SC|
00000550: 52 45 45 4E 00 60 0D 26  07 D3 54 41 20 5A 50 30  |REEN.`.&..TA ZP0|
00000560: 00 71 0D 30 07 CC 44 41  20 23 B1 53 43 52 45 45  |.q.0..DA #.SCREE|
00000570: 4E 00 7D 0D 3A 07 D3 54  41 20 5A 50 31 00 8D 0D  |N.}.:..TA ZP1...|
00000580: 44 07 CC 44 41 20 23 B3  43 4F 4C 4F 52 00 99 0D  |D..DA #.COLOR...|
00000590: 4E 07 D3 54 41 20 5A 50  32 00 A9 0D 58 07 CC 44  |N..TA ZP2...X..D|
000005A0: 41 20 23 B1 43 4F 4C 4F  52 00 B5 0D 62 07 D3 54  |A #.COLOR...b..T|
000005B0: 41 20 5A 50 33 00 C2 0D  6C 07 CC 44 58 20 59 50  |A ZP3...l..DX YP|
000005C0: 4F 53 00 D4 0D 76 07 49  4E 54 45 52 34 20 43 50  |OS...v.INTER4 CP|
000005D0: 58 20 23 30 00 E3 0D 80  07 C2 45 51 20 49 4E 54  |X #0......EQ INT|
000005E0: 45 52 36 00 EB 0D 8A 07  C3 4C 43 00 F7 0D 94 07  |ER6......LC.....|
000005F0: CC 44 41 20 5A 50 30 00  03 0E 9E 07 C1 44 43 20  |.DA ZP0......DC |
00000600: 23 34 30 00 0F 0E A8 07  D3 54 41 20 5A 50 30 00  |#40......TA ZP0.|
00000610: 1B 0E B2 07 D3 54 41 20  5A 50 32 00 2A 0E BC 07  |.....TA ZP2.*...|
00000620: C2 43 43 20 49 4E 54 45  52 35 00 36 0E C6 07 C9  |.CC INTER5.6....|
00000630: 4E 43 20 5A 50 31 00 42  0E D0 07 C9 4E 43 20 5A  |NC ZP1.B....NC Z|
00000640: 50 33 00 51 0E DA 07 49  4E 54 45 52 35 20 44 45  |P3.Q...INTER5 DE|
00000650: 58 00 60 0E E4 07 C2 50  4C 20 49 4E 54 45 52 34  |X.`....PL INTER4|
00000660: 00 74 0E EE 07 49 4E 54  45 52 36 20 4C 44 59 20  |.t...INTER6 LDY |
00000670: 58 50 4F 53 00 81 0E F8  07 CC 44 41 20 23 31 36  |XPOS......DA #16|
00000680: 30 00 91 0E 02 08 D3 54  41 20 28 5A 50 30 29 2C  |0......TA (ZP0),|
00000690: 59 00 9F 0E 0C 08 CC 44  41 20 4B 4C 45 55 52 00  |Y......DA KLEUR.|
000006A0: AF 0E 16 08 D3 54 41 20  28 5A 50 32 29 2C 59 00  |.....TA (ZP2),Y.|
000006B0: C4 0E 20 08 49 4E 54 45  52 37 20 4A 4D 50 20 24  |.. .INTER7 JMP $|
000006C0: 45 41 33 31 00 00 00                              |EA31...         |

......ORG    $4000.$...JOY DEF $DC00.9..
.SCREEN DEF $0400.M...COLOR DEF $D800.A.
..CHRIN DEF $FFE4.Q...ZP0 DEF $FB...$.ZP
1 DEF $FC.....ZP2 DEF $FD...8.ZP3 DEF $F
E...B.INIT LDA #0...L.STA XPOS.K.V.STA Y
POS.Y.`.STA $D020...J.STA $D021...T.LDA 
#1...~.STA KLEUR.....SEI.....LDA #.INTER
.%...STA $314.5...LDA #.INTER.B...STA $3
15.J...CLI.^.D.WACHT JSR CHRIN.J.N.CMP #
13.Y.X.BNE WACHT1.....LDX #0.....LDA #32
.....WACHT0 STA SCREEN,X.....STA SCREEN.
256,X.R...STA SCREEN.512,X.....STA SCREE
N.768,X.....INX...(.BNE WACHT0...2.WACHT
1 CMP #32. .<.BNE WACHT2...F.INC KLEUR.<
.P.JMP WACHT.P.Z.WACHT2 CMP #133._.D.BNE
 WACHT3.M.N.INC $D020.{.X.INC $D021.....
JMP WACHT.....WACHT3 CMP #134.....BNE WA
CHT4.....RTS.H...WACHT4 CMP #$40.V...BEQ
 WACHT.....JSR $FF9F.....JSR $FFD2.....J
MP WACHT.....KLEUR DAT 0    00.+...XPOS 
DAT 0    00.@. .YPOS DAT 0    00.R...INT
ER LDA JOY.]...AND #1.L...BNE INTER0.Y.H
.DEC YPOS...R.BPL INTER1.....LDA #24....
.STA YPOS.....JMP INTER1.C...INTER0 LDA 
JOY.N...AND #2.....BNE INTER1.....INC YP
OS...".LDA YPOS...,.CMP #25...6.BCC INTE
R1...@.LDA #0.*.J.STA YPOS.=.T.INTER1 LD
A JOY.H.^.AND #4.W.H.BNE INTER2.D.R.DEC 
XPOS.S.|.BPL INTER3....LDA #39.....STA 
XPOS.....JMP INTER3.....INTER2 LDA JOY..
...AND #8.H...BNE INTER3.U.B.INC XPOS...
L.LDA XPOS...V.CMP #40.....BCC INTER3...
..LDA #0.....STA XPOS.(...INTER3 LDA JOY
.4...AND #16.C...BNE INTER7.T...LDA #.SC
REEN.`.&.STA ZP0.Q.0.LDA #.SCREEN.}.:.ST
A ZP1...D.LDA #.COLOR...N.STA ZP2...X.LD
A #.COLOR...B.STA ZP3.B.L.LDX YPOS.T.V.I
NTER4 CPX #0.....BEQ INTER6.....CLC.....
LDA ZP0.....ADC #40.....STA ZP0.....STA 
ZP2.*...BCC INTER5.6.F.INC ZP1.B.P.INC Z
P3.Q.Z.INTER5 DEX.`...BPL INTER4.T...INT
ER6 LDY XPOS.....LDA #160.....STA (ZP0),
Y.....LDA KLEUR.....STA (ZP2),Y.D. .INTE
R7 JMP $EA31...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL