SEWALL@UCONNVM.BITNET (05/26/87)
Clearly, something went screwy with my previous attempt to send this
file. A whole bunch of lines in the encrypted program got duplicated
(which screws up the whole thing). It seems every line starting with
a "." (period) got duplicated (with the period removed). Perhaps
somebody can explain that to me???? Anyhoo, this time I'm trying putting
a couple of blanks before the period, which won't bother the EXEC
processor, but will I hope fix the duplicating line problem (if not,
I'll try something else)
All right, already. I believe Chris's question was how to get the DOS
3.3 CATALOG into memory (I sent that out earlier). Judging from the
comments, I gather there's some interest in getting the ProDOS directory
into memory too. The toughie is getting the volume directory.
In the interest of completeness, and also to provide a handy catalog
utility, what follows is a ProDOS Applesoft program that reads and
displays or prints the volume directory and all the sub-directories
on a ProDOS volume. You can cannabilize this for other purposes
naturally.
Note: I encrypted the program with the EXECUTIONER because several of
the lines run longer than 80 columns (some of the Applesoft that's been
sent on the net lately had wrapped lines which didn't EXEC well). Trust
me; if you EXEC this file under BASIC.SYSTEM, you'll get a BAS program
named FULLCAT.
-------------------------Cut Here-------------------------------
CALL-151
E00:38 A5 FF D0 32 D8 20 8E FD AD 30 BF 8D 6A 0E 20 00 BF C7 6D 0E 0D 80 02
E18:D0 1D 20 00 BF C5 69 0E B0 15 AD 81 02 29 0F AA E8 8E 80 02 A9 2F 8D 81
E30:02 20 00 BF C6 6D 0E A2 08 B0 0E 20 00 BF C3 70 0E B0 06 A2 26 20 53 0E
E48:AA 20 53 0E 4C D0 03 20 ED FD E8 BD 59 0E D0 F7 60 A0 F3 E1 F6 E5 E4 8D
E60:00 C5 F2 F2 EF F2 87 8D 00 02 00 81 02 01 80 02 07 7E 0E E3 FC 01 08 00
E78:00 00 2A AD 06 00 07 C6 D5 CC CC C3 C1 D4 00
F00:D8 A0 00 84 FF 84 E0 A9 10 85 E1 20 67 FD E0 05 90 3B A2 00 20 3A 0F 85
F18:E2 A0 FF C8 20 3A 0F 06 E2 6A 06 E2 6A 91 E0 45 FF 85 FF C0 02 90 EC 98
F30:65 E0 85 E0 90 DE E6 E1 B0 DA E8 BD 00 02 0A C9 40 F0 F7 E9 7E 90 02 0A
F48:60 68 68 90 BE 4C 69 FF
F00G
.?nGIE?EC_Mcg?qok?qohIkCB?gqoAhkO_Bcg?qohGkHg?qohGkKs?cgp?ooh??zG
.AS?CNcOf?gshG?QGA]?VkCOrAxyLkEOp?ooyjLCO?qo?_uGgF?la?gsx?oswKhPp
.BqwC?voyQq_HaE_MgNS_a@_HgHD?OhGqF?la?gsx?pwrKhNpBqwCjVCO?vxyOjwo
.Cyq_iHHDI_G@_R_wAolBiNKTgLM_gNM?oGG{C?jw@oyqI_HHaD_Gg@R_?soliBNK
.iTLMI_NMK?tG`E?CIaGnav_vihcdI_hrI_xngtq_irbqiddm?_~_AazVaCyVmCOV
.kCHp??hH`O?CIaDmisdqI_o`isgmi`ldI_neI_chiqdbisnqax_san_bi`s`iknf
.?y_aIzOE?c?zGHY?[lbggOEcKhOooCpqAo?`GHc?[liggOEcKkbggOEc?hkpNhPN
.?anayCOEMcOObEcG?anaG?iH`m?j?proC?SH`w?y_CczIaOQiDEH_WayYCOEAcyO
.bEcOqggO_EckqbgO_EchoHphK?\HPA?CIa@kiog`iadsihb`ak_kihrsihmfA_gZ
.gX\_gnq__Mh_?~_aIz@MAcy@kKOpEyl@bMcOGaMayM@MKcOabmaCj@KO?o?ACIE?
.QCaKihrsI_snI_oqihmsgdq~A_gXInZM_\h_Aaz@_Mc?@xIGE?l@bMcOGaXayM@M
.KcOabxaCjOEO@pyy_CczIaOQ?bpaFyyf?gxh?zawGoMaIyVCoOvxG?AIQI?KkUOo
.G?KIPK?o?pooAo?rCIU?PyyyqggK?tckgVChEylOlECyofgp?qhyWyCcAzaO_Qbo
.Aa?xCI_?P??UKIgBjKUOjKUGApyCaBgKbUhOAoyHIgKUKhOoC?_IpqBo?qoo@o?v
.KIsBYl@KyLCBIgKUKhNosCot?oooK?FIq{BO_BcggKUhyOOEBc?q?IEC[lhggOBc
.IgKU?hkpNhPN?anayCOBAcgKbUhOgOBcIgKUKhGa?na??DJOEClCaBgKbUhOKoCp
.?ppoG?UJ@YC@kDOpo@ptFyliIgCMAcgKaUkHIgKU?hhk_DkpKhOaB_aCgCMcIgKU
.GkHggKUhNhOiIgCMAcgKaUkHIgKU?hhkApkDoHphJyDO?pooG?\J@cCAaD?z?JmC
.gOEcyOOBAcgKbUhGgCMcIgKUGkHggKUh@h?D?JwCOopo?oo?QPJAICKUyOKUoHp?
.QuJKGCHggKUhwOHggKUhoGpyWlHggKUhyPCBIgKUKhCp?otoC?{J`UCpK?WJpOFy
._CczIaNOgDM_AazO_EczAakSiCHQBa?_KJYFkHOoK?gJpcFyCyy?r{JmEFyC?cza
.iQD@_C_aIzOE?c?PKKwFWCKp@cyqI_QDg@C_iM@LaD?E?KAGQyaCghq|?_azgOEc
.CyyyQq_RiGNVI_ETgKK_iO@SiGM@gLD_gNE_iCHQiDBSiNQXG?gK@KGC_KqcFyyg
.GgKqAckV_ChyOq__iQD@aC_SiHSK`D?N?KUGWCKr@cyyqggK?rckgVChCyq_I_QD
.g@C_iAK@gMJ_iKHM`D?f?K_GWCKsAcgH@hyqiQD@aC_EiHKD`R?{?KiGWlKsAcgH
.KhOaLaCj?qpqBo?z?KnGYlCBIgKUMhNLlCCyIaSnan_li`mxI_chiqdbisnqihdr
.I_hmI_sgghr_ichqidbsinqx@ayj?qppAo?B?LsG[lig_KscGgHh?kpw?krhqOaC
.gHQayCCMAcgKaUkCaBgK_Uhh{Oig_KscGgHh?kqk?pthIyCBIgKUMhOCaBgKbUhG
.Ap?|?L}GmHOHoGpyZlHNjLECQyaSgnn_il`max_eihkdar_ham_sighrI_chiqdb
.isnq_xayOjqp?ro?QFL?CGjq?owoC?bL`GGC_KtcCyq_iQD@aC_AiKNBaJ_BiNTM
.`S?wGLQGWyCcAzaBiKNR_D_aIzOEBc?AGL[GmHOHoHp?qaLeEGl@mKLHrNoCOoso
.?ooyYqRNgQS_iQDBiNQCbR?|GLoGZ@IOMo@HFyygGgKsAcgIAhkV_ChyOA?BGMyG
.Op?YCMwJQq_EiD@SiTQDaR_SaN_@gCCyG??MpAJq?__pAm_@iKOGi@ADiSHBg@K_
.iKHRiSHMaF_NiOSHgNM?RDMKCJq_?_qmI_RDi@QBaG_EgNQ_a@_EiHKDiM@L_Dk_
.iRGNiVHMaF_@gKK_iL@SiBGDaR_HaM_BiTQQiDMSI_SQgDD?RlMUCJq_?_rmI_@A
.iHKHgSX_gSN_iRDSI_BTiQQDgMS_iOQDiEHWK?eMp_Jq?__sAm_@iAHKiHSXI_SN
.I_ROiDBHgEX_iBTQiQDMaS_Oi@SGiM@LaD_SaN_Bi@S@iKNFK?wMQ_NLwOHyWyCc
.AzaEgQDa??KNQiNL{ORgkLJq@hylkLOosCp?@YNsJNIOAoyJzOHH_L?aCN}NmGOI
.G?ONqGNUzOGG`LylqigK?scg_Ghk?qkpBthPqigK?scg_Uhk?qkpBthC?sovAo?u
.KNQNbScO_KscGgGhGyKsAcgGMhOK?scg_Uhy_KscGgUhwOScC?JNq[NGzOGH`Lyl
.nGNOKoCs?osoC?^NqeNIzOIG@pylmINJoCso?po?RhNoCNjs?oroK?ANQGRLyOCB
.IgKUKhHpEyyC?czaiEQDBa?UCNQRnLORJgLJ?qhyZlLOLoCpK?lNQ[RIoOoykJOg
.gCBggKUhoHphwHL?ptNeJRGO_I?XCOoRmUOGwGLyYlCMAcgKaUkGMhPC_McggKUk
.bUhC?tovAo?JCOyRbScOgCMcIgKUGkGhIyCMAcgKaUkGMhOC_McggKUk_UhygCMc
.IgKUGkUhwOScG?_OqCRGzOGH`LylnGNOKoCt?osoG?sOqMRIzOIG@pylmINJoCto
.?po?b}OWCRjt?oro????od??
BSAVE FULLCAT,A$1000,L$087F
E00G