Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:20 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F9\fatdir.asmOutput Filename : obj\F9\fatdir.objListing Has Been Relocated2603 .LIST on26042605 F8FFB1 .INCLUDE inc\dirp00.inc2606 ;----------------------------------------------------------2607 ; DIRP00.ASM2608 ; PROGETTO: B16012609 ;2610 ; Variabili in Direct Page $002611 ;----------------------------------------------------------26122613 ; sezione COMMON -- questo permette di includere il file in piu' file26142615 .LIST on26162617 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026182619 000000 .ABSOLUTE ;; inizia sempre da $002620 000000 .ORG 0x002621 0000002622 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2623 000002 0000 .DW2624 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2625 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2626 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2627 ; <6>: flag warm reset2628 00000D 00 RTCFlag .DB26292630 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12631 ; <7>: device ready2632 ; <6>: compact flash device (C.F.)2633 ; <5>: device identification ok2634 ; <4>: MBR loaded2635 ; <3>: valid signature in MBR2636 ; <2>: first partition found&active2637 ; <1>:2638 ; <0>: valid partition flag26392640 ; <7>: device ready2641 ; <6>: USB device2642 ; <5>: compact flash device (C.F.)2643 ; <4>: device identification ok2644 ; <3>: MBR loaded2645 ; <2>: first partition found&active2646 ; <1>: always 12647 ; <0>: valid partition flag2648 000010Tue Jul 17 11:00:20 2018 Page 226492650 00000E atadev .EQU diskstat26512652 000010 usbdev .DS 2 ; flag flash disk on usb bus #02653 ; <7>: device plugged and ready2654 ; <6>: always 12655 ; <5>: device identification ok2656 ; <4>: MBR loaded2657 ; <3>: valid signature in MBR2658 ; <2>: first partition found&active2659 ; <1>:2660 ; <0>: valid partition flag26612662 000012 diskmax .DS 16 ; disk max. sector's2663 000012 atasec .EQU diskmax2664 00001A usbsec .EQU diskmax+8266526662667 000022 atambr .DS 8 ; data for first partition found in mbr2668 ; first 3 bytes for start sector of partition2669 ; last byte for partition type2670 00002A usbmbr .DS 826712672 000032 ataprt .DS 8 ; total sec's of first partition2673 00003A usbprt .DS 8 ; total sec's of first partition267426752676 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2677 ; <7>: module on2678 ; <6>: ch376 flag2679 ; <5:0>: chip version26802681 000043 00 usb0st .DB ; usb0 status2682 ; <7>: usb0 host mode ok2683 ; <6>: flash disk attached flag2684 ; <5>: usb device attached26852686 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2687 ; <7>: disk format established in bit 0&12688 ; <6>: double step seek done2689 ; <5>: trust format bit's (set after ok r/w)2690 ; <4>: write protect bit (if disk in drive)2691 ; <3>: don't care2692 ; <2>: don't care2693 ; <1>: HD disk if set else DD disk2694 ; <0>: CBM format if set else IBM format26952696 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2697 ; <7>: disk format established in bit 0&12698 ; <6>: change disk simulation (after format)2699 ; <5>: don't care2700 ; <4>: write protect bit (under sw control)2701 ; <3>: don't care2702 ; <2>: don't care2703 ; <1>: HD disk if set else DD disk2704 ; <0>: CBM format if set else IBM format2705Tue Jul 17 11:00:20 2018 Page 32706 000046 00 fdcctl .DB ; fdc controller status2707 ; <7>: drive is attached2708 ; <6>: drive need recalibration (restore)2709 ; <5>: FDC controller ok2710 ; <4>: motor on2711 ; <3>: dma is active2712 ; <2>: dma chip ok (post routine)2713 ; <1>: clock rate (1=HD,0=DD)2714 ; <0>: disk ready27152716 000047 00 fdctrk .DB ; fd: current seek track2717 000048 00 fdcerr .DB ; fd: last error code2718 000049 00 ataerr .DB ; ata: last error code2719 00004A 00 ataxer .DB ; ata: last extended error code27202721 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27222723 00004C 0000 MemTop .DW ; top memoria RAM2724 00004E 00 .DB ; banco top mem27252726 00004F 00 DflTxtIn .DB ; device di default text input2727 000050 00 DflTxtOut .DB ; device di default text output27282729 000051 COPPtr LP ; long pointer for COP decoding2730 000054 00 COPIdx .DB ; COP signature/index27312732 000055 00 BiosEnt .DB ; flag accesso a bios setup27332734 ; variabili utilizzate da ACIA2735 000056 spwrk .DS $3027362737 ; bios mem2738 000086 0000 nsize .DW ; dimensione blocco da allocare2739 ;bsize .DW ; dimensione vera blocco free2740 000088 0000 splitsz .DW ; dimensione blocco splittato2741 00008A 0000 bfree .DW ; puntatore blocco free2742 00008C 0000 hdrptr .DW ; puntatore header heap27432744 00008E 0000 pbrklv .DW ; current break level of current process2745 000090 0000 pbrkmin .DW ; minimum breal level of current process2746 000092 0000 pbrkmax .DW ; maximum breal level of current process2747 0000942748 ; bios temp. work area2749 000094 bwrktmp .DS $2827502751 0000BC 00 coptmp .DB ; temp. used while cop27522753 0000BD 00 tstser .DB ; check ser/usb test board post2754 ; <7>: VIA2 ok2755 ; <6>: PICRAM ok2756 ; <1>: UART 16C550 ok2757 ; <0>: R65C51 ok275827592760 ;crc16 .DW27612762 0000BD .RELATIVETue Jul 17 11:00:20 2018 Page 427632764 .ENDS27652766 [01] .IFDEF _ACIA_INC_2767 .INCLUDE INC\SP.INC2768 [00] .ENDIF27692794 .LIST on27952796 ;---------------------------------------------------------------------------27972798 000020 HPLMAX .EQU 32 ; Max. subdirectory level27992800 000200 BCBCNT .EQU $200 ; BCB's struct's count #2801 000C00 BCBXBNK .EQU $0C00 ; starting BCB x-mem buffer #2802 000040 DMACNT .EQU 6428032804 0000E0 FAT0X .EQU $E0 ; x-mem bank for fat table of ata #02805 0000F0 FAT1X .EQU $F0 ; x-mem bank for fat table of ata #128062807 F8FFB1 .INCLUDE INC\LDT.INC2808 ; LDT.INC28092810 [01] .IFNDEF __LDT_INC__2811 000001 __LDT_INC__ .SET 128122813 .LIST on2814 ;---------------------------------------------------------------------------2815 ; Logical Drive Table (LDT) -- page 0 offset's2816 ;---------------------------------------------------------------------------28172818 F8FFB1 STRUCT LDT2819 _LDT .SECTION page0,common,ref_only,offset 0 ;LDT Struct2820 ;.ABSOLUTE2821 ;.ORG 02822 .MNLIST2823 000000 00 ldt_fg1 .DB ; logical volume flag's2824 ; <7>: device ready (fdc drive or ata device)2825 ; <6>: if=1->HD/CF else->FD2826 ; <1:0>: phisycal device number28272828 000001 00 ldt_fg2 .DB ; <7>: valid volume (fat volume or cbm disk)2829 ; <6>: if=1->FAT else->CBM (FD only)2830 ; <5>: disk format checked2831 ; <1:0>: disk format (fdc only)28322833 000002 0000 ldt_root .DW ; lba of root dir2834 000004 0000 ldt_fat1 .DW ; lba of fat1 table2835 000006 0000 ldt_fat2 .DW ; lba of fat2 table2836 000008 0000 ldt_cls .DW ; lba of first data cluster2837 00000A 0000 ldt_max .DW ; max usable cluster + 12838 00000C 0000 ldt_rent .DW ; root dir. max. entries2839 00000E 0000 ldt_cent .DW ; max. entries in dir. cluster2840 000010 0000 ldt_eoc .DW ; end of cluster chain marker2841 000012 0000 ldt_free .DW ; count of free cluster's2842 000014 0000 ldt_nxt .DW ; next free cluster2843 000016 0000 ldt_fsiz .DW ; fat table sizeTue Jul 17 11:00:20 2018 Page 528442845 000018 00 ldt_csiz .DB ; cluster size (1,2,4,8,16,32,64)2846 000019 00 ldt_cshf .DB ; cluster shift (0,1,2,3,4,5,6)2847 00001A 00 ldt_rsiz .DB ; root dir. size (sector's)2848 00001B 00 ldt_mcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F2849 00001C 0000 ldt_cdlp .DW ; current working dir list pointer2850 00001E 0000 ldt_cdcls .DW ; current working dir start cluster2851 000020 00 ldt_cdlvl .DB ; current working dir level count28522853 000021 00 ldt_ptype .DB2854 000022 0000 0000 ldt_pstart .LWORD2855 000026 0000 0000 ldt_psize .LWORD28562857 000022 ldt_fp .EQU ldt_pstart ; fat table buffer long pointer2858 000025 ldt_fbuf .EQU ldt_pstart+3 ; fat table: x-mem base bank/dma buffer28592860 000026 ldt_pbr .EQU ldt_psize ; long pointer to PBR cache buffer2861 000029 ldt_fmt .EQU ldt_psize+328622863 00002A ESTRUCT LDT2864 00002A LDTSIZE .DS 02865 ;.RELATIVE2866 .ENDS2867 .MNLIST28682869 [00] .ENDIF28702871 F8FFB12872 ;---------------------------------------------------------------------------2873 ; Hierarchical Path List (HPL) -- 16 bit offset's2874 ;---------------------------------------------------------------------------28752876 F8FFB1 LSTRUCT HPL2877 _HPL .SECTION common,ref_only,offset 0 ;HPL Struct2878 .MNLIST2879 000000 0000 hpl_cls .DW ; parent cluster2880 000002 0000 hpl_ix .DW ; entry index in parent cluster2881 000004 hpl_fcb .DS 11 ; fcb name2882 00000F 00 hpl_lst .DB ; unused2883 000010 ESTRUCT HPL2884 000010 HPLSIZE .DS 02885 ;.RELATIVE2886 .ENDS2887 .MNLIST28882889 ;---------------------------------------------------------------------------2890 ; Buffer Control Block (BCB) -- 16 bit offset's2891 ;---------------------------------------------------------------------------28922893 F8FFB1 LSTRUCT BCB2894 _BCB .SECTION common,ref_only,offset 0 ;BCB Struct2895 .MNLIST2896 000000 0000 bcb_next .DW ; next logical linked BCB2897 000002 00 bcb_drv .DB ; logical drive2898 000003 00 bcb_sec .DB ; sector offset2899 000004 0000 bcb_cls .DW ; cluster2900 000006 0000 bcb_lba .DW ; sector lba addressTue Jul 17 11:00:20 2018 Page 62901 000008 0000 bcb_lbah .DW ; lba high2902 000008 bcb_head .EQU bcb_lbah ; floppy head2903 00000A 0000 bcb_buf .DW ; x-mem buffer number2904 00000A bcb_trk .EQU bcb_buf ; floppy track(low) & sector(hi)2905 00000C 0000 bcb_ptr .DW ; buffer pointer2906 00000E 0000 bcb_xbnk .DW ; buffer pointer hi & x-mem bank2907 00000E bcb_dma .EQU bcb_xbnk ; buffer pointer hi & dma buffer2908 000010 ESTRUCT BCB2909 000010 BCBSIZE .DS 02910 ;.RELATIVE2911 .ENDS2912 .MNLIST29132914 ;---------------------------------------------------------------------------2915 ; hash Control Block (BCB) -- 16 bit offset's2916 ;---------------------------------------------------------------------------29172918 F8FFB1 LSTRUCT HCB2919 _HCB .SECTION common,ref_only,offset 0 ;HCB Struct2920 .MNLIST2921 000000 0000 hcb_next .DW ; pointer to next HCB2922 000002 0000 hcb_cls .DW ; cluster number2923 000004 0000 hcb_seq .DW ; sequence number + logical drive number2924 000006 0000 hcb_cnt .DW ; number of hashed entries2925 000008 hcb_data .DS 0 ; hash buffer data2926 000008 ESTRUCT HCB2927 000008 HCBSIZE .DS 02928 ;.RELATIVE2929 .ENDS2930 .MNLIST29312932 ;---------------------------------------------------------------------------2933 ; TOS Working Segment2934 ;---------------------------------------------------------------------------29352936 000001 WKB .EQU .SEG.TOSSEG ; TOS working bank29372938 010000 TS .SET TOSSEG2939 01FFFF TE .SET TOSSEG + $FFFF2940 018C00 TO0 .SET $018C002941 019E00 TO1 .SET TOSWKM29422943 .comment @2944 _TOS0: .SECTION ref_only, common, offset TO0, range TS TE ;FAT Struct's2945 _TOS0_START .DS 029462947 _pbr0 .DS 5122948 _pbr1 .DS 5122949 _pbr2 .DS 5122950 _pbr3 .DS 51229512952 _TOS0_END .DS 02953 TOS0SIZ .EQU (_TOS0_END - _TOS0_START)2954 .ENDS2955 @29562957 _TOS1: .SECTION ref_only, common, offset TO1, range TS TE ;FAT Struct'sTue Jul 17 11:00:20 2018 Page 72958 019E00 _TOS1_START .DS 029592960 ; current working directory HPL2961 019E00 cwdl0 .DS (HPLSIZE*HPLMAX)2962 01A000 cwdl1 .DS (HPLSIZE*HPLMAX)2963 01A200 cwdl2 .DS (HPLSIZE*HPLMAX)2964 01A400 cwdl3 .DS (HPLSIZE*HPLMAX)29652966 ; current building path HPL2967 01A600 cbpl .DS (HPLSIZE*HPLMAX)2968 01A600 HPL_CLS .EQU hpl_cls+cbpl2969 01A602 HPL_IX .EQU hpl_ix+cbpl2970 01A604 HPL_FCB .EQU hpl_fcb+cbpl29712972 ; BCB list's2973 01A800 bcbstart .DS (BCBCNT*BCBSIZE)2974 01C800 bcbend .DS 02975 01C800 dmastart .DS (DMACNT*BCBSIZE)2976 01CC00 dmaend .DS 02977 01CC00 dma0s .DS (17*BCBSIZE)2978 01CD10 dma1s .DS (17*BCBSIZE)29792980 01CE20 _TOS1_END .DS 02981 003020 TOS1SIZ .EQU (_TOS1_END - _TOS1_START)2982 .ENDS29832984 ;---------------------------------------------------------------------------2985 ; HCB Segment2986 ;---------------------------------------------------------------------------29872988 000004 HCBBNK .EQU .SEG.HCBSEG2989 040000 HS .SET HCBSEG2990 04FFFF HE .SET HCBSEG + $FFFF2991 040000 HO .SET HCBSEG29922993 _HCBS: .SECTION ref_only, common, offset HO, range HS HE ;HCB's List2994 040000 hcb_bnk .DS 82995 040008 hcbstart .DS 02996 .ENDS29972998 ;.comment @2999 ;---------------------------------------------------------------------------3000 ; direct page for LDT var's3001 ;---------------------------------------------------------------------------30023003 ; P0OS3004 DPOS: .SECTION page0, common, ref_only, offset 0 ;OS Main D.P.30053006 ;sysbuf .DS 2 ; floppy track 0 cache buffer3007 000000 00 defhsec .DB ; default hidden sector's in fdisk3008 000001 00 .DB3009 000002 0000 cmdstk .DW ; saved stack on TOS command's3010 000004 bpath .DS 8030113012 000054 bpath1 .DS 03013 .ENDS3014 ;@Tue Jul 17 11:00:20 2018 Page 830153016 ; P0LDT3017 DPLDT: .SECTION page0, common, ref_only, offset 0 ;LDT D.P.30183019 000000 ldt0 .DS LDTSIZE3020 00002A ldt1 .DS LDTSIZE3021 000054 ldt2 .DS LDTSIZE3022 00007E ldt3 .DS LDTSIZE3023 0000A8 ldt4 .DS LDTSIZE30243025 0000D2 ldtp .DS 6 ; pointer to LDT's in DPLDT page30263027 0000D8 sysbuf .DS 4 ; floppy track 0 cache buffer30283029 .ENDS30303031 ;---------------------------------------------------------------------------3032 ; direct page for FAT var's3033 ;---------------------------------------------------------------------------30343035 ; P0FAT3036 DPFAT: .SECTION page0, common, ref_only, offset 0 ;FAT D.P.30373038 000000 0000 ostos .DW ; saved top of stack3039 000002 00 ioerr .DB ; i/o error3040 000003 00 ioerr2 .DB ; extended i/o error3041 000004 0000 hcbroot .DW ; HCB struct's list3042 000006 0000 hcblst .DW ; the last one HCB3043 000008 00 hsiz .DB ; how many sector's an HCB can hold3044 000009 00 hlog2 .DB ; shift count related to hsiz3045 00000A 0000 bcbroot .DW ; BCB buffer's list3046 00000C 0000 bcblst .DW ; the last one BCB3047 00000E 0000 dmaroot .DW ; dma BCB buffer's list3048 000010 0000 dmalst .DW ; the last one dma BCB3049 000012 0000 dmabcb .DW ; BCB list for floppy root, cluster#2,#3꠪ 000014 00 fspt .DB ; sector per track (floppy)3051 000015 00 pdrive .DB ; phisycal drive number3052 000016 00 bplvl .DB ; subdir level while build path3053 000017 00 defdrv .DB ; default drive30543055 ; the first block of ldt_ var's is copied from the LDT struct3056 000018 00 ldtfg1 .DB ; logical volume flag's3057 ; <7>: device ready (fdc drive or ata device)3058 ; <6>: if=1->HD/CF else->FD3059 ; <0>: phisycal device number30603061 000019 00 ldtfg2 .DB ; <7>: valid volume (fat volume or cbm disk)3062 ; <6>: if=1->FAT else->CBM (FD only)3063 ; <5>: disk format checked3064 ; <1:0>: disk format (fdc only)30653066 00001A ldtfp LP ; fat table buffer long pointer3067 00001D 00 ldtfbuf .DB ; fat table: x-mem base bank/dma buffer30683069 00001E 0000 ldtroot .DW ; lba of root dir3070 000020 0000 ldtfat1 .DW ; lba of fat1 table3071 000022 0000 ldtfat2 .DW ; lba of fat2 tableTue Jul 17 11:00:20 2018 Page 93072 000024 0000 ldtcls .DW ; lba of first data cluster3073 000026 0000 ldtmax .DW ; max usable cluster + 13074 000028 00 ldtcsiz .DB ; cluster size (1,2,4,8,16,32,64)3075 000029 00 ldtcshf .DB ; cluster shift (0,1,2,3,4,5,6)3076 00002A 00 ldtfsiz .DB ; fat table size (if 0 -> 256)3077 00002B 00 ldtrsiz .DB ; root dir. size (sector's)3078 00002C 0000 ldtrent .DW ; root dir. max. entries3079 00002E 0000 ldtcent .DW ; max. entries in dir. cluster3080 000030 0000 ldteoc .DW ; end of cluster chain marker3081 000032 00 ldtmcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F3082 000033 00 ldtfmt .DB ; floppy disk format (0,1,2, FF if ata device)3083 000034 0000 ldtcdlp .DW ; current working dir list pointer3084 000036 0000 ldtcdcls .DW ; current working dir start cluster3085 000038 0000 ldtfree .DW ; count of free cluster's3086 00003A 0000 ldtnxt .DW ; next free cluster3087 00003C 00 ldtcdlvl .DB ; current working dir level count3088 00003D ldtpbr LP ; long pointer to PBR cache buffer30893090 000040 0000 chdcls .DW ; last accessed chained dir. cluster3091 000042 0000 clsofs .DW ; cluster's offset from start of chain30923093 ; not change order of the 2 following var's: will be accessed as 16 bit var3094 000044 00 entofs .DB ; entry offset from start of sector3095 000045 00 secofs .DB ; sector's offset from start of cluster30963097 000046 0000 dircls .DW ; directory cluster3098 000048 0000 dcnt .DW ; directory entry counter3099 00004A 0000 lba .DW ; lba sector address3100 00004C 0000 lbah .DW ; lba is 24 bit's only3101 00004E 0000 xbuf .DW ; x-mem buffer transfer number31023103 00004C fhead .EQU lbah ; fd head3104 00004E ftrack .EQU xbuf ; fd track3105 00004F fsec .EQU xbuf+1 ; fd sector31063107 000050 00 dfcbtyp .DB ; FCB type to search3108 000051 00 dfcbatt .DB ; attribute of found FCB31093110 000052 00 curdrv .DB ; current logical drive3111 000053 fcbs .DS 11 ; file control block name31123113 ;dcmask .DW ; mask to start of cluster3114 ; FFF0, FFE0, FFC0, FF80, FF00, FE0031153116 00005E 0000 fcbp .DW ; FCB buffer long pointer3117 000060 0000 .DW ; low=fcbp+2, high=x-mem bank or dma buffer3118 000061 dmabuf .EQU fcbp+3 ; dma buffer #3119 000061 xmbank .EQU fcbp+3 ; x-mem bank #31203121 ; temp area3122 000062 00 hcbseq .DB3123 000063 00 hcbdrv .DB3124 000064 0000 bcbcls .DW3125 000066 00 bcbdrv .DB3126 000067 00 bcbsec .DB31273128 000068 0000 thash .DWTue Jul 17 11:00:20 2018 Page 103129 000068 hcbrec .EQU thash3130 000068 wtmp .EQU thash31313132 00006A 0000 hlast .DW3133 00006C 0000 hcbcls .DW3134 00006E 0000 hcbx .DW3135 000070 0000 hcby .DW3136 00006A tmpp .EQU hlast ; temp. long pointer3137 00006E tmpx .EQU hcbx3138 00006F wild .EQU hcbx+13139 000070 fsiz .EQU hcby3140 000071 fptr .EQU hcby+13141 00006E ldrv .EQU hcbx3142 00006F tmpldt .EQU hcbx+131433144 000072 0000 fhash .DW3145 000074 0000 fcbofs .DW3146 000076 00 bcbload .DB3147 000077 00 xstart .DB3148 000078 00 xend .DB3149 000079 00 seccnt .DB3150 00007A 00 maxseq .DB3151 00007B 00 dsiz .DB31523153 00007C 00 haswld .DB3154 00007D 00 strix .DB3155 00007E pathp LP ; long pointer to path string31563157 ; TEMP3158 000081 0000 quot .DW3159 000083 0000 dvsor .DW3160 000085 0000 troot .DW3161 000087 0000 tlst .DW3162 000089 0000 bdmask .DW3163 00008B 0000 bcmask .DW31643165 00008D 00 hcbuse .DB31663167 .ENDS31683172 .LIST on31733174 ;---------------------------------------------------------------------------3175 ; code segment -- bank $F93176 ;---------------------------------------------------------------------------31773178 .CODEF93179 .EXTERN oserror, getldt3180 .EXTERN mxdrv, fndhcb, fndbuf, cls2lba ; utils.asm3181 F91CE93182 .PUBLIC prslbl31833184 .LONGA off3185 .LONGI off31863187 ;---------------------------------------------------------------------------3188 ; path parse & buildTue Jul 17 11:00:20 2018 Page 113189 ;---------------------------------------------------------------------------31903191 ; pathdrv, pathcnt & pathnxt functions3192 ; run down the path and parse final name into fcbs3193 ; set directory cluster to last but one path name3194 ;3195 ; entry: pathp = long pointer to path string3196 ;3197 ; exit: dircls = start cluster of the last but one path name3198 ; if CF=0 (no error)3199 ;3200 ; if any error, CF=1 and A=error code3201 ; error code: ED_FILE (invalid filename/file not found)3202 ; ED_PATH (path not found)3203 ; ED_ACCESS (access denied)3204 ; ED_FORMAT (invalid format)3205 ; ED_DRIVE (invalid drive)3206 ; ED_NOTRDY (drive not ready)3207 ; use: all3208 ;32093210 ;-------3211 setpchk: ; special entry for directory handler function's3212 ;-------3213 F91CE9 20 F6 1C jsr setpath ; parse path string & build path3214 F91CEC 20 69 20 jsr nodev ; devices not allowed3215 F91CEF 20 74 20 jsr nodot ; no subdirs entries3216 F91CF2 20 7F 20 jsr nowild ; wild cards not allowed3217 F91CF5 60 rts32183219 ;-------3220 F91CF6 setpath:3221 ;-------3222 F91CF6 20 FE 1C jsr pathdrv3223 F91CF9 90 0A bcc phx3224 F91CFB 4C 12 24 jmp oserror32253226 ;-------3227 pathdrv: ; get drive number from path or use default drive3228 ;-------3229 F91CFE 20 3E 20 jsr getpdrv ; return drive number in A3230 F91D01 90 03 bcc pathcnt3231 F91D03 A9 0F lda #ED_DRIVE ; invalid drive error3232 F91D05 60 phx: rts3233 F91D063234 ;-------3235 pathcnt: ; use drive in A3236 ;-------3237 F91D06 20 23 24 jsr mxdrv ; select drive in A3238 F91D09 A4 7D ldy strix ; path string index3239 F91D0B B7 7E lda [pathp],y ; get first character3240 F91D0D C8 iny3241 F91D0E 84 7D sty strix3242 F91D10 20 7B 1F jsr chkslh ; if '\' or '/' then start at root...3243 F91D13 D0 16 bne ?20 ; ...else select current working directory3244 F91D15 20 92 1F jsr fakefcb ; fake a '.' entry for the root3245 F91D18 86 46 stx dircls ; start at fake cluster 0Tue Jul 17 11:00:20 2018 Page 123246 F91D1A 86 47 stx dircls+13247 F91D1C B7 7E lda [pathp],y ; get next character3248 F91D1E F0 09 beq ?10 ; if just a '\' or '/' then stop now3249 F91D20 20 7B 1F jsr chkslh ; detected '//' or '\\' ?3250 F91D23 D0 0C bne pathnxt ; no, so start processing from root dir.3251 F91D25 A9 05 lda #ED_ACCESS ; report 'access denied' error3252 F91D27 38 sec3253 F91D28 60 rts3254 F91D29 18 ?10: clc ; no error3255 F91D2A 60 rts3256 F91D2B 88 ?20: dey ; forget about char we looked at3257 F91D2C 84 7D sty strix3258 F91D2E 20 A0 1F jsr mvtobp ; start processing from cur. dir.32593260 ;-------3261 pathnxt: ; parse&build path3262 ;-------3263 F91D31 A4 7D ldy strix3264 F91D33 B7 7E ?10: lda [pathp],y ; can't have trailing '/' or '\'3265 F91D35 F0 27 beq ?15 ; error3266 F91D37 20 B2 1D jsr prspath ; parse path & set up fcb3267 F91D3A B0 22 bcs ?15 ; error3268 F91D3C AA tax ; A=delimiter3269 F91D3D F0 23 beq ?20 ; we are at the end3270 F91D3F ACC163271 F91D3F C2 20 rep #PMFLAG3272 .LONGA on3273 .MNLIST3274 F91D41 A5 53 lda fcbs3275 F91D43 C9 2E 20 cmp #' .' ; if chdir(".")...3276 F91D46 ACC083277 F91D46 E2 20 sep #PMFLAG3278 .LONGA off3279 .MNLIST3280 F91D48 F0 E9 beq ?10 ; ...stay where we are3281 F91D4A A5 7C lda haswld ; no wilds cards in path's3282 F91D4C D0 10 bne ?15 ; skip if wild cards found3283 F91D4E 20 D2 20 jsr fndfcbf ; locate the directory entry3284 F91D51 B0 0B bcs ?15 ; missing directory in path: path not found3285 F91D53 A5 51 lda dfcbatt ; test entry attribute3286 F91D55 89 10 bit #DA_DIR3287 F91D57 F0 05 beq ?15 ; error: not a directory3288 F91D59 20 D2 1E jsr setdir ; set dir. cluster3289 F91D5C 90 D5 bcc ?10 ; next path name3290 F91D5E A9 03 ?15: lda #ED_PATH ; 'path not found' error3291 F91D60 38 sec3292 F91D61 60 rts3293 F91D62 A5 53 ?20: lda fcbs ; is it '.' or '..' ?3294 F91D64 C9 2E cmp #'.' ; if so get its full name3295 F91D66 D0 3F bne ?35 ; exit, no error3296 F91D68 ACC163297 F91D68 C2 20 rep #PMFLAG3298 .LONGA on3299 .MNLIST3300 F91D6A A5 46 lda dircls ; we are at root?3301 F91D6C F0 37 beq ?30 ; yes, exit, no error3302 F91D6E A4 16 ldy bplvlTue Jul 17 11:00:20 2018 Page 133303 F91D70 F0 33 beq ?30 ; no error3304 F91D72 88 dey ; go up one level3305 F91D73 A5 53 lda fcbs3306 F91D75 C9 2E 2E cmp #'..' ; parent?3307 F91D78 D0 03 bne ?25 ; no, stay here3308 F91D7A 88 dey ; go up two level's3309 F91D7B 30 2C bmi ?40 ; we are destined for the root3310 F91D7D 84 16 ?25: sty bplvl3311 F91D7F 8B phb ; save DBR3312 F91D80 A2 01 ldx #WKB3313 F91D82 DA phx3314 F91D83 AB plb3315 F91D84 A2 00 ldx #03316 F91D86 INDEX163317 F91D86 C2 10 rep #PXFLAG3318 .LONGI on3319 .MNLIST3320 F91D88 98 tya3321 F91D89 0A asl a ; get HPL pointer3322 F91D8A 0A asl a3323 F91D8B 0A asl a3324 F91D8C 0A asl a ; here CF=03325 ;adc #cbpl3326 F91D8D A8 tay ; HPL index access3327 F91D8E B9 00 A6 lda HPL_CLS,y3328 F91D91 85 46 sta dircls ; set up parent cluster3329 F91D93 B9 02 A6 lda HPL_IX,y3330 F91D96 85 48 sta dcnt ; set up dir. index3331 F91D98 B9 04 A6 ?28: lda HPL_FCB,y ; copy parental name3332 F91D9B 95 53 sta fcbs,x3333 F91D9D C8 iny3334 F91D9E E8 inx3335 F91D9F E0 0B 00 cpx #113336 F91DA2 90 F4 bcc ?283337 F91DA4 AB plb3338 F91DA5 ?30: CPU083339 F91DA5 E2 30 sep #(PMFLAG.OR.PXFLAG)3340 .LONGA off3341 .LONGI off3342 .MNLIST3343 F91DA7 18 ?35: clc3344 F91DA8 60 rts3345 F91DA93346 F91DA9 64 46 ?40: stz dircls ; root dir3347 F91DAB CPU083348 F91DAB E2 30 sep #(PMFLAG.OR.PXFLAG)3349 .LONGA off3350 .LONGI off3351 .MNLIST3352 F91DAD 20 92 1F jsr fakefcb3353 F91DB0 18 clc3354 F91DB1 60 rts3355 F91DB23356 ; parse path name into fcb3357 ;3358 ; entry: Y = pointer to current name in path3359 ; pathp = long pointer to pathTue Jul 17 11:00:20 2018 Page 143360 ;3361 ; exit: A = last char parsed3362 ; Y = pointer to next name in path3363 ; CF = 1 if parsing error3364 ;3365 ;-------3366 F91DB2 prspath:3367 ;-------3368 F91DB2 20 87 1F jsr clrfcb ; initialise fcb to blanks3369 F91DB5 64 7C stz haswld ; clear wild cards flag3370 F91DB7 B7 7E lda [pathp],y3371 F91DB9 C9 2E cmp #'.' ; if name start with '.'...3372 F91DBB D0 15 bne ?20 ; ...then we parse it differently3373 F91DBD 85 53 sta fcbs ; move '.' to fcb3374 F91DBF C8 iny3375 F91DC0 B7 7E lda [pathp],y3376 F91DC2 C8 iny3377 F91DC3 C9 2E cmp #'.' ; if name start with '..'...3378 F91DC5 D0 05 bne ?15 ; ...then we parse it differently3379 F91DC7 85 54 sta fcbs+1 ; move '..' to fcb3380 F91DC9 B7 7E ?10: lda [pathp],y3381 F91DCB C8 iny3382 F91DCC C9 20 ?15: cmp #' ' ; skip all subsequent blanks3383 F91DCE F0 F9 beq ?103384 F91DD0 80 2F bra ?50 ; check delimiter3385 F91DD2 20 51 1F ?20: jsr chkdlm ; filename begins with a legal char?3386 F91DD5 F0 29 beq ?40 ; no, then only allow '/' or '\'3387 F91DD7 64 6F stz wild ; yes, then parse it normally3388 F91DD9 A2 00 ldx #0 ; fcb name field ptr3389 F91DDB A9 08 lda #8 ; length of name field3390 F91DDD 20 2F 1E jsr prsone ; parse just name field3391 F91DE0 B0 4C bcs ?90 ; error3392 F91DE2 A6 6F ldx wild3393 F91DE4 85 7C sta haswld ; save name wildcard flag3394 F91DE6 C9 2E ?30: cmp #'.'3395 F91DE8 D0 17 bne ?50 ; skip if not extension3396 F91DEA 64 6F stz wild3397 F91DEC A2 08 ldx #8 ; fcb extension field ptr3398 F91DEE A9 03 lda #3 ; length of extension field3399 F91DF0 20 2F 1E jsr prsone ; parse just extension field3400 F91DF3 B0 39 bcs ?90 ; error3401 F91DF5 85 6E sta tmpx3402 F91DF7 A5 6F lda wild ; combine wild cards flag3403 F91DF9 05 7C ora haswld3404 F91DFB 85 7C sta haswld3405 F91DFD A5 6E lda tmpx3406 F91DFF 88 dey3407 F91E00 C8 ?40: iny ; point to next character3408 F91E01 AA ?50: tax ; last parsed delimiter3409 F91E02 F0 2A beq ?90 ; end of path: ok3410 F91E04 20 7B 1F jsr chkslh ; if delimiter is not '\' nor '/'...3411 F91E07 D0 25 bne ?90 ; ...error (CF=1)3412 F91E09 B7 7E ?60: lda [pathp],y ; get next character3413 F91E0B C8 iny3414 F91E0C 20 51 1F jsr chkdlm ; here we expect a normal legal character3415 F91E0F D0 1C bne ?80 ; exit if we've got one3416 F91E11 20 7B 1F jsr chkslh ; swallow '\'s at this point and leave...Tue Jul 17 11:00:20 2018 Page 153417 F91E14 F0 F3 beq ?60 ; ...other delimiters for next time3418 F91E16 C9 2E cmp #'.' ; trailing '\.' ?3419 F91E18 D0 10 bne ?75 ; no3420 F91E1A BB tyx ; remember position of '.'3421 F91E1B B7 7E ?70: lda [pathp],y ; get next character3422 F91E1D F0 0F beq ?90 ; stop at ending of string3423 F91E1F C8 iny3424 F91E20 C9 20 cmp #' ' ; now discard trailing spaces3425 F91E22 F0 F7 beq ?70 ; keep going until we lose all spaces3426 F91E24 20 7B 1F jsr chkslh ; if it's a '\' or '/' try again3427 F91E27 F0 E0 beq ?603428 F91E29 9B txy ; retract to the '.'3429 F91E2A A9 2F ?75: lda #'/' ; return '/' as the delimiter...3430 F91E2C 18 clc ; ...and exit with no problems3431 F91E2D 88 ?80: dey ; retract a byte3432 F91E2E 60 ?90: rts34333434 ; parse a single name or extension3435 ;3436 ; entry: A = field size3437 ; X = local fcb field pointer3438 ; Y = pointer to current name in path3439 ; pathp = long pointer to path3440 ;3441 ; exit: A = last char parsed3442 ; Y = pointer to next name in path3443 ; CF = 1 if parsing error3444 ;3445 ; use: A,X,Y3446 ;3447 ;------3448 F91E2F prsone:3449 ;------3450 F91E2F 85 70 sta fsiz ; char's counter3451 F91E31 86 71 stx fptr ; field start3452 F91E33 B7 7E ?10: lda [pathp],y ; get next path char3453 F91E35 C8 iny3454 F91E36 20 51 1F jsr chkdlm3455 F91E39 F0 1E beq ?20 ; if it is a delimiter then return3456 F91E3B C9 2A cmp #'*'3457 F91E3D F0 1B beq ?25 ; special case if star3458 F91E3F C9 3F cmp #'?' ; is a wildcard?3459 F91E41 D0 06 bne ?15 ; no3460 F91E43 A9 80 lda #$803461 F91E45 04 6F tsb wild ; set wildcard flag3462 F91E47 A9 3F lda #'?'3463 F91E49 95 53 ?15: sta fcbs,x ; move char to fcb field3464 F91E4B E8 inx3465 F91E4C C6 70 dec fsiz3466 F91E4E D0 E3 bne ?10 ; loop: next path char3467 F91E50 B7 7E lda [pathp],y ; get next path char3468 F91E52 C8 iny3469 F91E53 20 51 1F jsr chkdlm ; here expected a delimiter3470 F91E56 F0 01 beq ?203471 F91E58 38 sec ; error flag3472 F91E59 60 ?20: rts3473 F91E5A 24 6F ?25: bit wild ; already parsed a star?Tue Jul 17 11:00:20 2018 Page 163474 F91E5C 70 1D bvs ?38 ; yes, so error3475 F91E5E A9 C0 lda #$C03476 F91E60 04 6F tsb wild ; set wildcard+star flag3477 F91E62 E4 71 cpx fptr ; star is first char of the field?3478 F91E64 F0 17 beq ?40 ; yes3479 F91E66 A9 3F ?28: lda #'?' ; if not, fill rest of field with '?'3480 F91E68 95 53 ?30: sta fcbs,x3481 F91E6A E8 inx3482 F91E6B C6 70 dec fsiz3483 F91E6D D0 F9 bne ?303484 F91E6F B7 7E ?35: lda [pathp],y ; get next path char3485 F91E71 C8 iny3486 F91E72 20 51 1F jsr chkdlm ; here expected a delimiter...3487 F91E75 F0 E2 beq ?203488 F91E77 C9 2A cmp #'*' ; ...or just star...3489 F91E79 F0 F4 beq ?353490 F91E7B 38 ?38: sec ; ...else error3491 F91E7C 60 rts3492 F91E7D B7 7E ?40: lda [pathp],y ; get next path char3493 F91E7F C8 iny3494 F91E80 C9 2A cmp #'*' ; skips all subsequent star's3495 F91E82 F0 F9 beq ?403496 F91E84 20 51 1F jsr chkdlm ; is a delimiter?3497 F91E87 D0 03 bne ?45 ; no3498 F91E89 88 dey ; forgot last char3499 F91E8A 80 DA bra ?28 ; fill rest of field with '?'3500 F91E8C A9 2A ?45: lda #'*' ; first char of field is a star3501 F91E8E 95 53 sta fcbs,x3502 F91E90 E8 inx3503 F91E91 C6 70 dec fsiz3504 F91E93 88 dey ; forgot last char3505 F91E94 80 9D bra ?10 ; continue normal parsing35063507 ; parse a single label name (volume name)3508 ;3509 ; entry: pathp = long pointer to label name3510 ;3511 ; exit: CF = 1 if parsing error3512 ; ZF = 1 if null string3513 ;3514 ; use: A,X,Y3515 ;3516 ;------3517 F91E96 prslbl:3518 ;------3519 F91E96 20 87 1F jsr clrfcb ; set up a clean fcb3520 F91E99 A9 0B lda #113521 F91E9B 85 70 sta fsiz ; char's counter3522 F91E9D A2 00 ldx #0 ; field start3523 F91E9F 9B txy3524 F91EA0 18 clc3525 F91EA1 A7 7E lda [pathp] ; get first char3526 F91EA3 F0 2A beq ?30 ; null string3527 F91EA5 C9 20 cmp #' ' ; reject if first char is blank3528 F91EA7 F0 12 beq ?153529 F91EA9 80 02 bra ?123530 F91EAB B7 7E ?10: lda [pathp],y ; get next name charTue Jul 17 11:00:20 2018 Page 173531 F91EAD C8 ?12: iny3532 F91EAE 20 51 1F jsr chkdlm3533 F91EB1 D0 0A bne ?20 ; is not a delimiter3534 F91EB3 C9 20 cmp #' ' ; intermediate blanks are ok3535 F91EB5 F0 0E beq ?253536 F91EB7 C9 00 cmp #0 ; end of string?3537 F91EB9 F0 11 beq ?28 ; yes3538 F91EBB 38 ?15: sec ; reject delimiter3539 F91EBC 60 rts3540 F91EBD C9 2A ?20: cmp #'*'3541 F91EBF F0 FA beq ?15 ; reject wildcard3542 F91EC1 C9 3F cmp #'?'3543 F91EC3 F0 F6 beq ?153544 F91EC5 95 53 ?25: sta fcbs,x ; move char to fcb field3545 F91EC7 E8 inx3546 F91EC8 C6 70 dec fsiz3547 F91ECA D0 DF bne ?10 ; loop: next path char3548 F91ECC C2 03 ?28: rep #PZFLAG.OR.PCFLAG3549 F91ECE 60 rts ; exit with ZF=0,CF=03550 F91ECF E2 02 ?30: sep #PZFLAG ; null string: exit with ZF=1,CF=03551 F91ED1 60 rts35523553 ; go down (or up) one level in directory3554 ;3555 ; entry: fcbs = local name3556 ; fcbp = long pointer to directory entry3557 ; bplvl = current path level3558 ;3559 ; exit: dircls = cluster of selected directory3560 ; bplvl = path level3561 ; CF = 1 if failure3562 ;3563 ; use: C,X3564 ;3565 ;------3566 F91ED2 setdir:3567 ;------3568 F91ED2 84 7D sty strix ; save Y3569 F91ED4 A0 0B ldy #113570 F91ED6 B7 5E lda [fcbp],y ; entry attribute3571 F91ED8 89 10 bit #DA_DIR ; check if directory3572 F91EDA 38 sec3573 F91EDB F0 71 beq ?30 ; fail if this is a file3574 F91EDD A9 01 lda #WKB3575 F91EDF 8B phb ; save current DBR3576 F91EE0 48 pha ; set DBR bank3577 F91EE1 AB plb3578 F91EE2 ACC163579 F91EE2 C2 20 rep #PMFLAG3580 .LONGA on3581 .MNLIST3582 F91EE4 A0 1A ldy #263583 F91EE6 B7 5E lda [fcbp],y ; first cluster of directory3584 F91EE8 85 68 sta wtmp3585 F91EEA A6 16 ldx bplvl ; current path level3586 F91EEC A5 53 lda fcbs3587 F91EEE C9 2E 2E cmp #'..' ; watch out if going up a levelTue Jul 17 11:00:20 2018 Page 183588 F91EF1 F0 3C beq ?10 ; we go up one level3589 F91EF3 8A txa3590 F91EF4 E8 inx ; increment level3591 F91EF5 E0 21 cpx #HPLMAX+1 ; level overflow?3592 F91EF7 B0 52 bcs ?25 ; yes, return failure3593 F91EF9 86 16 stx bplvl3594 F91EFB A0 00 ldy #0 ; fcb name pointer3595 F91EFD CPU163596 F91EFD C2 30 rep #(PMFLAG.OR.PXFLAG)3597 .LONGA on3598 .LONGI on3599 .MNLIST3600 F91EFF 0A asl a ; mult. x 16 to get index3601 F91F00 0A asl a3602 F91F01 0A asl a3603 F91F02 0A asl a ; here always CF=03604 F91F03 69 00 A6 adc #cbpl3605 F91F06 AA tax ; point to HPL3606 F91F07 ACC083607 F91F07 E2 20 sep #PMFLAG3608 .LONGA off3609 .MNLIST3610 F91F09 9E 04 00 stz !hpl_fcb,x3611 F91F0C B7 5E ?05: lda [fcbp],y ; move fcb name3612 F91F0E 9D 04 00 sta !hpl_fcb,x3613 F91F11 E8 inx3614 F91F12 C8 iny3615 F91F13 C0 0B 00 cpy #113616 F91F16 90 F4 bcc ?053617 F91F18 9E 04 00 stz !hpl_fcb,x ; last unused byte3618 F91F1B CPU16CLC3619 F91F1B C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3620 .LONGA on3621 .LONGI on3622 .MNLIST3623 F91F1D A5 46 lda dircls ; set parent cluster3624 F91F1F 9D 00 00 sta !hpl_cls,x3625 F91F22 A5 68 lda wtmp3626 F91F24 85 46 sta dircls ; set current directory cluster3627 F91F26 A5 48 lda dcnt3628 F91F28 9D 02 00 sta !hpl_ix,x ; set index entry on parent cluster3629 F91F2B INDEX083630 F91F2B E2 10 sep #PXFLAG3631 .LONGI off3632 .MNLIST3633 F91F2D 80 1C bra ?25 ; done (CF=0)3634 F91F2F 38 ?10: sec3635 F91F30 CA dex ; decrement level3636 F91F31 30 18 bmi ?25 ; already at level 0 (root) so failure3637 F91F33 86 16 stx bplvl3638 F91F35 CPU163639 F91F35 C2 30 rep #(PMFLAG.OR.PXFLAG)3640 .LONGA on3641 .LONGI on3642 .MNLIST3643 F91F37 8A txa3644 F91F38 0A asl a ; mult. x 16 to get indexTue Jul 17 11:00:20 2018 Page 193645 F91F39 0A asl a3646 F91F3A 0A asl a3647 F91F3B 0A asl a ; here always CF=03648 F91F3C 69 00 A6 adc #cbpl3649 F91F3F AA tax ; point to HPL of current dir.3650 F91F40 A5 68 lda wtmp ; parent cluster3651 F91F42 DD 00 00 cmp !hpl_cls,x ; will match...3652 F91F45 38 sec3653 F91F46 D0 03 bne ?25 ; ...otherwise return failure3654 F91F48 85 46 sta dircls ; set cluster of selected directory3655 F91F4A 18 clc3656 F91F4B ?25: CPU083657 F91F4B E2 30 sep #(PMFLAG.OR.PXFLAG)3658 .LONGA off3659 .LONGI off3660 .MNLIST3661 F91F4D AB plb ; restore DBR3662 F91F4E A4 7D ?30: ldy strix3663 F91F50 60 rts36643665 ; check for a path name delimiter3666 ;3667 ; entry: A = path character3668 ;3669 ; exit: A = upper case path character3670 ; CF = 03671 ; ZF = 1 if character is a delimiter3672 ; ZF = 0 if character is legal in file name3673 ;3674 ; use: A3675 ;3676 ;------3677 F91F51 chkdlm:3678 ;------3679 F91F51 C9 7F cmp #$7F3680 F91F53 B0 22 bcs ?40 ; discard if ascii code > 126 (ZF=1)3681 F91F55 C9 21 cmp #' '+13682 F91F57 90 1E bcc ?40 ; discard blank & no-printable char (ZF=1)3683 F91F59 86 6E stx tmpx ; save X3684 F91F5B A2 0D ldx #DLMSTR-13685 F91F5D DF 6B 23 F9 ?10: cmp >dlmstr,x ; match A against list3686 F91F61 F0 16 beq ?50 ; ZF=13687 F91F63 CA dex3688 F91F64 10 F7 bpl ?103689 F91F66 A6 6E ldx tmpx ; restore X3690 F91F68 C9 61 cmp #'a' ; make upper case3691 F91F6A 90 06 bcc ?203692 F91F6C C9 7B cmp #'z'+13693 F91F6E B0 02 bcs ?203694 F91F70 29 DF and #$DF3695 F91F72 C2 03 ?20: rep #PZFLAG.OR.PCFLAG ; ZF=0, CF=0 (no delim char)3696 F91F74 60 rts3697 F91F75 A6 6E ?30: ldx tmpx ; restore X3698 F91F77 E2 02 ?40: sep #PZFLAG ; ZF=1 (delim char match)3699 F91F79 18 ?50: clc ; always return CF=03700 F91F7A 60 rts3701Tue Jul 17 11:00:20 2018 Page 203702 ; check for legal delimiter: '/' or '\'3703 ;3704 ; entry: A = delimiter3705 ;3706 ; exit: A = delimiter3707 ; ZF = 1, CF = 0 if legal delimiter '/' or '\'3708 ; ZF = 0, CF = 1 if not3709 ;3710 ; use: A3711 ;3712 ;------3713 F91F7B chkslh:3714 ;------3715 F91F7B C9 2F cmp #'/'3716 F91F7D F0 06 beq ?103717 F91F7F C9 5C cmp #'\'3718 F91F81 F0 02 beq ?103719 F91F83 38 sec ; error: ZF=0, CF=13720 F91F84 60 rts3721 F91F85 18 ?10: clc ; ok: ZF=1, CF=03722 F91F86 60 rts3723 F91F873724 ; sets up a clean fcb for later use3725 ;3726 ; entry: nothing3727 ;3728 ; exit: blank fcb3729 ; X = 03730 ;3731 ; use: A,X3732 ;3733 ;------3734 F91F87 clrfcb:3735 ;------3736 F91F87 A2 0A ldx #103737 F91F89 A9 20 lda #' '3738 F91F8B 95 53 ?10: sta fcbs,x3739 F91F8D CA dex3740 F91F8E 10 FB bpl ?103741 F91F90 E8 inx3742 F91F91 60 rts37433744 ; sets up a fake 'root' fcb for later use3745 ;3746 ; entry: nothing3747 ;3748 ; exit: fake '.' fcb3749 ; X = 03750 ;3751 ; use: A,X3752 ;3753 ;-------3754 F91F92 fakefcb:3755 ;-------3756 F91F92 A9 2E lda #'.' ; start name with '.'3757 F91F94 85 53 sta fcbs3758 F91F96 A2 0A ldx #10 ; fill with blanksTue Jul 17 11:00:20 2018 Page 213759 F91F98 A9 20 lda #' '3760 F91F9A 95 53 ?10: sta fcbs,x3761 F91F9C CA dex3762 F91F9D D0 FB bne ?103763 F91F9F 60 rts37643765 ; move current working dir. list to build path list3766 ;3767 ; entry: ldtcdlp = pointer to cur. dir. list3768 ; ldtcdcls = starting cluster of cur. dir.3769 ; ldtcdlvl = cur. dir. level3770 ;3771 ; exit: dircls = starting cluster of cur. dir.3772 ; bplvl = build path level3773 ;3774 ; use: C,X,Y3775 ;3776 ;------3777 F91FA0 mvtobp:3778 ;------3779 F91FA0 A6 52 ldx curdrv3780 F91FA2 BC D2 40 ldy !P0LDT+ldtp,x ; LDT pointer3781 F91FA5 ACC163782 F91FA5 C2 20 rep #PMFLAG3783 .LONGA on3784 .MNLIST3785 F91FA7 BE 20 40 ldx !P0LDT+ldt_cdlvl,y3786 F91FAA 86 16 stx bplvl3787 F91FAC AD 1E 40 lda !P0LDT+ldt_cdcls3788 F91FAF 85 46 sta dircls ; starting directory to build path3789 F91FB1 F0 13 beq ?10 ; done: ii is the root dir.3790 F91FB3 INDEX163791 F91FB3 C2 10 rep #PXFLAG3792 .LONGI on3793 .MNLIST3794 F91FB5 8A txa ; count of list struct's3795 F91FB6 0A asl a ; mult. x 16 (size of HPL struct's)3796 F91FB7 0A asl a3797 F91FB8 0A asl a3798 F91FB9 0A asl a3799 F91FBA 3A dec a ; count of bytes to move - 13800 F91FBB BE 1C 40 ldx !P0LDT+ldt_cdlp,y3801 ;;ldx ldtcdlp ; start source address3802 F91FBE A0 00 A6 ldy #cbpl ; start dest address3803 F91FC1 8B phb ; save DBR3804 F91FC2 54 01 01 mvn #WKB,#WKB ; move3805 F91FC5 AB plb3806 F91FC6 ?10: CPU083807 F91FC6 E2 30 sep #(PMFLAG.OR.PXFLAG)3808 .LONGA off3809 .LONGI off3810 .MNLIST3811 F91FC8 60 rts38123813 F91FC9 mvpath:3814 F91FC9 ACC163815 F91FC9 C2 20 rep #PMFLAGTue Jul 17 11:00:20 2018 Page 223816 .LONGA on3817 .MNLIST3818 F91FCB A9 00 A6 lda #cbpl ; offset of build path3819 F91FCE A4 16 ldy bplvl3820 F91FD0 90 0B bcc ?103821 F91FD2 BC D2 40 ldy !P0LDT+ldtp,x ; LDT pointer3822 F91FD5 B9 1C 40 lda !P0LDT+ldt_cdlp,y3823 F91FD8 BE 20 40 ldx !P0LDT+ldt_cdlvl,y3824 F91FDB 9B txy3825 F91FDC 18 clc3826 F91FDD 69 04 00 ?10: adc #hpl_fcb3827 F91FE0 85 6A sta tmpp3828 F91FE2 ACC083829 F91FE2 E2 20 sep #PMFLAG3830 .LONGA off3831 .MNLIST3832 F91FE4 A9 01 lda #.SEG.cbpl3833 F91FE6 85 6C sta tmpp+2 ; set HPL pointer3834 F91FE8 84 6E sty tmpx ; subdir level3835 F91FEA A2 00 ldx #03836 F91FEC 98 tya3837 F91FED F0 1C beq ?30 ; is root3838 F91FEF 20 10 20 ?20: jsr unparse3839 F91FF2 C6 6E dec tmpx3840 F91FF4 F0 14 beq ?253841 F91FF6 CA dex3842 F91FF7 A9 2F lda #'/'3843 F91FF9 9D 04 42 sta !P0OS+bpath,x3844 F91FFC E8 inx3845 F91FFD ACC163846 F91FFD C2 20 rep #PMFLAG3847 .LONGA on3848 .MNLIST3849 F91FFF A5 6A lda tmpp3850 F92001 69 10 00 adc #HPLSIZE3851 F92004 85 6A sta tmpp3852 F92006 ACC083853 F92006 E2 20 sep #PMFLAG3854 .LONGA off3855 .MNLIST3856 F92008 80 E5 bra ?203857 F9200A CA ?25: dex3858 F9200B 9E 04 42 ?30: stz !P0OS+bpath,x3859 F9200E E8 inx3860 F9200F 60 rts3861 F920103862 ; unparse fcb name into canonical asciiz string3863 F92010 unparse:3864 F92010 A0 00 ldy #0 ; unparse name3865 F92012 A9 08 lda #8 ; string limit3866 F92014 20 2C 20 jsr ?20 ; unparse field3867 F92017 B7 6A lda [tmpp],y3868 F92019 C9 20 cmp #' '3869 F9201B F0 0B beq ?10 ; no extension3870 F9201D A9 2E lda #'.'3871 F9201F 9D 04 42 sta !P0OS+bpath,x3872 F92022 E8 inxTue Jul 17 11:00:20 2018 Page 233873 F92023 A9 0B lda #11 ; string limit3874 F92025 20 2C 20 jsr ?20 ; unparse extension3875 F92028 9E 04 42 ?10: stz !P0OS+bpath,x3876 F9202B 60 rts3877 F9202C 85 70 ?20: sta fsiz3878 F9202E B7 6A ?25: lda [tmpp],y3879 F92030 C9 20 cmp #' '3880 F92032 F0 04 beq ?303881 F92034 9D 04 42 sta !P0OS+bpath,x3882 F92037 E8 inx3883 F92038 C8 ?30: iny3884 F92039 C4 70 cpy fsiz3885 F9203B 90 F1 bcc ?253886 F9203D 60 rts38873888 ; get drive number from path string3889 ;3890 ; entry: pathp = long pointer to path string3891 ;3892 ; exit: A = drive number3893 ; strix = current path string index3894 ; CF = 1 if illegal drive name in path string3895 ;3896 ; use: A,X3897 ;3898 ;-------3899 F9203E getpdrv:3900 ;-------3901 F9203E 64 7D stz strix ; clear current path string index3902 F92040 A7 7E lda [pathp] ; check if string is empty...3903 F92042 F0 23 beq ?30 ; ...which isn't O.K. at all3904 F92044 AA tax3905 F92045 A0 01 ldy #13906 F92047 B7 7E lda [pathp],y ; if the second char is ':'...3907 F92049 F0 04 beq ?10 ; ...then drive is in pathname3908 F9204B A5 17 lda defdrv ; take the default (selected) drive3909 F9204D 80 16 bra ?25 ; return default drive3910 F9204F 8A ?10: txa ; grab the drive designator3911 F92050 C9 61 cmp #'a' ; make sure it is upper case3912 F92052 90 06 bcc ?203913 F92054 C9 7B cmp #'z'+13914 F92056 B0 10 bcs ?35 ; invalid drive name3915 F92058 29 DF and #$DF3916 F9205A E9 40 ?20: sbc #'A'-1 ; note: here always CF=03917 F9205C 90 09 bcc ?30 ; invalid drive number3918 F9205E C9 04 cmp #MAXDRV3919 F92060 B0 06 bcs ?35 ; invalid drive number3920 F92062 C8 iny ; bump path string pointer...3921 F92063 84 7D sty strix ; ...past ':'3922 F92065 18 ?25: clc3923 F92066 60 rts3924 F92067 38 ?30: sec ; error flag3925 F92068 60 ?35: rts39263927 ; reject devices names -- never return to the caller if error3928 F92069 nodev:3929 F92069 20 A0 20 jsr chkdev ; is this a device ?Tue Jul 17 11:00:20 2018 Page 243930 F9206C B0 0C bcs _eaccess ; yes3931 F9206E 60 rts3932 F9206F3933 ; reject if is directory or volume label3934 ; never return to the caller if error3935 ; A=fcb attribute3936 F9206F nodirvol:3937 F9206F 89 18 bit #DA_DIR+DA_VOLUME3938 F92071 D0 07 bne _eaccess3939 F92073 60 rts39403941 ; reject "." and ".." names -- never return to the caller if error3942 F92074 nodot:3943 F92074 A5 53 lda fcbs3944 F92076 C9 2E cmp #'.'3945 F92078 F0 25 beq chkx3946 F9207A _eaccess:3947 F9207A A9 05 lda #ED_ACCESS ; access denied error3948 F9207C 4C 12 24 jmp oserror39493950 ; reject names with wild cards -- never return to the caller if error3951 F9207F nowild:3952 F9207F A5 7C lda haswld3953 F92081 F0 1C beq chkx3954 F92083 A9 02 lda #ED_FILE ; invalid filename3955 F92085 4C 12 24 jmp oserror39563957 ; check if fcb name = "."3958 ; return ZF=1 if search for root (or '.' in root)3959 F92088 chkroot:3960 F92088 A5 46 lda dircls ; are we in the root?3961 F9208A 05 47 ora dircls+13962 F9208C D0 11 bne chkx ; no, no further checks required3963 F9208E A5 53 lda fcbs3964 F92090 C9 2E cmp #'.' ; is it a '.' entry ?3965 F92092 D0 0B bne chkx3966 F92094 A2 0A ldx #103967 F92096 A9 20 lda #' ' ; check for 10 blanks3968 F92098 D5 53 ?10: cmp fcbs,x3969 F9209A D0 03 bne chkx3970 F9209C CA dex3971 F9209D D0 F9 bne ?103972 F9209F 60 chkx: rts39733974 ; check if fcb name is a character device name3975 ; return:3976 ; CF=0 if not device name3977 ; CF=1 if is a device name, A=index of device name3978 ; use: A,X,Y3979 F920A0 chkdev:3980 F920A0 ACC163981 F920A0 C2 20 rep #PMFLAG3982 .LONGA on3983 .MNLIST3984 F920A2 A9 79 23 lda #devlst ; set pointer to device names list3985 F920A5 85 6A sta tmpp3986 F920A7 ACC08Tue Jul 17 11:00:20 2018 Page 253987 F920A7 E2 20 sep #PMFLAG3988 .LONGA off3989 .MNLIST3990 F920A9 A9 F9 lda #^devlst3991 F920AB 85 6C sta tmpp+23992 F920AD 64 6E stz tmpx ; device index3993 F920AF A2 07 ?10: ldx #7 ; loop match name3994 F920B1 9B txy3995 F920B2 B5 53 ?20: lda fcbs,x ; compare fcb name...3996 F920B4 D7 6A cmp [tmpp],y ; ...against device name3997 F920B6 D0 08 bne ?30 ; unmatch3998 F920B8 88 dey3999 F920B9 CA dex4000 F920BA 10 F6 bpl ?204001 F920BC 38 sec ; match4002 F920BD A5 6E lda tmpx ; A=index4003 F920BF 60 rts4004 F920C0 A9 08 ?30: lda #84005 F920C2 65 6A adc tmpp ; next device name4006 F920C4 85 6A sta tmpp4007 F920C6 90 02 bcc ?324008 F920C8 E6 6B inc tmpp+14009 F920CA E6 6E ?32: inc tmpx ; increment index4010 F920CC A7 6A lda [tmpp] ; end of list?4011 F920CE D0 DF bne ?10 ; no, so check next name4012 F920D0 18 clc ; unmatch4013 F920D1 60 rts40144015 ;---------------------------------------------------------------------------4016 ; directory search4017 ;---------------------------------------------------------------------------40184019 F920D2 fndfcbf:40204021 ; hashed directory search4022 ; we try to optimize directory searches using a dynamic hash table (HCB)4023 ;4024 ; entry: dircls = starting cluster of directory4025 ; curdrv = current logical drive4026 ; fhash = hash code of searched fcb entry (=0 if search empty)4027 ; dfcbtyp = search type (1=empty entry, 2=fcbs entry)4028 ; fcbs = local name to search4029 ;4030 ; exit: CF = 1 if entry not found4031 ; CF = 0 if entry was found4032 ; chdcls = cluster of found entry4033 ; entofs = entry offset number (0..15)4034 ; secofs = sector's offset of found entry4035 ; fcbp = long pointer to found entry4036 ; xbuf = buffer that old sector of found entry4037 ; lba = 24 bits address of sector4038 ; dfcbatt = attribute of entry4039 ;4040 ; use: C,X,Y4041 ;4042 ; note: this routine should be called with 8 bit cpu mode4043 ;Tue Jul 17 11:00:20 2018 Page 264044 ;-----4045 F920D2 hfind:4046 ;-----4047 F920D2 8B phb ; save current DBR4048 F920D3 A9 00 lda #^hcb_data4049 F920D5 48 pha4050 F920D6 AB plb ; set DBR to HCB struct's4051 F920D7 A6 52 ldx curdrv ; set drive4052 F920D9 86 63 stx hcbdrv4053 F920DB ACC164054 F920DB C2 20 rep #PMFLAG4055 .LONGA on4056 .MNLIST4057 F920DD A6 2B ldx ldtrsiz ; root dir. size (in sec)4058 F920DF A5 46 lda dircls ; starting directory cluster4059 F920E1 85 40 sta chdcls ; current chainded dir. cluster4060 F920E3 F0 02 beq ?02 ; is root4061 F920E5 A6 28 ldx ldtcsiz ; subdir. size (in sec.)4062 F920E7 86 7B ?02: stx dsiz ; dir. size in sector's4063 F920E9 CPU084064 F920E9 E2 30 sep #(PMFLAG.OR.PXFLAG)4065 .LONGA off4066 .LONGI off4067 .MNLIST4068 F920EB 8A txa4069 F920EC A6 09 ldx hlog2 ; shift count4070 F920EE F0 08 beq ?064071 F920F0 18 clc4072 F920F1 65 08 adc hsiz ; round up to HCB size4073 F920F3 3A dec a4074 F920F4 4A ?04: lsr a4075 F920F5 CA dex4076 F920F6 D0 FC bne ?044077 F920F8 85 7A ?06: sta maxseq ; how many sequnces4078 F920FA ACC164079 F920FA C2 20 rep #PMFLAG4080 .LONGA on4081 .MNLIST4082 F920FC A5 40 lda chdcls ; start from here4083 F920FE 85 6C ?10: sta hcbcls ; re-entry from this cluster4084 F92100 85 40 sta chdcls4085 F92102 A2 00 ldx #0 ; start with sequence=04086 F92104 86 62 ?15: stx hcbseq ; re-entry from this sequence4087 F92106 A0 00 ldy #0 ; current entry index4088 F92108 CPU164089 F92108 C2 30 rep #(PMFLAG.OR.PXFLAG)4090 .LONGA on4091 .LONGI on4092 .MNLIST4093 F9210A 38 sec ; we want an HCB even if it's recycled4094 F9210B 20 C9 24 jsr fndhcb ; find&fill an HCB (here return always CF=0)4095 F9210E A6 04 ldx hcbroot ; X=HCB ptr -- start search4096 F92110 BD 06 00 lda !hcb_cnt,x ; we have this many entries hashed4097 F92113 29 FF 7F and #$7FFF ; strip off bit 154098 F92116 0A asl a4099 F92117 65 04 adc hcbroot4100 F92119 85 6A sta hlast ; point past to the last hash codeTue Jul 17 11:00:20 2018 Page 274101 F9211B A5 72 lda fhash ; look for this hash code4102 F9211D DD 08 00 ?20: cmp !hcb_data,x ; try to find a match4103 F92120 F0 24 beq ?30 ; hash code match4104 F92122 C8 ?25: iny ; re-entry after check hash code4105 F92123 E8 inx ; bump pointer4106 F92124 E8 inx4107 F92125 E4 6A cpx hlast4108 F92127 90 F4 bcc ?20 ; loop until last code4109 F92129 A6 04 ldx hcbroot4110 F9212B 3C 06 00 bit !hcb_cnt,x ; test sign4111 F9212E 30 66 bmi ?40 ; no more entries: exit with CF=1 (not found)4112 F92130 INDEX084113 F92130 E2 10 sep #PXFLAG4114 .LONGI off4115 .MNLIST4116 F92132 A6 62 ldx hcbseq ; will check more entries4117 F92134 E8 inx4118 F92135 E4 7A cpx maxseq4119 F92137 90 CB bcc ?15 ; ok, try next sequence4120 F92139 A5 6C lda hcbcls ; we are at root dir.?4121 F9213B F0 59 beq ?40 ; yes, exit with CF=1 (not found)4122 F9213D 20 0D 23 jsr getncls ; C=next cluster in chain4123 F92140 C5 30 cmp ldteoc ; have we fallen off the end of the chain?4124 F92142 90 BA bcc ?10 ; no, try next cluster4125 F92144 B0 50 bcs ?40 ; exit with CF=1 (not found)4126 F92146 84 70 ?30: sty hcby ; save current index4127 F92148 86 6E stx hcbx ; save current pointer4128 F9214A 98 tya ; hash matching index4129 F9214B 4A lsr a ; div. by 164130 F9214C 4A lsr a4131 F9214D 4A lsr a4132 F9214E 4A lsr a4133 F9214F AA tax ; sector's offset4134 F92150 98 tya4135 F92151 29 0F 00 and #$000F4136 F92154 A8 tay4137 F92155 0A asl a4138 F92156 0A asl a4139 F92157 0A asl a4140 F92158 0A asl a4141 F92159 0A asl a4142 F9215A 85 74 sta fcbofs ; entry offset4143 F9215C CPU084144 F9215C E2 30 sep #(PMFLAG.OR.PXFLAG)4145 .LONGA off4146 .LONGI off4147 .MNLIST4148 F9215E 86 45 stx secofs4149 F92160 84 44 sty entofs4150 F92162 A5 62 lda hcbseq4151 F92164 F0 08 beq ?34 ; offset=04152 F92166 A4 09 ldy hlog2 ; shift count4153 F92168 F0 04 beq ?34 ; no shift4154 F9216A 0A ?32: asl a4155 F9216B 88 dey4156 F9216C D0 FC bne ?324157 F9216E 18 ?34: clcTue Jul 17 11:00:20 2018 Page 284158 F9216F 65 45 adc secofs4159 F92171 85 45 sta secofs4160 F92173 A8 tay ; sector's offset4161 F92174 A6 52 ldx curdrv ; current logical drive4162 F92176 ACC164163 F92176 C2 20 rep #PMFLAG4164 .LONGA on4165 .MNLIST4166 F92178 A5 6C lda hcbcls ; current cluster4167 F9217A 38 sec ; preread buffer from disk4168 F9217B 20 83 26 jsr fndbuf ; find & load buffer4169 F9217E 18 clc4170 F9217F A5 74 lda fcbofs4171 F92181 65 5E adc fcbp4172 F92183 85 5E sta fcbp4173 F92185 CPU084174 F92185 E2 30 sep #(PMFLAG.OR.PXFLAG)4175 .LONGA off4176 .LONGI off4177 .MNLIST4178 F92187 20 9A 21 jsr fcbcmp ; compare entry vs. local FCB4179 F9218A 90 0C bcc ?45 ; match!4180 F9218C CPU164181 F9218C C2 30 rep #(PMFLAG.OR.PXFLAG)4182 .LONGA on4183 .LONGI on4184 .MNLIST4185 F9218E A6 6E ldx hcbx ; restore pointer&index4186 F92190 A4 70 ldy hcby4187 F92192 A5 72 lda fhash ; hash code to find4188 F92194 80 8C bra ?25 ; restart search4189 F92196 ?40: CPU084190 F92196 E2 30 sep #(PMFLAG.OR.PXFLAG)4191 .LONGA off4192 .LONGI off4193 .MNLIST4194 F92198 AB ?45: plb4195 F92199 60 rts41964197 .LONGA off ; for assembler4198 .LONGI off41994200 ; compare directory entry with local FCB4201 F9219A fcbcmp:4202 F9219A A5 50 lda dfcbtyp ; what kind of search?4203 F9219C 3A dec a ; 1: wanted an empty entry?4204 F9219D D0 0A bne ?20 ; no4205 F9219F A7 5E lda [fcbp]4206 F921A1 F0 19 beq ?30 ; ok, virgin entry4207 F921A3 C9 E5 cmp #$E54208 F921A5 F0 15 beq ?30 ; ok, empty entry4209 F921A7 38 ?10: sec ; return failure4210 F921A8 60 rts4211 F921A9 A2 0A ?20: ldx #10 ; match on all characters4212 F921AB 9B txy4213 F921AC B5 53 ?22: lda fcbs,x4214 F921AE D7 5E cmp [fcbp],yTue Jul 17 11:00:20 2018 Page 294215 F921B0 D0 F5 bne ?10 ; unmatch4216 F921B2 88 dey4217 F921B3 CA dex4218 F921B4 10 F6 bpl ?22 ; loop4219 F921B6 A0 0B ldy #114220 F921B8 B7 5E lda [fcbp],y ; get file attribute4221 F921BA 85 51 sta dfcbatt4222 F921BC 18 ?30: clc ; return match4223 F921BD 60 ?35: rts42244225 ; compare directory entry with local FCB4226 F921BE dfcbcmp:4227 F921BE A5 50 lda dfcbtyp ; what kind of search?4228 F921C0 3A dec a ; 1: wanted an empty entry?4229 F921C1 D0 0A bne ?20 ; no4230 F921C3 A7 5E lda [fcbp]4231 F921C5 F0 20 beq ?30 ; ok, virgin entry4232 F921C7 C9 E5 cmp #$E54233 F921C9 F0 1C beq ?30 ; ok, empty entry4234 F921CB 38 ?10: sec ; return failure4235 F921CC 60 rts4236 F921CD 3A ?20: dec a ; 2: wanted match entry ('?' too)?4237 F921CE D0 19 bne ?40 ; no4238 F921D0 A2 0A ldx #10 ; match on all characters4239 F921D2 9B txy4240 F921D3 B5 53 ?22: lda fcbs,x4241 F921D5 D7 5E cmp [fcbp],y4242 F921D7 F0 04 beq ?24 ; match4243 F921D9 C9 3F cmp #'?' ; this wild card match any character4244 F921DB D0 EE bne ?10 ; failure: no match4245 F921DD 88 ?24: dey4246 F921DE CA dex4247 F921DF 10 F2 bpl ?22 ; loop4248 F921E1 A0 0B ?26: ldy #114249 F921E3 B7 5E lda [fcbp],y ; get file attribute4250 F921E5 85 51 sta dfcbatt4251 F921E7 18 ?30: clc ; return match4252 F921E8 60 ?35: rts4253 F921E9 A2 07 ?40: ldx #7 ; caller wish a pattern match4254 F921EB A0 00 ldy #0 ; first time match name comnponent4255 F921ED 20 FC 21 jsr ?604256 F921F0 B0 09 bcs ?50 ; no match4257 F921F2 A2 08 ldx #8 ; 2nd time match extension component4258 F921F4 A0 0A ldy #104259 F921F6 20 FC 21 jsr ?604260 F921F9 90 E6 bcc ?26 ; ok, pattern match4261 F921FB 60 ?50: rts ; no match4262 F921FC 86 77 ?60: stx xstart ; start of component4263 F921FE 84 78 sty xend ; end of component4264 F92200 B5 53 lda fcbs,x4265 F92202 C9 2A cmp #'*' ; pattern start with star?4266 F92204 F0 1D beq ?70 ; yes, so compare from end of string4267 F92206 9B txy4268 F92207 E6 78 inc xend ; one more for loop test4269 F92209 80 02 bra ?644270 F9220B B5 53 ?62: lda fcbs,x4271 F9220D D7 5E ?64: cmp [fcbp],y ; compareTue Jul 17 11:00:20 2018 Page 304272 F9220F F0 0A beq ?66 ; match4273 F92211 C9 3F cmp #'?' ; wildcard match any character4274 F92213 F0 06 beq ?664275 F92215 C9 2A cmp #'*' ; star match any pattern4276 F92217 F0 08 beq ?684277 F92219 D0 B0 bne ?10 ; no match4278 F9221B E8 ?66: inx4279 F9221C C8 iny4280 F9221D E4 78 cpx xend ; loop until end of string4281 F9221F 90 EA bcc ?624282 F92221 18 ?68: clc ; match4283 F92222 60 rts4284 F92223 A4 78 ?70: ldy xend ; compare from end of string4285 F92225 E6 77 inc xstart ; skip beginning star4286 F92227 B7 5E ?72: lda [fcbp],y4287 F92229 C9 20 cmp #' ' ; skip padding blanks4288 F9222B D0 06 bne ?744289 F9222D 88 dey4290 F9222E C4 77 cpy xstart4291 F92230 B0 F5 bcs ?724292 F92232 60 rts ; here was just one star4293 F92233 A6 78 ?74: ldx xend4294 F92235 B5 53 ?76: lda fcbs,x4295 F92237 C9 20 cmp #' ' ; skip padding blanks4296 F92239 D0 06 bne ?784297 F9223B CA dex4298 F9223C E4 77 cpx xstart4299 F9223E B0 F5 bcs ?764300 F92240 60 rts ; here was just one star4301 F92241 B5 53 ?78: lda fcbs,x4302 F92243 C9 3F cmp #'?'4303 F92245 F0 0B beq ?804304 F92247 D7 5E cmp [fcbp],y4305 F92249 D0 07 bne ?804306 F9224B 88 dey4307 F9224C CA dex4308 F9224D E4 77 cpx xstart4309 F9224F B0 F0 bcs ?784310 F92251 60 rts ; match4311 F92252 38 ?80: sec4312 F92253 60 rts431343144315 .LONGA off ; for assembler4316 .LONGI off4317 F922544318 ; compute hash code of local FCB name (fcbs)4319 ;4320 ; entry: fcbs = local name to hash4321 ; fhash = hash code of searched fcb entry (=0 if search empty)4322 ;4323 ; exit: fhash = hash code of local fcb name (=0 if empty)4324 ;4325 ; use: C,X,Y4326 ;4327 ; note: this routine should be called with 8 bit cpu mode4328 ;Tue Jul 17 11:00:20 2018 Page 314329 ;-----4330 F92254 mkhsh:4331 ;-----4332 F92254 64 72 stz fhash4333 F92256 64 73 stz fhash+14334 F92258 A5 53 lda fcbs ; first char of file name4335 F9225A F0 2F beq ?20 ; empty entry4336 F9225C C9 E5 cmp #$E54337 F9225E F0 2B beq ?20 ; deleted entry4338 F92260 29 7F and #$7F4339 F92262 85 73 sta fhash+14340 F92264 A0 0A ldy #$0A ; hash all char's4341 F92266 A2 00 ldx #04342 F92268 ?10: ACC164343 F92268 C2 20 rep #PMFLAG4344 .LONGA on4345 .MNLIST4346 F9226A A5 72 lda fhash4347 F9226C 0A asl a4348 F9226D 69 00 00 adc #$00004349 F92270 85 72 sta fhash4350 F92272 ACC084351 F92272 E2 20 sep #PMFLAG4352 .LONGA off4353 .MNLIST4354 F92274 E8 inx4355 F92275 B5 53 lda fcbs,x4356 F92277 29 7F and #$7F4357 F92279 45 72 eor fhash4358 F9227B 85 72 sta fhash4359 F9227D 88 dey4360 F9227E D0 E8 bne ?104361 F92280 ACC164362 F92280 C2 20 rep #PMFLAG4363 .LONGA on4364 .MNLIST4365 F92282 A5 72 lda fhash4366 F92284 D0 03 bne ?15 ; hash=0 reserved for empty entry4367 F92286 1A inc a4368 F92287 85 72 sta fhash4369 F92289 ?15: ACC084370 F92289 E2 20 sep #PMFLAG4371 .LONGA off4372 .MNLIST4373 F9228B 60 ?20: rts43744375 ;---------------------------------------------------------------------------4376 ; utilities4377 ;---------------------------------------------------------------------------43784379 ; in: dcnt, dircls, chdcls, curdrv4380 F9228C getdfcb:4381 F9228C getdbuf:4382 F9228C CPU164383 F9228C C2 30 rep #(PMFLAG.OR.PXFLAG)4384 .LONGA on4385 .LONGI onTue Jul 17 11:00:20 2018 Page 324386 .MNLIST4387 F9228E A5 46 lda dircls ; first cluster of directory4388 F92290 A6 48 ldx dcnt4389 F92292 E8 inx4390 F92293 86 48 stx dcnt ; current directory index4391 F92295 F0 63 beq ?18 ; first entry of dir.4392 F92297 E0 FF FF cpx #$FFFF ; invalid next dir. index ?4393 F9229A F0 5A beq ?16 ; yes, set end of directory condition (CF=1)4394 F9229C 8A txa ; C=dcnt4395 F9229D 4A lsr a ; div. by 16 (16 entries per sector)4396 F9229E 4A lsr a4397 F9229F 4A lsr a4398 F922A0 4A lsr a4399 F922A1 85 68 sta wtmp ; save sector's count4400 F922A3 A8 tay ; Y=sector's offset4401 F922A4 8A txa ; C=dcnt4402 F922A5 29 0F 00 and #$000F ; entry number4403 F922A8 AA tax ; X=entry offset4404 F922A9 INDEX084405 F922A9 E2 10 sep #PXFLAG4406 .LONGI off4407 .MNLIST4408 F922AB 84 45 sty secofs ; low sector's offset (valid for root dir only)4409 F922AD 86 44 stx entofs ; entry offset4410 F922AF CPU164411 F922AF C2 30 rep #(PMFLAG.OR.PXFLAG)4412 .LONGA on4413 .LONGI on4414 .MNLIST4415 F922B1 A5 46 lda dircls ; we are at root dir.?4416 F922B3 D0 08 bne ?05 ; no4417 F922B5 A6 48 ldx dcnt4418 F922B7 E4 2C cpx ldtrent ; end of the root directory?4419 F922B9 B0 36 bcs ?15 ; yes, set end of directory condition (CF=1)4420 F922BB 80 41 bra ?20 ; get buffer4421 F922BD ?05: INDEX084422 F922BD E2 10 sep #PXFLAG4423 .LONGI off4424 .MNLIST4425 F922BF A5 68 lda wtmp ; sector's offset4426 F922C1 A8 tay4427 F922C2 A6 29 ldx ldtcshf ; sector per cluster shift count4428 F922C4 F0 04 beq ?08 ; no shift (1 sec. per cluster)4429 F922C6 4A ?06: lsr a4430 F922C7 CA dex4431 F922C8 D0 FC bne ?064432 F922CA 85 42 ?08: sta clsofs ; cluster's count to skip from the first4433 F922CC ACC084434 F922CC E2 20 sep #PMFLAG4435 .LONGA off4436 .MNLIST4437 F922CE 98 tya4438 F922CF 25 32 and ldtmcls ; sector's offset within cluster4439 F922D1 85 45 sta secofs4440 F922D3 CPU164441 F922D3 C2 30 rep #(PMFLAG.OR.PXFLAG)4442 .LONGA onTue Jul 17 11:00:20 2018 Page 334443 .LONGI on4444 .MNLIST4445 F922D5 A5 40 lda chdcls ; do we already know where we are?4446 F922D7 F0 09 beq ?10 ; if not trace from start of chain4447 F922D9 A4 44 ldy entofs ; entofs+secofs: null if we moved onto...4448 ; ...next cluster4449 F922DB D0 23 bne ?24 ; we stay at the same cluster4450 F922DD C8 iny ; move on the next cluster in the chain...4451 F922DE 84 42 sty clsofs ; ...starting from chdcls4452 F922E0 80 02 bra ?124453 F922E2 A5 46 ?10: lda dircls ; start cluster in the chain4454 F922E4 A6 42 ?12: ldx clsofs ; skip along chain until we arrive...4455 F922E6 F0 16 beq ?20 ; ...at the destination cluster4456 F922E8 C6 42 dec clsofs ; decrement cluster offset4457 F922EA 20 0D 23 jsr getncls ; C=next cluster in chain4458 F922ED C5 30 cmp ldteoc ; have we fallen off the end of the chain?4459 F922EF 90 F3 bcc ?12 ; no, loop again4460 ; here, end of cluster's chain4461 F922F1 A9 FF FF ?15: lda #$FFFF ; set end of directory condition4462 F922F4 85 48 sta dcnt4463 F922F6 64 40 ?16: stz chdcls ; forget where we are4464 F922F8 80 10 bra ?30 ; exit with CF=14465 F922FA 64 42 ?18: stz clsofs ; we are at first entry: clear offset's4466 F922FC 64 44 stz entofs ; entofs+secofs4467 F922FE 85 40 ?20: sta chdcls ; remember this cluster for next time4468 F92300 ?24: CPU08 ; C=cluster (=0 if root)4469 F92300 E2 30 sep #(PMFLAG.OR.PXFLAG)4470 .LONGA off4471 .LONGI off4472 .MNLIST4473 F92302 A6 52 ldx curdrv ; current logical drive4474 F92304 A4 45 ldy secofs ; sector's offset4475 F92306 38 sec ; preread buffer from disk4476 F92307 20 83 26 jsr fndbuf ; find & load buffer4477 F9230A ?30: CPU084478 F9230A E2 30 sep #(PMFLAG.OR.PXFLAG)4479 .LONGA off4480 .LONGI off4481 .MNLIST4482 F9230C 60 rts44834484 ; get next cluster number4485 ; in: C = cluster4486 ; out: C = next chain cluster4487 ; ldtfp preset to floppy fat table4488 F9230D getncls:4489 F9230D 08 php4490 F9230E CPU084491 F9230E E2 30 sep #(PMFLAG.OR.PXFLAG)4492 .LONGA off4493 .LONGI off4494 .MNLIST4495 F92310 24 18 bit ldtfg1 ; bit 6=0 if floppy4496 F92312 50 1C bvc ?10 ; FAT12 media4497 F92314 EB xba ; A=sector (one sec. = 256 cluster #)4498 F92315 AA tax4499 F92316 4A lsr a ; divide by 16 to get x-mem buffer bankTue Jul 17 11:00:20 2018 Page 344500 F92317 4A lsr a4501 F92318 4A lsr a4502 F92319 4A lsr a4503 F9231A 18 clc4504 F9231B 65 1D adc ldtfbuf ; add fat table base base bank4505 F9231D 8F 28 FD 00 sta >PIA0+PIAPRA ; set bank4506 F92321 8A txa4507 F92322 EB xba ; restore cluster number in C4508 F92323 CPU164509 F92323 C2 30 rep #(PMFLAG.OR.PXFLAG)4510 .LONGA on4511 .LONGI on4512 .MNLIST4513 F92325 29 FF 0F and #$0FFF ; mask 4096 cluster's4514 F92328 0A asl a4515 F92329 AA tax ; index to 8k fat table in x-mem window4516 F9232A BF 00 20 01 lda >XMWIN,x ; get chained cluster4517 F9232E 28 plp4518 F9232F 60 rts4519 F92330 ?10: CPU164520 F92330 C2 30 rep #(PMFLAG.OR.PXFLAG)4521 .LONGA on4522 .LONGI on4523 .MNLIST4524 F92332 48 pha ; cluster #4525 F92333 4A lsr a ; div. by 24526 F92334 18 clc4527 F92335 63 01 adc $01,s ; mult. x 1.54528 F92337 A8 tay ; index to fat table4529 F92338 68 pla4530 F92339 4A lsr a ; even or odd cluster?4531 F9233A B7 1A lda [ldtfp],y4532 F9233C B0 05 bcs ?15 ; odd cluster4533 F9233E 29 FF 0F and #$0FFF ; even cluster4534 F92341 80 04 bra ?204535 F92343 4A ?15: lsr a ; odd cluster: 4 bit's shift4536 F92344 4A lsr a4537 F92345 4A lsr a4538 F92346 4A lsr a4539 F92347 28 ?20: plp4540 F92348 60 rts45414542 .LONGA off ; for assembler4543 .LONGI off4544 F923494545 ; get pointer to directory entry given by dcnt4546 ; in: dcnt=directory entry counter4547 F92349 getsec:4548 F92349 ACC164549 F92349 C2 20 rep #PMFLAG4550 .LONGA on4551 .MNLIST4552 F9234B A5 48 lda dcnt ; compute sector count4553 F9234D 4A lsr a ; divide by 16 (16 entries per sector)4554 F9234E 4A lsr a4555 F9234F 4A lsr a4556 F92350 4A lsr aTue Jul 17 11:00:20 2018 Page 354557 F92351 48 pha ; sector count4558 F92352 A6 29 ldx ldtcshf ; sector per cluster shift count4559 F92354 F0 04 beq ?06 ; no shift (1 sec. per cluster)4560 F92356 4A ?04: lsr a4561 F92357 CA dex4562 F92358 D0 FC bne ?044563 F9235A 85 42 ?06: sta clsofs ; cluster's count to skip from the first4564 F9235C 68 pla4565 F9235D ACC084566 F9235D E2 20 sep #PMFLAG4567 .LONGA off4568 .MNLIST4569 F9235F 25 32 and ldtmcls ; cluster sector offset4570 F92361 85 45 sta secofs4571 F92363 A5 48 lda dcnt4572 F92365 29 0F and #$0F4573 F92367 0A asl a4574 F92368 85 44 sta entofs4575 F9236A 60 rts4576 F9236B4577 ;---------------------------------------------------------------------------4578 ; tables4579 ;---------------------------------------------------------------------------45804581 F9236B 3A 2E 3B 2C 3D dlmstr .DB ':.;,=+\<>|/"[]' ; path delimeters2B 5C 3C 3E 7C2F 22 5B 5D4582 00000E DLMSTR .EQU $-dlmstr45834584 F92379 devlst:4585 F92379 43 4F 4E 20 20 .DB 'CON ' ; Keyboard and display20 20 204586 F92381 4B 45 59 42 44 .DB 'KEYBD$ ' ; Keyboard24 20 204587 F92389 53 43 52 45 45 .DB 'SCREEN$ ' ; Display4E 24 204588 F92391 43 4F 4E 53 4F .DB 'CONSOLE$'4C 45 244589 F92399 50 52 4E 20 20 .DB 'PRN ' ; System list device, usually a parallel port20 20 204590 F923A1 4C 53 54 20 20 .DB 'LST ' ; System list device, usually a parallel port20 20 204591 F923A9 4C 50 54 31 20 .DB 'LPT1 ' ; First parallel printer port20 20 204592 F923B1 4C 50 54 32 20 .DB 'LPT2 ' ; Second parallel printer port20 20 204593 F923B9 4C 50 54 33 20 .DB 'LPT3 ' ; Third parallel printer port20 20 204594 F923C1 41 55 58 20 20 .DB 'AUX ' ; Auxiliary device, usually a serial port20 20 204595 F923C9 43 4F 4D 31 20 .DB 'COM1 ' ; First serial communications port20 20 204596 F923D1 43 4F 4D 32 20 .DB 'COM2 ' ; Second serial communications port20 20 204597 F923D9 43 4F 4D 33 20 .DB 'COM3 ' ; Third serial communications port20 20 204598 F923E1 43 4F 4D 34 20 .DB 'COM4 ' ; Fourth serial communications portTue Jul 17 11:00:20 2018 Page 3620 20 204599 F923E9 4E 55 4C 20 20 .DB 'NUL ' ; Bit-bucket device20 20 204600 F923F1 24 49 44 4C 45 .DB '$IDLE$ ' ; Bit-bucket device24 20 204601 F923F9 43 4C 4F 43 4B .DB 'CLOCK$ ' ; System real-time clock24 20 204602 F92401 43 4C 4F 43 4B .DB 'CLOCK ' ; System real-time clock20 20 204603 F92409 43 4F 4E 46 49 .DB 'CONFIG$ '47 24 204604 F92411 00 .DB 0Lines Assembled : 4398 Errors : 0