Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:16 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F8\intp.asmOutput Filename : obj\F8\intp.objListing Has Been Relocated2588 .LIST on258925902591 ;----------------------------------------------------------2592 ; variabili in Direct-Page 022593 ;----------------------------------------------------------2594 F8FFB12595 F8FFB1 .INCLUDE inc\dirp02.inc2596 ;----------------------------------------------------------2597 ; DIRP02.ASM2598 ; PROGETTO: B16012599 ;2600 ; Variabili in Direct Page $022601 ;----------------------------------------------------------26022603 ; sezione COMMON -- questo permette di includere il file in piu' file26042605 DIRP02: .SECTION page0, ref_only, common ;Direct-Page 0226062607 000000 .ABSOLUTE ;; inizia sempre da $002608 000000 .ORG 0x002609 0000002610 ; variabili usate nella funzione _vprintl e famiglia funzioni di formattazione2611 000000 0000 FmtParm .DW ;; ptr array parametri banco 02612 000002 FmtLPFmt LP ;; long ptr stringa szFmt2613 000005 FmtLPPut LP ;; long ptr funzione 'putter'2614 000008 00 FmtSpec .DB ;; indice '%' corrente in szFmt2615 000009 00 FmtWidth .DB ;; campo width2616 00000A 00 FmtPrec .DB ;; campo precision2617 00000B 00 FmtFlag .DB ;; flag formattazione2618 00000C 00 FmtSgn .DB ;; segno positivo (se 0 -> no segno)2619 00000D 00 VStoreF .DB ;; flag modo store2620 00000E 00 FmtMod .DB ;; flag modificatori2621 00000F 00 FmtDst .DB ;; ptr stringa szDst banco 026222623 000010 0000 FmtCnt .DW ;; contatore caratteri2624 000012 0000 FmtGMax .DW ;; max. len stringa globale2625 0000142626 000014 0000 XVDec .DW ; esponente decimale (signed)2627 000016 00 XVFlag .DB ; flag per conversioni numeriche2628 0000172629 000017 00 ACMCmps .DB ; flag compare segno e tipo (intero)26302631 000018 ACM DQ ; accumulatore #1 integer 64 bit2632 000020 00 ACMSize .DB ; size2633 000021 00 ACMSgn .DB ; <7>:segno, <6>:tipo signedTue Jul 17 11:00:16 2018 Page 22634 000022 00 ACMMinSize .DB ; minima dimensione richiesta per ACM2635 000023 00 IARGMinSize .DB26362637 000024 00 FPTmp1 .DB ; byte temporaneo2638 000025 00 FPTmp2 .DB ; byte temporaneo2639 000026 00 FPTmp3 .DB ; byte temporaneo2640 000027 00 FPTmp4 .DB ; byte temporaneo26412642 000028 IARG DQ ; accumulatore #2 integer 64 bit2643 000030 00 IARGSize .DB ; size2644 000031 00 IARGSgn .DB ; <7>:segno, <6>:tipo signed26452646 000032 FOP DS 9 ; temporaneo per FDIV/FMULT/integer MULT/DIV2647 ; conversione integer -> string2648 00003B 00 FPIndx .DB ; byte generico indice2649 00003C 0000 FPWTmp7 .DW ; word temporanea2650 00003E 0000 FPWTmp8 .DW ; word temporanea26512652 ; variabili temporanee sovrapposte a FOP2653 000036 FACXM .EQU FOP+4 ; byte temporaneo2654 000037 ARGXM .EQU FOP+5 ; byte temporaneo2655 000038 FPWTmp5 .EQU FOP+6 ; word temporanea2656 00003A FPTmp6 .EQU FOP+8 ; byte temporaneo26572658 ; Floating Point Accumulator #1 - FAC2659 000040 00 FACSGN .DB ; FAC mantissa sign2660 000041 00 FACEXT .DB ; FAC 8 bit extension (rounding)2661 000042 FACM DQ ; FAC Mantissa (64 bit)2662 00004A 0000 FACExp .DW ; FAC Exponent2663 00004A FACEXPL .EQU FACExp ; FAC Exponent Low2664 00004B FACEXPH .EQU FACExp+1 ; FAC Exponent Hi26652666 00004C 00 FACSCMP .DB ; Sign Comparison Result: FAC vs ARG2667 00004D 00 FACMlt .DB ; flag MULT2668 00004E 00 FACUndf .DB ; conteggio shift per underflow2669 00004F 00 FPDCnt .DB ; contatore per inserzione punto decimale2670 0000502671 ; Floating Point Accumulator #2 - ARG2672 000050 00 ARGSGN .DB ; ARG mantissa sign2673 000051 00 ARGEXT .DB ; ARG 8 bit extension (rounding)2674 000052 ARGM DQ ; ARG Mantissa (64 bit)2675 00005A 0000 ARGExp .DW ; ARG Exponent2676 00005A ARGEXPL .EQU ARGExp ; ARG Exponent Low2677 00005B ARGEXPH .EQU ARGExp+1 ; ARG Exponent Hi26782679 ; numero bytes FAC2680 00000A FACSIZE .EQU (FACEXPH - FACEXT)2681 000008 MANTSIZE .EQU (FACSIZE - 2)2682 000040 FACMBITS .EQU (MANTSIZE * 8)2683 000041 FAC .EQU FACEXT2684 000051 ARG .EQU ARGEXT26852686 00005C 0000 FPWTmp .DW2687 00005E 0000 FPExp .DW ; esponente conversioni str/float2688 000060 FPLPtr LP ; long ptr operazioni move2689 000063 00 FPFlag .DB ; flag generico operazioni FPU2690 000064 FACTmp .DS 12 ; registro FAC temporaneo (con sgn ed ext)Tue Jul 17 11:00:16 2018 Page 326912692 ; buffer per conversione da int/float a string (20 digit + 2)2693 000016 FPSTRSIZE .EQU 222694 000070 FPUStr .DS FPSTRSIZE26952696 ; buffer per formattazione int/float2697 000030 XFSTRSIZE .EQU 482698 000086 XCVTStr .DS XFSTRSIZE2699 0000B5 XCVTStrEnd .EQU ($ - 1)27002701 0000B6 DUMMY100 .DS 2227022703 000060 PTR1 .EQU FPLPtr ; long ptr operazioni 'move'2704 000063 FPFLAG .EQU FPFlag2705 00004F FPDCNT .EQU FPDCnt2706 0000CC2707 0000CC .RELATIVE27082709 .ENDS27102711 FFFFB0 MAXMANTSHIFT .EQU (-(FACMBITS + 16)) ; max. shift divisione mant.2712 00002F XCVTMAXF .EQU (XFSTRSIZE - 1) ; max. caratteri formato F2713 000027 XCVTMAXE .EQU (XCVTMAXF - 8) ; max. caratteri formato E2714 00002E XCVTMAXI .EQU (XFSTRSIZE - 2) ; max. caratteri stringa int.27152716 F8FFB1271727182719 ; max. unsigned: 184467440737095516152720 ; max. signed : 92233720368547758072721 ; min. signed : -922337203685477580827222723 ;----------------------------------------------------------2724 ; segmento codice banco $F82725 ;----------------------------------------------------------27262727 .CODEF82728 .GLOBAL _iUMult8, _iUMult16, _iUMult32, _iUMult642729 .GLOBAL _iSMult8, _iSMult16, _iSMult32, _iSMult642730 .GLOBAL _iUDiv8, _iUDiv16, _iUDiv32, _iUDiv64, Byte2Hex2731 .GLOBAL _iSDiv8, _iSDiv16, _iSDiv32, _iSDiv642732 .GLOBAL _Str2Hex, _Str2Int, _Int2Str, _UI2Str, _iMovACM2A2733 .PUBLIC fidiv, fimlt27342735 .LONGA off2736 .LONGI off27372738 000008 INTGSIZE .EQU 8 ; # bytes interi a 64 bytes2739 00007F MAXINTSTR .EQU 127 ; max. lughezza stringa dec/hex274027412742 ; _lstrtoint(lpStr, bSiz, bFlag, lpRes)2743 ;2744 ; convert decimal/hexadecimal string lpStr to integer2745 ;2746 ; entry2747 ; lpStr = long pointer to stringTue Jul 17 11:00:16 2018 Page 42748 ; bSiz = size of integer (1,2,3,4,8) - size=3 valid for hex only2749 ; bFlag = <7>: wanted signed integer2750 ; <6>: default to decimal string (autodetect '$' for hex)2751 ; lpRes = long pointer to dest. buffer to store result2752 ;2753 ; exit2754 ; C,X = long pointer to first invalid char. (not digit)2755 ; Y = <7>: sign of result (only if bit 6 is set)2756 ; <6>: set if result is signed integer2757 ;2758 ; P: = CF & VF flag's report any error condition2759 ; CF = 0 & VF = 0 -> no error2760 ; CF = 0 & VF = 1 -> mismatch type (signed/unsigned)2761 ; CF = 1 & VF = 0 -> no conversion (invalid string)2762 ; CF = 1 & VF = 1 -> overflow error2763 ;2764 ;2765 000008 M .SET 8 ; param's bytes count2766 00000D N .SET 13 ; bytes pushed on stack after param's2767 00000E lpRes .SET N+12768 000011 bFlag .SET N+42769 000012 bSiz .SET N+52770 000013 lpStr .SET N+62771 000001 CReg .SET 12772 000003 YReg .SET 32773 000005 XReg .SET 52774 00000A PReg .SET 1027752776 ;----------------------2777 F827BB _lstrtoint:2778 .PUBLIC _lstrtoint2779 ;----------------------27802781 .LONGA off2782 .LONGI off27832784 F827BB 08 php ; save register's size and CF&VF exit value's2785 F827BC 8B phb ; save dbr2786 F827BD 0B phd ; save dpr2787 F827BE CPU162788 F827BE C2 30 rep #(PMFLAG.OR.PXFLAG)2789 .LONGA on2790 .LONGI on2791 .MNLIST2792 F827C0 DA phx ; X exit value2793 F827C1 5A phy ; Y exit value2794 F827C2 48 pha ; C exit value2795 F827C3 A9 00 02 lda #DP02ADDR ; set working dpr2796 F827C6 5B tcd2797 F827C7 CPU082798 F827C7 E2 30 sep #(PMFLAG.OR.PXFLAG)2799 .LONGA off2800 .LONGI off2801 .MNLIST2802 F827C9 A3 0A lda PReg,s2803 F827CB 29 BE and #~(PCFLAG+PVFLAG)2804 F827CD 83 0A sta PReg,s ; clear CF & VFTue Jul 17 11:00:16 2018 Page 52805 F827CF A3 12 lda bSiz,s2806 F827D1 85 24 sta FPTmp1 ; integer size2807 F827D3 A3 11 lda bFlag,s2808 F827D5 85 25 sta FPTmp2 ; conversion flag2809 F827D7 AA tax2810 F827D8 0A asl a ; test bit 62811 F827D9 10 30 bpl ?20 ; convert hex. string2812 F827DB A3 15 lda lpStr+2,s2813 F827DD 48 pha2814 F827DE AB plb2815 F827DF A0 00 ldy #02816 F827E1 B3 13 lda (lpStr,s),y ; check first char2817 F827E3 C9 24 cmp #'$' ; hex. string?2818 F827E5 D0 0B bne ?10 ; no2819 F827E7 ACC162820 F827E7 C2 20 rep #PMFLAG2821 .LONGA on2822 .MNLIST2823 F827E9 A3 13 lda lpStr,s ; bump string pointer2824 F827EB 1A inc a2825 F827EC 83 13 sta lpStr,s2826 F827EE ACC082827 F827EE E2 20 sep #PMFLAG2828 .LONGA off2829 .MNLIST2830 F827F0 80 19 bra ?20 ; convert hex. string2831 F827F2 A4 24 ?10: ldy FPTmp12832 F827F4 C0 03 cpy #3 ; decimal conversion refuse pointer size2833 F827F6 F0 13 beq ?20 ; force hex.2834 F827F8 8A ?15: txa2835 F827F9 29 80 and #$80 ; wanted signed flag2836 F827FB 05 24 ora FPTmp1 ; add size2837 F827FD AA tax2838 F827FE A3 15 lda lpStr+2,s2839 F82800 A8 tay2840 F82801 A3 14 lda lpStr+1,s2841 F82803 EB xba2842 F82804 A3 13 lda lpStr,s2843 F82806 20 C7 2E jsr _Str2Int ; decimal string2844 F82809 80 0D bra ?252845 F8280B A6 24 ?20: ldx FPTmp12846 F8280D A3 15 lda lpStr+2,s2847 F8280F A8 tay2848 F82810 A3 14 lda lpStr+1,s2849 F82812 EB xba2850 F82813 A3 13 lda lpStr,s2851 F82815 20 7E 2F jsr _Str2Hex ; hex string2852 F82818 A3 0A ?25: lda PReg,s ; set status result2853 F8281A 90 02 bcc ?26 ; no error2854 F8281C 09 01 ora #PCFLAG ; set CF on exit status2855 F8281E 50 02 ?26: bvc ?272856 F82820 09 40 ora #PVFLAG ; set VF on exit status2857 F82822 83 0A ?27: sta PReg,s2858 F82824 AA tax2859 F82825 ACC16CLC2860 F82825 C2 21 rep #(PMFLAG.OR.PCFLAG)2861 .LONGA onTue Jul 17 11:00:16 2018 Page 62862 .MNLIST2863 F82827 98 tya ; remainder string ptr2864 F82828 63 13 adc lpStr,s2865 F8282A 83 01 sta CReg,s2866 F8282C ACC082867 F8282C E2 20 sep #PMFLAG2868 .LONGA off2869 .MNLIST2870 F8282E A3 15 lda lpStr+2,s2871 F82830 90 01 bcc ?282872 F82832 1A inc a2873 F82833 83 05 ?28: sta XReg,s2874 F82835 A9 00 lda #02875 F82837 83 06 sta XReg+1,s2876 F82839 83 04 sta YReg+1,s2877 F8283B A5 21 lda ACMSgn2878 F8283D 83 03 sta YReg,s2879 F8283F 8A txa ; status2880 F82840 4A lsr a ; CF check2881 F82841 B0 15 bcs ?40 ; error, so no store result2882 F82843 A3 12 lda bSiz,s2883 F82845 85 24 sta FPTmp1 ; size2884 F82847 A3 10 lda lpRes+2,s2885 F82849 48 pha2886 F8284A AB plb2887 F8284B A0 00 ldy #02888 F8284D BB tyx2889 F8284E B5 18 ?30: lda ACM,x2890 F82850 93 0E sta (lpRes,s),y2891 F82852 C8 iny2892 F82853 E8 inx2893 F82854 E4 24 cpx FPTmp12894 F82856 90 F6 bcc ?302895 F82858 ?40: CPU16CLC2896 F82858 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2897 .LONGA on2898 .LONGI on2899 .MNLIST2900 F8285A 3B tsc ; epilogue code2901 F8285B 69 0D 00 adc #N2902 F8285E AA tax ; source address for move2903 F8285F 69 08 00 adc #M2904 F82862 A8 tay ; destination address for move2905 F82863 A9 0C 00 lda #N-1 ; bytes to move - 12906 F82866 44 00 00 mvp #0, #0 ; move previous2907 F82869 98 tya ; new stack pointer2908 F8286A 1B tcs2909 F8286B 68 pla ; return C2910 F8286C 7A ply ; return Y2911 F8286D FA plx ; return X2912 F8286E 2B pld ; restore dpr2913 F8286F AB plb ; restore dbr2914 F82870 28 plp ; restore status2915 F82871 6B rtl29162917 ;----------------------------------------------------------2918 ; estensione segno accumulatoriTue Jul 17 11:00:16 2018 Page 72919 ;----------------------------------------------------------29202921 ; _iCWD16 - estende ACM a WORD2922 F82872 _iCWD16:2923 F82872 A6 20 ldx ACMSize2924 F82874 E0 02 00 cpx #$02 ; ACM WORD ?2925 F82877 B0 13 bcs ?06 ; si -- non deve estendere2926 F82879 A0 00 00 ldy #02927 F8287C 24 21 bit ACMSgn2928 F8287E 50 07 bvc ?04 ; unsigned => estende con 002929 F82880 CA dex ; indice MSB BYTE2930 F82881 34 18 bit ACM,x2931 F82883 10 01 bpl ?02 ; signed positivo => estende con 002932 F82885 88 dey ; signed negativo => estende con FF2933 F82886 E8 ?02: inx ; indice MSB WORD2934 F82887 94 18 ?04: sty ACM,x2935 F82889 E8 inx ; size = 2 (WORD)2936 F8288A 86 20 stx ACMSize ; update size2937 F8288C 60 ?06: rts29382939 ; _iCWD32 - estende ACM a LONG2940 F8288D _iCWD32:2941 F8288D 20 72 28 jsr _iCWD16 ; assicura ACM esteso a WORD2942 F82890 A6 20 ldx ACMSize2943 F82892 E0 04 00 cpx #$04 ; ACM LONG ?2944 F82895 B0 18 bcs ?06 ; si -- non deve estendere2945 F82897 A0 00 00 ldy #02946 F8289A INDEX162947 F8289A C2 10 rep #PXFLAG2948 .LONGI on2949 .MNLIST2950 F8289C 24 21 bit ACMSgn2951 F8289E 50 07 bvc ?04 ; unsigned => estende con 00002952 F828A0 CA dex ; indice MSB WORD2953 F828A1 34 18 bit ACM,x2954 F828A3 10 01 bpl ?02 ; signed positivo => estende con 00002955 F828A5 88 dey ; signed negativo => estende con FFFF2956 F828A6 E8 ?02: inx ; indice MSB LONG2957 F828A7 94 18 ?04: sty ACM,x ; estende2958 F828A9 INDEX082959 F828A9 E2 10 sep #PXFLAG2960 .LONGI off2961 .MNLIST2962 F828AB E8 inx2963 F828AC E8 inx ; size = 4 (LONG)2964 F828AD 86 20 stx ACMSize ; update size2965 F828AF 60 ?06: rts29662967 ; _iCWD64 - estende ACM a QUAD2968 F828B0 _iCWD64:2969 F828B0 20 8D 28 jsr _iCWD32 ; assicura ACM esteso a LONG2970 F828B3 A6 20 ldx ACMSize2971 F828B5 E0 08 cpx #$08 ; ACM QUAD ?2972 F828B7 B0 19 bcs ?06 ; si -- non deve estendere2973 F828B9 A0 00 ldy #02974 F828BB INDEX162975 F828BB C2 10 rep #PXFLAGTue Jul 17 11:00:16 2018 Page 82976 .LONGI on2977 .MNLIST2978 F828BD 24 21 bit ACMSgn2979 F828BF 50 07 bvc ?04 ; unsigned => estende con 00002980 F828C1 CA dex ; indice MSB LONG2981 F828C2 34 18 bit ACM,x2982 F828C4 10 01 bpl ?02 ; signed positivo => estende con 00002983 F828C6 88 dey ; signed negativo => estende con FFFF2984 F828C7 E8 ?02: inx ; indice MSB QUAD2985 F828C8 94 18 ?04: sty ACM,x ; estende2986 F828CA 94 1A sty ACM+2,x2987 F828CC INDEX082988 F828CC E2 10 sep #PXFLAG2989 .LONGI off2990 .MNLIST2991 F828CE A2 08 ldx #$08 ; size = 8 (QUAD)2992 F828D0 86 20 stx ACMSize ; update size2993 F828D2 60 ?06: rts29942995 ; _iCWDARG16 - estende IARG a WORD2996 F828D3 _iCWDARG16:2997 F828D3 A6 30 ldx IARGSize2998 F828D5 E0 02 cpx #$02 ; IARG WORD ?2999 F828D7 B0 12 bcs ?06 ; si -- non deve estendere3000 F828D9 A0 00 ldy #03001 F828DB 24 31 bit IARGSgn3002 F828DD 50 07 bvc ?04 ; unsigned => estende con 003003 F828DF CA dex ; indice MSB BYTE3004 F828E0 34 28 bit IARG,x3005 F828E2 10 01 bpl ?02 ; signed positivo => estende con 003006 F828E4 88 dey ; signed negativo => estende con FF3007 F828E5 E8 ?02: inx ; indice MSB WORD3008 F828E6 94 28 ?04: sty IARG,x3009 F828E8 E8 inx ; size = 2 (WORD)3010 F828E9 86 30 stx IARGSize ; update size3011 F828EB 60 ?06: rts30123013 ; _iCWDARG32 - estende IARG a LONG3014 F828EC _iCWDARG32:3015 F828EC 20 D3 28 jsr _iCWDARG16 ; assicura IARG esteso a WORD3016 F828EF A6 30 ldx IARGSize3017 F828F1 E0 04 cpx #$04 ; IARG LONG ?3018 F828F3 B0 17 bcs ?06 ; si -- non deve estendere3019 F828F5 A0 00 ldy #03020 F828F7 INDEX163021 F828F7 C2 10 rep #PXFLAG3022 .LONGI on3023 .MNLIST3024 F828F9 24 31 bit IARGSgn3025 F828FB 50 07 bvc ?04 ; unsigned => estende con 00003026 F828FD CA dex ; indice MSB WORD3027 F828FE 34 28 bit IARG,x3028 F82900 10 01 bpl ?02 ; signed positivo => estende con 00003029 F82902 88 dey ; signed negativo => estende con FFFF3030 F82903 E8 ?02: inx ; indice MSB LONG3031 F82904 94 28 ?04: sty IARG,x ; estende3032 F82906 INDEX08Tue Jul 17 11:00:16 2018 Page 93033 F82906 E2 10 sep #PXFLAG3034 .LONGI off3035 .MNLIST3036 F82908 E8 inx3037 F82909 E8 inx ; size = 4 (LONG)3038 F8290A 86 30 stx IARGSize ; update size3039 F8290C 60 ?06: rts30403041 ; _iCWDARG64 - estende IARG a QUAD3042 F8290D _iCWDARG64:3043 F8290D 20 EC 28 jsr _iCWDARG32 ; assicura IARG esteso a LONG3044 F82910 A6 30 ldx IARGSize3045 F82912 E0 08 cpx #$08 ; IARG QUAD ?3046 F82914 B0 19 bcs ?06 ; si -- non deve estendere3047 F82916 A0 00 ldy #03048 F82918 INDEX163049 F82918 C2 10 rep #PXFLAG3050 .LONGI on3051 .MNLIST3052 F8291A 24 31 bit IARGSgn3053 F8291C 50 07 bvc ?04 ; unsigned => estende con 00003054 F8291E CA dex ; indice MSB LONG3055 F8291F 34 28 bit IARG,x3056 F82921 10 01 bpl ?02 ; signed positivo => estende con 00003057 F82923 88 dey ; signed negativo => estende con FFFF3058 F82924 E8 ?02: inx ; indice MSB QUAD3059 F82925 94 28 ?04: sty IARG,x ; estende3060 F82927 94 2A sty IARG+2,x3061 F82929 INDEX083062 F82929 E2 10 sep #PXFLAG3063 .LONGI off3064 .MNLIST3065 F8292B A2 08 ldx #$08 ; size = 8 (QUAD)3066 F8292D 86 30 stx IARGSize ; update size3067 F8292F 60 ?06: rts30683069 ; _iCWD2 - estensione segno operandi ACM e IARG3070 F82930 _iCWD2:3071 F82930 A5 30 lda IARGSize3072 F82932 C5 20 cmp ACMSize3073 F82934 F0 20 beq ?10 ; no estensione3074 F82936 B0 02 bcs ?02 ; CF = 1 => estende ACM3075 F82938 A5 20 lda ACMSize3076 F8293A 08 ?02: php ; salva CF3077 F8293B A2 02 ldx #$023078 F8293D DF 5F 29 F8 ?04: cmp >CWDTBL,x ; X = indice CWD3079 F82941 F0 07 beq ?063080 F82943 CA dex3081 F82944 10 F7 bpl ?043082 F82946 28 plp ; non dovrebbe accadere3083 F82947 B8 clv ; VF = 03084 F82948 38 sec ; CF = 13085 F82949 60 rts3086 F8294A 8A ?06: txa3087 F8294B 0A asl a3088 F8294C 28 plp ; ripristina CF3089 F8294D B0 03 bcs ?08 ; CF = 1 => CWD ACMTue Jul 17 11:00:16 2018 Page 103090 F8294F 69 06 00 adc #$06 ; CF = 0 => CWD IARG3091 F82952 AA ?08: tax ; indice funzione3092 F82953 FC 62 29 jsr (CWDJMP,x) ; estensione segno ACM/IARG3093 F82956 A5 20 ?10: lda ACMSize3094 F82958 45 30 eor IARGSize3095 F8295A 85 17 sta ACMCmps ; set flag compare segno (7) e tipo (6)3096 F8295C B8 clv3097 F8295D 18 clc3098 F8295E 60 rts3099 F8295F3100 ; tabella per estensione segno3101 F8295F CWDTBL:3102 F8295F 02 04 08 .DB $02, $04, $0831033104 ; tabella funzioni CWD ACM3105 F82962 CWDJMP:3106 F82962 7228 8D28 B028 .DW _iCWD16, _iCWD32, _iCWD643107 F829683108 ; tabella funzioni CWD IARG3109 F82968 CWDJMP2:3110 F82968 D328 EC28 0D29 .DW _iCWDARG16, _iCWDARG32, _iCWDARG6431113112 ;----------------------------------------------------------3113 ; implementazione MULT unsigned integer3114 ;----------------------------------------------------------31153116 ; _iUMult8: moltiplicazione integer 8 bit unsigned3117 ; In: ACM: unsigned integer 13118 ; IARG: unsigned integer 23119 ; Out: ACM..ACM+1 -> risultato integer unsigned (16 bit)3120 ; X = 03121 ; Y = minima size3122 ; CF = 03123 ; Uso: A,X,Y,ACM,IARG3124 F8296E _iUMult8:3125 F8296E A9 00 00 lda #0 ; azzera parte alta del risultato3126 F82971 A2 09 LDX #9 ; ciclo 9 bit3127 F82973 18 CLC3128 F82974 6A ?01: ror a ; ACM + 13129 F82975 66 18 ROR ACM3130 F82977 90 03 BCC ?023131 F82979 18 CLC3132 F8297A 65 28 adc IARG3133 F8297C CA ?02: DEX3134 F8297D D0 F5 BNE ?013135 F8297F 85 19 sta ACM+13136 F82981 A0 02 ldy #$023137 F82983 84 20 sty ACMSize ; ACM WORD3138 F82985 09 00 00 ora #$003139 F82988 D0 01 bne ?03 ; ACM+1 non ZERO3140 F8298A 88 dey ; ACM+1 = 0 => min size = BYTE3141 F8298B 84 22 ?03: sty ACMMinSize3142 F8298D 18 clc3143 F8298E 60 RTS31443145 ; _iUMult16: moltiplicazione integer 16 bit unsigned3146 ; In: ACM, ACM+1: unsigned integer 1Tue Jul 17 11:00:16 2018 Page 113147 ; IARG, IARG+1: unsigned integer 23148 ; Out: ACM..ACM+3 -> risultato integer unsigned (32 bit)3149 ; X = 03150 ; Y = minima size3151 ; CF = 03152 ; Uso: A,X,Y,ACM,IARG3153 F8298F _iUMult16:3154 F8298F ACC163155 F8298F C2 20 rep #PMFLAG3156 .LONGA on3157 .MNLIST3158 F82991 A9 00 00 lda #0 ; azzera parte alta del risultato3159 F82994 A2 11 LDX #17 ; ciclo 17 bit3160 F82996 18 CLC3161 F82997 6A ?01: ror a : ACM + 23162 F82998 66 18 ROR ACM3163 F8299A 90 03 BCC ?023164 F8299C 18 CLC3165 F8299D 65 28 adc IARG3166 F8299F CA ?02: DEX3167 F829A0 D0 F5 BNE ?013168 F829A2 85 1A sta ACM+23169 F829A4 A0 04 ldy #$043170 F829A6 84 20 sty ACMSize ; ACM LONG3171 F829A8 09 00 00 ora #$00003172 F829AB D0 02 bne ?03 ; WORD ACM+2 NON NULLA3173 F829AD 88 dey3174 F829AE 88 dey ; MIN SIZE = WORD3175 F829AF 84 22 ?03: sty ACMMinSize3176 F829B1 ACC083177 F829B1 E2 20 sep #PMFLAG3178 .LONGA off3179 .MNLIST3180 F829B3 18 clc3181 F829B4 60 RTS31823183 ; _iUMult32: moltiplicazione integer 32 bit unsigned3184 ; In: ACM..ACM+3: unsigned integer 13185 ; IARG..IARG+3: unsigned integer 23186 ; Out: ACM..ACM+7 -> risultato integer unsigned (64 bit)3187 ; X = 03188 ; Y = minima size3189 ; CF = 03190 ; Uso: A,X,Y,ACM,IARG3191 F829B5 _iUMult32:3192 F829B5 ACC163193 F829B5 C2 20 rep #PMFLAG3194 .LONGA on3195 .MNLIST3196 F829B7 64 1C STZ ACM+4 ; azzera parte alta del risultato3197 F829B9 64 1E STZ ACM+63198 F829BB A2 21 LDX #33 ; ciclo 33 bit3199 F829BD 18 CLC3200 F829BE 66 1E ?01: ROR ACM+63201 F829C0 66 1C ROR ACM+43202 F829C2 66 1A ROR ACM+23203 F829C4 66 18 ROR ACMTue Jul 17 11:00:16 2018 Page 123204 F829C6 90 0D BCC ?023205 F829C8 18 CLC3206 F829C9 A5 28 LDA IARG3207 F829CB 65 1C ADC ACM+43208 F829CD 85 1C STA ACM+43209 F829CF A5 2A LDA IARG+23210 F829D1 65 1E ADC ACM+63211 F829D3 85 1E STA ACM+63212 F829D5 CA ?02: DEX3213 F829D6 D0 E6 BNE ?013214 F829D8 A0 08 ldy #$083215 F829DA 84 20 sty ACMSize ; ACM QUAD3216 F829DC A5 1E lda ACM+63217 F829DE 05 1C ora ACM+43218 F829E0 D0 02 bne ?03 ; LONG ACM+4 NON ZERO3219 F829E2 A0 04 ldy #$04 ; MIN SIZE = LONG3220 F829E4 84 22 ?03: sty ACMMinSize3221 F829E6 ACC083222 F829E6 E2 20 sep #PMFLAG3223 .LONGA off3224 .MNLIST3225 F829E8 18 clc3226 F829E9 60 RTS32273228 ; _iUMult64: moltiplicazione integer 64 bit unsigned3229 ; In: ACM..ACM+7: unsigned integer 13230 ; IARG..IARG+7: unsigned integer 23231 ; Out: ACM..ACM+7 -> risultato integer unsigned (128 bit LOW)3232 ; FOP..FOP+7 -> risultato integer unsigned (128 bit HIGH) (OVERFLOW)3233 ; X = 03234 ; CF = 0 -> risultato OK3235 ; CF = 1 -> unsigned overflow3236 ; Uso: A,X,Y,ACM,IARG,FOP3237 F829EA _iUMult64:3238 F829EA A0 08 ldy #$083239 F829EC 84 22 sty ACMMinSize3240 F829EE 84 20 sty ACMSize3241 F829F0 ACC163242 F829F0 C2 20 rep #PMFLAG3243 .LONGA on3244 .MNLIST3245 F829F2 64 32 stz FOP ; azzera parte alta del risultato a 128 bit3246 F829F4 64 34 stz FOP+2 ; la parte bassa (64 bit) in ACM3247 F829F6 64 36 stz FOP+43248 F829F8 64 38 stz FOP+63249 F829FA A2 41 LDX #65 ; ciclo 65 bit3250 F829FC 18 CLC3251 F829FD 66 38 ?01: ROR FOP+63252 F829FF 66 36 ROR FOP+43253 F82A01 66 34 ROR FOP+23254 F82A03 66 32 ROR FOP3255 F82A05 66 1E ROR ACM+63256 F82A07 66 1C ROR ACM+43257 F82A09 66 1A ROR ACM+23258 F82A0B 66 18 ROR ACM3259 F82A0D 90 19 BCC ?023260 F82A0F 18 CLCTue Jul 17 11:00:16 2018 Page 133261 F82A10 A5 28 LDA IARG3262 F82A12 65 32 ADC FOP3263 F82A14 85 32 STA FOP3264 F82A16 A5 2A LDA IARG+23265 F82A18 65 34 ADC FOP+23266 F82A1A 85 34 STA FOP+23267 F82A1C A5 2C LDA IARG+43268 F82A1E 65 36 ADC FOP+43269 F82A20 85 36 STA FOP+43270 F82A22 A5 2E LDA IARG+63271 F82A24 65 38 ADC FOP+63272 F82A26 85 38 STA FOP+63273 F82A28 CA ?02: DEX3274 F82A29 D0 D2 BNE ?013275 F82A2B 38 sec ; flag overflow3276 F82A2C A5 32 lda FOP ; test overflow3277 F82A2E 05 34 ora FOP+23278 F82A30 05 36 ora FOP+43279 F82A32 05 38 ora FOP+63280 F82A34 D0 01 bne ?04 ; overflow -> CF = 13281 F82A36 18 clc3282 F82A37 ?04: ACC083283 F82A37 E2 20 sep #PMFLAG3284 .LONGA off3285 .MNLIST3286 F82A39 60 RTS32873288 ;----------------------------------------------------------3289 ; 2's complement3290 ;----------------------------------------------------------32913292 ; complento a 2 di IARG3293 F82A3A _iNegIARG3294 F82A3A A2 28 ldx #IARG3295 F82A3C 80 02 bra _iNegX32963297 ; complento a 2 di ACM3298 F82A3E _iNegACM:3299 F82A3E A2 18 ldx #ACM3300 F82A403301 ; complemento a 2 accumulatore X (ACM, IARG, FOP)3302 F82A40 _iNegX:3303 F82A40 38 sec3304 F82A41 _iNegXnc:3305 F82A41 5A phy ; salva Y3306 F82A42 A0 00 ldy #03307 F82A44 ACC163308 F82A44 C2 20 rep #PMFLAG3309 .LONGA on3310 .MNLIST3311 F82A46 98 tya ; A = 03312 F82A47 F5 00 sbc <0,x3313 F82A49 95 00 sta <0,x3314 F82A4B 98 tya3315 F82A4C F5 02 sbc <2,x3316 F82A4E 95 02 sta <2,x3317 F82A50 98 tyaTue Jul 17 11:00:16 2018 Page 143318 F82A51 F5 04 sbc <4,x3319 F82A53 95 04 sta <4,x3320 F82A55 98 tya3321 F82A56 F5 06 sbc <6,x3322 F82A58 95 06 sta <6,x3323 F82A5A ACC083324 F82A5A E2 20 sep #PMFLAG3325 .LONGA off3326 .MNLIST3327 F82A5C 7A ply3328 F82A5D 60 rts3329 F82A5E3330 ;----------------------------------------------------------3331 ; implementazione SMULT signed integer3332 ;----------------------------------------------------------33333334 ; _iSMult8: moltiplicazione integer 8 bit signed3335 ; In: ACM: signed integer 13336 ; IARG: signed integer 23337 ; Out: ACM..ACM+1 -> risultato integer signed (16 bit)3338 ; X = 03339 ; CF = 03340 ; Uso: A,X,Y,ACM,IARG3341 F82A5E _iSMult8:3342 F82A5E A2 00 ldx #03343 F82A60 A5 18 LDA ACM3344 F82A62 45 28 EOR IARG ; segno risultato3345 F82A64 29 80 and #$80 ; bit 7 => segno3346 F82A66 09 40 ora #$40 ; bit 6 => signed int3347 F82A68 85 21 sta ACMSgn ; salva segno3348 F82A6A 24 28 BIT IARG ; test segno IARG3349 F82A6C 10 06 BPL ?013350 F82A6E 38 SEC ; complementa IARG3351 F82A6F 8A txa3352 F82A70 E5 28 SBC IARG3353 F82A72 85 28 STA IARG3354 F82A74 24 18 ?01: BIT ACM ; test segno ACM3355 F82A76 10 06 BPL ?023356 F82A78 38 SEC ; complementa ACM3357 F82A79 8A txa3358 F82A7A E5 18 SBC ACM3359 F82A7C 85 18 STA ACM3360 F82A7E 20 6E 29 ?02: JSR _iUMult8 ; moltiplicazione unsigned (X = 0)3361 F82A81 C0 02 cpy #$02 ; min size WORD ?3362 F82A83 F0 0D beq ?02b ; si3363 ; se ACM <= 7F allora min size = BYTE3364 F82A85 A5 18 lda ACM3365 F82A87 C9 80 cmp #$803366 F82A89 90 07 bcc ?02b3367 F82A8B D0 04 bne ?02a ; ACM > 80 => WORD3368 ; ACM = 80 -- se risultato negativo => BYTE3369 F82A8D 24 21 bit ACMSgn3370 F82A8F 30 05 bmi ?02c ; ACM BYTE negativo3371 F82A91 C8 ?02a: iny ; ACM WORD3372 F82A92 24 21 ?02b: bit ACMSgn ; Flag N = segno risultato3373 F82A94 10 0A BPL ?03 ; risultato positivo3374 F82A96 ?02c: ACC16Tue Jul 17 11:00:16 2018 Page 153375 F82A96 C2 20 rep #PMFLAG3376 .LONGA on3377 .MNLIST3378 F82A98 8A txa3379 F82A99 38 sec ; risultato negativo: complementa ACM3380 F82A9A E5 18 sbc ACM3381 F82A9C 85 18 sta ACM3382 F82A9E ACC083383 F82A9E E2 20 sep #PMFLAG3384 .LONGA off3385 .MNLIST3386 F82AA0 84 22 ?03: sty ACMMinSize3387 F82AA2 18 clc3388 F82AA3 60 RTS3389 F82AA43390 ; _iSMult16: moltiplicazione integer 16 bit signed3391 ; In: ACM, ACM+1: signed integer 13392 ; IARG, IARG+1: signed integer 23393 ; Out: ACM..ACM+3 -> risultato integer signed (32 bit)3394 ; X = 03395 ; CF = 03396 ; Uso: A,X,Y,ACM,IARG3397 F82AA4 _iSMult16:3398 F82AA4 A2 00 ldx #03399 F82AA6 A5 19 LDA ACM+13400 F82AA8 45 29 EOR IARG+1 ; segno risultato3401 F82AAA 29 80 and #$80 ; bit 7 => segno3402 F82AAC 09 40 ora #$40 ; bit 6 => signed int3403 F82AAE 85 21 sta ACMSgn ; salva segno3404 F82AB0 ACC163405 F82AB0 C2 20 rep #PMFLAG3406 .LONGA on3407 .MNLIST3408 F82AB2 24 28 BIT IARG ; test segno IARG3409 F82AB4 10 06 BPL ?013410 F82AB6 38 sec ; complementa IARG3411 F82AB7 8A txa3412 F82AB8 E5 28 sbc IARG3413 F82ABA 85 28 sta IARG3414 F82ABC 24 18 ?01: BIT ACM ; test segno ACM3415 F82ABE 10 06 BPL ?023416 F82AC0 38 sec ; complementa ACM3417 F82AC1 8A txa3418 F82AC2 E5 18 sbc ACM3419 F82AC4 85 18 sta ACM3420 F82AC6 ?02: ACC083421 F82AC6 E2 20 sep #PMFLAG3422 .LONGA off3423 .MNLIST3424 F82AC8 20 8F 29 JSR _iUMult16 ; moltiplicazione unsigned (X = 0)3425 F82ACB C0 04 cpy #$04 ; min size LONG ?3426 F82ACD F0 13 beq ?02b ; si3427 ; se ACM <= 7FFF allora min size = WORD3428 F82ACF ACC163429 F82ACF C2 20 rep #PMFLAG3430 .LONGA on3431 .MNLISTTue Jul 17 11:00:16 2018 Page 163432 F82AD1 A5 18 lda ACM3433 F82AD3 C9 00 80 cmp #$80003434 F82AD6 ACC083435 F82AD6 E2 20 sep #PMFLAG3436 .LONGA off3437 .MNLIST3438 F82AD8 90 08 bcc ?02b ; ACM < 8000 => WORD3439 F82ADA D0 04 bne ?02a ; ACM > 8000 => LONG3440 ; ACM = 8000 -- se risultato negativo => WORD3441 F82ADC 24 21 bit ACMSgn3442 F82ADE 30 06 bmi ?02c ; ACM WORD negativo3443 F82AE0 C8 ?02a: iny ; ACM LONG3444 F82AE1 C8 iny3445 F82AE2 24 21 ?02b: bit ACMSgn ; Flag N = segno risultato3446 F82AE4 10 0F BPL ?03 ; risultato positivo3447 F82AE6 ?02c: ACC163448 F82AE6 C2 20 rep #PMFLAG3449 .LONGA on3450 .MNLIST3451 F82AE8 8A txa3452 F82AE9 38 sec ; risultato negativo: complementa ACM3453 F82AEA E5 18 sbc ACM3454 F82AEC 85 18 sta ACM3455 F82AEE 8A TXA ; A = 03456 F82AEF E5 1A sbc ACM+23457 F82AF1 85 1A sta ACM+23458 F82AF3 ACC083459 F82AF3 E2 20 sep #PMFLAG3460 .LONGA off3461 .MNLIST3462 F82AF5 84 22 ?03: sty ACMMinSize3463 F82AF7 18 clc3464 F82AF8 60 RTS34653466 ; _iSMult32: moltiplicazione integer 32 bit signed3467 ; In: ACM..ACM+3: signed integer 13468 ; IARG..IARG+3: signed integer 23469 ; Out: ACM..ACM+7 -> risultato integer signed (64 bit)3470 ; X = 03471 ; CF = 03472 ; Uso: A,X,Y,ACM,IARG3473 F82AF9 _iSMult32:3474 F82AF9 A2 00 ldx #03475 F82AFB A5 1B LDA ACM+33476 F82AFD 45 2B EOR IARG+3 ; segno risultato3477 F82AFF 29 80 and #$80 ; bit 7 => segno3478 F82B01 09 40 ora #$40 ; bit 6 => signed int3479 F82B03 85 21 sta ACMSgn ; salva segno3480 F82B05 ACC163481 F82B05 C2 20 rep #PMFLAG3482 .LONGA on3483 .MNLIST3484 F82B07 24 2A BIT IARG+2 ; test segno IARG3485 F82B09 10 0B BPL ?013486 F82B0B 38 sec ; complementa IARG3487 F82B0C 8A txa3488 F82B0D E5 28 sbc IARGTue Jul 17 11:00:16 2018 Page 173489 F82B0F 85 28 sta IARG3490 F82B11 8A txa3491 F82B12 E5 2A sbc IARG+23492 F82B14 85 2A sta IARG+23493 F82B16 24 1A ?01: BIT ACM+2 ; test segno ACM3494 F82B18 10 0B BPL ?023495 F82B1A 38 sec ; complementa ACM3496 F82B1B 8A txa3497 F82B1C E5 18 sbc ACM3498 F82B1E 85 18 sta ACM3499 F82B20 8A txa3500 F82B21 E5 1A sbc ACM+23501 F82B23 85 1A sta ACM+23502 F82B25 ?02: ACC083503 F82B25 E2 20 sep #PMFLAG3504 .LONGA off3505 .MNLIST3506 F82B27 20 B5 29 JSR _iUMult32 ; moltiplicazione unsigned3507 F82B2A C0 08 cpy #$08 ; min size QUAD ?3508 F82B2C F0 1B beq ?02b ; si3509 ; se ACM <= 7FFFFFFF allora min size = LONG3510 F82B2E ACC163511 F82B2E C2 20 rep #PMFLAG3512 .LONGA on3513 .MNLIST3514 F82B30 A5 1A lda ACM+23515 F82B32 C9 00 80 cmp #$80003516 F82B35 ACC083517 F82B35 E2 20 sep #PMFLAG3518 .LONGA off3519 .MNLIST3520 F82B37 90 10 bcc ?02b ; ACM < 80000000 => LONG3521 F82B39 D0 0C bne ?02a ; ACM > 80000000 => QUAD3522 F82B3B ACC163523 F82B3B C2 20 rep #PMFLAG3524 .LONGA on3525 .MNLIST3526 F82B3D A5 18 lda ACM3527 ;cmp #$00003528 F82B3F ACC083529 F82B3F E2 20 sep #PMFLAG3530 .LONGA off3531 .MNLIST3532 F82B41 D0 04 bne ?02a ; ACM > 80000000 => QUAD3533 ; ACM = 80000000 -- se risultato negativo => LONG3534 F82B43 24 21 bit ACMSgn3535 F82B45 30 06 bmi ?02c ; ACM LONG negativo3536 F82B47 A0 08 ?02a: ldy #$08 ; ACM QUAD3537 F82B49 24 21 ?02b: bit ACMSgn ; Flag N = segno risultato3538 F82B4B 10 05 BPL ?03 ; risultato positivo3539 F82B4D 20 3E 2A ?02c: JSR _iNegACM ; risultato negativo: complementa ACM3540 F82B50 A2 00 ldx #0 ; X = 03541 F82B52 84 22 ?03: sty ACMMinSize3542 F82B54 18 clc3543 F82B55 60 rts3544 F82B563545 ; _iSMult64: moltiplicazione integer 64 bit signedTue Jul 17 11:00:16 2018 Page 183546 ; In: ACM..ACM+7: signed integer 13547 ; IARG..IARG+7: signed integer 23548 ; Out: ACM..ACM+7 -> risultato integer signed (128 bit LOW)3549 ; FOP..FOP+7 -> risultato integer signed (128 bit HIGH)3550 ;3551 ; CF = 0 -> risultato OK3552 ; CF = 1 -> signed overflow3553 ; Uso: A,X,Y,ACM,IARG,FOP3554 F82B56 _iSMult64:3555 F82B56 A5 1F LDA ACM+73556 F82B58 45 2F EOR IARG+7 ; segno risultato3557 F82B5A 29 80 and #$80 ; bit 7 => segno3558 F82B5C 09 40 ora #$40 ; bit 6 => signed int3559 F82B5E 85 21 sta ACMSgn ; salva segno3560 F82B60 24 2F BIT IARG+7 ; test segno IARG3561 F82B62 10 03 BPL ?013562 F82B64 20 3A 2A JSR _iNegIARG ; complementa IARG3563 F82B67 24 1F ?01: BIT ACM+7 ; test segno ACM3564 F82B69 10 03 BPL ?023565 F82B6B 20 3E 2A JSR _iNegACM ; complementa ACM3566 F82B6E 20 EA 29 ?02: JSR _iUMult64 ; moltiplicazione unsigned3567 F82B71 B0 1A bcs ?10 ; overflow (risultato a 128 bit)3568 ; risultato in 64 bit -- se MSB = 0 risultato ok -- qui CF = 03569 F82B73 ACC163570 F82B73 C2 20 rep #PMFLAG3571 .LONGA on3572 .MNLIST3573 F82B75 A5 1E lda ACM+63574 F82B77 10 12 bpl ?08 ; OK -- CF = 03575 F82B79 C9 00 80 cmp #$8000 ; qui imposta CF = 13576 F82B7C D0 0D bne ?08 ; ACM > 8000000000000000 => overflow3577 F82B7E A6 21 ldx ACMSgn3578 F82B80 10 09 bpl ?08 ; positivo => overflow3579 F82B82 A5 1C lda ACM+43580 F82B84 05 1A ora ACM+23581 F82B86 05 18 ora ACM+03582 F82B88 D0 01 bne ?08 ; ACM > 8000000000000000 => overflow3583 ; ACM = 8000000000000000 negativo => OK3584 F82B8A 18 clc3585 F82B8B ?08: ACC083586 F82B8B E2 20 sep #PMFLAG3587 .LONGA off3588 .MNLIST3589 F82B8D 24 21 ?10: bit ACMSgn3590 F82B8F 10 0A bpl ?123591 F82B91 08 php ; salva CF3592 F82B92 20 3E 2A jsr _iNegACM ; complementa3593 F82B95 A2 32 ldx #FOP3594 F82B97 20 41 2A jsr _iNegXnc3595 F82B9A 28 plp3596 F82B9B 60 ?12: rts35973598 ;----------------------------------------------------------3599 ; implementazione DIV unsigned integer3600 ;----------------------------------------------------------36013602 ; _iUDiv8: divisione integer 8 bit unsignedTue Jul 17 11:00:16 2018 Page 193603 ; In: ACM: unsigned integer 13604 ; IARG: unsigned integer 23605 ; Out: ACM -> integer unsigned ACM / IARG3606 ; IARG -> integer unsigned ACM MOD IARG3607 ; X = minima size quoziente3608 ; Y = minima size remainder3609 ; CF = 1 se IARG = 0 altrimenti CF = 03610 ; Uso: A,X,Y,ACM,IARG,FOP3611 F82B9C _iUDiv8:3612 F82B9C A5 28 lda IARG3613 F82B9E D0 02 bne ?023614 F82BA0 38 sec ; division by sero3615 F82BA1 60 rts3616 F82BA2 64 32 ?02: stz FOP ; azzera rem3617 F82BA4 A2 08 ldx #8 ; loop 8 bit3618 F82BA6 A5 18 lda ACM ; quoziente3619 F82BA8 2A ?04: rol a3620 F82BA9 26 32 rol FOP3621 F82BAB A8 tay3622 F82BAC 38 sec3623 F82BAD A5 32 lda FOP3624 F82BAF E5 28 sbc IARG3625 F82BB1 90 02 bcc ?063626 F82BB3 85 32 sta FOP3627 F82BB5 98 ?06: tya3628 F82BB6 CA dex3629 F82BB7 D0 EF bne ?043630 F82BB9 2A rol a3631 F82BBA 85 18 sta ACM ; quot3632 F82BBC A5 32 lda FOP3633 F82BBE 85 28 sta IARG3634 F82BC0 A0 01 ldy #13635 F82BC2 BB tyx3636 F82BC3 86 22 stx ACMMinSize3637 F82BC5 84 23 sty IARGMinSize3638 F82BC7 18 clc3639 F82BC8 60 rts36403641 ; _iUDiv16: divisione integer 16 bit unsigned3642 ; In: ACM: unsigned integer 13643 ; IARG: unsigned integer 23644 ; Out: ACM -> integer unsigned ACM / IARG3645 ; IARG -> integer unsigned ACM MOD IARG3646 ; X = minima size quoziente3647 ; Y = minima size remainder3648 ; CF = 1 se IARG = 0 altrimenti CF = 03649 ; Uso: A,X,Y,ACM,IARG,FOP3650 F82BC9 _iUDiv16:3651 F82BC9 ACC163652 F82BC9 C2 20 rep #PMFLAG3653 .LONGA on3654 .MNLIST3655 F82BCB A5 28 lda IARG3656 F82BCD D0 04 bne ?023657 F82BCF ACC083658 F82BCF E2 20 sep #PMFLAG3659 .LONGA offTue Jul 17 11:00:16 2018 Page 203660 .MNLIST3661 F82BD1 38 sec ; division by sero3662 F82BD2 60 rts3663 F82BD3 A2 10 ?02: ldx #16 ; loop 16 bit3664 F82BD5 CPU163665 F82BD5 C2 30 rep #(PMFLAG.OR.PXFLAG)3666 .LONGA on3667 .LONGI on3668 .MNLIST3669 F82BD7 64 32 stz FOP ; azzera rem3670 F82BD9 A5 18 lda ACM ; quoziente3671 F82BDB 2A ?04: rol a3672 F82BDC 26 32 rol FOP3673 F82BDE A8 tay3674 F82BDF 38 sec3675 F82BE0 A5 32 lda FOP3676 F82BE2 E5 28 sbc IARG3677 F82BE4 90 02 bcc ?063678 F82BE6 85 32 sta FOP3679 F82BE8 98 ?06: tya3680 F82BE9 CA dex3681 F82BEA D0 EF bne ?043682 F82BEC 2A rol a3683 F82BED 85 18 sta ACM ; quoziente3684 F82BEF A5 32 lda FOP3685 F82BF1 85 28 sta IARG ; remainder3686 F82BF3 CPU083687 F82BF3 E2 30 sep #(PMFLAG.OR.PXFLAG)3688 .LONGA off3689 .LONGI off3690 .MNLIST3691 F82BF5 A0 02 ldy #23692 F82BF7 BB tyx3693 F82BF8 EB xba ; A = hi rem3694 F82BF9 D0 01 bne ?08 ; rem 16 bit3695 F82BFB 88 dey ; rem 8 bit3696 F82BFC A5 19 ?08: lda ACM+1 ; A = hi quot3697 F82BFE D0 01 bne ?10 ; quot 16 bit3698 F82C00 CA dex ; quot 8 bit3699 F82C01 18 ?10: clc3700 F82C02 86 22 stx ACMMinSize3701 F82C04 84 23 sty IARGMinSize3702 F82C06 60 rts37033704 ; _iUDiv32: divisione integer 32 bit unsigned3705 ; In: ACM: unsigned integer 13706 ; IARG: unsigned integer 23707 ; Out: ACM -> integer unsigned ACM / IARG3708 ; IARG -> integer unsigned ACM MOD IARG3709 ; X = minima size quoziente3710 ; Y = minima size remainder3711 ; CF = 1 se IARG = 0 altrimenti CF = 03712 ; Uso: A,X,Y,ACM,IARG,FOP3713 F82C07 _iUDiv32:3714 F82C07 ACC163715 F82C07 C2 20 rep #PMFLAG3716 .LONGA onTue Jul 17 11:00:16 2018 Page 213717 .MNLIST3718 F82C09 A5 28 lda IARG3719 F82C0B 05 2A ora IARG+23720 F82C0D D0 04 bne ?023721 F82C0F ACC083722 F82C0F E2 20 sep #PMFLAG3723 .LONGA off3724 .MNLIST3725 F82C11 38 sec ; division by sero3726 F82C12 60 rts3727 F82C13 A2 20 ?02: ldx #32 ; loop 32 bit3728 F82C15 CPU163729 F82C15 C2 30 rep #(PMFLAG.OR.PXFLAG)3730 .LONGA on3731 .LONGI on3732 .MNLIST3733 F82C17 64 32 stz FOP ; azzera rem3734 F82C19 64 34 stz FOP+23735 F82C1B 26 18 ?04: rol ACM ; quot3736 F82C1D 26 1A rol ACM+23737 F82C1F 26 32 rol FOP3738 F82C21 26 34 rol FOP+23739 F82C23 38 sec3740 F82C24 A5 32 lda FOP3741 F82C26 E5 28 sbc IARG3742 F82C28 A8 tay3743 F82C29 A5 34 lda FOP+23744 F82C2B E5 2A sbc IARG+23745 F82C2D 90 04 bcc ?063746 F82C2F 84 32 sty FOP3747 F82C31 85 34 sta FOP+23748 F82C33 CA ?06: dex3749 F82C34 D0 E5 bne ?043750 F82C36 INDEX083751 F82C36 E2 10 sep #PXFLAG3752 .LONGI off3753 .MNLIST3754 F82C38 A0 04 ldy #43755 F82C3A BB tyx3756 F82C3B 26 18 rol ACM3757 F82C3D 26 1A rol ACM+2 ; quoziente3758 F82C3F A5 32 lda FOP3759 F82C41 85 28 sta IARG ; remainder3760 F82C43 A5 34 lda FOP+23761 F82C45 85 2A sta IARG+2 ; C = hi rem3762 F82C47 D0 02 bne ?08 ; rem 32 bit3763 F82C49 A0 02 ldy #2 ; rem 16 bit3764 F82C4B A5 1A ?08: lda ACM+2 ; C = hi quot3765 F82C4D D0 02 bne ?10 ; quot 32 bit3766 F82C4F A2 02 ldx #2 ; quot 16 bit3767 F82C51 ?10: CPU083768 F82C51 E2 30 sep #(PMFLAG.OR.PXFLAG)3769 .LONGA off3770 .LONGI off3771 .MNLIST3772 F82C53 86 22 stx ACMMinSize3773 F82C55 84 23 sty IARGMinSizeTue Jul 17 11:00:16 2018 Page 223774 F82C57 18 clc3775 F82C58 60 rts37763777 ; _iUDiv64: divisione integer 64 bit unsigned3778 ; In: ACM: unsigned integer 13779 ; IARG: unsigned integer 23780 ; Out: ACM -> integer unsigned ACM / IARG3781 ; IARG -> integer unsigned ACM MOD IARG3782 ; X = minima size quoziente3783 ; Y = minima size remainder3784 ; CF = 1 se IARG = 0 altrimenti CF = 03785 ; Uso: A,X,Y,ACM,IARG,FOP3786 F82C59 _iUDiv64:3787 F82C59 ACC163788 F82C59 C2 20 rep #PMFLAG3789 .LONGA on3790 .MNLIST3791 F82C5B A5 28 lda IARG3792 F82C5D 05 2A ora IARG+23793 F82C5F 05 2C ora IARG+43794 F82C61 05 2E ora IARG+63795 F82C63 D0 04 bne ?023796 F82C65 ACC083797 F82C65 E2 20 sep #PMFLAG3798 .LONGA off3799 .MNLIST3800 F82C67 38 sec ; division by sero3801 F82C68 60 rts3802 F82C69 A2 40 ?02: ldx #64 ; loop 32 bit3803 F82C6B CPU163804 F82C6B C2 30 rep #(PMFLAG.OR.PXFLAG)3805 .LONGA on3806 .LONGI on3807 .MNLIST3808 F82C6D 64 32 stz FOP ; azzera rem3809 F82C6F 64 34 stz FOP+23810 F82C71 64 36 stz FOP+43811 F82C73 64 38 stz FOP+63812 F82C75 48 pha ; 2 word temp.3813 F82C76 48 pha3814 F82C77 26 18 ?04: rol ACM ; quot3815 F82C79 26 1A rol ACM+23816 F82C7B 26 1C rol ACM+43817 F82C7D 26 1E rol ACM+63818 F82C7F 26 32 rol FOP3819 F82C81 26 34 rol FOP+23820 F82C83 26 36 rol FOP+43821 F82C85 26 38 rol FOP+63822 F82C87 38 sec3823 F82C88 A5 32 lda FOP3824 F82C8A E5 28 sbc IARG3825 F82C8C 83 01 sta $01,s3826 F82C8E A5 34 lda FOP+23827 F82C90 E5 2A sbc IARG+23828 F82C92 83 03 sta $03,s3829 F82C94 A5 36 lda FOP+43830 F82C96 E5 2C sbc IARG+4Tue Jul 17 11:00:16 2018 Page 233831 F82C98 A8 tay3832 F82C99 A5 38 lda FOP+63833 F82C9B E5 2E sbc IARG+63834 F82C9D 90 0C bcc ?063835 F82C9F 84 36 sty FOP+43836 F82CA1 85 38 sta FOP+63837 F82CA3 A3 01 lda $01,s3838 F82CA5 85 32 sta FOP3839 F82CA7 A3 03 lda $03,s3840 F82CA9 85 34 sta FOP+23841 F82CAB CA ?06: dex3842 F82CAC D0 C9 bne ?043843 F82CAE INDEX083844 F82CAE E2 10 sep #PXFLAG3845 .LONGI off3846 .MNLIST3847 F82CB0 A0 08 ldy #83848 F82CB2 BB tyx3849 F82CB3 26 18 rol ACM3850 F82CB5 26 1A rol ACM+2 ; quoziente3851 F82CB7 26 1C rol ACM+43852 F82CB9 26 1E rol ACM+63853 F82CBB A5 32 lda FOP3854 F82CBD 85 28 sta IARG ; remainder3855 F82CBF A5 34 lda FOP+23856 F82CC1 85 2A sta IARG+23857 F82CC3 A5 36 lda FOP+43858 F82CC5 85 2C sta IARG+43859 F82CC7 A5 38 lda FOP+63860 F82CC9 85 2E sta IARG+6 ; C = hi rem3861 F82CCB 05 2C ora IARG+43862 F82CCD D0 02 bne ?08 ; rem 64 bit3863 F82CCF A0 04 ldy #4 ; rem 32 bit3864 F82CD1 A5 1E ?08: lda ACM+6 ; C = hi quot3865 F82CD3 05 1C ora ACM+43866 F82CD5 D0 02 bne ?10 ; quot 64 bit3867 F82CD7 A2 04 ldx #4 ; quot 32 bit3868 F82CD9 68 ?10: pla ; scarta 2 word temp.3869 F82CDA 68 pla3870 F82CDB CPU083871 F82CDB E2 30 sep #(PMFLAG.OR.PXFLAG)3872 .LONGA off3873 .LONGI off3874 .MNLIST3875 F82CDD 86 22 stx ACMMinSize3876 F82CDF 84 23 sty IARGMinSize3877 F82CE1 18 clc3878 F82CE2 60 rts38793880 ;----------------------------------------------------------3881 ; implementazione SDIV signed integer3882 ;----------------------------------------------------------38833884 ; _iSDiv8: divisione integer 8 bit signed3885 ; In: ACM: signed integer 13886 ; IARG: signed integer 23887 ; Out: ACM -> integer signed ACM / IARGTue Jul 17 11:00:16 2018 Page 243888 ; IARG -> integer signed ACM MOD IARG3889 ; X = minima size quoziente3890 ; Y = minima size remainder3891 ; CF = 1 se IARG = 0 altrimenti CF = 03892 ; VF = 1 se ACM overflow (quoziente)3893 ; Uso: A,X,Y,ACM,IARG,FOP3894 F82CE3 _iSDiv8:3895 F82CE3 A5 28 lda IARG3896 F82CE5 D0 02 bne ?023897 F82CE7 38 sec ; division by sero3898 F82CE8 60 rts3899 F82CE9 A2 00 ?02: ldx #03900 F82CEB 45 18 EOR ACM ; segno risultato3901 F82CED 29 80 and #$80 ; bit 7 => segno3902 F82CEF 09 40 ora #$40 ; bit 6 => signed int3903 F82CF1 85 21 sta ACMSgn ; salva segno quot.3904 F82CF3 A5 18 LDA ACM3905 F82CF5 29 80 and #$80 ; bit 7 => segno remainder = segno dividendo3906 F82CF7 09 40 ora #$40 ; bit 6 => signed int3907 F82CF9 85 31 sta IARGSgn ; salva segno remainder3908 F82CFB 24 28 BIT IARG ; test segno IARG3909 F82CFD 10 06 BPL ?043910 F82CFF 38 SEC ; complementa IARG3911 F82D00 8A txa3912 F82D01 E5 28 SBC IARG3913 F82D03 85 28 STA IARG3914 F82D05 24 18 ?04: BIT ACM ; test segno ACM3915 F82D07 10 06 BPL ?063916 F82D09 38 SEC ; complementa ACM3917 F82D0A 8A txa3918 F82D0B E5 18 SBC ACM3919 F82D0D 85 18 STA ACM3920 F82D0F 20 9C 2B ?06: JSR _iUDiv83921 F82D12 24 21 bit ACMSgn3922 F82D14 10 07 bpl ?083923 F82D16 38 sec ; quot. negativo3924 F82D17 A9 00 lda #03925 F82D19 E5 18 sbc ACM3926 F82D1B 85 18 sta ACM3927 F82D1D 24 31 ?08: bit IARGSgn3928 F82D1F 10 07 bpl ?103929 F82D21 38 sec ; remainder negativo3930 F82D22 A9 00 lda #03931 F82D24 E5 28 sbc IARG3932 F82D26 85 28 sta IARG3933 F82D28 18 ?10: clc3934 F82D29 B8 clv ; remainder mai provoca overflow3935 F82D2A A5 18 lda ACM ; confronta segno quoziente3936 F82D2C 45 21 eor ACMSgn ; con segno aspettato3937 F82D2E 10 02 bpl ?12 ; segni concordi -- OK3938 F82D30 E2 40 sep #PVFLAG ; segnni discordi => overflow3939 F82D32 60 ?12: RTS39403941 ; _iSDiv16: divisione integer 16 bit signed3942 ; In: ACM: signed integer 13943 ; IARG: signed integer 23944 ; Out: ACM -> integer signed ACM / IARGTue Jul 17 11:00:16 2018 Page 253945 ; IARG -> integer signed ACM MOD IARG3946 ; X = minima size quoziente3947 ; Y = minima size remainder3948 ; CF = 1 se IARG = 0 altrimenti CF = 03949 ; VF = 1 se ACM overflow (quoziente)3950 ; Uso: A,X,Y,ACM,IARG,FOP3951 F82D33 _iSDiv16:3952 F82D33 A5 28 lda IARG3953 F82D35 05 29 ora IARG+13954 F82D37 D0 02 bne ?023955 F82D39 38 sec ; division by sero3956 F82D3A 60 rts3957 F82D3B A2 00 ?02: ldx #03958 F82D3D A5 29 lda IARG+13959 F82D3F 45 19 EOR ACM+1 ; segno risultato3960 F82D41 29 80 and #$80 ; bit 7 => segno3961 F82D43 09 40 ora #$40 ; bit 6 => signed int3962 F82D45 85 21 sta ACMSgn ; salva segno quot.3963 F82D47 A5 19 LDA ACM+13964 F82D49 29 80 and #$80 ; bit 7 => segno remainder = segno dividendo3965 F82D4B 09 40 ora #$40 ; bit 6 => signed int3966 F82D4D 85 31 sta IARGSgn ; salva segno remainder3967 F82D4F 10 0A BPL ?043968 F82D51 ACC163969 F82D51 C2 20 rep #PMFLAG3970 .LONGA on3971 .MNLIST3972 F82D53 38 SEC ; complementa ACM3973 F82D54 8A txa3974 F82D55 E5 18 SBC ACM3975 F82D57 85 18 STA ACM3976 F82D59 ACC083977 F82D59 E2 20 sep #PMFLAG3978 .LONGA off3979 .MNLIST3980 F82D5B 24 29 ?04: BIT IARG+1 ; test segno IARG3981 F82D5D 10 0A BPL ?063982 F82D5F ACC163983 F82D5F C2 20 rep #PMFLAG3984 .LONGA on3985 .MNLIST3986 F82D61 38 SEC ; complementa IARG3987 F82D62 8A txa3988 F82D63 E5 28 SBC IARG3989 F82D65 85 28 STA IARG3990 F82D67 ACC083991 F82D67 E2 20 sep #PMFLAG3992 .LONGA off3993 .MNLIST3994 F82D69 20 C9 2B ?06: JSR _iUDiv163995 ; Y = minima size remainder -- aggiusta IARG (remainder)3996 F82D6C A2 28 ldx #IARG3997 F82D6E 20 8A 2D jsr post163998 F82D71 84 23 sty IARGMinSize3999 F82D73 A4 22 ldy ACMMinSize4000 ; Y = minima size quot. -- aggiusta ACM (quot.)4001 F82D75 A2 18 ldx #ACMTue Jul 17 11:00:16 2018 Page 264002 F82D77 20 8A 2D jsr post164003 F82D7A 84 22 sty ACMMinSize4004 F82D7C BB tyx4005 F82D7D A4 23 ldy IARGMinSize4006 F82D7F 18 clc4007 F82D80 B8 clv ; remainder mai provoca overflow4008 F82D81 A5 19 lda ACM+1 ; confronta segno quoziente4009 F82D83 45 21 eor ACMSgn ; con segno aspettato4010 F82D85 10 02 bpl ?12 ; segni concordi -- OK4011 F82D87 E2 40 sep #PVFLAG ; segnni discordi => overflow4012 F82D89 60 ?12: RTS40134014 ; post16 - aggiusta risultato per _iSDiv164015 ; In Y = minima size4016 ; X = ptr ACM/IARG4017 ; Out: Y = minima size4018 ; ACM/IARG eventualmente complementato4019 F82D8A post16:4020 F82D8A C0 02 cpy #$02 ; min size WORD ?4021 F82D8C F0 0D beq ?02b ; si4022 ; se ACM/IARG <= 7F allora min size = BYTE4023 F82D8E B5 00 lda <0,x4024 F82D90 C9 80 cmp #$804025 F82D92 90 07 bcc ?02b4026 F82D94 D0 04 bne ?02a ; ACM/IARG > 80 => WORD4027 ; ACM/IARG = 80 -- se risultato negativo => BYTE4028 F82D96 34 09 bit <9,x4029 F82D98 30 05 bmi ?02c ; ACM/IARG BYTE negativo4030 F82D9A C8 ?02a: iny ; ACM/IARG WORD4031 F82D9B 34 09 ?02b: bit <9,x ; Flag N = segno risultato4032 F82D9D 10 0C BPL ?03 ; risultato positivo4033 F82D9F ?02c: ACC164034 F82D9F C2 20 rep #PMFLAG4035 .LONGA on4036 .MNLIST4037 F82DA1 A9 00 00 lda #04038 F82DA4 38 sec ; risultato negativo: complementa ACM/IARG4039 F82DA5 F5 00 sbc <0,x4040 F82DA7 95 00 sta <0,x4041 F82DA9 ACC084042 F82DA9 E2 20 sep #PMFLAG4043 .LONGA off4044 .MNLIST4045 F82DAB 60 ?03: rts40464047 ; _iSDiv32: divisione integer 32 bit signed4048 ; In: ACM: signed integer 14049 ; IARG: signed integer 24050 ; Out: ACM -> integer signed ACM / IARG4051 ; IARG -> integer signed ACM MOD IARG4052 ; X = minima size quoziente4053 ; Y = minima size remainder4054 ; CF = 1 se IARG = 0 altrimenti CF = 04055 ; VF = 1 se ACM overflow (quoziente)4056 ; Uso: A,X,Y,ACM,IARG,FOP4057 F82DAC _iSDiv32:4058 F82DAC ACC16Tue Jul 17 11:00:16 2018 Page 274059 F82DAC C2 20 rep #PMFLAG4060 .LONGA on4061 .MNLIST4062 F82DAE A5 28 lda IARG4063 F82DB0 05 2A ora IARG+24064 F82DB2 ACC084065 F82DB2 E2 20 sep #PMFLAG4066 .LONGA off4067 .MNLIST4068 F82DB4 D0 02 bne ?024069 F82DB6 38 sec ; division by sero4070 F82DB7 60 rts4071 F82DB8 A2 00 ?02: ldx #04072 F82DBA A5 2B lda IARG+34073 F82DBC 45 1B EOR ACM+3 ; segno risultato4074 F82DBE 29 80 and #$80 ; bit 7 => segno4075 F82DC0 09 40 ora #$40 ; bit 6 => signed int4076 F82DC2 85 21 sta ACMSgn ; salva segno quot.4077 F82DC4 A5 1B LDA ACM+34078 F82DC6 29 80 and #$80 ; bit 7 => segno remainder = segno dividendo4079 F82DC8 09 40 ora #$40 ; bit 6 => signed int4080 F82DCA 85 31 sta IARGSgn ; salva segno remainder4081 F82DCC 10 0F BPL ?044082 F82DCE ACC164083 F82DCE C2 20 rep #PMFLAG4084 .LONGA on4085 .MNLIST4086 F82DD0 38 SEC ; complementa ACM4087 F82DD1 8A txa4088 F82DD2 E5 18 SBC ACM4089 F82DD4 85 18 STA ACM4090 F82DD6 8A txa4091 F82DD7 E5 1A SBC ACM+24092 F82DD9 85 1A STA ACM+24093 F82DDB ACC084094 F82DDB E2 20 sep #PMFLAG4095 .LONGA off4096 .MNLIST4097 F82DDD 24 2B ?04: BIT IARG+3 ; test segno IARG4098 F82DDF 10 0F BPL ?064099 F82DE1 ACC164100 F82DE1 C2 20 rep #PMFLAG4101 .LONGA on4102 .MNLIST4103 F82DE3 38 SEC ; complementa IARG4104 F82DE4 8A txa4105 F82DE5 E5 28 SBC IARG4106 F82DE7 85 28 STA IARG4107 F82DE9 8A txa4108 F82DEA E5 2A SBC IARG+24109 F82DEC 85 2A STA IARG+24110 F82DEE ACC084111 F82DEE E2 20 sep #PMFLAG4112 .LONGA off4113 .MNLIST4114 F82DF0 20 07 2C ?06: JSR _iUDiv324115 ; Y = minima size remainder -- aggiusta IARG (remainder)Tue Jul 17 11:00:16 2018 Page 284116 F82DF3 A2 28 ldx #IARG4117 F82DF5 20 11 2E jsr post324118 F82DF8 84 23 sty IARGMinSize4119 F82DFA A4 22 ldy ACMMinSize4120 ; Y = minima size quot. -- aggiusta ACM (quot.)4121 F82DFC A2 18 ldx #ACM4122 F82DFE 20 11 2E jsr post324123 F82E01 84 22 sty ACMMinSize4124 F82E03 BB tyx4125 F82E04 A4 23 ldy IARGMinSize4126 F82E06 18 clc4127 F82E07 B8 clv ; remainder mai provoca overflow4128 F82E08 A5 1B lda ACM+3 ; confronta segno quoziente4129 F82E0A 45 21 eor ACMSgn ; con segno aspettato4130 F82E0C 10 02 bpl ?12 ; segni concordi -- OK4131 F82E0E E2 40 sep #PVFLAG ; segnni discordi => overflow4132 F82E10 60 ?12: RTS41334134 ; post32 - aggiusta risultato per _iSDiv324135 ; In Y = minima size4136 ; X = ptr ACM/IARG4137 ; Out: Y = minima size4138 ; ACM/IARG eventualmente complementato4139 F82E11 post32:4140 F82E11 C0 04 cpy #$04 ; min size LONG ?4141 F82E13 F0 13 beq ?02b ; si4142 ; se ACM/IARG <= 7FFF allora min size = WORD4143 F82E15 ACC164144 F82E15 C2 20 rep #PMFLAG4145 .LONGA on4146 .MNLIST4147 F82E17 B5 00 lda <0,x4148 F82E19 C9 00 80 cmp #$80004149 F82E1C ACC084150 F82E1C E2 20 sep #PMFLAG4151 .LONGA off4152 .MNLIST4153 F82E1E 90 08 bcc ?02b4154 F82E20 D0 04 bne ?02a ; ACM/IARG > 8000 => LONG4155 ; ACM/IARG = 8000 -- se risultato negativo => BYTE4156 F82E22 34 09 bit <9,x4157 F82E24 30 06 bmi ?02c ; ACM/IARG WORD negativo4158 F82E26 C8 ?02a: iny ; ACM/IARG LONG4159 F82E27 C8 iny4160 F82E28 34 09 ?02b: bit <9,x ; Flag N = segno risultato4161 F82E2A 10 13 BPL ?03 ; risultato positivo4162 F82E2C ?02c: ACC164163 F82E2C C2 20 rep #PMFLAG4164 .LONGA on4165 .MNLIST4166 F82E2E A9 00 00 lda #04167 F82E31 38 sec ; risultato negativo: complementa ACM/IARG4168 F82E32 F5 00 sbc <0,x4169 F82E34 95 00 sta <0,x4170 F82E36 A9 00 00 lda #04171 F82E39 F5 02 sbc <2,x4172 F82E3B 95 02 sta <2,xTue Jul 17 11:00:16 2018 Page 294173 F82E3D ACC084174 F82E3D E2 20 sep #PMFLAG4175 .LONGA off4176 .MNLIST4177 F82E3F 60 ?03: rts41784179 ; _iSDiv64: divisione integer 64 bit signed4180 ; In: ACM: signed integer 14181 ; IARG: signed integer 24182 ; Out: ACM -> integer signed ACM / IARG4183 ; IARG -> integer signed ACM MOD IARG4184 ; X = minima size quoziente4185 ; Y = minima size remainder4186 ; CF = 1 se IARG = 0 altrimenti CF = 04187 ; VF = 1 se ACM overflow (quoziente)4188 ; Uso: A,X,Y,ACM,IARG,FOP4189 F82E40 _iSDiv64:4190 F82E40 ACC164191 F82E40 C2 20 rep #PMFLAG4192 .LONGA on4193 .MNLIST4194 F82E42 A5 28 lda IARG4195 F82E44 05 2A ora IARG+24196 F82E46 05 2C ora IARG+44197 F82E48 05 2E ora IARG+64198 F82E4A ACC084199 F82E4A E2 20 sep #PMFLAG4200 .LONGA off4201 .MNLIST4202 F82E4C D0 02 bne ?024203 F82E4E 38 sec ; division by sero4204 F82E4F 60 rts4205 F82E50 A5 2F ?02: lda IARG+74206 F82E52 45 1F EOR ACM+7 ; segno risultato4207 F82E54 29 80 and #$80 ; bit 7 => segno4208 F82E56 09 40 ora #$40 ; bit 6 => signed int4209 F82E58 85 21 sta ACMSgn ; salva segno quot.4210 F82E5A A5 1F LDA ACM+74211 F82E5C 29 80 and #$80 ; bit 7 => segno remainder = segno dividendo4212 F82E5E 09 40 ora #$40 ; bit 6 => signed int4213 F82E60 85 31 sta IARGSgn ; salva segno remainder4214 F82E62 10 03 BPL ?044215 F82E64 20 3E 2A jsr _iNegACM ; complementa ACM4216 F82E67 24 2F ?04: BIT IARG+7 ; test segno IARG4217 F82E69 10 03 BPL ?064218 F82E6B 20 3A 2A jsr _iNegIARG ; complementa IARG4219 F82E6E 20 59 2C ?06: JSR _iUDiv644220 ; Y = minima size remainder -- aggiusta IARG (remainder)4221 F82E71 A2 28 ldx #IARG4222 F82E73 20 8F 2E jsr post644223 F82E76 84 23 sty IARGMinSize4224 F82E78 A4 22 ldy ACMMinSize4225 ; Y = minima size quot. -- aggiusta ACM (quot.)4226 F82E7A A2 18 ldx #ACM4227 F82E7C 20 8F 2E jsr post644228 F82E7F 84 22 sty ACMMinSize4229 F82E81 BB tyxTue Jul 17 11:00:16 2018 Page 304230 F82E82 A4 23 ldy IARGMinSize4231 F82E84 18 clc4232 F82E85 B8 clv ; remainder mai provoca overflow4233 F82E86 A5 1F lda ACM+7 ; confronta segno quoziente4234 F82E88 45 21 eor ACMSgn ; con segno aspettato4235 F82E8A 10 02 bpl ?12 ; segni concordi -- OK4236 F82E8C E2 40 sep #PVFLAG ; segnni discordi => overflow4237 F82E8E 60 ?12: RTS42384239 ; post64 - aggiusta risultato per _iSDiv644240 ; In Y = minima size4241 ; X = ptr ACM/IARG4242 ; Out: Y = minima size4243 ; ACM/IARG eventualmente complementato4244 F82E8F post64:4245 F82E8F C0 08 cpy #$08 ; min size QUAD ?4246 F82E91 F0 1B beq ?02b ; si4247 ; se ACM/IARG <= 7FFFFFFF allora min size = LONG4248 F82E93 ACC164249 F82E93 C2 20 rep #PMFLAG4250 .LONGA on4251 .MNLIST4252 F82E95 B5 02 lda <2,x4253 F82E97 C9 00 80 cmp #$80004254 F82E9A ACC084255 F82E9A E2 20 sep #PMFLAG4256 .LONGA off4257 .MNLIST4258 F82E9C 90 10 bcc ?02b ; ACM/IARG < 80000000 => LONG4259 F82E9E D0 0C bne ?02a ; ACM/IARG > 80000000 => QUAD4260 F82EA0 ACC164261 F82EA0 C2 20 rep #PMFLAG4262 .LONGA on4263 .MNLIST4264 F82EA2 A5 18 lda ACM4265 F82EA4 ACC084266 F82EA4 E2 20 sep #PMFLAG4267 .LONGA off4268 .MNLIST4269 F82EA6 D0 04 bne ?02a ; ACM/IARG > 80000000 => QUAD4270 ; ACM/IARG = 80000000 -- se risultato negativo => LONG4271 F82EA8 34 09 bit <9,x4272 F82EAA 30 06 bmi ?02c ; ACM/IARG LONG negativo4273 F82EAC A0 08 ?02a: ldy #8 ; ACM/IARG QUAD4274 F82EAE 34 09 ?02b: bit <9,x ; Flag N = segno risultato4275 F82EB0 10 03 BPL ?03 ; risultato positivo4276 F82EB2 20 40 2A ?02c: jsr _iNegX ; risultato negativo: complementa ACM/IARG4277 F82EB5 60 ?03: rts42784279 ;----------------------------------------------------------4280 ; Funzioni 'move'4281 ;----------------------------------------------------------42824283 ; _iMovACM2A - copia ACM (in size e tipo) in IARG4284 F82EB6 _iMovACM2A:4285 F82EB6 A5 21 lda ACMSgn4286 F82EB8 85 31 sta IARGSgnTue Jul 17 11:00:16 2018 Page 314287 F82EBA A6 20 ldx ACMSize4288 F82EBC 86 30 stx IARGSize4289 F82EBE CA dex4290 F82EBF B5 18 ?01: lda ACM,x4291 F82EC1 95 28 sta IARG,x4292 F82EC3 CA dex4293 F82EC4 10 F9 bpl ?014294 F82EC6 60 rts4295 F82EC74296 ;----------------------------------------------------------4297 ; Conversioni Stringa (decimale / hex) - Integer4298 ;----------------------------------------------------------42994300 ; _Str2Int - converte stringa decimale in intero4301 ; In - C = offset stringa decimale4302 ; Y = banco stringa4303 ; X<7> = bit signed (richiesto signed int)4304 ; X<6:0> = dimensione richiesta => 1,2,4,84305 ; DPR = DP02ADDR4306 ;4307 ; Out - ACM => intero 1,2,3,4,8 bytes4308 ; ACMSgn<7> = segno (solo signed)4309 ; ACMSgn<6> = signed int4310 ; Y => indice dove si arresta la conversione4311 ; CF = 0, VF = 0 OK4312 ; CF = 0, VF = 1 mismatch type4313 ; CF = 1, VF = 1 se overflow4314 ; CF = 1, VF = 0 se stringa non valida4315 F82EC7 _Str2Int:4316 F82EC7 20 ED 2F jsr _pres2i ; prepara var. conversione4317 F82ECA A5 20 lda ACMSize ; interi a 3 bytes non accettati4318 F82ECC C9 03 cmp #$034319 F82ECE D0 02 bne ?014320 F82ED0 A9 04 lda #$044321 F82ED2 85 20 ?01: sta ACMSize4322 F82ED4 A0 FF LDY #-14323 F82ED6 C8 ?02: INY4324 F82ED7 C0 7F CPY #MAXINTSTR ; max. dimensione stringa hex/dec4325 F82ED9 B0 51 bcs ?11 ; esce con CF = 1 e con VF = 04326 F82EDB B7 60 lda [FPLPtr],y ; load char4327 F82EDD F0 4C beq ?10 ; fine stringa => esce con CF = 1 e VF = 04328 F82EDF C9 20 CMP #' '4329 F82EE1 F0 F3 BEQ ?02 ; scarta spazi iniziali4330 F82EE3 C9 08 CMP #$084331 F82EE5 F0 EF BEQ ?02 ; scarta TAB iniziali4332 F82EE7 C9 2B CMP #'+' ; segno +4333 F82EE9 F0 0C BEQ ?04 ; cerca primo digit decimale4334 F82EEB C9 2D CMP #'-'4335 F82EED D0 1F BNE ?08 ; test digit decimale4336 F82EEF A9 80 LDA #$804337 F82EF1 04 21 TSB ACMSgn ; intero negativo4338 F82EF3 A9 40 lda #$404339 F82EF5 85 63 STA FPFlag ; FPFlag<6> => intero signed4340 F82EF7 C8 ?04: INY ; cerca digit decimale dopo '+' o '-'4341 F82EF8 C0 7F CPY #MAXINTSTR ; max. dimensione stringa hex/dec4342 F82EFA B0 30 bcs ?11 ; esce con CF = 1 e con VF = 04343 F82EFC B7 60 lda [FPLPtr],y ; load charTue Jul 17 11:00:16 2018 Page 324344 F82EFE F0 2B beq ?10 ; fine stringa => esce con CF = 1 e VF = 04345 F82F00 C9 20 CMP #' '4346 F82F02 F0 F3 BEQ ?04 ; scarta spazi dopo '+' o '-'4347 F82F04 C9 08 CMP #$084348 F82F06 F0 CE BEQ ?02 ; scarta TAB dopo '+' o '-'4349 F82F08 D0 04 bne ?08 ; test digit decimale4350 F82F0A B7 60 ?06: lda [FPLPtr],y ; loop scansione digit decimale4351 F82F0C F0 1D beq ?10 ; fine stringa4352 F82F0E 38 ?08: SEC ; next digit decimale4353 F82F0F E9 3A SBC #('0'+10)4354 F82F11 18 CLC4355 F82F12 69 0A ADC #104356 F82F14 90 15 BCC ?10 ; no digit decimale => fine scansione4357 F82F16 48 PHA4358 F82F17 20 35 30 JSR _iUMult10 ; ACM * 10 -> ACM4359 F82F1A 68 PLA4360 F82F1B B0 5E bcs ?30 ; overflow => esce con CF = 1, VF = 14361 F82F1D 20 5A 30 JSR _iUAdd8 ; ACM + A -> ACM4362 F82F20 B0 59 bcs ?30 ; overflow => esce con CF = 1, VF = 14363 F82F22 A9 80 lda #$804364 F82F24 04 63 tsb FPFlag ; FPFlag<7> -> flag digit decimale4365 F82F26 C8 INY ; next char4366 F82F27 C0 7F CPY #MAXINTSTR ; max. dimensione stringa hex/dec4367 F82F29 90 DF bcc ?06 ; loop scansione digit decimale43684369 ?10: ; a questo punto scansione terminata o per fine stringa o per4370 ; primo carattere non digit decimale all'indice attuale4371 F82F2B 38 sec ; assume CF = 1, VF = 04372 F82F2C B8 ?11: clv4373 F82F2D A5 63 lda FPFlag4374 F82F2F 10 4C bpl ?40 ; CF = 1 e VF = 0 => stringa vuota4375 ; o nessun digit decimale valido43764377 ; si testa se ACM contiene un numero4378 ; compatibile con la dimensione richiesta4379 F82F31 20 17 30 jsr _minsize ; X = minima dimensione - 14380 F82F34 E4 20 cpx ACMSize ; 1,2,3,4,8 => CF = 1 se overflow4381 F82F36 B0 43 bcs ?30 ; overflow => CF = 1, VF = 14382 ; qui ora CF = 04383 F82F38 24 21 bit ACMSgn ; bit 6 => richiesto tipi signed4384 F82F3A 70 04 bvs ?13 ; richiesto signed4385 F82F3C 24 63 bit FPFlag ; test segno '-'4386 F82F3E 80 3D bra ?40 ; unsigned => OK => CF = 0, VF = 04387 ; se VF = 1 => signed => mismatch4388 F82F404389 ?13: ; richiesto tipo signed4390 F82F40 A5 63 lda FPFlag ; FPFlag<6> = segno4391 F82F42 0A asl a ; bit 7 = segno, CF = 1 (FPFlag<7> = 1)4392 F82F43 04 21 tsb ACMSgn ; imposta segno4393 F82F45 A6 20 ldx ACMSize4394 F82F47 CA dex ; indice MSB4395 F82F48 B5 18 lda ACM,x ; test MSB ACM4396 F82F4A 10 10 bpl ?18 ; OK -- valore abs. < 8000...004397 F82F4C4398 ; se MSB = 1 e tutti i restanti bit sono nulli il signed int4399 ; e' valido e pari al minimo negativo. Qui ancora CF = 14400 F82F4C 24 21 bit ACMSgn ; signed positivo deve avere MSB = 0Tue Jul 17 11:00:16 2018 Page 334401 F82F4E 10 2B bpl ?30 ; overflow => CF = 1, VF = 14402 ; intero negativo4403 F82F50 C9 80 cmp #$80 ; al minimo deve essere 80 00 00 ... 004404 F82F52 D0 27 bne ?30 ; overflow => CF = 1, VF = 14405 ; qui ancora CF = 14406 F82F54 CA dex4407 F82F55 B5 18 ?15: lda ACM,x4408 F82F57 D0 22 bne ?30 ; overflow => CF = 1, VF = 14409 F82F59 CA dex4410 F82F5A 10 F9 bpl ?15 ; testa tutti i bytes (= 00)4411 F82F5C4412 ?18: ; OK -- adesso signed int in ACM compatibile con tipo richiesto4413 F82F5C ACC164414 F82F5C C2 20 rep #PMFLAG4415 .LONGA on4416 .MNLIST4417 F82F5E A5 18 lda ACM ; test ACM = 04418 F82F60 05 1A ora ACM+24419 F82F62 05 1C ora ACM+44420 F82F64 05 1E ora ACM+64421 F82F66 ACC084422 F82F66 E2 20 sep #PMFLAG4423 .LONGA off4424 .MNLIST4425 F82F68 D0 06 bne ?19 ; non nullo4426 F82F6A A9 80 lda #$804427 F82F6C 14 21 trb ACMSgn ; azzera segno se nullo4428 F82F6E 80 07 bra ?204429 F82F70 24 21 ?19: bit ACMSgn ; test segno4430 F82F72 10 03 bpl ?20 ; positivo4431 F82F74 20 3E 2A jsr _iNegACM ; complemento a 2 di ACM4432 F82F77 B8 ?20: clv ; OK4433 F82F78 18 clc4434 F82F79 90 02 bcc ?404435 F82F7B E2 40 ?30: sep #PVFLAG ; VF = 1 => overflow4436 F82F7D 60 ?40: rts4437 F82F7E4438 ; _Str2Hex - converte stringa hex. in unsigned intero4439 ; In - C = offset stringa hex.4440 ; Y = banco stringa4441 ; X = dimensione richiesta => 1,2,3,4,84442 ; DPR = DP02ADDR4443 ;4444 ; Out - ACM => intero 1,2,3,4,8 bytes4445 ; Y => indice dove si arresta la conversione4446 ; CF = 1, VF = 1 se overflow4447 ; CF = 1, VF = 0 se stringa non valida4448 F82F7E _Str2Hex:4449 F82F7E 20 ED 2F jsr _pres2i ; prepara var. conversione4450 F82F81 64 21 stz ACMSgn ; HEX => solo unsigned4451 F82F83 A0 00 ldy #0 ; indice stringa4452 F82F85 B7 60 ?01: lda [FPLPtr],y ; load char4453 F82F87 F0 53 beq ?20 ; fine stringa => esce con CF = 1 e VF = 04454 F82F89 C9 20 cmp #' ' ; scarta spazi iniziali4455 F82F8B F0 04 beq ?024456 F82F8D C9 08 cmp #$08 ; scarta 'TAB' iniziali4457 F82F8F D0 07 bne ?04Tue Jul 17 11:00:16 2018 Page 344458 F82F91 C8 ?02: iny ; next char4459 F82F92 C0 7F cpy #MAXINTSTR ; max. dimensione stringa hex/dec4460 F82F94 90 EF bcc ?014461 F82F96 B0 54 bcs ?25 ; esce con CF = 1 e con VF = 04462 F82F98 C9 61 ?04: CMP #'a' ; loop test digit esadecimali4463 F82F9A 90 02 BCC ?124464 F82F9C E9 20 SBC #$20 ; caps4465 F82F9E 38 ?12: SEC4466 F82F9F E9 3A SBC #('0'+10)4467 F82FA1 18 CLC4468 F82FA2 69 0A ADC #104469 F82FA4 B0 09 BCS ?13 ; ok, digit hex4470 F82FA6 E9 16 SBC #(6+16)4471 F82FA8 18 CLC4472 F82FA9 69 06 ADC #64473 F82FAB 90 2F BCC ?20 ; no digit esadecimale => fine scansione4474 F82FAD 69 09 ADC #9 ; digit hex4475 F82FAF 29 0F ?13: and #$0F ; maschera digit hex4476 F82FB1 48 PHA ; salva digit4477 F82FB2 A9 80 lda #$804478 F82FB4 85 63 sta FPFlag ; segnala hex digit valido4479 F82FB6 ACC16 ; ACM = ACM * 164480 F82FB6 C2 20 rep #PMFLAG4481 .LONGA on4482 .MNLIST4483 F82FB8 A2 04 ldx #$04 ; 4 shift4484 F82FBA A5 18 lda ACM4485 F82FBC 0A ?15: asl a4486 F82FBD 26 1A rol ACM+24487 F82FBF 26 1C rol ACM+44488 F82FC1 26 1E rol ACM+64489 F82FC3 B0 03 bcs ?17 ; overflow4490 F82FC5 CA dex4491 F82FC6 D0 F4 bne ?154492 F82FC8 85 18 ?17: sta ACM4493 F82FCA ACC084494 F82FCA E2 20 sep #PMFLAG4495 .LONGA off4496 .MNLIST4497 F82FCC 68 pla ; digit hex4498 F82FCD 05 18 ora ACM ; add digit4499 F82FCF 85 18 sta ACM4500 F82FD1 B0 17 bcs ?24 ; CF = 1, VF = 1 => overflow su 64 bit4501 F82FD3 C8 iny ; next char4502 F82FD4 C0 7F cpy #MAXINTSTR ; max. dimensione stringa hex/dec4503 F82FD6 B0 04 bcs ?20 ; fine scansione4504 F82FD8 B7 60 lda [FPLPtr],y ; load char4505 F82FDA D0 BC bne ?04 ; loop4506 ?20: ; a questo punto scansione terminata o per fine stringa o per4507 ; primo carattere non hex all'indice attuale4508 F82FDC 38 sec ; assume CF = 1, VF = 04509 F82FDD B8 clv4510 F82FDE A5 63 lda FPFlag4511 F82FE0 F0 0A beq ?25 ; CF = 1 e VF = 0 => stringa vuota4512 ; o nessun digit hex valido4513 ; si testa se ACM contiene un numero4514 ; compatibile con la dimensione richiestaTue Jul 17 11:00:16 2018 Page 354515 F82FE2 20 17 30 jsr _minsize ; X = minima dimensione - 14516 F82FE5 B8 clv ; assume no overflow4517 F82FE6 E4 20 cpx ACMSize ; 1,2,3,4,8 => CF = 1 se overflow4518 F82FE8 90 02 bcc ?25 ; OK => CF = 0, VF = 04519 F82FEA E2 40 ?24: sep #PVFLAG ; VF = 1 => overflow4520 F82FEC 60 ?25: rts ; CF = 1 se errore4521 F82FED4522 ; routine di preparazione a conversione stringa -> intero4523 F82FED _pres2i:4524 F82FED 85 60 sta FPLPtr ; set long pointer4525 F82FEF EB xba4526 F82FF0 85 61 sta FPLPtr+14527 F82FF2 84 62 sty FPLPtr+24528 F82FF4 8A txa4529 F82FF5 29 7F and #$7F ; maschera off tipo4530 F82FF7 D0 01 bne ?014531 F82FF9 1A inc a ; minima dimensione: byte4532 F82FFA C9 05 ?01: cmp #$054533 F82FFC 90 02 bcc ?02 ; valori leciti: 1,2,3,4,84534 F82FFE A9 08 lda #$08 ; max. dimensione: 8 bytes4535 F83000 85 20 ?02: sta ACMSize ; tipo intero richiesto4536 F83002 8A txa4537 F83003 29 80 and #$80 ; bit 7: tipo signed4538 F83005 4A lsr a ; bit 6: tipo signed4539 F83006 85 21 sta ACMSgn4540 F83008 ACC16 ; azzera ACM4541 F83008 C2 20 rep #PMFLAG4542 .LONGA on4543 .MNLIST4544 F8300A 64 18 stz ACM4545 F8300C 64 1A stz ACM+24546 F8300E 64 1C stz ACM+44547 F83010 64 1E stz ACM+64548 F83012 ACC084549 F83012 E2 20 sep #PMFLAG4550 .LONGA off4551 .MNLIST4552 F83014 64 63 stz FPFlag ; flag conversione4553 F83016 60 rts45544555 ; calcola minima dimensione ACM4556 ; Out X = minima dimensione ACM - 1 (0,1,2,3,7)4557 F83017 _minsize:4558 F83017 ACC164559 F83017 C2 20 rep #PMFLAG4560 .LONGA on4561 .MNLIST4562 F83019 A2 07 ldx #$07 ; si assume intero 64 bit4563 F8301B A5 1E lda ACM+64564 F8301D 05 1C ora ACM+44565 F8301F ACC084566 F8301F E2 20 sep #PMFLAG4567 .LONGA off4568 .MNLIST4569 F83021 D0 11 bne ?02 ; X = 07 => intero 64 bit4570 F83023 A2 03 ldx #$034571 F83025 A5 1B lda ACM+3Tue Jul 17 11:00:16 2018 Page 364572 F83027 D0 0B bne ?02 ; X = 03 => intero 32 bit4573 F83029 CA dex4574 F8302A A5 1A lda ACM+24575 F8302C D0 06 bne ?02 ; X = 02 => intero 24 bit4576 F8302E CA dex4577 F8302F A5 19 lda ACM+14578 F83031 D0 01 bne ?02 ; X = 01 => intero 16 bit4579 F83033 CA dex ; X = 00 => intero 8 bit4580 F83034 60 ?02: rts4581 F830354582 ; _iUMult10 - Moltiplica unsigned ACM (64 bit) x 104583 ; In: ACM -> unsigned integer 64 bit4584 ; Out: ACM <- ACM * 10 (unsigned 64 bit)4585 ; CF -> unsigned overflow flag4586 ; Uso: A,X,ACM,FOP4587 F83035 _iUMult10:4588 F83035 A2 07 LDX #INTGSIZE-14589 F83037 B5 18 ?01: LDA ACM,X ; copia ACM -> FOP4590 F83039 95 32 STA FOP,X4591 F8303B CA DEX4592 F8303C 10 F9 BPL ?014593 F8303E 20 4D 30 JSR ?10 ; ACM * 2 -> ACM4594 F83041 B0 16 bcs ?224595 F83043 20 4D 30 JSR ?10 ; ACM * 4 -> ACM4596 F83046 B0 11 bcs ?224597 F83048 20 63 30 JSR _iUAdd64 ; ACM * 5 -> ACM4598 F8304B B0 0C bcs ?224599 ; ACM * 10 -> ACM46004601 ?10: ; moltiplica x 24602 F8304D ACC164603 F8304D C2 20 rep #PMFLAG4604 .LONGA on4605 .MNLIST4606 F8304F 06 18 ASL ACM4607 F83051 26 1A ROL ACM+24608 F83053 26 1C ROL ACM+44609 F83055 26 1E ROL ACM+64610 F83057 ?20: ACC084611 F83057 E2 20 sep #PMFLAG4612 .LONGA off4613 .MNLIST4614 F83059 60 ?22: RTS ; CF = 1 => overflow46154616 ; _iUAdd8 - Somma unsigned ACM (64 bit) e Accmulatore (8 bit)4617 ; In: ACM -> unsigned integer 64 bit4618 ; A -> unsigned byte4619 ; Out: ACM <- ACM + A (unsigned 64 bit)4620 ; CF = 1 +> overflow4621 ; Uso: A,X,ACM,FOP4622 F8305A _iUAdd8:4623 F8305A LONG_OFF4624 .LONGA off4625 .LONGI off4626 .MNLIST4627 F8305A A2 07 LDX #(INTGSIZE-1) ; azzera FOP+1..FOP+74628 F8305C 74 32 ?01: STZ FOP,XTue Jul 17 11:00:16 2018 Page 374629 F8305E CA DEX4630 F8305F D0 FB BNE ?014631 F83061 85 32 STA FOP ; byte in A4632 F830634633 ; _iUAdd64 - Somma unsigned ACM e FOP (64 bit)4634 ; In: ACM -> unsigned integer 64 bit4635 ; FOP -> unsigned integer 64 bit4636 ; Out: ACM <- ACM + FOP (unsigned 64 bit)4637 ; CF = 1 => unsigned overflow4638 ; VF = 1 +> signed overflow4639 ; Uso: A,ACM,FOP4640 F83063 _iUAdd64:4641 F83063 C2 21 rep #(PMFLAG+PCFLAG) ; ACC16 + CLC4642 F83065 A5 18 LDA ACM4643 F83067 65 32 ADC FOP4644 F83069 85 18 STA ACM4645 F8306B A5 1A LDA ACM+24646 F8306D 65 34 ADC FOP+24647 F8306F 85 1A STA ACM+24648 F83071 A5 1C LDA ACM+44649 F83073 65 36 ADC FOP+44650 F83075 85 1C STA ACM+44651 F83077 A5 1E LDA ACM+64652 F83079 65 38 ADC FOP+64653 F8307B 85 1E STA ACM+64654 F8307D ACC084655 F8307D E2 20 sep #PMFLAG4656 .LONGA off4657 .MNLIST4658 F8307F 60 RTS46594660 ;----------------------------------------------------------4661 ; Conversioni Integer-Stringa (decimale / hex)4662 ;----------------------------------------------------------4663 F830804664 ; _Int2Str: converte numero intero in stringa decimale/hex4665 ; In - ACM => intero max. 64 bit4666 ; ACMSize => dimensione intero (1, 2, 3, 4, 8 bytes)4667 ; ACMSgn => <7>:segno, <6>:tipo signed4668 ; X => precisione richiesta4669 ; A => flag conversione:4670 ; <7> 1 => DEC, 0 => HEX4671 ; <6> 0 => LOWCAPS, 1 => HICAPS (HEX only - <7> = 0)4672 ; <6> 1 => group thousand (DEC only - <7> = 1)4673 ; <5> flag long pointer (forza hex a 6 digit)4674 ; <1> => blank se positivo (DEC signed only)4675 ; <0> => segno '+'/blank se positivo (DEC signed only)4676 ; DPR -> impostato a DP02ADDR4677 ; DBR -> impostato su banco 04678 ; CPU -> 8 bit4679 ;4680 ; Out: - X => puntatore stringa in pagina 024681 ; A = Y => lunghezza stringa4682 F83080 _Int2Str:4683 F83080 9B txy ; precisione minima = 14684 F83081 D0 01 bne ?024685 F83083 E8 inxTue Jul 17 11:00:16 2018 Page 384686 F83084 E0 2E ?02: cpx #XCVTMAXI ; max. numero char stringa integer4687 F83086 90 02 bcc ?034688 F83088 A2 2E ldx #XCVTMAXI4689 F8308A 89 20 ?03: bit #$20 ; test long pointer4690 F8308C F0 08 beq ?04 ; standard integer (1,2,4,8)4691 F8308E A2 06 ldx #6 ; precisione fissa a 6 digit4692 F83090 A0 03 ldy #3 ; dimensione long pointer = 3 bytes4693 F83092 29 60 and #01100000B ; maschera off bit inutilizzati - forza HEX4694 F83094 D0 07 bne ?064695 F83096 A4 20 ?04: ldy ACMSize ; standard integer4696 F83098 C0 03 cpy #3 ; se size = 3 imposta size = 44697 F8309A D0 01 bne ?064698 F8309C C8 iny4699 F8309D 86 0A ?06: stx FmtPrec ; salva precisione4700 F8309F 85 16 sta XVFlag ; salva flag4701 F830A1 BB tyx ; minima dimensione = byte4702 F830A2 D0 01 bne ?074703 F830A4 C8 iny4704 F830A5 C0 05 ?07: cpy #54705 F830A7 90 02 bcc ?08 ; Y < 5 => OK (size = 1,2,3,4)4706 F830A9 A0 08 ldy #8 ; MAX: 8 bytes4707 F830AB 84 20 ?08: sty ACMSize ; salva size corretta integer4708 F830AD AA tax ; test bit 74709 F830AE 30 36 bmi ?20 ; <7> = 1 => DEC4710 F830B04711 ; conversione in stringa HEX -- ignora ACMSgn4712 F830B0 A2 06 ldx #$06 ; valore da aggiungere per digit A..F4713 F830B2 0A asl a ; NF => HI CAPS, bit 6 => long ptr4714 F830B3 85 16 sta XVFlag ; <6> => long pointer4715 F830B5 30 02 bmi ?10 ; HI CAPS4716 F830B7 A2 26 ldx #$26 ; valore da aggiungere per digit a..f4717 F830B9 86 24 ?10: stx FPTmp14718 F830BB BB tyx4719 F830BC CA dex ; X = MSB integer (0,1,3,7)4720 F830BD A0 01 LDY #1 ; indice stringa destinazione (FPUStr+1)4721 F830BF B5 18 ?12: LDA <ACM,X ; converte MSB4722 F830C1 20 1E 32 JSR Byte2Hex ; A = nibble H4723 F830C4 99 70 02 STA !DP02ADDR+FPUStr,Y4724 F830C7 C8 INY4725 F830C8 EB xba ; nibble L4726 F830C9 99 70 02 STA !DP02ADDR+FPUStr,Y4727 F830CC C8 INY4728 F830CD CA DEX4729 F830CE 10 EF BPL ?124730 F830D0 BB tyx4731 F830D1 74 70 stz FPUStr,x ; terminatore #0 stringa4732 ; a questo punto la stringa HEX e' convertita in ACMSize * 2 digit4733 F830D3 A2 71 ldx #FPUStr+1 ; puntatore stringa pagina 024734 F830D5 24 16 bit XVFlag ; test long pointer ?4735 F830D7 50 04 bvc ?14 ; no4736 ; long pointer => stringa completa a 6 digit4737 F830D9 A4 0A ldy FmtPrec4738 F830DB 98 tya ; A = Y = lunghezza stringa4739 F830DC 60 rts ; X = inizio stringa pagina 024740 F830DD 20 D8 31 ?14: jsr _Int2End ; A = len -- Y = first -- X = last4741 F830E0 64 16 stz XVFlag ; per stringa HEX ignora restanti flag4742 F830E2 64 21 stz ACMSgn ; HEX ignora segnoTue Jul 17 11:00:16 2018 Page 394743 F830E4 80 4A bra ?30 ; padding finale4744 F830E64745 ?20: ; conversione in stringa decimale -- Y = size (1,2,4,8)4746 F830E6 BB tyx4747 F830E7 CA dex ; X = MSB integer (0,1,3,7)4748 F830E8 A9 80 lda #$80 ; clear segno4749 F830EA 14 21 trb ACMSgn4750 F830EC 24 21 bit ACMSgn ; signed ?4751 F830EE 50 06 bvc ?22 ; NO4752 F830F0 34 18 bit <ACM,x ; test segno4753 F830F2 10 02 bpl ?22 ; positivo4754 F830F4 04 21 tsb ACMSgn ; imposta segno negativo4755 F830F6 C0 08 ?22: cpy #84756 F830F8 F0 16 beq ?26 ; non occorre estensione4757 F830FA 84 24 sty FPTmp1 ; calcola numero byte estensione4758 F830FC A9 08 lda #84759 F830FE 38 sec4760 F830FF E5 24 sbc FPTmp14761 F83101 A8 tay ; Y = numero di bytes da estendere (7,6,4)4762 F83102 A9 00 lda #0 ; estende con $00 se positivo/unsigned4763 F83104 24 21 bit ACMSgn4764 F83106 10 02 bpl ?24 ; positivo4765 F83108 A9 FF lda #$FF ; estende negativo4766 F8310A E8 ?24: inx ; next byte da estendere4767 F8310B 95 18 sta <ACM,x4768 F8310D 88 dey4769 F8310E D0 FA bne ?244770 F83110 ?26: ACC16 ; copia ACM in FOP (signed 64 bytes)4771 F83110 C2 20 rep #PMFLAG4772 .LONGA on4773 .MNLIST4774 F83112 A5 18 lda ACM4775 F83114 85 32 sta FOP4776 F83116 A5 1A lda ACM+24777 F83118 85 34 sta FOP+24778 F8311A A5 1C lda ACM+44779 F8311C 85 36 sta FOP+44780 F8311E A5 1E lda ACM+64781 F83120 85 38 sta FOP+64782 F83122 ACC084783 F83122 E2 20 sep #PMFLAG4784 .LONGA off4785 .MNLIST4786 F83124 24 21 bit ACMSgn4787 F83126 10 05 bpl ?28 ; positivo4788 F83128 A2 32 ldx #FOP4789 F8312A 20 40 2A jsr _iNegX ; negativo => complementa a 24790 F8312D 20 6C 31 ?28: jsr _UI2Str ; converte in stringa decimale47914792 ?30: ; a questo punto la stringa convertita si trova in FPUStr+14793 ; A = len -- Y = ptr al primo digit non '0' -- X = ptr last digit4794 F83130 20 F9 31 jsr _thgroup ; copia in XCVTStr/group thousand4795 ; A = len -- Y = ptr first digit -- X = ptr last digit4796 F83133 BB tyx ; X = puntatore stringa in pagina 024797 F83134 A8 tay ; Y = lunghezza attuale stringa4798 F83135 85 27 sta FPTmp4 ; lunghezza attuale stringa4799 F83137 A5 0A lda FmtPrec ; precisione richiestaTue Jul 17 11:00:16 2018 Page 404800 F83139 38 sec4801 F8313A E5 27 sbc FPTmp4 ; lunghezza padding4802 F8313C F0 0D beq ?50 ; no padding4803 F8313E 90 0B bcc ?50 ; no padding4804 F831404805 ; padding della stringa con '0' iniziali4806 F83140 A8 tay ; counter padding4807 F83141 A9 30 lda #'0'4808 F83143 CA ?32: dex ; aggiorna ptr a digit precedente4809 F83144 95 00 sta <0,x4810 F83146 88 dey4811 F83147 D0 FA bne ?324812 F83149 A4 0A ldy FmtPrec ; Y = lunghezza stringa4813 F8314B4814 ; memorizza eventuale segno ('+', '-', o ' ')4815 ; X = ptr stringa -- Y = lunghezza stringa4816 F8314B 24 21 ?50: bit ACMSgn ; signed ?4817 F8314D 50 1B bvc ?60 ; NO -- esce4818 F8314F 10 04 bpl ?52 ; signed positivo4819 F83151 A9 2D lda #'-' ; signed negativo => store '-'4820 F83153 D0 11 bne ?564821 F83155 A5 16 ?52: lda XVFlag ; test store segno4822 F83157 4A lsr a ; CF -> flag segno positivo4823 F83158 90 10 bcc ?60 ; no store segno se positivo4824 F8315A 86 24 stx FPTmp1 ; salva ptr stringa4825 F8315C A2 2B ldx #'+' ; assume '+'4826 F8315E 4A lsr a ; CF -> flag blank4827 F8315F 90 02 bcc ?54 ; store '+'4828 F83161 A2 20 ldx #' ' ; store blank4829 F83163 8A ?54: txa ; A = segno4830 F83164 A6 24 ldx FPTmp1 ; X = ptr stringa4831 F83166 CA ?56: dex ; ptr al segno4832 F83167 95 00 sta <0,x4833 F83169 C8 iny ; incrementa lunghezza4834 F8316A 98 ?60: tya ; A = Y = lunghezza stringa4835 F8316B 60 rts ; X = puntatore stringa48364837 ; _UI2Str: converte intero senza segno in stringa decimale a 20 digits4838 ; In: - FOP -> unsigned integer 64 bit4839 ; DPR -> impostato a DP02ADDR4840 ; CPU -> 8 bit4841 ;4842 ; Out: - FPUStr+1 -> stringa decimale 20 cifre4843 ; - A -> lunghezza stringa significativa (X - Y + 1)4844 ; - Y -> ptr in pag02 al primo digit diverso ad '0'4845 ; - X -> ptr in pag02 ultimo digit4846 ; NOTA il numero intero viene esteso a 9 bytes e si applica il metodo4847 ; delle sottrazioni ripetute per determinare ciascun digit4848 F8316C _UI2Str:4849 F8316C A0 00 LDY #$004850 F8316E 84 3A STY FOP+8 ; MSB = 0 (9 bytes)4851 F83170 84 25 STY FPTmp2 ; indice stringa4852 F83172 A2 15 LDX #(FPSTRSIZE - 1)4853 F83174 74 70 ?01: STZ FPUStr,X ; clear stringa destinazione4854 F83176 CA DEX4855 F83177 10 FB BPL ?014856 F83179 BB TYXTue Jul 17 11:00:16 2018 Page 414857 F8317A 8B phb ; imposta DBR al PBR corrente4858 F8317B 4B phk ; per accedere alle costanti4859 F8317C AB plb4860 F8317D A0 80 LDY #$80 ; contatore SBC4861 F8317F C2 21 ?02: rep #(PMFLAG.OR.PCFLAG)4862 .LONGA on ; ACC16 + CLC4863 F83181 A5 32 LDA FOP ; divisione mediante sottrazioni ripetute4864 F83183 7D D3 32 ADC !CONSTDECTBL,x4865 F83186 85 32 STA FOP4866 F83188 A5 34 LDA FOP+24867 F8318A 7D D5 32 ADC !CONSTDECTBL+2,x4868 F8318D 85 34 STA FOP+24869 F8318F A5 36 LDA FOP+44870 F83191 7D D7 32 ADC !CONSTDECTBL+4,x4871 F83194 85 36 STA FOP+44872 F83196 A5 38 LDA FOP+64873 F83198 7D D9 32 ADC !CONSTDECTBL+6,x4874 F8319B 85 38 STA FOP+64875 F8319D ACC08 ; ripristina acc/mem 8 bit4876 F8319D E2 20 sep #PMFLAG4877 .LONGA off4878 .MNLIST4879 F8319F A5 3A LDA FOP+84880 F831A1 7D DB 32 ADC !CONSTDECTBL+8,x4881 F831A4 85 3A STA FOP+84882 F831A6 C8 INY ; incrementa contatore SBC4883 F831A7 B0 04 BCS ?03 ; nuova SBC se X < 04884 F831A9 10 D4 BPL ?02 ; resto >= 10, nuova SBC4885 F831AB 30 02 BMI ?04 ; resto < 10 - store digit4886 F831AD 30 D0 ?03: BMI ?02 ; nuova SBC se X < 04887 F831AF 98 ?04: TYA ; fine SBC4888 F831B0 90 04 BCC ?05 ; positivo4889 F831B2 49 FF EOR #$FF ; negativo4890 F831B4 69 0A ADC #104891 F831B6 69 2F ?05: ADC #('0' - 1) ; digit4892 F831B8 A8 TAY4893 F831B9 8A TXA4894 F831BA 18 CLC4895 F831BB 69 09 ADC #DECTBLLEN ; indice tabella divisioni4896 F831BD 85 24 STA FPTmp14897 F831BF A6 25 LDX FPTmp24898 F831C1 E8 INX4899 F831C2 98 TYA4900 F831C3 29 7F AND #$7F4901 F831C5 95 70 STA FPUStr,x ; salva digit4902 F831C7 86 25 ?06: STX FPTmp2 ; indice stringa4903 F831C9 A6 24 LDX FPTmp14904 F831CB 98 TYA4905 F831CC 49 FF EOR #$FF ; inverte contatore SBC4906 F831CE 29 80 AND #$804907 F831D0 A8 TAY4908 F831D1 E0 B4 CPX #DECTBLSIZE4909 F831D3 D0 AA BNE ?02 ; ricava digit successivo4910 F831D5 AB plb ; ripristina DBR4911 F831D6 A2 71 LDX #FPUStr+1 ; posiziona puntatori start-end4912 F831D84913 F831D8 _Int2End:Tue Jul 17 11:00:16 2018 Page 424914 ; posiziona X sulla prima cifra diversa da '0'4915 ; la stringa e' terminata sicuramente con #04916 F831D8 86 25 stx FPTmp24917 F831DA B5 00 ?10: LDA <0,X ; start stringa4918 F831DC F0 07 beq ?11 ; fine4919 F831DE C9 30 CMP #'0'4920 F831E0 D0 04 BNE ?12 ; primo digit non '0'4921 F831E2 E8 INX4922 F831E3 D0 F5 bne ?10 ; loop4923 F831E5 CA ?11: DEX ; ultimo digit4924 F831E6 9B ?12: txy ; Y = indice primo digit significativo4925 F831E7 A6 25 ldx FPTmp24926 F831E9 B5 00 ?13: lda <0,x ; si posiziona su ultimo digit4927 F831EB F0 03 beq ?144928 F831ED E8 inx4929 F831EE D0 F9 bne ?134930 F831F0 CA ?14: dex ; X = last digit4931 F831F1 8A txa4932 F831F2 84 24 sty FPTmp14933 F831F4 38 sec4934 F831F5 E5 24 sbc FPTmp14935 F831F7 1A inc a ; A = lunghezza stringa significativa4936 F831F8 60 rts49374938 ; formatta stringa minima raggruppando le migliaia4939 ; i digit vengono spostati verso la fine di XCVTStr4940 F831F9 _thgroup:4941 F831F9 84 24 sty FPTmp1 ; indice primo digit significativo4942 F831FB 9B txy ; Y => ptr ultimo digit4943 F831FC A2 B5 ldx #XCVTStrEnd4944 F831FE 74 00 stz <0,x ; terminatore #04945 F83200 CA dex ; indice ultimo digit4946 F83201 A9 03 ?02: lda #3 ; counter gruppi digits4947 F83203 EB ?04: xba ; B = counter4948 F83204 B9 00 02 lda !DP02ADDR,y4949 F83207 95 00 sta <0,x ; copia digit4950 F83209 EB xba ; A = counter4951 F8320A 88 dey4952 F8320B C4 24 cpy FPTmp14953 F8320D 90 C9 bcc _Int2End ; fine loop4954 F8320F CA dex4955 F83210 3A dec a4956 F83211 D0 F0 bne ?044957 F83213 24 16 bit XVFlag ; test group thousand4958 F83215 50 EA bvc ?02 ; no group -- loop4959 F83217 A9 2C lda #',' ; separatore migliaia4960 F83219 95 00 sta <0,x4961 F8321B CA dex4962 F8321C 80 E3 bra ?02 ; loop49634964 ; Byte2Hex: converte byte in digit HEX4965 ; In: - A = byte4966 ; FPTmp1 -> valore da aggiungere per digit a..f/A..F4967 ;4968 ; Out: - BA - Digit HEX (A->H, B->L)4969 F8321E Byte2Hex:4970 F8321E 48 pha ; salva byteTue Jul 17 11:00:16 2018 Page 434971 F8321F 20 28 32 JSR ?01 ; converte digit L4972 F83222 EB xba ; B -> Digit L4973 F83223 68 pla ; ripristina byte4974 F83224 4A LSR A ; A/16 -> A4975 F83225 4A LSR A4976 F83226 4A LSR A4977 F83227 4A LSR A4978 F83228 29 0F ?01: AND #$0F ; maschera nibble L4979 F8322A C9 0A CMP #104980 F8322C 90 02 BCC ?024981 F8322E 65 24 ADC FPTmp14982 F83230 69 30 ?02: ADC #'0'4983 F83232 60 RTS49844985 ; long fast unsigned division 16 bit4986 ;4987 ; entry: C = dividend 16 bit4988 ; X = divisor low4989 ; Y = divisor high4990 ;4991 ; exit: C = quotient4992 ; X = remainder low4993 ; Y = remainder high4994 ;4995 ; use: all4996 ;4997 ; note: no check for null divisor4998 ; long subroutine (call with jsl)4999 ;5000 0000B6 dvend .EQU DUMMY1005001 0000B8 dvsor .EQU DUMMY100+25002 F83233 fidiv:5003 F83233 0B phd ; save dp5004 F83234 F4 00 02 pea #P0MAT5005 F83237 2B pld ; set dp5006 F83238 86 B8 stx dvsor ; set divisor5007 F8323A 84 B9 sty dvsor+15008 F8323C A2 10 ldx #16 ; bit counter5009 F8323E A0 00 ldy #0 ; partial remainder5010 F83240 CPU165011 F83240 C2 30 rep #(PMFLAG.OR.PXFLAG)5012 .LONGA on5013 .LONGI on5014 .MNLIST5015 F83242 85 B6 sta dvend ; set dividend5016 F83244 98 tya ; C=remainder5017 F83245 26 B6 ?10: rol dvend ; partial quotient5018 F83247 2A rol a5019 F83248 38 sec5020 F83249 A8 tay ; save remainder5021 F8324A E5 B8 sbc dvsor5022 F8324C B0 01 bcs ?20 ; ok5023 F8324E 98 tya ; restore old remainder5024 F8324F CA ?20: dex5025 F83250 D0 F3 bne ?10 ; loop5026 F83252 26 B6 rol dvend ; adjust final quotient5027 F83254 85 B8 sta dvsor ; save remainderTue Jul 17 11:00:16 2018 Page 445028 F83256 A5 B6 lda dvend ; C=quotient5029 F83258 CPU085030 F83258 E2 30 sep #(PMFLAG.OR.PXFLAG)5031 .LONGA off5032 .LONGI off5033 .MNLIST5034 F8325A A6 B8 ldx dvsor ; X=remainder low5035 F8325C A4 B9 ldy dvsor+1 ; Y=remainder high5036 F8325E 2B pld ; restore dp5037 F8325F 6B rtl50385039 ; long fast unsigned division 16 bit5040 ;5041 ; entry: C = dividend 16 bit5042 ; X = divisor low5043 ; Y = divisor high5044 ;5045 ; exit: C = quotient5046 ; X = remainder low5047 ; Y = remainder high5048 ;5049 ; use: all5050 ;5051 ; note: no check for null divisor5052 ; long subroutine (call with jsl)5053 ;5054 ;dvsor .EQU DUMMY1005055 0000B6 quot .EQU DUMMY1005056 F83260 fidiv2:5057 F83260 0B phd ; save dp5058 F83261 F4 00 02 pea #P0MAT5059 F83264 2B pld ; set dp5060 F83265 86 B8 stx dvsor ; set divisor5061 F83267 84 B9 sty dvsor+15062 F83269 A2 01 ldx #1 ; bit counter5063 F8326B CPU165064 F8326B C2 30 rep #(PMFLAG.OR.PXFLAG)5065 .LONGA on5066 .LONGI on5067 .MNLIST5068 F8326D A8 tay ; Y=dividend5069 F8326E 64 B6 stz quot ; init quotient5070 F83270 A5 B8 lda dvsor ; C=divisor5071 F83272 0A ?10: asl a ; shift divisor: get leftmost bit5072 F83273 B0 06 bcs ?20 ; go to division5073 F83275 E8 inx5074 F83276 E0 11 00 cpx #17 ; test all divisor bit's5075 F83279 D0 F7 bne ?105076 F8327B 6A ?20: ror a ; put shifted-out bit back5077 F8327C 85 B8 sta dvsor5078 F8327E 98 ?30: tya ; get dividend5079 F8327F 38 sec5080 F83280 E5 B8 sbc dvsor5081 F83282 90 01 bcc ?40 ; can't subctract, retain old dividend5082 F83284 A8 tay ; Y=new dividend5083 F83285 26 B6 ?40: rol quot ; shift carry into quotient (1 if division)5084 F83287 46 B8 lsr dvsor ; shift right divisor for next subtractTue Jul 17 11:00:16 2018 Page 455085 F83289 CA dex5086 F8328A D0 F2 bne ?305087 F8328C 84 B8 sty dvsor ; store remainder5088 F8328E A5 B6 lda quot ; C=quotient5089 F83290 CPU085090 F83290 E2 30 sep #(PMFLAG.OR.PXFLAG)5091 .LONGA off5092 .LONGI off5093 .MNLIST5094 F83292 A6 B8 ldx dvsor ; X=remainder low5095 F83294 A4 B9 ldy dvsor+1 ; Y=remainder high5096 F83296 2B pld ; restore dp5097 F83297 6B rtl50985099 ; long fast unsigned multiplication 16 bit5100 ;5101 ; entry: C = multiplicand 1 16 bit5102 ; X = multiplicand 2 low byte5103 ; Y = multiplicand 2 high byte5104 ;5105 ; exit: C = result5106 ; Y = result low byte5107 ;5108 ; use: all5109 ;5110 ; note: 16 bit result only, no overflow detected5111 ; long subroutine (call with jsl)5112 ;5113 0000B6 mcand2 .EQU DUMMY1005114 F83298 fimlt:5115 F83298 0B phd ; save dp5116 F83299 F4 00 02 pea #P0MAT5117 F8329C 2B pld ; set dp5118 F8329D 86 B6 stx mcand25119 F8329F 84 B7 sty mcand2+15120 F832A1 A0 00 ldy #0 ; partial result5121 F832A3 CPU165122 F832A3 C2 30 rep #(PMFLAG.OR.PXFLAG)5123 .LONGA on5124 .LONGI on5125 .MNLIST5126 F832A5 AA ?10: tax ; if mcand1 = 0...5127 F832A6 F0 0E beq ?30 ; ...done5128 F832A8 4A lsr a ; get right bit5129 F832A9 90 07 bcc ?20 ; if clear, no addition to partial result...5130 F832AB 18 clc5131 F832AC AA tax5132 F832AD 98 tya ; ...else add mcand2 to partial result5133 F832AE 65 B6 adc mcand25134 F832B0 A8 tay ; Y=partial result5135 F832B1 8A txa5136 F832B2 06 B6 ?20: asl mcand2 ; shift mcand2 for next time5137 F832B4 80 EF bra ?105138 F832B6 98 ?30: tya ; C=result5139 F832B7 CPU085140 F832B7 E2 30 sep #(PMFLAG.OR.PXFLAG)5141 .LONGA offTue Jul 17 11:00:16 2018 Page 465142 .LONGI off5143 .MNLIST5144 F832B9 2B pld ; restore dp5145 F832BA 6B rtl51465147 F832BB test1:5148 F832BB 22 33 32 F8 jsl fidiv5149 F832BF 00 00 brk5150 F832C1 00 00 brk5151 F832C35152 F832C3 test3:5153 F832C3 22 98 32 F8 jsl fimlt5154 F832C7 00 00 brk5155 F832C9 00 00 brk51565157 F832CB test2:5158 F832CB 22 60 32 F8 jsl fidiv25159 F832CF 00 00 brk5160 F832D1 00 00 brk5161 F832D35162 ;----------------------------------------------------------------------------5163 ; COSTANTI5164 ;----------------------------------------------------------------------------5165 F832D35166 ; Tabella potenze di 10 in ordine decrescente da -1E19 a 1E00,5167 ; con segni alterni, a 9 bytes5168 F832D3 CONSTDECTBL:5169 F832D3 00 00 18 76 FB .DB $00, $00, $18, $76, $FB, $DC, $38, $75, $FF ; -1E19DC 38 75 FF5170 F832DC CONSTDECTBL1:5171 F832DC 00 00 64 A7 B3 .DB $00, $00, $64, $A7, $B3, $B6, $E0, $0D, $00 ; +1E18B6 E0 0D 005172 F832E5 00 00 76 A2 87 .DB $00, $00, $76, $A2, $87, $BA, $9C, $FE, $FF ; -1E17BA 9C FE FF5173 F832EE 00 00 C1 6F F2 .DB $00, $00, $C1, $6F, $F2, $86, $23, $00, $00 ; +1E1686 23 00 005174 F832F7 00 80 39 5B 81 .DB $00, $80, $39, $5B, $81, $72, $FC, $FF, $FF ; -1E1572 FC FF FF5175 F83300 00 40 7A 10 F3 .DB $00, $40, $7A, $10, $F3, $5A, $00, $00, $00 ; +1E145A 00 00 005176 F83309 00 60 8D B1 E7 .DB $00, $60, $8D, $B1, $E7, $F6, $FF, $FF, $FF ; -1E13F6 FF FF FF5177 F83312 00 10 A5 D4 E8 .DB $00, $10, $A5, $D4, $E8, $00, $00, $00, $00 ; +1E1200 00 00 005178 F8331B 00 18 89 B7 E8 .DB $00, $18, $89, $B7, $E8, $FF, $FF, $FF, $FF ; -1E11FF FF FF FF5179 F83324 00 E4 0B 54 02 .DB $00, $E4, $0B, $54, $02, $00, $00, $00, $00 ; +1E1000 00 00 005180 F8332D 00 36 65 C4 FF .DB $00, $36, $65, $C4, $FF, $FF, $FF, $FF, $FF ; -1E9FF FF FF FF5181 F83336 00 E1 F5 05 00 .DB $00, $E1, $F5, $05, $00, $00, $00, $00, $00 ; +1E800 00 00 005182 F8333F 80 69 67 FF FF .DB $80, $69, $67, $FF, $FF, $FF, $FF, $FF, $FF ; -1E7FF FF FF FF5183 F83348 40 42 0F 00 00 .DB $40, $42, $0F, $00, $00, $00, $00, $00, $00 ; +1E600 00 00 005184 F83351 60 79 FE FF FF .DB $60, $79, $FE, $FF, $FF, $FF, $FF, $FF, $FF ; -1E5Tue Jul 17 11:00:16 2018 Page 47FF FF FF FF5185 F8335A 10 27 00 00 00 .DB $10, $27, $00, $00, $00, $00, $00, $00, $00 ; +1E400 00 00 005186 F83363 18 FC FF FF FF .DB $18, $FC, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; -1E3FF FF FF FF5187 F8336C 64 00 00 00 00 .DB $64, $00, $00, $00, $00, $00, $00, $00, $00 ; +1E200 00 00 005188 F83375 F6 FF FF FF FF .DB $F6, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; -1E1FF FF FF FF5189 F8337E 01 00 00 00 00 .DB $01, $00, $00, $00, $00, $00, $00, $00, $00 ; +1E000 00 00 0051905191 0000B4 DECTBLSIZE: .EQU ($ - CONSTDECTBL)5192 000009 DECTBLLEN: .EQU (CONSTDECTBL1 - CONSTDECTBL)Lines Assembled : 4879 Errors : 0