MAIN.SRC
FILE INFORMATION
FILENAME(S): MAIN.SRC
FILE TYPE(S): PRG
FILE SIZE: 970b
FIRST SEEN: 2025-11-30 21:05:34
APPEARS ON: 3 disk(s)
FILE HASH
1b514e94b43377ba44e68e9104a7e66a1d0bd480aaa731d0324f01bdcd11edcd
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C B M 64 | MAIN.SRC | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
| SPELLEN | MAIN.SRC | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
| HULP | MAIN.SRC | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 9E 20 37 30 30 00 17 08 14 00 |....... 700.....| 00000010: 2E 4F 50 54 20 4F 4F 00 24 08 1E 00 AC B2 20 24 |.OPT OO.$..... $| 00000020: 43 32 30 30 00 2A 08 28 00 3A 00 3C 08 2A 00 52 |C200.*.(.:.<.*.R| 00000030: 41 53 54 45 52 20 B2 24 43 30 42 30 00 4F 08 2C |ASTER .$C0B0.O.,| 00000040: 00 44 49 53 50 4C 41 59 20 B2 24 43 30 30 30 00 |.DISPLAY .$C000.| 00000050: 61 08 32 00 53 43 52 4F 4C 4C 20 B2 24 43 35 30 |a.2.SCROLL .$C50| 00000060: 34 00 73 08 3C 00 52 41 53 54 31 20 20 B2 24 43 |4.s.<.RAST1 .$C| 00000070: 35 30 32 00 85 08 46 00 52 41 53 54 32 20 20 B2 |502...F.RAST2 .| 00000080: 24 43 35 30 33 00 97 08 50 00 43 4F 4C 31 20 20 |$C503...P.COL1 | 00000090: 20 B2 24 43 35 30 30 00 A9 08 5A 00 43 4F 4C 32 | .$C500...Z.COL2| 000000A0: 20 20 20 B2 24 43 35 30 31 00 B9 08 5C 00 58 B9 | .$C501...\.X.| 000000B0: 20 20 20 B2 24 43 35 41 33 00 C7 08 5E 00 99 20 | .$C5A3...^.. | 000000C0: 20 B2 24 46 46 44 32 00 CD 08 63 00 3A 00 E1 08 | .$FFD2...c.:...| 000000D0: 64 00 53 54 41 52 54 20 20 4C 44 41 20 23 24 39 |d.START LDA #$9| 000000E0: 33 00 F2 08 6E 00 3A 20 20 20 20 20 20 4A 53 52 |3...n.: JSR| 000000F0: 20 99 00 04 09 70 00 3A 20 20 20 20 20 20 4C 44 | ....p.: LD| 00000100: 41 20 23 30 00 19 09 72 00 3A 20 20 20 20 20 20 |A #0...r.: | 00000110: 53 54 41 20 35 33 32 38 30 00 2B 09 78 00 3A 20 |STA 53280.+.x.: | 00000120: 20 20 20 20 20 4C 44 58 20 23 30 00 3E 09 82 00 | LDX #0.>...| 00000130: 4C 4F 4F 50 31 20 20 4C 44 41 20 83 2C 58 00 55 |LOOP1 LDA .,X.U| 00000140: 09 8C 00 3A 20 20 20 20 20 20 53 54 41 20 24 43 |...: STA $C| 00000150: 35 30 30 2C 58 00 64 09 96 00 3A 20 20 20 20 20 |500,X.d...: | 00000160: 20 49 4E 58 00 76 09 A0 00 3A 20 20 20 20 20 20 | INX.v...: | 00000170: 43 50 58 20 23 36 00 8B 09 AA 00 3A 20 20 20 20 |CPX #6.....: | 00000180: 20 20 42 4E 45 20 4C 4F 4F 50 31 00 9E 09 B4 00 | BNE LOOP1.....| 00000190: 3A 20 20 20 20 20 20 4C 44 41 20 23 31 32 00 B0 |: LDA #12..| 000001A0: 09 BE 00 3A 20 20 20 20 20 20 53 54 41 20 58 B9 |...: STA X.| 000001B0: 00 C6 09 2C 01 53 43 52 45 45 4E 20 4A 53 52 20 |...,.SCREEN JSR | 000001C0: 52 41 53 54 45 52 00 DD 09 36 01 3A 20 20 20 20 |RASTER...6.: | 000001D0: 20 20 4A 53 52 20 44 49 53 50 4C 41 59 00 E3 09 | JSR DISPLAY...| 000001E0: 40 01 3A 00 F9 09 90 01 44 45 4D 4F 20 20 20 44 |@.:.....DEMO D| 000001F0: 45 43 20 53 43 52 4F 4C 4C 00 0B 0A 95 01 3A 20 |EC SCROLL.....: | 00000200: 20 20 20 20 20 4C 44 58 20 23 30 00 1D 0A 9A 01 | LDX #0.....| 00000210: 4C 4F 4F 50 33 20 20 4C 44 59 20 23 30 00 2C 0A |LOOP3 LDY #0.,.| 00000220: A4 01 4C 4F 4F 50 32 20 20 49 4E 59 00 3E 0A AE |..LOOP2 INY.>..| 00000230: 01 3A 20 20 20 20 20 20 43 50 59 20 23 30 00 53 |.: CPY #0.S| 00000240: 0A B8 01 3A 20 20 20 20 20 20 42 4E 45 20 4C 4F |...: BNE LO| 00000250: 4F 50 32 00 62 0A BA 01 3A 20 20 20 20 20 20 49 |OP2.b...: I| 00000260: 4E 58 00 75 0A BC 01 3A 20 20 20 20 20 20 43 50 |NX.u...: CP| 00000270: 58 20 23 35 30 00 8A 0A BE 01 3A 20 20 20 20 20 |X #50.....: | 00000280: 20 42 4E 45 20 4C 4F 4F 50 33 00 A0 0A C2 01 3A | BNE LOOP3.....:| 00000290: 20 20 20 20 20 20 4C 44 41 20 53 43 52 4F 4C 4C | LDA SCROLL| 000002A0: 00 B2 0A CC 01 3A 20 20 20 20 20 20 43 4D 50 20 |.....: CMP | 000002B0: 23 30 00 C7 0A D6 01 3A 20 20 20 20 20 20 42 45 |#0.....: BE| 000002C0: 51 20 53 53 43 52 4E 00 DB 0A E0 01 3A 20 20 20 |Q SSCRN.....: | 000002D0: 20 20 20 4A 4D 50 20 44 45 4D 4F 00 EA 0A EA 01 | JMP DEMO.....| 000002E0: 53 53 43 52 4E 20 20 4E 4F 50 00 05 0B F4 01 92 |SSCRN NOP......| 000002F0: 20 20 20 4C 44 41 20 24 44 30 31 32 3A 43 4D 50 | LDA $D012:CMP| 00000300: 20 23 31 37 30 00 16 0B FE 01 3A 20 20 20 20 20 | #170.....: | 00000310: 20 42 4E 45 20 92 00 33 0B 00 02 3A 20 20 20 20 | BNE ..3...: | 00000320: 20 20 4C 44 41 20 23 37 3A 53 54 41 20 53 43 52 | LDA #7:STA SCR| 00000330: 4F 4C 4C 00 45 0B 02 02 3A 20 20 20 20 20 20 49 |OLL.E...: I| 00000340: 4E 43 20 58 B9 00 5C 0B 08 02 3A 20 20 20 20 20 |NC X..\...: | 00000350: 20 4A 53 52 20 44 49 53 50 4C 41 59 00 70 0B 12 | JSR DISPLAY.p..| 00000360: 02 3A 20 20 20 20 20 20 4A 4D 50 20 44 45 4D 4F |.: JMP DEMO| 00000370: 00 89 0B E8 03 83 20 2E 42 59 54 20 36 2C 31 2C |...... .BYT 6,1,| 00000380: 31 37 30 2C 32 35 35 2C 37 00 90 0B 28 23 2E 80 |170,255,7...(#..| 00000390: 00 AF 0B 32 23 A0 31 35 3A 9F 31 35 2C 38 2C 31 |...2#.15:.15,8,1| 000003A0: 35 2C 22 53 30 3A 4D 41 49 4E 2E 53 52 43 22 00 |5,"S0:MAIN.SRC".| 000003B0: C7 0B 3C 23 94 22 30 3A 4D 41 49 4E 2E 53 52 43 |..<#."0:MAIN.SRC| 000003C0: 22 2C 38 3A A0 31 35 00 00 00 |",8:.15... |
....... 700......OPT OO.$..... $C200.*.(
.:.<.*.RASTER .$C0B0.O.,.DISPLAY .$C000.
A.2.SCROLL .$C504.S.<.RAST1 .$C502...F.
RAST2 .$C503...P.COL1 .$C500...Z.COL2
.$C501...\.X. .$C5A3.G.^.. .$FFD2.
M.C.:...D.START LDA #$93...N.: JSR
....P.: LDA #0...R.: STA 5328
0.+.X.: LDX #0.>...LOOP1 LDA .,X.U
...: STA $C500,X.D...: INX.V.
.: CPX #6.....: BNE LOOP1.....
: LDA #12.....: STA X..F.,.SCR
EEN JSR RASTER...6.: JSR DISPLAY...
@.:.....DEMO DEC SCROLL.....: LDX
#0.....LOOP3 LDY #0.,...LOOP2 INY.>..
.: CPY #0.S...: BNE LOOP2.B...
: INX.U...: CPX #50.....:
BNE LOOP3. .B.: LDA SCROLL...L.:
CMP #0.G.V.: BEQ SSCRN.....:
JMP DEMO.....SSCRN NOP...... LDA $
D012:CMP #170.....: BNE ..3...:
LDA #7:STA SCROLL.E...: INC X..\.
..: JSR DISPLAY.P...: JMP DEMO
...... .BYT 6,1,170,255,7...(#.....2# 15
:.15,8,15,"S0:MAIN.SRC".G.<#."0:MAIN.SRC
",8: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL