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\monitor.asmOutput Filename : obj\FF\monitor.objListing Has Been Relocated2593 .LIST on25942595 F8FFB1 .INCLUDE inc\dirp00.inc2596 ;----------------------------------------------------------2597 ; DIRP00.ASM2598 ; PROGETTO: B16012599 ;2600 ; Variabili in Direct Page $002601 ;----------------------------------------------------------26022603 ; sezione COMMON -- questo permette di includere il file in piu' file26042605 .LIST on26062607 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026082609 000000 .ABSOLUTE ;; inizia sempre da $002610 000000 .ORG 0x002611 0000002612 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2613 000002 0000 .DW2614 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2615 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2616 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2617 ; <6>: flag warm reset2618 00000D 00 RTCFlag .DB26192620 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12621 ; <7>: device ready2622 ; <6>: compact flash device (C.F.)2623 ; <5>: device identification ok2624 ; <4>: MBR loaded2625 ; <3>: valid signature in MBR2626 ; <2>: first partition found&active2627 ; <1>:2628 ; <0>: valid partition flag26292630 ; <7>: device ready2631 ; <6>: USB device2632 ; <5>: compact flash device (C.F.)2633 ; <4>: device identification ok2634 ; <3>: MBR loaded2635 ; <2>: first partition found&active2636 ; <1>: always 12637 ; <0>: valid partition flag2638 000010Tue Jul 17 11:00:24 2018 Page 226392640 00000E atadev .EQU diskstat26412642 000010 usbdev .DS 2 ; flag flash disk on usb bus #02643 ; <7>: device plugged and ready2644 ; <6>: always 12645 ; <5>: device identification ok2646 ; <4>: MBR loaded2647 ; <3>: valid signature in MBR2648 ; <2>: first partition found&active2649 ; <1>:2650 ; <0>: valid partition flag26512652 000012 diskmax .DS 16 ; disk max. sector's2653 000012 atasec .EQU diskmax2654 00001A usbsec .EQU diskmax+8265526562657 000022 atambr .DS 8 ; data for first partition found in mbr2658 ; first 3 bytes for start sector of partition2659 ; last byte for partition type2660 00002A usbmbr .DS 826612662 000032 ataprt .DS 8 ; total sec's of first partition2663 00003A usbprt .DS 8 ; total sec's of first partition266426652666 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2667 ; <7>: module on2668 ; <6>: ch376 flag2669 ; <5:0>: chip version26702671 000043 00 usb0st .DB ; usb0 status2672 ; <7>: usb0 host mode ok2673 ; <6>: flash disk attached flag2674 ; <5>: usb device attached26752676 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2677 ; <7>: disk format established in bit 0&12678 ; <6>: double step seek done2679 ; <5>: trust format bit's (set after ok r/w)2680 ; <4>: write protect bit (if disk in drive)2681 ; <3>: don't care2682 ; <2>: don't care2683 ; <1>: HD disk if set else DD disk2684 ; <0>: CBM format if set else IBM format26852686 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2687 ; <7>: disk format established in bit 0&12688 ; <6>: change disk simulation (after format)2689 ; <5>: don't care2690 ; <4>: write protect bit (under sw control)2691 ; <3>: don't care2692 ; <2>: don't care2693 ; <1>: HD disk if set else DD disk2694 ; <0>: CBM format if set else IBM format2695Tue Jul 17 11:00:24 2018 Page 32696 000046 00 fdcctl .DB ; fdc controller status2697 ; <7>: drive is attached2698 ; <6>: drive need recalibration (restore)2699 ; <5>: FDC controller ok2700 ; <4>: motor on2701 ; <3>: dma is active2702 ; <2>: dma chip ok (post routine)2703 ; <1>: clock rate (1=HD,0=DD)2704 ; <0>: disk ready27052706 000047 00 fdctrk .DB ; fd: current seek track2707 000048 00 fdcerr .DB ; fd: last error code2708 000049 00 ataerr .DB ; ata: last error code2709 00004A 00 ataxer .DB ; ata: last extended error code27102711 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27122713 00004C 0000 MemTop .DW ; top memoria RAM2714 00004E 00 .DB ; banco top mem27152716 00004F 00 DflTxtIn .DB ; device di default text input2717 000050 00 DflTxtOut .DB ; device di default text output27182719 000051 COPPtr LP ; long pointer for COP decoding2720 000054 00 COPIdx .DB ; COP signature/index27212722 000055 00 BiosEnt .DB ; flag accesso a bios setup27232724 ; variabili utilizzate da ACIA2725 000056 spwrk .DS $3027262727 ; bios mem2728 000086 0000 nsize .DW ; dimensione blocco da allocare2729 ;bsize .DW ; dimensione vera blocco free2730 000088 0000 splitsz .DW ; dimensione blocco splittato2731 00008A 0000 bfree .DW ; puntatore blocco free2732 00008C 0000 hdrptr .DW ; puntatore header heap27332734 00008E 0000 pbrklv .DW ; current break level of current process2735 000090 0000 pbrkmin .DW ; minimum breal level of current process2736 000092 0000 pbrkmax .DW ; maximum breal level of current process2737 0000942738 ; bios temp. work area2739 000094 bwrktmp .DS $2827402741 0000BC 00 coptmp .DB ; temp. used while cop27422743 0000BD 00 tstser .DB ; check ser/usb test board post2744 ; <7>: VIA2 ok2745 ; <6>: PICRAM ok2746 ; <1>: UART 16C550 ok2747 ; <0>: R65C51 ok274827492750 ;crc16 .DW27512752 0000BD .RELATIVETue Jul 17 11:00:24 2018 Page 427532754 .ENDS27552756 [01] .IFDEF _ACIA_INC_2757 .INCLUDE INC\SP.INC2758 [00] .ENDIF27592773 .LIST on27742775 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera27762777 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0127782779 000000 .ABSOLUTE ;; inizia sempre da $002780 000000 .ORG 0x0027812782 0000002783 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2784 000060 00 KbdITail .DB ; coda buffer tastiera2785 000061 00 KbdIHead .DB ; testa buffer tastiera2786 000062 00 KbdCnt .DB ; numero bytes nel buffer2787 000063 00 KbdShift .DB2788 000064 00 KbdFlag .DB2789 000065 00 KbdToggle .DB2790 000066 00 KbdSt .DB ; status tastiera dopo reset2791 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard27922793 000068 00 LCDFlag .DB2794 000069 00 LCDTmp .DB2795 00006A 0000 LCDVal .DW27962797 00006C 00 VBBFlag .DB ; flag video board2798 00006D 00 VBBRam .DB ; flag video RAM27992800 00006E 00 ScnLinTmp .DB2801 00006F 00 ScnChBase .DB ; base video ram VDC2802 000070 00 ScnAttBase .DB ; base ram attributi VDC2803 000071 00 ScnCursMode .DB ; VDC cursore default2804 000072 00 ScnSaveAttr .DB2805 000073 00 ScnInsert .DB2806 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2807 000075 00 ScnScroll .DB2808 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)2809 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)28102811 000078 ScnMapTabs1 .DS 102812 000082 ScnMapTabs2 .DS 42813 0000862814 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente2815 000088 00 .DB28162817 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro28182819 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente2820 00008C 00 .DB28212822 00008D 00 ScnTmpx .DB ; temporaneo: durante put charTue Jul 17 11:00:24 2018 Page 52823 00008E2824 00008E 00 ScnTop .DB ; riga superiore finestra2825 00008F 00 ScnLeft .DB ; colonna sinistra finestra2826 000090 00 ScnBottom .DB ; riga inferiore finestra2827 000091 00 ScnRight .DB ; colonna destra finestra2828 000092 00 ScnAttr .DB ; attributo default2829 000093 00 ScnAttr2 .DB ; attributo alternativo2830 000094 00 ScnRow .DB ; riga cursore2831 000095 00 ScnCol .DB ; colonna cursore2832 000096 00 ScnRowStart .DB ; riga di start input2833 000097 00 ScnInput .DB ; riga di fine input2834 000098 00 ScnColStart .DB ; colonna di start input2835 000099 00 ScnSaveX .DB2836 00009A 00 ScnSaveY .DB2837 00009B 00 ScnTmpL .DB2838 00009C 00 ScnTmpH .DB2839 00009D 00 ScnSaveRow .DB2840 00009E 00 ScnSaveCol .DB2841 00009F 00 ScnCurChr .DB2842 0000A0 00 ScnLstChr .DB2843 0000A1 00 ScnCR .DB2844 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm2845 0000A4 00 .DB ; banco puntatore ScnPrm2846 0000A5 00 ScnMode .DB ; flag modo schermo28472848 0000A6 ScnPtr1 LP28492850 0000A9 00 ScnDefCol .DB ; default foreground color28512852 0000AA ScnPtr2 LP28532854 0000AD 00 ScnDefBkgCol .DB ; default background color2855 0000AE 00 ScnInpRow .DB ; modo input line: riga start input2856 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input2857 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input2858 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input2859 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica2860 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea2861 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea2862 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL2863 ;DflTxtIn .DB ; device di default text input2864 ;DflTxtOut .DB ; device di default text output2865 0000B62866 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)28672868 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)28692870 ; variabili monitor2871 0000B6 00 SMAddrL .DB ; address low/high2872 0000B7 00 SMAddrH .DB2873 0000B8 00 SMAddrK .DB ; address bank2874 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit2875 0000BA 00 SMTmpL .DB ; temp. low/high2876 0000BB 00 SMTmpH .DB2877 0000BC 00 SMTmpK .DB ; temp. bank2878 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit2879 0000BE 00 SMSizeL .DB ; size low/highTue Jul 17 11:00:24 2018 Page 62880 0000BF 00 SMSizeH .DB2881 0000C0 00 SMSizeK .DB ; size bank2882 0000C1 00 SMXAddrL .DB ; address low/high XM2883 0000C2 00 SMXAddrH .DB2884 0000C3 00 SMXAddrK .DB ; address bank XM2885 0000C4 00 SMbndx .DB ; indice input buffer2886 0000C5 00 SMnprm .DB ; numero parametri riga di comando2887 0000C6 00 SMdumb .DB2888 0000C7 00 SMkr .DB2889 0000C8 0000 SMpc .DW2890 0000CA 00 SMsr .DB2891 0000CB 00 SMbr .DB2892 0000CC 0000 SMdp .DW2893 0000CE 0000 SMac .DW2894 0000D0 0000 SMxr .DW2895 0000D2 0000 SMyr .DW2896 0000D4 0000 SMsp .DW28972898 0000D6 00 SMAuxL .DB2899 0000D7 00 SMAuxH .DB29002901 0000D8 00 asmlong .DB ; flag for CPU in 16 mode2902 ; <7> -> A/M in 16 bit mode2903 ; <6> -> X/Y in 16 bit mode2904 0000D9 00 asmcpu .DB ; <7> -> 8 bit family2905 ; <6> -> 65C02 cmos version29062907 0000DA 00 SMctx .DB ; context (if = $00 no quit command)2908 0000DB SMrsm LP ; long pointer to resume caller context29092910 0000DE 00 rtcadr .DB ; rtc internal ram address2911 0000DF 00 rtcbnk .DB ; RTC internal bank ram2912 0000E0 00 cmdlin .DB ;2913 0000E1 00 SMesc .DB29142915 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp29162917 0000E2 SMTmp2 .EQU SMXTmp2918 0000E4 SMTmp3 .EQU SMXTmp+22919 0000E6 SMdwTmp1 .EQU SMXTmp+42920 0000EA SMdwTmp2 .EQU SMXTmp+82921 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update2922 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update2923 0000F0 SMXPos2 .EQU SMXTmp+142924 0000F1 SMYPos2 .EQU SMXTmp+152925 0000F2 SMXPos3 .EQU SMXTmp+162926 0000F3 SMYPos3 .EQU SMXTmp+172927 ;SMAuxL .EQU SMXTmp+182928 ;SMAuxH .EQU SMXTmp+192929 0000F6 SMXPos .EQU SMXTmp+202930 0000F7 SMYPos .EQU SMXTmp+212931 0000F8 SMdwTmp3 .EQU SMXTmp+2229322933 0000E2 atcmd .EQU SMXTmp ; save @ command2934 0000E3 atnum .EQU SMXTmp+1 ; @ command index2935 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag2936 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bankTue Jul 17 11:00:24 2018 Page 72937 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)2938 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)2939 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)2940 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)2941 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer2942 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag2943 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)2944 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)2945 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer2946 0000F8 atsa .EQU SMXTmp+22 ; @ sa29472948 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion2949 0000E3 brtcsec .EQU SMXTmp+12950 0000E4 brtcmin .EQU SMXTmp+22951 0000E5 brtchour .EQU SMXTmp+32952 0000E6 brtcday .EQU SMXTmp+42953 0000E7 brtcmonth .EQU SMXTmp+52954 0000E8 brtcyear .EQU SMXTmp+62955 0000E9 brtcct .EQU SMXTmp+7295629572958 0000FC .RELATIVE29592960 .ENDS29612965 .LIST on29662967 .EXTERN qedtent29682969 .MONSEG2970 .LONGA off2971 .LONGI off29722973 ; $FF0000 - standard entry monitor2974 FF0000 4C 6E 00 jmp _SysMon29752976 ; $FF0003 - entry monitor after reset2977 FF0003 4C 6A 00 jmp _mon02978 FF00062979 ; $FF0006 - entry monitor after brk2980 FF0006 4C 0E 00 jmp _SysBreak2981 FF00092982 ; $FF0009 - entry monitor after sys request2983 FF0009 A9 FF lda #$FF2984 FF000B 4C 10 00 jmp _SysBreak22985 FF000E2986 .CODEFF2987 FF000E2988 0001E2 SMTMP2 .EQU (DP01ADDR + SMTmp2)2989 0001B6 SMADDRL .EQU (DP01ADDR + SMAddrL)29902991 019900 INPUTBUF .EQU MONBUF2992 0000A2 INPBUFLEN .EQU $A229932994 .LONGA off2995 .LONGI off2996 FF000ETue Jul 17 11:00:24 2018 Page 82997 .GLOBAL _SysMon, _SysBreak2998 .GLOBAL ErrCls2, GetParm, PrintByte, PrintHex, GetParm32, CkStop2999 .GLOBAL PrintWord, PrintAddr, PrintHex, TmpToAddr, GetParm, DecTmpPtrA3000 .GLOBAL SubTmpAddr, PrintHex1, GetCurCh, FF_Byte2Hex30013002 .EXTERN matcmd, atacmd, Cmd_d, Cmd_a3003 FF000E3004 .EXTERN Cmd_fddisk, Cmd_fdgetfmt, Cmd_fdres, Cmd_fdinit, Cmd_fdformat3005 .EXTERN Cmd_fdverfmt, Cmd_fdread, Cmd_fdwrite, Cmd_fdverf, Cmd_fdnew3006 .EXTERN Cmd_fdtread, Cmd_fdtwrite, Cmd_fdtverf, Cmd_fdfs, Cmd_fdlsys3007 .EXTERN Cmd_mkhash, Cmd_sptst, Cmd_asptst30083009 FF000E3010 ; BRK entry3011 ; descrizione stack:3012 ;3013 ; KR -> SP + 133014 ; PCH -> SP + 123015 ; PCL -> SP + 113016 ; SR -> SP + 103017 ; A -> SP + 83018 ; X -> SP + 63019 ; Y -> SP + 43020 ; DPR -> SP + 23021 ; DBR -> SP + 130223023 FF000E _SysBreak:3024 FF000E A9 00 lda #03025 FF0010 _SysBreak2:3026 FF0010 A8 tay ; save context3027 FF0011 CPU163028 FF0011 C2 30 rep #(PMFLAG.OR.PXFLAG)3029 .LONGA on3030 .LONGI on3031 .MNLIST3032 FF0013 A9 00 01 lda #DP01ADDR ; imposta nuova DP3033 FF0016 5B tcd3034 FF0017 CPU083035 FF0017 E2 30 sep #(PMFLAG.OR.PXFLAG)3036 .LONGA off3037 .LONGI off3038 .MNLIST3039 FF0019 68 pla ; DBR3040 FF001A 85 CB sta SMbr3041 FF001C CPU163042 FF001C C2 30 rep #(PMFLAG.OR.PXFLAG)3043 .LONGA on3044 .LONGI on3045 .MNLIST3046 FF001E 68 pla ; DPR3047 FF001F 85 CC sta SMdp3048 FF0021 68 pla3049 FF0022 85 D2 sta SMyr3050 FF0024 68 pla3051 FF0025 85 D0 sta SMxr3052 FF0027 68 pla3053 FF0028 85 CE sta SMacTue Jul 17 11:00:24 2018 Page 93054 FF002A CPU083055 FF002A E2 30 sep #(PMFLAG.OR.PXFLAG)3056 .LONGA off3057 .LONGI off3058 .MNLIST3059 FF002C 68 pla3060 FF002D 85 CA sta SMsr3061 FF002F 68 pla3062 FF0030 85 C8 sta SMpc ; PCL3063 FF0032 68 pla3064 FF0033 85 C9 sta SMpc+1 ; PCH3065 FF0035 68 pla3066 FF0036 85 C7 sta SMkr ; PBR (KR)3067 FF0038 CPU163068 FF0038 C2 30 rep #(PMFLAG.OR.PXFLAG)3069 .LONGA on3070 .LONGI on3071 .MNLIST3072 FF003A BA tsx3073 FF003B 86 D4 stx SMsp3074 FF003D CPU083075 FF003D E2 30 sep #(PMFLAG.OR.PXFLAG)3076 .LONGA off3077 .LONGI off3078 .MNLIST3079 ;SCNINIT30803081 FF003F 98 tya3082 FF0040 D0 0B bne ?023083 ;SCNINIT3084 FF0042 SCNPRINT3085 FF0042 02 01 cop $013086 .MNLIST3087 FF0044 0D 42 72 65 61 .DB KB_CR, 'Break', 06B 003088 FF004B 80 12 bra ?043089 FF004D ?02: SCNPRINT3090 FF004D 02 01 cop $013091 .MNLIST3092 FF004F 0D 53 79 73 74 .DB KB_CR, 'System Request', 065 6D 20 52 6571 75 65 73 74003093 FF005F 64 DA ?04: stz SMctx3094 FF00613095 FF0061 9C 21 FC stz $FC213096 FF00643097 FF0064 58 cli3098 FF0065 80 57 bra _SysMon23099 FF00673100 ; entry monitor con inizializzazione schermo3101 FF0067 _SysMonClr:3102 FF0067 SCNINIT3103 FF0067 02 18 cop $183104 FF0069 00 .DB $003105 .MNLIST3106Tue Jul 17 11:00:24 2018 Page 103107 FF006A _mon0:3108 FF006A CPU083109 FF006A E2 30 sep #(PMFLAG.OR.PXFLAG)3110 .LONGA off3111 .LONGI off3112 .MNLIST3113 FF006C A9 00 lda #03114 FF006E3115 ; entry principale per monitor -- called from user program/reset3116 FF006E _SysMon:3117 FF006E A8 tay ; save context3118 FF006F CPU163119 FF006F C2 30 rep #(PMFLAG.OR.PXFLAG)3120 .LONGA on3121 .LONGI on3122 .MNLIST3123 FF0071 A9 00 01 lda #DP01ADDR ; imposta nuova DP3124 FF0074 5B tcd3125 FF0075 85 CC sta SMdp3126 FF0077 64 CE stz SMac3127 FF0079 64 D0 stz SMxr3128 FF007B 64 D2 stz SMyr3129 FF007D BA tsx3130 FF007E 86 D4 stx SMsp3131 FF0080 A9 6E 00 lda #_SysMon3132 FF0083 85 C8 sta SMpc3133 FF0085 CPU083134 FF0085 E2 30 sep #(PMFLAG.OR.PXFLAG)3135 .LONGA off3136 .LONGI off3137 .MNLIST3138 FF0087 A9 00 lda #03139 FF0089 48 pha3140 FF008A AB plb3141 FF008B 85 CB sta SMbr3142 FF008D 4B phk3143 FF008E 68 pla3144 FF008F 85 C7 sta SMkr3145 FF0091 08 php3146 FF0092 68 pla3147 FF0093 85 CA sta SMsr3148 FF0095 8D 0C FC sta CREMEOFF3149 FF0098 8D 0A FC sta CRXMEOFF3150 FF009B 8D 08 FC sta CRXFEOFF3151 FF009E 98 tya3152 FF009F 85 DA sta SMctx ; save context3153 FF00A1 F0 0B beq ?023154 FF00A3 ACC163155 FF00A3 C2 20 rep #PMFLAG3156 .LONGA on3157 .MNLIST3158 FF00A5 68 pla3159 FF00A6 1A inc a3160 FF00A7 85 DB sta SMrsm ; save resume address3161 FF00A9 ACC083162 FF00A9 E2 20 sep #PMFLAG3163 .LONGA offTue Jul 17 11:00:24 2018 Page 113164 .MNLIST3165 FF00AB 68 pla3166 FF00AC 85 DD sta SMrsm+23167 FF00AE3168 FF00AE ?02: SCNPRINT3169 FF00AE 02 01 cop $013170 .MNLIST3171 FF00B03172 FF00B0 0D 4D 6F 6E 69 .DB KB_CR, 'Monitor v1.2', 074 6F 72 20 7631 2E 32 003173 FF00BE3174 FF00BE _SysMon2:3175 FF00BE D8 cld3176 FF00BF 64 C6 stz SMdumb3177 FF00C1 20 82 0C jsr PrintReg31783179 FF00C4 GetCmd:3180 FF00C4 SCN_CR3181 FF00C4 SCNPRCHAR3182 .MLIST3183 FF00C4 02 07 cop $073184 .MNLIST3185 FF00C6 0D .DB $0D3186 .MNLIST3187 FF00C7 64 E1 stz SMesc3188 FF00C9 A2 00 ldx #03189 FF00CB 86 C4 stx SMbndx3190 FF00CD CA dex3191 FF00CE E8 ?01: inx ; ciclo input3192 FF00CF E0 A2 cpx #INPBUFLEN3193 FF00D1 B0 63 bcs SMError3194 FF00D3 KBCHARIN ; input tastiera3195 FF00D3 02 0F cop $0F3196 .MNLIST3197 FF00D5 9F 00 99 01 sta INPUTBUF,x3198 FF00D9 C9 0D cmp #KB_CR3199 FF00DB D0 F1 bne ?013200 FF00DD A9 00 lda #03201 FF00DF 9F 00 99 01 sta INPUTBUF,x3202 FF00E3 20 48 1A ?02: jsr GetCurCh ; get char da buffer3203 FF00E6 F0 DC beq GetCmd ; fine linea3204 FF00E8 C9 20 cmp #' '3205 FF00EA F0 F7 beq ?02 ; skip spazi3206 FF00EC C9 23 cmp #'#'3207 FF00EE D0 02 bne ?02w3208 FF00F0 C6 E1 dec SMesc3209 FF00F2 20 DF 01 ?02w: jsr pfxcmd ; check prefix command3210 FF00F5 A6 C4 ldx SMbndx ; salva indice corrente3211 FF00F7 CA dex3212 FF00F8 86 D7 stx SMAuxH3213 FF00FA A0 00 ldy #0 ; indice comando3214 FF00FC BB tyx ; indice tabella comandi3215 FF00FD INDEX163216 FF00FD C2 10 rep #PXFLAG3217 .LONGI on3218 .MNLISTTue Jul 17 11:00:24 2018 Page 123219 FF00FF A5 D7 ?02a: lda SMAuxH ; ripristina indice buffer3220 FF0101 85 C4 sta SMbndx3221 FF0103 DA ?02b: phx3222 FF0104 INDEX083223 FF0104 E2 10 sep #PXFLAG3224 .LONGI off3225 .MNLIST3226 FF0106 20 48 1A jsr GetCurCh ; get char3227 FF0109 INDEX163228 FF0109 C2 10 rep #PXFLAG3229 .LONGI on3230 .MNLIST3231 FF010B FA plx3232 ;beq SMError ; ERRORE3233 FF010C 5F 41 03 FF eor CMDTBL,x ; cerca comando interno3234 FF0110 F0 16 beq ?10 ; test carattere ok3235 FF0112 C9 80 cmp #$80 ; comando trovato - fine3236 FF0114 F0 15 beq ?113237 FF0116 C8 iny ; next command3238 FF0117 E8 ?09: inx3239 FF0118 BF 40 03 FF lda CMDTBL-1,x ; cerca fine stringa3240 FF011C 10 F9 bpl ?093241 FF011E BF 41 03 FF lda CMDTBL,x ; test fine tabella comandi3242 FF0122 D0 DB bne ?02a ; continua scan3243 FF0124 INDEX083244 FF0124 E2 10 sep #PXFLAG3245 .LONGI off3246 .MNLIST3247 FF0126 F0 0E beq SMError ; comando interno non trovato3248 FF0128 E8 ?10: inx3249 FF0129 D0 D8 bne ?02b ; continua scan stringa attuale3250 FF012B ?11: INDEX083251 FF012B E2 10 sep #PXFLAG3252 .LONGI off3253 .MNLIST3254 FF012D 20 BD 01 jsr ExecCmd3255 FF0130 80 92 bra GetCmd3256 FF01323257 FF0132 ErrCls4:3258 FF0132 68 pla3259 FF0133 68 pla3260 FF0134 ErrCls2:3261 FF0134 68 pla3262 FF0135 68 pla3263 FF01363264 FF0136 SMError:3265 FF0136 SCNPRINT3266 FF0136 02 01 cop $013267 .MNLIST3268 FF01383269 FF0138 02 3F 00 .DB SCN_CSRRIGHT, '?', 03270 FF013B3271 FF013B 80 87 bra GetCmd32723273 ; set program counter3274 FF013D _setpc:3275 FF013D B0 0C bcs ?02Tue Jul 17 11:00:24 2018 Page 133276 FF013F A5 BC lda SMTmpK3277 FF0141 85 C7 sta SMkr3278 FF0143 A5 BB lda SMTmpH3279 FF0145 85 C9 sta SMpc+13280 FF0147 A5 BA lda SMTmpL3281 FF0149 85 C8 sta SMpc3282 FF014B A5 C7 ?02: lda SMkr3283 FF014D C9 08 cmp #$08 ; test bank3284 FF014F 90 E3 bcc ErrCls23285 FF0151 60 rts32863287 FF0152 GetParm32:3288 FF0152 A9 80 lda #$803289 FF0154 85 B9 sta SMFlag323290 FF0156 80 04 bra GetParm23291 FF01583292 FF0158 GetParm0:3293 FF0158 C6 C4 dec SMbndx3294 FF015A3295 FF015A GetParm:3296 FF015A 64 B9 stz SMFlag3232973298 FF015C GetParm2:3299 FF015C A5 C4 lda SMbndx3300 FF015E 85 E0 sta cmdlin ; save start of command line3301 FF0160 64 BA stz SMTmpL3302 FF0162 64 BB stz SMTmpH3303 FF0164 64 BC stz SMTmpK3304 FF0166 64 BD stz SMTmpKK3305 FF0168 64 C5 stz SMnprm3306 FF016A 20 48 1A ?01: jsr GetCurCh3307 FF016D F0 4D beq ?113308 FF016F C9 20 cmp #' '3309 FF0171 F0 F7 beq ?013310 FF0173 C9 20 ?03: cmp #' '3311 FF0175 F0 42 beq ?103312 FF0177 C9 2C cmp #','3313 FF0179 F0 3E beq ?103314 FF017B C9 30 cmp #'0'3315 FF017D 90 B3 bcc ErrCls43316 FF017F C9 61 cmp #'a'3317 FF0181 90 07 bcc ?053318 FF0183 C9 7B cmp #('z' + 1)3319 FF0185 B0 03 bcs ?053320 FF0187 38 sec3321 FF0188 E9 20 sbc #$203322 FF018A C9 47 ?05: cmp #'G'3323 FF018C B0 A4 bcs ErrCls43324 FF018E C9 3A cmp #':'3325 FF0190 90 06 bcc ?073326 FF0192 C9 41 cmp #'A'3327 FF0194 90 9C bcc ErrCls43328 FF0196 E9 08 sbc #$083329 FF0198 E9 2F ?07: sbc #$2F3330 FF019A 0A asl a3331 FF019B 0A asl a3332 FF019C 0A asl aTue Jul 17 11:00:24 2018 Page 143333 FF019D 0A asl a3334 FF019E DA phx3335 FF019F A2 04 ldx #43336 FF01A1 0A ?08: asl a3337 FF01A2 26 BA rol SMTmpL3338 FF01A4 26 BB rol SMTmpH3339 FF01A6 26 BC rol SMTmpK3340 FF01A8 24 B9 bit SMFlag32 ; test valore 32 bit3341 FF01AA 10 02 bpl ?093342 FF01AC 26 BD rol SMTmpKK3343 FF01AE CA ?09: dex3344 FF01AF D0 F0 bne ?083345 FF01B1 FA plx3346 FF01B2 E6 C5 inc SMnprm3347 FF01B4 20 48 1A jsr GetCurCh3348 FF01B7 D0 BA bne ?033349 FF01B9 18 ?10: clc3350 FF01BA A5 C5 lda SMnprm3351 FF01BC 60 ?11: rts3352 FF01BD3353 FF01BD ExecCmd:3354 FF01BD 24 E1 bit SMesc3355 FF01BF 10 11 bpl ?013356 FF01C1 A6 C4 ldx SMbndx3357 FF01C3 86 E0 stx cmdlin ; save start of command line3358 FF01C5 BF 00 99 01 lda >INPUTBUF,x3359 FF01C9 F0 0A beq ?023360 FF01CB C9 20 cmp #' '3361 FF01CD F0 06 beq ?023362 FF01CF 4C 34 01 jmp ErrCls23363 FF01D2 20 5A 01 ?01: jsr GetParm3364 FF01D5 08 ?02: php3365 FF01D6 48 pha3366 FF01D7 98 tya3367 FF01D8 0A asl a3368 FF01D9 AA tax3369 FF01DA 68 pla3370 FF01DB 28 plp3371 FF01DC 7C 81 04 jmp (CMDVCTRS,x)33723373 ;---------------------------------------------------------------------------3374 ; prefix commands3375 ;---------------------------------------------------------------------------33763377 ; handle prefix command's3378 ; A = byte from input buffer3379 FF01DF pfxcmd:3380 FF01DF A2 01 ldx #PFXLEN3381 FF01E1 DF 23 03 FF ?03: cmp >PFXTBL,x3382 FF01E5 F0 04 beq ?043383 FF01E7 CA dex3384 FF01E8 10 F7 bpl ?033385 FF01EA 60 rts ; return to standard command3386 FF01EB 68 ?04: pla ; pop stack return address3387 FF01EC 68 pla3388 FF01ED 8A txa3389 FF01EE 0A asl aTue Jul 17 11:00:24 2018 Page 153390 FF01EF AA tax3391 FF01F0 FC 3D 03 jsr (PFXVCTRS,x) ; execute prefix command3392 FF01F3 4C C4 00 jmp GetCmd ; command loop33933394 ; prefix '@': cbm disk command3395 FF01F6 pfx_at:3396 FF01F6 64 E4 stz <atflag3397 FF01F8 A9 99 lda #>INPUTBUF3398 FF01FA 85 E7 sta <atstr+1 ; hi ptr command string3399 FF01FC A9 01 lda #^INPUTBUF3400 FF01FE 85 EE sta <atipb ; bank of cmnd string3401 FF0200 20 5E 1A ?01: jsr GetCurCh2 ; get next byte3402 FF0203 F0 12 beq ?04 ; just '@': like '@e'3403 FF0205 C9 20 cmp #' ' ; skip blanks3404 FF0207 F0 F7 beq ?013405 FF0209 A2 0C ldx #PATLEN3406 FF020B DF 25 03 FF ?02: cmp >PATTBL,x3407 FF020F F0 0A beq ?063408 FF0211 CA dex3409 FF0212 10 F7 bpl ?023410 FF0214 4C 98 02 jmp ?153411 FF0217 A2 00 ?04: ldx #0 ; '@e' command3412 FF0219 A9 45 lda #'E'3413 FF021B 85 E2 ?06: sta <atcmd3414 FF021D 86 E3 stx <atnum3415 FF021F 8A txa3416 FF0220 F0 04 beq ?08 ; @e3417 FF0222 C9 5A cmp #'Z' ; @z close all3418 FF0224 D0 0E bne ?9a ; get string for command3419 FF0226 20 48 1A ?08: jsr GetCurCh ; no params for '@e' & '@z' command3420 FF0229 D0 03 bne ?093421 FF022B 4C CF 02 jmp ?22 ; ok3422 FF022E C9 20 ?09: cmp #' '3423 FF0230 F0 F4 beq ?083424 FF0232 D0 64 bne ?15 ; error3425 FF0234 A5 E2 ?9a: lda <atcmd3426 FF0236 C9 47 cmp #'G' ; get3427 FF0238 F0 0B beq ?9c3428 FF023A C9 50 cmp #'P' ; put3429 FF023C F0 07 beq ?9c3430 FF023E C9 58 cmp #'X' ; close want one param3431 FF0240 D0 06 bne ?103432 FF0242 4C F7 02 jmp ?40 ; X want one param3433 FF0245 4C D2 02 ?9c: jmp ?30 ; G&P want 2/3 param3434 FF0248 20 48 1A ?10: jsr GetCurCh ; parse command string3435 FF024B F0 4B beq ?15 ; error3436 FF024D C9 20 cmp #' '3437 FF024F F0 F7 beq ?103438 FF0251 C9 22 cmp #'"' ; will start with a quotes mark3439 FF0253 D0 43 bne ?15 ; error3440 FF0255 A6 C4 ldx SMbndx ; save pointer to start string3441 FF0257 86 E6 stx <atstr3442 FF0259 BF 00 99 01 ?12: lda INPUTBUF,x ; search final quote mark3443 FF025D F0 39 beq ?15 ; error3444 FF025F E8 inx3445 FF0260 C9 22 cmp #'"'3446 FF0262 D0 F5 bne ?12Tue Jul 17 11:00:24 2018 Page 163447 FF0264 86 C4 stx SMbndx ; store index to next char3448 FF0266 CA dex3449 FF0267 A9 00 lda #0 ; terminate command string3450 FF0269 9F 00 99 01 sta INPUTBUF,x3451 FF026D A6 E3 ?14: ldx <atnum3452 FF026F E0 07 cpx #PATLD ; O,L,S,V,R,W need more params3453 FF0271 90 5C bcc ?223454 FF0273 20 48 1A jsr GetCurCh3455 FF0276 F0 20 beq ?15 ; at least need bank/chnl3456 FF0278 20 5A 01 jsr GetParm3457 FF027B B0 1B bcs ?153458 FF027D A5 BA lda SMTmpL3459 FF027F 85 E5 sta <atbnk ; bank for L,S,V,R,W - chn for O3460 FF0281 A4 E2 ldy <atcmd3461 FF0283 C0 4F cpy #'O'3462 FF0285 D0 02 bne ?14a3463 FF0287 85 F8 sta <atsa3464 FF0289 20 5A 01 ?14a: jsr GetParm3465 FF028C 90 0D bcc ?163466 FF028E A5 E2 lda <atcmd3467 FF0290 C9 57 cmp #'W'3468 FF0292 F0 04 beq ?153469 FF0294 C9 53 cmp #'S'3470 FF0296 D0 37 bne ?22 ; L,V,R without start address or O3471 FF0298 4C 34 01 ?15: jmp ErrCls2 ; S,W need start address3472 FF029B ?16: ACC163473 FF029B C2 20 rep #PMFLAG3474 .LONGA on3475 .MNLIST3476 FF029D A5 BA lda SMTmpL3477 FF029F 85 E8 sta <atstart3478 FF02A1 ACC083479 FF02A1 E2 20 sep #PMFLAG3480 .LONGA off3481 .MNLIST3482 FF02A3 A9 80 lda #$803483 FF02A5 85 E4 sta <atflag ; flag start address3484 FF02A7 20 5A 01 jsr GetParm ; end address3485 FF02AA A5 E2 lda <atcmd3486 FF02AC 90 0A bcc ?183487 FF02AE C9 53 cmp #'S'3488 FF02B0 F0 E6 beq ?15 ; S,W need end address3489 FF02B2 C9 57 cmp #'W'3490 FF02B4 F0 E2 beq ?153491 FF02B6 80 17 bra ?223492 FF02B8 C9 57 ?18: cmp #'W'3493 FF02BA F0 04 beq ?203494 FF02BC C9 53 cmp #'S'3495 FF02BE D0 D8 bne ?15 ; L,V,R want just start address3496 FF02C0 ?20: ACC163497 FF02C0 C2 20 rep #PMFLAG3498 .LONGA on3499 .MNLIST3500 FF02C2 A5 BA lda SMTmpL3501 FF02C4 1A inc a3502 FF02C5 85 EA sta <atend3503 FF02C7 C5 E8 cmp <atstartTue Jul 17 11:00:24 2018 Page 173504 FF02C9 ACC083505 FF02C9 E2 20 sep #PMFLAG3506 .LONGA off3507 .MNLIST3508 FF02CB 90 CB bcc ?15 ; end+1 will be > start3509 FF02CD F0 C9 beq ?153510 FF02CF 4C D1 25 ?22: jmp matcmd3511 FF02D2 20 5A 01 ?30: jsr GetParm ; G&P3512 FF02D5 B0 C1 bcs ?153513 FF02D7 A5 BA lda SMTmpL3514 FF02D9 85 F8 sta <atsa3515 FF02DB 20 5A 01 jsr GetParm3516 FF02DE B0 B8 bcs ?153517 FF02E0 A5 BA lda SMTmpL3518 FF02E2 85 E5 sta <atbnk3519 FF02E4 64 E8 stz <atstart3520 FF02E6 64 E9 stz <atstart+13521 FF02E8 20 5A 01 jsr GetParm3522 FF02EB 90 E2 bcc ?223523 FF02ED ACC163524 FF02ED C2 20 rep #PMFLAG3525 .LONGA on3526 .MNLIST3527 FF02EF A5 BA lda SMTmpL3528 FF02F1 85 E8 sta <atstart3529 FF02F3 ACC083530 FF02F3 E2 20 sep #PMFLAG3531 .LONGA off3532 .MNLIST3533 FF02F5 80 D8 bra ?223534 FF02F7 20 5A 01 ?40: jsr GetParm ; X (close)3535 FF02FA B0 9C bcs ?153536 FF02FC A5 BA lda SMTmpL3537 FF02FE 85 F8 sta <atsa3538 FF0300 80 CD bra ?2235393540 ; prefix '|': ata test3541 FF0302 pfx_bar:3542 FF0302 20 48 1A ?01: jsr GetCurCh ; get next byte3543 FF0305 F0 0F beq ?04 ; error3544 FF0307 C9 20 cmp #' ' ; skip blanks3545 FF0309 F0 F7 beq ?013546 FF030B A2 0A ldx #PBARLEN3547 FF030D DF 32 03 FF ?02: cmp >PBARTBL,x3548 FF0311 F0 06 beq ?063549 FF0313 CA dex3550 FF0314 10 F7 bpl ?023551 FF0316 4C 34 01 ?04: jmp ErrCls23552 FF0319 86 E3 ?06: stx <atnum3553 FF031B 20 5A 01 jsr GetParm ; get first param3554 FF031E B0 F6 bcs ?043555 FF0320 4C 9B 2E jmp atacmd35563557 ; prefixes table3558 FF0323 PFXTBL:3559 FF0323 40 7C .DB '@|'3560 FF0325Tue Jul 17 11:00:24 2018 Page 183561 000001 PFXLEN .EQU ($ - PFXTBL - 1)35623563 ; prefix '@' commands table3564 FF0325 PATTBL:3565 FF0325 45 5A 58 47 50 .DB 'EZXGPDC'44 433566 000007 PATLD .EQU ($ - PATTBL)3567 FF032C 4C 53 56 52 57 .DB 'LSVRWO'4F35683569 00000C PATLEN .EQU ($ - PATTBL - 1)35703571 ; prefix '|' commands table3572 ; <r>ead pio mode - <w>rite pio mode - <v>erify pio mode3573 ; <c>lear ata device (sw reset) - <i>dentify device3574 ; <m>br sector load - <p>br sector load3575 ; <d>ma ata buffer on/off - <b>ank dma buffer (0..7)3576 ; <R>ead dma mode - <W>rite dma mode3577 FF0332 PBARTBL:3578 FF0332 72 76 77 63 69 .DB 'rvwcimpdbRW'6D 70 64 62 525735793580 00000A PBARLEN .EQU ($ - PBARTBL - 1)35813582 ; prefix commands vectors3583 FF033D PFXVCTRS:3584 FF033D F601 0203 .DW pfx_at, pfx_bar35853586 FF03413587 ;---------------------------------------------------------------------------3588 ; keywords table3589 ;---------------------------------------------------------------------------35903591 FF0341 CMDTBL:3592 FF0341 64 6D 61 72 E4 .DC 'dmard'3593 FF0346 64 75 6D 62 6F .DC 'dumbon'EE3594 FF034C 64 75 6D 62 6F .DC 'dumboff'66 E63595 FF03533596 FF0353 63 62 6D 66 F3 .DC 'cbmfs'3597 FF0358 73 62 72 6B F0 .DC 'sbrkp'3598 FF035D 73 62 72 6B ED .DC 'sbrkm'35993600 FF0362 65 64 69 F4 .DC 'edit'3601 FF0366 6D 6B 68 61 73 .DC 'mkhash'E83602 FF036C 71 75 69 F4 .DC 'quit'3603 FF0370 63 62 6D 70 61 .DC 'cbmpas' ; CBM quick pascalF33604 FF0376 78 6D 74 65 73 .DC 'xmtest'F43605 FF037C 62 65 65 F0 .DC 'beep'3606 FF03803607 ; FDC diagnostic -- implementation in mond.asm3608 FF0380 66 64 64 69 73 .DC 'fddisk' ; invoca FDCTSTTue Jul 17 11:00:24 2018 Page 19EB3609 FF0386 66 64 72 65 F3 .DC 'fdres' ; reset FDC controller UM83883610 FF038B 66 64 72 65 61 .DC 'fdread' ; read disk sector'sE43611 FF0391 66 64 69 6E 69 .DC 'fdinit' ; init driveF43612 FF0397 66 64 66 6F 72 .DC 'fdformat' ; format whole disk (low level)6D 61 F43613 FF039F 66 64 77 72 69 .DC 'fdwrite' ; write disk sector's74 E53614 FF03A6 66 64 67 65 74 .DC 'fdgetfmt' ; get current disk format66 6D F43615 FF03AE 66 64 76 65 72 .DC 'fdverfmt' ; verify disk format66 6D F43616 FF03B6 66 64 76 65 72 .DC 'fdverf' ; verify readE63617 FF03BC 66 64 74 72 65 .DC 'fdtread' ; read whole track61 E43618 FF03C3 66 64 74 77 72 .DC 'fdtwrite' ; write whole track69 74 E53619 FF03CB 66 64 74 76 65 .DC 'fdtverf' ; verify whole track72 E63620 FF03D2 66 64 6E 65 F7 .DC 'fdnew' ; new ram disk's3621 FF03D7 66 64 66 F3 .DC 'fdfs' ; new file system3622 FF03DB 66 64 6C 73 79 .DC 'fdlsys' ; load rom.binF336233624 FF03E1 66 6C 61 73 E8 .DC 'flash' ; update flash from file (fdlsys)3625 FF03E6 6D 66 6C 61 73 .DC 'mflash' ; update flash from memoryE83626 FF03EC 65 66 6C 61 73 .DC 'eflash' ; update flash from emulatorE83627 FF03F23628 FF03F2 63 6F F0 .DC 'cop'3629 FF03F5 74 72 75 E5 .DC 'true'3630 FF03F9 76 64 E3 .DC 'vdc' ; cambia dot clock VDC3631 FF03FC3632 ; assembler/disassembler mode3633 FF03FC 70 38 31 B6 .DC 'p816' ; set 65C816 mode (default mode)3634 FF0400 70 63 30 B2 .DC 'pc02' ; set 65C02 mode3635 FF0404 70 30 B2 .DC 'p02' ; set 6502 mode3636 FF0407 61 6D B8 .DC 'am8'3637 FF040A 61 6D 31 B6 .DC 'am16'3638 FF040E 78 79 B8 .DC 'xy8'3639 FF0411 78 79 31 B6 .DC 'xy16'36403641 ; memory bank clear/move3642 FF0415 6B FA .DC 'kz' ; clear whole memory bank3643 FF0417 6B E6 .DC 'kf' ; fill whole memory bank3644 FF0419 6B C6 .DC 'kF' ; fill whole memory bank with pattern3645 FF041B 6B 6D F6 .DC 'kmv' ; move whole memory bank3646 FF041E3647 FF041E 63 72 F3 .DC 'crs' ; show CR3648 FF0421 63 72 E5 .DC 'cre' ; enable EM3649 FF0424 63 72 F8 .DC 'crx' ; enable XM3650 FF0427 63 72 E6 .DC 'crf' ; enable FM3651 FF042A 6D F8 .DC 'mx' ; display XMTue Jul 17 11:00:24 2018 Page 203652 FF042C 78 F3 .DC 'xs' ; show XM in sectors3653 FF042E 78 BE .DC 'x>' ; set extended mem3654 FF0430 78 6D F0 .DC 'xmp' ; set extended mem page3655 FF0433 72 E4 .DC 'rd' ; read single mem.3656 FF0435 77 F2 .DC 'wr' ; write single mem3657 FF0437 6B 6D F4 .DC 'kmt' ; full memory bank test3658 FF043A 78 6D F4 .DC 'xmt' ; eXtended memory test3659 FF043D3660 FF043D 74 E5 .DC 'te' ; show RTC internal extended ram3661 FF043F 65 BE .DC 'e>' ; set RTC internal extended ram3662 FF0441 74 F5 .DC 'tu'3663 FF0443 74 F3 .DC 'ts'3664 FF0445 75 BE .DC 'u>'3665 FF0447 74 E3 .DC 'tc'3666 FF0449 63 BE .DC 'c>'3667 FF044B 67 F4 .DC 'gt' ; get rtc time3668 FF044D 67 E4 .DC 'gd' ; get rtc date3669 FF044F 73 F4 .DC 'st' ; set rtc time3670 FF0451 73 E4 .DC 'sd' ; set rtc date3671 FF04533672 FF0453 23 74 65 73 F4 .DC '#test'3673 FF0458 23 73 74 72 63 .DC '#strcpy'70 F93674 FF045F 23 66 64 69 73 .DC '#fdisk'EB3675 FF0465 23 73 70 74 65 .DC '#sptest'73 F43676 FF046C 23 61 73 70 74 .DC '#asptest'65 73 F436773678 FF0474 ED .DC 'm' ; display mem3679 FF0475 BE .DC '>' ; set mem3680 FF0476 BB .DC ';' ; set registri3681 FF0477 F2 .DC 'r' ; show registri3682 FF0478 FA .DC 'z' ; fill zero3683 FF0479 E6 .DC 'f' ; fill byte3684 FF047A C6 .DC 'F' ; fill con byte auto-inc3685 FF047B E4 .DC 'd' ; disassemble line (masmx.asm)3686 FF047C E1 .DC 'a' ; assemble line (masmx.asm)3687 FF047D AE .DC '.' ; assemble line (masmx.asm)3688 FF047E EA .DC 'j' ; jmp to soubroutine (terminate with rtl)3689 FF047F E7 .DC 'g' ; jmp to soubroutine (terminate with brk)3690 FF0480 00 .DB 03691 FF04813692 FF0481 CMDVCTRS:3693 FF0481 2905 .DW Cmd_dmard3694 FF0483 5C09 7409 .DW Cmd_dumbon, Cmd_dumboff3695 FF04873696 FF0487 5705 .DW testcbm3697 FF0489 C905 .DW Cmd_sbrkp3698 FF048B D405 .DW Cmd_sbrkm3699 FF048D3700 FF048D 2B06 .DW Cmd_edit3701 FF048F 1C28 .DW Cmd_mkhash3702 FF0491 9307 A007 6A07 .DW Cmd_quit, Cmd_cbmpas, Cmd_xmtest3703 FF0497 3006 .DW Cmd_beep3704 FF0499Tue Jul 17 11:00:24 2018 Page 213705 ; FDC diagnostic -- implementation in mond.asm3706 FF0499 AB2B A42B EA2D .DW Cmd_fddisk, Cmd_fdres, Cmd_fdread, Cmd_fdinitE82B3707 FF04A1 002C D02D 672B .DW Cmd_fdformat, Cmd_fdwrite, Cmd_fdgetfmt, Cmd_fdverfmt4F2C3708 FF04A9 DD2D 872D 7E2D .DW Cmd_fdverf, Cmd_fdtread, Cmd_fdtwrite, Cmd_fdtverf902D3709 FF04B1 452B 312E 7B28 .DW Cmd_fdnew, Cmd_fdfs, Cmd_fdlsys3710 FF04B73711 FF04B7 C41B CF1B 8B1B .DW Cmd_flash, Cmd_mflash, Cmd_eflash3712 FF04BD3713 FF04BD B207 ED08 8409 .DW Cmd_cop, Cmd_true, Cmd_vdc37143715 ; assembler/disassembler mode3716 FF04C3 5606 5A06 5E06 .DW Cmd_p816, Cmd_pc02, Cmd_p02, Cmd_am8, Cmd_am16, Cmd_xy8A606 AC06 F0063717 FF04CF 2B07 .DW Cmd_xy163718 FF04D13719 ; memory bank clear/move3720 FF04D1 B70F DE0F 7B0F .DW Cmd_kz, Cmd_kf, Cmd_kF, Cmd_km330F3721 FF04D93722 FF04D9 620D 3D0D 4A0D .DW Cmd_crs, Cmd_cre, Cmd_crx, Cmd_crf570D3723 FF04E1 7E0E 620E 5210 .DW Cmd_mx, Cmd_xs, Cmd_SetXMem, Cmd_SetXMPageA70D3724 FF04E9 230E 3D0E 760B .DW Cmd_rd, Cmd_wr, Cmd_kmt, Cmd_xmt4D0A3725 FF04F13726 FF04F1 F910 0811 D411 .DW Cmd_te, Cmd_stxm, Cmd_tu, Cmd_ts, Cmd_stum, Cmd_tc, Cmd_stcmCE11 E711 AE12D0123727 FF04FF 7413 B513 EF13 .DW Cmd_gt, Cmd_gd, Cmd_st, Cmd_sd2D1437283729 FF0507 0215 CC14 B714 .DW Cmd_test, Cmd_strcpy, Cmd_fdisk, Cmd_sptst, Cmd_asptst1630 473237303731 FF0511 D80D D70E F40C .DW Cmd_m, Cmd_SetMem, Cmd_SetReg, PrintReg820C3732 FF0519 1310 1E10 2C10 .DW Cmd_z, Cmd_f, Cmd_F, Cmd_d, Cmd_a, Cmd_aF71C 2D20 2D203733 FF0525 F606 1007 .DW Cmd_j, Cmd_g373437353736 FF0529 Cmd_dmard:3737 FF0529 A9 00 lda #03738 FF052B 48 pha3739 FF052C 48 pha3740 FF052D F4 00 00 pea #03741 FF0530 A2 01 ldx #13742 FF0532 DA phx3743 FF0533 48 pha3744 FF0534 F4 00 00 pea #03745 FF0537 ATADMARD3746 FF0537 02 42 cop $423747 FF0539 00 .DB $00Tue Jul 17 11:00:24 2018 Page 223748 .MNLIST3749 FF053A 60 rts37503751 ; ---- TEST CBM3752 FF053B getstr:3753 FF053B SCN_CR3754 FF053B SCNPRCHAR3755 .MLIST3756 FF053B 02 07 cop $073757 .MNLIST3758 FF053D 0D .DB $0D3759 .MNLIST3760 FF053E A2 00 ldx #03761 FF0540 CA dex3762 FF0541 E8 ?01: inx ; ciclo input3763 FF0542 E0 A2 cpx #INPBUFLEN3764 FF0544 B0 0A bcs ?023765 FF0546 KBCHARIN ; input tastiera3766 FF0546 02 0F cop $0F3767 .MNLIST3768 FF0548 9F 00 99 01 sta >INPUTBUF,x3769 FF054C C9 0D cmp #KB_CR3770 FF054E D0 F1 bne ?013771 FF0550 A9 0D ?02: lda #KB_CR3772 FF0552 9F 00 99 01 sta >INPUTBUF,x3773 FF0556 60 rts37743775 FF0557 testcbm:3776 FF0557 D0 04 bne ?023777 FF0559 A9 0F lda #153778 FF055B 85 BA sta SMTmpL3779 FF055D A5 BA ?02: lda SMTmpL3780 FF055F C9 FF cmp #$FF3781 FF0561 D0 05 bne ?02a3782 FF0563 20 5B 19 jsr PrintCR3783 FF0566 80 33 bra cbmer3784 FF0568 29 0F ?02a: and #$0F3785 FF056A C9 0F cmp #$0F3786 FF056C F0 02 beq ?033787 FF056E 09 80 ora #$803788 FF0570 85 BA ?03: sta SMTmpL37893790 FF0572 SCNPRINT3791 FF0572 02 01 cop $013792 .MNLIST3793 FF0574 0D 54 79 70 65 .DB $0D, 'Type command string:', 020 63 6F 6D 6D61 6E 64 20 7374 72 69 6E 673A 003794 FF058A 20 3B 05 jsr getstr3795 FF058D SCN_CR3796 FF058D SCNPRCHAR3797 .MLIST3798 FF058D 02 07 cop $073799 .MNLIST3800 FF058F 0D .DB $0DTue Jul 17 11:00:24 2018 Page 233801 .MNLIST3802 FF0590 A9 01 lda #^INPUTBUF3803 FF0592 48 pha3804 FF0593 F4 00 99 pea #!INPUTBUF3805 FF0596 A5 BA lda SMTmpL3806 FF0598 48 pha3807 FF0599 CBMFSCMD3808 FF0599 02 80 cop FN_CBMFSCMD3809 .MNLIST38103811 ;; bcs ?043812 ;; ldy #03813 ;;?04: tya3814 ;; jmp PrintByte38153816 FF059B cbmer:3817 FF059B ACC163818 FF059B C2 20 rep #PMFLAG3819 .LONGA on3820 .MNLIST3821 FF059D 3B tsc3822 FF059E 38 sec3823 FF059F E9 80 00 sbc #1283824 FF05A2 1B tcs3825 FF05A3 1A inc a3826 FF05A4 A2 00 ldx #03827 FF05A6 DA phx3828 FF05A7 48 pha3829 FF05A8 F4 80 00 pea #1283830 FF05AB ACC083831 FF05AB E2 20 sep #PMFLAG3832 .LONGA off3833 .MNLIST3834 FF05AD A9 0F lda #153835 FF05AF 48 pha3836 FF05B0 CBMFSRD3837 FF05B0 02 81 cop FN_CBMFSRW3838 FF05B2 00 .DB $003839 .MNLIST3840 FF05B3 ACC163841 FF05B3 C2 20 rep #PMFLAG3842 .LONGA on3843 .MNLIST3844 FF05B5 3B tsc3845 FF05B6 1A inc a3846 FF05B7 ACC083847 FF05B7 E2 20 sep #PMFLAG3848 .LONGA off3849 .MNLIST3850 FF05B9 A2 00 ldx #03851 FF05BB SCNSTROUT3852 FF05BB 02 03 cop $033853 .MNLIST3854 FF05BD ACC16CLC3855 FF05BD C2 21 rep #(PMFLAG.OR.PCFLAG)3856 .LONGA on3857 .MNLISTTue Jul 17 11:00:24 2018 Page 243858 FF05BF 3B tsc3859 FF05C0 69 80 00 adc #1283860 FF05C3 1B tcs3861 FF05C4 ACC083862 FF05C4 E2 20 sep #PMFLAG3863 .LONGA off3864 .MNLIST3865 FF05C6 4C 5B 19 jmp PrintCR3866 FF05C93867 FF05C93868 ; --------3869 FF05C9 Cmd_sbrkp:3870 FF05C9 D0 06 bne ?013871 FF05CB 64 BA stz SMTmpL3872 FF05CD 64 BB stz SMTmpH3873 FF05CF 64 F8 stz SMdwTmp33874 FF05D1 18 ?01: clc3875 FF05D2 80 0B bra _sbrk38763877 FF05D4 Cmd_sbrkm:3878 FF05D4 D0 04 bne ?013879 FF05D6 64 BA stz SMTmpL3880 FF05D8 64 BB stz SMTmpH3881 FF05DA 38 ?01: sec3882 FF05DB A9 80 lda #$803883 FF05DD 85 F8 sta SMdwTmp33884 FF05DF3885 FF05DF _sbrk:3886 FF05DF 08 php3887 FF05E0 20 5B 19 jsr PrintCR3888 FF05E3 28 plp3889 FF05E4 A5 BB lda SMTmpH3890 FF05E6 EB xba3891 FF05E7 A5 BA lda SMTmpL3892 FF05E9 SETBRK3893 FF05E9 02 7F cop FN_SETBRK3894 .MNLIST3895 FF05EB B0 1C bcs ?103896 FF05ED EB xba3897 FF05EE AA tax ; HI3898 FF05EF EB xba ; LOW3899 FF05F0 20 48 19 jsr PrintWord3900 FF05F3 A5 BA lda SMTmpL3901 FF05F5 05 BB ora SMTmpH3902 FF05F7 F0 0D beq ?063903 FF05F9 A9 00 lda #03904 FF05FB EB xba3905 FF05FC A9 00 lda #03906 FF05FE SETBRK3907 FF05FE 02 7F cop FN_SETBRK3908 .MNLIST3909 FF0600 EB xba3910 FF0601 AA tax ; HI3911 FF0602 EB xba ; LOW3912 FF0603 20 48 19 jsr PrintWord3913 FF0606 4C 5B 19 ?06: jmp PrintCR3914 FF0609 ?10: SCNPRINTTue Jul 17 11:00:24 2018 Page 253915 FF0609 02 01 cop $013916 .MNLIST3917 FF060B 0D 3A 3A 20 45 .DB $0D, ':: Error -> ', 072 72 6F 72 202D 3E 20 003918 FF0619 48 pha3919 FF061A 98 tya3920 FF061B 20 4E 19 jsr PrintByte3921 FF061E 20 51 19 jsr PrintBlank3922 FF0621 68 pla3923 FF0622 EB xba3924 FF0623 AA tax3925 FF0624 EB xba3926 FF0625 20 48 19 jsr PrintWord3927 FF0628 4C 5B 19 jmp PrintCR39283929 FF062B Cmd_edit:3930 ;phb3931 ;phd3932 ;pea #$40003933 ;lda #$403934 ;pha3935 FF062B 22 B3 17 FD jsl qedtent3936 ;pla3937 ;pla3938 ;pla3939 ;pld3940 ;plb3941 FF062F 60 rts3942 FF06303943 FF0630 Cmd_beep:3944 FF0630 90 06 bcc ?013945 FF0632 A9 B0 lda #10110000B ; CTC 2 in modo 0 - 2 bytes3946 FF0634 8D 4B FD sta CTC0+CTCCTRL3947 FF0637 60 rts3948 FF0638 A9 B0 ?01: lda #10110000B ; CTC 2 in modo 0 - 2 bytes3949 FF063A 8D 4B FD sta CTC0+CTCCTRL3950 FF063D A5 BA lda SMTmpL3951 FF063F 05 BB ora SMTmpH3952 FF0641 F0 12 beq ?023953 FF0643 A5 BA lda SMTmpL3954 FF0645 8D 4A FD sta CTC0+CTCCNT23955 FF0648 A5 BB lda SMTmpH3956 FF064A 8D 4A FD sta CTC0+CTCCNT23957 FF064D A9 08 lda #$083958 FF064F 1C 2B FD trb PIA0+PIACRB3959 FF0652 1C 29 FD trb PIA0+PIACRA3960 FF0655 60 ?02: rts39613962 FF0656 Cmd_p816:3963 FF0656 A9 00 lda #03964 FF0658 80 06 bra _pset3965 FF065A3966 FF065A Cmd_pc02:3967 FF065A A9 C0 lda #$C03968 FF065C 80 02 bra _pset3969 FF065ETue Jul 17 11:00:24 2018 Page 263970 FF065E Cmd_p02:3971 FF065E A9 80 lda #$8039723973 FF0660 _pset:3974 FF0660 85 D9 sta asmcpu3975 FF0662 SCNPRINT3976 FF0662 02 01 cop $013977 .MNLIST3978 FF0664 0D 3A 3A 20 43 .DB $0D, ':: Current assembler mode -> ', 075 72 72 65 6E74 20 61 73 7365 6D 62 6C 6572 20 6D 6F 6465 20 2D 3E 20003979 FF0683 A5 D9 lda asmcpu3980 FF0685 D0 0A bne ?023981 FF0687 SCNPRINT3982 FF0687 02 01 cop $013983 .MNLIST3984 FF0689 36 35 43 38 31 .DB '65C816', 036 003985 FF0690 60 rts3986 FF0691 24 D9 ?02: bit asmcpu3987 FF0693 50 09 bvc ?043988 FF0695 SCNPRINT3989 FF0695 02 01 cop $013990 .MNLIST3991 FF0697 36 35 43 30 32 .DB '65C02', 0003992 FF069D 60 rts3993 FF069E ?04:3994 FF069E SCNPRINT3995 FF069E 02 01 cop $013996 .MNLIST3997 FF06A0 36 35 30 32 00 .DB '6502', 03998 FF06A5 60 rts39994000 FF06A6 Cmd_am8:4001 FF06A6 A9 80 lda #$804002 FF06A8 14 D8 trb asmlong4003 FF06AA 80 04 bra _amx4004 FF06AC4005 FF06AC Cmd_am16:4006 FF06AC A9 80 lda #$804007 FF06AE 04 D8 tsb asmlong4008 FF06B0 _amx:4009 FF06B0 SCNPRINT4010 FF06B0 02 01 cop $014011 .MNLIST4012 FF06B2 0D 3A 3A 20 41 .DB $0D, ':: Accumulator/Memory 65C816 mode -> ', 063 63 75 6D 756C 61 74 6F 722F 4D 65 6D 6F72 79 20 36 3543 38 31 36 206D 6F 64 65 20Tue Jul 17 11:00:24 2018 Page 272D 3E 20 004013 FF06D9 24 D8 bit asmlong4014 FF06DB 10 0A bpl ?024015 FF06DD SCNPRINT4016 FF06DD 02 01 cop $014017 .MNLIST4018 FF06DF 31 36 20 62 69 .DB '16 bit', 074 004019 FF06E6 60 rts4020 FF06E7 ?02: SCNPRINT4021 FF06E7 02 01 cop $014022 .MNLIST4023 FF06E9 38 20 62 69 74 .DB '8 bit', 0004024 FF06EF 60 rts40254026 FF06F0 Cmd_xy8:4027 FF06F0 A9 40 lda #$404028 FF06F2 14 D8 trb asmlong4029 FF06F4 80 39 bra _xy40304031 FF06F6 Cmd_j:4032 FF06F6 68 pla4033 FF06F7 68 pla4034 FF06F8 20 3D 01 jsr _setpc4035 FF06FB 22 15 07 FF jsl _ldregs4036 FF06FF CPU164037 FF06FF C2 30 rep #(PMFLAG.OR.PXFLAG)4038 .LONGA on4039 .LONGI on4040 .MNLIST4041 FF0701 85 CE sta SMac4042 FF0703 86 D0 stx SMxr4043 FF0705 84 D2 sty SMyr4044 FF0707 CPU084045 FF0707 E2 30 sep #(PMFLAG.OR.PXFLAG)4046 .LONGA off4047 .LONGI off4048 .MNLIST4049 FF0709 08 php4050 FF070A 68 pla4051 FF070B 85 CA sta SMsr4052 FF070D 4C BE 00 jmp _SysMon24053 FF07104054 FF0710 Cmd_g:4055 FF0710 68 pla4056 FF0711 68 pla4057 FF0712 20 3D 01 jsr _setpc4058 FF07154059 FF0715 _ldregs:4060 FF0715 A5 C7 lda SMkr4061 FF0717 48 pha4062 FF0718 ACC164063 FF0718 C2 20 rep #PMFLAG4064 .LONGA on4065 .MNLIST4066 FF071A A5 C8 lda SMpcTue Jul 17 11:00:24 2018 Page 284067 FF071C 48 pha4068 FF071D A6 CA ldx SMsr4069 FF071F DA phx4070 FF0720 CPU164071 FF0720 C2 30 rep #(PMFLAG.OR.PXFLAG)4072 .LONGA on4073 .LONGI on4074 .MNLIST4075 FF0722 A5 CE lda SMac4076 FF0724 A6 D0 ldx SMxr4077 FF0726 A4 D2 ldy SMyr4078 FF0728 CPU084079 FF0728 E2 30 sep #(PMFLAG.OR.PXFLAG)4080 .LONGA off4081 .LONGI off4082 .MNLIST4083 FF072A 40 rti4084 FF072B4085 FF072B Cmd_xy16:4086 FF072B A9 40 lda #$404087 FF072D 04 D8 tsb asmlong4088 FF072F _xy:4089 FF072F SCNPRINT4090 FF072F 02 01 cop $014091 .MNLIST4092 FF0731 0D 3A 3A 20 58 .DB $0D, ':: X&Y registers 65C816 mode -> ', 026 59 20 72 6567 69 73 74 6572 73 20 36 3543 38 31 36 206D 6F 64 65 202D 3E 20 004093 FF0753 24 D8 bit asmlong4094 FF0755 50 0A bvc ?024095 FF0757 SCNPRINT4096 FF0757 02 01 cop $014097 .MNLIST4098 FF0759 31 36 20 62 69 .DB '16 bit', 074 004099 FF0760 60 rts4100 FF0761 ?02: SCNPRINT4101 FF0761 02 01 cop $014102 .MNLIST4103 FF0763 38 20 62 69 74 .DB '8 bit', 0004104 FF0769 60 rts41054106 FF076A Cmd_xmtest:4107 FF076A D0 04 bne ?014108 FF076C 64 BA stz SMTmpL4109 FF076E 64 BB stz SMTmpH4110 FF0770 ?01: ACC16CLC ; A/M 16 bit + CLC4111 FF0770 C2 21 rep #(PMFLAG.OR.PCFLAG)4112 .LONGA on4113 .MNLIST4114 FF0772 A5 BA lda SMTmpL ; LBA4115 FF0774 6A ?02: ror a ; divide by 16 to get xmem bankTue Jul 17 11:00:24 2018 Page 294116 FF0775 6A ror a4117 FF0776 6A ror a4118 FF0777 6A ror a4119 FF0778 ACC084120 FF0778 E2 20 sep #PMFLAG4121 .LONGA off4122 .MNLIST4123 ;sta SMTmpK ; ram disk bank4124 FF077A EB xba ; B = bank, A = modulus4125 FF077B 6A ror a ; shift in last carry4126 FF077C 4A lsr a ; calc the modulo4127 FF077D 4A lsr a4128 FF077E 4A lsr a ; MSB of xmem4129 FF077F 18 clc4130 FF0780 69 20 adc #$20 ; add the physical start of xmem4131 FF0782 48 pha4132 FF0783 EB xba ; return in A the ram disk bank4133 FF0784 48 pha4134 FF0785 TXT_CR4135 FF0785 TXTPRCHAR4136 .MLIST4137 FF0785 02 08 cop $084138 .MNLIST4139 FF0787 0D .DB $0D4140 .MNLIST4141 FF0788 68 pla4142 FF0789 20 4E 19 jsr PrintByte4143 FF078C FA plx4144 FF078D A9 00 lda #04145 FF078F 20 48 19 jsr PrintWord4146 FF0792 60 rts41474148 FF0793 Cmd_quit:4149 FF0793 A5 DA lda SMctx4150 FF0795 D0 03 bne ?024151 FF0797 4C 1B 0A jmp CmdErr34152 FF079A ?02: SCN_CR4153 FF079A SCNPRCHAR4154 .MLIST4155 FF079A 02 07 cop $074156 .MNLIST4157 FF079C 0D .DB $0D4158 .MNLIST4159 FF079D DC DB 01 jml [DP01ADDR+SMrsm]4160 FF07A04161 FF07A0 Cmd_cbmpas:4162 FF07A0 A5 DA lda SMctx4163 FF07A2 F0 03 beq ?024164 FF07A4 4C 1B 0A jmp CmdErr34165 FF07A7 A0 00 ?02: ldy #04166 FF07A9 22 00 FF FE jsl CBMCOLD4167 FF07AD 64 DA stz SMctx4168 FF07AF 4C 82 0C jmp PrintReg4169 FF07B24170 FF07B2 Cmd_cop:4171 FF07B2 ?00: KBGETIN4172 FF07B2 02 17 cop $17Tue Jul 17 11:00:24 2018 Page 304173 .MNLIST4174 FF07B4 C9 00 cmp #$004175 FF07B6 F0 FA beq ?004176 FF07B8 EB xba4177 FF07B9 AA tax4178 FF07BA EB xba4179 FF07BB SCN_CR4180 FF07BB SCNPRCHAR4181 .MLIST4182 FF07BB 02 07 cop $074183 .MNLIST4184 FF07BD 0D .DB $0D4185 .MNLIST4186 FF07BE 20 48 19 jsr PrintWord4187 FF07C1 SCN_CR4188 FF07C1 SCNPRCHAR4189 .MLIST4190 FF07C1 02 07 cop $074191 .MNLIST4192 FF07C3 0D .DB $0D4193 .MNLIST4194 FF07C4 A5 64 lda DP01ADDR+KbdFlag4195 FF07C6 20 4E 19 jsr PrintByte4196 FF07C9 A5 65 lda DP01ADDR+KbdToggle4197 FF07CB 4C 4E 19 jmp PrintByte4198 FF07CE4199 FF07CE D0 03 bne ?014200 FF07D0 4C 1B 0A jmp CmdErr34201 FF07D3 A5 BC ?01: lda SMTmpK4202 ;ora SMTmpH4203 FF07D5 F0 03 beq ?024204 FF07D7 4C 1B 0A jmp CmdErr34205 ?02: ;ldx SMTmpL4206 ;pea $00004207 ;pea $00014208 ;pea $00024209 ;cop $134210 FF07DA 4C 74 08 jmp ?134211 FF07DD4212 FF07DD A9 12 lda #184213 FF07DF 85 F8 sta SMdwTmp34214 FF07E1 64 F9 stz SMdwTmp3+14215 FF07E3 0A asl a4216 FF07E4 85 EA sta SMdwTmp24217 FF07E6 64 EB stz SMdwTmp2+14218 FF07E8 A5 BB lda SMTmpH4219 FF07EA EB xba4220 FF07EB A5 BA lda SMTmpL4221 FF07ED A2 10 ldx #164222 FF07EF CPU164223 FF07EF C2 30 rep #(PMFLAG.OR.PXFLAG)4224 .LONGA on4225 .LONGI on4226 .MNLIST4227 FF07F1 64 E6 stz SMdwTmp1 ; azzera rem4228 FF07F3 2A ?04: rol a4229 FF07F4 26 E6 rol SMdwTmp1Tue Jul 17 11:00:24 2018 Page 314230 FF07F6 A8 tay4231 FF07F7 38 sec4232 FF07F8 A5 E6 lda SMdwTmp14233 FF07FA E5 EA sbc SMdwTmp24234 FF07FC 90 02 bcc ?064235 FF07FE 85 E6 sta SMdwTmp14236 FF0800 98 ?06: tya4237 FF0801 CA dex4238 FF0802 D0 EF bne ?044239 FF0804 2A rol a4240 FF0805 CPU084241 FF0805 E2 30 sep #(PMFLAG.OR.PXFLAG)4242 .LONGA off4243 .LONGI off4244 .MNLIST4245 FF0807 85 F0 sta SMXPos24246 FF0809 A2 00 ldx #04247 FF080B 38 sec4248 FF080C A5 E6 lda SMdwTmp14249 FF080E E5 F8 sbc SMdwTmp34250 FF0810 B0 04 bcs ?084251 FF0812 65 F8 adc SMdwTmp34252 FF0814 80 01 bra ?094253 FF0816 E8 ?08: inx4254 FF0817 86 F1 ?09: stx SMYPos24255 FF0819 1A inc a4256 FF081A 85 F2 sta SMXPos34257 FF081C4258 FF081C A5 F0 lda SMXPos24259 FF081E 0A asl a4260 FF081F 18 clc4261 FF0820 65 F1 adc SMYPos24262 FF0822 85 BC sta SMTmpK4263 FF0824 A9 00 lda #04264 FF0826 A2 09 ldx #94265 FF0828 18 clc4266 FF0829 6A ?10: ror a4267 FF082A 66 BC ror SMTmpK4268 FF082C 90 03 bcc ?124269 FF082E 18 clc4270 FF082F 65 F8 adc SMdwTmp34271 FF0831 CA ?12: dex4272 FF0832 D0 F5 bne ?104273 FF0834 A6 F2 ldx SMXPos34274 FF0836 86 E6 stx SMdwTmp14275 FF0838 64 E7 stz SMdwTmp1+14276 FF083A 18 clc4277 FF083B EB xba4278 FF083C A5 BC lda SMTmpK4279 FF083E ACC164280 FF083E C2 20 rep #PMFLAG4281 .LONGA on4282 .MNLIST4283 FF0840 65 E6 adc SMdwTmp14284 FF0842 3A dec a4285 FF0843 85 E6 sta SMdwTmp14286 FF0845 ACC08Tue Jul 17 11:00:24 2018 Page 324287 FF0845 E2 20 sep #PMFLAG4288 .LONGA off4289 .MNLIST4290 FF0847 20 5B 19 jsr PrintCR4291 FF084A A5 BB lda SMTmpH4292 FF084C 20 71 19 jsr PrintHex4293 FF084F A5 BA lda SMTmpL4294 FF0851 20 71 19 jsr PrintHex4295 FF0854 20 5B 19 jsr PrintCR4296 FF0857 A5 F0 lda SMXPos24297 FF0859 20 4E 19 jsr PrintByte4298 FF085C A5 F1 lda SMYPos24299 FF085E 20 4E 19 jsr PrintByte4300 FF0861 A5 F2 lda SMXPos34301 FF0863 20 4E 19 jsr PrintByte4302 FF0866 20 5B 19 jsr PrintCR4303 FF0869 A5 E7 lda SMdwTmp1+14304 FF086B 20 71 19 jsr PrintHex4305 FF086E A5 E6 lda SMdwTmp14306 FF0870 20 71 19 jsr PrintHex4307 FF0873 60 rts4308 FF08744309 FF0874 ?13:4310 FF0874 FDCGETFMT4311 FF0874 02 30 cop $304312 FF0876 04 .DB $044313 .MNLIST4314 FF0877 90 1C bcc ?164315 FF0879 SCNPRINT4316 FF0879 02 01 cop $014317 .MNLIST4318 FF087B 0D 3A 3A 65 72 .DB $0D, '::error code -> ', $0072 6F 72 20 636F 64 65 20 2D3E 20 004319 FF088D 98 tya4320 FF088E 20 4E 19 jsr PrintByte4321 FF0891 8A txa4322 FF0892 4C 71 19 jmp PrintHex43234324 FF0895 98 ?16: tya4325 FF0896 SCN_CR4326 FF0896 SCNPRCHAR4327 .MLIST4328 FF0896 02 07 cop $074329 .MNLIST4330 FF0898 0D .DB $0D4331 .MNLIST4332 FF0899 4C 71 19 jmp PrintHex4333 FF089C4334 FF089C SCN_CR4335 FF089C SCNPRCHAR4336 .MLIST4337 FF089C 02 07 cop $074338 .MNLIST4339 FF089E 0D .DB $0D4340 .MNLISTTue Jul 17 11:00:24 2018 Page 334341 FF089F ACC164342 FF089F C2 20 rep #PMFLAG4343 .LONGA on4344 .MNLIST4345 FF08A1 A9 CB 08 lda #passtr14346 FF08A4 ACC084347 FF08A4 E2 20 sep #PMFLAG4348 .LONGA off4349 .MNLIST4350 FF08A6 A2 FF ldx #^passtr14351 FF08A8 SCNPASSTR4352 FF08A8 02 0B cop $0B4353 .MNLIST4354 FF08AA SCN_CR4355 FF08AA SCNPRCHAR4356 .MLIST4357 FF08AA 02 07 cop $074358 .MNLIST4359 FF08AC 0D .DB $0D4360 .MNLIST4361 FF08AD CPU164362 FF08AD C2 30 rep #(PMFLAG.OR.PXFLAG)4363 .LONGA on4364 .LONGI on4365 .MNLIST4366 FF08AF A9 DE 08 lda #bufstr14367 FF08B2 A2 FF 00 ldx #^bufstr14368 FF08B5 A0 0F 00 ldy #blen4369 FF08B8 SCNBUFOUT4370 FF08B8 02 0D cop $0D4371 .MNLIST4372 FF08BA CPU084373 FF08BA E2 30 sep #(PMFLAG.OR.PXFLAG)4374 .LONGA off4375 .LONGI off4376 .MNLIST4377 FF08BC 60 ?100: rts4378 FF08BD4379 FF08BD SCNPRCHAR4380 FF08BD 02 07 cop $074381 .MNLIST4382 FF08BF 56 .DB 'V'4383 FF08C0 SCNPRCHAR4384 FF08C0 02 07 cop $074385 .MNLIST4386 FF08C2 0D .DB $0D4387 FF08C3 A5 BA lda SMTmpL4388 FF08C5 02 FF cop $FF4389 FF08C7 SCNPRCHAR4390 FF08C7 02 07 cop $074391 .MNLIST4392 FF08C9 0D .DB $0D4393 FF08CA 60 rts43944395 FF08CB passtr1:4396 FF08CB 12 .db plen4397 FF08CC 50 61 73 63 61 .db 'Pascal String Test'Tue Jul 17 11:00:24 2018 Page 346C 20 53 74 7269 6E 67 20 5465 73 744398 000012 plen .EQU ($ - passtr1 - 1)43994400 FF08DE bufstr1:4401 FF08DE 42 75 66 66 65 .db 'Buffer Out Test'72 20 4F 75 7420 54 65 73 744402 00000F blen .EQU ($ - bufstr1)4403 FF08ED4404 FF08ED Cmd_true:4405 FF08ED B0 06 bcs ?104406 FF08EF A5 BC lda SMTmpK4407 FF08F1 05 BB ora SMTmpH4408 FF08F3 F0 03 beq ?124409 FF08F5 4C 1B 0A ?10: jmp CmdErr34410 FF08F8 A5 BA ?12: lda SMTmpL4411 FF08FA 29 7F and #$7F4412 FF08FC C9 06 cmp #$064413 FF08FE B0 F5 bcs ?104414 FF0900 8D 66 05 sta $05664415 FF0903 A5 BA lda SMTmpL4416 FF0905 29 80 and #$804417 FF0907 85 E2 sta SMTmp24418 FF0909 20 48 1A ?14: jsr GetCurCh4419 FF090C A6 C4 ldx SMbndx4420 FF090E C9 00 cmp #$004421 FF0910 F0 03 beq ?164422 FF0912 C9 20 cmp #' '4423 ;beq ?144424 FF0914 CA dex4425 FF0915 ?16: CPU164426 FF0915 C2 30 rep #(PMFLAG.OR.PXFLAG)4427 .LONGA on4428 .LONGI on4429 .MNLIST4430 FF0917 18 clc4431 FF0918 8A txa4432 FF0919 69 00 99 adc #INPUTBUF4433 FF091C INDEX084434 FF091C E2 10 sep #PXFLAG4435 .LONGI off4436 .MNLIST4437 FF091E A2 01 ldx #^INPUTBUF4438 FF0920 DA phx4439 FF0921 48 pha4440 FF0922 A2 40 ldx #$404441 FF0924 A9 80 03 lda #$03804442 FF0927 85 BA sta SMTmpL4443 FF0929 86 BC stx SMTmpK4444 FF092B DA phx4445 ;pha4446 FF092C D4 BA pei (SMTmpL)4447 FF092E A4 E2 ldy SMTmp24448 FF0930 5A phy4449 FF0931 CPU08Tue Jul 17 11:00:24 2018 Page 354450 FF0931 E2 30 sep #(PMFLAG.OR.PXFLAG)4451 .LONGA off4452 .LONGI off4453 .MNLIST4454 FF0933 TRUENAM4455 FF0933 02 FE cop $FE4456 .MNLIST4457 ;sta SMTmpL4458 ;xba4459 ;sta SMTmpH4460 ;stx SMTmpK4461 FF0935 90 18 bcc ?10004462 FF0937 98 tya4463 FF0938 SCNPRINT4464 FF0938 02 01 cop $014465 .MNLIST4466 FF093A 0D 3A 3A 65 72 .DB $0D, '::error code -> ', $0072 6F 72 20 636F 64 65 20 2D3E 20 004467 FF094C 20 4E 19 jsr PrintByte4468 FF094F ?1000: TXT_CR4469 FF094F TXTPRCHAR4470 .MLIST4471 FF094F 02 08 cop $084472 .MNLIST4473 FF0951 0D .DB $0D4474 .MNLIST4475 FF0952 A5 BB lda SMTmpH4476 FF0954 EB xba4477 FF0955 A5 BA lda SMTmpL4478 FF0957 A6 BC ldx SMTmpK4479 FF0959 SCNSTROUT4480 FF0959 02 03 cop $034481 .MNLIST4482 ;jsr PrintCR4483 FF095B 60 rts44844485 FF095C Cmd_dumbon:4486 .EXTERN lspset, lspset24487 FF095C A5 BA lda SMTmpL4488 FF095E 29 01 and #14489 FF0960 AA tax4490 FF0961 A9 D4 lda #11010100B4491 FF0963 22 78 0D F8 jsl lspset24492 FF0967 A5 BA lda SMTmpL4493 FF0969 29 01 and #14494 FF096B E8 inx4495 FF096C 8E 50 00 stx .ABS.DflTxtOut4496 FF096F A2 80 ldx #$804497 FF0971 86 C6 stx SMdumb4498 FF0973 60 rts44994500 FF0974 Cmd_dumboff:4501 .EXTERN lspres, lspres24502 FF0974 AE 50 00 ldx .ABS.DflTxtOut4503 FF0977 CA dexTue Jul 17 11:00:24 2018 Page 364504 FF0978 22 8A 0D F8 jsl lspres24505 FF097C A2 03 ldx #TXTD_SCN4506 FF097E 8E 50 00 stx .ABS.DflTxtOut4507 FF0981 64 C6 stz SMdumb4508 FF0983 60 rts45094510 ;----------------------------------------------------------4511 ; comando vdc 0|1 - 0 -> 16MHz, 1 -> 20MHz45124513 .EXTERN VDCX20, VDCREG164514 FF09844515 FF0984 Cmd_vdc:4516 FF0984 D0 03 bne ?014517 FF0986 4C 1B 0A jmp CmdErr34518 FF0989 A5 BC ?01: lda SMTmpK4519 FF098B 05 BB ora SMTmpH4520 FF098D F0 03 beq ?024521 FF098F 4C 1B 0A jmp CmdErr34522 FF0992 A6 BA ?02: ldx SMTmpL4523 FF0994 E0 02 cpx #$024524 FF0996 90 03 bcc ?034525 FF0998 4C 1B 0A jmp CmdErr34526 FF099B AD 1F FD ?03: lda VIA1+VIAPRANH ; bit 1 -> dot clock4527 FF099E 29 02 and #$02 ; maschera bit 14528 FF09A0 F0 0B beq ?04 ; dot clock = 16MHz4529 FF09A2 E0 01 cpx #$014530 FF09A4 F0 30 beq ?20 ; gia' impostato su 20MHz4531 FF09A6 1C 1F FD trb VIA1+VIAPRANH ; DOTCLOCK 16MHZ - PAL RGB4532 FF09A9 A2 00 ldx #0 ; indice per setup 16MHZ4533 FF09AB F0 0A beq ?084534 FF09AD 8A ?04: txa4535 FF09AE F0 26 beq ?20 ; gia' impostato su 16MHz4536 FF09B0 A9 02 lda #$024537 FF09B2 1C 1F FD trb VIA1+VIAPRANH ; DOTCLOCK 20MHZ - VGA4538 FF09B5 A2 00 ldx #0 ; indice per setup 20MHZ4539 FF09B7 A9 01 ?08: lda #$01 ; video VDC OFF4540 FF09B9 0C 1F FD tsb VIA1+VIAPRANH4541 FF09BC BF 48 AF F8 ?10: LDA >VDCREG16,X4542 FF09C0 30 0F BMI ?124543 FF09C2 A8 tay4544 FF09C3 E8 INX4545 FF09C4 BF 48 AF F8 LDA >VDCREG16,X4546 FF09C8 E8 INX4547 FF09C9 8C 4E FD STY VDCAddr4548 FF09CC 8D 4F FD STA VDCData4549 FF09CF 80 EB BRA ?104550 FF09D1 A9 01 ?12: lda #$01 ; video VDC ON4551 FF09D3 1C 1F FD trb VIA1+VIAPRANH4552 FF09D6 60 ?20: rts45534554 FF09D74555 ;----------------------------------------------------------4556 ; diagnostica floppy disk45574558 FF09D74559 ; fdtest [0|1] - controlla presenza/cambio disco nel drive4560 FF09D7 Cmd_fdtest:Tue Jul 17 11:00:24 2018 Page 374561 FF09D7 F0 42 beq CmdErr34562 FF09D9 A5 BC lda SMTmpK4563 FF09DB 05 BB ora SMTmpH4564 FF09DD D0 3C bne CmdErr34565 FF09DF A6 BA ldx SMTmpL4566 FF09E1 E0 02 cpx #$024567 FF09E3 B0 36 bcs CmdErr34568 FF09E5 FDCTST4569 FF09E5 02 30 cop $304570 FF09E7 03 .DB $034571 .MNLIST4572 FF09E8 08 drs: php4573 FF09E9 SCNPRINT4574 FF09E9 02 01 cop $014575 .MNLIST4576 FF09EB 0D 3A 3A 65 72 .DB $0D, '::error code -> ', $0072 6F 72 20 636F 64 65 20 2D3E 20 004577 FF09FD AD 48 00 lda !fdcerr4578 FF0A00 20 71 19 jsr PrintHex4579 FF0A03 SCNPRINT4580 FF0A03 02 01 cop $014581 .MNLIST4582 FF0A05 20 20 2D 20 20 .DB ' - CF -> ', $0043 46 20 2D 3E20 004583 FF0A11 28 plp4584 FF0A12 A9 30 lda #'0'4585 FF0A14 90 02 bcc ?034586 FF0A16 A9 31 lda #'1'4587 FF0A18 ?03: SCNCHAROUT4588 FF0A18 02 05 cop $054589 .MNLIST4590 FF0A1A 60 rts45914592 FF0A1B CmdErr3:4593 FF0A1B 4C 34 01 jmp ErrCls2459445954596 ; fdread drive+flag fmt buffer track [head sect sectnum vervbuf]4597 ;Cmd_fdread:4598 FF0A1E B0 FB bcs CmdErr3 ; no parametri4599 FF0A20 20 C8 19 jsr GetFDCParm4600 FF0A23 B0 07 bcs FdcClean4601 FF0A25 FDCREAD4602 FF0A25 02 31 cop $314603 FF0A27 00 .DB $004604 .MNLIST4605 FF0A28 20 E8 09 jsr drs4606 FF0A2B 18 clc4607 FF0A2C FdcClean:4608 FF0A2C 08 php4609 FF0A2D FA plx4610 FF0A2E ACC164611 FF0A2E C2 20 rep #PMFLAG4612 .LONGA onTue Jul 17 11:00:24 2018 Page 384613 .MNLIST4614 FF0A30 3B tsc4615 FF0A31 18 clc4616 FF0A32 69 09 00 adc #FDPBSIZE4617 FF0A35 1B tcs4618 FF0A36 ACC084619 FF0A36 E2 20 sep #PMFLAG4620 .LONGA off4621 .MNLIST4622 FF0A38 DA phx4623 FF0A39 28 plp4624 FF0A3A B0 DF bcs CmdErr34625 FF0A3C 60 rts46264627 ;Cmd_fdwrite:4628 FF0A3D B0 DC bcs CmdErr3 ; no parametri4629 FF0A3F 20 C8 19 jsr GetFDCParm4630 FF0A42 B0 E8 bcs FdcClean4631 FF0A44 FDCWRITE4632 FF0A44 02 31 cop $314633 FF0A46 02 .DB $024634 .MNLIST4635 FF0A47 20 E8 09 jsr drs4636 FF0A4A 18 clc4637 FF0A4B 90 DF bcc FdcClean4638 FF0A4D4639 FF0A4D4640 ;----------------------------------------------------------4641 ; comando m46424643 FF0A4D Cmd_xmt:4644 FF0A4D F0 13 beq ?00c ; no params - full test4645 FF0A4F A5 BC lda SMTmpK4646 FF0A51 05 BB ora SMTmpH4647 FF0A53 D0 06 bne ?00a ; max . $1F4648 FF0A55 A5 BA lda SMTmpL ; banco X mem in test4649 FF0A57 C9 20 cmp #$204650 FF0A59 90 03 bcc ?00b ; OK4651 FF0A5B 4C 34 01 ?00a: jmp ErrCls2 ; errore - banco > $1F4652 FF0A5E A9 01 ?00b: lda #$01 ; un banco (64k)4653 FF0A60 D0 04 bne ?00d4654 FF0A62 A9 20 ?00c: lda #$20 ; numero banchi full test (2Mb)4655 FF0A64 64 BA stz SMTmpL ; banco start = $00 per full test4656 FF0A66 85 BB ?00d: sta SMTmpH ; numero banchi da 64k4657 FF0A68 9C 4B 00 stz !CtrlBrk ; clear CTRL BREAK flag4658 FF0A6B AE 0A FC ldx CRXME ; salva impostazione X mem4659 FF0A6E DA phx4660 FF0A6F AD 28 FD lda PIA0+PIAPRA ; salva banco X mem4661 FF0A72 48 pha4662 FF0A73 8D 0B FC sta CRXMEON ; abilita X mem4663 FF0A76 A5 BA lda SMTmpL ; calcola pagina X mem4664 FF0A78 0A asl a ; moltiplica x 84665 FF0A79 0A asl a4666 FF0A7A 0A asl a4667 FF0A7B 8D 28 FD sta PIA0+PIAPRA ; pagina fisica di start4668 FF0A7E SCN_CR4669 FF0A7E SCNPRCHARTue Jul 17 11:00:24 2018 Page 394670 .MLIST4671 FF0A7E 02 07 cop $074672 .MNLIST4673 FF0A80 0D .DB $0D4674 .MNLIST4675 FF0A81 A5 BB lda SMTmpH4676 FF0A83 C9 01 cmp #$014677 FF0A85 F0 23 beq ?00e ; testa un banco4678 FF0A87 SCNPRINT4679 FF0A87 02 01 cop $014680 .MNLIST4681 FF0A89 3A 3A 46 75 6C .DB '::Full eXtended memory test: $', 06C 20 65 58 7465 6E 64 65 6420 6D 65 6D 6F72 79 20 74 6573 74 3A 20 24004682 FF0AA8 80 21 bra ?00f4683 FF0AAA ?00e: SCNPRINT4684 FF0AAA 02 01 cop $014685 .MNLIST4686 FF0AAC 3A 3A 65 58 74 .DB '::eXtended memory bank test: $', 065 6E 64 65 6420 6D 65 6D 6F72 79 20 62 616E 6B 20 74 6573 74 3A 20 24004687 FF0ACB ?00f: SCNGETPOS4688 FF0ACB 02 18 cop $184689 FF0ACD 02 .DB $024690 .MNLIST4691 FF0ACE 86 D6 stx SMAuxL4692 FF0AD0 84 D7 sty SMAuxH4693 FF0AD2 ?01: INDEX084694 FF0AD2 E2 10 sep #PXFLAG4695 .LONGI off4696 .MNLIST4697 FF0AD4 A6 D6 ldx SMAuxL ; pos. banco4698 FF0AD6 A4 D7 ldy SMAuxH4699 FF0AD8 SCNSETPOS4700 FF0AD8 02 18 cop $184701 FF0ADA 03 .DB $034702 .MNLIST4703 FF0ADB A5 BA lda SMTmpL ; print banco4704 FF0ADD 20 71 19 jsr PrintHex4705 FF0AE0 SCNGETPOS ; pos. address4706 FF0AE0 02 18 cop $184707 FF0AE2 02 .DB $024708 .MNLIST4709 FF0AE3 86 F6 stx SMXPos4710 FF0AE5 84 F7 sty SMYPos4711 FF0AE7 A9 08 lda #$08 ; 8 cicli per banco4712 FF0AE9 85 BC sta SMTmpK4713 FF0AEB INDEX164714 FF0AEB C2 10 rep #PXFLAGTue Jul 17 11:00:24 2018 Page 404715 .LONGI on4716 .MNLIST4717 FF0AED A0 00 00 ?02: ldy #$00004718 FF0AF0 20 80 1A jsr CkStop4719 FF0AF3 F0 5C beq ?104720 FF0AF5 B9 00 20 ?03: lda $012000,y ; finestra $2000 - $3FFF4721 FF0AF8 EB xba4722 FF0AF9 A9 55 lda #$554723 FF0AFB 99 00 20 sta $012000,y4724 FF0AFE D9 00 20 cmp $012000,y4725 FF0B01 D0 08 bne ?054726 FF0B03 A9 AA lda #$AA4727 FF0B05 99 00 20 sta $012000,y4728 FF0B08 D9 00 20 cmp $012000,y4729 FF0B0B 08 ?05: php4730 FF0B0C EB xba4731 FF0B0D 99 00 20 sta $012000,y4732 FF0B10 84 BE sty SMSizeL4733 FF0B12 28 plp4734 FF0B13 D0 2D bne ?094735 FF0B15 A5 BE lda SMSizeL ; stampa solo indirizzi di pagina4736 FF0B17 D0 05 bne ?084737 FF0B19 20 5D 0B jsr XmtPrint4738 FF0B1C INDEX164739 FF0B1C C2 10 rep #PXFLAG4740 .LONGI on4741 .MNLIST4742 FF0B1E A4 BE ?08: ldy SMSizeL4743 FF0B20 C8 iny4744 FF0B21 C0 00 20 cpy #$2000 ; 8k4745 FF0B24 90 CF bcc ?034746 FF0B26 EE 28 FD inc PIA0+PIAPRA ; banco successivo4747 FF0B29 C6 BC dec SMTmpK ; loop 64k4748 FF0B2B D0 C0 bne ?024749 FF0B2D E6 BA inc SMTmpL ; banco successivo4750 FF0B2F C6 BB dec SMTmpH4751 FF0B31 D0 9F bne ?01 ; loop banchi4752 FF0B33 CE 28 FD dec PIA0+PIAPRA4753 FF0B36 20 5D 0B jsr XmtPrint4754 FF0B39 SCNPRINT4755 FF0B39 02 01 cop $014756 .MNLIST4757 FF0B3B 2D 20 4F 4B 00 .DB '- OK', 04758 FF0B40 80 0F bra ?104759 FF0B42 20 5D 0B ?09: jsr XmtPrint4760 FF0B45 SCNPRINT4761 FF0B45 02 01 cop $014762 .MNLIST4763 FF0B47 2D 20 42 41 44 .DB '- BAD RAM', 020 52 41 4D 004764 FF0B51 ?10: INDEX084765 FF0B51 E2 10 sep #PXFLAG4766 .LONGI off4767 .MNLIST4768 FF0B53 68 pla4769 FF0B54 8D 28 FD sta PIA0+PIAPRA ; ripristina banco X mem4770 FF0B57 FA plx ; ripristina bit CRXTue Jul 17 11:00:24 2018 Page 414771 FF0B58 9F 0A FC 00 sta CRXME,x4772 FF0B5C 60 rts47734774 FF0B5D XmtPrint:4775 FF0B5D INDEX084776 FF0B5D E2 10 sep #PXFLAG4777 .LONGI off4778 .MNLIST4779 FF0B5F A6 F6 ldx SMXPos4780 FF0B61 A4 F7 ldy SMYPos4781 FF0B63 SCNSETPOS4782 FF0B63 02 18 cop $184783 FF0B65 03 .DB $034784 .MNLIST4785 FF0B66 AD 28 FD lda PIA0+PIAPRA4786 FF0B69 0A asl a4787 FF0B6A 0A asl a4788 FF0B6B 0A asl a4789 FF0B6C 0A asl a4790 FF0B6D 0A asl a4791 FF0B6E 05 BF ora SMSizeH ; indirizzo fisico (Hi)4792 FF0B70 AA tax4793 FF0B71 A5 BE lda SMSizeL4794 FF0B73 4C 48 19 jmp PrintWord4795 FF0B764796 FF0B76 Cmd_kmt:4797 FF0B76 F0 15 beq ?00c ; no params - full test4798 FF0B78 A5 BC lda SMTmpK4799 FF0B7A 05 BB ora SMTmpH4800 FF0B7C D0 08 bne ?00a ; max . $F74801 FF0B7E A5 BA lda SMTmpL ; banco std mem in test4802 FF0B80 F0 04 beq ?00a ; no test in banco 0 !4803 FF0B82 C9 F8 cmp #$F84804 FF0B84 90 03 bcc ?00b ; OK4805 FF0B86 4C 34 01 ?00a: jmp ErrCls2 ; errore - banco > $F7 oppure banco 04806 FF0B89 A9 01 ?00b: lda #$01 ; un banco (64k)4807 FF0B8B D0 06 bne ?00d4808 FF0B8D A9 F7 ?00c: lda #$F7 ; numero banchi full test (eccetto 0 e F8/FF)4809 FF0B8F A2 01 ldx #$014810 FF0B91 86 BA stx SMTmpL ; banco start = $01 per full test4811 FF0B93 85 BB ?00d: sta SMTmpH ; numero banchi da 64k4812 FF0B95 9C 4B 00 stz !CtrlBrk ; clear CTRL BREAK flag4813 FF0B98 SCN_CR4814 FF0B98 SCNPRCHAR4815 .MLIST4816 FF0B98 02 07 cop $074817 .MNLIST4818 FF0B9A 0D .DB $0D4819 .MNLIST4820 FF0B9B A5 BB lda SMTmpH4821 FF0B9D C9 01 cmp #$014822 FF0B9F F0 1A beq ?00e ; testa un banco4823 FF0BA1 SCNPRINT4824 FF0BA1 02 01 cop $014825 .MNLIST4826 FF0BA3 3A 3A 46 75 6C .DB '::Full memory test: $', 06C 20 6D 65 6DTue Jul 17 11:00:24 2018 Page 426F 72 79 20 7465 73 74 3A 2024 004827 FF0BB9 80 18 bra ?00f4828 FF0BBB ?00e: SCNPRINT4829 FF0BBB 02 01 cop $014830 .MNLIST4831 FF0BBD 3A 3A 4D 65 6D .DB '::Memory bank test: $', 06F 72 79 20 6261 6E 6B 20 7465 73 74 3A 2024 004832 FF0BD3 ?00f: SCNGETPOS4833 FF0BD3 02 18 cop $184834 FF0BD5 02 .DB $024835 .MNLIST4836 FF0BD6 86 D6 stx SMAuxL4837 FF0BD8 84 D7 sty SMAuxH4838 FF0BDA AE 0A FC ldx CRXME ; salva impostazione X mem4839 FF0BDD DA phx4840 FF0BDE AE 0C FC ldx CREME ; salva impostazione E mem4841 FF0BE1 DA phx4842 FF0BE2 AE 08 FC ldx CRXFE ; salva impostazione flash mem4843 FF0BE5 DA phx4844 FF0BE6 8D 0A FC sta CRXMEOFF ; disabilita X mem4845 FF0BE9 8D 0C FC sta CREMEOFF ; disabilita E mem4846 FF0BEC 8D 08 FC sta CRXFEOFF ; disabilita F mem4847 FF0BEF 8B phb ; salva PBR4848 FF0BF0 ?01: INDEX084849 FF0BF0 E2 10 sep #PXFLAG4850 .LONGI off4851 .MNLIST4852 FF0BF2 A6 D6 ldx SMAuxL ; pos. banco4853 FF0BF4 A4 D7 ldy SMAuxH4854 FF0BF6 SCNSETPOS4855 FF0BF6 02 18 cop $184856 FF0BF8 03 .DB $034857 .MNLIST4858 FF0BF9 A5 BA lda SMTmpL ; print banco4859 FF0BFB 20 71 19 jsr PrintHex4860 FF0BFE SCNGETPOS ; pos. address4861 FF0BFE 02 18 cop $184862 FF0C00 02 .DB $024863 .MNLIST4864 FF0C01 86 F6 stx SMXPos4865 FF0C03 84 F7 sty SMYPos4866 FF0C05 INDEX164867 FF0C05 C2 10 rep #PXFLAG4868 .LONGI on4869 .MNLIST4870 FF0C07 A5 BA lda SMTmpL ; imposta PBR corrente4871 FF0C09 48 pha4872 FF0C0A AB plb4873 FF0C0B A0 00 00 ldy #$00004874 FF0C0E 20 80 1A jsr CkStop4875 FF0C11 F0 4F beq ?104876 FF0C13 B9 00 00 ?02: lda !$0000,yTue Jul 17 11:00:24 2018 Page 434877 FF0C16 EB xba4878 FF0C17 A9 55 lda #$554879 FF0C19 99 00 00 sta !$0000,y4880 FF0C1C D9 00 00 cmp !$0000,y4881 FF0C1F D0 08 bne ?054882 FF0C21 A9 AA lda #$AA4883 FF0C23 99 00 00 sta !$0000,y4884 FF0C26 D9 00 00 cmp !$0000,y4885 FF0C29 08 ?05: php4886 FF0C2A EB xba4887 FF0C2B 99 00 00 sta !$0000,y4888 FF0C2E 84 BE sty SMSizeL4889 FF0C30 28 plp4890 FF0C31 D0 20 bne ?094891 FF0C33 A5 BE lda SMSizeL4892 FF0C35 D0 05 bne ?084893 FF0C37 20 72 0C jsr MemPrint4894 FF0C3A INDEX164895 FF0C3A C2 10 rep #PXFLAG4896 .LONGI on4897 .MNLIST4898 FF0C3C A4 BE ?08: ldy SMSizeL4899 FF0C3E C8 iny4900 FF0C3F D0 D2 bne ?024901 FF0C41 E6 BA inc SMTmpL ; banco successivo4902 FF0C43 C6 BB dec SMTmpH4903 FF0C45 D0 A9 bne ?01 ; loop banchi4904 FF0C47 20 72 0C jsr MemPrint4905 FF0C4A SCNPRINT4906 FF0C4A 02 01 cop $014907 .MNLIST4908 FF0C4C 2D 20 4F 4B 00 .DB '- OK', 04909 FF0C51 80 0F bra ?104910 FF0C53 20 72 0C ?09: jsr MemPrint4911 FF0C56 SCNPRINT4912 FF0C56 02 01 cop $014913 .MNLIST4914 FF0C58 2D 20 42 41 44 .DB '- BAD RAM', 020 52 41 4D 004915 FF0C624916 FF0C62 ?10: INDEX084917 FF0C62 E2 10 sep #PXFLAG4918 .LONGI off4919 .MNLIST4920 FF0C64 AB plb ; ripristina banco4921 FF0C65 FA plx4922 FF0C66 8D 08 FC sta CRXFE ; ripristina impostazione F mem4923 FF0C69 FA plx4924 FF0C6A 8D 0C FC sta CREME ; ripristina impostazione E mem4925 FF0C6D FA plx4926 FF0C6E 8D 0A FC sta CRXME ; ripristina impostazione M mem4927 FF0C71 60 rts49284929 FF0C72 MemPrint:4930 FF0C72 INDEX084931 FF0C72 E2 10 sep #PXFLAG4932 .LONGI offTue Jul 17 11:00:24 2018 Page 444933 .MNLIST4934 FF0C74 A6 F6 ldx SMXPos4935 FF0C76 A4 F7 ldy SMYPos4936 FF0C78 SCNSETPOS4937 FF0C78 02 18 cop $184938 FF0C7A 03 .DB $034939 .MNLIST4940 FF0C7B A5 BE lda SMSizeL4941 FF0C7D A6 BF ldx SMSizeH4942 FF0C7F 4C 48 19 jmp PrintWord4943 FF0C824944 ; r -> show registri CPU4945 FF0C82 PrintReg:4946 FF0C82 CPU164947 FF0C82 C2 30 rep #(PMFLAG.OR.PXFLAG)4948 .LONGA on4949 .LONGI on4950 .MNLIST4951 FF0C84 BA tsx4952 FF0C85 E8 inx4953 FF0C86 E8 inx4954 FF0C87 86 D4 stx SMsp4955 FF0C89 CPU084956 FF0C89 E2 30 sep #(PMFLAG.OR.PXFLAG)4957 .LONGA off4958 .LONGI off4959 .MNLIST4960 FF0C8B SCNPRINT4961 FF0C8B 02 01 cop $014962 .MNLIST4963 FF0C8D4964 FF0C8D 0D 20 20 4B 52 .DB KB_CR, ' KR PC BR DP SR AC XR YR SP', KB_CR20 20 50 43 2020 42 52 20 2044 50 20 20 5352 20 20 41 4320 20 20 58 5220 20 20 59 5220 20 20 53 500D4965 FF0CB6 3B 20 1B 51 00 .DB '; ', KB_ESC, 'Q', 04966 FF0CBB4967 FF0CBB A5 C7 lda SMkr ; stampa PBR (K)4968 FF0CBD 20 4E 19 jsr PrintByte4969 FF0CC0 A5 C8 lda SMpc ; stampa PCL4970 FF0CC2 A6 C9 ldx SMpc+1 ; stampa PCH4971 FF0CC4 20 48 19 jsr PrintWord4972 FF0CC7 A5 CB lda SMbr ; stampa DBR (B)4973 FF0CC9 20 4E 19 jsr PrintByte4974 FF0CCC A5 CC lda SMdp ; stampa DPL4975 FF0CCE A6 CD ldx SMdp+1 ; stampa DPH4976 FF0CD0 20 48 19 jsr PrintWord4977 FF0CD3 A5 CA lda SMsr ; stampa SR4978 FF0CD5 20 4E 19 jsr PrintByte4979 FF0CD8 A5 CE lda SMac ; stampa AL4980 FF0CDA A6 CF ldx SMac+1 ; stampa AH4981 FF0CDC 20 48 19 jsr PrintWordTue Jul 17 11:00:24 2018 Page 454982 FF0CDF A5 D0 lda SMxr ; stampa XL4983 FF0CE1 A6 D1 ldx SMxr+1 ; stampa XH4984 FF0CE3 20 48 19 jsr PrintWord4985 FF0CE6 A5 D2 lda SMyr ; stampa XL4986 FF0CE8 A6 D3 ldx SMyr+1 ; stampa YH4987 FF0CEA 20 48 19 jsr PrintWord4988 FF0CED A5 D4 lda SMsp ; stampa SPL4989 FF0CEF A6 D5 ldx SMsp+1 ; stampa SPH4990 FF0CF1 4C 48 19 jmp PrintWord49914992 ; comando ';' -> set registri (escluso SP)4993 FF0CF4 Cmd_SetReg:4994 FF0CF4 B0 46 bcs ?104995 FF0CF6 A5 BA lda SMTmpL4996 FF0CF8 85 C7 sta SMkr4997 FF0CFA 20 5A 01 jsr GetParm4998 FF0CFD B0 3D bcs ?104999 FF0CFF A5 BA lda SMTmpL ; pcl5000 FF0D01 A4 BB ldy SMTmpH ; pch5001 FF0D03 85 C8 sta SMpc5002 FF0D05 84 C9 sty SMpc+15003 FF0D07 20 5A 01 jsr GetParm5004 FF0D0A B0 30 bcs ?105005 FF0D0C A5 BA lda SMTmpL5006 FF0D0E 85 CB sta SMbr5007 FF0D10 20 5A 01 jsr GetParm5008 FF0D13 B0 27 bcs ?105009 FF0D15 A5 BA lda SMTmpL ; dpl5010 FF0D17 A4 BB ldy SMTmpH ; dph5011 FF0D19 85 CC sta SMdp5012 FF0D1B 84 CD sty SMdp+15013 FF0D1D 20 5A 01 jsr GetParm5014 FF0D20 B0 1A bcs ?105015 FF0D22 A5 BA lda SMTmpL5016 FF0D24 85 CA sta SMsr5017 FF0D26 A0 00 ldy #0 ; legge 3 param. successivi (A, X, Y)5018 FF0D28 20 5A 01 ?01: jsr GetParm ; non si imposta SP5019 FF0D2B B0 0F bcs ?105020 FF0D2D ACC165021 FF0D2D C2 20 rep #PMFLAG5022 .LONGA on5023 .MNLIST5024 FF0D2F A5 BA lda SMTmpL5025 FF0D31 99 CE 01 sta DP01ADDR+SMac,y5026 FF0D34 ACC085027 FF0D34 E2 20 sep #PMFLAG5028 .LONGA off5029 .MNLIST5030 FF0D36 C8 iny5031 FF0D37 C8 iny5032 FF0D38 C0 06 cpy #65033 FF0D3A 90 EC bcc ?015034 FF0D3C 60 ?10: rts5035 FF0D3D5036 ; cre [0|1] -> Expanded Memory $010000-$011FFF off/on5037 FF0D3D Cmd_cre:5038 FF0D3D F0 23 beq Cmd_crs ; no paramteri - showTue Jul 17 11:00:24 2018 Page 465039 FF0D3F A5 BA lda SMTmpL5040 FF0D41 29 01 and #$015041 FF0D43 AA tax5042 FF0D44 9F 0C FC 00 sta CREME,x5043 FF0D48 80 18 bra Cmd_crs50445045 ; crx [0|1] -> eXtended Memory $012000-$013FFF off/on5046 FF0D4A Cmd_crx:5047 FF0D4A F0 16 beq Cmd_crs ; no paramteri - show5048 FF0D4C A5 BA lda SMTmpL5049 FF0D4E 29 01 and #$015050 FF0D50 AA tax5051 FF0D51 9F 0A FC 00 sta CRXME,x5052 FF0D55 80 0B bra Cmd_crs5053 FF0D575054 ; crf [0|1] -> Flash Memory $F00000-$F0FFFF off/on5055 FF0D57 Cmd_crf:5056 FF0D57 F0 09 beq Cmd_crs ; no paramteri - show5057 FF0D59 A5 BA lda SMTmpL5058 FF0D5B 29 01 and #$015059 FF0D5D AA tax5060 FF0D5E 9F 08 FC 00 sta CRXFE,x50615062 ; crs -> show stato registro di controllo accesso memoria5063 FF0D62 Cmd_crs:5064 FF0D62 A2 00 ldx #05065 FF0D64 BF 8F 1C FF ?01: lda CRSTR,x ; copia stringa nel buffer5066 FF0D68 9F 00 99 01 sta INPUTBUF,x5067 FF0D6C F0 03 beq ?01a5068 FF0D6E E8 inx5069 FF0D6F D0 F3 bne ?015070 FF0D71 A2 17 ?01a: ldx #23 ; flag EM5071 FF0D73 A9 30 lda #'0'5072 FF0D75 AC 0C FC ldy CREME5073 FF0D78 F0 01 beq ?025074 FF0D7A 1A inc a5075 FF0D7B 9F 00 99 01 ?02: sta INPUTBUF,x5076 FF0D7F A2 2F ldx #47 ; flag XM5077 FF0D81 A9 30 lda #'0'5078 FF0D83 AC 0A FC ldy CRXME5079 FF0D86 F0 01 beq ?035080 FF0D88 1A inc a5081 FF0D89 9F 00 99 01 ?03: sta INPUTBUF,x5082 FF0D8D A2 47 ldx #71 ; flag FM5083 FF0D8F A9 30 lda #'0'5084 FF0D91 AC 08 FC ldy CRXFE5085 FF0D94 F0 01 beq ?045086 FF0D96 1A inc a5087 FF0D97 9F 00 99 01 ?04: sta INPUTBUF,x5088 FF0D9B ACC165089 FF0D9B C2 20 rep #PMFLAG5090 .LONGA on5091 .MNLIST5092 FF0D9D A9 00 99 lda #INPUTBUF5093 FF0DA0 A2 01 ldx #.SEG.INPUTBUF5094 FF0DA2 SCNSTROUT5095 FF0DA2 02 03 cop $03Tue Jul 17 11:00:24 2018 Page 475096 .MNLIST5097 FF0DA4 CPU085098 FF0DA4 E2 30 sep #(PMFLAG.OR.PXFLAG)5099 .LONGA off5100 .LONGI off5101 .MNLIST5102 FF0DA6 60 rts51035104 ; xmp [page] -> set page extended memory5105 FF0DA7 Cmd_SetXMPage:5106 FF0DA7 F0 0D beq ?10 ; no paramteri - show5107 FF0DA9 ACC165108 FF0DA9 C2 20 rep #PMFLAG5109 .LONGA on5110 .MNLIST5111 FF0DAB A5 BB lda SMTmpH5112 FF0DAD ACC085113 FF0DAD E2 20 sep #PMFLAG5114 .LONGA off5115 .MNLIST5116 FF0DAF D0 6F bne CmdErr5117 FF0DB1 A5 BA lda SMTmpL5118 FF0DB3 8D 28 FD sta PIA0+PIAPRA5119 FF0DB6 ?10: SCNPRINT5120 FF0DB6 02 01 cop $015121 .MNLIST5122 FF0DB8 0D 3A 3A 20 43 .DB $0D, ':: Current XM Page -> $', 075 72 72 65 6E74 20 58 4D 2050 61 67 65 202D 3E 20 24 005123 FF0DD15124 FF0DD1 AD 28 FD lda PIA0+PIAPRA5125 FF0DD4 20 71 19 jsr PrintHex5126 FF0DD7 60 rts51275128 ; m [start][stop] -> visualizza memoria standard5129 FF0DD8 Cmd_m:5130 FF0DD8 B0 08 bcs ?015131 FF0DDA 20 92 18 jsr TmpToAddr5132 FF0DDD 20 5A 01 jsr GetParm5133 FF0DE0 90 06 bcc ?025134 FF0DE2 A9 0B ?01: lda #11 ; numero righe x 16 bytes5135 FF0DE4 85 BA sta SMTmpL5136 FF0DE6 D0 1B bne ?035137 FF0DE8 20 9F 18 ?02: jsr SubTmpAddr5138 FF0DEB 90 33 bcc CmdErr ; end address > start address - errore5139 FF0DED 4A lsr a ; calcola numero righe (x 16 bytes)5140 FF0DEE 66 BB ror SMTmpH5141 FF0DF0 66 BA ror SMTmpL5142 FF0DF2 4A lsr a5143 FF0DF3 66 BB ror SMTmpH5144 FF0DF5 66 BA ror SMTmpL5145 FF0DF7 4A lsr a5146 FF0DF8 66 BB ror SMTmpH5147 FF0DFA 66 BA ror SMTmpL5148 FF0DFC 4A lsr aTue Jul 17 11:00:24 2018 Page 485149 FF0DFD 66 BB ror SMTmpH5150 FF0DFF 66 BA ror SMTmpL5151 FF0E01 85 BC sta SMTmpK5152 FF0E03 20 80 1A ?03: jsr CkStop5153 FF0E06 F0 17 beq ?045154 FF0E08 20 F2 0E jsr DispMem5155 FF0E0B C2 21 rep #(PMFLAG.OR.PCFLAG) ; 16 bit + clc5156 .LONGA on5157 FF0E0D A9 10 00 lda #165158 .LONGA off5159 FF0E10 20 F4 18 jsr IncPtrA5160 FF0E13 20 B1 18 jsr DecTmpPtr5161 FF0E16 B0 EB bcs ?035162 FF0E18 A5 C6 lda SMdumb5163 FF0E1A F0 03 beq ?045164 FF0E1C TXT_CR5165 FF0E1C TXTPRCHAR5166 .MLIST5167 FF0E1C 02 08 cop $085168 .MNLIST5169 FF0E1E 0D .DB $0D5170 .MNLIST5171 FF0E1F 60 ?04: rts5172 FF0E205173 FF0E20 CmdErr:5174 FF0E20 4C 34 01 jmp ErrCls251755176 ; rd addr -> read single memory addr.5177 FF0E23 Cmd_rd:5178 FF0E23 F0 FB beq CmdErr ; no params5179 FF0E25 20 92 18 jsr TmpToAddr5180 FF0E28 SCNPRINT5181 FF0E28 02 01 cop $015182 .MNLIST5183 FF0E2A 1B 4F 01 0D 72 .DB KB_ESC, 'O', SCN_CSRUP, $0D, 'rd ', 064 20 005184 FF0E32 20 37 19 jsr PrintAddr5185 FF0E35 20 51 19 jsr PrintBlank5186 FF0E38 A7 B6 lda [SMAddrL]5187 FF0E3A 4C 71 19 jmp PrintHex51885189 ; wr addr data -> write single memory addr.5190 FF0E3D Cmd_wr:5191 FF0E3D F0 E1 beq CmdErr ; no params5192 FF0E3F B0 DF bcs CmdErr5193 FF0E41 20 92 18 jsr TmpToAddr5194 FF0E44 20 5A 01 jsr GetParm5195 FF0E47 B0 D7 bcs CmdErr ; manca data5196 FF0E49 A5 BA lda SMTmpL5197 FF0E4B 87 B6 sta [SMAddrL]5198 FF0E4D SCNPRINT5199 FF0E4D 02 01 cop $015200 .MNLIST5201 FF0E4F 1B 4F 01 0D 77 .DB KB_ESC, 'O', SCN_CSRUP, $0D, 'wr ', 072 20 005202 FF0E57 20 37 19 jsr PrintAddr5203 FF0E5A 20 51 19 jsr PrintBlankTue Jul 17 11:00:24 2018 Page 495204 FF0E5D A5 BA lda SMTmpL5205 FF0E5F 4C 71 19 jmp PrintHex52065207 ; xs [sector]5208 FF0E62 Cmd_xs:5209 FF0E62 D0 04 bne ?025210 FF0E64 64 BA stz SMTmpL5211 FF0E66 64 BB stz SMTmpH5212 FF0E68 ?02: ACC165213 FF0E68 C2 20 rep #PMFLAG5214 .LONGA on5215 .MNLIST5216 FF0E6A A5 BA lda SMTmpL5217 FF0E6C 29 FF 0F and #$0FFF5218 FF0E6F 0A asl a5219 FF0E70 ACC085220 FF0E70 E2 20 sep #PMFLAG5221 .LONGA off5222 .MNLIST5223 FF0E72 EB xba5224 FF0E73 85 B8 sta SMAddrK5225 FF0E75 EB xba5226 FF0E76 85 B7 sta SMAddrH5227 FF0E78 64 B6 stz SMAddrL5228 ;stz SMTmpL5229 FF0E7A 64 BB stz SMTmpH5230 FF0E7C 80 10 bra __?015231 FF0E7E5232 ; mx [start][stop] -> visualizza memoria estesa (max. 1FFFFF)5233 FF0E7E Cmd_mx:5234 FF0E7E B0 0E bcs __?015235 FF0E80 20 92 18 jsr TmpToAddr5236 FF0E83 A5 B8 lda SMAddrK5237 FF0E85 C9 20 cmp #$205238 FF0E87 B0 97 bcs CmdErr ; max. 1FFFFF5239 FF0E89 20 5A 01 jsr GetParm5240 FF0E8C 90 06 bcc __?025241 FF0E8E A9 0B __?01: lda #11 ; numero di righe di default (righe x 16 bytes)5242 FF0E90 85 BA sta SMTmpL5243 FF0E92 D0 21 bne __?035244 FF0E94 A5 BC __?02: lda SMTmpK ; max. possibile 1FFFFF5245 FF0E96 C9 20 cmp #$205246 FF0E98 B0 86 bcs CmdErr ; errore5247 FF0E9A 20 9F 18 jsr SubTmpAddr5248 FF0E9D 90 81 bcc CmdErr ; end address > start address - errore5249 FF0E9F 4A lsr a ; calcola numero righe (x 16 bytes)5250 FF0EA0 66 BB ror SMTmpH5251 FF0EA2 66 BA ror SMTmpL5252 FF0EA4 4A lsr a5253 FF0EA5 66 BB ror SMTmpH5254 FF0EA7 66 BA ror SMTmpL5255 FF0EA9 4A lsr a5256 FF0EAA 66 BB ror SMTmpH5257 FF0EAC 66 BA ror SMTmpL5258 FF0EAE 4A lsr a5259 FF0EAF 66 BB ror SMTmpH5260 FF0EB1 66 BA ror SMTmpLTue Jul 17 11:00:24 2018 Page 505261 FF0EB3 85 BC sta SMTmpK5262 FF0EB5 A5 B8 __?03: lda SMAddrK5263 FF0EB7 C9 20 cmp #$20 ; MAX 1FFFFF5264 FF0EB9 B0 1B bcs ?045265 FF0EBB 20 80 1A jsr CkStop5266 FF0EBE F0 16 beq ?045267 FF0EC0 20 88 10 jsr DispXMem5268 FF0EC3 C2 21 rep #(PMFLAG.OR.PCFLAG) ; 16 bit + clc5269 .LONGA on5270 FF0EC5 A9 10 00 lda #165271 .LONGA off5272 FF0EC8 20 F4 18 jsr IncPtrA5273 FF0ECB A5 B8 lda SMAddrK5274 FF0ECD C9 20 cmp #$20 ; MAX 1FFFFF5275 FF0ECF B0 05 bcs ?045276 FF0ED1 20 B1 18 jsr DecTmpPtr5277 FF0ED4 B0 DF bcs __?035278 FF0ED6 60 ?04: rts5279 FF0ED752805281 ; >addr data, data, data,... -> set standard memory5282 FF0ED7 Cmd_SetMem:5283 FF0ED7 B0 13 bcs ?025284 FF0ED9 20 92 18 jsr TmpToAddr5285 FF0EDC A0 00 ldy #05286 FF0EDE 20 5A 01 ?01: jsr GetParm5287 FF0EE1 B0 09 bcs ?025288 FF0EE3 A5 BA lda SMTmpL5289 FF0EE5 97 B6 sta [SMAddrL],y5290 FF0EE7 C8 iny5291 FF0EE8 C0 10 cpy #165292 FF0EEA 90 F2 bcc ?015293 FF0EEC ?02: SCNPRINT5294 FF0EEC 02 01 cop $015295 .MNLIST5296 FF0EEE 1B 4F 01 00 .DB KB_ESC, 'O', SCN_CSRUP, 052975298 ; display 1 riga di memoria5299 FF0EF2 DispMem:5300 FF0EF2 TXT_CR5301 FF0EF2 TXTPRCHAR5302 .MLIST5303 FF0EF2 02 08 cop $085304 .MNLIST5305 FF0EF4 0D .DB $0D5306 .MNLIST5307 FF0EF5 TXTPRCHAR5308 FF0EF5 02 08 cop $085309 .MNLIST5310 FF0EF7 3E .DB '>'5311 FF0EF8 20 37 19 jsr PrintAddr5312 FF0EFB A0 00 ldy #05313 FF0EFD F0 03 beq ?025314 FF0EFF 20 51 19 ?01: jsr PrintBlank5315 FF0F02 B7 B6 ?02: lda [SMAddrL],y ; fetch byte5316 FF0F04 20 71 19 jsr PrintHex5317 FF0F07 C8 inyTue Jul 17 11:00:24 2018 Page 515318 FF0F08 C0 10 cpy #165319 FF0F0A 90 F3 bcc ?015320 FF0F0C A5 C6 lda SMdumb5321 FF0F0E D0 08 bne ?03a5322 FF0F10 SCNPRINT5323 FF0F10 02 01 cop $015324 .MNLIST5325 FF0F12 20 14 3A 00 .DB ' ', SCN_RVSON, ':', 05326 FF0F16 80 05 bra ?03b5327 FF0F18 ?03a: TXTPRINT5328 FF0F18 02 02 cop $025329 .MNLIST5330 FF0F1A 20 3A 00 .DB ' :', 05331 FF0F1D A0 00 ?03b: ldy #05332 FF0F1F B7 B6 ?03: lda [SMAddrL],y ; fetch byte5333 FF0F21 C9 80 cmp #$805334 FF0F23 B0 04 bcs ?045335 FF0F25 C9 20 cmp #' '5336 FF0F27 B0 02 bcs ?065337 FF0F29 A9 2E ?04: lda #'.'5338 FF0F2B ?06: TXTCHAROUT5339 FF0F2B 02 06 cop $065340 .MNLIST5341 FF0F2D C8 iny5342 FF0F2E C0 10 cpy #165343 FF0F30 90 ED bcc ?035344 FF0F32 60 rts53455346 ; # km <src bank> <dest bank>(src bank = $01..$FF, dest bank = $01..$F7)5347 ; move whole memory bank - src bank and dest bank must be not the same5348 FF0F33 Cmd_km:5349 FF0F33 D0 03 bne ?015350 FF0F35 4C 4F 10 ?00: jmp CmdErr25351 FF0F38 A5 BC ?01: lda SMTmpK5352 FF0F3A 05 BB ora SMTmpH5353 FF0F3C D0 F7 bne ?005354 FF0F3E A5 BA lda SMTmpL5355 FF0F40 F0 F3 beq ?005356 FF0F42 85 E2 sta SMTmp25357 FF0F44 20 5A 01 jsr GetParm5358 FF0F47 B0 EC bcs ?005359 FF0F49 A5 BC lda SMTmpK5360 FF0F4B 05 BB ora SMTmpH5361 FF0F4D D0 E6 bne ?005362 FF0F4F A5 BA lda SMTmpL5363 FF0F51 F0 E2 beq ?005364 FF0F53 C9 F8 cmp #$F85365 FF0F55 B0 DE bcs ?005366 FF0F57 C5 E2 cmp SMTmp25367 FF0F59 F0 DA beq ?005368 FF0F5B 64 B6 stz SMAddrL5369 FF0F5D 64 B7 stz SMAddrH5370 FF0F5F 85 B8 sta SMAddrK5371 FF0F61 8F 75 0F FF sta ?10+1 ; store dest bank for mvn istruction5372 FF0F65 A5 E2 lda SMTmp25373 FF0F67 8F 76 0F FF sta ?10+2 ; store source bank for mvn istruction5374 FF0F6B 8B phbTue Jul 17 11:00:24 2018 Page 525375 FF0F6C A2 00 ldx #05376 FF0F6E CPU165377 FF0F6E C2 30 rep #(PMFLAG.OR.PXFLAG)5378 .LONGA on5379 .LONGI on5380 .MNLIST5381 FF0F70 A9 FF FF lda #$FFFF5382 FF0F73 9B txy5383 FF0F74 54 00 00 ?10: mvn #0, #05384 FF0F77 CPU085385 FF0F77 E2 30 sep #(PMFLAG.OR.PXFLAG)5386 .LONGA off5387 .LONGI off5388 .MNLIST5389 FF0F79 AB plb5390 FF0F7A 60 rts53915392 ; # kF <bank> (bank = $01..$F7)5393 ; fill whole memory bank with incr/decr pattern5394 FF0F7B Cmd_kF:5395 FF0F7B D0 03 bne ?015396 FF0F7D 4C 4F 10 ?00: jmp CmdErr25397 FF0F80 A5 BC ?01: lda SMTmpK5398 FF0F82 05 BB ora SMTmpH5399 FF0F84 D0 F7 bne ?005400 FF0F86 A5 BA lda SMTmpL5401 FF0F88 F0 F3 beq ?005402 FF0F8A C9 F8 cmp #$F85403 FF0F8C B0 EF bcs ?005404 FF0F8E 85 B8 sta SMAddrK5405 FF0F90 64 B6 stz SMAddrL5406 FF0F92 64 B7 stz SMAddrH5407 FF0F94 A9 00 lda #05408 FF0F96 85 E2 sta SMTmp25409 FF0F98 A8 tay5410 FF0F99 INDEX165411 FF0F99 C2 10 rep #PXFLAG5412 .LONGI on5413 .MNLIST5414 FF0F9B 97 B6 ?02: sta [SMAddrL],y5415 FF0F9D 24 E2 bit SMTmp25416 FF0F9F 30 08 bmi ?045417 FF0FA1 1A inc a5418 FF0FA2 D0 0D bne ?065419 FF0FA4 3A dec a5420 FF0FA5 85 E2 sta SMTmp25421 FF0FA7 80 08 bra ?065422 FF0FA9 3A ?04: dec a5423 FF0FAA D0 05 bne ?065424 FF0FAC 64 E2 stz SMTmp25425 FF0FAE C8 iny5426 FF0FAF 97 B6 sta [SMAddrL],y5427 FF0FB1 C8 ?06: iny5428 FF0FB2 D0 E7 bne ?025429 FF0FB4 CPU085430 FF0FB4 E2 30 sep #(PMFLAG.OR.PXFLAG)5431 .LONGA offTue Jul 17 11:00:24 2018 Page 535432 .LONGI off5433 .MNLIST5434 FF0FB6 60 rts54355436 ; # kz <bank> (bank = $01..$F7)5437 ; clear whole memory bank5438 FF0FB7 Cmd_kz:5439 FF0FB7 D0 03 bne ?015440 FF0FB9 4C 4F 10 ?00: jmp CmdErr25441 FF0FBC A5 BC ?01: lda SMTmpK5442 FF0FBE 05 BB ora SMTmpH5443 FF0FC0 D0 F7 bne ?005444 FF0FC2 A5 BA lda SMTmpL5445 FF0FC4 F0 F3 beq ?005446 FF0FC6 C9 F8 cmp #$F85447 FF0FC8 B0 EF bcs ?005448 FF0FCA 85 BC sta SMTmpK5449 FF0FCC 64 BA stz SMTmpL5450 FF0FCE 64 BB stz SMTmpH5451 FF0FD0 A0 00 ldy #05452 FF0FD2 CPU165453 FF0FD2 C2 30 rep #(PMFLAG.OR.PXFLAG)5454 .LONGA on5455 .LONGI on5456 .MNLIST5457 FF0FD4 98 tya5458 FF0FD5 97 BA ?02: sta [SMTmpL],y5459 FF0FD7 C8 iny5460 FF0FD8 C8 iny5461 FF0FD9 D0 FA bne ?025462 FF0FDB CPU085463 FF0FDB E2 30 sep #(PMFLAG.OR.PXFLAG)5464 .LONGA off5465 .LONGI off5466 .MNLIST5467 FF0FDD 60 rts54685469 ; # kf <bank> <byte=0> (bank = $01..$F7)5470 ; fill whole memory bank5471 FF0FDE Cmd_kf:5472 FF0FDE F0 6F beq CmdErr25473 FF0FE0 A5 BC lda SMTmpK5474 FF0FE2 05 BB ora SMTmpH5475 FF0FE4 D0 69 bne CmdErr25476 FF0FE6 A5 BA lda SMTmpL5477 FF0FE8 F0 65 beq CmdErr25478 FF0FEA C9 F8 cmp #$F85479 FF0FEC B0 61 bcs CmdErr25480 FF0FEE 85 B8 sta SMAddrK5481 FF0FF0 64 B6 stz SMAddrL5482 FF0FF2 64 B7 stz SMAddrH5483 FF0FF4 64 BA stz SMTmpL5484 FF0FF6 20 5A 01 jsr GetParm5485 FF0FF9 B0 06 bcs ?015486 FF0FFB A5 BC lda SMTmpK5487 FF0FFD 05 BB ora SMTmpH5488 FF0FFF D0 4E bne CmdErr2Tue Jul 17 11:00:24 2018 Page 545489 FF1001 A5 BA ?01: lda SMTmpL5490 FF1003 EB xba5491 FF1004 A5 BA lda SMTmpL5492 FF1006 A0 00 ldy #05493 FF1008 CPU165494 FF1008 C2 30 rep #(PMFLAG.OR.PXFLAG)5495 .LONGA on5496 .LONGI on5497 .MNLIST5498 FF100A 97 B6 ?02: sta [SMAddrL],y5499 FF100C C8 iny5500 FF100D C8 iny5501 FF100E D0 FA bne ?025502 FF1010 CPU085503 FF1010 E2 30 sep #(PMFLAG.OR.PXFLAG)5504 .LONGA off5505 .LONGI off5506 .MNLIST5507 FF1012 60 rts5508 FF10135509 FF1013 Cmd_z:5510 FF1013 20 91 19 jsr GetStartStop ; indirizzi Start/Stop5511 FF1016 B0 37 bcs CmdErr25512 FF1018 64 BA stz SMTmpL ; fill byte = 05513 FF101A 64 E2 stz SMTmp2 ; fill no inc.5514 FF101C 80 19 bra _Fill5515 FF101E5516 FF101E Cmd_f:5517 FF101E 20 91 19 jsr GetStartStop ; indirizzi Start/Stop5518 FF1021 B0 2C bcs CmdErr25519 FF1023 20 5A 01 jsr GetParm ; Fill byte5520 FF1026 B0 27 bcs CmdErr25521 FF1028 64 E2 stz SMTmp2 ; fill no inc.5522 FF102A 80 0B bra _Fill5523 FF102C5524 FF102C Cmd_F:5525 FF102C 20 91 19 jsr GetStartStop ; indirizzi Start/Stop5526 FF102F B0 1E bcs CmdErr25527 FF1031 64 BA stz SMTmpL ; fill byte = 05528 FF1033 A9 80 lda #$805529 FF1035 85 E2 sta SMTmp2 ; flag fill-inc5530 FF10375531 ; SMSizeL/H/K -> #bytes5532 ; SMAddrL/H/K -> indirizzo start5533 ; SMTmpL -> fill byte5534 ; SMXddrL/H/K -> indirizzo finale5535 ; SMTmp2 -> flag fill+inc.55365537 FF1037 _Fill:5538 FF1037 20 80 1A ?01: jsr CkStop5539 FF103A F0 12 beq ?105540 FF103C A5 BA lda SMTmpL ; fill byte5541 FF103E 87 B6 sta [SMAddrL]5542 FF1040 24 E2 bit SMTmp25543 FF1042 10 02 bpl ?045544 FF1044 E6 BA inc SMTmpL5545 FF1046 20 EF 18 ?04: jsr IncPtrTue Jul 17 11:00:24 2018 Page 555546 FF1049 20 DC 18 jsr DecSize5547 FF104C B0 E9 bcs ?015548 FF104E 60 ?10: rts55495550 FF104F CmdErr2:5551 FF104F 4C 34 01 jmp ErrCls255525553 ; x>addr data, data, data,... -> set extended memory5554 FF1052 Cmd_SetXMem:5555 FF1052 AE 0A FC ldx CRXME ; salva bit CR5556 FF1055 DA phx5557 FF1056 8D 0B FC sta CRXMEON ; abilita memoria estesa5558 FF1059 B0 1E bcs ?025559 FF105B 20 92 18 jsr TmpToAddr5560 FF105E A5 C3 lda SMXAddrK5561 FF1060 C9 20 cmp #$205562 FF1062 B0 EB bcs CmdErr25563 FF1064 A0 00 ldy #05564 FF1066 20 5A 01 ?01: jsr GetParm5565 FF1069 B0 0E bcs ?025566 FF106B 20 0B 19 jsr XSetPtrY5567 FF106E B0 09 bcs ?02 ; fine memoria estesa5568 FF1070 A5 BA lda SMTmpL5569 FF1072 87 C1 sta [SMXAddrL]5570 FF1074 C8 iny5571 FF1075 C0 10 cpy #165572 FF1077 90 ED bcc ?015573 FF1079 A5 C3 ?02: lda SMXAddrK5574 FF107B C9 20 cmp #$205575 FF107D 90 01 bcc ?035576 FF107F 60 rts5577 FF1080 ?03: SCNPRINT5578 FF1080 02 01 cop $015579 .MNLIST5580 FF1082 1B 4F 01 00 .DB KB_ESC, 'O', SCN_CSRUP, 05581 FF10865582 FF1086 80 07 bra _xdm55835584 ; display 1 riga di memoria estesa5585 FF1088 DispXMem:5586 FF1088 AE 0A FC ldx CRXME ; salva bit CR5587 FF108B DA phx5588 FF108C 8D 0B FC sta CRXMEON ; abilita memoria estesa5589 FF108F _xdm:5590 FF108F A9 01 lda #$015591 FF1091 85 C3 sta SMXAddrK5592 FF1093 TXT_CR5593 FF1093 TXTPRCHAR5594 .MLIST5595 FF1093 02 08 cop $085596 .MNLIST5597 FF1095 0D .DB $0D5598 .MNLIST5599 FF1096 TXTPRCHAR ; prompt memoria estesa5600 FF1096 02 08 cop $085601 .MNLIST5602 FF1098 78 .DB 'x'Tue Jul 17 11:00:24 2018 Page 565603 FF1099 TXTPRCHAR5604 FF1099 02 08 cop $085605 .MNLIST5606 FF109B 3E .DB '>'5607 FF109C 20 37 19 jsr PrintAddr5608 FF109F A0 00 ldy #05609 FF10A1 F0 03 beq ?025610 FF10A3 20 51 19 ?01: jsr PrintBlank5611 FF10A6 20 0B 19 ?02: jsr XSetPtrY5612 FF10A9 90 04 bcc ?02a5613 FF10AB A9 FF lda #$FF ; oltre limite memoria5614 FF10AD 80 02 bra ?02b5615 FF10AF A7 C1 ?02a: lda [SMXAddrL]5616 FF10B1 20 71 19 ?02b: jsr PrintHex5617 FF10B4 C8 iny5618 FF10B5 C0 10 cpy #165619 FF10B7 90 EA bcc ?015620 FF10B9 A5 C6 lda SMdumb5621 FF10BB D0 08 bne ?03a5622 FF10BD SCNPRINT5623 FF10BD 02 01 cop $015624 .MNLIST5625 FF10BF 20 14 3A 00 .DB ' ', SCN_RVSON, ':', 05626 FF10C3 80 05 bra ?03b5627 FF10C5 ?03a: TXTPRINT5628 FF10C5 02 02 cop $025629 .MNLIST5630 FF10C7 20 3A 00 .DB ' :', 05631 FF10CA A0 00 ?03b: ldy #05632 FF10CC 20 0B 19 ?03: jsr XSetPtrY5633 FF10CF 90 04 bcc ?03c5634 FF10D1 A9 58 lda #'X' ; indica fine memoria5635 FF10D3 80 02 bra ?03d5636 FF10D5 A7 C1 ?03c: lda [SMXAddrL]5637 FF10D7 C9 80 ?03d: cmp #$805638 FF10D9 B0 04 bcs ?045639 FF10DB C9 20 cmp #' '5640 FF10DD B0 02 bcs ?065641 FF10DF A9 2E ?04: lda #'.'5642 FF10E1 ?06: TXTCHAROUT5643 FF10E1 02 06 cop $065644 .MNLIST5645 FF10E3 C8 iny5646 FF10E4 C0 10 cpy #165647 FF10E6 90 E4 bcc ?035648 FF10E8 TXTPRINT5649 FF10E8 02 02 cop $025650 .MNLIST5651 FF10EA 18 20 00 .DB SCN_RVSOFF, ' ', 05652 FF10ED AD 28 FD lda PIA0+PIAPRA5653 FF10F0 20 71 19 jsr PrintHex5654 FF10F3 FA plx5655 FF10F4 9F 0A FC 00 sta CRXME,x5656 FF10F8 60 rts56575658 ; te -> show RTC internal extended ram (128 bytes)5659 FF10F9 Cmd_te:Tue Jul 17 11:00:24 2018 Page 575660 FF10F9 64 DE stz rtcadr5661 FF10FB 20 51 11 ?02: jsr rtcxmem5662 FF10FE A5 DE lda rtcadr5663 FF1100 18 clc5664 FF1101 69 10 adc #165665 FF1103 85 DE sta rtcadr5666 FF1105 10 F4 bpl ?025667 FF1107 60 rts56685669 ; e>addr data, data, data,... -> set RTC extended memory5670 FF1108 Cmd_stxm:5671 FF1108 A2 0A ldx #RTCCTRLA ; setta banco 1 RTC5672 FF110A 8E 4C FD stx RTCALE5673 FF110D A9 10 lda #$10 ; setta banco 15674 FF110F 0C 4D FD tsb RTCDATA5675 FF1112 B0 2E bcs ?065676 FF1114 A5 BA lda SMTmpL5677 FF1116 C9 80 cmp #$805678 FF1118 90 03 bcc ?025679 FF111A 4C 34 01 jmp ErrCls25680 FF111D 85 DE ?02: sta rtcadr5681 FF111F A0 00 ldy #05682 FF1121 20 5A 01 ?04: jsr GetParm5683 FF1124 B0 1C bcs ?065684 FF1126 98 tya5685 FF1127 65 DE adc rtcadr5686 FF1129 30 12 bmi ?055687 FF112B A2 50 ldx #RTCEXTRAMADDR5688 FF112D 8E 4C FD stx RTCALE5689 FF1130 8D 4D FD sta RTCDATA5690 FF1133 A2 53 ldx #RTCEXTRAMDATA5691 FF1135 8E 4C FD stx RTCALE5692 FF1138 A5 BA lda SMTmpL5693 FF113A 8D 4D FD sta RTCDATA ; store byte5694 FF113D C8 ?05: iny5695 FF113E C0 10 cpy #165696 FF1140 90 DF bcc ?045697 FF1142 A5 DE ?06: lda rtcadr5698 FF1144 C9 80 cmp #$805699 FF1146 90 01 bcc ?085700 FF1148 60 rts5701 FF1149 ?08: SCNPRINT5702 FF1149 02 01 cop $015703 .MNLIST5704 FF114B 1B 4F 01 00 .DB KB_ESC, 'O', SCN_CSRUP, 05705 FF114F 80 0A bra rtcxmem257065707 ; show one row of RTC extended ram5708 FF1151 rtcxmem:5709 FF1151 A2 0A ldx #RTCCTRLA ; setta banco 1 RTC5710 FF1153 8E 4C FD stx RTCALE5711 FF1156 A9 10 lda #$10 ; setta banco 15712 FF1158 0C 4D FD tsb RTCDATA5713 FF115B rtcxmem2:5714 FF115B TXTPRINT5715 FF115B 02 02 cop $025716 .MNLISTTue Jul 17 11:00:24 2018 Page 585717 FF115D 0D 65 3E 00 .DB 13, 'e>', 05718 FF1161 A5 DE lda rtcadr5719 FF1163 20 4E 19 jsr PrintByte5720 FF1166 A0 00 ldy #05721 FF1168 F0 03 beq ?025722 FF116A 20 51 19 ?01: jsr PrintBlank5723 FF116D A2 50 ?02: ldx #RTCEXTRAMADDR5724 FF116F 8E 4C FD stx RTCALE5725 FF1172 98 tya5726 FF1173 18 clc5727 FF1174 65 DE adc rtcadr5728 FF1176 10 08 bpl ?02b5729 FF1178 20 51 19 jsr PrintBlank5730 FF117B 20 51 19 jsr PrintBlank5731 FF117E 80 0E bra ?02c5732 FF1180 8D 4D FD ?02b: sta RTCDATA5733 FF1183 A2 53 ldx #RTCEXTRAMDATA5734 FF1185 8E 4C FD stx RTCALE5735 FF1188 AD 4D FD lda RTCDATA ; fetch byte5736 FF118B 20 71 19 jsr PrintHex5737 FF118E C8 ?02c: iny5738 FF118F C0 10 cpy #165739 FF1191 90 D7 bcc ?015740 FF1193 A5 C6 lda SMdumb5741 FF1195 D0 08 bne ?03a5742 FF1197 SCNPRINT5743 FF1197 02 01 cop $015744 .MNLIST5745 FF1199 20 14 3A 00 .DB ' ', SCN_RVSON, ':', 05746 FF119D 80 05 bra ?03b5747 FF119F ?03a: TXTPRINT5748 FF119F 02 02 cop $025749 .MNLIST5750 FF11A1 20 3A 00 .DB ' :', 05751 FF11A4 A0 00 ?03b: ldy #05752 FF11A6 A2 50 ?03: ldx #RTCEXTRAMADDR5753 FF11A8 8E 4C FD stx RTCALE5754 FF11AB 98 tya5755 FF11AC 18 clc5756 FF11AD 65 DE adc rtcadr5757 FF11AF 30 13 bmi ?045758 FF11B1 8D 4D FD sta RTCDATA5759 FF11B4 A2 53 ldx #RTCEXTRAMDATA5760 FF11B6 8E 4C FD stx RTCALE5761 FF11B9 AD 4D FD lda RTCDATA ; fetch byte5762 FF11BC C9 80 cmp #$805763 FF11BE B0 04 bcs ?045764 FF11C0 C9 20 cmp #' '5765 FF11C2 B0 02 bcs ?065766 FF11C4 A9 2E ?04: lda #'.'5767 FF11C6 ?06: TXTCHAROUT5768 FF11C6 02 06 cop $065769 .MNLIST5770 FF11C8 C8 iny5771 FF11C9 C0 10 cpy #165772 FF11CB 90 D9 bcc ?035773 FF11CD 60 rtsTue Jul 17 11:00:24 2018 Page 5957745775 ; ts -> show RTC internal bank 1 ram 40..7F5776 FF11CE Cmd_ts:5777 FF11CE A9 01 lda #15778 FF11D0 85 DF sta rtcbnk5779 FF11D2 80 02 bra _rtcm57805781 ; tu -> show RTC internal bank 0 ram 40..7F5782 FF11D4 Cmd_tu:5783 FF11D4 64 DF stz rtcbnk5784 FF11D6 _rtcm:5785 FF11D6 A9 40 lda #$405786 FF11D8 85 DE sta rtcadr5787 FF11DA 20 30 12 ?02: jsr rtcmem5788 FF11DD A5 DE lda rtcadr5789 FF11DF 18 clc5790 FF11E0 69 10 adc #165791 FF11E2 85 DE sta rtcadr5792 FF11E4 10 F4 bpl ?025793 FF11E6 60 rts57945795 ; u>addr data, data, data,... -> set RTC user ram 40..7F bank 05796 FF11E7 Cmd_stum:5797 FF11E7 64 DF stz rtcbnk5798 FF11E9 A2 0A ldx #RTCCTRLA5799 FF11EB 8E 4C FD stx RTCALE5800 FF11EE A9 10 lda #$105801 FF11F0 1C 4D FD trb RTCDATA ; set bank 05802 FF11F3 B0 28 bcs ?065803 FF11F5 A5 BA lda SMTmpL5804 FF11F7 C9 80 cmp #$805805 FF11F9 90 03 bcc ?025806 FF11FB 4C 34 01 ?01: jmp ErrCls25807 FF11FE C9 40 ?02: cmp #$405808 FF1200 90 F9 bcc ?015809 FF1202 85 DE sta rtcadr5810 FF1204 A0 00 ldy #05811 FF1206 20 5A 01 ?04: jsr GetParm5812 FF1209 B0 12 bcs ?065813 FF120B 98 tya5814 FF120C 65 DE adc rtcadr5815 FF120E 30 08 bmi ?055816 FF1210 8D 4C FD sta RTCALE5817 FF1213 A5 BA lda SMTmpL5818 FF1215 8D 4D FD sta RTCDATA ; store byte5819 FF1218 C8 ?05: iny5820 FF1219 C0 10 cpy #165821 FF121B 90 E9 bcc ?045822 FF121D A5 DE ?06: lda rtcadr5823 FF121F C9 80 cmp #$805824 FF1221 B0 04 bcs ?075825 FF1223 C9 40 cmp #$405826 FF1225 B0 01 bcs ?085827 FF1227 60 ?07: rts5828 FF1228 ?08: SCNPRINT5829 FF1228 02 01 cop $015830 .MNLISTTue Jul 17 11:00:24 2018 Page 605831 FF122A 1B 4F 01 00 .DB KB_ESC, 'O', SCN_CSRUP, 05832 FF122E 80 13 bra rtcmem258335834 ; show one row of RTC ram 40..7F5835 FF1230 rtcmem:5836 FF1230 A2 0A ldx #RTCCTRLA5837 FF1232 8E 4C FD stx RTCALE5838 FF1235 A9 10 lda #$105839 FF1237 A4 DF ldy rtcbnk5840 FF1239 F0 05 beq ?025841 FF123B 0C 4D FD tsb RTCDATA ; set bank 15842 FF123E 80 03 bra rtcmem25843 FF1240 1C 4D FD ?02: trb RTCDATA ; set bank 058445845 FF1243 rtcmem2:5846 FF1243 A4 DF ldy rtcbnk5847 FF1245 F0 08 beq ?005848 FF1247 TXTPRINT5849 FF1247 02 02 cop $025850 .MNLIST5851 FF1249 0D 3A 3E 00 .DB 13, ':>', 05852 FF124D 80 06 bra ?00a5853 FF124F ?00: TXTPRINT5854 FF124F 02 02 cop $025855 .MNLIST5856 FF1251 0D 75 3E 00 .DB 13, 'u>', 05857 FF1255 A5 DE ?00a: lda rtcadr5858 FF1257 20 4E 19 jsr PrintByte5859 FF125A A0 00 ldy #05860 FF125C F0 03 beq ?025861 FF125E 20 51 19 ?01: jsr PrintBlank5862 FF1261 98 ?02: tya5863 FF1262 18 clc5864 FF1263 65 DE adc rtcadr5865 FF1265 10 08 bpl ?02b5866 FF1267 20 51 19 jsr PrintBlank5867 FF126A 20 51 19 jsr PrintBlank5868 FF126D 80 09 bra ?02c5869 FF126F 8D 4C FD ?02b: sta RTCALE5870 FF1272 AD 4D FD lda RTCDATA ; fetch byte5871 FF1275 20 71 19 jsr PrintHex5872 FF1278 C8 ?02c: iny5873 FF1279 C0 10 cpy #165874 FF127B 90 E1 bcc ?015875 FF127D A5 C6 lda SMdumb5876 FF127F D0 08 bne ?03a5877 FF1281 SCNPRINT5878 FF1281 02 01 cop $015879 .MNLIST5880 FF1283 20 14 3A 00 .DB ' ', SCN_RVSON, ':', 05881 FF1287 80 05 bra ?03b5882 FF1289 ?03a: TXTPRINT5883 FF1289 02 02 cop $025884 .MNLIST5885 FF128B 20 3A 00 .DB ' :', 05886 FF128E A0 00 ?03b: ldy #05887 FF1290 98 ?03: tyaTue Jul 17 11:00:24 2018 Page 615888 FF1291 18 clc5889 FF1292 65 DE adc rtcadr5890 FF1294 30 0E bmi ?045891 FF1296 8D 4C FD sta RTCALE5892 FF1299 AD 4D FD lda RTCDATA ; fetch byte5893 FF129C C9 80 cmp #$805894 FF129E B0 04 bcs ?045895 FF12A0 C9 20 cmp #' '5896 FF12A2 B0 02 bcs ?065897 FF12A4 A9 2E ?04: lda #'.'5898 FF12A6 ?06: TXTCHAROUT5899 FF12A6 02 06 cop $065900 .MNLIST5901 FF12A8 C8 iny5902 FF12A9 C0 10 cpy #165903 FF12AB 90 E3 bcc ?035904 FF12AD 60 rts59055906 ; tc -> show RTC internal bank 0&1 ram 0E..3F5907 FF12AE Cmd_tc:5908 FF12AE A9 02 lda #25909 FF12B0 85 DF sta rtcbnk5910 FF12B2 A9 0E lda #$0E5911 FF12B4 85 DE sta rtcadr5912 FF12B6 20 11 13 jsr rtccm5913 FF12B9 E6 DE inc rtcadr5914 FF12BB E6 DE inc rtcadr5915 FF12BD A9 10 lda #165916 FF12BF 85 DF sta rtcbnk5917 FF12C1 20 11 13 ?02: jsr rtccm5918 FF12C4 A5 DE lda rtcadr5919 FF12C6 18 clc5920 FF12C7 69 10 adc #165921 FF12C9 85 DE sta rtcadr5922 FF12CB C9 40 cmp #$405923 FF12CD 90 F2 bcc ?025924 FF12CF 60 rts59255926 ; c>addr data, data, data,... -> set RTC user ram 0E..3F bank 0&15927 FF12D0 Cmd_stcm:5928 FF12D0 A9 10 lda #165929 FF12D2 85 DF sta rtcbnk5930 FF12D4 B0 2A bcs ?065931 FF12D6 A5 BA lda SMTmpL5932 FF12D8 C9 40 cmp #$405933 FF12DA 90 03 bcc ?025934 FF12DC 4C 34 01 ?01: jmp ErrCls25935 FF12DF C9 0E ?02: cmp #$0E5936 FF12E1 90 F9 bcc ?015937 FF12E3 85 DE sta rtcadr5938 FF12E5 A0 00 ldy #05939 FF12E7 20 5A 01 ?04: jsr GetParm5940 FF12EA B0 14 bcs ?065941 FF12EC 98 tya5942 FF12ED 65 DE adc rtcadr5943 FF12EF C9 40 cmp #$405944 FF12F1 B0 08 bcs ?05Tue Jul 17 11:00:24 2018 Page 625945 FF12F3 8D 4C FD sta RTCALE5946 FF12F6 A5 BA lda SMTmpL5947 FF12F8 8D 4D FD sta RTCDATA ; store byte5948 FF12FB C8 ?05: iny5949 FF12FC C0 10 cpy #165950 FF12FE 90 E7 bcc ?045951 FF1300 A5 DE ?06: lda rtcadr5952 FF1302 C9 40 cmp #$405953 FF1304 B0 04 bcs ?075954 FF1306 C9 0E cmp #$0E5955 FF1308 B0 01 bcs ?085956 FF130A 60 ?07: rts5957 FF130B ?08: SCNPRINT5958 FF130B 02 01 cop $015959 .MNLIST5960 FF130D 1B 4F 01 00 .DB KB_ESC, 'O', SCN_CSRUP, 059615962 FF1311 rtccm:5963 FF1311 TXTPRINT5964 FF1311 02 02 cop $025965 .MNLIST5966 FF1313 0D 63 3E 00 .DB 13, 'c>', 05967 FF1317 A5 DE lda rtcadr5968 FF1319 20 4E 19 jsr PrintByte5969 FF131C A0 00 ldy #05970 FF131E F0 03 beq ?025971 FF1320 20 51 19 ?01: jsr PrintBlank5972 FF1323 98 ?02: tya5973 FF1324 18 clc5974 FF1325 65 DE adc rtcadr5975 FF1327 C9 40 cmp #$405976 FF1329 90 08 bcc ?02b5977 FF132B 20 51 19 jsr PrintBlank5978 FF132E 20 51 19 jsr PrintBlank5979 FF1331 80 09 bra ?02c5980 FF1333 8D 4C FD ?02b: sta RTCALE5981 FF1336 AD 4D FD lda RTCDATA ; fetch byte5982 FF1339 20 71 19 jsr PrintHex5983 FF133C C8 ?02c: iny5984 FF133D C4 DF cpy rtcbnk5985 FF133F 90 DF bcc ?015986 FF1341 A5 C6 lda SMdumb5987 FF1343 D0 08 bne ?03a5988 FF1345 SCNPRINT5989 FF1345 02 01 cop $015990 .MNLIST5991 FF1347 20 14 3A 00 .DB ' ', SCN_RVSON, ':', 05992 FF134B 80 05 bra ?03b5993 FF134D ?03a: TXTPRINT5994 FF134D 02 02 cop $025995 .MNLIST5996 FF134F 20 3A 00 .DB ' :', 05997 FF1352 A0 00 ?03b: ldy #05998 FF1354 98 ?03: tya5999 FF1355 18 clc6000 FF1356 65 DE adc rtcadr6001 FF1358 C9 40 cmp #$40Tue Jul 17 11:00:24 2018 Page 636002 FF135A B0 0E bcs ?046003 FF135C 8D 4C FD sta RTCALE6004 FF135F AD 4D FD lda RTCDATA ; fetch byte6005 FF1362 C9 80 cmp #$806006 FF1364 B0 04 bcs ?046007 FF1366 C9 20 cmp #' '6008 FF1368 B0 02 bcs ?066009 FF136A A9 2E ?04: lda #'.'6010 FF136C ?06: TXTCHAROUT6011 FF136C 02 06 cop $066012 .MNLIST6013 FF136E C8 iny6014 FF136F C4 DF cpy rtcbnk6015 FF1371 90 E1 bcc ?036016 FF1373 60 rts60176018 ; get rtc time6019 FF1374 Cmd_gt:6020 FF1374 RTCGETT6021 FF1374 02 19 cop $196022 FF1376 02 .DB $026023 .MNLIST6024 FF1377 EB xba6025 FF1378 48 pha ; day of week (1=sunday...)6026 FF1379 EB xba6027 FF137A DA phx ; seconds6028 FF137B 5A phy ; minutes6029 FF137C 48 pha ; hours6030 FF137D 4B phk6031 FF137E F4 87 13 pea #!?106032 FF1381 A9 08 lda #86033 FF1383 48 pha6034 FF1384 BPRINTF6035 FF1384 02 11 cop $116036 .MNLIST6037 FF1386 60 rts6038 FF13876039 FF1387 0D 3A 20 63 75 ?10: .DB 13,': current time: %02bu:%02bu:%02bu (day: %bu)', 072 72 65 6E 7420 74 69 6D 653A 20 25 30 3262 75 3A 25 3032 62 75 3A 2530 32 62 75 2028 64 61 79 3A20 25 62 75 290060406041 ; get rtc date6042 FF13B5 Cmd_gd:6043 FF13B5 RTCGETD6044 FF13B5 02 19 cop $196045 FF13B7 03 .DB $036046 .MNLIST6047 FF13B8 DA phx ; day6048 FF13B9 5A phy ; month6049 FF13BA 48 pha ; yearTue Jul 17 11:00:24 2018 Page 646050 FF13BB EB xba6051 FF13BC 48 pha ; century6052 FF13BD 4B phk6053 FF13BE F4 C7 13 pea #!?106054 FF13C1 A9 08 lda #86055 FF13C3 48 pha6056 FF13C4 BPRINTF6057 FF13C4 02 11 cop $116058 .MNLIST6059 FF13C6 60 rts6060 FF13C76061 FF13C7 0D 3A 20 63 75 ?10: .DB 13,': current date: %02bu%02bu/%02bu/%02bu', 072 72 65 6E 7420 64 61 74 653A 20 25 30 3262 75 25 30 3262 75 2F 25 3032 62 75 2F 2530 32 62 75 0060626063 ; set rtc time6064 ; st HHMMSS6065 FF13EF Cmd_st:6066 FF13EF A6 E0 ldx cmdlin6067 FF13F1 20 75 14 jsr asc2bin6068 FF13F4 B0 0E bcs ?056069 FF13F6 85 E5 sta brtchour6070 FF13F8 20 75 14 jsr asc2bin6071 FF13FB B0 07 bcs ?056072 FF13FD 85 E4 sta brtcmin6073 FF13FF 20 75 14 jsr asc2bin6074 FF1402 90 03 bcc ?106075 FF1404 4C 34 01 ?05: jmp ErrCls26076 FF1407 85 E3 ?10: sta brtcsec6077 FF1409 BF 00 99 01 lda >INPUTBUF,x6078 FF140D F0 04 beq ?156079 FF140F C9 20 cmp #' '6080 FF1411 D0 F1 bne ?056081 FF1413 A6 E3 ?15: ldx brtcsec6082 FF1415 A4 E4 ldy brtcmin6083 FF1417 A5 E5 lda brtchour6084 FF1419 RTCSETT6085 FF1419 02 19 cop $196086 FF141B 00 .DB $006087 .MNLIST6088 FF141C 90 0E bcc ?206089 FF141E SCNPRINT6090 FF141E 02 01 cop $016091 .MNLIST6092 FF1420 0D 3A 3A 62 61 .DB 13, '::bad time', 064 20 74 69 6D65 006093 FF142C 60 ?20: rts60946095 ; set rtc date6096 ; st CCYYMMDD6097 FF142D Cmd_sd:Tue Jul 17 11:00:24 2018 Page 656098 FF142D A6 E0 ldx cmdlin6099 FF142F 20 75 14 jsr asc2bin6100 FF1432 B0 15 bcs ?056101 FF1434 85 E9 sta brtcct6102 FF1436 20 75 14 jsr asc2bin6103 FF1439 B0 0E bcs ?056104 FF143B 85 E8 sta brtcyear6105 FF143D 20 75 14 jsr asc2bin6106 FF1440 B0 07 bcs ?056107 FF1442 85 E7 sta brtcmonth6108 FF1444 20 75 14 jsr asc2bin6109 FF1447 90 03 bcc ?106110 FF1449 4C 34 01 ?05: jmp ErrCls26111 FF144C 85 E6 ?10: sta brtcday6112 FF144E BF 00 99 01 lda >INPUTBUF,x6113 FF1452 F0 04 beq ?156114 FF1454 C9 20 cmp #' '6115 FF1456 D0 F1 bne ?056116 FF1458 A6 E6 ?15: ldx brtcday6117 FF145A A4 E7 ldy brtcmonth6118 FF145C A5 E9 lda brtcct6119 FF145E EB xba6120 FF145F A5 E8 lda brtcyear6121 FF1461 RTCSETD6122 FF1461 02 19 cop $196123 FF1463 01 .DB $016124 .MNLIST6125 FF1464 90 0E bcc ?206126 FF1466 SCNPRINT6127 FF1466 02 01 cop $016128 .MNLIST6129 FF1468 0D 3A 3A 62 61 .DB 13, '::bad date', 064 20 64 61 7465 006130 FF1474 60 ?20: rts61316132 FF1475 asc2bin:6133 FF1475 BF 00 99 01 ?00: lda >INPUTBUF,x6134 FF1479 08 php6135 FF147A E8 inx6136 FF147B 28 plp6137 FF147C F0 37 beq ?086138 FF147E C9 20 cmp #' '6139 FF1480 F0 F3 beq ?006140 FF1482 A0 02 ldy #2 ; convert 2 digits6141 FF1484 64 E2 stz btmpx ; partial value6142 FF1486 C9 30 ?02: cmp #'0' ; first char must be a digit6143 FF1488 90 2B bcc ?086144 FF148A C9 3A cmp #'9'+16145 FF148C B0 28 bcs ?106146 FF148E E9 2F sbc #'0'-1 ; convert digit (here always CF = 0)6147 FF1490 EB xba ; B = digit6148 FF1491 18 clc6149 FF1492 A5 E2 lda btmpx ; partial null?6150 FF1494 F0 0B beq ?04 ; yes, skip mult * 106151 FF1496 C9 1A cmp #26 ; this value make overflow6152 FF1498 B0 1B bcs ?08Tue Jul 17 11:00:24 2018 Page 666153 FF149A 0A asl a ; safety multiply * 106154 FF149B 0A asl a6155 FF149C 65 E2 adc btmpx6156 FF149E 0A asl a ; always carry = 0 here6157 FF149F 85 E2 sta btmpx6158 FF14A1 EB ?04: xba6159 FF14A2 65 E2 adc btmpx6160 FF14A4 B0 0F bcs ?08 ; overflow6161 FF14A6 85 E2 sta btmpx6162 FF14A8 BF 00 99 01 lda >INPUTBUF,x6163 FF14AC E8 inx6164 FF14AD 88 dey6165 FF14AE D0 D6 bne ?026166 FF14B0 CA dex6167 FF14B1 A5 E2 ?06: lda btmpx6168 FF14B3 18 clc6169 FF14B4 60 rts6170 FF14B5 38 ?08: sec6171 FF14B6 60 ?10: rts61726173 FF14B7 Cmd_fdisk:6174 FF14B7 SCN_CR6175 FF14B7 SCNPRCHAR6176 .MLIST6177 FF14B7 02 07 cop $076178 .MNLIST6179 FF14B9 0D .DB $0D6180 .MNLIST6181 FF14BA A6 E0 ldx cmdlin6182 FF14BC ACC16CLC6183 FF14BC C2 21 rep #(PMFLAG.OR.PCFLAG)6184 .LONGA on6185 .MNLIST6186 FF14BE 8A txa6187 FF14BF 69 00 99 adc #INPUTBUF6188 FF14C2 A2 01 ldx #^INPUTBUF6189 FF14C4 DA phx6190 FF14C5 48 pha6191 FF14C6 ACC086192 FF14C6 E2 20 sep #PMFLAG6193 .LONGA off6194 .MNLIST6195 FF14C8 02 60 cop $606196 FF14CA 00 .DB $006197 FF14CB 60 rts6198 FF14CC6199 .EXTERN _strcpy, _strcat, _getopt, _strlen, _strdel, _strins6200 .EXTERN _strcmp, _strncmp, _strcasecmp, _strncasecmp6201 .EXTERN _strchr, _strrchr, _strlchr, _strstr62026203 FF14CC Cmd_strcpy:6204 FF14CC SCN_CR6205 FF14CC SCNPRCHAR6206 .MLIST6207 FF14CC 02 07 cop $076208 .MNLIST6209 FF14CE 0D .DB $0DTue Jul 17 11:00:24 2018 Page 676210 .MNLIST6211 FF14CF ACC16CLC6212 FF14CF C2 21 rep #(PMFLAG.OR.PCFLAG)6213 .LONGA on6214 .MNLIST6215 FF14D1 A2 20 ldx #$206216 FF14D3 DA phx6217 FF14D4 F4 00 00 pea #0 ; dst6218 FF14D7 A6 E0 ldx cmdlin6219 FF14D9 8A txa6220 FF14DA 69 00 99 adc #INPUTBUF6221 FF14DD A2 01 ldx #^INPUTBUF6222 FF14DF DA phx6223 FF14E0 48 pha ; src6224 FF14E1 22 1D 04 FA jsl _strcpy6225 FF14E5 48 pha ; size6226 FF14E6 A2 20 ldx #$206227 FF14E8 DA phx6228 FF14E9 F4 00 00 pea #06229 FF14EC 4B phk ; dst6230 FF14ED F4 F8 14 pea #!?006231 FF14F0 ACC086232 FF14F0 E2 20 sep #PMFLAG6233 .LONGA off6234 .MNLIST6235 FF14F2 A9 09 lda #96236 FF14F4 48 pha6237 FF14F5 BPRINTF6238 FF14F5 02 11 cop $116239 .MNLIST6240 FF14F7 60 rts62416242 FF14F8 3C 25 73 3E 20 ?00: .DB '<%s> %hu', 13, 025 68 75 0D 0062436244 FF1502 Cmd_test:6245 0000BA s1 .SET SMTmpL6246 0000E4 s2 .SET SMXTmp+26247 0000E2 k .SET SMXTmp6248 0000E7 l .SET SMXTmp+56249 0000E9 chr .SET SMXTmp+762506251 FF1502 SCN_CR6252 FF1502 SCNPRCHAR6253 .MLIST6254 FF1502 02 07 cop $076255 .MNLIST6256 FF1504 0D .DB $0D6257 .MNLIST6258 FF1505 64 E9 stz <chr6259 FF1507 ACC16CLC6260 FF1507 C2 21 rep #(PMFLAG.OR.PCFLAG)6261 .LONGA on6262 .MNLIST6263 FF1509 64 E7 stz <l6264 FF150B 64 E2 stz <k6265 FF150D A2 20 ldx #$20Tue Jul 17 11:00:24 2018 Page 686266 FF150F 86 BC stx <s1+26267 FF1511 86 E6 stx <s2+26268 FF1513 64 BA stz <s16269 FF1515 A9 00 00 lda #06270 FF1518 8F 00 00 20 sta >$2000006271 FF151C 8F 00 80 20 sta >$2080006272 FF1520 A9 00 80 lda #$80006273 FF1523 85 E4 sta <s26274 FF1525 A6 E0 ldx cmdlin6275 FF1527 8A txa6276 FF1528 69 00 99 adc #INPUTBUF6277 FF152B A2 01 ldx #^INPUTBUF6278 FF152D A0 C0 ldy #$C06279 FF152F 5A phy ; flag6280 FF1530 DA phx6281 FF1531 48 pha ; command line6282 FF1532 4B phk ; option string6283 FF1533 F4 77 16 pea #!?10006284 FF1536 F4 00 00 pea #0 ; result6285 FF1539 F4 00 00 pea #06286 FF153C CPU086287 FF153C E2 30 sep #(PMFLAG.OR.PXFLAG)6288 .LONGA off6289 .LONGI off6290 .MNLIST6291 FF153E 22 09 00 FA ?10: jsl _getopt ; get opttion's loop6292 FF1542 B0 74 bcs ?20 ; error6293 FF1544 AA tax ; option char6294 FF1545 F0 71 beq ?20 ; end of command line6295 FF1547 30 6E bmi ?16 ; no option argument6296 FF1549 C9 73 cmp #'s' ; -s "string1"6297 FF154B D0 16 bne ?116298 FF154D A5 BC lda <s1+26299 FF154F 48 pha6300 FF1550 D4 BA pei (s1)6301 FF1552 A3 04 lda $04,s6302 FF1554 AA tax6303 FF1555 A3 05 lda $05,s6304 FF1557 A8 tay6305 FF1558 A3 06 lda $06,s6306 FF155A 48 pha6307 FF155B 5A phy6308 FF155C DA phx6309 FF155D 22 1D 04 FA jsl _strcpy6310 FF1561 80 DB bra ?106311 FF1563 C9 53 ?11: cmp #'S' ; -S "string2"6312 FF1565 D0 16 bne ?126313 FF1567 A5 E6 lda <s2+26314 FF1569 48 pha6315 FF156A D4 E4 pei (s2)6316 FF156C A3 04 lda $04,s6317 FF156E AA tax6318 FF156F A3 05 lda $05,s6319 FF1571 A8 tay6320 FF1572 A3 06 lda $06,s6321 FF1574 48 pha6322 FF1575 5A phyTue Jul 17 11:00:24 2018 Page 696323 FF1576 DA phx6324 FF1577 22 1D 04 FA jsl _strcpy6325 FF157B 80 C1 bra ?106326 FF157D C9 7A ?12: cmp #'z' ; -z: null str16327 FF157F D0 06 bne ?136328 FF1581 A9 00 lda #06329 FF1583 87 BA sta [s1]6330 FF1585 80 B7 bra ?106331 FF1587 C9 5A ?13: cmp #'Z' ; -Z: null str26332 FF1589 D0 06 bne ?146333 FF158B A9 00 lda #06334 FF158D 87 E4 sta [s2]6335 FF158F 80 AD bra ?106336 FF1591 C9 6B ?14: cmp #'k' ; -k start6337 FF1593 D0 0A bne ?156338 FF1595 A3 01 lda $01,s6339 FF1597 85 E2 sta <k6340 FF1599 A3 02 lda $02,s6341 FF159B 85 E3 sta <k+16342 FF159D 80 9F bra ?106343 FF159F C9 6C ?15: cmp #'l' ; -l maxlen6344 FF15A1 D0 0A bne ?15a6345 FF15A3 A3 01 lda $01,s6346 FF15A5 85 E7 sta <l6347 FF15A7 A3 02 lda $02,s6348 FF15A9 85 E8 sta <l+16349 FF15AB 80 91 bra ?106350 FF15AD C9 63 ?15a: cmp #'c' ; -c char6351 FF15AF D0 06 bne ?166352 FF15B1 A3 01 lda $01,s6353 FF15B3 85 E9 sta <chr6354 FF15B5 80 87 bra ?106355 FF15B7 38 ?16: sec6356 FF15B8 08 ?20: php ; clean stack6357 FF15B9 FA plx ; save carry6358 FF15BA ACC16CLC6359 FF15BA C2 21 rep #(PMFLAG.OR.PCFLAG)6360 .LONGA on6361 .MNLIST6362 FF15BC 3B tsc6363 FF15BD 69 0B 00 adc #116364 FF15C0 1B tcs6365 FF15C1 ACC086366 FF15C1 E2 20 sep #PMFLAG6367 .LONGA off6368 .MNLIST6369 FF15C3 8A txa6370 FF15C4 4A lsr a ; test carry6371 ;bcs ?30 ; exit6372 FF15C5 90 01 bcc ?196373 FF15C7 60 rts6374 FF15C8 ?19:6375 FF15C8 A5 BC lda <s1+26376 FF15CA 48 pha6377 FF15CB D4 BA pei (s1)6378 FF15CD 22 03 00 FA jsl strlen6379 FF15D1 A6 E9 ldx <chrTue Jul 17 11:00:24 2018 Page 706380 FF15D3 DA phx ; chr6381 FF15D4 D4 E7 pei (l)6382 FF15D6 D4 E2 pei (k)6383 FF15D8 ACC166384 FF15D8 C2 20 rep #PMFLAG6385 .LONGA on6386 .MNLIST6387 FF15DA 48 pha6388 FF15DB ACC086389 FF15DB E2 20 sep #PMFLAG6390 .LONGA off6391 .MNLIST6392 FF15DD A5 BC lda <s1+26393 FF15DF 48 pha6394 FF15E0 D4 BA pei (s1)6395 FF15E2 4B phk ; fmt6396 FF15E3 F4 38 16 pea #!?016397 FF15E6 A9 0E lda #146398 FF15E8 48 pha6399 FF15E9 BPRINTF6400 FF15E9 02 11 cop $116401 .MNLIST64026403 FF15EB A5 E6 lda <s2+26404 FF15ED 48 pha6405 FF15EE D4 E4 pei (s2)6406 FF15F0 22 03 00 FA jsl strlen6407 FF15F4 ACC166408 FF15F4 C2 20 rep #PMFLAG6409 .LONGA on6410 .MNLIST6411 FF15F6 48 pha6412 FF15F7 ACC086413 FF15F7 E2 20 sep #PMFLAG6414 .LONGA off6415 .MNLIST6416 FF15F9 A5 E6 lda <s2+26417 FF15FB 48 pha6418 FF15FC D4 E4 pei (s2)6419 FF15FE 4B phk ; fmt6420 FF15FF F4 2C 16 pea #!?006421 FF1602 A9 09 lda #96422 FF1604 48 pha6423 FF1605 BPRINTF6424 FF1605 02 11 cop $116425 .MNLIST642664276428 FF1607 A5 BC lda <s1+2 ; strstr6429 FF1609 48 pha6430 FF160A D4 BA pei (s1)6431 FF160C A5 E6 lda <s2+26432 FF160E 48 pha6433 FF160F D4 E4 pei (s2)6434 FF1611 22 81 07 FA jsl _strstr6435 FF1615 F4 00 00 pea #06436 FF1618 EB xbaTue Jul 17 11:00:24 2018 Page 716437 FF1619 48 pha6438 FF161A EB xba6439 FF161B 48 pha6440 FF161C A2 00 ldx #06441 FF161E B0 01 bcs ?25a6442 FF1620 E8 inx6443 FF1621 DA ?25a: phx6444 FF1622 4B phk ; fmt6445 FF1623 F4 65 16 pea #!?036446 FF1626 A9 09 lda #96447 FF1628 48 pha6448 FF1629 BPRINTF6449 FF1629 02 11 cop $116450 .MNLIST6451 FF162B6452 FF162B 60 ?30: rts64536454 FF162C 3C 25 73 3E 20 ?00: .DB '<%s> %hu ', 13, 025 68 75 20 200D 006455 FF1638 3C 25 73 3E 20 ?01: .DB '<%s> %hu - %hu - %hu - %bu <<<<', 13, 025 68 75 20 2D20 25 68 75 202D 20 25 68 7520 2D 20 25 6275 20 20 20 203C 3C 3C 3C 0D006456 FF165C 25 62 75 20 20 ?02: .DB '%bu ', 13, 020 20 0D 006457 FF1665 25 62 75 20 20 ?03: .DB '%bu %hu %hu', 13, 020 20 25 68 7520 20 20 25 6875 0D 0064586459 FF1677 6B 23 6C 23 73 ?1000: .DB 'k#l#s:S:z Z c!', 03A 53 3A 7A 205A 20 63 21 0064606461 FF1686 xxx:6462 FF1686 A6 E0 ?01: ldx cmdlin6463 FF1688 ACC16CLC6464 FF1688 C2 21 rep #(PMFLAG.OR.PCFLAG)6465 .LONGA on6466 .MNLIST6467 FF168A 8A txa6468 FF168B 69 00 99 adc #INPUTBUF6469 FF168E A2 E1 ldx #$E16470 FF1690 DA phx6471 FF1691 A2 01 ldx #^INPUTBUF6472 FF1693 DA phx6473 FF1694 48 pha6474 FF1695 4B phk6475 FF1696 F4 2E 18 pea #!?1006476 FF1699 48 pha6477 FF169A 48 pha6478 FF169B ACC08Tue Jul 17 11:00:24 2018 Page 726479 FF169B E2 20 sep #PMFLAG6480 .LONGA off6481 .MNLIST6482 FF169D 22 09 00 FA ?10: jsl _getopt6483 FF16A1 90 03 bcc ?116484 FF16A3 4C 48 17 jmp ?206485 FF16A6 AA ?11: tax6486 FF16A7 D0 03 bne ?11a6487 FF16A9 4C 48 17 jmp ?206488 FF16AC 10 03 ?11a: bpl ?11b6489 FF16AE 4C 31 17 jmp ?186490 FF16B1 C0 20 ?11b: cpy #' '6491 FF16B3 F0 6F beq ?166492 FF16B5 C0 21 cpy #'!'6493 FF16B7 F0 04 beq ?126494 FF16B9 C0 5E cpy #'^'6495 FF16BB D0 10 bne ?146496 FF16BD A8 ?12: tay6497 FF16BE A3 01 lda $01,s6498 FF16C0 48 pha6499 FF16C1 5A phy6500 FF16C2 4B phk6501 FF16C3 F4 90 17 pea #?606502 FF16C6 A9 06 lda #66503 FF16C8 48 pha6504 FF16C9 BPRINTF6505 FF16C9 02 11 cop $116506 .MNLIST6507 FF16CB 80 D0 bra ?106508 FF16CD6509 FF16CD C0 3A ?14: cpy #':'6510 FF16CF F0 25 beq ?156511 FF16D1 C0 24 cpy #'$'6512 FF16D3 F0 21 beq ?156513 FF16D5 C0 26 cpy #'&'6514 FF16D7 F0 03 beq ?14a6515 FF16D9 4C 47 18 jmp ?2006516 FF16DC6517 FF16DC A8 ?14a: tay6518 FF16DD CPU166519 FF16DD C2 30 rep #(PMFLAG.OR.PXFLAG)6520 .LONGA on6521 .LONGI on6522 .MNLIST6523 FF16DF A3 03 lda $03,s6524 FF16E1 AA tax6525 FF16E2 A3 01 lda $01,s6526 FF16E4 DA phx6527 FF16E5 48 pha6528 FF16E6 DA phx6529 FF16E7 48 pha6530 FF16E8 CPU086531 FF16E8 E2 30 sep #(PMFLAG.OR.PXFLAG)6532 .LONGA off6533 .LONGI off6534 .MNLIST6535 FF16EA 5A phyTue Jul 17 11:00:24 2018 Page 736536 FF16EB 4B phk6537 FF16EC F4 AC 17 pea #?706538 FF16EF A9 0D lda #136539 FF16F1 48 pha6540 FF16F2 BPRINTF6541 FF16F2 02 11 cop $116542 .MNLIST6543 FF16F4 80 A7 bra ?106544 FF16F66545 FF16F6 A8 ?15: tay6546 FF16F7 A3 03 lda $03,s6547 FF16F9 AA tax6548 FF16FA ACC166549 FF16FA C2 20 rep #PMFLAG6550 .LONGA on6551 .MNLIST6552 FF16FC A3 01 lda $01,s6553 FF16FE DA phx6554 FF16FF 48 pha6555 FF1700 ACC086556 FF1700 E2 20 sep #PMFLAG6557 .LONGA off6558 .MNLIST6559 FF1702 5A phy6560 FF1703 4B phk6561 FF1704 F4 52 17 pea #?306562 FF1707 A9 08 lda #86563 FF1709 48 pha6564 FF170A BPRINTF6565 FF170A 02 11 cop $116566 .MNLIST6567 ;bra ?106568 FF170C A3 03 lda $03,s6569 FF170E AA tax6570 FF170F ACC166571 FF170F C2 20 rep #PMFLAG6572 .LONGA on6573 .MNLIST6574 FF1711 A3 01 lda $01,s6575 FF1713 DA phx6576 FF1714 48 pha6577 FF1715 ACC086578 FF1715 E2 20 sep #PMFLAG6579 .LONGA off6580 .MNLIST6581 FF1717 22 03 00 FA jsl strlen6582 FF171B 20 4E 19 jsr PrintByte6583 FF171E SCN_CR6584 FF171E SCNPRCHAR6585 .MLIST6586 FF171E 02 07 cop $076587 .MNLIST6588 FF1720 0D .DB $0D6589 .MNLIST6590 FF1721 4C 9D 16 jmp ?106591 FF17246592 FF1724 48 ?16: phaTue Jul 17 11:00:24 2018 Page 746593 FF1725 4B phk6594 FF1726 F4 6D 17 pea #?406595 FF1729 A9 05 lda #56596 FF172B 48 pha6597 FF172C BPRINTF6598 FF172C 02 11 cop $116599 .MNLIST6600 FF172E 4C 9D 16 jmp ?106601 FF1731 A3 03 ?18: lda $03,s6602 FF1733 AA tax6603 FF1734 ACC166604 FF1734 C2 20 rep #PMFLAG6605 .LONGA on6606 .MNLIST6607 FF1736 A3 01 lda $01,s6608 FF1738 DA phx6609 FF1739 48 pha6610 FF173A ACC086611 FF173A E2 20 sep #PMFLAG6612 .LONGA off6613 .MNLIST6614 FF173C 4B phk6615 FF173D F4 85 17 pea #?506616 FF1740 A9 07 lda #76617 FF1742 48 pha6618 FF1743 BPRINTF6619 FF1743 02 11 cop $116620 .MNLIST6621 FF1745 4C 9D 16 jmp ?106622 FF1748 ?20: ACC16CLC6623 FF1748 C2 21 rep #(PMFLAG.OR.PCFLAG)6624 .LONGA on6625 .MNLIST6626 FF174A 3B tsc6627 FF174B 69 0B 00 adc #116628 FF174E 1B tcs6629 FF174F ACC086630 FF174F E2 20 sep #PMFLAG6631 .LONGA off6632 .MNLIST6633 FF1751 60 rts66346635 FF1752 6F 70 74 69 6F ?30: .DB 'option ''-%c'' -- arg: <%s>', 13, 06E 20 27 2D 2563 27 20 2D 2D20 61 72 67 3A20 3C 25 73 3E0D 006636 FF176D 6F 70 74 69 6F ?40: .DB 'option ''-%c'' -- no arg', 13, 06E 20 27 2D 2563 27 20 2D 2D20 6E 6F 20 6172 67 0D 006637 FF1785 61 72 67 3A 20 ?50: .DB 'arg: <%s>', 13, 03C 25 73 3E 0D006638 FF1790 6F 70 74 69 6F ?60: .DB 'option ''-%c'' -- char: <%c>', 13, 0Tue Jul 17 11:00:24 2018 Page 756E 20 27 2D 2563 27 20 2D 2D20 63 68 61 723A 20 3C 25 633E 0D 006639 FF17AC 6F 70 74 69 6F ?70: .DB 'option ''-%c'' -- int: <%d>, <%X>', 13, 06E 20 27 2D 2563 27 20 2D 2D20 69 6E 74 3A20 3C 25 64 3E2C 20 3C 25 583E 0D 006640 FF17CD 6F 70 74 69 6F ?80: .DB 'option ''-%c'' -- int: <%bd>, <%bX>', 13, 06E 20 27 2D 2563 27 20 2D 2D20 69 6E 74 3A20 3C 25 62 643E 2C 20 3C 2562 58 3E 0D 006641 FF17F0 6F 70 74 69 6F ?90: .DB 'option ''-%c'' -- int: <%hd>, <%hX>', 13, 06E 20 27 2D 2563 27 20 2D 2D20 69 6E 74 3A20 3C 25 68 643E 2C 20 3C 2568 58 3E 0D 006642 FF1813 6F 70 74 69 6F ?95: .DB 'option ''-%c'' -- PTR: <%P>', 13, 06E 20 27 2D 2563 27 20 2D 2D20 50 54 52 3A20 3C 25 50 3E0D 0066436644 FF182E 72 20 43 20 6C ?100: .DB 'r C l:s u!p^b$z%x#v*w&y|', 03A 73 20 75 2170 5E 62 24 7A25 78 23 76 2A77 26 79 7C 0066456646 FF1847 C0 25 ?200: cpy #'%'6647 FF1849 D0 13 bne ?2106648 FF184B A8 tay6649 FF184C A3 01 lda $01,s6650 FF184E AA tax6651 FF184F DA phx6652 FF1850 48 pha6653 FF1851 5A phy6654 FF1852 4B phk6655 FF1853 F4 CD 17 pea #?806656 FF1856 A9 07 lda #76657 FF1858 48 pha6658 FF1859 BPRINTF6659 FF1859 02 11 cop $116660 .MNLIST6661 FF185B 4C 9D 16 jmp ?1066626663 FF185E C0 23 ?210: cpy #'#'Tue Jul 17 11:00:24 2018 Page 766664 FF1860 D0 17 bne ?2206665 FF1862 A8 tay6666 FF1863 A3 02 lda $02,s6667 FF1865 AA tax6668 FF1866 A3 01 lda $01,s6669 FF1868 DA phx6670 FF1869 48 pha6671 FF186A DA phx6672 FF186B 48 pha6673 FF186C 5A phy6674 FF186D 4B phk6675 FF186E F4 F0 17 pea #?906676 FF1871 A9 09 lda #96677 FF1873 48 pha6678 FF1874 BPRINTF6679 FF1874 02 11 cop $116680 .MNLIST6681 FF1876 4C 9D 16 jmp ?1066826683 FF1879 A8 ?220: tay6684 FF187A A3 03 lda $03,s6685 FF187C AA tax6686 FF187D ACC166687 FF187D C2 20 rep #PMFLAG6688 .LONGA on6689 .MNLIST6690 FF187F A3 01 lda $01,s6691 FF1881 DA phx6692 FF1882 48 pha6693 FF1883 ACC086694 FF1883 E2 20 sep #PMFLAG6695 .LONGA off6696 .MNLIST6697 FF1885 5A phy6698 FF1886 4B phk6699 FF1887 F4 13 18 pea #?956700 FF188A A9 08 lda #86701 FF188C 48 pha6702 FF188D BPRINTF6703 FF188D 02 11 cop $116704 .MNLIST6705 FF188F 4C 9D 16 jmp ?1067066707 ;----------------------------------------------------------6708 ; copia/incremento/decremento puntatori67096710 FF1892 TmpToAddr:6711 FF18926712 FF1892 A5 BA lda SMTmpL6713 FF1894 85 B6 sta SMAddrL6714 FF1896 A5 BB lda SMTmpH6715 FF1898 85 B7 sta SMAddrH6716 FF189A A5 BC lda SMTmpK6717 FF189C 85 B8 sta SMAddrK6718 FF189E 60 rts6719 FF189F6720 FF189F SubTmpAddr:Tue Jul 17 11:00:24 2018 Page 776721 FF189F ACC166722 FF189F C2 20 rep #PMFLAG6723 .LONGA on6724 .MNLIST6725 FF18A1 38 sec6726 FF18A2 A5 BA lda SMTmpL6727 FF18A4 E5 B6 sbc SMAddrL6728 FF18A6 85 BA sta SMTmpL6729 FF18A8 ACC086730 FF18A8 E2 20 sep #PMFLAG6731 .LONGA off6732 .MNLIST6733 FF18AA A5 BC lda SMTmpK6734 FF18AC E5 B8 sbc SMAddrK6735 FF18AE 85 BC sta SMTmpK6736 FF18B0 60 rts67376738 FF18B1 DecTmpPtr:6739 FF18B1 A9 01 lda #16740 FF18B36741 FF18B3 DecTmpPtrA:6742 FF18B3 85 D6 sta SMAuxL6743 FF18B5 64 D7 stz SMAuxH6744 FF18B7 ACC166745 FF18B7 C2 20 rep #PMFLAG6746 .LONGA on6747 .MNLIST6748 FF18B9 38 sec6749 FF18BA A5 BA lda SMTmpL6750 FF18BC E5 D6 sbc SMAuxL6751 FF18BE 85 BA sta SMTmpL6752 FF18C0 ACC086753 FF18C0 E2 20 sep #PMFLAG6754 .LONGA off6755 .MNLIST6756 FF18C2 A5 BC lda SMTmpK6757 FF18C4 E9 00 sbc #06758 FF18C6 85 BC sta SMTmpK6759 FF18C8 60 rts67606761 FF18C9 DecPtr:6762 FF18C9 ACC166763 FF18C9 C2 20 rep #PMFLAG6764 .LONGA on6765 .MNLIST6766 FF18CB 38 sec6767 FF18CC A5 B6 lda SMAddrL6768 FF18CE E9 01 00 sbc #16769 FF18D1 85 B6 sta SMAddrL6770 FF18D3 ACC086771 FF18D3 E2 20 sep #PMFLAG6772 .LONGA off6773 .MNLIST6774 FF18D5 A5 B8 lda SMAddrK6775 FF18D7 E9 00 sbc #06776 FF18D9 85 B8 sta SMAddrK6777 FF18DB 60 rtsTue Jul 17 11:00:24 2018 Page 7867786779 FF18DC DecSize:6780 FF18DC ACC166781 FF18DC C2 20 rep #PMFLAG6782 .LONGA on6783 .MNLIST6784 FF18DE 38 sec6785 FF18DF A5 BE lda SMSizeL6786 FF18E1 E9 01 00 sbc #16787 FF18E4 85 BE sta SMSizeL6788 FF18E6 ACC086789 FF18E6 E2 20 sep #PMFLAG6790 .LONGA off6791 .MNLIST6792 FF18E8 A5 C0 lda SMSizeK6793 FF18EA E9 00 sbc #06794 FF18EC 85 C0 sta SMSizeK6795 FF18EE 60 rts6796 FF18EF6797 FF18EF IncPtr:6798 FF18EF C2 21 rep #(PMFLAG.OR.PCFLAG) ; 16 bit + clc6799 .LONGA on6800 FF18F1 A9 01 00 lda #16801 FF18F4 IncPtrA:6802 FF18F4 65 B6 adc SMAddrL6803 FF18F6 85 B6 sta SMAddrL6804 FF18F8 ACC086805 FF18F8 E2 20 sep #PMFLAG6806 .LONGA off6807 .MNLIST6808 FF18FA 90 02 bcc ?016809 FF18FC E6 B8 inc SMAddrK6810 FF18FE 60 ?01: rts681168126813 FF18FF XSetPtr:6814 FF18FF ACC166815 FF18FF C2 20 rep #PMFLAG6816 .LONGA on6817 .MNLIST6818 FF1901 A5 B6 lda SMAddrL6819 FF1903 85 C1 sta SMXAddrL ; offset6820 FF1905 ACC086821 FF1905 E2 20 sep #PMFLAG6822 .LONGA off6823 .MNLIST6824 FF1907 A5 B8 lda SMAddrK ; bank6825 FF1909 80 0F bra _xsptr6826 FF190B6827 FF190B XSetPtrY:6828 FF190B C2 21 rep #(PMFLAG.OR.PCFLAG) ; A 16 bit + clc6829 FF190D 98 tya ; YH = 0 !6830 FF190E 65 B6 adc SMAddrL6831 FF1910 85 C1 sta SMXAddrL ; offset6832 FF1912 ACC086833 FF1912 E2 20 sep #PMFLAG6834 .LONGA offTue Jul 17 11:00:24 2018 Page 796835 .MNLIST6836 FF1914 A5 B8 lda SMAddrK ; hi6837 FF1916 69 00 adc #0 ; A = bank6838 FF1918 B0 1C bcs _?016839 FF191A _xsptr:6840 FF191A C9 20 cmp #$20 ; limite max ?6841 FF191C B0 18 bcs _?01 ; si - errore6842 FF191E A6 C2 ldx SMXAddrH6843 FF1920 86 D6 stx SMAuxL6844 FF1922 A2 03 ldx #3 ; calcola pagina 8k6845 FF1924 26 D6 ?01: rol SMAuxL6846 FF1926 2A rol a6847 FF1927 CA dex6848 FF1928 D0 FA bne ?016849 FF192A 8D 28 FD sta PIA0+PIAPRA ; pagina XM6850 FF192D A5 C2 lda SMXAddrH6851 FF192F 29 1F and #$1F6852 FF1931 09 20 ora #$206853 FF1933 85 C2 sta SMXAddrH6854 FF1935 18 clc ; ptr OK6855 FF1936 60 _?01: rts68566857 ;----------------------------------------------------------6858 ; funzioni elementari di stampa68596860 ; PrintAddr - stampa a video address SMAddrL,H,K6861 FF1937 PrintAddr:6862 FF1937 ACC166863 FF1937 C2 20 rep #PMFLAG6864 .LONGA on6865 .MNLIST6866 FF1939 A5 B6 lda SMAddrL6867 FF193B A6 B8 ldx SMAddrK6868 FF193D6869 ; PrintAddr2 - stampa a video address A(offset)-X(bank)6870 FF193D PrintAddr2:6871 FF193D ACC166872 FF193D C2 20 rep #PMFLAG6873 .LONGA on6874 .MNLIST6875 FF193F 48 pha6876 FF1940 ACC086877 FF1940 E2 20 sep #PMFLAG6878 .LONGA off6879 .MNLIST6880 FF1942 8A txa ; hi byte6881 FF1943 20 71 19 jsr PrintHex6882 FF1946 68 pla6883 FF1947 FA plx68846885 ; PrintWord - stampa a video word A(lo)-X(hi)6886 FF1948 PrintWord:6887 FF1948 48 pha6888 FF1949 8A txa6889 FF194A 20 71 19 jsr PrintHex6890 FF194D 68 pla6891Tue Jul 17 11:00:24 2018 Page 806892 ; PrintByte - stampa a video byte A + spazio6893 FF194E PrintByte:6894 FF194E 20 71 19 jsr PrintHex68956896 ; PrintBlank - stampa a video uno spazio6897 FF1951 PrintBlank:6898 FF1951 TXTPRCHAR6899 FF1951 02 08 cop $086900 .MNLIST6901 FF1953 20 .DB ' '6902 FF1954 60 rts69036904 ; PrintUp - CR + cursore up6905 FF1955 PrintUp:6906 FF1955 SCNPRINT6907 FF1955 02 01 cop $016908 .MNLIST6909 FF1957 0D 01 00 .DB KB_CR, SCN_CSRUP, 06910 FF195A 60 rts6911 FF195B6912 FF195B PrintCR:6913 FF195B TXTPRCHAR6914 FF195B 02 08 cop $086915 .MNLIST6916 FF195D 0D .DB KB_CR6917 FF195E 60 rts6918 FF195F6919 FF195F PrintBlankCR:6920 FF195F SCNPRINT6921 FF195F 02 01 cop $016922 .MNLIST6923 FF1961 0D 1B 51 20 00 .DB KB_CR, KB_ESC, 'Q', ' ', 06924 FF1966 60 rts69256926 FF1967 PrintHex1:6927 FF1967 TXTPRCHAR6928 FF1967 02 08 cop $086929 .MNLIST6930 FF1969 24 .DB '$'6931 FF196A 20 71 19 jsr PrintHex6932 FF196D TXTPRCHAR6933 FF196D 02 08 cop $086934 .MNLIST6935 FF196F 2C .DB ','6936 FF1970 60 rts6937 FF19716938 ; PrintHex - stampa a video byte HEX6939 ; In - A = byte6940 ; Out - nessuno6941 FF1971 PrintHex:6942 FF1971 DA phx ; salva x6943 FF1972 20 7C 19 jsr FF_Byte2Hex ; X,A = HEX6944 FF1975 TXTCHAROUT ; stampa hi digit6945 FF1975 02 06 cop $066946 .MNLIST6947 FF1977 8A txa6948 FF1978 FA plx ; ripristina xTue Jul 17 11:00:24 2018 Page 816949 FF1979 TXTCHAROUT ; stampa low digit6950 FF1979 02 06 cop $066951 .MNLIST6952 FF197B 60 rts6953 FF197C6954 ; FF_Byte2Hex - converte byte in HEX6955 ; In - A = byte6956 ; Out: - X = low digit6957 ; A = hi digit6958 FF197C FF_Byte2Hex:6959 FF197C 48 pha ; salva A6960 FF197D 20 86 19 jsr ?01 ; converte parte bassa6961 FF1980 AA tax ; x = low digit6962 FF1981 68 pla6963 FF1982 4A lsr a ; parte alta6964 FF1983 4A lsr a6965 FF1984 4A lsr a6966 FF1985 4A lsr a6967 FF1986 29 0F ?01: and #$0F ; maschera nibble6968 FF1988 C9 0A cmp #106969 FF198A 90 02 bcc ?026970 FF198C 69 06 adc #66971 FF198E 69 30 ?02: adc #'0'6972 FF1990 60 _?02: rts69736974 ; ritorna indirizzo start e indirizzo stop6975 ; ritorna C=1 se non ci sono parametri o se Stop < Start6976 FF1991 GetStartStop:6977 FF1991 B0 FD bcs _?02 ; no parametri6978 FF1993 FA plx ; return L6979 FF1994 68 pla ; return H6980 FF1995 E8 inx ; scarta stack - necessario per6981 FF1996 D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack6982 FF1998 1A inc a ; X,A -> indirizzo di ritorno6983 FF1999 86 E2 ?01: stx SMTmp26984 FF199B 85 E3 sta SMTmp2+16985 FF199D 20 92 18 jsr TmpToAddr ; salva SMTmpL/H/K in SMAddrL/H/K6986 FF19A0 20 5A 01 jsr GetParm6987 FF19A3 B0 20 bcs ?20 ; no stop address, esce6988 FF19A5 A5 BA lda SMTmpL ; SMXAddrL/H/K = indirizzo di stop6989 FF19A7 85 C1 sta SMXAddrL6990 FF19A9 A5 BB lda SMTmpH6991 FF19AB 85 C2 sta SMXAddrH6992 FF19AD A5 BC lda SMTmpK6993 FF19AF 85 C3 sta SMXAddrK6994 FF19B1 20 9F 18 jsr SubTmpAddr ; stop - start = #bytes6995 FF19B4 A5 BA lda SMTmpL ; salva #bytes in SMSizeL/H/K6996 FF19B6 85 BE sta SMSizeL6997 FF19B8 A5 BB lda SMTmpH6998 FF19BA 85 BF sta SMSizeH6999 FF19BC A5 BC lda SMTmpK7000 FF19BE 85 C0 sta SMSizeK7001 FF19C0 90 02 bcc ?19 ; errore: stop < start7002 FF19C2 18 clc ; OK7003 FF19C3 24 .DB $24 ; BIT $387004 FF19C4 38 ?19: sec ; errore7005 FF19C5 6C E2 01 ?20: jmp (SMTMP2) ; returnTue Jul 17 11:00:24 2018 Page 82700670077008 ; ricava parametri per funzioni fdread/fdwrite7009 FF19C8 GetFDCParm:7010 FF19C8 FA plx ; return L7011 FF19C9 68 pla ; return H7012 FF19CA E8 inx ; scarta stack - necessario per7013 FF19CB D0 01 bne ?01 ; chiamare GetParm al giusto livello di stack7014 FF19CD 1A inc a ; X,A -> indirizzo di ritorno7015 FF19CE 86 E2 ?01: stx SMTmp27016 FF19D0 85 E3 sta SMTmp2+17017 FF19D2 ACC167018 FF19D2 C2 20 rep #PMFLAG7019 .LONGA on7020 .MNLIST7021 FF19D4 3B tsc ; stack frame7022 FF19D5 38 sec7023 FF19D6 E9 09 00 sbc #FDPBSIZE ; crea variabili locali7024 FF19D9 1B tcs7025 FF19DA 1A inc a7026 FF19DB 85 BE sta SMSizeL ; salva stack frame7027 FF19DD ACC087028 FF19DD E2 20 sep #PMFLAG7029 .LONGA off7030 .MNLIST7031 FF19DF A5 BA lda SMTmpL ; parametro 1 - drive + flag7032 FF19E1 AA tax7033 FF19E2 29 01 and #$01 ; maschera drive7034 FF19E4 83 01 sta $01,s ; drive7035 FF19E6 8A txa7036 FF19E7 29 E0 and #$E0 ; maschera flag7037 FF19E9 83 0D sta $0D,s ; flag7038 FF19EB 85 C0 sta SMSizeK ; salva flag7039 FF19ED 20 5A 01 jsr GetParm ; parametro 2 - formato7040 FF19F0 B0 53 bcs ?207041 FF19F2 A5 BA lda SMTmpL7042 FF19F4 83 06 sta $06,s ; disk format7043 FF19F6 20 5A 01 jsr GetParm ; parametro 3 - buffer7044 FF19F9 B0 4A bcs ?207045 FF19FB A5 BA lda SMTmpL7046 FF19FD 83 07 sta $07,s ; buffer ptr7047 FF19FF A5 BB lda SMTmpH7048 FF1A01 83 08 sta $08,s7049 FF1A03 A5 BC lda SMTmpK7050 FF1A05 83 09 sta $09,s7051 FF1A07 20 5A 01 jsr GetParm ; parametro 4 - track7052 FF1A0A B0 39 bcs ?207053 FF1A0C A5 BA lda SMTmpL7054 FF1A0E 83 02 sta $02,s ; track7055 FF1A107056 ; i restanti parametri : head, sector, sector number, vbuffer7057 ; sono opzionali in funzione dei flag passati7058 FF1A10 A9 00 lda #$007059 FF1A12 83 03 sta $03,s ; head7060 FF1A14 83 04 sta $04,s ; sector7061 FF1A16 83 05 sta $05,s ; sector num.7062 FF1A18 83 0A sta $0A,s ; vbufferTue Jul 17 11:00:24 2018 Page 837063 FF1A1A 83 0B sta $0B,s7064 FF1A1C 83 0C sta $0C,s7065 FF1A1E 24 C0 bit SMSizeK7066 FF1A20 30 1B bmi ?18 ; MT -> ignora parametri successivi7067 FF1A22 20 5A 01 jsr GetParm ; head opzionale7068 FF1A25 B0 1E bcs ?207069 FF1A27 A5 BA lda SMTmpL7070 FF1A29 83 03 sta $03,s ; head7071 FF1A2B 20 5A 01 jsr GetParm7072 FF1A2E B0 15 bcs ?207073 FF1A30 A5 BA lda SMTmpL7074 FF1A32 83 04 sta $04,s ; sector7075 FF1A34 20 5A 01 jsr GetParm7076 FF1A37 B0 0C bcs ?207077 FF1A39 A5 BA lda SMTmpL7078 FF1A3B 83 05 sta $05,s ; sector num.7079 FF1A3D A5 BF ?18: lda SMSizeH ; C = stack frame7080 FF1A3F EB xba7081 FF1A40 A5 BE lda SMSizeL7082 FF1A42 18 clc ; OK7083 FF1A43 24 .DB $24 ; BIT $387084 FF1A44 38 ?19: sec ; errore7085 FF1A45 6C E2 01 ?20: jmp (SMTMP2) ; return7086 FF1A487087 ;----------------------------------------------------------7088 ; funzioni riga di comando70897090 ;GetPrevCh:7091 ; dec SMbndx7092 FF1A487093 FF1A48 GetCurCh:7094 FF1A48 86 D6 stx SMAuxL7095 FF1A4A A6 C4 ldx SMbndx7096 FF1A4C BF 00 99 01 lda INPUTBUF,x7097 FF1A50 38 sec7098 FF1A51 F0 06 beq ?017099 FF1A53 C9 3A cmp #':'7100 FF1A55 F0 02 beq ?017101 FF1A57 E6 C4 inc SMbndx7102 FF1A59 08 ?01: php7103 FF1A5A A6 D6 ldx SMAuxL7104 FF1A5C 28 plp7105 FF1A5D 60 rts71067107 ; no case version7108 FF1A5E GetCurCh2:7109 FF1A5E 86 D6 stx SMAuxL7110 FF1A60 A6 C4 ldx SMbndx7111 FF1A62 BF 00 99 01 lda INPUTBUF,x7112 FF1A66 F0 0A beq ?007113 FF1A68 C9 61 cmp #'a'7114 FF1A6A 90 06 bcc ?007115 FF1A6C C9 7B cmp #'z'+17116 FF1A6E B0 02 bcs ?007117 FF1A70 29 DF and #$DF7118 FF1A72 38 ?00: sec7119 FF1A73 F0 06 beq ?01Tue Jul 17 11:00:24 2018 Page 847120 FF1A75 C9 3A cmp #':'7121 FF1A77 F0 02 beq ?017122 FF1A79 E6 C4 inc SMbndx7123 FF1A7B 08 ?01: php7124 FF1A7C A6 D6 ldx SMAuxL7125 FF1A7E 28 plp7126 FF1A7F 60 rts71277128 FF1A80 CkStop:7129 FF1A80 0B phd7130 FF1A81 F4 00 00 pea #07131 FF1A84 2B pld7132 FF1A85 A5 4B lda CtrlBrk7133 FF1A87 64 4B stz CtrlBrk7134 FF1A89 2B pld7135 FF1A8A C9 80 cmp #$807136 FF1A8C 60 rts71377138 ;----------------------------------------------------------7139 ; UPDATE FLASH7140 ;----------------------------------------------------------71417142 ;;_FLASHSTART .EQU $71437144 ; flag settori da programmare7145 FF1A8D _SCTTBL:7146 FF1A8D 80 80 80 80 80 .DB $80, $80, $80, $80, $80, $80, $80, $8080 80 807147 FF1A95 _SRCBNK:7148 FF1A95 F8 .DB $F87149 FF1A96 _DSTBNK:7150 FF1A96 F0 .DB $F07151 FF1A977152 ; erase sector: X -> settore (0..7)7153 FF1A97 _erase:7154 .LONGI on7155 FF1A97 8B phb7156 FF1A98 4B phk7157 FF1A99 AB plb7158 FF1A9A BD 8D 1A lda !_SCTTBL,x7159 FF1A9D 30 05 bmi ?02 ; erase7160 FF1A9F AB plb7161 FF1AA0 18 clc7162 FF1AA1 E2 40 sep #PVFLAG ; V = 17163 FF1AA3 60 rts7164 FF1AA4 8A ?02: txa7165 FF1AA5 18 clc7166 FF1AA6 6D 96 1A adc !_DSTBNK7167 FF1AA9 85 B8 sta SMAddrK ; banco fisico7168 FF1AAB 64 B6 stz SMAddrL7169 FF1AAD 64 B7 stz SMAddrH7170 FF1AAF AB plb7171 FF1AB0 A0 00 00 ldy #07172 FF1AB3 B7 B6 ?04: lda [SMAddrL],y7173 FF1AB5 C9 FF cmp #$FF ; test erased7174 FF1AB7 D0 06 bne ?06 ; not erased7175 FF1AB9 C8 inyTue Jul 17 11:00:24 2018 Page 857176 FF1ABA D0 F7 bne ?047177 FF1ABC B8 clv7178 FF1ABD 18 clc7179 FF1ABE 60 rts ; sector erased7180 FF1ABF A0 55 05 ?06: ldy #$0555 ; inizia sequenza erase sector7181 FF1AC2 A9 AA lda #$AA7182 FF1AC4 97 B6 sta [SMAddrL],y7183 FF1AC6 A0 AA 02 ldy #$02AA7184 FF1AC9 A9 55 lda #$557185 FF1ACB 97 B6 sta [SMAddrL],y7186 FF1ACD A0 55 05 ldy #$05557187 FF1AD0 A9 80 lda #$807188 FF1AD2 97 B6 sta [SMAddrL],y7189 FF1AD4 A9 AA lda #$AA7190 FF1AD6 97 B6 sta [SMAddrL],y7191 FF1AD8 A0 AA 02 ldy #$02AA7192 FF1ADB A9 55 lda #$557193 FF1ADD 97 B6 sta [SMAddrL],y7194 FF1ADF A0 00 00 ldy #$00 ; SA - sector address (in banco)7195 FF1AE2 A9 30 lda #$30 ; codice erase7196 FF1AE4 87 B6 sta [SMAddrL]7197 FF1AE6 20 5B 1B jsr _waitfl ; attende fine operazione7198 FF1AE9 B0 0D bcs ?30 ; fail7199 FF1AEB B7 B6 ?24: lda [SMAddrL],y7200 FF1AED C9 FF cmp #$FF ; test erased7201 FF1AEF D0 06 bne ?26 ; not erased7202 FF1AF1 C8 iny7203 FF1AF2 D0 F7 bne ?247204 FF1AF4 B8 clv7205 FF1AF5 18 clc7206 FF1AF6 60 rts ; sector erased7207 FF1AF7 38 ?26: sec ; erased fail7208 FF1AF8 60 ?30: rts7209 FF1AF97210 ; pgm sector: X -> settore (0..7)7211 FF1AF9 _sctrpgm:7212 FF1AF9 8B phb7213 FF1AFA 4B phk7214 FF1AFB AB plb7215 FF1AFC BD 8D 1A lda !_SCTTBL,x7216 FF1AFF 30 05 bmi ?02 ; erase7217 FF1B01 AB plb7218 FF1B02 E2 40 sep #PVFLAG ; V = 17219 FF1B04 18 clc7220 FF1B05 60 rts7221 FF1B06 8A ?02: txa7222 FF1B07 18 clc7223 FF1B08 6D 96 1A adc !_DSTBNK7224 FF1B0B 85 B8 sta SMAddrK ; banco fisico DST7225 FF1B0D 64 B6 stz SMAddrL7226 FF1B0F 64 B7 stz SMAddrH7227 FF1B11 8A txa7228 FF1B12 18 clc7229 FF1B13 65 EE adc SMFsrc7230 FF1B15 85 C3 sta SMXAddrK ; banco fisico SRC7231 FF1B17 64 C1 stz SMXAddrL7232 FF1B19 64 C2 stz SMXAddrHTue Jul 17 11:00:24 2018 Page 867233 FF1B1B AB plb7234 FF1B1C A0 00 00 ldy #07235 FF1B1F B7 C1 ?04: lda [SMXAddrL],y7236 FF1B21 EA nop7237 FF1B22 D7 C1 cmp [SMXAddrL],y7238 FF1B24 D0 F9 bne ?047239 FF1B26 85 E2 sta SMTmp27240 FF1B28 84 BE sty SMSizeL7241 FF1B2A A0 55 05 ldy #$0555 ; inizia sequenza pgm7242 FF1B2D A9 AA lda #$AA7243 FF1B2F 97 B6 sta [SMAddrL],y7244 FF1B31 A0 AA 02 ldy #$02AA7245 FF1B34 A9 55 lda #$557246 FF1B36 97 B6 sta [SMAddrL],y7247 FF1B38 A0 55 05 ldy #$05557248 FF1B3B A9 A0 lda #$A07249 FF1B3D 97 B6 sta [SMAddrL],y7250 FF1B3F A4 BE ldy SMSizeL7251 FF1B41 A5 E2 lda SMTmp27252 FF1B43 97 B6 sta [SMAddrL],y ; program byte7253 FF1B45 20 5B 1B jsr _waitfl7254 FF1B48 E2 40 sep #PVFLAG ; V = 1 -> pgm fail7255 FF1B4A B0 0E bcs ?30 ; fail7256 FF1B4C B7 B6 ?20: lda [SMAddrL],y7257 FF1B4E C5 E2 cmp SMTmp27258 FF1B50 D0 06 bne ?287259 FF1B52 C8 iny7260 FF1B53 D0 CA bne ?047261 FF1B55 B8 clv7262 FF1B56 18 clc7263 FF1B57 60 rts7264 FF1B58 38 ?28: sec7265 FF1B59 B8 clv ; V = 0 -> verf fail7266 FF1B5A 60 ?30: rts72677268 ; polling toggle bit (DQ6)7269 FF1B5B _waitfl:7270 FF1B5B B7 B6 ?08: lda [SMAddrL],y ; loop toggle bit7271 FF1B5D 85 D6 sta SMAuxL7272 FF1B5F B7 B6 ?10: lda [SMAddrL],y ; read toggle bit7273 FF1B61 85 D7 sta SMAuxH7274 FF1B63 45 D6 eor SMAuxL ; confronta7275 FF1B65 29 40 and #$40 ; bit 6 toggle ?7276 FF1B67 F0 20 beq ?20 ; no - operazione terminata7277 FF1B69 A9 20 lda #00100000B ; test DQ57278 FF1B6B 24 D7 bit SMAuxH7279 FF1B6D D0 06 bne ?12 ; DQ5 = 1 -> read toggle bit7280 FF1B6F A5 D7 lda SMAuxH ; DQ5 = 0 -> loop7281 FF1B71 85 D6 sta SMAuxL7282 FF1B73 80 EA bra ?107283 FF1B75 A7 B6 ?12: lda [SMAddrL] ; read toggle bit7284 FF1B77 85 D6 sta SMAuxL7285 FF1B79 A7 B6 lda [SMAddrL] ; read toggle bit7286 FF1B7B 85 D7 sta SMAuxH7287 FF1B7D 45 D6 eor SMAuxL7288 FF1B7F 29 40 and #$40 ; bit 6 toggle ?7289 FF1B81 F0 06 beq ?20 ; no - operazione terminataTue Jul 17 11:00:24 2018 Page 877290 FF1B83 A9 F0 lda #$F0 ; fail - reset device7291 FF1B85 87 B6 sta [SMAddrL]7292 FF1B87 38 sec7293 FF1B88 60 rts7294 FF1B89 18 ?20: clc7295 FF1B8A 60 rts72967297 ; update flash from emulator7298 FF1B8B Cmd_eflash:7299 FF1B8B A9 E0 lda #$E07300 FF1B8D 85 B8 sta SMAddrL+27301 FF1B8F 64 B6 stz SMAddrL7302 FF1B91 64 B7 stz SMAddrL+17303 FF1B93 9C 10 FC stz !VIA2+VIAPRB7304 FF1B96 8D 0D FC sta !CREMEON7305 FF1B99 INDEX167306 FF1B99 C2 10 rep #PXFLAG7307 .LONGI on7308 .MNLIST7309 FF1B9B A0 00 00 ?lp1: ldy #07310 FF1B9E BB tyx7311 FF1B9F BF 00 18 01 ?lp2: lda >EMURAM,x7312 FF1BA3 97 B6 sta [SMAddrL],y7313 FF1BA5 C8 iny7314 FF1BA6 E8 inx7315 FF1BA7 E0 00 08 cpx #$08007316 FF1BAA 90 F3 bcc ?lp27317 FF1BAC ACC16CLC7318 FF1BAC C2 21 rep #(PMFLAG.OR.PCFLAG)7319 .LONGA on7320 .MNLIST7321 FF1BAE 8A txa7322 FF1BAF 65 B6 adc SMAddrL7323 FF1BB1 85 B6 sta SMAddrL7324 FF1BB3 ACC087325 FF1BB3 E2 20 sep #PMFLAG7326 .LONGA off7327 .MNLIST7328 FF1BB5 90 02 bcc ?nxt7329 FF1BB7 E6 B8 inc SMAddrL+27330 FF1BB9 EE 10 FC ?nxt: inc !VIA2+VIAPRB7331 FF1BBC D0 DD bne ?lp17332 FF1BBE CPU087333 FF1BBE E2 30 sep #(PMFLAG.OR.PXFLAG)7334 .LONGA off7335 .LONGI off7336 .MNLIST7337 FF1BC0 A9 E0 lda #$E0 ; from bank $E07338 FF1BC2 80 0D bra _flash73397340 ; update flash from file7341 FF1BC4 Cmd_flash:7342 FF1BC4 24 EF bit SMFflag7343 FF1BC6 30 03 bmi ?017344 FF1BC8 4C 1B 0A jmp CmdErr37345 FF1BCB A9 E0 ?01: lda #$E0 ; from bank $E07346 FF1BCD 80 02 bra _flashTue Jul 17 11:00:24 2018 Page 887347 FF1BCF7348 ; update flash from memory7349 FF1BCF Cmd_mflash:7350 FF1BCF A9 F8 lda #$F8 ; from memory73517352 FF1BD1 _flash:7353 FF1BD1 85 EE sta SMFsrc7354 FF1BD3 CPU087355 FF1BD3 E2 30 sep #(PMFLAG.OR.PXFLAG)7356 .LONGA off7357 .LONGI off7358 .MNLIST7359 FF1BD5 F4 00 01 pea #DP01ADDR ; imposta nuova DP7360 FF1BD8 2B pld7361 FF1BD9 A9 00 lda #$007362 FF1BDB 48 pha7363 FF1BDC AB plb7364 FF1BDD 8D 07 FC sta !CRFWEON ; enable write flash7365 FF1BE0 8D 08 FC sta !CRXFEOFF ; abilita flash banco $F07366 FF1BE3 A2 7F ldx #$7F7367 FF1BE5 8E 0E FD stx VIA0+VIAIER ; disabilita interrupt VIA 07368 FF1BE8 8E 0D FD stx VIA0+VIAIFR ; ed azzera tutti i flag7369 FF1BEB 8E 1E FD stx VIA1+VIAIER ; disabilita interrupt VIA 17370 FF1BEE 8E 1D FD stx VIA1+VIAIFR ; ed azzera tutti i flag7371 FF1BF1 78 sei7372 FF1BF2 INDEX167373 FF1BF2 C2 10 rep #PXFLAG7374 .LONGI on7375 .MNLIST7376 FF1BF4 A2 07 00 ldx #$077377 FF1BF7 20 97 1A _?ff: jsr _erase ; erase sector X7378 FF1BFA B0 1A bcs _fail1 ; fail sector7379 FF1BFC 70 0D bvs ?02 ; salta settore7380 FF1BFE 20 F9 1A jsr _sctrpgm7381 FF1C01 B0 2C bcs _fail2 ; fail pgm7382 FF1C03 70 06 bvs ?02 ; salta settore7383 FF1C05 20 65 1C jsr _okbeep7384 FF1C08 20 7D 1C jsr _delay7385 FF1C0B CA ?02: dex7386 FF1C0C 10 E9 bpl _?ff7387 FF1C0E A9 80 lda #$807388 FF1C10 1C 01 FD trb VIA0+VIAPRA ; reset7389 FF1C13 EA ?03: nop7390 FF1C14 80 FD bra ?0373917392 FF1C16 _fail1:7393 FF1C16 A9 B0 lda #10110000B ; CTC 2 in modo 0 - 2 bytes7394 FF1C18 8D 4B FD sta CTC0+CTCCTRL7395 FF1C1B A9 D0 lda #<20007396 FF1C1D 8D 4A FD sta CTC0+CTCCNT27397 FF1C20 A9 07 lda #>20007398 FF1C22 8D 4A FD sta CTC0+CTCCNT27399 FF1C25 A9 08 lda #$087400 FF1C27 1C 2B FD trb PIA0+PIACRB7401 FF1C2A 1C 29 FD trb PIA0+PIACRA7402 ;bra _?ff7403 FF1C2D 80 34 bra _fail3Tue Jul 17 11:00:24 2018 Page 897404 FF1C2F7405 FF1C2F _fail2:7406 FF1C2F 50 20 bvc ?107407 FF1C31 A9 B0 lda #10110000B ; CTC counter 2 in modo 0 - 2 bytes7408 FF1C33 8D 4B FD sta CTC0+CTCCTRL7409 FF1C36 A9 76 lda #01110110B ; CTC counter 1 in modo 3 - 2 bytes7410 FF1C38 8D 4B FD sta CTC0+CTCCTRL7411 FF1C3B A9 90 lda #<400 ; beep 200ms - pausa 200ms7412 FF1C3D 8D 49 FD sta CTC0+CTCCNT17413 FF1C40 A9 01 lda #>4007414 FF1C42 8D 49 FD sta CTC0+CTCCNT17415 FF1C45 A9 40 lda #<1600 ; 4 beep7416 FF1C47 8D 4A FD sta CTC0+CTCCNT27417 FF1C4A A9 06 lda #>16007418 FF1C4C 8D 4A FD sta CTC0+CTCCNT27419 FF1C4F 80 0A bra ?207420 FF1C51 A9 80 ?10: lda #<3200 ; 4 beep7421 FF1C53 8D 4A FD sta CTC0+CTCCNT27422 FF1C56 A9 0C lda #>32007423 FF1C58 8D 4A FD sta CTC0+CTCCNT27424 FF1C5B7425 FF1C5B A9 08 ?20: lda #$08 ; beep ... beep...7426 FF1C5D 0C 2B FD tsb PIA0+PIACRB7427 FF1C60 1C 29 FD trb PIA0+PIACRA7428 ;bra _?ff7429 FF1C63 _fail3:7430 FF1C63 80 FE bra _fail37431 FF1C657432 FF1C65 _okbeep:7433 FF1C65 A9 B0 lda #10110000B ; CTC 2 in modo 0 - 2 bytes7434 FF1C67 8D 4B FD sta CTC0+CTCCTRL7435 FF1C6A A9 96 lda #<1507436 FF1C6C 8D 4A FD sta CTC0+CTCCNT27437 FF1C6F A9 00 lda #>1507438 FF1C71 8D 4A FD sta CTC0+CTCCNT27439 FF1C74 A9 08 lda #$087440 FF1C76 1C 2B FD trb PIA0+PIACRB7441 FF1C79 1C 29 FD trb PIA0+PIACRA7442 FF1C7C 60 rts7443 FF1C7D7444 FF1C7D _delay:7445 FF1C7D A9 2C lda #<300 ; timeout7446 FF1C7F 8D 08 FD sta VIA0+VIAT2CL7447 FF1C82 A9 01 lda #>3007448 FF1C84 8D 09 FD sta VIA0+VIAT2CH7449 FF1C87 A9 20 ?02: lda #T2IFRB7450 FF1C89 2C 0D FD bit VIA0+VIAIFR ; test timeout7451 FF1C8C F0 F9 beq ?02 ; loop7452 FF1C8E 60 rts74537454 ;;_startpgm:7455 ;; jmp _flash7456 FF1C8F7457 ;;_FLASHEND .EQU $7458 ;;_FLASHCNT .EQU ($ - _FLASHSTART)74597460 FF1C8FTue Jul 17 11:00:24 2018 Page 907461 ;----------------------------------------------------------7462 ; stringhe74637464 FF1C8F CRSTR:7465 FF1C8F 0D 3A 3A 45 4D .DB $0D, '::EM $010000-$011FFF->0 * XM $012000-$013FFF->0'20 24 30 31 3030 30 30 2D 2430 31 31 46 4646 2D 3E 30 202A 20 58 4D 2024 30 31 32 3030 30 2D 24 3031 33 46 46 462D 3E 307466 FF1CBF 20 2A 20 46 4D .DB ' * FM $F00000-$F7FFFF->0', 020 24 46 30 3030 30 30 2D 2446 37 46 46 4646 2D 3E 30 00Lines Assembled : 6669 Errors : 0