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\fatsys.asmOutput Filename : obj\F9\fatsys.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 .PUBLIC oserror31803181 .LONGA off3182 .LONGI off31833184 ;---------------------------------------------------------------------------3185 ; error handler3186 ;---------------------------------------------------------------------------31873188 F92412 oserror:Tue Jul 17 11:00:20 2018 Page 113189 F92412 F4 00 41 pea #P0FAT3190 F92415 2B pld3191 F92416 A2 00 ldx #0 ; set DBR=03192 F92418 DA phx3193 F92419 AB plb3194 F9241A INDEX163195 F9241A C2 10 rep #PXFLAG3196 .LONGI on3197 .MNLIST3198 F9241C A6 00 ldx ostos ; restore stack pointer3199 F9241E 9A txs3200 F9241F INDEX083201 F9241F E2 10 sep #PXFLAG3202 .LONGI off3203 .MNLIST3204 F92421 38 sec ; error flag3205 F92422 60 rtsLines Assembled : 3161 Errors : 0