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

SPY COMM1 LIST

FILE INFORMATION

FILENAME(S): SPY COMM1 LIST

FILE TYPE(S): PRG

FILE SIZE: 816b

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

APPEARS ON: 1 disk(s)

FILE HASH

fdcf3d497252a1f780b39906aa6969b021e3d121668f23dee6953a828c4f97ae

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SPEEDY WERK SPY COMM1 LIST PRG DuncanTwain 27 13 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0F 08 0A 00 CF 52  47 20 24 38 30 30 39 00  |.......RG $8009.|
00000010: 24 08 14 00 43 52 48 4F  55 54 20 44 45 46 20 24  |$...CRHOUT DEF $|
00000020: 46 46 44 32 00 36 08 1E  00 42 41 53 20 44 45 46  |FFD2.6...BAS DEF|
00000030: 20 24 41 30 30 30 00 49  08 28 00 4B 45 52 4C 20  | $A000.I.(.KERL |
00000040: 44 45 46 20 24 45 30 30  30 00 5C 08 32 00 4D 45  |DEF $E000.\.2.ME|
00000050: 4C 44 20 44 45 46 20 24  45 34 37 32 00 6E 08 37  |LD DEF $E472.n.7|
00000060: 00 4E 45 57 20 44 45 46  20 24 41 36 34 32 00 77  |.NEW DEF $A642.w|
00000070: 08 3C 00 3B 52 45 4D 00  8A 08 41 00 57 41 52 4D  |.<.;REM...A.WARM|
00000080: 20 44 45 46 20 24 45 33  38 36 00 97 08 6E 00 CA  | DEF $E386...n..|
00000090: 53 52 20 43 4F 50 59 00  A5 08 78 00 CA 53 52 20  |SR COPY...x..SR |
000000A0: 56 45 52 41 4E 00 B1 08  82 00 CA 53 52 20 4E 45  |VERAN......SR NE|
000000B0: 57 00 BF 08 8C 00 CA 53  52 20 50 52 49 4E 54 00  |W......SR PRINT.|
000000C0: CC 08 8E 00 CC 44 41 20  23 24 46 37 00 D8 08 8F  |.....DA #$F7....|
000000D0: 00 D3 54 41 20 24 35 35  00 E5 08 90 00 CC 44 41  |..TA $55......DA|
000000E0: 20 23 24 37 37 00 F1 08  91 00 D3 54 41 20 24 35  | #$77......TA $5|
000000F0: 36 00 FE 08 96 00 CA 4D  50 20 57 41 52 4D 00 10  |6......MP WARM..|
00000100: 09 A0 00 43 4F 50 59 20  4C 44 58 20 23 24 30 30  |...COPY LDX #$00|
00000110: 00 1D 09 AA 00 CC 44 59  20 23 24 41 30 00 2B 09  |......DY #$A0.+.|
00000120: B4 00 CC 44 41 20 42 41  53 2C 58 00 39 09 BE 00  |...DA BAS,X.9...|
00000130: D3 54 41 20 42 41 53 2C  58 00 41 09 C8 00 C9 4E  |.TA BAS,X.A....N|
00000140: 58 00 4E 09 D2 00 C2 4E  45 20 43 4F 50 59 00 56  |X.N....NE COPY.V|
00000150: 09 DC 00 C9 4E 59 00 63  09 E6 00 C3 50 59 20 23  |....NY.c....PY #|
00000160: 24 43 30 00 70 09 F0 00  C2 4E 45 20 43 4F 50 59  |$C0.p....NE COPY|
00000170: 00 82 09 FA 00 4B 45 52  4E 20 4C 44 58 20 23 24  |.....KERN LDX #$|
00000180: 30 30 00 8F 09 04 01 CC  44 59 20 23 24 45 30 00  |00......DY #$E0.|
00000190: 9E 09 0E 01 CC 44 41 20  4B 45 52 4C 2C 58 00 AD  |.....DA KERL,X..|
000001A0: 09 18 01 D3 54 41 20 4B  45 52 4C 2C 58 00 B5 09  |....TA KERL,X...|
000001B0: 22 01 C9 4E 58 00 C2 09  2C 01 C2 4E 45 20 4B 45  |"..NX...,..NE KE|
000001C0: 52 4E 00 CA 09 36 01 C9  4E 59 00 D7 09 40 01 C3  |RN...6..NY...@..|
000001D0: 50 59 20 23 24 30 30 00  E4 09 4A 01 C2 4E 45 20  |PY #$00...J..NE |
000001E0: 4B 45 52 4E 00 EC 09 54  01 D2 54 53 00 FF 09 90  |KERN...T..TS....|
000001F0: 01 56 45 52 41 4E 20 4C  44 58 20 23 24 30 30 00  |.VERAN LDX #$00.|
00000200: 0D 0A 9A 01 CC 44 41 20  54 41 42 2C 58 00 1C 0A  |.....DA TAB,X...|
00000210: A4 01 D3 54 41 20 4D 45  4C 44 2C 58 00 24 0A AE  |...TA MELD,X.$..|
00000220: 01 C9 4E 58 00 31 0A B8  01 C3 50 58 20 23 24 33  |..NX.1....PX #$3|
00000230: 38 00 3F 0A C2 01 C2 4E  45 20 56 45 52 41 4E 00  |8.?....NE VERAN.|
00000240: 4B 0A CC 01 CC 44 41 20  24 30 31 00 58 0A D6 01  |K....DA $01.X...|
00000250: CF 52 41 20 23 24 46 45  00 64 0A E0 01 D3 54 41  |.RA #$FE.d....TA|
00000260: 20 24 30 31 00 6C 0A EA  01 D2 54 53 00 7F 0A 58  | $01.l....TS...X|
00000270: 02 50 52 49 4E 54 20 4C  44 58 20 23 24 30 30 00  |.PRINT LDX #$00.|
00000280: 8E 0A 62 02 CC 44 41 20  4D 45 4C 44 2C 58 00 9B  |..b..DA MELD,X..|
00000290: 0A 6C 02 C3 4D 50 20 23  24 30 30 00 A8 0A 76 02  |.l..MP #$00...v.|
000002A0: C2 45 51 20 45 49 4E 44  00 B7 0A 80 02 CA 53 52  |.EQ EIND......SR|
000002B0: 20 43 52 48 4F 55 54 00  BF 0A 8A 02 C9 4E 58 00  | CRHOUT......NX.|
000002C0: CD 0A 94 02 CA 4D 50 20  50 52 49 4E 54 00 DA 0A  |.....MP PRINT...|
000002D0: 9E 02 45 49 4E 44 20 52  54 53 00 16 0B E8 03 54  |..EIND RTS.....T|
000002E0: 41 42 20 44 41 54 20 31  34 37 2C 31 33 2C 22 20  |AB DAT 147,13," |
000002F0: 20 20 20 20 20 53 50 45  45 44 59 27 53 20 43 4F  |     SPEEDY'S CO|
00000300: 4D 4D 4F 44 4F 52 45 20  36 34 20 56 31 2E 30 20  |MMODORE 64 V1.0 |
00000310: 20 20 20 22 2C 30 00 2D  0B FC 03 54 41 42 32 20  |   ",0.-...TAB2 |
00000320: 44 41 54 20 30 2C 30 2C  30 2C 30 2C 30 00 00 00  |DAT 0,0,0,0,0...|

......ORG $8009.$...CRHOUT DEF $FFD2.6..
.BAS DEF $A000.I.(.KERL DEF $E000.\.2.ME
LD DEF $E472.N.7.NEW DEF $A642.W.<.;REM.
..A.WARM DEF $E386...N.JSR COPY...X.JSR 
VERAN.....JSR NEW.....JSR PRINT.L...LDA 
#$F7.X...STA $55.....LDA #$77.....STA $5
6.....JMP WARM... .COPY LDX #$00.....LDY
 #$A0.+...LDA BAS,X.9...STA BAS,X.A.H.IN
X.N.R.BNE COPY.V...INY.C...CPY #$C0.P...
BNE COPY.....KERN LDX #$00.....LDY #$E0.
....LDA KERL,X.....STA KERL,X...".INX.B.
,.BNE KERN.J.6.INY.W.@.CPY #$00...J.BNE 
KERN...T.RTS.....VERAN LDX #$00.....LDA 
TAB,X.....STA MELD,X.$...INX.1...CPX #$3
8.?.B.BNE VERAN.K.L.LDA $01.X.V.ORA #$FE
.D...STA $01.L...RTS..X.PRINT LDX #$00.
..B.LDA MELD,X...L.CMP #$00...V.BEQ EIND
.....JSR CRHOUT.....INX.M...JMP PRINT.Z.
..EIND RTS.....TAB DAT 147,13,"      SPE
EDY'S COMMODORE 64 V1.0    ",0.-...TAB2 
DAT 0,0,0,0,0...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL