Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:21 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\FA\string.asmOutput Filename : obj\FA\string.objListing Has Been Relocated2603 .LIST on260426052606 .LIST on260726082609 ;---------------------------------------------------------------------------2610 ; code segment -- bank $FA2611 ;---------------------------------------------------------------------------26122613 .CODEFA26142615 .LONGA off2616 .LONGI off26172618 ; _strlen(src)2619 ;2620 ; return in C the length of the string src2621 ; if the lenght is greater than 64k return $FFFF2622 ;2623 ;-------------------------------2624 FA03F7 _strlen:2625 .PUBLIC _strlen2626 ;-------------------------------26272628 .LONGA off2629 .LONGI off2630 FA03F72631 000003 parsiz .SET 3 ; parameter stack frame size2632 000000 locsiz .SET 0 ; locals stack frame size2633 000003 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack2634 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.2635 000004 exitsr .SET skpsiz + 1 ; pointer to moved status reg.2636 ;2637 000005 src .SET entsr + 4 ; <src> parameter2638 ;2639 FA03F7 08 php ; save SR2640 FA03F8 3B tsc ; stack frame2641 FA03F9 0B phd ; save DP reg.2642 FA03FA 5B tcd ; dp access to stack var's2643 FA03FB INDEX16 ; X/Y 16 bit2644 FA03FB C2 10 rep #PXFLAG2645 .LONGI on2646 .MNLIST2647 FA03FD ACC08 ; be sure A 8 bit2648 FA03FD E2 20 sep #PMFLAGTue Jul 17 11:00:21 2018 Page 22649 .LONGA off2650 .MNLIST2651 FA03FF A0 00 00 ldy #0 ; pointer2652 ;2653 FA0402 B7 05 ?loop: lda [src],y ; get next char2654 FA0404 F0 04 beq ?done ; done when get a nul2655 FA0406 C8 iny ; bump pointer2656 FA0407 D0 F9 bne ?loop2657 FA0409 88 dey ; max length = $FFFF2658 ;2659 FA040A ?done: CPU16CLC ; A,X,Y 16 bit - clear carry2660 FA040A C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2661 .LONGA on2662 .LONGI on2663 .MNLIST2664 FA040C A5 03 lda <entsr+2 ; move saved SR and return address2665 FA040E 85 06 sta <exitsr+22666 FA0410 A5 01 lda <entsr2667 FA0412 85 04 sta <exitsr2668 FA0414 2B pld ; restore DP reg.2669 FA0415 3B tsc ; stack frame2670 FA0416 69 03 00 adc #skpsiz ; realign stack2671 FA0419 1B tcs2672 FA041A 98 tya ; C = string length2673 FA041B 28 plp ; restore SR2674 FA041C 6B rtl26752676 .LONGA off2677 .LONGI off26782679 ; _strcpy(dst, src)2680 ;2681 ; copy string src to dst2682 ; return in C the lenght of string2683 ; dst must have sufficient room to hold the result2684 ; if length of src > $FFFF, dst will be truncated2685 ;2686 ;-------------------------------2687 FA041D _strcpy:2688 .PUBLIC _strcpy2689 ;-------------------------------26902691 .LONGA off2692 .LONGI off2693 FA041D2694 000006 parsiz .SET 6 ; parameter stack frame size2695 000000 locsiz .SET 0 ; locals stack frame size2696 000006 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack2697 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.2698 000007 exitsr .SET skpsiz + 1 ; pointer to moved status reg.2699 ;2700 000005 src .SET entsr + 4 ; <src> parameter2701 000008 dst .SET src + 3 ; <dst> parameter2702 ;2703 FA041D 08 php ; save SR2704 FA041E 3B tsc ; stack frame2705 FA041F 0B phd ; save DP reg.Tue Jul 17 11:00:21 2018 Page 32706 FA0420 5B tcd ; dp access to stack var's2707 FA0421 INDEX16 ; X/Y 16 bit2708 FA0421 C2 10 rep #PXFLAG2709 .LONGI on2710 .MNLIST2711 FA0423 ACC08 ; be sure A 8 bit2712 FA0423 E2 20 sep #PMFLAG2713 .LONGA off2714 .MNLIST2715 FA0425 A0 00 00 ldy #0 ; pointer2716 ;2717 FA0428 B7 05 ?loop: lda [src],y ; get next char2718 FA042A 97 08 sta [dst],y ; store2719 FA042C F0 07 beq ?done ; done when get a null2720 FA042E C8 iny ; bump pointer2721 FA042F D0 F7 bne ?loop2722 FA0431 98 tya ; A=02723 FA0432 88 dey ; max length = $FFFF2724 FA0433 97 08 sta [dst],y ; always NUL terminates dst2725 ;2726 FA0435 ?done: CPU16CLC ; A,X,Y 16 bit - clear carry2727 FA0435 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2728 .LONGA on2729 .LONGI on2730 .MNLIST2731 FA0437 A5 03 lda <entsr+2 ; move saved SR and return address2732 FA0439 85 09 sta <exitsr+22733 FA043B A5 01 lda <entsr2734 FA043D 85 07 sta <exitsr2735 FA043F 2B pld ; restore DP reg.2736 FA0440 3B tsc ; stack frame2737 FA0441 69 06 00 adc #skpsiz ; realign stack2738 FA0444 1B tcs2739 FA0445 98 tya ; C = string length2740 FA0446 28 plp ; restore SR2741 FA0447 6B rtl27422743 .LONGA off2744 .LONGI off27452746 ; _strcat(str, append)2747 ;2748 ; append string append to string str2749 ; return in C the lenght of string2750 ; str must have sufficient room to hold the result2751 ;2752 ;-------------------------------2753 FA0448 _strcat:2754 .PUBLIC _strcat2755 ;-------------------------------27562757 .LONGA off2758 .LONGI off2759 FA04482760 000006 parsiz .SET 6 ; parameter stack frame size2761 000002 locsiz .SET 2 ; locals stack frame size2762 000008 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stackTue Jul 17 11:00:21 2018 Page 42763 000003 entsr .SET locsiz + 1 ; pointer to saved status reg.2764 000009 exitsr .SET skpsiz + 1 ; pointer to moved status reg.2765 ;2766 000007 append .SET entsr + 4 ; <append> parameter2767 00000A str .SET append + 3 ; <str> parameter2768 ;2769 000001 indx .SET 1 ; <indx>: local var2770 ;2771 FA0448 08 php ; save SR2772 FA0449 INDEX16 ; X/Y 16 bit2773 FA0449 C2 10 rep #PXFLAG2774 .LONGI on2775 .MNLIST2776 FA044B A0 00 00 ldy #0 ; pointer2777 FA044E 5A phy ; make room for local var <indx=0>2778 FA044F 3B tsc ; stack frame2779 FA0450 0B phd ; save DP reg.2780 FA0451 5B tcd ; dp access to stack var's2781 FA0452 ACC08 ; be sure A is 8 bit2782 FA0452 E2 20 sep #PMFLAG2783 .LONGA off2784 .MNLIST2785 ;2786 FA0454 B7 0A ?loop: lda [str],y ; search end of string str2787 FA0456 F0 06 beq ?cat ; done when get a nul2788 FA0458 C8 iny ; bump pointer2789 FA0459 D0 F9 bne ?loop2790 FA045B 88 dey ; max length = $FFFF2791 FA045C 80 13 bra ?done ; can't append more char's2792 ;2793 FA045E BB ?cat: tyx ; X = current str index2794 FA045F A4 01 ldy <indx ; index to append string2795 FA0461 B7 07 lda [append],y ; get next char from append2796 FA0463 C8 iny ; bump pointer to append string2797 FA0464 84 01 sty <indx2798 FA0466 9B txy2799 FA0467 97 0A sta [str],y ; append char to str2800 FA0469 C9 00 cmp #0 ; nul?2801 FA046B F0 04 beq ?done ; yes2802 FA046D C8 iny ; bump pointer2803 FA046E D0 EE bne ?cat ; append next char2804 FA0470 88 dey ; max length = $FFFF2805 ;2806 FA0471 ?done: CPU16CLC ; A,X,Y 16 bit - clear carry2807 FA0471 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2808 .LONGA on2809 .LONGI on2810 .MNLIST2811 FA0473 A5 05 lda <entsr+2 ; move saved SR and return address2812 FA0475 85 0B sta <exitsr+22813 FA0477 A5 03 lda <entsr2814 FA0479 85 09 sta <exitsr2815 FA047B 2B pld ; restore DP reg.2816 FA047C 3B tsc ; stack frame2817 FA047D 69 08 00 adc #skpsiz ; realign stack2818 FA0480 1B tcs2819 FA0481 98 tya ; C = string lengthTue Jul 17 11:00:21 2018 Page 52820 FA0482 28 plp ; restore SR2821 FA0483 6B rtl28222823 .LONGA off2824 .LONGI off28252826 ; _strncpy(dst, src, siz)2827 ;2828 ; copy string src to string dst of size <siz+1>2829 ; at most siz characters will be copied2830 ; return in C the lenght of string2831 ; if <siz=0> src is an empty string2832 ;2833 ;-------------------------------2834 FA0484 _strncpy:2835 .PUBLIC _strncpy2836 ;-------------------------------28372838 .LONGA off2839 .LONGI off2840 FA04842841 000008 parsiz .SET 8 ; parameter stack frame size2842 000000 locsiz .SET 0 ; locals stack frame size2843 000008 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack2844 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.2845 000009 exitsr .SET skpsiz + 1 ; pointer to moved status reg.2846 ;2847 000005 siz .SET entsr + 4 ; <siz> parameter2848 000007 src .SET siz + 2 ; <src> parameter2849 00000A dst .SET src + 3 ; <dst> parameter2850 ;2851 FA0484 08 php ; save SR2852 FA0485 3B tsc ; stack frame2853 FA0486 0B phd ; save DP reg.2854 FA0487 5B tcd ; dp access to stack var's2855 FA0488 INDEX16 ; X/Y 16 bit2856 FA0488 C2 10 rep #PXFLAG2857 .LONGI on2858 .MNLIST2859 FA048A ACC08 ; be sure A 8 bit2860 FA048A E2 20 sep #PMFLAG2861 .LONGA off2862 .MNLIST2863 FA048C A4 05 ldy <siz2864 FA048E F0 0E beq ?nul ; return an empty string2865 FA0490 A0 00 00 ldy #0 ; pointer2866 ;2867 FA0493 B7 07 ?loop: lda [src],y ; get next char2868 FA0495 97 0A sta [dst],y ; store2869 FA0497 F0 09 beq ?done ; done when get a null2870 FA0499 C8 iny ; bump pointer2871 FA049A C4 05 cpy <siz2872 FA049C 90 F5 bcc ?loop2873 ;2874 FA049E A9 00 ?nul: lda #0 ; always NUL terminates dst2875 FA04A0 97 0A sta [dst],y2876 ;Tue Jul 17 11:00:21 2018 Page 62877 FA04A2 ?done: CPU16CLC ; A,X,Y 16 bit - clear carry2878 FA04A2 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2879 .LONGA on2880 .LONGI on2881 .MNLIST2882 FA04A4 A5 03 lda <entsr+2 ; move saved SR and return address2883 FA04A6 85 0B sta <exitsr+22884 FA04A8 A5 01 lda <entsr2885 FA04AA 85 09 sta <exitsr2886 FA04AC 2B pld ; restore DP reg.2887 FA04AD 3B tsc ; stack frame2888 FA04AE 69 08 00 adc #skpsiz ; realign stack2889 FA04B1 1B tcs2890 FA04B2 98 tya ; C = string length2891 FA04B3 28 plp ; restore SR2892 FA04B4 6B rtl28932894 .LONGA off2895 .LONGI off28962897 ; _strdel(str, start, count)2898 ;2899 ; remove at most <count> characters from string <str>, starting2900 ; at index <start>2901 ;2902 ; stack param's:2903 ;2904 ; <str>: long pointer to string2905 ; <start>: index of first character to remove (word)2906 ; <count>: count of characters to remove (word)2907 ;2908 ; return: C = length of string2909 ;2910 ; note: X & Y not preserved2911 ;2912 ;-------------------------------2913 FA04B5 _strdel:2914 .PUBLIC _strdel2915 ;-------------------------------29162917 .LONGA off2918 .LONGI off2919 FA04B52920 000007 parsiz .SET 7 ; parameter stack frame size2921 000000 locsiz .SET 0 ; locals stack frame size2922 000007 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack2923 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.2924 000008 exitsr .SET skpsiz + 1 ; pointer to moved status reg.2925 ;2926 000005 count .SET entsr + 4 ; <count> parameter2927 000007 start .SET count + 2 ; <start> parameter2928 000009 str .SET start + 2 ; <str> parameter2929 ;2930 FA04B5 08 php ; save SR2931 FA04B6 3B tsc ; stack frame2932 FA04B7 0B phd ; save DP reg.2933 FA04B8 5B tcd ; dp access to stack var'sTue Jul 17 11:00:21 2018 Page 72934 FA04B9 CPU08 ; be sure A,X,Y 8 bit2935 FA04B9 E2 30 sep #(PMFLAG.OR.PXFLAG)2936 .LONGA off2937 .LONGI off2938 .MNLIST2939 FA04BB A0 00 ldy #0 ; pointer2940 FA04BD INDEX16 ; X/Y 16 bit2941 FA04BD C2 10 rep #PXFLAG2942 .LONGI on2943 .MNLIST2944 ;2945 FA04BF B7 09 ?len: lda [str],y ; compute string length2946 FA04C1 F0 07 beq ?chk ; done when get a nul2947 FA04C3 C8 iny ; bump pointer2948 FA04C4 D0 F9 bne ?len2949 FA04C6 98 tya2950 FA04C7 88 dey ; max length = $FFFF2951 FA04C8 97 09 sta [str],y ; force string terminator2952 ;2953 FA04CA BB ?chk: tyx ; check string lenght2954 FA04CB F0 2D beq ?done ; empty string2955 FA04CD A6 05 ldx <count2956 FA04CF F0 29 beq ?done ; nothing to delete2957 FA04D1 C4 07 cpy <start ; if length <= start...2958 FA04D3 90 25 bcc ?done ; ...nothing to delete2959 FA04D5 F0 23 beq ?done2960 FA04D7 CPU16CLC ; A 16 bit and clear carry2961 FA04D7 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2962 .LONGA on2963 .LONGI on2964 .MNLIST2965 FA04D9 8A txa ; <count>2966 FA04DA 65 07 adc <start ; index of first character to move back2967 FA04DC 85 05 sta <count2968 FA04DE ACC08 ; A 8 bit2969 FA04DE E2 20 sep #PMFLAG2970 .LONGA off2971 .MNLIST2972 FA04E0 B0 06 bcs ?mov ; beyond the string...put nul at <start> index2973 FA04E2 C4 05 cpy <count ; length < start + count?2974 FA04E4 90 02 bcc ?mov ; yes -- terminate string at <start> index2975 FA04E6 A4 05 ldy <count ; index of next character to move back2976 FA04E8 B7 09 ?mov: lda [str],y2977 FA04EA BB tyx ; save to X2978 FA04EB A4 07 ldy <start ; index where put character2979 FA04ED 97 09 sta [str],y2980 FA04EF C9 00 cmp #0 ; nul byte?2981 FA04F1 F0 07 beq ?done ; yes, done2982 FA04F3 C8 iny2983 FA04F4 84 07 sty <start2984 FA04F6 9B txy2985 FA04F7 C8 iny2986 FA04F8 80 EE bra ?mov ; move loop2987 ;2988 FA04FA ?done: CPU16CLC ; A,X,Y 16 bit - clear carry2989 FA04FA C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2990 .LONGA onTue Jul 17 11:00:21 2018 Page 82991 .LONGI on2992 .MNLIST2993 FA04FC A5 03 lda <entsr+2 ; move saved SR and return address2994 FA04FE 85 0A sta <exitsr+22995 FA0500 A5 01 lda <entsr2996 FA0502 85 08 sta <exitsr2997 FA0504 2B pld ; restore DP reg.2998 FA0505 3B tsc ; stack frame2999 FA0506 69 07 00 adc #skpsiz ; realign stack3000 FA0509 1B tcs3001 FA050A 98 tya ; C = string length3002 FA050B 28 plp ; restore SR3003 FA050C 6B rtl30043005 .LONGA off3006 .LONGI off30073008 ; _strins(str1, str2, start, maxlen)3009 ;3010 ; insert <str2> string into <str1> string, starting at index <start> of <str1>3011 ; character of <str1>, starting from <start> index, are moved ahead to make3012 ; room for characters of <str2>3013 ; if <maxlen>=0 then string <str1> will be truncated (return an empty string)3014 ; buffer <str1> should have a size=<maxlen>+1 to hold the nul terminator3015 ;3016 ; stack param's:3017 ;3018 ; <str1>: long pointer to target string3019 ; <str2>: long pointer to string to insert3020 ; <start>: index of first character where start insertion (word)3021 ; <maxlen>: max. length of <str1> (word)3022 ;3023 ; return: C = length of string <str1>3024 ;3025 ; note: X & Y not preserved3026 ;3027 ;-------------------------------3028 FA050D _strins:3029 .PUBLIC _strins3030 ;-------------------------------30313032 .LONGA off3033 .LONGI off3034 FA050D3035 00000A parsiz .SET 10 ; parameter stack frame size3036 00000E locsiz .SET 14 ; locals stack frame size3037 000018 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3038 00000F entsr .SET locsiz + 1 ; pointer to saved status reg.3039 000019 exitsr .SET skpsiz + 1 ; pointer to moved status reg.3040 ;3041 000013 maxlen .SET entsr + 4 ; <maxlen> parameter3042 000015 start .SET maxlen + 2 ; <start> parameter3043 000017 str2 .SET start + 2 ; <str2> long pointer3044 00001A str1 .SET str2 + 3 ; <str1> long pointer3045 ;3046 000001 len1 .SET 1 ; local: <str1> length3047 000003 len2 .SET 3 ; local: <str2> lengthTue Jul 17 11:00:21 2018 Page 93048 000005 iy .SET 5 ; local: temp. index3049 000007 end .SET 7 ; local: index of last byte of <str1> to move3050 000009 newend .SET 9 ; local: index of final <str1> ending3051 00000B cnt1 .SET 11 ; local: count of bytes to move in <str1>3052 00000D cnt2 .SET 13 ; local: count of bytes to copy from <str2>3053 ;3054 FA050D 08 php ; save SR3055 FA050E CPU16CLC3056 FA050E C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3057 .LONGA on3058 .LONGI on3059 .MNLIST3060 FA0510 3B tsc3061 FA0511 E9 0D 00 sbc #locsiz-1 ; make room for locals var's3062 FA0514 1B tcs ; stack frame3063 FA0515 0B phd ; save DP reg.3064 FA0516 5B tcd ; dp access to stack var's3065 FA0517 64 05 stz <iy ; clear <iy>, <cnt1>, <cnt2>3066 FA0519 64 0B stz <cnt13067 FA051B 64 0D stz <cnt23068 FA051D ACC08 ; X/Y 16 bit, A/M 8 bit3069 FA051D E2 20 sep #PMFLAG3070 .LONGA off3071 .MNLIST3072 FA051F A4 05 ldy <iy ; pointer Y = 03073 FA0521 BB tyx ; X = 03074 ;3075 FA0522 B7 17 ?len2: lda [str2],y ; compute string <str2> length3076 FA0524 F0 07 beq ?stl ; done when get a nul3077 FA0526 C8 iny ; bump pointer3078 FA0527 D0 F9 bne ?len23079 FA0529 98 tya3080 FA052A 88 dey ; max length = $FFFF3081 FA052B 97 17 sta [str2],y ; force string terminator3082 ;3083 FA052D 84 03 ?stl: sty <len2 ; store <str2> lenght3084 FA052F 9B txy ; Y = 03085 ;3086 FA0530 B7 1A ?len1: lda [str1],y ; compute string <str1> length3087 FA0532 F0 07 beq ?chk ; done when get a nul3088 FA0534 C8 iny ; bump pointer3089 FA0535 D0 F9 bne ?len13090 FA0537 98 tya3091 FA0538 88 dey ; max length = $FFFF3092 FA0539 97 1A sta [str1],y ; force string terminator3093 ;3094 FA053B C4 13 ?chk: cpy <maxlen ; fix <maxlen> if below the actual...3095 FA053D 90 02 bcc ?chk1 ; ...<str1> length3096 FA053F 84 13 sty <maxlen3097 ;3098 FA0541 ?chk1: CPU16CLC3099 FA0541 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3100 .LONGA on3101 .LONGI on3102 .MNLIST3103 FA0543 98 tya3104 FA0544 65 03 adc <len2 ; final string lengthTue Jul 17 11:00:21 2018 Page 103105 FA0546 B0 06 bcs ?chk2 ; truncate to <maxlen>3106 FA0548 C5 13 cmp <maxlen ; can fit?3107 FA054A B0 02 bcs ?chk2 ; no, truncate to <maxlen>3108 FA054C 85 13 sta <maxlen ; store final length3109 ;3110 FA054E 84 01 ?chk2: sty <len1 ; store <str1> length3111 FA0550 A6 03 ldx <len2 ; if <str2> is empty...3112 FA0552 F0 6E beq ?done ; ...return <str1>3113 FA0554 BB tyx ; if <str1> is empty...3114 FA0555 F0 0B beq ?cat ; ...return <str1> = <str2>3115 FA0557 A6 13 ldx <maxlen3116 FA0559 CA dex3117 FA055A 86 09 stx <newend ; pointer to the end of final <str1>3118 FA055C A5 15 lda <start3119 FA055E C5 01 cmp <len13120 FA0560 90 0B bcc ?chk3 ; <start> is in range [1..length(str1)-1]3121 ;3122 FA0562 84 15 ?cat: sty <start ; append <str2> to the end of <str1>3123 FA0564 38 sec3124 FA0565 A5 13 lda <maxlen ; count of bytes to copy from <str2> to...3125 FA0567 E5 01 sbc <len1 ; ...<str1> starting at index <start>3126 FA0569 85 0D sta <cnt23127 FA056B 80 24 bra ?mov3128 ;3129 FA056D 65 03 ?chk3: adc <len2 ; <start> + length(str2)3130 FA056F 90 03 bcc ?chk43131 FA0571 A9 FF FF lda #$FFFF ; limit max. length3132 ;3133 FA0574 C5 13 ?chk4: cmp <maxlen ; can move som bytes of <str1> to make room?3134 FA0576 90 06 bcc ?less ; yes3135 FA0578 E5 15 sbc <start ; no... compute how much bytes of <str2>...3136 FA057A 85 0D sta <cnt2 ; ...can be inserted3137 FA057C 80 13 bra ?mov3138 ;3139 FA057E 85 0B ?less: sta <cnt1 ; index where move bytes of <str1>3140 FA0580 38 sec3141 FA0581 A5 13 lda <maxlen3142 FA0583 E5 0B sbc <cnt13143 FA0585 85 0B sta <cnt1 ; count of bytes to move in <str1>3144 FA0587 18 clc3145 FA0588 65 15 adc <start3146 FA058A 3A dec a ; pointer to the last byte of <str1>...3147 FA058B 85 07 sta <end ; ...that will be moved ahead3148 FA058D A6 03 ldx <len2 ; the whole <str2> can be inserted3149 FA058F 86 0D stx <cnt23150 ;3151 ; move <cnt1> bytes from the <str1> to the new end of <str1>3152 FA0591 ?mov: ACC08 ; A/M 8 bit3153 FA0591 E2 20 sep #PMFLAG3154 .LONGA off3155 .MNLIST3156 FA0593 A6 0B ldx <cnt1 ; count of bytes to move3157 FA0595 F0 11 beq ?cpy ; nothing to move in <str1>3158 ;3159 FA0597 A4 07 ?lmov: ldy <end ; move from the end of <str1>...3160 FA0599 B7 1A lda [str1],y3161 FA059B 88 deyTue Jul 17 11:00:21 2018 Page 113162 FA059C 84 07 sty <end3163 FA059E A4 09 ldy <newend ; ...to the new end3164 FA05A0 97 1A sta [str1],y3165 FA05A2 88 dey ; decrement (move previous)3166 FA05A3 84 09 sty <newend3167 FA05A5 CA dex3168 FA05A6 D0 EF bne ?lmov ; move loop3169 ;3170 ; copy <cnt2> bytes from beginning of <str2> to <str1>, starting at index <start>3171 FA05A8 A6 0D ?cpy: ldx <cnt2 ; count of bytes to copy3172 FA05AA F0 11 beq ?nul ; nothing to copy: terminate <str1>3173 ;3174 FA05AC A4 05 ?lcpy: ldy <iy3175 FA05AE B7 17 lda [str2],y3176 FA05B0 C8 iny3177 FA05B1 84 05 sty <iy3178 FA05B3 A4 15 ldy <start ; target index3179 FA05B5 97 1A sta [str1],y3180 FA05B7 C8 iny3181 FA05B8 84 15 sty <start3182 FA05BA CA dex3183 FA05BB D0 EF bne ?lcpy ; loop copy3184 ;3185 FA05BD 8A ?nul: txa ; terminate string <str1>3186 FA05BE A4 13 ldy <maxlen3187 FA05C0 97 1A sta [str1],y3188 ;3189 FA05C2 ?done: CPU16CLC ; A,X,Y 16 bit - clear carry3190 FA05C2 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3191 .LONGA on3192 .LONGI on3193 .MNLIST3194 FA05C4 A5 11 lda <entsr+2 ; move saved SR and return address3195 FA05C6 85 1B sta <exitsr+23196 FA05C8 A5 0F lda <entsr3197 FA05CA 85 19 sta <exitsr3198 FA05CC 2B pld ; restore DP reg.3199 FA05CD 3B tsc ; stack frame3200 FA05CE 69 18 00 adc #skpsiz ; realign stack3201 FA05D1 1B tcs3202 FA05D2 98 tya ; C = string <str1> length3203 FA05D3 28 plp ; restore SR3204 FA05D4 6B rtl32053206 .LONGA off3207 .LONGI off32083209 ;---------------------------------------------------------------------------3210 ; strings comparison3211 ;---------------------------------------------------------------------------32123213 ; _strcmp(s1, s2)3214 ;3215 ; lexicographically compare the null-terminated strings s1 and s23216 ;3217 ; stack param's:3218 ;Tue Jul 17 11:00:21 2018 Page 123219 ; <s1>: long pointer to first string3220 ; <s2>: long pointer to second string3221 ;3222 ; return: status flags affected like in 'cmp' instruction3223 ; CF=0 & ZF=0 if s1 less than s23224 ; CF=1 & ZF=1 if s1 equal to s23225 ; CF=1 & ZF=0 if s1 greater than s23226 ;3227 ; note: X & Y not preserved3228 ;3229 ;-------------------------------3230 FA05D5 _strcmp:3231 .PUBLIC _strcmp3232 ;-------------------------------32333234 .LONGA off3235 .LONGI off3236 FA05D53237 000006 parsiz .SET 6 ; parameter stack frame size3238 000000 locsiz .SET 0 ; locals stack frame size3239 000006 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3240 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.3241 000007 exitsr .SET skpsiz + 1 ; pointer to moved status reg.3242 ;3243 000005 s2 .SET entsr + 4 ; <s1> parameter3244 000008 s1 .SET s2 + 3 ; <s2> parameter3245 ;3246 FA05D5 C2 03 rep #PZFLAG+PCFLAG ; clear CF & ZF3247 FA05D7 08 php ; save SR3248 FA05D8 3B tsc ; stack frame3249 FA05D9 0B phd ; save DP reg.3250 FA05DA 5B tcd ; dp access to stack var's3251 FA05DB CPU08 ; A/M & X/Y 8 bit3252 FA05DB E2 30 sep #(PMFLAG.OR.PXFLAG)3253 .LONGA off3254 .LONGI off3255 .MNLIST3256 FA05DD A0 00 ldy #0 ; pointer3257 FA05DF INDEX16 ; X/Y 16 bit3258 FA05DF C2 10 rep #PXFLAG3259 .LONGI on3260 .MNLIST3261 ;3262 FA05E1 B7 08 ?cmp: lda [s1],y ; get next char from <s1>3263 FA05E3 D7 05 cmp [s2],y ; compare with byte in <s2>3264 FA05E5 D0 08 bne ?end ; unmatch, set flags3265 FA05E7 C9 00 cmp #0 ; end of string?3266 FA05E9 F0 04 beq ?end ; yes, set flags3267 FA05EB C8 iny ; bump pointer3268 FA05EC D0 F3 bne ?cmp ; compare next char3269 FA05EE 38 sec ; all match: set carry3270 ;3271 FA05EF 08 ?end: php ; CF & ZF affected according comparison3272 FA05F0 68 pla3273 FA05F1 29 03 and #PZFLAG+PCFLAG ; mask on CF & ZF3274 FA05F3 04 01 tsb <entsr ; set flags on saved status reg.3275 FA05F5 CPU16CLC ; A,X,Y 16 bit - clear carryTue Jul 17 11:00:21 2018 Page 133276 FA05F5 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3277 .LONGA on3278 .LONGI on3279 .MNLIST3280 FA05F7 A5 03 lda <entsr+2 ; move saved SR and return address3281 FA05F9 85 09 sta <exitsr+23282 FA05FB A5 01 lda <entsr3283 FA05FD 85 07 sta <exitsr3284 FA05FF 2B pld ; restore DP reg.3285 FA0600 3B tsc ; stack frame3286 FA0601 69 06 00 adc #skpsiz ; realign stack3287 FA0604 1B tcs3288 FA0605 28 plp ; restore SR3289 FA0606 6B rtl32903291 .LONGA off3292 .LONGI off32933294 ; _strncmp(s1, s2, n)3295 ;3296 ; lexicographically compare the null-terminated strings s1 and s23297 ; this function compares not more than n characters3298 ;3299 ; stack param's:3300 ;3301 ; <s1>: long pointer to first string3302 ; <s2>: long pointer to second string3303 ; <n>: word: count of characters to compare3304 ;3305 ; return: status flags affected like in 'cmp' instruction3306 ; CF=0 & ZF=0 if s1 less than s23307 ; CF=1 & ZF=1 if s1 equal to s23308 ; CF=1 & ZF=0 if s1 greater than s23309 ;3310 ; note: X & Y not preserved3311 ;3312 ;-------------------------------3313 FA0607 _strncmp:3314 .PUBLIC _strncmp3315 ;-------------------------------33163317 .LONGA off3318 .LONGI off3319 FA06073320 000008 parsiz .SET 8 ; parameter stack frame size3321 000000 locsiz .SET 0 ; locals stack frame size3322 000008 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3323 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.3324 000009 exitsr .SET skpsiz + 1 ; pointer to moved status reg.3325 ;3326 000005 n .SET entsr + 4 ; <n> parameter3327 000007 s2 .SET n + 2 ; <s1> parameter3328 00000A s1 .SET s2 + 3 ; <s2> parameter3329 ;3330 FA0607 C2 03 rep #PZFLAG+PCFLAG ; clear CF & ZF3331 FA0609 08 php ; save SR3332 FA060A 3B tsc ; stack frameTue Jul 17 11:00:21 2018 Page 143333 FA060B 0B phd ; save DP reg.3334 FA060C 5B tcd ; dp access to stack var's3335 FA060D CPU08SEC ; A/M & X/Y 8 bit & set carry3336 FA060D E2 31 sep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3337 .LONGA off3338 .LONGI off3339 .MNLIST3340 FA060F A0 00 ldy #0 ; pointer3341 FA0611 INDEX16 ; X/Y 16 bit3342 FA0611 C2 10 rep #PXFLAG3343 .LONGI on3344 .MNLIST3345 FA0613 A6 05 ldx <n ; if <n> = 0 set CF=1 & ZF=13346 FA0615 F0 0F beq ?end3347 ;3348 FA0617 B7 0A ?cmp: lda [s1],y ; get next char from <s1>3349 FA0619 D7 07 cmp [s2],y ; compare with byte in <s2>3350 FA061B D0 09 bne ?end ; unmatch, set flags3351 FA061D C9 00 cmp #0 ; end of string?3352 FA061F F0 05 beq ?end ; yes, set flags3353 FA0621 C8 iny ; bump pointer3354 FA0622 C4 05 cpy <n ; at most <n> characters...3355 FA0624 90 F1 bcc ?cmp ; compare next char3356 ; all match: set carry & zero flag3357 ;3358 FA0626 08 ?end: php ; CF & ZF affected according comparison3359 FA0627 68 pla3360 FA0628 29 03 and #PZFLAG+PCFLAG ; mask on CF & ZF3361 FA062A 04 01 tsb <entsr ; set flags on saved status reg.3362 FA062C CPU16CLC ; A,X,Y 16 bit - clear carry3363 FA062C C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3364 .LONGA on3365 .LONGI on3366 .MNLIST3367 FA062E A5 03 lda <entsr+2 ; move saved SR and return address3368 FA0630 85 0B sta <exitsr+23369 FA0632 A5 01 lda <entsr3370 FA0634 85 09 sta <exitsr3371 FA0636 2B pld ; restore DP reg.3372 FA0637 3B tsc ; stack frame3373 FA0638 69 08 00 adc #skpsiz ; realign stack3374 FA063B 1B tcs3375 FA063C 28 plp ; restore SR3376 FA063D 6B rtl33773378 .LONGA off3379 .LONGI off3380 FA063E3381 ; _strcasecmp(s1, s2)3382 ;3383 ; lexicographically compare the null-terminated strings s1 and s2,3384 ; ignoring stings case3385 ;3386 ; stack param's:3387 ;3388 ; <s1>: long pointer to first string3389 ; <s2>: long pointer to second stringTue Jul 17 11:00:21 2018 Page 153390 ;3391 ; return: status flags affected like in 'cmp' instruction3392 ; CF=0 & ZF=0 if s1 less than s23393 ; CF=1 & ZF=1 if s1 equal to s23394 ; CF=1 & ZF=0 if s1 greater than s23395 ;3396 ; note: X & Y not preserved3397 ;3398 ;-------------------------------3399 FA063E _strcasecmp:3400 .PUBLIC _strcasecmp3401 ;-------------------------------34023403 .LONGA off3404 .LONGI off3405 FA063E3406 000006 parsiz .SET 6 ; parameter stack frame size3407 000002 locsiz .SET 2 ; locals stack frame size3408 000008 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3409 000003 entsr .SET locsiz + 1 ; pointer to saved status reg.3410 000009 exitsr .SET skpsiz + 1 ; pointer to moved status reg.3411 ;3412 000007 s2 .SET entsr + 4 ; <s1> parameter3413 00000A s1 .SET s2 + 3 ; <s2> parameter3414 ;3415 000001 tmp .SET 1 ; local: temp. byte3416 ;3417 FA063E C2 03 rep #PZFLAG+PCFLAG ; clear CF & ZF3418 FA0640 08 php ; save SR3419 FA0641 F4 00 00 pea #0 ; local variable3420 FA0644 3B tsc ; stack frame3421 FA0645 0B phd ; save DP reg.3422 FA0646 5B tcd ; dp access to stack var's3423 FA0647 CPU08 ; A/M & X/Y 8 bit3424 FA0647 E2 30 sep #(PMFLAG.OR.PXFLAG)3425 .LONGA off3426 .LONGI off3427 .MNLIST3428 FA0649 A0 00 ldy #0 ; pointer3429 FA064B INDEX16 ; X/Y 16 bit3430 FA064B C2 10 rep #PXFLAG3431 .LONGI on3432 .MNLIST3433 ;3434 FA064D B7 07 ?cmp: lda [s2],y ; get next char from <s2>3435 FA064F C9 61 cmp #'a' ; translate lower case to upper case3436 FA0651 90 06 bcc ?st3437 FA0653 C9 7B cmp #'z'+13438 FA0655 B0 02 bcs ?st3439 FA0657 29 DF and #$DF ; upper case3440 FA0659 85 01 ?st: sta <tmp ; store character3441 FA065B B7 0A lda [s1],y ; get next char from <s1>3442 FA065D C9 61 cmp #'a' ; translate lower case to upper case3443 FA065F 90 06 bcc ?cmp23444 FA0661 C9 7B cmp #'z'+13445 FA0663 B0 02 bcs ?cmp23446 FA0665 29 DF and #$DF ; upper caseTue Jul 17 11:00:21 2018 Page 163447 FA0667 C5 01 ?cmp2: cmp <tmp ; compares characters3448 FA0669 D0 08 bne ?end ; unmatch, set flags3449 FA066B C9 00 cmp #0 ; end of string?3450 FA066D F0 04 beq ?end ; yes, set flags3451 FA066F C8 iny ; bump pointer3452 FA0670 D0 DB bne ?cmp ; compare next char3453 FA0672 38 sec ; all match: set carry3454 ;3455 FA0673 08 ?end: php ; CF & ZF affected according comparison3456 FA0674 68 pla3457 FA0675 29 03 and #PZFLAG+PCFLAG ; mask on CF & ZF3458 FA0677 04 03 tsb <entsr ; set flags on saved status reg.3459 FA0679 CPU16CLC ; A,X,Y 16 bit - clear carry3460 FA0679 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3461 .LONGA on3462 .LONGI on3463 .MNLIST3464 FA067B A5 05 lda <entsr+2 ; move saved SR and return address3465 FA067D 85 0B sta <exitsr+23466 FA067F A5 03 lda <entsr3467 FA0681 85 09 sta <exitsr3468 FA0683 2B pld ; restore DP reg.3469 FA0684 3B tsc ; stack frame3470 FA0685 69 08 00 adc #skpsiz ; realign stack3471 FA0688 1B tcs3472 FA0689 28 plp ; restore SR3473 FA068A 6B rtl34743475 .LONGA off3476 .LONGI off34773478 ; _strncasecmp(s1, s2, n)3479 ;3480 ; lexicographically compare the null-terminated strings s1 and s2,3481 ; ignoring strings case; this function compares not more than n characters3482 ;3483 ; stack param's:3484 ;3485 ; <s1>: long pointer to first string3486 ; <s2>: long pointer to second string3487 ; <n>: word: count of characters to compare3488 ;3489 ; return: status flags affected like in 'cmp' instruction3490 ; CF=0 & ZF=0 if s1 less than s23491 ; CF=1 & ZF=1 if s1 equal to s23492 ; CF=1 & ZF=0 if s1 greater than s23493 ;3494 ; note: X & Y not preserved3495 ;3496 ;-------------------------------3497 FA068B _strncasecmp:3498 .PUBLIC _strncasecmp3499 ;-------------------------------35003501 .LONGA off3502 .LONGI off3503 FA068BTue Jul 17 11:00:21 2018 Page 173504 000008 parsiz .SET 8 ; parameter stack frame size3505 000002 locsiz .SET 2 ; locals stack frame size3506 00000A skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3507 000003 entsr .SET locsiz + 1 ; pointer to saved status reg.3508 00000B exitsr .SET skpsiz + 1 ; pointer to moved status reg.3509 ;3510 000007 n .SET entsr + 4 ; <n> parameter3511 000009 s2 .SET n + 2 ; <s1> parameter3512 00000C s1 .SET s2 + 3 ; <s2> parameter3513 ;3514 000001 tmp .SET 1 ; local: temp. byte3515 ;3516 FA068B C2 03 rep #PZFLAG+PCFLAG ; clear CF & ZF3517 FA068D 08 php ; save SR3518 FA068E F4 00 00 pea #0 ; local variable3519 FA0691 3B tsc ; stack frame3520 FA0692 0B phd ; save DP reg.3521 FA0693 5B tcd ; dp access to stack var's3522 FA0694 CPU08SEC ; A/M & X/Y 8 bit & set carry3523 FA0694 E2 31 sep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3524 .LONGA off3525 .LONGI off3526 .MNLIST3527 FA0696 A0 00 ldy #0 ; pointer3528 FA0698 INDEX16 ; X/Y 16 bit3529 FA0698 C2 10 rep #PXFLAG3530 .LONGI on3531 .MNLIST3532 FA069A A6 07 ldx <n ; if <n> = 0 set CF=1 & ZF=13533 FA069C F0 27 beq ?end3534 ;3535 FA069E B7 09 ?cmp: lda [s2],y ; get next char from <s2>3536 FA06A0 C9 61 cmp #'a' ; translate lower case to upper case3537 FA06A2 90 06 bcc ?st3538 FA06A4 C9 7B cmp #'z'+13539 FA06A6 B0 02 bcs ?st3540 FA06A8 29 DF and #$DF ; upper case3541 FA06AA 85 01 ?st: sta <tmp ; store character3542 FA06AC B7 0C lda [s1],y ; get next char from <s1>3543 FA06AE C9 61 cmp #'a' ; translate lower case to upper case3544 FA06B0 90 06 bcc ?cmp23545 FA06B2 C9 7B cmp #'z'+13546 FA06B4 B0 02 bcs ?cmp23547 FA06B6 29 DF and #$DF ; upper case3548 FA06B8 C5 01 ?cmp2: cmp <tmp ; compares characters3549 FA06BA D0 09 bne ?end ; unmatch, set flags3550 FA06BC C9 00 cmp #0 ; end of string?3551 FA06BE F0 05 beq ?end ; yes, set flags3552 FA06C0 C8 iny ; bump pointer3553 FA06C1 C4 07 cpy <n ; at most <n> characters...3554 FA06C3 90 D9 bcc ?cmp ; compare next char3555 ; all match: set carry & zero flag3556 ;3557 FA06C5 08 ?end: php ; CF & ZF affected according comparison3558 FA06C6 68 pla3559 FA06C7 29 03 and #PZFLAG+PCFLAG ; mask on CF & ZF3560 FA06C9 04 03 tsb <entsr ; set flags on saved status reg.Tue Jul 17 11:00:21 2018 Page 183561 FA06CB CPU16CLC ; A,X,Y 16 bit - clear carry3562 FA06CB C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3563 .LONGA on3564 .LONGI on3565 .MNLIST3566 FA06CD A5 05 lda <entsr+2 ; move saved SR and return address3567 FA06CF 85 0D sta <exitsr+23568 FA06D1 A5 03 lda <entsr3569 FA06D3 85 0B sta <exitsr3570 FA06D5 2B pld ; restore DP reg.3571 FA06D6 3B tsc ; stack frame3572 FA06D7 69 0A 00 adc #skpsiz ; realign stack3573 FA06DA 1B tcs3574 FA06DB 28 plp ; restore SR3575 FA06DC 6B rtl35763577 .LONGA off3578 .LONGI off35793580 ;---------------------------------------------------------------------------3581 ; find character & substring3582 ;---------------------------------------------------------------------------35833584 ; _strchr(s, c)3585 ;3586 ; locates the first occurrence of character <c> in string pointed to by <s>3587 ;3588 ; stack param's:3589 ;3590 ; <s>: long pointer to string3591 ; <c>: character to find (byte)3592 ;3593 ; return: CF=0 & C = index of character in string, if found3594 ; CF=1 & C = index of the nul terminator if not found3595 ; (string length in fact)3596 ;3597 ; note: X & Y not preserved3598 ;3599 ;-------------------------------3600 FA06DD _strchr:3601 .PUBLIC _strchr3602 ;-------------------------------36033604 .LONGA off3605 .LONGI off3606 FA06DD3607 000004 parsiz .SET 4 ; parameter stack frame size3608 000000 locsiz .SET 0 ; locals stack frame size3609 000004 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3610 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.3611 000005 exitsr .SET skpsiz + 1 ; pointer to moved status reg.3612 ;3613 000005 c .SET entsr + 4 ; <c> parameter3614 000006 s .SET c + 1 ; <s> parameter3615 ;3616 FA06DD 38 sec ; assume not found3617 FA06DE 08 php ; save SRTue Jul 17 11:00:21 2018 Page 193618 FA06DF 3B tsc ; stack frame3619 FA06E0 0B phd ; save DP reg.3620 FA06E1 5B tcd ; dp access to stack var's3621 FA06E2 CPU08 ; A/M & X/Y 8 bit3622 FA06E2 E2 30 sep #(PMFLAG.OR.PXFLAG)3623 .LONGA off3624 .LONGI off3625 .MNLIST3626 FA06E4 A0 00 ldy #0 ; pointer3627 FA06E6 INDEX16 ; X/Y 16 bit3628 FA06E6 C2 10 rep #PXFLAG3629 .LONGI on3630 .MNLIST3631 ;3632 FA06E8 B7 06 ?cmp: lda [s],y ; get next char from <s>3633 FA06EA C5 05 cmp <c ; compare with character <c>3634 FA06EC F0 0A beq ?end ; match, reset carry flag3635 FA06EE C9 00 cmp #0 ; end of string?3636 FA06F0 F0 0A beq ?done ; yes, return index of terminator3637 FA06F2 C8 iny ; bump pointer3638 FA06F3 D0 F3 bne ?cmp ; compare next char3639 FA06F5 88 dey3640 FA06F6 80 04 bra ?done3641 ;3642 FA06F8 A9 01 ?end: lda #PCFLAG ; clear CF3643 FA06FA 14 01 trb <entsr3644 ;3645 FA06FC ?done: CPU16CLC ; A,X,Y 16 bit - clear carry3646 FA06FC C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3647 .LONGA on3648 .LONGI on3649 .MNLIST3650 FA06FE A5 03 lda <entsr+2 ; move saved SR and return address3651 FA0700 85 07 sta <exitsr+23652 FA0702 A5 01 lda <entsr3653 FA0704 85 05 sta <exitsr3654 FA0706 2B pld ; restore DP reg.3655 FA0707 3B tsc ; stack frame3656 FA0708 69 04 00 adc #skpsiz ; realign stack3657 FA070B 1B tcs3658 FA070C 98 tya ; C = index3659 FA070D 28 plp ; restore SR3660 FA070E 6B rtl36613662 .LONGA off3663 .LONGI off36643665 ; _strrchr(s, c)3666 ;3667 ; locates the last occurrence of character <c> in string pointed to by <s>3668 ;3669 ; stack param's:3670 ;3671 ; <s>: long pointer to string3672 ; <c>: character to find (byte)3673 ;3674 ; return: CF=0 & C = index of character in string, if foundTue Jul 17 11:00:21 2018 Page 203675 ; CF=1 & C = index of the nul terminator if not found3676 ; (string length in fact)3677 ;3678 ; note: X & Y not preserved3679 ;3680 ;-------------------------------3681 FA070F _strrchr:3682 .PUBLIC _strrchr3683 ;-------------------------------36843685 .LONGA off3686 .LONGI off3687 FA070F3688 000004 parsiz .SET 4 ; parameter stack frame size3689 000000 locsiz .SET 0 ; locals stack frame size3690 000004 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3691 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.3692 000005 exitsr .SET skpsiz + 1 ; pointer to moved status reg.3693 ;3694 000005 c .SET entsr + 4 ; <c> parameter3695 000006 s .SET c + 1 ; <s> parameter3696 ;3697 FA070F 38 sec ; assume not found3698 FA0710 08 php ; save SR3699 FA0711 3B tsc ; stack frame3700 FA0712 0B phd ; save DP reg.3701 FA0713 5B tcd ; dp access to stack var's3702 FA0714 CPU08 ; A/M & X/Y 8 bit3703 FA0714 E2 30 sep #(PMFLAG.OR.PXFLAG)3704 .LONGA off3705 .LONGI off3706 .MNLIST3707 FA0716 A0 00 ldy #0 ; pointer3708 FA0718 INDEX16 ; X/Y 16 bit3709 FA0718 C2 10 rep #PXFLAG3710 .LONGI on3711 .MNLIST3712 ;3713 FA071A B7 06 ?len: lda [s],y ; find end of string3714 FA071C F0 07 beq ?ok ; done when get a nul3715 FA071E C8 iny ; bump pointer3716 FA071F D0 F9 bne ?len3717 FA0721 98 tya3718 FA0722 88 dey ; max length = $FFFF3719 FA0723 97 06 sta [s],y ; force string terminator3720 ;3721 FA0725 BB ?ok: tyx ; save pointer to the end of string3722 FA0726 A5 05 lda <c3723 FA0728 D7 06 ?cmp: cmp [s],y ; compare3724 FA072A F0 07 beq ?end ; match, reset carry flag3725 FA072C 88 dey ; update pointer3726 FA072D D0 F9 bne ?cmp ; compare previous char3727 FA072F C7 06 cmp [s] ; compare character at index 03728 FA0731 D0 05 bne ?done ; unmatch3729 ;3730 FA0733 A9 01 ?end: lda #PCFLAG ; clear CF3731 FA0735 14 01 trb <entsrTue Jul 17 11:00:21 2018 Page 213732 FA0737 BB tyx ; index where found character3733 ;3734 FA0738 ?done: CPU16CLC ; A,X,Y 16 bit - clear carry3735 FA0738 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3736 .LONGA on3737 .LONGI on3738 .MNLIST3739 FA073A A5 03 lda <entsr+2 ; move saved SR and return address3740 FA073C 85 07 sta <exitsr+23741 FA073E A5 01 lda <entsr3742 FA0740 85 05 sta <exitsr3743 FA0742 2B pld ; restore DP reg.3744 FA0743 3B tsc ; stack frame3745 FA0744 69 04 00 adc #skpsiz ; realign stack3746 FA0747 1B tcs3747 FA0748 8A txa ; C = index3748 FA0749 28 plp ; restore SR3749 FA074A 6B rtl37503751 .LONGA off3752 .LONGI off37533754 ; _strlchr(s, c, i)3755 ;3756 ; locates the first occurrence of character <c> in string pointed to by <s>,3757 ; starting from the character at index <i>3758 ;3759 ; stack param's:3760 ;3761 ; <s>: long pointer to string3762 ; <c>: character to find (byte)3763 ; <i>: index where start searching (word)3764 ;3765 ; return: CF=0 & C = index of character in string, if found3766 ; CF=1 & C = index of the nul terminator if not found3767 ; (string length in fact)3768 ;3769 ; note: X & Y not preserved3770 ;3771 ;-------------------------------3772 FA074B _strlchr:3773 .PUBLIC _strlchr3774 ;-------------------------------37753776 .LONGA off3777 .LONGI off3778 FA074B3779 000006 parsiz .SET 6 ; parameter stack frame size3780 000000 locsiz .SET 0 ; locals stack frame size3781 000006 skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3782 000001 entsr .SET locsiz + 1 ; pointer to saved status reg.3783 000007 exitsr .SET skpsiz + 1 ; pointer to moved status reg.3784 ;3785 000005 i .SET entsr + 4 ; <i> parameter3786 000007 c .SET i + 2 ; <c> parameter3787 000008 s .SET c + 1 ; <s> parameter3788 ;Tue Jul 17 11:00:21 2018 Page 223789 FA074B 38 sec ; assume not found3790 FA074C 08 php ; save SR3791 FA074D 3B tsc ; stack frame3792 FA074E 0B phd ; save DP reg.3793 FA074F 5B tcd ; dp access to stack var's3794 FA0750 CPU08 ; A/M & X/Y 8 bit3795 FA0750 E2 30 sep #(PMFLAG.OR.PXFLAG)3796 .LONGA off3797 .LONGI off3798 .MNLIST3799 FA0752 A0 00 ldy #0 ; pointer3800 FA0754 INDEX16 ; X/Y 16 bit3801 FA0754 C2 10 rep #PXFLAG3802 .LONGI on3803 .MNLIST3804 ;3805 FA0756 B7 08 ?cmp: lda [s],y ; get next char from <s>3806 FA0758 C5 07 cmp <c ; compare with character <c>3807 FA075A F0 0A beq ?fnd ; match, test index3808 FA075C C9 00 ?tst: cmp #0 ; end of string?3809 FA075E F0 0E beq ?done ; yes, return index of terminator3810 FA0760 C8 iny ; bump pointer3811 FA0761 D0 F3 bne ?cmp ; compare next char3812 FA0763 88 dey3813 FA0764 80 08 bra ?done3814 ;3815 FA0766 C4 05 ?fnd: cpy <i ; at right starting index?3816 FA0768 90 F2 bcc ?tst ; no, search again3817 FA076A A9 01 lda #PCFLAG ; clear CF3818 FA076C 14 01 trb <entsr3819 ;3820 FA076E ?done: CPU16CLC ; A,X,Y 16 bit - clear carry3821 FA076E C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3822 .LONGA on3823 .LONGI on3824 .MNLIST3825 FA0770 A5 03 lda <entsr+2 ; move saved SR and return address3826 FA0772 85 09 sta <exitsr+23827 FA0774 A5 01 lda <entsr3828 FA0776 85 07 sta <exitsr3829 FA0778 2B pld ; restore DP reg.3830 FA0779 3B tsc ; stack frame3831 FA077A 69 06 00 adc #skpsiz ; realign stack3832 FA077D 1B tcs3833 FA077E 98 tya ; C = index3834 FA077F 28 plp ; restore SR3835 FA0780 6B rtl38363837 .LONGA off3838 .LONGI off38393840 ; _strstr(s, find)3841 ; locates the first occurrence of string <find> in string <s>3842 ;3843 ; stack param's:3844 ;3845 ; <s>: long pointer to string <s>Tue Jul 17 11:00:21 2018 Page 233846 ; <find>: long pointer to string <find>3847 ;3848 ; return: CF=0 & C=index of first character of first occurrence3849 ; CF=1 & C=length of <s> if <find> occur nowhere in <s>3850 ; if <find> is empty return CF=0 & C=03851 ;3852 ; note: X & Y not preserved3853 ;3854 ;-------------------------------3855 FA0781 _strstr:3856 .PUBLIC _strstr3857 ;-------------------------------38583859 .LONGA off3860 .LONGI off3861 FA07813862 000006 parsiz .SET 6 ; parameter stack frame size3863 000004 locsiz .SET 4 ; locals stack frame size3864 00000A skpsiz .SET parsiz + locsiz ; bytes to skip to realign stack3865 000005 entsr .SET locsiz + 1 ; pointer to saved status reg.3866 00000B exitsr .SET skpsiz + 1 ; pointer to moved status reg.3867 ;3868 000009 find .SET entsr + 4 ; <find> parameter3869 00000C s .SET find + 3 ; <s> parameter3870 ;3871 000001 len .SET 1 ; local: string <find> length3872 000003 c .SET 3 ; local: firs character of <find>3873 ;3874 FA0781 38 sec ; assume not found3875 FA0782 08 php ; save SR3876 FA0783 CPU08 ; A/M & X/Y 8 bit3877 FA0783 E2 30 sep #(PMFLAG.OR.PXFLAG)3878 .LONGA off3879 .LONGI off3880 .MNLIST3881 FA0785 A2 00 ldx #0 ; index3882 FA0787 INDEX16 ; X/Y 163883 FA0787 C2 10 rep #PXFLAG3884 .LONGI on3885 .MNLIST3886 FA0789 DA phx ; local: <c>3887 FA078A DA phx ; local: <len>3888 FA078B 3B tsc ; stack frame3889 FA078C 0B phd ; save DP reg.3890 FA078D 5B tcd ; dp access to stack var's3891 FA078E A7 09 lda [find] ; if string <find> is empty...3892 FA0790 F0 42 beq ?end2 ; ...exit with index = 0 & CF = 03893 FA0792 85 03 sta <c ; <c> = first character of <find>3894 FA0794 A4 09 ldy <find ; bump pointer to <find>3895 FA0796 C8 iny3896 FA0797 84 09 sty <find ; <find1> = pointer to 2nd character of <find>3897 FA0799 D0 02 bne ?go3898 FA079B E6 0B inc <find+23899 ;3900 FA079D 9B ?go txy ; Y = 03901 ;3902 FA079E B7 09 ?len: lda [find],y ; compute string <find1> lengthTue Jul 17 11:00:21 2018 Page 243903 FA07A0 F0 07 beq ?do ; done when get a nul3904 FA07A2 C8 iny ; bump pointer3905 FA07A3 D0 F9 bne ?len3906 FA07A5 98 tya3907 FA07A6 88 dey ; max length = $FFFF3908 FA07A7 97 09 sta [find],y ; force string terminator3909 ;3910 FA07A9 84 01 ?do: sty <len ; <len> = <find1> length3911 ;3912 FA07AB A4 0C ?do1: ldy <s ; scan string <s>3913 ;3914 FA07AD A7 0C ?do2: lda [s] ; next char of string <s>3915 FA07AF F0 27 beq ?done ; end of string <s>: exit with CF=13916 FA07B1 E8 inx ; update <s> scan index3917 FA07B2 C8 iny3918 FA07B3 84 0C sty <s ; bump <s> pointer3919 FA07B5 D0 02 bne ?do33920 FA07B7 E6 0E inc <s+23921 ;3922 FA07B9 C5 03 ?do3: cmp <c ; match first character of <find>?3923 FA07BB D0 F0 bne ?do2 ; no, so check next character of <s>3924 FA07BD A4 01 ldy <len ; now compute _strncmp(s, find1, len)3925 FA07BF F0 12 beq ?end ; if <len> = 0 match first character3926 FA07C1 A0 00 00 ldy #03927 ;3928 FA07C4 B7 0C ?cmp: lda [s],y ; get next char from <s>3929 FA07C6 D7 09 cmp [find],y ; compare with byte in <find1>3930 FA07C8 D0 E1 bne ?do1 ; unmatch, try next char of <s>3931 FA07CA C9 00 cmp #0 ; end of string?3932 FA07CC F0 05 beq ?end ; yes, reset carry flag3933 FA07CE C8 iny ; bump pointer3934 FA07CF C4 01 cpy <len ; at most <len> characters...3935 FA07D1 90 F1 bcc ?cmp ; compare next char3936 ;3937 FA07D3 CA ?end: dex ; all match: update index & reset carry flag3938 ;3939 FA07D4 ?end2:3940 FA07D4 A9 01 lda #PCFLAG ; reset CF...3941 FA07D6 14 05 trb <entsr ; ...on saved status reg.3942 ;3943 FA07D8 ?done: CPU16CLC ; A,X,Y 16 bit - clear carry3944 FA07D8 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3945 .LONGA on3946 .LONGI on3947 .MNLIST3948 FA07DA A5 07 lda <entsr+2 ; move saved SR and return address3949 FA07DC 85 0D sta <exitsr+23950 FA07DE A5 05 lda <entsr3951 FA07E0 85 0B sta <exitsr3952 FA07E2 2B pld ; restore DP reg.3953 FA07E3 3B tsc ; stack frame3954 FA07E4 69 0A 00 adc #skpsiz ; realign stack3955 FA07E7 1B tcs3956 FA07E8 8A txa ; C = index3957 FA07E9 28 plp ; restore SR3958 FA07EA 6B rtl3959Tue Jul 17 11:00:21 2018 Page 253960 .LONGA off3961 .LONGI offLines Assembled : 3788 Errors : 0