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\getopt.asmOutput Filename : obj\FA\getopt.objListing Has Been Relocated2603 .LIST on26042605 F8FFB1 .INCLUDE inc\dirp00.inc2606 ;----------------------------------------------------------2607 ; DIRP00.ASM2608 ; PROGETTO: B16012609 ;2610 ; Variabili in Direct Page $002611 ;----------------------------------------------------------26122613 ; sezione COMMON -- questo permette di includere il file in piu' file26142615 .LIST on26162617 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026182619 000000 .ABSOLUTE ;; inizia sempre da $002620 000000 .ORG 0x002621 0000002622 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2623 000002 0000 .DW2624 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2625 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2626 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2627 ; <6>: flag warm reset2628 00000D 00 RTCFlag .DB26292630 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12631 ; <7>: device ready2632 ; <6>: compact flash device (C.F.)2633 ; <5>: device identification ok2634 ; <4>: MBR loaded2635 ; <3>: valid signature in MBR2636 ; <2>: first partition found&active2637 ; <1>:2638 ; <0>: valid partition flag26392640 ; <7>: device ready2641 ; <6>: USB device2642 ; <5>: compact flash device (C.F.)2643 ; <4>: device identification ok2644 ; <3>: MBR loaded2645 ; <2>: first partition found&active2646 ; <1>: always 12647 ; <0>: valid partition flag2648 000010Tue Jul 17 11:00:21 2018 Page 226492650 00000E atadev .EQU diskstat26512652 000010 usbdev .DS 2 ; flag flash disk on usb bus #02653 ; <7>: device plugged and ready2654 ; <6>: always 12655 ; <5>: device identification ok2656 ; <4>: MBR loaded2657 ; <3>: valid signature in MBR2658 ; <2>: first partition found&active2659 ; <1>:2660 ; <0>: valid partition flag26612662 000012 diskmax .DS 16 ; disk max. sector's2663 000012 atasec .EQU diskmax2664 00001A usbsec .EQU diskmax+8266526662667 000022 atambr .DS 8 ; data for first partition found in mbr2668 ; first 3 bytes for start sector of partition2669 ; last byte for partition type2670 00002A usbmbr .DS 826712672 000032 ataprt .DS 8 ; total sec's of first partition2673 00003A usbprt .DS 8 ; total sec's of first partition267426752676 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2677 ; <7>: module on2678 ; <6>: ch376 flag2679 ; <5:0>: chip version26802681 000043 00 usb0st .DB ; usb0 status2682 ; <7>: usb0 host mode ok2683 ; <6>: flash disk attached flag2684 ; <5>: usb device attached26852686 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2687 ; <7>: disk format established in bit 0&12688 ; <6>: double step seek done2689 ; <5>: trust format bit's (set after ok r/w)2690 ; <4>: write protect bit (if disk in drive)2691 ; <3>: don't care2692 ; <2>: don't care2693 ; <1>: HD disk if set else DD disk2694 ; <0>: CBM format if set else IBM format26952696 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2697 ; <7>: disk format established in bit 0&12698 ; <6>: change disk simulation (after format)2699 ; <5>: don't care2700 ; <4>: write protect bit (under sw control)2701 ; <3>: don't care2702 ; <2>: don't care2703 ; <1>: HD disk if set else DD disk2704 ; <0>: CBM format if set else IBM format2705Tue Jul 17 11:00:21 2018 Page 32706 000046 00 fdcctl .DB ; fdc controller status2707 ; <7>: drive is attached2708 ; <6>: drive need recalibration (restore)2709 ; <5>: FDC controller ok2710 ; <4>: motor on2711 ; <3>: dma is active2712 ; <2>: dma chip ok (post routine)2713 ; <1>: clock rate (1=HD,0=DD)2714 ; <0>: disk ready27152716 000047 00 fdctrk .DB ; fd: current seek track2717 000048 00 fdcerr .DB ; fd: last error code2718 000049 00 ataerr .DB ; ata: last error code2719 00004A 00 ataxer .DB ; ata: last extended error code27202721 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27222723 00004C 0000 MemTop .DW ; top memoria RAM2724 00004E 00 .DB ; banco top mem27252726 00004F 00 DflTxtIn .DB ; device di default text input2727 000050 00 DflTxtOut .DB ; device di default text output27282729 000051 COPPtr LP ; long pointer for COP decoding2730 000054 00 COPIdx .DB ; COP signature/index27312732 000055 00 BiosEnt .DB ; flag accesso a bios setup27332734 ; variabili utilizzate da ACIA2735 000056 spwrk .DS $3027362737 ; bios mem2738 000086 0000 nsize .DW ; dimensione blocco da allocare2739 ;bsize .DW ; dimensione vera blocco free2740 000088 0000 splitsz .DW ; dimensione blocco splittato2741 00008A 0000 bfree .DW ; puntatore blocco free2742 00008C 0000 hdrptr .DW ; puntatore header heap27432744 00008E 0000 pbrklv .DW ; current break level of current process2745 000090 0000 pbrkmin .DW ; minimum breal level of current process2746 000092 0000 pbrkmax .DW ; maximum breal level of current process2747 0000942748 ; bios temp. work area2749 000094 bwrktmp .DS $2827502751 0000BC 00 coptmp .DB ; temp. used while cop27522753 0000BD 00 tstser .DB ; check ser/usb test board post2754 ; <7>: VIA2 ok2755 ; <6>: PICRAM ok2756 ; <1>: UART 16C550 ok2757 ; <0>: R65C51 ok275827592760 ;crc16 .DW27612762 0000BD .RELATIVETue Jul 17 11:00:21 2018 Page 427632764 .ENDS27652766 [01] .IFDEF _ACIA_INC_2767 .INCLUDE INC\SP.INC2768 [00] .ENDIF27692773 .LIST on27742775 ; page 0 local var's (declared in bios temp. work area)2776 _P0BTMP: .SECTION page0, ref_only, offset bwrktmp ; DP Tmp. BIOS27772778 000094 cmdlin LP ; long pointer to command line2779 000097 optstr LP ; long pointer to options mask2780 00009A 0000 0000 dwres .LWORD ; result2781 00009E 00 slen .DB ; string length2782 00009F 00 squot .DB ; flag quotation marks2783 0000A0 00 cmdy .DB ; index2784 0000A1 00 chopt .DB ; option char2785 0000A2 00 prsfg .DB ; parsing flag2786 0000A3 00 opttyp .DB ; option type2787 0000A4 intarg .DS 4 ; integer argument2788 0000A8 tmpp LP2789 0000AB 00 argsgn .DB27902791 .ENDS27922793 ;---------------------------------------------------------------------------2794 ; code segment -- bank $FA2795 ;---------------------------------------------------------------------------27962797 .CODEFA2798 .EXTERN _lstrtoint27992800 .LONGA off2801 .LONGI off28022803 ; getopt2804 ;2805 ; parse a command line and return option&argument2806 ; command line is parsed basis on option string, a mask that specify option ch2807 ; and argument type. Any option start with '-' character, followed by a single2808 ; character; if option requires an argument, this argument follow (without2809 ; blanks) the character option. String option can be quoted (with quotation2810 ; marks, this need when argument contains blanks).2811 ; Option string have this simple skeleton:2812 ;2813 ; xtxtxtxt....2814 ;2815 ; where x is a single option character and t is the argument type2816 ; recognized argument types:2817 ; t= blank, mean option does not requires argument2818 ; ':', '$': mean option requires a string argument2819 ; type '$' return an up case string2820 ; '!', '^': mean option requires a single char argument2821 ; type '^' return an up case char2822 ; '%' : byte argument requiredTue Jul 17 11:00:21 2018 Page 52823 ; '#' : integer 16 bit argument required2824 ; '*' : integer 24 bit argument required (ptr type)2825 ; '&' : integer 32 bit argument required2826 ;2827 ; option string example: 'r s:t^'2828 ; option '-r' without argument2829 ; option '-s' requires a string2830 ; option '-t' requires a single character, returned in up case2831 ; an example of valid command line for above mask:2832 ; xxxxx -szzzzz -r -tC yyyyy2833 ; string 'yyyyy' is an argument without option2834 ;2835 ; function return2836 ; getopt does not clean stack frame when exit and parameter's will be modified2837 ; sCmd change at any call and hold the residual command line string2838 ; sRes change at any call and hold the argument (long pointer to string,2839 ; a single character, a numeric argument)2840 ; Y return the option type associated with the current parsed option2841 ; A return: 0 if reached the end of command line, the current parsed option,2842 ; or a negative value if return an argument without option: in this last case2843 ; sRes return a string.2844 ;2845 ; calling getopt will be in a loop until A=0 or until error; the caller should2846 ; clean stack when finish to parse command line2847 ;2848 ; param's:2849 ;2850 ; sFlag = <7>: show error message2851 ; <6>: accept decimal numeric arguments2852 ; <5>: wanted signed int arg. (only if bit 6 is set)2853 ; <0>: called from monitor2854 ; sCmd = long pointer to command line2855 ; sOpt = long pointer to option's string2856 ; sRes = 32 bit result2857 ;2858 ; exit:2859 ; sCmd = residual command line string2860 ; sRes = argument (depend on type)2861 ; A = option character currently parsed2862 ; or =0 when end of string,2863 ; or negative when parsed argument without option2864 ; Y = option type associated with option2865 ;2866 ; if any error, function return CF=1, otherwise CF=02867 ;2868 ; param's stack offset2869 000006 sRes .SET 62870 00000A sOpt .SET 102871 00000D sCmd .SET 132872 000010 sFlag .SET 1628732874 ;----------------------2875 FA0009 _getopt:2876 .PUBLIC _getopt2877 ;----------------------2878 FA0009 0B phd2879 FA000A F4 00 00 pea #0Tue Jul 17 11:00:21 2018 Page 62880 FA000D 2B pld2881 FA000E ACC16 ; move param's in local var's2882 FA000E C2 20 rep #PMFLAG2883 .LONGA on2884 .MNLIST2885 FA0010 A3 0A lda sOpt,s2886 FA0012 85 97 sta optstr2887 FA0014 A3 0D lda sCmd,s2888 FA0016 85 94 sta cmdlin2889 FA0018 64 A4 stz intarg2890 FA001A 64 A6 stz intarg+22891 FA001C ACC082892 FA001C E2 20 sep #PMFLAG2893 .LONGA off2894 .MNLIST2895 FA001E A3 0C lda sOpt+2,s2896 FA0020 85 99 sta optstr+22897 FA0022 A3 0F lda sCmd+2,s2898 FA0024 85 96 sta cmdlin+22899 FA0026 A3 10 lda sFlag,s2900 FA0028 85 A2 sta prsfg2901 FA002A A0 00 ldy #02902 FA002C 84 A3 sty opttyp2903 FA002E 84 AB sty argsgn2904 FA0030 20 A5 00 jsr ?104 ; get next char2905 FA0033 F0 6C beq ?94 ; return A=02906 FA0035 C9 2D cmp #'-' ; option?2907 FA0037 F0 0B beq ?05 ; yes2908 FA0039 20 AE 00 jsr ?110 ; find end of argument2909 FA003C B0 64 bcs ?95 ; error2910 FA003E A9 80 lda #$80 ; no option argument2911 FA0040 85 A1 sta chopt2912 FA0042 80 45 bra ?902913 FA0044 20 59 01 ?05: jsr ?130 ; check option2914 FA0047 B0 59 bcs ?95 ; error2915 FA0049 20 C4 01 jsr ?140 ; test option argument2916 FA004C B0 54 bcs ?95 ; error2917 FA004E A6 A3 ldx opttyp2918 FA0050 E0 20 cpx #' ' ; option without argument?2919 FA0052 F0 35 beq ?90 ; yes...so exit2920 FA0054 E0 3A cpx #':' ; option requires a simple string argument?2921 FA0056 F0 31 beq ?90 ; yes...so exit2922 FA0058 E0 24 cpx #'$' ; option requires up case string argument?2923 FA005A F0 08 beq ?10 ; yes2924 FA005C E0 21 cpx #'!' ; option requires a single char argument?2925 FA005E F0 1D beq ?30 ; yes2926 FA0060 E0 5E cpx #'^' ; option requires a single up case char arg.?2927 FA0062 D0 20 bne ?40 ; no2928 FA0064 A0 00 ?10: ldy #02929 FA0066 B7 9A ?15: lda [dwres],y ; up case string2930 FA0068 F0 0F beq ?25 ; end of string2931 FA006A C9 61 cmp #'a'2932 FA006C 90 08 bcc ?202933 FA006E C9 7B cmp #'z'+12934 FA0070 B0 04 bcs ?202935 FA0072 29 DF and #$DF2936 FA0074 97 9A sta [dwres],yTue Jul 17 11:00:21 2018 Page 72937 FA0076 C8 ?20: iny2938 FA0077 80 ED bra ?152939 FA0079 E0 24 ?25: cpx #'$' ; if requires string exit2940 FA007B F0 0C beq ?902941 FA007D 20 52 02 ?30: jsr ?150 ; check single char argument2942 FA0080 B0 20 bcs ?95 ; error2943 FA0082 80 05 bra ?902944 FA0084 20 AD 02 ?40: jsr ?160 ; others option type2945 FA0087 B0 19 bcs ?952946 FA0089 ?90: ACC16 ; return result to the caller...2947 FA0089 C2 20 rep #PMFLAG2948 .LONGA on2949 .MNLIST2950 FA008B A5 94 lda cmdlin ; ...and residual command line string2951 FA008D 83 0D sta sCmd,s2952 FA008F A5 9A lda dwres2953 FA0091 83 06 sta sRes,s2954 FA0093 A5 9C lda dwres+22955 FA0095 83 08 sta sRes+2,s2956 FA0097 ACC082957 FA0097 E2 20 sep #PMFLAG2958 .LONGA off2959 .MNLIST2960 FA0099 A5 96 lda cmdlin+22961 FA009B 83 0F sta sCmd+2,s2962 FA009D A4 A3 ldy opttyp ; return Y=option type2963 FA009F A5 A1 lda chopt ; return A=option char2964 FA00A1 18 ?94: clc ; no error2965 FA00A2 2B ?95: pld2966 FA00A3 6B rtl29672968 FA00A4 C8 ?100: iny ; get char from command line2969 FA00A5 B7 94 ?104: lda [cmdlin],y2970 FA00A7 F0 04 beq ?1062971 FA00A9 C9 20 cmp #' '2972 FA00AB F0 F7 beq ?1002973 FA00AD 60 ?106: rts29742975 FA00AE A2 20 ?110: ldx #' '2976 FA00B0 86 9F stx squot ; normal end of string char2977 FA00B2 64 9E stz slen ; size of argument2978 FA00B4 C9 22 cmp #'"' ; search end of string2979 FA00B6 D0 03 bne ?112 ; not quoted2980 FA00B8 85 9F sta squot ; quoted string2981 FA00BA C8 iny2982 FA00BB 84 A0 ?112: sty cmdy ; save index2983 FA00BD B7 94 ?114: lda [cmdlin],y2984 FA00BF D0 08 bne ?1152985 FA00C1 A6 9F ldx squot2986 FA00C3 E0 22 cpx #'"'2987 FA00C5 F0 37 beq ?122 ; missing final quote2988 FA00C7 80 0E bra ?1172989 FA00C9 C5 9F ?115: cmp squot ; first blank/quote is end of string2990 FA00CB F0 05 beq ?1162991 FA00CD E6 9E inc slen2992 FA00CF C8 iny2993 FA00D0 80 EB bra ?114Tue Jul 17 11:00:21 2018 Page 82994 FA00D2 A9 00 ?116: lda #0 ; put string terminator2995 FA00D4 97 94 sta [cmdlin],y2996 FA00D6 C8 iny ; next token in command line2997 FA00D7 A6 9E ?117: ldx slen ; check string length2998 FA00D9 F0 53 beq ?126 ; error2999 FA00DB A6 A0 ldx cmdy3000 FA00DD ACC16CLC3001 FA00DD C2 21 rep #(PMFLAG.OR.PCFLAG)3002 .LONGA on3003 .MNLIST3004 FA00DF 8A txa3005 FA00E0 65 94 adc cmdlin3006 FA00E2 85 9A sta dwres ; pointer to argument3007 FA00E4 ACC083008 FA00E4 E2 20 sep #PMFLAG3009 .LONGA off3010 .MNLIST3011 FA00E6 A5 96 lda cmdlin+23012 FA00E8 90 01 bcc ?1183013 FA00EA 1A inc a3014 FA00EB 85 9C ?118: sta dwres+23015 FA00ED 64 9D stz dwres+33016 FA00EF ?119: ACC16CLC3017 FA00EF C2 21 rep #(PMFLAG.OR.PCFLAG)3018 .LONGA on3019 .MNLIST3020 FA00F1 98 tya3021 FA00F2 65 94 adc cmdlin3022 FA00F4 85 94 sta cmdlin ; bump command line ptr3023 FA00F6 ACC083024 FA00F6 E2 20 sep #PMFLAG3025 .LONGA off3026 .MNLIST3027 FA00F8 90 03 bcc ?1203028 FA00FA E6 96 inc cmdlin+23029 FA00FC 18 clc3030 FA00FD 60 ?120: rts3031 FA00FE A5 A2 ?122: lda prsfg ; test bit 73032 FA0100 10 2A bpl ?124 ; no show error message3033 FA0102 20 50 01 jsr ?1283034 FA0105 SCNPRINT3035 FA0105 02 01 cop $013036 .MNLIST3037 FA0107 6D 69 73 73 69 .DB 'missig quotation marks in argument.', 13, 067 20 71 75 6F74 61 74 69 6F6E 20 6D 61 726B 73 20 69 6E20 61 72 67 756D 65 6E 74 2E0D 003038 FA012C 38 ?124: sec ; error flag3039 FA012D 60 rts3040 FA012E A5 A2 ?126: lda prsfg3041 FA0130 10 FA bpl ?1243042 FA0132 20 50 01 jsr ?1283043 FA0135 SCNPRINTTue Jul 17 11:00:21 2018 Page 93044 FA0135 02 01 cop $013045 .MNLIST3046 FA0137 61 72 67 75 6D .DB 'argument zero length.', 13, 065 6E 74 20 7A65 72 6F 20 6C65 6E 67 74 682E 0D 003047 FA014E 38 ?127: sec3048 FA014F 60 rts3049 FA0150 4A ?128: lsr a3050 FA0151 90 05 bcc ?1293051 FA0153 SCNPRINT3052 FA0153 02 01 cop $013053 .MNLIST3054 FA0155 3A 3A 00 .DB '::', 03055 FA0158 60 ?129: rts30563057 FA0159 C8 ?130: iny ; check option3058 FA015A B7 94 lda [cmdlin],y3059 FA015C F0 1E beq ?135 ; missing option3060 FA015E C9 20 cmp #' '3061 FA0160 F0 1A beq ?135 ; missing option3062 FA0162 BB tyx3063 FA0163 85 A1 sta chopt ; store option char3064 FA0165 A0 00 ldy #0 ; scan option string3065 FA0167 B7 97 ?132: lda [optstr],y3066 FA0169 F0 2D beq ?136 ; option not found3067 FA016B C5 A1 cmp chopt3068 FA016D F0 04 beq ?134 ; found3069 FA016F C8 iny3070 FA0170 C8 iny3071 FA0171 80 F4 bra ?1323072 FA0173 C8 ?134: iny3073 FA0174 B7 97 lda [optstr],y ; get option type3074 FA0176 85 A3 sta opttyp3075 FA0178 9B txy3076 FA0179 C8 iny3077 FA017A 18 clc3078 FA017B 60 rts3079 FA017C3080 FA017C A5 A2 ?135: lda prsfg3081 FA017E 10 CE bpl ?1273082 FA0180 20 50 01 jsr ?1283083 FA0183 SCNPRINT3084 FA0183 02 01 cop $013085 .MNLIST3086 FA0185 6D 69 73 73 69 .DB 'missing option.', 13, 06E 67 20 6F 7074 69 6F 6E 2E0D 003087 FA0196 38 sec3088 FA0197 60 rts30893090 FA0198 A5 A2 ?136: lda prsfg3091 FA019A 10 B2 bpl ?1273092 FA019C 20 50 01 jsr ?1283093 FA019F A5 A1 lda choptTue Jul 17 11:00:21 2018 Page 103094 FA01A1 48 pha3095 FA01A2 4B phk3096 FA01A3 F4 AD 01 pea #!?1383097 FA01A6 A9 05 lda #53098 FA01A8 48 pha3099 FA01A9 BPRINTF3100 FA01A9 02 11 cop $113101 .MNLIST3102 FA01AB 38 sec3103 FA01AC 60 rts31043105 FA01AD 69 6C 6C 65 67 ?138: .DB 'illegal option ''-%c''.', 13, 061 6C 20 6F 7074 69 6F 6E 2027 2D 25 63 272E 0D 0031063107 FA01C4 A6 A3 ?140: ldx opttyp ; option type3108 FA01C6 B7 94 lda [cmdlin],y ; get char after option3109 FA01C8 F0 0B beq ?142 ; no argument3110 FA01CA C9 20 cmp #' '3111 FA01CC F0 07 beq ?142 ; no argument3112 FA01CE E0 20 cpx #' ' ; option requires an argument?3113 FA01D0 F0 0A beq ?144 ; no...so error3114 FA01D2 4C AE 00 jmp ?110 ; get argument3115 FA01D5 E0 20 ?142: cpx #' ' ; option requires an argument?3116 FA01D7 D0 45 bne ?148 ; yes...so error3117 FA01D9 4C EF 00 jmp ?119 ; bump command line ptr3118 FA01DC3119 FA01DC A5 A2 ?144: lda prsfg3120 FA01DE 10 0F bpl ?1453121 FA01E0 20 50 01 jsr ?1283122 FA01E3 A5 A1 lda chopt3123 FA01E5 48 pha3124 FA01E6 4B phk3125 FA01E7 F4 F1 01 pea #!?1463126 FA01EA A9 05 ?144a: lda #53127 FA01EC 48 pha3128 FA01ED BPRINTF3129 FA01ED 02 11 cop $113130 .MNLIST3131 FA01EF 38 ?145: sec3132 FA01F0 60 rts31333134 FA01F1 6F 70 74 69 6F ?146: .DB 'option ''-%c'' does not requires an argument.', 13, 06E 20 27 2D 2563 27 20 64 6F65 73 20 6E 6F74 20 72 65 7175 69 72 65 7320 61 6E 20 6172 67 75 6D 656E 74 2E 0D 0031353136 FA021E A5 A2 ?148: lda prsfg3137 FA0220 10 CD bpl ?1453138 FA0222 20 50 01 jsr ?128Tue Jul 17 11:00:21 2018 Page 113139 FA0225 A5 A1 lda chopt3140 FA0227 48 pha3141 FA0228 4B phk3142 FA0229 F4 2E 02 pea #!?1493143 FA022C 80 BC bra ?144a31443145 FA022E 6F 70 74 69 6F ?149: .DB 'option ''-%c'' requires an argument.', 13, 06E 20 27 2D 2563 27 20 72 6571 75 69 72 6573 20 61 6E 2061 72 67 75 6D65 6E 74 2E 0D0031463147 FA0252 A5 9E ?150: lda slen ; check single char argument3148 FA0254 C9 01 cmp #13149 FA0256 D0 0C bne ?1523150 FA0258 A7 9A lda [dwres]3151 FA025A 85 9A sta dwres3152 FA025C 64 9B stz dwres+13153 FA025E 64 9C stz dwres+23154 FA0260 64 9D stz dwres+33155 FA0262 18 clc3156 FA0263 60 rts3157 FA0264 A5 A2 ?152: lda prsfg3158 FA0266 10 0F bpl ?1543159 FA0268 20 50 01 jsr ?1283160 FA026B A5 A1 lda chopt3161 FA026D 48 pha3162 FA026E 4B phk3163 FA026F F4 79 02 pea #!?1563164 FA0272 A9 05 lda #53165 FA0274 48 pha3166 FA0275 BPRINTF3167 FA0275 02 11 cop $113168 .MNLIST3169 FA0277 38 ?154: sec3170 FA0278 60 rts31713172 FA0279 6F 70 74 69 6F ?156: .DB 'option ''-%c'' requires a single character argument.', 13, 06E 20 27 2D 2563 27 20 72 6571 75 69 72 6573 20 61 20 7369 6E 67 6C 6520 63 68 61 7261 63 74 65 7220 61 72 67 756D 65 6E 74 2E0D 0031733174 FA02AD A2 03 ?160: ldx #3 ; check others option's type3175 FA02AF BF F3 03 FA ?162: lda >?200,x3176 FA02B3 C5 A3 cmp opttyp3177 FA02B5 F0 46 beq ?1663178 FA02B7 CA dexTue Jul 17 11:00:21 2018 Page 123179 FA02B8 10 F5 bpl ?1623180 FA02BA A5 A2 lda prsfg3181 FA02BC 10 12 bpl ?1643182 FA02BE 20 50 01 jsr ?1283183 FA02C1 A5 A3 lda opttyp3184 FA02C3 48 pha3185 FA02C4 A5 A1 lda chopt3186 FA02C6 48 pha3187 FA02C7 4B phk3188 FA02C8 F4 D2 02 pea #!?1653189 FA02CB A9 06 lda #63190 FA02CD 48 pha3191 FA02CE BPRINTF3192 FA02CE 02 11 cop $113193 .MNLIST3194 FA02D0 38 ?164: sec3195 FA02D1 60 rts31963197 FA02D2 6F 70 74 69 6F ?165: .DB 'option ''-%c'': invalid argument type ''%c''.', 13, 06E 20 27 2D 2563 27 3A 20 696E 76 61 6C 6964 20 61 72 6775 6D 65 6E 7420 74 79 70 6520 27 25 63 272E 0D 0031983199 FA02FD E8 ?166: inx ; wanted integer size3200 FA02FE A5 A2 lda prsfg3201 FA0300 A8 tay3202 FA0301 29 40 and #$40 ; mask autodetect flag3203 FA0303 F0 07 beq ?166a ; hex string only3204 FA0305 85 A8 sta tmpp3205 FA0307 98 tya3206 FA0308 0A asl a3207 FA0309 0A asl a ; wanted signed flag3208 FA030A 05 A8 ora tmpp3209 FA030C A4 9C ?166a: ldy dwres+2 ; string ptr3210 FA030E 5A phy3211 FA030F D4 9A pei (dwres)3212 FA0311 DA phx ; integer size3213 FA0312 48 pha ; flag3214 FA0313 F4 00 00 pea #0 ; pointer to result3215 FA0316 A9 A4 lda #intarg3216 FA0318 48 pha3217 FA0319 22 BB 27 F8 jsl _lstrtoint3218 FA031D B0 1A bcs ?1683219 FA031F 70 31 bvs ?1803220 FA0321 ACC163221 FA0321 C2 20 rep #PMFLAG3222 .LONGA on3223 .MNLIST3224 FA0323 85 A8 sta tmpp3225 FA0325 86 AA stx tmpp+23226 FA0327 84 AB sty argsgn3227 FA0329 A5 A4 lda intargTue Jul 17 11:00:21 2018 Page 133228 FA032B 85 9A sta dwres3229 FA032D A5 A6 lda intarg+23230 FA032F 85 9C sta dwres+23231 FA0331 ACC083232 FA0331 E2 20 sep #PMFLAG3233 .LONGA off3234 .MNLIST3235 FA0333 A7 A8 lda [tmpp] ; check residual string3236 FA0335 D0 01 bne ?167 ; should be null3237 FA0337 60 rts3238 FA0338 B8 ?167: clv ; invalid numeric string3239 FA0339 A5 A2 ?168: lda prsfg3240 FA033B 10 28 bpl ?1843241 FA033D 08 php3242 FA033E 20 50 01 jsr ?1283243 FA0341 28 plp3244 FA0342 A5 A1 lda chopt3245 FA0344 48 pha3246 FA0345 4B phk3247 FA0346 70 05 bvs ?1703248 FA0348 F4 67 03 pea #!?1903249 FA034B 80 13 bra ?1823250 FA034D F4 97 03 ?170: pea #!?1923251 FA0350 80 0E bra ?1823252 FA0352 A5 A2 ?180: lda prsfg3253 FA0354 10 0F bpl ?1843254 FA0356 20 50 01 jsr ?1283255 FA0359 A5 A1 lda chopt3256 FA035B 48 pha3257 FA035C 4B phk3258 FA035D F4 C1 03 pea #!?1943259 FA0360 A9 05 ?182: lda #53260 FA0362 48 pha3261 FA0363 BPRINTF3262 FA0363 02 11 cop $113263 .MNLIST3264 FA0365 38 ?184: sec3265 FA0366 60 rts32663267 FA0367 6F 70 74 69 6F ?190: .DB 'option ''-%c'': invalid numeric string argument.', 13, 06E 20 27 2D 2563 27 3A 20 696E 76 61 6C 6964 20 6E 75 6D65 72 69 63 2073 74 72 69 6E67 20 61 72 6775 6D 65 6E 742E 0D 003268 FA0397 6F 70 74 69 6F ?192: .DB 'option ''-%c'': numeric argument overflow.', 13, 06E 20 27 2D 2563 27 3A 20 6E75 6D 65 72 6963 20 61 72 6775 6D 65 6E 7420 6F 76 65 7266 6C 6F 77 2ETue Jul 17 11:00:21 2018 Page 140D 003269 FA03C1 6F 70 74 69 6F ?194: .DB 'option ''-%c'': signed/unsigned mismatch argument.', 13, 06E 20 27 2D 2563 27 3A 20 7369 67 6E 65 642F 75 6E 73 6967 6E 65 64 206D 69 73 6D 6174 63 68 20 6172 67 75 6D 656E 74 2E 0D 0032703271 FA03F3 25 23 2A 26 ?200: .DB '%#*&'Lines Assembled : 3213 Errors : 0