Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:24 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\FF\masmx.asmOutput Filename : obj\FF\masmx.objListing Has Been Relocated2585 .LIST on25862587 ;; .INCLUDE inc\dirp00.inc2588 F8FFB1 .INCLUDE inc\dirp01.inc2589 ;----------------------------------------------------------2590 ; DIRP02.ASM2591 ; PROGETTO: B16012592 ;2593 ; Variabili in Direct Page $012594 ;----------------------------------------------------------25952596 ; sezione COMMON -- questo permette di includere il file in piu' file259725982599 .LIST on26002601 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera26022603 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0126042605 000000 .ABSOLUTE ;; inizia sempre da $002606 000000 .ORG 0x0026072608 0000002609 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2610 000060 00 KbdITail .DB ; coda buffer tastiera2611 000061 00 KbdIHead .DB ; testa buffer tastiera2612 000062 00 KbdCnt .DB ; numero bytes nel buffer2613 000063 00 KbdShift .DB2614 000064 00 KbdFlag .DB2615 000065 00 KbdToggle .DB2616 000066 00 KbdSt .DB ; status tastiera dopo reset2617 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard26182619 000068 00 LCDFlag .DB2620 000069 00 LCDTmp .DB2621 00006A 0000 LCDVal .DW26222623 00006C 00 VBBFlag .DB ; flag video board2624 00006D 00 VBBRam .DB ; flag video RAM26252626 00006E 00 ScnLinTmp .DB2627 00006F 00 ScnChBase .DB ; base video ram VDC2628 000070 00 ScnAttBase .DB ; base ram attributi VDC2629 000071 00 ScnCursMode .DB ; VDC cursore default2630 000072 00 ScnSaveAttr .DBTue Jul 17 11:00:24 2018 Page 22631 000073 00 ScnInsert .DB2632 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2633 000075 00 ScnScroll .DB2634 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)2635 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)26362637 000078 ScnMapTabs1 .DS 102638 000082 ScnMapTabs2 .DS 42639 0000862640 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente2641 000088 00 .DB26422643 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro26442645 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente2646 00008C 00 .DB26472648 00008D 00 ScnTmpx .DB ; temporaneo: durante put char2649 00008E2650 00008E 00 ScnTop .DB ; riga superiore finestra2651 00008F 00 ScnLeft .DB ; colonna sinistra finestra2652 000090 00 ScnBottom .DB ; riga inferiore finestra2653 000091 00 ScnRight .DB ; colonna destra finestra2654 000092 00 ScnAttr .DB ; attributo default2655 000093 00 ScnAttr2 .DB ; attributo alternativo2656 000094 00 ScnRow .DB ; riga cursore2657 000095 00 ScnCol .DB ; colonna cursore2658 000096 00 ScnRowStart .DB ; riga di start input2659 000097 00 ScnInput .DB ; riga di fine input2660 000098 00 ScnColStart .DB ; colonna di start input2661 000099 00 ScnSaveX .DB2662 00009A 00 ScnSaveY .DB2663 00009B 00 ScnTmpL .DB2664 00009C 00 ScnTmpH .DB2665 00009D 00 ScnSaveRow .DB2666 00009E 00 ScnSaveCol .DB2667 00009F 00 ScnCurChr .DB2668 0000A0 00 ScnLstChr .DB2669 0000A1 00 ScnCR .DB2670 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm2671 0000A4 00 .DB ; banco puntatore ScnPrm2672 0000A5 00 ScnMode .DB ; flag modo schermo26732674 0000A6 ScnPtr1 LP26752676 0000A9 00 ScnDefCol .DB ; default foreground color26772678 0000AA ScnPtr2 LP26792680 0000AD 00 ScnDefBkgCol .DB ; default background color2681 0000AE 00 ScnInpRow .DB ; modo input line: riga start input2682 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input2683 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input2684 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input2685 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica2686 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea2687 0000B4 00 ScnFilt .DB ; filtro tasti editor di lineaTue Jul 17 11:00:24 2018 Page 32688 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL2689 ;DflTxtIn .DB ; device di default text input2690 ;DflTxtOut .DB ; device di default text output2691 0000B62692 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)26932694 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)26952696 ; variabili monitor2697 0000B6 00 SMAddrL .DB ; address low/high2698 0000B7 00 SMAddrH .DB2699 0000B8 00 SMAddrK .DB ; address bank2700 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit2701 0000BA 00 SMTmpL .DB ; temp. low/high2702 0000BB 00 SMTmpH .DB2703 0000BC 00 SMTmpK .DB ; temp. bank2704 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit2705 0000BE 00 SMSizeL .DB ; size low/high2706 0000BF 00 SMSizeH .DB2707 0000C0 00 SMSizeK .DB ; size bank2708 0000C1 00 SMXAddrL .DB ; address low/high XM2709 0000C2 00 SMXAddrH .DB2710 0000C3 00 SMXAddrK .DB ; address bank XM2711 0000C4 00 SMbndx .DB ; indice input buffer2712 0000C5 00 SMnprm .DB ; numero parametri riga di comando2713 0000C6 00 SMdumb .DB2714 0000C7 00 SMkr .DB2715 0000C8 0000 SMpc .DW2716 0000CA 00 SMsr .DB2717 0000CB 00 SMbr .DB2718 0000CC 0000 SMdp .DW2719 0000CE 0000 SMac .DW2720 0000D0 0000 SMxr .DW2721 0000D2 0000 SMyr .DW2722 0000D4 0000 SMsp .DW27232724 0000D6 00 SMAuxL .DB2725 0000D7 00 SMAuxH .DB27262727 0000D8 00 asmlong .DB ; flag for CPU in 16 mode2728 ; <7> -> A/M in 16 bit mode2729 ; <6> -> X/Y in 16 bit mode2730 0000D9 00 asmcpu .DB ; <7> -> 8 bit family2731 ; <6> -> 65C02 cmos version27322733 0000DA 00 SMctx .DB ; context (if = $00 no quit command)2734 0000DB SMrsm LP ; long pointer to resume caller context27352736 0000DE 00 rtcadr .DB ; rtc internal ram address2737 0000DF 00 rtcbnk .DB ; RTC internal bank ram2738 0000E0 00 cmdlin .DB ;2739 0000E1 00 SMesc .DB27402741 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp27422743 0000E2 SMTmp2 .EQU SMXTmp2744 0000E4 SMTmp3 .EQU SMXTmp+2Tue Jul 17 11:00:24 2018 Page 42745 0000E6 SMdwTmp1 .EQU SMXTmp+42746 0000EA SMdwTmp2 .EQU SMXTmp+82747 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update2748 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update2749 0000F0 SMXPos2 .EQU SMXTmp+142750 0000F1 SMYPos2 .EQU SMXTmp+152751 0000F2 SMXPos3 .EQU SMXTmp+162752 0000F3 SMYPos3 .EQU SMXTmp+172753 ;SMAuxL .EQU SMXTmp+182754 ;SMAuxH .EQU SMXTmp+192755 0000F6 SMXPos .EQU SMXTmp+202756 0000F7 SMYPos .EQU SMXTmp+212757 0000F8 SMdwTmp3 .EQU SMXTmp+2227582759 0000E2 atcmd .EQU SMXTmp ; save @ command2760 0000E3 atnum .EQU SMXTmp+1 ; @ command index2761 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag2762 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bank2763 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)2764 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)2765 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)2766 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)2767 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer2768 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag2769 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)2770 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)2771 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer2772 0000F8 atsa .EQU SMXTmp+22 ; @ sa27732774 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion2775 0000E3 brtcsec .EQU SMXTmp+12776 0000E4 brtcmin .EQU SMXTmp+22777 0000E5 brtchour .EQU SMXTmp+32778 0000E6 brtcday .EQU SMXTmp+42779 0000E7 brtcmonth .EQU SMXTmp+52780 0000E8 brtcyear .EQU SMXTmp+62781 0000E9 brtcct .EQU SMXTmp+7278227832784 0000FC .RELATIVE27852786 .ENDS27872791 .LIST on27922793 ; encoded addressing mode for 65C8162794 000000 AIMPL .EQU $00 ; implied/accumulator2795 000001 AIMM .EQU $01 ; # immediate2796 000002 ADP .EQU $02 ; DP direct page2797 000003 AABS .EQU $03 ; absolute2798 000004 ALONG .EQU $04 ; absolute long2799 000005 ALONGX .EQU $05 ; absolute long, X2800 000006 AXIND .EQU $06 ; (DP,X)2801 000007 AYIND .EQU $07 ; (DP),Y2802 000008 ADPX .EQU $08 ; DP,X2803 000009 AABSX .EQU $09 ; absolute, X2804 00000A AABSY .EQU $0A ; absolute, YTue Jul 17 11:00:24 2018 Page 52805 00000B ABIND .EQU $0B ; absolute indirect (abs)2806 00000C ADPY .EQU $0C ; DP,Y2807 00000D AREL .EQU $0D ; relative short2808 00000E ABXI .EQU $0E ; absolute indirect, X (abs,X)2809 00000F AIND .EQU $0F ; (DP)2810 000010 ASTK .EQU $10 ; stack relative, S2811 000011 ALIND .EQU $11 ; indirect long [DP]2812 000012 AYLIND .EQU $12 ; [DP],Y2813 000013 AYSTK .EQU $13 ; (rel,S),Y2814 000014 AMOV .EQU $14 ; move2815 000015 A16R .EQU $15 ; relative 16 bit2816 000016 AJML .EQU $16 ; jml [absolute]2817 000017 A16IMM .EQU $17 ; # immediate 16 bit28182819 ; modified encoding for immediate addressing 8/16 bit2820 000041 AXIMM .EQU ($40 + AIMM) ; X/Y immediate2821 000081 AMIMM .EQU ($80 + AIMM) ; A/M immediate28222823 ; equates from page 0 -- local temporary variables from SMXTmp area2824 0000E2 asmpr .EQU SMXTmp ; word: printing mask2825 0000E4 asmmode .EQU SMXTmp+2 ; byte: addessing mode2826 0000E2 TSTR .EQU SMXTmp ; byte: 3 bytes for store mnemonic2827 0000E2 XBUF .EQU SMXTmp ; byte: 18 bytes for store command2828 0000E5 asmnb .EQU SMXTmp+3 ; byte: number of bytes of instruction2829 0000E6 tmpl .EQU SMXTmp+4 ; byte: temp2830 0000E7 tmph .EQU SMXTmp+5 ; byte: temp2831 0000E8 asmmov .EQU SMXTmp+6 ; byte: flag move2832 0000E8 asmbit .EQU SMXTmp+6 ; byte: flag rmb/smb/bbr/bbs2833 0000E9 asmrel .EQU SMXTmp+7 ; byte: <7> -> relative, <6> -> rel 162834 0000E9 asmxop .EQU SMXTmp+7 ; byte: bit number in RMB/SMB/BBR/BBS2835 0000EA asmstf .EQU SMXTmp+8 ; byte: rep/sep flag2836 0000EB asmcnt .EQU SMXTmp+9 ; byte: temp. counter2837 0000EC asmtmpL .EQU SMXTmp+10 ; byte: used for 65C022838 0000ED asmtmpH .EQU SMXTmp+11 ; byte: used for 65C022839 0000EE P0TMP .EQU SMXTmp+12 ; byte: 14 bytes for assempling mask28402841 .CODEFF2842 .LONGA off2843 .LONGI off28442845 .EXTERN PrintAddr, PrintByte, PrintWord, PrintHex, PrintHex1, GetCurCh2846 .EXTERN TmpToAddr, GetParm, CkStop, ErrCls2, DecTmpPtrA, SubTmpAddr2847 .EXTERN FF_Byte2Hex28482849 .GLOBAL Cmd_d, Cmd_a28502851 FF1CD8 test:2852 FF1CD8 EA nop2853 FF1CD9 EA nop2854 ;CPU082855 FF1CDA A9 FF ?02: lda #$FF2856 FF1CDC AA tax2857 FF1CDD A8 tay2858 FF1CDE 62 F9 FF per -($+3-?02)2859 FF1CE1 62 10 00 per -($+3-?04)2860 FF1CE4 62 E5 1C per ?042861 FF1CE7 AA ?00: taxTue Jul 17 11:00:24 2018 Page 62862 FF1CE8 A8 tay2863 FF1CE9 9A txs2864 FF1CEA 82 ED FF brl ?022865 FF1CED 82 04 00 brl ?042866 FF1CF0 EA nop2867 FF1CF1 EA nop2868 FF1CF2 EA nop2869 FF1CF3 EA nop2870 FF1CF4 AA ?04: tax2871 FF1CF5 48 pha2872 FF1CF6 68 pla28732874 ;---------------------------------------------------------------------------2875 ; disassembler2876 ;---------------------------------------------------------------------------2877 FF1CF72878 FF1CF7 Cmd_d:2879 FF1CF7 B0 08 bcs ?012880 FF1CF9 20 92 18 jsr TmpToAddr2881 FF1CFC 20 5A 01 jsr GetParm2882 FF1CFF 90 06 bcc ?022883 FF1D01 A9 14 ?01: lda #$142884 FF1D03 85 BA sta SMTmpL2885 FF1D05 D0 05 bne ?032886 FF1D07 20 9F 18 ?02: jsr SubTmpAddr2887 FF1D0A 90 1B bcc ?202888 FF1D0C ?03: TXT_CR2889 FF1D0C TXTPRCHAR2890 .MLIST2891 FF1D0C 02 08 cop $082892 .MNLIST2893 FF1D0E 0D .DB $0D2894 .MNLIST2895 FF1D0F 20 80 1A jsr CkStop2896 FF1D12 F0 12 beq ?102897 FF1D14 20 3B 1D jsr disx162898 FF1D17 A5 E5 lda asmnb2899 FF1D19 1A inc a2900 FF1D1A 85 E5 sta asmnb2901 FF1D1C 20 2A 1D jsr IncPtr2902 FF1D1F A5 E5 lda asmnb2903 FF1D21 20 B3 18 jsr DecTmpPtrA2904 FF1D24 B0 E6 bcs ?032905 FF1D26 60 ?10: rts2906 FF1D272907 FF1D27 4C 34 01 ?20: jmp ErrCls229082909 FF1D2A IncPtr:2910 FF1D2A EB xba2911 FF1D2B A9 00 lda #02912 FF1D2D EB xba2913 FF1D2E ACC16CLC2914 FF1D2E C2 21 rep #(PMFLAG.OR.PCFLAG)2915 .LONGA on2916 .MNLIST2917 FF1D30 65 B6 adc SMAddrL2918 FF1D32 85 B6 sta SMAddrLTue Jul 17 11:00:24 2018 Page 72919 FF1D34 ACC082920 FF1D34 E2 20 sep #PMFLAG2921 .LONGA off2922 .MNLIST2923 FF1D36 90 02 bcc ?012924 FF1D38 E6 B8 inc SMAddrK2925 FF1D3A 60 ?01: rts29262927 ; disassemble 65C816 code at address SMAddrL/H/K2928 FF1D3B disx16:2929 FF1D3B TXTPRINT2930 FF1D3B 02 02 cop $022931 .MNLIST2932 FF1D3D 2E 20 00 .DB '. ', 029332934 ; entry point for line assembler2935 FF1D40 disx162:2936 FF1D40 20 37 19 jsr PrintAddr ; print address SMAddrL/H/K + blank2937 FF1D43 TXTPRCHAR ; one more blank2938 FF1D43 02 08 cop $082939 .MNLIST2940 FF1D45 20 .DB ' '2941 FF1D46 A9 04 lda #$04 ; fetch max. 4 bytes for 65C8162942 FF1D48 24 D9 bit asmcpu2943 FF1D4A 10 02 bpl ?002944 FF1D4C A9 03 lda #$03 ; fetch max. 3 bytes for 6502/65C022945 FF1D4E 85 EB ?00: sta asmcnt2946 FF1D50 A7 B6 lda [SMAddrL] ; fetch op-code2947 FF1D52 20 48 1E jsr getindx ; translate op-code2948 FF1D55 48 pha ; save2949 FF1D56 A0 00 ldy #02950 FF1D58 A6 E5 ldx asmnb ; # bytes instruction2951 FF1D5A E8 inx2952 FF1D5B CA ?01: dex2953 FF1D5C 10 08 bpl ?02 ; next byte2954 FF1D5E TXTPRINT ; print 3 blank2955 FF1D5E 02 02 cop $022956 .MNLIST2957 FF1D60 20 20 20 00 .DB ' ', 02958 FF1D64 80 05 bra ?032959 FF1D66 B7 B6 ?02: lda [SMAddrL],y ; next byte2960 FF1D68 20 4E 19 jsr PrintByte ; print hex + blank2961 FF1D6B C8 ?03: iny2962 FF1D6C C4 EB cpy asmcnt ; max. 4/3 bytes2963 FF1D6E 90 EB bcc ?012964 FF1D70 68 pla ; mnemonic index2965 FF1D71 20 F7 1F jsr printm ; print mnemonic + blank2966 FF1D74 24 D9 bit asmcpu2967 FF1D76 10 03 bpl ?04 ; 65C8162968 FF1D78 4C FF 1D jmp ?50 ; 6502/65C022969 FF1D7B A2 09 ?04: ldx #9 ; number of bit to scan2970 FF1D7D E0 05 ?05: cpx #52971 FF1D7F D0 1E bne ?08 ; don't print byte2972 FF1D81 A4 E5 ldy asmnb2973 FF1D83 F0 1A beq ?08 ; single byte2974 FF1D85 B7 B6 ?06: lda [SMAddrL],y ; fetch next byte2975 FF1D87 24 E9 bit asmrel ; test relative addressingTue Jul 17 11:00:24 2018 Page 82976 FF1D89 30 43 bmi ?20 ; yes, relative2977 FF1D8B 20 71 19 jsr PrintHex2978 FF1D8E 24 E8 bit asmmov2979 FF1D90 10 0A bpl ?072980 FF1D92 C0 02 cpy #$02 ; mvn/mvp op-code print ',#$' after dest bank2981 FF1D94 90 06 bcc ?072982 FF1D96 TXTPRINT2983 FF1D96 02 02 cop $022984 .MNLIST2985 FF1D98 2C 23 24 00 .DB ',#$', 02986 FF1D9C 88 ?07: dey2987 FF1D9D D0 E6 bne ?062988 FF1D9F ?08: ACC162989 FF1D9F C2 20 rep #PMFLAG2990 .LONGA on2991 .MNLIST2992 FF1DA1 06 E2 asl asmpr2993 FF1DA3 ACC082994 FF1DA3 E2 20 sep #PMFLAG2995 .LONGA off2996 .MNLIST2997 FF1DA5 90 0E bcc ?102998 FF1DA7 BF 7B 24 FF lda >PRTAB1-1,x2999 FF1DAB TXTCHAROUT3000 FF1DAB 02 06 cop $063001 .MNLIST3002 FF1DAD BF 84 24 FF lda >PRTAB2-1,x3003 FF1DB1 F0 02 beq ?103004 FF1DB3 TXTCHAROUT3005 FF1DB3 02 06 cop $063006 .MNLIST3007 FF1DB5 CA ?10: dex3008 FF1DB6 D0 C5 bne ?053009 FF1DB8 24 EA bit asmstf ; rep/sep op-code ?3010 FF1DBA 10 11 bpl ?18 ; no -- end3011 FF1DBC A0 01 ldy #1 ; load the byte after op-code3012 FF1DBE B7 B6 lda [SMAddrL],y3013 FF1DC0 29 30 and #PMFLAG.OR.PXFLAG3014 FF1DC2 F0 09 beq ?18 ; no 16 bit flags affected3015 FF1DC4 0A asl a ; bit 7 -> A/M flag3016 FF1DC5 0A asl a ; bit 6 -> X/Y flag3017 FF1DC6 70 03 bvs ?12 ; rep op-code3018 FF1DC8 14 D8 trb asmlong ; clear bit 7 and/or bit 63019 FF1DCA 60 rts3020 FF1DCB 04 D8 ?12: tsb asmlong ; set bit 7 and/or bit 63021 FF1DCD 60 ?18: rts3022 FF1DCE 38 ?20: sec ; for later adc (add 1 more to address)3023 FF1DCF 70 1D bvs ?30 ; relative 16 bit3024 FF1DD1 A6 B7 ?21: ldx SMAddrH ; relative 8 bit3025 FF1DD3 A8 tay ; A = offset 8 bit3026 FF1DD4 10 01 bpl ?223027 FF1DD6 CA dex ; previous page if offset is negative3028 FF1DD7 65 B6 ?22: adc SMAddrL ; add offset + carry3029 FF1DD9 90 01 bcc ?243030 FF1DDB E8 inx3031 FF1DDC 1A ?24: inc a ; add one more to final address because3032 FF1DDD D0 01 bne ?26 ; relative 8 bit is 2 bytes instructionTue Jul 17 11:00:24 2018 Page 93033 FF1DDF E8 inx3034 FF1DE0 24 D9 ?26: bit asmcpu3035 FF1DE2 10 18 bpl ?40 ; print address3036 FF1DE4 24 E8 bit asmbit3037 FF1DE6 10 14 bpl ?40 ; print address3038 FF1DE8 1A inc a ; BBR/BBS are 3 bytes3039 FF1DE9 D0 11 bne ?403040 FF1DEB E8 inx3041 FF1DEC 80 0E bra ?40 ; print address3042 FF1DEE 88 ?30: dey ; relative 16 bit: here Y = 2 now Y = 13043 FF1DEF ACC16 ; add offset 16 bit to current address3044 FF1DEF C2 20 rep #PMFLAG3045 .LONGA on3046 .MNLIST3047 FF1DF1 A5 B6 lda SMAddrL3048 FF1DF3 77 B6 adc [SMAddrL],y3049 FF1DF5 1A inc a ; add 2 more to final address because3050 FF1DF6 1A inc a ; relative 16 bit is 3 bytes istruction3051 FF1DF7 ACC083052 FF1DF7 E2 20 sep #PMFLAG3053 .LONGA off3054 .MNLIST3055 FF1DF9 EB xba3056 FF1DFA AA tax ; X = high address3057 FF1DFB EB xba ; A = low address3058 FF1DFC 4C 48 19 ?40: jmp PrintWord3059 ?50: ; 6502/65C023060 FF1DFF 24 E8 bit asmbit ; test SMB/RMB/BBR/BBS3061 FF1E01 10 17 bpl ?54 ; no3062 FF1E03 A5 E9 lda asmxop ; #bit3063 FF1E05 09 30 ora #'0'3064 FF1E07 TXTCHAROUT3065 FF1E07 02 06 cop $063066 .MNLIST3067 FF1E09 A9 2C lda #','3068 FF1E0B TXTCHAROUT3069 FF1E0B 02 06 cop $063070 .MNLIST3071 FF1E0D A5 E2 lda asmpr3072 FF1E0F C9 9D cmp #$9D ; relative addressing mode ?3073 FF1E11 D0 07 bne ?54 ; no3074 FF1E13 A0 01 ldy #1 ; fetch next byte3075 FF1E15 B7 B6 lda [SMAddrL],y3076 FF1E17 20 67 19 jsr PrintHex1 ; stampa '$XX,'3077 FF1E1A A2 06 ?54: ldx #63078 FF1E1C E0 03 ?55: cpx #33079 FF1E1E D0 12 bne ?58 ; no print byte3080 FF1E20 A4 E5 ldy asmnb3081 FF1E22 F0 0E beq ?58 ; single byte3082 FF1E24 A5 E2 ?56: lda asmpr3083 FF1E26 C9 E8 cmp #$E8 ; relative addressing ?3084 FF1E28 B7 B6 lda [SMAddrL],y3085 FF1E2A B0 A5 bcs ?21 ; print address3086 FF1E2C 20 71 19 jsr PrintHex3087 FF1E2F 88 dey3088 FF1E30 D0 F2 bne ?563089 FF1E32 06 E2 ?58: asl asmprTue Jul 17 11:00:24 2018 Page 103090 FF1E34 90 0E bcc ?603091 FF1E36 BF C4 25 FF lda PRTAB11-1,x3092 FF1E3A TXTCHAROUT3093 FF1E3A 02 06 cop $063094 .MNLIST3095 FF1E3C BF CA 25 FF lda PRTAB21-1,x3096 FF1E40 F0 02 beq ?603097 FF1E42 TXTCHAROUT3098 FF1E42 02 06 cop $063099 .MNLIST3100 FF1E44 CA ?60: dex3101 FF1E45 D0 D5 bne ?553102 FF1E47 60 rts31033104 ; get index mnemonic and addressing mode for op-code Y (65C816)3105 ; return in A the index for access mnemonic table and in asmpr3106 ; the printing mode; in asmnb the number of the bytes of the op-code3107 FF1E48 getindx:3108 FF1E48 A8 tay ; op-code3109 FF1E49 24 D9 bit asmcpu3110 FF1E4B 10 03 bpl ?02 ; 65C8163111 FF1E4D 4C 26 1F jmp ?100 ; 6502/C023112 FF1E50 4A ?02: lsr a3113 FF1E51 90 0E bcc ?08 ; even op-code (A = 00..7F)3114 FF1E53 4A lsr a3115 FF1E54 90 07 bcc ?04 ; op-code with final pattern '01'3116 FF1E563117 ; final pattern '11' -> op-code = X3, X7, XB, XF3118 ; all are op-code for group I instructions except op-code XB3119 ; these are op-codes relative to accumulator new addressing3120 ; mode in 65C816, except pattern XB that i relative to new3121 ; istructions of 65C816 (all implied)3122 ; these pattern are translated to 87..8F3123 ; here value is 00XXXPPP where XXX encode istruction and3124 ; PPP (where PPP not equal 010 and not equal 110) encode addressing3125 ; PPP = 010 or PPP = 110 (op-code XB) mean istruction with 1 byte3126 FF1E56 EA nop3127 FF1E57 29 07 and #$07 ; mask PPP3128 FF1E59 69 07 adc #$07 ; translate to 08..0F (here CF = 1)3129 FF1E5B 80 02 bra ?06 ; value 0A and 0E are implied instructions31303131 ?04: ; final pattern '01' -> op-code = X1, X5, X9, XD3132 ; are all op-codes in group 1 instructions (relative to accumulator)3133 ; here value is 00XXXYYY where XXX encode the instruction and YYY3134 ; the addressing mode (the standard addressing mode of 6502 family)3135 ; all these op-codes are translated to 80..8731363137 FF1E5D 29 07 and #$07 ; mask YYY3138 FF1E5F 09 80 ?06: ora #$80 ; translate to 80..8F3139 FF1E61 AA ?08: tax ; index to access table AMODE3140 FF1E62 BF EC 23 FF lda >AMODE,x ; here X = 00..8F3141 FF1E66 85 E4 sta asmmode ; save bit 7 & 6 flag (immediate 16 bit)3142 FF1E68 29 1F and #$1F ; mask addressing mode3143 FF1E6A 64 E9 stz asmrel ; clear flag relative address3144 FF1E6C 64 E8 stz asmmov ; clear flag mvn/mvp op-code3145 FF1E6E 64 EA stz asmstf ; clear flag rep/sep op-code3146 FF1E70 C9 0D cmp #AREL ; test relative addressing 8 bitTue Jul 17 11:00:24 2018 Page 113147 FF1E72 D0 04 bne ?103148 FF1E74 A2 80 ldx #$80 ; flag relative 8 bit3149 FF1E76 80 06 bra ?123150 FF1E78 C9 15 ?10 cmp #A16R ; test relative addressing 16 bit3151 FF1E7A D0 06 bne ?143152 FF1E7C A2 C0 ldx #$C0 ; flag relative 16 bit3153 FF1E7E 86 E9 ?12: stx asmrel3154 FF1E80 80 1A bra ?203155 FF1E82 C9 14 ?14: cmp #AMOV3156 FF1E84 D0 06 bne ?163157 FF1E86 A2 80 ldx #$803158 FF1E88 86 E8 stx asmmov ; flag mvn/mvp op-code3159 FF1E8A 80 10 bra ?203160 FF1E8C C0 C2 ?16: cpy #$C2 ; rep # op-code?3161 FF1E8E D0 04 bne ?173162 FF1E90 A2 C0 ldx #$C0 ; flag rep #3163 FF1E92 80 06 bra ?183164 FF1E94 C0 E2 ?17: cpy #$E2 ; sep # op-code?3165 FF1E96 D0 04 bne ?203166 FF1E98 A2 80 ldx #$80 ; flag sep #3167 FF1E9A 86 EA ?18: stx asmstf3168 FF1E9C 0A ?20: asl a3169 FF1E9D AA tax ; index to access printing mode table3170 FF1E9E ACC163171 FF1E9E C2 20 rep #PMFLAG3172 .LONGA on3173 .MNLIST3174 FF1EA0 BF 8E 24 FF lda >ENCTAB,x3175 FF1EA4 85 E2 sta asmpr ; save printing mode3176 FF1EA6 ACC083177 FF1EA6 E2 20 sep #PMFLAG3178 .LONGA off3179 .MNLIST3180 FF1EA8 29 03 and #$033181 FF1EAA AA tax ; number of bytes3182 FF1EAB 24 E4 bit asmmode3183 FF1EAD 30 08 bmi ?24 ; test A/M 16 bit3184 FF1EAF 50 0B bvc ?28 ; no #immediate 16 bit mode for X/Y3185 FF1EB1 24 D8 bit asmlong ; test bit 6 -> X/Y 16 bit ?3186 FF1EB3 50 07 bvc ?28 ; no -- X/Y 8 bit3187 FF1EB5 70 04 bvs ?26 ; yes, X/Y #immdediate 16 bit3188 FF1EB7 24 D8 ?24: bit asmlong ; test bit 7 -> A/M 16 bit ?3189 FF1EB9 10 01 bpl ?28 ; no -- A/M 8 bit3190 FF1EBB E8 ?26: inx ; add one more byte (#immediate 16 bit)3191 FF1EBC 86 E5 ?28: stx asmnb ; number of bytes of instruction3192 FF1EBE 98 tya ; A = op-code3193 FF1EBF A2 0D ldx #OPTABLEN3194 FF1EC1 DF D0 23 FF ?32: cmp >OPTAB,x ; translate index op-code3195 FF1EC5 F0 05 beq ?34 ; found3196 FF1EC7 CA dex3197 FF1EC8 10 F7 bpl ?32 ; loop3198 FF1ECA 30 05 bmi ?36 ; not found3199 FF1ECC BF DE 23 FF ?34: lda >TRANSL,x3200 FF1ED0 60 rts3201 FF1ED1 29 8F ?36: and #$8F3202 FF1ED3 AA tax3203 FF1ED4 98 tyaTue Jul 17 11:00:24 2018 Page 123204 FF1ED5 29 9F and #$9F3205 FF1ED7 85 E6 sta tmpl3206 FF1ED9 98 tya3207 FF1EDA 29 1F and #$1F3208 FF1EDC 85 E7 sta tmph3209 FF1EDE 98 tya3210 FF1EDF A0 03 ldy #$033211 FF1EE1 E0 8A cpx #$8A3212 FF1EE3 F0 30 beq ?443213 FF1EE5 4A ?38: lsr a3214 FF1EE6 90 2D bcc ?443215 FF1EE8 4A lsr a3216 FF1EE9 90 08 bcc ?403217 FF1EEB E0 0B cpx #$0B3218 FF1EED F0 2A beq ?483219 FF1EEF E0 8B cpx #$8B3220 FF1EF1 F0 26 beq ?483221 FF1EF3 4A ?40: lsr a3222 FF1EF4 09 20 ora #$203223 FF1EF6 88 dey3224 FF1EF7 D0 FA bne ?403225 FF1EF9 E0 03 cpx #$033226 FF1EFB F0 1B beq ?463227 FF1EFD E0 83 cpx #$833228 FF1EFF F0 17 beq ?463229 FF1F01 A6 E7 ldx tmph3230 FF1F03 E0 12 cpx #$123231 FF1F05 F0 17 beq ?503232 FF1F07 E0 02 cpx #$023233 FF1F09 F0 17 beq ?523234 FF1F0B A6 E6 ldx tmpl3235 FF1F0D E0 1A cpx #$1A3236 FF1F0F D0 03 bne ?423237 FF1F11 18 clc3238 FF1F12 69 28 adc #$283239 FF1F14 60 ?42: rts3240 FF1F15 88 ?44: dey3241 FF1F16 D0 CD bne ?383242 FF1F18 60 ?46: rts3243 FF1F19 4A ?48: lsr a3244 FF1F1A 4A lsr a3245 FF1F1B 09 40 ora #$403246 FF1F1D 60 rts3247 FF1F1E 18 ?50: clc3248 FF1F1F 69 08 adc #$083249 FF1F21 60 rts3250 FF1F22 18 ?52: clc3251 FF1F23 69 20 adc #$203252 FF1F25 60 rts3253 ;; 6502/65C023254 FF1F26 64 E8 ?100: stz asmbit ; flag rmb/smb/bbr/bbs3255 FF1F28 70 0D bvs ?101a ; 65C023256 FF1F2A A2 11 ldx #INVLEN3257 FF1F2C DF 56 25 FF ?101c: cmp >OPTAB1,x3258 FF1F30 F0 74 beq ?112 ; 6502 invalid op-code3259 FF1F32 CA dex3260 FF1F33 10 F7 bpl ?101cTue Jul 17 11:00:24 2018 Page 133261 FF1F35 80 14 bra ?1033262 FF1F37 A2 07 ?101a: ldx #OPTAB1LEN ; translation for 65C023263 FF1F39 DF 56 25 FF ?101: cmp >OPTAB1,x3264 FF1F3D D0 09 bne ?1023265 FF1F3F 48 pha3266 FF1F40 BF 68 25 FF lda >TRANSL1,x3267 FF1F44 A8 tay3268 FF1F45 68 pla3269 FF1F46 80 03 bra ?1033270 FF1F48 CA ?102: dex3271 FF1F49 10 EE bpl ?1013272 FF1F4B 4A ?103: lsr a3273 FF1F4C 90 2B bcc ?106 ; even op-code3274 FF1F4E 4A lsr a3275 FF1F4F 90 37 bcc ?108 ; op-code with final '01' pattern32763277 ; '11' final pattern: X3, X7, XB, XF op-code3278 ; for 65C02 valid X7 ed XF only -- all invalid for 65023279 FF1F513280 FF1F51 24 D9 bit asmcpu3281 FF1F53 50 51 bvc ?112 ; invalid op-code for 65023282 FF1F55 4A lsr a3283 FF1F56 90 4E bcc ?112 ; invalid op-code for 65C023284 FF1F583285 ; BBRX -> 0XXX1111 => 0000XXX13286 ; BBSX -> 1XXX1111 => 0001XXX13287 ; RMBX -> 0XXX0111 => 0000XXX03288 ; SMBX -> 1XXX0111 => 0001XXX032893290 FF1F58 A2 00 ldx #0 ; X = 0 if RMB/SMB3291 FF1F5A 48 pha3292 FF1F5B 4A lsr a ; test bit 03293 FF1F5C 29 07 and #$073294 FF1F5E 85 E9 sta asmxop ; asmxop = 0..73295 FF1F60 68 pla3296 FF1F613297 ; now C = 1 if BBR/BBS - CF = 0 if RMB/SMB3298 FF1F61 90 01 bcc ?1043299 FF1F63 E8 inx ; X = 1 if BBR/BBS3300 FF1F64 08 ?104: php ; salva C3301 FF1F65 0A asl a ; A<5> = 0 per BBR/RMB3302 FF1F66 29 20 and #$20 ; mask bit 53303 FF1F68 28 plp3304 FF1F69 90 02 bcc ?1053305 FF1F6B 09 40 ora #$40 ; A<6> = 1 if BBR/BBS3306 FF1F6D3307 ; A = 000 00000 if RMB3308 ; A = 001 00000 if SMB3309 ; A = 010 00000 if BBR3310 ; A = 011 00000 if BBS3311 FF1F6D3312 FF1F6D 09 03 ?105: ora #$033313 FF1F6F A8 tay ; translate code for 65C023314 FF1F703315 ; Y = 03 if RMB3316 ; Y = 23 if SMB3317 ; Y = 43 if BBRTue Jul 17 11:00:24 2018 Page 143318 ; Y = 63 if BBS3319 FF1F703320 FF1F70 A9 80 lda #$803321 FF1F72 85 E8 sta asmbit ; flag rmb/smb/bbr/bbs3322 FF1F74 8A txa3323 FF1F75 09 88 ora #$88 ; A = 88..893324 FF1F77 80 1D bra ?110 ; access table3325 FF1F793326 ?106: ; final pattern '10010' for 65C02 op-code as LDA(ZP)3327 FF1F79 AA tax3328 FF1F7A 29 0F and #$0F3329 FF1F7C C9 09 cmp #$093330 FF1F7E D0 05 bne ?1073331 FF1F80 24 D9 bit asmcpu3332 FF1F82 50 22 bvc ?112 ; invalid 6502 opcode3333 FF1F84 88 dey ; translate 65C02 opcode3334 FF1F85 8A ?107: txa3335 FF1F86 80 0E bra ?1103336 FF1F883337 ?108: ; '01' final pattern all valid for 65C02 -- $89 is invalid for 65023338 ; after 2 lsr -> $89 = $22 -- if 6502 this is invalid3339 ; for 65C02 this is BIT # op-code, that will be translated to $243340 FF1F88 C9 22 cmp #$22 ; opcode $89 ?3341 FF1F8A D0 06 bne ?109 ; no3342 FF1F8C 24 D9 bit asmcpu3343 FF1F8E 50 16 bvc ?112 ; invalid 6502 opcode3344 FF1F90 A0 24 ldy #$24 ; translate 65C02 op-code33453346 ?109: ; A = 00XXXYYY where YYY encode addressing mode3347 FF1F92 29 07 and #$07 ; mask YYY3348 FF1F94 09 80 ora #$80 ; A = 80..8733493350 ?110: ; access addressing mode table3351 FF1F96 4A lsr a3352 FF1F97 AA tax3353 FF1F98 BF 70 25 FF lda >AMODE1,x3354 FF1F9C B0 04 bcs ?111 ; odd -> low3355 FF1F9E 4A lsr a ; even -> high3356 FF1F9F 4A lsr a3357 FF1FA0 4A lsr a3358 FF1FA1 4A lsr a3359 FF1FA2 29 0F ?111: and #$0F3360 FF1FA4 D0 04 bne ?114 ; valid !3361 FF1FA6 A0 E3 ?112: ldy #$E3 ; invalid opcode3362 FF1FA8 A9 00 lda #$003363 FF1FAA AA ?114: tax3364 FF1FAB BF B5 25 FF lda >ENCTAB1,x3365 FF1FAF 85 E2 sta asmpr ; printing bits3366 FF1FB1 29 03 and #$033367 FF1FB3 85 E5 sta asmnb ; # bytes3368 FF1FB5 E0 0D cpx #$0D ; test realtive addressing3369 FF1FB7 D0 06 bne ?115a3370 FF1FB9 24 E8 bit asmbit3371 FF1FBB 10 02 bpl ?115a ; no BBR/BBS/RMS/SMB3372 FF1FBD E6 E5 inc asmnb ; BBR/BBS 3 bytes instructions3373 FF1FBF 98 ?115a: tya3374 FF1FC0 29 8F and #$8FTue Jul 17 11:00:24 2018 Page 153375 FF1FC2 85 E7 sta tmph3376 FF1FC4 AA tax3377 FF1FC5 98 tya3378 FF1FC6 29 9F and #$9F3379 FF1FC8 85 E6 sta tmpl3380 FF1FCA 98 tya3381 FF1FCB A0 03 ldy #$033382 FF1FCD E0 8A cpx #$8A3383 FF1FCF F0 22 beq ?1203384 FF1FD1 4A ?115: lsr a3385 FF1FD2 90 1F bcc ?1203386 FF1FD4 4A lsr a3387 FF1FD5 4A ?116: lsr a3388 FF1FD6 09 20 ora #$203389 FF1FD8 88 dey3390 FF1FD9 D0 FA bne ?1163391 FF1FDB A6 E7 ldx tmph3392 FF1FDD E0 03 cpx #$033393 FF1FDF F0 04 beq ?1173394 FF1FE1 E0 83 cpx #$833395 FF1FE3 D0 04 bne ?1183396 FF1FE5 18 ?117: clc3397 FF1FE6 69 0C adc #$0C3398 FF1FE8 60 rts3399 FF1FE9 A6 E6 ?118: ldx tmpl3400 FF1FEB E0 1A cpx #$1A3401 FF1FED D0 03 bne ?1193402 FF1FEF 18 clc3403 FF1FF0 69 10 adc #$103404 FF1FF2 60 ?119: rts3405 FF1FF3 88 ?120: dey3406 FF1FF4 D0 DB bne ?1153407 FF1FF6 60 rts34083409 ; print mnemonic of the translated op-code3410 FF1FF7 printm:3411 FF1FF7 AA tax3412 FF1FF8 24 D9 bit asmcpu3413 FF1FFA 10 0C bpl ?06 ; 65C8163414 FF1FFC BF BE 24 FF lda >MEMTBLL1,x ; 6502/C023415 FF2000 85 E6 sta tmpl3416 FF2002 BF 0A 25 FF lda >MEMTBLH1,x3417 FF2006 80 0A bra ?083418 FF2008 BF 0A 23 FF ?06: lda >MEMTBLL,x3419 FF200C 85 E6 sta tmpl3420 FF200E BF 6D 23 FF lda >MEMTBLH,x3421 FF2012 85 E7 ?08: sta tmph3422 FF2014 A2 03 ldx #33423 FF2016 A9 00 ?10: lda #$003424 FF2018 A0 05 ldy #$053425 FF201A 06 E7 ?12: asl tmph3426 FF201C 26 E6 rol tmpl3427 FF201E 2A rol a3428 FF201F 88 dey3429 FF2020 D0 F8 bne ?123430 FF2022 69 3F adc #'?'3431 FF2024 TXTCHAROUT ; print mnemonicTue Jul 17 11:00:24 2018 Page 163432 FF2024 02 06 cop $063433 .MNLIST3434 FF2026 CA dex3435 FF2027 D0 ED bne ?103436 FF2029 TXTPRCHAR ; print blank3437 FF2029 02 08 cop $083438 .MNLIST3439 FF202B 20 .DB ' '3440 FF202C 60 rts34413442 ;---------------------------------------------------------------------------3443 ; assembler3444 ;---------------------------------------------------------------------------34453446 FF202D Cmd_a:3447 FF202D B0 33 bcs ?20 ; error: missing start address3448 FF202F 20 92 18 jsr TmpToAddr3449 FF2032 A2 00 ?01: ldx #03450 FF2034 86 EF stx P0TMP+13451 FF2036 20 48 1A ?02: jsr GetCurCh ; next char3452 FF2039 D0 04 bne ?033453 FF203B E0 00 cpx #03454 FF203D F0 22 beq ?19 ; empty buffer: exit3455 FF203F C9 20 ?03: cmp #' '3456 FF2041 F0 EF beq ?01 ; skip starting blank3457 FF2043 20 BF 22 jsr upcase3458 FF2046 95 E2 sta TSTR,x ; buffer mnemonic3459 FF2048 E8 inx3460 FF2049 E0 03 cpx #3 ; must be 3 chars.3461 FF204B D0 E9 bne ?023462 FF204D CA ?04: dex ; compact mnemonic3463 FF204E 30 15 bmi ?213464 FF2050 B5 E2 lda TSTR,x3465 FF2052 38 sec3466 FF2053 E9 3F sbc #'?'3467 FF2055 A0 05 ldy #53468 FF2057 4A ?05: lsr a3469 FF2058 66 EF ror P0TMP+13470 FF205A 66 EE ror P0TMP3471 FF205C 88 dey3472 FF205D D0 F8 bne ?053473 FF205F F0 EC beq ?043474 FF2061 60 ?19: rts3475 FF2062 4C 34 01 ?20: jmp ErrCls2 ; error3476 FF2065 A5 EE ?21: lda P0TMP ; test mnemonic '???'3477 FF2067 05 EF ora P0TMP+13478 FF2069 F0 F7 beq ?203479 FF206B A2 02 ldx #23480 FF206D 20 48 1A ?22: jsr GetCurCh3481 FF2070 F0 39 beq ?243482 FF2072 C9 20 cmp #' '3483 FF2074 F0 F7 beq ?22 ; skip blank3484 FF2076 20 BF 22 jsr upcase3485 FF2079 20 CA 22 jsr chkdgt3486 FF207C B0 26 bcs ?23 ; no hex digit3487 FF207E 20 D8 22 jsr dgt2hex3488Tue Jul 17 11:00:24 2018 Page 173489 ; if 6502/65C02:3490 ; for BBR/BBS: SMTmpL/SMTmpH -> absolute address3491 ; asmtmpL -> ZP address3492 ; asmtmpH -> # bit3493 ; for SMB/RMB SMTmpL -> ZP address3494 ; SMTmpH -> # bit3495 ; others: SMTmpL -> SMTmpL/SMTmpH -> address3496 ; if 65C816: SMTmpL/H/K -> address3497 FF20813498 FF2081 24 D9 bit asmcpu3499 FF2083 30 0C bmi ?22a3500 FF2085 A4 BB ldy SMTmpH ; translate3501 FF2087 84 BC sty SMTmpK3502 FF2089 A4 BA ldy SMTmpL3503 FF208B 84 BB sty SMTmpH3504 FF208D 85 BA sta SMTmpL3505 FF208F 80 0E bra ?23a3506 FF2091 A4 EC ?22a: ldy asmtmpL ; translate values3507 FF2093 84 ED sty asmtmpH3508 FF2095 A4 BB ldy SMTmpH3509 FF2097 84 EC sty asmtmpL3510 FF2099 A4 BA ldy SMTmpL3511 FF209B 84 BB sty SMTmpH3512 FF209D 85 BA sta SMTmpL3513 FF209F A9 30 ?23a: lda #'0'3514 FF20A1 95 EE sta P0TMP,x3515 FF20A3 E8 inx3516 FF20A4 95 EE ?23: sta P0TMP,x3517 FF20A6 E8 inx3518 FF20A7 E0 0E cpx #$0E ; max. chars expected3519 FF20A9 90 C2 bcc ?223520 FF20AB 86 99 ?24: stx ScnSaveX ; salva #bytes maschera input3521 FF20AD 64 9B stz ScnTmpL ; op-code iniziale: 003522 FF20AF 64 9C ?25: stz ScnTmpH ; indice iniziale maschera3523 FF20B1 A5 9B lda ScnTmpL ; op-code corrente3524 FF20B3 20 48 1E jsr getindx ; ricava dati op-code3525 FF20B6 A6 E2 ldx asmpr ; salva modo istruzione3526 FF20B8 86 9A stx ScnSaveY3527 FF20BA AA tax ; indice3528 FF20BB 24 D9 bit asmcpu3529 FF20BD 30 11 bmi ?25a ; cpu 8 bit3530 FF20BF BF 6D 23 FF lda >MEMTBLH,x ; test mnemonico H3531 FF20C3 20 C8 21 jsr ?2103532 FF20C6 BF 0A 23 FF lda >MEMTBLL,x ; test mnemonico L3533 FF20CA 20 C8 21 jsr ?2103534 FF20CD 4C E1 21 jmp ?3003535 FF20D0 BF 0A 25 FF ?25a: lda >MEMTBLH1,x ; test mnemonico H3536 FF20D4 20 C8 21 jsr ?2103537 FF20D7 BF BE 24 FF lda >MEMTBLL1,x ; test mnemonico L3538 FF20DB 20 C8 21 jsr ?2103539 FF20DE 24 E8 bit asmbit ; test SMB/RMB/BBR/BBS3540 FF20E0 10 32 bpl ?29 ; no3541 FF20E2 A6 E2 ldx asmpr ; modo ind.3542 FF20E4 A5 BB lda SMTmpH ; # bit per SMB/RMB3543 FF20E6 E0 9D cpx #$9D ; relativo ?3544 FF20E8 D0 02 bne ?26 ; no3545 FF20EA A5 ED lda asmtmpH ; # bit per BBR/BBSTue Jul 17 11:00:24 2018 Page 183546 FF20EC E6 9C ?26: inc ScnTmpH ; scarta primo digit della maschera3547 FF20EE A6 9C ldx ScnTmpH3548 FF20F0 95 EE sta P0TMP,x3549 FF20F2 A5 C4 lda SMbndx ; # bit op code3550 FF20F4 20 C8 21 jsr ?210 ; check # bit3551 FF20F7 A9 2C lda #','3552 FF20F9 20 C8 21 jsr ?210 ; check virgola3553 FF20FC A6 E2 ldx asmpr ; modo ind.3554 FF20FE E0 9D cpx #$9D ; relativo ?3555 FF2100 D0 12 bne ?29 ; no3556 FF2102 A9 24 lda #'$'3557 FF2104 20 C8 21 jsr ?210 ; check ZP3558 FF2107 A9 30 lda #'0'3559 FF2109 20 C8 21 jsr ?2103560 FF210C 20 C8 21 jsr ?2103561 FF210F A9 2C lda #','3562 FF2111 20 C8 21 jsr ?210 ; check virgola3563 FF2114 A2 06 ?29: ldx #63564 FF2116 E0 03 ?30: cpx #33565 FF2118 D0 15 bne ?403566 FF211A A4 E5 ldy asmnb ; numero bytes3567 FF211C F0 11 beq ?403568 FF211E A5 E2 ?35: lda asmpr3569 FF2120 C9 E8 cmp #$E83570 FF2122 A9 30 lda #'0'3571 FF2124 B0 22 bcs ?503572 FF2126 20 C8 21 jsr ?2103573 FF2129 20 C8 21 jsr ?2103574 FF212C 88 dey3575 FF212D D0 EF bne ?353576 FF212F 06 E2 ?40: asl asmpr3577 FF2131 90 10 bcc ?453578 FF2133 BF C4 25 FF lda >PRTAB11-1,x3579 FF2137 20 C8 21 jsr ?2103580 FF213A BF CA 25 FF lda >PRTAB21-1,x3581 FF213E F0 03 beq ?453582 FF2140 20 C8 21 jsr ?2103583 FF2143 CA ?45: dex3584 FF2144 D0 D0 bne ?303585 FF2146 F0 0C beq ?553586 FF2148 20 C8 21 ?50: jsr ?210 ; check $XXXX3587 FF214B 20 C8 21 jsr ?2103588 FF214E 20 C8 21 jsr ?2103589 FF2151 20 C8 21 jsr ?2103590 FF2154 A5 99 ?55: lda ScnSaveX ; maschera coincide ?3591 FF2156 C5 9C cmp ScnTmpH3592 FF2158 D0 78 bne ?211 ; no, prova next op-code3593 FF215A A4 E5 ?60: ldy asmnb ; numero bytes3594 FF215C F0 51 beq ?963595 FF215E A5 9A lda ScnSaveY3596 FF2160 C9 9D cmp #$9D3597 FF2162 D0 43 bne ?90 ; no ind. relativo3598 FF21643599 ; SMAddrL/H = ptr. opcode3600 ; il salto relativo va calcolato su ptr + #bytes istruzione3601 ; attualmente #bytes = SAddrL + 13602 ; indirizzo del salto relativo in SMTmpL/HTue Jul 17 11:00:24 2018 Page 193603 FF21643604 FF2164 A5 B6 ?60a: lda SMAddrL ; A,X = ptr opcode attuale3605 FF2166 A6 B7 ldx SMAddrH3606 FF2168 18 clc3607 FF2169 65 E5 adc asmnb3608 FF216B 90 01 bcc ?613609 FF216D E8 inx3610 FF216E 1A ?61: inc a3611 FF216F D0 01 bne ?623612 FF2171 E8 inx3613 FF2172 85 E6 ?62: sta tmpl ; TmpL/H = ptr next istruzione3614 FF2174 86 E7 stx tmph3615 FF2176 38 sec ; calcolo offset3616 FF2177 A5 BA lda SMTmpL3617 FF2179 E5 E6 sbc tmpl3618 FF217B 85 ED sta asmtmpH ; salva offset low3619 FF217D A5 BB lda SMTmpH3620 FF217F E5 E7 sbc tmph3621 FF2181 90 08 bcc ?70 ; offset negativo3622 FF2183 D0 54 bne ?215 ; errore: offset > 00FF3623 FF2185 A6 ED ldx asmtmpH ; offset 1 byte3624 FF2187 30 50 bmi ?215 ; errore: offset positivo max. = 7F3625 FF2189 10 08 bpl ?80 ; offset positivo OK3626 FF218B A8 ?70: tay ; offset negativo parte high3627 FF218C C8 iny ; deve essere FF3628 FF218D D0 4A bne ?215 ; errore: offset negativo fuori range3629 FF218F A6 ED ldx asmtmpH ; offset negativo3630 FF2191 10 46 bpl ?215 ; errore: deve essere negativo3631 FF2193 8A ?80: txa3632 FF2194 A4 E5 ldy asmnb ; # bytes3633 FF2196 24 D9 bit asmcpu3634 FF2198 10 10 bpl ?94 ; no rmb/smb/bbr/bbs for 65C8163635 FF219A 24 E8 bit asmbit3636 FF219C 10 0C bpl ?94 ; no BBR/BBS3637 FF219E 97 B6 sta [SMAddrL],y ; BBR/BBS: store offset3638 FF21A0 88 dey3639 FF21A1 A5 EC lda asmtmpL ; BBR/BBS: store ZP3640 FF21A3 97 B6 sta [SMAddrL],y3641 FF21A5 80 08 bra ?96 ; store op-code3642 FF21A7 BB ?90: tyx3643 FF21A8 B5 B9 lda SMTmpL-1,x ; memorizza i bytes3644 FF21AA 97 B6 ?94: sta [SMAddrL],y3645 FF21AC 88 dey3646 FF21AD D0 F8 bne ?903647 FF21AF A5 9B ?96: lda ScnTmpL ; store op-code3648 FF21B1 87 B6 sta [SMAddrL]3649 FF21B3 SCNPRINT3650 FF21B3 02 01 cop $013651 .MNLIST3652 FF21B5 0D 01 .DB KB_CR, SCN_CSRUP ; CR + cursore up3653 FF21B7 61 20 1B 51 00 .DB 'a ', KB_ESC, 'Q', 03654 FF21BC 20 40 1D jsr disx162 ; disassembla SMAddrL/H3655 FF21BF A5 E5 lda asmnb ; #bytes3656 FF21C1 1A inc a ; offset next istruzione3657 FF21C2 20 2A 1D jsr IncPtr ; update SMAddrL/H36583659 ; inserisce ora nel buffer tastiera il seguente comando:Tue Jul 17 11:00:24 2018 Page 203660 ; 'A YYXXXX '3661 ; si disabilita temporaneamente auto insert nel3662 ; caso il comando venisse dato dopo un d3663 FF21C53664 FF21C5 4C 6D 22 jmp ?5003665 FF21C83666 ; check maschera op-code3667 FF21C8 DA ?210: phx3668 FF21C9 A6 9C ldx ScnTmpH3669 FF21CB D5 EE cmp P0TMP,x3670 FF21CD F0 0D beq ?2203671 FF21CF FA plx3672 FF21D0 68 pla3673 FF21D1 68 pla3674 FF21D2 E6 9B ?211: inc ScnTmpL ; next op-code3675 FF21D4 F0 03 beq ?2153676 FF21D6 4C AF 20 jmp ?253677 FF21D9 4C 34 01 ?215: jmp ErrCls23678 FF21DC E8 ?220: inx3679 FF21DD 86 9C stx ScnTmpH3680 FF21DF FA plx3681 FF21E0 60 rts36823683 ;; 65C8163684 FF21E1 A2 09 ?300: ldx #93685 FF21E3 E0 05 ?330: cpx #53686 FF21E5 D0 2A bne ?3403687 FF21E7 A4 E5 ldy asmnb ; numero bytes3688 FF21E9 F0 26 beq ?3403689 FF21EB A9 30 ?335: lda #'0'3690 FF21ED 24 E9 bit asmrel3691 FF21EF 30 3D bmi ?350 ; check XXXX - full hex address3692 FF21F1 20 C8 21 jsr ?210 ; check XX (a pair of hex digits)3693 FF21F4 20 C8 21 jsr ?2103694 FF21F7 24 E8 bit asmmov3695 FF21F9 10 13 bpl ?3373696 FF21FB C0 02 cpy #$02 ; mvn/mvp op-code: '#$src,#$dst' syntax3697 FF21FD 90 0F bcc ?3373698 FF21FF A9 2C lda #','3699 FF2201 20 C8 21 jsr ?210 ; check virgola3700 FF2204 A9 23 lda #'#'3701 FF2206 20 C8 21 jsr ?210 ; check '#'3702 FF2209 A9 24 lda #'$'3703 FF220B 20 C8 21 jsr ?210 ; check '$'3704 FF220E 88 ?337: dey3705 FF220F D0 DA bne ?3353706 FF2211 ?340: ACC163707 FF2211 C2 20 rep #PMFLAG3708 .LONGA on3709 .MNLIST3710 FF2213 06 E2 asl asmpr3711 FF2215 ACC083712 FF2215 E2 20 sep #PMFLAG3713 .LONGA off3714 .MNLIST3715 FF2217 90 10 bcc ?3453716 FF2219 BF 7B 24 FF lda >PRTAB1-1,xTue Jul 17 11:00:24 2018 Page 213717 FF221D 20 C8 21 jsr ?2103718 FF2220 BF 84 24 FF lda >PRTAB2-1,x3719 FF2224 F0 03 beq ?3453720 FF2226 20 C8 21 jsr ?2103721 FF2229 CA ?345: dex3722 FF222A D0 B7 bne ?3303723 FF222C F0 0C beq ?3553724 FF222E 20 C8 21 ?350: jsr ?210 ; check $XXXX3725 FF2231 20 C8 21 jsr ?2103726 FF2234 20 C8 21 jsr ?2103727 FF2237 20 C8 21 jsr ?2103728 FF223A A5 99 ?355: lda ScnSaveX ; maschera coincide ?3729 FF223C C5 9C cmp ScnTmpH3730 FF223E D0 92 bne ?211 ; no, prova next op-code3731 FF2240 A4 E5 ?360: ldy asmnb ; numero bytes3732 FF2242 D0 03 bne ?3613733 FF2244 4C AF 21 jmp ?96 ; store op-code3734 FF2247 24 E9 ?361: bit asmrel3735 FF2249 30 03 bmi ?3623736 FF224B 4C A7 21 jmp ?90 ; store all bytes3737 FF224E 70 03 ?362: bvs ?3633738 FF2250 4C 64 21 jmp ?60a3739 FF22533740 FF2253 ?363:3741 ; SMAddrL/H = ptr. opcode3742 ; il salto relativo va calcolato su ptr + #bytes istruzione3743 ; attualmente #bytes = SAddrL + 13744 ; indirizzo del salto relativo in SMTmpL/H37453746 FF2253 A9 00 lda #03747 FF2255 EB xba3748 FF2256 A5 E5 lda asmnb3749 FF2258 38 sec3750 FF2259 ACC163751 FF2259 C2 20 rep #PMFLAG3752 .LONGA on3753 .MNLIST3754 FF225B 65 B6 adc SMAddrL ; ptr opcode attuale3755 FF225D 38 sec3756 FF225E E5 BA sbc SMTmpL3757 FF2260 49 FF FF eor #$FFFF3758 FF2263 1A inc a3759 FF2264 85 BA sta SMTmpL ; offset3760 FF2266 ACC083761 FF2266 E2 20 sep #PMFLAG3762 .LONGA off3763 .MNLIST3764 FF2268 A4 E5 ldy asmnb ; # bytes3765 FF226A 4C A7 21 jmp ?9037663767 FF226D A2 00 ?500: ldx #03768 FF226F A9 61 lda #'a'3769 FF2271 85 E3 sta XBUF+13770 FF2273 64 E2 stz XBUF3771 FF2275 A9 20 lda #' '3772 FF2277 85 E5 sta XBUF+33773 FF2279 64 E4 stz XBUF+2Tue Jul 17 11:00:24 2018 Page 223774 FF227B A5 B8 lda SMAddrK3775 FF227D 20 7C 19 jsr FF_Byte2Hex3776 FF2280 85 E7 sta XBUF+53777 FF2282 64 E6 stz XBUF+43778 FF2284 86 E9 stx XBUF+73779 FF2286 64 E8 stz XBUF+63780 FF2288 A5 B7 lda SMAddrH3781 FF228A 20 7C 19 jsr FF_Byte2Hex3782 FF228D 85 EB sta XBUF+93783 FF228F 64 EA stz XBUF+83784 FF2291 86 ED stx XBUF+113785 FF2293 64 EC stz XBUF+103786 FF2295 A5 B6 lda SMAddrL3787 FF2297 20 7C 19 jsr FF_Byte2Hex3788 FF229A 85 EF sta XBUF+133789 FF229C 64 EE stz XBUF+123790 FF229E 86 F1 stx XBUF+153791 FF22A0 64 F0 stz XBUF+143792 FF22A2 A9 20 lda #' '3793 FF22A4 85 F3 sta XBUF+173794 FF22A6 64 F2 stz XBUF+163795 FF22A8 78 sei3796 FF22A9 A2 12 ldx #183797 FF22AB 86 62 stx KbdCnt3798 FF22AD 86 60 stx KbdITail3799 FF22AF 64 61 stz KbdIHead3800 FF22B1 CA dex3801 FF22B2 B5 E2 ?501: lda XBUF,x3802 FF22B4 95 00 sta KbdBuf,x3803 FF22B6 CA dex3804 FF22B7 10 F9 bpl ?5013805 FF22B9 58 cli3806 FF22BA A9 80 lda #$803807 FF22BC 14 74 trb ScnAutoIns3808 FF22BE 60 rts38093810 ; convert A to up case3811 FF22BF upcase:3812 FF22BF C9 61 cmp #'a'3813 FF22C1 90 06 bcc ?013814 FF22C3 C9 7B cmp #('z'+1)3815 FF22C5 B0 02 bcs ?013816 FF22C7 29 DF and #$DF3817 FF22C9 60 ?01: rts38183819 ; check A if hex digit3820 FF22CA chkdgt:3821 FF22CA C9 41 cmp #'A'3822 FF22CC 90 03 bcc ?013823 FF22CE C9 47 cmp #'G'3824 FF22D0 60 rts3825 FF22D1 C9 30 ?01: cmp #'0'3826 FF22D3 90 28 bcc CRTS3827 FF22D5 C9 3A cmp #('9'+1)3828 FF22D7 60 rts38293830 ; return in A the value of the next 2 digits from input bufferTue Jul 17 11:00:24 2018 Page 233831 FF22D8 dgt2hex:3832 FF22D8 20 FF 22 jsr dgt2nbl ; convert digit in nibble3833 FF22DB 85 E6 sta tmpl3834 FF22DD 20 48 1A jsr GetCurCh ; next byte3835 FF22E0 20 BF 22 jsr upcase3836 FF22E3 20 CA 22 jsr chkdgt ; check if digit3837 FF22E6 90 06 bcc ?013838 FF22E8 C6 C4 dec SMbndx3839 FF22EA A5 E6 lda tmpl3840 FF22EC 18 clc3841 FF22ED 60 rts3842 FF22EE 48 ?01: pha3843 FF22EF A5 E6 lda tmpl3844 FF22F1 0A asl a3845 FF22F2 0A asl a3846 FF22F3 0A asl a3847 FF22F4 0A asl a3848 FF22F5 85 E6 sta tmpl3849 FF22F7 68 pla3850 FF22F8 20 FF 22 jsr dgt2nbl ; convert 2nd digt to nibble3851 FF22FB 05 E6 ora tmpl ; concatene value3852 FF22FD CRTS:3853 FF22FD 38 sec3854 FF22FE 60 rts38553856 ; convert digiut in A in nibble3857 FF22FF dgt2nbl:3858 FF22FF C9 3A cmp #('9'+1)3859 FF2301 08 php3860 FF2302 29 0F and #$0F3861 FF2304 28 plp3862 FF2305 90 02 bcc ?013863 FF2307 69 08 adc #$083864 FF2309 60 ?01: rts38653866 ;---------------------------------------------------------------------------3867 ; tables used for 65C8163868 ;---------------------------------------------------------------------------38693870 ; table of compact mnemonic for 65C816 op-code (low byte)3871 FF230A MEMTBLL:3872 ;; BRK PHP BPL CLC JSR PLP BMI SEC3873 FF230A 1C 8A 1C 23 5D .DB $1C, $8A, $1C, $23, $5D, $8B, $1B, $A1 ; 008B 1B A13874 ;; RTI PHA BVC CLI RTS PLA BVS SEI3875 FF2312 9D 8A 1D 23 9D .DB $9D, $8A, $1D, $23, $9D, $8B, $1D, $A1 ; 088B 1D A13876 ;; BRA DEY BCC TYA LDY TAY BCS CLV3877 FF231A 1C 29 19 AE 69 .DB $1C, $29, $19, $AE, $69, $A8, $19, $23 ; 10A8 19 233878 ;; CPY INY BNE CLD CPX INX BEQ SED3879 FF2322 24 53 1B 23 24 .DB $24, $53, $1B, $23, $24, $53, $19, $A1 ; 1853 19 A13880 ;; TSB BIT JMP JMP STY LDY CPY CPX3881 FF232A AD 1A 5B 5B A5 .DB $AD, $1A, $5B, $5B, $A5, $69, $24, $24 ; 2069 24 243882 ;; TXA TXS TAX TSX DEX PHX NOP PLXTue Jul 17 11:00:24 2018 Page 243883 FF2332 AE AE A8 AD 29 .DB $AE, $AE, $A8, $AD, $29, $8A, $7C, $8B ; 288A 7C 8B3884 ;; ASL ROL LSR ROR STX LDX DEC INC3885 FF233A 15 9C 6D 9C A5 .DB $15, $9C, $6D, $9C, $A5, $69, $29, $53 ; 3069 29 533886 ;; ORA AND EOR ADC STA LDA CMP SBC3887 FF2342 84 13 34 11 A5 .DB $84, $13, $34, $11, $A5, $69, $23, $A0 ; 3869 23 A03888 ;; PHD TCS PLD TSC PHK TCD RTL TDC3889 FF234A 8A A9 8B AD 8A .DB $8A, $A9, $8B, $AD, $8A, $A9, $9D, $A9 ; 40A9 9D A93890 ;; PHB TXY PLB TYX WAI STP XBA XCE3891 FF2352 8A AE 8B AE C0 .DB $8A, $AE, $8B, $AE, $C0, $A5, $C8, $C9 ; 48A5 C8 C93892 ;; COP JSL WDM PER BRL LDX REP SEP3893 FF235A 24 5D C1 89 1C .DB $24, $5D, $C1, $89, $1C, $69, $99, $A1 ; 5069 99 A13894 ;; INC DEC PHY PLY TRB STZ MVP MVN3895 FF2362 53 29 8A 8B AC .DB $53, $29, $8A, $8B, $AC, $A5, $75, $75 ; 58A5 75 753896 ;; PEI PEA JML3897 FF236A 89 89 5B .DB $89, $89, $5B38983899 ; table of compact mnemonic for 65C816 op-code (high byte)3900 FF236D MEMTBLH:3901 ;; BRK PHP BPL CLC JSR PLP BMI SEC3902 FF236D D8 62 5A 48 26 .DB $D8, $62, $5A, $48, $26, $62, $94, $88 ; 0062 94 883903 ;; RTI PHA BVC CLI RTS PLA BVS SEI3904 FF2375 54 44 C8 54 68 .DB $54, $44, $C8, $54, $68, $44, $E8, $94 ; 0844 E8 943905 ;; BRA DEY BCC TYA LDY TAY BCS CLV3906 FF237D C4 B4 08 84 74 .DB $C4, $B4, $08, $84, $74, $B4, $28, $6E ; 10B4 28 6E3907 ;; CPY INY BNE CLD CPX INX BEQ SED3908 FF2385 74 F4 CC 4A 72 .DB $74, $F4, $CC, $4A, $72, $F2, $A4, $8A ; 18F2 A4 8A3909 ;; TSB BIT JMP JMP STY LDY CPY CPX3910 FF238D 06 AA A2 A2 74 .DB $06, $AA, $A2, $A2, $74, $74, $74, $72 ; 2074 74 723911 ;; TXA TXS TAX TSX DEX PHX NOP PLX3912 FF2395 44 68 B2 32 B2 .DB $44, $68, $B2, $32, $B2, $72, $22, $72 ; 2872 22 723913 ;; ASL ROL LSR ROR STX LDX DEC INC3914 FF239D 1A 1A 26 26 72 .DB $1A, $1A, $26, $26, $72, $72, $88, $C8 ; 3072 88 C83915 ;; ORA AND EOR ADC STA LDA CMP SBC3916 FF23A5 C4 CA 26 48 44 .DB $C4, $CA, $26, $48, $44, $44, $A2, $C8 ; 3844 A2 C83917 ;; PHD TCS PLD TSC PHK TCD RTL TDC3918 FF23AD 4A 28 4A 08 58 .DB $4A, $28, $4A, $08, $58, $0A, $5A, $48 ; 400A 5A 483919 ;; PHB TXY PLB TYX WAI STP XBA XCE3920 FF23B5 46 74 46 B2 94 .DB $46, $74, $46, $B2, $94, $62, $C4, $0C ; 4862 C4 0C3921 ;; COP JSL WDM PER BRL LDX REP SEP3922 FF23BD 22 1A 5C A6 DA .DB $22, $1A, $5C, $A6, $DA, $72, $A2, $A2 ; 50Tue Jul 17 11:00:24 2018 Page 2572 A2 A23923 ;; INC DEC PHY PLY TRB STZ MVP MVN3924 FF23C5 C8 88 74 74 C6 .DB $C8, $88, $74, $74, $C6, $76, $E2, $DE ; 5876 E2 DE3925 ;; PEI PEA JML3926 FF23CD 94 84 9A .DB $94, $84, $9A39273928 ; table of op-code that will be trnslated for access mnemonics table3929 FF23D0 OPTAB:3930 ;; STZ STZ STZ STZ TRB TRB JML JML3931 FF23D0 64 74 9C 9E 14 .DB $64, $74, $9C, $9E, $14, $1C, $5C, $DC1C 5C DC3932 ;; JSR MVP MVN PEI PEA BIT3933 FF23D8 FC 44 54 D4 F4 .DB $FC, $44, $54, $D4, $F4, $89893934 FF23DE3935 00000D OPTABLEN .EQU ($ - OPTAB - 1)39363937 ; translated index for access mnemonics table3938 FF23DE TRANSL:3939 FF23DE 5D 5D 5D 5D 5C .DB $5D, $5D, $5D, $5D, $5C, $5C, $62, $625C 62 623940 FF23E6 04 5E 5F 60 61 .DB $04, $5E, $5F, $60, $61, $212139413942 ; table of addressing mode for even op-code3943 ; this table is indexed by value 00..7F3944 FF23EC AMODE:3945 ;; 00..0E3946 ;; BRK COP # TSB dp ASL dp3947 FF23EC 00 01 02 02 .DB AIMPL, AIMM, ADP, ADP3948 FF23F03949 ;; PHP ASL A TSB abs ASL abs3950 FF23F0 00 00 03 03 .DB AIMPL, AIMPL, AABS, AABS39513952 FF23F43953 ;; 10..1E3954 ;; BPL ORA (dp) TRB dp ASL dp,x3955 FF23F4 0D 0F 02 08 .DB AREL, AIND, ADP, ADPX39563957 ;; CLC INC A TRB abs ASL abs,x3958 FF23F8 00 00 03 09 .DB AIMPL, AIMPL, AABS, AABSX39593960 ;; 20..2E3961 ;; JSR abs JSL long BIT dp ROL dp3962 FF23FC 03 04 02 02 .DB AABS, ALONG, ADP, ADP3963 FF24003964 ;; PLP ROL A BIT abs ROL abs3965 FF2400 00 00 03 03 .DB AIMPL, AIMPL, AABS, AABS396639673968 ;; 30..3E3969 ;; BMI AND (dp) BIT dp,x ROL dp,x3970 FF2404 0D 0F 08 08 .DB AREL, AIND, ADPX, ADPX39713972 ;; SEC DEC A BIT abs,x ROL abs,x3973 FF2408 00 00 09 09 .DB AIMPL, AIMPL, AABSX, AABSXTue Jul 17 11:00:24 2018 Page 26397439753976 ;; 40..4E3977 ;; RTI WDM # MVP LSR dp3978 FF240C 00 01 14 02 .DB AIMPL, AIMM, AMOV, ADP39793980 ;; PHA LSR A JMP abs LSR abs3981 FF2410 00 00 03 03 .DB AIMPL, AIMPL, AABS, AABS398239833984 ;; 50.5E3985 ;; BVC EOR (dp) MVN LSR dp,x3986 FF2414 0D 0F 14 08 .DB AREL, AIND, AMOV, ADPX39873988 ;; CLI PHY JML long LSR abs,x3989 FF2418 00 00 04 09 .DB AIMPL, AIMPL, ALONG, AABSX399039913992 ;; 60..6E3993 ;; RTS PER rel16 STZ dp ROR dp3994 FF241C 00 15 02 02 .DB AIMPL, A16R, ADP, ADP39953996 ;; PLA ROR A JMP (abs) ROR abs3997 FF2420 00 00 0B 03 .DB AIMPL, AIMPL, ABIND, AABS399839994000 ;; 70..7E4001 ;; BVS ADC (dp) STZ dp,x ROR dp,x4002 FF2424 0D 0F 08 08 .DB AREL, AIND, ADPX, ADPX40034004 ;; SEI PLY JMP (abs,x) ROR abs,x4005 FF2428 00 00 0E 09 .DB AIMPL, AIMPL, ABXI, AABSX400640074008 ;; 80..8E4009 ;; BRA BRL STY dp STX dp4010 FF242C 0D 15 02 02 .DB AREL, A16R, ADP, ADP40114012 ;; DEY TXA STY abs STX abs4013 FF2430 00 00 03 03 .DB AIMPL, AIMPL, AABS, AABS401440154016 ;; 90..9E4017 ;; BCC STA (dp) STY dp,x STX dp,y4018 FF2434 0D 0F 08 0C .DB AREL, AIND, ADPX, ADPY40194020 ;; TYA TXS STZ abs STZ abs,x4021 FF2438 00 00 03 09 .DB AIMPL, AIMPL, AABS, AABSX402240234024 ;; A0..AE4025 ;; LDY # LDX # LDY dp LDX dp4026 FF243C 41 41 02 02 .DB AXIMM, AXIMM, ADP, ADP4027 FF24404028 ;; TAY TAX LDY abs LDX abs4029 FF2440 00 00 03 03 .DB AIMPL, AIMPL, AABS, AABS4030Tue Jul 17 11:00:24 2018 Page 2740314032 ;; B0..BE4033 ;; BCS LDA (dp) LDY dp,x LDX dp,y4034 FF2444 0D 0F 08 0C .DB AREL, AIND, ADPX, ADPY40354036 ;; CLV TSX LDY abs,x LDX abs,y4037 FF2448 00 00 09 0A .DB AIMPL, AIMPL, AABSX, AABSY403840394040 ;; C0..CE4041 ;; CPY # REP # CPY dp DEC dp4042 FF244C 41 01 02 02 .DB AXIMM, AIMM, ADP, ADP4043 FF24504044 ;; INY DEX CPY abs DEC abs4045 FF2450 00 00 03 03 .DB AIMPL, AIMPL, AABS, AABS4046 FF24544047 FF24544048 ;; D0..DE4049 ;; BNE CMP (dp) PEI (dp) DEC dp,x4050 FF2454 0D 0F 0F 08 .DB AREL, AIND, AIND, ADPX40514052 ;; CLD PHX JML [abs] DEC abs,x4053 FF2458 00 00 16 09 .DB AIMPL, AIMPL, AJML, AABSX405440554056 ;; E0..EE4057 ;; CPX # SEP # CPX dp INC dp4058 FF245C 41 01 02 02 .DB AXIMM, AIMM, ADP, ADP40594060 ;; INX NOP CPX abs INC abs4061 FF2460 00 00 03 03 .DB AIMPL, AIMPL, AABS, AABS406240634064 ;; F0..FE4065 ;; BEQ SBC (dp) PEA #16 INC dp,x4066 FF2464 0D 0F 17 08 .DB AREL, AIND, A16IMM, ADPX,40674068 ;; SED PLX JSR (abs,x) INC abs,x4069 FF2468 00 00 0E 09 .DB AIMPL, AIMPL, ABXI, AABSX40704071 ; addressing mode for odd op-code -- note that all op-code <XB> are implied4072 ; op-code <X1>, <X3>, <X5>, <X7>, <X9>, <XD>, <XF> are relative to accumulator4073 ; this table is indexed by value 80..8F4074 ;; X1, X5, X9, XD4075 ;; (dp,x) dp # abs4076 FF246C 06 02 81 03 .DB AXIND, ADP, AMIMM, AABS40774078 ;; X1, X5, X9, XD4079 ;; (dp),y dp,x abs,y abs,x4080 FF2470 07 08 0A 09 .DB AYIND, ADPX, AABSY, AABSX40814082 ;; X3, X7, XB, XF4083 ;; rel,s [dp] implied long4084 FF2474 10 11 00 04 .DB ASTK, ALIND, AIMPL, ALONG40854086 ;; X3, X7, XB, XF4087 ;; (rel,s),y [dp],y implied long,xTue Jul 17 11:00:24 2018 Page 284088 FF2478 13 12 00 05 .DB AYSTK, AYLIND, AIMPL, ALONGX408940904091 ;; table for print symbols for the addressing mode4092 FF247C PRTAB1:4093 FF247C 2C 29 5D 2C 2C .DB ',)],,#([$'23 28 5B 2440944095 FF2485 PRTAB2:4096 FF2485 59 00 00 53 58 .DB 'Y', 0, 0, 'SX$$$', 024 24 24 0040974098 ;; table that encode printing symbols and number of bytes for the op-code4099 ;; this table is indexed by a value given by table AMODE4100 ;; last 2 bits give the numbers of bytes4101 ;; bit <15:5> specify what must be printed (index in array PRTABx)4102 ;; after bit 12 and bit 06 must be printed an hexadecimal value4103 ;; <15> $ NULL4104 ;; <14> [ $4105 ;; <13> ( $4106 ;; <12> # $4107 ;; <11> , X4108 ;; <10> , S4109 ;; <09> ] NULL4110 ;; <08> ) NULL4111 ;; <07> , Y4112 ;; <06>4113 ;; <05>4114 ;; <04>4115 ;; <03>4116 ;; <02>4117 ;; <01:00> number of bytes (0..3)4118 FF248E ENCTAB:4119 FF248E 0000 0110 0180 .DW $0000, $1001, $8001, $8002, $8003, $8803, $2901, $21810280 0380 03880129 81214120 FF249E 0188 0288 8280 .DW $8801, $8802, $8082, $2102, $8081, $8001, $2902, $21010221 8180 01800229 01214121 FF24AE 0184 0142 8142 .DW $8401, $4201, $4281, $2581, $1002, $8002, $4202, $10028125 0210 02800242 021041224123 ;---------------------------------------------------------------------------4124 ; tables used for 6502/65C024125 ;---------------------------------------------------------------------------41264127 ; compact mnemonics for 6502/65C024128 FF24BE MEMTBLL1:4129 FF24BE 1C 8A 1C 23 5D .DB $1C, $8A, $1C, $23, $5D, $8B, $1B, $A18B 1B A14130 FF24C6 9D 8A 1D 23 9D .DB $9D, $8A, $1D, $23, $9D, $8B, $1D, $A18B 1D A14131 FF24CE 1C 29 19 AE 69 .DB $1C, $29, $19, $AE, $69, $A8, $19, $23A8 19 234132 FF24D6 24 53 1B 23 24 .DB $24, $53, $1B, $23, $24, $53, $19, $A153 19 A1Tue Jul 17 11:00:24 2018 Page 294133 FF24DE 00 1A 5B 5B A5 .DB $00, $1A, $5B, $5B, $A5, $69, $24, $2469 24 244134 FF24E6 AE AE A8 AD 29 .DB $AE, $AE, $A8, $AD, $29, $8A, $7C, $8B8A 7C 8B4135 FF24EE 15 9C 6D 9C A5 .DB $15, $9C, $6D, $9C, $A5, $69, $29, $5369 29 534136 FF24F6 84 13 34 11 A5 .DB $84, $13, $34, $11, $A5, $69, $23, $A069 23 A04137 FF24FE 53 29 8A 8B 9B .DB $53, $29, $8A, $8B, $9B, $A3, $18, $18A3 18 184138 FF2506 A5 AD AC 00 .DB $A5, $AD, $AC, $004139 FF250A4140 FF250A MEMTBLH1:4141 FF250A D8 62 5A 48 26 .DB $D8, $62, $5A, $48, $26, $62, $94, $8862 94 884142 FF2512 54 44 C8 54 68 .DB $54, $44, $C8, $54, $68, $44, $E8, $9444 E8 944143 FF251A C4 B4 08 84 74 .DB $C4, $B4, $08, $84, $74, $B4, $28, $6EB4 28 6E4144 FF2522 74 F4 CC 4A 72 .DB $74, $F4, $CC, $4A, $72, $F2, $A4, $8AF2 A4 8A4145 FF252A 00 AA A2 A2 74 .DB $00, $AA, $A2, $A2, $74, $74, $74, $7274 74 724146 FF2532 44 68 B2 32 B2 .DB $44, $68, $B2, $32, $B2, $72, $22, $7272 22 724147 FF253A 1A 1A 26 26 72 .DB $1A, $1A, $26, $26, $72, $72, $88, $C872 88 C84148 FF2542 C4 CA 26 48 44 .DB $C4, $CA, $26, $48, $44, $44, $A2, $C844 A2 C84149 FF254A C8 88 74 74 86 .DB $C8, $88, $74, $74, $86, $86, $E6, $E886 E6 E84150 FF2552 76 06 C6 00 .DB $76, $06, $C6, $0041514152 ; 6502 invalid opcode4153 FF2556 OPTAB1:4154 FF2556 64 74 9C 9E 04 .DB $64, $74, $9C, $9E, $04, $0C, $14, $1C0C 14 1C4155 FF255E4156 000007 OPTAB1LEN .EQU ($ - OPTAB1 - 1)41574158 FF255E 80 34 1A 3A 5A .DB $80, $34, $1A, $3A, $5A, $7A, $DA, $FA, $3C, $7C7A DA FA 3C 7C41594160 000011 INVLEN .EQU ($ - OPTAB1 - 1)41614162 ; translation table for some 65C02 op-code4163 FF2568 TRANSL1:4164 FF2568 83 83 83 83 A3 .DB $83, $83, $83, $83, $A3, $A3, $C3, $C3A3 C3 C341654166 ; encoded addressing mode4167 ;4168 ; 0: invalid4169 ; 1: #4170 ; 2: ZP (tesrt asmbit)4171 ; 3: ABS4172 ; 4: IMPLIEDTue Jul 17 11:00:24 2018 Page 304173 ; 5: ACCUM4174 ; 6: (ZP,X)4175 ; 7: (ZP),Y4176 ; 8: ZP,X4177 ; 9: ABS,X4178 ; A: ABS,Y4179 ; B: (ABS)4180 ; C: ZP,Y4181 ; D: REL (test asmbit)4182 ; E: (ABS,X)4183 ; F: (ZP)41844185 ; 6502/65C02 addressing mode table4186 FF2570 AMODE1:4187 ; even op-code4188 FF2570 40 22 45 33 DF .DB $40, $22, $45, $33, $DF, $28, $45, $39 ; 00..07 - OP 00..1E28 45 394189 FF2578 30 22 45 33 DF .DB $30, $22, $45, $33, $DF, $88, $45, $99 ; 08..0F - OP 20..3E88 45 994190 FF2580 40 02 45 33 DF .DB $40, $02, $45, $33, $DF, $08, $44, $09 ; 10..17 - OP 40..5E08 44 094191 FF2588 40 22 45 B3 DF .DB $40, $22, $45, $B3, $DF, $88, $44, $E9 ; 18..1F - OP 60..7E88 44 E94192 FF2590 D0 22 44 33 DF .DB $D0, $22, $44, $33, $DF, $8C, $44, $39 ; 20..27 - OP 80..9E8C 44 394193 FF2598 11 22 44 33 DF .DB $11, $22, $44, $33, $DF, $8C, $44, $9A ; 28..2F - OP A0..BE8C 44 9A4194 FF25A0 10 22 44 33 DF .DB $10, $22, $44, $33, $DF, $08, $44, $09 ; 30..37 - OP C0..DE08 44 094195 FF25A8 10 22 44 33 DF .DB $10, $22, $44, $33, $DF, $08, $44, $09 ; 38..3F - OP E0..FE08 44 094196 FF25B04197 ; odd op-code4198 FF25B0 62 13 78 A9 .DB $62, $13, $78, $A9 ; 80..874199 FF25B44200 FF25B4 2D .DB $2D ; 88..89 - RMB/BBR42014202 FF25B5 ENCTAB1:4203 FF25B5 00 21 81 82 00 .DB $00, $21, $81, $82, $00, $00, $59, $4D00 59 4D4204 FF25BD 91 92 86 4A 85 .DB $91, $92, $86, $4A, $85, $9D, $5A, $499D 5A 4942054206 ;; table for print symbols for the 6502/65C02 addressing mode4207 FF25C5 PRTAB11:4208 FF25C5 2C 29 2C 23 28 .DB ',),#($'244209 FF25CB PRTAB21:4210 FF25CB 59 00 58 24 24 .DB 'Y', 0, 'X$$', 000Lines Assembled : 4132 Errors : 0