Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:24 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\FF\mond.asmOutput Filename : obj\FF\mond.objListing Has Been Relocated2593 .LIST on25942595 F8FFB1 .INCLUDE inc\dirp00.inc2596 ;----------------------------------------------------------2597 ; DIRP00.ASM2598 ; PROGETTO: B16012599 ;2600 ; Variabili in Direct Page $002601 ;----------------------------------------------------------26022603 ; sezione COMMON -- questo permette di includere il file in piu' file26042605 .LIST on26062607 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026082609 000000 .ABSOLUTE ;; inizia sempre da $002610 000000 .ORG 0x002611 0000002612 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2613 000002 0000 .DW2614 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2615 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2616 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2617 ; <6>: flag warm reset2618 00000D 00 RTCFlag .DB26192620 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12621 ; <7>: device ready2622 ; <6>: compact flash device (C.F.)2623 ; <5>: device identification ok2624 ; <4>: MBR loaded2625 ; <3>: valid signature in MBR2626 ; <2>: first partition found&active2627 ; <1>:2628 ; <0>: valid partition flag26292630 ; <7>: device ready2631 ; <6>: USB device2632 ; <5>: compact flash device (C.F.)2633 ; <4>: device identification ok2634 ; <3>: MBR loaded2635 ; <2>: first partition found&active2636 ; <1>: always 12637 ; <0>: valid partition flag2638 000010Tue Jul 17 11:00:24 2018 Page 226392640 00000E atadev .EQU diskstat26412642 000010 usbdev .DS 2 ; flag flash disk on usb bus #02643 ; <7>: device plugged and ready2644 ; <6>: always 12645 ; <5>: device identification ok2646 ; <4>: MBR loaded2647 ; <3>: valid signature in MBR2648 ; <2>: first partition found&active2649 ; <1>:2650 ; <0>: valid partition flag26512652 000012 diskmax .DS 16 ; disk max. sector's2653 000012 atasec .EQU diskmax2654 00001A usbsec .EQU diskmax+8265526562657 000022 atambr .DS 8 ; data for first partition found in mbr2658 ; first 3 bytes for start sector of partition2659 ; last byte for partition type2660 00002A usbmbr .DS 826612662 000032 ataprt .DS 8 ; total sec's of first partition2663 00003A usbprt .DS 8 ; total sec's of first partition266426652666 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2667 ; <7>: module on2668 ; <6>: ch376 flag2669 ; <5:0>: chip version26702671 000043 00 usb0st .DB ; usb0 status2672 ; <7>: usb0 host mode ok2673 ; <6>: flash disk attached flag2674 ; <5>: usb device attached26752676 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2677 ; <7>: disk format established in bit 0&12678 ; <6>: double step seek done2679 ; <5>: trust format bit's (set after ok r/w)2680 ; <4>: write protect bit (if disk in drive)2681 ; <3>: don't care2682 ; <2>: don't care2683 ; <1>: HD disk if set else DD disk2684 ; <0>: CBM format if set else IBM format26852686 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2687 ; <7>: disk format established in bit 0&12688 ; <6>: change disk simulation (after format)2689 ; <5>: don't care2690 ; <4>: write protect bit (under sw control)2691 ; <3>: don't care2692 ; <2>: don't care2693 ; <1>: HD disk if set else DD disk2694 ; <0>: CBM format if set else IBM format2695Tue Jul 17 11:00:24 2018 Page 32696 000046 00 fdcctl .DB ; fdc controller status2697 ; <7>: drive is attached2698 ; <6>: drive need recalibration (restore)2699 ; <5>: FDC controller ok2700 ; <4>: motor on2701 ; <3>: dma is active2702 ; <2>: dma chip ok (post routine)2703 ; <1>: clock rate (1=HD,0=DD)2704 ; <0>: disk ready27052706 000047 00 fdctrk .DB ; fd: current seek track2707 000048 00 fdcerr .DB ; fd: last error code2708 000049 00 ataerr .DB ; ata: last error code2709 00004A 00 ataxer .DB ; ata: last extended error code27102711 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27122713 00004C 0000 MemTop .DW ; top memoria RAM2714 00004E 00 .DB ; banco top mem27152716 00004F 00 DflTxtIn .DB ; device di default text input2717 000050 00 DflTxtOut .DB ; device di default text output27182719 000051 COPPtr LP ; long pointer for COP decoding2720 000054 00 COPIdx .DB ; COP signature/index27212722 000055 00 BiosEnt .DB ; flag accesso a bios setup27232724 ; variabili utilizzate da ACIA2725 000056 spwrk .DS $3027262727 ; bios mem2728 000086 0000 nsize .DW ; dimensione blocco da allocare2729 ;bsize .DW ; dimensione vera blocco free2730 000088 0000 splitsz .DW ; dimensione blocco splittato2731 00008A 0000 bfree .DW ; puntatore blocco free2732 00008C 0000 hdrptr .DW ; puntatore header heap27332734 00008E 0000 pbrklv .DW ; current break level of current process2735 000090 0000 pbrkmin .DW ; minimum breal level of current process2736 000092 0000 pbrkmax .DW ; maximum breal level of current process2737 0000942738 ; bios temp. work area2739 000094 bwrktmp .DS $2827402741 0000BC 00 coptmp .DB ; temp. used while cop27422743 0000BD 00 tstser .DB ; check ser/usb test board post2744 ; <7>: VIA2 ok2745 ; <6>: PICRAM ok2746 ; <1>: UART 16C550 ok2747 ; <0>: R65C51 ok274827492750 ;crc16 .DW27512752 0000BD .RELATIVETue Jul 17 11:00:24 2018 Page 427532754 .ENDS27552756 [01] .IFDEF _ACIA_INC_2757 F8FFB1 .INCLUDE INC\SP.INC2758 ;;2759 ;; Copyright (c) 2016 Marco Granati <mg@unet.bz>2760 ;;2761 ;; Permission to use, copy, modify, and distribute this software for any2762 ;; purpose with or without fee is hereby granted, provided that the above2763 ;; copyright notice and this permission notice appear in all copies.2764 ;;2765 ;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES2766 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF2767 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR2768 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES2769 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN2770 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF2771 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.2772 ;;27732774 ;; name: sp.inc2775 ;; rev.: 2016/07/282776 ;; bios C816 version v1.027772778 .LIST on27792780 000001 SOH .EQU $012781 000002 STX .EQU $022782 000003 ETX .EQU $032783 000004 EOT .EQU $042784 000005 ENQ .EQU $052785 000006 ACK .EQU $062786 000010 DLE .EQU $102787 000016 SYN .EQU $1627882789 002000 SOBUFSIZ .EQU $2000 ; dimensione coda TX1/TX2 ACIA (8K)2790 ;SOBUFSIZ .EQU $0100 ; dimensione coda TX1/TX2 ACIA (8K)2791 004000 SIBUFSIZ .EQU $4000 ; dimensione coda RX1/RX2 ACIA (16K)2792 ;SIBUFSIZ .EQU $0100 ; dimensione coda RX1/RX2 ACIA (16K)27932794 000080 NGUARD1 .EQU $80 ; numero bytes di guardia buffer RX XON/XOFF2795 000040 NGUARD2 .EQU $40 ; numero bytes di guardia buffer RX handshake2796 ;NGUARD1 .EQU $40 ; numero bytes di guardia buffer RX XON/XOFF2797 ;NGUARD2 .EQU $20 ; numero bytes di guardia buffer RX handshake2798 001000 NFREE1 .EQU $1000 ; minimo posto in coda RX per cancellare pausa remota2799 000800 NFREE2 .EQU $08002800 ;NGUARD3 .EQU $F02801 ;NGUARD4 .EQU $F828022803 ;---------------------------------------------------------------------------2804 ; direct page var's for serial ports handling2805 ;---------------------------------------------------------------------------28062807 DPSP: .SECTION page0, common, ref_only, offset spwrk ;ACIA D.P.28082809 000056 _DPSP_START .DS 0Tue Jul 17 11:00:24 2018 Page 528102811 ; WARNING: not change order and type of the following variables28122813 ; acia 1 var's2814 000056 00 splin .DB ; interrupt status register2815 000057 00 spcsr .DB ; control status register2816 000058 00 spfr .DB ; format register2817 000059 00 spout .DB ; XON/XOFF send flag28182819 ; acia 2 var's2820 00005A 00 splin2 .DB ; interrupt status register2821 00005B 00 spcsr2 .DB ; control status register2822 00005C 00 spfr2 .DB ; format register2823 00005D 00 spout2 .DB ; XON/XOFF send flag28242825 ; serial port's mode & status2826 00005E 00 spmode .DB ; <7>: 0=no handshake, 1=handshake2827 ; <6>: 0=software/1=hardware handshake2828 ; <5>: not used2829 ; <4>: baud rate: 0=19200, 1=384002830 ; <3>: 0=odd parity, 1=even parity2831 ; <2>: 0=no parity, 1=parity as specified2832 ; by bit <3>2833 ; <1>: interface type: 0=RS232, 1=RS4852834 ; <0>: RS232: uplink flow control (RTS/DCD)2835 ; RS485: 120 ohm termination on2836 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02837 00005F2838 00005F 00 spstat .DB ; serial port status2839 ; <7>: rx error (data discarded)2840 ; <6>: rx buffer overflow2841 ; <5>: remote disconnession (DSR line = 1)2842 ; <4>: output buffer overflow2843 ; <3>: not used2844 ; <2>: framing error2845 ; <1>: parity error2846 ; <0>: overrun error28472848 000060 00 sppause .DB ; local/remote pause flag's2849 ; <7>: remote pause (sent an XON or set RTS=1)2850 ; <6>: local pause (received an XON or CTS=1)28512852 000061 00 sptmp .DB ; temp. byte used while get data28532854 ; serial port's mode & status2855 000062 00 spmode2 .DB ; <7>: 0=no handshake, 1=handshake2856 ; <6>: 0=software/1=hardware handshake2857 ; <5>: not used2858 ; <4>: baud rate: 0=19200, 1=384002859 ; <3>: 0=odd parity, 1=even parity2860 ; <2>: 0=no parity, 1=parity as specified2861 ; by bit <3>2862 ; <1>: interface type: 0=RS232, 1=RS4852863 ; <0>: RS232: uplink flow control (RTS/DCD)2864 ; RS485: 120 ohm termination on2865 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02866 000063Tue Jul 17 11:00:24 2018 Page 62867 000063 00 spstat2 .DB ; serial port status2868 ; <7>: rx error (data discarded)2869 ; <6>: rx buffer overflow2870 ; <5>: remote disconnession (DSR line = 1)2871 ; <4>: output buffer overflow2872 ; <3>: not used2873 ; <2>: framing error2874 ; <1>: parity error2875 ; <0>: overrun error28762877 000064 00 sppause2 .DB ; local/remote pause flag's2878 ; <7>: remote pause (sent XOFF/XON or RTS=1/0)2879 ; <6>: local pause (rx XOFF/XON or CTS=0/1)28802881 000065 00 sppost .DB ; after POST must hold $C028822883 000066 0000 ibuftail .DW ; pointer to tail of input buffer2884 000068 0000 ibufhead .DW ; pointer to head of input buffer2885 00006A 0000 ibuftail2 .DW2886 00006C 0000 ibufhead2 .DW28872888 00006E 0000 obuftail .DW ; pointer to tail of output buffer2889 000070 0000 obufhead .DW ; pointer to head of output buffer2890 000072 0000 obuftail2 .DW2891 000074 0000 obufhead2 .DW28922893 000076 0000 ibufcnt .DW ; count of bytes in input buffer2894 000078 0000 obufcnt .DW ; count of bytes in output buffer2895 00007A 0000 ibufcnt2 .DW2896 00007C 0000 obufcnt2 .DW28972898 00007E 0000 icntmin .DW ; min. count for clear remote pause2899 000080 0000 icntmax .DW ; max. count for set remote pause2900 000082 0000 icntmin2 .DW2901 000084 0000 icntmax2 .DW29022903 000086 _DPSP_END .DS 02904 000030 DPSPSIZ .EQU (_DPSP_END - _DPSP_START)290529062907 .ENDS29082909 00005F ACIArxe_1 .EQU spstat2910 000063 ACIArxe_2 .EQU spstat22911 00005E ACIAhsk_1 .EQU spmode2912 000062 ACIAhsk_2 .EQU spmode22913 000060 ACIAPause_1 .EQU sppause2914 000064 ACIAPause_2 .EQU sppause22915 000057 ACIAcsr_1 .EQU spcsr2916 00005B ACIAcsr_2 .EQU spcsr22917 000058 ACIAfr_1 .EQU spfr2918 00005C ACIAfr_2 .EQU spfr22919 000060 ACIAOut_1 .EQU sppause2920 000064 ACIAOut_2 .EQU sppause22921 000076 ACIAICnt_1 .EQU ibufcnt2922 00007A ACIAICnt_2 .EQU ibufcnt22923 000068 ACIAIHead_1 .EQU ibufheadTue Jul 17 11:00:24 2018 Page 72924 00006C ACIAIHead_2 .EQU ibufhead22925 000066 ACIAITail_1 .EQU ibuftail2926 00006A ACIAITail_2 .EQU ibuftail22927 000078 ACIAOCnt_1 .EQU obufcnt2928 00007C ACIAOCnt_2 .EQU obufcnt22929 000070 ACIAOHead_1 .EQU obufhead2930 000074 ACIAOHead_2 .EQU obufhead22931 00006E ACIAOTail_1 .EQU obuftail2932 000072 ACIAOTail_2 .EQU obuftail229332934 002000 ACIAOBUFLEN .EQU SOBUFSIZ2935 004000 ACIAIBUFLEN .EQU SIBUFSIZ2936 050000 ACIAOUTBUF1 .EQU SPOUTBUFF2937 052000 ACIAOUTBUF2 .EQU SPOUTBUFF22938 054000 ACIAINBUF1 .EQU SPINBUFF2939 058000 ACIAINBUF2 .EQU SPINBUFF229402941 000061 ACIATmp .EQU sptmp29422960 .LIST on29612962 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera29632964 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0129652966 000000 .ABSOLUTE ;; inizia sempre da $002967 000000 .ORG 0x0029682969 0000002970 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2971 000060 00 KbdITail .DB ; coda buffer tastiera2972 000061 00 KbdIHead .DB ; testa buffer tastiera2973 000062 00 KbdCnt .DB ; numero bytes nel buffer2974 000063 00 KbdShift .DB2975 000064 00 KbdFlag .DB2976 000065 00 KbdToggle .DB2977 000066 00 KbdSt .DB ; status tastiera dopo reset2978 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard29792980 000068 00 LCDFlag .DB2981 000069 00 LCDTmp .DB2982 00006A 0000 LCDVal .DW29832984 00006C 00 VBBFlag .DB ; flag video board2985 00006D 00 VBBRam .DB ; flag video RAM29862987 00006E 00 ScnLinTmp .DB2988 00006F 00 ScnChBase .DB ; base video ram VDC2989 000070 00 ScnAttBase .DB ; base ram attributi VDC2990 000071 00 ScnCursMode .DB ; VDC cursore default2991 000072 00 ScnSaveAttr .DB2992 000073 00 ScnInsert .DB2993 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2994 000075 00 ScnScroll .DB2995 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)2996 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)2997Tue Jul 17 11:00:24 2018 Page 82998 000078 ScnMapTabs1 .DS 102999 000082 ScnMapTabs2 .DS 43000 0000863001 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente3002 000088 00 .DB30033004 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro30053006 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente3007 00008C 00 .DB30083009 00008D 00 ScnTmpx .DB ; temporaneo: durante put char3010 00008E3011 00008E 00 ScnTop .DB ; riga superiore finestra3012 00008F 00 ScnLeft .DB ; colonna sinistra finestra3013 000090 00 ScnBottom .DB ; riga inferiore finestra3014 000091 00 ScnRight .DB ; colonna destra finestra3015 000092 00 ScnAttr .DB ; attributo default3016 000093 00 ScnAttr2 .DB ; attributo alternativo3017 000094 00 ScnRow .DB ; riga cursore3018 000095 00 ScnCol .DB ; colonna cursore3019 000096 00 ScnRowStart .DB ; riga di start input3020 000097 00 ScnInput .DB ; riga di fine input3021 000098 00 ScnColStart .DB ; colonna di start input3022 000099 00 ScnSaveX .DB3023 00009A 00 ScnSaveY .DB3024 00009B 00 ScnTmpL .DB3025 00009C 00 ScnTmpH .DB3026 00009D 00 ScnSaveRow .DB3027 00009E 00 ScnSaveCol .DB3028 00009F 00 ScnCurChr .DB3029 0000A0 00 ScnLstChr .DB3030 0000A1 00 ScnCR .DB3031 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm3032 0000A4 00 .DB ; banco puntatore ScnPrm3033 0000A5 00 ScnMode .DB ; flag modo schermo30343035 0000A6 ScnPtr1 LP30363037 0000A9 00 ScnDefCol .DB ; default foreground color30383039 0000AA ScnPtr2 LP30403041 0000AD 00 ScnDefBkgCol .DB ; default background color3042 0000AE 00 ScnInpRow .DB ; modo input line: riga start input3043 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input3044 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input3045 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input3046 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica3047 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea3048 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea3049 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL3050 ;DflTxtIn .DB ; device di default text input3051 ;DflTxtOut .DB ; device di default text output3052 0000B63053 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)3054Tue Jul 17 11:00:24 2018 Page 93055 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)30563057 ; variabili monitor3058 0000B6 00 SMAddrL .DB ; address low/high3059 0000B7 00 SMAddrH .DB3060 0000B8 00 SMAddrK .DB ; address bank3061 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit3062 0000BA 00 SMTmpL .DB ; temp. low/high3063 0000BB 00 SMTmpH .DB3064 0000BC 00 SMTmpK .DB ; temp. bank3065 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit3066 0000BE 00 SMSizeL .DB ; size low/high3067 0000BF 00 SMSizeH .DB3068 0000C0 00 SMSizeK .DB ; size bank3069 0000C1 00 SMXAddrL .DB ; address low/high XM3070 0000C2 00 SMXAddrH .DB3071 0000C3 00 SMXAddrK .DB ; address bank XM3072 0000C4 00 SMbndx .DB ; indice input buffer3073 0000C5 00 SMnprm .DB ; numero parametri riga di comando3074 0000C6 00 SMdumb .DB3075 0000C7 00 SMkr .DB3076 0000C8 0000 SMpc .DW3077 0000CA 00 SMsr .DB3078 0000CB 00 SMbr .DB3079 0000CC 0000 SMdp .DW3080 0000CE 0000 SMac .DW3081 0000D0 0000 SMxr .DW3082 0000D2 0000 SMyr .DW3083 0000D4 0000 SMsp .DW30843085 0000D6 00 SMAuxL .DB3086 0000D7 00 SMAuxH .DB30873088 0000D8 00 asmlong .DB ; flag for CPU in 16 mode3089 ; <7> -> A/M in 16 bit mode3090 ; <6> -> X/Y in 16 bit mode3091 0000D9 00 asmcpu .DB ; <7> -> 8 bit family3092 ; <6> -> 65C02 cmos version30933094 0000DA 00 SMctx .DB ; context (if = $00 no quit command)3095 0000DB SMrsm LP ; long pointer to resume caller context30963097 0000DE 00 rtcadr .DB ; rtc internal ram address3098 0000DF 00 rtcbnk .DB ; RTC internal bank ram3099 0000E0 00 cmdlin .DB ;3100 0000E1 00 SMesc .DB31013102 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp31033104 0000E2 SMTmp2 .EQU SMXTmp3105 0000E4 SMTmp3 .EQU SMXTmp+23106 0000E6 SMdwTmp1 .EQU SMXTmp+43107 0000EA SMdwTmp2 .EQU SMXTmp+83108 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update3109 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update3110 0000F0 SMXPos2 .EQU SMXTmp+143111 0000F1 SMYPos2 .EQU SMXTmp+15Tue Jul 17 11:00:24 2018 Page 103112 0000F2 SMXPos3 .EQU SMXTmp+163113 0000F3 SMYPos3 .EQU SMXTmp+173114 ;SMAuxL .EQU SMXTmp+183115 ;SMAuxH .EQU SMXTmp+193116 0000F6 SMXPos .EQU SMXTmp+203117 0000F7 SMYPos .EQU SMXTmp+213118 0000F8 SMdwTmp3 .EQU SMXTmp+2231193120 0000E2 atcmd .EQU SMXTmp ; save @ command3121 0000E3 atnum .EQU SMXTmp+1 ; @ command index3122 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag3123 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bank3124 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)3125 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)3126 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)3127 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)3128 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer3129 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag3130 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)3131 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)3132 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer3133 0000F8 atsa .EQU SMXTmp+22 ; @ sa31343135 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion3136 0000E3 brtcsec .EQU SMXTmp+13137 0000E4 brtcmin .EQU SMXTmp+23138 0000E5 brtchour .EQU SMXTmp+33139 0000E6 brtcday .EQU SMXTmp+43140 0000E7 brtcmonth .EQU SMXTmp+53141 0000E8 brtcyear .EQU SMXTmp+63142 0000E9 brtcct .EQU SMXTmp+7314331443145 0000FC .RELATIVE31463147 .ENDS31483172 .LIST on31733174 05C000 SOBUFADDR3 .EQU SPOUTBUFF33175 05D000 SIBUFADDR3 .EQU SPINBUFF33176 001000 SOBUFSIZ3 .EQU $10003177 001000 SIBUFSIZ3 .EQU $100031783179 060000 SOBUFADDR4 .EQU SPOUTBUFF43180 068000 SIBUFADDR4 .EQU SPINBUFF43181 ;SOBUFSIZ4 .EQU $10003182 ;SIBUFSIZ4 .EQU $10003183 008000 SOBUFSIZ4 .EQU $80003184 008000 SIBUFSIZ4 .EQU $800031853186 000200 NGUARD31 .EQU $0200 ; numero bytes di guardia buffer RX XON/XOFF3187 000100 NGUARD32 .EQU $0100 ; numero bytes di guardia buffer RX handshake3188 000800 NFREE31 .EQU $0800 ; minimo posto in coda RX per cancellare pausa remota3189 000400 NFREE32 .EQU $040031903191 ;---------------------------------------------------------------------------Tue Jul 17 11:00:24 2018 Page 113192 ; direct page var's for test serial ports/usb handling3193 ;---------------------------------------------------------------------------31943195 DPSP2: .SECTION page0, common, ref_only ;UART D.P.31963197 000000 00 usbslv .DB ; <7>: plugged-in, <6>: plug-in pending3198 000001 00 usbum .DB ; <7>: pending message, <6>: connected3199 000002 00 usbcnt1 .DB ; timeout UM245 plug-in detection3200 000003 usbbuf .DS 83201 00000B 00 usbtim .DB3202 00000C 00 usbcnt .DB3203 00000D 00 usbmst .DB3204 00000E 0000 usbsiz .DW3205 000010 usbptr LP3206 000013 00 usbtmp .DB3207 000014 00 usbcmp .DB32083209 ; serial port 65C513210 000015 00 spmode3 .DB ; <7>: 0=no handshake, 1=handshake3211 ; <6>: 0=software/1=hardware handshake3212 ; <5>: not used3213 ; <4>: not used3214 ; <3>: 0=odd parity, 1=even parity3215 ; <2>: 0=no parity, 1=parity as specified3216 ; by bit <3>3217 ; <1:0> : baud rate3218 ; 00 = 192003219 ; 01 = 384003220 ; 10 = 576003221 ; 11 = 1152003222 0000163223 000016 00 splin3 .DB ; <7>: /CTS line level3224 ; <6>: /DSR line status3225 0000173226 000017 00 sppause3 .DB3227 000018 00 spout3 .DB3228 000019 00 spstat3 .DB ; staus3229 ; <7>: rx error (data discarded)3230 ; <6>: rx buffer overflow3231 ; <5>: remote disconnession (/DSR line = 1)3232 ; <4>: output buffer overflow3233 ; <3>: not used3234 ; <2>: framing error3235 ; <1>: parity error3236 ; <0>: overrun error32373238 00001A 00 sptmp3 .DB32393240 00001B 0000 ibuftail3 .DW3241 00001D 0000 ibufhead3 .DW3242 00001F 0000 obuftail3 .DW3243 000021 0000 obufhead3 .DW3244 000023 0000 ibufcnt3 .DW3245 000025 0000 obufcnt3 .DW3246 000027 0000 icntmin3 .DW3247 000029 0000 icntmax3 .DW3248Tue Jul 17 11:00:24 2018 Page 123249 ; serial port 16C5503250 00002B 00 spmode4 .DB ; <7>: 0=no handshake, 1=handshake3251 ; <6>: 0=software/1=hardware handshake3252 ; <5>: not used3253 ; <4>: not used3254 ; <3>: 0=odd parity, 1=even parity3255 ; <2>: 0=no parity, 1=parity as specified3256 ; by bit <3>3257 ; <1:0> : baud rate3258 ; 00 = 192003259 ; 01 = 384003260 ; 10 = 576003261 ; 11 = 1152003262 00002C3263 00002C 00 splin4 .DB ; <7>: /DSR line level3264 ; <6>: /CTS line status3265 00002D3266 00002D 00 sppause4 .DB3267 00002E 00 spout4 .DB3268 00002F 00 spstat4 .DB ; staus3269 ; <7>: rx error (data discarded)3270 ; <6>: rx buffer overflow3271 ; <5>: remote disconnession (/DSR line = 1)3272 ; <4>: output buffer overflow3273 ; <3>: break3274 ; <2>: framing error3275 ; <1>: parity error3276 ; <0>: overrun error32773278 000030 00 sptmp4 .DB32793280 000031 0000 ibuftail4 .DW3281 000033 0000 ibufhead4 .DW3282 000035 0000 obuftail4 .DW3283 000037 0000 obufhead4 .DW3284 000039 0000 ibufcnt4 .DW3285 00003B 0000 obufcnt4 .DW3286 00003D 0000 icntmin4 .DW3287 00003F 0000 icntmax4 .DW32883289 000041 00 spcnt4 .DB3290 000042 00 uartlsr .DB3291 000043 00 uartiir .DB32923293 000044 usb0name .DS 3632943295 .ENDS32963300 .LIST on33013302 019900 INPUTBUF .EQU MONBUF3303 F8FFB13304 .CODEFF3305 .EXTERN ErrCls2, GetParm, PrintByte, PrintHex, GetParm323306 .EXTERN PrintWord, CkStop, FF_Byte2Hex3307 .EXTERN _getopt ; FA/getopt.asm3308 FF25D1Tue Jul 17 11:00:24 2018 Page 133309 .GLOBAL Cmd_fddisk, Cmd_fdgetfmt, Cmd_fdres, Cmd_fdinit, Cmd_fdformat3310 .GLOBAL Cmd_fdverfmt, Cmd_fdread, Cmd_fdwrite, Cmd_fdverf, Cmd_fdlsys3311 .GLOBAL Cmd_fdtread, Cmd_fdtwrite, Cmd_fdtverf, Cmd_fdnew, Cmd_fdfs33123313 .GLOBAL matcmd, atacmd, Cmd_mkhash33143315 .LONGA off3316 .LONGI off33173318 ;---------------------------------------------------------------------------3319 ; at '@' commands3320 ;---------------------------------------------------------------------------33213322 ; @ commands3323 FF25D1 matcmd:3324 FF25D1 A5 E3 lda <atnum3325 FF25D3 0A asl a3326 FF25D4 AA tax3327 FF25D5 FC 02 28 jsr (MATVECS,x)3328 ;SCN_CR3329 FF25D8 60 rts33303331 ; '@c "command"' send command to cbm fs emulator3332 FF25D9 matsnd:3333 FF25D9 A9 0F lda #153334 FF25DB 85 F8 sta <atsa3335 FF25DD3336 ; '@o "file" chnl' - open file3337 FF25DD matopn:3338 FF25DD A5 EE lda <atipb ; bank of cmnd string3339 FF25DF 48 pha3340 FF25E0 D4 E6 pei (atstr) ; address of cmnd string3341 FF25E2 A5 F8 lda <atsa ; chnl3342 FF25E4 48 pha3343 FF25E5 CBMFSCMD ; send command3344 FF25E5 02 80 cop FN_CBMFSCMD3345 .MNLIST3346 FF25E7 B0 01 bcs materr ; if error3347 FF25E9 60 rts33483349 ; '@' or '@e': print error message3350 FF25EA materr:3351 000080 VARSIZ .SET 1283352 FF25EA SCN_CR3353 FF25EA SCNPRCHAR3354 .MLIST3355 FF25EA 02 07 cop $073356 .MNLIST3357 FF25EC 0D .DB $0D3358 .MNLIST3359 FF25ED ACC16 ; make room in stack3360 FF25ED C2 20 rep #PMFLAG3361 .LONGA on3362 .MNLIST3363 FF25EF 3B tsc3364 FF25F0 38 sec3365 FF25F1 E9 80 00 sbc #VARSIZTue Jul 17 11:00:24 2018 Page 143366 FF25F4 1B tcs3367 FF25F5 1A inc a ; buffer pointer3368 FF25F6 A2 00 ldx #03369 FF25F8 DA phx ; bank of buffer3370 FF25F9 48 pha ; address of buffer3371 FF25FA F4 80 00 pea #VARSIZ ; size of buffer3372 FF25FD ACC083373 FF25FD E2 20 sep #PMFLAG3374 .LONGA off3375 .MNLIST3376 FF25FF A9 0F lda #15 ; channel 153377 FF2601 48 pha3378 FF2602 CBMFSRD ; read3379 FF2602 02 81 cop FN_CBMFSRW3380 FF2604 00 .DB $003381 .MNLIST3382 FF2605 ACC163383 FF2605 C2 20 rep #PMFLAG3384 .LONGA on3385 .MNLIST3386 FF2607 3B tsc3387 FF2608 1A inc a ; address of buffer3388 FF2609 ACC083389 FF2609 E2 20 sep #PMFLAG3390 .LONGA off3391 .MNLIST3392 FF260B A2 00 ldx #0 ; bank of buffer3393 FF260D SCNSTROUT ; print string3394 FF260D 02 03 cop $033395 .MNLIST3396 FF260F ACC16CLC3397 FF260F C2 21 rep #(PMFLAG.OR.PCFLAG)3398 .LONGA on3399 .MNLIST3400 FF2611 3B tsc ; clean stack3401 FF2612 69 80 00 adc #VARSIZ3402 FF2615 1B tcs3403 FF2616 ACC083404 FF2616 E2 20 sep #PMFLAG3405 .LONGA off3406 .MNLIST3407 FF2618 60 rts34083409 ; '@d "$[drive[:pattern[=type]]]"'3410 ; load and print directory3411 FF2619 matdir:3412 000080 VARSIZ .SET 128 ; mult. of 32 !!!3413 FF2619 A5 EE lda <atipb ; bank of cmnd string3414 FF261B 48 pha3415 FF261C D4 E6 pei (atstr) ; address of cmnd string3416 FF261E A9 00 lda #$00 ; chnl = 03417 FF2620 48 pha3418 FF2621 CBMFSCMD ; send command3419 FF2621 02 80 cop FN_CBMFSCMD3420 .MNLIST3421 FF2623 B0 C5 bcs materr ; if error3422 FF2625 ACC16 ; make room in stackTue Jul 17 11:00:24 2018 Page 153423 FF2625 C2 20 rep #PMFLAG3424 .LONGA on3425 .MNLIST3426 FF2627 3B tsc3427 FF2628 38 sec3428 FF2629 E9 80 00 sbc #VARSIZ3429 FF262C 1B tcs3430 FF262D 1A inc a ; buffer pointer3431 FF262E 85 EC sta <atbuf3432 FF2630 64 EA stz <atend ; buffer count #3433 FF2632 ACC083434 FF2632 E2 20 sep #PMFLAG3435 .LONGA off3436 .MNLIST3437 FF2634 64 EF stz <atdir3438 FF2636 A9 06 lda #6 ; offset # blocks header3439 FF2638 85 E8 sta <atstart3440 FF263A 64 E9 stz <atstart+13441 FF263C SCN_CR3442 FF263C SCNPRCHAR3443 .MLIST3444 FF263C 02 07 cop $073445 .MNLIST3446 FF263E 0D .DB $0D3447 .MNLIST3448 FF263F 20 92 26 ?10: jsr ?100 ; load buffer3449 FF2642 F0 40 beq ?90 ; no data: end of load3450 FF2644 A4 E8 ?14: ldy <atstart3451 FF2646 5A phy3452 FF2647 B1 F0 ?14a: lda (atptr),y3453 FF2649 C9 20 cmp #' '3454 FF264B D0 03 bne ?14b3455 FF264D C8 iny3456 FF264E 80 F7 bra ?14a3457 FF2650 84 E8 ?14b: sty <atstart3458 FF2652 7A ply3459 FF26533460 FF2653 ACC16CLC3461 FF2653 C2 21 rep #(PMFLAG.OR.PCFLAG)3462 .LONGA on3463 .MNLIST3464 FF2655 A5 F0 lda <atptr3465 FF2657 65 E8 adc <atstart3466 FF2659 A2 00 ldx #03467 FF265B DA phx ; bank of string (stack)3468 FF265C 48 pha ; address of string3469 ;;ldy <atstart3470 FF265D 88 dey3471 FF265E 88 dey3472 FF265F B1 F0 lda (atptr),y ; blocks #3473 FF2661 48 pha3474 FF2662 ACC083475 FF2662 E2 20 sep #PMFLAG3476 .LONGA off3477 .MNLIST3478 FF2664 4B phk ; bank of format3479 FF2665 F4 CF 26 pea #!?200 ; address of formatTue Jul 17 11:00:24 2018 Page 163480 FF2668 A2 09 ldx #9 ; # params3481 FF266A DA phx3482 FF266B BPRINTF3483 FF266B 02 11 cop $113484 .MNLIST3485 FF266D A9 04 lda #4 ; just header need offset = 63486 FF266F 85 E8 sta <atstart3487 FF2671 ACC16CLC3488 FF2671 C2 21 rep #(PMFLAG.OR.PCFLAG)3489 .LONGA on3490 .MNLIST3491 FF2673 A5 F0 lda <atptr3492 FF2675 69 20 00 adc #323493 FF2678 85 F0 sta <atptr3494 FF267A C5 EA cmp <atend3495 FF267C ACC083496 FF267C E2 20 sep #PMFLAG3497 .LONGA off3498 .MNLIST3499 FF267E 90 C4 bcc ?14 ; next line in buffer3500 FF2680 24 EF bit <atdir ; bit 7 set if end3501 FF2682 10 BB bpl ?10 ; loop3502 FF2684 ?90: ACC16CLC3503 FF2684 C2 21 rep #(PMFLAG.OR.PCFLAG)3504 .LONGA on3505 .MNLIST3506 FF2686 3B tsc ; clean stack3507 FF2687 69 80 00 adc #VARSIZ3508 FF268A 1B tcs3509 FF268B ACC083510 FF268B E2 20 sep #PMFLAG3511 .LONGA off3512 .MNLIST3513 FF268D A9 00 lda #03514 FF268F CBMFSCLS3515 FF268F 02 82 cop FN_CBMFSCLS3516 .MNLIST3517 FF2691 60 rts35183519 FF2692 A9 00 ?100: lda #0 ; load buffer3520 FF2694 48 pha ; bank of buffer3521 FF2695 D4 EC pei (atbuf) ; address of buffer3522 FF2697 F4 80 00 pea #VARSIZ ; size of buffer3523 FF269A A9 00 lda #$003524 FF269C 48 pha ; chnl 03525 FF269D CBMFSRD ; read3526 FF269D 02 81 cop FN_CBMFSRW3527 FF269F 00 .DB $003528 .MNLIST3529 FF26A0 90 12 bcc ?1043530 FF26A2 68 pla3531 FF26A3 68 pla3532 FF26A4 ACC16CLC3533 FF26A4 C2 21 rep #(PMFLAG.OR.PCFLAG)3534 .LONGA on3535 .MNLIST3536 FF26A6 3B tsc ; clean stackTue Jul 17 11:00:24 2018 Page 173537 FF26A7 69 80 00 adc #VARSIZ3538 FF26AA 1B tcs3539 FF26AB ACC083540 FF26AB E2 20 sep #PMFLAG3541 .LONGA off3542 .MNLIST3543 FF26AD A9 00 lda #03544 FF26AF CBMFSCLS3545 FF26AF 02 82 cop FN_CBMFSCLS3546 .MNLIST3547 FF26B1 4C EA 25 jmp materr3548 FF26B4 ?104: ACC163549 FF26B4 C2 20 rep #PMFLAG3550 .LONGA on3551 .MNLIST3552 FF26B6 48 pha3553 FF26B7 68 pla3554 FF26B8 F0 12 beq ?110 ; end of data3555 FF26BA C9 80 00 cmp #VARSIZ3556 FF26BD B0 04 bcs ?1063557 FF26BF A2 80 ldx #$803558 FF26C1 86 EF stx <atdir ; EOF flag3559 FF26C3 18 ?106: clc3560 FF26C4 65 EC adc <atbuf3561 FF26C6 85 EA sta <atend ; end buffer3562 FF26C8 A5 EC lda <atbuf3563 FF26CA 85 F0 sta <atptr3564 FF26CC ?110: ACC083565 FF26CC E2 20 sep #PMFLAG3566 .LONGA off3567 .MNLIST3568 FF26CE 60 rts3569 FF26CF3570 FF26CF ?200:3571 FF26CF 25 20 34 68 75 .DB '% 4hu %s', $0D, 020 25 73 0D 0035723573 ; '@l "file" bnk [start]' load file (chnl 0)3574 FF26D9 matload:3575 FF26D9 64 F8 stz <atsa3576 FF26DB 80 05 bra matrd13577 FF26DD3578 FF26DD matver:3579 FF26DD 60 rts35803581 ; '@r "file" bnk [start]' open file for read (chnl 5)3582 FF26DE matrd:3583 FF26DE A9 05 lda #53584 FF26E0 85 F8 sta <atsa3585 FF26E2 matrd1:3586 FF26E2 SCN_CR3587 FF26E2 SCNPRCHAR3588 .MLIST3589 FF26E2 02 07 cop $073590 .MNLIST3591 FF26E4 0D .DB $0D3592 .MNLISTTue Jul 17 11:00:24 2018 Page 183593 FF26E5 A5 EE lda <atipb ; bank of cmnd string3594 FF26E7 48 pha3595 FF26E8 D4 E6 pei (atstr) ; address of cmnd string3596 FF26EA A5 F8 lda <atsa ; chnl = 153597 FF26EC 48 pha3598 FF26ED CBMFSCMD ; send command3599 FF26ED 02 80 cop FN_CBMFSCMD3600 .MNLIST3601 FF26EF 90 03 bcc ?023602 FF26F1 4C EA 25 ?01: jmp materr ; if error3603 FF26F4 64 F5 ?02: stz atlp3604 FF26F6 64 F6 stz atlp+13605 FF26F8 A5 E5 lda <atbnk3606 FF26FA 85 F7 sta <atlp+23607 FF26FC INDEX163608 FF26FC C2 10 rep #PXFLAG3609 .LONGI on3610 .MNLIST3611 FF26FE A0 00 00 ldy #03612 FF2701 A9 EA lda #$EA3613 FF2703 97 F5 ?03: sta [atlp],y3614 FF2705 C8 iny3615 FF2706 D0 FB bne ?033616 FF2708 INDEX083617 FF2708 E2 10 sep #PXFLAG3618 .LONGI off3619 .MNLIST3620 FF270A 24 E4 bit <atflag3621 FF270C ACC163622 FF270C C2 20 rep #PMFLAG3623 .LONGA on3624 .MNLIST3625 FF270E 10 0E bpl ?04 ; no start address3626 FF2710 A5 E8 lda <atstart3627 FF2712 85 F5 sta <atlp3628 FF2714 38 sec3629 FF2715 A9 F0 FF lda #$FFF03630 FF2718 E5 E8 sbc <atstart3631 FF271A 85 F2 sta <atsiz3632 FF271C 80 05 bra ?063633 FF271E A9 F0 FF ?04: lda #$FFF03634 FF2721 85 F2 sta <atsiz3635 FF2723 ?06: ACC083636 FF2723 E2 20 sep #PMFLAG3637 .LONGA off3638 .MNLIST3639 FF2725 A5 F7 lda <atlp+23640 FF2727 48 pha3641 FF2728 D4 F5 pei (atlp)3642 FF272A D4 F2 pei (atsiz)3643 FF272C A5 F8 lda <atsa3644 FF272E 48 pha3645 FF272F CBMFSRD ; read3646 FF272F 02 81 cop FN_CBMFSRW3647 FF2731 00 .DB $003648 .MNLIST3649 FF2732 08 phpTue Jul 17 11:00:24 2018 Page 193650 FF2733 ACC163651 FF2733 C2 20 rep #PMFLAG3652 .LONGA on3653 .MNLIST3654 FF2735 48 pha3655 FF2736 ACC083656 FF2736 E2 20 sep #PMFLAG3657 .LONGA off3658 .MNLIST3659 FF2738 A5 F8 lda <atsa3660 FF273A CBMFSCLS3661 FF273A 02 82 cop FN_CBMFSCLS3662 .MNLIST3663 ;SCN_CR3664 FF273C ACC163665 FF273C C2 20 rep #PMFLAG3666 .LONGA on3667 .MNLIST3668 FF273E 68 pla3669 FF273F ACC083670 FF273F E2 20 sep #PMFLAG3671 .LONGA off3672 .MNLIST3673 FF2741 EB xba3674 FF2742 AA tax ; HI3675 FF2743 EB xba ; LOW3676 FF2744 20 48 19 jsr PrintWord3677 ;SCN_CR3678 FF2747 28 plp3679 FF2748 B0 A7 bcs ?013680 FF274A 60 rts36813682 ; '@g chnl bnk [start]' - read in max. 256 bytes3683 FF274B matget:3684 FF274B ACC163685 FF274B C2 20 rep #PMFLAG3686 .LONGA on3687 .MNLIST3688 FF274D A9 00 01 lda #2563689 FF2750 85 F2 sta <atsiz3690 FF2752 64 F5 stz atlp3691 FF2754 ACC083692 FF2754 E2 20 sep #PMFLAG3693 .LONGA off3694 .MNLIST3695 FF2756 A5 E5 lda <atbnk3696 FF2758 85 F7 sta <atlp+23697 FF275A A5 F7 lda <atlp+23698 FF275C 48 pha3699 FF275D D4 F5 pei (atlp)3700 FF275F D4 F2 pei (atsiz)3701 FF2761 A5 F8 lda <atsa3702 FF2763 48 pha3703 FF2764 CBMFSRD ; read3704 FF2764 02 81 cop FN_CBMFSRW3705 FF2766 00 .DB $003706 .MNLISTTue Jul 17 11:00:24 2018 Page 203707 FF2767 08 php3708 FF2768 EB xba3709 FF2769 AA tax ; HI3710 FF276A EB xba ; LOW3711 FF276B 20 48 19 jsr PrintWord3712 ;SCN_CR3713 FF276E 28 plp3714 FF276F 90 01 bcc ?023715 FF2771 60 rts3716 FF2772 4C EA 25 ?02: jmp materr ; if error37173718 ; '@p chnl bnk [start]' - write out max. 256 bytes3719 FF2775 matput:3720 FF2775 ACC163721 FF2775 C2 20 rep #PMFLAG3722 .LONGA on3723 .MNLIST3724 FF2777 A9 00 01 lda #2563725 FF277A 85 F2 sta <atsiz3726 FF277C 64 F5 stz atlp3727 FF277E ACC083728 FF277E E2 20 sep #PMFLAG3729 .LONGA off3730 .MNLIST3731 FF2780 A5 E5 lda <atbnk3732 FF2782 85 F7 sta <atlp+23733 FF2784 A5 F7 lda <atlp+23734 FF2786 48 pha3735 FF2787 D4 F5 pei (atlp)3736 FF2789 D4 F2 pei (atsiz)3737 FF278B A5 F8 lda <atsa3738 FF278D 48 pha3739 FF278E CBMFSWR ; write3740 FF278E 02 81 cop FN_CBMFSRW3741 FF2790 01 .DB $013742 .MNLIST3743 FF2791 08 php3744 FF2792 EB xba3745 FF2793 AA tax ; HI3746 FF2794 EB xba ; LOW3747 FF2795 20 48 19 jsr PrintWord3748 ;SCN_CR3749 FF2798 28 plp3750 FF2799 90 01 bcc ?023751 FF279B 60 rts3752 FF279C 4C EA 25 ?02: jmp materr ; if error37533754 ; '@s "file" bnk start end' save file chnl=13755 FF279F matsave:3756 FF279F A9 01 lda #13757 FF27A1 85 F8 sta <atsa3758 FF27A3 80 04 bra matwr137593760 ; '@w "file" bnk start end'3761 FF27A5 matwr:3762 FF27A5 A9 05 lda #53763 FF27A7 85 F8 sta <atsaTue Jul 17 11:00:24 2018 Page 2137643765 FF27A9 matwr1:3766 FF27A9 SCN_CR3767 FF27A9 SCNPRCHAR3768 .MLIST3769 FF27A9 02 07 cop $073770 .MNLIST3771 FF27AB 0D .DB $0D3772 .MNLIST3773 FF27AC A5 EE lda <atipb ; bank of cmnd string3774 FF27AE 48 pha3775 FF27AF D4 E6 pei (atstr) ; address of cmnd string3776 FF27B1 A5 F8 lda <atsa ; chnl = 153777 FF27B3 48 pha3778 FF27B4 CBMFSCMD ; send command3779 FF27B4 02 80 cop FN_CBMFSCMD3780 .MNLIST3781 FF27B6 90 03 bcc ?023782 FF27B8 4C EA 25 ?01: jmp materr ; if error3783 FF27BB 64 F5 ?02: stz atlp3784 FF27BD 64 F6 stz atlp+13785 FF27BF A5 E5 lda <atbnk3786 FF27C1 85 F7 sta <atlp+23787 FF27C3 ACC163788 FF27C3 C2 20 rep #PMFLAG3789 .LONGA on3790 .MNLIST3791 FF27C5 A5 E8 lda <atstart3792 FF27C7 85 F5 sta <atlp3793 FF27C9 38 sec3794 FF27CA A5 EA lda <atend3795 FF27CC E5 E8 sbc <atstart3796 FF27CE 85 F2 sta <atsiz3797 FF27D0 ACC083798 FF27D0 E2 20 sep #PMFLAG3799 .LONGA off3800 .MNLIST3801 FF27D2 A5 F7 lda <atlp+23802 FF27D4 48 pha3803 FF27D5 D4 F5 pei (atlp)3804 FF27D7 D4 F2 pei (atsiz)3805 FF27D9 A5 F8 lda <atsa3806 FF27DB 48 pha3807 FF27DC CBMFSWR ; write3808 FF27DC 02 81 cop FN_CBMFSRW3809 FF27DE 01 .DB $013810 .MNLIST3811 FF27DF 08 php3812 FF27E0 ACC163813 FF27E0 C2 20 rep #PMFLAG3814 .LONGA on3815 .MNLIST3816 FF27E2 48 pha3817 FF27E3 ACC083818 FF27E3 E2 20 sep #PMFLAG3819 .LONGA off3820 .MNLISTTue Jul 17 11:00:24 2018 Page 223821 FF27E5 A5 F8 lda <atsa3822 FF27E7 CBMFSCLS3823 FF27E7 02 82 cop FN_CBMFSCLS3824 .MNLIST3825 ;SCN_CR3826 FF27E9 ACC163827 FF27E9 C2 20 rep #PMFLAG3828 .LONGA on3829 .MNLIST3830 FF27EB 68 pla3831 FF27EC ACC083832 FF27EC E2 20 sep #PMFLAG3833 .LONGA off3834 .MNLIST3835 FF27EE EB xba3836 FF27EF AA tax ; HI3837 FF27F0 EB xba ; LOW3838 FF27F1 20 48 19 jsr PrintWord3839 ;SCN_CR3840 FF27F4 28 plp3841 FF27F5 B0 C1 bcs ?013842 FF27F7 60 rts38433844 ; '@z' - close all3845 FF27F8 matclsall:3846 FF27F8 A9 0F lda #153847 FF27FA CBMFSCLS3848 FF27FA 02 82 cop FN_CBMFSCLS3849 .MNLIST3850 FF27FC 60 rts38513852 ; '@x chnl' - close chnl3853 FF27FD matclose:3854 FF27FD A5 F8 lda <atsa3855 FF27FF CBMFSCLS3856 FF27FF 02 82 cop FN_CBMFSCLS3857 .MNLIST3858 FF2801 60 rts38593860 FF2802 MATVECS:3861 FF2802 EA25 F827 FD27 .DW materr, matclsall, matclose, matget, matput4B27 75273862 FF280C 1926 D925 D926 .DW matdir, matsnd, matload, matsave, matver9F27 DD263863 FF2816 DE26 A527 DD25 .DW matrd, matwr, matopn38643865 ;---------------------------------------------------------------------------3866 FF281C3867 ; test hash3868 0000E2 HASH .EQU SMXTmp3869 0000E4 FCBS .EQU SMXTmp+238703871 FF281C Cmd_mkhash:3872 FF281C SCNPRCHAR3873 FF281C 02 07 cop $073874 .MNLIST3875 FF281E 0D .DB KB_CRTue Jul 17 11:00:24 2018 Page 2338763877 FF281F A2 0A ldx #$0A3878 FF2821 BF 70 28 FF ?02: lda >TESTSTR,x3879 FF2825 95 E4 sta FCBS,x3880 FF2827 CA dex3881 FF2828 10 F7 bpl ?023882 FF282A A2 E4 ldx #FCBS3883 FF282C 20 3A 28 jsr _mkhash3884 FF282F A5 E2 lda HASH3885 FF2831 A6 E3 ldx HASH+13886 FF2833 20 48 19 jsr PrintWord3887 FF2836 SCNPRCHAR3888 FF2836 02 07 cop $073889 .MNLIST3890 FF2838 0D .DB KB_CR3891 FF2839 60 rts3892 FF283A3893 FF283A _mkhash:3894 FF283A 64 E2 stz HASH3895 FF283C 64 E3 stz HASH+13896 FF283E B5 00 lda <0,x3897 FF2840 F0 2D beq ?203898 FF2842 C9 E5 cmp #$E53899 FF2844 F0 29 beq ?203900 FF2846 29 7F and #$7F3901 FF2848 85 E3 sta HASH+13902 FF284A A0 0A ldy #$0A3903 FF284C ?04: ACC163904 FF284C C2 20 rep #PMFLAG3905 .LONGA on3906 .MNLIST3907 FF284E A5 E2 lda HASH3908 FF2850 0A asl a3909 FF2851 69 00 00 adc #$00003910 FF2854 85 E2 sta HASH3911 FF2856 ACC083912 FF2856 E2 20 sep #PMFLAG3913 .LONGA off3914 .MNLIST3915 FF2858 E8 inx3916 FF2859 B5 00 lda <0,x3917 FF285B 29 7F and #$7F3918 FF285D 45 E2 eor HASH3919 FF285F 85 E2 sta HASH3920 FF2861 88 dey3921 FF2862 D0 E8 bne ?043922 FF2864 ACC163923 FF2864 C2 20 rep #PMFLAG3924 .LONGA on3925 .MNLIST3926 FF2866 A5 E2 lda HASH3927 FF2868 D0 03 bne ?083928 FF286A 1A inc a3929 FF286B 85 E2 sta HASH3930 FF286D ?08: ACC083931 FF286D E2 20 sep #PMFLAG3932 .LONGA offTue Jul 17 11:00:24 2018 Page 243933 .MNLIST3934 FF286F 60 ?20: rts39353936 FF2870 TESTSTR:3937 FF2870 2E 2E 20 20 20 .DB '.. '20 20 20 20 20203938 FF287B3939 ; # fdlsys [drive = 0]3940 ; load rom.bin from floppy and store in bank $E0..$E73941 FF287B Cmd_fdlsys:3942 FF287B 64 EF stz SMFflag3943 FF287D A9 00 lda #$003944 FF287F B0 12 bcs ?04 ; use default drive #03945 FF2881 A5 BC lda SMTmpK3946 FF2883 05 BB ora SMTmpH3947 FF2885 F0 03 beq ?023948 FF2887 4C E5 2B jmp CmdErr3949 FF288A A5 BA ?02: lda SMTmpL3950 FF288C C9 04 cmp #$043951 FF288E 90 03 bcc ?043952 FF2890 4C E5 2B jmp CmdErr3953 FF2893 85 E4 ?04: sta SMTmp3 ; drive3954 FF2895 AA tax ; X = drive3955 FF2896 FDCGETFMT ; get disk format3956 FF2896 02 30 cop $303957 FF2898 04 .DB $043958 .MNLIST3959 FF2899 90 03 bcc ?063960 FF289B 4C 78 2B jmp drs0 ; error3961 FF289E C0 02 ?06: cpy #$02 ; required format = $023962 FF28A0 F0 32 beq ?083963 FF28A2 SCNPRINT ; error3964 FF28A2 02 01 cop $013965 .MNLIST3966 FF28A4 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $003967 FF28A8 SCNPRINT3968 FF28A8 02 01 cop $013969 .MNLIST3970 FF28AA 3A 3A 45 52 52 .DB '::ERROR - disk format is not 02, but ', $004F 52 20 2D 2064 69 73 6B 2066 6F 72 6D 6174 20 69 73 206E 6F 74 20 3032 2C 20 62 7574 20 003971 FF28D0 98 tya3972 FF28D1 4C 71 19 jmp PrintHex3973 FF28D4 A5 E4 ?08: lda SMTmp3 ; drive3974 FF28D6 48 pha3975 FF28D7 A9 00 lda #$003976 FF28D9 48 pha ; track = 03977 FF28DA 48 pha ; buffer = 03978 FF28DB 48 pha ; flag = dos format3979 FF28DC FDCTKRD ; read whole track 03980 FF28DC 02 35 cop $35Tue Jul 17 11:00:24 2018 Page 253981 FF28DE 00 .DB $003982 .MNLIST3983 FF28DF 90 03 bcc ?103984 FF28E1 4C F5 2D jmp fdcr ; error3985 FF28E4 ?10: INDEX163986 FF28E4 C2 10 rep #PXFLAG3987 .LONGI on3988 .MNLIST3989 FF28E6 A0 00 26 ldy #$2600 ; start of root directory3990 FF28E9 84 BA sty SMTmpL3991 FF28EB INDEX083992 FF28EB E2 10 sep #PXFLAG3993 .LONGI off3994 .MNLIST3995 FF28ED A9 02 lda #$023996 FF28EF 85 BC sta SMTmpK3997 FF28F1 A7 BA ?12: lda [SMTmpL] ; scan root directory3998 FF28F3 D0 2A bne ?163999 FF28F5 ?14: SCNPRINT ; error -- end of root directory4000 FF28F5 02 01 cop $014001 .MNLIST4002 FF28F7 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004003 FF28FB SCNPRINT4004 FF28FB 02 01 cop $014005 .MNLIST4006 FF28FD 3A 3A 45 52 52 .DB '::ERROR - file ROM.BIN not found', $004F 52 20 2D 2066 69 6C 65 2052 4F 4D 2E 4249 4E 20 6E 6F74 20 66 6F 756E 64 004007 FF291E 60 rts4008 FF291F A2 00 ?16: ldx #0 ; search 'rom.bin'4009 FF2921 9B txy4010 FF2922 B7 BA ?16l: lda [SMTmpL],y4011 FF2924 DF 3A 2B FF cmp >SYNAM,x4012 FF2928 F0 12 beq ?174013 FF292A ACC16CLC4014 FF292A C2 21 rep #(PMFLAG.OR.PCFLAG)4015 .LONGA on4016 .MNLIST4017 FF292C A5 BA lda SMTmpL4018 FF292E 69 20 00 adc #$00204019 FF2931 85 BA sta SMTmpL4020 FF2933 C9 00 42 cmp #$4200 ; end of root directory?4021 FF2936 ACC084022 FF2936 E2 20 sep #PMFLAG4023 .LONGA off4024 .MNLIST4025 FF2938 90 B7 bcc ?12 ; loop scan4026 FF293A B0 B9 bcs ?14 ; end of root directory4027 FF293C C8 ?17: iny4028 FF293D E8 inx4029 FF293E E0 0B cpx #$0B4030 FF2940 90 E0 bcc ?16l4031 FF2942 B7 BA lda [SMTmpL],y ; name ok -- check recordTue Jul 17 11:00:24 2018 Page 264032 FF2944 C9 20 cmp #$20 ; attribute4033 FF2946 F0 29 beq ?204034 FF2948 ?18: SCNPRINT ; error -- entry not valid4035 FF2948 02 01 cop $014036 .MNLIST4037 FF294A 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004038 FF294E SCNPRINT4039 FF294E 02 01 cop $014040 .MNLIST4041 FF2950 3A 3A 45 52 52 .DB '::ERROR - invalid ROM.BIN entry', $004F 52 20 2D 2069 6E 76 61 6C69 64 20 52 4F4D 2E 42 49 4E20 65 6E 74 7279 004042 FF2970 60 rts4043 FF2971 A0 1A ?20: ldy #$1A ; check cluster4044 FF2973 B7 BA lda [SMTmpL],y4045 FF2975 C9 02 cmp #$024046 FF2977 D0 CF bne ?18 ; will be cluster #24047 FF2979 C8 iny4048 FF297A B7 BA lda [SMTmpL],y4049 FF297C D0 CA bne ?184050 FF297E C8 iny4051 FF297F C8 iny4052 FF2980 C8 iny4053 FF2981 ACC16 ; test size4054 FF2981 C2 20 rep #PMFLAG4055 .LONGA on4056 .MNLIST4057 FF2983 B7 BA lda [SMTmpL],y ; size H4058 FF2985 85 E8 sta SMdwTmp1+24059 FF2987 88 dey4060 FF2988 88 dey4061 FF2989 B7 BA lda [SMTmpL],y ; size L4062 FF298B 85 E6 sta SMdwTmp14063 FF298D ACC084064 FF298D E2 20 sep #PMFLAG4065 .LONGA off4066 .MNLIST4067 FF298F D0 B7 bne ?18 ; size L must be 04068 FF2991 A5 E9 lda SMdwTmp1+34069 FF2993 D0 B3 bne ?18 ; must be 04070 FF2995 A5 E8 lda SMdwTmp1+24071 FF2997 C9 08 cmp #$084072 FF2999 D0 AD bne ?18 ; must be 04073 ; now check FAT 1 -- ROM.BIN must be in sqeuential clusters4074 ; starting from cluster #2 - last cluster $04024075 FF299B A0 01 ldy #14076 FF299D CPU164077 FF299D C2 30 rep #(PMFLAG.OR.PXFLAG)4078 .LONGA on4079 .LONGI on4080 .MNLIST4081 FF299F A9 00 02 lda #$0200 ; start of FAT #14082 FF29A2 85 BA sta SMTmpLTue Jul 17 11:00:24 2018 Page 274083 FF29A4 A7 BA lda [SMTmpL]4084 FF29A6 C9 F0 FF cmp #$FFF04085 FF29A9 D0 34 bne ?284086 FF29AB B7 BA lda [SMTmpL],y ; must be $FFFF4087 FF29AD 1A inc a4088 FF29AE D0 2F bne ?284089 FF29B0 C8 iny4090 FF29B1 C8 iny4091 FF29B2 84 EA sty SMdwTmp2 ; next expected cluster4092 FF29B4 B7 BA ?22: lda [SMTmpL],y4093 FF29B6 29 FF 0F and #$0FFF ; mask 12 bit low4094 FF29B9 C5 EA cmp SMdwTmp2 ; even cluster4095 FF29BB D0 22 bne ?28 ; unmatch4096 FF29BD C8 iny ; 12 bit high4097 FF29BE C9 01 04 cmp #$04014098 FF29C1 D0 07 bne ?244099 FF29C3 A9 FF 0F lda #$0FFF4100 FF29C6 85 EA sta SMdwTmp2 ; mark last cluster4101 FF29C8 80 02 bra ?264102 FF29CA E6 EA ?24: inc SMdwTmp24103 FF29CC B7 BA ?26: lda [SMTmpL],y4104 FF29CE 4A lsr a4105 FF29CF 4A lsr a4106 FF29D0 4A lsr a4107 FF29D1 4A lsr a ; odd cluster4108 FF29D2 C8 iny4109 FF29D3 C8 iny ; next FAT entry4110 FF29D4 C5 EA cmp SMdwTmp2 ; even cluster4111 FF29D6 D0 07 bne ?284112 FF29D8 E6 EA inc SMdwTmp24113 FF29DA C9 FF 0F cmp #$0FFF4114 FF29DD D0 D5 bne ?22 ; loop4115 FF29DF ?28: CPU084116 FF29DF E2 30 sep #(PMFLAG.OR.PXFLAG)4117 .LONGA off4118 .LONGI off4119 .MNLIST4120 FF29E1 F0 1F beq ?30 ; ok -- check FAT done4121 FF29E3 SCNPRINT ; error -- invalid FAT4122 FF29E3 02 01 cop $014123 .MNLIST4124 FF29E5 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004125 FF29E9 SCNPRINT4126 FF29E9 02 01 cop $014127 .MNLIST4128 FF29EB 3A 3A 45 52 52 .DB '::ERROR - invalid FAT', $004F 52 20 2D 2069 6E 76 61 6C69 64 20 46 4154 004129 FF2A01 60 rts4130 FF2A02 ?30: SCNPRINT4131 FF2A02 02 01 cop $014132 .MNLIST4133 FF2A04 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004134 FF2A08 SCNPRINT4135 FF2A08 02 01 cop $01Tue Jul 17 11:00:24 2018 Page 284136 .MNLIST4137 FF2A0A 3A 3A 6C 6F 61 .DB '::load "ROM.BIN" from bank $E0 to bank $E7', $0064 20 22 52 4F4D 2E 42 49 4E22 20 66 72 6F6D 20 62 61 6E6B 20 24 45 3020 74 6F 20 6261 6E 6B 20 2445 37 004138 FF2A35 A9 E0 lda #$E04139 FF2A37 85 FA sta SMdwTmp3+24140 FF2A39 A9 01 lda #14141 FF2A3B 85 E5 sta SMTmp3+1 ; track = 14142 FF2A3D A0 00 ldy #04143 FF2A3F CPU164144 FF2A3F C2 30 rep #(PMFLAG.OR.PXFLAG)4145 .LONGA on4146 .LONGI on4147 .MNLIST4148 FF2A41 A9 00 42 lda #$4200 ; start of cluster #24149 FF2A44 85 BA sta SMTmpL4150 FF2A46 64 F8 stz SMdwTmp34151 FF2A48 B7 BA ?34: lda [SMTmpL],y ; copy the last 3 sectors of track 0, head 14152 FF2A4A 97 F8 sta [SMdwTmp3],y4153 FF2A4C C8 iny4154 FF2A4D C8 iny4155 FF2A4E C0 00 06 cpy #$06004156 FF2A51 90 F5 bcc ?344157 FF2A53 84 F8 sty SMdwTmp3 ; update dest pointer4158 FF2A55 84 E6 sty SMdwTmp1 ; count moved bytes4159 FF2A57 64 E8 stz SMdwTmp1+24160 FF2A59 64 BA stz SMTmpL ; buffer pointer4161 FF2A5B CPU084162 FF2A5B E2 30 sep #(PMFLAG.OR.PXFLAG)4163 .LONGA off4164 .LONGI off4165 .MNLIST4166 FF2A5D A5 E4 ?36: lda SMTmp3 ; loop track 1..284167 FF2A5F 48 pha ; drive4168 FF2A60 A5 E5 lda SMTmp3+14169 FF2A62 48 pha ; track4170 FF2A63 F4 00 00 pea #0 ; buffer = 0, flag = 04171 FF2A66 FDCTKRD ; read whole track4172 FF2A66 02 35 cop $354173 FF2A68 00 .DB $004174 .MNLIST4175 FF2A69 90 03 bcc ?384176 FF2A6B 4C F5 2D jmp fdcr ; error4177 FF2A6E 20 10 2B ?38: jsr ?100 ; move bytes4178 FF2A71 A6 E5 ?42: ldx SMTmp3+14179 FF2A73 E8 inx4180 FF2A74 86 E5 stx SMTmp3+14181 FF2A76 E0 1D cpx #294182 FF2A78 90 E3 bcc ?36 ; loop track 1..284183 FF2A7A A5 E4 lda SMTmp34184 FF2A7C 48 pha ; driveTue Jul 17 11:00:24 2018 Page 294185 FF2A7D DA phx ; track 294186 FF2A7E A9 00 lda #04187 FF2A80 48 pha ; head = 04188 FF2A81 1A inc a4189 FF2A82 48 pha ; secror = 14190 FF2A83 A9 0D lda #134191 FF2A85 48 pha ; read 13 sectors4192 FF2A86 F4 00 00 pea #0 ; buffer = 0, flag = 04193 FF2A89 FDCREAD4194 FF2A89 02 31 cop $314195 FF2A8B 00 .DB $004196 .MNLIST4197 FF2A8C 90 03 bcc ?444198 FF2A8E 4C F5 2D jmp fdcr4199 FF2A91 20 10 2B ?44: jsr ?100 ; move bytes4200 FF2A94 SCNPRCHAR4201 FF2A94 02 07 cop $074202 .MNLIST4203 FF2A96 0D .DB KB_CR4204 FF2A97 A5 E8 lda SMdwTmp1+24205 FF2A99 20 71 19 jsr PrintHex ; number of bytes4206 FF2A9C A5 E6 lda SMdwTmp14207 FF2A9E A6 E7 ldx SMdwTmp1+14208 FF2AA0 20 48 19 jsr PrintWord ; number of bytes4209 FF2AA3 A5 FA lda SMdwTmp3+24210 FF2AA5 20 71 19 jsr PrintHex ; final address +14211 FF2AA8 A5 F8 lda SMdwTmp34212 FF2AAA A6 F9 ldx SMdwTmp3+14213 FF2AAC 20 48 19 jsr PrintWord4214 FF2AAF A5 E6 lda SMdwTmp14215 FF2AB1 05 E7 ora SMdwTmp1+1 ; must be null4216 FF2AB3 D0 12 bne ?464217 FF2AB5 A5 F8 lda SMdwTmp34218 FF2AB7 05 F9 ora SMdwTmp3+1 ; must be null4219 FF2AB9 D0 0C bne ?464220 FF2ABB A5 E8 lda SMdwTmp1+24221 FF2ABD C9 08 cmp #$08 ; must be = 84222 FF2ABF D0 06 bne ?464223 FF2AC1 A5 FA lda SMdwTmp3+24224 FF2AC3 C9 E8 cmp #$E8 ; must be = E84225 FF2AC5 F0 28 beq ?484226 FF2AC7 ?46: SCNPRINT4227 FF2AC7 02 01 cop $014228 .MNLIST4229 FF2AC9 20 2D 2D 20 45 .DB ' -- ERROR -- flash cannot be updated', $0052 52 4F 52 202D 2D 20 66 6C61 73 68 20 6361 6E 6E 6F 7420 62 65 20 7570 64 61 74 6564 004230 FF2AEE 60 rts4231 FF2AEF A9 80 ?48: lda #$804232 FF2AF1 85 EF sta SMFflag4233 FF2AF3 SCNPRINT4234 FF2AF3 02 01 cop $01Tue Jul 17 11:00:24 2018 Page 304235 .MNLIST4236 FF2AF5 20 4F 4B 3A 20 .DB ' OK: flash can be updated', $0066 6C 61 73 6820 63 61 6E 2062 65 20 75 7064 61 74 65 64004237 FF2B0F 60 rts4238 FF2B10 A0 00 ?100: ldy #04239 FF2B12 CPU164240 FF2B12 C2 30 rep #(PMFLAG.OR.PXFLAG)4241 .LONGA on4242 .LONGI on4243 .MNLIST4244 FF2B14 85 EA sta SMdwTmp2 ; number of bytes4245 FF2B16 B7 BA ?200: lda [SMTmpL],y ; copy 36 sectors4246 FF2B18 97 F8 sta [SMdwTmp3],y4247 FF2B1A C8 iny4248 FF2B1B C8 iny4249 FF2B1C C4 EA cpy SMdwTmp24250 FF2B1E 90 F6 bcc ?2004251 FF2B20 A5 E6 lda SMdwTmp14252 FF2B22 18 clc4253 FF2B23 65 EA adc SMdwTmp2 ; update count of moved bytes4254 FF2B25 85 E6 sta SMdwTmp14255 FF2B27 A5 E8 lda SMdwTmp1+24256 FF2B29 69 00 00 adc #$00004257 FF2B2C 85 E8 sta SMdwTmp1+24258 FF2B2E 98 tya4259 FF2B2F 65 F8 adc SMdwTmp3 ; update dest pointer4260 FF2B31 85 F8 sta SMdwTmp34261 FF2B33 CPU084262 FF2B33 E2 30 sep #(PMFLAG.OR.PXFLAG)4263 .LONGA off4264 .LONGI off4265 .MNLIST4266 FF2B35 90 02 bcc ?2024267 FF2B37 E6 FA inc SMdwTmp3+24268 FF2B39 60 ?202: rts42694270 FF2B3A SYNAM:4271 FF2B3A 52 4F 4D 20 20 .DB 'ROM BIN'20 20 20 42 494E4272 FF2B4542734274 ; # fdnew fmt0 [fmt1 = $80]4275 FF2B45 Cmd_fdnew:4276 FF2B45 90 03 bcc ?004277 FF2B47 4C E5 2B jmp CmdErr ; no parametri4278 FF2B4A A5 BC ?00: lda SMTmpK4279 FF2B4C 05 BB ora SMTmpH4280 FF2B4E F0 03 beq ?014281 FF2B50 4C E5 2B jmp CmdErr4282 FF2B53 A5 BA ?01: lda SMTmpL4283 FF2B55 48 pha ; format #04284 FF2B56 20 5A 01 jsr GetParm ; format #1Tue Jul 17 11:00:24 2018 Page 314285 FF2B59 90 04 bcc ?024286 FF2B5B A9 80 lda #$804287 FF2B5D 85 BA sta SMTmpL4288 FF2B5F FA ?02: plx ; X = format #04289 FF2B60 A4 BA ldy SMTmpL ; Y = format #14290 FF2B62 FDNEWRD4291 FF2B62 02 30 cop $304292 FF2B64 02 .DB $024293 .MNLIST4294 FF2B65 80 55 bra drs42954296 ; # fdgetfmt [0=default|1] - get current disk format4297 FF2B67 Cmd_fdgetfmt:4298 FF2B67 F0 06 beq ?014299 FF2B69 A5 BC lda SMTmpK4300 FF2B6B 05 BB ora SMTmpH4301 FF2B6D D0 76 bne CmdErr4302 FF2B6F A6 BA ?01: ldx SMTmpL4303 FF2B71 C9 04 cmp #$044304 FF2B73 B0 70 bcs CmdErr4305 FF2B75 FDCGETFMT4306 FF2B75 02 30 cop $304307 FF2B77 04 .DB $044308 .MNLIST4309 ;FDCGETST4310 FF2B78 08 drs0: php4311 FF2B79 SCNPRINT ; clear result line4312 FF2B79 02 01 cop $014313 .MNLIST4314 FF2B7B 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004315 FF2B7F 28 plp4316 FF2B80 90 15 bcc ?024317 FF2B82 SCNPRINT4318 FF2B82 02 01 cop $014319 .MNLIST4320 FF2B84 3A 3A 65 72 72 .DB '::error code -> ', $006F 72 20 63 6F64 65 20 2D 3E20 004321 FF2B95 80 09 bra ?044322 FF2B97 ?02: SCNPRINT4323 FF2B97 02 01 cop $014324 .MNLIST4325 FF2B99 3A 3A 4F 4B 2C .DB '::OK, ', $0020 004326 FF2BA0 98 ?04: tya4327 FF2BA1 4C 71 19 jmp PrintHex4328 FF2BA44329 ; # fdres - reset FDC controller4330 FF2BA4 Cmd_fdres:4331 FF2BA4 D0 3F bne CmdErr4332 FF2BA6 FDCRESET4333 FF2BA6 02 30 cop $304334 FF2BA8 00 .DB $004335 .MNLIST4336 FF2BA9 80 11 bra drs4337Tue Jul 17 11:00:24 2018 Page 324338 ; # fddisk [0=default|1] - check drive for disk inserted4339 FF2BAB Cmd_fddisk:4340 FF2BAB F0 06 beq ?014341 FF2BAD A5 BC lda SMTmpK4342 FF2BAF 05 BB ora SMTmpH4343 FF2BB1 D0 32 bne CmdErr4344 FF2BB3 A6 BA ?01: ldx SMTmpL4345 FF2BB5 E0 04 cpx #$044346 FF2BB7 B0 2C bcs CmdErr4347 FF2BB9 FDCTST4348 FF2BB9 02 30 cop $304349 FF2BBB 03 .DB $034350 .MNLIST4351 FF2BBC 08 drs: php4352 FF2BBD SCNPRINT ; clear result line4353 FF2BBD 02 01 cop $014354 .MNLIST4355 FF2BBF 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004356 FF2BC3 28 plp4357 FF2BC4 90 17 bcc ?024358 FF2BC6 SCNPRINT4359 FF2BC6 02 01 cop $014360 .MNLIST4361 FF2BC8 3A 3A 65 72 72 .DB '::error code -> ', $006F 72 20 63 6F64 65 20 2D 3E20 004362 FF2BD9 98 tya4363 FF2BDA 4C 71 19 jmp PrintHex4364 FF2BDD ?02: SCNPRINT4365 FF2BDD 02 01 cop $014366 .MNLIST4367 FF2BDF 3A 3A 4F 4B 00 .DB '::OK', $004368 FF2BE4 60 rts43694370 FF2BE5 CmdErr:4371 FF2BE5 4C 34 01 jmp ErrCls243724373 ; # fdinit - reset FDC controller and check drives4374 FF2BE8 Cmd_fdinit:4375 FF2BE8 D0 FB bne CmdErr4376 FF2BEA A9 40 lda #$404377 FF2BEC 1C 55 00 trb !BiosEnt4378 FF2BEF A9 04 lda #$044379 FF2BF1 2C 46 00 bit !fdcctl4380 FF2BF4 F0 09 beq ?10 ; skip test FDC4381 FF2BF6 SCNPRINT ; clear result line4382 FF2BF6 02 01 cop $014383 .MNLIST4384 FF2BF8 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004385 FF2BFC FDCINIT4386 FF2BFC 02 30 cop $304387 FF2BFE 01 .DB $014388 .MNLIST4389 FF2BFF 60 ?10: rts43904391 ; # fdformat drive flag/disk_fmt [fill = $00]Tue Jul 17 11:00:24 2018 Page 334392 FF2C00 Cmd_fdformat:4393 FF2C00 B0 E3 bcs CmdErr ; no parametri4394 FF2C02 A5 BA lda SMTmpL4395 FF2C04 85 E2 sta SMTmp2 ; drive4396 FF2C06 20 5A 01 jsr GetParm ; parametro 2 - flag4397 FF2C09 B0 DA bcs CmdErr4398 FF2C0B A5 BA lda SMTmpL4399 FF2C0D 85 E3 sta SMTmp2+1 ; flag4400 FF2C0F 20 5A 01 jsr GetParm ; parametro 3 - fill byte4401 FF2C12 90 02 bcc ?044402 FF2C14 64 BA stz SMTmpL ; default fill byte = $004403 FF2C16 A5 E2 ?04: lda SMTmp24404 FF2C18 48 pha4405 FF2C19 48 pha ; drive4406 FF2C1A A5 E3 lda SMTmp2+14407 FF2C1C 48 pha ; flag4408 FF2C1D A5 BA lda SMTmpL4409 FF2C1F 48 pha ; fill byte4410 FF2C20 4B phk ; bank of callback4411 FF2C21 F4 63 2C pea #_FmtNotify ; address of callback4412 FF2C24 FDCFORMAT4413 FF2C24 02 33 cop $334414 .MNLIST4415 FF2C26 68 pla4416 FF2C27 B0 93 bcs drs4417 FF2C29 SCNPRINT4418 FF2C29 02 01 cop $014419 .MNLIST4420 FF2C2B 0D 3A 3A 6D 61 .DB $0D, '::make file system', $006B 65 20 66 696C 65 20 73 7973 74 65 6D 004421 ;lda SMTmp24422 FF2C3F 48 pha ; drive4423 FF2C40 A9 00 lda #04424 FF2C42 48 pha ; buffer4425 FF2C43 F4 00 00 pea #0 ; ID4426 FF2C46 48 pha ; name = null4427 FF2C47 F4 00 00 pea #04428 FF2C4A FDCMKFS4429 FF2C4A 02 36 cop $364430 .MNLIST4431 FF2C4C 4C BC 2B jmp drs4432 FF2C4F44334434 ; # fdverfmt drive [default = 0]4435 FF2C4F Cmd_fdverfmt:4436 FF2C4F F0 06 beq ?014437 FF2C51 A5 BC lda SMTmpK4438 FF2C53 05 BB ora SMTmpH4439 FF2C55 D0 8E bne CmdErr4440 FF2C57 A5 BA ?01: lda SMTmpL4441 FF2C59 48 pha ; drive4442 FF2C5A 4B phk ; bank of callback4443 FF2C5B F4 EC 2C pea #_VFmtNotify ; address of callback4444 FF2C5E FDCVERFMT4445 FF2C5E 02 34 cop $34Tue Jul 17 11:00:24 2018 Page 344446 .MNLIST4447 FF2C60 4C 78 2B jmp drs04448 FF2C634449 ; funzione notify callback durante fdformat (LONG)4450 ; In - A = drive4451 ; X = head4452 ; Y = track4453 ; B = sector/track4454 ; CF = 0 prima chiamata4455 FF2C63 _FmtNotify:4456 FF2C63 0B phd4457 FF2C64 F4 00 01 pea #DP01ADDR4458 FF2C67 2B pld4459 FF2C68 B0 68 bcs ?10 ; chiamate successive4460 FF2C6A SCNPRINT4461 FF2C6A 02 01 cop $014462 .MNLIST4463 FF2C6C 0D 3A 3A 66 6F .DB $0D, '::format diskette on drive #', $0072 6D 61 74 2064 69 73 6B 6574 74 65 20 6F6E 20 64 72 6976 65 20 23 004464 FF2C8A 09 30 ora #'0'4465 FF2C8C SCNCHAROUT4466 FF2C8C 02 05 cop $054467 .MNLIST4468 FF2C8E SCNPRINT4469 FF2C8E 02 01 cop $014470 .MNLIST4471 FF2C90 20 28 23 35 30 .DB ' (#50T, #', $0054 2C 20 23 004472 FF2C9A EB xba ; A = sector/track4473 FF2C9B DA phx4474 FF2C9C 5A phy4475 FF2C9D 20 71 19 jsr PrintHex4476 FF2CA0 SCNPRINT4477 FF2CA0 02 01 cop $014478 .MNLIST4479 FF2CA2 53 2F 54 29 20 .DB 'S/T) - Track: #', $002D 20 54 72 6163 6B 3A 20 23004480 FF2CB2 SCNGETPOS4481 FF2CB2 02 18 cop $184482 FF2CB4 02 .DB $024483 .MNLIST4484 FF2CB5 86 D6 stx SMAuxL4485 FF2CB7 84 D7 sty SMAuxH4486 FF2CB9 68 pla ; track4487 FF2CBA 20 71 19 jsr PrintHex4488 FF2CBD SCNPRINT4489 FF2CBD 02 01 cop $014490 .MNLIST4491 FF2CBF 2C 20 53 69 64 .DB ', Side: #', $0065 3A 20 23 004492 FF2CC9 SCNGETPOSTue Jul 17 11:00:24 2018 Page 354493 FF2CC9 02 18 cop $184494 FF2CCB 02 .DB $024495 .MNLIST4496 FF2CCC 86 E2 stx SMTmp24497 FF2CCE 84 E3 sty SMTmp2+14498 FF2CD0 80 14 bra ?204499 FF2CD2 DA ?10: phx4500 FF2CD3 5A phy4501 FF2CD4 A6 D6 ldx SMAuxL4502 FF2CD6 A4 D7 ldy SMAuxH4503 FF2CD8 SCNSETPOS4504 FF2CD8 02 18 cop $184505 FF2CDA 03 .DB $034506 .MNLIST4507 FF2CDB 68 pla4508 FF2CDC 20 71 19 jsr PrintHex4509 FF2CDF A6 E2 ldx SMTmp24510 FF2CE1 A4 E3 ldy SMTmp2+14511 FF2CE3 SCNSETPOS4512 FF2CE3 02 18 cop $184513 FF2CE5 03 .DB $034514 .MNLIST4515 FF2CE6 68 ?20: pla4516 FF2CE7 20 71 19 jsr PrintHex4517 FF2CEA 2B pld4518 FF2CEB 6B rtl45194520 ; funzione notify callback durante fdverfmt (LONG)4521 ; In - A = drive4522 ; X = head4523 ; Y = track4524 ; B = format4525 ; CF = 0 prima chiamata4526 FF2CEC _VFmtNotify:4527 FF2CEC 0B phd4528 FF2CED F4 00 01 pea #DP01ADDR4529 FF2CF0 2B pld4530 FF2CF1 B0 71 bcs ?10 ; chiamate successive4531 FF2CF3 SCNPRINT4532 FF2CF3 02 01 cop $014533 .MNLIST4534 FF2CF5 0D 3A 3A 76 65 .DB $0D, '::verify format diskette on drive #', $0072 69 66 79 2066 6F 72 6D 6174 20 64 69 736B 65 74 74 6520 6F 6E 20 6472 69 76 65 2023 004535 FF2D1A 09 30 ora #'0'4536 FF2D1C SCNCHAROUT4537 FF2D1C 02 05 cop $054538 .MNLIST4539 FF2D1E SCNPRINT4540 FF2D1E 02 01 cop $014541 .MNLIST4542 FF2D20 20 28 66 6F 72 .DB ' (format #', $00Tue Jul 17 11:00:24 2018 Page 366D 61 74 20 23004543 FF2D2B EB xba ; A = format4544 FF2D2C DA phx4545 FF2D2D 5A phy4546 FF2D2E 20 71 19 jsr PrintHex4547 FF2D31 SCNPRINT4548 FF2D31 02 01 cop $014549 .MNLIST4550 FF2D33 29 20 2D 20 54 .DB ') - Track: #', $0072 61 63 6B 3A20 23 004551 FF2D40 SCNGETPOS4552 FF2D40 02 18 cop $184553 FF2D42 02 .DB $024554 .MNLIST4555 FF2D43 86 D6 stx SMAuxL4556 FF2D45 84 D7 sty SMAuxH4557 FF2D47 68 pla ; track4558 FF2D48 20 71 19 jsr PrintHex4559 FF2D4B SCNPRINT4560 FF2D4B 02 01 cop $014561 .MNLIST4562 FF2D4D 2C 20 48 65 61 .DB ', Head: #', $0064 3A 20 23 004563 FF2D57 SCNGETPOS4564 FF2D57 02 18 cop $184565 FF2D59 02 .DB $024566 .MNLIST4567 FF2D5A 86 E2 stx SMTmp24568 FF2D5C 84 E3 sty SMTmp2+14569 FF2D5E 68 pla4570 FF2D5F 20 71 19 jsr PrintHex4571 FF2D62 2B pld4572 FF2D63 6B rtl4573 FF2D64 DA ?10: phx4574 FF2D65 5A phy4575 FF2D66 A6 D6 ldx SMAuxL4576 FF2D68 A4 D7 ldy SMAuxH4577 FF2D6A SCNSETPOS4578 FF2D6A 02 18 cop $184579 FF2D6C 03 .DB $034580 .MNLIST4581 FF2D6D 68 pla4582 FF2D6E 20 71 19 jsr PrintHex4583 FF2D71 A6 E2 ldx SMTmp24584 FF2D73 A4 E3 ldy SMTmp2+14585 FF2D75 SCNSETPOS4586 FF2D75 02 18 cop $184587 FF2D77 03 .DB $034588 .MNLIST4589 FF2D78 68 pla4590 FF2D79 20 71 19 jsr PrintHex4591 FF2D7C 2B pld4592 FF2D7D 6B rtl45934594 ; # fdtwrite drive [track=0 [buffer=0 [flag=0]]]Tue Jul 17 11:00:24 2018 Page 374595 FF2D7E Cmd_fdtwrite:4596 FF2D7E 90 03 bcc ?024597 FF2D80 4C 49 2F jmp CmdErr3 ; no parametri4598 FF2D83 A2 02 ?02: ldx #24599 FF2D85 80 10 bra fdtrk4600 FF2D874601 ; # fdtread drive [track=0 [buffer=0 [flag=0]]]4602 FF2D87 Cmd_fdtread:4603 FF2D87 90 03 bcc ?024604 FF2D89 4C 49 2F jmp CmdErr3 ; no parametri4605 FF2D8C A2 00 ?02: ldx #04606 FF2D8E 80 07 bra fdtrk46074608 ; # fdtverf drive [track=0 [buffer=0 [flag=0]]]4609 FF2D90 Cmd_fdtverf:4610 FF2D90 90 03 bcc ?024611 FF2D92 4C 49 2F jmp CmdErr3 ; no parametri4612 FF2D95 A2 01 ?02: ldx #146134614 FF2D97 fdtrk:4615 FF2D97 A5 BA lda SMTmpL4616 FF2D99 48 pha ; drive4617 FF2D9A A9 00 lda #04618 FF2D9C 48 pha ; track4619 FF2D9D 48 pha ; buffer4620 FF2D9E 48 pha ; flag4621 FF2D9F DA phx ; op4622 FF2DA0 20 5A 01 jsr GetParm ; parametro 2 - track4623 FF2DA3 B0 16 bcs ?104624 FF2DA5 A5 BA lda SMTmpL4625 FF2DA7 83 04 sta $04,s ; track4626 FF2DA9 20 5A 01 jsr GetParm ; parametro 3 - buffer4627 FF2DAC B0 0D bcs ?104628 FF2DAE A5 BA lda SMTmpL4629 FF2DB0 83 03 sta $03,s ; buffer4630 FF2DB2 20 5A 01 jsr GetParm ; parametro 4 - flag4631 FF2DB5 B0 04 bcs ?104632 FF2DB7 A5 BA lda SMTmpL4633 FF2DB9 83 02 sta $02,s ; flag4634 FF2DBB FA ?10: plx ; op4635 FF2DBC F0 0D beq ?30 ; read4636 FF2DBE CA dex4637 FF2DBF F0 05 beq ?20 ; verf4638 FF2DC1 FDCTKWR4639 FF2DC1 02 35 cop $354640 FF2DC3 02 .DB $024641 .MNLIST4642 FF2DC4 80 2F bra fdcr4643 FF2DC6 ?20: FDCTKVERF4644 FF2DC6 02 35 cop $354645 FF2DC8 01 .DB $014646 .MNLIST4647 FF2DC9 80 2A bra fdcr4648 FF2DCB ?30: FDCTKRD4649 FF2DCB 02 35 cop $354650 FF2DCD 00 .DB $004651 .MNLISTTue Jul 17 11:00:24 2018 Page 384652 FF2DCE 80 25 bra fdcr4653 FF2DD04654 ; # fdwrite drive [track=0 [head=0 [sect=1 [sectnum=1 [buffer=0 [flag=0]]]]]]4655 FF2DD0 Cmd_fdwrite:4656 FF2DD0 90 03 bcc ?024657 FF2DD2 4C 49 2F jmp CmdErr3 ; no parametri4658 FF2DD5 20 47 2E ?02: jsr GetFDCParm4659 FF2DD8 FDCWRITE4660 FF2DD8 02 31 cop $314661 FF2DDA 02 .DB $024662 .MNLIST4663 FF2DDB 80 18 bra fdcr4664 FF2DDD4665 ; # fdverf drive [track=0 [head=0 [sect=1 [sectnum=1 [buffer=0 [flag=0]]]]]]4666 FF2DDD Cmd_fdverf:4667 FF2DDD 90 03 bcc ?024668 FF2DDF 4C 49 2F jmp CmdErr3 ; no parametri4669 FF2DE2 20 47 2E ?02: jsr GetFDCParm4670 FF2DE5 FDCVERF4671 FF2DE5 02 31 cop $314672 FF2DE7 01 .DB $014673 .MNLIST4674 FF2DE8 80 0B bra fdcr46754676 ; # fdread drive [track=0 [head=0 [sect=1 [sectnum=1 [buffer=0 [flag=0]]]]]]4677 FF2DEA Cmd_fdread:4678 FF2DEA 90 03 bcc ?024679 FF2DEC 4C 49 2F jmp CmdErr3 ; no parametri4680 FF2DEF 20 47 2E ?02: jsr GetFDCParm4681 FF2DF2 FDCREAD4682 FF2DF2 02 31 cop $314683 FF2DF4 00 .DB $004684 .MNLIST4685 FF2DF54686 FF2DF5 fdcr:4687 FF2DF5 08 php4688 FF2DF6 SCNPRINT ; clear result line4689 FF2DF6 02 01 cop $014690 .MNLIST4691 FF2DF8 0D 1B 71 00 .DB $0D, KB_ESC, 'q', $004692 FF2DFC 28 plp4693 FF2DFD 90 1B bcc ?024694 FF2DFF SCNPRINT4695 FF2DFF 02 01 cop $014696 .MNLIST4697 FF2E01 3A 3A 65 72 72 .DB '::error code -> ', $006F 72 20 63 6F64 65 20 2D 3E20 004698 FF2E12 48 pha4699 FF2E13 98 tya4700 FF2E14 20 4E 19 jsr PrintByte4701 FF2E17 68 pla4702 FF2E18 80 09 bra ?044703 FF2E1A ?02: SCNPRINT4704 FF2E1A 02 01 cop $014705 .MNLISTTue Jul 17 11:00:24 2018 Page 394706 FF2E1C 3A 3A 4F 4B 2C .DB '::OK, ', $0020 004707 FF2E23 9B ?04: txy4708 FF2E24 EB xba4709 FF2E25 AA tax4710 FF2E26 EB xba4711 FF2E27 20 48 19 jsr PrintWord4712 FF2E2A 98 tya4713 FF2E2B SCNPRCHAR4714 FF2E2B 02 07 cop $074715 .MNLIST4716 FF2E2D 20 .DB ' '4717 FF2E2E 4C 71 19 jmp PrintHex47184719 ; # fdfs [drive = 0] {buffer = 0, ID = 0, name = NULL}4720 FF2E31 Cmd_fdfs:4721 FF2E31 D0 02 bne ?024722 FF2E33 64 BA stz SMTmpL4723 FF2E35 A5 BA ?02: lda SMTmpL4724 FF2E37 48 pha ; drive4725 FF2E38 A9 00 lda #$004726 FF2E3A 48 pha ; buffer4727 FF2E3B F4 00 00 pea #0 ; ID4728 FF2E3E 48 pha ; name = null4729 FF2E3F F4 00 00 pea #04730 FF2E42 FDCMKFS4731 FF2E42 02 36 cop $364732 .MNLIST4733 FF2E44 4C BC 2B jmp drs47344735 ; ricava parametri per funzioni fdread/fdwrite4736 FF2E47 GetFDCParm:4737 FF2E47 FA plx ; return L4738 FF2E48 68 pla ; return H4739 FF2E49 E8 inx ; scarta stack - necessario per4740 FF2E4A D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack4741 FF2E4C 1A inc a ; X,A -> indirizzo di ritorno4742 FF2E4D 86 E2 ?01: stx SMTmp24743 FF2E4F 85 E3 sta SMTmp2+14744 FF2E51 A5 BA lda SMTmpL ; drive4745 FF2E53 48 pha4746 FF2E54 A9 00 lda #0 ; default params4747 FF2E56 48 pha ; track = 04748 FF2E57 48 pha ; head = 04749 FF2E58 A2 01 ldx #14750 FF2E5A DA phx ; start sector = 14751 FF2E5B DA phx ; sect. number = 14752 FF2E5C 48 pha ; # buffer = 04753 FF2E5D 48 pha ; flag = 04754 FF2E5E 20 5A 01 jsr GetParm ; parametro 2 - track4755 FF2E61 B0 35 bcs ?204756 FF2E63 A5 BA lda SMTmpL4757 FF2E65 83 06 sta $06,s ; track4758 FF2E67 20 5A 01 jsr GetParm ; parametro 3 - head4759 FF2E6A B0 2C bcs ?204760 FF2E6C A5 BA lda SMTmpL4761 FF2E6E 83 05 sta $05,s ; headTue Jul 17 11:00:24 2018 Page 404762 FF2E70 20 5A 01 jsr GetParm ; parametro 4 - sector4763 FF2E73 B0 23 bcs ?204764 FF2E75 A5 BA lda SMTmpL4765 FF2E77 F0 02 beq ?024766 FF2E79 83 04 sta $04,s ; sector4767 FF2E7B 20 5A 01 ?02: jsr GetParm ; sector number4768 FF2E7E B0 18 bcs ?204769 FF2E80 A5 BA lda SMTmpL4770 FF2E82 F0 02 beq ?034771 FF2E84 83 03 sta $03,s ; sector number4772 FF2E86 20 5A 01 ?03: jsr GetParm4773 FF2E89 B0 0D bcs ?204774 FF2E8B A5 BA lda SMTmpL4775 FF2E8D 83 02 sta $02,s ; buffer4776 FF2E8F 20 5A 01 jsr GetParm4777 FF2E92 B0 04 bcs ?204778 FF2E94 A5 BA lda SMTmpL4779 FF2E96 83 01 sta $01,s ; flag4780 FF2E98 6C E2 01 ?20: jmp (DP01ADDR+SMTmp2) ; return47814782 FF2E9B4783 ;---------------------------------4784 FF2E9B atacmd:4785 FF2E9B A5 E3 lda <atnum4786 FF2E9D 0A asl a4787 FF2E9E AA tax4788 FF2E9F 7C A2 2E jmp (ATACT,x)4789 FF2EA24790 FF2EA2 ATACT:4791 FF2EA2 092F 012F 412F .DW Cmd_atard, Cmd_ataverf, Cmd_atawr, Cmd_ataresF92E4792 FF2EAA E72E ED2E F32E .DW Cmd_ataid, Cmd_atambr, Cmd_atapbr, Cmd_atadbufB82E4793 FF2EB2 C62E D72E DF2E .DW Cmd_atadbnk, Cmd_atadrd, Cmd_atadwr47944795 FF2EB8 Cmd_atadbuf:4796 FF2EB8 A9 08 lda #$08 ; PB3 VIA34797 FF2EBA A6 BA ldx SMTmpL4798 FF2EBC F0 04 beq ?dis ; disable 1Mb buffer4799 FF2EBE 1C C0 FD trb VIA3+VIAPRB ; enable 1Mb buffer4800 FF2EC1 60 rts4801 FF2EC2 0C C0 FD ?dis: tsb VIA3+VIAPRB4802 FF2EC5 60 rts48034804 FF2EC6 Cmd_atadbnk:4805 FF2EC6 A5 BA lda SMTmpL4806 FF2EC8 29 07 and #$07 ; mask bank4807 FF2ECA 85 BA sta SMTmpL4808 FF2ECC AD CF FD lda !VIA3+VIAPRANH4809 FF2ECF 29 F8 and #$F84810 FF2ED1 05 BA ora SMTmpL4811 FF2ED3 8D CF FD sta !VIA3+VIAPRANH ; set bank4812 FF2ED6 60 rts48134814 FF2ED7 Cmd_atadrd:4815 FF2ED7 20 B8 2F jsr GetATAParm24816 FF2EDA ATADMARDTue Jul 17 11:00:24 2018 Page 414817 FF2EDA 02 42 cop $424818 FF2EDC 00 .DB $004819 .MNLIST4820 FF2EDD 80 30 bra ATAClean48214822 FF2EDF Cmd_atadwr:4823 FF2EDF 20 B8 2F jsr GetATAParm24824 FF2EE2 ATADMAWR4825 FF2EE2 02 42 cop $424826 FF2EE4 01 .DB $014827 .MNLIST4828 FF2EE5 80 28 bra ATAClean48294830 FF2EE7 Cmd_ataid:4831 FF2EE7 A6 BA ldx SMTmpL4832 FF2EE9 A9 01 lda #14833 FF2EEB 80 10 bra atactl48344835 FF2EED Cmd_atambr:4836 FF2EED A6 BA ldx SMTmpL4837 FF2EEF A9 02 lda #24838 FF2EF1 80 0A bra atactl48394840 FF2EF3 Cmd_atapbr:4841 FF2EF3 A6 BA ldx SMTmpL4842 FF2EF5 A9 03 lda #34843 FF2EF7 80 04 bra atactl48444845 FF2EF9 Cmd_atares:4846 FF2EF9 A6 BA ldx SMTmpL4847 FF2EFB A9 00 lda #04848 FF2EFD atactl:4849 FF2EFD ATACTL4850 FF2EFD 02 41 cop $414851 .MNLIST4852 FF2EFF 80 0E bra ATAClean4853 FF2F014854 ; test lettura device ATA4855 ; atard <80 (flag verifica)> + device <LBA=0> <NUMSECT=64> <BUFFER=030000>4856 FF2F01 Cmd_ataverf:4857 FF2F01 20 4C 2F jsr GetATAParm4858 FF2F04 ATAVERF4859 FF2F04 02 40 cop $404860 FF2F06 01 .DB $014861 .MNLIST4862 FF2F07 80 06 bra ATAClean4863 FF2F094864 FF2F09 Cmd_atard:4865 FF2F09 20 4C 2F jsr GetATAParm4866 FF2F0C ATAREAD4867 FF2F0C 02 40 cop $404868 FF2F0E 00 .DB $004869 .MNLIST48704871 FF2F0F ATAClean:4872 FF2F0F B0 14 bcs ?024873 FF2F11 SCNPRINTTue Jul 17 11:00:24 2018 Page 424874 FF2F11 02 01 cop $014875 .MNLIST4876 FF2F13 0D 3A 3A 4F 4B .DB $0D, '::OK - no error', $0020 2D 20 6E 6F20 65 72 72 6F72 004877 FF2F24 60 rts4878 FF2F25 ?02: SCNPRINT4879 FF2F25 02 01 cop $014880 .MNLIST4881 FF2F27 0D 3A 3A 65 72 .DB $0D, '::error code -> ', $0072 6F 72 20 636F 64 65 20 2D3E 20 004882 FF2F39 98 tya4883 FF2F3A 20 4E 19 jsr PrintByte4884 FF2F3D 8A txa4885 FF2F3E 4C 71 19 jmp PrintHex48864887 ; test scrittura su device ATA4888 ; atawrite <80 (flag verifica)> + device <LBA=0> <NUMSECT=64> <BUFFER=0>4889 FF2F41 Cmd_atawr:4890 FF2F41 20 4C 2F jsr GetATAParm4891 FF2F44 ATAWRITE4892 FF2F44 02 40 cop $404893 FF2F46 02 .DB $024894 .MNLIST4895 FF2F47 80 C6 bra ATAClean48964897 FF2F49 CmdErr3:4898 FF2F49 4C 34 01 jmp ErrCls248994900 ; ricava parametri per funzioni ATA read/write4901 FF2F4C GetATAParm:4902 FF2F4C FA plx ; return L4903 FF2F4D 68 pla ; return H4904 FF2F4E E8 inx ; scarta stack - necessario per4905 FF2F4F D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack4906 FF2F51 1A inc a ; X,A -> indirizzo di ritorno4907 FF2F52 86 E2 ?01: stx SMTmp24908 FF2F54 85 E3 sta SMTmp2+14909 FF2F56 ACC164910 FF2F56 C2 20 rep #PMFLAG4911 .LONGA on4912 .MNLIST4913 FF2F58 3B tsc ; stack frame4914 FF2F59 38 sec4915 FF2F5A E9 09 00 sbc #9 ; crea parametri stack4916 FF2F5D 1B tcs4917 FF2F5E 1A inc a4918 FF2F5F 85 BE sta SMSizeL ; salva stack frame4919 FF2F61 ACC084920 FF2F61 E2 20 sep #PMFLAG4921 .LONGA off4922 .MNLIST4923 FF2F63 A5 BA lda SMTmpL ; parametro 1 - device + flag verifica4924 FF2F65 AA taxTue Jul 17 11:00:24 2018 Page 434925 FF2F66 29 01 and #$01 ; maschera device4926 FF2F68 83 09 sta $09,s ; device4927 FF2F6A 8A txa4928 FF2F6B 29 80 and #$80 ; maschera flag4929 FF2F6D 83 01 sta $01,s ; flag4930 FF2F6F A9 00 lda #04931 FF2F71 83 02 sta $02,s ; lpBuf default=$0300004932 FF2F73 83 03 sta $03,s4933 FF2F75 A9 03 lda #34934 FF2F77 83 04 sta $04,s4935 FF2F79 A9 40 lda #64 ; numero settori di default (64)4936 FF2F7B 83 05 sta $05,s4937 FF2F7D A9 00 lda #04938 FF2F7F 83 06 sta $06,s ; LBA di default (0)4939 FF2F81 83 07 sta $07,s4940 FF2F83 83 08 sta $08,s4941 FF2F85 20 52 01 jsr GetParm32 ; parametro 2 - LBA4942 FF2F88 B0 26 bcs ?18 ; fine - OK4943 FF2F8A A5 BA lda SMTmpL4944 FF2F8C 83 06 sta $06,s4945 FF2F8E A5 BB lda SMTmpH4946 FF2F90 83 07 sta $07,s4947 FF2F92 A5 BC lda SMTmpK4948 FF2F94 83 08 sta $08,s4949 FF2F96 20 5A 01 jsr GetParm ; parametro 3 - numero settori4950 FF2F99 B0 15 bcs ?18 ; fine - OK4951 FF2F9B A5 BA lda SMTmpL4952 FF2F9D 83 05 sta $05,s4953 FF2F9F 20 5A 01 jsr GetParm ; parametro 4 - buffer4954 FF2FA2 B0 0C bcs ?18 ; fine - OK4955 FF2FA4 A5 BA lda SMTmpL4956 FF2FA6 83 02 sta $02,s4957 FF2FA8 A5 BB lda SMTmpH4958 FF2FAA 83 03 sta $03,s4959 FF2FAC A5 BC lda SMTmpK4960 ;lda #04961 FF2FAE 83 04 sta $04,s4962 FF2FB0 A5 BF ?18: lda SMSizeH ; C = stack frame4963 FF2FB2 EB xba4964 FF2FB3 A5 BE lda SMSizeL4965 FF2FB5 6C E2 01 jmp (DP01ADDR+SMTmp2) ; return49664967 ; ricava parametri per funzioni ATA DMA read/write4968 FF2FB8 GetATAParm2:4969 FF2FB8 FA plx ; return L4970 FF2FB9 68 pla ; return H4971 FF2FBA E8 inx ; scarta stack - necessario per4972 FF2FBB D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack4973 FF2FBD 1A inc a ; X,A -> indirizzo di ritorno4974 FF2FBE 86 E2 ?01: stx SMTmp24975 FF2FC0 85 E3 sta SMTmp2+14976 FF2FC2 ACC164977 FF2FC2 C2 20 rep #PMFLAG4978 .LONGA on4979 .MNLIST4980 FF2FC4 3B tsc ; stack frame4981 FF2FC5 38 secTue Jul 17 11:00:24 2018 Page 444982 FF2FC6 E9 07 00 sbc #7 ; crea parametri stack4983 FF2FC9 1B tcs4984 FF2FCA 1A inc a4985 FF2FCB 85 BE sta SMSizeL ; salva stack frame4986 FF2FCD ACC084987 FF2FCD E2 20 sep #PMFLAG4988 .LONGA off4989 .MNLIST4990 FF2FCF A5 BA lda SMTmpL ; parametro 1 - device4991 FF2FD1 29 01 and #$01 ; maschera device4992 FF2FD3 83 07 sta $07,s ; device4993 FF2FD5 A9 00 lda #04994 FF2FD7 83 01 sta $01,s ; nBuf default=$00004995 FF2FD9 83 02 sta $02,s4996 FF2FDB A9 40 lda #64 ; numero settori di default (64)4997 FF2FDD 83 03 sta $03,s4998 FF2FDF A9 00 lda #04999 FF2FE1 83 04 sta $04,s ; LBA di default (0)5000 FF2FE3 83 05 sta $05,s5001 FF2FE5 83 06 sta $06,s5002 FF2FE7 20 52 01 jsr GetParm32 ; parametro 2 - LBA5003 FF2FEA B0 22 bcs ?18 ; fine - OK5004 FF2FEC A5 BA lda SMTmpL5005 FF2FEE 83 04 sta $04,s5006 FF2FF0 A5 BB lda SMTmpH5007 FF2FF2 83 05 sta $05,s5008 FF2FF4 A5 BC lda SMTmpK5009 FF2FF6 83 06 sta $06,s5010 FF2FF8 20 5A 01 jsr GetParm ; parametro 3 - numero settori5011 FF2FFB B0 11 bcs ?18 ; fine - OK5012 FF2FFD A5 BA lda SMTmpL5013 FF2FFF 83 03 sta $03,s5014 FF3001 20 5A 01 jsr GetParm ; parametro 4 - buffer5015 FF3004 B0 08 bcs ?18 ; fine - OK5016 FF3006 A5 BA lda SMTmpL5017 FF3008 83 01 sta $01,s5018 FF300A A5 BB lda SMTmpH5019 FF300C 83 02 sta $02,s5020 FF300E A5 BF ?18: lda SMSizeH ; C = stack frame5021 FF3010 EB xba5022 FF3011 A5 BE lda SMSizeL5023 FF3013 6C E2 01 jmp (DP01ADDR+SMTmp2) ; return50245025 ; #sptest -p<port> -b -h<handshake> -r -e -t -u5026 ; -p: port 0 or 1 (default: 0)5027 ; -b: baud rate = 19,200 (default: 38,400)5028 ; -h: handshke level = 0,1,2 (defalt: 2)5029 ; 0=none, 1=software, 2=hardware5030 ; -r: RS485 (default: RS232)5031 ; -e: enable echo in rx mode (default mode: rx)5032 ; -t: enable tx mode (-e ignored)5033 ; -u: RS232 uplink (RS485 term.)5034 FF3016 Cmd_sptst:5035 .EXTERN lspset, lspget, lspput, lspres5036 .PUBLIC Cmd_sptst50375038 FF3016 SCN_CRTue Jul 17 11:00:24 2018 Page 455039 FF3016 SCNPRCHAR5040 .MLIST5041 FF3016 02 07 cop $075042 .MNLIST5043 FF3018 0D .DB $0D5044 .MNLIST5045 FF3019 64 E2 stz SMTmp2 ; port 05046 FF301B 64 E5 stz SMTmp2+3 ; no echo, rx mode5047 FF301D A9 02 lda #25048 FF301F 85 E3 sta SMTmp2+1 ; hardware handshake5049 FF3021 A9 D4 lda #11010100B5050 FF3023 85 E4 sta SMTmp2+25051 FF3025 A9 80 lda #$80 ; flag5052 FF3027 48 pha5053 FF3028 A6 E0 ldx cmdlin5054 FF302A ACC16CLC5055 FF302A C2 21 rep #(PMFLAG.OR.PCFLAG)5056 .LONGA on5057 .MNLIST5058 FF302C 8A txa5059 FF302D 69 00 99 adc #INPUTBUF5060 FF3030 A2 01 ldx #^INPUTBUF5061 FF3032 DA phx ; command line5062 FF3033 48 pha5063 FF3034 ACC085064 FF3034 E2 20 sep #PMFLAG5065 .LONGA off5066 .MNLIST5067 FF3036 4B phk ; option string5068 FF3037 F4 76 31 pea #!?1005069 FF303A F4 00 00 pea #0 ; result5070 FF303D F4 00 00 pea #05071 FF3040 22 09 00 FA ?10: jsl _getopt ; get opttion's loop5072 FF3044 B0 56 bcs ?26 ; error5073 FF3046 AA tax ; option char5074 FF3047 F0 53 beq ?26 ; end of command line5075 FF3049 30 50 bmi ?24 ; no option argument5076 FF304B C9 70 cmp #'p'5077 FF304D D0 08 bne ?125078 FF304F A3 01 lda $01,s5079 FF3051 29 01 and #15080 FF3053 85 E2 sta SMTmp2 ; port5081 FF3055 80 E9 bra ?105082 FF3057 C9 68 ?12: cmp #'h'5083 FF3059 D0 0E bne ?145084 FF305B A3 01 lda $01,s5085 FF305D 29 03 and #35086 FF305F C9 03 cmp #35087 FF3061 90 02 bcc ?135088 FF3063 A9 02 lda #25089 FF3065 85 E3 ?13: sta SMTmp2+1 ; handshake5090 FF3067 80 D7 bra ?105091 FF3069 C9 62 ?14: cmp #'b'5092 FF306B D0 06 bne ?165093 FF306D A9 10 lda #$105094 FF306F 14 E4 trb SMTmp2+2 ; 192005095 FF3071 80 CD bra ?10Tue Jul 17 11:00:24 2018 Page 465096 FF3073 C9 72 ?16: cmp #'r'5097 FF3075 D0 06 bne ?185098 FF3077 A9 02 lda #$025099 FF3079 04 E4 tsb SMTmp2+2 ; RS4855100 FF307B 80 C3 bra ?105101 FF307D C9 75 ?18: cmp #'u'5102 FF307F D0 06 bne ?205103 FF3081 A9 01 lda #$015104 FF3083 04 E4 tsb SMTmp2+2 ; RS485 term/RS232 uplink cable5105 FF3085 80 B9 bra ?105106 FF3087 C9 65 ?20: cmp #'e'5107 FF3089 D0 06 bne ?225108 FF308B A9 80 lda #$805109 FF308D 04 E5 tsb SMTmp2+3 ; rx+echo mode5110 FF308F 80 AF bra ?105111 FF3091 C9 74 ?22: cmp #'t'5112 FF3093 D0 06 bne ?245113 FF3095 A9 40 lda #$405114 FF3097 04 E5 tsb SMTmp2+3 ; tx mode5115 FF3099 80 A5 bra ?105116 FF309B 38 ?24: sec5117 FF309C 08 ?26: php ; clean stack5118 FF309D FA plx ; save carry5119 FF309E ACC16CLC5120 FF309E C2 21 rep #(PMFLAG.OR.PCFLAG)5121 .LONGA on5122 .MNLIST5123 FF30A0 3B tsc5124 FF30A1 69 0B 00 adc #115125 FF30A4 1B tcs5126 FF30A5 ACC085127 FF30A5 E2 20 sep #PMFLAG5128 .LONGA off5129 .MNLIST5130 FF30A7 8A txa5131 FF30A8 4A lsr a ; test carry5132 FF30A9 90 03 bcc ?28 ; ok5133 FF30AB 4C 34 01 jmp ErrCls25134 FF30AE A5 E3 ?28: lda SMTmp2+15135 FF30B0 D0 06 bne ?305136 FF30B2 A9 C0 lda #$C05137 FF30B4 14 E4 trb SMTmp2+25138 FF30B6 80 12 bra ?345139 FF30B8 C9 01 ?30: cmp #15140 FF30BA D0 0A bne ?325141 FF30BC A9 C0 lda #$C05142 FF30BE 14 E4 trb SMTmp2+25143 FF30C0 A9 80 lda #$805144 FF30C2 04 E4 tsb SMTmp2+25145 FF30C4 80 04 bra ?345146 FF30C6 A9 C0 ?32: lda #$C05147 FF30C8 04 E4 tsb SMTmp2+25148 FF30CA A6 E2 ?34: ldx SMTmp2 ; X=port5149 FF30CC A5 E4 lda SMTmp2+2 ; A=mode5150 FF30CE 22 06 08 F8 jsl lspset5151 FF30D2 A5 E2 lda SMTmp25152 FF30D4 0A asl aTue Jul 17 11:00:24 2018 Page 475153 FF30D5 0A asl a5154 FF30D6 85 E3 sta SMTmp2+15155 FF30D8 3B tsc5156 FF30D9 85 E6 sta SMTmp2+45157 FF30DB EB xba5158 FF30DC 85 E7 sta SMTmp2+55159 FF30DE 24 E5 bit SMTmp2+3 ; check tx/rx mode5160 FF30E0 70 03 bvs ?40 ; tx mode5161 FF30E2 4C 85 31 jmp ?3005162 FF30E55163 FF30E5 64 BA ?40: stz SMTmpL5164 FF30E7 64 BB stz SMTmpH5165 FF30E9 A6 E3 ?41: ldx SMTmp2+15166 FF30EB 3C 56 00 bit !splin,x5167 FF30EE 10 07 bpl ?42 ; on line5168 FF30F0 20 80 1A jsr CkStop5169 FF30F3 D0 F4 bne ?415170 FF30F5 F0 47 beq ?90 ; stop5171 FF30F7 A9 0D ?42: lda #$0D5172 FF30F9 20 56 31 jsr ?2005173 FF30FC 20 80 1A ?45: jsr CkStop ; loop TX5174 FF30FF F0 3D beq ?90 ; stop5175 FF3101 A5 BB lda SMTmpH5176 FF3103 20 7C 19 jsr FF_Byte2Hex5177 FF3106 DA phx5178 FF3107 20 56 31 jsr ?200 ; send5179 FF310A 68 pla5180 FF310B 20 56 31 jsr ?200 ; send5181 FF310E A5 BA lda SMTmpL5182 FF3110 20 7C 19 jsr FF_Byte2Hex5183 FF3113 DA phx5184 FF3114 20 56 31 jsr ?2005185 FF3117 68 pla5186 FF3118 20 56 31 jsr ?2005187 FF311B A9 20 lda #' '5188 FF311D 20 56 31 jsr ?2005189 FF3120 A9 40 lda #$405190 FF3122 85 BC sta SMTmpK5191 FF3124 A5 BC ?47: lda SMTmpK5192 FF3126 20 56 31 jsr ?2005193 FF3129 E6 BC inc SMTmpK5194 FF312B A5 BC lda SMTmpK5195 FF312D C9 7E cmp #$7E5196 FF312F 90 F3 bcc ?475197 FF3131 A9 0D lda #$0D5198 FF3133 20 56 31 jsr ?2005199 FF3136 ACC165200 FF3136 C2 20 rep #PMFLAG5201 .LONGA on5202 .MNLIST5203 FF3138 E6 BA inc SMTmpL5204 FF313A ACC085205 FF313A E2 20 sep #PMFLAG5206 .LONGA off5207 .MNLIST5208 FF313C 80 BE bra ?455209 FF313ETue Jul 17 11:00:24 2018 Page 485210 FF313E A9 FF ?90: lda #$FF ; stop: CTRL BREAK5211 FF3140 ?91: SCN_CR5212 FF3140 SCNPRCHAR5213 .MLIST5214 FF3140 02 07 cop $075215 .MNLIST5216 FF3142 0D .DB $0D5217 .MNLIST5218 FF3143 20 4E 19 jsr PrintByte5219 FF3146 SCN_CR5220 FF3146 SCNPRCHAR5221 .MLIST5222 FF3146 02 07 cop $075223 .MNLIST5224 FF3148 0D .DB $0D5225 .MNLIST5226 FF3149 A6 E2 ?99: ldx SMTmp25227 FF314B 22 16 08 F8 jsl lspres5228 FF314F A5 E7 lda SMTmp2+55229 FF3151 EB xba5230 FF3152 A5 E6 lda SMTmp2+45231 FF3154 1B tcs5232 FF3155 60 rts5233 FF31565234 FF3156 A6 E2 ?200: ldx SMTmp25235 FF3158 22 F6 07 F8 ?210: jsl lspput5236 FF315C 90 07 bcc ?2155237 FF315E C8 iny5238 FF315F D0 F7 bne ?2105239 FF3161 A9 80 lda #$80 ; remote off-line5240 FF3163 80 DB bra ?915241 FF31655242 FF3165 24 E5 ?215: bit SMTmp2+35243 FF3167 10 0C bpl ?2505244 FF3169 22 E6 07 F8 jsl lspget5245 FF316D B0 03 bcs ?2205246 FF316F TXTCHAROUT5247 FF316F 02 06 cop $065248 .MNLIST5249 FF3171 60 rts5250 FF3172 A8 ?220: tay5251 FF3173 D0 CB bne ?915252 FF3175 60 ?250: rts52535254 FF31765255 FF3176 70 25 62 20 68 ?100: .DB 'p%b h%r e t u ', 025 72 20 65 2074 20 75 20 0052565257 FF3185 A9 30 ?300: lda #'0'5258 FF3187 8D 00 20 sta !$20005259 FF318A 8D 01 20 sta !$20015260 FF318D 8D 02 20 sta !$20025261 FF3190 8D 03 20 sta !$20035262 FF3193 A9 20 lda #' '5263 FF3195 8D 04 20 sta !$20045264 FF3198 A9 40 lda #$40Tue Jul 17 11:00:24 2018 Page 495265 FF319A A2 00 ldx #05266 FF319C 9D 05 20 ?300l: sta !$2005,x5267 FF319F E8 inx5268 FF31A0 1A inc a5269 FF31A1 C9 7E cmp #$7E5270 FF31A3 90 F7 bcc ?300l5271 FF31A5 9E 05 20 stz !$2005,x5272 FF31A8 64 BA ?300w: stz SMTmpL5273 FF31AA 64 BB stz SMTmpH5274 FF31AC 64 BC stz SMTmpK5275 FF31AE A6 E3 ldx SMTmp2+15276 FF31B0 3C 56 00 bit !splin,x5277 FF31B3 10 07 bpl ?320 ; on line5278 FF31B5 20 80 1A jsr CkStop5279 FF31B8 D0 EE bne ?300w5280 FF31BA F0 76 beq ?3405281 FF31BC A5 BC ?320: lda SMTmpK5282 FF31BE D0 16 bne ?320z52835284 FF31C0 A5 BB lda SMTmpH5285 FF31C2 20 7C 19 jsr FF_Byte2Hex5286 FF31C5 8D 00 20 sta !$20005287 FF31C8 8E 01 20 stx .ABS.$20015288 FF31CB A5 BA lda SMTmpL5289 FF31CD 20 7C 19 jsr FF_Byte2Hex5290 FF31D0 8D 02 20 sta !$20025291 FF31D3 8E 03 20 stx .ABS.$20035292 FF31D65293 FF31D6 20 80 1A ?320z: jsr CkStop5294 FF31D9 F0 57 beq ?3405295 FF31DB A6 E2 ldx SMTmp25296 FF31DD 22 E6 07 F8 jsl lspget5297 FF31E1 B0 4A bcs ?3305298 FF31E3 C9 0A cmp #$0A5299 FF31E5 F0 31 beq ?3245300 FF31E7 C9 0D cmp #$0D5301 FF31E9 D0 12 bne ?320a5302 FF31EB A6 BC ldx SMTmpK5303 FF31ED F0 29 beq ?3245304 FF31EF E0 43 cpx #$435305 FF31F1 D0 1B bne ?320e5306 FF31F3 ACC165307 FF31F3 C2 20 rep #PMFLAG5308 .LONGA on5309 .MNLIST5310 FF31F5 E6 BA inc SMTmpL5311 FF31F7 ACC085312 FF31F7 E2 20 sep #PMFLAG5313 .LONGA off5314 .MNLIST5315 FF31F9 64 BC stz SMTmpK5316 FF31FB 80 1B bra ?3245317 FF31FD C9 09 ?320a: cmp #$095318 FF31FF F0 17 beq ?3245319 FF3201 C9 20 cmp #$205320 FF3203 90 B7 bcc ?3205321 FF3205 A6 BC ldx SMTmpKTue Jul 17 11:00:24 2018 Page 505322 FF3207 E6 BC inc SMTmpK5323 FF3209 DD 00 20 cmp !$2000,x5324 FF320C F0 0A beq ?3245325 FF320E 8E 50 20 ?320e: stx $20505326 FF3211 8D 51 20 sta $20515327 FF3214 A9 E5 lda #$E55328 FF3216 80 15 bra ?3305329 FF3218 ?324: TXTCHAROUT5330 FF3218 02 06 cop $065331 .MNLIST5332 FF321A 24 E5 bit SMTmp2+35333 FF321C 10 9E bpl ?3205334 FF321E ?325a:5335 FF321E A6 E2 ldx SMTmp25336 FF3220 22 F6 07 F8 ?325: jsl lspput5337 FF3224 90 96 bcc ?3205338 FF3226 C8 iny5339 FF3227 D0 F7 bne ?3255340 FF3229 A9 80 lda #$805341 FF322B 80 07 bra ?3505342 FF322D A8 ?330: tay5343 FF322E F0 8C beq ?3205344 FF3230 80 02 bra ?3505345 FF3232 A9 FF ?340: lda #$FF5346 FF3234 ?350: SCN_CR5347 FF3234 SCNPRCHAR5348 .MLIST5349 FF3234 02 07 cop $075350 .MNLIST5351 FF3236 0D .DB $0D5352 .MNLIST5353 FF3237 20 4E 19 jsr PrintByte5354 FF323A A6 E2 ldx SMTmp25355 FF323C 22 16 08 F8 jsl lspres5356 FF3240 A5 E7 lda SMTmp2+55357 FF3242 EB xba5358 FF3243 A5 E6 lda SMTmp2+45359 FF3245 1B tcs5360 FF3246 60 rts53615362 ; #asptest -p<port> -b<baud_rate> -h<handshake> -e -t -n5363 ; -p: port 0 or 1 (default: 0)5364 ; -b: baud rate = 0,1,2,3 (default: 1 = 38,400)5365 ; -h: handshke level = 0,1,2 (defalt: 2)5366 ; 0=none, 1=software, 2=hardware5367 ; -e: enable echo in rx mode (default mode: rx)5368 ; -t: enable tx mode (-e ignored)5369 ; -n: no FIFO5370 FF3247 Cmd_asptst:5371 .EXTERN lspset2, lspget2, lspput2, lspres25372 .PUBLIC Cmd_asptst53735374 FF3247 SCN_CR5375 FF3247 SCNPRCHAR5376 .MLIST5377 FF3247 02 07 cop $075378 .MNLISTTue Jul 17 11:00:24 2018 Page 515379 FF3249 0D .DB $0D5380 .MNLIST5381 FF324A 64 E2 stz SMTmp2 ; port 05382 FF324C 64 E5 stz SMTmp2+3 ; no echo, rx mode5383 FF324E A9 02 lda #25384 FF3250 85 E3 sta SMTmp2+1 ; hardware handshake5385 FF3252 A9 C5 lda #11000101B5386 FF3254 85 E4 sta SMTmp2+25387 FF3256 A9 80 lda #$80 ; flag5388 FF3258 48 pha5389 FF3259 A6 E0 ldx cmdlin5390 FF325B ACC16CLC5391 FF325B C2 21 rep #(PMFLAG.OR.PCFLAG)5392 .LONGA on5393 .MNLIST5394 FF325D 8A txa5395 FF325E 69 00 99 adc #INPUTBUF5396 FF3261 A2 01 ldx #^INPUTBUF5397 FF3263 DA phx ; command line5398 FF3264 48 pha5399 FF3265 ACC085400 FF3265 E2 20 sep #PMFLAG5401 .LONGA off5402 .MNLIST5403 FF3267 4B phk ; option string5404 FF3268 F4 AC 33 pea #!?1005405 FF326B F4 00 00 pea #0 ; result5406 FF326E F4 00 00 pea #05407 FF3271 22 09 00 FA ?10: jsl _getopt ; get opttion's loop5408 FF3275 B0 54 bcs ?26 ; error5409 FF3277 AA tax ; option char5410 FF3278 F0 51 beq ?26 ; end of command line5411 FF327A 30 4E bmi ?24 ; no option argument5412 FF327C C9 70 cmp #'p'5413 FF327E D0 08 bne ?125414 FF3280 A3 01 lda $01,s5415 FF3282 29 01 and #15416 FF3284 85 E2 sta SMTmp2 ; port5417 FF3286 80 E9 bra ?105418 FF3288 C9 68 ?12: cmp #'h'5419 FF328A D0 0E bne ?145420 FF328C A3 01 lda $01,s5421 FF328E 29 03 and #35422 FF3290 C9 03 cmp #35423 FF3292 90 02 bcc ?135424 FF3294 A9 02 lda #25425 FF3296 85 E3 ?13: sta SMTmp2+1 ; handshake5426 FF3298 80 D7 bra ?105427 FF329A C9 62 ?14: cmp #'b'5428 FF329C D0 0E bne ?165429 FF329E A3 01 lda $01,s5430 FF32A0 29 03 and #35431 FF32A2 AA tax5432 FF32A3 A9 03 lda #35433 FF32A5 14 E4 trb SMTmp2+25434 FF32A7 8A txa5435 FF32A8 04 E4 tsb SMTmp2+2Tue Jul 17 11:00:24 2018 Page 525436 FF32AA 80 C5 bra ?105437 FF32AC C9 6E ?16: cmp #'n'5438 FF32AE D0 06 bne ?205439 FF32B0 A9 20 lda #$205440 FF32B2 04 E4 tsb SMTmp2+25441 FF32B4 80 BB bra ?105442 FF32B6 C9 65 ?20: cmp #'e'5443 FF32B8 D0 06 bne ?225444 FF32BA A9 80 lda #$805445 FF32BC 04 E5 tsb SMTmp2+3 ; rx+echo mode5446 FF32BE 80 B1 bra ?105447 FF32C0 C9 74 ?22: cmp #'t'5448 FF32C2 D0 06 bne ?245449 FF32C4 A9 40 lda #$405450 FF32C6 04 E5 tsb SMTmp2+3 ; tx mode5451 FF32C8 80 A7 bra ?105452 FF32CA 38 ?24: sec5453 FF32CB 08 ?26: php ; clean stack5454 FF32CC FA plx ; save carry5455 FF32CD ACC16CLC5456 FF32CD C2 21 rep #(PMFLAG.OR.PCFLAG)5457 .LONGA on5458 .MNLIST5459 FF32CF 3B tsc5460 FF32D0 69 0B 00 adc #115461 FF32D3 1B tcs5462 FF32D4 ACC085463 FF32D4 E2 20 sep #PMFLAG5464 .LONGA off5465 .MNLIST5466 FF32D6 8A txa5467 FF32D7 4A lsr a ; test carry5468 FF32D8 90 03 bcc ?28 ; ok5469 FF32DA 4C 34 01 jmp ErrCls25470 FF32DD A5 E3 ?28: lda SMTmp2+15471 FF32DF D0 06 bne ?305472 FF32E1 A9 C0 lda #$C05473 FF32E3 14 E4 trb SMTmp2+25474 FF32E5 80 12 bra ?345475 FF32E7 C9 01 ?30: cmp #15476 FF32E9 D0 0A bne ?325477 FF32EB A9 C0 lda #$C05478 FF32ED 14 E4 trb SMTmp2+25479 FF32EF A9 80 lda #$805480 FF32F1 04 E4 tsb SMTmp2+25481 FF32F3 80 04 bra ?345482 FF32F5 A9 C0 ?32: lda #$C05483 FF32F7 04 E4 tsb SMTmp2+25484 FF32F9 A6 E2 ?34: ldx SMTmp2 ; X=port5485 FF32FB A5 E4 lda SMTmp2+2 ; A=mode5486 FF32FD 22 78 0D F8 jsl lspset25487 FF3301 A5 E2 lda SMTmp25488 FF3303 0A asl a5489 FF3304 0A asl a5490 FF3305 85 E3 sta SMTmp2+15491 FF3307 3B tsc5492 FF3308 85 E6 sta SMTmp2+4Tue Jul 17 11:00:24 2018 Page 535493 FF330A EB xba5494 FF330B 85 E7 sta SMTmp2+55495 FF330D 24 E5 bit SMTmp2+3 ; check tx/rx mode5496 FF330F 70 03 bvs ?40 ; tx mode5497 FF3311 4C B9 33 jmp ?3005498 FF33145499 FF3314 64 BA ?40: stz SMTmpL5500 FF3316 64 BB stz SMTmpH5501 FF3318 A6 E2 ?41: ldx SMTmp25502 FF331A F0 05 beq ?41a5503 FF331C 2C 16 05 bit !DP05ADDR+splin35504 FF331F 80 03 bra ?41b5505 FF3321 2C 2C 05 ?41a: bit !DP05ADDR+splin45506 FF3324 50 07 ?41b: bvc ?42 ; on line5507 FF3326 20 80 1A jsr CkStop5508 FF3329 D0 ED bne ?415509 FF332B F0 47 beq ?90 ; stop5510 FF332D A9 0D ?42: lda #$0D5511 FF332F 20 8C 33 jsr ?2005512 FF3332 20 80 1A ?45: jsr CkStop ; loop TX5513 FF3335 F0 3D beq ?90 ; stop5514 FF3337 A5 BB lda SMTmpH5515 FF3339 20 7C 19 jsr FF_Byte2Hex5516 FF333C DA phx5517 FF333D 20 8C 33 jsr ?200 ; send5518 FF3340 68 pla5519 FF3341 20 8C 33 jsr ?200 ; send5520 FF3344 A5 BA lda SMTmpL5521 FF3346 20 7C 19 jsr FF_Byte2Hex5522 FF3349 DA phx5523 FF334A 20 8C 33 jsr ?2005524 FF334D 68 pla5525 FF334E 20 8C 33 jsr ?2005526 FF3351 A9 20 lda #' '5527 FF3353 20 8C 33 jsr ?2005528 FF3356 A9 40 lda #$405529 FF3358 85 BC sta SMTmpK5530 FF335A A5 BC ?47: lda SMTmpK5531 FF335C 20 8C 33 jsr ?2005532 FF335F E6 BC inc SMTmpK5533 FF3361 A5 BC lda SMTmpK5534 FF3363 C9 7E cmp #$7E5535 FF3365 90 F3 bcc ?475536 FF3367 A9 0D lda #$0D5537 FF3369 20 8C 33 jsr ?2005538 FF336C ACC165539 FF336C C2 20 rep #PMFLAG5540 .LONGA on5541 .MNLIST5542 FF336E E6 BA inc SMTmpL5543 ;lda SMTmpL5544 ;cmp #85545 FF3370 ACC085546 FF3370 E2 20 sep #PMFLAG5547 .LONGA off5548 .MNLIST5549 FF3372 80 BE bra ?45Tue Jul 17 11:00:24 2018 Page 545550 ;bcc ?455551 FF33745552 FF3374 A9 FF ?90: lda #$FF ; stop: CTRL BREAK5553 FF3376 ?91: SCN_CR5554 FF3376 SCNPRCHAR5555 .MLIST5556 FF3376 02 07 cop $075557 .MNLIST5558 FF3378 0D .DB $0D5559 .MNLIST5560 FF3379 20 4E 19 jsr PrintByte5561 FF337C SCN_CR5562 FF337C SCNPRCHAR5563 .MLIST5564 FF337C 02 07 cop $075565 .MNLIST5566 FF337E 0D .DB $0D5567 .MNLIST5568 FF337F A6 E2 ?99: ldx SMTmp25569 FF3381 22 8A 0D F8 jsl lspres25570 FF3385 A5 E7 lda SMTmp2+55571 FF3387 EB xba5572 FF3388 A5 E6 lda SMTmp2+45573 FF338A 1B tcs5574 FF338B 60 rts5575 FF338C5576 FF338C A6 E2 ?200: ldx SMTmp25577 FF338E 22 66 0D F8 ?210: jsl lspput25578 FF3392 90 07 bcc ?2155579 FF3394 C8 iny5580 FF3395 D0 F7 bne ?2105581 FF3397 A9 80 lda #$80 ; remote off-line5582 FF3399 80 DB bra ?915583 FF339B5584 FF339B 24 E5 ?215: bit SMTmp2+35585 FF339D 10 0C bpl ?2505586 FF339F 22 54 0D F8 jsl lspget25587 FF33A3 B0 03 bcs ?2205588 FF33A5 TXTCHAROUT5589 FF33A5 02 06 cop $065590 .MNLIST5591 FF33A7 60 rts5592 FF33A8 A8 ?220: tay5593 FF33A9 D0 CB bne ?915594 FF33AB 60 ?250: rts55955596 FF33AC5597 FF33AC 70 25 62 25 68 ?100: .DB 'p%b%h%e t n ', 025 65 20 74 206E 20 0055985599 ; RX mode5600 FF33B9 A9 30 ?300: lda #'0'5601 FF33BB 8D 00 20 sta !$20005602 FF33BE 8D 01 20 sta !$20015603 FF33C1 8D 02 20 sta !$20025604 FF33C4 8D 03 20 sta !$2003Tue Jul 17 11:00:24 2018 Page 555605 FF33C7 A9 20 lda #' '5606 FF33C9 8D 04 20 sta !$20045607 FF33CC A9 40 lda #$405608 FF33CE A2 00 ldx #05609 FF33D0 9D 05 20 ?300l: sta !$2005,x5610 FF33D3 E8 inx5611 FF33D4 1A inc a5612 FF33D5 C9 7E cmp #$7E5613 FF33D7 90 F7 bcc ?300l5614 FF33D9 9E 05 20 stz !$2005,x5615 FF33DC 64 BA ?300w: stz SMTmpL5616 FF33DE 64 BB stz SMTmpH5617 FF33E0 64 BC stz SMTmpK5618 FF33E2 A6 E2 ldx SMTmp25619 FF33E4 F0 05 beq ?320aa5620 FF33E6 2C 16 05 bit !DP05ADDR+splin35621 FF33E9 80 03 bra ?320b5622 FF33EB 2C 2C 05 ?320aa: bit !DP05ADDR+splin45623 FF33EE 10 08 ?320b: bpl ?320 ; on line5624 FF33F0 20 80 1A jsr CkStop5625 FF33F3 D0 E7 bne ?300w5626 ;beq ?3405627 FF33F5 4C 78 34 jmp ?34056285629 FF33F8 A5 BC ?320: lda SMTmpK5630 FF33FA D0 16 bne ?320z56315632 FF33FC A5 BB lda SMTmpH5633 FF33FE 20 7C 19 jsr FF_Byte2Hex5634 FF3401 8D 00 20 sta !$20005635 FF3404 8E 01 20 stx .ABS.$20015636 FF3407 A5 BA lda SMTmpL5637 FF3409 20 7C 19 jsr FF_Byte2Hex5638 FF340C 8D 02 20 sta !$20025639 FF340F 8E 03 20 stx .ABS.$20035640 FF34125641 FF3412 20 80 1A ?320z: jsr CkStop5642 FF3415 F0 61 beq ?3405643 FF3417 A6 E2 ldx SMTmp25644 FF3419 22 54 0D F8 jsl lspget25645 FF341D B0 54 bcs ?3305646 FF341F C9 0A cmp #$0A5647 FF3421 F0 3B beq ?3245648 FF3423 C9 0D cmp #$0D5649 FF3425 D0 1C bne ?320a5650 FF3427 A6 BC ldx SMTmpK5651 FF3429 F0 33 beq ?3245652 FF342B E0 43 cpx #$435653 ;bne ?320e5654 FF342D F0 0A beq ?320xxx5655 FF342F 8E 50 20 stx $20505656 FF3432 8D 51 20 sta $20515657 FF3435 A9 E6 lda #$E65658 FF3437 80 3A bra ?3305659 FF34395660 FF3439 ?320xxx:5661 FF3439 ACC16Tue Jul 17 11:00:24 2018 Page 565662 FF3439 C2 20 rep #PMFLAG5663 .LONGA on5664 .MNLIST5665 FF343B E6 BA inc SMTmpL5666 FF343D ACC085667 FF343D E2 20 sep #PMFLAG5668 .LONGA off5669 .MNLIST5670 FF343F 64 BC stz SMTmpK5671 FF3441 80 1B bra ?3245672 FF3443 C9 09 ?320a: cmp #$095673 FF3445 F0 17 beq ?3245674 FF3447 C9 20 cmp #$205675 FF3449 90 AD bcc ?3205676 FF344B A6 BC ldx SMTmpK5677 FF344D E6 BC inc SMTmpK5678 FF344F DD 00 20 cmp !$2000,x5679 FF3452 F0 0A beq ?3245680 ;bne ?3245681 FF3454 8E 50 20 ?320e: stx $20505682 FF3457 8D 51 20 sta $20515683 FF345A A9 E5 lda #$E55684 FF345C 80 15 bra ?3305685 FF345E ?324: TXTCHAROUT5686 FF345E 02 06 cop $065687 .MNLIST5688 FF3460 24 E5 bit SMTmp2+35689 FF3462 10 94 bpl ?3205690 FF3464 ?325a:5691 FF3464 A6 E2 ldx SMTmp25692 FF3466 22 66 0D F8 ?325: jsl lspput25693 FF346A 90 8C bcc ?3205694 FF346C C8 iny5695 FF346D D0 F7 bne ?3255696 FF346F A9 80 lda #$805697 FF3471 80 07 bra ?3505698 FF3473 A8 ?330: tay5699 FF3474 F0 82 beq ?3205700 FF3476 80 02 bra ?3505701 FF3478 A9 FF ?340: lda #$FF5702 FF347A ?350: SCN_CR5703 FF347A SCNPRCHAR5704 .MLIST5705 FF347A 02 07 cop $075706 .MNLIST5707 FF347C 0D .DB $0D5708 .MNLIST5709 FF347D 20 4E 19 jsr PrintByte5710 FF3480 A6 E2 ldx SMTmp25711 FF3482 22 8A 0D F8 jsl lspres25712 FF3486 A5 E7 lda SMTmp2+55713 FF3488 EB xba5714 FF3489 A5 E6 lda SMTmp2+45715 FF348B 1B tcs5716 FF348C 60 rts57175718 FF348D ATACPYSTR1:Tue Jul 17 11:00:24 2018 Page 575719 FF348D 72 65 61 64 20 .DB 'read %02bX sect. from %08X to %08X (Total %08X, dev. #%01bX)', $0020 25 30 32 6258 20 73 65 6374 2E 20 66 726F 6D 20 25 3038 58 20 74 6F20 25 30 38 5820 28 54 6F 7461 6C 20 25 3038 58 2C 20 6465 76 2E 20 2325 30 31 62 5829 0057205721 FF34CB ATACPYSTR2:5722 FF34CB 77 72 69 74 65 .DB 'write %02bX sect. from %08X to %08X (Total %08X, dev. #%01bX)', $0020 25 30 32 6258 20 73 65 6374 2E 20 66 726F 6D 20 25 3038 58 20 74 6F20 25 30 38 5820 28 54 6F 7461 6C 20 25 3038 58 2C 20 6465 76 2E 20 2325 30 31 62 5829 00Lines Assembled : 5193 Errors : 0