Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:17 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F8\vprint.asmOutput Filename : obj\F8\vprint.objListing Has Been Relocated2642 .LIST on26432644 F8FFB1 .INCLUDE inc\dirp02.inc2645 ;----------------------------------------------------------2646 ; DIRP02.ASM2647 ; PROGETTO: B16012648 ;2649 ; Variabili in Direct Page $022650 ;----------------------------------------------------------26512652 ; sezione COMMON -- questo permette di includere il file in piu' file26532654 DIRP02: .SECTION page0, ref_only, common ;Direct-Page 0226552656 000000 .ABSOLUTE ;; inizia sempre da $002657 000000 .ORG 0x002658 0000002659 ; variabili usate nella funzione _vprintl e famiglia funzioni di formattazione2660 000000 0000 FmtParm .DW ;; ptr array parametri banco 02661 000002 FmtLPFmt LP ;; long ptr stringa szFmt2662 000005 FmtLPPut LP ;; long ptr funzione 'putter'2663 000008 00 FmtSpec .DB ;; indice '%' corrente in szFmt2664 000009 00 FmtWidth .DB ;; campo width2665 00000A 00 FmtPrec .DB ;; campo precision2666 00000B 00 FmtFlag .DB ;; flag formattazione2667 00000C 00 FmtSgn .DB ;; segno positivo (se 0 -> no segno)2668 00000D 00 VStoreF .DB ;; flag modo store2669 00000E 00 FmtMod .DB ;; flag modificatori2670 00000F 00 FmtDst .DB ;; ptr stringa szDst banco 026712672 000010 0000 FmtCnt .DW ;; contatore caratteri2673 000012 0000 FmtGMax .DW ;; max. len stringa globale2674 0000142675 000014 0000 XVDec .DW ; esponente decimale (signed)2676 000016 00 XVFlag .DB ; flag per conversioni numeriche2677 0000172678 000017 00 ACMCmps .DB ; flag compare segno e tipo (intero)26792680 000018 ACM DQ ; accumulatore #1 integer 64 bit2681 000020 00 ACMSize .DB ; size2682 000021 00 ACMSgn .DB ; <7>:segno, <6>:tipo signed2683 000022 00 ACMMinSize .DB ; minima dimensione richiesta per ACM2684 000023 00 IARGMinSize .DB26852686 000024 00 FPTmp1 .DB ; byte temporaneo2687 000025 00 FPTmp2 .DB ; byte temporaneoTue Jul 17 11:00:17 2018 Page 22688 000026 00 FPTmp3 .DB ; byte temporaneo2689 000027 00 FPTmp4 .DB ; byte temporaneo26902691 000028 IARG DQ ; accumulatore #2 integer 64 bit2692 000030 00 IARGSize .DB ; size2693 000031 00 IARGSgn .DB ; <7>:segno, <6>:tipo signed26942695 000032 FOP DS 9 ; temporaneo per FDIV/FMULT/integer MULT/DIV2696 ; conversione integer -> string2697 00003B 00 FPIndx .DB ; byte generico indice2698 00003C 0000 FPWTmp7 .DW ; word temporanea2699 00003E 0000 FPWTmp8 .DW ; word temporanea27002701 ; variabili temporanee sovrapposte a FOP2702 000036 FACXM .EQU FOP+4 ; byte temporaneo2703 000037 ARGXM .EQU FOP+5 ; byte temporaneo2704 000038 FPWTmp5 .EQU FOP+6 ; word temporanea2705 00003A FPTmp6 .EQU FOP+8 ; byte temporaneo27062707 ; Floating Point Accumulator #1 - FAC2708 000040 00 FACSGN .DB ; FAC mantissa sign2709 000041 00 FACEXT .DB ; FAC 8 bit extension (rounding)2710 000042 FACM DQ ; FAC Mantissa (64 bit)2711 00004A 0000 FACExp .DW ; FAC Exponent2712 00004A FACEXPL .EQU FACExp ; FAC Exponent Low2713 00004B FACEXPH .EQU FACExp+1 ; FAC Exponent Hi27142715 00004C 00 FACSCMP .DB ; Sign Comparison Result: FAC vs ARG2716 00004D 00 FACMlt .DB ; flag MULT2717 00004E 00 FACUndf .DB ; conteggio shift per underflow2718 00004F 00 FPDCnt .DB ; contatore per inserzione punto decimale2719 0000502720 ; Floating Point Accumulator #2 - ARG2721 000050 00 ARGSGN .DB ; ARG mantissa sign2722 000051 00 ARGEXT .DB ; ARG 8 bit extension (rounding)2723 000052 ARGM DQ ; ARG Mantissa (64 bit)2724 00005A 0000 ARGExp .DW ; ARG Exponent2725 00005A ARGEXPL .EQU ARGExp ; ARG Exponent Low2726 00005B ARGEXPH .EQU ARGExp+1 ; ARG Exponent Hi27272728 ; numero bytes FAC2729 00000A FACSIZE .EQU (FACEXPH - FACEXT)2730 000008 MANTSIZE .EQU (FACSIZE - 2)2731 000040 FACMBITS .EQU (MANTSIZE * 8)2732 000041 FAC .EQU FACEXT2733 000051 ARG .EQU ARGEXT27342735 00005C 0000 FPWTmp .DW2736 00005E 0000 FPExp .DW ; esponente conversioni str/float2737 000060 FPLPtr LP ; long ptr operazioni move2738 000063 00 FPFlag .DB ; flag generico operazioni FPU2739 000064 FACTmp .DS 12 ; registro FAC temporaneo (con sgn ed ext)27402741 ; buffer per conversione da int/float a string (20 digit + 2)2742 000016 FPSTRSIZE .EQU 222743 000070 FPUStr .DS FPSTRSIZE2744Tue Jul 17 11:00:17 2018 Page 32745 ; buffer per formattazione int/float2746 000030 XFSTRSIZE .EQU 482747 000086 XCVTStr .DS XFSTRSIZE2748 0000B5 XCVTStrEnd .EQU ($ - 1)27492750 0000B6 DUMMY100 .DS 2227512752 000060 PTR1 .EQU FPLPtr ; long ptr operazioni 'move'2753 000063 FPFLAG .EQU FPFlag2754 00004F FPDCNT .EQU FPDCnt2755 0000CC2756 0000CC .RELATIVE27572758 .ENDS27592760 FFFFB0 MAXMANTSHIFT .EQU (-(FACMBITS + 16)) ; max. shift divisione mant.2761 00002F XCVTMAXF .EQU (XFSTRSIZE - 1) ; max. caratteri formato F2762 000027 XCVTMAXE .EQU (XCVTMAXF - 8) ; max. caratteri formato E2763 00002E XCVTMAXI .EQU (XFSTRSIZE - 2) ; max. caratteri stringa int.27642765 F8FFB1276627672768 000008 FMINPREC .EQU 8 ; minimum float precision (if unspecified)2769 000205 GLPPUT .EQU DP02ADDR+FmtLPPut ; long pointer to putter function27702771 F8FFB12772 ;----------------------------------------------------------27732774 ; spec's class2775 000000 _dc .EQU 0 ;/* don't care */2776 000001 _si .EQU 1 ;/* sign fill +/- */2777 000002 _af .EQU 2 ;/* alternate form */2778 000003 _ar .EQU 3 ;/* format (width or precision) by argument */2779 000004 _lj .EQU 4 ;/* left justify */2780 000005 _pr .EQU 5 ;/* precision */2781 000006 _nu .EQU 6 ;/* numeral */2782 000007 _lo .EQU 7 ;/* long */2783 000008 _sh .EQU 8 ;/* short */2784 000009 _SH .EQU 9 ;/* byte */2785 00000A _fz .EQU 10 ;/* fill zeros */2786 00000B _de .EQU 11 ;/* decimal */2787 00000C _un .EQU 12 ;/* unsigned decimal */2788 00000D _he .EQU 13 ;/* hexadecimal */2789 00000E _pt .EQU 14 ;/* pointer */2790 00000F _HE .EQU 15 ;/* HEXADECIMAL */2791 000010 _PT .EQU 16 ;/* POINTER */2792 000011 _ch .EQU 17 ;/* char */2793 000012 _st .EQU 18 ;/* string */2794 000013 _ff .EQU 19 ;/* float %f/F */2795 000014 _fe .EQU 20 ;/* float %e */2796 000015 _fg .EQU 21 ;/* float %g */2797 000016 _FE .EQU 22 ;/* float %E */2798 000017 _FG .EQU 23 ;/* float %G */2799 000018 _tg .EQU 24 ;/* thousand group */2800 000019 _bc .EQU 25 ;/* BCD float numbers */2801 00001A _PS .EQU 26 ;/* pascal/basic string */Tue Jul 17 11:00:17 2018 Page 42802 00001B _xf .EQU 27 ;/* hex float */2803 00001C _XF .EQU 28 ;/* HEX FLOAT */28042805 ; FmtFlag flag2806 000080 F_ALTFMT .EQU $802807 000040 F_LEFTJ .EQU $402808 000020 F_FILLZ .EQU $202809 000010 F_GROUP .EQU $102810 000008 F_WIDTH .EQU $082811 000004 F_PREC .EQU $0428122813 ; FmtMod modifier's flag2814 000080 F2_PSSTRING .EQU $802815 000040 F2_BCD .EQU $402816 000020 F2_LONG .EQU $202817 000010 F2_SHORT .EQU $102818 000008 F2_BYTE .EQU $082819 000004 F2_CAPS .EQU $042820 000001 F2_SIGNED .EQU $0128212822 000078 MASKMOD .EQU (F2_LONG.OR.F2_SHORT.OR.F2_BYTE.OR.F2_BCD)2823 ; modifier mask '%c'2824 0000F8 MASKCHAR .EQU (MASKMOD.OR.F2_PSSTRING)2825 ; modifier mask '%s'2826 000078 MASKSTR .EQU (MASKMOD)2827 ; modifier mask '%p'2828 0000F8 MASKPTR .EQU (MASKCHAR)2829 ; modifier mask float numbers2830 0000B8 MASKFLOAT .EQU (F2_LONG.OR.F2_SHORT.OR.F2_BYTE.OR.F2_PSSTRING)2831 ; modifier mask integer2832 0000C0 MASKINTG .EQU (F2_BCD.OR.F2_PSSTRING)28332834 ; conversion function index2835 000000 T_CHAR .EQU 02836 000002 T_STR .EQU (1 * 2)2837 000004 T_PTR .EQU (2 * 2)2838 000006 T_INT .EQU (3 * 2)2839 000008 T_HEX .EQU (4 * 2)2840 00000A T_FLOAT .EQU (5 * 2)28412842 ; current stage while scan format2843 000000 FLAGSTAGE .EQU 02844 000001 FILLZSTAGE .EQU 12845 000002 WIDESTAGE .EQU 22846 000003 DOTSTAGE .EQU 32847 000004 PRECSTAGE .EQU 42848 000005 MODSTAGE .EQU 528492850 ; aux var's2851 00003C PADCHR .EQU FPWTmp7 ; char per padding ('0' o ' ')2852 00003D PFXCHR .EQU FPWTmp7+1 ; prefisso stringa (segno o '$')2853 00003E NPADL .EQU FPWTmp8 ; numero char padding a sinistra2854 00003F NPADR .EQU FPWTmp8+1 ; numero char padding a destra2855 00005C STRLEN .EQU FPWTmp ; lunghezza stringa da copiare2856 00005D PFXFLAG .EQU FPWTmp+1 ; flag prefix segno/'$'2857 000063 FMTTMP .EQU FPFlag ; temporaneo durante scanning formato2858Tue Jul 17 11:00:17 2018 Page 528592860 ;---------------------------------------------------------------------------2861 ; code segment2862 ;---------------------------------------------------------------------------28632864 .CODEF82865 .EXTERN _Int2Str, _feFAC2S, _MovMem2Fa2866 F821332867 .GLOBAL sys_bprintf, sys_bsprintf, sys_bsprintf2, sys_bvprintf28682869 ;---------------------------------------------------------------------------2870 ; system call interface2871 ;---------------------------------------------------------------------------28722873 ; _bprintf: format string and send to text default device,usually console2874 ; this function act like c-function printf()2875 ;2876 ; prototype: _bprintf(count, format, ...)2877 ;2878 ; count =bytes count of all passed param's (count too)2879 ; format =long pointer to format string2880 ; ... =param's list (like in format string)2881 ;2882 ; param's passed in reverse order in stack2883 ;2884 ; all register's are preserved2885 F82133 sys_bprintf:2886 F82133 A3 13 lda STKPRMS,s ; count bytes params2887 F82135 83 04 sta STKCNT,s2888 F82137 CPU16CLC ; 16 bit + CLC2889 F82137 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2890 .LONGA on2891 .LONGI on2892 .MNLIST2893 F82139 3B tsc2894 F8213A 69 14 00 adc #STKPRMS+12895 F8213D AA tax ; frame stack parametri2896 F8213E A9 00 02 lda #DP02ADDR2897 F82141 5B tcd ; imposta DPR => pagina 022898 F82142 64 12 stz FmtGMax ; non usa stringa globale2899 F82144 64 05 stz FmtLPPut ; non usa putter globale2900 F82146 BD 00 00 lda !0,x ; carica puntatore stringa di formato2901 F82149 85 02 sta FmtLPFmt2902 F8214B E8 inx2903 F8214C E8 inx2904 F8214D ACC082905 F8214D E2 20 sep #PMFLAG2906 .LONGA off2907 .MNLIST2908 F8214F 64 07 stz FmtLPPut+2 ; non usa putter globale2909 F82151 BD 00 00 lda !0,x2910 F82154 85 04 sta FmtLPFmt+22911 F82156 E8 inx2912 F82157 86 00 stx FmtParm ; salva frame stack parametri2913 F82159 CPU082914 F82159 E2 30 sep #(PMFLAG.OR.PXFLAG)2915 .LONGA offTue Jul 17 11:00:17 2018 Page 62916 .LONGI off2917 .MNLIST2918 F8215B A9 80 lda #$80 ; call putter locale2919 F8215D 20 2E 22 jsr _vprinter2920 F82160 18 clc2921 F82161 6B rtl29222923 ; _bsprintf2: format string and put result in a local string2924 ; this function act like c-function sprintf()2925 ;2926 ; prototype: _bsprintf2(count, format, ...)2927 ;2928 ; count =bytes count of all passed param's (count too)2929 ; format =long pointer to format string2930 ; ... =param's list (like in format string)2931 ;2932 ; param's passed in reverse order in stack2933 ;2934 ; out: C =offset of result local string2935 ; X =bank that hold result local string2936 ;2937 ; local string is limited to 255 bytes2938 F82162 sys_bsprintf2:2939 F82162 A3 13 lda STKPRMS,s ; count bytes params2940 F82164 83 04 sta STKCNT,s2941 F82166 CPU16CLC ; 16 bit + CLC2942 F82166 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2943 .LONGA on2944 .LONGI on2945 .MNLIST2946 F82168 3B tsc2947 F82169 69 14 00 adc #STKPRMS+12948 F8216C AA tax ; frame stack parametri2949 F8216D A9 00 02 lda #DP02ADDR2950 F82170 5B tcd ; imposta DPR => pagina 022951 F82171 64 12 stz FmtGMax ; non usa stringa globale2952 F82173 64 05 stz FmtLPPut ; non usa putter globale2953 F82175 BD 00 00 lda !0,x ; carica puntatore stringa di formato2954 F82178 85 02 sta FmtLPFmt2955 F8217A E8 inx2956 F8217B E8 inx2957 F8217C ACC082958 F8217C E2 20 sep #PMFLAG2959 .LONGA off2960 .MNLIST2961 F8217E 64 07 stz FmtLPPut+2 ; non usa putter globale2962 F82180 BD 00 00 lda !0,x2963 F82183 85 04 sta FmtLPFmt+22964 F82185 E8 inx2965 F82186 86 00 stx FmtParm ; salva frame stack parametri2966 F82188 CPU082967 F82188 E2 30 sep #(PMFLAG.OR.PXFLAG)2968 .LONGA off2969 .LONGI off2970 .MNLIST2971 F8218A A9 00 lda #$00 ; local string2972 F8218C 20 2E 22 jsr _vprinterTue Jul 17 11:00:17 2018 Page 72973 F8218F ACC162974 F8218F C2 20 rep #PMFLAG2975 .LONGA on2976 .MNLIST2977 F82191 A9 00 E0 lda #LVPBUF ; buffer locale2978 F82194 83 0D sta STKCR,s2979 F82196 A9 00 00 lda #^LVPBUF2980 F82199 83 0B sta STKXR,s2981 F8219B ACC082982 F8219B E2 20 sep #PMFLAG2983 .LONGA off2984 .MNLIST2985 F8219D 18 clc2986 F8219E 6B rtl29872988 ; _bsprintf: format string and put result in a global string2989 ; this function act like c-function sprintf()2990 ;2991 ; prototype: _bsprintf(count, format, dest, size, ...)2992 ;2993 ; count =bytes count of all passed param's (count too)2994 ; format =long pointer to format string2995 ; dest =long pointer to destination string2996 ; size = size of destination buffer2997 ; ... =param's list (like in format string)2998 ;2999 ; param's passed in reverse order in stack3000 ;3001 ; out: C =count of bytes needs for destination string not3002 ; including the #0 terminator3003 ;3004 ; if dest=NULL, function just compute the needs number of bytes3005 ; dest must have room at least for C+1 bytes3006 F8219F sys_bsprintf:3007 F8219F A3 13 lda STKPRMS,s ; count bytes params3008 F821A1 83 04 sta STKCNT,s3009 F821A3 CPU16CLC ; 16 bit + CLC3010 F821A3 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3011 .LONGA on3012 .LONGI on3013 .MNLIST3014 F821A5 3B tsc3015 F821A6 69 14 00 adc #STKPRMS+13016 F821A9 AA tax ; frame stack parametri3017 F821AA A9 00 02 lda #DP02ADDR3018 F821AD 5B tcd ; imposta DPR => pagina 023019 F821AE BD 00 00 lda !0,x ; carica puntatore stringa di formato3020 F821B1 85 02 sta FmtLPFmt3021 F821B3 E8 inx3022 F821B4 E8 inx3023 F821B5 ACC083024 F821B5 E2 20 sep #PMFLAG3025 .LONGA off3026 .MNLIST3027 F821B7 BD 00 00 lda !0,x3028 F821BA 85 04 sta FmtLPFmt+23029 F821BC E8 inxTue Jul 17 11:00:17 2018 Page 83030 F821BD ACC163031 F821BD C2 20 rep #PMFLAG3032 .LONGA on3033 .MNLIST3034 F821BF BD 00 00 lda !0,x ; carica puntatore stringa destinazione3035 F821C2 85 05 sta FmtLPPut3036 F821C4 E8 inx3037 F821C5 E8 inx3038 F821C6 ACC083039 F821C6 E2 20 sep #PMFLAG3040 .LONGA off3041 .MNLIST3042 F821C8 BD 00 00 lda !0,x3043 F821CB 85 07 sta FmtLPPut+23044 F821CD E8 inx3045 F821CE ACC163046 F821CE C2 20 rep #PMFLAG3047 .LONGA on3048 .MNLIST3049 F821D0 BD 00 00 lda !0,x3050 F821D3 85 12 sta FmtGMax ; carica size stringa destinazione3051 F821D5 E8 inx3052 F821D6 E8 inx3053 F821D7 86 00 stx FmtParm ; salva frame stack parametri3054 F821D9 CPU083055 F821D9 E2 30 sep #(PMFLAG.OR.PXFLAG)3056 .LONGA off3057 .LONGI off3058 .MNLIST3059 F821DB A9 40 lda #$40 ; stringa globale3060 F821DD 20 2E 22 jsr _vprinter3061 F821E0 ACC163062 F821E0 C2 20 rep #PMFLAG3063 .LONGA on3064 .MNLIST3065 F821E2 A5 10 lda FmtCnt ; numero caratteri3066 F821E4 83 0D sta STKCR,s3067 F821E6 ACC083068 F821E6 E2 20 sep #PMFLAG3069 .LONGA off3070 .MNLIST3071 F821E8 18 clc3072 F821E9 6B rtl30733074 ; _bvprintf: format string and send result to an user-defined "putter"3075 ; function; this function act like c-function fprintf()3076 ;3077 ; prototype: _bvprintf(count, format, putter...)3078 ;3079 ; count =bytes count of all passed param's (count too)3080 ; format =long pointer to format string3081 ; putter =long pointer to user-dfined putter function3082 ; ... =param's list (like in format string)3083 ;3084 ; param's passed in reverse order in stack3085 ;3086 ; out: C =count of bytes needs sent to user-defined putter, notTue Jul 17 11:00:17 2018 Page 93087 ; including the #0 terminator3088 ;3089 ; the user-defined putter will end with an "rtl" instruction3090 F821EA sys_bvprintf:3091 F821EA A3 13 lda STKPRMS,s ; count bytes params3092 F821EC 83 04 sta STKCNT,s3093 F821EE CPU16CLC ; 16 bit + CLC3094 F821EE C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3095 .LONGA on3096 .LONGI on3097 .MNLIST3098 F821F0 3B tsc3099 F821F1 69 14 00 adc #STKPRMS+13100 F821F4 AA tax ; frame stack parametri3101 F821F5 A9 00 02 lda #DP02ADDR3102 F821F8 5B tcd ; imposta DPR => pagina 023103 F821F9 64 12 stz FmtGMax3104 F821FB BD 00 00 lda !0,x ; carica puntatore stringa di formato3105 F821FE 85 02 sta FmtLPFmt3106 F82200 E8 inx3107 F82201 E8 inx3108 F82202 ACC083109 F82202 E2 20 sep #PMFLAG3110 .LONGA off3111 .MNLIST3112 F82204 BD 00 00 lda !0,x3113 F82207 85 04 sta FmtLPFmt+23114 F82209 E8 inx3115 F8220A ACC163116 F8220A C2 20 rep #PMFLAG3117 .LONGA on3118 .MNLIST3119 F8220C BD 00 00 lda !0,x ; carica puntatore stringa destinazione3120 F8220F 85 05 sta FmtLPPut3121 F82211 E8 inx3122 F82212 E8 inx3123 F82213 ACC083124 F82213 E2 20 sep #PMFLAG3125 .LONGA off3126 .MNLIST3127 F82215 BD 00 00 lda !0,x3128 F82218 85 07 sta FmtLPPut+23129 F8221A E8 inx3130 F8221B 86 00 stx FmtParm ; salva frame stack parametri3131 F8221D CPU083132 F8221D E2 30 sep #(PMFLAG.OR.PXFLAG)3133 .LONGA off3134 .LONGI off3135 .MNLIST3136 F8221F A9 C0 lda #$C0 ; putter globale3137 F82221 20 2E 22 jsr _vprinter3138 F82224 ACC163139 F82224 C2 20 rep #PMFLAG3140 .LONGA on3141 .MNLIST3142 F82226 A5 10 lda FmtCnt ; numero caratteri3143 F82228 83 0D sta STKCR,sTue Jul 17 11:00:17 2018 Page 103144 F8222A ACC083145 F8222A E2 20 sep #PMFLAG3146 .LONGA off3147 .MNLIST3148 F8222C 18 clc3149 F8222D 6B rtl31503151 ; funzione locale di formattazione stringa3152 ; In - FmtLPFmt = long ptr stringa formato (szFmt)3153 ; FmtParm = ptr array parametri nel banco 03154 ; FmtLPPut = long ptr alla funzione 'putter' o a stringa globale3155 ; FmtGMax = max. lunghezza stringa globale (escluso NULL)3156 ; A => flag funzione <7> => 0 -> store stringa / 1 -> store putter3157 ; <6> => 0 -> locale / globale3158 ; DBR = 0 (banco 0)3159 ; DPR = 2 (pagina 02)3160 ;3161 ; Out - store locale => LVPBUF stringa formattata max. 255 car. (szDst)3162 ; store globale => stringa FmtLPPut formattata (max $FFFF car.)3163 ; putter locale => formattazione inviata al device TEXT corrente3164 ; putter globale => formattazione inviata a funzione putter3165 F8222E _vprinter:3166 .LONGA off3167 .LONGI off3168 F8222E3169 F8222E A0 00 ldy #0 ; azzera contatore caratteri3170 F82230 84 10 sty FmtCnt3171 F82232 84 11 sty FmtCnt+13172 F82234 84 0F sty FmtDst ; azzera indice stringa locale3173 F82236 85 0D sta VStoreF ; flag store3174 F822383175 ; LOOP scanning formato3176 F82238 B7 02 ?10: lda [FmtLPFmt],y ; next char3177 F8223A F0 57 beq ?60 ; fine stringa - EXIT3178 ;bne ?11Tue Jul 17 11:00:17 2018 Page 113179 ;jmp ?603180 F8223C C9 25 ?11: cmp #'%'3181 F8223E F0 06 beq ?14 ; specificatore formato3182 F82240 C8 ?12: iny ; ptr next char3183 F82241 20 09 23 jsr _store ; store char in szDst3184 F82244 80 F2 bra ?10 ; loop3185 F82246 84 08 ?14: sty FmtSpec ; indice carattere '%' (per ABANDON)3186 F82248 C8 iny3187 F82249 B7 02 lda [FmtLPFmt],y ; next char dopo specificatore3188 F8224B C9 25 cmp #'%'3189 F8224D F0 F1 beq ?12 ; '%%' -> store '%' e loop31903191 ; analizza specificatore di formato dopo '%'3192 F8224F A9 00 lda #0 ; A = stage = 0 (flag stage)3193 F82251 85 0C sta FmtSgn3194 F82253 85 0B sta FmtFlag3195 F82255 85 0E sta FmtMod3196 F82257 85 09 sta FmtWidth3197 F82259 85 0A sta FmtPrec3198 F8225B 80 01 bra ?21 ; reload3199 F8225D3200 ; LOOP scanning specificatore formato3201 F8225D C8 ?20: iny32023203 ; A = stage - Y = ptr corrente formato3204 F8225E EB ?21: xba ; B = stage3205 F8225F B7 02 lda [FmtLPFmt],y ; A = next char dopo specificatore3206 F82261 F0 24 beq ?50 ; fine stringa - ABANDON3207 F82263 85 63 sta FMTTMP ; salva char3208 F82265 38 sec3209 F82266 E9 20 sbc #' ' ; scala char to 0..5F3210 F82268 90 1D bcc ?50 ; char illegale a questo stadio3211 F8226A C9 60 cmp #(128 - ' ')3212 F8226C B0 19 bcs ?50 ; char illegale a questo stadio3213 F8226E AA tax ; X = indice 0..5F3214 F8226F BF 0E 27 F8 lda >CLASSCHR,x ; A = class char3215 F82273 0A asl a3216 F82274 AA tax ; indice funzione3217 F82275 A5 63 lda FMTTMP ; cur char3218 F82277 EB xba ; B = cur char, A = stage, ZF valido3219 F82278 FC 6E 27 jsr (SCANTBL,x) ; scanning formato3220 F8227B B0 0A ?20a: bcs ?50 ; errore formato - ABANDON3221 F8227D 50 DE bvc ?20 ; loop - scanning formato corrente3222 F8227F3223 ; a questo punto si assume che lo specificatore di formato sia stato3224 ; scannerizzato correttamente e che X contenga l'indice alla tabella3225 ; di conversione CVTTBL3226 F8227F 5A phy ; salva Y3227 F82280 FC A8 27 jsr (CVTTBL,x) ; funzione di conversione3228 F82283 7A ?20b: ply ; ripristina Y3229 F82284 C8 iny ; next char3230 F82285 80 B1 bra ?10 ; loop - next formato3231 F822873232 ; ABANDON - causa errore specificatore di formato si suppone che i3233 ; parametri non siano piu' allineati con il formato3234 ; viene quindi copiato letteralmente il resto di szFmt a partire3235 ; dal carattere '%' dove si e' verificato il disallineamento, finoTue Jul 17 11:00:17 2018 Page 123236 ; alla fine della stringa szFmt3237 F82287 A4 08 ?50: ldy FmtSpec ; indice al carattere '%'3238 F82289 B7 02 ?52: lda [FmtLPFmt],y ; copia da szFmt a szDst3239 F8228B F0 06 beq ?60 ; fino a fine stringa3240 F8228D C8 iny3241 F8228E 20 09 23 jsr _store3242 F82291 80 F6 bra ?523243 F822933244 ; EXIT3245 ; la funzione memorizza il terminatore #0 per indicare la fine3246 ; o chiama il putter per effettuare il flush del buffer3247 F82293 24 0D ?60: bit VStoreF3248 F82295 30 13 bmi ?64 ; chiama flusher locale/globale3249 F82297 70 06 bvs ?62 ; termina stringa globale3250 F82299 A6 0F ldx FmtDst ; indice stringa locale3251 F8229B 9E 00 E0 stz !LVPBUF,x ; store NULL at X = FmtDst3252 F8229E 60 rts3253 F8229F ?62: INDEX163254 F8229F C2 10 rep #PXFLAG3255 .LONGI on3256 .MNLIST3257 F822A1 A4 10 ldy FmtCnt3258 F822A3 A9 00 lda #03259 F822A5 97 05 sta [FmtLPPut],y ; store NULL in stringa globale3260 F822A7 INDEX083261 F822A7 E2 10 sep #PXFLAG3262 .LONGI off3263 .MNLIST3264 F822A9 60 rts3265 F822AA 50 04 ?64: bvc _lflush ; termina putter locale3266 F822AC A9 00 lda #0 ; termina putter globale3267 F822AE 80 16 bra _gput3268 F822B03269 ;----------------------------------------------------------------------------3270 ; FUNZIONI STORE/FLUSH3271 ;----------------------------------------------------------------------------32723273 ; termina putter locale3274 F822B0 _lflush:3275 F822B0 A6 0F ldx FmtDst ; indice attuale buffer locale32763277 ; invia buffer locale al device selezionato3278 F822B2 _lflush2:3279 F822B2 9E 00 E0 stz !LVPBUF,x ; termina stringa3280 F822B5 8A txa3281 F822B6 F0 0B beq ?02 ; buffer vuoto3282 F822B8 ACC163283 F822B8 C2 20 rep #PMFLAG3284 .LONGA on3285 .MNLIST3286 F822BA A9 00 E0 lda #LVPBUF ; CX = long ptr al buffer3287 F822BD ACC083288 F822BD E2 20 sep #PMFLAG3289 .LONGA off3290 .MNLIST3291 F822BF A2 00 ldx #0 ; banco 03292 F822C1 TXTSTROUT ; preserva A,X,YTue Jul 17 11:00:17 2018 Page 133293 F822C1 02 04 cop $043294 .MNLIST3295 F822C3 60 ?02: rts32963297 ; funzione putter locale/globale3298 F822C4 _putter:3299 F822C4 50 2E bvc _lput ; putter locale3300 F822C63301 ; putter globale -- char NULL indica END-OF-FILE3302 F822C6 _gput:3303 F822C6 85 4F sta FPDCnt3304 F822C8 84 3B sty FPIndx3305 F822CA 4B phk3306 F822CB F4 EE 22 pea #?02-1 ; salva ind. return => ?023307 F822CE3308 F822CE 48 pha3309 F822CF ACC163310 F822CF C2 20 rep #PMFLAG3311 .LONGA on3312 .MNLIST3313 F822D1 AD 05 02 lda !GLPPUT3314 F822D4 8F E9 22 F8 sta >?04+13315 F822D8 ACC083316 F822D8 E2 20 sep #PMFLAG3317 .LONGA off3318 .MNLIST3319 F822DA AD 07 02 lda !GLPPUT+23320 F822DD 8F EB 22 F8 sta >?04+33321 F822E1 68 pla3322 F822E2 C9 00 cmp #03323 F822E4 D0 02 bne ?043324 F822E6 EA nop3325 F822E7 EA nop3326 F822E8 5C 00 FF 80 ?04: jml $80FF003327 F822EC3328 F822EC DC 05 02 jml [GLPPUT] ; deve terminare con RTL3329 F822EF A4 3B ?02: ldy FPIndx3330 F822F1 A5 4F lda FPDCnt3331 F822F3 60 rts3332 F822F43333 ; funzione putter locale3334 F822F4 _lput:3335 F822F4 20 15 23 jsr _lstor ; bufferizza in stringa locale3336 F822F7 D0 0F bne ?02 ; buffer non pieno3337 F822F9 85 4F sta FPDCnt ; salva char3338 F822FB 20 B2 22 jsr _lflush2 ; flush buffer3339 F822FE A2 00 ldx #03340 F82300 A5 4F lda FPDCnt ; memorizza char attuale3341 F82302 9D 00 E0 sta !LVPBUF,x ; store at X = 03342 F82305 E8 inx3343 F82306 86 0F stx FmtDst3344 F82308 60 ?02: rts33453346 ; store char in stringa locale/globale o invia carattere al 'putter'3347 F82309 _store:3348 F82309 ACC163349 F82309 C2 20 rep #PMFLAGTue Jul 17 11:00:17 2018 Page 143350 .LONGA on3351 .MNLIST3352 F8230B E6 10 inc FmtCnt ; update numero bytes (16 bit)3353 F8230D ACC083354 F8230D E2 20 sep #PMFLAG3355 .LONGA off3356 .MNLIST3357 F8230F 24 0D bit VStoreF3358 F82311 30 B1 bmi _putter ; chiama putter locale/globale3359 F82313 70 0D bvs _gstor ; store in stringa globale33603361 ; store char in stringa locale3362 F82315 _lstor:3363 F82315 A6 0F ldx FmtDst ; indice stringa locale3364 F82317 E0 FF cpx #$FF ; test overflow3365 F82319 F0 06 beq ?02 ; no store (FmtDst = $FF)3366 F8231B 9D 00 E0 sta !LVPBUF,x ; store at X = FmtDst3367 F8231E E8 inx3368 F8231F 86 0F stx FmtDst3369 F82321 60 ?02: rts33703371 ; store char in stringa globale3372 F82322 _gstor:3373 F82322 84 3B sty FPIndx ; salva Y3374 F82324 INDEX163375 F82324 C2 10 rep #PXFLAG3376 .LONGI on3377 .MNLIST3378 F82326 A4 10 ldy FmtCnt3379 F82328 88 dey ; indice attuale stringa globale3380 F82329 C4 12 cpy FmtGMax ; overflow stringa ?3381 F8232B B0 02 bcs ?02 ; si -- no store3382 F8232D 97 05 sta [FmtLPPut],y ; store in stringa globale3383 F8232F ?02: INDEX083384 F8232F E2 10 sep #PXFLAG3385 .LONGI off3386 .MNLIST3387 F82331 A4 3B ldy FPIndx3388 F82333 60 rts33893390 ;----------------------------------------------------------------------------3391 ; FUNZIONI DI CONVERSIONE (FORMATTAZIONE)3392 ;----------------------------------------------------------------------------33933394 ; preleva integer dai parametri e lo copia in ACM3395 F82334 getint:3396 F82334 A0 01 ldy #13397 F82336 A5 0E lda FmtMod3398 F82338 89 08 bit #F2_BYTE3399 F8233A D0 0D bne ?02 ; byte -> size = 13400 F8233C C8 iny3401 F8233D 89 10 bit #F2_SHORT3402 F8233F D0 08 bne ?02 ; word -> size = 23403 F82341 A0 08 ldy #83404 F82343 89 20 bit #F2_LONG3405 F82345 D0 02 bne ?02 ; quad -> size = 83406 F82347 A0 04 ldy #4 ; dword -> size = 4Tue Jul 17 11:00:17 2018 Page 153407 F82349 84 20 ?02: sty ACMSize ; size3408 F8234B 64 21 stz ACMSgn ; unsigned per il momento3409 F8234D INDEX163410 F8234D C2 10 rep #PXFLAG3411 .LONGI on3412 .MNLIST3413 F8234F A6 00 ldx FmtParm ; indice parametri3414 F82351 BD 00 00 lda !0,x ; get byte3415 F82354 85 18 sta <ACM3416 F82356 E8 inx3417 F82357 88 dey3418 F82358 F0 24 beq ?06 ; size = 1 (byte)3419 F8235A BD 00 00 lda !0,x ; get byte3420 F8235D 85 19 sta <ACM+13421 F8235F E8 inx3422 F82360 88 dey3423 F82361 F0 1B beq ?06 ; size = 2 (word)3424 F82363 ACC163425 F82363 C2 20 rep #PMFLAG3426 .LONGA on3427 .MNLIST3428 F82365 BD 00 00 lda !0,x ; get word3429 F82368 85 1A sta <ACM+23430 F8236A E8 inx3431 F8236B E8 inx3432 F8236C 88 dey3433 F8236D 88 dey3434 F8236E F0 0E beq ?06 ; size = 4 (dword)3435 F82370 BD 00 00 lda !0,x ; get word3436 F82373 85 1C sta <ACM+43437 F82375 E8 inx3438 F82376 E8 inx3439 F82377 BD 00 00 lda !0,x ; get word3440 F8237A 85 1E sta <ACM+6 ; size = 8 (quad)3441 F8237C E8 inx3442 F8237D E8 inx3443 F8237E 86 00 ?06: stx FmtParm ; aggiorna indice array parametri3444 F82380 CPU083445 F82380 E2 30 sep #(PMFLAG.OR.PXFLAG)3446 .LONGA off3447 .LONGI off3448 .MNLIST3449 F82382 60 rts34503451 F82383 DoFloat:3452 F82383 A5 0B lda FmtFlag3453 F82385 89 04 bit #F_PREC3454 F82387 D0 0C bne ?01 ; specificata la precision3455 F82389 A2 08 ldx #FMINPREC ; imposta minima precisione3456 F8238B A5 16 lda XVFlag3457 F8238D 89 04 bit #$043458 F8238F F0 02 beq ?00 ; no formato a/A3459 F82391 A2 00 ldx #0 ; minima precisone formato a/A = 03460 F82393 86 0A ?00: stx FmtPrec3461 F82395 A5 0E ?01: lda FmtMod3462 F82397 89 04 bit #F2_CAPS3463 F82399 F0 04 beq ?02Tue Jul 17 11:00:17 2018 Page 163464 F8239B A9 08 lda #$08 ; flag CAPS3465 F8239D 04 16 tsb XVFlag3466 F8239F 24 0B ?02: bit FmtFlag3467 F823A1 10 04 bpl ?04 ; no formato alt.3468 F823A3 A9 10 lda #$10 ; flag formato alt3469 F823A5 04 16 tsb XVFlag3470 F823A7 A6 0C ?04: ldx FmtSgn ; segno ?3471 F823A9 F0 0C beq ?08 ; no3472 F823AB A9 01 lda #$01 ; flag segno3473 F823AD E0 2B cpx #'+'3474 F823AF F0 02 beq ?06 ; usa '+'3475 F823B1 09 02 ora #$02 ; usa ' '3476 F823B3 05 16 ?06: ora XVFlag3477 F823B5 85 16 sta XVFlag3478 F823B7 ?08: INDEX163479 F823B7 C2 10 rep #PXFLAG3480 .LONGI on3481 .MNLIST3482 F823B9 A6 00 ldx FmtParm ; indice parametri3483 F823BB BD 00 00 lda !0,x ; get long pointer3484 F823BE 85 60 sta PTR13485 F823C0 E8 inx3486 F823C1 BD 00 00 lda !0,x3487 F823C4 85 61 sta PTR1+13488 F823C6 E8 inx3489 F823C7 BD 00 00 lda !0,x3490 F823CA 85 62 sta PTR1+23491 F823CC E8 inx3492 F823CD 86 00 stx FmtParm ; aggiorna indice array parametri3493 F823CF INDEX083494 F823CF E2 10 sep #PXFLAG3495 .LONGI off3496 .MNLIST3497 F823D1 A9 80 lda #F_ALTFMT3498 F823D3 14 0B trb FmtFlag ; ignora formato alt. nel futuro3499 F823D5 24 0E bit FmtMod3500 F823D7 50 0D bvc ?20 ; binary float3501 F823D9 20 69 3D jsr _MovMem2Fa3502 F823DC A5 16 lda XVFlag3503 F823DE A6 0A ldx FmtPrec3504 F823E0 20 D9 40 jsr _feFAC2S ; BCD float3505 F823E3 4C 6C 24 jmp DoNum3506 F823E6 20 69 3D ?20: jsr _MovMem2Fa ; binary float3507 F823E9 A5 16 lda XVFlag3508 F823EB A6 0A ldx FmtPrec3509 F823ED 20 D9 40 jsr _feFAC2S3510 F823F0 4C 6C 24 jmp DoNum35113512 ; formattazione long pointer p,P3513 F823F3 DoPtr:3514 F823F3 A0 03 ldy #33515 F823F5 84 20 sty ACMSize ; size = 33516 F823F7 64 21 stz ACMSgn ; unsigned3517 F823F9 INDEX163518 F823F9 C2 10 rep #PXFLAG3519 .LONGI on3520 .MNLISTTue Jul 17 11:00:17 2018 Page 173521 F823FB A6 00 ldx FmtParm ; indice parametri3522 F823FD BD 00 00 lda !0,x ; get byte3523 F82400 85 18 sta <ACM3524 F82402 E8 inx3525 F82403 BD 00 00 lda !0,x ; get byte3526 F82406 85 19 sta <ACM+13527 F82408 E8 inx3528 F82409 BD 00 00 lda !0,x ; get byte3529 F8240C 85 1A sta <ACM+23530 F8240E E8 inx3531 F8240F 86 00 stx FmtParm ; aggiorna indice array parametri3532 F82411 INDEX083533 F82411 E2 10 sep #PXFLAG3534 .LONGI off3535 .MNLIST3536 F82413 A0 00 ldy #0 ; flag hex minuscolo3537 F82415 A5 0E lda FmtMod3538 F82417 89 04 bit #F2_CAPS3539 F82419 F0 02 beq ?023540 F8241B A0 40 ldy #$40 ; flag hex maiuscolo3541 F8241D 98 ?02: tya3542 F8241E 09 10 ora #$10 ; flag formato ptr3543 F82420 A2 06 ldx #6 ; precision = 63544 F82422 80 45 bra DoInt33545 F824243546 ; formattazione interi decimali i,d,u3547 F82424 DoInt:3548 F82424 20 34 23 jsr getint ; preleva integer3549 F82427 A0 80 ldy #$80 ; flag decimale3550 F82429 A5 0B lda FmtFlag3551 F8242B 89 10 bit #F_GROUP3552 F8242D F0 02 beq ?08 ; no group3553 F8242F A0 C0 ldy #$C0 ; flag decimale + group3554 F82431 A5 0E ?08: lda FmtMod3555 F82433 4A lsr a ; CF = 1 => signed3556 F82434 90 25 bcc DoInt2 ; unsigned3557 F82436 A6 20 ldx <ACMSize3558 F82438 CA dex3559 F82439 B5 18 lda <ACM,x ; MSB3560 F8243B 29 80 and #$80 ; maschera segno3561 F8243D 09 40 ora #$40 ; tipo signed3562 F8243F 85 21 sta ACMSgn3563 F82441 A6 0C ldx FmtSgn ; segno ?3564 F82443 F0 16 beq DoInt2 ; no3565 F82445 C8 iny ; flag segno3566 F82446 E0 2B cpx #'+'3567 F82448 F0 11 beq DoInt2 ; usa '+'3568 F8244A C8 iny3569 F8244B C8 iny ; usa ' '3570 F8244C 80 0D bra DoInt23571 F8244E3572 ; formattazione interi esadecimali x,X3573 F8244E DoHex:3574 F8244E 20 34 23 jsr getint ; preleva integer3575 F82451 A0 00 ldy #0 ; flag hex minuscolo3576 F82453 A5 0E lda FmtMod3577 F82455 89 04 bit #F2_CAPSTue Jul 17 11:00:17 2018 Page 183578 F82457 F0 02 beq DoInt23579 F82459 A0 40 ldy #$40 ; flag hex maiuscolo35803581 F8245B DoInt2:3582 F8245B A2 01 ldx #1 ; default precision3583 F8245D A5 0B lda FmtFlag3584 F8245F 89 04 bit #F_PREC3585 F82461 F0 05 beq ?143586 F82463 A6 0A ldx FmtPrec3587 F82465 D0 01 bne ?143588 F82467 E8 inx ; minima precision = 13589 F82468 98 ?14: tya ; A = flag35903591 F82469 DoInt3:3592 F82469 20 80 30 jsr _Int2Str ; A = Y = len -- X = ptr stringa3593 F8246C3594 F8246C DoNum:3595 F8246C 64 5D stz PFXFLAG ; flag store segno / '$'3596 F8246E 24 0B bit FmtFlag3597 F82470 10 04 bpl ?04 ; solo p/P/x/X ammettono prefisso3598 F82472 A9 24 lda #'$' ; prefisso alt. form.3599 F82474 80 16 bra ?083600 F82476 A5 0E ?04: lda FmtMod3601 F82478 89 01 bit #F2_SIGNED3602 F8247A F0 22 beq ?20 ; unsigned -- no strip segno3603 F8247C B5 00 lda <0,x ; segno prima del digit3604 F8247E C9 2B cmp #'+'3605 F82480 F0 08 beq ?063606 F82482 C9 2D cmp #'-'3607 F82484 F0 04 beq ?063608 F82486 C9 20 cmp #' '3609 F82488 D0 14 bne ?20 ; nessun segno prima del digit3610 F8248A E8 ?06: inx ; sposta ptr. al primo digit3611 F8248B 88 dey ; lunghezza stringa originale - 13612 F8248C 85 3D ?08: sta PFXCHR ; segno numero o prefisso '$'3613 F8248E3614 ; ora il segno del numero e' stato strippato o il prefisso e' stato3615 ; fissato ed occorre stabilire se esso va emesso come primo3616 ; carattere oppure no.3617 ; Se e' stato specificato il campo width con allineamento di default3618 ; a destra ed il padding a sinistra viene effettuato con '0' allora3619 ; il segno/prefisso va emesso come primo carattere, altrimenti va3620 ; emesso prima della stringa numerica. Dato che il padding a destra3621 ; avviene sempre con blank, il prefisso/segno va emesso come primo3622 ; carattere se F_FILLZ e F_WIDTH sono entrambi settati.3623 F8248E3624 F8248E A5 0B lda FmtFlag3625 F82490 29 28 and #(F_FILLZ.OR.F_WIDTH) ; specificato width con padding '0' ?3626 F82492 C9 28 cmp #(F_FILLZ.OR.F_WIDTH)3627 F82494 F0 04 beq ?10 ; si - emette segno/prefisso per primo3628 F82496 A9 40 lda #$40 ; no - emette segno/prefisso dopo3629 F82498 D0 02 bne ?123630 F8249A A9 80 ?10: lda #$80 ; per primo3631 F8249C 85 5D ?12: sta PFXFLAG3632 F8249E 86 60 ?20: stx PTR1 ; store puntatore3633 F824A0 A9 02 lda #>DP02ADDR3634 F824A2 85 61 sta PTR1+1Tue Jul 17 11:00:17 2018 Page 193635 F824A4 64 62 stz PTR1+2 ; banco 03636 F824A6 4C 29 25 jmp fmtstr3637 F824A93638 ; formattazione '%c' -- tipo char3639 F824A9 DoChar:3640 F824A9 INDEX163641 F824A9 C2 10 rep #PXFLAG3642 .LONGI on3643 .MNLIST3644 F824AB A6 00 ldx FmtParm ; indice parametri3645 F824AD BD 00 00 lda !0,x ; get char3646 F824B0 E8 inx3647 F824B1 86 00 stx FmtParm ; aggiorna indice array parametri3648 F824B3 INDEX083649 F824B3 E2 10 sep #PXFLAG3650 .LONGI off3651 .MNLIST3652 F824B5 85 70 sta FPUStr ; stringa temporanea3653 F824B7 64 71 stz FPUStr+1 ; di 1 carattere3654 F824B9 A9 70 lda #FPUStr3655 F824BB 85 60 sta PTR1 ; ptr stringa da copiare3656 F824BD A9 02 lda #>DP02ADDR3657 F824BF 85 61 sta PTR1+13658 F824C1 64 62 stz PTR1+2 ; banco 03659 F824C3 A0 01 ldy #1 ; lunghezza = 13660 F824C5 80 60 bra clrpfx3661 F824C73662 ; formattazione '%s' -- tipo stringa3663 F824C7 DoStr:3664 F824C7 A0 00 ldy #03665 F824C9 INDEX163666 F824C9 C2 10 rep #PXFLAG3667 .LONGI on3668 .MNLIST3669 F824CB A6 00 ldx FmtParm ; indice parametri3670 F824CD BD 00 00 lda !0,x ; get long ptr3671 F824D0 85 60 sta PTR13672 F824D2 E8 inx3673 F824D3 BD 00 00 lda !0,x ; get long ptr3674 F824D6 85 61 sta PTR1+13675 F824D8 E8 inx3676 F824D9 BD 00 00 lda !0,x ; get long ptr3677 F824DC 85 62 sta PTR1+23678 F824DE E8 inx3679 F824DF 86 00 stx FmtParm ; aggiorna indice array parametri3680 F824E1 05 61 ora PTR1+1 ; test ptr NULL3681 F824E3 05 60 ora PTR13682 F824E5 D0 0E bne ?00 ; ptr != NULL3683 F824E7 A9 B4 lda #<NULLSTR ; copia stringa di default "(null)"3684 F824E9 85 60 sta PTR13685 F824EB A9 27 lda #>NULLSTR3686 F824ED 85 61 sta PTR1+13687 F824EF A9 F8 lda #^NULLSTR ; oppure .HIGH8.3688 F824F1 85 62 sta PTR1+23689 F824F3 80 15 bra ?013690 F824F5 A5 0E ?00: lda FmtMod3691 F824F7 89 80 bit #F2_PSSTRINGTue Jul 17 11:00:17 2018 Page 203692 F824F9 F0 0F beq ?01 ; stringa stile C3693 F824FB A7 60 lda [PTR1] ; lunghezza stringa pascal/basic3694 F824FD A8 tay3695 F824FE ACC16 ; char stringa pascal dopo lunghezza3696 F824FE C2 20 rep #PMFLAG3697 .LONGA on3698 .MNLIST3699 F82500 E6 60 inc PTR13700 F82502 ACC083701 F82502 E2 20 sep #PMFLAG3702 .LONGA off3703 .MNLIST3704 F82504 D0 13 bne ?033705 F82506 E6 62 inc PTR1+23706 F82508 80 0F bra ?033707 F8250A B7 60 ?01: lda [PTR1],y ; calcola lunghezza stringa stile C3708 F8250C F0 03 beq ?023709 F8250E C8 iny3710 F8250F D0 F9 bne ?013711 F82511 C0 00 01 ?02: cpy #$0100 ; max. 255 caratteri3712 F82514 90 03 bcc ?033713 F82516 A0 FF 00 ldy #$00FF3714 F82519 ?03: INDEX08 ; Y = lunghezza stringa3715 F82519 E2 10 sep #PXFLAG3716 .LONGI off3717 .MNLIST3718 F8251B A5 0B lda FmtFlag ; test 'precision'3719 F8251D 89 04 bit #F_PREC3720 F8251F F0 06 beq clrpfx ; no precision specificata3721 F82521 C4 0A cpy FmtPrec ; Len >= precision ?3722 F82523 90 02 bcc clrpfx ; NO3723 F82525 A4 0A ldy FmtPrec ; SI -> Len = precision3724 ; precision puo' troncare la stringa3725 F82527 clrpfx:3726 F82527 64 5D stz PFXFLAG3727 F825293728 ; formatta stringa3729 F82529 fmtstr:3730 F82529 84 5C sty STRLEN ; salva lunghezza stringa da copiare3731 F8252B 64 3E stz NPADL ; no padding a sinistra3732 F8252D 64 3F stz NPADR ; no padding a destra3733 F8252F A5 5D lda PFXFLAG ; occorre memorizzare prefix/segno ?3734 F82531 29 C0 and #$C03735 F82533 F0 01 beq ?02 ; NO3736 F82535 C8 iny ; conteggia 1 byte in +3737 F82536 84 27 ?02: sty FPTmp4 ; lunghezza reale stringa3738 F82538 A5 0B lda FmtFlag3739 F8253A 89 08 bit #F_WIDTH3740 F8253C F0 22 beq ?18 ; no padding sx/dx3741 F8253E A5 09 lda FmtWidth3742 F82540 F0 1E beq ?18 ; width = 0 => no padding3743 F82542 38 sec3744 F82543 E5 27 sbc FPTmp43745 F82545 F0 19 beq ?18 ; width = len => no padding3746 F82547 90 17 bcc ?18 ; width < len => no padding3747 F82549 AA tax ; X = width - len => padding3748 F8254A A5 0B lda FmtFlagTue Jul 17 11:00:17 2018 Page 213749 F8254C 89 40 bit #F_LEFTJ3750 F8254E F0 04 beq ?04 ; allineameno a destra (default)3751 F82550 86 3F stx NPADR ; allinea a sinistra => padding a dx3752 F82552 80 08 bra ?06 ; padding a dx sempre con blank3753 F82554 86 3E ?04: stx NPADL ; allinea a dx => padding a sx3754 F82556 A2 30 ldx #'0' ; pad con '0' ?3755 F82558 89 20 bit #F_FILLZ3756 F8255A D0 02 bne ?08 ; SI3757 F8255C A2 20 ?06: ldx #' ' ; NO -- padding con blank3758 F8255E 86 3C ?08: stx PADCHR3759 F82560 24 5D ?18: bit PFXFLAG ; segno o prefisso '$' come primo ?3760 F82562 10 05 bpl ?20 ; NO3761 F82564 A5 3D lda PFXCHR ; store segno/prefix3762 F82566 20 09 23 jsr _store3763 F82569 A4 3E ?20: ldy NPADL ; numero char padding a sinistra3764 F8256B F0 08 beq ?24 ; no padding a sinistra3765 F8256D A5 3C lda PADCHR ; carattere di padding3766 F8256F 20 09 23 ?22: jsr _store3767 F82572 88 dey3768 F82573 D0 FA bne ?223769 F82575 24 5D ?24: bit PFXFLAG ; segno o prefisso '$' adesso ?3770 F82577 50 05 bvc ?26 ; NO3771 F82579 A5 3D lda PFXCHR ; store segno/prefix3772 F8257B 20 09 23 jsr _store3773 F8257E A4 5C ?26: ldy STRLEN ; copia la stringa3774 F82580 F0 0C beq ?30 ; non ci sono char da copiare3775 F82582 A0 00 ldy #03776 F82584 B7 60 ?28: lda [PTR1],y ; copia byte a byte3777 F82586 20 09 23 jsr _store3778 F82589 C8 iny3779 F8258A C6 5C dec STRLEN3780 F8258C D0 F6 bne ?283781 F8258E A4 3F ?30: ldy NPADR ; numero char padding a destra3782 F82590 F0 08 beq ?34 ; no padding a destra3783 F82592 A5 3C lda PADCHR ; carattere di padding3784 F82594 20 09 23 ?32: jsr _store3785 F82597 88 dey3786 F82598 D0 FA bne ?323787 F8259A 60 ?34: rts3788 F8259B3789 ;----------------------------------------------------------------------------3790 ; FUNZIONI SCANNING SPECIFICATORE DI FORMATO3791 ;3792 ; In - B = cur char, A = stage (e flag N,Z)3793 ;3794 ; Out - CF = 0 -> OK, A = stage, VF = 0 -> continua scanning3795 ; VF = 1 -> fine scanning, X -> indice funzione conversione3796 ; CF = 1 -> formato errato3797 ;----------------------------------------------------------------------------37983799 ; case ' ' or '+' -- valido solo nello stato stage = 03800 F8259B case_si:3801 F8259B D0 64 bne case_dc ; abandon3802 F8259D A6 0C ldx FmtSgn3803 F8259F E0 2B cpx #'+'3804 F825A1 F0 04 beq ?04 ; ignora ' ' se '+' gia' specificato3805 F825A3 EB xba ; A = cur char - B = stageTue Jul 17 11:00:17 2018 Page 223806 F825A4 85 0C sta FmtSgn3807 F825A6 EB xba ; A = stage3808 F825A7 ?04:3809 F825A7 18 retok: clc ; OK3810 F825A8 B8 clv ; continua scanning3811 F825A9 60 rts38123813 ; case digit '0' - padding a sinistra con '0' invece di ' '3814 ; '0' o e' il primo digit del campo width, oppure e' un digit successivo3815 ; che fa parte del campo width o del campo precision3816 F825AA case_fz:3817 ; il flag Z e' valido -- indica se stage = 03818 F825AA D0 57 bne case_nu ; digit fa parte di width/precision ?3819 F825AC AA tax ; X = stage3820 F825AD A9 40 lda #F_LEFTJ3821 F825AF 24 0B bit FmtFlag ; ignora padding '0' se left just.3822 F825B1 F0 03 beq ?013823 F825B3 8A txa ; A = stage3824 F825B4 D0 F1 bne retok3825 F825B6 A9 20 ?01: lda #F_FILLZ ; padding '0'3826 F825B8 E8 inx ; X = 1 -> padding stage3827 F825B9 80 0C bra setflag ; dopo deve seguire campo width38283829 ; case '-' -- valido solo nello stato stage = 03830 F825BB case_lj:3831 F825BB D0 44 bne case_dc ; abandon3832 F825BD AA tax ; X = stage3833 F825BE A9 40 lda #F_LEFTJ ; flag allineamento a sx3834 F825C0 80 05 bra setflag3835 F825C23836 ; case '#' -- valido solo nello stato stage = 03837 F825C2 case_af:3838 F825C2 D0 3D bne case_dc ; abandon3839 F825C4 AA tax ; X = stage3840 F825C5 A9 80 lda #F_ALTFMT ; flag formato alt.3841 F825C7 setflag:3842 F825C7 04 0B tsb FmtFlag3843 F825C9 8A txa ; A = stage3844 F825CA 18 clc ; OK3845 F825CB B8 clv ; continua scanning3846 F825CC 60 rts38473848 ; case ',' -- valido solo nello stato stage = 03849 F825CD case_tg:3850 F825CD D0 32 bne case_dc ; abandon3851 F825CF AA tax ; X = stage3852 F825D0 A9 10 lda #F_GROUP ; flag group&thousand3853 F825D2 80 F3 bra setflag3854 F825D43855 ; case '*' - argomento per width o precision3856 F825D4 case_ar:3857 F825D4 EB xba ; salva stage3858 F825D5 INDEX163859 F825D5 C2 10 rep #PXFLAG3860 .LONGI on3861 .MNLIST3862 F825D7 A6 00 ldx FmtParm ; indice parametro byteTue Jul 17 11:00:17 2018 Page 233863 F825D9 BD 00 00 lda !0,x3864 F825DC E8 inx3865 F825DD 86 00 stx FmtParm ; next param3866 F825DF INDEX083867 F825DF E2 10 sep #PXFLAG3868 .LONGI off3869 .MNLIST3870 F825E1 AA tax ; X = param3871 F825E2 EB xba ; A = stage3872 F825E3 C9 02 cmp #WIDESTAGE3873 F825E5 B0 0B bcs ?04 ; campo precision ?3874 F825E7 86 09 stx FmtWidth ; store width3875 F825E9 A9 08 lda #F_WIDTH3876 F825EB 04 0B tsb FmtFlag ; imposta flag campo 'width'3877 F825ED A9 03 lda #DOTSTAGE ; next: campo precisione3878 F825EF 18 clc ; OK3879 F825F0 B8 clv ; continua scanning3880 F825F1 60 rts3881 F825F2 C9 04 ?04: cmp #PRECSTAGE3882 F825F4 D0 0B bne case_dc ; abandon3883 F825F6 86 0A stx FmtPrec ; store precision3884 F825F8 AA tax ; X = stage3885 F825F9 A9 04 lda #F_PREC3886 F825FB 04 0B tsb FmtFlag ; imposta flag campo 'precision'3887 F825FD 8A txa ; A = stage (mantiene stesso stage)3888 F825FE 18 clc ; OK3889 F825FF B8 clv ; continua scanning3890 F82600 60 rts3891 F826013892 ; caratteri illegali - abbandona conversione3893 F82601 case_dc:3894 F82601 38 sec ; flag abandon3895 F82602 60 rts38963897 ; case '0'..'9' - digit che fanno parte o di 'width' o di 'precision'3898 ; FmtWidth e FmtPrec sono inizializzati a ZERO quindi si somma il digit3899 ; direttamente al valore corrente3900 F82603 case_nu:3901 F82603 AA tax ; X = stage3902 F82604 EB xba ; A = char '0'..'9'3903 F82605 38 sec3904 F82606 E9 30 sbc #'0' ; scala a 0..93905 F82608 E0 03 cpx #WIDESTAGE+1 ; parte di specifica width ?3906 F8260A B0 25 bcs ?10 ; no - parte di specifica precision3907 F8260C AA tax ; X = number 0..93908 F8260D A5 09 lda FmtWidth3909 F8260F 86 09 stx FmtWidth3910 F82611 F0 15 beq ?04 ; old width = 03911 F82613 0A asl a ; width * 23912 F82614 B0 3E bcs ?20 ; overflow3913 F82616 85 63 sta FMTTMP3914 F82618 0A asl a3915 F82619 B0 39 bcs ?20 ; overflow3916 F8261B 0A asl a ; width * 83917 F8261C B0 36 bcs ?20 ; overflow3918 F8261E 65 63 adc FMTTMP ; width * 103919 F82620 B0 32 bcs ?20 ; overflowTue Jul 17 11:00:17 2018 Page 243920 F82622 65 09 adc FmtWidth ; (width * 10) + number3921 F82624 B0 2E bcs ?20 ; overflow3922 F82626 85 09 sta FmtWidth3923 F82628 A9 08 ?04: lda #F_WIDTH3924 F8262A 04 0B tsb FmtFlag ; imposta flag campo 'width'3925 F8262C A9 02 lda #WIDESTAGE ; current stage: campo numerico 'width'3926 F8262E 18 clc ; OK3927 F8262F B8 clv ; continua scanning3928 F82630 60 rts3929 F82631 E0 04 ?10: cpx #PRECSTAGE ; stage precision ?3930 F82633 D0 CC bne case_dc ; no -- abandon3931 F82635 AA tax ; X = number 0..93932 F82636 A5 0A lda FmtPrec3933 F82638 86 0A stx FmtPrec3934 F8263A F0 15 beq ?14 ; old prec = 03935 F8263C 0A asl a ; prec * 23936 F8263D B0 15 bcs ?20 ; overflow3937 F8263F 85 63 sta FMTTMP3938 F82641 0A asl a3939 F82642 B0 10 bcs ?20 ; overflow3940 F82644 0A asl a ; prec * 83941 F82645 B0 0D bcs ?20 ; overflow3942 F82647 65 63 adc FMTTMP ; prec * 103943 F82649 B0 09 bcs ?20 ; overflow3944 F8264B 65 0A adc FmtPrec ; (prec * 10) + number3945 F8264D B0 05 bcs ?20 ; overflow3946 F8264F 85 0A sta FmtPrec3947 F82651 EB ?14: xba ; mantiene stesso stadio3948 F82652 18 clc ; OK3949 F82653 B8 clv ; continua scanning3950 F82654 60 ?20: rts39513952 ; case '.' -- valido solo se stato corrente < precstage3953 F82655 case_pr:3954 F82655 C9 04 cmp #PRECSTAGE3955 F82657 B0 08 bcs ?01 ; abandon3956 F82659 A9 04 lda #F_PREC3957 F8265B 04 0B tsb FmtFlag ; imposta flag campo precision3958 F8265D A9 04 lda #PRECSTAGE ; imposta stato corrente = precstage3959 F8265F 18 clc ; OK3960 F82660 B8 clv ; continua scanning3961 F82661 60 ?01: rts39623963 ;============================================================================3964 ; modificatori -- impostano lo stato MODSTAGE (dopo sono ammessi solo i tipi)39653966 ; case 'l' -- modificatore 'long'3967 F82662 case_lo:3968 F82662 A2 20 ldx #F2_LONG3969 F82664 80 0E bra setmod39703971 ; case 'h' -- modificatore 'short'3972 F82666 case_sh:3973 F82666 A2 10 ldx #F2_SHORT3974 F82668 80 0A bra setmod39753976 ; case 'b' -- modificatore 'byte'Tue Jul 17 11:00:17 2018 Page 253977 F8266A case_SH:3978 F8266A A2 08 ldx #F2_BYTE3979 F8266C 80 06 bra setmod39803981 ; case 'D' -- modificatore BCD float number3982 F8266E case_bc:3983 F8266E A2 40 ldx #F2_BCD3984 F82670 80 02 bra setmod3985 F826723986 ; case 'B' -- modificatore stringa pascal/basic3987 F82672 case_PS:3988 F82672 A2 80 ldx #F2_PSSTRING39893990 F82674 setmod:3991 F82674 C9 05 cmp #MODSTAGE3992 F82676 B0 07 bcs ?10 ; abandon3993 F82678 8A txa3994 F82679 04 0E tsb FmtMod3995 F8267B A9 05 lda #MODSTAGE ; stadio finale specificatore3996 F8267D 18 clc ; OK3997 F8267E B8 clv ; continua scanning3998 F8267F 60 ?10: rts3999 F826804000 ;============================================================================4001 ; specificatori di tipo -- qualsiasi tipo a qualsiasi stadio termina4002 ; lo scanning40034004 ; case 'P' -- pointer HEX4005 F82680 case_PT:4006 F82680 A9 04 lda #F2_CAPS ; set CAPS4007 F82682 04 0E tsb FmtMod40084009 ; case 'p' -- pointer hex4010 F82684 case_pt:4011 F82684 A9 01 lda #F2_SIGNED4012 F82686 14 0E trb FmtMod ; clear flag signed4013 F82688 A9 20 lda #F_FILLZ ; ignora padding a sx. con '0'4014 F8268A 14 0B trb FmtFlag4015 F8268C A2 04 ldx #T_PTR ; indice funzione conversione4016 F8268E A9 F8 lda #MASKPTR ; maschera modificatori non ammessi4017 F82690 80 72 bra tsttype4018 F826924019 ; case 'X' -- unsigned HEX4020 F82692 case_HE:4021 F82692 A9 04 lda #F2_CAPS4022 F82694 04 0E tsb FmtMod4023 F826964024 ; case 'x' -- unsigned hex4025 F82696 case_he:4026 F82696 A9 01 lda #F2_SIGNED4027 F82698 14 0E trb FmtMod ; clear flag signed4028 F8269A A5 0B lda FmtFlag4029 F8269C 89 04 bit #F_PREC4030 F8269E F0 04 beq ?024031 F826A0 A9 20 lda #F_FILLZ ; ignora padding a sx. con '0'4032 F826A2 14 0B trb FmtFlag ; se specificata precision4033 F826A4 A2 08 ?02: ldx #T_HEX ; indice funzione conversioneTue Jul 17 11:00:17 2018 Page 264034 F826A6 A9 C0 lda #MASKINTG ; maschera modificatori non ammessi4035 F826A8 80 5A bra tsttype40364037 ; case 'd', 'i' -- signed integer4038 F826AA case_de:4039 F826AA A9 01 lda #F2_SIGNED4040 F826AC 04 0E tsb FmtMod ; set flag signed4041 F826AE 80 04 bra case_i40424043 ; case 'u' -- unsigned integer4044 F826B0 case_un:4045 F826B0 A9 01 lda #F2_SIGNED4046 F826B2 14 0E trb FmtMod ; clear flag signed40474048 ; parte comune per gli interi decimali4049 F826B4 case_i:4050 F826B4 A5 0B lda FmtFlag4051 F826B6 89 04 bit #F_PREC4052 F826B8 F0 04 beq ?024053 F826BA A9 20 lda #F_FILLZ ; ignora padding a sx. con '0'4054 F826BC 14 0B trb FmtFlag ; se specificata precision4055 F826BE A9 80 ?02: lda #F_ALTFMT4056 F826C0 14 0B trb FmtFlag ; decimale ignora formato alternativo4057 F826C2 A2 06 ldx #T_INT ; indice funzione conversione4058 F826C4 A9 C0 lda #MASKINTG ; maschera modificatori non ammessi4059 F826C6 80 3C bra tsttype40604061 ; case 'c' -- char4062 F826C8 case_ch:4063 F826C8 A9 84 lda #(F_ALTFMT.OR.F_PREC) ; ignora precision e formato alt.4064 F826CA 14 0B trb FmtFlag4065 F826CC A2 00 ldx #T_CHAR ; indice funzione conversione4066 F826CE A9 F8 lda #MASKCHAR ; maschera modificatori non ammessi4067 F826D0 80 32 bra tsttype4068 F826D24069 ; case 's' -- string4070 F826D2 case_st:4071 F826D2 A9 80 lda #F_ALTFMT ; ignora formato alt.4072 F826D4 14 0B trb FmtFlag4073 F826D6 A2 02 ldx #T_STR ; indice funzione conversione4074 F826D8 A9 78 lda #MASKSTR ; maschera modificatori non ammessi4075 F826DA 80 28 bra tsttype40764077 ; case 'E' -- float formato EXP4078 F826DC case_FE:4079 F826DC A9 04 lda #F2_CAPS4080 F826DE 04 0E tsb FmtMod40814082 ; case 'e' -- float formato exp4083 F826E0 case_fe:4084 F826E0 A9 00 lda #$00 ; flag formato e/E4085 F826E2 80 16 bra case_f4086 F826E44087 ; case 'G' -- float formato G4088 F826E4 case_FG:4089 F826E4 A9 04 lda #F2_CAPS4090 F826E6 04 0E tsb FmtModTue Jul 17 11:00:17 2018 Page 2740914092 ; case 'g' -- float formato g4093 F826E8 case_fg:4094 F826E8 A9 40 lda #$40 ; flag formato g/G4095 F826EA 80 0E bra case_f4096 F826EC4097 ; case 'A' -- float formato A4098 F826EC case_XF:4099 F826EC A9 04 lda #F2_CAPS4100 F826EE 04 0E tsb FmtMod41014102 ; case 'a' -- float formato a4103 F826F0 case_xf:4104 F826F0 A9 20 lda #F_FILLZ ; formato a/A no padding a sx con '0'4105 F826F2 14 0B trb FmtFlag4106 F826F4 A9 04 lda #$04 ; flag formato a/A4107 F826F6 80 02 bra case_f41084109 ; case 'f', 'F' -- float formato decimale4110 F826F8 case_ff:4111 F826F8 A9 20 lda #$20 ; flag formato f/F41124113 ; parte comune ai numeri float4114 F826FA case_f:4115 ; i numeri float possono avere padding a sx con '0' anche se viene4116 ; specificata la precision4117 F826FA 85 16 sta XVFlag ; flag formattazione4118 F826FC A9 01 lda #F2_SIGNED4119 F826FE 04 0E tsb FmtMod ; set flag signed4120 F82700 A2 0A ldx #T_FLOAT ; indice funzione conversione4121 F82702 A9 B8 lda #MASKFLOAT ; maschera modificatori non ammessi41224123 ; testa modificatore tipo4124 F82704 tsttype:4125 F82704 24 0E bit FmtMod ; test modificatori non ammessi4126 F82706 F0 02 beq ?04 ; OK4127 F82708 38 sec ; abandon4128 F82709 60 rts4129 F8270A E2 40 ?04: sep #PVFLAG ; set V = 1 -- fine scanning4130 F8270C 18 clc ; OK -> conversione4131 F8270D 60 rts4132 F8270E4133 ;----------------------------------------------------------------------------4134 ; COSTANTI4135 ;----------------------------------------------------------------------------41364137 ; tabella classi caratteri di conversione (carattere >= 32 e < 128)4138 F8270E CLASSCHR:41394140 ; SP ! " # $ % & ' ( ) * + , - . /4141 F8270E 01 00 00 02 00 .DB _si,_dc,_dc,_af,_dc,_dc,_dc,_dc,_dc,_dc,_ar,_si,_tg,_lj,_pr,_dc00 00 00 00 0003 01 18 04 050041424143 ; 0 1 2 3 4 5 6 7 8 9 : ; < = > ?4144 F8271E 0A 06 06 06 06 .DB _fz,_nu,_nu,_nu,_nu,_nu,_nu,_nu,_nu,_nu,_dc,_dc,_dc,_dc,_dc,_dcTue Jul 17 11:00:17 2018 Page 2806 06 06 06 0600 00 00 00 000041454146 ; _ A B C D E F G H I J K L M N O4147 F8272E 00 1C 1A 00 19 .DB _dc,_XF,_PS,_dc,_bc,_FE,_ff,_FG,_dc,_dc,_dc,_dc,_dc,_dc,_dc,_dc16 13 17 00 0000 00 00 00 000041484149 ; P Q R S T U V W X Y Z [ \ ] ^ _4150 F8273E 10 00 00 00 00 .DB _PT,_dc,_dc,_dc,_dc,_dc,_dc,_dc,_HE,_dc,_dc,_dc,_dc,_dc,_dc,_dc00 00 00 0F 0000 00 00 00 000041514152 ; ` a b c d e f g h i j k l m n o4153 F8274E 00 1B 09 11 0B .DB _dc,_xf,_SH,_ch,_de,_fe,_ff,_fg,_sh,_de,_dc,_dc,_lo,_dc,_dc,_dc14 13 15 08 0B00 00 07 00 000041544155 ; p q r s t u v w x y z { | } ~ DEL4156 F8275E 0E 00 00 12 00 .DB _pt,_dc,_dc,_st,_dc,_un,_dc,_dc,_he,_dc,_dc,_dc,_dc,_dc,_dc,_dc0C 00 00 0D 0000 00 00 00 000041574158 ; tabella funzioni scanning formato4159 F8276E SCANTBL:4160 F8276E 0126 9B25 C225 .DW case_dc, case_si, case_af, case_arD4254161 F82776 BB25 5526 0326 .DW case_lj, case_pr, case_nu, case_lo62264162 F8277E 6626 6A26 AA25 .DW case_sh, case_SH, case_fz, case_deAA264163 F82786 B026 9626 8426 .DW case_un, case_he, case_pt, case_HE92264164 F8278E 8026 C826 D226 .DW case_PT, case_ch, case_st, case_ffF8264165 F82796 E026 E826 DC26 .DW case_fe, case_fg, case_FE, case_FGE4264166 F8279E CD25 6E26 7226 .DW case_tg, case_bc, case_PS, case_xfF0264167 F827A6 EC26 .DW case_XF4168 F827A84169 ; tabella funzioni di conversione4170 F827A8 CVTTBL:4171 F827A8 A924 C724 F323 .DW DoChar, DoStr, DoPtr, DoInt, DoHex, DoFloat2424 4E24 83234172 F827B44173 F827B4 NULLSTR:4174 F827B4 28 6E 75 6C 6C .DB "(null)", 029 00Lines Assembled : 4009 Errors : 0