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\fsstart.asmOutput Filename : obj\F9\fsstart.objListing Has Been Relocated2582 .LIST on25832584 F8FFB1 .INCLUDE inc\dirp00.inc2585 ;----------------------------------------------------------2586 ; DIRP00.ASM2587 ; PROGETTO: B16012588 ;2589 ; Variabili in Direct Page $002590 ;----------------------------------------------------------25912592 ; sezione COMMON -- questo permette di includere il file in piu' file25932594 .LIST on25952596 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0025972598 000000 .ABSOLUTE ;; inizia sempre da $002599 000000 .ORG 0x002600 0000002601 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2602 000002 0000 .DW2603 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2604 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2605 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2606 ; <6>: flag warm reset2607 00000D 00 RTCFlag .DB26082609 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12610 ; <7>: device ready2611 ; <6>: compact flash device (C.F.)2612 ; <5>: device identification ok2613 ; <4>: MBR loaded2614 ; <3>: valid signature in MBR2615 ; <2>: first partition found&active2616 ; <1>:2617 ; <0>: valid partition flag26182619 ; <7>: device ready2620 ; <6>: USB device2621 ; <5>: compact flash device (C.F.)2622 ; <4>: device identification ok2623 ; <3>: MBR loaded2624 ; <2>: first partition found&active2625 ; <1>: always 12626 ; <0>: valid partition flag2627 000010Tue Jul 17 11:00:20 2018 Page 226282629 00000E atadev .EQU diskstat26302631 000010 usbdev .DS 2 ; flag flash disk on usb bus #02632 ; <7>: device plugged and ready2633 ; <6>: always 12634 ; <5>: device identification ok2635 ; <4>: MBR loaded2636 ; <3>: valid signature in MBR2637 ; <2>: first partition found&active2638 ; <1>:2639 ; <0>: valid partition flag26402641 000012 diskmax .DS 16 ; disk max. sector's2642 000012 atasec .EQU diskmax2643 00001A usbsec .EQU diskmax+8264426452646 000022 atambr .DS 8 ; data for first partition found in mbr2647 ; first 3 bytes for start sector of partition2648 ; last byte for partition type2649 00002A usbmbr .DS 826502651 000032 ataprt .DS 8 ; total sec's of first partition2652 00003A usbprt .DS 8 ; total sec's of first partition265326542655 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2656 ; <7>: module on2657 ; <6>: ch376 flag2658 ; <5:0>: chip version26592660 000043 00 usb0st .DB ; usb0 status2661 ; <7>: usb0 host mode ok2662 ; <6>: flash disk attached flag2663 ; <5>: usb device attached26642665 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2666 ; <7>: disk format established in bit 0&12667 ; <6>: double step seek done2668 ; <5>: trust format bit's (set after ok r/w)2669 ; <4>: write protect bit (if disk in drive)2670 ; <3>: don't care2671 ; <2>: don't care2672 ; <1>: HD disk if set else DD disk2673 ; <0>: CBM format if set else IBM format26742675 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2676 ; <7>: disk format established in bit 0&12677 ; <6>: change disk simulation (after format)2678 ; <5>: don't care2679 ; <4>: write protect bit (under sw control)2680 ; <3>: don't care2681 ; <2>: don't care2682 ; <1>: HD disk if set else DD disk2683 ; <0>: CBM format if set else IBM format2684Tue Jul 17 11:00:20 2018 Page 32685 000046 00 fdcctl .DB ; fdc controller status2686 ; <7>: drive is attached2687 ; <6>: drive need recalibration (restore)2688 ; <5>: FDC controller ok2689 ; <4>: motor on2690 ; <3>: dma is active2691 ; <2>: dma chip ok (post routine)2692 ; <1>: clock rate (1=HD,0=DD)2693 ; <0>: disk ready26942695 000047 00 fdctrk .DB ; fd: current seek track2696 000048 00 fdcerr .DB ; fd: last error code2697 000049 00 ataerr .DB ; ata: last error code2698 00004A 00 ataxer .DB ; ata: last extended error code26992700 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27012702 00004C 0000 MemTop .DW ; top memoria RAM2703 00004E 00 .DB ; banco top mem27042705 00004F 00 DflTxtIn .DB ; device di default text input2706 000050 00 DflTxtOut .DB ; device di default text output27072708 000051 COPPtr LP ; long pointer for COP decoding2709 000054 00 COPIdx .DB ; COP signature/index27102711 000055 00 BiosEnt .DB ; flag accesso a bios setup27122713 ; variabili utilizzate da ACIA2714 000056 spwrk .DS $3027152716 ; bios mem2717 000086 0000 nsize .DW ; dimensione blocco da allocare2718 ;bsize .DW ; dimensione vera blocco free2719 000088 0000 splitsz .DW ; dimensione blocco splittato2720 00008A 0000 bfree .DW ; puntatore blocco free2721 00008C 0000 hdrptr .DW ; puntatore header heap27222723 00008E 0000 pbrklv .DW ; current break level of current process2724 000090 0000 pbrkmin .DW ; minimum breal level of current process2725 000092 0000 pbrkmax .DW ; maximum breal level of current process2726 0000942727 ; bios temp. work area2728 000094 bwrktmp .DS $2827292730 0000BC 00 coptmp .DB ; temp. used while cop27312732 0000BD 00 tstser .DB ; check ser/usb test board post2733 ; <7>: VIA2 ok2734 ; <6>: PICRAM ok2735 ; <1>: UART 16C550 ok2736 ; <0>: R65C51 ok273727382739 ;crc16 .DW27402741 0000BD .RELATIVETue Jul 17 11:00:20 2018 Page 427422743 .ENDS27442745 [01] .IFDEF _ACIA_INC_2746 .INCLUDE INC\SP.INC2747 [00] .ENDIF27482762 .LIST on27632764 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera27652766 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0127672768 000000 .ABSOLUTE ;; inizia sempre da $002769 000000 .ORG 0x0027702771 0000002772 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2773 000060 00 KbdITail .DB ; coda buffer tastiera2774 000061 00 KbdIHead .DB ; testa buffer tastiera2775 000062 00 KbdCnt .DB ; numero bytes nel buffer2776 000063 00 KbdShift .DB2777 000064 00 KbdFlag .DB2778 000065 00 KbdToggle .DB2779 000066 00 KbdSt .DB ; status tastiera dopo reset2780 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard27812782 000068 00 LCDFlag .DB2783 000069 00 LCDTmp .DB2784 00006A 0000 LCDVal .DW27852786 00006C 00 VBBFlag .DB ; flag video board2787 00006D 00 VBBRam .DB ; flag video RAM27882789 00006E 00 ScnLinTmp .DB2790 00006F 00 ScnChBase .DB ; base video ram VDC2791 000070 00 ScnAttBase .DB ; base ram attributi VDC2792 000071 00 ScnCursMode .DB ; VDC cursore default2793 000072 00 ScnSaveAttr .DB2794 000073 00 ScnInsert .DB2795 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2796 000075 00 ScnScroll .DB2797 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)2798 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)27992800 000078 ScnMapTabs1 .DS 102801 000082 ScnMapTabs2 .DS 42802 0000862803 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente2804 000088 00 .DB28052806 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro28072808 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente2809 00008C 00 .DB28102811 00008D 00 ScnTmpx .DB ; temporaneo: durante put charTue Jul 17 11:00:20 2018 Page 52812 00008E2813 00008E 00 ScnTop .DB ; riga superiore finestra2814 00008F 00 ScnLeft .DB ; colonna sinistra finestra2815 000090 00 ScnBottom .DB ; riga inferiore finestra2816 000091 00 ScnRight .DB ; colonna destra finestra2817 000092 00 ScnAttr .DB ; attributo default2818 000093 00 ScnAttr2 .DB ; attributo alternativo2819 000094 00 ScnRow .DB ; riga cursore2820 000095 00 ScnCol .DB ; colonna cursore2821 000096 00 ScnRowStart .DB ; riga di start input2822 000097 00 ScnInput .DB ; riga di fine input2823 000098 00 ScnColStart .DB ; colonna di start input2824 000099 00 ScnSaveX .DB2825 00009A 00 ScnSaveY .DB2826 00009B 00 ScnTmpL .DB2827 00009C 00 ScnTmpH .DB2828 00009D 00 ScnSaveRow .DB2829 00009E 00 ScnSaveCol .DB2830 00009F 00 ScnCurChr .DB2831 0000A0 00 ScnLstChr .DB2832 0000A1 00 ScnCR .DB2833 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm2834 0000A4 00 .DB ; banco puntatore ScnPrm2835 0000A5 00 ScnMode .DB ; flag modo schermo28362837 0000A6 ScnPtr1 LP28382839 0000A9 00 ScnDefCol .DB ; default foreground color28402841 0000AA ScnPtr2 LP28422843 0000AD 00 ScnDefBkgCol .DB ; default background color2844 0000AE 00 ScnInpRow .DB ; modo input line: riga start input2845 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input2846 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input2847 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input2848 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica2849 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea2850 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea2851 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL2852 ;DflTxtIn .DB ; device di default text input2853 ;DflTxtOut .DB ; device di default text output2854 0000B62855 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)28562857 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)28582859 ; variabili monitor2860 0000B6 00 SMAddrL .DB ; address low/high2861 0000B7 00 SMAddrH .DB2862 0000B8 00 SMAddrK .DB ; address bank2863 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit2864 0000BA 00 SMTmpL .DB ; temp. low/high2865 0000BB 00 SMTmpH .DB2866 0000BC 00 SMTmpK .DB ; temp. bank2867 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit2868 0000BE 00 SMSizeL .DB ; size low/highTue Jul 17 11:00:20 2018 Page 62869 0000BF 00 SMSizeH .DB2870 0000C0 00 SMSizeK .DB ; size bank2871 0000C1 00 SMXAddrL .DB ; address low/high XM2872 0000C2 00 SMXAddrH .DB2873 0000C3 00 SMXAddrK .DB ; address bank XM2874 0000C4 00 SMbndx .DB ; indice input buffer2875 0000C5 00 SMnprm .DB ; numero parametri riga di comando2876 0000C6 00 SMdumb .DB2877 0000C7 00 SMkr .DB2878 0000C8 0000 SMpc .DW2879 0000CA 00 SMsr .DB2880 0000CB 00 SMbr .DB2881 0000CC 0000 SMdp .DW2882 0000CE 0000 SMac .DW2883 0000D0 0000 SMxr .DW2884 0000D2 0000 SMyr .DW2885 0000D4 0000 SMsp .DW28862887 0000D6 00 SMAuxL .DB2888 0000D7 00 SMAuxH .DB28892890 0000D8 00 asmlong .DB ; flag for CPU in 16 mode2891 ; <7> -> A/M in 16 bit mode2892 ; <6> -> X/Y in 16 bit mode2893 0000D9 00 asmcpu .DB ; <7> -> 8 bit family2894 ; <6> -> 65C02 cmos version28952896 0000DA 00 SMctx .DB ; context (if = $00 no quit command)2897 0000DB SMrsm LP ; long pointer to resume caller context28982899 0000DE 00 rtcadr .DB ; rtc internal ram address2900 0000DF 00 rtcbnk .DB ; RTC internal bank ram2901 0000E0 00 cmdlin .DB ;2902 0000E1 00 SMesc .DB29032904 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp29052906 0000E2 SMTmp2 .EQU SMXTmp2907 0000E4 SMTmp3 .EQU SMXTmp+22908 0000E6 SMdwTmp1 .EQU SMXTmp+42909 0000EA SMdwTmp2 .EQU SMXTmp+82910 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update2911 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update2912 0000F0 SMXPos2 .EQU SMXTmp+142913 0000F1 SMYPos2 .EQU SMXTmp+152914 0000F2 SMXPos3 .EQU SMXTmp+162915 0000F3 SMYPos3 .EQU SMXTmp+172916 ;SMAuxL .EQU SMXTmp+182917 ;SMAuxH .EQU SMXTmp+192918 0000F6 SMXPos .EQU SMXTmp+202919 0000F7 SMYPos .EQU SMXTmp+212920 0000F8 SMdwTmp3 .EQU SMXTmp+2229212922 0000E2 atcmd .EQU SMXTmp ; save @ command2923 0000E3 atnum .EQU SMXTmp+1 ; @ command index2924 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag2925 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bankTue Jul 17 11:00:20 2018 Page 72926 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)2927 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)2928 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)2929 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)2930 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer2931 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag2932 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)2933 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)2934 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer2935 0000F8 atsa .EQU SMXTmp+22 ; @ sa29362937 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion2938 0000E3 brtcsec .EQU SMXTmp+12939 0000E4 brtcmin .EQU SMXTmp+22940 0000E5 brtchour .EQU SMXTmp+32941 0000E6 brtcday .EQU SMXTmp+42942 0000E7 brtcmonth .EQU SMXTmp+52943 0000E8 brtcyear .EQU SMXTmp+62944 0000E9 brtcct .EQU SMXTmp+7294529462947 0000FC .RELATIVE29482949 .ENDS29502958 .LIST on29592960 F8FFB1 .INCLUDE INC\LDT.INC2961 ; LDT.INC29622963 [02] .IFNDEF __LDT_INC__2964 000001 __LDT_INC__ .SET 129652966 .LIST on2967 ;---------------------------------------------------------------------------2968 ; Logical Drive Table (LDT) -- page 0 offset's2969 ;---------------------------------------------------------------------------29702971 F8FFB1 STRUCT LDT2972 _LDT .SECTION page0,common,ref_only,offset 0 ;LDT Struct2973 ;.ABSOLUTE2974 ;.ORG 02975 .MNLIST2976 000000 00 ldt_fg1 .DB ; logical volume flag's2977 ; <7>: device ready (fdc drive or ata device)2978 ; <6>: if=1->HD/CF else->FD2979 ; <1:0>: phisycal device number29802981 000001 00 ldt_fg2 .DB ; <7>: valid volume (fat volume or cbm disk)2982 ; <6>: if=1->FAT else->CBM (FD only)2983 ; <5>: disk format checked2984 ; <1:0>: disk format (fdc only)29852986 000002 0000 ldt_root .DW ; lba of root dir2987 000004 0000 ldt_fat1 .DW ; lba of fat1 table2988 000006 0000 ldt_fat2 .DW ; lba of fat2 table2989 000008 0000 ldt_cls .DW ; lba of first data clusterTue Jul 17 11:00:20 2018 Page 82990 00000A 0000 ldt_max .DW ; max usable cluster + 12991 00000C 0000 ldt_rent .DW ; root dir. max. entries2992 00000E 0000 ldt_cent .DW ; max. entries in dir. cluster2993 000010 0000 ldt_eoc .DW ; end of cluster chain marker2994 000012 0000 ldt_free .DW ; count of free cluster's2995 000014 0000 ldt_nxt .DW ; next free cluster2996 000016 0000 ldt_fsiz .DW ; fat table size29972998 000018 00 ldt_csiz .DB ; cluster size (1,2,4,8,16,32,64)2999 000019 00 ldt_cshf .DB ; cluster shift (0,1,2,3,4,5,6)3000 00001A 00 ldt_rsiz .DB ; root dir. size (sector's)3001 00001B 00 ldt_mcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F3002 00001C 0000 ldt_cdlp .DW ; current working dir list pointer3003 00001E 0000 ldt_cdcls .DW ; current working dir start cluster3004 000020 00 ldt_cdlvl .DB ; current working dir level count30053006 000021 00 ldt_ptype .DB3007 000022 0000 0000 ldt_pstart .LWORD3008 000026 0000 0000 ldt_psize .LWORD30093010 000022 ldt_fp .EQU ldt_pstart ; fat table buffer long pointer3011 000025 ldt_fbuf .EQU ldt_pstart+3 ; fat table: x-mem base bank/dma buffer30123013 000026 ldt_pbr .EQU ldt_psize ; long pointer to PBR cache buffer3014 000029 ldt_fmt .EQU ldt_psize+330153016 00002A ESTRUCT LDT3017 00002A LDTSIZE .DS 03018 ;.RELATIVE3019 .ENDS3020 .MNLIST30213022 [01] .ENDIF302330243025 000100 CLSBUF .EQU $100 ; dma buffer of cluster cache3026 000040 CLSMAXSIZ .EQU 64 ; max. size of cluster in sector's30273028 ;---------------------------------------------------------------------------3029 ; FAT Working Segment3030 ;---------------------------------------------------------------------------30313032 010000 FATSEG .EQU $0100003033 000001 FATBNK .EQU .SEG.FATSEG ; FAT working bank30343035 010000 FS .SET FATSEG3036 01FFFF FE .SET FATSEG + $FFFF3037 018C00 FO .SET $018C0030383039 _FATS: .SECTION ref_only, common, offset FO, range FS FE ;FAT Segment3040 018C00 _FATS_START .DS 030413042 018C00 _pbr0 .DS 5123043 018E00 _pbr1 .DS 5123044 019000 _pbr2 .DS 5123045 019200 _pbr3 .DS 5123046Tue Jul 17 11:00:20 2018 Page 93047 019400 _FATS_END .DS 03048 000800 FATSSIZ .EQU (_FATS_END - _FATS_START)3049 .ENDS30503051 ;---------------------------------------------------------------------------3052 ; direct page for LDT tables (P0LDT direct page)3053 ;---------------------------------------------------------------------------30543055 _DPLDT: .SECTION page0, common, ref_only, offset 0 ;LDT D.P.30563057 000000 ldt0 .DS LDTSIZE3058 00002A ldt1 .DS LDTSIZE3059 000054 ldt2 .DS LDTSIZE3060 00007E ldt3 .DS LDTSIZE3061 0000A8 ldt4 .DS LDTSIZE3062 0000D2 ldt5 .DS LDTSIZE30633064 0000FC _DPLDT_END .DS 030653066 .ENDS306730683069 ;---------------------------------------------------------------------------3070 ; FAT var's direct page (P0FAT direct page)3071 ;---------------------------------------------------------------------------30723073 _DPFAT: .SECTION page0, common, ref_only, offset 0 ;FAT D.P.30743075 000000 00 ldtfg1 .DB ; logical volume flag's3076 ; <7>: device ready (fdc drive or ata device)3077 ; <6>: if=1->HD/CF else->FD3078 ; <0>: phisycal device number30793080 000001 00 ldtfg2 .DB ; <7>: valid volume (fat volume or cbm disk)3081 ; <6>: if=1->FAT else->CBM (FD only)3082 ; <5>: disk format checked3083 ; <1:0>: disk format (fdc only)30843085 000002 0000 ldtroot .DW ; lba of root dir3086 000004 0000 ldtfat1 .DW ; lba of fat1 table3087 000006 0000 ldtfat2 .DW ; lba of fat2 table3088 000008 0000 ldtcls .DW ; lba of first data cluster3089 00000A 0000 ldtmax .DW ; max usable cluster + 13090 00000C 0000 ldtrent .DW ; root dir. max. entries3091 00000E 0000 ldtcent .DW ; max. entries in dir. cluster3092 000010 0000 ldteoc .DW ; end of cluster chain marker3093 000012 0000 ldtfree .DW ; count of free cluster's3094 000014 0000 ldtnxt .DW ; next free cluster3095 000016 0000 ldtfsiz .DW ; fat table size30963097 000018 00 ldtcsiz .DB ; cluster size (1,2,4,8,16,32,64)3098 000019 00 ldtcshf .DB ; cluster shift (0,1,2,3,4,5,6)3099 00001A 00 ldtrsiz .DB ; root dir. size (sector's)3100 00001B 00 ldtmcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F3101 00001C 0000 ldtcdlp .DW ; current working dir list pointer3102 00001E 0000 ldtcdcls .DW ; current working dir start cluster3103 000020 00 ldtcdlvl .DB ; current working dir level countTue Jul 17 11:00:20 2018 Page 1031043105 ; ---------------------------31063107 000021 00 curldt .DB ; pointer to current LDT3108 000022 ldtp .DS 6 ; LDT's pointer3109 000028 00 defdrv .DB ; default logical drive3110 000029 00 curdrv .DB ; current logical drive31113112 00002A 0000 0000 lba .LWORD ; current lba3113 00002E 0000 wseccnt .DW ; sector count31143115 000030 00 defhsec .DB ; default hidden sector's in fdisk3116 000031 00 pdrive .DB ; phisycal drive number (temp.)31173118 000032 _fattmp .DS 4831193120 .ENDS31213127 .LIST on31283129 _FATTMP: .SECTION page0, ref_only, offset _fattmp3130 000032 FATTMP_START .EQU $31313132 000032 0000 0000 hidsec .LWORD ; hidden sectors3133 000036 0000 0000 totsec .LWORD ; partition size in sector's3134 00003A 0000 0000 maxsec .LWORD ; device max sector's count3135 00003E 0000 freecnt .DW ; free cluster's count3136 00003E mbrflag .EQU freecnt ; mbr partition flag (low 8 bits only)3137 000040 0000 nextfree .DW ; next free cluster3138 000042 0000 maxcls .DW ; last usable cluster+13139 000042 mbrtype .EQU maxcls ; mbr partition type (low 8 bits only)3140 000044 0000 fatsize .DW ; FAT16 fat table size3141 000046 0000 clscnt .DW ; cluster's count #3142 000048 0000 ncnt .DW ; generic counter31433144 00004A 00 ldrv .DB ; temp.: logical drive3145 00004B 00 ldttmp .DB ; temp.: LDT pointer3146 00004C 00 pdev .DB ; temp.: phisycal drive31473148 00001B FATTMP_SIZ .EQU ($ - FATTMP_START)3149 .ENDS315031513152 ;---------------------------------------------------------------------------3153 ; code segment -- bank $F93154 ;---------------------------------------------------------------------------31553156 .CODEF931573158 .comment @3159 ; getfreecnt - compute free cluster's count scanning fat table3160 ; in: X = logical drive3161 ; out: LDT of logical drive is updated3162 ; CF = 1 if error3163 ;3164 ; fat table is loaded in dma buffer # $100, devoted to cluster cache and3165 ; limited to 64 sectorsTue Jul 17 11:00:20 2018 Page 113166 ;3167 getfreecnt:3168 stx ldrv ; logical drive3169 ldy ldtp,x ; LDT pointer3170 sty ldttmp ; save LDT pointer3171 stz tlp ; init dma buffer pointer3172 stz tlp+13173 lda #DMABNK3174 sta tlp+23175 lda !P0LDT+ldt_fg1,y3176 and #00000011B3177 sta pdrive ; phisycal drive3178 ACC163179 lda !P0LDT+ldt_fat1,y3180 sta lba ; start sector of fat 1 table3181 stz lba+23182 stz freecnt ; count of free clusters3183 stz nxtfree ; free next cluster3184 stz clscnt ; cluster numbering3185 lda !P0LDT+ldt_max,y3186 sta maxcls ; max. cluster number + 13187 lda !P0LDT+ldt_fsiz,y3188 sta fatsize ; store fat table size31893190 ?lp: lda fatsize3191 cmp #CLSMAXSIZ3192 bcc ?less3193 lda #CLSMAXSIZ3194 ?less: sta wseccnt ; sectors count #3195 ACC083196 lda pdrive ; phisycal device #3197 pha3198 pei (lba+2) ; start sector3199 pei (lba)3200 lda seccnt ; sector's count3201 pha3202 pea #CLSBUF ; dma cliuster buffer3203 DISKRD ; read dik sector3204 bcs ?? ; error (Y = error code)32053206 ldy #03207 CPU163208 lda wseccnt3209 xba3210 asl a ; bytes count #3211 sta ncnt3212 ldx clscnt ; X = current cluster number3213 ?lpf: lda [tlp],y ; scan fat table3214 bne ?nxt ; not free3215 inc freecnt ; update free cluster's count3216 lda nxtfree ; already set?3217 bne ?nxt ; yes3218 stx nxtfree ; set first free cluster3219 ?nxt: inx ; update cluster number3220 iny3221 iny3222 cpx maxcls ; end of table?Tue Jul 17 11:00:20 2018 Page 123223 bcs ?done ; yes3224 cpy ncnt ; end of partial table?3225 bcc ?lpf ; no3226 stx cluster ; save current cluster number3227 INDEX083228 lda fatsize3229 sec3230 sbc wseccnt3231 beq ?done ; end3232 sta fatsize3233 clc3234 lda lba3235 adc wseccnt3236 bcc ?lp3237 inc lba+23238 bra ?lp3239 ?done: CPU083240 clc3241 ?err: ACC163242 ldy ldttmp ; LDT pointer3243 lda freecnt3244 sta !P0LDT+ldt_free,y3245 lda nxtfree3246 sta !P0LDT+ldt_nxt,y3247 ACC083248 rts3249 @32503251 .comment @3252 ; load & check disk mbr3253 mbrld:3254 lda pdev ; phisycal device #3255 pha3256 pea #0 ; load sector #03257 pea #03258 lda #1 ; load 1 sector3259 pha3260 pea #$0100 ; dma buffer #2563261 DISKRD ; read dik sector3262 bcs ?? ; error (Y = error code)32633264 lda #$10 ; set bit mbr loaded3265 sta tmp3266 CPU163267 ldy #$01FE ; signature pointer3268 lda [bufp],y3269 sta mbrsgn ; mbr signature3270 ldy #$01C2 ; partition type pointer3271 lda [bufp],y3272 sta wtmp ; partition type3273 ldy #$01C6 ; partition start pointer3274 lda [bufp],y3275 sta nlba ; partition start3276 iny3277 iny3278 lda [bufp],y3279 sta nlba+2Tue Jul 17 11:00:20 2018 Page 133280 ldy #$01BE ; partition flag pointer3281 lda [bufp],y3282 sta mbrfg ; partition flag3283 lda mbrsgn3284 cmp #$AA553285 CPU083286 bne ?20 ; invalid mbr signature3287 lda #$18 ; add valid mbr signature flag3288 sta tmp3289 lda mbrfg ; must be $80 or 03290 beq ?vv3291 bpl ?20 ; first partition invalid3292 ?vv: lda #$1C ; add active partition flag3293 sta tmp3294 lda drive3295 asl a3296 asl a3297 tax ; index for access to atambr var3298 lda wtmp ; partition type3299 tay3300 sta atambr+3,x ; store partition type3301 lda nlba+2 ; store partition start3302 sta atambr+2,x3303 lda nlba+13304 sta atambr+1,x3305 lda nlba3306 sta atambr,x3307 lda nlba+3 ; must be 03308 bne ?203309 cpy #$06 ; just FAT16 type3310 beq ?103311 cpy #$04 ; FAT 16 for disk less than 32Mb3312 beq ?103313 cpy #$0E3314 bne ?203315 ?10: CPU163316 ldy #$01CA ; partition sec's count pointer3317 lda [bufp],y3318 sta ataprt,x3319 iny3320 iny3321 lda [bufp],y3322 sta ataprt+2,x3323 CPU083324 lda #$1D ; add valid partition type3325 sta tmp3326 ?20: ldx drive ; update device flag3327 lda atadev,x3328 ora tmp3329 sta atadev,x3330 clc3331 ?30: rts33323333 ; load & check pbr3334 lda pdev ; phisycal device #3335 pha3336 pei (lba+2) ; load pbr sectorTue Jul 17 11:00:20 2018 Page 143337 pea (lba)3338 lda #1 ; load 1 sector3339 pha3340 pea #$0100 ; dma buffer #2563341 DISKRD ; read dik sector3342 bcs ?? ; error (Y = error code)33433344 lda pdev ; phisycal drive3345 asl a3346 asl a3347 asl a3348 tax3349 ACC163350 lda !atambr,x ; partition start3351 sta hidsec ; this is also hidden sectors count3352 lda !atambr+2,x3353 and #$00FF3354 sta hidsec+23355 lda !ataprt,x ; total partition sector's3356 sta totsec3357 lda !ataprt+2,x3358 sta totsec+23359 ldx ldtcur ; LDT ptr33603361 ; entry point to check usb #0 disk3362 chk16c:3363 ACC163364 ldx pbrp+13365 inx3366 stx pbrp+13367 lda #MAXF163368 sta maxcnt3369 ldy #$FE ; pointer to pbr signature3370 lda [pbrp],y3371 cmp #$AA553372 bne ?10 ; signature error3373 dex3374 stx pbrp+13375 ldy #$0B ; pointer to bytes per sector3376 lda [pbrp],y3377 cmp #$0200 ; must be always 512 bytes per sector3378 bne ?10 ; error3379 ldy #$1C ; pointer to hidden sector's count3380 lda [pbrp],y ; typical value: $3F3381 cmp hidsec ; must match3382 bne ?103383 iny3384 iny3385 lda [pbrp],y3386 cmp hidsec+23387 bne ?103388 cmp #03389 bne ?10 ; must be 03390 ldy #$0E ; pointer to reserved sector's3391 lda [pbrp],y ; typical value: 1 (no mandatory)3392 sta rsvsec3393 ldy #$11 ; pointer to root dir entry #Tue Jul 17 11:00:20 2018 Page 153394 lda [pbrp],y3395 beq ?10 ; fat32?3396 cmp #$0200 ; typical value: not mandatory...3397 bne ?10 ; ...but this will be3398 sta rootent3399 lsr a ; divide by 16...3400 lsr a3401 lsr a3402 lsr a ;...to get root dir size in sec's3403 sta rootsiz3404 ldy #$13 ; pointer to tot. sec163405 lda [pbrp],y3406 beq ?06 ; invalid: is valid field tot. sec323407 cmp totsec3408 bne ?10 ; error3409 lda totsec+2 ; must be 03410 bne ?10 ; errore3411 beq ?08 ; ok3412 ?06: ldy #$20 ; pointer to tot. sec323413 lda [pbrp],y3414 cmp totsec3415 bne ?10 ; error3416 iny3417 iny3418 lda [pbrp],y3419 cmp totsec+23420 bne ?10 ; error3421 ?08: ldy #$16 ; pointer to fat size (FAT16)3422 lda [pbrp],y3423 sta fatsiz3424 beq ?10 ; hmmm... is fat32... not good3425 cmp #257 ; fat16 table size limited to 256 sec. max3426 bra ?123427 ?10: sec3428 ?12: CPU083429 bcs ?18 ; error3430 ldy #$15 ; pointer to media byte3431 lda [pbrp],y ; must be $F83432 cmp #$F83433 bne ?163434 ldy #$10 ; pointer to count of fat table's3435 lda [pbrp],y3436 cmp #2 ; must be 23437 bne ?163438 ldy #$0D ; pointer to sector(s) per cluster3439 lda [pbrp],y3440 ldx #CLSCNT-13441 ?14: cmp >CLSSIZE,x3442 beq ?203443 dex3444 bpl ?143445 ?16: sec3446 ?18: rts3447 ?20: sta clssiz3448 dec a3449 sta clsmod3450 lda >CLSSHIFT,xTue Jul 17 11:00:20 2018 Page 163451 sta clsshf3452 clc3453 rts34543455 @345634573458 ;---------------------------------------------------------------------------3459 ; tables3460 ;---------------------------------------------------------------------------34613462 ; address of pbr buffer of fixed disk's3463 F902F3 PBRBUFL:3464 ;.DB <_pbr0, <_pbr1, <_pbr2, <_pbr33465 F902F3 PBRBUFH:3466 F902F3 8C 8E 90 92 .DB >_pbr0, >_pbr1, >_pbr2, >_pbr33467 F902F73468 ; sector's per cluster table3469 F902F7 CLSSIZE:3470 F902F7 01 02 04 08 10 .DB $01, $02, $04, $08, $10, $20, $4020 4034713472 000007 CLSCNT .EQU $-CLSSIZE34733474 ; sector's per cluster shift table3475 F902FE CLSSHIFT:3476 F902FE 00 01 02 03 04 .DB $00, $01, $02, $03, $04, $05, $0605 06Lines Assembled : 3455 Errors : 0