Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:21 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F9\toscmd.asmOutput Filename : obj\F9\toscmd.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:21 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:21 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:21 2018 Page 427632764 .ENDS27652766 [01] .IFDEF _ACIA_INC_2767 .INCLUDE INC\SP.INC2768 [00] .ENDIF27692793 .LIST on27942795 ;---------------------------------------------------------------------------27962797 000020 HPLMAX .EQU 32 ; Max. subdirectory level27982799 000200 BCBCNT .EQU $200 ; BCB's struct's count #2800 000C00 BCBXBNK .EQU $0C00 ; starting BCB x-mem buffer #2801 000040 DMACNT .EQU 6428022803 0000E0 FAT0X .EQU $E0 ; x-mem bank for fat table of ata #02804 0000F0 FAT1X .EQU $F0 ; x-mem bank for fat table of ata #128052806 F8FFB1 .INCLUDE INC\LDT.INC2807 ; LDT.INC28082809 [01] .IFNDEF __LDT_INC__2810 000001 __LDT_INC__ .SET 128112812 .LIST on2813 ;---------------------------------------------------------------------------2814 ; Logical Drive Table (LDT) -- page 0 offset's2815 ;---------------------------------------------------------------------------28162817 F8FFB1 STRUCT LDT2818 _LDT .SECTION page0,common,ref_only,offset 0 ;LDT Struct2819 ;.ABSOLUTE2820 ;.ORG 02821 .MNLIST2822 000000 00 ldt_fg1 .DB ; logical volume flag's2823 ; <7>: device ready (fdc drive or ata device)2824 ; <6>: if=1->HD/CF else->FD2825 ; <1:0>: phisycal device number28262827 000001 00 ldt_fg2 .DB ; <7>: valid volume (fat volume or cbm disk)2828 ; <6>: if=1->FAT else->CBM (FD only)2829 ; <5>: disk format checked2830 ; <1:0>: disk format (fdc only)28312832 000002 0000 ldt_root .DW ; lba of root dir2833 000004 0000 ldt_fat1 .DW ; lba of fat1 table2834 000006 0000 ldt_fat2 .DW ; lba of fat2 table2835 000008 0000 ldt_cls .DW ; lba of first data cluster2836 00000A 0000 ldt_max .DW ; max usable cluster + 12837 00000C 0000 ldt_rent .DW ; root dir. max. entries2838 00000E 0000 ldt_cent .DW ; max. entries in dir. cluster2839 000010 0000 ldt_eoc .DW ; end of cluster chain marker2840 000012 0000 ldt_free .DW ; count of free cluster's2841 000014 0000 ldt_nxt .DW ; next free cluster2842 000016 0000 ldt_fsiz .DW ; fat table sizeTue Jul 17 11:00:21 2018 Page 528432844 000018 00 ldt_csiz .DB ; cluster size (1,2,4,8,16,32,64)2845 000019 00 ldt_cshf .DB ; cluster shift (0,1,2,3,4,5,6)2846 00001A 00 ldt_rsiz .DB ; root dir. size (sector's)2847 00001B 00 ldt_mcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F2848 00001C 0000 ldt_cdlp .DW ; current working dir list pointer2849 00001E 0000 ldt_cdcls .DW ; current working dir start cluster2850 000020 00 ldt_cdlvl .DB ; current working dir level count28512852 000021 00 ldt_ptype .DB2853 000022 0000 0000 ldt_pstart .LWORD2854 000026 0000 0000 ldt_psize .LWORD28552856 000022 ldt_fp .EQU ldt_pstart ; fat table buffer long pointer2857 000025 ldt_fbuf .EQU ldt_pstart+3 ; fat table: x-mem base bank/dma buffer28582859 000026 ldt_pbr .EQU ldt_psize ; long pointer to PBR cache buffer2860 000029 ldt_fmt .EQU ldt_psize+328612862 00002A ESTRUCT LDT2863 00002A LDTSIZE .DS 02864 ;.RELATIVE2865 .ENDS2866 .MNLIST28672868 [00] .ENDIF28692870 F8FFB12871 ;---------------------------------------------------------------------------2872 ; Hierarchical Path List (HPL) -- 16 bit offset's2873 ;---------------------------------------------------------------------------28742875 F8FFB1 LSTRUCT HPL2876 _HPL .SECTION common,ref_only,offset 0 ;HPL Struct2877 .MNLIST2878 000000 0000 hpl_cls .DW ; parent cluster2879 000002 0000 hpl_ix .DW ; entry index in parent cluster2880 000004 hpl_fcb .DS 11 ; fcb name2881 00000F 00 hpl_lst .DB ; unused2882 000010 ESTRUCT HPL2883 000010 HPLSIZE .DS 02884 ;.RELATIVE2885 .ENDS2886 .MNLIST28872888 ;---------------------------------------------------------------------------2889 ; Buffer Control Block (BCB) -- 16 bit offset's2890 ;---------------------------------------------------------------------------28912892 F8FFB1 LSTRUCT BCB2893 _BCB .SECTION common,ref_only,offset 0 ;BCB Struct2894 .MNLIST2895 000000 0000 bcb_next .DW ; next logical linked BCB2896 000002 00 bcb_drv .DB ; logical drive2897 000003 00 bcb_sec .DB ; sector offset2898 000004 0000 bcb_cls .DW ; cluster2899 000006 0000 bcb_lba .DW ; sector lba addressTue Jul 17 11:00:21 2018 Page 62900 000008 0000 bcb_lbah .DW ; lba high2901 000008 bcb_head .EQU bcb_lbah ; floppy head2902 00000A 0000 bcb_buf .DW ; x-mem buffer number2903 00000A bcb_trk .EQU bcb_buf ; floppy track(low) & sector(hi)2904 00000C 0000 bcb_ptr .DW ; buffer pointer2905 00000E 0000 bcb_xbnk .DW ; buffer pointer hi & x-mem bank2906 00000E bcb_dma .EQU bcb_xbnk ; buffer pointer hi & dma buffer2907 000010 ESTRUCT BCB2908 000010 BCBSIZE .DS 02909 ;.RELATIVE2910 .ENDS2911 .MNLIST29122913 ;---------------------------------------------------------------------------2914 ; hash Control Block (BCB) -- 16 bit offset's2915 ;---------------------------------------------------------------------------29162917 F8FFB1 LSTRUCT HCB2918 _HCB .SECTION common,ref_only,offset 0 ;HCB Struct2919 .MNLIST2920 000000 0000 hcb_next .DW ; pointer to next HCB2921 000002 0000 hcb_cls .DW ; cluster number2922 000004 0000 hcb_seq .DW ; sequence number + logical drive number2923 000006 0000 hcb_cnt .DW ; number of hashed entries2924 000008 hcb_data .DS 0 ; hash buffer data2925 000008 ESTRUCT HCB2926 000008 HCBSIZE .DS 02927 ;.RELATIVE2928 .ENDS2929 .MNLIST29302931 ;---------------------------------------------------------------------------2932 ; TOS Working Segment2933 ;---------------------------------------------------------------------------29342935 000001 WKB .EQU .SEG.TOSSEG ; TOS working bank29362937 010000 TS .SET TOSSEG2938 01FFFF TE .SET TOSSEG + $FFFF2939 018C00 TO0 .SET $018C002940 019E00 TO1 .SET TOSWKM29412942 .comment @2943 _TOS0: .SECTION ref_only, common, offset TO0, range TS TE ;FAT Struct's2944 _TOS0_START .DS 029452946 _pbr0 .DS 5122947 _pbr1 .DS 5122948 _pbr2 .DS 5122949 _pbr3 .DS 51229502951 _TOS0_END .DS 02952 TOS0SIZ .EQU (_TOS0_END - _TOS0_START)2953 .ENDS2954 @29552956 _TOS1: .SECTION ref_only, common, offset TO1, range TS TE ;FAT Struct'sTue Jul 17 11:00:21 2018 Page 72957 019E00 _TOS1_START .DS 029582959 ; current working directory HPL2960 019E00 cwdl0 .DS (HPLSIZE*HPLMAX)2961 01A000 cwdl1 .DS (HPLSIZE*HPLMAX)2962 01A200 cwdl2 .DS (HPLSIZE*HPLMAX)2963 01A400 cwdl3 .DS (HPLSIZE*HPLMAX)29642965 ; current building path HPL2966 01A600 cbpl .DS (HPLSIZE*HPLMAX)2967 01A600 HPL_CLS .EQU hpl_cls+cbpl2968 01A602 HPL_IX .EQU hpl_ix+cbpl2969 01A604 HPL_FCB .EQU hpl_fcb+cbpl29702971 ; BCB list's2972 01A800 bcbstart .DS (BCBCNT*BCBSIZE)2973 01C800 bcbend .DS 02974 01C800 dmastart .DS (DMACNT*BCBSIZE)2975 01CC00 dmaend .DS 02976 01CC00 dma0s .DS (17*BCBSIZE)2977 01CD10 dma1s .DS (17*BCBSIZE)29782979 01CE20 _TOS1_END .DS 02980 003020 TOS1SIZ .EQU (_TOS1_END - _TOS1_START)2981 .ENDS29822983 ;---------------------------------------------------------------------------2984 ; HCB Segment2985 ;---------------------------------------------------------------------------29862987 000004 HCBBNK .EQU .SEG.HCBSEG2988 040000 HS .SET HCBSEG2989 04FFFF HE .SET HCBSEG + $FFFF2990 040000 HO .SET HCBSEG29912992 _HCBS: .SECTION ref_only, common, offset HO, range HS HE ;HCB's List2993 040000 hcb_bnk .DS 82994 040008 hcbstart .DS 02995 .ENDS29962997 ;.comment @2998 ;---------------------------------------------------------------------------2999 ; direct page for LDT var's3000 ;---------------------------------------------------------------------------30013002 ; P0OS3003 DPOS: .SECTION page0, common, ref_only, offset 0 ;OS Main D.P.30043005 ;sysbuf .DS 2 ; floppy track 0 cache buffer3006 000000 00 defhsec .DB ; default hidden sector's in fdisk3007 000001 00 .DB3008 000002 0000 cmdstk .DW ; saved stack on TOS command's3009 000004 bpath .DS 8030103011 000054 bpath1 .DS 03012 .ENDS3013 ;@Tue Jul 17 11:00:21 2018 Page 830143015 ; P0LDT3016 DPLDT: .SECTION page0, common, ref_only, offset 0 ;LDT D.P.30173018 000000 ldt0 .DS LDTSIZE3019 00002A ldt1 .DS LDTSIZE3020 000054 ldt2 .DS LDTSIZE3021 00007E ldt3 .DS LDTSIZE3022 0000A8 ldt4 .DS LDTSIZE30233024 0000D2 ldtp .DS 6 ; pointer to LDT's in DPLDT page30253026 0000D8 sysbuf .DS 4 ; floppy track 0 cache buffer30273028 .ENDS30293030 ;---------------------------------------------------------------------------3031 ; direct page for FAT var's3032 ;---------------------------------------------------------------------------30333034 ; P0FAT3035 DPFAT: .SECTION page0, common, ref_only, offset 0 ;FAT D.P.30363037 000000 0000 ostos .DW ; saved top of stack3038 000002 00 ioerr .DB ; i/o error3039 000003 00 ioerr2 .DB ; extended i/o error3040 000004 0000 hcbroot .DW ; HCB struct's list3041 000006 0000 hcblst .DW ; the last one HCB3042 000008 00 hsiz .DB ; how many sector's an HCB can hold3043 000009 00 hlog2 .DB ; shift count related to hsiz3044 00000A 0000 bcbroot .DW ; BCB buffer's list3045 00000C 0000 bcblst .DW ; the last one BCB3046 00000E 0000 dmaroot .DW ; dma BCB buffer's list3047 000010 0000 dmalst .DW ; the last one dma BCB3048 000012 0000 dmabcb .DW ; BCB list for floppy root, cluster#2,#3꠩ 000014 00 fspt .DB ; sector per track (floppy)3050 000015 00 pdrive .DB ; phisycal drive number3051 000016 00 bplvl .DB ; subdir level while build path3052 000017 00 defdrv .DB ; default drive30533054 ; the first block of ldt_ var's is copied from the LDT struct3055 000018 00 ldtfg1 .DB ; logical volume flag's3056 ; <7>: device ready (fdc drive or ata device)3057 ; <6>: if=1->HD/CF else->FD3058 ; <0>: phisycal device number30593060 000019 00 ldtfg2 .DB ; <7>: valid volume (fat volume or cbm disk)3061 ; <6>: if=1->FAT else->CBM (FD only)3062 ; <5>: disk format checked3063 ; <1:0>: disk format (fdc only)30643065 00001A ldtfp LP ; fat table buffer long pointer3066 00001D 00 ldtfbuf .DB ; fat table: x-mem base bank/dma buffer30673068 00001E 0000 ldtroot .DW ; lba of root dir3069 000020 0000 ldtfat1 .DW ; lba of fat1 table3070 000022 0000 ldtfat2 .DW ; lba of fat2 tableTue Jul 17 11:00:21 2018 Page 93071 000024 0000 ldtcls .DW ; lba of first data cluster3072 000026 0000 ldtmax .DW ; max usable cluster + 13073 000028 00 ldtcsiz .DB ; cluster size (1,2,4,8,16,32,64)3074 000029 00 ldtcshf .DB ; cluster shift (0,1,2,3,4,5,6)3075 00002A 00 ldtfsiz .DB ; fat table size (if 0 -> 256)3076 00002B 00 ldtrsiz .DB ; root dir. size (sector's)3077 00002C 0000 ldtrent .DW ; root dir. max. entries3078 00002E 0000 ldtcent .DW ; max. entries in dir. cluster3079 000030 0000 ldteoc .DW ; end of cluster chain marker3080 000032 00 ldtmcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F3081 000033 00 ldtfmt .DB ; floppy disk format (0,1,2, FF if ata device)3082 000034 0000 ldtcdlp .DW ; current working dir list pointer3083 000036 0000 ldtcdcls .DW ; current working dir start cluster3084 000038 0000 ldtfree .DW ; count of free cluster's3085 00003A 0000 ldtnxt .DW ; next free cluster3086 00003C 00 ldtcdlvl .DB ; current working dir level count3087 00003D ldtpbr LP ; long pointer to PBR cache buffer30883089 000040 0000 chdcls .DW ; last accessed chained dir. cluster3090 000042 0000 clsofs .DW ; cluster's offset from start of chain30913092 ; not change order of the 2 following var's: will be accessed as 16 bit var3093 000044 00 entofs .DB ; entry offset from start of sector3094 000045 00 secofs .DB ; sector's offset from start of cluster30953096 000046 0000 dircls .DW ; directory cluster3097 000048 0000 dcnt .DW ; directory entry counter3098 00004A 0000 lba .DW ; lba sector address3099 00004C 0000 lbah .DW ; lba is 24 bit's only3100 00004E 0000 xbuf .DW ; x-mem buffer transfer number31013102 00004C fhead .EQU lbah ; fd head3103 00004E ftrack .EQU xbuf ; fd track3104 00004F fsec .EQU xbuf+1 ; fd sector31053106 000050 00 dfcbtyp .DB ; FCB type to search3107 000051 00 dfcbatt .DB ; attribute of found FCB31083109 000052 00 curdrv .DB ; current logical drive3110 000053 fcbs .DS 11 ; file control block name31113112 ;dcmask .DW ; mask to start of cluster3113 ; FFF0, FFE0, FFC0, FF80, FF00, FE0031143115 00005E 0000 fcbp .DW ; FCB buffer long pointer3116 000060 0000 .DW ; low=fcbp+2, high=x-mem bank or dma buffer3117 000061 dmabuf .EQU fcbp+3 ; dma buffer #3118 000061 xmbank .EQU fcbp+3 ; x-mem bank #31193120 ; temp area3121 000062 00 hcbseq .DB3122 000063 00 hcbdrv .DB3123 000064 0000 bcbcls .DW3124 000066 00 bcbdrv .DB3125 000067 00 bcbsec .DB31263127 000068 0000 thash .DWTue Jul 17 11:00:21 2018 Page 103128 000068 hcbrec .EQU thash3129 000068 wtmp .EQU thash31303131 00006A 0000 hlast .DW3132 00006C 0000 hcbcls .DW3133 00006E 0000 hcbx .DW3134 000070 0000 hcby .DW3135 00006A tmpp .EQU hlast ; temp. long pointer3136 00006E tmpx .EQU hcbx3137 00006F wild .EQU hcbx+13138 000070 fsiz .EQU hcby3139 000071 fptr .EQU hcby+13140 00006E ldrv .EQU hcbx3141 00006F tmpldt .EQU hcbx+131423143 000072 0000 fhash .DW3144 000074 0000 fcbofs .DW3145 000076 00 bcbload .DB3146 000077 00 xstart .DB3147 000078 00 xend .DB3148 000079 00 seccnt .DB3149 00007A 00 maxseq .DB3150 00007B 00 dsiz .DB31513152 00007C 00 haswld .DB3153 00007D 00 strix .DB3154 00007E pathp LP ; long pointer to path string31553156 ; TEMP3157 000081 0000 quot .DW3158 000083 0000 dvsor .DW3159 000085 0000 troot .DW3160 000087 0000 tlst .DW3161 000089 0000 bdmask .DW3162 00008B 0000 bcmask .DW31633164 00008D 00 hcbuse .DB31653166 .ENDS31673172 .LIST on31733174 ; P0OS3175 ; page 0 (LDT var's) local var's3176 _FSTMP: .SECTION page0, ref_only, offset bpath3177 000004 FSTMP_START .EQU $31783179 000004 0000 0000 maxsec .LWORD ; ata device max sector's3180 000008 0000 0000 hidsec .LWORD ; hidden sectors3181 00000C 0000 0000 totsec .LWORD ; partition size in sector's3182 000010 0000 maxcnt .DW ; max. cluster's count3183 000012 0000 first .DW ; relative first data sector31843185 000012 totrsv .EQU first3186 000004 bcbbnk .EQU maxsec3187 000006 hcbsiz .EQU maxsec+23188 000010 hcbrem .EQU maxcntTue Jul 17 11:00:21 2018 Page 113189 000004 tbdrv .EQU maxsec3190 000006 tbcls .EQU maxsec+23191 000008 tblba .EQU hidsec3192 00000A tbhead .EQU hidsec+23193 00000C tbtrk .EQU totsec3194 00000E tbptr .EQU totsec+23195 000010 tbdma .EQU maxcnt3196 000004 fdopt .EQU maxsec3197 000005 fdarg .EQU maxsec+13198 000006 fdlbl .EQU maxsec+231993200 000014 0000 clscnt .DW ; cluster's count #3201 000016 0000 rsvsec .DW ; reserved sector's3202 000018 0000 fatsiz .DW ; FAT16 fat table size3203 00001A 0000 rootsiz .DW ; root directory size3204 00001C 0000 rootent .DW ; root dir. max. entries3205 00001E 0000 clsent .DW ; sub-diectory max. entries3206 000020 0000 root .DW ; root dir start3207 000022 0000 fat1 .DW ; fat1 table start3208 000024 0000 fat2 .DW ; fat 2 table start3209 000026 0000 start .DW ; first data sector3210 000028 0000 maxcls .DW ; last usable cluster+13211 00002A 0000 xfatb .DW ; x-mem fat table buffer32123213 00002A fdix .EQU xfatb ; floppy disk index DD/HD3214 00002B media .EQU xfatb+1 ; floppy disk media field32153216 00002C 0000 flba .DW ; low 16 bit lba3217 00002E 0000 freecnt .DW ; free cluster's count3218 000030 0000 freecls .DW ; first free cluster32193220 00002E remsec .EQU freecnt32213222 000032 pbrp LP ; PBR pointer3223 000035 00 clssiz .DB ; cluster size3224 000036 00 clsshf .DB ; cluster shift3225 000037 00 clsmod .DB3226 000038 00 xbnk .DB ; x-mem bank3227 000039 00 lunit .DB ; unity letter3228 00003A tp LP ; fat cache pointer3229 00003D 00 fdfmt .DB ; floppy format3230 00003E 00 pdev .DB ; phisycal device3231 00003F 00 ldev .DB ; logical device3232 000040 00 ldtcur .DB ; current LDT ptr3233 000041 00 lflag .DB ; flag load fat table3234 000042 00 rtcsec .DB ; seconds3235 000043 00 rtcmin .DB ; minutes32363237 000042 badcls .EQU rtcsec32383239 000044 00 rtchour .DB ; hours3240 000045 00 rtcday .DB ; day of month3241 000046 00 rtcmonth .DB ; month3242 000047 00 rtcyear .DB ; year3243 000048 0000 ctime .DW ; compact time3244 00004A 0000 cdate .DW3245 00004C tlp LPTue Jul 17 11:00:21 2018 Page 123246 00004F 00 fd2ix .DB32473248 00004F nulptr .EQU fd2ix ; flag null ptr32493250 000050 00 rootbnk .DB32513252 000050 getfmt .EQU rootbnk ; get format from floppy disk32533254 000051 00 fatbnk .DB3255 000052 00 clsbnk .DB3256 000053 00 sec100 .DB ; tenths of seconds for ctime (ms stamp)32573258 000050 FSTMP_SIZ .EQU ($-FSTMP_START)3259 .ENDS3263 .LIST on32643265 ;---------------------------------------------------------------------------3266 ; code segment -- bank $F93267 ;---------------------------------------------------------------------------32683269 .CODEF93270 .EXTERN cbmfs_cmd, cbmfs_err ; fscbm.asm3271 .EXTERN lhdfmt, shpart, lfdisk ; fsint.asm3272 .EXTERN prslbl ; fatdir.asm3273 .EXTERN _getopt ; FA/getopt.asm32743275 .LONGA off3276 .LONGI off32773278 ;---------------------------------------------------------------------------3279 ; System interface -- built in command's3280 ;---------------------------------------------------------------------------32813282 000013 lpCmd .SET STKPRMS32833284 F9001D tos_cmd:3285 .GLOBAL tos_cmd32863287 F9001D A3 12 lda STKPBR,s ; bank where was executed cop instruction3288 F9001F 85 53 sta COPPtr+23289 F90021 ACC16 ; retrieve function number3290 F90021 C2 20 rep #PMFLAG3291 .LONGA on3292 .MNLIST3293 F90023 A3 10 lda STKPCL,s ; pointer to byte after signature3294 F90025 85 51 sta COPPtr3295 F90027 1A inc a ; update return address3296 F90028 83 10 sta STKPCL,s3297 F9002A A7 51 lda [COPPtr] ; byte after signature: function number #3298 F9002C AA tax ; X=function number3299 F9002D A9 00 42 lda #P0OS ; set dpr3300 F90030 5B tcd3301 F90031 3B tsc ; save stack pointer3302 F90032 85 02 sta cmdstk3303 F90034 A3 13 lda lpCmd,s3304 F90036 85 4C sta tlp3305 F90038 ACC08Tue Jul 17 11:00:21 2018 Page 133306 F90038 E2 20 sep #PMFLAG3307 .LONGA off3308 .MNLIST3309 F9003A A3 15 lda lpCmd+2,s3310 F9003C 85 4E sta tlp+23311 F9003E E0 02 cpx #MAXCMDS3312 F90040 B0 08 bcs ?10 ; invalid function3313 F90042 8A txa3314 F90043 0A asl a3315 F90044 AA tax ; function index3316 F90045 FC EF 02 jsr (CMDJMP,x)3317 F90048 80 0B bra ?153318 F9004A DA ?10: phx3319 F9004B 4B phk3320 F9004C F4 58 00 pea #!?203321 F9004F A9 05 lda #53322 F90051 48 pha3323 F90052 BPRINTF3324 F90052 02 11 cop $113325 .MNLIST3326 F90054 38 sec3327 F90055 A9 01 ?15: lda #1 ; return always 1 if error3328 F90057 6B rtl33293330 F90058 69 6E 76 61 6C ?20: .DB 'invalid shell function number (%bu).', 13, 069 64 20 73 6865 6C 6C 20 6675 6E 63 74 696F 6E 20 6E 756D 62 65 72 2028 25 62 75 292E 0D 0033313332 ; fdisk command3333 ;3334 ; fdisk [-s] X: ; show partition on drive X3335 ; fdisk -d X: ; delete partition on drive X3336 ; fdisk -c [-llabel] X: ; create partition on drive X and format it3337 ;3338 F9007E fdisk:3339 F9007E 20 EF 01 jsr fdskopt ; get option (A=drive)3340 F90081 B0 10 bcs ?103341 F90083 A4 04 ldy fdopt3342 F90085 D0 03 bne ?023343 F90087 4C C1 16 jmp shpart ; show partition3344 F9008A 88 ?02: dey3345 F9008B F0 06 beq ?04 ; delete partition3346 F9008D A4 06 ldy fdlbl ; flag label3347 F9008F AA tax ; drive3348 F90090 4C EB 0E jmp lfdisk ; create & format3349 F90093 ?04:3350 F90093 60 ?10: rts33513352 ; format logical drive3353 ;3354 ; param's (5 bytes)3355 ;Tue Jul 17 11:00:21 2018 Page 143356 ; bDrive logical drive number3357 ; bFmt format (0,1 or 2) + quick flag (bit 7)3358 ; lpLabel long ptr to label string (volume name)3359 ;3360 ; param's offset3361 000015 lpLabel .SET STKPRMS + 23362 000018 bFmt .SET STKPRMS + 53363 000019 bDrive .SET STKPRMS + 633643365 F90094 format:3366 F90094 A3 19 lda bDrive,s3367 F90096 20 9A 01 jsr chkdrv ; valid drive number?3368 F90099 85 3F sta ldev ; logical drive3369 F9009B A8 tay3370 F9009C A3 18 lda bFmt,s3371 F9009E 85 41 sta lflag ; quick format flag3372 F900A0 29 03 and #33373 F900A2 C9 03 cmp #33374 F900A4 D0 02 bne ?043375 F900A6 A9 02 lda #2 ; force dos HD format3376 F900A8 85 3D ?04: sta fdfmt3377 F900AA B6 D2 ldx ldtp,y3378 F900AC 86 40 stx ldtcur ; LDT ptr3379 F900AE 20 81 01 jsr chkrdy ; drive is ready?3380 F900B1 ACC163381 F900B1 C2 20 rep #PMFLAG3382 .LONGA on3383 .MNLIST3384 F900B3 A3 15 lda lpLabel,s ; get label string pointer3385 F900B5 8D 7E 41 sta !P0FAT+pathp3386 F900B8 85 4C sta tlp3387 F900BA ACC083388 F900BA E2 20 sep #PMFLAG3389 .LONGA off3390 .MNLIST3391 F900BC A0 00 ldy #03392 F900BE A3 17 lda lpLabel+2,s3393 F900C0 85 4E sta tlp+2 ; test null ptr3394 F900C2 8D 80 41 sta !P0FAT+pathp+23395 F900C5 05 4D ora tlp+13396 F900C7 05 4C ora tlp3397 F900C9 F0 01 beq ?06 ; no label3398 F900CB 88 dey ; Y=$FF3399 F900CC 84 4F ?06: sty nulptr ; flag null ptr3400 F900CE 34 00 bit ldt_fg1,x ; test fixed disk/floppy disk3401 F900D0 70 13 bvs ?12 ; fixed disk3402 F900D2 20 67 01 jsr tstfd ; test floppy disk format3403 F900D5 A5 50 lda getfmt ; here X=phisycal drive3404 F900D7 30 04 bmi ?08 ; can't use quick format3405 F900D9 C5 3D cmp fdfmt ; compare with requested format3406 F900DB F0 02 beq ?10 ; we can use quick format3407 F900DD 64 41 ?08: stz lflag ; standard full fd format3408 F900DF A5 3D ?10: lda fdfmt3409 F900E1 C9 01 cmp #13410 ;bne ?12 ; ibm-dos format3411 F900E3 F0 23 beq cbmfmt ; cbm format3412 F900E5 98 ?12: tyaTue Jul 17 11:00:21 2018 Page 153413 F900E6 F0 12 beq ?16 ; no volume name specified3414 F900E8 0B phd3415 F900E9 F4 00 41 pea #P0FAT3416 F900EC 2B pld3417 F900ED 20 96 1E jsr prslbl ; parse label string3418 F900F0 2B pld3419 F900F1 90 07 bcc ?163420 F900F3 F0 03 beq ?14 ; empty string3421 F900F5 4C CB 01 jmp invlbl ; invalid label3422 F900F8 64 4F ?14: stz nulptr ; like if not string given3423 F900FA A6 40 ?16: ldx ldtcur3424 F900FC 34 00 bit ldt_fg1,x ; test fixed disk/floppy disk3425 F900FE 50 07 bvc ?18 ; floppy disk3426 F90100 A6 3E ldx pdev3427 F90102 A4 4F ldy nulptr3428 F90104 4C 56 0F jmp lhdfmt3429 F90107 60 ?18: rts34303431 ; format cbm diskette (X=phisycal drive)3432 F90108 cbmfmt:3433 F90108 A5 4F lda nulptr3434 F9010A F0 32 beq nolbl ; cbm format need a volume name3435 F9010C A9 51 lda #'Q' ; send command "Qx:...." (quick format)3436 F9010E 85 04 sta bpath3437 F90110 8A txa3438 F90111 09 30 ora #'0'3439 F90113 85 05 sta bpath+13440 F90115 A9 3A lda #':'3441 F90117 85 06 sta bpath+23442 F90119 A0 00 ldy #03443 F9011B A2 03 ldx #33444 F9011D B7 4C ?02: lda [tlp],y3445 F9011F 95 04 sta bpath,x3446 F90121 F0 08 beq ?043447 F90123 C8 iny3448 F90124 E8 inx3449 F90125 E0 20 cpx #32 ; max. 32 char's3450 F90127 90 F4 bcc ?023451 F90129 74 04 stz bpath,x ; trunc3452 F9012B A9 04 ?04: lda #bpath ; address of command string3453 F9012D A2 42 ldx #>P0OS3454 F9012F A0 00 ldy #03455 F90131 20 F6 2E jsr cbmfs_cmd ; cbm quick format3456 F90134 B0 01 bcs cbmerr3457 F90136 60 rts3458 F901373459 ;---------------------------------------------------------------------------3460 ; check routines & error handling3461 ;---------------------------------------------------------------------------34623463 ; report cbm emulator error3464 F90137 cbmerr:3465 F90137 20 12 2F jsr cbmfs_err ; return error string pointer (C,X)3466 F9013A SCNSTROUT ; print error string3467 F9013A 02 03 cop $033468 .MNLIST3469 F9013C 80 7D bra cmderrTue Jul 17 11:00:21 2018 Page 1634703471 ; no label/disk name specified error3472 F9013E nolbl:3473 F9013E SCNPRINT3474 F9013E 02 01 cop $013475 .MNLIST3476 F90140 6E 6F 20 6C 61 .DB 'no label nor cbm disk name specified', 062 65 6C 20 6E6F 72 20 63 626D 20 64 69 736B 20 6E 61 6D65 20 73 70 6563 69 66 69 6564 003477 F90165 80 54 bra cmderr34783479 ; test floppy disk and get format (X=LDT pointer)3480 ; return X=phisycal drive3481 F90167 tstfd:3482 F90167 B5 00 lda ldt_fg1,x3483 F90169 29 01 and #13484 F9016B AA tax ; phisycal drive3485 F9016C FDCTST ; check media inside drive3486 F9016C 02 30 cop $303487 F9016E 03 .DB $033488 .MNLIST3489 F9016F 90 04 bcc ?02 ; media ready3490 F90171 C0 11 cpy #FDC_CHANGE ; check error code3491 F90173 D0 10 bne notrdy ; disk not ready3492 F90175 A0 FF ?02: ldy #$FF3493 F90177 84 50 sty getfmt ; invalid disk format3494 F90179 FDCGETFMT ; try to get media format3495 F90179 02 30 cop $303496 F9017B 04 .DB $043497 .MNLIST3498 F9017C B0 02 bcs ?04 ; unformatted disk or unknow disk format3499 F9017E 84 50 sty getfmt ; current disk format3500 F90180 60 ?04: rts35013502 ; check drive ready (X=LDT pinter)3503 F90181 chkrdy:3504 F90181 34 00 bit ldt_fg1,x3505 F90183 30 14 bmi noer3506 F90185 notrdy: SCNPRINT3507 F90185 02 01 cop $013508 .MNLIST3509 F90187 64 72 69 76 65 .DB 'drive not ready', 020 6E 6F 74 2072 65 61 64 79003510 F90197 80 22 bra cmderr35113512 F90199 60 noer: rts3513 F9019A3514 ; check drive number (A=drive #)3515 F9019A chkdrv:3516 F9019A C9 04 cmp #MAXDRVTue Jul 17 11:00:21 2018 Page 173517 F9019C 90 FB bcc noer3518 F9019E 18 clc3519 F9019F F0 F8 beq noer ; usb #0 device3520 F901A1 invdrv: SCNPRINT3521 F901A1 02 01 cop $013522 .MNLIST3523 F901A3 69 6E 76 61 6C .DB 'invalid drive specified', 069 64 20 64 7269 76 65 20 7370 65 63 69 6669 65 64 003524 F901BB cmderr:3525 F901BB SCNPRINT3526 F901BB 02 01 cop $013527 .MNLIST3528 F901BD 2E 0D 00 .DB '.', 13, 03529 F901C0 ACC16CLC3530 F901C0 C2 21 rep #(PMFLAG.OR.PCFLAG)3531 .LONGA on3532 .MNLIST3533 F901C2 A5 02 lda cmdstk ; recover stack3534 F901C4 1B tcs3535 F901C5 ACC083536 F901C5 E2 20 sep #PMFLAG3537 .LONGA off3538 .MNLIST3539 F901C7 A9 01 lda #13540 F901C9 38 sec3541 F901CA 6B rtl ; return to caller35423543 ; invalid label3544 F901CB invlbl:3545 F901CB SCNPRINT3546 F901CB 02 01 cop $013547 .MNLIST3548 F901CD 69 6E 76 61 6C .DB 'invalid label', 069 64 20 6C 6162 65 6C 003549 F901DB 80 DE bra cmderr35503551 ; missing drive3552 F901DD nodrv:3553 F901DD SCNPRINT3554 F901DD 02 01 cop $013555 .MNLIST3556 F901DF 6D 69 73 73 69 .DB 'missing drive', 06E 67 20 64 7269 76 65 003557 F901ED 80 CC bra cmderr35583559 ; parse command line for 'fdisk' command3560 F901EF fdskopt:3561 F901EF 64 04 stz fdopt3562 F901F1 64 05 stz fdarg3563 F901F3 64 06 stz fdlbl3564 F901F5 A2 80 ldx #$803565 F901F7 DA phx ; flagTue Jul 17 11:00:21 2018 Page 183566 F901F8 A6 4E ldx tlp+2 ; command line3567 F901FA DA phx3568 F901FB D4 4C pei (tlp)3569 F901FD 4B phk ; option string3570 F901FE F4 A3 02 pea #!?1003571 F90201 F4 00 00 pea #0 ; result3572 F90204 F4 00 00 pea #03573 F90207 22 09 00 FA ?10: jsl _getopt ; get opttion's loop3574 F9020B B0 48 bcs ?20 ; error3575 F9020D AA tax ; option char3576 F9020E F0 45 beq ?20 ; end of command line3577 F90210 30 31 bmi ?18 ; no option argument3578 F90212 C9 73 cmp #'s'3579 F90214 D0 04 bne ?123580 F90216 64 04 stz fdopt ; show3581 F90218 80 ED bra ?103582 F9021A C9 64 ?12: cmp #'d'3583 F9021C D0 06 bne ?143584 F9021E A9 01 lda #13585 F90220 85 04 sta fdopt ; delete3586 F90222 80 E3 bra ?103587 F90224 C9 63 ?14: cmp #'c'3588 F90226 D0 06 bne ?163589 F90228 A9 02 lda #23590 F9022A 85 04 sta fdopt ; create3591 F9022C 80 D9 bra ?103592 F9022E A3 01 ?16: lda $01,s ; argument for 'l' option3593 F90230 8D 7E 41 sta !P0FAT+pathp3594 F90233 A3 02 lda $02,s ; store argument pointer3595 F90235 8D 7F 41 sta !P0FAT+pathp+13596 F90238 A3 03 lda $03,s3597 F9023A 8D 80 41 sta !P0FAT+pathp+23598 F9023D A9 FF lda #$FF3599 F9023F 85 06 sta fdlbl3600 F90241 80 C4 bra ?103601 F90243 A3 01 ?18: lda $01,s ; argument without option3602 F90245 85 4C sta tlp3603 F90247 A3 02 lda $02,s ; store argument pointer3604 F90249 85 4D sta tlp+13605 F9024B A3 03 lda $03,s3606 F9024D 85 4E sta tlp+23607 F9024F A9 80 lda #$803608 F90251 85 05 sta fdarg3609 F90253 80 B2 bra ?103610 F90255 08 ?20: php ; clean stack3611 F90256 FA plx ; save carry3612 F90257 ACC16CLC3613 F90257 C2 21 rep #(PMFLAG.OR.PCFLAG)3614 .LONGA on3615 .MNLIST3616 F90259 3B tsc3617 F9025A 69 0B 00 adc #113618 F9025D 1B tcs3619 F9025E ACC083620 F9025E E2 20 sep #PMFLAG3621 .LONGA off3622 .MNLISTTue Jul 17 11:00:21 2018 Page 193623 F90260 8A txa3624 F90261 4A lsr a ; test carry3625 F90262 B0 2F bcs ?30 ; exit3626 F90264 24 05 bit fdarg3627 F90266 30 03 bmi ?213628 F90268 4C DD 01 jmp nodrv3629 F9026B 20 CB 02 ?21: jsr drvarg3630 F9026E C9 02 cmp #ATADRV3631 F90270 90 22 bcc ?403632 F90272 A4 04 ldy fdopt3633 F90274 C0 02 cpy #23634 F90276 D0 1A bne ?263635 F90278 24 06 bit fdlbl3636 F9027A 10 16 bpl ?263637 F9027C 85 3F sta ldev3638 F9027E 0B phd3639 F9027F F4 00 41 pea #P0FAT3640 F90282 2B pld3641 F90283 20 96 1E jsr prslbl ; parse label string3642 F90286 2B pld3643 F90287 90 07 bcc ?243644 F90289 F0 03 beq ?22 ; empty string3645 F9028B 4C CB 01 jmp invlbl ; invalid label3646 F9028E 64 06 ?22: stz fdlbl ; like if not string given3647 F90290 A5 3F ?24: lda ldev3648 F90292 18 ?26: clc3649 F90293 60 ?30: rts3650 F90294 69 41 ?40: adc #'A'3651 F90296 48 pha3652 F90297 4B phk3653 F90298 F4 AC 02 pea #!?1103654 F9029B A9 05 lda #53655 F9029D 48 pha3656 F9029E BPRINTF3657 F9029E 02 11 cop $113658 .MNLIST3659 F902A0 4C BB 01 jmp cmderr36603661 F902A3 73 20 63 20 64 ?100: .DB 's c d l:', 020 6C 3A 003662 F902AC 64 72 69 76 65 ?110: .DB 'drive <%c> is not a fixed disk', 020 3C 25 63 3E20 69 73 20 6E6F 74 20 61 2066 69 78 65 6420 64 69 73 6B0036633664 ; check if drive argument is valid3665 F902CB drvarg:3666 F902CB A0 01 ldy #13667 F902CD B7 4C lda [tlp],y3668 F902CF C9 3A cmp #':'3669 F902D1 D0 19 bne ?203670 F902D3 C8 iny3671 F902D4 B7 4C lda [tlp],y3672 F902D6 D0 14 bne ?20Tue Jul 17 11:00:21 2018 Page 203673 F902D8 A7 4C lda [tlp]3674 F902DA C9 61 cmp #'a'3675 F902DC 90 06 bcc ?083676 F902DE C9 7B cmp #'z'+13677 F902E0 B0 03 bcs ?103678 F902E2 29 DF and #$DF3679 F902E4 38 ?08: sec3680 F902E5 E9 41 ?10: sbc #'A'3681 F902E7 90 03 bcc ?203682 F902E9 4C 9A 01 jmp chkdrv3683 F902EC 4C A1 01 ?20: jmp invdrv36843685 ;---------------------------------------------------------------------------3686 ; Tables3687 ;---------------------------------------------------------------------------36883689 ; command's jump table3690 F902EF CMDJMP:3691 F902EF 7E00 9400 .DW fdisk, format36923693 000002 MAXCMDS .EQU ($ - CMDJMP)/2Lines Assembled : 3606 Errors : 0