Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:15 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F8\ata.asmOutput Filename : obj\F8\ata.objListing Has Been Relocated2585 .LIST on25862587 F8FFB1 .INCLUDE inc\dirp00.inc2588 ;----------------------------------------------------------2589 ; DIRP00.ASM2590 ; PROGETTO: B16012591 ;2592 ; Variabili in Direct Page $002593 ;----------------------------------------------------------25942595 ; sezione COMMON -- questo permette di includere il file in piu' file25962597 .LIST on25982599 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026002601 000000 .ABSOLUTE ;; inizia sempre da $002602 000000 .ORG 0x002603 0000002604 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2605 000002 0000 .DW2606 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2607 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2608 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2609 ; <6>: flag warm reset2610 00000D 00 RTCFlag .DB26112612 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12613 ; <7>: device ready2614 ; <6>: compact flash device (C.F.)2615 ; <5>: device identification ok2616 ; <4>: MBR loaded2617 ; <3>: valid signature in MBR2618 ; <2>: first partition found&active2619 ; <1>:2620 ; <0>: valid partition flag26212622 ; <7>: device ready2623 ; <6>: USB device2624 ; <5>: compact flash device (C.F.)2625 ; <4>: device identification ok2626 ; <3>: MBR loaded2627 ; <2>: first partition found&active2628 ; <1>: always 12629 ; <0>: valid partition flag2630 000010Tue Jul 17 11:00:15 2018 Page 226312632 00000E atadev .EQU diskstat26332634 000010 usbdev .DS 2 ; flag flash disk on usb bus #02635 ; <7>: device plugged and ready2636 ; <6>: always 12637 ; <5>: device identification ok2638 ; <4>: MBR loaded2639 ; <3>: valid signature in MBR2640 ; <2>: first partition found&active2641 ; <1>:2642 ; <0>: valid partition flag26432644 000012 diskmax .DS 16 ; disk max. sector's2645 000012 atasec .EQU diskmax2646 00001A usbsec .EQU diskmax+8264726482649 000022 atambr .DS 8 ; data for first partition found in mbr2650 ; first 3 bytes for start sector of partition2651 ; last byte for partition type2652 00002A usbmbr .DS 826532654 000032 ataprt .DS 8 ; total sec's of first partition2655 00003A usbprt .DS 8 ; total sec's of first partition265626572658 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2659 ; <7>: module on2660 ; <6>: ch376 flag2661 ; <5:0>: chip version26622663 000043 00 usb0st .DB ; usb0 status2664 ; <7>: usb0 host mode ok2665 ; <6>: flash disk attached flag2666 ; <5>: usb device attached26672668 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2669 ; <7>: disk format established in bit 0&12670 ; <6>: double step seek done2671 ; <5>: trust format bit's (set after ok r/w)2672 ; <4>: write protect bit (if disk in drive)2673 ; <3>: don't care2674 ; <2>: don't care2675 ; <1>: HD disk if set else DD disk2676 ; <0>: CBM format if set else IBM format26772678 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2679 ; <7>: disk format established in bit 0&12680 ; <6>: change disk simulation (after format)2681 ; <5>: don't care2682 ; <4>: write protect bit (under sw control)2683 ; <3>: don't care2684 ; <2>: don't care2685 ; <1>: HD disk if set else DD disk2686 ; <0>: CBM format if set else IBM format2687Tue Jul 17 11:00:15 2018 Page 32688 000046 00 fdcctl .DB ; fdc controller status2689 ; <7>: drive is attached2690 ; <6>: drive need recalibration (restore)2691 ; <5>: FDC controller ok2692 ; <4>: motor on2693 ; <3>: dma is active2694 ; <2>: dma chip ok (post routine)2695 ; <1>: clock rate (1=HD,0=DD)2696 ; <0>: disk ready26972698 000047 00 fdctrk .DB ; fd: current seek track2699 000048 00 fdcerr .DB ; fd: last error code2700 000049 00 ataerr .DB ; ata: last error code2701 00004A 00 ataxer .DB ; ata: last extended error code27022703 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27042705 00004C 0000 MemTop .DW ; top memoria RAM2706 00004E 00 .DB ; banco top mem27072708 00004F 00 DflTxtIn .DB ; device di default text input2709 000050 00 DflTxtOut .DB ; device di default text output27102711 000051 COPPtr LP ; long pointer for COP decoding2712 000054 00 COPIdx .DB ; COP signature/index27132714 000055 00 BiosEnt .DB ; flag accesso a bios setup27152716 ; variabili utilizzate da ACIA2717 000056 spwrk .DS $3027182719 ; bios mem2720 000086 0000 nsize .DW ; dimensione blocco da allocare2721 ;bsize .DW ; dimensione vera blocco free2722 000088 0000 splitsz .DW ; dimensione blocco splittato2723 00008A 0000 bfree .DW ; puntatore blocco free2724 00008C 0000 hdrptr .DW ; puntatore header heap27252726 00008E 0000 pbrklv .DW ; current break level of current process2727 000090 0000 pbrkmin .DW ; minimum breal level of current process2728 000092 0000 pbrkmax .DW ; maximum breal level of current process2729 0000942730 ; bios temp. work area2731 000094 bwrktmp .DS $2827322733 0000BC 00 coptmp .DB ; temp. used while cop27342735 0000BD 00 tstser .DB ; check ser/usb test board post2736 ; <7>: VIA2 ok2737 ; <6>: PICRAM ok2738 ; <1>: UART 16C550 ok2739 ; <0>: R65C51 ok274027412742 ;crc16 .DW27432744 0000BD .RELATIVETue Jul 17 11:00:15 2018 Page 427452746 .ENDS27472748 [01] .IFDEF _ACIA_INC_2749 .INCLUDE INC\SP.INC2750 [00] .ENDIF27512759 .LIST on27602761 ; direct page for bios disk data2762 _DPDSK: .SECTION page0, ref_only, common, offset 0 ;DISK ID D.P.27632764 ;.ABSOLUTE2765 ;.ORG 0x0027662767 000000 _atamod0 .DS 41 ; model string device ata #02768 000029 _ataser0 .DS 21 ; serial string device ata #02769 00003E _atarev0 .DS 9 ; revision string device ata #027702771 000047 _atamod1 .DS 41 ; model string device ata #12772 000070 _ataser1 .DS 21 ; serial string device ata #12773 000085 _atarev1 .DS 9 ; revision string device ata #127742775 00008E _usbdsc0 .DS 32 ; identification string device usb #02776 0000AE _usbdsc1 .DS 32 ; identification string device usb #127772778 0000CE _maxsecs .DS 16 ; disk max. sector's27792780 0000DE _DPDSK_END .DS 027812782 ;.RELATIVE27832784 .ENDS2788 .LIST on27892790 ;.INCLUDE inc\BIOSSEG.INC27912792 F8FFB12793 000004 WRITETRASF .EQU $04 ; write transfer: read ATA, write MEM2794 000008 READTRASF .EQU $08 ; read transfer: read MEM, write ATA27952796 0007D0 BUSYTMO .EQU 2000 ; 2000ms (timer PB6) - busy timeout2797 0007D0 INTTMO .EQU 2000 ; 2000ms (timer PB6) - interrupt timeout2798 00270F T2MS5 .EQU ((2500 * PHI2) - 1) ; timeout 2.5ms2799 009C3F T2MS10 .EQU ((10000 * PHI2) - 1) ; timeout 10ms28002801 000B40 XBMIN .EQU $0B40 ; min. x-mem buffer2802 001000 XBMAX .EQU $1000 ; max. x-mem buffer + 12803 000001 MBMIN .EQU $01 ; min. buffer bank2804 0000F0 MBMAX .EQU $F0 ; max. buffer bank + 12805 000800 MDMAX .EQU $0800 ; max. dma buffer28062807 000020 READSECTOR .EQU $20 ; read sector(s)2808 000030 WRITESECTOR .EQU $30 ; write sector(s)2809 0000C8 READDMA .EQU $C8 ; read dma sectors2810 0000CA WRITEDMA .EQU $CA ; write dma sectors2811Tue Jul 17 11:00:15 2018 Page 52812 ;FLUSHCACHE .EQU $E72813 0000EC IDENTDEV .EQU $EC ; identify device28142815 ; page 0 local var's (declared in bios temp. work area)2816 _P0BTMP: .SECTION page0, ref_only, offset bwrktmp ; DP Tmp. BIOS2817 000094 ATATMP_START .EQU $28182819 000094 00 drive .DB ; ata #0 or ata #1 device2820 000095 lba DS 3 ; 24 bit sector address2821 000098 00 secnum .DB ; sector(s) count # (if 0 -> 256 sec.)2822 000099 00 seccnt .DB ; copy of secnum2823 00009A 00 ifrbit .DB ; bit to test on VIA3 IFR2824 00009B 00 cmdfg .DB ; flag for load command block reg's2825 00009C 00 ataop .DB ; ata operation flag2826 ; <7>=0->read, 1->write2827 ; <6>=1 compare (ignored in dma mode)2828 00009D 00 memfg .DB ; using buffer in x-mem flag2829 00009E 00 drdyf .DB ; test alt. status reg. while read/write block2830 00009F 00 match .DB ; compare result (match if not null)2831 0000A0 bufp LP ; in/out buffer long pointer2832 0000A3 memp LP ; start buffer pointer2833 0000A6 0000 xbuf .DW ; x-mem buffer # ($0B40..$0FFF)2834 ; dma buffer # ($0000..$7FFF)2835 0000A8 00 xbnk .DB ; starting x-mem bank2836 0000A9 00 xsave .DB ; save x-mem setting2837 0000AA 0000 nlba .DW ; total sector's count #2838 0000AC 0000 ncnt .DW ; dma words count #2839 0000AE 00 tmp .DB ; temp2840 0000AF 00 ataofs .DB ; temp: ata offset address2841 0000B0 0000 wtmp .DW ; temp. word2842 0000B2 0000 mbrsgn .DW ; mbr signature2843 0000B4 0000 mbrfg .DW ; mbr first partition flag2844 0000B6 00 tmpy .DB2845 0000B7 00 dmareq .DB28462847 000024 ATATMP_SIZ .EQU ($-ATATMP_START)2848 .ENDS28492850 ;---------------------------------------------------------------------------2851 ; code segment -- bank $F82852 ;---------------------------------------------------------------------------28532854 .CODEF82855 F888392856 .LONGA off2857 .LONGI off2858 F888392859 ;---------------------------------------------------------------------------2860 ; System interface2861 ;---------------------------------------------------------------------------28622863 ;---------------------------------------------------------------------------2864 ; sys_atadma - read/write sectors in ata device (dma mode)2865 ;2866 ; prototype: sys_atadma(bDev, dwSec, bNum, nBuf)2867 ;2868 ; Params (7 bytes):Tue Jul 17 11:00:15 2018 Page 62869 ; bDev = ata device # (0..1)2870 ; dwSec = 24 bit address of first sector (LBA)2871 ; bNum = number of sectors to read/write; if bNum=0 then bNum=2562872 ; nBuf = dma buffer # ($0000..$07FF)2873 ;2874 ; Out:2875 ; CF = 0 if operation completed successfully2876 ; C = uncahnged2877 ; X = unchanged2878 ; Y = unchanged2879 ; CF = 1 if error2880 ; C = unchanged2881 ; X = extended error code (if any)2882 ; Y = error code2883 ; Status register always preserved except carry28842885 ; params offset2886 000013 nBuf .SET STKPRMS2887 000015 bNum .SET STKPRMS + 22888 000016 dwSec .SET STKPRMS + 32889 000019 bDev .SET STKPRMS + 628902891 F88839 sys_atadma:2892 .GLOBAL sys_atadma28932894 F88839 64 49 stz ataerr ; clear error var's2895 F8883B 64 4A stz ataxer2896 F8883D ACC16 ; retrieve function number2897 F8883D C2 20 rep #PMFLAG2898 .LONGA on2899 .MNLIST2900 F8883F A3 10 lda STKPCL,s ; pointer to byte after signature2901 F88841 85 51 sta COPPtr2902 F88843 1A inc a ; update return address2903 F88844 83 10 sta STKPCL,s2904 F88846 A3 16 lda dwSec,s ; get 16 bit param's2905 F88848 85 95 sta lba2906 F8884A A3 13 lda nBuf,s2907 F8884C C9 00 08 cmp #MDMAX2908 F8884F B0 5A bcs ?11 ; buffer overflow2909 F88851 85 A6 sta xbuf2910 F88853 ACC08 ; A,M -> 8 bit2911 F88853 E2 20 sep #PMFLAG2912 .LONGA off2913 .MNLIST2914 F88855 A3 12 lda STKPBR,s ; bank where was executed cop instruction2915 F88857 85 53 sta COPPtr+22916 F88859 A7 51 lda [COPPtr] ; byte after signature2917 F8885B C9 02 cmp #$02 ; right value: 0,12918 F8885D 90 04 bcc ?00 ; ok2919 F8885F A9 08 lda #ATA_BADOP ; invalid function2920 F88861 80 4C bra ?20 ; set error & exit2921 F88863 AA ?00: tax ; X=operation (0=read,1=verify,2=write)2922 F88864 BF 98 91 F8 lda >OPTAB2,x2923 F88868 85 9C sta ataop ; operation ($00, $80)2924 F8886A A3 18 lda dwSec+2,s2925 F8886C 85 97 sta lba+2 ; store first sector lbaTue Jul 17 11:00:15 2018 Page 72926 F8886E A0 00 ldy #02927 F88870 A3 15 lda bNum,s2928 F88872 85 98 sta secnum ; sector's count #2929 F88874 85 B0 sta wtmp ; for check2930 F88876 D0 01 bne ?02 ; less than 2562931 F88878 C8 iny ; = 2562932 F88879 84 B1 ?02: sty wtmp+1 ; for later check2933 F8887B A3 19 lda bDev,s ; device2934 F8887D 29 01 and #1 ; 0 or 12935 F8887F AA tax2936 F88880 34 0E bit atadev,x ; ready?2937 F88882 30 04 bmi ?03 ; yes2938 F88884 A9 01 lda #ATA_NOTREADY ; not ready2939 F88886 80 27 bra ?20 ; set error & exit2940 F88888 86 94 ?03: stx drive2941 F8888A A5 B0 lda wtmp2942 F8888C 85 AD sta ncnt+1 ; ncnt = words count2943 F8888E 64 AC stz ncnt2944 F88890 ACC16CLC2945 F88890 C2 21 rep #(PMFLAG.OR.PCFLAG)2946 .LONGA on2947 .MNLIST2948 F88892 C6 AC dec ncnt ; dma need words count - 12949 F88894 A5 A6 lda xbuf ; buffer #2950 F88896 65 B0 adc wtmp ; add sec. #2951 F88898 C9 01 08 cmp #MDMAX+1 ; buffer overflow?2952 F8889B B0 0E bcs ?11 ; yes2953 F8889D 3A dec a ; final buffer2954 F8889E ACC082955 F8889E E2 20 sep #PMFLAG2956 .LONGA off2957 .MNLIST2958 F888A0 EB xba ; transfer must be in one 64Kw bank2959 F888A1 C5 A7 cmp xbuf+12960 F888A3 D0 08 bne ?12 ; error: not same bank2961 F888A5 20 10 8C jsr dmardwr ; execute dma transfer2962 F888A8 B0 05 bcs ?20 ; error2963 F888AA 6B rtl2964 F888AB ?11: ACC082965 F888AB E2 20 sep #PMFLAG2966 .LONGA off2967 .MNLIST2968 F888AD A9 0A ?12: lda #ATA_MEM ; bad buffer2969 F888AF AA ?20: tax2970 F888B0 A9 00 lda #0 ; report extended error if any2971 F888B2 83 0C sta STKXR+1,s2972 F888B4 E0 04 cpx #ATA_EBIT2973 F888B6 D0 01 bne ?222974 F888B8 98 tya ; extended error2975 F888B9 83 0B ?22: sta STKXR,s2976 F888BB 85 4A sta ataxer ; extended error code2977 F888BD 8A txa ; A=error code2978 F888BE 85 49 sta ataerr2979 F888C0 38 sec2980 F888C1 6B rtl29812982 ;---------------------------------------------------------------------------Tue Jul 17 11:00:15 2018 Page 82983 ; sys_atarw - read/write/verify sectors in ata device (pio mode)2984 ;2985 ; prototype: sys_atarw(bDev, dwSec, bNum, lpBuf, bFlag)2986 ;2987 ; Params (9 bytes):2988 ; bDev = ata device # (0..1)2989 ; dwSec = 24 bit address of first sector (LBA)2990 ; bNum = number of sectors to read/write; if bNum=0 then bNum=2562991 ; lpBuf = long pointer to buffer2992 ; if bank(lpBuf+2)=0 or bank=1 buffer is in the x-mem2993 ; and in this case lpBuf store the x-mem buffer;2994 ; x-mem buffer can be only in range $0B40..$0FFF2995 ; if conventional memory, bank must be in range $01..$EF2996 ; bFlag = flag2997 ; <7>: verify data after writing2998 ; ignored in read/verify operation2999 ;3000 ; Out:3001 ; CF = 0 if operation completed successfully3002 ; C = uncahnged3003 ; X = unchanged3004 ; Y = unchanged3005 ; CF = 1 if error3006 ; C = unchanged3007 ; X = extended error code (if any)3008 ; Y = error code3009 ; Status register always preserved except carry30103011 ; params offset3012 000013 bFlag .SET STKPRMS3013 000014 lpBuf .SET STKPRMS + 13014 000017 bNum .SET STKPRMS + 43015 000018 dwSec .SET STKPRMS + 53016 00001B bDev .SET STKPRMS + 830173018 F888C2 sys_atarw:3019 .GLOBAL sys_atarw30203021 F888C2 64 49 stz ataerr ; clear error var's3022 F888C4 64 4A stz ataxer3023 F888C6 ACC16 ; retrieve function number3024 F888C6 C2 20 rep #PMFLAG3025 .LONGA on3026 .MNLIST3027 F888C8 A3 10 lda STKPCL,s ; pointer to byte after signature3028 F888CA 85 51 sta COPPtr3029 F888CC 1A inc a ; update return address3030 F888CD 83 10 sta STKPCL,s3031 F888CF A3 18 lda dwSec,s ; get 16 bit param's3032 F888D1 85 95 sta lba3033 F888D3 A3 14 lda lpBuf,s3034 F888D5 85 A3 sta memp3035 F888D7 ACC08 ; A,M -> 8 bit3036 F888D7 E2 20 sep #PMFLAG3037 .LONGA off3038 .MNLIST3039 F888D9 A3 12 lda STKPBR,s ; bank where was executed cop instructionTue Jul 17 11:00:15 2018 Page 93040 F888DB 85 53 sta COPPtr+23041 F888DD A7 51 lda [COPPtr] ; byte after signature3042 F888DF C9 03 cmp #$03 ; right value: 0,1,23043 F888E1 90 05 bcc ?00 ; ok3044 F888E3 A9 08 lda #ATA_BADOP ; invalid function3045 F888E5 4C 7E 89 jmp ?20 ; set error & exit3046 F888E8 AA ?00: tax ; X=operation (0=read,1=verify,2=write)3047 F888E9 BF 95 91 F8 lda >OPTAB,x3048 F888ED 10 0B bpl ?01 ; read/verify (ignore bFlag)3049 F888EF A8 tay3050 F888F0 A3 13 lda bFlag,s ; verify flag (after write)?3051 F888F2 30 03 bmi ?00a ; yes3052 F888F4 98 tya3053 F888F5 80 03 bra ?01 ; no3054 F888F7 98 ?00a: tya3055 F888F8 09 40 ora #$40 ; yes, set verify flag3056 F888FA 85 9C ?01: sta ataop ; operation ($00, $40, $80, $C0)3057 F888FC A3 1A lda dwSec+2,s3058 F888FE 85 97 sta lba+2 ; store first sector lba3059 F88900 A0 00 ldy #03060 F88902 A3 17 lda bNum,s3061 F88904 85 98 sta secnum ; sector's count #3062 F88906 85 B0 sta wtmp ; for check3063 F88908 D0 01 bne ?02 ; less than 2563064 F8890A C8 iny ; = 2563065 F8890B 84 B1 ?02: sty wtmp+1 ; for later check3066 F8890D A3 1B lda bDev,s ; device3067 F8890F 29 01 and #1 ; 0 or 13068 F88911 AA tax3069 F88912 34 0E bit atadev,x ; ready?3070 F88914 30 04 bmi ?03 ; yes3071 F88916 A9 01 lda #ATA_NOTREADY ; not ready3072 F88918 80 64 bra ?20 ; set error & exit3073 F8891A 86 94 ?03: stx drive3074 F8891C 64 9D stz memfg3075 F8891E A3 16 lda lpBuf+2,s ; buffer bank3076 F88920 C9 01 cmp #MBMIN ; x-mem buffer?3077 F88922 B0 24 bcs ?08 ; no, conventional memory3078 F88924 ACC163079 F88924 C2 20 rep #PMFLAG3080 .LONGA on3081 .MNLIST3082 F88926 A0 00 ldy #0 ; assume no error3083 F88928 A5 A3 lda memp ; check x-mem buffer3084 F8892A 85 A6 sta xbuf3085 F8892C C9 40 0B cmp #XBMIN3086 F8892F 90 0A bcc ?04 ; error3087 F88931 18 clc3088 F88932 65 B0 adc wtmp ; add sector's count3089 F88934 B0 05 bcs ?04 ; overflow error3090 F88936 C9 01 10 cmp #XBMAX+13091 F88939 90 02 bcc ?06 ; buffer limits ok3092 F8893B A0 09 ?04: ldy #ATA_XMEM ; Y=x-mem buffer error3093 F8893D ?06: ACC083094 F8893D E2 20 sep #PMFLAG3095 .LONGA off3096 .MNLISTTue Jul 17 11:00:15 2018 Page 103097 F8893F 98 tya3098 F88940 D0 3C bne ?20 ; set error & exit3099 F88942 A9 80 lda #$803100 F88944 85 9D sta memfg3101 F88946 80 27 bra ?14 ; ok, good x-mem buffer3102 F88948 85 A5 ?08: sta memp+2 ; store buffer bank3103 F8894A C9 F0 cmp #MBMAX ; over max. bank?3104 F8894C B0 1D bcs ?12 ; yes, error3105 F8894E AA tax ; X=bank3106 F8894F ACC163107 F8894F C2 20 rep #PMFLAG3108 .LONGA on3109 .MNLIST3110 F88951 64 AC stz nlba+2 ; high word (only low byte significative)3111 F88953 A5 B0 lda wtmp ; convert secnum in bytes3112 F88955 A0 09 ldy #9 ; 9 shift (mult by 512)3113 F88957 0A ?10: asl a ; low word3114 F88958 26 AC rol nlba+2 ; shift high word3115 F8895A 88 dey3116 F8895B D0 FA bne ?103117 F8895D 18 clc3118 F8895E 65 A3 adc memp3119 F88960 85 AA sta nlba ; end address: low word3120 F88962 ACC083121 F88962 E2 20 sep #PMFLAG3122 .LONGA off3123 .MNLIST3124 F88964 8A txa ; start bank3125 F88965 65 AC adc nlba+2 ; end address: bank3126 F88967 C9 F0 cmp #MBMAX3127 F88969 90 04 bcc ?14 ; ok, good buffer3128 F8896B A9 0A ?12: lda #ATA_MEM ; bad buffer3129 F8896D 80 0F bra ?20 ; set error & exit3130 F8896F 24 9C ?14: bit ataop3131 F88971 30 06 bmi ?18 ; write op3132 F88973 20 31 8B jsr readsct3133 F88976 B0 06 bcs ?20 ; read error3134 F88978 6B ?16: rtl ; ok, no error3135 F88979 20 F0 89 ?18: jsr writesct3136 F8897C 90 FA bcc ?16 ; write ok3137 F8897E AA ?20: tax3138 F8897F A9 00 lda #0 ; report extended error if any3139 F88981 83 0C sta STKXR+1,s3140 F88983 E0 04 cpx #ATA_EBIT3141 F88985 D0 01 bne ?223142 F88987 98 tya ; extended error3143 F88988 83 0B ?22: sta STKXR,s3144 F8898A 85 4A sta ataxer ; extended error code3145 F8898C 8A txa ; A=error code3146 F8898D 85 49 sta ataerr3147 F8898F 38 sec3148 F88990 6B rtl31493150 ;---------------------------------------------------------------------------3151 ; sys_atactl - control function3152 ;3153 ; prototype: sys_atactl(A=function#, X=device#)Tue Jul 17 11:00:15 2018 Page 113154 ;3155 ; Functions:3156 ; A=$00: reset device X3157 ; A=$01: identify device X3158 ; A=$02: load mbr of device X3159 ; A=$03: load pbr of device X3160 ;3161 ; Out:3162 ; CF = 0 if operation completed successfully3163 ; CF = 1 if error3164 ; C = unchanged3165 ; X = extended error code (if any)3166 ; Y = error code3167 ; Status register always preserved except carry3168 F88991 sys_atactl:3169 .GLOBAL sys_atactl31703171 F88991 64 49 stz ataerr ; clear error var's3172 F88993 64 4A stz ataxer3173 F88995 A3 0B lda STKXR,s3174 F88997 29 01 and #13175 F88999 85 94 sta drive3176 F8899B AA tax3177 F8899C 34 0E bit atadev,x3178 F8899E 10 37 bpl ?10 ; not ready3179 F889A0 8A txa3180 F889A1 F0 02 beq ?023181 F889A3 A2 10 ldx #ATAOFS3182 F889A5 86 AF ?02: stx ataofs3183 F889A7 A3 0D lda STKCR,s ; function#3184 F889A9 C9 04 cmp #$043185 F889AB B0 2E bcs ?12 ; invalid function3186 F889AD A8 tay3187 F889AE D0 05 bne ?043188 F889B0 20 1F 8E jsr devres ; 0: reset device3189 F889B3 80 1F bra ?083190 F889B5 A6 94 ?04: ldx drive3191 F889B7 3A dec a3192 F889B8 F0 11 beq ?06 ; 1: ident3193 F889BA 3A dec a3194 F889BB F0 03 beq ?05 ; 2: load mbr3195 F889BD 20 BE 8A jsr getpbr ; 3: load pbr3196 F889C0 A9 E2 ?05: lda #11100010B3197 F889C2 35 0E and atadev,x3198 F889C4 95 0E sta atadev,x3199 F889C6 20 70 90 jsr chkmbr ; 2: load mbr3200 F889C9 80 09 bra ?083201 F889CB A9 DF ?06: lda #11011111B ; 1: ident3202 F889CD 35 0E and atadev,x3203 F889CF 95 0E sta atadev,x3204 F889D1 20 80 8E jsr ident3205 F889D4 B0 07 ?08: bcs ?143206 F889D6 6B rtl3207 F889D7 A9 01 ?10: lda #ATA_NOTREADY ; not ready3208 F889D9 80 02 bra ?14 ; set error & exit3209 F889DB A9 08 ?12: lda #ATA_BADOP ; invalid function3210 F889DD AA ?14: taxTue Jul 17 11:00:15 2018 Page 123211 F889DE A9 00 lda #0 ; report extended error if any3212 F889E0 83 0C sta STKXR+1,s3213 F889E2 E0 04 cpx #ATA_EBIT3214 F889E4 D0 01 bne ?163215 F889E6 98 tya ; extended error3216 F889E7 83 0B ?16: sta STKXR,s3217 F889E9 85 4A sta ataxer ; extended error code3218 F889EB 8A txa ; A=error code3219 F889EC 85 49 sta ataerr3220 F889EE 38 sec3221 F889EF 6B rtl32223223 ;---------------------------------------------------------------------------3224 ; basic read/write routines3225 ;---------------------------------------------------------------------------32263227 .LONGA off3228 .LONGI off32293230 ; write N (0..256) sector(s) on ata device3231 ; in: drive=0 or 1 (ata #0 or ata #1 device)3232 ; lba[0..2]=24 bits starting sector address3233 ; secnum=sector(s) count (if 0 -> 256 sect.)3234 ; memp=long pointer to input buffer3235 ; memfg<7>=flag buffer x-mem3236 ; xbuf=x-mem buffer # if using x-mem ($0B40..$0FFF)3237 ; ataop<6>=flag compare data after writing3238 ; Out: CF=0 if no error3239 ; CF=1 if error, A=error code, Y=error reg.3240 ; use: all3241 F889F0 writesct:3242 F889F0 20 E8 8D jsr setbuf ; set buffer pointer3243 F889F3 A9 80 lda #$803244 F889F5 85 9B sta cmdfg ; load command block registers3245 F889F7 A9 80 lda #$803246 F889F9 14 9C trb ataop ; we know is a write op...3247 F889FB A0 30 ldy #WRITESECTOR ; write sectors PIO mode3248 F889FD 20 78 8D jsr sndcmd ; return X=ata offset3249 F88A00 EA nop ; delay before to access status reg. (400ns)3250 F88A01 EA nop3251 F88A02 EA nop3252 F88A03 EA nop3253 ;bra ?w13254 F88A04 3C AE FD bit !ATAALTST,x ; dummy read3255 F88A07 BD A7 FD ?w0: lda !ATAST,x ; read status reg.3256 F88A0A 30 FB bmi ?w0 ; wait BUSY bit=03257 F88A0C 89 21 bit #ATADFB+ATAERRB3258 F88A0E D0 47 bne ?idle ; error3259 F88A10 89 08 bit #ATADRQ ; ready to transfer?3260 F88A12 D0 18 bne ?wrb ; yes, write data block3261 F88A14 80 F1 bra ?w0 ; wait for DRQ3262 F88A16 3C AE FD ?loop: bit !ATAALTST,x ; dummy read3263 F88A19 BD A7 FD ?w1: lda !ATAST,x ; read status reg.3264 F88A1C 30 FB bmi ?w1 ; wait BUSY bit=03265 F88A1E 89 08 bit #ATADRQ ; end of transfer or error?3266 F88A20 F0 35 beq ?idle ; yes3267 F88A22 A4 99 ldy seccntTue Jul 17 11:00:15 2018 Page 133268 F88A24 D0 06 bne ?wrb ; more blocks3269 F88A26 A9 40 lda #$403270 F88A28 04 9E tsb drdyf ; data loss3271 F88A2A E6 99 inc seccnt3272 F88A2C 20 F3 8C ?wrb: jsr wrblk ; write data block (256 words)3273 F88A2F C6 99 dec seccnt ; update left count #3274 F88A31 20 8B 8C ?int: jsr waitint ; wait interrupt assertion within timeout3275 F88A34 90 E0 bcc ?loop ; ok, read status reg.32763277 ; no int. assertion: this happen if device expect more data block3278 ; write out data block until DRQ bit reset3279 F88A36 A9 40 lda #$403280 F88A38 04 9E tsb drdyf ; signal this error3281 F88A3A BD AE FD ?w2: lda !ATAALTST,x3282 F88A3D 89 08 bit #ATADRQ3283 F88A3F F0 0B beq ?w3 ; no drq3284 F88A41 9E AA FD stz !ATAPORT,x ; latch data high byte3285 F88A44 9E AB FD stz !ATAPORT+1,x ; latch data high byte3286 F88A47 9E A8 FD stz !ATADATA,x ; write3287 F88A4A 80 EE bra ?w23288 F88A4C BD AE FD ?w3: lda !ATAALTST,x3289 F88A4F BD AE FD lda !ATAALTST,x3290 F88A52 BD A7 FD lda !ATAST,x3291 F88A55 30 DA bmi ?int32923293 F88A57 24 9E ?idle: bit drdyf ; test interrupt timeout error3294 F88A59 50 07 bvc ?chk ; no, so test error condition3295 F88A5B 20 1F 8E jsr devres ; reset device because write error3296 F88A5E A9 02 lda #ATA_DLOSS ; data loss while writing3297 F88A60 80 28 bra ?err3298 F88A62 89 20 ?chk: bit #ATADFB ; device fault bit ?3299 F88A64 F0 04 beq ?chk1 ; no3300 F88A66 A9 03 lda #ATA_FAULT ; yes3301 F88A68 80 20 bra ?err3302 F88A6A 89 01 ?chk1: bit #ATAERRB ; error bit ?3303 F88A6C F0 07 beq ?chk2 ; no...so write ok3304 F88A6E BC A1 FD ldy !ATAERROR,x ; read error register3305 F88A71 A9 04 lda #ATA_EBIT ; error bits3306 F88A73 80 15 bra ?err3307 F88A75 A5 99 ?chk2: lda seccnt ; all blocks was written?3308 F88A77 F0 07 beq ?ok ; yes3309 F88A79 20 1F 8E jsr devres ; reset device because premature ending3310 F88A7C A9 05 lda #ATA_DEVRES3311 F88A7E 80 0A bra ?err3312 F88A80 18 ?ok: clc ; assume no error3313 F88A81 24 9C bit ataop ; request for verify data?3314 F88A83 50 06 bvc ?done ; no, exit (no error)3315 F88A85 20 16 8B jsr cmpsct ; compare written data3316 F88A88 90 01 bcc ?done ; ok, no error3317 ;lda #ATA_VERF ; assume always data verify error3318 F88A8A 38 ?err: sec ; error flag3319 F88A8B 24 9D ?done: bit memfg ; using x-mem?3320 F88A8D 10 05 bpl ?rts ; no3321 F88A8F A6 A9 ldx xsave3322 F88A91 9D 0A FC sta !CRXME,x ; restore3323 F88A94 60 ?rts: rts3324Tue Jul 17 11:00:15 2018 Page 143325 ; load MBR in memory3326 ; in: drive3327 F88A95 getmbr:3328 F88A95 ACC16 ; set pointer for MBR3329 F88A95 C2 20 rep #PMFLAG3330 .LONGA on3331 .MNLIST3332 F88A97 A9 00 88 lda #MBR0ATA3333 F88A9A A6 94 ldx drive3334 F88A9C F0 03 beq ?023335 F88A9E A9 00 8A lda #MBR1ATA3336 F88AA1 85 A3 ?02: sta memp3337 F88AA3 85 A0 sta bufp3338 F88AA5 64 95 stz lba ; read sector=03339 F88AA7 ACC083340 F88AA7 E2 20 sep #PMFLAG3341 .LONGA off3342 .MNLIST3343 F88AA9 A9 01 lda #^MBR0ATA3344 F88AAB 85 A5 sta memp+23345 F88AAD 85 A2 sta bufp+23346 F88AAF 64 97 stz lba+23347 F88AB1 64 9C stz ataop ; just read3348 F88AB3 64 9D stz memfg ; no x-mem3349 F88AB5 A9 01 lda #13350 F88AB7 85 98 sta secnum ; read just one block3351 F88AB93352 F88AB9 4C D9 8B jmp _dmald3353 F88ABC3354 F88ABC 80 7E bra readsct233553356 ; load PBR in memory3357 ; in: drive3358 F88ABE getpbr:3359 F88ABE A5 94 lda drive3360 F88AC0 0A asl a3361 F88AC1 0A asl a3362 F88AC2 AA tax ; index to access atambr var3363 F88AC3 ACC16 ; set pointer for MBR3364 F88AC3 C2 20 rep #PMFLAG3365 .LONGA on3366 .MNLIST3367 F88AC5 A9 00 8C lda #PBR0ATA3368 F88AC8 A4 94 ldy drive3369 F88ACA F0 03 beq ?023370 F88ACC A9 00 8E lda #PBR1ATA3371 F88ACF 85 A3 ?02: sta memp3372 F88AD1 85 A0 sta bufp3373 F88AD3 B5 22 lda atambr,x3374 F88AD5 85 95 sta lba ; read pbr sector3375 F88AD7 ACC083376 F88AD7 E2 20 sep #PMFLAG3377 .LONGA off3378 .MNLIST3379 F88AD9 A9 01 lda #^MBR0ATA3380 F88ADB 85 A5 sta memp+23381 F88ADD 85 A2 sta bufp+2Tue Jul 17 11:00:15 2018 Page 153382 F88ADF B5 24 lda atambr+2,x3383 F88AE1 85 97 sta lba+23384 F88AE3 64 9C stz ataop ; just read3385 F88AE5 64 9D stz memfg ; no x-mem3386 F88AE7 A9 01 lda #13387 F88AE9 85 98 sta secnum ; read just one block3388 F88AEB3389 F88AEB 4C D9 8B jmp _dmald33903391 F88AEE 80 4C bra readsct233923393 ; get identification device data3394 ; in: drive3395 F88AF0 getid:3396 F88AF0 ACC16 ; set pointer for identification data3397 F88AF0 C2 20 rep #PMFLAG3398 .LONGA on3399 .MNLIST3400 F88AF2 A9 00 90 lda #ID0ATA3401 F88AF5 A6 94 ldx drive3402 F88AF7 F0 03 beq ?023403 F88AF9 A9 00 92 lda #ID1ATA3404 F88AFC 85 A3 ?02: sta memp3405 F88AFE 85 A0 sta bufp3406 F88B00 ACC083407 F88B00 E2 20 sep #PMFLAG3408 .LONGA off3409 .MNLIST3410 F88B02 A9 01 lda #^ID0ATA3411 F88B04 85 A5 sta memp+23412 F88B06 85 A2 sta bufp+23413 F88B08 64 9B stz cmdfg ; no load command block registers3414 F88B0A 64 9C stz ataop ; just read3415 F88B0C 64 9D stz memfg ; no x-mem3416 F88B0E A9 01 lda #13417 F88B10 85 98 sta secnum ; read just one block3418 F88B12 A0 EC ldy #IDENTDEV ; identify device command3419 F88B14 80 2E bra piord ; pio mode read3420 F88B163421 ; compare buffer with ata device after writing3422 F88B16 cmpsct:3423 F88B16 A5 A3 lda memp ; restore buffer3424 F88B18 85 A0 sta bufp3425 F88B1A A5 A4 lda memp+13426 F88B1C 85 A1 sta bufp+13427 F88B1E A5 A5 lda memp+23428 F88B20 85 A2 sta bufp+23429 F88B22 24 9D bit memfg ; using x-mem?3430 F88B24 10 16 bpl readsct2 ; no3431 F88B26 A9 40 lda #$403432 F88B28 14 9D trb memfg ; no restore x-mem setting when finish3433 F88B2A A5 A8 lda xbnk3434 F88B2C 8D 28 FD sta !PIA0+PIAPRA ; set bank3435 F88B2F 80 0B bra readsct234363437 ; read/compare N (0..256) sector(s) on ata device3438 ; in: drive=0 or 1 (ata #0 or ata #1 device)Tue Jul 17 11:00:15 2018 Page 163439 ; lba[0..2]=24 bits starting sector address3440 ; secnum=sector(s) count (if 0 -> 256 sect.)3441 ; memp=long pointer to input buffer3442 ; memfg<7>=flag buffer x-mem3443 ; memfg<6>=restore x-mem setting on exit3444 ; xbuf=x-mem buffer # if using x-mem ($0B40..$0FFF)3445 ; ataop<6>=flag compare data3446 ; Out: CF=0 if no error3447 ; CF=1 if error, A=error code, Y=error reg.3448 ; use: all3449 F88B31 readsct:3450 F88B31 24 9D bit memfg ; using x-mem?3451 F88B33 10 04 bpl ?02 ; no3452 F88B35 A9 40 lda #$403453 F88B37 04 9D tsb memfg ; restore x-mem setting when finish3454 F88B39 20 E8 8D ?02: jsr setbuf ; set buffer pointer34553456 ; entry point for compare after writing3457 F88B3C readsct2:3458 F88B3C A9 80 lda #$803459 F88B3E 85 9B sta cmdfg ; load command block registers3460 F88B40 85 9F sta match ; good compare3461 F88B42 A0 20 ldy #READSECTOR ; read sector(s) command34623463 ; entry point for identify device3464 F88B44 piord:3465 F88B44 20 78 8D jsr sndcmd ; return X=ata offset3466 F88B47 A5 9A lda ifrbit ; check interrupt3467 F88B49 2C CD FD ?w1: bit VIA3+VIAIFR ; test CA1/CB1 transition3468 F88B4C F0 FB beq ?w1 ; wait interrupt assertion from ata device3469 F88B4E 8D CD FD sta VIA3+VIAIFR ; clear interrupt flag3470 F88B51 BD A7 FD ?w2: lda !ATAST,x ; wait BUSY bit=03471 F88B54 30 FB bmi ?w23472 F88B56 89 08 bit #ATADRQ ; ready to read a data block?3473 F88B58 D0 2E bne ?rdb ; yes, read first data block3474 F88B5A 89 21 bit #ATADFB+ATAERRB3475 F88B5C D0 45 bne ?chk ; error -- stop3476 F88B5E 80 F1 bra ?w2 ; some CF need time to set DRQ3477 F88B60 20 8B 8C ?loop: jsr waitint ; wait interrupt assertion within timeout3478 F88B63 90 1A bcc ?w4 ; ok, read status reg.3479 F88B65 A9 40 lda #$40 ; no interrupt assertion3480 F88B67 04 9E tsb drdyf ; signal this error3481 F88B69 BD AE FD ?w3: lda !ATAALTST,x3482 F88B6C 89 08 bit #ATADRQ ; device expect more data block to transfer?3483 F88B6E F0 05 beq ?w30 ; no...continue... keep error condition3484 F88B70 BD A8 FD lda !ATADATA,x ; read wrong data and discard...3485 F88B73 80 F4 bra ?w3 ; ...until end of data block3486 F88B75 BD AE FD ?w30: lda !ATAALTST,x3487 F88B78 BD A7 FD lda !ATAST,x3488 F88B7B 10 19 bpl ?tst3489 F88B7D 00 00 brk3490 F88B7F BD A7 FD ?w4: lda !ATAST,x3491 F88B82 30 FB bmi ?w43492 F88B84 89 08 bit #ATADRQ ; device expect more data block to transfer?3493 F88B86 F0 0E beq ?tst ; no... check error condition3494 F88B88 20 B9 8C ?rdb: jsr rdblk ; read a block (256 words)3495 F88B8B C6 99 ?nxt: dec seccnt ; update left blocks count #Tue Jul 17 11:00:15 2018 Page 173496 F88B8D D0 D1 bne ?loop ; continue until all sectors was readden3497 F88B8F BD A7 FD ?idle: lda !ATAST,x ; read status reg.3498 F88B92 10 02 bpl ?tst3499 F88B94 00 00 brk3500 F88B96 24 9E ?tst: bit drdyf ; test interrupt timeout error3501 F88B98 50 09 bvc ?chk ; no, so test error condition3502 F88B9A 20 1F 8E jsr devres ; reset device because read error3503 F88B9D A9 05 lda #ATA_DEVRES ; data loss while reading3504 F88B9F A9 FF lda #$FF3505 F88BA1 80 29 bra ?err3506 F88BA3 89 20 ?chk: bit #ATADFB ; device fault bit ?3507 F88BA5 F0 04 beq ?chk1 ; no3508 F88BA7 A9 03 lda #ATA_FAULT ; yes3509 F88BA9 80 21 bra ?err ; error3510 F88BAB 89 01 ?chk1: bit #ATAERRB ; error bit ?3511 F88BAD F0 07 beq ?chk2 ; no... all seem good3512 F88BAF BC A1 FD ldy !ATAERROR,x ; read error register3513 F88BB2 A9 04 lda #ATA_EBIT ; error bits3514 F88BB4 80 16 bra ?err3515 F88BB6 A4 99 ?chk2: ldy seccnt3516 F88BB8 F0 07 beq ?chk33517 F88BBA 20 1F 8E jsr devres ; reset device because read error3518 F88BBD A9 02 lda #ATA_DLOSS ; data loss while reading3519 F88BBF 80 0B bra ?err3520 F88BC1 18 ?chk3: clc ; assume no error3521 F88BC2 24 9C bit ataop ; was compare data operation?3522 F88BC4 50 07 bvc ?done ; no, exit (no error)3523 F88BC6 A4 9F ldy match ; all match?3524 F88BC8 D0 03 bne ?done ; ok, good compare3525 F88BCA A9 06 lda #ATA_VERF ; compare error3526 F88BCC 38 ?err: sec ; error flag3527 F88BCD 24 9D ?done: bit memfg ; using x-mem?3528 F88BCF 10 07 bpl ?rts ; no3529 F88BD1 50 05 bvc ?rts ; no restore x-mem setting3530 F88BD3 A6 A9 ldx xsave3531 F88BD5 9D 0A FC sta !CRXME,x ; restore3532 F88BD8 60 ?rts: rts35333534 ; load DMA mbr/pbr3535 F88BD9 _dmald:3536 F88BD9 64 A6 stz xbuf3537 F88BDB 64 A7 stz xbuf+13538 F88BDD 64 AD stz ncnt+13539 F88BDF A9 FF lda #$FF3540 F88BE1 85 AC sta ncnt3541 F88BE3 20 10 8C jsr dmardwr3542 F88BE6 B0 27 bcs ?1003543 F88BE8 A9 08 lda #$08 ; PB3 VIA33544 F88BEA 1C C0 FD trb VIA3+VIAPRB ; enable 1Mb buffer3545 F88BED AD CF FD lda !VIA3+VIAPRANH3546 F88BF0 29 F8 and #$F83547 F88BF2 8D CF FD sta !VIA3+VIAPRANH ; set bank35483549 F88BF5 A0 00 ldy #03550 F88BF7 64 A0 stz bufp3551 F88BF9 64 A1 stz bufp+13552 F88BFB A9 02 lda #2Tue Jul 17 11:00:15 2018 Page 183553 F88BFD 85 A2 sta bufp+23554 F88BFF INDEX163555 F88BFF C2 10 rep #PXFLAG3556 .LONGI on3557 .MNLIST3558 F88C01 A2 00 02 ldx #$2003559 F88C04 B7 A0 ?10: lda [bufp],y3560 F88C06 97 A3 sta [memp],y3561 F88C08 C8 iny3562 F88C09 CA dex3563 F88C0A D0 F8 bne ?103564 F88C0C INDEX083565 F88C0C E2 10 sep #PXFLAG3566 .LONGI off3567 .MNLIST3568 F88C0E 18 clc3569 F88C0F 60 ?100: rts35703571 ; read/write N (0..256) sector(s) on ata device in dma mode3572 ; in: drive = 0 or 1 (ata #0 or ata #1 device)3573 ; ataop = ata operation flag: <7>=0->read, 1->write3574 ; lba[0..2] = 24 bits starting sector address3575 ; secnum = sector(s) count (if 0 -> 256 sect.)3576 ; xbuf = dma buffer #3577 ; ncnt = words count # - 13578 ; Out: CF=0 if no error3579 ; CF=1 if error, A=error code, Y=error reg.3580 ; use: all3581 F88C10 dmardwr:3582 F88C10 A9 80 lda #$803583 F88C12 85 9B sta cmdfg ; load command block registers3584 F88C14 A6 94 ldx drive3585 F88C16 BF 9E 91 F8 lda >DMAREQ,x3586 F88C1A 85 B1 sta wtmp+1 ; check dmareq line3587 F88C1C 20 FA 90 jsr dmaset ; dma setup3588 F88C1F A0 C8 ldy #READDMA ; read sector(s) command3589 F88C21 24 9C bit ataop3590 F88C23 10 02 bpl ?do3591 F88C25 A0 CA ldy #WRITEDMA ; write sector(s) command3592 F88C27 20 78 8D ?do: jsr sndcmd ; return X=ata offset3593 F88C2A 64 99 stz seccnt3594 F88C2C EA nop3595 F88C2D EA nop3596 F88C2E EA nop3597 F88C2F EA nop3598 F88C30 BF AE FD 00 lda >ATAALTST,x3599 F88C34 BF A7 FD 00 ?w0: lda >ATAST,x ; wait3600 F88C38 29 88 and #ATABSY+ATADRQ3601 F88C3A F0 25 beq ?chk ; end - check error3602 F88C3C3603 ;lda !VIA3+VIAPRANH3604 ;and wtmp+1 ; dma request?3605 ;beq ?w0 ; no3606 F88C3C AF 88 FD 00 lda >DMA0SR3607 F88C40 25 B7 and dmareq3608 F88C42 F0 F0 beq ?w03609Tue Jul 17 11:00:15 2018 Page 193610 F88C44 A9 02 lda #$02 ; enable dma3611 F88C46 1C 0F FD trb VIA0+VIAPRANH36123613 ;nop3614 ;nop3615 ;nop3616 ;nop3617 ;lda ifrbit ; check interrupt3618 ;?w1: bit VIA3+VIAIFR ; test CA1/CB1 transition3619 ; beq ?w1 ; wait interrupt assertion from ata device3620 ; sta !VIA3+VIAIFR ; clear interrupt flag36213622 F88C49 20 8B 8C jsr waitint3623 F88C4C A9 02 lda #$02 ; disable dma3624 F88C4E 0C 0F FD tsb VIA0+VIAPRANH3625 F88C51 90 0A bcc ?tst ; seem good: error test3626 F88C533627 ; no interrupt whitin timeout3628 F88C53 AF 88 FD 00 lda >DMA0SR ; clear status flag3629 F88C57 8F 8D FD 00 sta >DMA0WMCLR ; reset dma controller3630 F88C5B 80 23 bra ?res ; data loss3631 F88C5D3632 F88C5D BF A7 FD 00 ?tst: lda >ATAST,x ; clear interrupt3633 F88C61 89 20 ?chk: bit #ATADFB ; device fault bit ?3634 F88C63 F0 04 beq ?chk1 ; no3635 F88C65 A9 03 lda #ATA_FAULT ; yes3636 F88C67 80 20 bra ?err ; error3637 F88C69 89 01 ?chk1: bit #ATAERRB ; error bit ?3638 F88C6B F0 07 beq ?chk2 ; no... all seem good3639 F88C6D BC A1 FD ldy !ATAERROR,x ; read error register3640 F88C70 A9 04 lda #ATA_EBIT ; error bits3641 F88C72 80 15 bra ?err3642 F88C74 ?chk2:3643 ; check TC on dma status3644 F88C74 A5 B0 lda wtmp3645 F88C76 A6 94 ldx drive3646 F88C78 3F 9A 91 F8 and >DMACHNL,x3647 F88C7C F0 05 beq ?loss ; data loss: no TC3648 F88C7E3649 ;ldy seccnt3650 ;beq ?chk33651 F88C7E D0 07 bne ?chk336523653 F88C80 20 1F 8E ?res: jsr devres ; reset device because read error3654 F88C83 A9 02 ?loss: lda #ATA_DLOSS ; data loss while reading3655 F88C85 80 02 bra ?err3656 F88C87 18 ?chk3: clc ; assume no error3657 F88C88 60 rts3658 F88C89 38 ?err: sec ; error flag3659 F88C8A 60 rts36603661 F88C8B waitint:3662 F88C8B A9 20 lda #$20 ; set T2 count PB6 pulse (1ms)3663 F88C8D 0C 0B FD tsb VIA0+VIAACR3664 F88C90 A9 D0 lda #<INTTMO ; interrupt timeout3665 F88C92 8D 08 FD sta !VIA0+VIAT2CL3666 F88C95 A9 07 lda #>INTTMOTue Jul 17 11:00:15 2018 Page 203667 F88C97 8D 09 FD sta !VIA0+VIAT2CH3668 F88C9A 78 sei3669 F88C9B A5 9A ?10: lda ifrbit ; flag bit for test CA1/CB13670 F88C9D 2C CD FD bit VIA3+VIAIFR3671 F88CA0 D0 11 bne ?20 ; interrupt assertion (exit with CF=0)3672 F88CA2 A9 20 lda #T2IFRB3673 F88CA4 2C 0D FD bit VIA0+VIAIFR3674 F88CA7 F0 F2 beq ?10 ; wait for INTTMO ms3675 F88CA9 A5 9A lda ifrbit ; flag bit for test CA1/CB13676 F88CAB 2C CD FD bit VIA3+VIAIFR3677 F88CAE D0 03 bne ?20 ; interrupt assertion3678 F88CB0 58 cli3679 F88CB1 38 sec ; timeout3680 F88CB2 60 rts3681 F88CB3 8D CD FD ?20: sta VIA3+VIAIFR ; clear interrupt flag3682 F88CB6 58 cli3683 F88CB7 18 clc3684 F88CB8 60 rts36853686 ;---------------------------------------------------------------------------3687 ; low level routines3688 ;---------------------------------------------------------------------------36893690 .LONGA off3691 .LONGI off36923693 ; read/compare data block (512 bytes) from ata device3694 ; in: X=offset ata address3695 ; ataop<6>=1 if compare, else read3696 ; match=not null3697 ; bufp=long pointer to input buffer3698 ; drdyf<7>=1 if need test DRDY bit in alternate status3699 ; memfg<7>=flag buffer in x-mem3700 ;out: bufp updated3701 ; match=0 if not match3702 ; use: A,Y3703 F88CB9 rdblk:3704 F88CB9 08 php ; save I flag3705 F88CBA 78 sei ; disable interrupt3706 F88CBB A0 00 ldy #0 ; buffer index3707 F88CBD INDEX16 ; X,Y 16 bit - XH,YH cleared3708 F88CBD C2 10 rep #PXFLAG3709 .LONGI on3710 .MNLIST3711 F88CBF 24 9C bit ataop ; test bit 6: compare?3712 F88CC1 70 16 bvs ?12 ; yes3713 F88CC33714 F88CC3 ACC163715 F88CC3 C2 20 rep #PMFLAG3716 .LONGA on3717 .MNLIST3718 F88CC5 BF A8 FD 00 ?02: lda >ATADATA,x ; latch data3719 F88CC9 BD AA FD lda !ATAPORT,x ; read latched data3720 F88CCC 97 A0 sta [bufp],y3721 F88CCE C8 iny3722 F88CCF C8 iny3723 ;bit drdyf ; test DRDY bit in alternate status?Tue Jul 17 11:00:15 2018 Page 213724 ;bpl ?06 ; no3725 ?04: ;bit !ATAALTST-1,x ; wait DRDY bit high3726 ;bvc ?043727 F88CD0 C0 00 02 ?06: cpy #$02003728 F88CD3 90 F0 bcc ?02 ; loop 512 bytes3729 F88CD5 ACC083730 F88CD5 E2 20 sep #PMFLAG3731 .LONGA off3732 .MNLIST3733 F88CD7 80 4B bra updp ; update bufp pointer37343735 ; compare data block3736 F88CD9 ?12: ACC163737 F88CD9 C2 20 rep #PMFLAG3738 .LONGA on3739 .MNLIST3740 F88CDB BF A8 FD 00 lda >ATADATA,x ; read data low, latch data high3741 F88CDF BD AA FD lda !ATAPORT,x ; read latched data3742 F88CE2 D7 A0 cmp [bufp],y3743 F88CE4 ACC083744 F88CE4 E2 20 sep #PMFLAG3745 .LONGA off3746 .MNLIST3747 F88CE6 F0 02 beq ?143748 F88CE8 64 9F stz match ; no match3749 F88CEA C8 ?14: iny3750 F88CEB C8 iny3751 ;bit drdyf ; test DRDY bit in alternate status?3752 ;bpl ?18 ; no3753 ?16: ;bit !ATAALTST,x ; wait DRDY bit high3754 ;bvc ?163755 F88CEC C0 00 02 ?18: cpy #$02003756 F88CEF 90 E8 bcc ?12 ; loop 512 bytes3757 F88CF1 80 31 bra updp ; update bufp pointer37583759 ; write data block (512 bytes) on ata device3760 ; In: X=offset ata address3761 ; bufp=long pointer to output buffer3762 ; drdyf<7>=flag test DRDY bit in alternate status3763 ; memfg<7>=flag buffer in x-mem3764 ; out: bufp updated3765 ; use: A,Y3766 F88CF3 wrblk:3767 .LONGA off3768 .LONGI off37693770 F88CF3 08 php ; save I flag3771 F88CF4 78 sei ; disable interrupt3772 F88CF5 A0 00 ldy #0 ; buffer index3773 F88CF73774 F88CF7 INDEX16 ; X,Y 16 bit - XH,YH cleared3775 F88CF7 C2 10 rep #PXFLAG3776 .LONGI on3777 .MNLIST37783779 ;lda #$20 ; /MW0 high3780 ;trb VIA1+VIAPRBTue Jul 17 11:00:15 2018 Page 2237813782 F88CF9 ACC163783 F88CF9 C2 20 rep #PMFLAG3784 .LONGA on3785 .MNLIST3786 ?02: ;ACC163787 F88CFB B7 A0 lda [bufp],y ; read data3788 F88CFD 9F AA FD 00 sta >ATAPORT,x ; latch data3789 ;ACC083790 F88D013791 F88D01 A9 00 00 lda #0 ; /MW0 low3792 F88D04 0C 00 00 tsb !03793 F88D07 A9 00 00 lda #0 ; /MW0 low3794 F88D0A 0C 00 00 tsb !03795 F88D0D A9 00 00 lda #0 ; /MW0 low3796 F88D10 0C 00 00 tsb !037973798 F88D13 9F A8 FD 00 sta >ATADATA,x ; send data low + latched data high3799 F88D17 C8 iny3800 F88D18 C8 iny3801 ;lda #$20 ; /MW0 high3802 ;bit $ff3803 ;bpl ?043804 ;tsb VIA1+VIAPRB3805 F88D193806 ;bit drdyf ; test DRDY bit in alternate status?3807 ;bpl ?06 ; no3808 ?04: ;lda >ATAALTST-1,x3809 ;bit !ATAALTST,x3810 F88D19 BF AE FD 00 lda >ATAALTST,x3811 ;bmi ?043812 ;bvc ?043813 ;asl a3814 ;bpl ?04 ; wait DRDY bit high38153816 F88D1D C0 00 02 ?06: cpy #$02003817 F88D20 90 D9 bcc ?02 ; loop 512 bytes3818 F88D22 ACC083819 F88D22 E2 20 sep #PMFLAG3820 .LONGA off3821 .MNLIST3822 ;lda #$20 ; /MW0 high3823 ;tsb VIA1+VIAPRB3824 F88D243825 ; update bufp pointer after read/write data block3826 F88D24 updp:3827 .LONGI on38283829 F88D24 A4 A1 ldy bufp+1 ; update bufp3830 F88D26 C8 iny3831 F88D27 C8 iny3832 F88D28 84 A1 sty bufp+13833 F88D2A 24 9D bit memfg ; buffer in x-mem?3834 F88D2C 10 0F bpl ?10 ; no, all done3835 F88D2E A4 A0 ldy bufp3836 F88D30 C0 00 40 cpy #XMSTOP ; still in x-mem window?3837 F88D33 90 08 bcc ?10 ; yes, all doneTue Jul 17 11:00:15 2018 Page 233838 F88D35 A0 00 20 ldy #XMSTART ; restart at x-mem beginning window...3839 F88D38 84 A0 sty bufp3840 F88D3A EE 28 FD inc !PIA0+PIAPRA ; ...and at next x-mem bank3841 F88D3D ?10: CPU083842 F88D3D E2 30 sep #(PMFLAG.OR.PXFLAG)3843 .LONGA off3844 .LONGI off3845 .MNLIST3846 F88D3F 28 plp ; restore I flag3847 F88D40 60 rts38483849 ; enable 8bit transfer3850 F88D41 set8:3851 F88D41 A9 01 lda #$013852 F88D43 80 02 bra setmode38533854 F88D45 set16:3855 F88D45 A9 81 lda #$8138563857 F88D47 setmode:3858 F88D47 48 pha3859 F88D48 A6 94 ldx drive ; ata device #3860 F88D4A BF A0 91 F8 lda >IFRTST,x3861 F88D4E 85 9A sta ifrbit ; save right IFR bit to test3862 F88D50 8A txa3863 F88D51 F0 02 beq ?02 ; offset of ata 03864 F88D53 A2 10 ldx #ATAOFS ; offset of ata 13865 F88D55 9E AE FD ?02: stz !ATACTRL,x ; enable ata device to assert interrupt3866 F88D58 68 pla3867 F88D59 9D A1 FD sta !ATAFEAT,x3868 F88D5C A5 9A lda ifrbit3869 F88D5E 8D CD FD sta !VIA3+VIAIFR ; clear CA1/CB1 flag in IFR3870 F88D61 A9 EF lda #$EF ; command3871 F88D63 9D A7 FD sta !ATACMD,x ; store command3872 F88D66 A5 9A lda ifrbit3873 F88D68 78 sei3874 F88D69 2C CD FD ?10: bit !VIA3+VIAIFR3875 F88D6C F0 FB beq ?103876 F88D6E 58 cli3877 F88D6F BD A7 FD lda !ATAST,x3878 F88D72 BD A1 FD lda !ATAERROR,x3879 F88D75 85 FF sta $ff3880 F88D77 60 rts38813882 ; send a command to ata device3883 ; after sending a command will wait for interrupt3884 ; in: Y=command3885 ; drive=0 or 1 (ata #0 or ata #1 device)3886 ; cmdfg<7>=flag load command block registers3887 ; lba[0..2]=24 bits starting lba (if need)3888 ; secnum=sector(s) count (if need)3889 ; out: X=offset ata address3890 ; irfbit=bit for test CA1/CB1 on VIA 1 (int. line for ata0/1)3891 ; seccnt=sector(s) count while read/write block3892 ; use: A,X,Y3893 F88D78 sndcmd:3894 F88D78 A5 98 lda secnumTue Jul 17 11:00:15 2018 Page 243895 F88D7A 85 99 sta seccnt ; save sector(s) count #3896 F88D7C A6 94 ldx drive ; ata device #3897 F88D7E BF A0 91 F8 lda >IFRTST,x3898 F88D82 85 9A sta ifrbit ; save right IFR bit to test3899 F88D84 64 9E stz drdyf3900 F88D86 34 0E bit atadev,x ; set drdy flag for C.F.3901 F88D88 50 04 bvc ?013902 F88D8A A9 80 lda #$803903 F88D8C 85 9E sta drdyf3904 F88D8E 8A ?01: txa3905 F88D8F F0 02 beq ?01a ; offset of ata 03906 F88D91 A2 10 ldx #ATAOFS ; offset of ata 13907 F88D93 ?01a:3908 F88D93 A9 40 lda #$403909 F88D95 9F A6 FD 00 sta >ATADEV,x39103911 ;stz !ATADEV,x3912 F88D99 EA nop3913 F88D9A 3C AE FD ?01c: bit !ATAALTST,x : wait device ready3914 F88D9D 30 FB bmi ?01c3915 F88D9F 50 F9 bvc ?01c3916 F88DA13917 F88DA1 A9 00 lda #03918 F88DA3 9F AE FD 00 sta >ATACTRL,x ; enable ata device to assert interrupt3919 F88DA73920 ;stz !ATACTRL,x ; enable ata device to assert interrupt3921 F88DA7 EA nop3922 F88DA8 24 9B bit cmdfg3923 F88DAA 10 2B bpl ?153924 F88DAC3925 ;lda #0 ; dev. reg. for command that not need params3926 ;sta !ATADEV,x3927 ;bit cmdfg3928 ;bpl ?02a3929 F88DAC A9 40 ?02: lda #$40 ; device 0 & lba is limited to 24 bits3930 F88DAE 9F A6 FD 00 sta >ATADEV,x ; store dev. register3931 ;nop3932 ;nop3933 ;nop3934 ;nop3935 F88DB2 3C AE FD ?02a: bit !ATAALTST,x : wait device ready3936 F88DB5 30 FB bmi ?02a3937 F88DB7 50 F9 bvc ?02a3938 ;stz !ATACTRL,x ; enable ata device to assert interrupt3939 ;nop3940 ;nop3941 ;lda #0 ; dev. reg. for command that not need params3942 ;bit cmdfg3943 ;bpl ?043944 ;lda #$E0 ; device 0 & lba is limited to 24 bits3945 ;lda #$403946 ?04: ;sta >ATADEV,x ; store dev. register3947 ?06: ;sta >ATADEV,x3948 ;bit !ATAALTST,x ; wait device ready3949 ;bmi ?063950 ;bvc ?063951 ;bit cmdfg ; will load command block register's?Tue Jul 17 11:00:15 2018 Page 253952 ;bpl ?16 ; no3953 F88DB9 A5 99 lda seccnt ; store sectors count3954 F88DBB 9F A2 FD 00 sta >ATASCTCNT,x3955 ?08: ;bit !ATAALTST,x ; wait device ready3956 ;bmi ?083957 ;bvc ?083958 F88DBF A5 95 lda lba ; store starting sector3959 F88DC1 9F A3 FD 00 sta >ATALBAL,x3960 ?10: ;bit !ATAALTST,x ; wait device ready3961 ;bmi ?103962 ;bvc ?103963 F88DC5 A5 96 lda lba+13964 F88DC7 9F A4 FD 00 sta >ATALBAM,x3965 ?12: ;bit !ATAALTST,x ; wait device ready3966 ;bmi ?123967 ;bvc ?123968 F88DCB A5 97 lda lba+23969 F88DCD 9F A5 FD 00 sta >ATALBAH,x3970 ?14: ;bit !ATAALTST,x ; wait device ready3971 ;bmi ?143972 ;bvc ?143973 F88DD1 A9 40 lda #$403974 F88DD3 9F A6 FD 00 sta >ATADEV,x ; store dev. register3975 F88DD7 3C AE FD ?15: bit !ATAALTST,x ; wait device ready3976 F88DDA 30 FB bmi ?153977 F88DDC 50 F9 bvc ?1539783979 F88DDE A5 9A ?16: lda ifrbit3980 F88DE0 8D CD FD sta !VIA3+VIAIFR ; clear CA1/CB1 flag in IFR3981 F88DE3 98 tya ; command3982 F88DE4 9D A7 FD sta !ATACMD,x ; store command3983 F88DE7 60 rts39843985 ; set buffer pointer3986 ; use: A,B,X3987 F88DE8 setbuf:3988 F88DE8 A6 A5 ldx memp+23989 F88DEA 24 9D bit memfg ; using x-mem?3990 F88DEC ACC163991 F88DEC C2 20 rep #PMFLAG3992 .LONGA on3993 .MNLIST3994 F88DEE 10 26 bpl ?10 ; no, just set bufp=memp3995 F88DF0 A5 A6 lda xbuf ; x-mem buffer #3996 F88DF2 0A asl a ; x16 -> B=x-mem bank3997 F88DF3 0A asl a3998 F88DF4 0A asl a3999 F88DF5 0A asl a4000 F88DF6 EB xba ; 00xx,10xx,20xx,...,E0xx,F0xx4001 F88DF7 AA tax ; X=x-mem bank4002 F88DF8 86 A8 stx xbnk ; save starting bank4003 F88DFA 8E 28 FD stx PIA0+PIAPRA ; set bank4004 F88DFD 29 00 F0 and #$F000 ; mask off4005 F88E00 4A lsr a ; 00xx,02xx,04xx,...,1Cxx,1Exx4006 F88E01 4A lsr a4007 F88E02 4A lsr a ; 0000,0200,0400,...,1C00,1E004008 F88E03 09 00 20 ora #XMSTART ; point to starting bufferTue Jul 17 11:00:15 2018 Page 264009 F88E06 85 A3 sta memp4010 F88E08 AE 0A FC ldx CRXME ; save x-mem setting4011 F88E0B 86 A9 stx xsave4012 F88E0D 8E 0B FC stx CRXMEON ; enable x-mem in window $012000 - $013FFF4013 F88E10 A2 01 ldx #XMBANK4014 F88E12 86 A5 stx memp+24015 F88E14 80 02 bra ?204016 F88E16 A5 A3 ?10: lda memp ; set bufp=memp4017 F88E18 85 A0 ?20: sta bufp4018 F88E1A 86 A2 stx bufp+24019 F88E1C ACC084020 F88E1C E2 20 sep #PMFLAG4021 .LONGA off4022 .MNLIST4023 F88E1E 60 rts40244025 ; software reset on ata device4026 ; in: X=offset ata address4027 F88E1F devres:4028 F88E1F A9 04 lda #CTRLSRST ; software reset control4029 F88E21 9D AE FD sta !ATACTRL,x4030 F88E24 20 55 8E jsr ?40 ; delay 16uS (need at least 5uS)4031 F88E27 9E AE FD stz ATACTRL,x ; stop software reset4032 F88E2A 20 3B 8E jsr ?20 ; wait for 2.5ms4033 F88E2D 20 5E 8E jsr wbusy ; wait busy low4034 F88E30 30 05 bmi ?04 ; device not ready4035 F88E32 0A asl a ; N=DRDY status bit4036 F88E33 10 02 bpl ?04 ; device not ready4037 F88E35 18 clc4038 F88E36 60 rts4039 F88E37 A9 01 ?04: lda #ATA_NOTREADY4040 F88E39 38 sec ; error4041 F88E3A 60 rts40424043 F88E3B A9 20 ?20: lda #$20 ; timer 2.5mS4044 F88E3D 1C 0B FD trb VIA0+VIAACR4045 F88E40 A9 0F lda #<T2MS54046 F88E42 8D 08 FD sta VIA0+VIAT2CL4047 F88E45 A9 27 lda #>T2MS54048 F88E47 8D 09 FD sta VIA0+VIAT2CH4049 F88E4A ?22: TASKSW4050 F88E4A 02 00 cop FN_TASKSW4051 F88E4C 00 .DB $004052 .MNLIST4053 F88E4D A9 20 lda #T2IFRB4054 F88E4F 2C 0D FD bit VIA0+VIAIFR4055 F88E52 F0 F6 beq ?224056 F88E54 60 rts40574058 F88E55 A9 09 ?40: lda #9 ; 16uS delay4059 F88E57 3A ?42: dec a4060 F88E58 D0 FD bne ?424061 F88E5A EA nop4062 F88E5B EA nop4063 F88E5C EA nop4064 F88E5D 60 rts4065Tue Jul 17 11:00:15 2018 Page 274066 ; wait for status bit busy low within BUSYTMO timeout4067 ; in: X=ata # offset4068 ; NF=0 if status bit busy low4069 ; NF=1 if status bit busy high or if timeout4070 ; use: A4071 F88E5E wbusy:4072 F88E5E A9 20 lda #$20 ; set T2 count PB6 pulse (1ms)4073 F88E60 0C 0B FD tsb VIA0+VIAACR4074 F88E63 A9 D0 lda #<BUSYTMO ; timeout status bit busy4075 F88E65 8D 08 FD sta !VIA0+VIAT2CL4076 F88E68 A9 07 lda #>BUSYTMO4077 F88E6A 8D 09 FD sta !VIA0+VIAT2CH4078 F88E6D BD A7 FD ?10: lda !ATAST,x ; read status4079 F88E70 10 0D bpl ?20 ; OK - busy -> L, return NF = 04080 F88E72 TASKSW ; switch task while wait4081 F88E72 02 00 cop FN_TASKSW4082 F88E74 00 .DB $004083 .MNLIST4084 F88E75 A9 20 lda #T2IFRB4085 F88E77 2C 0D FD bit VIA0+VIAIFR ; test timeout4086 F88E7A F0 F1 beq ?10 ; loop4087 F88E7C BD A7 FD lda !ATAST,x ; read status - return NF = busy bit4088 F88E7F 60 ?20: rts40894090 ; get device identification data4091 ; in: drive4092 ; out: CF=1 if error, A=error code4093 F88E80 ident:4094 F88E80 A6 94 ldx drive4095 F88E82 B5 0E lda atadev,x4096 F88E84 29 DF and #11011111B4097 F88E86 95 0E sta atadev,x4098 F88E88 29 9F and #10011111B4099 F88E8A 85 B6 sta tmpy ; hard disk flag4100 F88E8C 8A txa4101 F88E8D 0A asl a4102 F88E8E 0A asl a4103 F88E8F AA tax4104 F88E90 86 B0 stx wtmp ; index for atasec var. access4105 F88E92 ACC164106 F88E92 C2 20 rep #PMFLAG4107 .LONGA on4108 .MNLIST4109 F88E94 74 12 stz atasec,x ; clear atasec var.4110 F88E96 74 14 stz atasec+2,x4111 F88E98 ACC084112 F88E98 E2 20 sep #PMFLAG4113 .LONGA off4114 .MNLIST4115 F88E9A 20 F0 8A jsr getid4116 F88E9D B0 6E bcs ?10 ; error4117 F88E9F A0 00 ldy #04118 F88EA1 98 tya4119 F88EA2 INDEX164120 F88EA2 C2 10 rep #PXFLAG4121 .LONGI on4122 .MNLISTTue Jul 17 11:00:15 2018 Page 284123 F88EA4 18 ?02: clc ; loop checksum computation4124 F88EA5 77 A3 adc [memp],y4125 F88EA7 C8 iny4126 F88EA8 C0 00 02 cpy #$2004127 F88EAB 90 F7 bcc ?024128 F88EAD EB xba ; B = checksum4129 F88EAE 88 dey4130 F88EAF 88 dey4131 F88EB0 B7 A3 lda [memp],y4132 F88EB2 C9 A5 cmp #$A5 ; valid signature checksum?4133 F88EB4 INDEX084134 F88EB4 E2 10 sep #PXFLAG4135 .LONGI off4136 .MNLIST4137 F88EB6 D0 03 bne ?04 ; no -- assume data ok4138 F88EB8 EB xba ; checksum vill be zero4139 F88EB9 D0 53 bne ?15 ; wrong checksum4140 F88EBB A0 14 ?04: ldy #10*2 ; offset 'serial number' string4141 F88EBD A2 0A ldx #10 ; words length4142 F88EBF 20 12 8F jsr ?50 ; adjust string4143 F88EC2 A0 2E ldy #23*2 ; offset 'firmware revision' string4144 F88EC4 A2 04 ldx #4 ; words length4145 F88EC6 20 12 8F jsr ?50 ; adjust string4146 F88EC9 A0 36 ldy #27*2 ; offset 'model name' string4147 F88ECB A2 14 ldx #20 ; words length4148 F88ECD 20 12 8F jsr ?50 ; adjust string4149 F88ED0 A2 14 ldx #10*2 ; pointer to 'serial number' string4150 F88ED2 A0 27 ldy #(10*2)+(10*2)-1 ; pointer to end of string4151 F88ED4 20 21 8F jsr ?60 ; terminate string4152 F88ED7 A2 36 ldx #27*2 ; pointer to 'model name' string4153 F88ED9 A0 5D ldy #(27*2)+(20*2)-1 ; pointer to end of string4154 F88EDB 20 21 8F jsr ?60 ; terminate string4155 F88EDE A0 78 ldy #60*2 ; word 60/61: total sector's count #4156 F88EE0 A6 B0 ldx wtmp4157 F88EE2 ACC164158 F88EE2 C2 20 rep #PMFLAG4159 .LONGA on4160 .MNLIST4161 F88EE4 B7 A3 lda [memp],y4162 F88EE6 85 AA sta nlba4163 F88EE8 95 12 sta atasec,x ; store max. user sectors4164 F88EEA C8 iny4165 F88EEB C8 iny4166 F88EEC B7 A3 lda [memp],y4167 F88EEE 85 AC sta nlba+24168 F88EF0 95 14 sta atasec+2,x4169 F88EF2 A7 A3 lda [memp] ; C.F. identification4170 F88EF4 A6 94 ldx drive4171 F88EF6 A4 B6 ldy tmpy ; hard disk flag4172 F88EF8 C9 8A 84 cmp #$848A ; classic word 0 for C.F.4173 F88EFB F0 07 beq ?06 ; is C.F.4174 F88EFD C9 4A 04 cmp #$044A ; alternate word 0 for CF4175 F88F00 F0 02 beq ?06 ; is C.F.4176 F88F02 94 0E sty atadev,x ; is H.D.4177 F88F04 ?06: ACC084178 F88F04 E2 20 sep #PMFLAG4179 .LONGA offTue Jul 17 11:00:15 2018 Page 294180 .MNLIST4181 F88F06 B5 0E lda atadev,x4182 F88F08 09 20 ora #$20 ; flag identify ok4183 F88F0A 95 0E sta atadev,x4184 F88F0C 18 clc ; no error4185 F88F0D 60 ?10: rts4186 F88F0E A9 07 ?15: lda #ATA_IDCKS ; checksum error4187 F88F10 38 sec4188 F88F11 60 rts41894190 ; swap low byte with high byte in string4191 ; Y = string offset4192 ; X = words string length4193 F88F12 ?50: ACC164194 F88F12 C2 20 rep #PMFLAG4195 .LONGA on4196 .MNLIST4197 F88F14 B7 A3 ?52: lda [memp],y4198 F88F16 EB xba4199 F88F17 97 A3 sta [memp],y4200 F88F19 C8 iny4201 F88F1A C8 iny4202 F88F1B CA dex4203 F88F1C D0 F6 bne ?524204 F88F1E ACC084205 F88F1E E2 20 sep #PMFLAG4206 .LONGA off4207 .MNLIST4208 F88F20 60 rts42094210 ; terminate serial string and model string with null4211 ; Y=end of string4212 ; X=start of string4213 F88F21 86 AE ?60: stx tmp4214 F88F23 B7 A3 ?62: lda [memp],y4215 F88F25 C9 20 cmp #' '4216 F88F27 D0 05 bne ?644217 F88F29 88 dey4218 F88F2A C4 AE cpy tmp4219 F88F2C B0 F5 bcs ?624220 F88F2E C8 ?64: iny4221 F88F2F A9 00 lda #04222 F88F31 97 A3 sta [memp],y4223 F88F33 60 rts42244225 ;--------------------------------------------------------------------------4226 ; init routines4227 ;---------------------------------------------------------------------------42284229 .LONGA off4230 .LONGI off42314232 ; check & init ata devices4233 F88F34 initata:4234 .PUBLIC initata42354236 F88F34 ACC16Tue Jul 17 11:00:15 2018 Page 304237 F88F34 C2 20 rep #PMFLAG4238 .LONGA on4239 .MNLIST4240 F88F36 A9 00 88 lda #!MBR0ATA ; clear ident, MBR & PBR data mem4241 F88F39 85 A0 sta bufp4242 F88F3B A2 01 ldx #^MBR0ATA4243 F88F3D 86 A2 stx bufp+24244 F88F3F A0 00 ldy #04245 F88F41 INDEX164246 F88F41 C2 10 rep #PXFLAG4247 .LONGI on4248 .MNLIST4249 F88F43 98 tya ; clear A4250 F88F44 97 A0 ?02: sta [bufp],y4251 F88F46 C8 iny4252 F88F47 C8 iny4253 F88F48 C0 00 0C cpy #$0C004254 F88F4B 90 F7 bcc ?024255 F88F4D CPU084256 F88F4D E2 30 sep #(PMFLAG.OR.PXFLAG)4257 .LONGA off4258 .LONGI off4259 .MNLIST4260 F88F4F AA tax ; device #04261 F88F50 20 5F 8F jsr ?044262 F88F53 TASKSW4263 F88F53 02 00 cop FN_TASKSW4264 F88F55 00 .DB $004265 .MNLIST4266 F88F56 A2 01 ldx #1 ; device #14267 F88F58 20 5F 8F jsr ?044268 F88F5B TASKSW4269 F88F5B 02 00 cop FN_TASKSW4270 F88F5D 00 .DB $004271 .MNLIST4272 F88F5E 60 rts42734274 ; check devices on bus ata4275 ; in: X=device ata #4276 F88F5F 86 94 ?04: stx drive4277 F88F61 74 0E stz atadev,x ; clear device flag4278 F88F63 8A txa4279 F88F64 F0 02 beq ?06 ; offset of ata #0=04280 F88F66 A2 10 ldx #ATAOFS4281 F88F68 86 AF ?06: stx ataofs4282 F88F6A 20 3C 90 jsr ?60 ; print start msg4283 F88F6D A6 AF ldx ataofs4284 F88F6F 20 5E 8E jsr wbusy ; wait for busy flag low4285 F88F72 30 1B bmi ?10 ; assume no device on ata #04286 F88F74 20 D3 8F jsr ?30 ; check device signature4287 F88F774288 F88F77 A9 00 lda #$004289 F88F79 9D A6 FD sta !ATADEV,x ; store dev. register42904291 F88F7C B0 1B bcs ?15 ; not found or not HD/CF4292 F88F7E4293 [01] .IFDEF MODE8Tue Jul 17 11:00:15 2018 Page 314294 jsr set84295 [00] .ENDIF4296 F88F7E4297 F88F7E 20 80 8E jsr ident ; identify device4298 F88F81 B0 44 bcs ?25 ; error (A=error code)4299 F88F83 24 55 bit BiosEnt4300 F88F85 50 03 bvc ?08 ; skip4301 F88F87 20 FD 8F jsr ?50 ; print identification data4302 F88F8A 20 1F 8E ?08: jsr devres4303 ;jsr chkmbr ; load&check MBR4304 F88F8D 18 clc ; no error4305 F88F8E 60 rts43064307 F88F8F 20 B3 8F ?10: jsr ?20 ; print 'device not found'4308 F88F92 SCNPRINT4309 F88F92 02 01 cop $014310 .MNLIST4311 F88F94 2E 0D 00 .DB '.', 13, 04312 F88F97 38 sec4313 F88F98 60 rts43144315 F88F99 20 B3 8F ?15: jsr ?20 ; print 'device not found'4316 F88F9C SCNPRINT4317 F88F9C 02 01 cop $014318 .MNLIST4319 F88F9E 20 6F 72 20 6E .DB ' or not H.D./C.F.', 13, 06F 74 20 48 2E44 2E 2F 43 2E46 2E 0D 004320 F88FB1 38 sec4321 F88FB2 60 rts43224323 F88FB3 ?20: SCNPRINT4324 F88FB3 02 01 cop $014325 .MNLIST4326 F88FB5 64 65 76 69 63 .DB 'device not found', $0065 20 6E 6F 7420 66 6F 75 6E64 004327 F88FC6 60 rts43284329 ?25: ; fail to identify device4330 F88FC7 48 pha ; error code4331 F88FC8 4B phk4332 F88FC9 F4 B4 91 pea #!STR24333 F88FCC A9 05 lda #54334 F88FCE 48 pha4335 F88FCF BPRINTF4336 F88FCF 02 11 cop $114337 .MNLIST4338 F88FD1 38 sec4339 F88FD2 60 rts43404341 ; check device signature after reset4342 ; in: drive=ata #4343 ; ataofs=ata # offset4344 ; out: CF=0 if found deviceTue Jul 17 11:00:15 2018 Page 324345 ; CF=1 if not device or not HD/CF4346 F88FD3 A4 AF ?30: ldy ataofs4347 F88FD5 A2 03 ldx #3 ; test signature device HD/CF4348 F88FD7 BF A2 91 F8 ?34: lda >ATASGN,x4349 F88FDB D9 A2 FD cmp !ATASCTCNT,y ; test signature4350 F88FDE D0 1B bne ?36 ; no HD/CF4351 F88FE0 C8 iny4352 F88FE1 CA dex4353 F88FE2 10 F3 bpl ?344354 F88FE4 B9 A2 FD lda !ATASCTCNT,y ; device #4355 F88FE7 29 10 and #$10 ; mask dev bit4356 F88FE9 D0 10 bne ?36 ; will be 04357 F88FEB C8 iny4358 F88FEC B9 A2 FD lda !ATASCTCNT,y ; status reg.4359 F88FEF 29 40 and #ATADRDY ; DRDY bit will be set4360 F88FF1 F0 08 beq ?36 ; device not found or not HD/CF4361 F88FF3 A9 C0 lda #$C0 ; flag device4362 F88FF5 A6 94 ldx drive ; for now force C.F type4363 F88FF7 95 0E sta atadev,x ; found device on ata #4364 F88FF9 18 clc4365 F88FFA 60 rts4366 F88FFB 38 ?36: sec4367 F88FFC 60 rts43684369 ?50: ; print identification string4370 F88FFD A6 94 ldx drive4371 F88FFF 34 0E bit atadev,x4372 F89001 ACC16CLC4373 F89001 C2 21 rep #(PMFLAG.OR.PCFLAG)4374 .LONGA on4375 .MNLIST4376 F89003 A9 DA 91 lda #!STR34377 F89006 50 03 bvc ?514378 F89008 A9 E8 91 lda #!STR44379 F8900B 85 B0 ?51: sta wtmp ; H.D or C.F string4380 F8900D A9 36 00 lda #27*24381 F89010 65 A3 adc memp4382 F89012 85 A0 sta bufp ; model name string4383 F89014 A5 AA lda nlba4384 F89016 85 95 sta lba4385 F89018 A5 AC lda nlba+24386 F8901A A2 0B ldx #11 ; divide by 2048 (11 shift)...4387 F8901C 4A ?52: lsr a ; ... and get rounded size in Mb4388 F8901D 66 95 ror lba4389 F8901F CA dex4390 F89020 D0 FA bne ?524391 F89022 85 97 sta lba+24392 F89024 48 pha ; 24393 F89025 A5 95 lda lba4394 F89027 48 pha ; 24395 F89028 ACC084396 F89028 E2 20 sep #PMFLAG4397 .LONGA off4398 .MNLIST4399 F8902A A5 A5 lda memp+24400 F8902C 48 pha ; 14401 F8902D D4 A0 pei (bufp) ; 2Tue Jul 17 11:00:15 2018 Page 334402 F8902F 4B phk ; 14403 F89030 D4 B0 pei (wtmp) ; 24404 F89032 4B phk ; 14405 F89033 F4 F6 91 pea #!STRF1 ; 24406 F89036 A9 0E lda #14 ; 14407 F89038 48 pha4408 F89039 BPRINTF4409 F89039 02 11 cop $114410 .MNLIST4411 F8903B 60 rts44124413 ; print check message at boot4414 ; in: drive=ata # device4415 F8903C 24 55 ?60: bit BiosEnt4416 F8903E 50 0C bvc ?62 ; skip4417 F89040 A6 94 ldx drive4418 F89042 DA phx4419 F89043 4B phk4420 F89044 F4 A6 91 pea #!STR14421 F89047 A9 05 lda #54422 F89049 48 pha4423 F8904A BPRINTF4424 F8904A 02 11 cop $114425 .MNLIST4426 F8904C 60 ?62: rts44274428 ; long version4429 F8904D lchkmbr:4430 .PUBLIC lchkmbr44314432 F8904D 8B phb4433 F8904E 0B phd4434 F8904F F4 00 00 pea #04435 F89052 2B pld4436 F89053 A9 00 lda #04437 F89055 48 pha4438 F89056 AB plb4439 F89057 86 94 stx drive4440 F89059 20 70 90 jsr chkmbr4441 F8905C 2B pld4442 F8905D AB plb4443 F8905E 6B rtl44444445 ; check mbr for usb flash disk4446 F8905F chkumbr:4447 .PUBLIC chkumbr44484449 F8905F 86 94 stx drive4450 F89061 ACC16 ; set pointer for MBR4451 F89061 C2 20 rep #PMFLAG4452 .LONGA on4453 .MNLIST4454 F89063 A9 00 94 lda #MBR0USB4455 F89066 85 A3 sta memp4456 F89068 ACC084457 F89068 E2 20 sep #PMFLAG4458 .LONGA offTue Jul 17 11:00:15 2018 Page 344459 .MNLIST4460 F8906A A9 01 lda #^MBR0USB4461 F8906C 85 A5 sta memp+24462 F8906E 80 06 bra chkmbr244634464 ; load & check MBR on device4465 ; in: drive4466 ; out: CF=1 if error, A=error code4467 F89070 chkmbr:4468 F89070 20 95 8A jsr getmbr ; load MBR4469 F89073 90 01 bcc chkmbr24470 F89075 60 rts ; error4471 F890764472 ; entry point for usb flash disk4473 F89076 chkmbr2:4474 F89076 A9 10 lda #$10 ; set bit mbr loaded4475 F89078 85 AE sta tmp4476 F8907A CPU164477 F8907A C2 30 rep #(PMFLAG.OR.PXFLAG)4478 .LONGA on4479 .LONGI on4480 .MNLIST4481 F8907C A0 FE 01 ldy #$01FE ; signature pointer4482 F8907F B7 A3 lda [memp],y4483 F89081 85 B2 sta mbrsgn ; mbr signature4484 F89083 A0 C2 01 ldy #$01C2 ; partition type pointer4485 F89086 B7 A3 lda [memp],y4486 F89088 85 B0 sta wtmp ; partition type4487 F8908A A0 C6 01 ldy #$01C6 ; partition start pointer4488 F8908D B7 A3 lda [memp],y4489 F8908F 85 AA sta nlba ; partition start4490 F89091 C8 iny4491 F89092 C8 iny4492 F89093 B7 A3 lda [memp],y4493 F89095 85 AC sta nlba+24494 F89097 A0 BE 01 ldy #$01BE ; partition flag pointer4495 F8909A B7 A3 lda [memp],y4496 F8909C 85 B4 sta mbrfg ; partition flag4497 F8909E A5 B2 lda mbrsgn4498 F890A0 C9 55 AA cmp #$AA554499 F890A3 CPU084500 F890A3 E2 30 sep #(PMFLAG.OR.PXFLAG)4501 .LONGA off4502 .LONGI off4503 .MNLIST4504 F890A5 D0 49 bne ?20 ; invalid mbr signature4505 F890A7 A9 18 lda #$18 ; add valid mbr signature flag4506 F890A9 85 AE sta tmp4507 F890AB A5 B4 lda mbrfg4508 F890AD F0 02 beq ?vv4509 F890AF 10 3F bpl ?20 ; first partition invalid4510 F890B1 A9 1C ?vv: lda #$1C ; add active partition flag4511 F890B3 85 AE sta tmp4512 F890B5 A5 94 lda drive4513 F890B7 0A asl a4514 F890B8 0A asl a4515 F890B9 AA tax ; index for access to atambr varTue Jul 17 11:00:15 2018 Page 354516 F890BA A5 B0 lda wtmp ; partition type4517 F890BC A8 tay4518 F890BD 95 25 sta atambr+3,x ; store partition type4519 F890BF A5 AC lda nlba+2 ; store partition start4520 F890C1 95 24 sta atambr+2,x4521 F890C3 A5 AB lda nlba+14522 F890C5 95 23 sta atambr+1,x4523 F890C7 A5 AA lda nlba4524 F890C9 95 22 sta atambr,x4525 F890CB A5 AD lda nlba+3 ; must be 04526 F890CD D0 21 bne ?204527 F890CF C0 06 cpy #$06 ; just FAT16 type4528 F890D1 F0 08 beq ?104529 F890D3 C0 04 cpy #$04 ; FAT 16 for disk less than 32Mb4530 F890D5 F0 04 beq ?104531 F890D7 C0 0E cpy #$0E4532 F890D9 D0 15 bne ?204533 F890DB ?10: CPU164534 F890DB C2 30 rep #(PMFLAG.OR.PXFLAG)4535 .LONGA on4536 .LONGI on4537 .MNLIST4538 F890DD A0 CA 01 ldy #$01CA ; partition sec's count pointer4539 F890E0 B7 A3 lda [memp],y4540 F890E2 95 32 sta ataprt,x4541 F890E4 C8 iny4542 F890E5 C8 iny4543 F890E6 B7 A3 lda [memp],y4544 F890E8 95 34 sta ataprt+2,x4545 F890EA CPU084546 F890EA E2 30 sep #(PMFLAG.OR.PXFLAG)4547 .LONGA off4548 .LONGI off4549 .MNLIST4550 F890EC A9 1D lda #$1D ; add valid partition type4551 F890EE 85 AE sta tmp4552 F890F0 A6 94 ?20: ldx drive ; update device flag4553 F890F2 B5 0E lda atadev,x4554 F890F4 05 AE ora tmp4555 F890F6 95 0E sta atadev,x4556 F890F8 18 clc4557 F890F9 60 ?30: rts45584559 ; dma setup for a transfer cycle on channel 1/24560 ; in: drive = 0 or 1 (ata #0 or ata #1 device)4561 ; ataop = ata operation flag: <7>=0->read, 1->write4562 ; ncnt = words count - 1 #4563 ; xbuf = dma buffer # ($0000..$07FF)4564 F890FA dmaset:4565 ; dma buffer is organized in 8 x 128Kb banks or 8 x 64Kw banks4566 ; PB0..PB2 of VIA3 set MA16..MA18 lines of 512Kw ram (DMA access)4567 ;4568 F890FA AF 88 FD 00 lda >DMA0SR ; clear status flag4569 F890FE 8F 8D FD 00 sta >DMA0WMCLR4570 F891024571 F89102 A9 00 lda #$004572 F89104 8F 88 FD 00 sta >DMA0WCMDTue Jul 17 11:00:15 2018 Page 364573 F891084574 F89108 AD C0 FD lda !VIA3+VIAPRB ; set bank4575 F8910B 29 E8 and #11101000B ; mask off 3 lower's bits, clear PB4 (ata 0)4576 F8910D 05 A7 ora xbuf+1 ; high byte of buffer # select the bank4577 F8910F 09 20 ora #00100000B ; set /FDC line high (ata dma access)4578 F89111 A6 94 ldx drive4579 F89113 F0 02 beq ?via ; select ata 04580 F89115 09 10 ora #00010000B ; select ata 1 (PB4 high)4581 F89117 8D C0 FD ?via: sta !VIA3+VIAPRB ; set bank & ata #4582 F8911A BF 9A 91 F8 lda >DMACHNL,x4583 F8911E 85 B0 sta wtmp ; dma channel4584 F89120 09 04 ora #$044585 F89122 8F 8A FD 00 sta >DMA0WMSKB ; mask off bit channel 1/24586 F89126 BF 9C 91 F8 lda >DMAREQB,x4587 F8912A 85 B7 sta dmareq4588 F8912C A9 04 lda #WRITETRASF4589 F8912E 24 9C bit ataop4590 F89130 10 02 bpl ?set ; read: dma read ata port and write buffer4591 F89132 A9 08 lda #READTRASF ; write: dma read buffer and write to ata4592 F89134 05 B0 ?set: ora wtmp ; channel - A=transfer mode4593 F89136 8F 8B FD 00 sta >DMA0MODE ; set DMA transfer mode4594 ;lda xbuf ; high address4595 F8913A 9B txy4596 F8913B 8F 8C FD 00 sta >DMA0WCLRFF ; clear F/F4597 F8913F D0 1F bne ?chn2 ; set channel 24598 F891414599 ; set channel 14600 F89141 A9 00 lda #04601 F89143 8F 82 FD 00 sta >DMAC0+DMAADDR1 ; store low buffer address4602 F89147 A5 A6 lda xbuf ; high address4603 F89149 8F 82 FD 00 sta >DMAC0+DMAADDR1 ; store high buffer address4604 F8914D EA nop4605 F8914E 8F 8C FD 00 sta >DMA0WCLRFF ; clear F/F4606 F89152 A5 AC lda ncnt ; low count4607 F89154 8F 83 FD 00 sta >DMAC0+DMACNT1 ; store low count4608 F89158 A5 AD lda ncnt+1 ; high count4609 F8915A 8F 83 FD 00 sta >DMAC0+DMACNT1 ; store high count4610 F8915E 80 1D bra ?cnt4611 F891604612 ; set channel 24613 F89160 A9 00 ?chn2: lda #04614 F89162 8F 84 FD 00 sta >DMAC0+DMAADDR2 ; store low buffer address4615 F89166 A5 A6 lda xbuf ; high address4616 F89168 8F 84 FD 00 sta >DMAC0+DMAADDR2 ; store high buffer address4617 F8916C EA nop4618 F8916D 8F 8C FD 00 sta >DMA0WCLRFF ; clear F/F4619 F89171 A5 AC lda ncnt ; low count4620 F89173 8F 85 FD 00 sta >DMAC0+DMACNT2 ; store low count4621 F89177 A5 AD lda ncnt+1 ; high count4622 F89179 8F 85 FD 00 sta >DMAC0+DMACNT2 ; store high count4623 F8917D 8F 8C FD 00 ?cnt: sta >DMA0WCLRFF ; clear F/F4624 F89181 A5 B0 lda wtmp4625 F89183 8F 8A FD 00 sta >DMA0WMSKB ; un-mask bit channel 1/24626 F89187 A9 04 lda #00000100B ; VIA0 PA3 set dma direction4627 F89189 24 9C bit ataop4628 F8918B 30 04 bmi ?dir ; clear direction (write to ata)4629 F8918D 0C 0F FD tsb VIA0+VIAPRANH ; set direction (write to mem)Tue Jul 17 11:00:15 2018 Page 374630 F89190 60 rts4631 F89191 1C 0F FD ?dir: trb VIA0+VIAPRANH ; clear direction4632 F89194 60 rts4633 F891954634 ;--------------------------------------------------------------------------4635 ; tables4636 ;---------------------------------------------------------------------------46374638 ; operation flag (read, verify, write)4639 F89195 OPTAB:4640 F89195 00 40 80 .DB $00, $40, $8046414642 ; dma operations: read, write4643 F89198 OPTAB2:4644 F89198 00 80 .DB $00, $8046454646 ; dma channel related to drive #4647 F8919A DMACHNL:4648 F8919A 01 02 .DB $01, $0246494650 ; dma channel request bit related to drive #4651 F8919C DMAREQB:4652 F8919C 20 40 .DB $20, $4046534654 ; DMAREQ bit (PA7, PA6)4655 F8919E DMAREQ:4656 F8919E 80 40 .DB $80, $4046574658 ; for test VIA1 IFR (interrupt from ata device)4659 F891A0 IFRTST:4660 F891A0 02 01 .DB CA1IFRB, CA2IFRB46614662 ; HD/CF signature (in reverse order)4663 F891A2 ATASGN:4664 F891A2 00 00 01 01 .DB $00, $00, $01, $0146654666 F891A6 STR1:4667 F891A6 61 74 61 20 20 .DB 'ata #%bu...', 020 23 25 62 752E 2E 2E 0046684669 F891B4 STR2:4670 F891B4 66 61 69 6C 20 .DB 'fail to identify device (error %bu).', 13, 074 6F 20 69 6465 6E 74 69 6679 20 64 65 7669 63 65 20 2865 72 72 6F 7220 25 62 75 292E 0D 0046714672 F891DA STR3:4673 F891DA 48 61 72 64 20 .DB 'Hard Disk ', 044 69 73 6B 2020 20 20 0046744675 F891E8 STR4:Tue Jul 17 11:00:15 2018 Page 384676 F891E8 43 6F 6D 70 61 .DB 'Compact Flash', 063 74 20 46 6C61 73 68 004677 F891F64678 F891F6 STRF1:4679 F891F6 25 73 20 25 2D .DB '%s %-42.41s %,7u Mb', 13, 034 32 2E 34 3173 20 25 2C 3775 20 4D 62 0D0046804681 ; string's address (drive # indexed)4682 F8920B DSKMODEL:4683 F8920B 00 47 8E AE .DB <_atamod0, <_atamod1, <_usbdsc0, <_usbdsc146844685 F8920F DSKMODELH:4686 F8920F 00 00 00 00 .DB >_atamod0, >_atamod1, >_usbdsc0, >_usbdsc14687 F892134688 F89213 DSKSER:4689 F89213 29 70 .DB <_ataser0, <_ataser146904691 F89215 DSKSERH:4692 F89215 00 00 .DB >_ataser0, >_ataser14693 F892174694 F89217 DSKREV:4695 F89217 3E 85 .DB <_atarev0, <_atarev146964697 F89219 DSKREVH:4698 F89219 00 00 .DB >_atarev0, >_atarev1Lines Assembled : 4510 Errors : 0