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\fsint.asmOutput Filename : obj\F9\fsint.objListing Has Been Relocated2606 .LIST on26072608 F8FFB1 .INCLUDE inc\dirp00.inc2609 ;----------------------------------------------------------2610 ; DIRP00.ASM2611 ; PROGETTO: B16012612 ;2613 ; Variabili in Direct Page $002614 ;----------------------------------------------------------26152616 ; sezione COMMON -- questo permette di includere il file in piu' file26172618 .LIST on26192620 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026212622 000000 .ABSOLUTE ;; inizia sempre da $002623 000000 .ORG 0x002624 0000002625 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2626 000002 0000 .DW2627 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2628 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2629 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2630 ; <6>: flag warm reset2631 00000D 00 RTCFlag .DB26322633 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12634 ; <7>: device ready2635 ; <6>: compact flash device (C.F.)2636 ; <5>: device identification ok2637 ; <4>: MBR loaded2638 ; <3>: valid signature in MBR2639 ; <2>: first partition found&active2640 ; <1>:2641 ; <0>: valid partition flag26422643 ; <7>: device ready2644 ; <6>: USB device2645 ; <5>: compact flash device (C.F.)2646 ; <4>: device identification ok2647 ; <3>: MBR loaded2648 ; <2>: first partition found&active2649 ; <1>: always 12650 ; <0>: valid partition flag2651 000010Tue Jul 17 11:00:20 2018 Page 226522653 00000E atadev .EQU diskstat26542655 000010 usbdev .DS 2 ; flag flash disk on usb bus #02656 ; <7>: device plugged and ready2657 ; <6>: always 12658 ; <5>: device identification ok2659 ; <4>: MBR loaded2660 ; <3>: valid signature in MBR2661 ; <2>: first partition found&active2662 ; <1>:2663 ; <0>: valid partition flag26642665 000012 diskmax .DS 16 ; disk max. sector's2666 000012 atasec .EQU diskmax2667 00001A usbsec .EQU diskmax+8266826692670 000022 atambr .DS 8 ; data for first partition found in mbr2671 ; first 3 bytes for start sector of partition2672 ; last byte for partition type2673 00002A usbmbr .DS 826742675 000032 ataprt .DS 8 ; total sec's of first partition2676 00003A usbprt .DS 8 ; total sec's of first partition267726782679 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2680 ; <7>: module on2681 ; <6>: ch376 flag2682 ; <5:0>: chip version26832684 000043 00 usb0st .DB ; usb0 status2685 ; <7>: usb0 host mode ok2686 ; <6>: flash disk attached flag2687 ; <5>: usb device attached26882689 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2690 ; <7>: disk format established in bit 0&12691 ; <6>: double step seek done2692 ; <5>: trust format bit's (set after ok r/w)2693 ; <4>: write protect bit (if disk in drive)2694 ; <3>: don't care2695 ; <2>: don't care2696 ; <1>: HD disk if set else DD disk2697 ; <0>: CBM format if set else IBM format26982699 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2700 ; <7>: disk format established in bit 0&12701 ; <6>: change disk simulation (after format)2702 ; <5>: don't care2703 ; <4>: write protect bit (under sw control)2704 ; <3>: don't care2705 ; <2>: don't care2706 ; <1>: HD disk if set else DD disk2707 ; <0>: CBM format if set else IBM format2708Tue Jul 17 11:00:20 2018 Page 32709 000046 00 fdcctl .DB ; fdc controller status2710 ; <7>: drive is attached2711 ; <6>: drive need recalibration (restore)2712 ; <5>: FDC controller ok2713 ; <4>: motor on2714 ; <3>: dma is active2715 ; <2>: dma chip ok (post routine)2716 ; <1>: clock rate (1=HD,0=DD)2717 ; <0>: disk ready27182719 000047 00 fdctrk .DB ; fd: current seek track2720 000048 00 fdcerr .DB ; fd: last error code2721 000049 00 ataerr .DB ; ata: last error code2722 00004A 00 ataxer .DB ; ata: last extended error code27232724 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27252726 00004C 0000 MemTop .DW ; top memoria RAM2727 00004E 00 .DB ; banco top mem27282729 00004F 00 DflTxtIn .DB ; device di default text input2730 000050 00 DflTxtOut .DB ; device di default text output27312732 000051 COPPtr LP ; long pointer for COP decoding2733 000054 00 COPIdx .DB ; COP signature/index27342735 000055 00 BiosEnt .DB ; flag accesso a bios setup27362737 ; variabili utilizzate da ACIA2738 000056 spwrk .DS $3027392740 ; bios mem2741 000086 0000 nsize .DW ; dimensione blocco da allocare2742 ;bsize .DW ; dimensione vera blocco free2743 000088 0000 splitsz .DW ; dimensione blocco splittato2744 00008A 0000 bfree .DW ; puntatore blocco free2745 00008C 0000 hdrptr .DW ; puntatore header heap27462747 00008E 0000 pbrklv .DW ; current break level of current process2748 000090 0000 pbrkmin .DW ; minimum breal level of current process2749 000092 0000 pbrkmax .DW ; maximum breal level of current process2750 0000942751 ; bios temp. work area2752 000094 bwrktmp .DS $2827532754 0000BC 00 coptmp .DB ; temp. used while cop27552756 0000BD 00 tstser .DB ; check ser/usb test board post2757 ; <7>: VIA2 ok2758 ; <6>: PICRAM ok2759 ; <1>: UART 16C550 ok2760 ; <0>: R65C51 ok276127622763 ;crc16 .DW27642765 0000BD .RELATIVETue Jul 17 11:00:20 2018 Page 427662767 .ENDS27682769 [01] .IFDEF _ACIA_INC_2770 .INCLUDE INC\SP.INC2771 [00] .ENDIF27722786 .LIST on27872788 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera27892790 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0127912792 000000 .ABSOLUTE ;; inizia sempre da $002793 000000 .ORG 0x0027942795 0000002796 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2797 000060 00 KbdITail .DB ; coda buffer tastiera2798 000061 00 KbdIHead .DB ; testa buffer tastiera2799 000062 00 KbdCnt .DB ; numero bytes nel buffer2800 000063 00 KbdShift .DB2801 000064 00 KbdFlag .DB2802 000065 00 KbdToggle .DB2803 000066 00 KbdSt .DB ; status tastiera dopo reset2804 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard28052806 000068 00 LCDFlag .DB2807 000069 00 LCDTmp .DB2808 00006A 0000 LCDVal .DW28092810 00006C 00 VBBFlag .DB ; flag video board2811 00006D 00 VBBRam .DB ; flag video RAM28122813 00006E 00 ScnLinTmp .DB2814 00006F 00 ScnChBase .DB ; base video ram VDC2815 000070 00 ScnAttBase .DB ; base ram attributi VDC2816 000071 00 ScnCursMode .DB ; VDC cursore default2817 000072 00 ScnSaveAttr .DB2818 000073 00 ScnInsert .DB2819 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2820 000075 00 ScnScroll .DB2821 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)2822 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)28232824 000078 ScnMapTabs1 .DS 102825 000082 ScnMapTabs2 .DS 42826 0000862827 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente2828 000088 00 .DB28292830 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro28312832 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente2833 00008C 00 .DB28342835 00008D 00 ScnTmpx .DB ; temporaneo: durante put charTue Jul 17 11:00:20 2018 Page 52836 00008E2837 00008E 00 ScnTop .DB ; riga superiore finestra2838 00008F 00 ScnLeft .DB ; colonna sinistra finestra2839 000090 00 ScnBottom .DB ; riga inferiore finestra2840 000091 00 ScnRight .DB ; colonna destra finestra2841 000092 00 ScnAttr .DB ; attributo default2842 000093 00 ScnAttr2 .DB ; attributo alternativo2843 000094 00 ScnRow .DB ; riga cursore2844 000095 00 ScnCol .DB ; colonna cursore2845 000096 00 ScnRowStart .DB ; riga di start input2846 000097 00 ScnInput .DB ; riga di fine input2847 000098 00 ScnColStart .DB ; colonna di start input2848 000099 00 ScnSaveX .DB2849 00009A 00 ScnSaveY .DB2850 00009B 00 ScnTmpL .DB2851 00009C 00 ScnTmpH .DB2852 00009D 00 ScnSaveRow .DB2853 00009E 00 ScnSaveCol .DB2854 00009F 00 ScnCurChr .DB2855 0000A0 00 ScnLstChr .DB2856 0000A1 00 ScnCR .DB2857 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm2858 0000A4 00 .DB ; banco puntatore ScnPrm2859 0000A5 00 ScnMode .DB ; flag modo schermo28602861 0000A6 ScnPtr1 LP28622863 0000A9 00 ScnDefCol .DB ; default foreground color28642865 0000AA ScnPtr2 LP28662867 0000AD 00 ScnDefBkgCol .DB ; default background color2868 0000AE 00 ScnInpRow .DB ; modo input line: riga start input2869 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input2870 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input2871 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input2872 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica2873 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea2874 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea2875 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL2876 ;DflTxtIn .DB ; device di default text input2877 ;DflTxtOut .DB ; device di default text output2878 0000B62879 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)28802881 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)28822883 ; variabili monitor2884 0000B6 00 SMAddrL .DB ; address low/high2885 0000B7 00 SMAddrH .DB2886 0000B8 00 SMAddrK .DB ; address bank2887 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit2888 0000BA 00 SMTmpL .DB ; temp. low/high2889 0000BB 00 SMTmpH .DB2890 0000BC 00 SMTmpK .DB ; temp. bank2891 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit2892 0000BE 00 SMSizeL .DB ; size low/highTue Jul 17 11:00:20 2018 Page 62893 0000BF 00 SMSizeH .DB2894 0000C0 00 SMSizeK .DB ; size bank2895 0000C1 00 SMXAddrL .DB ; address low/high XM2896 0000C2 00 SMXAddrH .DB2897 0000C3 00 SMXAddrK .DB ; address bank XM2898 0000C4 00 SMbndx .DB ; indice input buffer2899 0000C5 00 SMnprm .DB ; numero parametri riga di comando2900 0000C6 00 SMdumb .DB2901 0000C7 00 SMkr .DB2902 0000C8 0000 SMpc .DW2903 0000CA 00 SMsr .DB2904 0000CB 00 SMbr .DB2905 0000CC 0000 SMdp .DW2906 0000CE 0000 SMac .DW2907 0000D0 0000 SMxr .DW2908 0000D2 0000 SMyr .DW2909 0000D4 0000 SMsp .DW29102911 0000D6 00 SMAuxL .DB2912 0000D7 00 SMAuxH .DB29132914 0000D8 00 asmlong .DB ; flag for CPU in 16 mode2915 ; <7> -> A/M in 16 bit mode2916 ; <6> -> X/Y in 16 bit mode2917 0000D9 00 asmcpu .DB ; <7> -> 8 bit family2918 ; <6> -> 65C02 cmos version29192920 0000DA 00 SMctx .DB ; context (if = $00 no quit command)2921 0000DB SMrsm LP ; long pointer to resume caller context29222923 0000DE 00 rtcadr .DB ; rtc internal ram address2924 0000DF 00 rtcbnk .DB ; RTC internal bank ram2925 0000E0 00 cmdlin .DB ;2926 0000E1 00 SMesc .DB29272928 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp29292930 0000E2 SMTmp2 .EQU SMXTmp2931 0000E4 SMTmp3 .EQU SMXTmp+22932 0000E6 SMdwTmp1 .EQU SMXTmp+42933 0000EA SMdwTmp2 .EQU SMXTmp+82934 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update2935 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update2936 0000F0 SMXPos2 .EQU SMXTmp+142937 0000F1 SMYPos2 .EQU SMXTmp+152938 0000F2 SMXPos3 .EQU SMXTmp+162939 0000F3 SMYPos3 .EQU SMXTmp+172940 ;SMAuxL .EQU SMXTmp+182941 ;SMAuxH .EQU SMXTmp+192942 0000F6 SMXPos .EQU SMXTmp+202943 0000F7 SMYPos .EQU SMXTmp+212944 0000F8 SMdwTmp3 .EQU SMXTmp+2229452946 0000E2 atcmd .EQU SMXTmp ; save @ command2947 0000E3 atnum .EQU SMXTmp+1 ; @ command index2948 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag2949 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bankTue Jul 17 11:00:20 2018 Page 72950 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)2951 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)2952 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)2953 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)2954 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer2955 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag2956 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)2957 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)2958 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer2959 0000F8 atsa .EQU SMXTmp+22 ; @ sa29602961 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion2962 0000E3 brtcsec .EQU SMXTmp+12963 0000E4 brtcmin .EQU SMXTmp+22964 0000E5 brtchour .EQU SMXTmp+32965 0000E6 brtcday .EQU SMXTmp+42966 0000E7 brtcmonth .EQU SMXTmp+52967 0000E8 brtcyear .EQU SMXTmp+62968 0000E9 brtcct .EQU SMXTmp+7296929702971 0000FC .RELATIVE29722973 .ENDS29742998 .LIST on29993000 ;---------------------------------------------------------------------------30013002 000020 HPLMAX .EQU 32 ; Max. subdirectory level30033004 000200 BCBCNT .EQU $200 ; BCB's struct's count #3005 000C00 BCBXBNK .EQU $0C00 ; starting BCB x-mem buffer #3006 000040 DMACNT .EQU 6430073008 0000E0 FAT0X .EQU $E0 ; x-mem bank for fat table of ata #03009 0000F0 FAT1X .EQU $F0 ; x-mem bank for fat table of ata #130103011 F8FFB1 .INCLUDE INC\LDT.INC3012 ; LDT.INC30133014 [01] .IFNDEF __LDT_INC__3015 000001 __LDT_INC__ .SET 130163017 .LIST on3018 ;---------------------------------------------------------------------------3019 ; Logical Drive Table (LDT) -- page 0 offset's3020 ;---------------------------------------------------------------------------30213022 F8FFB1 STRUCT LDT3023 _LDT .SECTION page0,common,ref_only,offset 0 ;LDT Struct3024 ;.ABSOLUTE3025 ;.ORG 03026 .MNLIST3027 000000 00 ldt_fg1 .DB ; logical volume flag's3028 ; <7>: device ready (fdc drive or ata device)3029 ; <6>: if=1->HD/CF else->FDTue Jul 17 11:00:20 2018 Page 83030 ; <1:0>: phisycal device number30313032 000001 00 ldt_fg2 .DB ; <7>: valid volume (fat volume or cbm disk)3033 ; <6>: if=1->FAT else->CBM (FD only)3034 ; <5>: disk format checked3035 ; <1:0>: disk format (fdc only)30363037 000002 0000 ldt_root .DW ; lba of root dir3038 000004 0000 ldt_fat1 .DW ; lba of fat1 table3039 000006 0000 ldt_fat2 .DW ; lba of fat2 table3040 000008 0000 ldt_cls .DW ; lba of first data cluster3041 00000A 0000 ldt_max .DW ; max usable cluster + 13042 00000C 0000 ldt_rent .DW ; root dir. max. entries3043 00000E 0000 ldt_cent .DW ; max. entries in dir. cluster3044 000010 0000 ldt_eoc .DW ; end of cluster chain marker3045 000012 0000 ldt_free .DW ; count of free cluster's3046 000014 0000 ldt_nxt .DW ; next free cluster3047 000016 0000 ldt_fsiz .DW ; fat table size30483049 000018 00 ldt_csiz .DB ; cluster size (1,2,4,8,16,32,64)3050 000019 00 ldt_cshf .DB ; cluster shift (0,1,2,3,4,5,6)3051 00001A 00 ldt_rsiz .DB ; root dir. size (sector's)3052 00001B 00 ldt_mcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F3053 00001C 0000 ldt_cdlp .DW ; current working dir list pointer3054 00001E 0000 ldt_cdcls .DW ; current working dir start cluster3055 000020 00 ldt_cdlvl .DB ; current working dir level count30563057 000021 00 ldt_ptype .DB3058 000022 0000 0000 ldt_pstart .LWORD3059 000026 0000 0000 ldt_psize .LWORD30603061 000022 ldt_fp .EQU ldt_pstart ; fat table buffer long pointer3062 000025 ldt_fbuf .EQU ldt_pstart+3 ; fat table: x-mem base bank/dma buffer30633064 000026 ldt_pbr .EQU ldt_psize ; long pointer to PBR cache buffer3065 000029 ldt_fmt .EQU ldt_psize+330663067 00002A ESTRUCT LDT3068 00002A LDTSIZE .DS 03069 ;.RELATIVE3070 .ENDS3071 .MNLIST30723073 [00] .ENDIF30743075 F8FFB13076 ;---------------------------------------------------------------------------3077 ; Hierarchical Path List (HPL) -- 16 bit offset's3078 ;---------------------------------------------------------------------------30793080 F8FFB1 LSTRUCT HPL3081 _HPL .SECTION common,ref_only,offset 0 ;HPL Struct3082 .MNLIST3083 000000 0000 hpl_cls .DW ; parent cluster3084 000002 0000 hpl_ix .DW ; entry index in parent cluster3085 000004 hpl_fcb .DS 11 ; fcb name3086 00000F 00 hpl_lst .DB ; unusedTue Jul 17 11:00:20 2018 Page 93087 000010 ESTRUCT HPL3088 000010 HPLSIZE .DS 03089 ;.RELATIVE3090 .ENDS3091 .MNLIST30923093 ;---------------------------------------------------------------------------3094 ; Buffer Control Block (BCB) -- 16 bit offset's3095 ;---------------------------------------------------------------------------30963097 F8FFB1 LSTRUCT BCB3098 _BCB .SECTION common,ref_only,offset 0 ;BCB Struct3099 .MNLIST3100 000000 0000 bcb_next .DW ; next logical linked BCB3101 000002 00 bcb_drv .DB ; logical drive3102 000003 00 bcb_sec .DB ; sector offset3103 000004 0000 bcb_cls .DW ; cluster3104 000006 0000 bcb_lba .DW ; sector lba address3105 000008 0000 bcb_lbah .DW ; lba high3106 000008 bcb_head .EQU bcb_lbah ; floppy head3107 00000A 0000 bcb_buf .DW ; x-mem buffer number3108 00000A bcb_trk .EQU bcb_buf ; floppy track(low) & sector(hi)3109 00000C 0000 bcb_ptr .DW ; buffer pointer3110 00000E 0000 bcb_xbnk .DW ; buffer pointer hi & x-mem bank3111 00000E bcb_dma .EQU bcb_xbnk ; buffer pointer hi & dma buffer3112 000010 ESTRUCT BCB3113 000010 BCBSIZE .DS 03114 ;.RELATIVE3115 .ENDS3116 .MNLIST31173118 ;---------------------------------------------------------------------------3119 ; hash Control Block (BCB) -- 16 bit offset's3120 ;---------------------------------------------------------------------------31213122 F8FFB1 LSTRUCT HCB3123 _HCB .SECTION common,ref_only,offset 0 ;HCB Struct3124 .MNLIST3125 000000 0000 hcb_next .DW ; pointer to next HCB3126 000002 0000 hcb_cls .DW ; cluster number3127 000004 0000 hcb_seq .DW ; sequence number + logical drive number3128 000006 0000 hcb_cnt .DW ; number of hashed entries3129 000008 hcb_data .DS 0 ; hash buffer data3130 000008 ESTRUCT HCB3131 000008 HCBSIZE .DS 03132 ;.RELATIVE3133 .ENDS3134 .MNLIST31353136 ;---------------------------------------------------------------------------3137 ; TOS Working Segment3138 ;---------------------------------------------------------------------------31393140 000001 WKB .EQU .SEG.TOSSEG ; TOS working bank31413142 010000 TS .SET TOSSEG3143 01FFFF TE .SET TOSSEG + $FFFFTue Jul 17 11:00:20 2018 Page 103144 018C00 TO0 .SET $018C003145 019E00 TO1 .SET TOSWKM31463147 .comment @3148 _TOS0: .SECTION ref_only, common, offset TO0, range TS TE ;FAT Struct's3149 _TOS0_START .DS 031503151 _pbr0 .DS 5123152 _pbr1 .DS 5123153 _pbr2 .DS 5123154 _pbr3 .DS 51231553156 _TOS0_END .DS 03157 TOS0SIZ .EQU (_TOS0_END - _TOS0_START)3158 .ENDS3159 @31603161 _TOS1: .SECTION ref_only, common, offset TO1, range TS TE ;FAT Struct's3162 019E00 _TOS1_START .DS 031633164 ; current working directory HPL3165 019E00 cwdl0 .DS (HPLSIZE*HPLMAX)3166 01A000 cwdl1 .DS (HPLSIZE*HPLMAX)3167 01A200 cwdl2 .DS (HPLSIZE*HPLMAX)3168 01A400 cwdl3 .DS (HPLSIZE*HPLMAX)31693170 ; current building path HPL3171 01A600 cbpl .DS (HPLSIZE*HPLMAX)3172 01A600 HPL_CLS .EQU hpl_cls+cbpl3173 01A602 HPL_IX .EQU hpl_ix+cbpl3174 01A604 HPL_FCB .EQU hpl_fcb+cbpl31753176 ; BCB list's3177 01A800 bcbstart .DS (BCBCNT*BCBSIZE)3178 01C800 bcbend .DS 03179 01C800 dmastart .DS (DMACNT*BCBSIZE)3180 01CC00 dmaend .DS 03181 01CC00 dma0s .DS (17*BCBSIZE)3182 01CD10 dma1s .DS (17*BCBSIZE)31833184 01CE20 _TOS1_END .DS 03185 003020 TOS1SIZ .EQU (_TOS1_END - _TOS1_START)3186 .ENDS31873188 ;---------------------------------------------------------------------------3189 ; HCB Segment3190 ;---------------------------------------------------------------------------31913192 000004 HCBBNK .EQU .SEG.HCBSEG3193 040000 HS .SET HCBSEG3194 04FFFF HE .SET HCBSEG + $FFFF3195 040000 HO .SET HCBSEG31963197 _HCBS: .SECTION ref_only, common, offset HO, range HS HE ;HCB's List3198 040000 hcb_bnk .DS 83199 040008 hcbstart .DS 03200 .ENDSTue Jul 17 11:00:20 2018 Page 1132013202 ;.comment @3203 ;---------------------------------------------------------------------------3204 ; direct page for LDT var's3205 ;---------------------------------------------------------------------------32063207 ; P0OS3208 DPOS: .SECTION page0, common, ref_only, offset 0 ;OS Main D.P.32093210 ;sysbuf .DS 2 ; floppy track 0 cache buffer3211 000000 00 defhsec .DB ; default hidden sector's in fdisk3212 000001 00 .DB3213 000002 0000 cmdstk .DW ; saved stack on TOS command's3214 000004 bpath .DS 8032153216 000054 bpath1 .DS 03217 .ENDS3218 ;@32193220 ; P0LDT3221 DPLDT: .SECTION page0, common, ref_only, offset 0 ;LDT D.P.32223223 000000 ldt0 .DS LDTSIZE3224 00002A ldt1 .DS LDTSIZE3225 000054 ldt2 .DS LDTSIZE3226 00007E ldt3 .DS LDTSIZE3227 0000A8 ldt4 .DS LDTSIZE32283229 0000D2 ldtp .DS 6 ; pointer to LDT's in DPLDT page32303231 0000D8 sysbuf .DS 4 ; floppy track 0 cache buffer32323233 .ENDS32343235 ;---------------------------------------------------------------------------3236 ; direct page for FAT var's3237 ;---------------------------------------------------------------------------32383239 ; P0FAT3240 DPFAT: .SECTION page0, common, ref_only, offset 0 ;FAT D.P.32413242 000000 0000 ostos .DW ; saved top of stack3243 000002 00 ioerr .DB ; i/o error3244 000003 00 ioerr2 .DB ; extended i/o error3245 000004 0000 hcbroot .DW ; HCB struct's list3246 000006 0000 hcblst .DW ; the last one HCB3247 000008 00 hsiz .DB ; how many sector's an HCB can hold3248 000009 00 hlog2 .DB ; shift count related to hsiz3249 00000A 0000 bcbroot .DW ; BCB buffer's list3250 00000C 0000 bcblst .DW ; the last one BCB3251 00000E 0000 dmaroot .DW ; dma BCB buffer's list3252 000010 0000 dmalst .DW ; the last one dma BCB3253 000012 0000 dmabcb .DW ; BCB list for floppy root, cluster#2,#3ꣶ 000014 00 fspt .DB ; sector per track (floppy)3255 000015 00 pdrive .DB ; phisycal drive number3256 000016 00 bplvl .DB ; subdir level while build path3257 000017 00 defdrv .DB ; default driveTue Jul 17 11:00:20 2018 Page 1232583259 ; the first block of ldt_ var's is copied from the LDT struct3260 000018 00 ldtfg1 .DB ; logical volume flag's3261 ; <7>: device ready (fdc drive or ata device)3262 ; <6>: if=1->HD/CF else->FD3263 ; <0>: phisycal device number32643265 000019 00 ldtfg2 .DB ; <7>: valid volume (fat volume or cbm disk)3266 ; <6>: if=1->FAT else->CBM (FD only)3267 ; <5>: disk format checked3268 ; <1:0>: disk format (fdc only)32693270 00001A ldtfp LP ; fat table buffer long pointer3271 00001D 00 ldtfbuf .DB ; fat table: x-mem base bank/dma buffer32723273 00001E 0000 ldtroot .DW ; lba of root dir3274 000020 0000 ldtfat1 .DW ; lba of fat1 table3275 000022 0000 ldtfat2 .DW ; lba of fat2 table3276 000024 0000 ldtcls .DW ; lba of first data cluster3277 000026 0000 ldtmax .DW ; max usable cluster + 13278 000028 00 ldtcsiz .DB ; cluster size (1,2,4,8,16,32,64)3279 000029 00 ldtcshf .DB ; cluster shift (0,1,2,3,4,5,6)3280 00002A 00 ldtfsiz .DB ; fat table size (if 0 -> 256)3281 00002B 00 ldtrsiz .DB ; root dir. size (sector's)3282 00002C 0000 ldtrent .DW ; root dir. max. entries3283 00002E 0000 ldtcent .DW ; max. entries in dir. cluster3284 000030 0000 ldteoc .DW ; end of cluster chain marker3285 000032 00 ldtmcls .DB ; mask for clust. module: 00,01,03,07,0F,1F,3F3286 000033 00 ldtfmt .DB ; floppy disk format (0,1,2, FF if ata device)3287 000034 0000 ldtcdlp .DW ; current working dir list pointer3288 000036 0000 ldtcdcls .DW ; current working dir start cluster3289 000038 0000 ldtfree .DW ; count of free cluster's3290 00003A 0000 ldtnxt .DW ; next free cluster3291 00003C 00 ldtcdlvl .DB ; current working dir level count3292 00003D ldtpbr LP ; long pointer to PBR cache buffer32933294 000040 0000 chdcls .DW ; last accessed chained dir. cluster3295 000042 0000 clsofs .DW ; cluster's offset from start of chain32963297 ; not change order of the 2 following var's: will be accessed as 16 bit var3298 000044 00 entofs .DB ; entry offset from start of sector3299 000045 00 secofs .DB ; sector's offset from start of cluster33003301 000046 0000 dircls .DW ; directory cluster3302 000048 0000 dcnt .DW ; directory entry counter3303 00004A 0000 lba .DW ; lba sector address3304 00004C 0000 lbah .DW ; lba is 24 bit's only3305 00004E 0000 xbuf .DW ; x-mem buffer transfer number33063307 00004C fhead .EQU lbah ; fd head3308 00004E ftrack .EQU xbuf ; fd track3309 00004F fsec .EQU xbuf+1 ; fd sector33103311 000050 00 dfcbtyp .DB ; FCB type to search3312 000051 00 dfcbatt .DB ; attribute of found FCB33133314 000052 00 curdrv .DB ; current logical driveTue Jul 17 11:00:20 2018 Page 133315 000053 fcbs .DS 11 ; file control block name33163317 ;dcmask .DW ; mask to start of cluster3318 ; FFF0, FFE0, FFC0, FF80, FF00, FE0033193320 00005E 0000 fcbp .DW ; FCB buffer long pointer3321 000060 0000 .DW ; low=fcbp+2, high=x-mem bank or dma buffer3322 000061 dmabuf .EQU fcbp+3 ; dma buffer #3323 000061 xmbank .EQU fcbp+3 ; x-mem bank #33243325 ; temp area3326 000062 00 hcbseq .DB3327 000063 00 hcbdrv .DB3328 000064 0000 bcbcls .DW3329 000066 00 bcbdrv .DB3330 000067 00 bcbsec .DB33313332 000068 0000 thash .DW3333 000068 hcbrec .EQU thash3334 000068 wtmp .EQU thash33353336 00006A 0000 hlast .DW3337 00006C 0000 hcbcls .DW3338 00006E 0000 hcbx .DW3339 000070 0000 hcby .DW3340 00006A tmpp .EQU hlast ; temp. long pointer3341 00006E tmpx .EQU hcbx3342 00006F wild .EQU hcbx+13343 000070 fsiz .EQU hcby3344 000071 fptr .EQU hcby+13345 00006E ldrv .EQU hcbx3346 00006F tmpldt .EQU hcbx+133473348 000072 0000 fhash .DW3349 000074 0000 fcbofs .DW3350 000076 00 bcbload .DB3351 000077 00 xstart .DB3352 000078 00 xend .DB3353 000079 00 seccnt .DB3354 00007A 00 maxseq .DB3355 00007B 00 dsiz .DB33563357 00007C 00 haswld .DB3358 00007D 00 strix .DB3359 00007E pathp LP ; long pointer to path string33603361 ; TEMP3362 000081 0000 quot .DW3363 000083 0000 dvsor .DW3364 000085 0000 troot .DW3365 000087 0000 tlst .DW3366 000089 0000 bdmask .DW3367 00008B 0000 bcmask .DW33683369 00008D 00 hcbuse .DB33703371 .ENDSTue Jul 17 11:00:20 2018 Page 1433723377 .LIST on33783379 ; P0OS3380 ; page 0 (LDT var's) local var's3381 _FSTMP: .SECTION page0, ref_only, offset bpath3382 000004 FSTMP_START .EQU $33833384 000004 0000 0000 maxsec .LWORD ; ata device max sector's3385 000008 0000 0000 hidsec .LWORD ; hidden sectors3386 00000C 0000 0000 totsec .LWORD ; partition size in sector's3387 000010 0000 maxcnt .DW ; max. cluster's count3388 000012 0000 first .DW ; relative first data sector33893390 000012 totrsv .EQU first3391 000004 bcbbnk .EQU maxsec3392 000006 hcbsiz .EQU maxsec+23393 000010 hcbrem .EQU maxcnt3394 000004 tbdrv .EQU maxsec3395 000006 tbcls .EQU maxsec+23396 000008 tblba .EQU hidsec3397 00000A tbhead .EQU hidsec+23398 00000C tbtrk .EQU totsec3399 00000E tbptr .EQU totsec+23400 000010 tbdma .EQU maxcnt3401 000004 fdopt .EQU maxsec3402 000005 fdarg .EQU maxsec+13403 000006 fdlbl .EQU maxsec+234043405 000014 0000 clscnt .DW ; cluster's count #3406 000016 0000 rsvsec .DW ; reserved sector's3407 000018 0000 fatsiz .DW ; FAT16 fat table size3408 00001A 0000 rootsiz .DW ; root directory size3409 00001C 0000 rootent .DW ; root dir. max. entries3410 00001E 0000 clsent .DW ; sub-diectory max. entries3411 000020 0000 root .DW ; root dir start3412 000022 0000 fat1 .DW ; fat1 table start3413 000024 0000 fat2 .DW ; fat 2 table start3414 000026 0000 start .DW ; first data sector3415 000028 0000 maxcls .DW ; last usable cluster+13416 00002A 0000 xfatb .DW ; x-mem fat table buffer34173418 00002A fdix .EQU xfatb ; floppy disk index DD/HD3419 00002B media .EQU xfatb+1 ; floppy disk media field34203421 00002C 0000 flba .DW ; low 16 bit lba3422 00002E 0000 freecnt .DW ; free cluster's count3423 000030 0000 freecls .DW ; first free cluster34243425 00002E remsec .EQU freecnt34263427 000032 pbrp LP ; PBR pointer3428 000035 00 clssiz .DB ; cluster size3429 000036 00 clsshf .DB ; cluster shift3430 000037 00 clsmod .DB3431 000038 00 xbnk .DB ; x-mem bank3432 000039 00 lunit .DB ; unity letterTue Jul 17 11:00:20 2018 Page 153433 00003A tp LP ; fat cache pointer3434 00003D 00 fdfmt .DB ; floppy format3435 00003E 00 pdev .DB ; phisycal device3436 00003F 00 ldev .DB ; logical device3437 000040 00 ldtcur .DB ; current LDT ptr3438 000041 00 lflag .DB ; flag load fat table3439 000042 00 rtcsec .DB ; seconds3440 000043 00 rtcmin .DB ; minutes34413442 000042 badcls .EQU rtcsec34433444 000044 00 rtchour .DB ; hours3445 000045 00 rtcday .DB ; day of month3446 000046 00 rtcmonth .DB ; month3447 000047 00 rtcyear .DB ; year3448 000048 0000 ctime .DW ; compact time3449 00004A 0000 cdate .DW3450 00004C tlp LP3451 00004F 00 fd2ix .DB34523453 00004F nulptr .EQU fd2ix ; flag null ptr34543455 000050 00 rootbnk .DB34563457 000050 getfmt .EQU rootbnk ; get format from floppy disk34583459 000051 00 fatbnk .DB3460 000052 00 clsbnk .DB3461 000053 00 sec100 .DB ; tenths of seconds for ctime (ms stamp)34623463 000050 FSTMP_SIZ .EQU ($-FSTMP_START)3464 .ENDS3468 .LIST on3469 .GLOBAL ldt434703471 ; default hidden sectors3472 00003F HIDSEC .EQU $3F3473 ; default hashed sector's3474 000001 DEFHSIZ .EQU 13475 000000 DEFHLOG2 .EQU 034763477 ; max. clusters count + 13478 00FFF5 MAXF16 .EQU $FFF53479 000FF5 MAXF12 .EQU $0FF53480 ; End-of-Chain marker (EOC marker)3481 00FFF8 F16EOC .EQU $FFF83482 000FF8 F12EOC .EQU $0FF83483 F8FFB13484 ;---------------------------------------------------------------------------3485 ; code segment -- bank $F93486 ;---------------------------------------------------------------------------34873488 .CODEF93489 .PUBLIC fssetup, gctime16, bldldt, lhdfmt, shpart, lfdisk3490 .EXTERN cbmfs_cmd34913492 .LONGA offTue Jul 17 11:00:20 2018 Page 163493 .LONGI off34943495 ;---------------------------------------------------------------------------3496 ; setup3497 ;---------------------------------------------------------------------------34983499 F90305 lusbldt:3500 .PUBLIC lusbldt35013502 F90305 8B phb3503 F90306 A9 00 lda #03504 F90308 48 pha3505 F90309 AB plb3506 F9030A 0B phd3507 F9030B F4 00 40 pea #P0LDT3508 F9030E 2B pld ; set dp page3509 F9030F 20 15 03 jsr usbldt3510 F90312 2B pld3511 F90313 AB plb3512 F90314 6B rtl3513 F903153514 ; LDT for usb #0 device (E)3515 F90315 usbldt:3516 F90315 0B phd3517 F90316 F4 00 42 pea #P0OS3518 F90319 2B pld3519 F9031A A2 29 ldx #LDTSIZE-13520 F9031C 74 A8 ?zm: stz ldt4,x3521 F9031E CA dex3522 F9031F 10 FB bpl ?zm3523 F90321 AD 10 00 lda !usbdev ; phisycal usb #0 device3524 F90324 29 C0 and #$C03525 F90326 09 02 ora #$02 ; phisycal drive #23526 F90328 8D A8 40 sta !P0LDT+ldt4+ldt_fg13527 F9032B A9 00 lda #<PBR0USB ; set PBR pointer3528 F9032D 8D CE 40 sta !P0LDT+ldt4+ldt_pbr3529 F90330 A9 96 lda #>PBR0USB3530 F90332 8D CF 40 sta !P0LDT+ldt4+ldt_pbr+13531 F90335 A9 01 lda #^PBR0USB3532 F90337 8D D0 40 sta !P0LDT+ldt4+ldt_pbr+23533 F9033A A9 FF lda #$FF3534 F9033C 8D D1 40 sta !P0LDT+ldt4+ldt_fmt3535 F9033F ACC163536 F9033F C2 20 rep #PMFLAG3537 .LONGA on3538 .MNLIST3539 F90341 A9 F8 FF lda #F16EOC3540 F90344 8D B8 40 sta !P0LDT+ldt4+ldt_eoc ; FAT16 end of chain marker3541 F90347 ACC083542 F90347 E2 20 sep #PMFLAG3543 .LONGA off3544 .MNLIST3545 F90349 2B pld3546 F9034A A9 45 lda #'E' ; usb #0 device: 'E'3547 F9034C 85 39 sta lunit ; logical drive letter3548 F9034E SCNPRINT3549 F9034E 02 01 cop $01Tue Jul 17 11:00:20 2018 Page 173550 .MNLIST3551 F90350 63 68 65 63 6B .DB 'check <E>: ', 020 3C 45 3E 3A20 003552 F9035C AD 10 00 lda !usbdev3553 F9035F C9 FF cmp #$FF3554 F90361 F0 31 beq ?ok3555 F903633556 F90363 SCNPRINT3557 F90363 02 01 cop $013558 .MNLIST3559 F90365 75 6E 70 61 72 .DB 'unpartitioned disk or invalid partition ID.', 13, 074 69 74 69 6F6E 65 64 20 6469 73 6B 20 6F72 20 69 6E 7661 6C 69 64 2070 61 72 74 6974 69 6F 6E 2049 44 2E 0D 003560 F90392 38 sec3561 F90393 60 rts35623563 F90394 20 3C 0B ?ok: jsr usbchk16 ; check partition PBR3564 F90397 90 29 bcc ?ok13565 F903993566 F90399 ?inv: SCNPRINT3567 F90399 02 01 cop $013568 .MNLIST3569 F9039B 69 6E 76 61 6C .DB 'invalid partition type (not FAT16).', 13, 069 64 20 70 6172 74 69 74 696F 6E 20 74 7970 65 20 28 6E6F 74 20 46 4154 31 36 29 2E0D 003570 F903C0 38 sec3571 F903C1 60 rts3572 F903C23573 F903C2 20 18 0D ?ok1: jsr fcalc ; fat data calc3574 F903C5 B0 D2 bcs ?inv ; invalid partition3575 F903C73576 F903C7 ACC16 ; move LDT3577 F903C7 C2 20 rep #PMFLAG3578 .LONGA on3579 .MNLIST3580 F903C9 A5 20 lda root3581 F903CB 8D AA 40 sta !P0LDT+ldt4+ldt_root3582 F903CE A5 22 lda fat13583 F903D0 8D AC 40 sta !P0LDT+ldt4+ldt_fat13584 F903D3 A5 24 lda fat23585 F903D5 8D AE 40 sta !P0LDT+ldt4+ldt_fat23586 F903D8 A5 26 lda start3587 F903DA 8D B0 40 sta !P0LDT+ldt4+ldt_cls3588 F903DD A5 28 lda maxcls3589 F903DF 8D B2 40 sta !P0LDT+ldt4+ldt_maxTue Jul 17 11:00:20 2018 Page 183590 F903E2 A5 1C lda rootent3591 F903E4 8D B4 40 sta !P0LDT+ldt4+ldt_rent3592 F903E7 A5 1E lda clsent3593 F903E9 8D B6 40 sta !P0LDT+ldt4+ldt_cent3594 F903EC A5 2E lda freecnt3595 F903EE 8D BA 40 sta !P0LDT+ldt4+ldt_free3596 F903F1 A5 30 lda freecls3597 F903F3 8D BC 40 sta !P0LDT+ldt4+ldt_nxt3598 F903F6 ACC083599 F903F6 E2 20 sep #PMFLAG3600 .LONGA off3601 .MNLIST3602 F903F8 A5 35 lda clssiz3603 F903FA 8D C0 40 sta !P0LDT+ldt4+ldt_csiz3604 F903FD A5 36 lda clsshf3605 F903FF 8D C1 40 sta !P0LDT+ldt4+ldt_cshf3606 F90402 A5 18 lda fatsiz3607 F90404 8D BE 40 sta !P0LDT+ldt4+ldt_fsiz3608 F90407 A5 1A lda rootsiz3609 F90409 8D C2 40 sta !P0LDT+ldt4+ldt_rsiz3610 F9040C A5 37 lda clsmod3611 F9040E 8D C3 40 sta !P0LDT+ldt4+ldt_mcls36123613 F90411 A9 E0 lda #$E03614 F90413 8D A9 40 sta !P0LDT+ldt4+ldt_fg23615 F90416 18 clc3616 F90417 60 rts36173618 F90418 fssetup:3619 F90418 0B phd3620 F90419 F4 00 42 pea #P0OS3621 F9041C 2B pld ; set dp page3622 F9041D A2 3B ldx #RTCSHID ; default hidden sector's (for fdisk)3623 F9041F 8E 4C FD stx RTCALE ; from RTC RAM in bank 0 & 13624 F90422 AD 4D FD lda RTCDATA ; read saved value3625 F90425 C9 40 cmp #$40 ; invalid?3626 F90427 90 05 bcc ?01b ; no3627 F90429 A9 3F ?01: lda #HIDSEC ; get default value3628 F9042B 8D 4D FD sta RTCDATA ; save default value3629 F9042E 85 00 ?01b: sta defhsec3630 F90430 C9 00 cmp #03631 F90432 D0 07 bne ?01c3632 F90434 A9 3F lda #HIDSEC ; get default value3633 F90436 8D 4D FD sta RTCDATA ; save default value3634 F90439 85 00 sta defhsec3635 F9043B A2 3C ?01c: ldx #RTCHUSE ; flag use hash block's3636 F9043D 8E 4C FD stx RTCALE3637 F90440 AD 4D FD lda RTCDATA ; read saved value3638 F90443 C9 FF cmp #$FF3639 F90445 D0 05 bne ?023640 F90447 A9 80 lda #$80 ; default value (use hash)3641 F90449 8D 4D FD sta RTCDATA ; save default value3642 F9044C 8D 8D 41 ?02: sta !P0FAT+hcbuse3643 F9044F A2 3D ldx #RTCHLOG2 ; sector's per hcb block3644 F90451 8E 4C FD stx RTCALE3645 F90454 AD 4D FD lda RTCDATA ; read saved value3646 F90457 C9 FF cmp #$FFTue Jul 17 11:00:20 2018 Page 193647 F90459 F0 04 beq ?033648 F9045B C9 07 cmp #7 ; valid value: 0..63649 F9045D 90 05 bcc ?043650 F9045F A9 04 ?03: lda #$04 ; default value (16 sector's per block)3651 F90461 8D 4D FD sta RTCDATA ; save default value3652 F90464 8D 09 41 ?04: sta !P0FAT+hlog23653 F90467 AA tax3654 F90468 BF 61 1C F9 lda >CLSSIZE,x ; get block size in sector's3655 F9046C 8D 08 41 sta !P0FAT+hsiz3656 F9046F ACC163657 F9046F C2 20 rep #PMFLAG3658 .LONGA on3659 .MNLIST3660 F90471 A9 10 00 lda #16 ; get max. entries per block3661 F90474 9B txy3662 F90475 F0 04 beq ?04b ; no shift3663 F90477 0A ?04a: asl a ; mult * 16 to get entries #3664 F90478 CA dex3665 F90479 D0 FC bne ?04a3666 F9047B 0A ?04b: asl a ; 2 bytes per entry3667 F9047C 69 08 00 adc #HCBSIZE ; plus HCB header3668 F9047F 85 06 sta hcbsiz ; effective HCB size3669 F90481 38 sec3670 F90482 A9 00 00 lda #03671 F90485 E9 08 00 sbc #hcbstart3672 F90488 85 10 sta hcbrem ; free room in bank3673 F9048A A0 00 ldy #03674 F9048C CPU163675 F9048C C2 30 rep #(PMFLAG.OR.PXFLAG)3676 .LONGA on3677 .LONGI on3678 .MNLIST3679 F9048E A2 1E 30 ldx #TOS1SIZ-2 ; clear TOS work area3680 F90491 98 tya3681 F90492 9F 00 9E 01 ?05: sta >_TOS1_START,x3682 F90496 CA dex3683 F90497 CA dex3684 F90498 10 F8 bpl ?053685 F9049A BB tyx3686 F9049B 9F 00 00 04 ?10: sta >hcb_bnk,x ; clear HCB bank3687 F9049F E8 inx3688 F904A0 E8 inx3689 F904A1 D0 F8 bne ?103690 F904A3 CPU083691 F904A3 E2 30 sep #(PMFLAG.OR.PXFLAG)3692 .LONGA off3693 .LONGI off3694 .MNLIST3695 F904A5 8B phb ; save dbr3696 F904A6 A9 01 lda #WKB3697 F904A8 48 pha3698 F904A9 AB plb ; set dbr to fat work area3699 F904AA CPU163700 F904AA C2 30 rep #(PMFLAG.OR.PXFLAG)3701 .LONGA on3702 .LONGI on3703 .MNLISTTue Jul 17 11:00:20 2018 Page 203704 F904AC A9 00 0C lda #BCBXBNK ; init BCB struct's for at drive's buffer's3705 F904AF 85 04 sta bcbbnk3706 F904B1 A9 00 A8 lda #bcbstart3707 F904B4 8F 0A 41 00 sta >P0FAT+bcbroot3708 F904B8 AA tax3709 F904B9 A5 04 ?15: lda bcbbnk3710 F904BB 9D 0A 00 sta !bcb_buf,x3711 F904BE 0A asl a3712 F904BF 0A asl a3713 F904C0 0A asl a3714 F904C1 0A asl a ; x-mem bank3715 F904C2 A8 tay3716 F904C3 29 00 FF and #$FF00 ; low byte = buffer hi ptr3717 F904C6 1A inc a ; bank 13718 F904C7 9D 0E 00 sta !bcb_xbnk,x ; store buffer high ptr + x-mem bank3719 F904CA 98 tya3720 F904CB EB xba ; C=0000,1000,2000,...,E000,F0003721 F904CC 29 00 F0 and #$F0003722 F904CF 4A lsr a3723 F904D0 4A lsr a3724 F904D1 4A lsr a ; C=0000,0200,0400,...,1C00,1E003725 F904D2 09 00 20 ora #XMSTART ; C=2000,2200,2400,...,3C00,3E003726 F904D5 9D 0C 00 sta !bcb_ptr,x3727 F904D8 A9 FF FF lda #$FFFF3728 F904DB 9D 02 00 sta !bcb_drv,x ; drive+sec = $FFFF -> unused3729 F904DE E6 04 inc bcbbnk3730 F904E0 8A txa3731 F904E1 18 clc3732 F904E2 69 10 00 adc #BCBSIZE3733 F904E5 C9 00 C8 cmp #bcbend3734 F904E8 B0 06 bcs ?203735 F904EA 9D 00 00 sta !bcb_next,x3736 F904ED AA tax3737 F904EE 80 C9 bra ?153738 F904F0 9E 00 00 ?20: stz !bcb_next,x ; last struct3739 F904F3 8A txa3740 F904F4 8F 0C 41 00 sta >P0FAT+bcblst3741 F904F8 CPU083742 F904F8 E2 30 sep #(PMFLAG.OR.PXFLAG)3743 .LONGA off3744 .LONGI off3745 .MNLIST3746 F904FA A9 80 lda #BCBDMA ; init BCB's struct's in dma buffer's3747 F904FC 85 05 sta bcbbnk+1 ; dma buffer # in high byte3748 F904FE 20 96 06 jsr ?100 ; get dma bank3749 F90501 84 04 sty bcbbnk3750 F90503 CPU163751 F90503 C2 30 rep #(PMFLAG.OR.PXFLAG)3752 .LONGA on3753 .LONGI on3754 .MNLIST3755 F90505 A9 00 C8 lda #dmastart3756 F90508 8F 0E 41 00 sta >P0FAT+dmaroot3757 F9050C AA tax3758 F9050D A9 FF FF ?25: lda #$FFFF ; invalidate buffer3759 F90510 9D 02 00 sta !bcb_drv,x ; drive+sec = $FFFF -> unused3760 F90513 A5 04 lda bcbbnkTue Jul 17 11:00:20 2018 Page 213761 F90515 9D 0E 00 sta !bcb_dma,x ; store buffer high ptr + dma buffer #3762 F90518 A8 tay3763 F90519 29 00 7F and #$7F00 ; strip off bit 153764 F9051C 0A asl a3765 F9051D 9D 0C 00 sta !bcb_ptr,x ; buffer pointer3766 F90520 98 tya3767 F90521 EB xba3768 F90522 1A inc a ; increment bank3769 F90523 EB xba3770 F90524 85 04 sta bcbbnk3771 F90526 8A txa3772 F90527 18 clc3773 F90528 69 10 00 adc #BCBSIZE3774 F9052B C9 00 CC cmp #dmaend3775 F9052E B0 06 bcs ?303776 F90530 9D 00 00 sta !bcb_next,x ; pointer to next BCB3777 F90533 AA tax3778 F90534 80 D7 bra ?253779 F90536 9E 00 00 ?30: stz !bcb_next,x ; last struct3780 F90539 8A txa3781 F9053A 8F 10 41 00 sta >P0FAT+dmalst3782 F9053E A2 00 CC ldx #dma0s3783 F90541 A9 FF FF lda #$FFFF ; invalidate buffer3784 F90544 9D 02 00 sta !bcb_drv,x ; drive+sec = $FFFF -> unused3785 F90547 A2 10 CD ldx #dma1s3786 F9054A 9D 02 00 sta !bcb_drv,x ; drive+sec = $FFFF -> unused3787 F9054D CPU083788 F9054D E2 30 sep #(PMFLAG.OR.PXFLAG)3789 .LONGA off3790 .LONGI off3791 .MNLIST3792 F9054F A9 04 lda #HCBBNK ; init HCB struct's3793 F90551 48 pha3794 F90552 AB plb3795 F90553 CPU163796 F90553 C2 30 rep #(PMFLAG.OR.PXFLAG)3797 .LONGA on3798 .LONGI on3799 .MNLIST3800 F90555 A9 08 00 lda #hcbstart3801 F90558 8F 04 41 00 sta >P0FAT+hcbroot3802 F9055C AA tax3803 F9055D A9 FF FF ?35: lda #$FFFF3804 F90560 9D 04 00 sta !hcb_seq,x ; unused HCB3805 F90563 A5 10 lda hcbrem ; free room3806 F90565 38 sec3807 F90566 E5 06 sbc hcbsiz3808 F90568 90 10 bcc ?40 ; no more room3809 F9056A C5 06 cmp hcbsiz3810 F9056C 90 0C bcc ?40 ; no more room3811 F9056E 85 10 sta hcbrem ; save new free room3812 F90570 8A txa3813 F90571 18 clc3814 F90572 65 06 adc hcbsiz3815 F90574 9D 00 00 sta !hcb_next,x3816 F90577 AA tax ; next HCB3817 F90578 80 E3 bra ?35Tue Jul 17 11:00:20 2018 Page 223818 F9057A 9E 00 00 ?40: stz !hcb_next,x ; last HCB3819 F9057D 8A txa3820 F9057E 8F 06 41 00 sta >P0FAT+hcblst3821 F90582 CPU083822 F90582 E2 30 sep #(PMFLAG.OR.PXFLAG)3823 .LONGA off3824 .LONGI off3825 .MNLIST3826 F90584 AB plb ; restore dbr3827 F90585 0B phd3828 F90586 F4 00 40 pea #P0LDT ; switch to LDT D.P.3829 F90589 2B pld3830 F9058A A2 A8 ldx #ldt4 ; set up LDT ptr's3831 F9058C 86 D6 stx ldtp+4 ; logical drive #43832 ;ldx #ldt5 ; set up LDT ptr's3833 ;stx ldtp+5 ; logical drive #43834 F9058E A2 00 ldx #ldt0 ; set up LDT ptr's3835 F90590 86 D2 stx ldtp ; logical drive #03836 F90592 AD 46 00 lda !fdcctl ; phisycal drive 0 ready flag3837 F90595 29 80 and #$803838 F90597 95 00 sta ldt_fg1,x3839 F90599 A2 2A ldx #ldt13840 F9059B 86 D3 stx ldtp+1 ; logical drive #13841 F9059D A9 81 lda #$81 ; virtual drive 1 always ready3842 F9059F 95 00 sta ldt_fg1,x3843 F905A1 A2 54 ldx #ldt23844 F905A3 86 D4 stx ldtp+2 ; logical drive #23845 F905A5 AD 0E 00 lda !atadev ; phisycal ata device #03846 F905A8 29 80 and #$803847 F905AA 09 40 ora #$40 ; ata device #03848 F905AC 95 00 sta ldt_fg1,x3849 F905AE A2 7E ldx #ldt33850 F905B0 86 D5 stx ldtp+3 ; logical drive #33851 F905B2 AD 0F 00 lda !atadev+1 ; phisycal ata device #13852 F905B5 29 80 and #$803853 F905B7 09 41 ora #$41 ; ata device #13854 F905B9 95 00 sta ldt_fg1,x3855 F905BB A9 00 lda #DR0SYS3856 F905BD 85 D8 sta sysbuf ; drive 0 system track cache3857 F905BF AA tax3858 F905C0 E8 inx3859 F905C1 86 25 stx ldt0+ldt_fbuf3860 F905C3 20 96 06 jsr ?1003861 F905C6 85 27 sta ldt0+ldt_pbr+1 ; set PBR pointer3862 F905C8 84 28 sty ldt0+ldt_pbr+23863 F905CA 64 26 stz ldt0+ldt_pbr3864 F905CC 1A inc a ; drive 0 fat table dma buffer3865 F905CD 1A inc a3866 F905CE 85 23 sta ldt0+ldt_fp+1 ; set fat pointer3867 F905D0 84 24 sty ldt0+ldt_fp+23868 F905D2 64 22 stz ldt0+ldt_fp3869 F905D4 A9 24 lda #DR1SYS3870 F905D6 85 DA sta sysbuf+2 ; drive 1 system track cache3871 F905D8 AA tax3872 F905D9 E8 inx3873 F905DA 86 4F stx ldt1+ldt_fbuf3874 F905DC 20 96 06 jsr ?100Tue Jul 17 11:00:20 2018 Page 233875 F905DF 85 51 sta ldt1+ldt_pbr+1 ; set PBR pointer3876 F905E1 84 52 sty ldt1+ldt_pbr+23877 F905E3 64 50 stz ldt1+ldt_pbr3878 F905E5 1A inc a ; drive 1 fat table dma buffer3879 F905E6 1A inc a3880 F905E7 85 4D sta ldt1+ldt_fp+1 ; set fat pointer3881 F905E9 84 4E sty ldt1+ldt_fp+23882 F905EB 64 4C stz ldt1+ldt_fp3883 F905ED A9 E0 lda #FAT0X3884 F905EF 85 79 sta ldt2+ldt_fbuf ; fat cache buffer drive #23885 F905F1 A9 F0 lda #FAT1X3886 F905F3 85 A3 sta ldt3+ldt_fbuf ; fat cache buffer drive #33887 F905F5 A9 20 lda #>XMSTART3888 F905F7 A0 01 ldy #XMBANK3889 F905F9 64 76 stz ldt2+ldt_fp ; set fat drive # 2 pointer3890 F905FB 85 77 sta ldt2+ldt_fp+13891 F905FD 84 78 sty ldt2+ldt_fp+23892 F905FF 64 A0 stz ldt3+ldt_fp ; set fat drive # 3 pointer3893 F90601 85 A1 sta ldt3+ldt_fp+13894 F90603 84 A2 sty ldt3+ldt_fp+23895 F90605 AF 89 1C F9 lda >PBRPTR23896 F90609 85 7C sta ldt2+ldt_pbr+23897 F9060B AF 8A 1C F9 lda >PBRPTR2+13898 F9060F 85 A6 sta ldt3+ldt_pbr+23899 F90611 A9 FF lda #$FF3900 F90613 85 29 sta ldt0+ldt_fmt3901 F90615 85 53 sta ldt1+ldt_fmt3902 F90617 85 7D sta ldt2+ldt_fmt3903 F90619 85 A7 sta ldt3+ldt_fmt3904 F9061B ACC163905 F9061B C2 20 rep #PMFLAG3906 .LONGA on3907 .MNLIST3908 F9061D AF 85 1C F9 lda >PBRPTR3909 F90621 85 7A sta ldt2+ldt_pbr3910 F90623 AF 87 1C F9 lda >PBRPTR+23911 F90627 85 A4 sta ldt3+ldt_pbr3912 F90629 A9 F8 0F lda #F12EOC3913 F9062C 85 10 sta ldt0+ldt_eoc ; FAT12 end of chain marker3914 F9062E 85 3A sta ldt1+ldt_eoc3915 F90630 A9 F8 FF lda #F16EOC3916 F90633 85 64 sta ldt2+ldt_eoc ; FAT16 end of chain marker3917 F90635 85 8E sta ldt3+ldt_eoc3918 F90637 A9 00 9E lda #cwdl03919 F9063A 85 1C sta ldt0+ldt_cdlp ; current directory pointer drive #03920 F9063C A9 00 A0 lda #cwdl13921 F9063F 85 46 sta ldt1+ldt_cdlp ; current directory pointer drive #13922 F90641 A9 00 A2 lda #cwdl23923 F90644 85 70 sta ldt2+ldt_cdlp ; current directory pointer drive #23924 F90646 A9 00 A4 lda #cwdl33925 F90649 85 9A sta ldt3+ldt_cdlp ; current directory pointer drive #33926 F9064B 64 1E stz ldt0+ldt_cdcls ; current directory cluster3927 F9064D 64 48 stz ldt1+ldt_cdcls3928 F9064F 64 72 stz ldt2+ldt_cdcls3929 F90651 64 9C stz ldt3+ldt_cdcls3930 F90653 A0 00 ldy #03931 F90655 84 20 sty ldt0+ldt_cdlvl ; current directory levelTue Jul 17 11:00:20 2018 Page 243932 F90657 84 4A sty ldt1+ldt_cdlvl3933 F90659 84 74 sty ldt2+ldt_cdlvl3934 F9065B 84 9E sty ldt3+ldt_cdlvl3935 F9065D 64 12 stz ldt0+ldt_free ; clear free cluster's count & next free clu.3936 F9065F 64 14 stz ldt0+ldt_nxt3937 F90661 64 3C stz ldt1+ldt_free3938 F90663 64 3E stz ldt1+ldt_nxt3939 F90665 64 66 stz ldt2+ldt_free3940 F90667 64 68 stz ldt2+ldt_nxt3941 F90669 64 90 stz ldt3+ldt_free3942 F9066B 64 92 stz ldt3+ldt_nxt3943 F9066D ACC083944 F9066D E2 20 sep #PMFLAG3945 .LONGA off3946 .MNLIST3947 F9066F 2B pld ; restore DP3948 F90670 A2 01 ldx #1 ; test virtual drive (drive #1)3949 F90672 20 D3 08 jsr ldtfd3950 F90675 90 13 bcc ?90 ; ok3951 F90677 A9 82 lda #$82 ; force HD format3952 F90679 8D 45 00 sta !vdrive3953 F9067C A9 02 lda #23954 F9067E A0 00 ldy #03955 F90680 A2 01 ldx #13956 F90682 20 BF 0D jsr newf12 ; make fat12 file system (no error!)3957 F90685 A2 01 ldx #13958 F90687 20 D3 08 jsr ldtfd ; test again virtual drive3959 F9068A A2 02 ?90: ldx #2 ; build LDT for ata device's3960 F9068C 20 9D 06 ?95: jsr ldt163961 F9068F E8 inx3962 F90690 E0 04 cpx #MAXDRV3963 F90692 90 F8 bcc ?953964 F90694 2B pld3965 F90695 60 rts39663967 F90696 A0 02 ?100: ldy #DMABNK ; bank for buffer #00..#7F3968 F90698 0A asl a ; get high pointer3969 F90699 90 01 bcc ?1023970 F9069B C8 iny ; next bank3971 F9069C 60 ?102: rts39723973 ; X=logical, DBR=0, DPR=P0LDT3974 F9069D ldt16:3975 .EXTERN lchkmbr39763977 F9069D 86 3F stx ldev ; logical drive3978 F9069F 9B txy3979 F906A0 BE D2 40 ldx !P0LDT+ldtp,y3980 F906A3 86 40 stx ldtcur ; current LDT ptr3981 F906A5 3C 00 40 bit !P0LDT+ldt_fg1,x3982 F906A8 10 5C bpl ?15 ; not ready3983 F906AA 50 5A bvc ?15 ; floppy disk3984 F906AC BD 00 40 lda !P0LDT+ldt_fg1,x3985 F906AF 29 03 and #33986 F906B1 85 3E sta pdev ; phisycal drive3987 F906B3 18 clc3988 F906B4 69 43 adc #'C' ; ata device: 'C' or 'D'Tue Jul 17 11:00:20 2018 Page 253989 F906B6 85 39 sta lunit ; logical drive letter3990 F906B8 20 09 07 jsr ?20 ; check message3991 F906BB 20 67 07 jsr ?30 ; load PBR3992 F906BE 20 A3 07 jsr ?40 ; check PBR3993 F906C1 20 D1 07 jsr ?50 ; fat calc3994 F906C4 A6 40 ldx ldtcur3995 F906C6 BC 25 40 ldy !P0LDT+ldt_fbuf,x3996 F906C9 84 38 sty xbnk3997 F906CB ACC163998 F906CB C2 20 rep #PMFLAG3999 .LONGA on4000 .MNLIST4001 F906CD 98 tya4002 F906CE 0A asl a4003 F906CF 0A asl a4004 F906D0 0A asl a4005 F906D1 0A asl a4006 F906D2 85 2A sta xfatb4007 F906D4 A5 22 lda fat14008 F906D6 85 2C sta flba4009 F906D8 BD 22 40 lda !P0LDT+ldt_fp,x4010 F906DB 85 3A sta tp4011 F906DD BC 24 40 ldy !P0LDT+ldt_fp+2,x4012 F906E0 84 3C sty tp+24013 F906E2 ACC084014 F906E2 E2 20 sep #PMFLAG4015 .LONGA off4016 .MNLIST4017 F906E4 A9 00 lda #0 ; try to load fat1 table4018 F906E6 20 D8 07 jsr ?604019 F906E9 90 0D bcc ?10 ; ok4020 F906EB ACC164021 F906EB C2 20 rep #PMFLAG4022 .LONGA on4023 .MNLIST4024 F906ED A5 24 lda fat24025 F906EF 85 2C sta flba4026 F906F1 ACC084027 F906F1 E2 20 sep #PMFLAG4028 .LONGA off4029 .MNLIST4030 F906F3 A9 80 lda #$80 ; try to read fat2 table (no return if error)4031 F906F5 20 D8 07 jsr ?604032 F906F8 20 22 08 ?10: jsr ?80 ; count free cluster's4033 F906FB 20 6D 0D jsr mvldt ; move data to LDT4034 F906FE A9 E0 lda #$E04035 F90700 9D 01 40 sta !P0LDT+ldt_fg2,x4036 F90703 20 67 08 jsr ?100 ; print summary data4037 F90706 A6 3F ?15: ldx ldev4038 F90708 60 rts40394040 F90709 A5 39 ?20: lda lunit ; print check message4041 F9070B 48 pha4042 F9070C 4B phk4043 F9070D F4 5A 07 pea #!?254044 F90710 A9 05 lda #54045 F90712 48 phaTue Jul 17 11:00:20 2018 Page 264046 F90713 BPRINTF4047 F90713 02 11 cop $114048 .MNLIST4049 F90715 A6 3E ldx pdev4050 F90717 BD 0E 00 lda !atadev,x ; check ata device flag4051 F9071A 29 BD and #10111101B ; ready&ident&valid MBR partition4052 F9071C C9 BD cmp #10111101B4053 F9071E F0 08 beq ?36a ; ok4054 F90720 A6 3E ldx pdev ; load MBR4055 F90722 22 4D 90 F8 jsl lchkmbr4056 F90726 B0 01 bcs ?36b4057 F90728 60 ?36a: rts40584059 F90729 ?36b:4060 F90729 SCNPRINT4061 F90729 02 01 cop $014062 .MNLIST4063 F9072B 75 6E 70 61 72 .DB 'unpartitioned disk or invalid partition ID.', 13, 074 69 74 69 6F6E 65 64 20 6469 73 6B 20 6F72 20 69 6E 7661 6C 69 64 2070 61 72 74 6974 69 6F 6E 2049 44 2E 0D 004064 F90758 80 44 bra ?32 ; no or invalid partition40654066 F9075A 63 68 65 63 6B ?25: .DB 'check <%c>: ', 020 3C 25 63 3E3A 20 0040674068 F90767 A6 3E ?30: ldx pdev ; load PBR4069 F90769 A9 03 lda #34070 F9076B ATACTL4071 F9076B 02 41 cop $414072 .MNLIST4073 F9076D 90 33 bcc ?36 ; ok4074 F9076F SCNPRINT4075 F9076F 02 01 cop $014076 .MNLIST4077 F90771 75 6E 61 62 6C .DB 'unable to load partition boot record (PBR).', 13, 065 20 74 6F 206C 6F 61 64 2070 61 72 74 6974 69 6F 6E 2062 6F 6F 74 2072 65 63 6F 7264 20 28 50 4252 29 2E 0D 004078 F9079E 68 ?32: pla ; discard return address4079 F9079F 68 pla4080 F907A0 A6 3F ?34: ldx ldev4081 F907A2 60 ?36: rts4082 F907A34083 F907A3 20 65 0B ?40: jsr chk16 ; check PBR4084 F907A6 90 FA bcc ?36Tue Jul 17 11:00:20 2018 Page 274085 F907A8 ?45: SCNPRINT4086 F907A8 02 01 cop $014087 .MNLIST4088 F907AA 69 6E 76 61 6C .DB 'invalid partition type (not FAT16).', 13, 069 64 20 70 6172 74 69 74 696F 6E 20 74 7970 65 20 28 6E6F 74 20 46 4154 31 36 29 2E0D 004089 F907CF 80 CD bra ?3240904091 F907D1 20 18 0D ?50: jsr fcalc ; fat calc4092 F907D4 90 CC bcc ?364093 F907D6 80 D0 bra ?4540944095 F907D8 85 41 ?60: sta lflag40964097 F907DA A6 3E ldx pdev4098 F907DC AD CF FD lda !VIA3+VIAPRANH4099 F907DF 29 F8 and #$F84100 F907E1 1F 20 08 F9 ora >?69,x4101 F907E5 8D CF FD sta !VIA3+VIAPRANH ; set bank41024103 F907E8 A6 3E ldx pdev4104 F907EA DA phx ; phisical drive4105 F907EB A9 00 lda #04106 F907ED 48 pha ; lba high4107 F907EE D4 2C pei (flba) ; lba low4108 F907F0 A5 18 lda fatsiz4109 F907F2 48 pha ; sector's count4110 F907F34111 ;pha ; use x-mem buffer4112 ;pei (xfatb) ; x-mem buffer4113 ;pha ; flag=04114 ;ATAREAD4115 F907F34116 F907F3 BF 20 08 F9 lda >?69,x4117 F907F7 48 pha4118 F907F8 A9 00 lda #04119 F907FA 48 pha4120 F907FB ATADMARD4121 F907FB 02 42 cop $424122 F907FD 00 .DB $004123 .MNLIST4124 F907FE4125 F907FE 90 A2 bcc ?36 ; ok no error4126 F90800 24 41 bit lflag4127 F90802 10 9E bpl ?36 ; try fat2 table4128 F90804 SCNPRINT4129 F90804 02 01 cop $014130 .MNLIST4131 F90806 66 61 74 20 74 .DB 'fat table load error.', 13, 061 62 6C 65 206C 6F 61 64 2065 72 72 6F 72Tue Jul 17 11:00:20 2018 Page 282E 0D 004132 ;bra ?324133 F9081D 4C 9E 07 jmp ?324134 F90820 05 06 ?69: .DB $05, $06 ; FAT table bank41354136 F90822 64 3A ?80: stz tp4137 F90824 64 3B stz tp+14138 F90826 A9 02 lda #$024139 F90828 85 3C sta tp+241404141 F9082A A6 3E ldx pdev4142 F9082C AD CF FD lda !VIA3+VIAPRANH4143 F9082F 29 F8 and #$F84144 F90831 1F 20 08 F9 ora >?69,x4145 F90835 8D CF FD sta !VIA3+VIAPRANH ; set bank4146 F90838 A9 08 lda #$08 ; PB3 VIA34147 F9083A 1C C0 FD trb VIA3+VIAPRB ; enable 1Mb buffer4148 F9083D4149 F9083D A2 00 ldx #0 ; cluster number4150 F9083F CPU164151 F9083F C2 30 rep #(PMFLAG.OR.PXFLAG)4152 .LONGA on4153 .LONGI on4154 .MNLIST4155 F90841 9B txy4156 F90842 64 2E stz freecnt4157 F90844 64 30 stz freecls4158 F90846 B7 3A ?85a: lda [tp],y ; scan fat table4159 F90848 D0 08 bne ?90a ; not free4160 F9084A E6 2E inc freecnt ; update free cluster's count4161 F9084C A5 30 lda freecls ; already set?4162 F9084E D0 02 bne ?90a ; yes4163 F90850 86 30 stx freecls ; set first free cluster4164 F90852 E8 ?90a: inx4165 F90853 E4 28 cpx maxcls ; end of table?4166 F90855 B0 0D bcs ?95a ; yes4167 F90857 C8 iny4168 F90858 C8 iny4169 F90859 D0 EB bne ?85a4170 F9085B A5 3B lda tp+14171 F9085D 69 00 01 adc #$01004172 F90860 85 3B sta tp+14173 F90862 80 E2 bra ?85a4174 F90864 ?95a: CPU084175 F90864 E2 30 sep #(PMFLAG.OR.PXFLAG)4176 .LONGA off4177 .LONGI off4178 .MNLIST4179 F90866 60 rts41804181 .COMMENT @41824183 ldx CRXME ; save X mem setting4184 phx4185 sta !CRXMEON ; enable X mem in window $012000 - $013FFF4186 lda xbnk4187 sta !PIA0+PIAPRA ; set x-mem bankTue Jul 17 11:00:20 2018 Page 294188 phb ; save DBR4189 lda tp+24190 pha4191 plb ; set DBR to fat table cache4192 ldx #0 ; cluster number4193 CPU164194 txy4195 stz freecnt4196 stz freecls4197 ?85: lda (tp),y ; scan fat table4198 bne ?90 ; not free4199 inc freecnt ; update free cluster's count4200 lda freecls ; already set?4201 bne ?90 ; yes4202 stx freecls ; set first free cluster4203 ?90: inx4204 cpx maxcls ; end of table?4205 bcs ?95 ; yes4206 iny4207 iny4208 cpy #XMWSIZ ; end of x-mem window?4209 bcc ?85 ; no4210 ACC084211 lda >PIA0+PIAPRA ; update x-mem bank4212 inc a4213 sta >PIA0+PIAPRA4214 ACC164215 ldy #04216 bra ?854217 ?95: CPU084218 plb ; restore DBR4219 plx ; restore X mem setting4220 sta !CRXME,x4221 rts4222 @42234224 F90867 ?100: ACC16 ; print summary4225 F90867 C2 20 rep #PMFLAG4226 .LONGA on4227 .MNLIST4228 F90869 A5 28 lda maxcls4229 F9086B 3A dec a4230 F9086C 3A dec a4231 F9086D 85 28 sta maxcls4232 F9086F ACC084233 F9086F E2 20 sep #PMFLAG4234 .LONGA off4235 .MNLIST4236 F90871 A5 35 lda clssiz4237 F90873 48 pha4238 F90874 D4 2E pei (freecnt)4239 F90876 D4 28 pei (maxcls)4240 F90878 4B phk4241 F90879 F4 82 08 pea #!?1104242 F9087C A9 09 lda #94243 F9087E 48 pha4244 F9087F BPRINTFTue Jul 17 11:00:20 2018 Page 304245 F9087F 02 11 cop $114246 .MNLIST4247 F90881 60 rts42484249 F90882 25 2C 68 75 20 ?110: .DB '%,hu cluster(s) (free: %,hu, 1 cluster=%bu sector(s)).', 13, 063 6C 75 73 7465 72 28 73 2920 28 66 72 6565 3A 20 25 2C68 75 2C 20 3120 63 6C 75 7374 65 72 3D 2562 75 20 73 6563 74 6F 72 2873 29 29 2E 0D0042504251 ; build LDT for floppy disk4252 ; X=logical drive4253 F908BA bldldt:4254 F908BA A9 00 lda #04255 F908BC 8B phb4256 F908BD 48 pha4257 F908BE AB plb4258 F908BF 0B phd4259 F908C0 F4 00 42 pea #P0OS4260 F908C3 2B pld4261 F908C4 20 D3 08 jsr ldtfd4262 F908C7 2B pld4263 F908C8 AB plb4264 F908C9 60 rts42654266 F908CA testldt:4267 F908CA A2 00 ldx #04268 F908CC 20 BA 08 jsr bldldt4269 F908CF 00 00 brk4270 F908D1 00 00 brk42714272 ; build LDT for floppy disk media4273 ; X=logical device, DPR=P0LDT4274 F908D3 ldtfd:4275 F908D3 86 3F stx ldev ; logical drive4276 F908D5 9B txy4277 F908D6 BE D2 40 ldx !P0LDT+ldtp,y4278 F908D9 86 40 stx ldtcur ; current LDT ptr4279 F908DB 3C 00 40 bit !P0LDT+ldt_fg1,x4280 F908DE 10 34 bpl ?15 ; not ready4281 F908E0 70 32 bvs ?15 ; ata device4282 F908E2 9E 01 40 stz !P0LDT+ldt_fg2,x ; reset flag 24283 F908E5 BD 00 40 lda !P0LDT+ldt_fg1,x4284 F908E8 29 03 and #34285 F908EA 85 3E sta pdev ; phisycal drive4286 F908EC 20 18 09 jsr ?20 ; check media format4287 F908EF 20 44 09 jsr ?30 ; load PBR4288 F908F2 20 59 09 jsr ?40 ; check PBR4289 F908F5 20 60 09 jsr ?50 ; fat calc4290 F908F8 20 67 09 jsr ?60 ; count free cluster'sTue Jul 17 11:00:20 2018 Page 314291 F908FB A5 3D lda fdfmt4292 F908FD C9 01 cmp #1 ; DD ibm disk?4293 F908FF D0 03 bne ?10 ; no4294 F90901 20 AF 09 jsr ?90 ; pre-read cluster #44295 F90904 20 6D 0D ?10: jsr mvldt ; move data to LDT4296 F90907 A9 E0 lda #$E0 ; update flag 24297 F90909 05 3D ora fdfmt4298 F9090B 9D 01 40 sta !P0LDT+ldt_fg2,x4299 F9090E 9E 20 40 stz !P0LDT+ldt_cdlvl,x ; set to root directory4300 F90911 20 CA 09 jsr ?100 ; setup BCB list for root, cluster #2,#3괍 F90914 A6 3F ?15: ldx ldev4302 F90916 18 clc4303 F90917 60 rts43044305 F90918 AA ?20: tax ; try to get media format4306 F90919 FDCGETFMT4307 F90919 02 30 cop $304308 F9091B 04 .DB $044309 .MNLIST4310 F9091C B0 38 bcs ?34 ; unformatted disk?4311 F9091E 84 3D sty fdfmt ; save media format4312 F90920 C0 01 cpy #1 ; cbm format?4313 F90922 D0 34 bne ?35 ; no, so return4314 F90924 A9 49 lda #'I' ; send init command to cbm emulator4315 F90926 85 04 sta bpath4316 F90928 A5 3E lda pdev4317 F9092A 09 30 ora #'0' ; drive4318 F9092C 85 05 sta bpath+14319 F9092E 64 06 stz bpath+24320 F90930 A9 04 lda #bpath ; address of command string4321 F90932 A2 42 ldx #>P0OS4322 F90934 A0 00 ldy #04323 F90936 20 F6 2E jsr cbmfs_cmd4324 F90939 B0 1B bcs ?34 ; skip return address if error4325 F9093B A9 A1 lda #10100001B ; set flag 24326 F9093D A6 40 ldx ldtcur4327 F9093F 9D 01 40 sta !P0LDT+ldt_fg2,x4328 F90942 80 12 bra ?34 ; skip return address & CF=043294330 F90944 A6 3E ?30: ldx pdev ; read system track (track 0)4331 F90946 DA phx ; phsycal drive4332 F90947 A9 00 lda #04333 F90949 48 pha ; track=04334 F9094A BD D8 40 lda !P0LDT+sysbuf,x ; dma buffer #4335 F9094D 48 pha4336 F9094E A5 3D lda fdfmt ; format4337 F90950 48 pha4338 F90951 FDCTKRD ; read whole track4339 F90951 02 35 cop $354340 F90953 00 .DB $004341 .MNLIST4342 F90954 90 02 bcc ?35 ; ok4343 F90956 68 ?34: pla ; discard return address4344 F90957 68 pla4345 F90958 60 ?35: rts43464347 F90959 20 42 0C ?40: jsr chk12 ; check floppy disk PBRTue Jul 17 11:00:20 2018 Page 324348 F9095C 90 FA bcc ?35 ; ok4349 F9095E 80 F6 bra ?34 ; skip return address43504351 F90960 20 18 0D ?50: jsr fcalc ; fat calc4352 F90963 90 F3 bcc ?354353 F90965 80 EF bra ?34 ; skip return address43544355 F90967 A6 40 ?60: ldx ldtcur ; compute free cluster's4356 F90969 ACC164357 F90969 C2 20 rep #PMFLAG4358 .LONGA on4359 .MNLIST4360 F9096B BD 22 40 lda !P0LDT+ldt_fp,x4361 F9096E 85 3A sta tp4362 F90970 BC 24 40 ldy !P0LDT+ldt_fp+2,x4363 F90973 8B phb4364 F90974 5A phy4365 F90975 AB plb4366 F90976 A2 00 ldx #0 ; cluster number4367 F90978 CPU164368 F90978 C2 30 rep #(PMFLAG.OR.PXFLAG)4369 .LONGA on4370 .LONGI on4371 .MNLIST4372 F9097A 9B txy ; Y=fat table index4373 F9097B 64 2E stz freecnt4374 F9097D 64 30 stz freecls4375 F9097F B1 3A ?65: lda (tp),y ; even index cluster4376 F90981 29 FF 0F and #$0FFF4377 F90984 D0 08 bne ?70 ; not free4378 F90986 E6 2E inc freecnt ; update free cluster's count4379 F90988 A5 30 lda freecls ; already set?4380 F9098A D0 02 bne ?70 ; yes4381 F9098C 86 30 stx freecls ; set first free cluster4382 F9098E E8 ?70: inx4383 F9098F E4 28 cpx maxcls ; end of table?4384 F90991 B0 18 bcs ?80 ; yes4385 F90993 C8 iny ; odd index cluster4386 F90994 B1 3A lda (tp),y4387 F90996 4A lsr a ; shift x 44388 F90997 4A lsr a4389 F90998 4A lsr a4390 F90999 4A lsr a4391 F9099A D0 08 bne ?754392 F9099C E6 2E inc freecnt ; update free cluster's count4393 F9099E A5 30 lda freecls ; already set?4394 F909A0 D0 02 bne ?75 ; yes4395 F909A2 86 30 stx freecls ; set first free cluster4396 F909A4 C8 ?75: iny4397 F909A5 C8 iny ; pointer to next cluster4398 F909A6 E8 inx4399 F909A7 E4 28 cpx maxcls4400 F909A9 90 D4 bcc ?654401 F909AB ?80: CPU084402 F909AB E2 30 sep #(PMFLAG.OR.PXFLAG)4403 .LONGA off4404 .LONGI offTue Jul 17 11:00:20 2018 Page 334405 .MNLIST4406 F909AD AB plb4407 F909AE 60 rts44084409 F909AF A6 3E ?90: ldx pdev ; pre-read cluster #4 DD disk4410 F909B1 DA phx ; phsycal drive4411 F909B2 F4 00 01 pea #$0100 ; track=1, head=04412 F909B5 F4 02 01 pea #$0102 ; start sec=1, sec num=24413 F909B8 BD D8 40 lda !P0LDT+sysbuf,x ; dma buffer #4414 F909BB 18 clc ; using first buffer after...4415 F909BC 69 14 adc #20 ; ...system track 04416 F909BE 48 pha4417 F909BF A5 3D lda fdfmt ; format4418 F909C1 48 pha4419 F909C2 FDCTKRD ; read whole track4420 F909C2 02 35 cop $354421 F909C4 00 .DB $004422 .MNLIST4423 F909C5 90 02 bcc ?95 ; ok4424 F909C7 68 pla ; discard return address4425 F909C8 68 pla4426 F909C9 60 ?95: rts44274428 F909CA A5 3F ?100: lda ldev ; setup BCB list for root4429 F909CC 85 04 sta tbdrv4430 F909CE 64 07 stz tbcls+14431 F909D0 64 0B stz tbhead+14432 F909D2 64 09 stz tblba+14433 F909D4 A6 3E ldx pdev4434 F909D6 A9 07 lda #$07 ; first DD root sec4435 F909D8 A4 3D ldy fdfmt4436 F909DA F0 02 beq ?1054437 F909DC A9 13 lda #$13 ; first HD root sec4438 F909DE 18 ?105: clc4439 F909DF 7D D8 40 adc !P0LDT+sysbuf,x4440 F909E2 AA tax4441 F909E3 A0 02 ldy #DMABNK ; bank for buffer #00..#7F4442 F909E5 0A asl a ; get high pointer4443 F909E6 90 01 bcc ?1104444 F909E8 C8 iny ; next bank4445 F909E9 84 10 ?110: sty tbdma4446 F909EB 64 0E stz tbptr4447 F909ED 3A dec a4448 F909EE 3A dec a4449 F909EF 85 0F sta tbptr+14450 F909F1 CA dex4451 F909F2 86 11 stx tbdma+1 ; dma buffer #4452 F909F4 A2 00 ldx #04453 F909F6 A5 3D lda fdfmt4454 F909F8 F0 02 beq ?1154455 F909FA A2 0E ldx #?5014456 F909FC 8B ?115: phb4457 F909FD A9 01 lda #WKB4458 F909FF 48 pha4459 F90A00 AB plb4460 F90A01 INDEX164461 F90A01 C2 10 rep #PXFLAGTue Jul 17 11:00:20 2018 Page 344462 .LONGI on4463 .MNLIST4464 F90A03 A0 00 CC ldy #dma0s4465 F90A06 A5 3E lda pdev4466 F90A08 F0 03 beq ?1204467 F90A0A A0 10 CD ldy #dma1s4468 F90A0D BF 7C 0A F9 ?120: lda >?500,x ; lba4469 F90A11 F0 5A beq ?125 ; end of list4470 F90A13 85 08 sta tblba4471 F90A15 BF 9C 0A F9 lda >?510,x ; sec. offset4472 F90A19 85 05 sta tbdrv+14473 F90A1B BF 1C 0B F9 lda >?550,x ; cluster #4474 F90A1F 85 06 sta tbcls4475 F90A21 BF DC 0A F9 lda >?530,x ; head #4476 F90A25 85 0A sta tbhead4477 F90A27 BF BC 0A F9 lda >?520,x ; track #4478 F90A2B 85 0C sta tbtrk4479 F90A2D BF FC 0A F9 lda >?540,x ; sector #4480 F90A31 85 0D sta tbtrk+14481 F90A33 A5 0F lda tbptr+1 ; update buffer ptr4482 F90A35 1A inc a4483 F90A36 1A inc a4484 F90A37 85 0F sta tbptr+14485 F90A39 E6 11 inc tbdma+1 ; update dma buffer #4486 F90A3B ACC16CLC4487 F90A3B C2 21 rep #(PMFLAG.OR.PCFLAG)4488 .LONGA on4489 .MNLIST4490 F90A3D A5 04 lda tbdrv4491 F90A3F 99 02 00 sta bcb_drv,y4492 F90A42 A5 06 lda tbcls4493 F90A44 99 04 00 sta bcb_cls,y4494 F90A47 A5 08 lda tblba4495 F90A49 99 06 00 sta bcb_lba,y4496 F90A4C A5 0A lda tbhead4497 F90A4E 99 08 00 sta bcb_head,y4498 F90A51 A5 0C lda tbtrk4499 F90A53 99 0A 00 sta bcb_trk,y4500 F90A56 A5 0E lda tbptr4501 F90A58 99 0C 00 sta bcb_ptr,y4502 F90A5B A5 10 lda tbdma4503 F90A5D 99 0E 00 sta bcb_dma,y4504 F90A60 98 tya4505 F90A61 69 10 00 adc #BCBSIZE4506 F90A64 99 00 00 sta bcb_next,y4507 F90A67 A8 tay4508 F90A68 ACC084509 F90A68 E2 20 sep #PMFLAG4510 .LONGA off4511 .MNLIST4512 F90A6A E8 inx4513 F90A6B 80 A0 bra ?1204514 F90A6D ?125: ACC164515 F90A6D C2 20 rep #PMFLAG4516 .LONGA on4517 .MNLIST4518 F90A6F 98 tyaTue Jul 17 11:00:20 2018 Page 354519 F90A70 38 sec4520 F90A71 E9 10 00 sbc #BCBSIZE4521 F90A74 AA tax4522 F90A75 9E 00 00 stz !bcb_next,x4523 F90A78 CPU084524 F90A78 E2 30 sep #(PMFLAG.OR.PXFLAG)4525 .LONGA off4526 .LONGI off4527 .MNLIST4528 F90A7A AB plb4529 F90A7B 60 rts45304531 ; DD system track lba4532 F90A7C 07 08 09 0A 0B ?500: .DB $07, $08, $09, $0A, $0B, $0C, $0D, $0E, $0F, $10, $11, $120C 0D 0E 0F 1011 124533 F90A88 13 00 .DB $13, $004534 00000E ?501 .EQU $-?5004535 ; HD system track lba4536 F90A8A 13 14 15 16 17 .DB $13, $14, $15, $16, $17, $18, $19, $1A, $1B, $1C, $1D, $1E18 19 1A 1B 1C1D 1E4537 F90A96 1F 20 21 22 23 .DB $1F, $20, $21, $22, $23, $000045384539 ?510: ; DD sector offset4540 F90A9C 00 01 02 03 04 .DB 0, 1, 2, 3, 4, 5, 6, 0, 1, 0, 1, 0, 1, 005 06 00 01 0001 00 01 004541 ; HD sector offset4542 F90AAA 00 01 02 03 04 .DB 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 0, 0, 0, 005 06 07 08 090A 0B 0C 0D 0000 00 004543 F90ABC4544 ?520: ; DD track4545 F90ABC 00 00 00 00 00 .DB 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 000 00 00 00 0000 01 01 004546 ; HD track4547 F90ACA 00 00 00 00 00 .DB 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 000 00 00 00 0000 00 00 00 0000 00 004548 F90ADC4549 ?530: ; DD head4550 F90ADC 00 00 01 01 01 .DB 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 001 01 01 01 0101 00 00 004551 ; HD head4552 F90AEA 01 01 01 01 01 .DB 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 001 01 01 01 0101 01 01 01 0101 01 004553 F90AFC4554 ?540: ; DD sector #4555 F90AFC 08 09 01 02 03 .DB 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 0Tue Jul 17 11:00:20 2018 Page 3604 05 06 07 0809 01 02 004556 ; HD sector #4557 F90B0A 02 03 04 05 06 .DB 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 1507 08 09 0A 0B0C 0D 0E 0F4558 F90B18 10 11 12 00 .DB 16, 17, 18, 045594560 ?550: ; DD cluster #4561 F90B1C 00 00 00 00 00 .DB 0, 0, 0, 0, 0, 0, 0, 2, 2, 3, 3, 4, 4, 000 00 02 02 0303 04 04 004562 ; HD cluster #4563 F90B2A 00 00 00 00 00 .DB 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 000 00 00 00 0000 00 00 004564 F90B38 02 03 04 00 .DB 2, 3, 4, 045654566 ; check fat16 volume in pbr record on usb #0 disk4567 F90B3C usbchk16:4568 F90B3C A9 00 lda #<PBR0USB4569 F90B3E 85 32 sta pbrp4570 F90B40 A9 96 lda #>PBR0USB4571 F90B42 85 33 sta pbrp+14572 F90B44 A9 01 lda #^PBR0USB4573 F90B46 85 34 sta pbrp+24574 F90B48 ACC164575 F90B48 C2 20 rep #PMFLAG4576 .LONGA on4577 .MNLIST4578 F90B4A AD 2A 00 lda !usbmbr ; partition start4579 F90B4D 85 08 sta hidsec ; this is also hidden sectors count4580 F90B4F AD 2C 00 lda !usbmbr+24581 F90B52 29 FF 00 and #$00FF4582 F90B55 85 0A sta hidsec+24583 F90B57 AD 3A 00 lda !usbprt ; total partition sector's4584 F90B5A 85 0C sta totsec4585 F90B5C AD 3C 00 lda !usbprt+24586 F90B5F 85 0E sta totsec+24587 F90B61 ACC084588 F90B61 E2 20 sep #PMFLAG4589 .LONGA off4590 .MNLIST4591 F90B63 80 2E bra chk16c4592 F90B654593 ; check fat16 volume in pbr record4594 F90B65 chk16:4595 F90B65 A9 FF lda #$FF4596 F90B67 85 3D sta fdfmt4597 F90B69 A5 3E lda pdev ; phisycal drive4598 F90B6B 0A asl a4599 F90B6C 0A asl a4600 F90B6D AA tax4601 F90B6E ACC164602 F90B6E C2 20 rep #PMFLAG4603 .LONGA on4604 .MNLISTTue Jul 17 11:00:20 2018 Page 374605 F90B70 BD 22 00 lda !atambr,x ; partition start4606 F90B73 85 08 sta hidsec ; this is also hidden sectors count4607 F90B75 BD 24 00 lda !atambr+2,x4608 F90B78 29 FF 00 and #$00FF4609 F90B7B 85 0A sta hidsec+24610 F90B7D BD 32 00 lda !ataprt,x ; total partition sector's4611 F90B80 85 0C sta totsec4612 F90B82 BD 34 00 lda !ataprt+2,x4613 F90B85 85 0E sta totsec+24614 F90B87 A6 40 ldx ldtcur ; LDT ptr4615 F90B89 BD 26 40 lda !P0LDT+ldt_pbr,x4616 F90B8C 85 32 sta pbrp4617 F90B8E BC 28 40 ldy !P0LDT+ldt_pbr+2,x4618 F90B91 84 34 sty pbrp+246194620 ; entry point to check usb #0 disk4621 F90B93 chk16c:4622 F90B93 ACC164623 F90B93 C2 20 rep #PMFLAG4624 .LONGA on4625 .MNLIST4626 F90B95 A6 33 ldx pbrp+14627 F90B97 E8 inx4628 F90B98 86 33 stx pbrp+14629 F90B9A A9 F5 FF lda #MAXF164630 F90B9D 85 10 sta maxcnt4631 F90B9F A0 FE ldy #$FE ; pointer to pbr signature4632 F90BA1 B7 32 lda [pbrp],y4633 F90BA3 C9 55 AA cmp #$AA554634 F90BA6 D0 67 bne ?10 ; signature error4635 F90BA8 CA dex4636 F90BA9 86 33 stx pbrp+14637 F90BAB A0 0B ldy #$0B ; pointer to bytes per sector4638 F90BAD B7 32 lda [pbrp],y4639 F90BAF C9 00 02 cmp #$0200 ; must be always 512 bytes per sector4640 F90BB2 D0 5B bne ?10 ; error4641 F90BB4 A0 1C ldy #$1C ; pointer to hidden sector's count4642 F90BB6 B7 32 lda [pbrp],y ; typical value: $3F4643 F90BB8 C5 08 cmp hidsec ; must match4644 F90BBA D0 53 bne ?104645 F90BBC C8 iny4646 F90BBD C8 iny4647 F90BBE B7 32 lda [pbrp],y4648 F90BC0 C5 0A cmp hidsec+24649 F90BC2 D0 4B bne ?104650 F90BC4 C9 00 00 cmp #04651 F90BC7 D0 46 bne ?10 ; must be 04652 F90BC9 A0 0E ldy #$0E ; pointer to reserved sector's4653 F90BCB B7 32 lda [pbrp],y ; typical value: 1 (no mandatory)4654 F90BCD 85 16 sta rsvsec4655 F90BCF A0 11 ldy #$11 ; pointer to root dir entry #4656 F90BD1 B7 32 lda [pbrp],y4657 F90BD3 F0 3A beq ?10 ; fat32?4658 F90BD5 C9 00 02 cmp #$0200 ; typical value: not mandatory...4659 F90BD8 D0 35 bne ?10 ; ...but this will be4660 F90BDA 85 1C sta rootent4661 F90BDC 4A lsr a ; divide by 16...Tue Jul 17 11:00:20 2018 Page 384662 F90BDD 4A lsr a4663 F90BDE 4A lsr a4664 F90BDF 4A lsr a ;...to get root dir size in sec's4665 F90BE0 85 1A sta rootsiz4666 F90BE2 A0 13 ldy #$13 ; pointer to tot. sec164667 F90BE4 B7 32 lda [pbrp],y4668 F90BE6 F0 0A beq ?06 ; invalid: is valid field tot. sec324669 F90BE8 C5 0C cmp totsec4670 F90BEA D0 23 bne ?10 ; error4671 F90BEC A5 0E lda totsec+2 ; must be 04672 F90BEE D0 1F bne ?10 ; errore4673 F90BF0 F0 10 beq ?08 ; ok4674 F90BF2 A0 20 ?06: ldy #$20 ; pointer to tot. sec324675 F90BF4 B7 32 lda [pbrp],y4676 F90BF6 C5 0C cmp totsec4677 F90BF8 D0 15 bne ?10 ; error4678 F90BFA C8 iny4679 F90BFB C8 iny4680 F90BFC B7 32 lda [pbrp],y4681 F90BFE C5 0E cmp totsec+24682 F90C00 D0 0D bne ?10 ; error4683 F90C02 A0 16 ?08: ldy #$16 ; pointer to fat size (FAT16)4684 F90C04 B7 32 lda [pbrp],y4685 F90C06 85 18 sta fatsiz4686 F90C08 F0 05 beq ?10 ; hmmm... is fat32... not good4687 F90C0A C9 01 01 cmp #257 ; fat16 table size limited to 256 sec. max4688 F90C0D 80 01 bra ?124689 F90C0F 38 ?10: sec4690 F90C10 ?12: CPU084691 F90C10 E2 30 sep #(PMFLAG.OR.PXFLAG)4692 .LONGA off4693 .LONGI off4694 .MNLIST4695 F90C12 B0 20 bcs ?18 ; error4696 F90C14 A0 15 ldy #$15 ; pointer to media byte4697 F90C16 B7 32 lda [pbrp],y ; must be $F84698 F90C18 C9 F8 cmp #$F84699 F90C1A D0 17 bne ?164700 F90C1C A0 10 ldy #$10 ; pointer to count of fat table's4701 F90C1E B7 32 lda [pbrp],y4702 F90C20 C9 02 cmp #2 ; must be 24703 F90C22 D0 0F bne ?164704 F90C24 A0 0D ldy #$0D ; pointer to sector(s) per cluster4705 F90C26 B7 32 lda [pbrp],y4706 F90C28 A2 06 ldx #CLSCNT-14707 F90C2A DF 61 1C F9 ?14: cmp >CLSSIZE,x4708 F90C2E F0 05 beq ?204709 F90C30 CA dex4710 F90C31 10 F7 bpl ?144711 F90C33 38 ?16: sec4712 F90C34 60 ?18: rts4713 F90C35 85 35 ?20: sta clssiz4714 F90C37 3A dec a4715 F90C38 85 37 sta clsmod4716 F90C3A BF 68 1C F9 lda >CLSSHIFT,x4717 F90C3E 85 36 sta clsshf4718 F90C40 18 clcTue Jul 17 11:00:20 2018 Page 394719 F90C41 60 rts47204721 ; check floppy disk PBR4722 F90C42 chk12:4723 ;ldx pdev ; phisycal drive4724 ;lda !fdcdrv,x ; get format from bios4725 ;and #00000011B4726 ;sta fdfmt ; format to check (0 or 2)4727 F90C42 A5 3D lda fdfmt4728 F90C44 4A lsr a ; index DD/HD4729 F90C45 85 2A sta fdix4730 F90C47 0A asl a4731 F90C48 85 4F sta fd2ix4732 F90C4A ACC164733 F90C4A C2 20 rep #PMFLAG4734 .LONGA on4735 .MNLIST4736 F90C4C A9 F5 0F lda #MAXF124737 F90C4F 85 10 sta maxcnt4738 F90C51 A6 40 ldx ldtcur ; LDT ptr4739 F90C53 BD 26 40 lda !P0LDT+ldt_pbr,x4740 F90C56 85 32 sta pbrp4741 F90C58 BC 28 40 ldy !P0LDT+ldt_pbr+2,x4742 F90C5B 84 34 sty pbrp+24743 F90C5D A6 33 ldx pbrp+14744 F90C5F E8 inx4745 F90C60 86 33 stx pbrp+14746 F90C62 A0 FE ldy #$FE ; pointer to pbr signature4747 F90C64 B7 32 lda [pbrp],y4748 F90C66 C9 55 AA cmp #$AA554749 F90C69 D0 79 bne ?10 ; signature error4750 F90C6B CA dex4751 F90C6C 86 33 stx pbrp+14752 F90C6E A6 4F ldx fd2ix ; X=DD/HD double index4753 F90C70 A0 0B ldy #$0B ; pointer to bytes per sector4754 F90C72 B7 32 lda [pbrp],y4755 F90C74 C9 00 02 cmp #$0200 ; must be always 512 bytes per sector4756 F90C77 D0 6B bne ?10 ; error4757 F90C79 A0 0E ldy #$0E ; pointer to reserved sector's4758 F90C7B B7 32 lda [pbrp],y ; mandatory value: 14759 F90C7D 85 16 sta rsvsec4760 F90C7F 3A dec a4761 F90C80 D0 62 bne ?10 ; error4762 F90C82 A0 11 ldy #$11 ; pointer to root dir entry #4763 F90C84 B7 32 lda [pbrp],y4764 F90C86 DF 6F 1C F9 cmp >FDROOT,x ; mandatory4765 F90C8A D0 58 bne ?10 ; error4766 F90C8C 85 1C sta rootent4767 F90C8E 4A lsr a ; divide by 16...4768 F90C8F 4A lsr a4769 F90C90 4A lsr a4770 F90C91 4A lsr a ;...to get root dir size in sec's4771 F90C92 85 1A sta rootsiz4772 F90C94 A0 13 ldy #$13 ; pointer to tot. sec.4773 F90C96 B7 32 lda [pbrp],y4774 F90C98 DF 73 1C F9 cmp >FDSEC,x4775 F90C9C D0 46 bne ?10 ; errorTue Jul 17 11:00:20 2018 Page 404776 F90C9E 85 0C sta totsec4777 F90CA0 A0 16 ldy #$16 ; pointer to fat size (FAT12)4778 F90CA2 B7 32 lda [pbrp],y4779 F90CA4 DF 77 1C F9 cmp >FDFAT,x4780 F90CA8 D0 3A bne ?10 ; error4781 F90CAA 85 18 sta fatsiz4782 F90CAC A0 18 ldy #$18 ; pointer to sector's per track4783 F90CAE B7 32 lda [pbrp],y4784 F90CB0 DF 7B 1C F9 cmp >FDSPT,x4785 F90CB4 D0 2E bne ?10 ; error4786 F90CB6 A0 1A ldy #$1A ; pointer to sides count #4787 F90CB8 B7 32 lda [pbrp],y4788 F90CBA C9 02 00 cmp #2 ; must be 24789 F90CBD D0 25 bne ?10 ; error4790 F90CBF A0 1C ldy #$1C ; pointer to hidden sec4791 F90CC1 B7 32 lda [pbrp],y4792 F90CC3 D0 1F bne ?10 ; must be 04793 F90CC5 A0 1E ldy #$1E4794 F90CC7 B7 32 lda [pbrp],y4795 F90CC9 D0 19 bne ?10 ; must be 04796 F90CCB A0 20 ldy #$20 ; tot sec324797 F90CCD B7 32 lda [pbrp],y4798 F90CCF D0 13 bne ?10 ; must be 04799 F90CD1 85 08 sta hidsec4800 F90CD3 85 0A sta hidsec+24801 F90CD5 85 0E sta totsec+24802 F90CD7 A0 22 ldy #$224803 F90CD9 B7 32 lda [pbrp],y4804 F90CDB D0 07 bne ?10 ; must be 04805 F90CDD A0 24 ldy #$24 ; rsvd1 & rsvd24806 F90CDF B7 32 lda [pbrp],y4807 F90CE1 18 clc4808 F90CE2 F0 01 beq ?12 ; must be 04809 F90CE4 38 ?10: sec4810 F90CE5 ?12: ACC084811 F90CE5 E2 20 sep #PMFLAG4812 .LONGA off4813 .MNLIST4814 F90CE7 B0 2A bcs ?16 ; exit&error4815 F90CE9 A6 2A ldx fdix4816 F90CEB A0 0D ldy #$0D ; pointer to sector(s) per cluster4817 F90CED B7 32 lda [pbrp],y4818 F90CEF DF 7F 1C F9 cmp >FDCLS,x4819 F90CF3 D0 1D bne ?14 ; error4820 F90CF5 85 35 sta clssiz4821 F90CF7 3A dec a4822 F90CF8 85 37 sta clsmod4823 F90CFA BF 81 1C F9 lda >FDSHF,x4824 F90CFE 85 36 sta clsshf4825 F90D00 A0 10 ldy #$10 ; pointer to count of fat table's4826 F90D02 B7 32 lda [pbrp],y4827 F90D04 C9 02 cmp #2 ; must be 24828 F90D06 D0 0A bne ?144829 F90D08 A0 15 ldy #$15 ; pointer to media byte4830 F90D0A B7 32 lda [pbrp],y4831 F90D0C DF 83 1C F9 cmp >FDMEDIA,x4832 F90D10 F0 02 beq ?18Tue Jul 17 11:00:20 2018 Page 414833 F90D12 38 ?14: sec4834 F90D13 60 ?16: rts4835 F90D14 85 2B ?18: sta media4836 F90D16 18 clc4837 F90D17 60 rts48384839 ; compute fat param's4840 F90D18 fcalc:4841 F90D18 ACC16CLC4842 F90D18 C2 21 rep #(PMFLAG.OR.PCFLAG)4843 .LONGA on4844 .MNLIST4845 F90D1A A5 08 lda hidsec4846 F90D1C 65 16 adc rsvsec4847 F90D1E B0 4A bcs ?14 ; error4848 F90D20 85 22 sta fat1 ; fat1 table lba4849 F90D22 65 18 adc fatsiz4850 F90D24 85 24 sta fat2 ; fat2 table lba4851 F90D26 B0 42 bcs ?14 ; error4852 F90D28 65 18 adc fatsiz4853 F90D2A B0 3E bcs ?14 ; error4854 F90D2C 85 20 sta root ; root dir. lba4855 F90D2E 65 1A adc rootsiz4856 F90D30 B0 38 bcs ?14 ; error4857 F90D32 85 26 sta start ; first data sector lba4858 F90D34 38 sec4859 F90D35 E5 08 sbc hidsec4860 F90D37 85 12 sta first ; first relative data sec4861 F90D39 38 sec4862 F90D3A A5 0C lda totsec ; tot. data sec4863 F90D3C E5 12 sbc first4864 F90D3E 85 14 sta clscnt ; cluster count4865 F90D40 A5 0E lda totsec+24866 F90D42 E9 00 00 sbc #04867 F90D45 A4 36 ldy clsshf4868 F90D47 F0 06 beq ?12 ; no shift4869 F90D49 4A ?10: lsr a4870 F90D4A 66 14 ror clscnt4871 F90D4C 88 dey4872 F90D4D D0 FA bne ?104873 F90D4F 48 ?12: pha4874 F90D50 68 pla4875 F90D51 38 sec4876 F90D52 D0 16 bne ?14 ; error: must be 04877 F90D54 A5 14 lda clscnt4878 F90D56 C5 10 cmp maxcnt4879 F90D58 90 03 bcc ?134880 F90D5A A9 F4 FF lda #MAXF16-1 ; limit max. count4881 F90D5D 1A ?13: inc a ; here CF=04882 F90D5E 1A inc a ; max. usable cluster+1=N+2 (2..N+1)4883 F90D5F 85 28 sta maxcls4884 F90D61 A6 35 ldx clssiz4885 F90D63 8A txa ; B=0, A=clssiz4886 F90D64 0A asl a ; 16 entries per sec...4887 F90D65 0A asl a4888 F90D66 0A asl a4889 F90D67 0A asl a ; here CF=0Tue Jul 17 11:00:20 2018 Page 424890 F90D68 85 1E sta clsent ; entries in cluster4891 F90D6A ?14: ACC084892 F90D6A E2 20 sep #PMFLAG4893 .LONGA off4894 .MNLIST4895 F90D6C 60 rts48964897 ; move computed fat var's to LDT4898 F90D6D mvldt:4899 F90D6D A6 40 ldx ldtcur4900 F90D6F ACC164901 F90D6F C2 20 rep #PMFLAG4902 .LONGA on4903 .MNLIST4904 F90D71 A5 20 lda root4905 F90D73 9D 02 40 sta !P0LDT+ldt_root,x4906 F90D76 A5 22 lda fat14907 F90D78 9D 04 40 sta !P0LDT+ldt_fat1,x4908 F90D7B A5 24 lda fat24909 F90D7D 9D 06 40 sta !P0LDT+ldt_fat2,x4910 F90D80 A5 26 lda start4911 F90D82 9D 08 40 sta !P0LDT+ldt_cls,x4912 F90D85 A5 28 lda maxcls4913 F90D87 9D 0A 40 sta !P0LDT+ldt_max,x4914 F90D8A A5 1C lda rootent4915 F90D8C 9D 0C 40 sta !P0LDT+ldt_rent,x4916 F90D8F A5 1E lda clsent4917 F90D91 9D 0E 40 sta !P0LDT+ldt_cent,x4918 F90D94 A5 2E lda freecnt4919 F90D96 9D 12 40 sta !P0LDT+ldt_free,x4920 F90D99 A5 30 lda freecls4921 F90D9B 9D 14 40 sta !P0LDT+ldt_nxt,x4922 F90D9E ACC084923 F90D9E E2 20 sep #PMFLAG4924 .LONGA off4925 .MNLIST4926 F90DA0 A5 35 lda clssiz4927 F90DA2 9D 18 40 sta !P0LDT+ldt_csiz,x4928 F90DA5 A5 36 lda clsshf4929 F90DA7 9D 19 40 sta !P0LDT+ldt_cshf,x4930 F90DAA A5 18 lda fatsiz4931 F90DAC 9D 16 40 sta !P0LDT+ldt_fsiz,x4932 F90DAF A5 1A lda rootsiz4933 F90DB1 9D 1A 40 sta !P0LDT+ldt_rsiz,x4934 F90DB4 A5 37 lda clsmod4935 F90DB6 9D 1B 40 sta !P0LDT+ldt_mcls,x4936 F90DB9 A5 3D lda fdfmt4937 F90DBB 9D 29 40 sta !P0LDT+ldt_fmt,x4938 F90DBE 60 rts49394940 ;---------------------------------------------------------------------------4941 ; new fat file system4942 ;---------------------------------------------------------------------------49434944 ; make a new fresh fat12 file system on floppy disk4945 ; in: A=format (0 or 2)4946 ; X=logical driveTue Jul 17 11:00:20 2018 Page 434947 ; Y=$FF if label is specified4948 F90DBF newf12:4949 F90DBF 85 3D sta fdfmt4950 F90DC1 86 3F stx ldev4951 F90DC3 84 41 sty lflag4952 F90DC5 4A lsr a4953 F90DC6 85 2A sta fdix ; DD/HD index4954 F90DC8 9B txy4955 F90DC9 BE D2 40 ldx !P0LDT+ldtp,y4956 F90DCC 86 40 stx ldtcur4957 F90DCE BD 00 40 lda !P0LDT+ldt_fg1,x4958 F90DD1 29 03 and #34959 F90DD3 85 3E sta pdev ; phisycal drive4960 F90DD5 24 41 bit lflag4961 F90DD7 30 0C bmi ?10 ; label specified4962 F90DD9 A2 0A ldx #10 ; move standard label4963 F90DDB BF 8B 1C F9 ?05: lda >PBRLBL,x4964 F90DDF 9D 53 41 sta !P0FAT+fcbs,x4965 F90DE2 CA dex4966 F90DE3 10 F6 bpl ?054967 F90DE5 A6 2A ?10: ldx fdix4968 F90DE7 BF 83 1C F9 lda >FDMEDIA,x4969 F90DEB 85 2B sta media ; media type4970 F90DED ACC164971 F90DED C2 20 rep #PMFLAG4972 .LONGA on4973 .MNLIST4974 F90DEF A6 40 ldx ldtcur4975 F90DF1 BD 26 40 lda !P0LDT+ldt_pbr,x ; set PBR pointer4976 F90DF4 85 32 sta pbrp4977 F90DF6 BC 28 40 ldy !P0LDT+ldt_pbr+2,x4978 F90DF9 84 34 sty pbrp+24979 F90DFB BD 22 40 lda !P0LDT+ldt_fp,x ; set fat1 table pointer4980 F90DFE 85 3A sta tp4981 F90E00 BC 24 40 ldy !P0LDT+ldt_fp+2,x4982 F90E03 84 3C sty tp+24983 F90E05 A9 B1 1C lda #F12HDD ; boot sector header DD4984 F90E08 A4 3D ldy fdfmt4985 F90E0A F0 03 beq ?124986 F90E0C A9 CD 1C lda #F12HHD ; boot sector header HD4987 F90E0F 85 4C ?12: sta tlp4988 F90E11 A0 F9 ldy #.SEG.F12HDD4989 F90E13 84 4E sty tlp+24990 F90E15 A9 00 24 lda #$2400 ; bytes for DD whole track4991 F90E18 A4 3D ldy fdfmt4992 F90E1A F0 03 beq ?154993 F90E1C A9 00 48 lda #$4800 ; bytes for HD whole track4994 F90E1F A2 00 ?15: ldx #04995 F90E21 INDEX164996 F90E21 C2 10 rep #PXFLAG4997 .LONGI on4998 .MNLIST4999 F90E23 A8 tay5000 F90E24 88 dey5001 F90E25 88 dey ; index5002 F90E26 8A txa ; clear C5003 F90E27 97 32 ?20: sta [pbrp],y ; clear track bufferTue Jul 17 11:00:20 2018 Page 445004 F90E29 88 dey5005 F90E2A 88 dey5006 F90E2B 10 FA bpl ?205007 F90E2D A0 FE 01 ldy #$01FE ; store signature in boot sector5008 F90E30 A9 55 AA lda #$AA555009 F90E33 97 32 sta [pbrp],y5010 F90E35 CPU085011 F90E35 E2 30 sep #(PMFLAG.OR.PXFLAG)5012 .LONGA off5013 .LONGI off5014 .MNLIST5015 F90E37 A0 1B ldy #F12HSIZ-1 ; move boot sector header5016 F90E39 B7 4C ?25: lda [tlp],y5017 F90E3B 97 32 sta [pbrp],y5018 F90E3D 88 dey5019 F90E3E 10 F9 bpl ?255020 F90E40 A0 26 ldy #$26 ; extended boot signature flag5021 F90E42 A9 29 lda #$295022 F90E44 97 32 sta [pbrp],y5023 F90E46 A0 2B ldy #$2B ; volume label pointer5024 F90E48 BD 53 41 ?30: lda !P0FAT+fcbs,x5025 F90E4B 97 32 sta [pbrp],y5026 F90E4D E8 inx5027 F90E4E C8 iny5028 F90E4F E0 0B cpx #115029 F90E51 90 F5 bcc ?305030 F90E53 A2 00 ldx #05031 F90E55 BF A1 1C F9 ?35: lda >F12NAM,x ; store system name5032 F90E59 97 32 sta [pbrp],y5033 F90E5B E8 inx5034 F90E5C C8 iny5035 F90E5D E0 08 cpx #85036 F90E5F 90 F4 bcc ?355037 F90E61 20 C7 1B jsr gettime ; get time stamp5038 F90E64 A0 27 ldy #$275039 F90E66 ACC165040 F90E66 C2 20 rep #PMFLAG5041 .LONGA on5042 .MNLIST5043 F90E68 A5 48 lda ctime ; store volume serial number5044 F90E6A 97 32 sta [pbrp],y5045 F90E6C C8 iny5046 F90E6D C8 iny5047 F90E6E A5 4A lda cdate5048 F90E70 97 32 sta [pbrp],y5049 F90E72 A9 00 0E lda #$0E00 ; DD root directory offset5050 F90E75 A4 3D ldy fdfmt5051 F90E77 F0 03 beq ?405052 F90E79 A9 00 26 lda #$2600 ; HD root directory offset5053 F90E7C 18 ?40: clc5054 F90E7D 65 32 adc pbrp5055 F90E7F 85 4C sta tlp ; root directory pointer5056 F90E81 A4 34 ldy pbrp+25057 F90E83 84 4E sty tlp+25058 F90E85 A5 48 lda ctime ; store volume label write/creation time5059 F90E87 A0 0E ldy #$0E ; index of creation5060 F90E89 97 4C sta [tlp],yTue Jul 17 11:00:20 2018 Page 455061 F90E8B A0 16 ldy #$16 ; index of write time5062 F90E8D 97 4C sta [tlp],y5063 F90E8F C8 iny5064 F90E90 C8 iny5065 F90E91 A5 4A lda cdate5066 F90E93 97 4C sta [tlp],y5067 F90E95 A0 10 ldy #$105068 F90E97 97 4C sta [tlp],y5069 F90E99 ACC085070 F90E99 E2 20 sep #PMFLAG5071 .LONGA off5072 .MNLIST5073 F90E9B A0 0D ldy #135074 F90E9D A5 53 lda sec1005075 F90E9F 97 4C sta [tlp],y5076 F90EA1 A2 00 ldx #0 ; store volume label in root directory5077 F90EA3 9B txy5078 F90EA4 BD 53 41 ?45: lda !P0FAT+fcbs,x5079 F90EA7 97 4C sta [tlp],y5080 F90EA9 E8 inx5081 F90EAA C8 iny5082 F90EAB E0 0B cpx #115083 F90EAD 90 F5 bcc ?455084 F90EAF A9 08 lda #DA_VOLUME ; store label attribute5085 F90EB1 97 4C sta [tlp],y5086 F90EB3 ACC16CLC5087 F90EB3 C2 21 rep #(PMFLAG.OR.PCFLAG)5088 .LONGA on5089 .MNLIST5090 F90EB5 A9 00 06 lda #$0600 ; fat 2 offset5091 F90EB8 A4 3D ldy fdfmt5092 F90EBA F0 03 beq ?505093 F90EBC A9 00 12 lda #$12005094 F90EBF 65 3A ?50: adc tp5095 F90EC1 85 4C sta tlp ; fat 2 pointer5096 F90EC3 A4 3C ldy tp+25097 F90EC5 84 4E sty tlp+25098 F90EC7 A9 FF FF lda #$FFFF ; store fake cluster 0&15099 F90ECA A0 01 ldy #15100 F90ECC 97 3A sta [tp],y5101 F90ECE 97 4C sta [tlp],y5102 F90ED0 ACC085103 F90ED0 E2 20 sep #PMFLAG5104 .LONGA off5105 .MNLIST5106 F90ED2 A5 2B lda media5107 F90ED4 87 3A sta [tp]5108 F90ED6 87 4C sta [tlp]5109 F90ED8 A6 3E ldx pdev ; write whole track on disk5110 F90EDA DA phx ; drive #5111 F90EDB A9 00 lda #0 ; track #05112 F90EDD 48 pha5113 F90EDE BD D8 40 lda !P0LDT+sysbuf,x5114 F90EE1 48 pha ; dma buffer #5115 F90EE2 A5 3D lda fdfmt5116 F90EE4 09 80 ora #$80 ; verf flag5117 F90EE6 48 pha ; formatTue Jul 17 11:00:20 2018 Page 465118 F90EE7 FDCTKWR5119 F90EE7 02 35 cop $355120 F90EE9 02 .DB $025121 .MNLIST5122 F90EEA 60 nx: rts ; return CF=1 if error51235124 ; create partition on fixed disk X and format it5125 ; in: X=logical drive5126 ; Y=$FF if label is specified5127 F90EEB lfdisk:5128 F90EEB 20 83 11 jsr prenew ; prepare for partitioning5129 F90EEE B0 FA bcs nx5130 F90EF0 A5 39 lda lunit5131 F90EF2 48 pha5132 F90EF3 4B phk5133 F90EF4 F4 27 0F pea #!?085134 F90EF7 A9 05 lda #55135 F90EF9 48 pha5136 F90EFA BPRINTF5137 F90EFA 02 11 cop $115138 .MNLIST5139 F90EFC 20 AF 19 jsr newprt ; prepare for a new partition5140 F90EFF 90 4F bcc ?105141 F90F01 SCNPRINT5142 F90F01 02 01 cop $015143 .MNLIST5144 F90F03 65 72 72 6F 72 .DB 'error computing a new partition.', 13, 020 63 6F 6D 7075 74 69 6E 6720 61 20 6E 6577 20 70 61 7274 69 74 69 6F6E 2E 0D 005145 F90F25 38 sec5146 F90F26 60 ?05: rts51475148 F90F27 0D 70 61 72 74 ?08: .DB 13, 'partitioning fixed disk on drive <%c>:', 13, 069 74 69 6F 6E69 6E 67 20 6669 78 65 64 2064 69 73 6B 206F 6E 20 64 7269 76 65 20 3C25 63 3E 3A 0D0051495150 F90F50 A9 80 ?10: lda #$805151 F90F52 85 41 sta lflag ; flag creation new pbr/mbr5152 F90F54 80 05 bra lfmt25153 F90F565154 ; format main partition on fixed disk X5155 ; in: X=logical drive5156 ; Y=$FF if label is specified5157 F90F56 lhdfmt:5158 F90F56 20 40 17 jsr prefmt ; format pre-task5159 F90F59 B0 8F bcs nx5160 F90F5BTue Jul 17 11:00:20 2018 Page 475161 F90F5B lfmt2:5162 F90F5B 20 B5 17 jsr showprt5163 F90F5E 20 30 1B jsr askcont5164 F90F61 90 01 bcc ?015165 F90F63 60 rts5166 F90F64 ?01: SCN_CR5167 F90F64 SCNPRCHAR5168 .MLIST5169 F90F64 02 07 cop $075170 .MNLIST5171 F90F66 0D .DB $0D5172 .MNLIST5173 F90F67 24 41 bit lflag5174 F90F69 10 2C bpl ?025175 F90F6B 20 ED 12 jsr newpbr ; create a new pbr/mbr5176 F90F6E5177 ; transfer to DMA buffer5178 F90F6E 8B phb5179 F90F6F A9 08 lda #$08 ; PB3 VIA35180 F90F71 1C C0 FD trb VIA3+VIAPRB ; enable 1Mb buffer5181 F90F74 AD CF FD lda !VIA3+VIAPRANH5182 F90F77 29 F8 and #$F85183 F90F79 8D CF FD sta !VIA3+VIAPRANH ; set bank $005184 F90F7C CPU165185 F90F7C C2 30 rep #(PMFLAG.OR.PXFLAG)5186 .LONGA on5187 .LONGI on5188 .MNLIST5189 F90F7E A9 FF 01 lda #$01FF5190 F90F81 A0 00 42 ldy #$4200 ; dest -> $024200 (buffer $21)5191 F90F84 A6 32 ldx pbrp ; source5192 F90F86 54 02 01 mvn #1, #25193 F90F89 A9 FF 01 lda #$01FF5194 F90F8C A0 00 40 ldy #$4000 ; dest -> $024000 (buffer $20)5195 F90F8F A6 4C ldx tlp ; source5196 F90F91 54 02 01 mvn #1, #25197 F90F94 CPU085198 F90F94 E2 30 sep #(PMFLAG.OR.PXFLAG)5199 .LONGA off5200 .LONGI off5201 .MNLIST5202 F90F96 AB plb52035204 F90F97 A5 51 ?02: lda fatbnk5205 F90F99 20 1F 14 jsr newfat5206 F90F9C A5 50 lda rootbnk5207 F90F9E 20 71 14 jsr newroot5208 F90FA1 A5 52 lda clsbnk5209 F90FA3 20 F8 14 jsr newcls5210 F90FA6 20 F3 1A jsr askfmt5211 F90FA9 90 03 bcc ?04 ; quick format5212 F90FAB 20 63 10 jsr fmtcls ; write out cluster's5213 F90FAE ?04: SCN_CR5214 F90FAE SCNPRCHAR5215 .MLIST5216 F90FAE 02 07 cop $075217 .MNLISTTue Jul 17 11:00:20 2018 Page 485218 F90FB0 0D .DB $0D5219 .MNLIST5220 F90FB1 24 41 bit lflag5221 F90FB3 10 0A bpl ?06 ; skip MBR&PBR write out5222 F90FB5 20 04 16 jsr wrmbr ; write out MBR5223 F90FB8 B0 63 bcs ?10 ; error5224 F90FBA 20 C8 15 jsr wrpbr ; write out PBR5225 F90FBD B0 5E bcs ?105226 F90FBF A9 00 ?06: lda #05227 F90FC1 EB xba ; B=05228 F90FC2 A5 51 lda fatbnk5229 F90FC4 ACC165230 F90FC4 C2 20 rep #PMFLAG5231 .LONGA on5232 .MNLIST5233 F90FC6 0A asl a5234 F90FC7 0A asl a5235 F90FC8 0A asl a5236 F90FC9 0A asl a5237 F90FCA 85 2A sta xfatb ; x-mem fat buffer5238 F90FCC A5 22 lda fat15239 F90FCE 85 2C sta flba5240 F90FD0 ACC085241 F90FD0 E2 20 sep #PMFLAG5242 .LONGA off5243 .MNLIST5244 F90FD2 A2 01 ldx #1 ; write out fat15245 F90FD4 20 7B 16 jsr wrfat5246 F90FD7 B0 44 bcs ?105247 F90FD9 A5 24 lda fat25248 F90FDB 85 2C sta flba5249 F90FDD A5 25 lda fat2+15250 F90FDF 85 2D sta flba+15251 F90FE1 A2 02 ldx #2 ; write out fat15252 F90FE3 20 7B 16 jsr wrfat5253 F90FE6 B0 35 bcs ?105254 F90FE8 A9 00 lda #05255 F90FEA EB xba ; B=05256 F90FEB A5 50 lda rootbnk5257 F90FED ACC165258 F90FED C2 20 rep #PMFLAG5259 .LONGA on5260 .MNLIST5261 F90FEF 0A asl a5262 F90FF0 0A asl a5263 F90FF1 0A asl a5264 F90FF2 0A asl a5265 F90FF3 85 2A sta xfatb ; x-mem fat buffer5266 F90FF5 A5 20 lda root5267 F90FF7 85 2C sta flba5268 F90FF9 ACC085269 F90FF9 E2 20 sep #PMFLAG5270 .LONGA off5271 .MNLIST5272 F90FFB 20 7D 15 jsr wrroot5273 F90FFE B0 1D bcs ?105274 F91000 A6 3E ldx pdev ; update drive flagTue Jul 17 11:00:20 2018 Page 495275 F91002 B5 0E lda atadev,x5276 F91004 29 E0 and #$E05277 F91006 09 1D ora #$1D5278 F91008 95 0E sta atadev,x5279 F9100A 20 6D 0D jsr mvldt5280 F9100D A9 E0 lda #$E05281 F9100F 9D 01 40 sta !P0LDT+ldt_fg2,x5282 F91012 9E 20 40 stz !P0LDT+ldt_cdlvl,x5283 F91015 9E 1E 40 stz !P0LDT+ldt_cdcls,x5284 F91018 9E 1F 40 stz !P0LDT+ldt_cdcls+1,x5285 F9101B 18 clc5286 F9101C 60 ?08: rts5287 F9101D A6 40 ?10: ldx ldtcur ; invalidate logical drive if error5288 F9101F 9E 01 40 stz !P0LDT+ldt_fg2,x5289 F91022 A6 3E ldx pdev ; invalidate drive if error5290 F91024 B5 0E lda atadev,x5291 F91026 29 E0 and #$E05292 F91028 95 0E sta atadev,x5293 F9102A 8A txa5294 F9102B 0A asl a5295 F9102C 0A asl a5296 F9102D AA tax5297 F9102E A0 00 ldy #05298 F91030 CPU165299 F91030 C2 30 rep #(PMFLAG.OR.PXFLAG)5300 .LONGA on5301 .LONGI on5302 .MNLIST5303 F91032 9E 22 00 stz !atambr,x5304 F91035 9E 24 00 stz !atambr+2,x5305 F91038 9E 32 00 stz !ataprt,x5306 F9103B 9E 34 00 stz !ataprt+2,x5307 F9103E 98 tya ; C=05308 F9103F 97 4C ?15: sta [tlp],y ; clear MBR5309 F91041 C8 iny5310 F91042 C8 iny5311 F91043 C0 00 02 cpy #$2005312 F91046 90 F7 bcc ?155313 F91048 CPU085314 F91048 E2 30 sep #(PMFLAG.OR.PXFLAG)5315 .LONGA off5316 .LONGI off5317 .MNLIST5318 F9104A A5 3E lda pdev ; write out an empty invalid MBR5319 F9104C 48 pha ; ata drive5320 F9104D A9 00 lda #05321 F9104F 48 pha5322 F91050 F4 00 00 pea #0 ; lba=05323 F91053 A9 01 lda #15324 F91055 48 pha ; write 1 sector5325 F91056 A5 4E lda tlp+25326 F91058 48 pha ; buffer pointer5327 F91059 D4 4C pei (tlp)5328 F9105B A9 00 lda #$00 ; no verify after write5329 F9105D 48 pha5330 F9105E ATAWRITE5331 F9105E 02 40 cop $40Tue Jul 17 11:00:20 2018 Page 505332 F91060 02 .DB $025333 .MNLIST5334 F91061 38 sec ; return error status5335 F91062 60 ?20: rts53365337 F91063 fmtcls:5338 F91063 SCN_CR5339 F91063 SCNPRCHAR5340 .MLIST5341 F91063 02 07 cop $075342 .MNLIST5343 F91065 0D .DB $0D5344 .MNLIST5345 F91066 SCNPRINT5346 F91066 02 01 cop $015347 .MNLIST5348 F91068 70 72 65 73 73 .DB 'press <CTRL+BREAK> to stop.', 13, 020 3C 43 54 524C 2B 42 52 4541 4B 3E 20 746F 20 73 74 6F70 2E 0D 005349 F91085 SCNGETPOS5350 F91085 02 18 cop $185351 F91087 02 .DB $025352 .MNLIST5353 F91088 86 4F stx fd2ix5354 F9108A A9 00 lda #05355 F9108C 85 13 sta first+1 ; cluster size 16 bit5356 F9108E 85 16 sta rsvsec ; lba hi5357 F91090 A6 35 ldx clssiz5358 F91092 86 12 stx first5359 F91094 A2 01 ldx #XMBANK5360 F91096 86 3C stx tp+25361 F91098 EB xba ; B=05362 F91099 A5 52 lda clsbnk5363 F9109B ACC165364 F9109B C2 20 rep #PMFLAG5365 .LONGA on5366 .MNLIST5367 F9109D 0A asl a5368 F9109E 0A asl a5369 F9109F 0A asl a5370 F910A0 0A asl a5371 F910A1 85 2A sta xfatb ; x-mem fat buffer5372 F910A3 A5 26 lda start5373 F910A5 85 2C sta flba ; cluster #2 lba5374 F910A7 A9 02 00 lda #25375 F910AA 85 14 sta clscnt ; start with cluster #25376 F910AC A5 28 lda maxcls5377 F910AE 3A dec a5378 F910AF 85 10 sta maxcnt5379 F910B1 64 42 stz badcls5380 F910B3 ACC085381 F910B3 E2 20 sep #PMFLAG5382 .LONGA off5383 .MNLISTTue Jul 17 11:00:20 2018 Page 515384 F910B5 A6 4F ?10: ldx fd2ix ; set screen position5385 F910B7 A0 00 ldy #05386 F910B9 SCNSETPOS5387 F910B9 02 18 cop $185388 F910BB 03 .DB $035389 .MNLIST5390 F910BC D4 10 pei (maxcnt)5391 F910BE D4 14 pei (clscnt)5392 F910C0 4B phk5393 F910C1 F4 49 11 pea #!?1005394 F910C4 A9 08 lda #85395 F910C6 48 pha5396 F910C7 BPRINTF5397 F910C7 02 11 cop $115398 .MNLIST5399 F910C9 A5 3E lda pdev5400 F910CB 48 pha ; ata drive5401 F910CC A5 16 lda rsvsec5402 F910CE 48 pha5403 F910CF D4 2C pei (flba) ; fat table lba5404 F910D1 A5 12 lda first5405 F910D3 48 pha ; write n sector5406 F910D45407 ;lda #05408 ;pha ; A=0 -> x-mem buffer5409 ;pei (xfatb)5410 ;lda #$80 ; verify after write5411 ;pha5412 ;ATAWRITE5413 F910D45414 F910D4 F4 40 00 pea #$405415 F910D7 ATADMAWR5416 F910D7 02 42 cop $425417 F910D9 01 .DB $015418 .MNLIST54195420 F910DA 90 03 bcc ?20 ; write ok5421 ;brk5422 F910DC 20 1B 11 jsr ?40 ; mark bad cluster5423 F910DF ?20: ACC165424 F910DF C2 20 rep #PMFLAG5425 .LONGA on5426 .MNLIST5427 F910E1 A5 14 lda clscnt5428 F910E3 1A inc a5429 F910E4 C5 28 cmp maxcls5430 F910E6 B0 10 bcs ?305431 F910E8 85 14 sta clscnt5432 F910EA A5 2C lda flba5433 F910EC A2 00 ldx #05434 F910EE 65 12 adc first5435 F910F0 85 2C sta flba5436 F910F2 90 02 bcc ?255437 F910F4 E8 inx5438 F910F5 18 clc5439 F910F6 86 16 ?25: stx rsvsec5440 F910F8 ?30: ACC08Tue Jul 17 11:00:20 2018 Page 525441 F910F8 E2 20 sep #PMFLAG5442 .LONGA off5443 .MNLIST5444 F910FA B0 0A bcs ?355445 F910FC AD 4B 00 lda !CtrlBrk5446 F910FF 9C 4B 00 stz !CtrlBrk5447 F91102 C9 80 cmp #$805448 F91104 D0 AF bne ?105449 F91106 ?35: SCNPRINT5450 F91106 02 01 cop $015451 .MNLIST5452 F91108 64 6F 6E 65 2E .DB 'done.', 13, 00D 005453 F9110F D4 42 pei (badcls)5454 F91111 4B phk5455 F91112 F4 69 11 pea #!?1105456 F91115 A9 06 lda #65457 F91117 48 pha5458 F91118 BPRINTF5459 F91118 02 11 cop $115460 .MNLIST5461 F9111A 60 rts54625463 F9111B AE 0A FC ?40: ldx CRXME ; save X mem setting5464 F9111E DA phx5465 F9111F 8D 0B FC sta !CRXMEON ; enable X mem in window $012000 - $013FFF5466 F91122 A5 15 lda clscnt+1 ; A=sector (one sec. = 256 cluster #)5467 F91124 AA tax5468 F91125 4A lsr a ; divide by 16 to get x-mem buffer bank5469 F91126 4A lsr a5470 F91127 4A lsr a5471 F91128 4A lsr a5472 F91129 18 clc5473 F9112A 65 51 adc fatbnk ; add fat table base base bank5474 F9112C 8D 28 FD sta !PIA0+PIAPRA ; set bank5475 F9112F 8A txa5476 F91130 EB xba5477 F91131 A5 14 lda clscnt5478 F91133 ACC165479 F91133 C2 20 rep #PMFLAG5480 .LONGA on5481 .MNLIST5482 F91135 29 FF 0F and #$0FFF ; mask 4096 cluster's5483 F91138 0A asl a5484 F91139 85 3A sta tp5485 F9113B A9 F7 FF lda #$FFF75486 F9113E 87 3A sta [tp]5487 F91140 E6 42 inc badcls5488 F91142 ACC085489 F91142 E2 20 sep #PMFLAG5490 .LONGA off5491 .MNLIST5492 F91144 FA plx ; restore X mem setting5493 F91145 9D 0A FC sta !CRXME,x5494 F91148 60 rts54955496 F91149 63 6C 65 61 72 ?100: .DB 'clear cluster %05hu of %05hu...', 0Tue Jul 17 11:00:20 2018 Page 5320 63 6C 75 7374 65 72 20 2530 35 68 75 206F 66 20 25 3035 68 75 2E 2E2E 005497 F91169 64 65 66 65 63 ?110: .DB 'defective cluster(s): %hu', 074 69 76 65 2063 6C 75 73 7465 72 28 73 293A 20 25 68 750054985499 ; common pre task routine for format fixed disk5500 ; in: X=logical drive5501 ; Y=$FF if label is specified5502 F91183 prenew:5503 F91183 86 3F stx ldev5504 F91185 84 41 sty lflag5505 F91187 9B txy5506 F91188 BE D2 40 ldx !P0LDT+ldtp,y5507 F9118B 86 40 stx ldtcur5508 F9118D 3C 00 40 bit !P0LDT+ldt_fg1,x5509 F91190 10 02 bpl ?01 ; not ready5510 F91192 70 10 bvs ?03 ; ok, ata device5511 F91194 98 ?01: tya5512 F91195 18 clc5513 F91196 69 41 adc #'A'5514 F91198 48 pha5515 F91199 4B phk5516 F9119A F4 BA 12 pea #!?1005517 F9119D A9 05 lda #55518 F9119F 48 pha5519 F911A0 BPRINTF5520 F911A0 02 11 cop $115521 .MNLIST5522 F911A2 38 sec5523 F911A3 60 rts5524 F911A4 BD 00 40 ?03: lda !P0LDT+ldt_fg1,x5525 F911A7 29 03 and #35526 F911A9 85 3E sta pdev ; phisycal drive5527 F911AB 18 clc5528 F911AC 69 43 adc #'C' ; ata device: 'C' or 'D'5529 F911AE 85 39 sta lunit ; logical drive letter5530 F911B0 24 41 bit lflag5531 F911B2 30 0C bmi ?10 ; label specified5532 F911B4 A2 0A ldx #10 ; move standard label5533 F911B6 BF 96 1C F9 ?05: lda >NOLBL,x5534 F911BA 9D 53 41 sta !P0FAT+fcbs,x5535 F911BD CA dex5536 F911BE 10 F6 bpl ?055537 F911C0 64 41 ?10: stz lflag5538 F911C2 A5 3E lda pdev5539 F911C4 0A asl a5540 F911C5 0A asl a5541 F911C6 AA tax5542 F911C7 ACC16Tue Jul 17 11:00:20 2018 Page 545543 F911C7 C2 20 rep #PMFLAG5544 .LONGA on5545 .MNLIST5546 F911C9 BD 12 00 lda !atasec,x ; max. disk usable sector's5547 F911CC 85 04 sta maxsec5548 F911CE BD 14 00 lda !atasec+2,x5549 F911D1 85 06 sta maxsec+25550 F911D3 BD 22 00 lda !atambr,x5551 F911D6 85 08 sta hidsec5552 F911D8 BD 24 00 lda !atambr+2,x5553 F911DB 29 FF 00 and #$00FF5554 F911DE 85 0A sta hidsec+25555 F911E0 BD 32 00 lda !ataprt,x5556 F911E3 85 0C sta totsec5557 F911E5 BD 34 00 lda !ataprt+2,x5558 F911E8 85 0E sta totsec+25559 F911EA A6 40 ldx ldtcur5560 F911EC BD 26 40 lda !P0LDT+ldt_pbr,x ; set PBR pointer5561 F911EF 85 32 sta pbrp5562 F911F1 BC 28 40 ldy !P0LDT+ldt_pbr+2,x5563 F911F4 84 34 sty pbrp+25564 F911F6 BD 22 40 lda !P0LDT+ldt_fp,x ; set fat1 table pointer5565 F911F9 85 3A sta tp5566 F911FB BC 24 40 ldy !P0LDT+ldt_fp+2,x5567 F911FE 84 3C sty tp+25568 F91200 A9 00 88 lda #MBR0ATA ; set pointer for MBR5569 F91203 A4 3E ldy pdev5570 F91205 F0 0A beq ?155571 F91207 A9 00 8A lda #MBR1ATA5572 F9120A C0 01 cpy #15573 F9120C F0 03 beq ?155574 F9120E A9 00 94 lda #MBR0USB5575 F91211 85 4C ?15: sta tlp5576 F91213 A0 01 ldy #^MBR0ATA5577 F91215 84 4E sty tlp+25578 F91217 BC 25 40 ldy !P0LDT+ldt_fbuf,x5579 F9121A 84 51 sty fatbnk ; x-mem bank for fat cache buffer5580 F9121C BD 02 40 lda !P0LDT+ldt_root,x5581 F9121F 85 20 sta root5582 F91221 BD 04 40 lda !P0LDT+ldt_fat1,x5583 F91224 85 22 sta fat15584 F91226 BD 06 40 lda !P0LDT+ldt_fat2,x5585 F91229 85 24 sta fat25586 F9122B BD 08 40 lda !P0LDT+ldt_cls,x5587 F9122E 85 26 sta start5588 F91230 BD 0C 40 lda !P0LDT+ldt_rent,x5589 F91233 85 1C sta rootent5590 F91235 BD 0E 40 lda !P0LDT+ldt_cent,x5591 F91238 85 1E sta clsent5592 F9123A BD 12 40 lda !P0LDT+ldt_free,x5593 F9123D 85 2E sta freecnt5594 F9123F BD 14 40 lda !P0LDT+ldt_nxt,x5595 F91242 85 30 sta freecls5596 F91244 BC 18 40 ldy !P0LDT+ldt_csiz,x5597 F91247 84 35 sty clssiz5598 F91249 BD 0A 40 lda !P0LDT+ldt_max,x5599 F9124C 85 28 sta maxclsTue Jul 17 11:00:20 2018 Page 555600 F9124E 3A dec a5601 F9124F 3A dec a5602 F91250 85 14 sta clscnt5603 F91252 BC 19 40 ldy !P0LDT+ldt_cshf,x5604 F91255 84 36 sty clsshf5605 F91257 A0 B4 ldy #$B45606 F91259 84 50 sty rootbnk ; root dir. x-mem bank5607 F9125B A0 B8 ldy #$B85608 F9125D 84 52 sty clsbnk ; cluster x-mem bank5609 F9125F ACC085610 F9125F E2 20 sep #PMFLAG5611 .LONGA off5612 .MNLIST5613 F91261 A0 00 ldy #05614 F91263 BD 16 40 lda !P0LDT+ldt_fsiz,x5615 F91266 85 18 sta fatsiz5616 F91268 D0 01 bne ?165617 F9126A C8 iny5618 F9126B 84 19 ?16: sty fatsiz+15619 F9126D BD 1A 40 lda !P0LDT+ldt_rsiz,x5620 F91270 85 1A sta rootsiz5621 F91272 BD 1B 40 lda !P0LDT+ldt_mcls,x5622 F91275 85 37 sta clsmod5623 F91277 BD 29 40 lda !P0LDT+ldt_fmt,x5624 F9127A 85 3D sta fdfmt5625 F9127C BD 01 40 lda !P0LDT+ldt_fg2,x5626 F9127F 64 41 stz lflag ; invalid partition flag5627 F91281 29 E0 and #$E0 ; valid partition?5628 F91283 C9 E0 cmp #$E05629 F91285 D0 31 bne ?50 ; no5630 F91287 85 41 sta lflag ; valid partition flag5631 F91289 ACC165632 F91289 C2 20 rep #PMFLAG5633 .LONGA on5634 .MNLIST5635 F9128B A5 14 lda clscnt5636 F9128D 85 2E sta remsec5637 F9128F A9 00 00 lda #05638 F91292 A4 36 ldy clsshf5639 F91294 F0 06 beq ?255640 F91296 06 2E ?20: asl remsec5641 F91298 2A rol a5642 F91299 88 dey5643 F9129A D0 FA bne ?205644 F9129C 85 30 ?25: sta remsec+25645 F9129E 18 clc5646 F9129F A5 26 lda start5647 F912A1 65 2E adc remsec5648 F912A3 85 2E sta remsec5649 F912A5 90 02 bcc ?305650 F912A7 E6 30 inc remsec+25651 F912A9 38 ?30: sec5652 F912AA A5 04 lda maxsec5653 F912AC E5 2E sbc remsec5654 F912AE 85 2E sta remsec5655 F912B0 A5 06 lda maxsec+25656 F912B2 E5 30 sbc remsec+2Tue Jul 17 11:00:20 2018 Page 565657 F912B4 85 30 sta remsec+25658 F912B6 ACC085659 F912B6 E2 20 sep #PMFLAG5660 .LONGA off5661 .MNLIST5662 F912B8 18 ?50: clc5663 F912B9 60 rts56645665 F912BA 0D 65 72 72 6F ?100: .DB 13, 'error: drive <%c> not ready or not a fixed disk.', 13, 072 3A 20 64 7269 76 65 20 3C25 63 3E 20 6E6F 74 20 72 6561 64 79 20 6F72 20 6E 6F 7420 61 20 66 6978 65 64 20 6469 73 6B 2E 0D0056665667 ; set a new MBR/PBR for ata drive5668 F912ED newpbr:5669 F912ED A0 00 ldy #05670 F912EF A5 3E lda pdev5671 F912F1 0A asl a5672 F912F2 0A asl a5673 F912F3 AA tax ; device index5674 F912F4 CPU165675 F912F4 C2 30 rep #(PMFLAG.OR.PXFLAG)5676 .LONGA on5677 .LONGI on5678 .MNLIST5679 F912F6 98 tya ; C=05680 F912F7 97 32 ?10: sta [pbrp],y ; clear PBR...5681 F912F9 97 4C sta [tlp],y ; ...and MBR5682 F912FB C8 iny5683 F912FC C8 iny5684 F912FD C0 FE 01 cpy #$01FE5685 F91300 90 F5 bcc ?105686 F91302 A9 55 AA lda #$AA55 ; put signature5687 F91305 97 32 sta [pbrp],y5688 F91307 97 4C sta [tlp],y5689 F91309 A0 BE 01 ldy #$01BE ; ptr to first partition in MBR5690 F9130C ACC085691 F9130C E2 20 sep #PMFLAG5692 .LONGA off5693 .MNLIST5694 F9130E A9 80 lda #$805695 F91310 97 4C sta [tlp],y ; first active partition5696 F91312 C8 iny ; $01BF5697 F91313 A9 01 lda #1 ; fake CHS5698 F91315 97 4C sta [tlp],y5699 F91317 C8 iny ; $01C05700 F91318 97 4C sta [tlp],y5701 F9131A C8 iny ; $01C15702 F9131B A9 00 lda #05703 F9131D 97 4C sta [tlp],yTue Jul 17 11:00:20 2018 Page 575704 F9131F C8 iny ; $01C25705 F91320 A9 06 lda #6 ; partition type = FAT165706 F91322 97 4C sta [tlp],y5707 F91324 C8 iny ; $01C35708 F91325 A9 FE lda #$FE ; fake CHS5709 F91327 97 4C sta [tlp],y5710 F91329 C8 iny ; $01C45711 F9132A 1A inc a5712 F9132B 97 4C sta [tlp],y5713 F9132D C8 iny ; $01C55714 F9132E 97 4C sta [tlp],y5715 F91330 C8 iny ; $01C6 -> partition start lba5716 F91331 ACC165717 F91331 C2 20 rep #PMFLAG5718 .LONGA on5719 .MNLIST5720 F91333 A5 08 lda hidsec5721 F91335 97 4C sta [tlp],y5722 F91337 9D 22 00 sta !atambr,x5723 F9133A C8 iny5724 F9133B C8 iny5725 F9133C A5 0A lda hidsec+2 ; this is always null5726 F9133E 97 4C sta [tlp],y5727 F91340 09 00 06 ora #$0600 ; partition type5728 F91343 9D 24 00 sta !atambr+2,x5729 F91346 C8 iny5730 F91347 C8 iny ; $01CA -> partition total sectors5731 F91348 A5 0C lda totsec5732 F9134A AA tax5733 F9134B 97 4C sta [tlp],y5734 F9134D C8 iny5735 F9134E C8 iny5736 F9134F A5 0E lda totsec+25737 F91351 97 4C sta [tlp],y5738 F91353 F0 09 beq ?15 ; now switch to PBR5739 F91355 A0 22 00 ldy #$22 ; partition total sectors 32 high5740 F91358 97 32 sta [pbrp],y5741 F9135A 88 dey5742 F9135B 88 dey5743 F9135C 80 03 bra ?205744 F9135E A0 13 00 ?15: ldy #$13 ; partition total sectors 165745 F91361 8A ?20: txa5746 F91362 97 32 sta [pbrp],y5747 F91364 INDEX085748 F91364 E2 10 sep #PXFLAG5749 .LONGI off5750 .MNLIST5751 F91366 A0 1C ldy #$1C ; hidden sectors5752 F91368 A5 08 lda hidsec5753 F9136A 97 32 sta [pbrp],y5754 F9136C C8 iny5755 F9136D C8 iny5756 F9136E A5 0A lda hidsec+25757 F91370 97 32 sta [pbrp],y5758 F91372 A0 0B ldy #$0B ; bytes per sector5759 F91374 A9 00 02 lda #$02005760 F91377 97 32 sta [pbrp],yTue Jul 17 11:00:20 2018 Page 585761 F91379 A0 11 ldy #$11 ; root directory entries5762 F9137B 97 32 sta [pbrp],y5763 F9137D 85 1C sta rootent5764 F9137F A0 16 ldy #$16 ; fat table size5765 F91381 A5 18 lda fatsiz5766 F91383 97 32 sta [pbrp],y5767 F91385 A0 0E ldy #$0E ; reserved sectors count5768 F91387 A9 01 00 lda #15769 F9138A 97 32 sta [pbrp],y5770 F9138C 1A inc a ; C=25771 F9138D CPU085772 F9138D E2 30 sep #(PMFLAG.OR.PXFLAG)5773 .LONGA off5774 .LONGI off5775 .MNLIST5776 F9138F A0 10 ldy #$10 ; fat's count = 25777 F91391 97 32 sta [pbrp],y5778 F91393 A0 0D ldy #$0D ; sector(s) per cluster5779 F91395 A5 35 lda clssiz5780 F91397 97 32 sta [pbrp],y5781 F91399 A0 15 ldy #$15 ; media type = F85782 F9139B A9 F8 lda #$F85783 F9139D 97 32 sta [pbrp],y5784 F9139F A0 26 ldy #$26 ; extended signature flag5785 F913A1 A9 29 lda #$295786 F913A3 97 32 sta [pbrp],y5787 F913A5 A0 0A ldy #3+8-1 ; OEM name end5788 F913A7 A2 07 ldx #75789 F913A9 BF B4 1C F9 ?25: lda >OEMNAM,x5790 F913AD 97 32 sta [pbrp],y5791 F913AF 88 dey5792 F913B0 CA dex5793 F913B1 10 F6 bpl ?255794 F913B3 E8 inx ; X=05795 F913B4 A0 2B ldy #$2B ; volume label pointer5796 F913B6 BD 53 41 ?30: lda !P0FAT+fcbs,x5797 F913B9 97 32 sta [pbrp],y5798 F913BB E8 inx5799 F913BC C8 iny5800 F913BD E0 0B cpx #115801 F913BF 90 F5 bcc ?305802 F913C1 A2 00 ldx #05803 F913C3 BF A9 1C F9 ?35: lda >F16NAM,x ; store system name string5804 F913C7 97 32 sta [pbrp],y5805 F913C9 E8 inx5806 F913CA C8 iny5807 F913CB E0 08 cpx #85808 F913CD 90 F4 bcc ?355809 F913CF A5 3E lda pdev5810 F913D1 0A asl a5811 F913D2 0A asl a5812 F913D3 AA tax ; device index5813 F913D4 ACC165814 F913D4 C2 20 rep #PMFLAG5815 .LONGA on5816 .MNLIST5817 F913D6 A5 0C lda totsecTue Jul 17 11:00:20 2018 Page 595818 F913D8 9D 32 00 sta !ataprt,x5819 F913DB A5 0E lda totsec+25820 F913DD 9D 34 00 sta !ataprt+2,x5821 F913E0 ACC085822 F913E0 E2 20 sep #PMFLAG5823 .LONGA off5824 .MNLIST5825 F913E2 20 C7 1B jsr gettime ; get time stamp5826 F913E5 A9 EB lda #$EB ; this signature in first 3 bytes...5827 F913E7 87 32 sta [pbrp] ; ...only for microsoft!5828 F913E9 A0 01 ldy #15829 F913EB A9 00 lda #05830 F913ED 97 32 sta [pbrp],y5831 F913EF C8 iny5832 F913F0 A9 90 lda #$905833 F913F2 97 32 sta [pbrp],y5834 F913F4 A0 27 ldy #$275835 F913F6 ACC165836 F913F6 C2 20 rep #PMFLAG5837 .LONGA on5838 .MNLIST5839 F913F8 A5 48 lda ctime ; store volume serial number5840 F913FA 97 32 sta [pbrp],y5841 F913FC C8 iny5842 F913FD C8 iny5843 F913FE A5 4A lda cdate5844 F91400 97 32 sta [pbrp],y5845 F91402 A6 35 ldx clssiz5846 F91404 9B txy5847 F91405 8A txa ; B=0, A=clssiz5848 F91406 0A asl a ; 16 entries per sec...5849 F91407 0A asl a5850 F91408 0A asl a5851 F91409 0A asl a ; here CF=05852 F9140A 85 1E sta clsent ; entries in cluster5853 F9140C 88 dey5854 F9140D 84 37 sty clsmod5855 F9140F A5 14 lda clscnt5856 F91411 85 2E sta freecnt5857 F91413 A9 02 00 lda #25858 F91416 85 30 sta freecls5859 F91418 ACC085860 F91418 E2 20 sep #PMFLAG5861 .LONGA off5862 .MNLIST5863 F9141A A9 FF lda #$FF5864 F9141C 85 3D sta fdfmt5865 F9141E 60 rts58665867 ; new empty fat table5868 ; in: A=fat bank buffer5869 F9141F newfat:58705871 ; clear 128k - buffer $1005872 F9141F AD CF FD lda !VIA3+VIAPRANH5873 F91422 29 F8 and #$F85874 F91424 09 01 ora #$01Tue Jul 17 11:00:20 2018 Page 605875 F91426 8D CF FD sta !VIA3+VIAPRANH ; set bank 1 (buffer $100)5876 F91429 A2 00 ldx #05877 F9142B 8A txa5878 F9142C INDEX165879 F9142C C2 10 rep #PXFLAG5880 .LONGI on5881 .MNLIST5882 F9142E 9F 00 00 02 ?01: sta >$020000,x5883 F91432 9F 00 00 03 sta >$030000,x5884 F91436 E8 inx5885 F91437 D0 F5 bne ?015886 F91439 A9 F8 lda #$FFF8 ; set fake cluster 0&15887 F9143B 8F 00 00 02 sta >$0200005888 F9143F A9 FF lda #$FFFF5889 F91441 8F 02 00 02 sta >$0200025890 F91445 INDEX085891 F91445 E2 10 sep #PXFLAG5892 .LONGI off5893 .MNLIST58945895 F91447 AE 0A FC ldx CRXME ; save X mem setting5896 F9144A DA phx5897 F9144B 8D 0B FC sta !CRXMEON ; enable X mem in window $012000 - $013FFF5898 F9144E 8B phb ; save DBR5899 F9144F A2 01 ldx #XMBANK5900 F91451 DA phx5901 F91452 AB plb ; set DBR to fat table cache5902 F91453 A0 10 ldy #16 ; clear 16 8k-blocks5903 F91455 20 27 15 jsr clrxmem5904 F91458 CPU165905 F91458 C2 30 rep #(PMFLAG.OR.PXFLAG)5906 .LONGA on5907 .LONGI on5908 .MNLIST5909 F9145A A2 00 20 ldx #XMSTART5910 F9145D A9 F8 FF lda #$FFF8 ; set fake cluster 0&15911 F91460 9D 00 00 sta !0,x5912 F91463 A9 FF FF lda #$FFFF5913 F91466 9D 02 00 sta !2,x5914 F91469 CPU085915 F91469 E2 30 sep #(PMFLAG.OR.PXFLAG)5916 .LONGA off5917 .LONGI off5918 .MNLIST5919 F9146B AB plb ; restore DBR5920 F9146C FA plx ; restore X mem setting5921 F9146D 9D 0A FC sta !CRXME,x5922 F91470 60 rts59235924 ; new empty root directory5925 ; in: A=root directory bank buffer5926 F91471 newroot:59275928 ; clear 16k - buffer $005929 F91471 AD CF FD lda !VIA3+VIAPRANH5930 F91474 29 F8 and #$F85931 F91476 8D CF FD sta !VIA3+VIAPRANH ; set bank 1 (buffer $100)Tue Jul 17 11:00:20 2018 Page 615932 F91479 8B phb5933 F9147A A9 02 lda #$025934 F9147C 48 pha5935 F9147D AB plb5936 F9147E INDEX165937 F9147E C2 10 rep #PXFLAG5938 .LONGI on5939 .MNLIST5940 F91480 A2 FF 3F ldx #$3FFF5941 F91483 9E 00 00 ?01: stz !$0,x5942 F91486 CA dex5943 F91487 10 FA bpl ?015944 F91489 INDEX085945 F91489 E2 10 sep #PXFLAG5946 .LONGI off5947 .MNLIST5948 F9148B A9 08 lda #DA_VOLUME5949 F9148D 99 01 00 sta !0+1,y5950 F91490 BF 53 41 00 ?04: lda >P0FAT+fcbs,x5951 F91494 99 00 00 sta !0,y5952 F91497 88 dey5953 F91498 CA dex5954 F91499 10 F5 bpl ?045955 F9149B ACC165956 F9149B C2 20 rep #PMFLAG5957 .LONGA on5958 .MNLIST5959 F9149D A5 48 lda ctime ; set creation time&date...5960 F9149F 8D 0E 00 sta !0+145961 F914A2 8D 16 00 sta !0+22 ; ...and write time&date5962 F914A5 A5 4A lda cdate5963 F914A7 8D 10 00 sta !0+165964 F914AA 8D 18 00 sta !0+245965 F914AD ACC085966 F914AD E2 20 sep #PMFLAG5967 .LONGA off5968 .MNLIST5969 F914AF A5 53 lda sec1005970 F914B1 8D 0D 00 sta !0+135971 F914B4 AB plb ; restore DBR5972 F914B55973 F914B5 AE 0A FC ldx CRXME ; save X mem setting5974 F914B8 DA phx5975 F914B9 8D 0B FC sta !CRXMEON ; enable X mem in window $012000 - $013FFF5976 F914BC 8B phb ; save DBR5977 F914BD A2 01 ldx #XMBANK5978 F914BF DA phx5979 F914C0 AB plb ; set DBR to fat table cache5980 F914C1 A0 02 ldy #2 ; clear 2 8k-blocks5981 F914C3 20 27 15 jsr clrxmem5982 F914C6 A2 0A ldx #105983 F914C8 9B txy ; set volume label5984 F914C9 A9 08 lda #DA_VOLUME5985 F914CB 99 01 20 sta !XMSTART+1,y5986 F914CE BF 53 41 00 ?10: lda >P0FAT+fcbs,x5987 F914D2 99 00 20 sta !XMSTART,y5988 F914D5 88 deyTue Jul 17 11:00:20 2018 Page 625989 F914D6 CA dex5990 F914D7 10 F5 bpl ?105991 F914D9 ACC165992 F914D9 C2 20 rep #PMFLAG5993 .LONGA on5994 .MNLIST5995 F914DB A5 48 lda ctime ; set creation time&date...5996 F914DD 8D 0E 20 sta !XMSTART+145997 F914E0 8D 16 20 sta !XMSTART+22 ; ...and write time&date5998 F914E3 A5 4A lda cdate5999 F914E5 8D 10 20 sta !XMSTART+166000 F914E8 8D 18 20 sta !XMSTART+246001 F914EB ACC086002 F914EB E2 20 sep #PMFLAG6003 .LONGA off6004 .MNLIST6005 F914ED A5 53 lda sec1006006 F914EF 8D 0D 20 sta !XMSTART+136007 F914F2 AB plb ; restore DBR6008 F914F3 FA plx ; restore X mem setting6009 F914F4 9D 0A FC sta !CRXME,x6010 F914F7 60 rts60116012 ; new empty cluster6013 ; in: A=cluster bank buffer6014 F914F8 newcls:60156016 ; clear 32k - buffer $806017 F914F8 AD CF FD lda !VIA3+VIAPRANH6018 F914FB 29 F8 and #$F86019 F914FD 8D CF FD sta !VIA3+VIAPRANH ; set bank 0 (buffer $80)6020 F91500 A9 00 lda #06021 F91502 INDEX166022 F91502 C2 10 rep #PXFLAG6023 .LONGI on6024 .MNLIST6025 F91504 A2 FF 7F ldx #$7FFF6026 F91507 9F 00 80 02 ?01: sta >$028000,x6027 F9150B CA dex6028 F9150C 10 F9 bpl ?016029 F9150E INDEX086030 F9150E E2 10 sep #PXFLAG6031 .LONGI off6032 .MNLIST60336034 F91510 AE 0A FC ldx CRXME ; save X mem setting6035 F91513 DA phx6036 F91514 8D 0B FC sta !CRXMEON ; enable X mem in window $012000 - $013FFF6037 F91517 8B phb ; save DBR6038 F91518 A2 01 ldx #XMBANK6039 F9151A DA phx6040 F9151B AB plb ; set DBR to fat table cache6041 F9151C A0 04 ldy #4 ; clear 4 8k-blocks6042 ;jsr clrxmem6043 F9151E 20 51 15 jsr clrxmem260446045 F91521 AB plb ; restore DBRTue Jul 17 11:00:20 2018 Page 636046 F91522 FA plx ; restore X mem setting6047 F91523 9D 0A FC sta !CRXME,x6048 F91526 60 rts60496050 ; clear x-mem buffer's6051 ; in: A=starting bank6052 ; Y=bank count6053 ; DBR=x-mem bank6054 ; out: x-mem bank set to starting bank6055 F91527 clrxmem:6056 F91527 85 38 sta xbnk6057 F91529 8F 28 FD 00 sta >PIA0+PIAPRA6058 F9152D ?10: CPU166059 F9152D C2 30 rep #(PMFLAG.OR.PXFLAG)6060 .LONGA on6061 .LONGI on6062 .MNLIST6063 F9152F A2 00 20 ldx #XMSTART ; start of x-mem window6064 F91532 9E 00 00 ?15: stz !0,x6065 F91535 E8 inx6066 F91536 E8 inx6067 F91537 E0 00 40 cpx #XMSTOP6068 F9153A 90 F6 bcc ?156069 F9153C CPU086070 F9153C E2 30 sep #(PMFLAG.OR.PXFLAG)6071 .LONGA off6072 .LONGI off6073 .MNLIST6074 F9153E AF 28 FD 00 lda >PIA0+PIAPRA ; update x-mem bank6075 F91542 1A inc a6076 F91543 8F 28 FD 00 sta >PIA0+PIAPRA6077 F91547 88 dey6078 F91548 D0 E3 bne ?10 ; next block6079 F9154A A5 38 lda xbnk6080 F9154C 8F 28 FD 00 sta >PIA0+PIAPRA6081 F91550 60 rts60826083 F91551 clrxmem2:6084 F91551 85 38 sta xbnk6085 F91553 8F 28 FD 00 sta >PIA0+PIAPRA6086 F91557 ?10: INDEX166087 F91557 C2 10 rep #PXFLAG6088 .LONGI on6089 .MNLIST6090 F91559 A2 00 20 ldx #XMSTART ; start of x-mem window6091 F9155C A9 00 lda #06092 F9155E 9D 00 00 ?15: sta !0,x6093 F91561 E8 inx6094 F91562 1A inc a6095 F91563 E0 00 40 cpx #XMSTOP6096 F91566 90 F6 bcc ?156097 F91568 CPU086098 F91568 E2 30 sep #(PMFLAG.OR.PXFLAG)6099 .LONGA off6100 .LONGI off6101 .MNLIST6102 F9156A AF 28 FD 00 lda >PIA0+PIAPRA ; update x-mem bankTue Jul 17 11:00:20 2018 Page 646103 F9156E 1A inc a6104 F9156F 8F 28 FD 00 sta >PIA0+PIAPRA6105 F91573 88 dey6106 F91574 D0 E1 bne ?10 ; next block6107 F91576 A5 38 lda xbnk6108 F91578 8F 28 FD 00 sta >PIA0+PIAPRA6109 F9157C 60 rts6110 F9157D6111 ; write out root directory (xfatb=x-mem root dir. cache buffer)6112 F9157D wrroot:6113 F9157D A5 39 lda lunit6114 F9157F 48 pha6115 F91580 4B phk6116 F91581 F4 A2 15 pea #!?106117 F91584 A9 05 lda #56118 F91586 48 pha6119 F91587 BPRINTF6120 F91587 02 11 cop $116121 .MNLIST6122 F91589 A5 3E lda pdev6123 F9158B 48 pha ; ata drive6124 F9158C A9 00 lda #06125 F9158E 48 pha6126 F9158F D4 20 pei (root) ; root dir. lba6127 F91591 A0 20 ldy #326128 F91593 5A phy ; write 32 sector6129 F915946130 ;pha ; A=0 -> x-mem buffer6131 ;pei (xfatb)6132 ;lda #$80 ; verify after write6133 ;pha6134 ;ATAWRITE61356136 F91594 F4 00 00 pea #$0 ; buffer #6137 F91597 ATADMAWR6138 F91597 02 42 cop $426139 F91599 01 .DB $016140 .MNLIST6141 F9159A6142 F9159A B0 03 bcs ?056143 F9159C 4C 41 16 jmp wrok6144 F9159F 4C 4C 16 ?05: jmp wrerr ; error61456146 F915A2 77 72 69 74 65 ?10: .DB 'write root directory on drive <%c>...', 020 72 6F 6F 7420 64 69 72 6563 74 6F 72 7920 6F 6E 20 6472 69 76 65 203C 25 63 3E 2E2E 2E 0061476148 ; write out PBR (pointer: pbrp)6149 F915C8 wrpbr:6150 F915C8 A5 39 lda lunit6151 F915CA 48 pha6152 F915CB 4B phkTue Jul 17 11:00:20 2018 Page 656153 F915CC F4 E9 15 pea #!?106154 F915CF A9 05 lda #56155 F915D1 48 pha6156 F915D2 BPRINTF6157 F915D2 02 11 cop $116158 .MNLIST6159 F915D4 A5 3E lda pdev6160 F915D6 48 pha ; ata drive6161 F915D7 A9 00 lda #06162 F915D9 48 pha6163 F915DA D4 08 pei (hidsec) ; lba=partition start6164 F915DC A9 01 lda #16165 F915DE 48 pha ; write 1 sector6166 F915DF6167 ;lda pbrp+26168 ;pha ; buffer pointer6169 ;pei (pbrp)6170 ;lda #$80 ; verify after write6171 ;pha6172 ;ATAWRITE61736174 F915DF F4 21 00 pea #$21 ; buffer #6175 F915E2 ATADMAWR6176 F915E2 02 42 cop $426177 F915E4 01 .DB $016178 .MNLIST6179 F915E56180 F915E5 90 5A bcc wrok6181 F915E7 B0 63 bcs wrerr ; error61826183 F915E9 77 72 69 74 65 ?10: .DB 'write PBR on drive <%c>...', 020 50 42 52 206F 6E 20 64 7269 76 65 20 3C25 63 3E 2E 2E2E 0061846185 ; write out MBR (pointer: tlp)6186 F91604 wrmbr:6187 F91604 A5 39 lda lunit6188 F91606 48 pha6189 F91607 4B phk6190 F91608 F4 26 16 pea #!?106191 F9160B A9 05 lda #56192 F9160D 48 pha6193 F9160E BPRINTF6194 F9160E 02 11 cop $116195 .MNLIST6196 F91610 A5 3E lda pdev6197 F91612 48 pha ; ata drive6198 F91613 A9 00 lda #06199 F91615 48 pha6200 F91616 F4 00 00 pea #0 ; lba=06201 F91619 A9 01 lda #16202 F9161B 48 pha ; write 1 sector6203 F9161C6204 ;lda tlp+2Tue Jul 17 11:00:20 2018 Page 666205 ;pha ; buffer pointer6206 ;pei (tlp)6207 ;lda #$80 ; verify after write6208 ;pha6209 ;ATAWRITE6210 F9161C F4 20 00 pea #$20 ; buffer #6211 F9161F ATADMAWR6212 F9161F 02 42 cop $426213 F91621 01 .DB $016214 .MNLIST6215 F916226216 F91622 90 1D bcc wrok6217 F91624 B0 26 bcs wrerr ; error62186219 F91626 77 72 69 74 65 ?10: .DB 'write MBR on drive <%c>...', 020 4D 42 52 206F 6E 20 64 7269 76 65 20 3C25 63 3E 2E 2E2E 006220 F916416221 F91641 wrok:6222 F91641 SCNPRINT6223 F91641 02 01 cop $016224 .MNLIST6225 F91643 64 6F 6E 65 2E .DB 'done.', 13, 00D 006226 F9164A 18 clc6227 F9164B 60 rts ; CF=1 if error62286229 F9164C wrerr:6230 F9164C DA phx ; bit error6231 F9164D 5A phy ; error code6232 F9164E 4B phk6233 F9164F F4 59 16 pea #!?106234 F91652 A9 06 lda #66235 F91654 48 pha6236 F91655 BPRINTF6237 F91655 02 11 cop $116238 .MNLIST6239 F91657 38 sec6240 F91658 60 rts6241 F916596242 F91659 65 72 72 6F 72 ?10: .DB 'error %02bX (bits error: %02bX).', 13, 020 25 30 32 6258 20 28 62 6974 73 20 65 7272 6F 72 3A 2025 30 32 62 5829 2E 0D 0062436244 ; write out fat table (xfatb=x-mem fat cache buffer, X=fat)6245 F9167B wrfat:6246 F9167B A5 39 lda lunit6247 F9167D 48 pha6248 F9167E DA phx6249 F9167F 4B phkTue Jul 17 11:00:20 2018 Page 676250 F91680 F4 9D 16 pea #!?106251 F91683 A9 06 lda #66252 F91685 48 pha6253 F91686 BPRINTF6254 F91686 02 11 cop $116255 .MNLIST6256 F91688 A5 3E lda pdev6257 F9168A 48 pha ; ata drive6258 F9168B A9 00 lda #06259 F9168D 48 pha6260 F9168E D4 2C pei (flba) ; fat table lba6261 F91690 A4 18 ldy fatsiz6262 F91692 5A phy ; write n sector6263 F916936264 ;pha ; A=0 -> x-mem buffer6265 ;pei (xfatb)6266 ;lda #$80 ; verify after write6267 ;pha6268 ;ATAWRITE62696270 F91693 F4 00 01 pea #$100 ; buffer #6271 F91696 ATADMAWR6272 F91696 02 42 cop $426273 F91698 01 .DB $016274 .MNLIST6275 F916996276 F91699 90 A6 bcc wrok6277 F9169B B0 AF bcs wrerr ; error62786279 F9169D 77 72 69 74 65 ?10: .DB 'write FAT%bu table on drive <%c>...', 020 46 41 54 2562 75 20 74 6162 6C 65 20 6F6E 20 64 72 6976 65 20 3C 2563 3E 2E 2E 2E0062806281 ; A=drive6282 F916C1 shpart:6283 F916C1 AA tax6284 F916C2 A0 00 ldy #06285 F916C4 20 83 11 jsr prenew ; move data of partition6286 F916C7 B0 1D bcs ?306287 F916C9 A5 39 lda lunit6288 F916CB 48 pha6289 F916CC 4B phk6290 F916CD 24 41 bit lflag6291 F916CF 30 0A bmi ?20 ; valid partition6292 F916D1 F4 0A 17 pea #!?1106293 F916D4 A9 05 lda #56294 F916D6 48 pha6295 F916D7 BPRINTF6296 F916D7 02 11 cop $116297 .MNLIST6298 F916D9 80 0B bra ?306299 F916DB F4 E7 16 ?20: pea #!?100Tue Jul 17 11:00:20 2018 Page 686300 F916DE A9 05 lda #56301 F916E0 48 pha6302 F916E1 BPRINTF6303 F916E1 02 11 cop $116304 .MNLIST6305 F916E3 20 B5 17 jsr showprt6306 F916E6 60 ?30: rts63076308 F916E7 0D 70 61 72 74 ?100: .DB 13, 'partition summary on drive <%c>:', 13, 069 74 69 6F 6E20 73 75 6D 6D61 72 79 20 6F6E 20 64 72 6976 65 20 3C 2563 3E 3A 0D 006309 F9170A 0D 6E 6F 20 76 ?110: .DB 13, 'no valid partition found on drive <%c>.', 13, 061 6C 69 64 2070 61 72 74 6974 69 6F 6E 2066 6F 75 6E 6420 6F 6E 20 6472 69 76 65 203C 25 63 3E 2E0D 0063106311 F91734 atanewp:6312 .PUBLIC atanewp6313 F91734 0B phd6314 F91735 F4 00 40 pea #P0LDT6315 F91738 2B pld6316 F91739 A0 00 ldy #06317 F9173B 20 EB 0E jsr lfdisk6318 F9173E 2B pld6319 F9173F 6B rtl63206321 ; fixed disk pre-format routine6322 ; in: X=logical drive6323 ; Y=$FF if label is specified6324 F91740 prefmt:6325 F91740 20 83 11 jsr prenew ; move data of partition6326 F91743 B0 1E bcs ?30 ; no valid partition6327 F91745 A5 39 lda lunit6328 F91747 48 pha6329 F91748 4B phk6330 F91749 24 41 bit lflag6331 F9174B 30 0A bmi ?20 ; valid partition6332 F9174D F4 8B 17 pea #!?1106333 F91750 A9 05 lda #56334 F91752 48 pha6335 F91753 BPRINTF6336 F91753 02 11 cop $116337 .MNLIST6338 F91755 80 0C bra ?306339 F91757 F4 64 17 ?20: pea #!?1006340 F9175A A9 05 lda #56341 F9175C 48 pha6342 F9175D BPRINTFTue Jul 17 11:00:20 2018 Page 696343 F9175D 02 11 cop $116344 .MNLIST6345 F9175F 20 B5 17 jsr showprt6346 F91762 18 clc6347 F91763 60 ?30: rts63486349 F91764 0D 66 6F 72 6D ?100: .DB 13, 'format main partition on drive <%c>:', 13, 061 74 20 6D 6169 6E 20 70 6172 74 69 74 696F 6E 20 6F 6E20 64 72 69 7665 20 3C 25 633E 3A 0D 006350 F9178B 0D 6E 6F 20 76 ?110: .DB 13, 'no valid partition found on drive <%c>.', 13, 061 6C 69 64 2070 61 72 74 6974 69 6F 6E 2066 6F 75 6E 6420 6F 6E 20 6472 69 76 65 203C 25 63 3E 2E0D 006351 F917B56352 ; print partition data6353 F917B5 showprt:6354 F917B5 D4 06 pei (maxsec+2)6355 F917B7 D4 04 pei (maxsec)6356 F917B9 D4 06 pei (maxsec+2)6357 F917BB D4 04 pei (maxsec)6358 F917BD 4B phk6359 F917BE F4 59 18 pea #!?106360 F917C1 A9 0C lda #126361 F917C3 48 pha6362 F917C4 BPRINTF6363 F917C4 02 11 cop $116364 .MNLIST6365 F917C6 D4 0A pei (hidsec+2)6366 F917C8 D4 08 pei (hidsec)6367 F917CA D4 0A pei (hidsec+2)6368 F917CC D4 08 pei (hidsec)6369 F917CE 4B phk6370 F917CF F4 79 18 pea #!?206371 F917D2 A9 0C lda #126372 F917D4 48 pha6373 F917D5 BPRINTF6374 F917D5 02 11 cop $116375 .MNLIST6376 F917D7 D4 0E pei (totsec+2)6377 F917D9 D4 0C pei (totsec)6378 F917DB D4 0E pei (totsec+2)6379 F917DD D4 0C pei (totsec)6380 F917DF 4B phk6381 F917E0 F4 99 18 pea #!?306382 F917E3 A9 0C lda #126383 F917E5 48 pha6384 F917E6 BPRINTFTue Jul 17 11:00:20 2018 Page 706385 F917E6 02 11 cop $116386 .MNLIST6387 F917E8 D4 30 pei (remsec+2)6388 F917EA D4 2E pei (remsec)6389 F917EC D4 30 pei (remsec+2)6390 F917EE D4 2E pei (remsec)6391 F917F0 4B phk6392 F917F1 F4 B9 18 pea #!?406393 F917F4 A9 0C lda #126394 F917F6 48 pha6395 F917F7 BPRINTF6396 F917F7 02 11 cop $116397 .MNLIST6398 F917F9 D4 18 pei (fatsiz)6399 F917FB D4 18 pei (fatsiz)6400 F917FD 4B phk6401 F917FE F4 D9 18 pea #!?506402 F91801 A9 08 lda #86403 F91803 48 pha6404 F91804 BPRINTF6405 F91804 02 11 cop $116406 .MNLIST6407 F91806 D4 14 pei (clscnt)6408 F91808 D4 14 pei (clscnt)6409 F9180A 4B phk6410 F9180B F4 FD 18 pea #!?606411 F9180E A9 08 lda #86412 F91810 48 pha6413 F91811 BPRINTF6414 F91811 02 11 cop $116415 .MNLIST6416 F91813 A5 35 lda clssiz6417 F91815 48 pha6418 F91816 48 pha6419 F91817 4B phk6420 F91818 F4 21 19 pea #!?706421 F9181B A9 06 lda #66422 F9181D 48 pha6423 F9181E BPRINTF6424 F9181E 02 11 cop $116425 .MNLIST6426 F91820 F4 00 00 pea #06427 F91823 D4 22 pei (fat1)6428 F91825 4B phk6429 F91826 F4 4F 19 pea #!?756430 F91829 A9 08 lda #86431 F9182B 48 pha6432 F9182C BPRINTF6433 F9182C 02 11 cop $116434 .MNLIST6435 F9182E F4 00 00 pea #06436 F91831 D4 24 pei (fat2)6437 F91833 4B phk6438 F91834 F4 67 19 pea #!?806439 F91837 A9 08 lda #86440 F91839 48 pha6441 F9183A BPRINTFTue Jul 17 11:00:20 2018 Page 716442 F9183A 02 11 cop $116443 .MNLIST6444 F9183C F4 00 00 pea #06445 F9183F D4 20 pei (root)6446 F91841 4B phk6447 F91842 F4 7F 19 pea #!?856448 F91845 A9 08 lda #86449 F91847 48 pha6450 F91848 BPRINTF6451 F91848 02 11 cop $116452 .MNLIST6453 F9184A F4 00 00 pea #06454 F9184D D4 26 pei (start)6455 F9184F 4B phk6456 F91850 F4 97 19 pea #!?906457 F91853 A9 08 lda #86458 F91855 48 pha6459 F91856 BPRINTF6460 F91856 02 11 cop $116461 .MNLIST6462 F91858 60 rts64636464 F91859 74 6F 74 61 6C ?10: .DB 'total sector(s) : %08X %, +10u', 13, 020 73 65 63 746F 72 28 73 2920 3A 20 25 3038 58 20 25 2C20 2B 31 30 750D 006465 F91879 70 61 72 74 69 ?20: .DB 'partition start : %08X %, +10u', 13, 074 69 6F 6E 2073 74 61 72 7420 3A 20 25 3038 58 20 25 2C20 2B 31 30 750D 006466 F91899 70 61 72 74 69 ?30: .DB 'partition size : %08X %, +10u', 13, 074 69 6F 6E 2073 69 7A 65 2020 3A 20 25 3038 58 20 25 2C20 2B 31 30 750D 006467 F918B9 75 6E 75 73 65 ?40: .DB 'unused sector(s): %08X %, +10u', 13, 064 20 73 65 6374 6F 72 28 7329 3A 20 25 3038 58 20 25 2C20 2B 31 30 750D 006468 F918D9 66 61 74 20 74 ?50: .DB 'fat table size : % 8.4hX %, +10hu', 13, 061 62 6C 65 2073 69 7A 65 2020 3A 20 25 2038 2E 34 68 5820 25 2C 20 2B31 30 68 75 0DTue Jul 17 11:00:20 2018 Page 72006469 F918FD 63 6C 75 73 74 ?60: .DB 'clusters count : % 8.4hX %, +10hu', 13, 065 72 73 20 636F 75 6E 74 2020 3A 20 25 2038 2E 34 68 5820 25 2C 20 2B31 30 68 75 0D006470 F91921 63 6C 75 73 74 ?70: .DB 'cluster size : % 8.4bX %, +10bu sector(s)', 13, 065 72 20 73 697A 65 20 20 2020 3A 20 25 2038 2E 34 62 5820 25 2C 20 2B31 30 62 75 2073 65 63 74 6F72 28 73 29 0D006471 F9194F 66 61 74 31 20 ?75: .DB 'fat1 table start: %08X', 13, 074 61 62 6C 6520 73 74 61 7274 3A 20 25 3038 58 0D 006472 F91967 66 61 74 32 20 ?80: .DB 'fat2 table start: %08X', 13, 074 61 62 6C 6520 73 74 61 7274 3A 20 25 3038 58 0D 006473 F9197F 72 6F 6F 74 20 ?85: .DB 'root dir. start : %08X', 13, 064 69 72 2E 2073 74 61 72 7420 3A 20 25 3038 58 0D 006474 F91997 63 6C 75 73 74 ?90: .DB 'cluster #2 start: %08X', 13, 065 72 20 23 3220 73 74 61 7274 3A 20 25 3038 58 0D 0064756476 ; compute a new disk partition6477 F919AF newprt:6478 F919AF A5 3E lda pdev ; phisycal drive6479 F919B1 0A asl a6480 F919B2 0A asl a6481 F919B3 AA tax6482 F919B4 A5 00 lda defhsec6483 F919B6 85 08 sta hidsec ; hidden sector's6484 F919B8 64 09 stz hidsec+16485 F919BA ACC166486 F919BA C2 20 rep #PMFLAG6487 .LONGA on6488 .MNLIST6489 F919BC 64 0A stz hidsec+26490 F919BE BD 12 00 lda !atasec,x ; max. disk usable sector's6491 F919C1 85 04 sta maxsec6492 F919C3 BD 14 00 lda !atasec+2,xTue Jul 17 11:00:20 2018 Page 736493 F919C6 85 06 sta maxsec+26494 F919C8 A9 01 00 lda #16495 F919CB 85 16 sta rsvsec ; reserved sector for PBR6496 F919CD A9 20 00 lda #326497 F919D0 85 1A sta rootsiz ; root directory sector's6498 F919D2 A5 08 lda hidsec6499 F919D4 1A inc a ; leave one sector at partition end6500 F919D5 85 2E sta remsec6501 F919D7 38 sec6502 F919D8 A5 04 lda maxsec6503 F919DA E5 2E sbc remsec6504 F919DC 85 0C sta totsec ; total partition sector's6505 F919DE A5 06 lda maxsec+26506 F919E0 E5 0A sbc hidsec+2 ; this is null6507 F919E2 85 0E sta totsec+26508 F919E4 18 clc6509 F919E5 A5 08 lda hidsec ; compute total reserved sector's6510 F919E7 65 16 adc rsvsec6511 F919E9 65 1A adc rootsiz6512 F919EB 85 12 sta totrsv6513 F919ED A5 06 lda maxsec+26514 F919EF C9 40 00 cmp #$0040 ; disk size > 2gb?6515 F919F2 90 1F bcc ?05 ; no6516 F919F4 A2 40 ldx #$40 ; yes, so...6517 F919F6 86 35 stx clssiz ; ...cluser size=64 sector's...6518 F919F8 A2 06 ldx #66519 F919FA 86 36 stx clsshf6520 F919FC A9 00 01 lda #$0100 ; ...and fat size=max (256 sector's)...6521 F919FF 85 18 sta fatsiz6522 F91A01 A9 F4 FF lda #MAXF16-16523 F91A04 85 14 sta clscnt ; ...and cluster's count=max ($FFF4)...6524 F91A06 A9 30 FF lda #$FF30 ; ...and set partition totsec=$3FFF306525 F91A09 85 0C sta totsec6526 F91A0B A9 3F 00 lda #$003F6527 F91A0E 85 0E sta totsec+26528 F91A10 4C A3 1A jmp ?50 ; done for disk > 2Gb6529 F91A13 ?05: CPU08 ; now disk <= 2Gb6530 F91A13 E2 30 sep #(PMFLAG.OR.PXFLAG)6531 .LONGA off6532 .LONGI off6533 .MNLIST6534 F91A15 A5 06 lda maxsec+26535 F91A17 A2 00 ldx #06536 F91A19 DF 61 1C F9 ?10: cmp >CLSSIZE,x6537 F91A1D 90 06 bcc ?15 ; X=shift6538 F91A1F E8 inx6539 F91A20 E0 07 cpx #76540 F91A22 90 F5 bcc ?106541 F91A24 CA dex6542 F91A25 BF 61 1C F9 ?15: lda >CLSSIZE,x6543 F91A29 85 35 sta clssiz ; cluster size6544 F91A2B 86 36 stx clsshf ; cluster shift6545 F91A2D CPU166546 F91A2D C2 30 rep #(PMFLAG.OR.PXFLAG)6547 .LONGA on6548 .LONGI on6549 .MNLISTTue Jul 17 11:00:20 2018 Page 746550 F91A2F 38 sec ; compute approximate fat size6551 F91A30 A5 04 lda maxsec6552 F91A32 E5 12 sbc totrsv6553 F91A34 85 10 sta maxcnt6554 F91A36 A5 06 lda maxsec+26555 F91A38 E9 00 00 sbc #06556 F91A3B 9B txy6557 F91A3C F0 06 beq ?25 ; no shift6558 F91A3E 4A ?20: lsr a ; divide by cluster size6559 F91A3F 66 10 ror maxcnt6560 F91A41 CA dex6561 F91A42 D0 FA bne ?206562 F91A44 AA ?25: tax ; now C must be cleared6563 F91A45 D0 59 bne ?48 ; error... shoul'nt happen6564 F91A47 CPU086565 F91A47 E2 30 sep #(PMFLAG.OR.PXFLAG)6566 .LONGA off6567 .LONGI off6568 .MNLIST6569 F91A49 A5 11 lda maxcnt+1 ; high byte is fat size!6570 F91A4B 1A inc a6571 F91A4C D0 01 bne ?306572 F91A4E E8 inx ; fat size=2566573 F91A4F 85 18 ?30: sta fatsiz6574 F91A51 86 19 stx fatsiz+16575 F91A53 ACC16CLC6576 F91A53 C2 21 rep #(PMFLAG.OR.PCFLAG)6577 .LONGA on6578 .MNLIST6579 F91A55 A5 16 ?35: lda rsvsec ; now compute clusters count6580 F91A57 65 18 adc fatsiz6581 F91A59 65 18 adc fatsiz6582 F91A5B 65 1A adc rootsiz6583 F91A5D 85 14 sta clscnt6584 F91A5F 38 sec6585 F91A60 A5 0C lda totsec6586 F91A62 E5 14 sbc clscnt6587 F91A64 85 14 sta clscnt6588 F91A66 A5 0E lda totsec+26589 F91A68 E9 00 00 sbc #06590 F91A6B A6 36 ldx clsshf6591 F91A6D INDEX166592 F91A6D C2 10 rep #PXFLAG6593 .LONGI on6594 .MNLIST6595 F91A6F F0 06 beq ?456596 F91A71 4A ?40: lsr a6597 F91A72 66 14 ror clscnt6598 F91A74 CA dex6599 F91A75 D0 FA bne ?406600 F91A77 AA ?45: tax ; now C must be cleared6601 F91A78 D0 26 bne ?48 ; error... shoul'nt happen6602 F91A7A INDEX086603 F91A7A E2 10 sep #PXFLAG6604 .LONGI off6605 .MNLIST6606 F91A7C A5 14 lda clscntTue Jul 17 11:00:20 2018 Page 756607 F91A7E C9 F5 FF cmp #MAXF166608 F91A81 90 04 bcc ?466609 F91A83 A9 F4 FF lda #MAXF16-16610 F91A86 18 clc6611 F91A87 1A ?46: inc a ; add fake cluster 0&16612 F91A88 1A inc a6613 F91A89 69 FF 00 adc #$00FF ; round to fit sector6614 F91A8C 29 00 FF and #$FF006615 F91A8F EB xba6616 F91A90 90 03 bcc ?476617 F91A92 69 00 01 adc #$01006618 F91A95 C5 18 ?47: cmp fatsiz6619 F91A97 F0 0A beq ?50 ; ok, fat size is right6620 F91A99 90 08 bcc ?50 ; ok, fat size is right6621 F91A9B E6 18 inc fatsiz ; increment fat size6622 F91A9D 18 clc6623 F91A9E 80 B5 bra ?35 ; try again6624 F91AA0 38 ?48: sec6625 F91AA1 80 4D bra ?556626 F91AA3 ?50: INDEX086627 F91AA3 E2 10 sep #PXFLAG6628 .LONGI off6629 .MNLIST6630 F91AA5 18 clc6631 F91AA6 A5 12 lda totrsv6632 F91AA8 65 18 adc fatsiz6633 F91AAA 65 18 adc fatsiz6634 F91AAC 85 12 sta totrsv6635 F91AAE A5 14 lda clscnt6636 F91AB0 85 2E sta remsec6637 F91AB2 1A inc a6638 F91AB3 1A inc a6639 F91AB4 85 28 sta maxcls6640 F91AB6 A9 00 00 lda #06641 F91AB9 A6 36 ldx clsshf6642 F91ABB F0 06 beq ?526643 F91ABD 06 2E ?51: asl remsec6644 F91ABF 2A rol a6645 F91AC0 CA dex6646 F91AC1 D0 FA bne ?516647 F91AC3 85 30 ?52: sta remsec+26648 F91AC5 A5 2E lda remsec6649 F91AC7 18 clc6650 F91AC8 65 12 adc totrsv6651 F91ACA 85 2E sta remsec6652 F91ACC 90 02 bcc ?536653 F91ACE E6 30 inc remsec+26654 F91AD0 A5 04 ?53: lda maxsec6655 F91AD2 38 sec6656 F91AD3 E5 2E sbc remsec6657 F91AD5 85 2E sta remsec6658 F91AD7 A5 06 lda maxsec+26659 F91AD9 E5 30 sbc remsec+26660 F91ADB 85 30 sta remsec+26661 F91ADD 18 clc6662 F91ADE A5 08 lda hidsec6663 F91AE0 65 16 adc rsvsecTue Jul 17 11:00:20 2018 Page 766664 F91AE2 85 22 sta fat16665 F91AE4 65 18 adc fatsiz6666 F91AE6 85 24 sta fat26667 F91AE8 65 18 adc fatsiz6668 F91AEA 85 20 sta root6669 F91AEC 65 1A adc rootsiz6670 F91AEE 85 26 sta start6671 F91AF0 ?55: CPU086672 F91AF0 E2 30 sep #(PMFLAG.OR.PXFLAG)6673 .LONGA off6674 .LONGI off6675 .MNLIST6676 F91AF2 60 rts66776678 F91AF3 askfmt:6679 F91AF3 SCNPRINT6680 F91AF3 02 01 cop $016681 .MNLIST6682 F91AF5 63 6F 6E 74 69 .DB 'continue with the quick format? <Y/N>?', 06E 75 65 20 7769 74 68 20 7468 65 20 71 7569 63 6B 20 666F 72 6D 61 743F 20 3C 59 2F4E 3E 3F 006683 F91B1C 20 90 1B ?10: jsr getkey6684 F91B1F B0 FB bcs ?10 ; control key6685 F91B21 AA tax6686 F91B22 EB xba6687 F91B23 A8 tay6688 F91B24 D0 F6 bne ?10 ; CTL, ALT, SHIFT6689 F91B26 E0 79 cpx #'y'6690 F91B28 18 clc6691 F91B29 F0 04 beq ?206692 F91B2B E0 6E cpx #'n'6693 F91B2D D0 ED bne ?106694 F91B2F 60 ?20: rts66956696 ; return CF=0 if YES, CF=1 if NO6697 F91B30 askcont:6698 F91B30 SCNPRINT6699 F91B30 02 01 cop $016700 .MNLIST6701 F91B32 57 41 52 4E 49 .DB 'WARNING! Proceeding, all data on the disk will be erased. Continue <Y/N>?', 04E 47 21 20 5072 6F 63 65 6564 69 6E 67 2C20 61 6C 6C 2064 61 74 61 206F 6E 20 74 6865 20 64 69 736B 20 77 69 6C6C 20 62 65 2065 72 61 73 6564 2E 20 43 6F6E 74 69 6E 75Tue Jul 17 11:00:20 2018 Page 7765 20 3C 59 2F4E 3E 3F 006702 F91B7C 20 90 1B ?10: jsr getkey6703 F91B7F B0 FB bcs ?10 ; control key6704 F91B81 AA tax6705 F91B82 EB xba6706 F91B83 A8 tay6707 F91B84 D0 F6 bne ?10 ; CTL, ALT, SHIFT6708 F91B86 E0 79 cpx #'y'6709 F91B88 18 clc6710 F91B89 F0 04 beq ?206711 F91B8B E0 6E cpx #'n'6712 F91B8D D0 ED bne ?106713 F91B8F 60 ?20: rts6714 F91B906715 ; wait a pressed key6716 F91B90 getkey:6717 F91B90 ?02: KBGETIN ; system call - get key6718 F91B90 02 17 cop $176719 .MNLIST6720 F91B92 C9 00 cmp #06721 F91B94 F0 FA beq ?02 ; loop -- wait pressed key6722 F91B96 AA tax ; X=key code6723 F91B97 EB xba6724 F91B98 18 clc6725 F91B99 A8 tay ; Y=control key flag6726 F91B9A 10 01 bpl ?046727 F91B9C 38 sec ; flag control key6728 F91B9D AF 64 01 00 ?04: lda >DP01ADDR+KbdFlag6729 F91BA1 EB xba ; B = flag ALT, CTL, SHIFT6730 F91BA2 18 clc6731 F91BA3 8A txa ; key code6732 F91BA4 60 rts67336734 ;---------------------------------------------------------------------------6735 ; compact time function's6736 ;---------------------------------------------------------------------------67376738 ; get compact time for file timestamp6739 ; return cpu in 16 bit mode6740 ; C=low compact time, X=high compact time6741 F91BA5 gctime16:6742 F91BA5 CPU086743 F91BA5 E2 30 sep #(PMFLAG.OR.PXFLAG)6744 .LONGA off6745 .LONGI off6746 .MNLIST6747 F91BA7 0B phd6748 F91BA8 F4 00 40 pea #P0LDT6749 F91BAB 2B pld ; set dp page6750 F91BAC 20 08 1C jsr getrtc6751 F91BAF 20 CA 1B jsr cpctime6752 F91BB2 CPU166753 F91BB2 C2 30 rep #(PMFLAG.OR.PXFLAG)6754 .LONGA on6755 .LONGI on6756 .MNLISTTue Jul 17 11:00:20 2018 Page 786757 F91BB4 A5 48 lda ctime6758 F91BB6 A6 4A ldx cdate6759 F91BB8 2B pld6760 F91BB9 60 rts6761 F91BBA6762 .LONGA off6763 .LONGI off67646765 ; get compact time for file timestamp6766 F91BBA getctime:6767 F91BBA 0B phd6768 F91BBB F4 00 42 pea #P0OS6769 F91BBE 2B pld ; set dp page6770 F91BBF 20 08 1C jsr getrtc6771 F91BC2 20 CA 1B jsr cpctime6772 F91BC5 2B pld6773 F91BC6 60 rts67746775 ; compact time6776 F91BC7 gettime:6777 F91BC7 20 08 1C jsr getrtc6778 F91BCA cpctime:6779 F91BCA 38 sec6780 F91BCB A5 47 lda rtcyear ; subctract 19806781 F91BCD E9 50 sbc #$50 ; without century...6782 F91BCF 18 clc ; ...we assume century=206783 F91BD0 69 64 adc #$64 ; add 1006784 F91BD2 EB xba ; B = 0.127 (till 2101)6785 F91BD3 A5 46 lda rtcmonth ; shift month6786 F91BD5 0A asl a6787 F91BD6 0A asl a6788 F91BD7 0A asl a6789 F91BD8 0A asl a6790 F91BD9 ACC166791 F91BD9 C2 20 rep #PMFLAG6792 .LONGA on6793 .MNLIST6794 F91BDB 0A asl a ; shift year+month6795 F91BDC ACC086796 F91BDC E2 20 sep #PMFLAG6797 .LONGA off6798 .MNLIST6799 F91BDE 05 45 ora rtcday6800 F91BE0 85 4A sta cdate ; compact date6801 F91BE2 EB xba6802 F91BE3 85 4B sta cdate+16803 F91BE5 A5 42 lda rtcsec6804 F91BE7 4A lsr a6805 F91BE8 85 48 sta ctime6806 F91BEA 64 53 stz sec1006807 F91BEC 90 04 bcc ?106808 F91BEE A9 64 lda #1006809 F91BF0 85 53 sta sec100 ; millisecond stamp6810 F91BF2 A5 44 ?10: lda rtchour6811 F91BF4 EB xba6812 F91BF5 A5 43 lda rtcmin6813 F91BF7 0A asl aTue Jul 17 11:00:20 2018 Page 796814 F91BF8 0A asl a6815 F91BF9 ACC166816 F91BF9 C2 20 rep #PMFLAG6817 .LONGA on6818 .MNLIST6819 F91BFB 0A asl a6820 F91BFC 0A asl a6821 F91BFD 0A asl a6822 F91BFE ACC086823 F91BFE E2 20 sep #PMFLAG6824 .LONGA off6825 .MNLIST6826 F91C00 05 48 ora ctime ; compact time6827 F91C02 85 48 sta ctime6828 F91C04 EB xba6829 F91C05 85 49 sta ctime+16830 F91C07 60 rts6831 F91C086832 ; get real time clock6833 F91C08 getrtc:6834 F91C08 8B phb6835 F91C09 A9 00 lda #06836 F91C0B 48 pha6837 F91C0C AB plb6838 F91C0D 08 php6839 F91C0E 78 sei6840 F91C0F A2 0A ldx #RTCCTRLA ; set bank 16841 F91C11 8E 4C FD stx RTCALE6842 F91C14 A9 10 lda #$106843 F91C16 0C 4D FD tsb RTCDATA6844 F91C19 A2 4A ldx #RTCEXTCTRLA ; check INCR bit 66845 F91C1B 8E 4C FD stx RTCALE6846 F91C1E 2C 4D FD ?02: bit RTCDATA6847 F91C21 70 FB bvs ?026848 F91C23 A2 00 ldx #0 ; seconds6849 F91C25 8E 4C FD stx RTCALE6850 F91C28 AD 4D FD lda RTCDATA6851 F91C2B 85 42 sta rtcsec6852 F91C2D E8 inx6853 F91C2E E8 inx6854 F91C2F 8E 4C FD stx RTCALE ; minutes6855 F91C32 AD 4D FD lda RTCDATA6856 F91C35 85 43 sta rtcmin6857 F91C37 E8 inx6858 F91C38 E8 inx6859 F91C39 8E 4C FD stx RTCALE ; hours6860 F91C3C AD 4D FD lda RTCDATA6861 F91C3F 85 44 sta rtchour6862 F91C41 E8 inx6863 F91C42 E8 inx6864 F91C43 E8 inx6865 F91C44 8E 4C FD stx RTCALE ; day6866 F91C47 AD 4D FD lda RTCDATA6867 F91C4A 85 45 sta rtcday6868 F91C4C E8 inx6869 F91C4D 8E 4C FD stx RTCALE ; month6870 F91C50 AD 4D FD lda RTCDATATue Jul 17 11:00:20 2018 Page 806871 F91C53 85 46 sta rtcmonth6872 F91C55 E8 inx6873 F91C56 8E 4C FD stx RTCALE ; year6874 F91C59 AD 4D FD lda RTCDATA6875 F91C5C 85 47 sta rtcyear6876 F91C5E 28 plp6877 F91C5F AB plb6878 F91C60 60 rts68796880 ;---------------------------------------------------------------------------6881 ; tables6882 ;---------------------------------------------------------------------------6883 F91C616884 ; sector's per cluster table6885 F91C61 CLSSIZE:6886 F91C61 01 02 04 08 10 .DB $01, $02, $04, $08, $10, $20, $4020 4068876888 000007 CLSCNT .EQU $-CLSSIZE68896890 ; sector's per cluster shift table6891 F91C68 CLSSHIFT:6892 F91C68 00 01 02 03 04 .DB $00, $01, $02, $03, $04, $05, $0605 066893 F91C6F6894 ; costant's for fat formatted floppy disk (D.D. & H.D. format)6895 ; root dir. entry count6896 F91C6F FDROOT:6897 F91C6F 7000 E000 .DW $0070, $00E06898 ; total sector's6899 F91C73 FDSEC:6900 F91C73 A005 400B .DW $05A0, $0B406901 ; fat size6902 F91C77 FDFAT:6903 F91C77 0300 0900 .DW $0003, $00096904 ; sector's per track6905 F91C7B FDSPT:6906 F91C7B 0900 1200 .DW 9, 186907 ; sector per cluster6908 F91C7F FDCLS:6909 F91C7F 02 01 .DB 2, 16910 ; shift value6911 F91C81 FDSHF:6912 F91C81 01 00 .DB 1, 06913 ; media value6914 F91C83 FDMEDIA:6915 F91C83 F9 F0 .DB $F9, $F069166917 ; ata device PBR buffer pointer6918 F91C85 PBRPTR:6919 F91C85 008C 008E .DW .LOW16.PBR0ATA, .LOW16.PBR1ATA6920 F91C89 PBRPTR2:6921 F91C89 01 01 .DB .SEG.PBR0ATA, .SEG.PBR1ATA69226923 ; standard label6924 F91C8B PBRLBL:6925 F91C8B 44 4F 53 20 44 .DB 'DOS DISK 'Tue Jul 17 11:00:20 2018 Page 8149 53 4B 20 202069266927 F91C96 NOLBL:6928 F91C96 4E 4F 20 4E 41 .DB 'NO NAME '4D 45 20 20 202069296930 ; standard fat12 system name6931 F91CA1 F12NAM:6932 F91CA1 46 41 54 31 32 .DB 'FAT12 '20 20 2069336934 ; standard fat16 system name6935 F91CA9 F16NAM:6936 F91CA9 46 41 54 31 36 .DB 'FAT16 '20 20 2069376938 ; boot sector header DD fat126939 F91CB1 F12HDD:6940 F91CB1 EB 34 90 .DB $EB, $34, $906941 F91CB4 OEMNAM:6942 F91CB4 49 42 4D 20 20 .DB 'IBM 3.3'33 2E 336943 F91CBC 00 02 02 01 00 .DB $00, $02, $02, $01, $00, $02026944 F91CC2 70 00 A0 05 F9 .DB $70, $00, $A0, $05, $F9, $03, $0003 006945 F91CC9 12 00 02 00 .DB $12, $00, $02, $006946 F91CCD6947 00001C F12HSIZ .EQU ($ - F12HDD)69486949 ; boot sector header HD fat126950 F91CCD F12HHD:6951 F91CCD EB 34 90 .DB $EB, $34, $906952 F91CD0 49 42 4D 20 20 .DB 'IBM 3.3'33 2E 336953 F91CD8 00 02 01 01 00 .DB $00, $02, $01, $01, $00, $02026954 F91CDE E0 00 40 0B F0 .DB $E0, $00, $40, $0B, $F0, $09, $0009 006955 F91CE5 12 00 02 00 .DB $12, $00, $02, $00Lines Assembled : 6423 Errors : 0