SRC DISKCATALOG
FILE INFORMATION
FILENAME(S): SRC DISKCATALOG
FILE TYPE(S): DEL
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:11:52
APPEARS ON: 1 disk(s)
FILE HASH
7493b648830a7e50e3ceff5e68ba3616cf40932f192b76cab8b768e03345bb6b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L JANSEN 34 B | SRC DISKCATALOG | DEL | DuncanTwain | 19 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 00 10 6E 15 00 00 25 20 20 20 20 20 20 20 20 |...n...% | 00000010: 20 20 20 20 20 20 20 20 3B 44 49 53 4B 43 41 54 | ;DISKCAT| 00000020: 41 4C 4F C7 10 25 20 20 20 20 20 20 20 20 20 20 |ALO..% | 00000030: 20 20 20 20 20 20 3B 53 2E 50 45 54 45 52 D3 20 | ;S.PETER. | 00000040: 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |% | 00000050: 20 3B 33 31 2F 37 2F 31 39 38 B4 30 25 20 20 20 | ;31/7/198.0% | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 BB 40 25 | .@%| 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 2E 4F D3 50 25 20 20 20 20 20 20 20 20 20 20 20 |.O.P% | 00000090: 20 20 20 20 20 2E 42 41 20 24 30 33 33 C3 60 25 | .BA $033.`%| 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 2E 4D 43 20 24 30 33 33 C3 70 25 20 20 20 20 20 |.MC $033.p% | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 BB 80 25 20 20 | ..% | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 2A | ;*| 000000E0: 54 41 42 45 4C AA 90 25 4C 4F 41 44 20 20 20 20 |TABEL..%LOAD | 000000F0: 20 20 20 20 20 20 20 20 2E 44 45 20 24 46 46 44 | .DE $FFD| 00000100: B5 00 26 46 4E 50 41 52 20 20 20 20 20 20 20 20 |..&FNPAR | 00000110: 20 20 20 2E 44 45 20 24 46 44 46 B9 05 26 46 50 | .DE $FDF..&FP| 00000120: 41 52 20 20 20 2E 44 45 20 24 46 45 30 B0 10 26 |AR .DE $FE0..&| 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: BB 20 26 20 20 20 20 20 20 20 20 20 20 20 20 20 |. & | 00000150: 20 20 20 BB 10 27 43 41 54 41 4C 47 20 20 20 20 | ..'CATALG | 00000160: 20 20 20 20 20 20 4C 44 41 20 23 24 32 34 20 3B | LDA #$24 ;| 00000170: 22 24 22 3D 46 49 4C 45 4E 41 41 CD 20 27 20 20 |"$"=FILENAA. ' | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 | ST| 00000190: 41 20 2A 24 30 B2 30 27 20 20 20 20 20 20 20 20 |A *$0.0' | 000001A0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 B1 | LDA #$0.| 000001B0: 40 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |@' | 000001C0: 20 20 4C 44 58 20 23 24 30 B2 50 27 20 20 20 20 | LDX #$0.P' | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 | LDY | 000001E0: 23 24 30 30 20 3B 53 2E 4F AE 60 27 20 20 20 20 |#$00 ;S.O.`' | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 | JSR | 00000200: 46 4E 50 41 D2 70 27 20 20 20 20 20 20 20 20 20 |FNPA.p' | 00000210: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 B2 80 | LDA #$0..| 00000220: 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |' | 00000230: 20 4C 44 58 20 2A 24 42 41 20 3B 44 45 56 49 43 | LDX *$BA ;DEVIC| 00000240: 45 20 A3 90 27 20 20 20 20 20 20 20 20 20 20 20 |E ..' | 00000250: 20 20 20 20 20 4C 44 59 20 23 24 30 B0 00 28 20 | LDY #$0..( | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A | J| 00000270: 53 52 20 46 50 41 D2 10 28 20 20 20 20 20 20 20 |SR FPA..( | 00000280: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 00000290: 30 20 3B 4C 4F 41 44 2F 56 45 52 49 46 59 20 46 |0 ;LOAD/VERIFY F| 000002A0: 4C 41 C7 20 28 20 20 20 20 20 20 20 20 20 20 20 |LA. ( | 000002B0: 20 20 20 20 20 4C 44 58 20 23 24 30 B0 30 28 20 | LDX #$0.0( | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C | L| 000002D0: 44 59 20 23 24 34 30 20 3B 53 54 41 52 54 41 44 |DY #$40 ;STARTAD| 000002E0: 52 45 53 D3 40 28 20 20 20 20 20 20 20 20 20 20 |RES.@( | 000002F0: 20 20 20 20 20 20 53 54 58 20 2A 24 35 C6 50 28 | STX *$5.P(| 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000310: 53 54 59 20 2A 24 36 B0 60 28 20 20 20 20 20 20 |STY *$6.`( | 00000320: 20 4A 53 52 20 4C 4F 41 44 20 20 20 20 20 20 20 | JSR LOAD | 00000330: 20 20 3B 4C 4F 41 44 20 4C 49 4B 45 20 42 41 53 | ;LOAD LIKE BAS| 00000340: 49 43 50 52 C7 70 28 20 20 20 20 20 20 20 4C 44 |ICPR.p( LD| 00000350: 41 20 2A 24 35 46 20 20 20 20 20 20 20 20 20 3B |A *$5F ;| 00000360: 53 49 4D 55 4C 41 54 C5 80 28 20 20 20 20 20 20 |SIMULAT..( | 00000370: 20 4C 44 59 20 2A 24 36 30 20 20 20 20 20 20 20 | LDY *$60 | 00000380: 20 20 3B 42 41 53 49 43 53 54 41 52 54 41 44 44 | ;BASICSTARTADD| 00000390: 52 AE 90 28 20 20 20 20 20 20 20 4A 53 52 20 24 |R..( JSR $| 000003A0: 41 35 33 37 20 20 20 20 20 20 20 20 3B 42 41 53 |A537 ;BAS| 000003B0: 49 43 20 4C 49 4E 45 20 4C 49 4E CB 00 29 20 20 |IC LINE LIN..) | 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 | LD| 000003D0: 41 20 24 30 33 30 B0 10 29 20 20 20 20 20 20 20 |A $030..) | 000003E0: 20 20 20 20 20 20 20 20 20 50 48 C1 20 29 20 20 | PH. ) | 000003F0: 20 20 20 20 20 4C 44 41 20 24 30 33 30 31 20 20 | LDA $0301 | 00000400: 20 20 20 20 20 20 3B 50 4F 57 45 52 20 55 50 20 | ;POWER UP | 00000410: 56 45 43 54 4F D2 30 29 20 20 20 20 20 20 20 50 |VECTO.0) P| 00000420: 48 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |HA | 00000430: 3B 53 41 56 C5 40 29 20 20 20 20 20 20 20 20 20 |;SAV.@) | 00000440: 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 C4 50 | LDA #$3.P| 00000450: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |) | 00000460: 20 53 54 41 20 24 30 33 30 B0 60 29 20 20 20 20 | STA $030.`) | 00000470: 20 20 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 | LDA | 00000480: 23 24 45 B3 70 29 20 20 20 20 20 20 20 53 54 41 |#$E.p) STA| 00000490: 20 24 30 33 30 31 20 20 20 20 20 20 20 20 3B 53 | $0301 ;S| 000004A0: 45 54 20 54 4F 20 52 54 D3 80 29 20 20 20 20 20 |ET TO RT..) | 000004B0: 20 20 4A 53 52 20 24 41 36 43 33 20 20 20 20 20 | JSR $A6C3 | 000004C0: 20 20 20 3B 50 45 52 46 4F 52 4D 20 4C 49 53 D4 | ;PERFORM LIS.| 000004D0: 90 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.) | 000004E0: 20 20 50 4C C1 00 30 20 20 20 20 20 20 20 20 20 | PL..0 | 000004F0: 20 20 20 20 20 20 20 53 54 41 20 24 30 33 30 B1 | STA $030.| 00000500: 10 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.0 | 00000510: 20 20 50 4C C1 20 30 20 20 20 20 20 20 20 53 54 | PL. 0 ST| 00000520: 41 20 24 30 33 30 30 20 20 20 20 20 20 20 20 3B |A $0300 ;| 00000530: 52 45 53 45 54 20 4F 4C 44 20 56 45 43 54 4F D2 |RESET OLD VECTO.| 00000540: 30 30 20 20 20 20 20 20 20 52 54 53 20 20 20 20 |00 RTS | 00000550: 20 20 20 20 20 20 20 20 20 20 3B 42 41 43 4B 20 | ;BACK | 00000560: 54 4F 20 42 41 53 49 C3 40 30 20 20 20 20 20 20 |TO BASI.@0 | 00000570: 20 2E 45 CE 20 | .E. |
...N...% ;DISKCATALOG.%
;S.PETERS %
;31/7/198.0% .@%
.OSP% .BA $033C`%
.MC $033CP%
..% ;*TABEL..%LOAD
.DE $FFD..&FNPAR .DE $
FDF..&FPAR .DE $FE0..&
. & ..'CATALG LD
A #$24 ;"$"=FILENAAM ' ST
A *$0.0' LDA #$0.@'
LDX #$0.P' LDY
#$00 ;S.O.`' JSR FNPARP'
LDA #$0..'
LDX *$BA ;DEVICE ..' LDY
#$0..( JSR FPAR.(
LDA #$00 ;LOAD/VERIFY FLAG (
LDX #$0.0( L
DY #$40 ;STARTADRESS@( ST
X *$5FP( STY *$6.`(
JSR LOAD ;LOAD LIKE BASICPRGP(
LDA *$5F ;SIMULATE.(
LDY *$60 ;BASICSTARTADDR..(
JSR $A537 ;BASIC LINE LINK.)
LDA $030..)
PHA ) LDA $0301 ;POWER UP
VECTOR0) PHA ;SAVE@)
LDA #$3DP)
STA $030.`) LDA #$E.P)
STA $0301 ;SET TO RTS.)
JSR $A6C3 ;PERFORM LIST.)
PLA.0 STA $030.
.0 PLA 0 STA $0300
;RESET OLD VECTOR00 RTS
;BACK TO BASIC@0 .EN
> CLICK IMAGE PREVIEW FOR FULL MODAL