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\fpuemu.asmOutput Filename : obj\F8\fpuemu.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 F8FFB127172718 F8FFB12719 ;----------------------------------------------------------2720 ; segmento codice banco $F82721 ;----------------------------------------------------------27222723 .CODEF82724 .EXTERN _UI2Str, _iSMult16, Byte2Hex2725 .GLOBAL _Str2Fl, _MovRndF2A, _feMUL, _MovRF2Mem, _MovMem2A, _feDIV2726 .GLOBAL _feSUB, _feADD, _feFAC2S, _MovMem2Fa27272728 003FFF EXPBIAS .EQU $3FFF ; bias esponente2729 007FFF EXPINF .EQU $7FFF ; esponente INF e NAN2730 008000 MANTINF .EQU $8000 ; mantissa INF2731 00FF00 MANTNAN .EQU $FF00 ; mantissa NAN2732 004006 BIASBYTE .EQU (EXPBIAS + 7) ; bias BYTE (8 bit)2733 00400E BIASWORD .EQU (BIASBYTE + 8) ; bias WORD (16 bit)2734 00401E BIASDWORD .EQU (BIASWORD + 16) ; bias DWORD (32 bit)2735 00403E BIASQWORD .EQU (BIASDWORD + 32); bias QWORD (64 bit)2736 003FFF MAXPEXP .EQU EXPBIAS ; massimo esponente positivo2737 FFC001 MINNEXP .EQU -(EXPBIAS) ; minimo esponente negativo2738 004D10 LOG2H .EQU 19728 ; LG(2) * $100002739 001387 EXP10LIM .EQU 4999 ; limite esponente in FStr2Float2740 000013 MAXDIGITS .EQU 19 ; max. numero cifre decimali2741 000014 MAXINTDGTS .EQU 20 ; max. cifre unsigned int2742 00007F MAXDECSTR .EQU 1272743 000007 MAXFEXP .EQU 7 ; max. esp. dec. negativo formato G/F2744 000024 MAXFDEC .EQU 36 ; max. esp. decimale positivo form. F27452746 .LONGA off2747 .LONGI offTue Jul 17 11:00:16 2018 Page 4274827492750 F83387 _test1:2751 .EXTERN fpmult, fpdiv, ldfac, ldarg, fround2752 F833872753 F83387 8B phb ; salva DBR2754 F83388 0B phd ; salva DPR2755 F83389 F4 00 02 pea #DP02ADDR ; imposta DPR a pag 22756 F8338C 2B pld2757 F8338D A0 00 ldy #02758 F8338F 5A phy2759 F83390 AB plb ; imposta DBR su banco 027602761 F83391 A0 F8 ldy #^?510 ; ARG = 1.02762 F83393 A9 36 lda #>?5102763 F83395 EB xba2764 F83396 A9 D2 lda #<?5102765 F83398 20 62 3D jsr _MovMem2F2766 F8339B A0 F8 ldy #^?500 ; ARG = 1.02767 F8339D A9 36 lda #>?5102768 F8339F EB xba2769 F833A0 A9 DC lda #<?5002770 F833A2 20 98 3D jsr _MovMem2A2771 F833A5 20 30 3A jsr _feDIV ; FAC=ARG/FAC2772 F833A8 20 43 38 jsr _Round2773 F833AB2774 F833AB 0B phd2775 F833AC F4 00 3F pea #$3f002776 F833AF 2B pld2777 F833B0 A0 F8 ldy #^?610 ; ARG = 1.02778 F833B2 A9 36 lda #>?6102779 F833B4 EB xba2780 F833B5 A9 F2 lda #<?6102781 F833B7 20 82 86 jsr ldfac2782 F833BA A0 F8 ldy #^?600 ; ARG = 1.02783 F833BC A9 36 lda #>?6002784 F833BE EB xba2785 F833BF A9 E6 lda #<?6002786 F833C1 20 CF 86 jsr ldarg2787 F833C4 20 DD 49 jsr fpmult ; FAC=ARG/FAC2788 F833C7 20 FA 4F jsr fround2789 F833CA 2B pld2790 F833CB 2B pld2791 F833CC AB plb2792 F833CD 00 00 brk27932794 F833CF 4B phk2795 F833D0 F4 A0 36 pea #?4002796 F833D3 4B phk2797 F833D4 F4 5A 36 pea #?2102798 F833D7 A9 07 lda #72799 F833D9 48 pha2800 F833DA BPRINTF2801 F833DA 02 11 cop $112802 .MNLIST2803 F833DC 4B phk2804 F833DD F4 AA 36 pea #?410Tue Jul 17 11:00:16 2018 Page 52805 F833E0 4B phk2806 F833E1 F4 5A 36 pea #?2102807 F833E4 A9 07 lda #72808 F833E6 48 pha2809 F833E7 BPRINTF2810 F833E7 02 11 cop $112811 .MNLIST28122813 F833E9 A9 36 lda #>?100 ; 1.02814 F833EB EB xba2815 F833EC A9 29 lda #<?1002816 F833EE A2 F8 ldx #^?1002817 F833F0 20 5A 3F jsr _Str2Fl2818 F833F3 A0 20 ldy #$202819 F833F5 A9 00 lda #02820 F833F7 EB xba2821 F833F8 A9 00 lda #02822 F833FA 20 26 3D jsr _MovRF2Mem2823 F833FD2824 F833FD A9 36 lda #>?105 ; 1.00012825 F833FF EB xba2826 F83400 A9 2D lda #<?1052827 F83402 A2 F8 ldx #^?1052828 F83404 20 5A 3F jsr _Str2Fl2829 F83407 A0 20 ldy #$202830 F83409 A9 00 lda #02831 F8340B EB xba2832 F8340C A9 10 lda #$102833 F8340E 20 26 3D jsr _MovRF2Mem28342835 F83411 A9 36 lda #>?110 ; 0.99992836 F83413 EB xba2837 F83414 A9 37 lda #<?1102838 F83416 A2 F8 ldx #^?1102839 F83418 20 5A 3F jsr _Str2Fl2840 F8341B A0 20 ldy #$202841 F8341D A9 00 lda #02842 F8341F EB xba2843 F83420 A9 20 lda #$202844 F83422 20 26 3D jsr _MovRF2Mem28452846 F83425 A9 36 lda #>?115 ; 0.00012847 F83427 EB xba2848 F83428 A9 41 lda #<?1152849 F8342A A2 F8 ldx #^?1152850 F8342C 20 5A 3F jsr _Str2Fl2851 F8342F A0 20 ldy #$202852 F83431 A9 00 lda #02853 F83433 EB xba2854 F83434 A9 30 lda #$302855 F83436 20 26 3D jsr _MovRF2Mem28562857 F83439 A0 20 ldy #$20 ; ARG = 1.02858 F8343B A9 00 lda #02859 F8343D EB xba2860 F8343E A9 00 lda #02861 F83440 20 98 3D jsr _MovMem2ATue Jul 17 11:00:16 2018 Page 628622863 F83443 A0 20 ldy #$20 ; FAC = .00012864 F83445 A9 00 lda #02865 F83447 EB xba2866 F83448 A9 30 lda #$302867 F8344A 20 62 3D jsr _MovMem2F2868 F8344D 20 30 3A jsr _feDIV ; FAC=ARG/FAC2869 F83450 00 00 brk28702871 F83452 A0 20 ldy #$20 ; ARG = 1.00012872 F83454 A9 00 lda #02873 F83456 EB xba2874 F83457 A9 10 lda #$102875 F83459 20 98 3D jsr _MovMem2A2876 F8345C 20 FE 36 jsr _feSUB ; FAC=ARG-FAC2877 F8345F A0 20 ldy #$202878 F83461 A9 00 lda #02879 F83463 EB xba2880 F83464 A9 40 lda #$402881 F83466 20 26 3D jsr _MovRF2Mem28822883 F83469 A0 20 ldy #$20 ; FAC = 0.99992884 F8346B A9 00 lda #02885 F8346D EB xba2886 F8346E A9 20 lda #$202887 F83470 20 62 3D jsr _MovMem2F2888 F834732889 F83473 A0 20 ldy #$20 ; ARG = 1.02890 F83475 A9 00 lda #02891 F83477 EB xba2892 F83478 A9 00 lda #$002893 F8347A 20 98 3D jsr _MovMem2A2894 F8347D 20 FE 36 jsr _feSUB ; FAC=ARG-FAC2895 F83480 A0 20 ldy #$202896 F83482 A9 00 lda #02897 F83484 EB xba2898 F83485 A9 50 lda #$502899 F83487 20 26 3D jsr _MovRF2Mem29002901 F8348A A0 20 ldy #$20 ; FAC = 1.02902 F8348C A9 00 lda #02903 F8348E EB xba2904 F8348F A9 00 lda #02905 F83491 20 62 3D jsr _MovMem2F2906 F834942907 F83494 A0 20 ldy #$20 ; ARG = 0.00012908 F83496 A9 00 lda #02909 F83498 EB xba2910 F83499 A9 30 lda #$302911 F8349B 20 98 3D jsr _MovMem2A2912 F8349E 20 04 37 jsr _feADD ; FAC=ARG+FAC2913 F834A1 A0 20 ldy #$202914 F834A3 A9 00 lda #02915 F834A5 EB xba2916 F834A6 A9 60 lda #$602917 F834A8 20 26 3D jsr _MovRF2Mem2918Tue Jul 17 11:00:16 2018 Page 72919 F834AB A9 36 lda #>?120 ; 0.00012920 F834AD EB xba2921 F834AE A9 4B lda #<?1202922 F834B0 A2 F8 ldx #^?1202923 F834B2 20 5A 3F jsr _Str2Fl2924 F834B5 A0 20 ldy #$202925 F834B7 A9 00 lda #02926 F834B9 EB xba2927 F834BA A9 70 lda #$702928 F834BC 20 26 3D jsr _MovRF2Mem29292930 F834BF A0 20 ldy #$20 ; FAC = 1.02931 F834C1 A9 00 lda #02932 F834C3 EB xba2933 F834C4 A9 00 lda #02934 F834C6 20 62 3D jsr _MovMem2F2935 F834C9 A0 20 ldy #$20 ; ARG = 1.00012936 F834CB A9 00 lda #02937 F834CD EB xba2938 F834CE A9 10 lda #$102939 F834D0 20 98 3D jsr _MovMem2A2940 F834D3 20 04 37 jsr _feADD ; FAC=ARG+FAC2941 F834D6 A0 20 ldy #$202942 F834D8 A9 00 lda #02943 F834DA EB xba2944 F834DB A9 80 lda #$802945 F834DD 20 26 3D jsr _MovRF2Mem29462947 F834E0 A9 20 lda #$202948 F834E2 48 pha2949 F834E3 F4 30 00 pea #$00302950 F834E6 4B phk2951 F834E7 F4 52 36 pea #?2002952 F834EA A9 07 lda #72953 F834EC 48 pha2954 F834ED BPRINTF2955 F834ED 02 11 cop $112956 .MNLIST2957 F834EF A9 20 lda #$202958 F834F1 48 pha2959 F834F2 F4 40 00 pea #$00402960 F834F5 4B phk2961 F834F6 F4 52 36 pea #?2002962 F834F9 A9 07 lda #72963 F834FB 48 pha2964 F834FC BPRINTF2965 F834FC 02 11 cop $112966 .MNLIST2967 F834FE A9 20 lda #$202968 F83500 48 pha2969 F83501 F4 50 00 pea #$00502970 F83504 4B phk2971 F83505 F4 52 36 pea #?2002972 F83508 A9 07 lda #72973 F8350A 48 pha2974 F8350B BPRINTF2975 F8350B 02 11 cop $11Tue Jul 17 11:00:16 2018 Page 82976 .MNLIST29772978 F8350D A9 20 lda #$202979 F8350F 48 pha2980 F83510 F4 30 00 pea #$00302981 F83513 4B phk2982 F83514 F4 5A 36 pea #?2102983 F83517 A9 07 lda #72984 F83519 48 pha2985 F8351A BPRINTF2986 F8351A 02 11 cop $112987 .MNLIST2988 F8351C A9 20 lda #$202989 F8351E 48 pha2990 F8351F F4 40 00 pea #$00402991 F83522 4B phk2992 F83523 F4 5A 36 pea #?2102993 F83526 A9 07 lda #72994 F83528 48 pha2995 F83529 BPRINTF2996 F83529 02 11 cop $112997 .MNLIST2998 F8352B A9 20 lda #$202999 F8352D 48 pha3000 F8352E F4 50 00 pea #$00503001 F83531 4B phk3002 F83532 F4 5A 36 pea #?2103003 F83535 A9 07 lda #73004 F83537 48 pha3005 F83538 BPRINTF3006 F83538 02 11 cop $113007 .MNLIST30083009 F8353A A9 36 lda #>?3053010 F8353C EB xba3011 F8353D A9 76 lda #<?3053012 F8353F A2 F8 ldx #^?3053013 F83541 20 5A 3F jsr _Str2Fl3014 F83544 A0 20 ldy #$203015 F83546 A9 00 lda #03016 F83548 EB xba3017 F83549 A9 90 lda #$903018 F8354B 20 26 3D jsr _MovRF2Mem30193020 F8354E A9 36 lda #>?3003021 F83550 EB xba3022 F83551 A9 62 lda #<?3003023 F83553 A2 F8 ldx #^?3003024 F83555 20 5A 3F jsr _Str2Fl3025 F83558 A0 20 ldy #$203026 F8355A A9 00 lda #03027 F8355C EB xba3028 F8355D A9 A0 lda #$A03029 F8355F 20 26 3D jsr _MovRF2Mem3030 F83562 A0 20 ldy #$203031 F83564 A9 00 lda #03032 F83566 EB xbaTue Jul 17 11:00:16 2018 Page 93033 F83567 A9 90 lda #$903034 F83569 20 20 3A jsr _feDIVRM3035 F8356C A0 20 ldy #$203036 F8356E A9 00 lda #03037 F83570 EB xba3038 F83571 A9 B0 lda #$B03039 F83573 20 26 3D jsr _MovRF2Mem3040 F83576 A9 20 lda #$203041 F83578 48 pha3042 F83579 F4 B0 00 pea #$00B03043 F8357C 4B phk3044 F8357D F4 5A 36 pea #?2103045 F83580 A9 07 lda #73046 F83582 48 pha3047 F83583 BPRINTF3048 F83583 02 11 cop $113049 .MNLIST30503051 F83585 A9 36 lda #>?3103052 F83587 EB xba3053 F83588 A9 80 lda #<?3103054 F8358A A2 F8 ldx #^?3103055 F8358C 20 5A 3F jsr _Str2Fl3056 F8358F A0 20 ldy #$203057 F83591 A9 00 lda #03058 F83593 EB xba3059 F83594 A9 D0 lda #$D03060 F83596 20 26 3D jsr _MovRF2Mem3061 F83599 A0 20 ldy #$20 ; ARG = 1.03062 F8359B A9 00 lda #03063 F8359D EB xba3064 F8359E A9 00 lda #$003065 F835A0 20 98 3D jsr _MovMem2A3066 F835A3 20 FE 36 jsr _feSUB ; FAC=ARG-FAC3067 F835A6 A0 20 ldy #$203068 F835A8 A9 00 lda #03069 F835AA EB xba3070 F835AB A9 C0 lda #$C03071 F835AD 20 26 3D jsr _MovRF2Mem3072 F835B0 A9 20 lda #$203073 F835B2 48 pha3074 F835B3 F4 C0 00 pea #$00C03075 F835B6 4B phk3076 F835B7 F4 5A 36 pea #?2103077 F835BA A9 07 lda #73078 F835BC 48 pha3079 F835BD BPRINTF3080 F835BD 02 11 cop $113081 .MNLIST30823083 F835BF A9 36 lda #>?3203084 F835C1 EB xba3085 F835C2 A9 94 lda #<?3203086 F835C4 A2 F8 ldx #^?3203087 F835C6 20 5A 3F jsr _Str2Fl3088 F835C9 A0 20 ldy #$203089 F835CB A9 00 lda #0Tue Jul 17 11:00:16 2018 Page 103090 F835CD EB xba3091 F835CE A9 E0 lda #$E03092 F835D0 20 26 3D jsr _MovRF2Mem3093 F835D3 A9 36 lda #>?3253094 F835D5 EB xba3095 F835D6 A9 88 lda #<?3253096 F835D8 A2 F8 ldx #^?3253097 F835DA 20 5A 3F jsr _Str2Fl3098 F835DD A0 20 ldy #$203099 F835DF A9 00 lda #03100 F835E1 EB xba3101 F835E2 A9 F0 lda #$F03102 F835E4 20 26 3D jsr _MovRF2Mem3103 F835E7 A0 20 ldy #$20 ; ARG = 1.03104 F835E9 A9 00 lda #03105 F835EB EB xba3106 F835EC A9 E0 lda #$E03107 F835EE 20 98 3D jsr _MovMem2A3108 F835F1 20 04 37 jsr _feADD3109 F835F4 A0 20 ldy #$203110 F835F6 A9 01 lda #13111 F835F8 EB xba3112 F835F9 A9 00 lda #$003113 F835FB 20 26 3D jsr _MovRF2Mem31143115 F835FE 4B phk3116 F835FF F4 B4 36 pea #?4203117 F83602 4B phk3118 F83603 F4 5A 36 pea #?2103119 F83606 A9 07 lda #73120 F83608 48 pha3121 F83609 BPRINTF3122 F83609 02 11 cop $113123 .MNLIST31243125 F8360B 4B phk3126 F8360C F4 BE 36 pea #?4253127 F8360F 4B phk3128 F83610 F4 5A 36 pea #?2103129 F83613 A9 07 lda #73130 F83615 48 pha3131 F83616 BPRINTF3132 F83616 02 11 cop $113133 .MNLIST31343135 F83618 4B phk3136 F83619 F4 C8 36 pea #?4303137 F8361C 4B phk3138 F8361D F4 5A 36 pea #?2103139 F83620 A9 07 lda #73140 F83622 48 pha3141 F83623 BPRINTF3142 F83623 02 11 cop $113143 .MNLIST3144 F836253145 F83625 2B pld3146 F83626 AB plbTue Jul 17 11:00:16 2018 Page 113147 F83627 00 00 brk3148 F836293149 F83629 31 2E 30 00 ?100: .DB '1.0', 03150 ;?105: .DB '1.0001', 03151 ;?110: .DB '0.9999', 03152 ;?115: .DB '0.0001', 031533154 F8362D 31 2E 30 30 30 ?105: .DB '1.0000001', 030 30 30 31 003155 F83637 30 2E 39 39 39 ?110: .DB '0.9999999', 039 39 39 39 003156 F83641 30 2E 30 30 30 ?115: .DB '0.0000001', 030 30 30 31 0031573158 F8364B 32 2E 30 30 30 ?120: .DB '2.0001', 031 003159 F83652 0D 25 32 2E 31 ?200: .DB 13, '%2.16f', 036 66 003160 F8365A 0D 25 31 2E 32 ?210: .DB 13, '%1.20e', 030 65 0031613162 F83662 38 34 35 2E 37 ?300: .DB '845.782345177785467',038 32 33 34 3531 37 37 37 3835 34 36 37 003163 F83676 31 37 2E 31 37 ?305: .DB '17.171779',031 37 37 39 003164 F83680 31 2E 30 65 2D ?310: .DB '1.0e-17',031 37 0031653166 ;?320: .DB '3.645e-4951',03167 F83688 33 2E 36 34 35 ?325: .DB '3.645e-4941',065 2D 34 39 3431 003168 F83694 33 2E 33 36 32 ?320: .DB '3.362e-4932',065 2D 34 39 3332 0031693170 F836A0 BD 7F 18 F6 D1 ?400: .DB $BD, $7F, $18, $F6, $d1, $8e, $7d, $94, $e4, $0a8E 7D 94 E4 0A3171 F836AA 76 CB E2 7B C2 ?410: .DB $76, $cb, $e2, $7b, $c2, $5e, $1e, $ff, $ff, $4a5E 1E FF FF 4A3172 F836B4 FF FF FF FF FF ?420: .DB $ff, $ff, $ff, $ff, $ff, $ff, $ff, $7f, $01, $00FF FF 7F 01 003173 F836BE 00 00 00 00 00 ?425: .DB $00, $00, $00, $00, $00, $00, $00, $80, $ff, $0000 00 80 FF 003174 F836C8 FF FF FF 00 00 ?430: .DB $ff, $ff, $ff, $00, $00, $00, $00, $00, $01, $0000 00 00 01 003175 F836D2 00 00 00 00 00 ?510: .DB $00, $00, $00, $00, $00, $00, $00, $88, $ff, $3f00 00 88 FF 3F3176 ;?510: .DB $ff, $ff, $ff, $ff, $00, $ff, $ff, $ff, $ff, $3f3177 F836DC 00 00 00 00 00 ?500: .DB $00, $00, $00, $00, $00, $00, $00, $E0, $ff, $3f00 00 E0 FF 3F31783179 ;?610: .DB $00, $00, $00, $00, $00, $00, $00, $00, $00, $88, $ff, $3f3180 ;?600: .DB $00, $00, $00, $00, $00, $00, $00, $00, $00, $E0, $ff, $3f3181Tue Jul 17 11:00:16 2018 Page 123182 ;?610: .DB $00, $00, $00,$00,$00,$04,$BF,$C9,$1B,$8E,$34,$40 ; 1E1631833184 F836E6 00 00 00 B4 57 ?600: .DB $00,$00,$00,$B4,$57,$0A,$3F,$16,$68,$A9,$4B,$40 ; 1E230A 3F 16 68 A94B 403185 F836F2 00 00 00 00 00 ?610: .DB $00,$00,$00,$00,$00,$00,$00,$00,$00,$A0,$02,$4000 00 00 00 A002 40318631873188 ;; $00,$00,$00,$A1,$ED,$CC,$CE,$1B,$C2,$D3,$4E,$40 ; 1E243189 ;; $00,$00,$00,$B4,$57,$0A,$3F,$16,$68,$A9,$4B,$40 ; 1E2331903191 ;; rounded3192 ;; $20,$F0,$9D,$B5,$70,$2B,$A8,$AD,$C5,$9D,$69,$40 ; 1E323193 ;; $BF,$3C,$D5,$A6,$CF,$FF,$49,$1F,$78,$C2,$D3,$40 ; 1E643194 ;; $6F,$C6,$DF,$8C,$E9,$80,$C9,$47,$BA,$93,$A8,$41 ; 1E1283195 ;; $BB,$DD,$8D,$DE,$F9,$9D,$FB,$EB,$7E,$AA,$51,$43 ; 1E2563196 ;; $64,$CC,$C6,$91,$0E,$A6,$AE,$A0,$19,$E3,$A3,$46 ; 1E5123197 ;; $0B,$65,$17,$0C,$75,$81,$86,$75,$76,$C9,$48,$4D ; 1E10243198 ;; $4A,$A7,$E4,$5D,$3D,$C5,$5D,$3B,$8B,$9E,$92,$5A ; 1E20483199 ;; $44,$C9,$9A,$97,$20,$8A,$02,$52,$60,$C4,$25,$75 ; 1E409632003201 ;; not rounded3202 ;; $00,$00,$20,$F0,$9D,$B5,$70,$2B,$A8,$AD,$C5,$9D,$69,$40 ; 1E323203 ;; $70,$6B,$BF,$3C,$D5,$A6,$CF,$FF,$49,$1F,$78,$C2,$D3,$40 ; 1E643204 ;; $69,$33,$6F,$C6,$DF,$8C,$E9,$80,$C9,$47,$BA,$93,$A8,$41 ; 1E1283205 ;; $14,$90,$BB,$DD,$8D,$DE,$F9,$9D,$FB,$EB,$7E,$AA,$51,$43 ; 1E2563206 ;; $40,$5C,$65,$CC,$C6,$91,$0E,$A6,$AE,$A0,$19,$E3,$A3,$46 ; 1E5123207 ;; $04,$3D,$0D,$65,$17,$0C,$75,$81,$86,$75,$76,$C9,$48,$4D ; 1E10243208 ;; $94,$28,$4D,$A7,$E4,$5D,$3D,$C5,$5D,$3B,$8B,$9E,$92,$5A ; 1E20483209 ;; $AE,$14,$4C,$C9,$9A,$97,$20,$8A,$02,$52,$60,$C4,$25,$75 ; 1E409632103211 ;FCon1E8: .DB $00,$00,$00,$00,$00,$20,$BC,$BE,$19,$40 ; 1E83212 ;FCon1E16: .DB $00,$00,$00,$04,$BF,$C9,$1B,$8E,$34,$40 ; 1E163213 ;FCon1E32: .DB $9E,$B5,$70,$2B,$A8,$AD,$C5,$9D,$69,$40 ; 1E323214 ;FCon1E64: .DB $D5,$A6,$CF,$FF,$49,$1F,$78,$C2,$D3,$40 ; 1E643215 ;FCon1E128: .DB $DF,$8C,$E9,$80,$C9,$47,$BA,$93,$A8,$41 ; 1E1283216 ;FCon1E256: .DB $8C,$DE,$F9,$9D,$FB,$EB,$7E,$AA,$51,$43 ; 1E2563217 ;FCon1E512: .DB $C2,$91,$0E,$A6,$AE,$A0,$19,$E3,$A3,$46 ; 1E5123218 ;FCon1E1024: .DB $0F,$0C,$75,$81,$86,$75,$76,$C9,$48,$4D ; 1E10243219 ;FCon1E2048: .DB $D7,$5D,$3D,$C5,$5D,$3B,$8B,$9E,$92,$5A ; 1E20483220 ;FCon1E4096: .DB $79,$97,$20,$8A,$02,$52,$60,$C4,$25,$75 ; 1E409632213222 ;; .DB $00, $00, $00, $A1, $ED, $CC, $CE, $1B, $C2, $D3, $00 ; +1E243223 ;; .DB $00, $00, $80, $09, $B5, $1E, $38, $FD, $D2, $EA, $FF ; -1E233224 ;; .DB $00, $00, $40, $B2, $BA, $C9, $E0, $19, $1E, $02, $00 ; +1E223225 ;; .DB $00, $00, $60, $21, $3A, $52, $36, $CA, $C9, $FF, $FF ; -1E213226 ;; .DB $00, $00, $10, $63, $2D, $5E, $C7, $6B, $05, $00, $00 ; +1E203227 ;;CONSTDECTBL:3228 ;; .DB $00, $00, $18, $76, $FB, $DC, $38, $75, $FF, $FF, $FF ; -1E193229 ;;CONSTDECTBL1:3230 ;; .DB $00, $00, $64, $A7, $B3, $B6, $E0, $0D, $00, $00, $00 ; +1E183231 ;; .DB $00, $00, $76, $A2, $87, $BA, $9C, $FE, $FF, $FF, $FF ; -1E173232 ;; .DB $00, $00, $C1, $6F, $F2, $86, $23, $00, $00, $00, $00 ; +1E163233 ;; .DB $00, $80, $39, $5B, $81, $72, $FC, $FF, $FF, $FF, $FF ; -1E153234 ;; .DB $00, $40, $7A, $10, $F3, $5A, $00, $00, $00, $00, $00 ; +1E14Tue Jul 17 11:00:16 2018 Page 133235 ;; .DB $00, $60, $8D, $B1, $E7, $F6, $FF, $FF, $FF, $FF, $FF ; -1E133236 ;; .DB $00, $10, $A5, $D4, $E8, $00, $00, $00, $00, $00, $00 ; +1E123237 ;; .DB $00, $18, $89, $B7, $E8, $FF, $FF, $FF, $FF, $FF, $FF ; -1E113238 ;; .DB $00, $E4, $0B, $54, $02, $00, $00, $00, $00, $00, $00 ; +1E103239 ;; .DB $00, $36, $65, $C4, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; -1E93240 ;; .DB $00, $E1, $F5, $05, $00, $00, $00, $00, $00, $00, $00 ; +1E83241 ;; .DB $80, $69, $67, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; -1E73242 ;; .DB $40, $42, $0F, $00, $00, $00, $00, $00, $00, $00, $00 ; +1E63243 ;; .DB $60, $79, $FE, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; -1E53244 ;; .DB $10, $27, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; +1E43245 ;; .DB $18, $FC, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; -1E33246 ;; .DB $64, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; +1E23247 ;; .DB $F6, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; -1E13248 ;; .DB $01, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; +1E032493250 ;-------------------------------------------------------------3251 ; _feADD, _feSUB - IMPLEMENTAZIONE ADD - SUB3252 ;-------------------------------------------------------------32533254 ; _feSUB: esegue sottrazione tra ARG e FAC e pone il risultato in FAC3255 ; In: FAC, ARG3256 ; Out: FAC = ARG - FAC3257 ; CF = 1 se overflow/invalid3258 ; Uso: A,X,Y,FPWTmp,FACXM,ARGXM3259 F836FE _feSUB:3260 F836FE A5 40 LDA FACSGN ; Cambia di segno a FAC3261 F83700 49 FF EOR #$FF3262 F83702 85 40 STA FACSGN32633264 ; _feADD: esegue somma di FAC e ARG e pone il risultato in FAC3265 ; In: FAC, ARG3266 ; Out: FAC = ARG + FAC3267 ; CF = 1 se overflow/invalid3268 ; Uso: A,X,Y,FPWTmp,FACXM,ARGXM3269 F83704 _feADD:3270 F83704 20 CF 3A jsr addtst ; test FAC ed ARG e setta confronto segni32713272 ; per eseguire somma/sottrazione e' necessario che3273 ; FAC ed ARG abbiano lo stesso esponente. Occorre quindi3274 ; denormalizzare FAC se Exp(ARG) > Exp(FAC), oppure ARG3275 ; se Exp(FAC) > Exp(ARG)3276 F83707 A2 51 ?15: LDX #ARG ; X -> ARG (ptr acc# da denormalizzare)3277 F83709 A4 41 ldy FACEXT ; se si denormalizza ARG vengono usati3278 F8370B 84 51 sty ARGEXT ; bit di guardia di ARG3279 F8370D A0 00 ldy #03280 F8370F 38 SEC3281 F83710 ACC16 ; calcola N = Exp(ARG) - Exp(FAC)3282 F83710 C2 20 rep #PMFLAG3283 .LONGA on3284 .MNLIST3285 F83712 A5 5A lda ARGExp ; C = N = Exp(ARG) - Exp(FAC)3286 F83714 E5 4A sbc FACExp3287 F83716 F0 3D BEQ ?30 ; N = 0 => somma mantisse3288 ; A = 0 = bit di guardia, CF = 13289 F83718 90 13 BCC ?18 ; N < 0 => denorm. ARG -> aumenta Exp(ARG)3290 F8371A3291 ; N > 0 => denormalizza FAC -> aumenta Exp(FAC)Tue Jul 17 11:00:16 2018 Page 143292 ; a questo punto CF = 13293 F8371A 85 5C sta FPWTmp ; salva N (> 0)3294 F8371C A5 5A LDA ARGExp3295 F8371E 85 4A STA FACExp ; imposta Exp(FAC) = Exp(ARG)3296 F83720 A6 50 LDX ARGSGN ; segno di FAC = segno di ARG3297 F83722 86 40 STX FACSGN ; segno operazione = segno acc. Exp maggiore3298 F83724 98 tya ; A = B = 0 (C = 0)3299 F83725 E5 5C SBC FPWTmp ; cambia segno ad N3300 F83727 84 51 sty ARGEXT ; azzera bit di guardia di ARG3301 F83729 A2 41 LDX #FAC ; X = puntatore a FAC3302 F8372B 80 02 bra ?20 ; denormalizza FAC33033304 ?18: ; azzera bit di guardia di FAC - segno operazione = segno FAC3305 F8372D 84 41 sty FACEXT ; denormalizza ARG33063307 ; X -> puntatore (- 1) acc# (FAC/ARG) da denormalizzare3308 ; A = -N, numero di shift (negativo) -- ACC163309 ; Y = 03310 ; Se N < MAXMANTSHIFT la mantissa viene azzerata senza eseguire shift3311 ; dunque deve essere MAXMANTSHIFT <= N <= FFFF3312 F8372F C9 B0 FF ?20: cmp #MAXMANTSHIFT3313 F83732 B0 10 bcs ?23 ; shift mantissa (denormalizza)3314 F83734 94 00 STY <0,X ; azzera bit di guardia3315 F83736 74 01 STZ <1,X ; azzera mantissa X (ACC/MEM16)3316 F83738 74 03 STZ <3,X3317 F8373A 74 05 STZ <5,X3318 F8373C 74 07 STZ <7,X3319 F8373E ACC083320 F8373E E2 20 sep #PMFLAG3321 .LONGA off3322 .MNLIST3323 F83740 A5 41 lda FACEXT ; A = bit di guardia3324 F83742 80 11 BRA ?30 ; esegue somma/sottrazione3325 F837443326 ; a questo punto A = -N => numero di shift mantissa (divisioni x 2)3327 ; il numero N e' contenuto solo in A (B = $FF) e si imposta ACC083328 F83744 ?23: ACC083329 F83744 E2 20 sep #PMFLAG3330 .LONGA off3331 .MNLIST3332 F83746 C9 F9 CMP #$F9 ; test N < -73333 F83748 10 05 BPL ?25 ; N >= -7, shift bit x bit (CF = 1)3334 F8374A 20 C8 38 JSR _RShiftXB ; N < -7, shifta byte x byte (CF = 0)3335 F8374D 80 06 BRA ?30 ; esegue somma/sottrazione3336 F8374F A8 ?25: TAY ; Y = -N3337 F83750 A5 41 LDA FACEXT ; A = bit di guardia3338 F83752 20 D5 38 JSR _RShiftXN ; shift bit x bit (CF = 0)33393340 ; ora gli esponenti di FAC ed ARG sono uguali3341 ; CF = 0 se FAC o ARG denormalizzato3342 ; CF = 1 se FAC e ARG hanno lo stesso esponente3343 ; A = bits di guardia (= 0 se FAC e ARG stesso esponente)3344 F83755 ?30: ACC083345 F83755 E2 20 sep #PMFLAG3346 .LONGA off3347 .MNLIST3348 F83757 24 4C BIT FACSCMP ; se FAC ed ARG hanno segni discordiTue Jul 17 11:00:16 2018 Page 153349 F83759 30 42 BMI _subm ; esegue sottrazione mantisse3350 F8375B3351 ; segni concordi, addiziona mantisse con CF3352 F8375B 18 clc3353 F8375C 65 51 ADC ARGEXT3354 F8375E 85 41 STA FACEXT3355 F83760 ACC163356 F83760 C2 20 rep #PMFLAG3357 .LONGA on3358 .MNLIST3359 F83762 A5 42 LDA FAC+13360 F83764 65 52 ADC ARG+13361 F83766 85 42 STA FAC+13362 F83768 A5 44 LDA FAC+33363 F8376A 65 54 ADC ARG+33364 F8376C 85 44 STA FAC+33365 F8376E A5 46 LDA FAC+53366 F83770 65 56 ADC ARG+53367 F83772 85 46 STA FAC+53368 F83774 A5 48 LDA FAC+73369 F83776 65 58 ADC ARG+73370 F83778 85 48 STA FAC+73371 F8377A ACC083372 F8377A E2 20 sep #PMFLAG3373 .LONGA off3374 .MNLIST3375 F8377C 90 5B BCC _Normalize ; OK, no overflow33763377 ; Incrementa esponente di FAC e shifta a destra la mantissa3378 ; per impostare il primo bit della mantissa ad 1 (normalizza).3379 ; Il bit meno significativo viene ruotato nei bits di guardia3380 ; in caso di overflow imposta FAC = INF ed esce con CF = 13381 ; in caso di risultato corretto esce con CF = 033823383 F8377E _IncEXP:3384 F8377E ACC163385 F8377E C2 20 rep #PMFLAG3386 .LONGA on3387 .MNLIST3388 F83780 A5 4A lda FACExp3389 F83782 1A inc a ; incrementa esponente3390 F83783 85 4A sta FACExp3391 F83785 C9 FF 7F cmp #EXPINF ; test overflow3392 F83788 90 03 bcc ?04 ; OK3393 F8378A 4C 75 3B jmp _feLDINF1 ; overflow => FAC = =/- INF3394 F8378D 38 ?04: SEC ; imposta MSB bit = 13395 F8378E 66 48 ROR FAC+7 ; shift a destra della mantissa3396 F83790 66 46 ROR FAC+53397 F83792 66 44 ROR FAC+33398 F83794 66 42 ROR FAC+13399 F83796 ACC083400 F83796 E2 20 sep #PMFLAG3401 .LONGA off3402 .MNLIST3403 F83798 66 41 ROR FACEXT ; salva LSB nei bits di guardia3404 F8379A 4C FF 3B jmp _feXAM ; OK -- return flag3405Tue Jul 17 11:00:16 2018 Page 163406 ; segni discordi => sub mantisse3407 F8379D _subm:3408 F8379D 08 php ; salva CF3409 F8379E A0 41 LDY #FAC3410 F837A0 E0 51 CPX #ARG3411 F837A2 F0 02 BEQ ?36 ; FAC(Y) - ARG(X)3412 F837A4 A0 51 LDY #ARG ; ARG(Y) - FAC(X)3413 ; X = puntatore mantissa 13414 ; Y = puntatore mantissa 23415 ; FAC = ACC(Y) - ACC(X)3416 ; A = bit di guardia3417 F837A6 28 ?36: plp3418 F837A7 B0 03 bcs ?36b3419 F837A9 38 sec3420 F837AA B0 01 bcs ?36c3421 F837AC 18 ?36b: clc3422 F837AD ?36c:3423 F837AD 38 SEC ; -A + ARGEXT3424 F837AE 49 FF EOR #$FF3425 F837B0 65 51 ADC ARGEXT3426 F837B2 85 41 STA FACEXT3427 F837B4 ACC163428 F837B4 C2 20 rep #PMFLAG3429 .LONGA on3430 .MNLIST3431 F837B6 B9 01 02 LDA DP02ADDR+1,Y3432 F837B9 F5 01 SBC <1,X3433 F837BB 85 42 STA FAC+13434 F837BD B9 03 02 LDA DP02ADDR+3,Y3435 F837C0 F5 03 SBC <3,X3436 F837C2 85 44 STA FAC+33437 F837C4 B9 05 02 LDA DP02ADDR+5,Y3438 F837C7 F5 05 SBC <5,X3439 F837C9 85 46 STA FAC+53440 F837CB B9 07 02 LDA DP02ADDR+7,Y3441 F837CE F5 07 SBC <7,X3442 F837D0 85 48 STA FAC+73443 F837D2 ACC083444 F837D2 E2 20 sep #PMFLAG3445 .LONGA off3446 .MNLIST3447 F837D4 B0 03 BCS _Normalize ; OK => normalizza FAC3448 F837D6 20 65 38 JSR _NegateFAC ; CF = 0 => complementa FAC3449 ; in quanto il risultato cambia segno3450 ; ????3451 ;beq _IncEXP ; MSB = 0 => incrementa exp e normalizza34523453 ; Normalizza FAC3454 ; In: FAC3455 ; Out: FAC normalizzato oppure denormalizzato3456 ; Uso: A,X,Y,FPWTmp3457 ; Nota: Esegue N shift della mantissa a sinistra e3458 ; decrementa esponente di N volte fino ad avere3459 ; la mantissa con MSB = 1 oppure fino ad avere3460 ; esponente nullo (numero denormalizzato)3461 F837D9 _Normalize:3462 F837D9 ACC16Tue Jul 17 11:00:16 2018 Page 173463 F837D9 C2 20 rep #PMFLAG3464 .LONGA on3465 .MNLIST3466 F837DB A5 4A lda FACExp ; C = FACExp3467 F837DD F0 5C beq ?12 ; esponente nullo => fine3468 F837DF 38 sec3469 F837E0 A0 09 ldy #9 ; max. cicli byte-shift3470 F837E2 A6 49 ?02: LDX FAC+83471 F837E4 D0 4C BNE ?08 ; shift bit x bit3472 F837E6 E9 08 00 sbc #8 ; possibili 8 shift ?3473 F837E9 90 30 bcc ?04 ; no => shift bit x bit3474 F837EB A6 48 LDX FAC+7 ; left shift byte x byte3475 F837ED 86 49 STX FAC+83476 F837EF A6 47 LDX FAC+63477 F837F1 86 48 STX FAC+73478 F837F3 A6 46 LDX FAC+53479 F837F5 86 47 STX FAC+63480 F837F7 A6 45 LDX FAC+43481 F837F9 86 46 STX FAC+53482 F837FB A6 44 LDX FAC+33483 F837FD 86 45 STX FAC+43484 F837FF A6 43 LDX FAC+23485 F83801 86 44 STX FAC+33486 F83803 A6 42 LDX FAC+13487 F83805 86 43 STX FAC+23488 F83807 A6 41 LDX FACEXT3489 F83809 86 42 STX FAC+13490 F8380B A2 00 ldx #03491 F8380D 86 41 STX FACEXT ; azzera bit di guardia3492 F8380F 88 dey3493 F83810 D0 D0 bne ?02 ; loop3494 F838123495 ; a questo punto la mantissa e' azzerata e ZF = 1 => FAC = 03496 F83812 64 4A stz FACExp ; mantissa ed esponente azzerati => FAC = 03497 F83814 ACC083498 F83814 E2 20 sep #PMFLAG3499 .LONGA off3500 .MNLIST3501 F83816 64 40 stz FACSGN3502 F83818 18 clc3503 F83819 B8 clv ; esce con ZF = 1, CF = 0, VF = 0, NF = 03504 F8381A 60 rts35053506 ?04: ; shift bit a bit: ripristina C (esponente) -- CF = 13507 LONGA on ; qui ACC163508 F8381B 69 08 00 adc #83509 F8381E3510 ?06: ; shift 1 bit a sinistra della mantissa FAC3511 ; C = FACExp (> 0)3512 LONGA on ; qui ACC163513 ;cmp #03514 F8381E C9 01 00 cmp #13515 F83821 F0 11 beq ?10 ; esponente azzerato => fine3516 F83823 3A dec a ; decrementa esponente3517 F83824 ACC083518 F83824 E2 20 sep #PMFLAG3519 .LONGA offTue Jul 17 11:00:16 2018 Page 183520 .MNLIST3521 F83826 06 41 ASL FACEXT ; shift a sinistra di 1 bit3522 F83828 ACC163523 F83828 C2 20 rep #PMFLAG3524 .LONGA on3525 .MNLIST3526 F8382A 26 42 ROL FAC+13527 F8382C 26 44 ROL FAC+33528 F8382E 26 46 ROL FAC+53529 F83830 26 48 ROL FAC+73530 F83832 10 EA ?08: bpl ?06 ; MSB = 0 => continua shift3531 F83834 C9 FF 7F ?10: cmp #EXPINF ; test overflow3532 F83837 B0 07 bcs ?14 ; overflow3533 F83839 85 4A sta FACExp ; salva nuovo esponente3534 F8383B ?12: ACC083535 F8383B E2 20 sep #PMFLAG3536 .LONGA off3537 .MNLIST3538 F8383D 4C FF 3B jmp _feXAM3539 F83840 4C 75 3B ?14: jmp _feLDINF135403541 ; Arrotonda FAC secondo i bit di guardia3542 ; Puo' generare overflow3543 F83843 _Round:3544 F83843 20 FF 3B jsr _feXAM3545 F83846 B0 14 bcs ?03 ; FAC non valido3546 F83848 F0 02 BEQ ?01 ; FAC = 0 -> esce3547 F8384A 06 41 ASL FACEXT ; bit di guardia = 03548 F8384C 64 41 ?01: stz FACEXT3549 F8384E 90 0C BCC ?03 ; non necessita di arrotondamento3550 F83850 20 8F 38 JSR _IncFACM ; incrementa mantissa3551 F83853 D0 06 bne ?02 ; no overflow -- OK3552 F83855 20 7E 37 jsr _IncEXP ; riporto MSB, incrementa esponente3553 F83858 64 41 stz FACEXT3554 F8385A 60 rts ; flag come ritornato da _IncEXP3555 F8385B 18 ?02: clc3556 F8385C 60 ?03: RTS35573558 ; arrotanda FAC e in caso di eccezione scarta un indirizzo di ritorno3559 F8385D _RoundSkp:3560 F8385D 20 43 38 JSR _Round3561 F83860 90 02 BCC ?013562 F83862 68 PLA3563 F83863 68 PLA3564 F83864 60 ?01: RTS3565 F838653566 ; Complemento a 2 di FAC3567 ; In: FAC3568 ; Out: FAC 2's3569 ; ZF = 0 (non-zero), risultato OK3570 ; ZF = 1 (zero), OVERFLOW Mantissa3571 ; Uso: A3572 ; Note:3573 F83865 _NegateFAC:3574 F83865 A5 40 LDA FACSGN3575 F83867 49 FF EOR #$FF3576 F83869 85 40 STA FACSGNTue Jul 17 11:00:16 2018 Page 1935773578 ; Complemento a 2 MANTISSA FAC3579 ; In: FAC3580 ; Out: MANTISSA FAC 2's3581 ; ZF = 0 (non-zero), risultato OK3582 ; ZF = 1 (zero), OVERFLOW Mantissa3583 ; Uso: A, X3584 ; Note:3585 F8386B _NegateFACM:3586 F8386B CPU163587 F8386B C2 30 rep #(PMFLAG.OR.PXFLAG)3588 .LONGA on3589 .LONGI on3590 .MNLIST3591 F8386D A2 FF FF ldx #$FFFF3592 F83870 8A txa3593 F83871 45 42 eor FAC+13594 F83873 85 42 STA FAC+13595 F83875 8A txa3596 F83876 45 44 eor FAC+33597 F83878 85 44 STA FAC+33598 F8387A 8A txa3599 F8387B 45 46 eor FAC+53600 F8387D 85 46 STA FAC+53601 F8387F 8A txa3602 F83880 45 48 eor FAC+73603 F83882 85 48 STA FAC+73604 F83884 CPU083605 F83884 E2 30 sep #(PMFLAG.OR.PXFLAG)3606 .LONGA off3607 .LONGI off3608 .MNLIST3609 F83886 8A txa3610 F83887 45 41 eor FACEXT3611 F83889 85 41 STA FACEXT3612 F8388B E6 41 INC FACEXT3613 F8388D D0 12 BNE _RTS23614 F8388F3615 ; Incrementa MANTISSA FAC3616 ; In: FAC3617 ; Out: MANTISSA FAC + 13618 ; ZF = 0 (non-zero), risultato OK3619 ; ZF = 1 (zero), OVERFLOW Mantissa3620 ; Uso: A3621 ; Note:3622 F8388F _IncFACM:3623 F8388F ACC163624 F8388F C2 20 rep #PMFLAG3625 .LONGA on3626 .MNLIST3627 F83891 E6 42 INC FAC+13628 F83893 D0 0A BNE ?023629 F83895 E6 44 INC FAC+33630 F83897 D0 06 BNE ?023631 F83899 E6 46 INC FAC+53632 F8389B D0 02 BNE ?023633 F8389D E6 48 INC FAC+7Tue Jul 17 11:00:16 2018 Page 203634 F8389F ?02: ACC083635 F8389F E2 20 sep #PMFLAG3636 .LONGA off3637 .MNLIST3638 F838A1 60 _RTS2: RTS36393640 ; Esegue shift a destra di 8 bits della mantissa temporanea FOP3641 ; In: A = -N (numero di bit residui da shiftare)3642 ; Out: A = bits di guardia3643 ; Y = 03644 ; CF = 03645 ; Uso: A,X,Y3646 ; Note: Chiamata solo per shift a destra di 1 byte3647 F838A2 _RShiftFOP:3648 F838A2 A2 31 LDX #(FOP-1)36493650 ; Esegue shift a destra di 8 bits della mantissa indicizzata da X3651 ; In: A = -N (numero di bit residui da shiftare)3652 ; X = puntatore - 1 alla mantissa3653 ; Uso: A,X,Y3654 ; Note: Chiamata solo per shift a destra di 1 byte3655 F838A4 _RShiftX8:3656 F838A4 B4 01 LDY <1,X ; shifta a destra di 8 bit3657 F838A6 84 41 STY FACEXT ; utilizzando i bits di guardia3658 F838A8 B4 02 LDY <2,X3659 F838AA 94 01 STY <1,X3660 F838AC B4 03 LDY <3,X3661 F838AE 94 02 STY <2,X3662 F838B0 B4 04 LDY <4,X3663 F838B2 94 03 STY <3,X3664 F838B4 B4 05 LDY <5,X3665 F838B6 94 04 STY <4,X3666 F838B8 B4 06 LDY <6,X3667 F838BA 94 05 STY <5,X3668 F838BC B4 07 LDY <7,X3669 F838BE 94 06 STY <6,X3670 F838C0 B4 08 LDY <8,X3671 F838C2 94 07 STY <7,X3672 F838C4 A0 00 LDY #0 ; byte MSB = 03673 F838C6 94 08 STY <8,X3674 F838C83675 ; ora shifta bit residui36763677 ; Esegue shift a destra di N bits della mantissa indicizzata da X3678 ; In: A = -N (numero di bit da shiftare negativo)3679 ; X = puntatore - 1 alla mantissa3680 ; CF = 03681 ; Out: A = bits di guardia3682 ; Y = 03683 ; CF = 03684 ; Uso: A,X,Y3685 ; Note: main entry per shift a destra3686 F838C8 _RShiftXB:3687 F838C8 69 08 ADC #$08 ; numero residuo di bits3688 F838CA 30 D8 BMI _RShiftX8 ; CF = 0, N > 8, shifta byte per byte3689 F838CC F0 D6 BEQ _RShiftX8 ; CF = 1, N = 8, shifta byte per byte3690 F838CETue Jul 17 11:00:16 2018 Page 213691 ; se A = F8 (-8) arriva qui con A = 9 e CF = 03692 ; ae arriva qui allora N < 8, CF = 1 -- shift bit a bit3693 ; ripristina A3694 F838CE E9 08 SBC #$08 ; se N < 8 => CF = 0, se N >= 0 => CF = 13695 F838D0 A8 TAY ; shifta Y bits a destra3696 F838D1 A5 41 LDA FACEXT3697 F838D3 B0 12 BCS _RTS3 ; fine shift3698 F838D53699 ; Esegue shift a destra di N (<8) bits della mantissa indicizzata da X3700 ; In: Y = -N (numero di bit da shiftare negativo)3701 ; X = puntatore - 1 alla mantissa3702 ; A = bits di guardia3703 ; Out: A = bits di guardia3704 ; Y = 03705 ; CF = 03706 ; Uso: A,X,Y3707 ; Note: Usare solo per shift a destra < 8 bits3708 F838D5 _RShiftXN:3709 F838D5 EB xba ; B = bit di guardia3710 F838D6 ACC163711 F838D6 C2 20 rep #PMFLAG3712 .LONGA on3713 .MNLIST3714 F838D8 56 07 ?01: lsr <7,x ; MSB = 03715 F838DA 76 05 ROR <5,X3716 F838DC 76 03 ROR <3,X3717 F838DE 76 01 ROR <1,X3718 F838E0 6A ROR A ; aggiorna bit di guardia3719 F838E1 C8 INY3720 F838E2 D0 F4 BNE ?01 ; bit shift loop3721 F838E4 ACC083722 F838E4 E2 20 sep #PMFLAG3723 .LONGA off3724 .MNLIST3725 F838E6 EB xba ; A = bit di guardia3726 F838E7 18 _RTS3: CLC3727 F838E8 60 RTS37283729 ;-------------------------------------------------------------3730 ; IMPLEMENTAZIONE _feMUL3731 ;-------------------------------------------------------------373237333734 ; _feMULM: esegue prodotto di FAC e MEM e pone il risultato in FAC3735 ; In: CY -> puntatore alla memoria3736 ; FAC3737 ; Out: FAC = MEM * FAC3738 ; FPUST, per le eccezioni3739 ; Uso: A,X,Y,FOP3740 ; Note: Testare lo status in FPUST3741 F838E9 _feMULM:3742 F838E9 20 98 3D JSR _MovMem2A ; carica ARG da memoria3743 F838EC3744 ; _feMUL: esegue prodotto di FAC e ARG e pone il risultato in FAC3745 ; In: FAC, ARG3746 ; Out: FAC = ARG * FAC3747 ; FPUST, per le eccezioniTue Jul 17 11:00:16 2018 Page 223748 ; Uso: A,X,Y,FOP3749 ; Note: Testare lo status in FPUST3750 F838EC _feMUL:3751 F838EC 20 FF 3A JSR multst ; test operandi FAC e ARG3752 F838EF 38 ?15: SEC ; depolarizza exp(FAC) - 13753 F838F0 ACC163754 F838F0 C2 20 rep #PMFLAG3755 .LONGA on3756 .MNLIST3757 F838F2 A5 4A LDA FACExp3758 F838F4 E9 FF 3F SBC #EXPBIAS3759 F838F7 85 4A STA FACExp3760 F838F9 ACC083761 F838F9 E2 20 sep #PMFLAG3762 .LONGA off3763 .MNLIST3764 F838FB A2 80 ldx #$80 ; flag MULT3765 F838FD 20 A1 39 JSR _AddExponent3766 F83900 ACC163767 F83900 C2 20 rep #PMFLAG3768 .LONGA on3769 .MNLIST3770 F83902 64 32 STZ FOP ; clear area temporanea del risultato3771 F83904 64 34 STZ FOP+23772 F83906 64 36 STZ FOP+43773 F83908 64 38 STZ FOP+63774 F8390A ACC083775 F8390A E2 20 sep #PMFLAG3776 .LONGA off3777 .MNLIST3778 F8390C 64 3A STZ FOP+83779 F8390E A5 41 LDA FACEXT ; moltiplica ogni byte di FAC3780 F83910 20 6A 39 JSR _MultA ; per la mantissa di ARG3781 F83913 A5 42 LDA FAC+13782 F83915 20 6A 39 JSR _MultA3783 F83918 A5 43 LDA FAC+23784 F8391A 20 6A 39 JSR _MultA3785 F8391D A5 44 LDA FAC+33786 F8391F 20 6A 39 JSR _MultA3787 F83922 A5 45 LDA FAC+43788 F83924 20 6A 39 JSR _MultA3789 F83927 A5 46 LDA FAC+53790 F83929 20 6A 39 JSR _MultA3791 F8392C A5 47 LDA FAC+63792 F8392E 20 6A 39 JSR _MultA3793 F83931 A5 48 LDA FAC+73794 F83933 20 6A 39 JSR _MultA3795 F83936 A5 49 LDA FAC+83796 F83938 20 6F 39 JSR _MultB37973798 F8393B _CopyFOP:3799 F8393B ACC163800 F8393B C2 20 rep #PMFLAG3801 .LONGA on3802 .MNLIST3803 F8393D A5 32 LDA FOP ; copia il risultato da POP a FAC3804 F8393F 85 42 STA FAC+1Tue Jul 17 11:00:16 2018 Page 233805 F83941 A5 34 LDA FOP+23806 F83943 85 44 STA FAC+33807 F83945 A5 36 LDA FOP+43808 F83947 85 46 STA FAC+53809 F83949 A5 38 LDA FOP+63810 F8394B 85 48 STA FAC+73811 F8394D ACC083812 F8394D E2 20 sep #PMFLAG3813 .LONGA off3814 .MNLIST3815 F8394F A5 4E lda FACUndf ; underflow ?3816 F83951 F0 14 beq ?10 ; NO -- normalizza3817 F83953 A2 41 ldx #FAC3818 F83955 C9 F9 CMP #$F9 ; test N < -73819 F83957 10 05 BPL ?04 ; N >= -7, shift bit x bit (CF = 1)3820 F83959 20 C8 38 JSR _RShiftXB ; N < -7, shifta byte x byte (CF = 0)3821 ;BRA ?10 ; FAC denormalizzato con exp = 03822 F8395C 80 06 bra ?063823 F8395E A8 ?04: TAY ; Y = -N3824 F8395F A5 41 LDA FACEXT ; A = bit di guardia3825 F83961 20 D5 38 JSR _RShiftXN ; shift bit x bit (CF = 0)3826 F83964 4C FF 3B ?06: jmp _feXAM3827 F83967 4C D9 37 ?10: JMP _Normalize ; normalizza FAC38283829 ; moltiplica byte x mantissa3830 ; In: A = byte3831 ; ARG3832 ; Out: FOP = A * ARG3833 ; Uso: A,X,Y,FOP3834 F8396A _MultA:3835 F8396A D0 03 BNE _MultB3836 F8396C 4C A2 38 JMP _RShiftFOP ; se A = 0 shift a destra di 8 bit di FOP3837 F8396F _MultB:3838 F8396F 4A LSR A3839 F83970 09 80 ORA #$803840 F83972 A8 ?01: TAY3841 F83973 ACC163842 F83973 C2 20 rep #PMFLAG3843 .LONGA on3844 .MNLIST3845 F83975 90 19 BCC ?023846 F83977 18 CLC3847 F83978 A5 32 LDA FOP3848 F8397A 65 52 ADC ARG+13849 F8397C 85 32 STA FOP3850 F8397E A5 34 LDA FOP+23851 F83980 65 54 ADC ARG+33852 F83982 85 34 STA FOP+23853 F83984 A5 36 LDA FOP+43854 F83986 65 56 ADC ARG+53855 F83988 85 36 STA FOP+43856 F8398A A5 38 LDA FOP+63857 F8398C 65 58 ADC ARG+73858 F8398E 85 38 STA FOP+63859 F83990 66 38 ?02: ROR FOP+63860 F83992 66 36 ROR FOP+43861 F83994 66 34 ROR FOP+2Tue Jul 17 11:00:16 2018 Page 243862 F83996 66 32 ROR FOP3863 F83998 ACC083864 F83998 E2 20 sep #PMFLAG3865 .LONGA off3866 .MNLIST3867 F8399A 66 41 ROR FACEXT3868 F8399C 98 TYA3869 F8399D 4A LSR A3870 F8399E D0 D2 BNE ?013871 F839A0 60 RTS38723873 ; Imposta l'esponente di FAC per FMUL/FDIV3874 ; In: FAC (con esponente depolarizzato), ARG3875 ; Se chiamata da FDIV l'esponente di FAC deve3876 ; essere cambiato di segno3877 ; ACC163878 ; Out: exp(FAC) = exp(FAC) + exp(ARG)3879 ; sgn(FAC) corretto3880 ; Uso: A,X3881 ; Note: Puo' generare overflow/underflow.3882 ; In tal caso viene scartato direttamente3883 ; l'indirizzo di ritorno e FMUL/FDIV terminano3884 ; in modo prematuro.3885 ;3886 ; NOTA -- si assume valido esponente polarizzato range $0000 - $7FFE3887 ; I valori ammessi per l'esponente depolarizzato sono:3888 ; exp+ -> $0000 - $3FFF (0,MAXPEXP)3889 ; exp- -> $C001 - $FFFF (MINNEXP, -1) -- NO: C002..$FFFF3890 ;3891 ; quindi la somma (signed) degli esponenti puo' assumere i3892 ; valori seguenti:3893 ;3894 ; (exp+) + (exp+) -> $00000 - $07FFE -> puo' causare overflow3895 ; (exp+) + (exp-) -> $0C001 - $0FFFF - $10000 - $13FFE3896 ; (exp-) + (exp+) -> $0C001 - $0FFFF - $10000 - $13FFE3897 ; (exp-) + (exp-) -> $18002 - $1FFFE -> puo' causare underflow3898 ;3899 ; Il nuovo esponente polarizzato si calcola ignorando il carry3900 ; dalla somma signed precedente ed aggiungendo il bias $3FFF:3901 ; (exp+) + (exp+) -> $03FFF - $0BFFD -> puo' causare overflow (CF = 0)3902 ; (exp+) + (exp-) -> $00000 - $07FFD -> sempre corretto (CF = 0)3903 ; (exp-) + (exp+) -> $00000 - $07FFD -> sempre corretto (CF = 0)3904 ; (exp-) + (exp-) -> $0C001 - $0FFFF -> range $8002..$C000 (CF = 0)3905 ; (exp-) + (exp-) -> $10000 - $13FFD -> range $C001..$FFFE (CF = 1)3906 ;3907 ; per operazione MULT occorre incrementare di 1 esponente polarizzato3908 ;3909 ; si puo' verificare OVERFLOW nel primo caso (exp >= EXPINF)3910 ; si verifica UNDERFLOW nel quarto caso (exp in $C001..$FFFF)3911 ; OVERFLOW va testato dopo operazione MULT/DIV e normalizzazione, dato3912 ; che lo shift a sinistra della mantissa causa il decremento di exp.3913 ; e quindi si potrebbe ottenere un numero finito normalizzato. Lo shift3914 ; ruota la massimo 72 bit (compresi gli 8 bit di guardia) quindi se exp3915 ; supera di 80 bit il max. siamo sicuramente in condizione di overflow.3916 ; quindi si ha sicuramente OVERFLOW se exp >= $7FFE + $50 = $804E3917 ; la condizone di UNDERFLOW e' piu' complicata: si puo' assumere che3918 ; il numero venga azzerato fino a quando exp < -80 ovvero exp < $FFB0Tue Jul 17 11:00:16 2018 Page 253919 ; se exp >= FFB0 si puo' tentare di denormalizzare il risultato con3920 ; una serie di shift a destra in modo da incrementare exp fino alla3921 ; condizione exp = 0 ed ottenere un underflow graduale39223923 F839A1 _AddExponent:3924 F839A1 86 4D stx FACMlt ; flag MULT3925 F839A3 64 4E stz FACUndf ; azzera shift underflow3926 F839A5 A6 4C LDX FACSCMP ; MULT/DIV: sgn(FAC) = confronto segni3927 F839A7 86 40 STX FACSGN3928 F839A9 ACC163929 F839A9 C2 20 rep #PMFLAG3930 .LONGA on3931 .MNLIST3932 F839AB 38 SEC ; depolarizza exp(ARG)3933 F839AC A5 5A LDA ARGExp3934 F839AE E9 FF 3F SBC #EXPBIAS3935 F839B1 18 clc3936 F839B2 65 4A adc FACExp ; C = nuovo esponente depolarizzato di FAC3937 F839B4 18 clc ; ignora carry3938 F839B5 A6 4D ldx FACMlt3939 F839B7 10 01 bpl ?023940 F839B9 38 sec ; MULT richiede incremento esponente3941 F839BA 69 FF 3F ?02: adc #EXPBIAS ; polarizza exp FAC3942 F839BD 85 4A sta FACExp3943 F839BF B0 20 bcs ?08 ; OK3944 F839C1 C9 FF 7F cmp #EXPINF3945 F839C4 90 1B bcc ?08 ; OK3946 F839C6 C9 00 C0 cmp #$C0003947 F839C9 B0 08 bcs ?04 ; test underflow3948 F839CB C9 4E 80 cmp #$804E ; overflow immediato ?3949 F839CE 90 11 bcc ?08 ; NO -- dopo normalizzazione3950 F839D0 4C 5F 3B jmp _ldinf0 ; load INF ed esce3951 F839D3 C9 B0 FF ?04: cmp #$FFB0 ; underflow immediato ?3952 F839D6 B0 03 bcs ?06 ; NO -- dopo MULT/DIV3953 F839D8 4C 69 3B jmp _ldz1 ; UNDERFLOW immediato: FAC = 03954 F839DB AA ?06: tax ; C low = A => numero shift destra3955 F839DC CA dex3956 F839DD 86 4E stx FACUndf3957 F839DF 64 4A stz FACExp ; underflow graduale -- denormalizza3958 F839E1 ?08: ACC083959 F839E1 E2 20 sep #PMFLAG3960 .LONGA off3961 .MNLIST3962 F839E3 60 _RTS5: rts3963 F839E43964 ; _feMUL10: Funzione veloce che moltiplica FAC per 103965 ; In: FAC3966 ; Out: FAC = FAC*103967 ; CF = 1 se overflow3968 ; Uso: A,X,Y3969 F839E4 _feMUL10:3970 F839E4 20 FF 3B JSR _feXAM ; esamina FAC3971 F839E7 B0 FA bcs _RTS5 ; FAC non valido (C = 1)3972 F839E9 F0 F8 beq _RTS5 ; FAC = 0 -- esce (C = 0)3973 F839EB 20 5D 38 JSR _RoundSkp ; arrotonda FAC ed esce in caso di errore3974 F839EE 20 E1 3D JSR _MovF2A ; copia FAC in ARG3975 F839F1 ACC16Tue Jul 17 11:00:16 2018 Page 263976 F839F1 C2 20 rep #PMFLAG3977 .LONGA on3978 .MNLIST3979 F839F3 A5 4A lda FACExp3980 F839F5 1A inc a3981 F839F6 1A inc a ; FAC = FAC * 43982 F839F7 85 4A sta FACExp3983 F839F9 C9 FF 7F CMP #EXPINF ; test overflow3984 F839FC ACC083985 F839FC E2 20 sep #PMFLAG3986 .LONGA off3987 .MNLIST3988 F839FE B0 16 bcs ?20 ; overflow3989 F83A00 20 04 37 JSR _feADD ; FAC = FAC + (FAC*4) = 5*FAC3990 F83A03 B0 DE bcs _RTS5 ; errore3991 F83A05 ACC163992 F83A05 C2 20 rep #PMFLAG3993 .LONGA on3994 .MNLIST3995 F83A07 A5 4A lda FACExp3996 F83A09 1A inc a ; FAC = 2 * (5 * FAC) = 10 * FAC3997 F83A0A 85 4A sta FACExp3998 F83A0C C9 FF 7F CMP #EXPINF ; test overflow3999 F83A0F ACC084000 F83A0F E2 20 sep #PMFLAG4001 .LONGA off4002 .MNLIST4003 F83A11 B0 03 bcs ?20 ; overflow4004 F83A13 4C D9 37 jmp _Normalize4005 F83A16 4C 75 3B ?20: jmp _feLDINF1 ; FAC = INF con segno di FAC40064007 ;-------------------------------------------------------------4008 ; IMPLEMENTAZIONE _feDIV4009 ;-------------------------------------------------------------40104011 ; _feDIV10: esegue divisione di FAC per 10 e pone il risultato in FAC4012 ; In: FAC4013 ; Out: FAC = FAC/104014 ; FPUST, per le eccezioni4015 ; Uso: A,X,Y,FOP4016 ; Note: Testare lo status in FPUST4017 F83A19 _feDIV10:4018 F83A19 A9 44 LDA #.HIGH.FCon1E14019 F83A1B EB xba4020 F83A1C A9 B2 LDA #.LOW.FCon1E1 ; LOAD = 10.04021 F83A1E A0 F8 LDY #.SEG.FCon1E140224023 ; _feDIVRM: esegue FAC / MEM -> FAC4024 ; In: CY -> MEM4025 ; FAC valido4026 ; Out: FAC = FAC / MEM4027 ; FPUST, per le eccezioni4028 ; Uso: C,X,Y,FOP, ARG4029 ; Note: Testare lo status in FPUST4030 F83A20 _feDIVRM:4031 F83A20 85 60 STA PTR1 ; salva puntatore mem4032 F83A22 EB xbaTue Jul 17 11:00:16 2018 Page 274033 F83A23 85 61 sta PTR1+14034 F83A25 84 62 STY PTR1+24035 F83A27 20 5D 38 JSR _RoundSkp ; arrotonda FAC, esce se errore4036 F83A2A 20 E1 3D JSR _MovF2A ; copia FAC in ARG4037 F83A2D 20 69 3D JSR _MovMem2Fa ; FAC = MEM40384039 ; _feDIV: esegue divisione ARG / FAC e pone il risultato in FAC4040 ; In: FAC, ARG4041 ; Out: FAC = ARG/FAC4042 ; FPUST, per le eccezioni4043 ; Uso: A,X,Y,FOP4044 ; Note: Testare lo status in FPUST4045 F83A30 _feDIV:4046 F83A30 20 25 3B JSR divtst ; test operandi FAC ed ARG4047 F83A33 20 5D 38 ?12: JSR _RoundSkp ; arrotanda FAC ed esce in caso di eccezione4048 F83A36 ACC164049 F83A36 C2 20 rep #PMFLAG4050 .LONGA on4051 .MNLIST4052 F83A38 A5 4A LDA FACExp ; depolarizza esponente4053 F83A3A 38 SEC ; e gli cambia segno4054 F83A3B E9 FF 3F SBC #EXPBIAS4055 F83A3E 49 FF FF EOR #$FFFF4056 F83A41 1A inc a4057 F83A42 85 4A sta FACExp4058 F83A44 ACC084059 F83A44 E2 20 sep #PMFLAG4060 .LONGA off4061 .MNLIST4062 F83A46 A2 00 ldx #$00 ; flag DIV4063 F83A48 20 A1 39 JSR _AddExponent40644065 F83A4B __fdiv__:4066 F83A4B A2 08 ldx #84067 F83A4D A9 01 LDA #$014068 F83A4F A4 59 ?01: LDY ARG+84069 F83A51 C4 49 CPY FAC+84070 F83A53 D0 28 BNE ?024071 F83A55 A4 58 LDY ARG+74072 F83A57 C4 48 CPY FAC+74073 F83A59 D0 22 BNE ?024074 F83A5B A4 57 LDY ARG+64075 F83A5D C4 47 CPY FAC+64076 F83A5F D0 1C BNE ?024077 F83A61 A4 56 LDY ARG+54078 F83A63 C4 46 CPY FAC+54079 F83A65 D0 16 BNE ?024080 F83A67 A4 55 LDY ARG+44081 F83A69 C4 45 CPY FAC+44082 F83A6B D0 10 BNE ?024083 F83A6D A4 54 LDY ARG+34084 F83A6F C4 44 CPY FAC+34085 F83A71 D0 0A BNE ?024086 F83A73 A4 53 LDY ARG+24087 F83A75 C4 43 CPY FAC+24088 F83A77 D0 04 BNE ?024089 F83A79 A4 52 LDY ARG+1Tue Jul 17 11:00:16 2018 Page 284090 F83A7B C4 42 CPY FAC+14091 F83A7D ?02:4092 F83A7D 08 ?02b: PHP4093 F83A7E 2A ROL A4094 F83A7F 90 09 BCC ?034095 F83A81 CA dex4096 F83A82 30 3F BMI ?074097 F83A84 95 32 STA <FOP,X4098 F83A86 F0 37 BEQ ?064099 F83A88 A9 01 LDA #$014100 F83A8A 28 ?03: PLP4101 F83A8B B0 12 BCS ?054102 F83A8D ?04: ACC164103 F83A8D C2 20 rep #PMFLAG4104 .LONGA on4105 .MNLIST4106 F83A8F 06 52 ASL ARG+14107 F83A91 26 54 ROL ARG+34108 F83A93 26 56 ROL ARG+54109 F83A95 26 58 ROL ARG+74110 F83A97 ACC084111 F83A97 E2 20 sep #PMFLAG4112 .LONGA off4113 .MNLIST4114 F83A99 B0 E2 BCS ?02b4115 F83A9B 30 B2 BMI ?014116 F83A9D 10 DE BPL ?02b4117 F83A9F A8 ?05: TAY4118 F83AA0 ACC164119 F83AA0 C2 20 rep #PMFLAG4120 .LONGA on4121 .MNLIST4122 F83AA2 A5 52 LDA ARG+14123 F83AA4 E5 42 SBC FAC+14124 F83AA6 85 52 STA ARG+14125 F83AA8 A5 54 LDA ARG+34126 F83AAA E5 44 SBC FAC+34127 F83AAC 85 54 STA ARG+34128 F83AAE A5 56 LDA ARG+54129 F83AB0 E5 46 SBC FAC+54130 F83AB2 85 56 STA ARG+54131 F83AB4 A5 58 LDA ARG+74132 F83AB6 E5 48 SBC FAC+74133 F83AB8 85 58 STA ARG+74134 F83ABA ACC084135 F83ABA E2 20 sep #PMFLAG4136 .LONGA off4137 .MNLIST4138 F83ABC 98 TYA4139 F83ABD 80 CE BRA ?044140 F83ABF A9 40 ?06: LDA #$404141 F83AC1 D0 C7 BNE ?034142 F83AC3 0A ?07: ASL A4143 F83AC4 0A ASL A4144 F83AC5 0A ASL A4145 F83AC6 0A ASL A4146 F83AC7 0A ASL ATue Jul 17 11:00:16 2018 Page 294147 F83AC8 0A ASL A4148 F83AC9 85 41 STA FACEXT4149 F83ACB 28 PLP4150 F83ACC 4C 3B 39 JMP _CopyFOP41514152 ;-------------------------------------------------------------4153 ; Test operandi FAC e ARG per operazioni ADD, MULT, DIV4154 ;-------------------------------------------------------------41554156 ; test preventivo su FAC ed ARG prima di _feADD4157 F83ACF addtst:4158 F83ACF 20 C8 3B jsr _fe2TST ; test FAC ed ARG e setta confronto segni4159 F83AD2 10 13 bpl ?05 ; FAC valido4160 F83AD4 A6 40 ldx FACSGN ; esce con segno di FAC4161 F83AD6 50 79 bvc _ldnan0 ; FAC = NAN => RESULT = NAN (con segno di FAC)4162 F83AD8 24 37 BIT ARGXM ; FAC = INF, necessario testare ARG4163 F83ADA 30 03 bmi ?034164 F83ADC 4C 5F 3B jmp _ldinf0 ; ARG valido -> (INF + X) -> FAC = INF4165 F83ADF 50 70 ?03: bvc _ldnan0 ; ARG = NAN -> FAC = NAN4166 F83AE1 24 4C BIT FACSCMP ; FAC = INF e ARG = INF: cfr. segni4167 F83AE3 10 7A BPL _ldinf0 ; +INF+INF o -INF-INF -> FAC = INF4168 F83AE5 30 6A bmi _ldnan0 ; +INF-INF o -INF+INF -> FAC = NAN4169 F83AE7 24 37 ?05: BIT ARGXM ; FAC valido -- test ARG4170 F83AE9 10 06 BPL ?10 ; ARG valido4171 F83AEB A6 50 LDX ARGSGN ; esce con segno di ARG4172 F83AED 50 62 BVC _ldnan0 ; ARG = NAN -> (X + NAN) -> FAC = NAN4173 F83AEF 70 6E bvs _ldinf0 ; ARG = INF -> (X + INF) -> FAC = INF4174 F83AF1 70 07 ?10: bvs _skpxam ; ARG = 0 => esce con FAC inalterato4175 F83AF3 24 36 bit FACXM ; test FAC = 04176 F83AF5 50 2D bvc _RTSA ; esegue ADD4177 F83AF7 20 CE 3D jsr _MovA2F ; FAC = 0 + ARG = ARG4178 F83AFA4179 F83AFA _skpxam:4180 F83AFA 68 pla4181 F83AFB 68 pla4182 F83AFC 4C FF 3B jmp _feXAM41834184 ; test preventivo su FAC ed ARG prima di _feMUL4185 F83AFF multst:4186 F83AFF 20 C8 3B JSR _fe2TST ; test operandi FAC e ARG4187 F83B02 10 0E BPL ?05 ; FAC valido -- testare ARG4188 F83B04 50 47 bvc _ldnan1 ; FAC = NAN => RESULT = NAN4189 F83B06 24 37 BIT ARGXM ; FAC = INF -- test ARG4190 F83B08 10 04 BPL ?03 ; ARG valido4191 F83B0A 70 4F BVS _ldinf1 ; ARG = INF -> (INF * INF) => FAC = INF4192 F83B0C 50 3F BVC _ldnan1 ; ARG = NAN -> (INF * NAN) => FAC = NAN4193 F83B0E 50 4B ?03: bvc _ldinf1 ; ARG <> 0 -> (INF * X) -> FAC = INF4194 F83B10 70 3B bvs _ldnan1 ; ARG = 0 -> (INF * 0) -> FAC = NAN4195 F83B12 24 37 ?05: BIT ARGXM ; FAC valido -- test ARG4196 F83B14 10 08 BPL ?10 ; ARG valido4197 F83B16 50 35 BVC _ldnan1 ; ARG = NAN -> (X * NAN) -> FAC = NAN4198 F83B18 24 36 bit FACXM ; ARG = INF -> necessario testare FAC4199 F83B1A 50 3F bvc _ldinf1 ; FAC <> 0 -> (X * INF) -> FAC = INF4200 F83B1C 70 2F bvs _ldnan1 ; FAC = 0 -> (0 * INF) -> FAC = NAN4201 F83B1E 70 49 ?10: bvs _ldz1 ; VF = 1 -> ARG = 0 -> (X * 0) -> FAC = 04202 F83B20 24 36 bit FACXM ; test flag zero FAC4203 F83B22 70 45 bvs _ldz1 ; VF = 1 -> FAC = 0 -> (0 * X) -> FAC = 0Tue Jul 17 11:00:16 2018 Page 304204 F83B24 _RTSA:4205 F83B24 60 rts ; OK -- esegue MULT42064207 ; test preventivo su FAC ed ARG prima di _feDIV4208 F83B25 divtst:4209 F83B25 20 C8 3B JSR _fe2TST ; test operandi FAC ed ARG4210 F83B28 10 08 BPL ?05 ; FAC valido4211 F83B2A 50 21 bvc _ldnan1 ; FAC = NAN => RESULT = NAN4212 F83B2C 24 37 BIT ARGXM ; FAC = INF -- test ARG4213 F83B2E 30 1D bmi _ldnan1 ; ARG = NAN/INF -> (NANINF / INF) -> FAC = NAN4214 F83B30 10 37 bpl _ldz1 ; ARG = X -> (X / INF) -> FAC = ZERO4215 F83B32 24 37 ?05: bit ARGXM ; FAC valido -- test ARG4216 F83B34 10 08 bpl ?10 ; ARG valido4217 F83B36 50 15 bvc _ldnan1 ; ARG = NAN -> (NAN / X) -> FAC = NAN4218 F83B38 24 36 bit FACXM ; ARG = INF -- testare FAC = 04219 F83B3A 50 1F bvc _ldinf1 ; FAC <> 0 -> (INF / X) -> FAC = INF4220 F83B3C 70 25 bvs _ldinfz ; FAC = 0 -> (INF / 0) -> FAC = INF e ZF = 14221 F83B3E 24 36 ?10: bit FACXM ; FAC ed ARG validi -- testare FAC = 04222 F83B40 50 06 bvc ?14 ; FAC non nullo4223 F83B42 24 37 bit ARGXM ; FAC = 0 -- test ARG4224 F83B44 50 1D bvc _ldinfz ; ARG <> 0 -> (X / 0) -> FAC = INF, ZF = 14225 F83B46 70 0D bvs _ldnanz ; ARG = 0 -> (0 / 0) -> FAC = NAN, ZF = 14226 F83B48 24 37 ?14: bit ARGXM ; FAC <> 0 -- test ARG = 04227 F83B4A 70 1D bvs _ldz1 ; ARG = 0 -> (0 / X) -> FAC = 04228 F83B4C 60 rts42294230 F83B4D _ldnan1:4231 F83B4D A6 4C ldx FACSCMP ; segno risultato4232 F83B4F 86 40 stx FACSGN4233 F83B51 _ldnan0:4234 F83B51 7A ply ; scarta indirizzo di ritorno4235 F83B52 7A ply4236 F83B53 80 33 bra _feLDNAN1 ; FAC = +/- NAN42374238 F83B55 _ldnanz:4239 F83B55 A6 4C ldx FACSCMP ; segno risultato4240 F83B57 7A ply ; scarta indirizzo di ritorno4241 F83B58 7A ply4242 F83B59 80 25 bra _feLDNANZ ; FAC = +/- NAN, ZF = 14243 F83B5B4244 F83B5B _ldinf1:4245 F83B5B A6 4C ldx FACSCMP ; segno risultato4246 F83B5D 86 40 stx FACSGN4247 F83B5F _ldinf0:4248 F83B5F 7A ply ; scarta indirizzo di ritorno4249 F83B60 7A ply4250 F83B61 80 12 bra _feLDINF1 ; FAC = +/- INF42514252 F83B63 _ldinfz:4253 F83B63 A6 4C ldx FACSCMP ; segno risultato4254 F83B65 7A ply ; scarta indirizzo di ritorno4255 F83B66 7A ply4256 F83B67 80 04 bra _feLDINFZ ; FAC = +/- INF, ZF = 142574258 F83B69 _ldz1:4259 F83B69 7A ply ; scarta indirizzo di ritorno4260 F83B6A 7A plyTue Jul 17 11:00:16 2018 Page 314261 F83B6B 80 43 bra _feLDZ ; FAC = +ZERO4262 F83B6D4263 ;-------------------------------------------------------------4264 ; Load FAC/ARG con valori speciali4265 ;-------------------------------------------------------------42664267 ; _feLDINFZ: Imposta FAC = +/-INF e ZF4268 ; In: X = segno4269 ; Out: FAC = +/-INF4270 ; Flag come da _feXAM + ZF4271 ; Uso: A,Y,X4272 ; Note: FACSGN settato, FACEXT azzerato4273 F83B6D _feLDINFZ:4274 F83B6D 86 40 STX FACSGN ; imposta segno FAC42754276 ; _feLDINF1Z: Imposta FAC = +/-INF e ZF4277 ; In: FACSGN = segno4278 ; Out: FAC = +/-INF4279 ; Flag come da _feXAM + ZF4280 ; Uso: A,Y,X4281 ; Note: FACSGN settato, FACEXT azzerato4282 ;***************************************4283 F83B6F _feLDINF1Z:4284 F83B6F A0 00 ldy #0 ; ZF = 1, NF = 04285 F83B71 F0 04 beq _fldinf4286 F83B734287 ; _feLDINF: Imposta FAC = +/-INF4288 ; In: X = segno4289 ; Out: FAC = +/-INF4290 ; Flag come da _feXAM4291 ; Uso: A,Y,X4292 ; Note: FACSGN settato, FACEXT azzerato4293 F83B73 _feLDINF:4294 F83B73 86 40 STX FACSGN ; imposta segno FAC42954296 ; _feLDINF1: Imposta FAC = +/-INF4297 ; In: FACSGN = segno4298 ; Out: FAC = +/-INF4299 ; Flag come da _feXAM4300 ; Uso: A,Y,X4301 ; Note: FACSGN settato, FACEXT azzerato4302 F83B75 _feLDINF1:4303 F83B75 A0 01 ldy #1 ; ZF = 0, NF = 043044305 ; ingresso per settare +/- INF e ZF4306 F83B77 _fldinf:4307 F83B77 E2 40 sep #PVFLAG ; V = 1 => segnala INF4308 F83B79 ACC164309 F83B79 C2 20 rep #PMFLAG4310 .LONGA on4311 .MNLIST4312 F83B7B A9 00 80 lda #MANTINF4313 F83B7E 80 10 bra _fldnv43144315 ; _feLDNANZ: Imposta FAC = +/-NAN e ZF = 14316 ; In: X = segno4317 ; Out: FAC = +/-NANTue Jul 17 11:00:16 2018 Page 324318 ; CF = 1, VF = 0, ZF = 14319 ; Uso: A,Y,X4320 ; Note: FACSGN settato, FACEXT azzerato4321 F83B80 _feLDNANZ:4322 F83B80 86 40 stx FACSGN4323 F83B82 A0 00 ldy #0 ; ZF = 1, NF = 04324 F83B84 F0 04 beq _feLDNAN243254326 ; _feLDNAN: Imposta FAC = +/-NAN4327 ; In: X = segno4328 ; Out: FAC = +/-NAN4329 ; CF = 1, VF = 0, ZF = 04330 ; Uso: A,Y,X4331 ; Note: FACSGN settato, FACEXT azzerato4332 F83B86 _feLDNAN:4333 F83B86 86 40 stx FACSGN4334 F83B884335 ; _feLDNAN1: Imposta FAC = +/-NAN4336 ; In: FACSgn4337 ; Out: FAC = +/-NAN4338 ; CF = 1, VF = 0, ZF = 04339 ; Uso: A,Y,X4340 ; Note: FACSGN settato, FACEXT azzerato4341 ;****************************************4342 F83B88 _feLDNAN1:4343 F83B88 A0 01 ldy #1 ; ZF = 0, NF = 04344 F83B8A _feLDNAN2:4345 F83B8A B8 clv ; V = 0 => segnala NAN4346 F83B8B ACC164347 F83B8B C2 20 rep #PMFLAG4348 .LONGA on4349 .MNLIST4350 F83B8D A9 00 FF lda #MANTNAN43514352 ; ingresso con ACC164353 F83B90 _fldnv:4354 LONGA on4355 F83B90 85 48 sta FAC+74356 F83B92 64 46 stz FAC+54357 F83B94 64 44 stz FAC+34358 F83B96 64 42 stz FAC+14359 F83B98 A9 FF 7F lda #EXPINF4360 F83B9B 85 4A sta FACExp4361 F83B9D ACC084362 F83B9D E2 20 sep #PMFLAG4363 .LONGA off4364 .MNLIST4365 F83B9F 64 41 stz FACEXT4366 F83BA1 38 sec ; segnala errore4367 F83BA2 98 tya ; imposta ZF, NF = 04368 F83BA3 08 php4369 F83BA4 A6 40 ldx FACSGN4370 F83BA6 10 06 bpl ?104371 F83BA8 A3 01 lda $01,s ; imposta NF4372 F83BAA 09 80 ora #$804373 F83BAC 83 01 sta $01,s4374 F83BAE 28 ?10: plpTue Jul 17 11:00:16 2018 Page 334375 F83BAF 60 rts43764377 ; _feLDZ - load ZERO in FAC4378 ; Out flag : CF = VF = NF = 0, ZF = 14379 F83BB0 _feLDZ:4380 F83BB0 ACC164381 F83BB0 C2 20 rep #PMFLAG4382 .LONGA on4383 .MNLIST4384 F83BB2 A9 00 00 lda #0 ; ZF = 1, NF = 04385 F83BB5 85 42 sta FAC+14386 F83BB7 85 44 sta FAC+34387 F83BB9 85 46 sta FAC+54388 F83BBB 85 48 sta FAC+74389 F83BBD 85 4A sta FACExp4390 F83BBF ACC084391 F83BBF E2 20 sep #PMFLAG4392 .LONGA off4393 .MNLIST4394 F83BC1 85 40 sta FACSGN4395 F83BC3 85 41 sta FACEXT4396 F83BC5 18 clc4397 F83BC6 B8 clv4398 F83BC7 60 rts43994400 ;-------------------------------------------------------------4401 ; ESAMINA REGISTRI FAC E ARG4402 ;----------------------------------- -------------------------44034404 ; Esamina FAC ed ARG per operazioni con 2 operandi4405 ; Lo status viene riportato nei bit 7 e 6 di FACXM e ARGXM4406 ; secondo il seguente schema:4407 ; FACXM(7) -> FAC non valido (NAN o INF)4408 ; FACXM(6) -> FAC = INF (se bit 7 = 1)4409 ; -> FAC = 0 (se bit 7 = 0)4410 ; ARGXM(7) -> ARG non valido (NAN o INF)4411 ; ARGXM(6) -> ARG = INF (se bit 7 = 1)4412 ; -> ARG = 0 (se bit 7 = 0)4413 ; Inoltre viene correttamente impostato il flag di4414 ; confronto dei segni FACSCMP.4415 ; In: FAC, ARG4416 ; Out: FACXM, ARGXM4417 ; FLAG N, V come da 'bit FACXM'4418 ; CF = 1 se FAC non valido (NAN o INF)4419 ; Uso: A,X,FACXM,ARGXM4420 F83BC8 _fe2TST:4421 F83BC8 A5 50 LDA ARGSGN ; imposta il flag confronto segni4422 F83BCA 45 40 EOR FACSGN4423 F83BCC 85 4C STA FACSCMP ; negativo se segni discordi4424 F83BCE 20 FB 3B jsr _feXAMARG ; esamina ARG (A = 0)4425 F83BD1 90 08 bcc ?02 ; ARG valido4426 F83BD3 A9 80 lda #$80 ; bit 7 -> non valido4427 F83BD5 50 08 bvc ?04 ; NAN4428 F83BD7 09 40 ora #$40 ; flag INF4429 F83BD9 80 04 bra ?044430 F83BDB D0 02 ?02: bne ?044431 F83BDD A9 40 lda #$40 ; flag ZEROTue Jul 17 11:00:16 2018 Page 344432 F83BDF 85 37 ?04: sta ARGXM4433 F83BE1 20 FF 3B jsr _feXAM ; esamina FAC (A = 0)4434 F83BE4 90 08 bcc ?06 ; FaC valido4435 F83BE6 A9 80 lda #$80 ; bit 7 -> non valido4436 F83BE8 50 08 bvc ?08 ; NAN4437 F83BEA 09 40 ora #$40 ; flag INF4438 F83BEC 80 04 bra ?084439 F83BEE D0 02 ?06: bne ?084440 F83BF0 A9 40 lda #$40 ; flag ZERO4441 F83BF2 85 36 ?08: sta FACXM4442 F83BF4 24 36 bit FACXM ; ritorna flag C, N, V4443 F83BF6 18 clc ; valido4444 F83BF7 10 01 bpl ?184445 F83BF9 38 sec ; non valido4446 F83BFA 60 ?18: rts44474448 ; _feXAM e _feXAMARG impostano i flag nel seguente modo4449 ;4450 ; CF = 0 => registro valido4451 ; NF = 1 => segno registro4452 ; ZF = 1 => se registro nullo e valido4453 ; VF = 1 => denormale4454 ;4455 ; CF = 1 => registro non valido4456 ; NF = 1 => segno registro4457 ; VF = 0 => NAN se registro non valido4458 ; VF = 1 => INF se registro non valido4459 ; ZF = 0 => ignorare4460 F83BFB4461 ; _feXAMARG: Esamina registro ARG4462 ; In:4463 ; Out: P = ARG Status (C, N, V, Z)4464 ; X -> indice a ARG-14465 ; A = 04466 ; Usa: A,X4467 F83BFB _feXAMARG:4468 F83BFB A2 50 LDX #ARGSGN4469 F83BFD 80 02 BRA _FXAM44704471 ; _feXAM: Esamina registro FAC4472 ; In:4473 ; Out: P = FAC Status (C, N, V, Z)4474 ; X -> indice a FAC-14475 ; A = 04476 ; Usa: A,X4477 F83BFF _feXAM:4478 F83BFF A2 40 LDX #FACSGN44794480 ; _FXAM: Esamina registro FAC/ARG4481 ; In: X -> indice a FAC-1 o ARG-1 (segno)4482 ; Out: P = FAC/ARG Status (C, N, V, Z)4483 ; A = 04484 ; X -> indice a FAC o ARG4485 ; Usa: A,X4486 F83C01 _FXAM:4487 F83C01 B8 clv ; setta preventivamente V = 04488 F83C02 ACC16Tue Jul 17 11:00:16 2018 Page 354489 F83C02 C2 20 rep #PMFLAG4490 .LONGA on4491 .MNLIST4492 F83C04 B5 0A LDA <10,X ; test EXP4493 F83C06 F0 12 beq ?04 ; exp = 0 -- denormal o ZERO4494 F83C08 C9 FF 7F CMP #EXPINF ; test INF/NAN4495 ; se CF = 0 => EXP valido -- numero valido non nullo4496 ; qui ZF = 0 e CF = 0 da confronto precedente4497 F83C0B 90 1A bcc ?08 ; C = V = Z = 0 => imposta N4498 ; se CF = 1 allora registro contiene INF o NAN4499 F83C0D B5 08 lda <8,x ; test mantissa NAN/INF4500 F83C0F C9 00 80 CMP #MANTINF4501 F83C12 D0 02 bne ?02 ; NAN => V = 04502 F83C14 E2 40 sep #PVFLAG ; INF => V = 14503 F83C16 38 ?02: sec ; CF = 1 => non valido4504 F83C17 3A dec a ; imposta ZF = 0 (A >= EXPINF)4505 F83C18 B0 0D bcs ?08 ; C, Z, V settati -- imposta N4506 ; ZERO o DENORMAL -- esamina mantissa4507 F83C1A B5 02 ?04: lda <2,x ; imposta ZF4508 F83C1C 15 04 ora <4,x4509 F83C1E 15 06 ora <6,x4510 F83C20 15 08 ora <8,x ; ZF = 1 => FAC/ARG = 04511 F83C22 18 clc ; valido4512 F83C23 F0 02 beq ?08 ; ZERO => C = V = 0, Z = 14513 F83C25 E2 40 sep #PVFLAG ; denormal => C = Z = 0, V = 14514 F83C27 ?08: ACC084515 F83C27 E2 20 sep #PMFLAG4516 .LONGA off4517 .MNLIST4518 F83C29 08 php ; salva status: V, Z, C4519 F83C2A A3 01 lda $01,s ; clear NF nello stack4520 F83C2C 29 7F and #$7F4521 F83C2E 83 01 sta $01,s4522 F83C30 B5 00 lda <0,x ; segno4523 F83C32 29 80 and #$80 ; maschera bit 74524 F83C34 03 01 ora $01,s ; imposta NF nello stack4525 F83C36 83 01 sta $01,s4526 F83C38 A9 00 lda #04527 F83C3A 28 plp ; ripristina flag4528 F83C3B 60 rts4529 F83C3C4530 ;----------------------------------------------------------4531 ; implementazione _feCMP, _feCMPM, _feSGN, _feCHS, _feABS4532 ;----------------------------------------------------------45334534 ; _feCMP: Confronta FAC con ARG4535 ; In: FAC, ARG (supposti validi)4536 ; Out: A = 1 se FAC > ARG (ZF = 0, NF == 0)4537 ; A = 0 se FAC = ARG (ZF = 1)4538 ; A = -1 se FAC < ARG (ZF = 0, NF == 1)4539 ; Uso: A,X4540 ; Note: |INF| < |NAN|4541 F83C3C _feCMP:4542 F83C3C 20 FB 3B jsr _feXAMARG ; test ARG = 04543 F83C3F F0 35 BEQ _feSGN ; ARG = 0 -> ritorna sgn(FAC)4544 F83C41 A5 50 LDA ARGSGN4545 F83C43 45 40 EOR FACSGNTue Jul 17 11:00:16 2018 Page 364546 F83C45 30 2F BMI _feSGN ; Segni discordi: ritorna sgn(FAC)4547 F83C47 ACC16 ; CONFRONTA ESPONENTI4548 F83C47 C2 20 rep #PMFLAG4549 .LONGA on4550 .MNLIST4551 F83C49 A5 5A lda ARGExp4552 F83C4B C5 4A cmp FACExp4553 F83C4D 90 3B BCC _FSGN3 ; FAC > ARG4554 F83C4F D0 39 BNE _FSGN3 ; FAC < ARG (CF = 1)4555 F83C514556 ; gli esponenti sono uguali - confronto mantissa byte a byte4557 F83C51 A5 58 LDA ARG+7 ; MSB mantissa ARG4558 F83C53 C5 48 CMP FAC+74559 F83C55 D0 33 BNE _FSGN34560 F83C57 A5 56 LDA ARG+54561 F83C59 C5 46 CMP FAC+54562 F83C5B D0 2D BNE _FSGN34563 F83C5D A5 54 LDA ARG+34564 F83C5F C5 44 CMP FAC+34565 F83C61 D0 27 BNE _FSGN34566 F83C63 ACC084567 F83C63 E2 20 sep #PMFLAG4568 .LONGA off4569 .MNLIST4570 F83C65 A5 53 LDA ARG+24571 F83C67 C5 43 CMP FAC+24572 F83C69 D0 1F BNE _FSGN34573 F83C6B A9 7F LDA #$7F ; bit di guardia4574 F83C6D C5 41 CMP FACEXT ; CF settato4575 F83C6F A5 52 LDA ARG+14576 F83C71 E5 42 SBC FAC+14577 F83C73 D0 15 BNE _FSGN34578 F83C75 60 RTS ; FAC = ARG4579 F83C764580 ; _feSGN: funzione che ritorna il segno di FAC4581 ; In: FAC (supposto valido)4582 ; Out: A = 1 se FAC > 0 (ZF = 0, NF == 0)4583 ; A = 0 se FAC = 0 (ZF = 1)4584 ; A = -1 se FAC < 0 (ZF = 0, NF == 1)4585 ; Uso: A, X4586 ; Note: NAN e INF assunti come validi4587 F83C76 _feSGN:4588 F83C76 CPU08 ; necessario !!!4589 F83C76 E2 30 sep #(PMFLAG.OR.PXFLAG)4590 .LONGA off4591 .LONGI off4592 .MNLIST4593 F83C78 20 FF 3B jsr _feXAM ; test FAC = 04594 F83C7B D0 03 bne _FSGN14595 F83C7D A9 00 lda #04596 F83C7F 60 rts4597 _FSGN1: ; test segno FAC4598 F83C80 A5 40 LDA FACSGN4599 _FSGN2: ; test segno A4600 F83C82 2A ROL A4601 F83C83 A9 FF LDA #$FF4602 F83C85 B0 02 BCS _RTS7Tue Jul 17 11:00:16 2018 Page 374603 F83C87 A9 01 LDA #$014604 F83C89 _RTS7:4605 F83C89 60 RTS4606 F83C8A _FSGN3:4607 F83C8A CPU08 ; necessario4608 F83C8A E2 30 sep #(PMFLAG.OR.PXFLAG)4609 .LONGA off4610 .LONGI off4611 .MNLIST4612 F83C8C A5 40 LDA FACSGN ; segno FAC4613 F83C8E 90 F2 BCC _FSGN2 ; FAC > Float MEM (o ARG)4614 F83C90 49 FF EOR #$FF ; inverte segno4615 F83C92 80 EE BRA _FSGN2 ; FAC < Float MEM (o ARG)46164617 F83C944618 ; _feCMPM: Confronta FAC con MEM4619 ; In: CY -> puntatore memoria MEM4620 ; Out: A = 1 se FAC > MEM (ZF = 0, NF == 0)4621 ; A = 0 se FAC = MEM (ZF = 1)4622 ; A = -1 se FAC < MEM (ZF = 0, NF == 1)4623 ; Uso: A, B,PTR1,Y,X4624 ; Note: Nessuna eccezione se FAC e/o Float MEM non valid14625 F83C94 _feCMPM:4626 F83C94 85 60 STA PTR1 ; puntatore memoria4627 F83C96 EB xba4628 F83C97 85 61 STA PTR1+14629 F83C99 84 62 STY PTR1+24630 F83C9B A0 08 LDY #$084631 F83C9D CPU164632 F83C9D C2 30 rep #(PMFLAG.OR.PXFLAG)4633 .LONGA on4634 .LONGI on4635 .MNLIST4636 F83C9F B7 60 lda [PTR1],y ; EXP4637 F83CA1 AA tax ; salva esponente in X4638 F83CA2 29 FF 7F and #$7FFF ; maschera segno4639 F83CA5 88 dey4640 F83CA6 88 dey4641 F83CA7 17 60 ?01: ora [PTR1],y ; test zero4642 F83CA9 88 dey4643 F83CAA 88 dey4644 F83CAB 10 FA bpl ?014645 F83CAD A8 tay4646 F83CAE F0 C6 BEQ _feSGN ; Float MEM = 0: ritorna sgn(FAC)4647 F83CB0 8A txa ; segno4648 F83CB1 EB xba ; A = segno4649 F83CB2 ACC084650 F83CB2 E2 20 sep #PMFLAG4651 .LONGA off4652 .MNLIST4653 F83CB4 45 40 EOR FACSGN4654 F83CB6 30 BE BMI _feSGN ; Segni discordi: ritorna sgn(FAC)4655 F83CB8 ACC164656 F83CB8 C2 20 rep #PMFLAG4657 .LONGA on4658 .MNLIST4659 F83CBA 8A txaTue Jul 17 11:00:16 2018 Page 384660 F83CBB 29 FF 7F and #$7FFF ; esponente4661 F83CBE C5 4A cmp FACExp4662 F83CC0 90 C8 BCC _FSGN3 ; FAC > MEM4663 F83CC2 D0 C6 BNE _FSGN3 ; FAC < MEM (CF = 1)4664 ; gli esponenti sono uguali -- compare mantisse4665 F83CC4 INDEX084666 F83CC4 E2 10 sep #PXFLAG4667 .LONGI off4668 .MNLIST4669 F83CC6 A0 06 ldy #64670 F83CC8 B7 60 lda [PTR1],y ; MSB mantissa Float MEM4671 F83CCA C5 48 CMP FAC+74672 F83CCC D0 BC BNE _FSGN34673 F83CCE 88 dey4674 F83CCF 88 dey4675 F83CD0 B7 60 lda [PTR1],y4676 F83CD2 C5 46 CMP FAC+54677 F83CD4 D0 B4 BNE _FSGN34678 F83CD6 88 dey4679 F83CD7 88 dey4680 F83CD8 B7 60 lda [PTR1],y4681 F83CDA C5 44 CMP FAC+34682 F83CDC D0 AC BNE _FSGN34683 F83CDE 88 dey4684 F83CDF CPU084685 F83CDF E2 30 sep #(PMFLAG.OR.PXFLAG)4686 .LONGA off4687 .LONGI off4688 .MNLIST4689 F83CE1 B7 60 lda [PTR1],y4690 F83CE3 C5 43 CMP FAC+24691 F83CE5 D0 A3 BNE _FSGN34692 F83CE7 88 dey4693 F83CE8 A9 7F LDA #$7F ; bit di guardia4694 F83CEA C5 41 CMP FACEXT ; CF settato4695 F83CEC B7 60 lda [PTR1],y4696 F83CEE E5 42 SBC FAC+14697 F83CF0 D0 98 BNE _FSGN34698 F83CF2 60 RTS ; FAC = Float MEM46994700 ; _feCHS: cambia segno a FAC4701 ; In: FAC supposto valido4702 ; Out: FAC = -FAC4703 ; Uso: A4704 ; Note: INF e NAN assunti come validi4705 F83CF3 _feCHS:4706 F83CF3 20 FF 3B jsr _feXAM4707 F83CF6 F0 06 BEQ ?014708 F83CF8 A5 40 LDA FACSGN4709 F83CFA 49 FF EOR #$FF4710 F83CFC 85 40 STA FACSGN4711 F83CFE 60 ?01: RTS47124713 ; _feABS: rende assoluto FAC4714 ; In: FAC supposto valido4715 ; Out: FAC = |FAC|4716 ; Uso:Tue Jul 17 11:00:16 2018 Page 394717 ; Note: Nessuna eccezione se FAC non valido4718 F83CFF _feABS:4719 F83CFF 64 40 STZ FACSGN4720 F83D01 60 RTS47214722 ;----------------------------------------------------------4723 ; Funzioni move memoria/fac/arg4724 ;----------------------------------------------------------47254726 ; _MovRF2Tmp: Arrotonda FAC e lo copia nel reg. temporaneo4727 ; In: FAC valido4728 ; Out: FAC arrotondato copiato nel reg. temporaneo4729 ; Note: FACEXT azzerato4730 F83D02 _MovRF2Tmp:4731 F83D02 20 43 38 JSR _Round4732 F83D05 64 41 STZ FACEXT4733 F83D07 A2 0B LDX #(FACSIZE+1) ; 12 bytes4734 F83D09 B5 40 ?01: lda <FACSGN,x4735 F83D0B 95 64 sta <FACTmp,x4736 F83D0D CA dex4737 F83D0E 10 F9 bpl ?014738 F83D10 60 rts47394740 ; _MovTmp2A: Carica ARG da registro FAC temporaneo4741 ; In: FACTmp valido4742 ; Out: ARG caricato da memoria4743 ; Uso: A, X4744 ; Note: ARGSGN settato, ARGEXT azzerato4745 F83D11 _MovTmp2A:4746 F83D11 A2 0B LDX #(FACSIZE+1)4747 F83D13 B5 64 ?01: lda <FACTmp,x4748 F83D15 95 50 sta <ARGSGN,x4749 F83D17 CA dex4750 F83D18 10 F9 bpl ?014751 F83D1A 64 51 STZ ARGEXT4752 F83D1C 60 rts4753 F83D1D4754 ; _MovF2Mem: Copia FAC in memoria4755 ; In: CY -> ptr memoria4756 ; Out: FAC copiato in memoria4757 ; Uso: C,Y,PTR14758 ; Note: FACEXT azzerato4759 F83D1D _MovF2Mem:4760 F83D1D 85 60 STA PTR14761 F83D1F EB xba4762 F83D20 85 61 STA PTR1+14763 F83D22 84 62 STY PTR1+24764 F83D24 80 0A BRA _FSTMEM47654766 ; _MovRF2Mem: Arrotonda FAC e lo copia in memoria4767 ; In: CY -> ptr memoria4768 ; Out: FAC arrotondato copiato in memoria4769 ; Uso: C,Y,PTR14770 ; Note: FACEXT azzerato4771 ; Carica anche INF / NAN4772 F83D26 _MovRF2Mem:4773 F83D26 85 60 STA PTR1Tue Jul 17 11:00:16 2018 Page 404774 F83D28 EB xba4775 F83D29 85 61 STA PTR1+14776 F83D2B 84 62 STY PTR1+24777 F83D2D 20 43 38 JSR _Round4778 F83D30 _FSTMEM:4779 F83D30 A0 00 LDY #04780 F83D32 ACC164781 F83D32 C2 20 rep #PMFLAG4782 .LONGA on4783 .MNLIST4784 F83D34 A5 42 LDA FAC+14785 F83D36 97 60 STA [PTR1],Y4786 F83D38 C8 iny4787 F83D39 C8 iny4788 F83D3A A5 44 LDA FAC+34789 F83D3C 97 60 STA [PTR1],Y4790 F83D3E C8 iny4791 F83D3F C8 iny4792 F83D40 A5 46 LDA FAC+54793 F83D42 97 60 STA [PTR1],Y4794 F83D44 C8 iny4795 F83D45 C8 iny4796 F83D46 A5 48 LDA FAC+74797 F83D48 97 60 STA [PTR1],Y4798 F83D4A C8 iny4799 F83D4B C8 iny4800 F83D4C ACC084801 F83D4C E2 20 sep #PMFLAG4802 .LONGA off4803 .MNLIST4804 F83D4E A5 40 LDA FACSGN4805 F83D50 29 80 AND #$804806 F83D52 EB xba4807 F83D53 A9 00 lda #04808 F83D55 ACC164809 F83D55 C2 20 rep #PMFLAG4810 .LONGA on4811 .MNLIST4812 F83D57 05 4A ora FACExp4813 F83D59 97 60 STA [PTR1],Y4814 F83D5B ACC084815 F83D5B E2 20 sep #PMFLAG4816 .LONGA off4817 .MNLIST4818 F83D5D A0 00 ldy #04819 F83D5F 84 41 STY FACEXT4820 F83D61 60 RTS48214822 ; _MovMem2F: Carica FAC da memoria4823 ; In: CY -> ptr memoria4824 ; Out: FAC caricato da memoria4825 ; Uso: C,Y,PTR14826 ; Note: FACSGN settato, FACEXT azzerato4827 F83D62 _MovMem2F:4828 F83D62 85 60 STA PTR14829 F83D64 EB xba4830 F83D65 85 61 sta PTR1+1Tue Jul 17 11:00:16 2018 Page 414831 F83D67 84 62 STY PTR1+24832 F83D69 _MovMem2Fa:4833 F83D69 A0 00 LDY #04834 F83D6B ACC164835 F83D6B C2 20 rep #PMFLAG4836 .LONGA on4837 .MNLIST4838 F83D6D B7 60 LDA [PTR1],Y4839 F83D6F 85 42 STA FAC+14840 F83D71 C8 iny4841 F83D72 C8 iny4842 F83D73 B7 60 LDA [PTR1],Y4843 F83D75 85 44 STA FAC+34844 F83D77 C8 iny4845 F83D78 C8 iny4846 F83D79 B7 60 LDA [PTR1],Y4847 F83D7B 85 46 STA FAC+54848 F83D7D C8 iny4849 F83D7E C8 iny4850 F83D7F B7 60 LDA [PTR1],Y4851 F83D81 85 48 STA FAC+74852 F83D83 C8 iny4853 F83D84 C8 iny4854 F83D85 B7 60 LDA [PTR1],Y4855 F83D87 EB xba4856 F83D88 A8 tay ; Y = segno4857 F83D89 EB xba4858 F83D8A 29 FF 7F and #$7FFF4859 F83D8D 85 4A sta FACExp4860 F83D8F 84 40 STY FACSGN4861 F83D91 ACC084862 F83D91 E2 20 sep #PMFLAG4863 .LONGA off4864 .MNLIST4865 F83D93 A0 00 ldy #04866 F83D95 84 41 STY FACEXT4867 F83D97 60 RTS48684869 ; _MovMem2A: Carica ARG da memoria4870 ; In: CY -> ptr memoria4871 ; Out: ARG caricato da memoria4872 ; Uso: C,Y,PTR14873 ; Note: ARGSGN settato, ARGEXT azzerato4874 F83D98 _MovMem2A:4875 F83D98 85 60 STA PTR14876 F83D9A EB xba4877 F83D9B 85 61 sta PTR1+14878 F83D9D 84 62 STY PTR1+24879 F83D9F A0 00 LDY #04880 F83DA1 ACC164881 F83DA1 C2 20 rep #PMFLAG4882 .LONGA on4883 .MNLIST4884 F83DA3 B7 60 LDA [PTR1],Y4885 F83DA5 85 52 STA ARG+14886 F83DA7 C8 iny4887 F83DA8 C8 inyTue Jul 17 11:00:16 2018 Page 424888 F83DA9 B7 60 LDA [PTR1],Y4889 F83DAB 85 54 STA ARG+34890 F83DAD C8 iny4891 F83DAE C8 iny4892 F83DAF B7 60 LDA [PTR1],Y4893 F83DB1 85 56 STA ARG+54894 F83DB3 C8 iny4895 F83DB4 C8 iny4896 F83DB5 B7 60 LDA [PTR1],Y4897 F83DB7 85 58 STA ARG+74898 F83DB9 C8 iny4899 F83DBA C8 iny4900 F83DBB B7 60 LDA [PTR1],Y4901 F83DBD EB xba4902 F83DBE A8 tay ; Y = segno4903 F83DBF EB xba4904 F83DC0 29 FF 7F and #$7FFF4905 F83DC3 85 5A sta ARGExp4906 F83DC5 84 50 STY ARGSGN4907 F83DC7 ACC084908 F83DC7 E2 20 sep #PMFLAG4909 .LONGA off4910 .MNLIST4911 F83DC9 A0 00 ldy #04912 F83DCB 84 51 STY ARGEXT4913 F83DCD 60 RTS49144915 ; _MovA2F: Copia ARG in FAC4916 ; In: ARG4917 ; Out: ARG -> FAC4918 ; Uso: A,X4919 ; Note: FACSGN settato, FACEXT azzerato4920 F83DCE _MovA2F:4921 F83DCE A5 50 LDA ARGSGN4922 F83DD04923 ; Copia ARG in FAC e setta il segno in A4924 F83DD0 _MovA2FS:4925 F83DD0 85 40 STA FACSGN4926 F83DD2 A2 0A LDX #FACSIZE4927 F83DD4 B5 51 ?01: LDA <ARG,X4928 F83DD6 95 41 STA <FAC,X4929 F83DD8 CA DEX4930 F83DD9 D0 F9 BNE ?014931 F83DDB 86 41 STX FACEXT4932 F83DDD 60 RTS49334934 ; _MovRndF2A: Arrotonda FAC e lo copia in ARG4935 ; In: FAC4936 ; Out: FAC arrotondato -> ARG4937 ; Uso: A,X,Y4938 ; Note: ARGSGN settato, FACEXT e ARGEXT azzerati4939 ; PUO' GENERARE ECCEZIONI4940 F83DDE _MovRndF2A:4941 F83DDE 20 43 38 JSR _Round ; arrotonda FAC: può causare eccezioni49424943 ; _MovF2A: Copia FAC in ARG4944 ; In: FACTue Jul 17 11:00:16 2018 Page 434945 ; Out: FAC -> ARG4946 ; Uso: A,X,Y4947 ; Note: ARGSGN settato, FACEXT e ARGEXT azzerati4948 F83DE1 _MovF2A:4949 F83DE1 A5 40 LDA FACSGN4950 F83DE3 85 50 STA ARGSGN4951 F83DE5 A2 0A LDX #FACSIZE4952 F83DE7 B5 41 ?01: LDA <FAC,X4953 F83DE9 95 51 STA <ARG,X4954 F83DEB CA DEX4955 F83DEC D0 F9 BNE ?014956 F83DEE 86 41 STX FACEXT4957 F83DF0 86 51 STX ARGEXT4958 F83DF2 18 _RTS6c: clc4959 F83DF3 60 _RTS6: RTS49604961 ;-------------------------------------------------------------4962 ; Calcola potenza di 10: FAC = FAC*(10^C)4963 ;-------------------------------------------------------------49644965 ; In - C -> potenza di 10 (signed)4966 ; - FAC valido4967 ;4968 ; Out - FAC * (10 ^ FPExp)4969 ; USO: FPWTmp7, FPWTmp8, FPExp4970 F83DF4 _fePOW10:4971 F83DF4 ACC164972 F83DF4 C2 20 rep #PMFLAG4973 .LONGA on4974 .MNLIST4975 F83DF6 85 5E sta FPExp4976 F83DF8 A2 00 ldx #04977 F83DFA 24 5E bit FPExp4978 F83DFC 10 07 bpl ?00 ; C positivo4979 F83DFE 8A txa ; C = 04980 F83DFF CA dex ; C negativo4981 F83E00 38 sec4982 F83E01 E5 5E sbc FPExp ; complementa4983 F83E03 85 5E sta FPExp4984 F83E05 86 3E ?00: stx FPWTmp8 ; flag segno C4985 F83E07 C9 00 10 cmp #4096 ; limite max4986 F83E0A ACC084987 F83E0A E2 20 sep #PMFLAG4988 .LONGA off4989 .MNLIST4990 F83E0C 90 28 bcc ?04 ; M < 40964991 ; M = 40964992 F83E0E A9 45 ?01: LDA #.HIGH.FCon1E40964993 F83E10 EB xba4994 F83E11 A9 52 LDA #.LOW.FCon1E40964995 F83E13 A0 F8 LDY #.SEG.FCon1E40964996 F83E15 24 3E bit FPWTmp84997 F83E17 30 07 bmi ?02 ; div4998 F83E19 20 E9 38 JSR _feMULM ; FAC = FAC*10^40964999 F83E1C B0 D5 BCS _RTS6 ; eccezione -> esce5000 F83E1E 90 05 BCC ?035001 F83E20 20 20 3A ?02: JSR _feDIVRM ; FAC = FAC/10^4096Tue Jul 17 11:00:16 2018 Page 445002 F83E23 B0 CE BCS _RTS6 ; eccezione -> esce5003 F83E25 20 43 38 ?03: jsr _Round ; ****5004 F83E28 B0 C9 bcs _RTS6 ; ****5005 F83E2A ACC165006 F83E2A C2 20 rep #PMFLAG5007 .LONGA on5008 .MNLIST5009 F83E2C 38 SEC ; M = M - 40965010 F83E2D A5 5E lda FPExp5011 F83E2F E9 00 10 sbc #40965012 F83E32 85 5E sta FPExp5013 F83E34 ACC085014 F83E34 E2 20 sep #PMFLAG5015 .LONGA off5016 .MNLIST5017 F83E36 A5 5E ?04: LDA FPExp ; ora M < 40965018 F83E38 05 5F ORA FPExp+15019 F83E3A F0 B6 BEQ _RTS6c ; se M = 0 esce con C = 05020 F83E3C 20 02 3D jsr _MovRF2Tmp ; round FAC -> registro temporaneo5021 F83E3F B0 B2 ?04a: BCS _RTS6 ; eccezione -> esce5022 F83E41 A5 5E LDA FPExp5023 F83E43 29 07 AND #7 ; calcola offset costanti 1e0 - 1e75024 F83E45 85 3F STA FPWTmp8+15025 F83E47 0A ASL A ; moltiplica x 105026 F83E48 0A ASL A5027 F83E49 18 CLC5028 F83E4A 65 3F ADC FPWTmp8+15029 F83E4C 0A ASL A5030 F83E4D 18 CLC5031 F83E4E 69 A8 ADC #.LOW.FCon1E05032 F83E50 EB xba5033 F83E51 A9 44 LDA #.HIGH.FCon1E05034 F83E53 90 01 BCC ?055035 F83E55 1A INC A5036 F83E56 EB ?05: xba5037 F83E57 A0 F8 LDY #.SEG.FCon1E05038 F83E59 20 62 3D JSR _MovMem2F ; FAC = 1e0..1e75039 F83E5C ACC165040 F83E5C C2 20 rep #PMFLAG5041 .LONGA on5042 .MNLIST5043 F83E5E A5 5E lda FPExp ; divide FPExp x 85044 F83E60 4A LSR A5045 F83E61 4A LSR A5046 F83E62 4A LSR A5047 F83E63 85 5E STA FPExp5048 F83E65 A9 F8 44 LDA #FCon1E85049 F83E68 85 3C STA FPWTmp7 ; indirizzo 1E85050 F83E6A ACC085051 F83E6A E2 20 sep #PMFLAG5052 .LONGA off5053 .MNLIST5054 F83E6C 80 22 BRA ?115055 F83E6E 46 5F ?08: LSR FPExp+1 ; divide x 25056 F83E70 66 5E ROR FPExp5057 F83E72 90 11 BCC ?105058 F83E74 A5 3D LDA FPWTmp7+1 ; FAC = FAC * (1E8..1E4096)Tue Jul 17 11:00:16 2018 Page 455059 F83E76 EB xba5060 F83E77 A5 3C LDA FPWTmp75061 F83E79 A0 F8 LDY #.SEG.FCon1E05062 F83E7B 20 E9 38 JSR _feMULM5063 F83E7E B0 BF BCS ?04a ; eccezione -> esce5064 F83E805065 F83E80 20 43 38 jsr _Round ; ****5066 F83E83 B0 BA BCS ?04a ; ****5067 F83E855068 F83E85 18 ?10: CLC5069 F83E86 A5 3C LDA FPWTmp75070 F83E88 69 0A ADC #105071 F83E8A 85 3C STA FPWTmp75072 F83E8C 90 02 BCC ?115073 F83E8E E6 3D INC FPWTmp7+15074 F83E90 A5 5E ?11: LDA FPExp5075 F83E92 05 5F ORA FPExp+15076 F83E94 D0 D8 BNE ?085077 F83E96 20 11 3D jsr _MovTmp2A ; FAC temporaneo -> ARG5078 F83E99 24 3E bit FPWTmp8 ; segno5079 F83E9B 30 05 bmi ?125080 F83E9D 20 EC 38 jsr _feMUL5081 F83EA0 80 03 bra ?145082 F83EA2 20 30 3A ?12: jsr _feDIV5083 F83EA5 4C 43 38 ?14: jmp _Round50845085 ;-------------------------------------------------------------5086 ; Scala FAC in modo che sia 1E18 <= FAC <= MAX UINT5087 ;-------------------------------------------------------------50885089 ; _feSCALE10 - scala FAC e calcola esponente decimale5090 ; In - FAC positivo5091 ; Out - 1E18 <= FAC <= MAX UINT5092 ; XVDec -> esponente decimale (signed)5093 ; Se FAC >= 1E19 XVDec va incrementato5094 ; NOTA - ARG, ACM, IARG distrutti5095 F83EA8 _feSCALE10:5096 ; si determina una stima per difetto dell'esponente decimale.5097 ; Per il calcolo approssimato si esegue la moltiplicazione (signed)5098 ; di [LOG10(2) * $10000] per esponente di FAC5099 F83EA8 ACC165100 F83EA8 C2 20 rep #PMFLAG5101 .LONGA on5102 .MNLIST5103 F83EAA 38 sec ; depolarizzazione esponente5104 F83EAB A5 4A lda FACExp5105 F83EAD E9 FF 3F sbc #EXPBIAS5106 F83EB0 85 18 sta ACM ; ACM, ACM+1 -> esponente5107 F83EB2 A9 10 4D lda #LOG2H ; LOG10(2) * $100005108 F83EB5 85 28 sta IARG5109 F83EB7 ACC085110 F83EB7 E2 20 sep #PMFLAG5111 .LONGA off5112 .MNLIST5113 F83EB9 20 A4 2A jsr _iSMult16 ; signed mult 16 x 165114 F83EBC5115 ; la stima dell'esponente si trova nei 16 bit alti del risultatoTue Jul 17 11:00:16 2018 Page 465116 F83EBC ACC165117 F83EBC C2 20 rep #PMFLAG5118 .LONGA on5119 .MNLIST5120 F83EBE A5 1A lda ACM+25121 F83EC0 85 14 sta XVDec5122 F83EC25123 ; si calcola ora lo scalamento di FAC per fare in modo che sia5124 ; compreso tra 1E18 ed 1E195125 F83EC2 38 sec5126 F83EC3 A9 12 00 lda #MAXDIGITS-15127 F83EC6 E5 14 sbc XVDec5128 F83EC85129 ; C = potenza di 10 per scalare FAC5130 F83EC8 ACC085131 F83EC8 E2 20 sep #PMFLAG5132 .LONGA off5133 .MNLIST5134 F83ECA 20 F4 3D jsr _fePOW10 ; scala FAC e arrotonda5135 F83ECD A9 44 lda #.HIGH.FCon1E195136 F83ECF EB xba5137 F83ED0 A9 9E lda #.LOW.FCon1E19 ; confronta FAC con 1E195138 F83ED2 A0 F8 ldy #.SEG.FCon1E195139 F83ED4 20 94 3C jsr _feCMPM5140 F83ED7 30 18 bmi ?40 ; FAC < 1E19 => test FAC >= 1E185141 F83ED9 ACC165142 F83ED9 C2 20 rep #PMFLAG5143 .LONGA on5144 .MNLIST5145 F83EDB A5 4A lda FACExp ; situazione in cui ci sono5146 F83EDD C9 3E 40 cmp #BIASQWORD ; 20 cifre significative5147 F83EE0 ACC085148 F83EE0 E2 20 sep #PMFLAG5149 .LONGA off5150 .MNLIST5151 F83EE2 F0 27 beq ?50 ; 1E19 <= FAC <= MAX UINT (20 digit)5152 F83EE4 20 19 3A jsr _feDIV10 ; FAC > MAX UINT => FAC = FAC/105153 F83EE7 20 43 38 jsr _Round5154 F83EEA ACC165155 F83EEA C2 20 rep #PMFLAG5156 .LONGA on5157 .MNLIST5158 F83EEC E6 14 inc XVDec ; incrementa esp. decimale5159 F83EEE ACC085160 F83EEE E2 20 sep #PMFLAG5161 .LONGA off5162 .MNLIST5163 F83EF0 60 rts5164 F83EF1 A9 44 ?40: lda #.HIGH.FCon1E185165 F83EF3 EB xba5166 F83EF4 A9 94 lda #.LOW.FCon1E18 ; confronta FAC con 1E185167 F83EF6 A0 F8 ldy #.SEG.FCon1E185168 F83EF8 20 94 3C jsr _feCMPM5169 F83EFB 10 0E bpl ?50 ; FAC > 1E185170 F83EFD F0 0C beq ?50 ; FAC = 1E185171 F83EFF 20 E4 39 jsr _feMUL10 ; FAC = FAC * 105172 F83F02 20 43 38 jsr _RoundTue Jul 17 11:00:16 2018 Page 475173 F83F05 ACC165174 F83F05 C2 20 rep #PMFLAG5175 .LONGA on5176 .MNLIST5177 F83F07 C6 14 dec XVDec ; decrementa esp. decimale5178 F83F09 ACC085179 F83F09 E2 20 sep #PMFLAG5180 .LONGA off5181 .MNLIST5182 F83F0B 60 ?50: rts5183 F83F0C5184 ;-------------------------------------------------------------5185 ; CONVERSIONE DA FLOAT POINT NUMBER A INTEGER 64 BIT5186 ;-------------------------------------------------------------51875188 ; Converte FAC in UNSIGNED INTEGER 64 bit5189 ; In: FAC5190 ; Out: INTEGER con MSB in IARG+7, LSB in IARG5191 ; Y = 05192 ; CF = 1 in caso di errore (overflow)5193 ; Uso: A,X,Y - FAC distrutto5194 ; Note: La conversione avviene mediante shift a destra fino5195 ; a quando la parte frazionaria e' fuori mantissa5196 ; L'esponente deve essere compreso tra $00 e $3F5197 F83F0C _feFAC2I:5198 F83F0C ACC165199 F83F0C C2 20 rep #PMFLAG5200 .LONGA on5201 .MNLIST5202 F83F0E 64 28 STZ IARG ; azzera risultato5203 F83F10 64 2A STZ IARG+25204 F83F12 64 2C STZ IARG+45205 F83F14 64 2E STZ IARG+65206 F83F16 A5 4A lda FACExp5207 F83F18 F0 38 beq ?10 ; result = 0 -- OK (CF = 0)5208 F83F1A C9 FF 3F cmp #EXPBIAS ; EXP < 0 => result = 0 (CF = 0)5209 F83F1D 90 33 bcc ?105210 F83F1F C9 3F 40 cmp #BIASQWORD+15211 F83F22 B0 32 bcs ?20 ; EXP > $3F => overflow (CF = 1)5212 F83F24 38 SEC ; depolarizza esponente5213 F83F25 E9 FF 3F SBC #EXPBIAS5214 F83F28 ACC08 ; B = 0, A = 00..3F5215 F83F28 E2 20 sep #PMFLAG5216 .LONGA off5217 .MNLIST5218 F83F2A E9 40 SBC #FACMBITS ; A = numero shift a destra (negativo)5219 F83F2C 1A inc a5220 F83F2D F0 11 beq ?05 ; no shift -- copia FAC in IARG5221 F83F2F A2 41 LDX #FAC ; puntatore FAC5222 F83F31 C9 F9 CMP #$F9 ; numero di shift a destra5223 F83F33 10 05 BPL ?02 ; shift bit x bit5224 ; qui CF = 05225 F83F35 20 C8 38 JSR _RShiftXB ; shift byte x byte5226 F83F38 80 06 BRA ?055227 F83F3A A8 ?02: TAY5228 F83F3B F0 03 BEQ ?05 ; nessuno shift da effettuare5229 F83F3D 20 D5 38 JSR _RShiftXNTue Jul 17 11:00:16 2018 Page 485230 F83F40 ?05: ACC165231 F83F40 C2 20 rep #PMFLAG5232 .LONGA on5233 .MNLIST5234 F83F42 A5 42 lda FACM5235 F83F44 85 28 sta IARG5236 F83F46 A5 44 lda FACM+25237 F83F48 85 2A sta IARG+25238 F83F4A A5 46 lda FACM+45239 F83F4C 85 2C sta IARG+45240 F83F4E A5 48 lda FACM+65241 F83F50 85 2E sta IARG+65242 F83F52 ?10: ACC085243 F83F52 E2 20 sep #PMFLAG5244 .LONGA off5245 .MNLIST5246 F83F54 18 CLC5247 F83F55 60 RTS5248 F83F56 ?20: ACC085249 F83F56 E2 20 sep #PMFLAG5250 .LONGA off5251 .MNLIST5252 F83F58 38 SEC5253 F83F59 60 RTS52545255 ;-------------------------------------------------------------5256 ; CONVERSIONE DA STRINGA A FLOATING POINT NUMBER5257 ;-------------------------------------------------------------52585259 F83F5A _Str2Fl:5260 F83F5A CPU085261 F83F5A E2 30 sep #(PMFLAG.OR.PXFLAG)5262 .LONGA off5263 .LONGI off5264 .MNLIST5265 F83F5C C2 C3 rep #(PNFLAG.OR.PVFLAG.OR.PCFLAG.OR.PZFLAG)5266 F83F5E 08 php5267 F83F5F 8B phb ; salva DBR5268 F83F60 0B phd ; salva DPR5269 F83F61 F4 00 02 pea #DP02ADDR ; imposta DPR a pag 25270 F83F64 2B pld5271 F83F65 A0 00 ldy #05272 F83F67 5A phy5273 F83F68 AB plb ; imposta DBR su banco 05274 F83F695275 ; relativo stack: 01 -> DPR, 03 -> DBR, 04 -> P52765277 F83F69 ACC165278 F83F69 C2 20 rep #PMFLAG5279 .LONGA on5280 .MNLIST5281 F83F6B 85 60 sta PTR1 ; long ptr stringa5282 F83F6D 64 5E stz FPExp5283 F83F6F ACC085284 F83F6F E2 20 sep #PMFLAG5285 .LONGA off5286 .MNLISTTue Jul 17 11:00:16 2018 Page 495287 F83F71 86 62 stx PTR1+25288 F83F73 20 B0 3B jsr _feLDZ ; azzera FAC5289 F83F76 64 63 stz FPFlag5290 F83F78 64 4F stz FPDCnt5291 F83F7A A0 FF LDY #$FF5292 F83F7C C8 ?02: INY5293 F83F7D C0 7F CPY #MAXDECSTR5294 F83F7F 90 03 bcc ?02a5295 F83F81 4C 0F 40 jmp ?15 ; fine stringa5296 F83F84 B7 60 ?02a: LDA [PTR1],Y ; elimina spazi iniziali5297 F83F86 D0 03 bne ?02b5298 F83F88 4C 0F 40 jmp ?15 ; fine stringa5299 F83F8B C9 20 ?02b: CMP #' '5300 F83F8D F0 ED BEQ ?02 ; scarta spazio5301 F83F8F C9 2B CMP #'+'5302 F83F91 F0 08 BEQ ?03 ; scarta segno +5303 F83F93 C9 2D CMP #'-'5304 F83F95 D0 09 BNE ?045305 F83F97 A9 80 lda #$805306 F83F99 04 63 tsb FPFLAG ; FPFLAG[7] = segno - mantissa5307 F83F9B C8 ?03: INY ; next char5308 F83F9C C0 7F CPY #MAXDECSTR5309 F83F9E F0 6F BEQ ?155310 F83FA0 B7 60 ?04: LDA [PTR1],Y ; carica digit5311 F83FA2 F0 6B BEQ ?15 ; fine stringa5312 F83FA4 38 SEC ; next digit decimale5313 F83FA5 E9 3A SBC #('0'+10)5314 F83FA7 18 CLC5315 F83FA8 69 0A ADC #105316 F83FAA 90 1F BCC ?06 ; no digit5317 F83FAC AA tax ; X = digit5318 F83FAD A9 20 lda #$205319 F83FAF 24 63 bit FPFLAG ; test bit 55320 F83FB1 D0 0C bne ?05 ; processa digit esponente5321 F83FB3 A9 10 lda #$105322 F83FB5 04 63 tsb FPFLAG ; FPFLAG[4] -> flag digit mantissa5323 F83FB7 8A txa ; A = digit5324 F83FB8 20 7D 40 JSR _AddDigit ; aggiunge digit a FAC5325 F83FBB 90 DE bcc ?03 ; ok, next char5326 F83FBD B0 47 bcs ?12 ; errore overflow, fine processo5327 ?05: ; processa digit esponente5328 F83FBF A9 04 lda #$045329 F83FC1 04 63 tsb FPFLAG ; FPFLAG[2] -> flag digit esponente5330 F83FC3 8A txa ; A = digit5331 F83FC4 20 9D 40 JSR _AddExpDigit5332 F83FC7 90 D2 BCC ?03 ; ok, next exp digit5333 F83FC9 B0 3B BCS ?12 ; overflow esponente, fine processo5334 ?06: ; no digit: test per dot decimale o esponente5335 F83FCB 69 30 ADC #'0'5336 F83FCD C9 2E CMP #'.'5337 F83FCF D0 10 BNE ?075338 ; char corrente '.' -- se non vi sono digit precedenti -> errore5339 F83FD1 A9 10 lda #$105340 F83FD3 24 63 bit FPFLAG ; test bit 45341 F83FD5 F0 3C BEQ ?20 ; non vi sono digit precedenti -> errore5342 F83FD7 24 63 BIT FPFLAG ; test dot gia' presente5343 F83FD9 70 38 BVS ?20 ; dot gia' processato -> erroreTue Jul 17 11:00:16 2018 Page 505344 F83FDB A9 40 lda #$405345 F83FDD 04 63 tsb FPFLAG ; set bit 6 -> dot5346 F83FDF 80 BA bra ?03 ; next char5347 F83FE1 C9 45 ?07: CMP #'E'5348 F83FE3 F0 04 BEQ ?08 ; -> esponente5349 F83FE5 C9 65 CMP #'e'5350 F83FE7 D0 2A BNE ?20 ; carattere illegale -> errore5351 ; processa esponente decimale5352 F83FE9 A9 10 ?08: lda #$105353 F83FEB 24 63 bit FPFLAG ; test bit 45354 F83FED F0 24 BEQ ?20 ; non vi sono digit precedenti -> errore5355 F83FEF A9 20 lda #$205356 F83FF1 04 63 tsb FPFLAG ; FPFLAG[5] -> flag esponente5357 F83FF3 C8 INY ; next char5358 F83FF4 B7 60 LDA [PTR1],y5359 F83FF6 F0 17 BEQ ?15 ; fine stringa5360 F83FF8 C9 2B CMP #'+'5361 F83FFA F0 9F BEQ ?03 ; scarta segno +5362 F83FFC C9 2D CMP #'-'5363 F83FFE D0 A0 BNE ?04 ; processa stesso char5364 F84000 A9 08 lda #$085365 F84002 04 63 tsb FPFLAG ; FPFLAG[3] = segno - esponente5366 F84004 80 95 BRA ?035367 F840065368 ?12: ; processa errore di overflow5369 F84006 84 3B STY FPIndx ; salva indice stringa5370 F84008 A6 63 ldx FPFLAG ; segno attuale per INF5371 F8400A 20 73 3B JSR _feLDINF ; FAC = +/- INF5372 F8400D 80 58 BRA ?99 ; esce5373 F8400F5374 ; entry fine stringa5375 F8400F A9 02 ?15: lda #$025376 F84011 04 63 tsb FPFLAG ; FPFLAG[1] -> flag fine stringa5377 F840135378 ; entry per fine prematura processo scansione5379 F84013 84 3B ?20: STY FPIndx ; salva indice Y5380 F84015 A9 10 lda #$105381 F84017 24 63 bit FPFLAG ; test bit 45382 F84019 D0 05 bne ?22 ; OK mantissa presente5383 F8401B 20 86 3B ?21: JSR _feLDNAN ; numero non valido -> invalid5384 F8401E 80 47 BRA ?99 ; esce5385 F840205386 F84020 A9 20 ?22: lda #$205387 F84022 24 63 bit FPFLAG ; test bit 55388 F84024 F0 06 beq ?25 ; OK - no forma exp5389 F84026 A9 04 lda #$045390 F84028 24 63 bit FPFLAG ; test bit 25391 F8402A F0 EF beq ?21 ; errore -- forma exp ma mancano digit exp53925393 ?25: ; sintatticamente la conversione sembra corretta5394 ; si verificano ora le condizioni di overflow5395 F8402C ACC165396 F8402C C2 20 rep #PMFLAG5397 .LONGA on5398 .MNLIST5399 F8402E A5 5E lda FPExp5400 F84030 C9 87 13 cmp #EXP10LIMTue Jul 17 11:00:16 2018 Page 515401 F84033 ACC085402 F84033 E2 20 sep #PMFLAG5403 .LONGA off5404 .MNLIST5405 F84035 B0 CF bcs ?12 ; overflow5406 F84037 38 SEC5407 F84038 A9 00 LDA #0 ; cambia segno al numero di digit decimali5408 F8403A E5 4F SBC FPDCNT5409 F8403C 85 38 STA FPWTmp5 ; salva -N (cifre dopo il punto decimale)5410 F8403E A9 00 LDA #05411 F84040 E9 00 SBC #05412 F84042 85 39 STA FPWTmp5+15413 F84044 A9 08 ?27: lda #$085414 F84046 24 63 bit FPFLAG ; test bit 35415 F84048 ACC165416 F84048 C2 20 rep #PMFLAG5417 .LONGA on5418 .MNLIST5419 F8404A F0 08 beq ?30 ; exp positivo5420 F8404C 38 SEC5421 F8404D A9 00 00 lda #05422 F84050 E5 5E sbc FPExp5423 F84052 85 5E sta FPExp ; esponente negativo, cambia segno5424 F84054 18 ?30: CLC5425 F84055 A5 5E lda FPExp5426 F84057 65 38 adc FPWTmp5 ; E = E + (-N)5427 F84059 ACC085428 F84059 E2 20 sep #PMFLAG5429 .LONGA off5430 .MNLIST5431 F8405B 20 F4 3D JSR _fePOW105432 F8405E B0 A6 bcs ?12 ; overflow5433 F84060 A6 63 ldx FPFLAG5434 F84062 86 40 stx FACSGN5435 F84064 20 FF 3B jsr _feXAM ; get flag FAC5436 F84067 08 ?99: php ; salva flag5437 F84068 68 pla ; A = flag5438 F84069 29 C3 and #$C3 ; maschera on N,V,C,Z5439 F8406B 03 04 ora $04,s ; imposta N,V,C,Z nello stack5440 F8406D 83 04 sta $04,s5441 F8406F ACC165442 F8406F C2 20 rep #PMFLAG5443 .LONGA on5444 .MNLIST5445 F84071 A5 60 lda PTR15446 F84073 ACC085447 F84073 E2 20 sep #PMFLAG5448 .LONGA off5449 .MNLIST5450 F84075 A6 62 ldx PTR1+2 ; CX => long ptr stringa5451 F84077 A4 3B ldy FPIndx ; Y = indice primo chr dove si arresta conv.5452 F84079 2B pld ; restore DPR5453 F8407A AB plb ; restore DBR5454 F8407B 28 plp ; restore flag conversione5455 F8407C 60 RTS54565457 ; esegue FAC = A + (FAC * 10)Tue Jul 17 11:00:16 2018 Page 525458 F8407D _AddDigit:5459 F8407D 5A PHY ; salva Y5460 F8407E 48 PHA ; salva A5461 F8407F 24 63 BIT FPFLAG ; FPFLAG[6] -> dot decimale5462 F84081 50 02 BVC ?015463 F84083 E6 4F INC FPDCNT ; incrementa contatore digit5464 F84085 20 E4 39 ?01: JSR _feMUL10 ; FAC = FAC * 105465 F84088 B0 10 bcs ?04 ; errore5466 F8408A 20 DE 3D JSR _MovRndF2A ; copia FAC arrotondato in ARG5467 F8408D B0 0B bcs ?04 ; errore5468 F8408F 68 PLA ; ripristina A5469 F84090 20 BF 40 JSR _Byte2FAC ; converte byte in float5470 F84093 B0 03 bcs ?025471 F84095 20 04 37 JSR _feADD ; FAC = (FAC * 10) + A5472 F84098 7A ?02: PLY ; ripristina Y5473 F84099 60 RTS5474 F8409A 68 ?04: pla5475 F8409B 7A ply5476 F8409C 60 rts5477 F8409D5478 ; Aggiunge un digit all'esponente FPExp5479 ; In - A = digit5480 ; - FPExp = esponente5481 ;5482 ; Out - FPExp = (FPExp * 10) + A5483 ; In caso di overflow -> CF = 15484 F8409D _AddExpDigit:5485 F8409D EB xba5486 F8409E A9 00 lda #05487 F840A0 EB xba ; B = 05488 F840A1 ACC165489 F840A1 C2 20 rep #PMFLAG5490 .LONGA on5491 .MNLIST5492 F840A3 48 PHA ; salva C5493 F840A4 A5 5E LDA FPExp ; salva FPExp5494 F840A6 85 38 STA FPWTmp55495 F840A8 0A asl a ; FPExp * 25496 F840A9 B0 0A bcs ?015497 F840AB 0A asl a ; FPExp * 45498 F840AC B0 07 bcs ?015499 F840AE 65 38 adc FPWTmp5 ; FPExp * 55500 F840B0 B0 03 bcs ?015501 F840B2 0A asl a ; FPExp * 105502 F840B3 85 5E sta FPExp5503 F840B5 68 ?01: pla ; ripristina C5504 F840B6 B0 04 bcs ?025505 F840B8 65 5E adc FPExp ; FPExp * 10 + A5506 F840BA 85 5E sta FPExp5507 F840BC ?02: ACC085508 F840BC E2 20 sep #PMFLAG5509 .LONGA off5510 .MNLIST5511 F840BE 60 rts55125513 ; converte byte in floating point5514 ; In: A = byteTue Jul 17 11:00:16 2018 Page 535515 ; Out: FAC5516 ; Uso: A,X,Y5517 F840BF _Byte2FAC:5518 F840BF 85 49 STA FAC+85519 F840C1 64 48 STZ FAC+75520 F840C3 64 41 STZ FACEXT5521 F840C5 64 40 STZ FACSGN5522 F840C7 ACC165523 F840C7 C2 20 rep #PMFLAG5524 .LONGA on5525 .MNLIST5526 F840C9 64 46 STZ FAC+55527 F840CB 64 44 STZ FAC+35528 F840CD 64 42 STZ FAC+15529 F840CF A9 06 40 LDA #BIASBYTE5530 F840D2 85 4A STA FACExp5531 F840D4 ACC085532 F840D4 E2 20 sep #PMFLAG5533 .LONGA off5534 .MNLIST5535 F840D6 4C D9 37 JMP _Normalize55365537 ;-------------------------------------------------------------5538 ; CONVERSIONE DA FLOAT POINT NUMBER A STRINGA DECIMALE5539 ;-------------------------------------------------------------55405541 ; _feFAC2S - converte FAC in stringa decimale5542 ; In - FAC caricato o da operazione precedente5543 ; A<7> -> 0 (utilizzato per segno FAC)5544 ; A<6> -> formato G $405545 ; A<5> -> formato F (se <6> = 0) $205546 ; A<4> -> formato alternativo # $105547 ; A<3> -> CAPS formato (G, F, E) $085548 ; A<2> -> formato a/A $045549 ; A<1> -> blank se positivo $025550 ; A<0> -> segno '+'/blank se positivo $015551 ; X -> precisione richiesta5552 ; DPR -> DP02ADDR (pagina 02)5553 ; DBR -> banco 05554 ;5555 ; Out - XCVTStr -> stringa decimale formattata5556 ; A = Y = lunghezza stringa5557 ; X = puntatore stringa5558 F840D9 _feFAC2S:5559 F840D9 29 7F and #$7F ; <7> -> segno FAC = 05560 F840DB 85 16 sta XVFlag ; salva flag5561 F840DD 89 04 bit #$045562 F840DF F0 03 beq ?005563 F840E1 4C F5 43 jmp aform ; formato a/A5564 ?00: ; X = precisione5565 F840E4 E0 30 cpx #XCVTMAXF+1 ; limite preventivo alla precisione5566 F840E6 90 02 bcc ?015567 F840E8 A2 2F ldx #XCVTMAXF5568 F840EA 24 16 ?01: bit XVFlag ; <6> -> VF test richiesta formato G5569 F840EC 50 05 bvc ?01b ; no G5570 F840EE 9B txy5571 F840EF F0 08 beq ?01c ; formato G -> se prec. = 0 -> prec = 1Tue Jul 17 11:00:16 2018 Page 545572 F840F1 D0 07 bne ?01z ; store prec. formato G5573 F840F3 A9 20 ?01b: lda #$20 ; richiesto formato E ?5574 F840F5 24 16 bit XVFlag5575 F840F7 D0 01 bne ?01z ; NO -- store prec5576 F840F9 E8 ?01c: inx ; formato E incrementa precisione5577 ; dato che ha sempre un digit prima del dot5578 F840FA 86 0A ?01z: stx FmtPrec ; precisione richiesta (provvisoria)5579 ; la precisione per il formato F puo' essere controllata solo5580 ; dopo che e' stato determinato il numero di decimali5581 F840FC 24 40 bit FACSGN ; testo segno FAC5582 F840FE 10 04 bpl ?02 ; positivo5583 F84100 A9 80 lda #$80 ; <7> -> segno FAC = 15584 F84102 04 16 tsb XVFlag ; imposta segno negativo5585 F84104 64 40 ?02: stz FACSGN ; FAC = ABS(FAC)5586 F84106 20 FF 3B jsr _feXAM ; esamina FAC5587 F84109 F0 44 beq ?06 ; zero5588 F8410B B0 04 bcs ?03 ; NAN/INF5589 F8410D 70 40 bvs ?06 ; denormal => round to zero5590 F8410F 50 65 bvc ?16 ; normale e valido5591 F84111 08 ?03: php ; salva V5592 F84112 20 43 42 jsr storesgn5593 F84115 BB tyx ; X = indice stringa XCVTStr5594 F84116 A0 00 ldy #05595 F84118 A9 08 lda #$08 ; test CAPS5596 F8411A 24 16 bit XVFlag5597 F8411C D0 02 bne ?04 ; CAPS ON -> maiuscolo5598 F8411E A0 20 ldy #$20 ; converte in minuscolo5599 F84120 84 24 ?04: sty FPTmp15600 F84122 28 plp ; ripristina V5601 F84123 50 0B bvc ?04a ; NAN5602 F84125 A9 46 lda #'F' ; store INF/inf5603 F84127 85 25 sta FPTmp25604 F84129 A9 4E lda #'N'5605 F8412B EB xba5606 F8412C A9 49 lda #'I'5607 F8412E 80 09 bra ?055608 F84130 A9 4E ?04a: lda #'N' ; store NAN/nan5609 F84132 85 25 sta FPTmp25610 F84134 A9 41 lda #'A'5611 F84136 EB xba5612 F84137 A9 4E lda #'N'5613 F84139 05 24 ?05: ora FPTmp15614 F8413B 95 86 sta <XCVTStr,x5615 F8413D E8 inx5616 F8413E EB xba5617 F8413F 05 24 ora FPTmp15618 F84141 95 86 sta <XCVTStr,x5619 F84143 E8 inx5620 F84144 A5 25 lda FPTmp25621 F84146 05 24 ora FPTmp15622 F84148 95 86 sta <XCVTStr,x5623 F8414A E8 inx5624 F8414B 9B txy ; Y = lunghezza stringa5625 F8414C 4C 3D 42 jmp ?100 ; termina stringa ed esce5626 F8414F5627 ; zero o arrotondato a zero5628 F8414F A9 80 ?06: lda #$80 ; <7> -> segno FAC = 0Tue Jul 17 11:00:16 2018 Page 555629 F84151 14 16 trb XVFlag ; ZERO solo POSITIVO5630 F84153 24 16 bit XVFlag5631 F84155 50 04 bvc ?07 ; no formato G5632 F84157 A9 20 lda #$20 ; forza formato F se G true5633 F84159 04 16 tsb XVFlag5634 F8415B A2 14 ?07: ldx #MAXINTDGTS5635 F8415D E4 0A cpx FmtPrec5636 F8415F 90 04 bcc ?07a5637 F84161 F0 02 beq ?07a5638 F84163 A6 0A ldx FmtPrec ; numero di '0'5639 F84165 74 71 ?07a: stz FPUStr+1,x ; terminatore stringa5640 F84167 CA dex5641 F84168 A9 30 lda #'0' ; stringa di '0'5642 F8416A 95 71 ?08: sta FPUStr+1,x5643 F8416C CA dex5644 F8416D 10 FB bpl ?085645 F8416F 64 14 stz XVDec ; numero decimali5646 F84171 64 15 stz XVDec+15647 F84173 4C 27 42 jmp ?90 ; converte5648 F841765649 ; numero float normale -- si scala FAC in modo che sia:5650 ; 1E18 <= FAC <= MAX UINT (19/20 cifre significative)5651 F84176 20 A8 3E ?16: jsr _feSCALE105652 F84179 20 0C 3F jsr _feFAC2I ; converte in intero tra 1E18 e MAX UINT5653 F8417C ACC16 ; copia IARG in FOP5654 F8417C C2 20 rep #PMFLAG5655 .LONGA on5656 .MNLIST5657 F8417E A5 28 lda IARG5658 F84180 85 32 sta FOP5659 F84182 A5 2A lda IARG+25660 F84184 85 34 sta FOP+25661 F84186 A5 2C lda IARG+45662 F84188 85 36 sta FOP+45663 F8418A A5 2E lda IARG+65664 F8418C 85 38 sta FOP+65665 F8418E ACC085666 F8418E E2 20 sep #PMFLAG5667 .LONGA off5668 .MNLIST5669 F841905670 ; a questo punto 1E18 <= IARG <= MAX UINT e si converte intero5671 ; in stringa decimale con 19/20 digits significativi5672 ; il punto decimale implicito si trova dopo il secondo digit5673 F84190 20 6C 31 jsr _UI2Str ; punto decimale dopo secondo digit5674 ; A = lunghezza stringa (19 o 20)5675 ; Y = ptr primo digit5676 F84193 C9 13 cmp #MAXDIGITS5677 F84195 F0 08 beq ?52 ; 19 digit significativi5678 F84197 ACC16 ; 20 digit significativi5679 F84197 C2 20 rep #PMFLAG5680 .LONGA on5681 .MNLIST5682 F84199 E6 14 inc XVDec ; incrementa esponente decimale5683 F8419B ACC08 ; e il punto decimale sta dopo primo digit5684 F8419B E2 20 sep #PMFLAG5685 .LONGA offTue Jul 17 11:00:16 2018 Page 565686 .MNLIST5687 F8419D 80 11 bra ?565688 F8419F A2 00 ?52: ldx #05689 F841A1 B5 72 ?54: lda <FPUStr+2,x ; trasla indietro stringa di 19 digit5690 F841A3 F0 05 beq ?55 ; terminatore #05691 F841A5 95 71 sta <FPUStr+1,x5692 F841A7 E8 inx5693 F841A8 80 F7 bra ?545694 F841AA A9 30 ?55: lda #'0' ; aggiunge uno zero per avere 20 cifre5695 F841AC 95 71 sta <FPUStr+1,x5696 F841AE 74 72 stz <FPUStr+2,x ; termina stringa5697 ?56: ; a questo punto la conversione ha prodotto una stringa decimale base5698 ; di lunghezza fissa pari a 20 caratteri.5699 ; in base alla precisione e al formato richiesti occorre arrotondare5700 ; opportunamente il numero e decidere il formato corretto5701 F841B0 A5 0A lda FmtPrec ; estende FmtPrec a 16 bit5702 F841B2 85 5C sta FPWTmp5703 F841B4 64 5D stz FPWTmp+15704 F841B6 24 16 bit XVFlag ; <6> -> VF test richiesta formato G5705 F841B8 50 07 bvc ?70 ; no formato G5706 F841BA 20 5D 42 jsr testg5707 F841BD B0 2B bcs ?80 ; imposta formato E -- round con FmtPrec5708 F841BF 90 17 bcc ?72 ; test max esponente positivo formato F5709 F841C1 A9 20 ?70: lda #$20 ; test formato F5710 F841C3 24 16 bit XVFlag5711 F841C5 F0 23 beq ?80 ; NO -- richiesto formato E, round con FmtPrec5712 F841C7 ACC16 ; calcola digit round5713 F841C7 C2 20 rep #PMFLAG5714 .LONGA on5715 .MNLIST5716 F841C9 18 clc5717 F841CA A5 14 lda XVDec ; somma signed5718 F841CC 65 5C adc FPWTmp5719 F841CE 1A inc a ; se negativo round to zero5720 F841CF 85 5C sta FPWTmp5721 F841D1 ACC085722 F841D1 E2 20 sep #PMFLAG5723 .LONGA off5724 .MNLIST5725 F841D3 10 03 bpl ?72 ; check formato F5726 F841D5 4C 4F 41 jmp ?06 ; Prec negtiva => round to zero5727 F841D8 ?72: ACC16 ; test esponente + formato F5728 F841D8 C2 20 rep #PMFLAG5729 .LONGA on5730 .MNLIST5731 F841DA 18 clc ; OK --5732 F841DB A5 14 lda XVDec5733 F841DD 30 03 bmi ?74 ; exp negativo -- ok5734 F841DF C9 24 00 cmp #MAXFDEC ; forza formato E5735 F841E2 ?74: ACC08 ; se esponente maggiore di un limite fisso5736 F841E2 E2 20 sep #PMFLAG5737 .LONGA off5738 .MNLIST5739 F841E4 90 04 bcc ?80 ; OK5740 F841E6 A9 20 lda #$20 ; clear flag formato F5741 F841E8 14 16 trb XVFlag ; e forza formato F se Exp >= MAXFDEC5742 F841EATue Jul 17 11:00:16 2018 Page 575743 ?80: ; indice digit da arrotondare (X = 0 possibile solo per formato F)5744 ; per come e' stato costruito FPWTmp, esso e' a 8 bit5745 F841EA A6 5C ldx FPWTmp ; 8 bit5746 F841EC E0 14 cpx #MAXINTDGTS ; round solo se necessario5747 F841EE B0 37 bcs ?90 ; no rounding5748 ; round alla cifra di indice X5749 F841F0 A0 30 ldy #'0'5750 F841F2 B5 71 lda <FPUStr+1,x5751 F841F4 74 71 stz <FPUStr+1,x ; tronca stringa alla precisione richiesta5752 F841F6 C9 35 cmp #'5'5753 F841F8 90 2D bcc ?90 ; no round5754 F841FA CA ?82: dex ; passa al digit precedente5755 F841FB 30 0F bmi ?88 ; oltre primo digit5756 F841FD B5 71 lda <FPUStr+1,x ; test digit precedente5757 F841FF 1A inc a ; round5758 F84200 C9 3A cmp #'9'+15759 F84202 90 04 bcc ?84 ; fine rounding5760 F84204 94 71 sty <FPUStr+1,x ; zero finale5761 F84206 B0 F2 bcs ?825762 F84208 95 71 ?84: sta <FPUStr+1,x ; salva digit arrotondato5763 F8420A 90 1B bcc ?90 ; fine rounding5764 ?88: ; il rounding ha generato un riporto5765 F8420C ACC165766 F8420C C2 20 rep #PMFLAG5767 .LONGA on5768 .MNLIST5769 F8420E E6 14 inc XVDec ; incrementa esponente decimale5770 F84210 ACC085771 F84210 E2 20 sep #PMFLAG5772 .LONGA off5773 .MNLIST5774 F84212 A9 31 lda #'1'5775 F84214 85 71 sta <FPUStr+1 ; store '1'5776 F84216 24 16 bit XVFlag ; <6> -> VF test richiesta formato G5777 F84218 50 03 bvc ?89 ; no formato G5778 F8421A 20 5D 42 jsr testg ; exp cambiato => testare limiti per F5779 F8421D A9 20 ?89: lda #$20 ; test formato F5780 F8421F 24 16 bit XVFlag5781 F84221 F0 04 beq ?905782 ; nel formato F puo' accadere che l'indice di rounding sia zero5783 ; in questo caso l'indice va incrementato e la stringa terminata5784 F84223 A6 5C ldx FPWTmp5785 F84225 74 72 stz <FPUStr+2,x ; termina sulla precisione richiesta5786 F84227 20 43 42 ?90: jsr storesgn5787 F8422A 84 3B sty FPIndx ; store indice primo digit5788 F8422C A2 00 ldx #05789 F8422E A9 20 lda #$205790 F84230 24 16 bit XVFlag5791 F84232 F0 05 beq ?92 ; formato E5792 F84234 20 7B 42 jsr fform ; formato F5793 F84237 80 03 bra ?945794 F84239 20 42 43 ?92: jsr eform5795 F8423C BB ?94: tyx5796 F8423D 74 86 ?100: stz <XCVTStr,x ; termina stringa5797 F8423F 98 tya5798 F84240 A2 86 ldx #XCVTStr5799 F84242 60 rtsTue Jul 17 11:00:16 2018 Page 5858005801 ; memorizza segno secondo i criteri di formattazione5802 F84243 storesgn:5803 F84243 A0 00 ldy #0 ; indice stringa XCVTStr5804 F84245 A5 16 lda XVFlag ; test segno5805 F84247 10 04 bpl ?02 ; positivo5806 F84249 A9 2D lda #'-' ; store '-'5807 F8424B D0 0B bne ?065808 F8424D 4A ?02: lsr a ; CF -> flag segno positivo5809 F8424E 90 0C bcc ?08 ; no segno se positivo5810 F84250 A2 2B ldx #'+' ; assume '+'5811 F84252 4A lsr a ; CF -> flag blank5812 F84253 90 02 bcc ?04 ; store '+'5813 F84255 A2 20 ldx #' ' ; store blank5814 F84257 8A ?04: txa5815 F84258 99 86 02 ?06: sta !DP02ADDR+XCVTStr,y5816 F8425B C8 iny5817 F8425C 60 ?08: rts58185819 ; testa formato G/g per scegliere F se Exp >= FmtPrec5820 ; Out - CF = 1 => formato E5821 ; CF = 0 => formato F5822 F8425D testg:5823 F8425D A9 20 lda #$20 ; <5> -> clear flag F5824 F8425F 14 16 trb XVFlag ; imposta formato E5825 F84261 ACC16 ; formato G sceglie automaticamente tra E e F5826 F84261 C2 20 rep #PMFLAG5827 .LONGA on5828 .MNLIST5829 F84263 A5 14 lda XVDec5830 F84265 30 04 bmi ?60 ; esponente decimale negativo5831 F84267 C5 5C cmp FPWTmp ; 16 bit compare5832 F84269 80 07 bra ?62 ; C = 1 esponente >= precisione -> formato E5833 ; C = 0 esponente < precisione -> formato F5834 F8426B 49 FF FF ?60: eor #$FFFF ; esponente negativo5835 F8426E 1A inc a ; complementa a 25836 F8426F C9 07 00 cmp #MAXFEXP ; esponente <= - max exp. neg. formato F ?5837 F84272 ?62: ACC085838 F84272 E2 20 sep #PMFLAG5839 .LONGA off5840 .MNLIST5841 F84274 B0 04 bcs ?64 ; imposta formato E -- round con FmtPrec5842 ; Exp < -MAXFEXP oppure Exp >= FmtPrec5843 ; _MAXFEXP <= Exp < FmtPrec => sgeglie formato F5844 F84276 A9 20 lda #$20 ; <5> -> flag F5845 F84278 04 16 tsb XVFlag ; imposta formato F5846 F8427A 60 ?64: rts58475848 ; converte numero float secondo formato f,F5849 ; In - X = 0 (indice FPUStr)5850 ; Y = indice corrente XCVTStr5851 ; NOTA - causa limiti imposti a FmtPrec sicuramente XVDec a 8 bit (signed)5852 F8427B fform:5853 F8427B A5 14 lda XVDec5854 F8427D 1A inc a5855 F8427E A9 14 lda #MAXINTDGTS ; padding formato G con exp. negativo5856 F84280 85 27 sta FPTmp4 ; padding formato G con exp. positivoTue Jul 17 11:00:16 2018 Page 595857 F84282 64 25 stz FPTmp25858 F84284 64 24 stz FPTmp1 ; counter digit frazionari5859 F84286 A6 14 ldx XVDec ; 8 bit5860 F84288 10 22 bpl ?06 ; esp > 0 -> parte integrale5861 F8428A A9 80 lda #$805862 F8428C 85 25 sta FPTmp2 ; flag solo parte frazionaria5863 F8428E A9 14 lda #MAXINTDGTS ; padding formato G con exp. negativo5864 F84290 85 27 sta FPTmp45865 F84292 A9 30 lda #'0'5866 F84294 99 86 02 sta !DP02ADDR+XCVTStr,y ; inizia con '0.'5867 F84297 C8 iny5868 F84298 A9 2E lda #'.'5869 F8429A 99 86 02 sta !DP02ADDR+XCVTStr,y5870 F8429D C8 iny5871 F8429E A9 30 lda #'0'5872 F842A0 E8 ?02: inx ; inc. esponente negativo5873 F842A1 F0 08 beq ?04 ; fine '0' iniziali5874 F842A3 99 86 02 sta !DP02ADDR+XCVTStr,y ; store '0' dopo '.'5875 F842A6 E6 24 inc FPTmp1 ; update cnt digit frazionari5876 F842A8 C8 iny5877 F842A9 D0 F5 bne ?025878 F842AB CA ?04: dex5879 F842AC E8 ?06: inx5880 F842AD 86 14 stx XVDec5881 ; si emette parte integrale o frazionaria da stringa arrotondata5882 F842AF A2 00 ldx #05883 F842B1 B5 71 ?08: lda <FPUStr+1,x5884 F842B3 F0 28 beq ?20 ; fine stringa5885 F842B5 99 86 02 sta !DP02ADDR+XCVTStr,y5886 F842B8 C8 iny5887 F842B9 E8 inx5888 F842BA 24 25 bit FPTmp25889 F842BC 10 04 bpl ?09 ; parte intera5890 F842BE E6 24 inc FPTmp1 ; counter digit frazionari5891 F842C0 80 EF bra ?08 ; continua parte frazionaria5892 F842C2 C6 14 ?09: dec XVDec ; se XVDec (8 bit) = 0 -> '.'5893 F842C4 D0 EB bne ?08 ; emette digit fino al '.'5894 F842C6 A9 2E lda #'.'5895 F842C8 99 86 02 sta !DP02ADDR+XCVTStr,y ; store '.'5896 F842CB C8 iny5897 F842CC A9 40 lda #$40 ; flag '.' nel mezzo5898 F842CE 04 25 tsb FPTmp25899 F842D0 B5 71 ?10: lda <FPUStr+1,x5900 F842D2 F0 09 beq ?20 ; fine stringa5901 F842D4 99 86 02 sta !DP02ADDR+XCVTStr,y5902 F842D7 E6 24 inc FPTmp1 ; counter digit frazionari5903 F842D9 C8 iny5904 F842DA E8 inx5905 F842DB D0 F3 bne ?105906 ?20: ; a questo punto sono state emesse tutte le cifre significative5907 ; dalla stringa decimale arrotondata5908 F842DD 24 25 bit FPTmp25909 F842DF 30 13 bmi ?30 ; forma 0.0000ffff5910 F842E1 70 11 bvs ?30 ; forma xxxx.ffff5911 ; sono state emesse solo cifre integrali e l'esponente non e' nullo5912 ; occorre emettere gli zeri fino ad annullare l'esponente5913 F842E3 A6 14 ldx XVDecTue Jul 17 11:00:16 2018 Page 605914 F842E5 A9 30 lda #'0'5915 F842E7 99 86 02 ?22: sta !DP02ADDR+XCVTStr,y5916 F842EA C8 iny5917 F842EB CA dex5918 F842EC D0 F9 bne ?225919 F842EE A9 2E lda #'.'5920 F842F0 99 86 02 sta !DP02ADDR+XCVTStr,y ; store '.'5921 F842F3 C8 iny5922 ?30: ; a questo punto la stringa decimale FPUStr+1 arrotondata e' stata5923 ; formattata in XCVTStr secondo le specifiche di precisione richieste5924 ; nel caso del formato F sono state emesse FPTmp1 cifre frazionarie5925 ; quindi occorre paddare la stringa con (FmtPrec - FPTmp1) '0' finali5926 ; con il formato G sono state emesse MIN(FmtPrec, MAXINTDGTS) cifre5927 ; totali, quindi occorre paddare la stringa con (FmtPrec - MAXINTDGTS)5928 ; '0' finali.5929 F842F4 64 26 stz FPTmp3 ; counter padding '0' finali5930 F842F6 38 sec5931 F842F7 A5 0A lda FmtPrec ; precisione richiesta5932 F842F9 24 16 bit XVFlag5933 F842FB 50 04 bvc ?34 ; no formato G specificato5934 F842FD A6 27 ldx FPTmp4 ; valore per formato G5935 F842FF 86 24 stx FPTmp15936 F84301 E5 24 ?34: sbc FPTmp15937 F84303 F0 17 beq ?40 ; FmtPrec - FPTmp1 = 0 => no padding5938 F84305 90 15 bcc ?40 ; FmtPrec - FPTmp1 < 0 => no padding5939 F84307 AA tax ; X => padding -- qui anche CF = 15940 F84308 84 24 sty FPTmp1 ; lunghezza attuale stringa5941 F8430A A9 2F lda #XCVTMAXF ; max. len5942 F8430C E5 24 sbc FPTmp1 ; A = bytes disponibili5943 F8430E F0 0C beq ?40 ; no bytes disponibili5944 F84310 90 0A bcc ?40 ; no bytes disponibili5945 F84312 85 24 sta FPTmp1 ; # bytes disponibili5946 F84314 E4 24 cpx FPTmp1 ; determina padding disponibile5947 F84316 90 02 bcc ?36 ; X = padding5948 F84318 A6 24 ldx FPTmp1 ; max. padding possibile5949 F8431A 86 26 ?36: stx FPTmp35950 ?40: ; a questo punto FPTmp3 contiene il numero di padding ed Y5951 ; la lunghezza attuale della stringa ed il prox. indice disponibile5952 ; se ultimo carattere emesso e' '.' e non ci sono altri digit da5953 ; emettere, il '.' finale va trimmato a meno che non sia stato5954 ; specificato il formato alternativo5955 F8431C A9 10 lda #$10 ; test formato alternativo5956 F8431E 24 16 bit XVFlag5957 F84320 D0 12 bne ?44 ; formato alt => no trim5958 F84322 88 dey ; indice last char5959 F84323 B9 86 02 lda !DP02ADDR+XCVTStr,y ; last char5960 F84326 C9 2E cmp #'.' ; last = '.' ?5961 F84328 D0 04 bne ?42 ; no -- trimma se formato G5962 F8432A A6 26 ldx FPTmp3 ; seguono '0' finali ?5963 F8432C F0 13 beq ?50 ; no -- trim '.' ed esce5964 F8432E C8 ?42: iny ; ripristina indice Y5965 ; si trimmano gli '0' finali se formato G/g e no alt. form.5966 F8432F 20 D6 43 jsr trimtrail5967 F84332 B0 0D bcs ?50 ; trim -> fine5968 ?44: ; a questo punto padding della stringa con '0' finali5969 F84334 A6 26 ldx FPTmp35970 F84336 F0 09 beq ?50 ; no paddingTue Jul 17 11:00:16 2018 Page 615971 F84338 A9 30 lda #'0'5972 F8433A 99 86 02 ?46: sta !DP02ADDR+XCVTStr,y ; store '0'5973 F8433D C8 iny5974 F8433E CA dex5975 F8433F D0 F9 bne ?465976 F84341 60 ?50: rts59775978 ; converte numero float secondo formato e,E5979 ; In - X = 0 (indice FPUStr+1)5980 ; Y = indice corrente XCVTStr (destinazione)5981 F84342 eform:5982 F84342 B5 71 lda <FPUStr+1,x5983 F84344 99 86 02 sta !DP02ADDR+XCVTStr,y ; store primo digit5984 F84347 E8 inx5985 F84348 C8 iny5986 F84349 A9 2E lda #'.' ; dopo il primo digit segue il '.'5987 F8434B EB xba ; B = '.'5988 F8434C B5 71 lda <FPUStr+1,x ; segue secondo digit ?5989 F8434E D0 0D bne ?02 ; si, secondo digit dopo '.'5990 F843505991 ; se non ci sono altri digit dopo il '.' allora non5992 ; viene emesso il '.' a meno che non sia specificato alt. form.5993 F84350 A9 10 lda #$10 ; test formato alt #5994 F84352 24 16 bit XVFlag5995 F84354 F0 37 beq ?50 ; no alt form # -> emette esponente5996 F84356 EB xba5997 F84357 99 86 02 sta !DP02ADDR+XCVTStr,y ; store '.'5998 F8435A C8 iny5999 F8435B 80 30 bra ?50 ; emette esponente6000 F8435D E8 ?02: inx6001 F8435E EB xba ; A = '.', B = secondo digit6002 F8435F 99 86 02 sta !DP02ADDR+XCVTStr,y ; store '.'6003 F84362 C8 iny6004 F84363 EB xba ; A = secondo digit6005 F84364 99 86 02 ?04: sta !DP02ADDR+XCVTStr,y ; store secondo digit e seguenti6006 F84367 C8 iny6007 F84368 B5 71 lda <FPUStr+1,x6008 F8436A F0 03 beq ?05 ; fine stringa digit6009 F8436C E8 inx6010 F8436D D0 F5 bne ?046011 F8436F6012 ?05: ; copiata la stringa di cifre significative -- ora si trimmano gli6013 ; '0' finali se formato G/g e no alt. form.6014 F8436F 20 D6 43 jsr trimtrail ; se trim non effettua padding6015 F84372 B0 19 bcs ?50 ; trim -> emette esponente6016 F843746017 ; padding della stringa con '0' finali -- nel formato E vengono6018 ; emessi al max. MAXINTDGTS digit significativi e la stringa6019 ; XCVTStr ha posto per XCVTMAXE char complessivi prima dell'esponente6020 F84374 A5 0A lda FmtPrec6021 F84376 C9 28 cmp #XCVTMAXE+16022 F84378 90 02 bcc ?05a6023 F8437A A9 27 lda #XCVTMAXE ; al massimo XCVTMAXE digit6024 F8437C 38 ?05a: sec6025 F8437D E9 14 sbc #MAXINTDGTS ; padding6026 F8437F F0 0C beq ?50 ; no padding6027 F84381 90 0A bcc ?50 ; no paddingTue Jul 17 11:00:16 2018 Page 626028 F84383 AA tax ; X = numero padding6029 F84384 A9 30 lda #'0'6030 F84386 99 86 02 ?06: sta !DP02ADDR+XCVTStr,y6031 F84389 C8 iny6032 F8438A CA dex6033 F8438B D0 F9 bne ?066034 F8438D6035 ?50: ; emette esponente decimale6036 F8438D A2 45 ldx #'E'6037 F8438F A9 08 lda #$08 ; test CAPS ON6038 F84391 24 16 bit XVFlag6039 F84393 D0 02 bne ?52 ; CAPS ON6040 F84395 A2 65 ldx #'e'6041 F84397 8A ?52: txa6042 F84398 99 86 02 sta !DP02ADDR+XCVTStr,y6043 F8439B C8 iny6044 F8439C A2 2B ldx #'+' ; assume esponente positivo6045 F8439E ACC166046 F8439E C2 20 rep #PMFLAG6047 .LONGA on6048 .MNLIST6049 F843A0 A5 14 lda XVDec6050 F843A2 10 06 bpl ?546051 F843A4 A2 2D ldx #'-' ; esponente positivo6052 F843A6 49 FF FF eor #$FFFF ; complementa esponente6053 F843A9 1A inc a6054 F843AA 85 32 ?54: sta FOP ; prepara per conversione6055 F843AC 64 34 stz FOP+26056 F843AE 64 36 stz FOP+46057 F843B0 64 38 stz FOP+66058 F843B2 ACC086059 F843B2 E2 20 sep #PMFLAG6060 .LONGA off6061 .MNLIST6062 F843B4 8A txa6063 F843B5 99 86 02 sta !DP02ADDR+XCVTStr,y ; segno esponente6064 F843B8 C8 iny6065 F843B9 5A phy6066 F843BA 20 6C 31 jsr _UI2Str ; X = ptr ultimo digit6067 F843BD 7A ply6068 F843BE CA dex ; esponente sempre a 4 digit6069 F843BF CA dex6070 F843C0 CA dex ; ptr al primo di 4 digits6071 F843C1 ACC166072 F843C1 C2 20 rep #PMFLAG6073 .LONGA on6074 .MNLIST6075 F843C3 B5 00 lda <0,x6076 F843C5 99 86 02 sta !DP02ADDR+XCVTStr,y ; prima coppia digit esponente6077 F843C8 E8 inx6078 F843C9 E8 inx6079 F843CA C8 iny6080 F843CB C8 iny6081 F843CC B5 00 lda <0,x6082 F843CE 99 86 02 sta !DP02ADDR+XCVTStr,y ; seconda coppia digit esponente6083 F843D1 ACC086084 F843D1 E2 20 sep #PMFLAGTue Jul 17 11:00:16 2018 Page 636085 .LONGA off6086 .MNLIST6087 F843D3 C8 iny6088 F843D4 C8 iny ; Y = lunghezza stringa6089 F843D5 60 rts6090 F843D66091 ; trim '0' finali della stringa -- solo se formato G/g e no alt. form.6092 ; In - Y = indice attuale stringa destinazione6093 ; FPIndx = indice primo digit6094 ; Out - Y = nuovo indice attuale stringa dest6095 ; CF = 1 se stringa trimmata, altrimenti CF = 06096 F843D6 trimtrail:6097 F843D6 24 16 bit XVFlag ; <6> -> gormato G/g6098 F843D8 50 19 bvc ?10 ; no trim: esce con C = 06099 F843DA A9 10 lda #$10 ; test formato alt #6100 F843DC 24 16 bit XVFlag6101 F843DE D0 13 bne ?10 ; alt form: no trim, esce con C = 06102 F843E0 88 ?02: dey ; ultimo digit valido6103 F843E1 C4 3B cpy FPIndx ; indice sul primo digit ?6104 F843E3 F0 0B beq ?08 ; SI -- non rimuove mai6105 F843E5 B9 86 02 lda !DP02ADDR+XCVTStr,y6106 F843E8 C9 30 cmp #'0'6107 F843EA F0 F4 beq ?02 ; loop digit precedente6108 F843EC C9 2E cmp #'.' ; Trim eventuale '.'6109 F843EE F0 01 beq ?096110 F843F0 C8 ?08: iny ; indice disponibile successivo6111 F843F1 38 ?09: sec ; trim6112 F843F2 60 rts6113 F843F3 18 ?10: clc ; no trim6114 F843F4 60 rts61156116 ; converte float in formato a/A6117 F843F5 aform:6118 F843F5 86 0A stx FmtPrec ; se = 0 stampa mantissa ordinaria6119 F843F7 A2 06 ldx #$06 ; valore da aggiungere per digit A..F6120 F843F9 89 08 bit #$086121 F843FB D0 02 bne ?02 ; HI CAPS6122 F843FD A2 26 ldx #$26 ; valore da aggiungere per digit a..f6123 F843FF 86 24 ?02: stx FPTmp16124 F84401 A5 40 lda FACSGN6125 F84403 29 80 and #$80 ; segno FAC6126 F84405 05 16 ora XVFlag6127 F84407 85 16 sta XVFlag6128 F84409 20 43 42 jsr storesgn ; store segno in XCVTStr6129 F8440C A9 24 lda #'$'6130 F8440E 99 86 02 STA !DP02ADDR+XCVTStr,Y6131 F84411 C8 INY6132 F84412 A2 07 ldx #$07 ; loop 8 bytes6133 F84414 B5 42 ?10: lda <FACM,x6134 F84416 20 1E 32 jsr Byte2Hex6135 F84419 99 86 02 STA !DP02ADDR+XCVTStr,Y ; nibble H6136 F8441C C8 INY6137 F8441D EB xba ; nibble L6138 F8441E 99 86 02 STA !DP02ADDR+XCVTStr,Y6139 F84421 C8 INY6140 F84422 CA DEX6141 F84423 10 EF BPL ?10Tue Jul 17 11:00:16 2018 Page 646142 F84425 A2 70 ldx #'p'6143 F84427 A9 08 lda #$086144 F84429 24 16 bit XVFlag6145 F8442B F0 02 beq ?146146 F8442D A2 50 ldx #'P'6147 F8442F 8A ?14: txa6148 F84430 99 86 02 STA !DP02ADDR+XCVTStr,Y6149 F84433 C8 INY6150 F84434 64 25 stz FPTmp26151 F84436 64 26 stz FPTmp36152 F84438 ACC166153 F84438 C2 20 rep #PMFLAG6154 .LONGA on6155 .MNLIST6156 F8443A A5 4A lda FACExp6157 F8443C 85 14 sta XVDec6158 F8443E C9 FF 7F cmp #EXPINF6159 F84441 ACC086160 F84441 E2 20 sep #PMFLAG6161 .LONGA off6162 .MNLIST6163 F84443 B0 33 bcs ?266164 F84445 A5 16 lda XVFlag6165 F84447 89 10 bit #$106166 F84449 F0 05 beq ?206167 F8444B 38 sec6168 F8444C A9 80 lda #$806169 F8444E 85 25 sta FPTmp26170 F84450 ?20: ACC166171 F84450 C2 20 rep #PMFLAG6172 .LONGA on6173 .MNLIST6174 F84452 A5 4A lda FACExp6175 F84454 90 0E bcc ?226176 F84456 A2 00 ldx #06177 F84458 E9 FF 3F sbc #EXPBIAS6178 F8445B B0 05 bcs ?21 ; positivo6179 F8445D 49 FF FF eor #$FFFF6180 F84460 1A inc a6181 F84461 CA dex ; negativo6182 F84462 86 26 ?21: stx FPTmp36183 F84464 85 14 ?22: sta XVDec6184 F84466 ACC086185 F84466 E2 20 sep #PMFLAG6186 .LONGA off6187 .MNLIST6188 F84468 24 25 bit FPTmp26189 F8446A 10 0C bpl ?266190 F8446C A9 2B lda #'+'6191 F8446E 24 26 bit FPTmp36192 F84470 10 02 bpl ?246193 F84472 A9 2D lda #'-'6194 F84474 99 86 02 ?24: STA !DP02ADDR+XCVTStr,Y6195 F84477 C8 INY6196 F84478 A2 01 ?26: ldx #$016197 F8447A B5 14 ?28: lda <XVDec,x6198 F8447C 20 1E 32 jsr Byte2HexTue Jul 17 11:00:16 2018 Page 656199 F8447F 99 86 02 STA !DP02ADDR+XCVTStr,Y ; nibble H6200 F84482 C8 INY6201 F84483 EB xba ; nibble L6202 F84484 99 86 02 STA !DP02ADDR+XCVTStr,Y6203 F84487 C8 INY6204 F84488 CA DEX6205 F84489 10 EF BPL ?286206 F8448B A9 00 lda #$006207 F8448D 99 86 02 STA !DP02ADDR+XCVTStr,Y6208 F84490 98 tya6209 F84491 A2 86 ldx #XCVTStr6210 F84493 60 rts62116212 ;-------------------------------------------------------------6213 ; COSTANTI IN VIRGOLA MOBILE6214 ;-------------------------------------------------------------62156216 ;FCon05: .BYTE $3F,$FE,$80,$00,$00,$00,$00,$00,$00,$00 ; 0.56217 ;FConM05: .BYTE $BF,$FE,$80,$00,$00,$00,$00,$00,$00,$00 ; -0.56218 F84494 00 00 40 76 3A FCon1E18 .DB $00,$00,$40,$76,$3A,$6B,$0B,$DE,$3A,$40 ; 1E186B 0B DE 3A 406219 F8449E 00 00 E8 89 04 FCon1E19 .DB $00,$00,$E8,$89,$04,$23,$C7,$8A,$3E,$40 ; 1E1923 C7 8A 3E 4062206221 ;FConINF: .BYTE $7F,$FF,$80,$00,$00,$00,$00,$00,$00,$00 ; +INF6222 ;FConNAN: .BYTE $7F,$FF,$FF,$00,$00,$00,$00,$00,$00,$00 ; +NAN62236224 F844A8 00 00 00 00 00 FCon1E0: .DB $00,$00,$00,$00,$00,$00,$00,$80,$FF,$3F ; 100 00 80 FF 3F6225 F844B2 00 00 00 00 00 FCon1E1: .DB $00,$00,$00,$00,$00,$00,$00,$A0,$02,$40 ; 1000 00 A0 02 406226 F844BC 00 00 00 00 00 FCon1E2: .DB $00,$00,$00,$00,$00,$00,$00,$C8,$05,$40 ; 10000 00 C8 05 406227 F844C6 00 00 00 00 00 FCon1E3: .DB $00,$00,$00,$00,$00,$00,$00,$FA,$08,$40 ; 1E300 00 FA 08 406228 F844D0 00 00 00 00 00 FCon1E4: .DB $00,$00,$00,$00,$00,$00,$40,$9C,$0C,$40 ; 1E400 40 9C 0C 406229 F844DA 00 00 00 00 00 FCon1E5: .DB $00,$00,$00,$00,$00,$00,$50,$C3,$0F,$40 ; 1E500 50 C3 0F 406230 F844E4 00 00 00 00 00 FCon1E6: .DB $00,$00,$00,$00,$00,$00,$24,$F4,$12,$40 ; 1E600 24 F4 12 406231 F844EE 00 00 00 00 00 FCon1E7: .DB $00,$00,$00,$00,$00,$80,$96,$98,$16,$40 ; 1E780 96 98 16 406232 F844F8 00 00 00 00 00 FCon1E8: .DB $00,$00,$00,$00,$00,$20,$BC,$BE,$19,$40 ; 1E820 BC BE 19 406233 F84502 00 00 00 04 BF FCon1E16: .DB $00,$00,$00,$04,$BF,$C9,$1B,$8E,$34,$40 ; 1E16C9 1B 8E 34 406234 F8450C 9E B5 70 2B A8 FCon1E32: .DB $9E,$B5,$70,$2B,$A8,$AD,$C5,$9D,$69,$40 ; 1E32AD C5 9D 69 406235 F84516 D5 A6 CF FF 49 FCon1E64: .DB $D5,$A6,$CF,$FF,$49,$1F,$78,$C2,$D3,$40 ; 1E641F 78 C2 D3 406236 F84520 DF 8C E9 80 C9 FCon1E128: .DB $DF,$8C,$E9,$80,$C9,$47,$BA,$93,$A8,$41 ; 1E12847 BA 93 A8 416237 F8452A 8C DE F9 9D FB FCon1E256: .DB $8C,$DE,$F9,$9D,$FB,$EB,$7E,$AA,$51,$43 ; 1E256EB 7E AA 51 436238 F84534 C2 91 0E A6 AE FCon1E512: .DB $C2,$91,$0E,$A6,$AE,$A0,$19,$E3,$A3,$46 ; 1E512A0 19 E3 A3 46Tue Jul 17 11:00:16 2018 Page 666239 F8453E 0F 0C 75 81 86 FCon1E1024: .DB $0F,$0C,$75,$81,$86,$75,$76,$C9,$48,$4D ; 1E102475 76 C9 48 4D6240 F84548 D7 5D 3D C5 5D FCon1E2048: .DB $D7,$5D,$3D,$C5,$5D,$3B,$8B,$9E,$92,$5A ; 1E20483B 8B 9E 92 5A6241 F84552 79 97 20 8A 02 FCon1E4096: .DB $79,$97,$20,$8A,$02,$52,$60,$C4,$25,$75 ; 1E409652 60 C4 25 7562426243 ; -----------------------------------------------------6244 ;static const extend e128 = {0x8CE0, 0x80E9, 0x47C9, 0x93BA, 0x41A8}; +16245 ;static const extend e256 = {0xDE8E, 0x9DF9, 0xEBFB, 0xAA7E, 0x4351}; +26246 ;static const extend e512 = {0x91C7, 0xA60E, 0xA0AE, 0xE319, 0x46A3}; +56247 ;static const extend e1024 = {0x0C17, 0x8175, 0x7586, 0xC976, 0x4D48}; +86248 ;static const extend e2048 = {0x5DE5, 0xC53D, 0x3B5D, 0x9E8B, 0x5A92}; +146249 ;static const extend e4096 = {0x979B, 0x8A20, 0x5202, 0xC460, 0x7525}; +346250Lines Assembled : 5850 Errors : 0