DIRECTORY 64.PAL
FILE INFORMATION
FILENAME(S): DIRECTORY 64.PAL
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:12:48
APPEARS ON: 1 disk(s)
FILE HASH
52fda29a732301c5fe512c53feb5d436f29bb5fb9e73b565470666a289b6275f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | DIRECTORY 64.PAL | PRG | DuncanTwain | 28 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 E8 03 8F 20 53 41 56 45 22 30 3A 44 |..".... SAVE"0:D| 00000010: 49 52 45 43 54 4F 52 59 20 36 34 2E 50 41 4C 22 |IRECTORY 64.PAL"| 00000020: 2C 38 00 4B 08 F2 03 8F 20 2A 20 42 59 20 45 52 |,8.K.... * BY ER| 00000030: 49 43 20 47 45 52 4D 41 49 4E 20 20 53 54 45 2D |IC GERMAIN STE-| 00000040: 46 4F 59 2C 20 51 55 45 42 45 43 00 6C 08 FC 03 |FOY, QUEBEC.l...| 00000050: 9F 20 38 2C 38 2C 31 2C 22 30 3A 44 49 52 45 43 |. 8,8,1,"0:DIREC| 00000060: 54 4F 52 59 20 36 34 2E 4F 42 4A 22 00 75 08 06 |TORY 64.OBJ".u..| 00000070: 04 9E 37 30 30 00 81 08 10 04 2E 4F 50 54 20 4F |..700......OPT O| 00000080: 38 00 8D 08 1A 04 AC B2 24 43 30 30 30 00 93 08 |8.......$C000...| 00000090: 24 04 3B 00 BD 08 2E 04 53 54 41 54 55 53 20 B2 |$.;.....STATUS .| 000000A0: 20 24 39 30 20 20 20 3B 20 46 49 4C 45 20 53 54 | $90 ; FILE ST| 000000B0: 41 54 55 53 20 56 41 52 49 41 42 4C 45 00 D6 08 |ATUS VARIABLE...| 000000C0: 38 04 8E 20 B2 20 24 41 41 44 33 20 3B 20 53 80 |8.. . $AAD3 ; S.| 000000D0: 20 C7 28 31 33 29 00 00 09 42 04 46 49 58 46 4C | .(13)...B.FIXFL| 000000E0: 54 20 B2 20 24 42 33 39 31 20 3B 20 46 49 58 45 |T . $B391 ; FIXE| 000000F0: 44 AB 46 4C 4F 41 54 20 43 91 56 45 52 53 49 91 |D.FLOAT C.VERSI.| 00000100: 00 28 09 4C 04 53 48 57 46 4C 54 20 B2 20 24 42 |.(.L.SHWFLT . $B| 00000110: 44 44 37 20 3B 20 99 20 46 4C 4F 41 54 49 4E 47 |DD7 ; . FLOATING| 00000120: 20 50 4F B5 20 C5 55 45 00 54 09 56 04 41 43 50 | PO. .UE.T.V.ACP| 00000130: 54 52 20 20 B2 20 24 46 46 41 35 20 3B 20 85 20 |TR . $FFA5 ; . | 00000140: 42 59 54 45 20 46 52 4F 4D 20 53 45 52 49 41 4C |BYTE FROM SERIAL| 00000150: 20 50 B0 54 00 82 09 60 04 43 49 4F 55 54 20 20 | P.T...`.CIOUT | 00000160: B2 20 24 46 46 41 38 20 3B 20 4F 55 54 50 55 54 |. $FFA8 ; OUTPUT| 00000170: 20 42 59 54 45 20 A4 20 53 45 52 49 41 4C 20 50 | BYTE . SERIAL P| 00000180: B0 54 00 9C 09 6A 04 9B 45 4E 20 B2 20 24 46 46 |.T...j..EN . $FF| 00000190: 42 31 20 3B 20 53 45 54 20 9B 45 4E 00 C0 09 74 |B1 ; SET .EN...t| 000001A0: 04 53 45 43 91 44 20 B2 20 24 46 46 39 33 20 3B |.SEC.D . $FF93 ;| 000001B0: 20 53 80 20 53 41 20 41 46 54 45 52 20 9B 45 4E | S. SA AFTER .EN| 000001C0: 00 DE 09 7E 04 54 41 4C 4B 20 20 20 B2 20 24 46 |...~.TALK . $F| 000001D0: 46 42 34 20 3B 20 53 45 54 20 54 41 4C 4B 00 04 |FB4 ; SET TALK..| 000001E0: 0A 88 04 54 4B 53 41 20 20 20 B2 20 24 46 46 39 |...TKSA . $FF9| 000001F0: 36 20 3B 20 53 80 20 53 41 20 41 46 54 45 52 20 |6 ; S. SA AFTER | 00000200: 54 41 4C 4B 00 2B 0A 92 04 55 4E 4C 53 4E 20 20 |TALK.+...UNLSN | 00000210: B2 20 24 46 46 41 45 20 3B 20 43 4F 4D 4D AF 20 |. $FFAE ; COMM. | 00000220: 42 55 53 20 A4 20 55 4E 9B 45 4E 00 53 0A 9C 04 |BUS . UN.EN.S...| 00000230: 55 4E 54 4C 4B 20 20 B2 20 24 46 46 41 42 20 3B |UNTLK . $FFAB ;| 00000240: 20 43 4F 4D 4D AF 20 42 55 53 20 A4 20 55 4E 54 | COMM. BUS . UNT| 00000250: 41 4C 4B 00 79 0A A6 04 43 48 52 4F 55 54 20 B2 |ALK.y...CHROUT .| 00000260: 20 24 46 46 44 32 20 3B 20 4F 55 54 50 55 54 20 | $FFD2 ; OUTPUT | 00000270: 43 48 41 52 41 43 54 45 52 00 98 0A B0 04 90 20 |CHARACTER...... | 00000280: 20 20 B2 20 24 46 46 45 31 20 3B 20 54 45 53 54 | . $FFE1 ; TEST| 00000290: 20 28 90 29 20 4B 45 59 00 9E 0A BA 04 3B 00 BA | (.) KEY.....;..| 000002A0: 0A C4 04 3B 20 AC AC 20 44 49 52 45 43 A4 52 59 |...; .. DIREC.RY| 000002B0: 20 87 20 44 45 4D 4F 20 AC AC 00 C0 0A CE 04 3B | . DEMO .......;| 000002C0: 00 E2 0A D8 04 4C 44 41 20 23 38 20 20 20 20 20 |.....LDA #8 | 000002D0: 20 20 20 3B 20 44 45 56 49 43 45 20 4E 55 4D 42 | ; DEVICE NUMB| 000002E0: 45 52 00 06 0B E2 04 4A 53 52 20 9B 45 4E 20 20 |ER.....JSR .EN | 000002F0: 20 20 3B 20 AF 20 53 45 43 91 44 41 52 59 20 41 | ; . SEC.DARY A| 00000300: 44 44 52 45 53 53 00 29 0B EC 04 4C 44 41 20 23 |DDRESS.)...LDA #| 00000310: 24 46 30 20 20 20 20 20 20 3B 20 27 B0 27 45 44 |$F0 ; '.'ED| 00000320: 20 57 49 54 48 20 24 46 30 00 57 0B F6 04 4A 53 | WITH $F0.W...JS| 00000330: 52 20 53 45 43 91 44 20 20 20 20 3B 20 A4 20 49 |R SEC.D ; . I| 00000340: 4E 44 49 43 41 54 45 20 41 20 46 49 4C 45 20 A4 |NDICATE A FILE .| 00000350: 20 42 45 20 9F 45 44 00 70 0B 00 05 4C 44 41 20 | BE .ED.p...LDA | 00000360: 23 22 24 22 20 20 20 20 20 20 3B 20 22 24 30 22 |#"$" ; "$0"| 00000370: 00 93 0B 0A 05 4A 53 52 20 43 49 4F 55 54 20 20 |.....JSR CIOUT | 00000380: 20 20 20 3B 20 53 45 4E 54 20 41 53 20 46 49 C3 | ; SENT AS FI.| 00000390: 41 4D 45 00 BE 0B 14 05 4C 44 41 20 23 22 30 22 |AME.....LDA #"0"| 000003A0: 20 20 20 20 20 20 3B 20 91 45 20 43 48 41 52 41 | ; .E CHARA| 000003B0: 43 54 45 52 20 41 54 20 41 20 54 49 4D 45 00 CC |CTER AT A TIME..| 000003C0: 0B 1E 05 4A 53 52 20 43 49 4F 55 54 00 E9 0B 28 |...JSR CIOUT...(| 000003D0: 05 4A 53 52 20 55 4E 4C 53 4E 20 20 20 20 20 3B |.JSR UNLSN ;| 000003E0: 20 90 20 9B 45 4E 49 4E 47 00 0B 0C 32 05 4C 44 | . .ENING...2.LD| 000003F0: 41 20 23 38 20 20 20 20 20 20 20 20 3B 20 44 45 |A #8 ; DE| 00000400: 56 49 43 45 20 4E 55 4D 42 45 52 00 32 0C 3C 05 |VICE NUMBER.2.<.| 00000410: 4A 53 52 20 54 41 4C 4B 20 20 20 20 20 20 3B 20 |JSR TALK ; | 00000420: AF 20 53 45 43 91 44 41 52 59 20 41 44 44 52 45 |. SEC.DARY ADDRE| 00000430: 53 53 00 55 0C 46 05 4C 44 41 20 23 24 36 30 20 |SS.U.F.LDA #$60 | 00000440: 20 20 20 20 20 3B 20 27 B0 27 45 44 20 57 49 54 | ; '.'ED WIT| 00000450: 48 20 24 36 30 00 87 0C 50 05 4A 53 52 20 54 4B |H $60...P.JSR TK| 00000460: 53 41 20 20 20 20 20 20 3B 20 A4 20 49 4E 44 49 |SA ; . INDI| 00000470: 43 41 54 45 20 4E B0 4D 41 4C 20 49 AD 4F 20 4F |CATE N.MAL I.O O| 00000480: 50 45 52 41 54 49 91 00 AA 0C 5A 05 4C 44 41 20 |PERATI....Z.LDA | 00000490: 23 30 20 20 20 20 20 20 20 20 3B 20 53 45 54 20 |#0 ; SET | 000004A0: 53 54 41 54 55 53 20 57 B0 44 00 C5 0C 64 05 53 |STATUS W.D...d.S| 000004B0: 54 41 20 53 54 41 54 55 53 20 20 20 20 3B 20 A4 |TA STATUS ; .| 000004C0: 20 5A 45 52 4F 00 E7 0C 6E 05 4A 53 52 20 41 43 | ZERO...n.JSR AC| 000004D0: 50 54 52 20 20 20 20 20 3B 20 A1 20 54 57 4F 20 |PTR ; . TWO | 000004E0: 44 55 4D 4D 49 45 53 00 F5 0C 78 05 4A 53 52 20 |DUMMIES...x.JSR | 000004F0: 41 43 50 54 52 00 11 0D 82 05 4A 53 52 20 8E 20 |ACPTR.....JSR . | 00000500: 20 20 20 3B 20 99 20 43 41 52 52 49 41 47 45 20 | ; . CARRIAGE | 00000510: 8E 00 17 0D 8C 05 3B 00 24 0D 96 05 4D 41 49 4E |......;.$...MAIN| 00000520: 20 B2 20 AC 00 46 0D A0 05 4A 53 52 20 41 43 50 | . ..F...JSR ACP| 00000530: 54 52 20 20 20 20 20 3B 20 A1 20 54 57 4F 20 44 |TR ; . TWO D| 00000540: 55 4D 4D 49 45 53 00 54 0D AA 05 4A 53 52 20 41 |UMMIES.T...JSR A| 00000550: 43 50 54 52 00 7F 0D B4 05 4A 53 52 20 41 43 50 |CPTR.....JSR ACP| 00000560: 54 52 20 20 20 20 20 3B 20 4C 49 4E 45 20 4E 55 |TR ; LINE NU| 00000570: 4D 42 45 52 20 28 4C 4F 57 AD 48 49 47 48 29 00 |MBER (LOW.HIGH).| 00000580: 87 0D BE 05 54 41 59 00 95 0D C8 05 4A 53 52 20 |....TAY.....JSR | 00000590: 41 43 50 54 52 00 B6 0D D2 05 4C 44 58 20 53 54 |ACPTR.....LDX ST| 000005A0: 41 54 55 53 20 20 20 20 3B 20 43 48 45 43 4B 20 |ATUS ; CHECK | 000005B0: 53 54 41 54 55 53 00 D6 0D DC 05 42 4E 45 20 46 |STATUS.....BNE F| 000005C0: 49 4E 49 20 20 20 20 20 20 3B 20 45 58 49 54 20 |INI ; EXIT | 000005D0: 91 20 45 52 52 B0 00 DC 0D E6 05 3B 00 0B 0E F0 |. ERR......;....| 000005E0: 05 4A 53 52 20 46 49 58 46 4C 54 20 20 20 20 3B |.JSR FIXFLT ;| 000005F0: 20 50 55 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 | PUT LINE NUMBER| 00000600: 20 49 4E 20 46 50 41 43 43 23 31 00 2D 0E FA 05 | IN FPACC#1.-...| 00000610: 4C 44 59 20 23 31 20 20 20 20 20 20 20 20 3B 20 |LDY #1 ; | 00000620: 99 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 5C 0E |. LINE NUMBER.\.| 00000630: 04 06 4A 53 52 20 53 48 57 46 4C 54 20 20 20 20 |..JSR SHWFLT | 00000640: 3B 20 28 57 48 49 43 48 20 49 53 20 54 48 45 20 |; (WHICH IS THE | 00000650: 42 4C 4F 43 4B 20 43 4F 55 4E 54 29 00 7A 0E 0E |BLOCK COUNT).z..| 00000660: 06 4C 44 41 20 23 33 32 20 20 20 20 20 20 20 3B |.LDA #32 ;| 00000670: 20 99 20 41 20 53 50 41 43 45 00 89 0E 18 06 4A | . A SPACE.....J| 00000680: 53 52 20 43 48 52 4F 55 54 00 8F 0E 22 06 3B 00 |SR CHROUT...".;.| 00000690: 9C 0E 2C 06 4C 4F 4F 50 20 B2 20 AC 00 BC 0E 36 |..,.LOOP . ....6| 000006A0: 06 4A 53 52 20 41 43 50 54 52 20 20 20 20 20 3B |.JSR ACPTR ;| 000006B0: 20 A1 20 43 48 41 52 41 43 54 45 52 00 C4 0E 40 | . CHARACTER...@| 000006C0: 06 50 48 50 00 DD 0E 4A 06 4A 53 52 20 43 48 52 |.PHP...J.JSR CHR| 000006D0: 4F 55 54 20 20 20 20 3B 20 99 20 49 54 00 E5 0E |OUT ; . IT...| 000006E0: 54 06 50 4C 50 00 0B 0F 5E 06 42 4E 45 20 4C 4F |T.PLP...^.BNE LO| 000006F0: 4F 50 20 20 20 20 20 20 3B 20 8B 20 4E 91 AB 5A |OP ; . N..Z| 00000700: 45 52 4F 20 A7 20 9A 49 4E 55 45 00 11 0F 68 06 |ERO . .INUE...h.| 00000710: 3B 00 2D 0F 72 06 4A 53 52 20 8E 20 20 20 20 3B |;.-.r.JSR . ;| 00000720: 20 99 20 43 41 52 52 49 41 47 45 20 8E 00 4A 0F | . CARRIAGE ..J.| 00000730: 7C 06 4A 53 52 20 90 20 20 20 20 20 20 3B 20 43 ||.JSR . ; C| 00000740: 48 45 43 4B 20 90 20 4B 45 59 00 57 0F 86 06 42 |HECK . KEY.W...B| 00000750: 4E 45 20 4D 41 49 4E 00 5D 0F 90 06 3B 00 6A 0F |NE MAIN.]...;.j.| 00000760: 9A 06 46 49 4E 49 20 B2 20 AC 00 86 0F A4 06 4A |..FINI . ......J| 00000770: 53 52 20 55 4E 54 4C 4B 20 20 20 20 20 3B 20 55 |SR UNTLK ; U| 00000780: 4E AB 54 41 4C 4B 00 91 0F AE 06 4C 44 41 20 23 |N.TALK.....LDA #| 00000790: 38 00 9D 0F B8 06 4A 53 52 20 9B 45 4E 00 C6 0F |8.....JSR .EN...| 000007A0: C2 06 4C 44 41 20 23 24 45 30 20 20 20 20 20 20 |..LDA #$E0 | 000007B0: 3B 20 54 48 45 20 53 45 43 91 44 41 52 59 20 41 |; THE SEC.DARY A| 000007C0: 44 44 52 45 53 53 00 EB 0F CC 06 4A 53 52 20 53 |DDRESS.....JSR S| 000007D0: 45 43 91 44 20 20 20 20 3B 20 49 53 20 27 B0 27 |EC.D ; IS '.'| 000007E0: 45 44 20 57 49 54 48 20 24 45 30 00 19 10 D6 06 |ED WITH $E0.....| 000007F0: 4A 53 52 20 55 4E 4C 53 4E 20 20 20 20 20 3B 20 |JSR UNLSN ; | 00000800: A4 20 49 4E 44 49 43 41 54 45 20 41 20 46 49 4C |. INDICATE A FIL| 00000810: 45 20 A4 20 42 45 20 A0 44 00 37 10 E0 06 52 54 |E . BE .D.7...RT| 00000820: 53 20 20 20 20 20 20 20 20 20 20 20 3B 20 8E 20 |S ; . | 00000830: A4 20 42 41 53 49 43 00 00 00 |. BASIC... |
..".... SAVE"0:DIRECTORY 64.PAL",8.K....
* BY ERIC GERMAIN STE-FOY, QUEBEC.L...
. 8,8,1,"0:DIRECTORY 64.OBJ".U....700...
...OPT O8.......$C000...$.;.....STATUS .
$90 ; FILE STATUS VARIABLE.V.8.. . $A
AD3 ; S. G(13)...B.FIXFLT . $B391 ; FIXE
D.FLOAT C.VERSI..(.L.SHWFLT . $BDD7 ; .
FLOATING PO. EUE.T.V.ACPTR . $FFA5 ; .
BYTE FROM SERIAL P.T...`.CIOUT . $FFA8
; OUTPUT BYTE . SERIAL P.T...J..EN . $FF
B1 ; SET .EN...T.SEC.D . $FF93 ; S. SA A
FTER .EN...~.TALK . $FFB4 ; SET TALK..
...TKSA . $FF96 ; S. SA AFTER TALK.+..
.UNLSN . $FFAE ; COMM. BUS . UN.EN.S...
UNTLK . $FFAB ; COMM. BUS . UNTALK.Y...
CHROUT . $FFD2 ; OUTPUT CHARACTER......
. $FFE1 ; TEST (.) KEY.....;...D.; ..
DIREC.RY . DEMO .....N.;...X.LDA #8
; DEVICE NUMBER.....JSR .EN ; . SE
C.DARY ADDRESS.)...LDA #$F0 ; '.'ED
WITH $F0.W...JSR SEC.D ; . INDICATE
A FILE . BE .ED.P...LDA #"$" ; "$0"
.....JSR CIOUT ; SENT AS FICAME.....
LDA #"0" ; .E CHARACTER AT A TIME.L
...JSR CIOUT...(.JSR UNLSN ; . .ENIN
G...2.LDA #8 ; DEVICE NUMBER.2.<.
JSR TALK ; . SEC.DARY ADDRESS.U.F.L
DA #$60 ; '.'ED WITH $60...P.JSR TK
SA ; . INDICATE N.MAL I.O OPERATI..
..Z.LDA #0 ; SET STATUS W.D.E.D.S
TA STATUS ; . ZERO...N.JSR ACPTR
; . TWO DUMMIES...X.JSR ACPTR.....JSR .
; . CARRIAGE ......;.$...MAIN . ..F.
.JSR ACPTR ; . TWO DUMMIES.T...JSR A
CPTR....JSR ACPTR ; LINE NUMBER (LO
W.HIGH).....TAY...H.JSR ACPTR...R.LDX ST
ATUS ; CHECK STATUS.V...BNE FINI
; EXIT . ERR......;.....JSR FIXFLT ;
PUT LINE NUMBER IN FPACC#1.-...LDY #1
; . LINE NUMBER.\...JSR SHWFLT
; (WHICH IS THE BLOCK COUNT).Z...LDA #32
; . A SPACE.....JSR CHROUT...".;.
..,.LOOP . ....6.JSR ACPTR ; . CHARA
CTER.D.@.PHP...J.JSR CHROUT ; . IT...
T.PLP...^.BNE LOOP ; . N..ZERO . .I
NUE...H.;.-.R.JSR . ; . CARRIAGE ..J.
|.JSR . ; CHECK . KEY.W...BNE MAIN.
]...;.J...FINI . ......JSR UNTLK ; U
N.TALK.....LDA #8.....JSR .EN.F.B.LDA #$
E0 ; THE SEC.DARY ADDRESS...L.JSR S
EC.D ; IS '.'ED WITH $E0...V.JSR UNLS
N ; . INDICATE A FILE . BE D.7...RT
S ; . . BASIC...
> CLICK IMAGE PREVIEW FOR FULL MODAL