Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:15 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F8\reset.asmOutput Filename : obj\F8\reset.objListing Has Been Relocated2597 .LIST on25982599 F8FFB1 .INCLUDE inc\dirp00.inc2600 ;----------------------------------------------------------2601 ; DIRP00.ASM2602 ; PROGETTO: B16012603 ;2604 ; Variabili in Direct Page $002605 ;----------------------------------------------------------26062607 ; sezione COMMON -- questo permette di includere il file in piu' file26082609 .LIST on26102611 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026122613 000000 .ABSOLUTE ;; inizia sempre da $002614 000000 .ORG 0x002615 0000002616 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2617 000002 0000 .DW2618 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2619 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2620 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2621 ; <6>: flag warm reset2622 00000D 00 RTCFlag .DB26232624 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12625 ; <7>: device ready2626 ; <6>: compact flash device (C.F.)2627 ; <5>: device identification ok2628 ; <4>: MBR loaded2629 ; <3>: valid signature in MBR2630 ; <2>: first partition found&active2631 ; <1>:2632 ; <0>: valid partition flag26332634 ; <7>: device ready2635 ; <6>: USB device2636 ; <5>: compact flash device (C.F.)2637 ; <4>: device identification ok2638 ; <3>: MBR loaded2639 ; <2>: first partition found&active2640 ; <1>: always 12641 ; <0>: valid partition flag2642 000010Tue Jul 17 11:00:15 2018 Page 226432644 00000E atadev .EQU diskstat26452646 000010 usbdev .DS 2 ; flag flash disk on usb bus #02647 ; <7>: device plugged and ready2648 ; <6>: always 12649 ; <5>: device identification ok2650 ; <4>: MBR loaded2651 ; <3>: valid signature in MBR2652 ; <2>: first partition found&active2653 ; <1>:2654 ; <0>: valid partition flag26552656 000012 diskmax .DS 16 ; disk max. sector's2657 000012 atasec .EQU diskmax2658 00001A usbsec .EQU diskmax+8265926602661 000022 atambr .DS 8 ; data for first partition found in mbr2662 ; first 3 bytes for start sector of partition2663 ; last byte for partition type2664 00002A usbmbr .DS 826652666 000032 ataprt .DS 8 ; total sec's of first partition2667 00003A usbprt .DS 8 ; total sec's of first partition266826692670 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2671 ; <7>: module on2672 ; <6>: ch376 flag2673 ; <5:0>: chip version26742675 000043 00 usb0st .DB ; usb0 status2676 ; <7>: usb0 host mode ok2677 ; <6>: flash disk attached flag2678 ; <5>: usb device attached26792680 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2681 ; <7>: disk format established in bit 0&12682 ; <6>: double step seek done2683 ; <5>: trust format bit's (set after ok r/w)2684 ; <4>: write protect bit (if disk in drive)2685 ; <3>: don't care2686 ; <2>: don't care2687 ; <1>: HD disk if set else DD disk2688 ; <0>: CBM format if set else IBM format26892690 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2691 ; <7>: disk format established in bit 0&12692 ; <6>: change disk simulation (after format)2693 ; <5>: don't care2694 ; <4>: write protect bit (under sw control)2695 ; <3>: don't care2696 ; <2>: don't care2697 ; <1>: HD disk if set else DD disk2698 ; <0>: CBM format if set else IBM format2699Tue Jul 17 11:00:15 2018 Page 32700 000046 00 fdcctl .DB ; fdc controller status2701 ; <7>: drive is attached2702 ; <6>: drive need recalibration (restore)2703 ; <5>: FDC controller ok2704 ; <4>: motor on2705 ; <3>: dma is active2706 ; <2>: dma chip ok (post routine)2707 ; <1>: clock rate (1=HD,0=DD)2708 ; <0>: disk ready27092710 000047 00 fdctrk .DB ; fd: current seek track2711 000048 00 fdcerr .DB ; fd: last error code2712 000049 00 ataerr .DB ; ata: last error code2713 00004A 00 ataxer .DB ; ata: last extended error code27142715 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27162717 00004C 0000 MemTop .DW ; top memoria RAM2718 00004E 00 .DB ; banco top mem27192720 00004F 00 DflTxtIn .DB ; device di default text input2721 000050 00 DflTxtOut .DB ; device di default text output27222723 000051 COPPtr LP ; long pointer for COP decoding2724 000054 00 COPIdx .DB ; COP signature/index27252726 000055 00 BiosEnt .DB ; flag accesso a bios setup27272728 ; variabili utilizzate da ACIA2729 000056 spwrk .DS $3027302731 ; bios mem2732 000086 0000 nsize .DW ; dimensione blocco da allocare2733 ;bsize .DW ; dimensione vera blocco free2734 000088 0000 splitsz .DW ; dimensione blocco splittato2735 00008A 0000 bfree .DW ; puntatore blocco free2736 00008C 0000 hdrptr .DW ; puntatore header heap27372738 00008E 0000 pbrklv .DW ; current break level of current process2739 000090 0000 pbrkmin .DW ; minimum breal level of current process2740 000092 0000 pbrkmax .DW ; maximum breal level of current process2741 0000942742 ; bios temp. work area2743 000094 bwrktmp .DS $2827442745 0000BC 00 coptmp .DB ; temp. used while cop27462747 0000BD 00 tstser .DB ; check ser/usb test board post2748 ; <7>: VIA2 ok2749 ; <6>: PICRAM ok2750 ; <1>: UART 16C550 ok2751 ; <0>: R65C51 ok275227532754 ;crc16 .DW27552756 0000BD .RELATIVETue Jul 17 11:00:15 2018 Page 427572758 .ENDS27592760 [01] .IFDEF _ACIA_INC_2761 F8FFB1 .INCLUDE INC\SP.INC2762 ;;2763 ;; Copyright (c) 2016 Marco Granati <mg@unet.bz>2764 ;;2765 ;; Permission to use, copy, modify, and distribute this software for any2766 ;; purpose with or without fee is hereby granted, provided that the above2767 ;; copyright notice and this permission notice appear in all copies.2768 ;;2769 ;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES2770 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF2771 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR2772 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES2773 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN2774 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF2775 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.2776 ;;27772778 ;; name: sp.inc2779 ;; rev.: 2016/07/282780 ;; bios C816 version v1.027812782 .LIST on27832784 000001 SOH .EQU $012785 000002 STX .EQU $022786 000003 ETX .EQU $032787 000004 EOT .EQU $042788 000005 ENQ .EQU $052789 000006 ACK .EQU $062790 000010 DLE .EQU $102791 000016 SYN .EQU $1627922793 002000 SOBUFSIZ .EQU $2000 ; dimensione coda TX1/TX2 ACIA (8K)2794 ;SOBUFSIZ .EQU $0100 ; dimensione coda TX1/TX2 ACIA (8K)2795 004000 SIBUFSIZ .EQU $4000 ; dimensione coda RX1/RX2 ACIA (16K)2796 ;SIBUFSIZ .EQU $0100 ; dimensione coda RX1/RX2 ACIA (16K)27972798 000080 NGUARD1 .EQU $80 ; numero bytes di guardia buffer RX XON/XOFF2799 000040 NGUARD2 .EQU $40 ; numero bytes di guardia buffer RX handshake2800 ;NGUARD1 .EQU $40 ; numero bytes di guardia buffer RX XON/XOFF2801 ;NGUARD2 .EQU $20 ; numero bytes di guardia buffer RX handshake2802 001000 NFREE1 .EQU $1000 ; minimo posto in coda RX per cancellare pausa remota2803 000800 NFREE2 .EQU $08002804 ;NGUARD3 .EQU $F02805 ;NGUARD4 .EQU $F828062807 ;---------------------------------------------------------------------------2808 ; direct page var's for serial ports handling2809 ;---------------------------------------------------------------------------28102811 DPSP: .SECTION page0, common, ref_only, offset spwrk ;ACIA D.P.28122813 000056 _DPSP_START .DS 0Tue Jul 17 11:00:15 2018 Page 528142815 ; WARNING: not change order and type of the following variables28162817 ; acia 1 var's2818 000056 00 splin .DB ; interrupt status register2819 000057 00 spcsr .DB ; control status register2820 000058 00 spfr .DB ; format register2821 000059 00 spout .DB ; XON/XOFF send flag28222823 ; acia 2 var's2824 00005A 00 splin2 .DB ; interrupt status register2825 00005B 00 spcsr2 .DB ; control status register2826 00005C 00 spfr2 .DB ; format register2827 00005D 00 spout2 .DB ; XON/XOFF send flag28282829 ; serial port's mode & status2830 00005E 00 spmode .DB ; <7>: 0=no handshake, 1=handshake2831 ; <6>: 0=software/1=hardware handshake2832 ; <5>: not used2833 ; <4>: baud rate: 0=19200, 1=384002834 ; <3>: 0=odd parity, 1=even parity2835 ; <2>: 0=no parity, 1=parity as specified2836 ; by bit <3>2837 ; <1>: interface type: 0=RS232, 1=RS4852838 ; <0>: RS232: uplink flow control (RTS/DCD)2839 ; RS485: 120 ohm termination on2840 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02841 00005F2842 00005F 00 spstat .DB ; serial port status2843 ; <7>: rx error (data discarded)2844 ; <6>: rx buffer overflow2845 ; <5>: remote disconnession (DSR line = 1)2846 ; <4>: output buffer overflow2847 ; <3>: not used2848 ; <2>: framing error2849 ; <1>: parity error2850 ; <0>: overrun error28512852 000060 00 sppause .DB ; local/remote pause flag's2853 ; <7>: remote pause (sent an XON or set RTS=1)2854 ; <6>: local pause (received an XON or CTS=1)28552856 000061 00 sptmp .DB ; temp. byte used while get data28572858 ; serial port's mode & status2859 000062 00 spmode2 .DB ; <7>: 0=no handshake, 1=handshake2860 ; <6>: 0=software/1=hardware handshake2861 ; <5>: not used2862 ; <4>: baud rate: 0=19200, 1=384002863 ; <3>: 0=odd parity, 1=even parity2864 ; <2>: 0=no parity, 1=parity as specified2865 ; by bit <3>2866 ; <1>: interface type: 0=RS232, 1=RS4852867 ; <0>: RS232: uplink flow control (RTS/DCD)2868 ; RS485: 120 ohm termination on2869 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02870 000063Tue Jul 17 11:00:15 2018 Page 62871 000063 00 spstat2 .DB ; serial port status2872 ; <7>: rx error (data discarded)2873 ; <6>: rx buffer overflow2874 ; <5>: remote disconnession (DSR line = 1)2875 ; <4>: output buffer overflow2876 ; <3>: not used2877 ; <2>: framing error2878 ; <1>: parity error2879 ; <0>: overrun error28802881 000064 00 sppause2 .DB ; local/remote pause flag's2882 ; <7>: remote pause (sent XOFF/XON or RTS=1/0)2883 ; <6>: local pause (rx XOFF/XON or CTS=0/1)28842885 000065 00 sppost .DB ; after POST must hold $C028862887 000066 0000 ibuftail .DW ; pointer to tail of input buffer2888 000068 0000 ibufhead .DW ; pointer to head of input buffer2889 00006A 0000 ibuftail2 .DW2890 00006C 0000 ibufhead2 .DW28912892 00006E 0000 obuftail .DW ; pointer to tail of output buffer2893 000070 0000 obufhead .DW ; pointer to head of output buffer2894 000072 0000 obuftail2 .DW2895 000074 0000 obufhead2 .DW28962897 000076 0000 ibufcnt .DW ; count of bytes in input buffer2898 000078 0000 obufcnt .DW ; count of bytes in output buffer2899 00007A 0000 ibufcnt2 .DW2900 00007C 0000 obufcnt2 .DW29012902 00007E 0000 icntmin .DW ; min. count for clear remote pause2903 000080 0000 icntmax .DW ; max. count for set remote pause2904 000082 0000 icntmin2 .DW2905 000084 0000 icntmax2 .DW29062907 000086 _DPSP_END .DS 02908 000030 DPSPSIZ .EQU (_DPSP_END - _DPSP_START)290929102911 .ENDS29122913 00005F ACIArxe_1 .EQU spstat2914 000063 ACIArxe_2 .EQU spstat22915 00005E ACIAhsk_1 .EQU spmode2916 000062 ACIAhsk_2 .EQU spmode22917 000060 ACIAPause_1 .EQU sppause2918 000064 ACIAPause_2 .EQU sppause22919 000057 ACIAcsr_1 .EQU spcsr2920 00005B ACIAcsr_2 .EQU spcsr22921 000058 ACIAfr_1 .EQU spfr2922 00005C ACIAfr_2 .EQU spfr22923 000060 ACIAOut_1 .EQU sppause2924 000064 ACIAOut_2 .EQU sppause22925 000076 ACIAICnt_1 .EQU ibufcnt2926 00007A ACIAICnt_2 .EQU ibufcnt22927 000068 ACIAIHead_1 .EQU ibufheadTue Jul 17 11:00:15 2018 Page 72928 00006C ACIAIHead_2 .EQU ibufhead22929 000066 ACIAITail_1 .EQU ibuftail2930 00006A ACIAITail_2 .EQU ibuftail22931 000078 ACIAOCnt_1 .EQU obufcnt2932 00007C ACIAOCnt_2 .EQU obufcnt22933 000070 ACIAOHead_1 .EQU obufhead2934 000074 ACIAOHead_2 .EQU obufhead22935 00006E ACIAOTail_1 .EQU obuftail2936 000072 ACIAOTail_2 .EQU obuftail229372938 002000 ACIAOBUFLEN .EQU SOBUFSIZ2939 004000 ACIAIBUFLEN .EQU SIBUFSIZ2940 050000 ACIAOUTBUF1 .EQU SPOUTBUFF2941 052000 ACIAOUTBUF2 .EQU SPOUTBUFF22942 054000 ACIAINBUF1 .EQU SPINBUFF2943 058000 ACIAINBUF2 .EQU SPINBUFF229442945 000061 ACIATmp .EQU sptmp29462964 .LIST on29652966 000060 KBDBUFLEN .EQU 96 ; dimensione buffer di tastiera29672968 DIRP01: .SECTION page0, ref_only, common ;Direct-Page 0129692970 000000 .ABSOLUTE ;; inizia sempre da $002971 000000 .ORG 0x0029722973 0000002974 000000 KbdBuf .DS KBDBUFLEN ; buffer della tastiera2975 000060 00 KbdITail .DB ; coda buffer tastiera2976 000061 00 KbdIHead .DB ; testa buffer tastiera2977 000062 00 KbdCnt .DB ; numero bytes nel buffer2978 000063 00 KbdShift .DB2979 000064 00 KbdFlag .DB2980 000065 00 KbdToggle .DB2981 000066 00 KbdSt .DB ; status tastiera dopo reset2982 000067 00 PS2Ctl .DB ; flag controller PS2 keyboard29832984 000068 00 LCDFlag .DB2985 000069 00 LCDTmp .DB2986 00006A 0000 LCDVal .DW29872988 00006C 00 VBBFlag .DB ; flag video board2989 00006D 00 VBBRam .DB ; flag video RAM29902991 00006E 00 ScnLinTmp .DB2992 00006F 00 ScnChBase .DB ; base video ram VDC2993 000070 00 ScnAttBase .DB ; base ram attributi VDC2994 000071 00 ScnCursMode .DB ; VDC cursore default2995 000072 00 ScnSaveAttr .DB2996 000073 00 ScnInsert .DB2997 000074 00 ScnAutoIns .DB ; bit 7 -> autoins - bit 6 -> modo input2998 000075 00 ScnScroll .DB2999 000076 00 ScnMaxRow .DB ; max. righe finestra (-1)3000 000077 00 ScnMaxCols .DB ; max. colonne finestra (-1)3001Tue Jul 17 11:00:15 2018 Page 83002 000078 ScnMapTabs1 .DS 103003 000082 ScnMapTabs2 .DS 43004 0000863005 000086 0000 ScnPtr .DW ; puntatore video ram linea corrente3006 000088 00 .DB30073008 000089 00 ScnFiltLen .DB ; lunghezza set caratteri filtro30093010 00008A 0000 ScnAtPtr .DW ; puntatore attributi ram linea corrente3011 00008C 00 .DB30123013 00008D 00 ScnTmpx .DB ; temporaneo: durante put char3014 00008E3015 00008E 00 ScnTop .DB ; riga superiore finestra3016 00008F 00 ScnLeft .DB ; colonna sinistra finestra3017 000090 00 ScnBottom .DB ; riga inferiore finestra3018 000091 00 ScnRight .DB ; colonna destra finestra3019 000092 00 ScnAttr .DB ; attributo default3020 000093 00 ScnAttr2 .DB ; attributo alternativo3021 000094 00 ScnRow .DB ; riga cursore3022 000095 00 ScnCol .DB ; colonna cursore3023 000096 00 ScnRowStart .DB ; riga di start input3024 000097 00 ScnInput .DB ; riga di fine input3025 000098 00 ScnColStart .DB ; colonna di start input3026 000099 00 ScnSaveX .DB3027 00009A 00 ScnSaveY .DB3028 00009B 00 ScnTmpL .DB3029 00009C 00 ScnTmpH .DB3030 00009D 00 ScnSaveRow .DB3031 00009E 00 ScnSaveCol .DB3032 00009F 00 ScnCurChr .DB3033 0000A0 00 ScnLstChr .DB3034 0000A1 00 ScnCR .DB3035 0000A2 0000 ScnPrm .DW ; puntatore long utilizzato da print imm3036 0000A4 00 .DB ; banco puntatore ScnPrm3037 0000A5 00 ScnMode .DB ; flag modo schermo30383039 0000A6 ScnPtr1 LP30403041 0000A9 00 ScnDefCol .DB ; default foreground color30423043 0000AA ScnPtr2 LP30443045 0000AD 00 ScnDefBkgCol .DB ; default background color3046 0000AE 00 ScnInpRow .DB ; modo input line: riga start input3047 0000AF 00 ScnInpCol .DB ; modo input line: colonna start input3048 0000B0 00 ScnLstRow .DB ; modo input line: riga stop input3049 0000B1 00 ScnLstCol .DB ; modo input line: colonna stop input3050 0000B2 00 ScnFlag .DB ; Bit 7: input line - Bit 6: input riga unica3051 0000B3 00 ScnMask .DB ; flag tasti funzione editor di linea3052 0000B4 00 ScnFilt .DB ; filtro tasti editor di linea3053 0000B5 00 ScnCntrl .DB ; flag ASCII/CONTROL3054 ;DflTxtIn .DB ; device di default text input3055 ;DflTxtOut .DB ; device di default text output3056 0000B63057 000047 SCNCLRLEN .EQU ($ - ScnLinTmp - 1)3058Tue Jul 17 11:00:15 2018 Page 93059 ;SCNCLRLEN .EQU (DflTxtOut - ScnLinTmp)30603061 ; variabili monitor3062 0000B6 00 SMAddrL .DB ; address low/high3063 0000B7 00 SMAddrH .DB3064 0000B8 00 SMAddrK .DB ; address bank3065 0000B9 00 SMFlag32 .DB ; flag parametro 32 bit3066 0000BA 00 SMTmpL .DB ; temp. low/high3067 0000BB 00 SMTmpH .DB3068 0000BC 00 SMTmpK .DB ; temp. bank3069 0000BD 00 SMTmpKK .DB ; high byte param. 32 bit3070 0000BE 00 SMSizeL .DB ; size low/high3071 0000BF 00 SMSizeH .DB3072 0000C0 00 SMSizeK .DB ; size bank3073 0000C1 00 SMXAddrL .DB ; address low/high XM3074 0000C2 00 SMXAddrH .DB3075 0000C3 00 SMXAddrK .DB ; address bank XM3076 0000C4 00 SMbndx .DB ; indice input buffer3077 0000C5 00 SMnprm .DB ; numero parametri riga di comando3078 0000C6 00 SMdumb .DB3079 0000C7 00 SMkr .DB3080 0000C8 0000 SMpc .DW3081 0000CA 00 SMsr .DB3082 0000CB 00 SMbr .DB3083 0000CC 0000 SMdp .DW3084 0000CE 0000 SMac .DW3085 0000D0 0000 SMxr .DW3086 0000D2 0000 SMyr .DW3087 0000D4 0000 SMsp .DW30883089 0000D6 00 SMAuxL .DB3090 0000D7 00 SMAuxH .DB30913092 0000D8 00 asmlong .DB ; flag for CPU in 16 mode3093 ; <7> -> A/M in 16 bit mode3094 ; <6> -> X/Y in 16 bit mode3095 0000D9 00 asmcpu .DB ; <7> -> 8 bit family3096 ; <6> -> 65C02 cmos version30973098 0000DA 00 SMctx .DB ; context (if = $00 no quit command)3099 0000DB SMrsm LP ; long pointer to resume caller context31003101 0000DE 00 rtcadr .DB ; rtc internal ram address3102 0000DF 00 rtcbnk .DB ; RTC internal bank ram3103 0000E0 00 cmdlin .DB ;3104 0000E1 00 SMesc .DB31053106 0000E2 SMXTmp: .DS 26 ; 26 bytes tmp31073108 0000E2 SMTmp2 .EQU SMXTmp3109 0000E4 SMTmp3 .EQU SMXTmp+23110 0000E6 SMdwTmp1 .EQU SMXTmp+43111 0000EA SMdwTmp2 .EQU SMXTmp+83112 0000EE SMFsrc .EQU SMXTmp+12 ; source bank for flash update3113 0000EF SMFflag .EQU SMXTmp+13 ; flag file for flash update3114 0000F0 SMXPos2 .EQU SMXTmp+143115 0000F1 SMYPos2 .EQU SMXTmp+15Tue Jul 17 11:00:15 2018 Page 103116 0000F2 SMXPos3 .EQU SMXTmp+163117 0000F3 SMYPos3 .EQU SMXTmp+173118 ;SMAuxL .EQU SMXTmp+183119 ;SMAuxH .EQU SMXTmp+193120 0000F6 SMXPos .EQU SMXTmp+203121 0000F7 SMYPos .EQU SMXTmp+213122 0000F8 SMdwTmp3 .EQU SMXTmp+2231233124 0000E2 atcmd .EQU SMXTmp ; save @ command3125 0000E3 atnum .EQU SMXTmp+1 ; @ command index3126 0000E4 atflag .EQU SMXTmp+2 ; @ L,S,V,R,W start address flag3127 0000E5 atbnk .EQU SMXTmp+3 ; @ L,S,V,R,W bank3128 0000E6 atstr .EQU SMXTmp+4 ; @ command string start (word)3129 0000E8 atstart .EQU SMXTmp+6 ; @ L,S,V,R,W start address (word)3130 0000EA atend .EQU SMXTmp+8 ; @ S,W end address (word)3131 0000EC atbuf .EQU SMXTmp+10 ; @ local buffer pointer (word)3132 0000EE atipb .EQU SMXTmp+12 ; @ bank of input buffer3133 0000EF atdir .EQU SMXTmp+13 ; @ load dir flag3134 0000F0 atptr .EQU SMXTmp+14 ; @ load dir pointer (word)3135 0000F2 atsiz .EQU SMXTmp+16 ; @ buffer size (word)3136 0000F5 atlp .EQU SMXTmp+19 ; @ long pointer3137 0000F8 atsa .EQU SMXTmp+22 ; @ sa31383139 0000E2 btmpx .EQU SMXTmp ; asc2bin conversion3140 0000E3 brtcsec .EQU SMXTmp+13141 0000E4 brtcmin .EQU SMXTmp+23142 0000E5 brtchour .EQU SMXTmp+33143 0000E6 brtcday .EQU SMXTmp+43144 0000E7 brtcmonth .EQU SMXTmp+53145 0000E8 brtcyear .EQU SMXTmp+63146 0000E9 brtcct .EQU SMXTmp+7314731483149 0000FC .RELATIVE31503151 .ENDS31523176 .LIST on31773178 05C000 SOBUFADDR3 .EQU SPOUTBUFF33179 05D000 SIBUFADDR3 .EQU SPINBUFF33180 001000 SOBUFSIZ3 .EQU $10003181 001000 SIBUFSIZ3 .EQU $100031823183 060000 SOBUFADDR4 .EQU SPOUTBUFF43184 068000 SIBUFADDR4 .EQU SPINBUFF43185 ;SOBUFSIZ4 .EQU $10003186 ;SIBUFSIZ4 .EQU $10003187 008000 SOBUFSIZ4 .EQU $80003188 008000 SIBUFSIZ4 .EQU $800031893190 000200 NGUARD31 .EQU $0200 ; numero bytes di guardia buffer RX XON/XOFF3191 000100 NGUARD32 .EQU $0100 ; numero bytes di guardia buffer RX handshake3192 000800 NFREE31 .EQU $0800 ; minimo posto in coda RX per cancellare pausa remota3193 000400 NFREE32 .EQU $040031943195 ;---------------------------------------------------------------------------Tue Jul 17 11:00:15 2018 Page 113196 ; direct page var's for test serial ports/usb handling3197 ;---------------------------------------------------------------------------31983199 DPSP2: .SECTION page0, common, ref_only ;UART D.P.32003201 000000 00 usbslv .DB ; <7>: plugged-in, <6>: plug-in pending3202 000001 00 usbum .DB ; <7>: pending message, <6>: connected3203 000002 00 usbcnt1 .DB ; timeout UM245 plug-in detection3204 000003 usbbuf .DS 83205 00000B 00 usbtim .DB3206 00000C 00 usbcnt .DB3207 00000D 00 usbmst .DB3208 00000E 0000 usbsiz .DW3209 000010 usbptr LP3210 000013 00 usbtmp .DB3211 000014 00 usbcmp .DB32123213 ; serial port 65C513214 000015 00 spmode3 .DB ; <7>: 0=no handshake, 1=handshake3215 ; <6>: 0=software/1=hardware handshake3216 ; <5>: not used3217 ; <4>: not used3218 ; <3>: 0=odd parity, 1=even parity3219 ; <2>: 0=no parity, 1=parity as specified3220 ; by bit <3>3221 ; <1:0> : baud rate3222 ; 00 = 192003223 ; 01 = 384003224 ; 10 = 576003225 ; 11 = 1152003226 0000163227 000016 00 splin3 .DB ; <7>: /CTS line level3228 ; <6>: /DSR line status3229 0000173230 000017 00 sppause3 .DB3231 000018 00 spout3 .DB3232 000019 00 spstat3 .DB ; staus3233 ; <7>: rx error (data discarded)3234 ; <6>: rx buffer overflow3235 ; <5>: remote disconnession (/DSR line = 1)3236 ; <4>: output buffer overflow3237 ; <3>: not used3238 ; <2>: framing error3239 ; <1>: parity error3240 ; <0>: overrun error32413242 00001A 00 sptmp3 .DB32433244 00001B 0000 ibuftail3 .DW3245 00001D 0000 ibufhead3 .DW3246 00001F 0000 obuftail3 .DW3247 000021 0000 obufhead3 .DW3248 000023 0000 ibufcnt3 .DW3249 000025 0000 obufcnt3 .DW3250 000027 0000 icntmin3 .DW3251 000029 0000 icntmax3 .DW3252Tue Jul 17 11:00:15 2018 Page 123253 ; serial port 16C5503254 00002B 00 spmode4 .DB ; <7>: 0=no handshake, 1=handshake3255 ; <6>: 0=software/1=hardware handshake3256 ; <5>: not used3257 ; <4>: not used3258 ; <3>: 0=odd parity, 1=even parity3259 ; <2>: 0=no parity, 1=parity as specified3260 ; by bit <3>3261 ; <1:0> : baud rate3262 ; 00 = 192003263 ; 01 = 384003264 ; 10 = 576003265 ; 11 = 1152003266 00002C3267 00002C 00 splin4 .DB ; <7>: /DSR line level3268 ; <6>: /CTS line status3269 00002D3270 00002D 00 sppause4 .DB3271 00002E 00 spout4 .DB3272 00002F 00 spstat4 .DB ; staus3273 ; <7>: rx error (data discarded)3274 ; <6>: rx buffer overflow3275 ; <5>: remote disconnession (/DSR line = 1)3276 ; <4>: output buffer overflow3277 ; <3>: break3278 ; <2>: framing error3279 ; <1>: parity error3280 ; <0>: overrun error32813282 000030 00 sptmp4 .DB32833284 000031 0000 ibuftail4 .DW3285 000033 0000 ibufhead4 .DW3286 000035 0000 obuftail4 .DW3287 000037 0000 obufhead4 .DW3288 000039 0000 ibufcnt4 .DW3289 00003B 0000 obufcnt4 .DW3290 00003D 0000 icntmin4 .DW3291 00003F 0000 icntmax4 .DW32923293 000041 00 spcnt4 .DB3294 000042 00 uartlsr .DB3295 000043 00 uartiir .DB32963297 000044 usb0name .DS 3632983299 .ENDS33003306 .LIST on3307 F8FFB13308 .CODEF83309 .GLOBAL SysStart, LF8Tst3310 .EXTERN VDCSetup, VDCREG16, fdinit, vdinit3311 .EXTERN initata, showusb0, shusb0fat, _ScnInit33123313 .EXTERN _KbdCnt, _KbdToggle, _KbdSt, _PS2Ctl, _KbdITail3314 .EXTERN _KbdIHead, _KbdShift, _KbdFlag, _LCDFlagTue Jul 17 11:00:15 2018 Page 1333153316 .EXTERN LCDSetup, GetBufKey3317 .EXTERN TORAM, intsr33183319 ; valore contatore T1 VIA 0 per IRQ con periodo di TJIFFY ms3320 009C3E VIA0T1CNT .SET ((TJIFFY * 1000 * PHI2) - 2)33213322 00EA5E VIA2T1CNT .SET ((15000 * PHI2) - 2) ; 15ms timeout33233324 ; valore contatore T1 VIA 1 per PBt -> 1KHZ3325 0007CE VIA1T1CNT .SET ((500 * PHI2) - 2)33263327 ;VIA0INT .EQU ($80.OR.CA2IFRB.OR.CB2IFRB.OR.T1IFRB)3328 0000C1 VIA0INT .EQU ($80.OR.CA2IFRB.OR.T1IFRB)33293330 000089 VIA1INT .EQU ($80.OR.CA2IFRB.OR.CB2IFRB)33313332 00FC04 BITCR2 .EQU $FC043333 00FC05 BITCR2ON .EQU $FC0533343335 0007D0 KBDTMO .EQU 2000 ; timeout tastiera in ms3336 F812863337 0001F4 F8TMO .EQU 500 ; timeout <F8> = 500ms33383339 ;--------------------------------------------------------------------3340 ; SYSTEM BOOTSTRAP3341 ;--------------------------------------------------------------------3342 F81286 SysStart:3343 ; setup iniziale chips I/O3344 F81286 CPU083345 F81286 E2 30 sep #(PMFLAG.OR.PXFLAG)3346 .LONGA off3347 .LONGI off3348 .MNLIST3349 ;ldx #RTCCTRLA ;RTC OFF -- reset RTC3350 ;stx RTCALE3351 ;stz RTCDATA33523353 F81288 EA nop3354 F81289 EA nop3355 F8128A EA nop3356 F8128B 90 01 bcc $+33357 F8128D E8 inx3358 F8128E E8 inx3359 F8128F3360 004D43 MSGN .EQU 'MC'3361 F8128F ACC163362 F8128F C2 20 rep #PMFLAG3363 .LONGA on3364 .MNLIST3365 F81291 A9 43 4D lda #MSGN3366 F81294 ACC083367 F81294 E2 20 sep #PMFLAG3368 .LONGA off3369 .MNLIST3370 F812963371 ; setup iniziale CTCTue Jul 17 11:00:15 2018 Page 143372 F81296 A9 30 lda #00110000B ; CTC counter 0 in modo 0 - 2 bytes3373 F81298 8D 4B FD sta CTC0+CTCCTRL3374 F8129B A9 70 lda #01110000B ; CTC counter 1 in modo 0 - 2 bytes3375 F8129D 8D 4B FD sta CTC0+CTCCTRL3376 F812A0 A9 B0 lda #10110000B ; CTC counter 2 in modo 0 - 2 bytes3377 F812A2 8D 4B FD sta CTC0+CTCCTRL3378 F812A53379 ; setup VIA 0 & 13380 F812A5 A2 7F ldx #$7F3381 F812A7 8E 0E FD stx VIA0+VIAIER ; disabilita interrupt VIA 03382 F812AA 8E 0D FD stx VIA0+VIAIFR ; ed azzera tutti i flag3383 F812AD 8E 1E FD stx VIA1+VIAIER ; disabilita interrupt VIA 13384 F812B0 8E 1D FD stx VIA1+VIAIFR ; ed azzera tutti i flag3385 F812B3 A9 FE lda #$FE ; VIA 0 PA0 -> XM16 -> LOW3386 F812B5 8D 01 FD sta VIA0+VIAPRA3387 F812B8 A9 FF lda #$FF ; VIA 0 -> wait disabilitati3388 F812BA 8D 00 FD sta VIA0+VIAPRB3389 F812BD 8D 11 FD sta VIA1+VIAPRA ; VIA 1 PORT A uscite alte3390 F812C0 8D 10 FD sta VIA1+VIAPRB ; VIA 1 PORT B uscite alte3391 F812C3 8D 03 FD sta VIA0+VIADDRA ; VIA 0 PORT A in output3392 F812C6 8D 13 FD sta VIA1+VIADDRA ; VIA 1 PORT A in output3393 F812C9 A9 BF lda #10111111B ; VIA 0 PB6 in input (1KHZ)3394 F812CB 8D 02 FD sta VIA0+VIADDRB3395 F812CE A9 AF lda #10101111B ; VIA 0 PB6, PB4 in input3396 F812D0 8D 12 FD sta VIA1+VIADDRB3397 ; S.R. disabilitato, latch disabilitato, T1 free-run3398 ; T2 one shot - PB7 disabilitato - T1 & T2 count PHI23399 F812D3 A9 40 lda #$403400 F812D5 8D 0B FD sta VIA0+VIAACR3401 ; S.R. disabilitato, latch disabilitato, T1 free-run3402 ; T2 one shot - PB7 abilitato - T1 count PHI23403 ; T2 count PB6 (1KHz) - counter risoluzione 1 ms3404 F812D8 A9 E0 lda #$E03405 F812DA 8D 1B FD sta VIA1+VIAACR3406 ; CA2, CA1, CB2 fronte negativo, CB1 fronte positivo3407 F812DD A9 32 lda #00110010B3408 F812DF 8D 0C FD sta VIA0+VIAPCR3409 ; CA2, CB2 fronte negativo, CA1 e CB1 fronte positivo3410 F812E2 A9 33 lda #00110011B3411 F812E4 8D 1C FD sta VIA1+VIAPCR3412 F812E7 A9 CE lda #.LOW.VIA1T1CNT ; imposta VIA 1 T13413 F812E9 8D 14 FD sta VIA1+VIAT1CL ; PB7 -> 1KHz3414 F812EC A9 07 lda #.HIGH.VIA1T1CNT3415 F812EE 8D 15 FD sta VIA1+VIAT1CH3416 F812F1 A9 FF lda #$FF ; VIA 1 T2 init a $FFFF3417 F812F3 8D 18 FD sta VIA1+VIAT2CL ; per conteggio iniziale in ms3418 F812F6 8D 19 FD sta VIA1+VIAT2CH34193420 [01] .IF PHI2 = 43421 F812F9 A9 04 lda #$04 ; abilita WAIT ACIA se PHI2 = 4MHz3422 F812FB 1C 00 FD trb VIA0+VIAPRB3423 [00] .ENDIF34243425 ; inizializzazione registri MOS8563 - VDC3426 ;lda #$083427 ;trb VIA1+VIAPRB ; /VDCS0 - write VDC con PHI03428 ;tsb VIA1+VIAPRB ; /VDCS0 - write VDC con PHI0Tue Jul 17 11:00:15 2018 Page 153429 F812FE A9 08 lda #$08 ; VSYNC negativi su porta VGA3430 F81300 1C 11 FD trb VIA1+VIAPRA3431 ;lda #$20 ; abilita WAIT VDC3432 ;trb VIA0+VIAPRB3433 ;tsb VIA0+VIAPRB34343435 ;lda #$20 ; /MW0 low3436 ;trb VIA1+VIAPRB3437 F813033438 F81303 A9 18 lda #$18 ; enable new FDC/DMA/ATA board3439 F81305 1C 00 FD trb VIA0+VIAPRB ; disable onboard ATA3440 F813083441 ; setup VIA 33442 F81308 A9 7F lda #$7F3443 F8130A 8D CE FD sta !VIA3+VIAIER ; disabilita interrupt3444 F8130D 8D CD FD sta !VIA3+VIAIFR ; ed azzera tutti i flag3445 F81310 A9 07 lda #00000111B ; PA<2:0> out, PA<7:3> input3446 F81312 8D C3 FD sta !VIA3+VIADDRA3447 F81315 A9 7F lda #$7F3448 F81317 8D C2 FD sta !VIA3+VIADDRB ; PB<0:6> out, PB7 in3449 F8131A 9C C1 FD stz !VIA3+VIAPRA ; clear PA in out3450 F8131D A9 58 lda #111110003451 F8131F 8D C0 FD sta !VIA3+VIAPRB3452 F813223453 ; S.R. disabilitato, latch disabilitato, T1 free-run3454 ; T2 one shot - PB7 disabilitato - T1 & T2 count PHI23455 F81322 A9 40 lda #$403456 F81324 8D CB FD sta !VIA3+VIAACR3457 F813273458 ; CB2, CA2, CB1, CA1, CB1 fronte negative edge3459 F81327 A9 22 lda #00100010B3460 F81329 8D CC FD sta !VIA3+VIAPCR3461 F8132C3462 F8132C A9 02 lda #$02 ; imposta dot clock3463 F8132E 1C 11 FD trb VIA1+VIAPRA ; DOTCLOCK 16MHZ - PAL RGB3464 F81331 A2 00 ldx #0 ; indice per setup 16MHZ34653466 F81333 BF 48 AF F8 ?00a: LDA VDCREG16,X3467 F81337 30 0F BMI ?00b3468 F81339 A8 tay3469 F8133A E8 INX3470 F8133B BF 48 AF F8 LDA VDCREG16,X3471 F8133F E8 INX3472 F81340 8C 4E FD STY VDCAddr3473 F81343 8D 4F FD STA VDCData3474 F81346 10 EB BPL ?00a3475 F81348 ?00b:34763477 ; setup PIA 03478 F81348 9C 29 FD stz PIA0+PIACRA ; IRQ disabilitati3479 F8134B 9C 2B FD stz PIA0+PIACRB ; accesso DDRA,DDRB3480 F8134E A9 FF lda #$FF ; porta A output3481 F81350 8D 28 FD sta PIA0+PIADDRA3482 F81353 A9 0F lda #00001111B3483 F81355 8D 2A FD sta PIA0+PIADDRB ; porta B<7:4> input3484 F81358 A9 3C lda #00111100B ; accesso a PRA e PRB3485 F8135A 8D 29 FD sta PIA0+PIACRA ; CA2/CB2 in modo output HTue Jul 17 11:00:15 2018 Page 163486 F8135D 8D 2B FD sta PIA0+PIACRB3487 F81360 9C 28 FD stz PIA0+PIAPRA3488 F81363 9C 2A FD stz PIA0+PIAPRB34893490 ; clear cmos user ram banco 03491 F81366 A2 0A ldx #RTCCTRLA ; accesso CMOS RAM banco 03492 F81368 8E 4C FD stx RTCALE3493 F8136B A9 10 lda #00010000B3494 F8136D 1C 4D FD trb RTCDATA ; banco 03495 F81370 A2 40 ldx #RTCURAM0 ; accesso user ram banco 03496 F81372 A0 3F ldy #(RTCURAM0LAST - RTCURAM0)3497 F81374 8E 4C FD ?01: stx RTCALE ; azzera cmos user ram 03498 F81377 9C 4D FD stz RTCDATA3499 F8137A E8 inx3500 F8137B 88 dey3501 F8137C 10 F6 bpl ?013502 F8137E A2 40 ldx #RTCURAM03503 F81380 8E 4C FD stx RTCALE ; $4035043505 ; setup PIA 1 - LCD3506 F81383 9C 39 FD stz PIA1+PIACRA ; IRQ disabilitati3507 F81386 9C 3B FD stz PIA1+PIACRB ; accesso DDRA,DDRB3508 F81389 A0 FF ldy #$FF ; porta A output3509 F8138B 8C 38 FD sty PIA1+PIADDRA3510 F8138E 9C 3A FD stz PIA1+PIADDRB ; porta B input3511 F81391 A9 04 lda #0000100B ; accesso a PRA3512 F81393 8D 39 FD sta PIA1+PIACRA3513 F81396 A0 02 ldy #0000010B ; linea RW high - E, RS low3514 F81398 8C 38 FD sty PIA1+PIAPRA3515 F8139B A0 00 ldy #03516 F8139D 8C 3A FD ?02: sty PIA1+PIADDRB ; test PIA LCD presente3517 F813A0 CC 3A FD cpy PIA1+PIADDRB3518 F813A3 D0 03 bne ?033519 F813A5 C8 iny3520 F813A6 D0 F5 bne ?023521 F813A8 9C 3A FD ?03: stz PIA1+PIADDRB ; porta B input3522 F813AB 8D 3B FD sta PIA1+PIACRB ; accesso a PRB3523 F813AE D0 05 bne ?04 ; LCD non presente3524 F813B0 A9 80 lda #$80 ; flag LCD presente -> $403525 F813B2 8D 4D FD sta RTCDATA3526 F813B5 E8 ?04: inx ; $413527 F813B6 8E 4C FD stx RTCALE35283529 ; test & setup ACIA3530 F813B9 A9 7F lda #$7F ; cancella IER1/IER23531 F813BB 8D 50 FD sta ACIA+ACIAIER13532 F813BE 8D 54 FD sta ACIA+ACIAIER23533 F813C1 AD 50 FD lda ACIA+ACIAISR1 ; legge registri di stato3534 F813C4 AD 54 FD lda ACIA+ACIAISR2 ; per cancellare flag3535 F813C7 AD 51 FD lda ACIA+ACIACSR1 ; legge registri control status3536 F813CA AD 55 FD lda ACIA+ACIACSR23537 F813CD AD 53 FD lda ACIA+ACIARDR1 ; legge registri RX data3538 F813D0 AD 57 FD lda ACIA+ACIARDR2 ; per cancellare flag3539 F813D3 A9 4E lda #01001110B ; 38400 - 1 stop bit - no echo - ACR3540 F813D5 8D 51 FD sta ACIA+ACIACR1 ; imposta reg. controllo CR3541 F813D8 8D 55 FD sta ACIA+ACIACR23542 F813DB A9 E7 lda #11100111B ; odd parity - 8 bit - RTS/DTR -> HTue Jul 17 11:00:15 2018 Page 173543 F813DD 8D 51 FD sta ACIA+ACIAFR1 ; imposta registro di formato FR3544 F813E0 8D 55 FD sta ACIA+ACIAFR23545 F813E3 9C 52 FD stz ACIA+ACIAACR1 ; parity in status - normal TX3546 F813E6 9C 56 FD stz ACIA+ACIAACR2 ; imposta registri aux. controllo3547 F813E9 A0 80 ldy #$80 ; flag ACIA canale 13548 F813EB AD 51 FD lda ACIA+ACIACSR13549 F813EE 29 20 and #00100000B ; maschera bit CTS1 LVL3550 F813F0 8D 4D FD sta RTCDATA ; salva3551 F813F3 A9 20 lda #00100000B ; inverte CTS13552 F813F5 1C 11 FD trb VIA1+VIAPRA3553 F813F8 AD 51 FD lda ACIA+ACIACSR1 ; legge livello CTS13554 F813FB 29 20 and #00100000B ; maschera bit CTS1 LVL3555 F813FD 4D 4D FD eor RTCDATA ; confronta con lettura precedente3556 F81400 D0 02 bne ?06 ; OK - CTS1 invertito3557 F81402 A0 00 ldy #0 ; ACIA canale 1 BAD3558 F81404 8C 4D FD ?06: sty RTCDATA3559 F81407 E8 inx ; $423560 F81408 8E 4C FD stx RTCALE3561 F8140B A0 40 ldy #$40 ; flag ACIA canale 23562 F8140D AD 55 FD lda ACIA+ACIACSR23563 F81410 29 20 and #00100000B ; maschera bit CTS2 LVL3564 F81412 8D 4D FD sta RTCDATA ; salva3565 F81415 A9 40 lda #01000000B ; inverte CTS23566 F81417 1C 11 FD trb VIA1+VIAPRA3567 F8141A AD 55 FD lda ACIA+ACIACSR2 ; legge livello CTS23568 F8141D 29 20 and #00100000B ; maschera bit CTS2 LVL3569 F8141F 4D 4D FD eor RTCDATA ; confronta con lettura precedente3570 F81422 D0 02 bne ?08 ; OK - CTS2 invertito3571 F81424 A0 00 ldy #0 ; ACIA canale 2 BAD3572 F81426 9C 4D FD ?08: stz RTCDATA3573 F81429 CA dex ; $413574 F8142A 8E 4C FD stx RTCALE3575 F8142D 98 tya3576 F8142E 0C 4D FD tsb RTCDATA ; set flag ACIA canale 23577 F81431 E8 inx ; $423578 F81432 8E 4C FD stx RTCALE3579 F81435 AD 50 FD lda ACIA+ACIAISR1 ; legge registri di stato3580 F81438 AD 54 FD lda ACIA+ACIAISR2 ; per cancellare flag3581 F8143B AD 51 FD lda ACIA+ACIACSR1 ; legge registri control status3582 F8143E AD 55 FD lda ACIA+ACIACSR23583 F81441 AD 53 FD lda ACIA+ACIARDR1 ; legge registri RX data3584 F81444 AD 57 FD lda ACIA+ACIARDR2 ; per cancellare flag3585 F814473586 ; test & setup DMA - non necessario il wait a 4MHz3587 F81447 A0 00 ldy #0 ; flag DMA3588 F81449 8D 9D FD sta DMAWMCLR ; master clear3589 F8144C 8D 8D FD sta DMA0WMCLR ; master clear3590 F8144F EA nop3591 F81450 8D 9C FD sta DMAWCLRFF ; clear FF3592 F81453 8D 8C FD sta DMA0WCLRFF ; clear FF3593 F81456 EA nop3594 F81457 A9 01 lda #00000001B ; M-to-M chan.0&1 - contr. enabled3595 F81459 8D 98 FD sta DMAWCMD ; registro di comando3596 F8145C 9C 88 FD stz DMA0WCMD ; enabled3597 F8145F EA nop3598 F81460 A9 FF lda #$FF ; maschera tutti i bit3599 F81462 8D 9F FD sta DMAMASKTue Jul 17 11:00:15 2018 Page 183600 F81465 8D 8F FD sta DMA0MASK3601 F81468 EA nop3602 ;lda #10001000B ; modo read mem chan 03603 F81469 A9 44 lda #01000100B ; modo read mem chan 03604 F8146B 8D 9B FD sta DMAMODE ; block mode3605 F8146E EA nop3606 ;lda #10000101B ; modo write mem chan 13607 F8146F A9 45 lda #01000101B3608 F81471 8D 9B FD sta DMAMODE ; block mode3609 F81474 EA nop3610 ;lda #01001010B ; modo read mem chan 23611 F81475 A9 46 lda #01000110B3612 F81477 8D 9B FD sta DMAMODE ; single transf.3613 F8147A EA nop3614 ;lda #01001011B ; modo read mem chan 33615 F8147B A9 47 lda #01000111B3616 F8147D 8D 9B FD sta DMAMODE ; single transf.3617 F81480 EA nop3618 F81481 A9 08 lda #00001000B ; demand mode chan 03619 F81483 8D 8B FD sta DMA0MODE3620 F81486 EA nop3621 F81487 A9 09 lda #00001001B ; demand mode chan 13622 F81489 8D 8B FD sta DMA0MODE3623 F8148C EA nop3624 F8148D A9 0A lda #00001010B ; demand mode chan 23625 F8148F 8D 8B FD sta DMA0MODE3626 F81492 EA nop3627 F81493 A9 0B lda #00001011B ; demand mode chan 33628 F81495 8D 8B FD sta DMA0MODE3629 F81498 EA nop3630 F81499 AD 98 FD lda DMASR ; clr status reg.3631 F8149C EA nop3632 F8149D AD 88 FD lda DMA0SR ; clr status reg.3633 F814A0 EA nop3634 F814A1 AD 9E FD lda DMARCNT ; clear mode counter3635 F814A4 EA nop3636 F814A5 AD 8E FD lda DMA0RCNT ; clear mode counter3637 F814A8 EA nop3638 F814A93639 F814A9 9C 90 FD stz DMAC+DMAADDR03640 F814AC 9C 80 FD stz DMAC0+DMAADDR03641 F814AF 9C 90 FD stz DMAC+DMAADDR03642 F814B2 9C 80 FD stz DMAC0+DMAADDR03643 F814B5 9C 91 FD stz DMAC+DMACNT03644 F814B8 9C 81 FD stz DMAC0+DMACNT03645 F814BB 9C 91 FD stz DMAC+DMACNT03646 F814BE 9C 81 FD stz DMAC0+DMACNT036473648 F814C1 9C 92 FD stz DMAC+DMAADDR13649 F814C4 9C 82 FD stz DMAC0+DMAADDR13650 F814C7 9C 92 FD stz DMAC+DMAADDR13651 F814CA 9C 82 FD stz DMAC0+DMAADDR13652 F814CD 9C 93 FD stz DMAC+DMACNT13653 F814D0 9C 83 FD stz DMAC0+DMACNT13654 F814D3 9C 93 FD stz DMAC+DMACNT13655 F814D6 9C 83 FD stz DMAC0+DMACNT13656 F814D9Tue Jul 17 11:00:15 2018 Page 193657 F814D9 9C 94 FD stz DMAC+DMAADDR23658 F814DC 9C 84 FD stz DMAC0+DMAADDR23659 F814DF 9C 94 FD stz DMAC+DMAADDR23660 F814E2 9C 84 FD stz DMAC0+DMAADDR23661 F814E5 9C 95 FD stz DMAC+DMACNT23662 F814E8 9C 85 FD stz DMAC0+DMACNT23663 F814EB 9C 95 FD stz DMAC+DMACNT23664 F814EE 9C 85 FD stz DMAC0+DMACNT236653666 F814F1 9C 96 FD stz DMAC+DMAADDR33667 F814F4 9C 86 FD stz DMAC0+DMAADDR33668 F814F7 9C 96 FD stz DMAC+DMAADDR33669 F814FA 9C 86 FD stz DMAC0+DMAADDR33670 F814FD 9C 97 FD stz DMAC+DMACNT33671 F81500 9C 87 FD stz DMAC0+DMACNT33672 F81503 9C 97 FD stz DMAC+DMACNT33673 F81506 9C 87 FD stz DMAC0+DMACNT336743675 F81509 AD 9B FD lda DMAMODE ; verifica MODE REG.CH03676 ;cmp #10001011B3677 F8150C C9 47 cmp #$473678 ;bne ?10 ; errore3679 F8150E AD 9B FD lda DMAMODE ; verifica MODE REG.CH13680 F81511 C9 47 cmp #$473681 ;cmp #10000111B3682 ;bne ?10 ; errore3683 F81513 AD 9B FD lda DMAMODE ; verifica MODE REG.CH23684 ;cmp #01001011B3685 F81516 C9 47 cmp #$473686 ;bne ?10 ; errore3687 F81518 AD 9B FD lda DMAMODE ; verifica MODE REG.CH33688 ;cmp #01001011B3689 F8151B C9 47 cmp #$473690 ;bne ?10 ; errore3691 F8151D AD 9A FD lda DMARCMD ; verifica registro di comando3692 F81520 C9 01 cmp #00000001B3693 ;bne ?103694 F81522 AD 98 FD lda DMASR ; clr status reg.3695 F81525 EA nop3696 F81526 A9 FF ?09: lda #$FF ; !!!! FAIL SOME TIMES3697 F81528 8D 9F FD sta DMAMASK3698 F8152B EA nop3699 F8152C 8D 8F FD sta DMA0MASK3700 F8152F3701 F8152F AD 9F FD lda DMAMASK ; verifica maschera3702 F81532 C9 FF cmp #$FF3703 ;bne ?093704 ;bne ?103705 F81534 A0 04 ldy #$04 ; flag DMA OK3706 F81536 8C 4D FD ?10: sty RTCDATA ; $42 -> flag DMA37073708 F81539 A0 01 ldy #13709 F8153B AD 8B FD lda DMA0MODE3710 F8153E C9 0B cmp #$0B3711 F81540 D0 28 bne ?10b3712 F81542 C8 iny3713 F81543 AD 8B FD lda DMA0MODETue Jul 17 11:00:15 2018 Page 203714 F81546 C9 0B cmp #$0B3715 F81548 D0 20 bne ?10b3716 F8154A C8 iny3717 F8154B AD 8B FD lda DMA0MODE3718 F8154E C9 0B cmp #$0B3719 F81550 D0 18 bne ?10b3720 F81552 C8 iny3721 F81553 AD 8B FD lda DMA0MODE3722 F81556 C9 0B cmp #$0B3723 F81558 D0 10 bne ?10b3724 F8155A C8 iny3725 F8155B AD 8A FD lda DMA0RCMD ; verifica registro di comando3726 F8155E D0 0A bne ?10b3727 F81560 C8 iny3728 F81561 AD 8F FD lda DMA0MASK ; verifica maschera3729 F81564 C9 FF cmp #$FF3730 ;bne ?093731 F81566 D0 02 bne ?10b3732 F81568 A0 00 ldy #03733 F8156A ?10b:3734 F8156A A9 70 lda #$703735 F8156C 8D 4C FD sta RTCALE ; $703736 F8156F 8C 4D FD sty RTCDATA3737 F815723738 F81572 A0 4E ldy #$4E3739 F81574 8C 4C FD sty RTCALE ; $4E37403741 ; check video board3742 F81577 A9 3C lda #00111100B ; CA2,CB2 HIGH, PRA, PRB3743 F81579 8D 75 FC sta !PIAVBB+PIACRA3744 F8157C 8D 77 FC sta !PIAVBB+PIACRB3745 F8157F A2 FF ldx #$FF3746 F81581 8E 74 FC stx PIAVBB+PIAPRA ; porta A tutte high3747 F81584 8E 76 FC stx PIAVBB+PIAPRB ; porta B tutte high3748 F81587 A9 38 lda #00111000B ; CA2,CB2 HIGH, DDRA, DDRB3749 F81589 8D 75 FC sta !PIAVBB+PIACRA3750 F8158C 8D 77 FC sta !PIAVBB+PIACRB3751 F8158F 8E 74 FC stx PIAVBB+PIADDRA ; pota A tutte out3752 F81592 8E 76 FC stx PIAVBB+PIADDRB ; pota B tutte out3753 F81595 A9 3E lda #00111110B ; CA2 HIGH (FH -), PRA, CA1 fronte +3754 F81597 8D 75 FC sta !PIAVBB+PIACRA ; no IRQ3755 F8159A A9 38 lda #00111000B ; CB2 LOW (FV +), PRA, CA1 non usato3756 F8159C 8D 77 FC sta !PIAVBB+PIACRB ; no IRQ3757 F8159F A2 80 ldx #$80 ; PB7 HIGH -> display off3758 F815A1 8E 76 FC ?12: stx PIAVBB+PIAPRB ; test porta B3759 F815A4 EC 76 FC cpx PIAVBB+PIAPRB3760 F815A7 F0 01 beq ?12a3761 ;jmp ?20a ; video board non presente3762 F815A9 EA nop3763 F815AA E8 ?12a: inx3764 F815AB D0 F4 bne ?123765 F815AD A9 80 lda #$80 ; flag video board3766 F815AF 8D 4D FD sta !RTCDATA ; -> $4E3767 F815B23768 ; HD6445: registri R12 e R13 sono read/write3769 F815B2 A9 0D lda #$0D3770 F815B4 8D 70 FC sta !CRTAddrTue Jul 17 11:00:15 2018 Page 213771 F815B7 A2 00 ldx #03772 F815B9 8E 71 FC ?13: stx CRTData3773 F815BC EC 71 FC cpx CRTData3774 F815BF D0 08 bne ?13a ; R65453775 F815C1 E8 inx3776 F815C2 D0 F5 bne ?133777 F815C4 A9 C0 lda #$C0 ; flag video board + HD64453778 F815C6 8D 4D FD sta !RTCDATA ; -> $4E3779 F815C93780 ; inizializza registri R6545/HD6445 (CRTC)3781 F815C9 A2 00 ?13a: ldx #03782 F815CB BF 08 1F F8 ?13b: LDA >CRTCREG,X3783 F815CF 30 0F BMI ?13c3784 F815D1 A8 tay3785 F815D2 E8 INX3786 F815D3 BF 08 1F F8 LDA >CRTCREG,X3787 F815D7 E8 INX3788 F815D8 8C 70 FC STY CRTAddr3789 F815DB 8D 71 FC STA !CRTData3790 F815DE 10 EB BPL ?13b3791 F815E03792 F815E0 A9 C0 ?13c: lda #$C0 ; palette address = 0, SLW = 1, VGA3793 F815E2 8D 74 FC sta !PIAVBB+PIAPRA3794 F815E53795 ; test VIDEO RAM3796 F815E5 A2 00 ldx #03797 F815E7 9B txy3798 F815E8 8D 0D FC sta !CREMEON ; abilita memoria video3799 F815EB INDEX163800 F815EB C2 10 rep #PXFLAG3801 .LONGI on3802 .MNLIST3803 F815ED A9 55 ?14: lda #$553804 F815EF 9F 00 00 01 sta >VBBCHARRAM,x3805 F815F3 DF 00 00 01 cmp >VBBCHARRAM,x3806 F815F7 D0 6B bne ?16 ; Y = -> fail char. ram3807 F815F9 A9 AA lda #$AA3808 F815FB 9F 00 00 01 sta >VBBCHARRAM,x3809 F815FF DF 00 00 01 cmp >VBBCHARRAM,x3810 F81603 D0 5F bne ?16 ; Y = 0 -> fail char. ram3811 F81605 A9 20 lda #$203812 F81607 9F 00 00 01 sta >VBBCHARRAM,x3813 F8160B E8 inx3814 F8160C E0 00 08 cpx #$08003815 F8160F D0 DC bne ?143816 F81611 BB tyx3817 F81612 A9 55 ?14a: lda #$553818 F81614 9F 00 08 01 sta >VBBATTRRAM,x3819 F81618 DF 00 08 01 cmp >VBBATTRRAM,x3820 F8161C D0 1B bne ?14b3821 F8161E A9 AA lda #$AA3822 F81620 9F 00 08 01 sta >VBBATTRRAM,x3823 F81624 DF 00 08 01 cmp >VBBATTRRAM,x3824 F81628 D0 0F bne ?14b3825 F8162A A9 00 lda #$003826 F8162C 9F 00 08 01 sta >VBBATTRRAM,x3827 F81630 E8 inxTue Jul 17 11:00:15 2018 Page 223828 F81631 E0 00 08 cpx #$08003829 F81634 D0 DC bne ?14a3830 F81636 BB tyx3831 F81637 F0 03 beq ?14c3832 F81639 C8 ?14b: iny ; Y = 1 -> fail attr. ram3833 F8163A D0 28 bne ?163834 F8163C A9 55 ?14c: lda #$553835 F8163E 9F 00 10 01 sta >VBBPALRAM,x3836 F81642 DF 00 10 01 cmp >VBBPALRAM,x3837 F81646 D0 1B bne ?153838 F81648 A9 AA lda #$AA3839 F8164A 9F 00 10 01 sta >VBBPALRAM,x3840 F8164E DF 00 10 01 cmp >VBBPALRAM,x3841 F81652 D0 0F bne ?153842 F81654 A9 F0 lda #$F03843 F81656 9F 00 10 01 sta >VBBPALRAM,x3844 F8165A E8 inx3845 F8165B E0 00 04 cpx #$04003846 F8165E D0 DC bne ?14c3847 F81660 18 clc ; RAM ok3848 F81661 F0 02 beq ?16a3849 F81663 C8 ?15: iny ; Y = 2 -> fail palette ram3850 F81664 38 ?16: sec ; CF = 1 -> ram fail3851 F81665 8A ?16a: txa ; C -> fail address3852 F81666 INDEX083853 F81666 E2 10 sep #PXFLAG3854 .LONGI off3855 .MNLIST3856 F81668 90 29 bcc ?16d3857 F8166A A2 50 ldx #$503858 F8166C 8E 4C FD stx RTCALE3859 F8166F 8D 4D FD sta RTCDATA ; $50-$51-$52 -> fail address3860 F81672 EB xba3861 F81673 E8 inx3862 F81674 8E 4C FD stx RTCALE3863 F81677 C0 00 cpy #03864 F81679 F0 0A beq ?16c3865 F8167B 18 clc3866 F8167C 88 dey3867 F8167D D0 04 bne ?16b3868 F8167F 69 08 adc #$083869 F81681 80 02 bra ?16c3870 F81683 69 10 ?16b: adc #$103871 F81685 8D 4D FD ?16c: sta RTCDATA3872 F81688 E8 inx3873 F81689 8E 4C FD stx RTCALE3874 F8168C A9 01 lda #$013875 F8168E 8D 4D FD sta RTCDATA3876 F81691 80 2C bra ?20b3877 F81693 A2 4F ?16d: ldx #$4F3878 F81695 8E 4C FD stx RTCALE3879 F81698 A9 80 lda #$80 ; $4F -> flag video ram OK3880 F8169A 8D 4D FD sta !RTCDATA3881 F8169D A9 80 lda #$803882 F8169F 1C 76 FC trb !PIAVBB+PIAPRB3883 F816A23884 F816A2 A9 08 lda #$08Tue Jul 17 11:00:15 2018 Page 233885 F816A4 8F 00 00 01 sta >$0100003886 F816A8 8F 4F 00 01 sta >$01004f3887 F816AC 8F 80 07 01 sta >$0107803888 F816B0 8F CF 07 01 sta >$0107CF3889 F816B4 A9 0F lda #$0F3890 F816B6 8D 72 FC sta !URLVBB3891 F816B9 A9 20 lda #$203892 F816BB 8F 81 0F 01 sta >$010F813893 ;lda #$043894 ;trb !PIAVBB+PIAPRB3895 F816BF3896 F816BF 8D 0C FC ?20b: sta !CREMEOFF ; abilita memoria normale38973898 ?20a: ; check serial/usb test board3899 F816C2 A2 53 ldx #$533900 F816C4 8E 4C FD stx RTCALE ; $53 -> tstser flag3901 F816C7 A9 00 lda #0 ; clear flag3902 F816C9 A0 55 ldy #$55 ; check VIA23903 F816CB 8C 12 FC sty .ABS.VIA2+VIADDRB3904 F816CE CC 12 FC cpy .ABS.VIA2+VIADDRB3905 F816D1 D0 20 bne ?z21 ; fail3906 F816D3 A0 AA ldy #$AA3907 F816D5 8C 12 FC sty .ABS.VIA2+VIADDRB3908 F816D8 CC 12 FC cpy .ABS.VIA2+VIADDRB3909 F816DB D0 16 bne ?z21 ; fail3910 F816DD A0 C3 ldy #$C33911 F816DF 8C 12 FC sty .ABS.VIA2+VIADDRB3912 F816E2 CC 12 FC cpy .ABS.VIA2+VIADDRB3913 F816E5 D0 0C bne ?z21 ; fail3914 F816E7 A0 3C ldy #$3C3915 F816E9 8C 12 FC sty .ABS.VIA2+VIADDRB3916 F816EC CC 12 FC cpy .ABS.VIA2+VIADDRB3917 F816EF D0 02 bne ?z21 ; fail3918 F816F1 A9 80 lda #$80 ; set bit <7>: VIA2 ok3919 F816F3 A0 55 ?z21: ldy #$55 ; check UART 16C550 (scratchpad reg.)3920 F816F5 8C 27 FC sty .ABS.UART_SCP3921 F816F8 CC 27 FC cpy .ABS.UART_SCP3922 F816FB D0 20 bne ?z22 ; fail3923 F816FD A0 AA ldy #$AA3924 F816FF 8C 27 FC sty .ABS.UART_SCP3925 F81702 CC 27 FC cpy .ABS.UART_SCP3926 F81705 D0 16 bne ?z22 ; fail3927 F81707 A0 C3 ldy #$C33928 F81709 8C 27 FC sty .ABS.UART_SCP3929 F8170C CC 27 FC cpy .ABS.UART_SCP3930 F8170F D0 0C bne ?z22 ; fail3931 F81711 A0 3C ldy #$3C3932 F81713 8C 27 FC sty .ABS.UART_SCP3933 F81716 CC 27 FC cpy .ABS.UART_SCP3934 F81719 D0 02 bne ?z22 ; fail3935 F8171B 09 02 ora #$02 ; set bit <1>: uart 16C550 ok3936 F8171D A0 55 ?z22: ldy #$55 ; check R65C51 (control reg.)3937 F8171F 8C 2B FC sty .ABS.ACIACTRL3938 F81722 CC 2B FC cpy .ABS.ACIACTRL3939 F81725 D0 2E bne ?z23 ; fail3940 F81727 A0 AA ldy #$AA3941 F81729 8C 2B FC sty .ABS.ACIACTRLTue Jul 17 11:00:15 2018 Page 243942 F8172C CC 2B FC cpy .ABS.ACIACTRL3943 F8172F D0 24 bne ?z23 ; fail3944 F81731 A0 C3 ldy #$C33945 F81733 8C 2B FC sty .ABS.ACIACTRL3946 F81736 CC 2B FC cpy .ABS.ACIACTRL3947 F81739 D0 1A bne ?z23 ; fail3948 F8173B A0 3C ldy #$3C3949 F8173D 8C 2B FC sty .ABS.ACIACTRL3950 F81740 CC 2B FC cpy .ABS.ACIACTRL3951 F81743 D0 10 bne ?z23 ; fail3952 F81745 09 01 ora #$01 ; set bit <0>: acia R65C51 ok3953 F817473954 F81747 8D 29 FC sta ACIASR ; software reset3955 F8174A A0 02 ldy #ACIACMDOFF ; disabilita tutto3956 F8174C 8C 2A FC sty ACIACMD3957 F8174F AC 28 FC ldy ACIADR ; clear flag3958 F81752 AC 29 FC ldy ACIASR39593960 F81755 8D 0D FC ?z23: sta !CREMEON ; enable extended memory3961 F81758 A8 tay ; save flag3962 F81759 AF 00 15 01 lda >PICRAM+256 ; test ram for pic usb-host3963 F8175D AA tax3964 F8175E A9 55 lda #$553965 F81760 8F 00 15 01 sta >PICRAM+2563966 F81764 CF 00 15 01 cmp >PICRAM+2563967 F81768 D0 2D bne ?z243968 F8176A A9 AA lda #$AA3969 F8176C 8F 00 15 01 sta >PICRAM+2563970 F81770 CF 00 15 01 cmp >PICRAM+2563971 F81774 D0 21 bne ?z243972 F81776 A9 C3 lda #$C33973 F81778 8F 00 15 01 sta >PICRAM+2563974 F8177C CF 00 15 01 cmp >PICRAM+2563975 F81780 D0 15 bne ?z243976 F81782 A9 3C lda #$3C3977 F81784 8F 00 15 01 sta >PICRAM+2563978 F81788 CF 00 15 01 cmp >PICRAM+2563979 F8178C D0 09 bne ?z243980 F8178E 8A txa3981 F8178F 8F 00 15 01 sta >PICRAM+2563982 F81793 98 tya3983 F81794 09 40 ora #$40 ; set bit<6>: ram usb host ok3984 F81796 A8 tay3985 F81797 8C 4D FD ?z24: sty .ABS.RTCDATA ; save flag3986 F8179A 8D 0D FC sta !CREMEON3987 F8179D 98 tya3988 F8179E F0 24 beq ?20aa ; board not present39893990 ; setup VIA 23991 F817A0 A9 7F lda #$7F3992 F817A2 8D 1E FC sta !VIA2+VIAIER ; disabilita interrupt3993 F817A5 8D 1D FC sta !VIA2+VIAIFR ; ed azzera tutti i flag3994 F817A8 A9 07 lda #00000111B ; PA<2:0> out, PA<7:3> input3995 F817AA 8D 13 FC sta !VIA2+VIADDRA3996 F817AD A9 FF lda #$FF3997 F817AF 8D 12 FC sta !VIA2+VIADDRB ; port B all out3998 F817B2 A9 04 lda #00000100B ; set RTS = highTue Jul 17 11:00:15 2018 Page 253999 F817B4 8D 11 FC sta !VIA2+VIAPRA4000 F817B7 9C 10 FC stz !VIA2+VIAPRB ; clear port B4001 F817BA4002 ; S.R. disabilitato, latch disabilitato, T1 free-run4003 ; T2 one shot - PB7 disabilitato - T1 & T2 count PHI24004 F817BA A9 40 lda #$404005 F817BC 8D 1B FC sta !VIA2+VIAACR4006 F817BF4007 ; CA2, CA1, CB1 fronte negativo - CB2 positive edge4008 F817BF A9 62 lda #01100010B4009 F817C1 8D 1C FC sta !VIA2+VIAPCR4010 F817C44011 F817C4 A2 43 ?20aa: ldx #$43 ; X -> $434012 F817C6 8E 4C FD stx RTCALE40134014 ; full test ram banco 04015 F817C9 8D 0F FC sta CRHIMON ; abilita ram in $FE00 - $FFFF4016 F817CC INDEX164017 F817CC C2 10 rep #PXFLAG4018 .LONGI on4019 .MNLIST4020 F817CE A0 00 00 ldy #0 ; start banco 04021 F817D1 B9 00 00 ?20: lda !$0000,y4022 F817D4 EB xba ; salva MEM in B4023 F817D5 A9 55 lda #$55 ; pattern test4024 F817D7 99 00 00 sta !$0000,y4025 F817DA D9 00 00 cmp !$0000,y4026 F817DD D0 3F bne ?28 ; bad ram4027 F817DF A9 AA lda #$AA4028 F817E1 99 00 00 sta !$0000,y4029 F817E4 D9 00 00 cmp !$0000,y4030 F817E7 D0 35 bne ?28 ; bad ram4031 F817E9 EB xba ; ripristina mem4032 F817EA 99 00 00 sta !$0000,y4033 F817ED C8 iny4034 F817EE C0 00 FC cpy #RAM0TOP4035 F817F1 90 DE bcc ?20 ; loop4036 F817F3 A0 00 FE ldy #RAM0SYS ; seconda parte4037 F817F6 B9 00 00 ?24: lda !$0000,y4038 F817F9 EB xba ; salva MEM in B4039 F817FA A9 55 lda #$55 ; pattern test4040 F817FC 99 00 00 sta !$0000,y4041 F817FF D9 00 00 cmp !$0000,y4042 F81802 D0 1A bne ?28 ; bad ram4043 F81804 A9 AA lda #$AA4044 F81806 99 00 00 sta !$0000,y4045 F81809 D9 00 00 cmp !$0000,y4046 F8180C D0 10 bne ?28 ; bad ram4047 F8180E EB xba ; ripristina mem4048 F8180F 99 00 00 sta !$0000,y4049 F81812 C8 iny4050 F81813 D0 E1 bne ?24 ; loop fino a fine banco4051 F81815 ACC164052 F81815 C2 20 rep #PMFLAG4053 .LONGA on4054 .MNLIST4055 F81817 88 deyTue Jul 17 11:00:15 2018 Page 264056 F81818 98 tya ; last addr -> A/B4057 F81819 A0 80 00 ldy #$804058 F8181C D0 06 bne ?30 ; OK4059 F8181E ?28: ACC164060 F8181E C2 20 rep #PMFLAG4061 .LONGA on4062 .MNLIST4063 F81820 98 tya ; bad addr -> A/B4064 F81821 A0 00 00 ldy #$004065 F81824 ?30: CPU084066 F81824 E2 30 sep #(PMFLAG.OR.PXFLAG)4067 .LONGA off4068 .LONGI off4069 .MNLIST4070 F81826 8C 4D FD sty RTCDATA ; $43 -> flag bad ram4071 F81829 E8 inx4072 F8182A 8E 4C FD stx RTCALE4073 F8182D 8D 4D FD sta RTCDATA ; $44 -> bad addr L4074 F81830 E8 inx4075 F81831 8E 4C FD stx RTCALE4076 F81834 EB xba4077 F81835 8D 4D FD sta RTCDATA ; $45 -> bad addr H4078 F81838 E8 inx ; X -> $464079 F81839 9B txy ; salva X in Y4080 F8183A4081 ; test cold/warm reset4082 F8183A A2 6F ldx #$6F4083 F8183C BD 00 F0 ?31: lda !intsr,x4084 F8183F DF 00 F0 F8 cmp >intsr,x4085 F81843 D0 0D bne ?31a4086 F81845 CA dex4087 F81846 10 F4 bpl ?314088 F81848 A2 43 ldx #$434089 F8184A 8E 4C FD stx RTCALE4090 F8184D A9 40 lda #$404091 F8184F 0C 4D FD tsb RTCDATA4092 F81852 ?31a:4093 ; azzeramento ram banco 0 - solo per COLD RESET4094 F81852 INDEX164095 F81852 C2 10 rep #PXFLAG4096 .LONGI on4097 .MNLIST4098 F81854 AD 2A FD lda PIA0+PIAPRB ; test bit /FSR (PB4)4099 F81857 89 10 bit #00010000B4100 F81859 D0 15 bne ?40 ; /FSR = 1 -> WARM RESET4101 F8185B A2 00 00 ldx #04102 F8185E 9E 00 00 ?32: stz !0000,x4103 F81861 E8 inx4104 F81862 E0 00 FC cpx #RAM0TOP4105 F81865 90 F7 bcc ?32 ; loop4106 F81867 A2 00 FE ldx #RAM0SYS ; seconda parte4107 F8186A 9E 00 00 ?34: stz !0000,x4108 F8186D E8 inx4109 F8186E D0 FA bne ?344110 F818704111 ; copia segmento di sistema da flash a RAM4112 ?40: ;ldx #$0BFFTue Jul 17 11:00:15 2018 Page 274113 ?42: ;lda >TORAM,x4114 ;sta !TORAM,x4115 ;dex4116 ;bpl ?424117 ;ldx #$01FF ; copia da F8FE00 a FE00 - FFFF4118 ?44: ;lda >IntSr,x4119 ;sta !IntSr,x4120 ;dex4121 ;bpl ?4441224123 ; copia con mvn4124 F81870 CPU164125 F81870 C2 30 rep #(PMFLAG.OR.PXFLAG)4126 .LONGA on4127 .LONGI on4128 .MNLIST4129 F81872 5A phy4130 F81873 A9 FF 0B lda #$0BFF4131 F81876 A2 00 F0 ldx #!TORAM4132 F81879 9B txy4133 F8187A 54 00 F8 mvn #^TORAM, #04134 F8187D A9 FF 01 lda #$01FF4135 F818804136 ;;;;;;ldx #!intsr4137 F81880 A2 00 FE ldx #$FE0041384139 F81883 9B txy4140 F81884 54 00 F8 mvn #^intsr, #04141 F81887 7A ply4142 F818884143 ; setup RTC DS16874144 F81888 CPU084145 F81888 E2 30 sep #(PMFLAG.OR.PXFLAG)4146 .LONGA off4147 .LONGI off4148 .MNLIST4149 F8188A A2 0A ldx #RTCCTRLA ; test primo setup RTC4150 F8188C 8E 4C FD stx RTCALE4151 F8188F AD 4D FD lda RTCDATA4152 F81892 89 20 bit #00100000B ; test DV14153 F81894 F0 03 beq ?45 ; DV1 = 0 -> oscillatore RTC off4154 F81896 4C 3E 19 jmp ?464155 F81899 A2 0B ?45: ldx #RTCCTRLB ; primo setup RTC4156 F8189B 8E 4C FD stx RTCALE4157 F8189E A9 0E lda #00001110B ; SET = 0, no IRQ, SQW OUT, binary, formato 24H4158 F818A0 8D 4D FD sta RTCDATA4159 F818A3 CA dex ; CTRL REG. A4160 F818A4 8E 4C FD stx RTCALE4161 F818A7 A9 35 lda #00110101B ; oscillatore on, banco 1, sqw = 2048HZ4162 F818A9 8D 4D FD sta RTCDATA4163 F818AC A2 4B ldx #RTCEXTCTRLB4164 F818AE 8E 4C FD stx RTCALE4165 F818B1 A9 80 lda #10000000B ; abilita VBAUX4166 F818B3 8D 4D FD sta RTCDATA4167 F818B6 CA dex ; EXT. CTRL. REG. 4A4168 F818B7 8E 4C FD stx RTCALE4169 F818BA 9C 4D FD stz RTCDATA ; abilita /PWR - azzera flagTue Jul 17 11:00:15 2018 Page 284170 F818BD A2 0B ldx #RTCCTRLB ; stop update4171 F818BF 8E 4C FD stx RTCALE4172 F818C2 A9 80 lda #$804173 F818C4 0C 4D FD tsb RTCDATA4174 F818C7 9C 4C FD stz RTCALE ; registro secondi4175 F818CA 9C 4D FD stz RTCDATA ; SECS = 04176 F818CD A2 02 ldx #RTCMIN4177 F818CF 8E 4C FD stx RTCALE4178 F818D2 9C 4D FD stz RTCDATA ; MIN = 04179 F818D5 A2 04 ldx #RTCHOURS4180 F818D7 8E 4C FD stx RTCALE4181 F818DA 9C 4D FD stz RTCDATA ; HOURS = 04182 F818DD A2 06 ldx #RTCDAY4183 F818DF 8E 4C FD stx RTCALE4184 F818E2 A9 01 lda #1 ; DOMENICA4185 F818E4 8D 4D FD sta RTCDATA ; DAY = domenica4186 F818E7 E8 inx ; registro data4187 F818E8 8E 4C FD stx RTCALE4188 F818EB 8D 4D FD sta RTCDATA ; DATA = 14189 F818EE E8 inx ; registro mese4190 F818EF 8E 4C FD stx RTCALE4191 F818F2 8D 4D FD sta RTCDATA ; mese = 14192 F818F5 E8 inx ; registro anno4193 F818F6 8E 4C FD stx RTCALE4194 F818F9 A9 0C lda #12 ; anno = 20124195 F818FB 8D 4D FD sta RTCDATA4196 F818FE A2 48 ldx #RTCCENTURY4197 F81900 8E 4C FD stx RTCALE4198 F81903 A9 14 lda #20 ; anno 20124199 F81905 8D 4D FD sta RTCDATA ; setup -> ore 00.00.00 del 01/01/2012 - domenica4200 F81908 A2 01 ldx #RTCALMSECS4201 F8190A 8E 4C FD stx RTCALE4202 F8190D A9 C0 lda #$C04203 F8190F 8D 4D FD sta RTCDATA4204 F81912 A2 03 ldx #RTCALMMIN4205 F81914 8E 4C FD stx RTCALE4206 F81917 8D 4D FD sta RTCDATA4207 F8191A A2 05 ldx #RTCALMHOURS4208 F8191C 8E 4C FD stx RTCALE4209 F8191F 8D 4D FD sta RTCDATA4210 F81922 A2 49 ldx #RTCALMDATE4211 F81924 8E 4C FD stx RTCALE4212 F81927 8D 4D FD sta RTCDATA4213 F8192A A2 0B ldx #RTCCTRLB4214 F8192C 8E 4C FD stx RTCALE4215 F8192F A9 80 lda #$80 ; start RTC4216 F81931 1C 4D FD trb RTCDATA4217 F81934 A2 0E ldx #RTCRAM0E4218 F81936 8E 4C FD stx RTCALE4219 F81939 A9 FF lda #$FF4220 F8193B 8D 4D FD sta RTCDATA ; flag time non valido4221 F8193E A2 01 ?46: ldx #RTCALMSECS4222 F81940 8E 4C FD stx RTCALE ; set alarm at 02:00:004223 F81943 9C 4D FD stz RTCDATA4224 F81946 A2 03 ldx #RTCALMMIN4225 F81948 8E 4C FD stx RTCALE4226 F8194B 9C 4D FD stz RTCDATATue Jul 17 11:00:15 2018 Page 294227 F8194E A2 05 ldx #RTCALMHOURS4228 F81950 8E 4C FD stx RTCALE4229 F81953 A9 02 lda #24230 F81955 8D 4D FD sta RTCDATA4231 F81958 A2 0B ldx #RTCCTRLB ; set RTC alarm for DST4232 F8195A 8E 4C FD stx RTCALE4233 F8195D A9 20 lda #$204234 F8195F 0C 4D FD tsb RTCDATA4235 F81962 A2 0A ldx #RTCCTRLA4236 F81964 8E 4C FD stx RTCALE4237 F81967 A9 10 lda #00010000B4238 F81969 0C 4D FD tsb RTCDATA ; banco 14239 F8196C A2 0E ldx #RTCRAM0E ; test time valido4240 F8196E 8E 4C FD stx RTCALE4241 F81971 AD 4D FD lda RTCDATA ; bit 7 = 1 -> time valido4242 F81974 29 80 and #$804243 F81976 49 80 eor #$804244 F81978 A2 0D ldx #RTCSTATUS2 ; test batteria4245 F8197A 8E 4C FD stx RTCALE4246 F8197D 2C 4D FD bit RTCDATA4247 F81980 10 02 bpl ?48 ; batteria scarica4248 F81982 09 40 ora #RTC_VBAT ; batteria OK4249 F81984 A2 4A ?48: ldx #RTCEXTCTRLA ; test VBAUX4250 F81986 8E 4C FD stx RTCALE4251 F81989 2C 4D FD bit RTCDATA4252 F8198C 10 02 bpl ?49 ; batteria scarica4253 F8198E 09 20 ora #RTC_VBAUX ; VBAUX OK4254 F81990 EB ?49: xba4255 F81991 A2 4B ldx #RTCEXTCTRLB4256 F81993 8E 4C FD stx RTCALE4257 F81996 A9 40 lda #$40 ; E32K va azzerato dopo power-up4258 F81998 1C 4D FD trb RTCDATA42594260 F8199B A9 01 lda #$01 ; abilita KSE4261 F8199D 0C 4D FD tsb RTCDATA4262 F819A0 A2 4B ldx #RTCEXTCTRLB4263 F819A2 8E 4C FD stx RTCALE4264 F819A5 A9 08 lda #$08 ; PSR = 0 -- POWERON -> HIGH4265 F819A7 1C 4D FD trb RTCDATA4266 F819AA A2 4A ldx #RTCEXTCTRLA4267 F819AC 8E 4C FD stx RTCALE4268 F819AF A9 08 lda #$08 ; PAB = 0 -- POWERON4269 F819B1 1C 4D FD trb RTCDATA4270 F819B44271 F819B4 A2 0A ldx #RTCCTRLA4272 F819B6 8E 4C FD stx RTCALE4273 F819B9 A9 10 lda #00010000B4274 F819BB 1C 4D FD trb RTCDATA ; banco 04275 F819BE 8C 4C FD sty RTCALE ; $464276 F819C1 EB xba4277 F819C2 8D 4D FD sta RTCDATA4278 F819C5 BB tyx ; $464279 F819C6 88 dey4280 F819C7 88 dey4281 F819C8 88 dey ; $43 -> flag RAM4282 F819C9 8C 4C FD sty RTCALE4283Tue Jul 17 11:00:15 2018 Page 304284 ; errore fatale se ram fail in banco 04285 F819CC AD 4D FD lda RTCDATA ; flag ram4286 F819CF D0 4F bne ?55 ; OK4287 F819D1 A9 B0 lda #10110000B ; CTC counter 2 in modo 0 - 2 bytes4288 F819D3 8D 4B FD sta CTC0+CTCCTRL4289 F819D6 A9 76 lda #01110110B ; CTC counter 1 in modo 3 - 2 bytes4290 F819D8 8D 4B FD sta CTC0+CTCCTRL4291 F819DB A9 90 lda #<400 ; beep 200ms - pausa 200ms4292 F819DD 8D 49 FD sta CTC0+CTCCNT14293 F819E0 A9 01 lda #>4004294 F819E2 8D 49 FD sta CTC0+CTCCNT14295 F819E5 A9 40 lda #<1600 ; 4 beep4296 F819E7 8D 4A FD sta CTC0+CTCCNT24297 F819EA A9 06 lda #>16004298 F819EC 8D 4A FD sta CTC0+CTCCNT24299 F819EF A9 08 lda #$08 ; beep ... beep...4300 F819F1 0C 2B FD tsb PIA0+PIACRB4301 F819F4 1C 29 FD trb PIA0+PIACRA4302 F819F7 A2 3D ldx #$3D4303 F819F9 8E 4C FD stx RTCALE4304 F819FC 9C 4D FD stz RTCDATA ; $3D -> flag ram x log4305 F819FF C8 iny4306 F81A00 8C 4C FD sty RTCALE ; $3E-$3F -> bad address4307 F81A03 AD 4D FD lda RTCDATA4308 F81A06 E8 inx4309 F81A07 8E 4C FD stx RTCALE4310 F81A0A 8D 4D FD sta RTCDATA4311 F81A0D C8 iny4312 F81A0E 8C 4C FD sty RTCALE ; $3E-$3F -> bad address4313 F81A11 AD 4D FD lda RTCDATA4314 F81A14 E8 inx4315 F81A15 8E 4C FD stx RTCALE4316 F81A18 8D 4D FD sta RTCDATA4317 F81A1B EA ?52: nop ; loop infinito4318 F81A1C EA nop ; ERRORE FATALE - BAD RAM BANCO 04319 F81A1D 4C 1B 1A jmp ?52 ; 4 beep da 200ms/200ms43204321 ; copia flag da ram cmos a ram banco 04322 F81A20 A2 40 ?55: ldx #RTCURAM04323 F81A22 8E 4C FD stx RTCALE ; $404324 F81A25 AD 4D FD lda RTCDATA ; flag LCD4325 F81A28 20 98 10 jsr LCDSetup ; setup LCD4326 F81A2B A2 41 ldx #RTCURAM0+14327 F81A2D 8E 4C FD stx RTCALE ; $414328 F81A30 AD 4D FD lda RTCDATA4329 F81A33 85 65 sta sppost4330 F81A35 E8 inx ; $424331 F81A36 8E 4C FD stx RTCALE4332 F81A39 AD 4D FD lda RTCDATA4333 F81A3C 85 46 sta fdcctl4334 F81A3E E8 inx4335 F81A3F 8E 4C FD stx RTCALE ; $434336 F81A42 AD 4D FD lda RTCDATA4337 F81A45 85 0C sta Bnk0Flag4338 F81A47 E8 inx4339 F81A48 E8 inx4340 F81A49 E8 inxTue Jul 17 11:00:15 2018 Page 314341 F81A4A 8E 4C FD stx RTCALE ; $464342 F81A4D AD 4D FD lda RTCDATA4343 F81A50 85 0D sta RTCFlag4344 F81A52 A2 4E ldx #$4E ; $4E -> flag video board4345 F81A54 8E 4C FD stx RTCALE4346 F81A57 AD 4D FD lda !RTCDATA4347 F81A5A 8D 6C 01 sta !DP01ADDR+VBBFlag4348 F81A5D E8 inx4349 F81A5E 8E 4C FD stx RTCALE ; $4F -> flag video RAM4350 F81A61 AD 4D FD lda !RTCDATA4351 F81A64 8D 6D 01 sta !DP01ADDR+VBBRam43524353 ;stz !DP01ADDR+VBBFlag4354 ;stz !DP01ADDR+VBBRam4355 F81A67 A9 04 lda #$044356 F81A69 1C 76 FC trb !PIAVBB+PIAPRB4357 F81A6C4358 F81A6C A2 53 ldx #$53 ; serial/usb board4359 F81A6E 8E 4C FD stx .ABS.RTCALE4360 F81A71 AD 4D FD lda !RTCDATA4361 F81A74 85 BD sta tstser43624363 ; seguito startup4364 F81A76 20 07 A2 jsr VDCSetup ; inizializza charset VDC4365 F81A79 A9 03 lda #TXTD_SCN4366 F81A7B 85 50 sta DflTxtOut4367 F81A7D 64 4F stz DflTxtIn4368 F81A7F 20 1F A4 jsr _ScnInit ; cancella schermo4369 F81A824370 ; get line /TXE status from UM2454371 F81A82 24 BD bit tstser4372 F81A84 10 2F bpl ?z304373 F81A86 A2 00 ldx #04374 F81A88 AD 1F FC ?z25: lda !VIA2+VIAPRANH ; check /TXE line4375 F81A8B CD 1F FC cmp !VIA2+VIAPRANH4376 F81A8E D0 F8 bne ?z254377 F81A90 A8 tay4378 F81A91 0A asl a ; /TXE-> bit<7>4379 F81A92 30 02 bmi ?z264380 F81A94 A2 80 ldx #$80 ; /TXE low: assume UM245 connected to usb host4381 F81A96 8E 00 05 ?z26: stx .ABS.DP05ADDR+usbslv43824383 ; get line /CTS & /DSR from R65C514384 F81A99 9C 16 05 stz .ABS.DP05ADDR+splin34385 F81A9C 98 tya4386 F81A9D 89 08 bit #00001000B4387 F81A9F F0 0A beq ?z27 ; /CTS low4388 F81AA1 A9 80 lda #$804389 F81AA3 0C 16 05 tsb .ABS.DP05ADDR+splin3 ; /CTS high4390 F81AA6 A9 40 lda #$404391 F81AA8 1C 1C FC trb !VIA2+VIAPCR ; set CB2 negative edge4392 F81AAB4393 F81AAB AD 29 FC ?z27: lda !ACIASR ; check /DSR line4394 F81AAE 29 40 and #01000000B4395 F81AB0 F0 03 beq ?z304396 F81AB2 0C 16 05 tsb .ABS.DP05ADDR+splin34397Tue Jul 17 11:00:15 2018 Page 324398 ?z30: ; check ch375/376 module (host usb0)4399 F81AB5 A9 06 lda #CMD_CHECK_EXIST4400 F81AB7 8D D1 FD sta usb0cmd4401 F81ABA EA nop ; 2uS4402 F81ABB EA nop4403 F81ABC EA nop4404 F81ABD EA nop4405 F81ABE A9 65 lda #$654406 F81AC0 8D D0 FD sta usb0dat4407 F81AC3 EA nop ; 1uS4408 F81AC4 EA nop4409 F81AC5 AD D0 FD lda usb0dat4410 F81AC8 C9 9A cmp #$9A4411 F81ACA D0 23 bne ?z100 ; not installed4412 F81ACC A9 80 lda #$804413 F81ACE 85 42 sta usb0ch ; <7>: module on4414 F81AD0 A9 01 lda #CMD_GET_IC_VER4415 F81AD2 8D D1 FD sta usb0cmd ; get type4416 F81AD5 EA nop ; 2uS4417 F81AD6 EA nop4418 F81AD7 EA nop4419 F81AD8 EA nop4420 F81AD9 AD D0 FD lda usb0dat44214422 ; returned value:4423 ; bit<7> = 1 & bit<6> = 0 if ch3754424 ; bit<7> = 0 & bit<6> = 1 if ch3764425 ; bit<0:5> = firmware version4426 F81ADC AA tax4427 F81ADD 29 3F and #00111111B ; mask version4428 F81ADF 05 42 ora usb0ch4429 F81AE1 85 42 sta usb0ch ; <0..5> hold version4430 F81AE3 8A txa4431 F81AE4 29 C0 and #11000000B ; mask type4432 F81AE6 C9 80 cmp #10000000B ; ch375?4433 F81AE8 F0 02 beq ?z31 ; yes4434 F81AEA 04 42 tsb usb0ch ; <6>: ch3764435 F81AEC 20 F4 1F ?z31: jsr initusb0 ; init usb0 bus4436 F81AEF4437 F81AEF A9 01 ?z100: lda #$014438 F81AF1 04 55 tsb BiosEnt ; avoid usb msg4439 F81AF3 20 61 1C jsr EnableInt ; abilita IRQ e NMI4440 F81AF6 A9 01 lda #$01 ; video VDC ON4441 F81AF8 1C 1F FD trb VIA1+VIAPRANH4442 F81AFB 20 49 1C jsr BootBeep4443 F81AFE 20 30 1F jsr BootMsg4444 F81B01 20 92 1C jsr CheckKbd ; test keyboard4445 F81B04 A5 0D lda RTCFlag4446 F81B06 30 23 bmi ?604447 F81B08 SCNPRINT4448 F81B08 02 01 cop $014449 .MNLIST4450 F81B0A 45 52 52 4F 52 .DB 'ERROR: invalid CMOS time & date'3A 20 69 6E 7661 6C 69 64 2043 4D 4F 53 2074 69 6D 65 20Tue Jul 17 11:00:15 2018 Page 3326 20 64 61 74654451 F81B29 0D 00 .DB $0D, $004452 F81B2B 89 60 ?60: bit #$60 ; test batteria4453 F81B2D D0 2E bne ?624454 F81B2F SCNPRINT4455 F81B2F 02 01 cop $014456 .MNLIST4457 F81B31 45 52 52 4F 52 .DB 'ERROR: invalid CMOS data - replace battery'3A 20 69 6E 7661 6C 69 64 2043 4D 4F 53 2064 61 74 61 202D 20 72 65 706C 61 63 65 2062 61 74 74 6572 794458 F81B5B 0D 00 .DB $0D, $004459 F81B5D A9 04 ?62: lda #$044460 F81B5F 24 46 bit fdcctl4461 F81B61 D0 20 bne ?644462 F81B63 SCNPRINT4463 F81B63 02 01 cop $014464 .MNLIST4465 F81B65 45 52 52 4F 52 .DB 'ERROR: DMA not found or fail'3A 20 44 4D 4120 6E 6F 74 2066 6F 75 6E 6420 6F 72 20 6661 69 6C4466 F81B81 0D 00 .DB $0D, $004467 F81B83 A5 65 ?64: lda sppost4468 F81B85 29 C0 and #$C04469 F81B87 C9 C0 cmp #$C04470 F81B89 F0 34 beq ?664471 F81B8B SCNPRINT4472 F81B8B 02 01 cop $014473 .MNLIST4474 F81B8D 45 52 52 4F 52 .DB 'ERROR: Serial controller 65C52 not found or fail'3A 20 53 65 7269 61 6C 20 636F 6E 74 72 6F6C 6C 65 72 2036 35 43 35 3220 6E 6F 74 2066 6F 75 6E 6420 6F 72 20 6661 69 6C4475 F81BBD 0D 00 .DB $0D, $0044764477 ?66: ;bit _LCDFlag4478 ;bmi ?684479 ;SCNPRINT4480 ;.DB 'ERROR: LCD controller not found'4481 ;.DB $0D, $0044824483 F81BBF ?68:Tue Jul 17 11:00:15 2018 Page 344484 F81BBF A9 4E lda #01001110B ; 38400 - 1 stop bit - no echo - ACR4485 F81BC1 8D 51 FD sta ACIA+ACIACR1 ; imposta reg. controllo CR4486 F81BC4 8D 55 FD sta ACIA+ACIACR24487 F81BC7 A9 E4 lda #11100100B ; odd parity - 8 bit - RTS/DTR -> L4488 F81BC9 8D 51 FD sta ACIA+ACIAFR1 ; imposta registro di formato FR4489 F81BCC 8D 55 FD sta ACIA+ACIAFR24490 F81BCF 85 58 sta <ACIAfr_14491 F81BD1 85 5C sta <ACIAfr_24492 F81BD3 A9 C0 lda #$C04493 F81BD5 85 5E sta <ACIAhsk_14494 F81BD7 85 62 sta <ACIAhsk_24495 F81BD9 A9 F9 lda #$F94496 F81BDB 8D 50 FD sta ACIA+ACIAIER14497 F81BDE 58 cli ; abilita INT4498 F81BDF A9 40 lda #$404499 F81BE1 04 55 tsb BiosEnt ; abilita <F8> al boot4500 F81BE3 20 3D 1D jsr QuickMT ; test veloce memoria4501 F81BE6 A9 04 lda #$044502 F81BE8 24 46 bit fdcctl4503 F81BEA F0 03 beq ?80 ; salta test FDC4504 F81BEC 20 B6 9F ?70: jsr fdinit4505 F81BEF 20 40 A0 ?80: jsr vdinit ; init ram disk4506 F81BF2 20 34 8F jsr initata ; scanning bus ATA4507 F81BF5 20 47 B6 jsr showusb04508 F81BF8 A9 41 ?80a: lda #$41 ; disabilita <F8>4509 F81BFA 14 55 trb BiosEnt4510 F81BFC SCNGETPOS4511 F81BFC 02 18 cop $184512 F81BFE 02 .DB $024513 .MNLIST4514 F81BFF DA phx ; salva posizione corrente cursore4515 F81C00 5A phy4516 F81C01 AE B6 01 ldx !(DP01ADDR + SMAddrL) ; set posizione <F8>4517 F81C04 AC B7 01 ldy !(DP01ADDR + SMAddrL +1)4518 F81C07 SCNSETPOS4519 F81C07 02 18 cop $184520 F81C09 03 .DB $034521 .MNLIST4522 F81C0A SCNPRINT ; cancella linea <F8>4523 F81C0A 02 01 cop $014524 .MNLIST4525 F81C0C 1B 71 00 .DB KB_ESC, 'q', $004526 F81C0F 7A ply ; restore posizione cursore4527 F81C10 FA plx4528 F81C11 SCNSETPOS4529 F81C11 02 18 cop $184530 F81C13 03 .DB $034531 .MNLIST4532 F81C144533 F81C14 22 00 00 F9 jsl OSINIT4534 F81C18 20 D1 B6 jsr shusb0fat45354536 ;;; FOR NOW: simply launch system monitor after boot & test4537 .EXTERN dummydir4538 F81C1B 22 5D 64 F9 jsl dummydir4539 F81C1F 20 49 1C jsr BootBeep4540 F81C22Tue Jul 17 11:00:15 2018 Page 354541 F81C22 AD 00 FC lda !CRBIT0 ; test boot4542 F81C25 D0 1E bne ?1000 ; firmware from EMU45434544 F81C27 SCNPRINT4545 F81C27 02 01 cop $014546 .MNLIST4547 F81C29 46 69 72 6D 77 .DB 'Firmware loaded from FLASH'61 72 65 20 6C6F 61 64 65 6420 66 72 6F 6D20 46 4C 41 53484548 ;.DB 'Firmware loaded from EEROM8U'4549 F81C43 0D 00 .DB $0d, $0045504551 F81C45 ?1000:4552 F81C45 5C 03 00 FF jml SYSMON4553 F81C494554 F81C49 BootBeep:4555 F81C49 A9 B0 lda #10110000B ; CTC 2 in modo 0 - 2 bytes4556 F81C4B 8D 4B FD sta CTC0+CTCCTRL4557 F81C4E A9 2C lda #<3004558 F81C50 8D 4A FD sta CTC0+CTCCNT24559 F81C53 A9 01 lda #>3004560 F81C55 8D 4A FD sta CTC0+CTCCNT24561 F81C58 A9 08 lda #$084562 F81C5A 1C 2B FD trb PIA0+PIACRB4563 F81C5D 1C 29 FD trb PIA0+PIACRA4564 F81C60 60 rts4565 F81C614566 ; abilita IRQ e NMI4567 F81C61 EnableInt:4568 .LONGA off4569 .LONGI off45704571 F81C61 A9 89 lda #VIA1INT ; abilita NMI CA2, CB24572 F81C63 8D 1E FD sta VIA1+VIAIER4573 F81C66 A9 C1 lda #VIA0INT ; abilita INT 2 CA2, CA14574 F81C68 8D 0E FD sta VIA0+VIAIER4575 F81C6B A9 3E lda #.LOW.VIA0T1CNT ; imposta VIA 0 T14576 F81C6D 8D 04 FD sta VIA0+VIAT1CL4577 F81C70 A9 9C lda #.HIGH.VIA0T1CNT4578 F81C72 8D 05 FD sta VIA0+VIAT1CH4579 F81C754580 F81C75 24 43 bit usb0st ; check usb0 status4581 F81C77 10 05 bpl ?ser ; not ready4582 F81C794583 F81C79 A9 88 lda #CB2IFRB+$804584 F81C7B 8D CE FD sta !VIA3+VIAIER ; enable CB2 interrupt4585 F81C7E4586 F81C7E 24 BD ?ser: bit tstser4587 F81C80 10 0F bpl ?end45884589 F81C82 A9 5E lda #.LOW.VIA2T1CNT ; imposta VIA 2 T14590 F81C84 8D 14 FC sta !VIA2+VIAT1CL4591 F81C87 A9 EA lda #.HIGH.VIA2T1CNT4592 F81C89 8D 15 FC sta !VIA2+VIAT1CHTue Jul 17 11:00:15 2018 Page 3645934594 F81C8C A9 DB lda #$DB4595 F81C8E 8D 1E FC sta !VIA2+VIAIER ; enable CA2 interrupt45964597 F81C91 60 ?end: rts45984599 F81C92 CheckKbd:4600 F81C92 9C 62 01 stz _KbdCnt4601 F81C95 9C 65 01 stz _KbdToggle4602 F81C98 9C 66 01 stz _KbdSt4603 F81C9B 9C 67 01 stz _PS2Ctl4604 F81C9E 9C 60 01 stz _KbdITail4605 F81CA1 9C 61 01 stz _KbdIHead4606 F81CA4 9C 63 01 stz _KbdShift4607 F81CA7 9C 64 01 stz _KbdFlag4608 F81CAA A9 20 lda #$20 ; imposta T2 su PB6 - 1ms4609 F81CAC 0C 0B FD tsb VIA0+VIAACR4610 F81CAF A9 D0 lda #(.LOW.KBDTMO) ; imposta timeout T24611 F81CB1 A2 07 ldx #(.HIGH.KBDTMO)4612 F81CB3 8D 08 FD sta VIA0+VIAT2CL4613 F81CB6 8E 09 FD stx VIA0+VIAT2CH4614 F81CB9 2C 44 FD ?10: bit KBSTATUS ; test controller PS/24615 F81CBC 50 27 bvc ?12 ; controller ready4616 F81CBE A9 20 lda #T2IFRB4617 F81CC0 2C 0D FD bit VIA0+VIAIFR ; test T2 flag4618 F81CC3 F0 F4 beq ?10 ; attende timeout o controller ready4619 F81CC5 SCNPRINT4620 F81CC5 02 01 cop $014621 .MNLIST4622 F81CC7 45 52 52 4F 52 .DB 'ERROR: controller PS/2 fail', $0D, $003A 20 63 6F 6E74 72 6F 6C 6C65 72 20 50 532F 32 20 66 6169 6C 0D 004623 F81CE4 60 rts4624 F81CE5 AE 43 FD ?12: ldx KBFR+3 ; status dopo reset4625 F81CE8 8E 66 01 stx _KbdSt4626 F81CEB D0 26 bne ?14 ; status kbd ok4627 F81CED SCNPRINT4628 F81CED 02 01 cop $014629 .MNLIST4630 F81CEF 45 52 52 4F 52 .DB 'ERROR: keyboard not found or fail', $0D, $003A 20 6B 65 7962 6F 61 72 6420 6E 6F 74 2066 6F 75 6E 6420 6F 72 20 6661 69 6C 0D 004631 F81D12 60 rts4632 F81D13 A9 E1 ?14: lda #$E1 ; comando set LOCK4633 F81D15 8D 40 FD sta KBFR4634 F81D18 A9 40 lda #NUMLOCKB ; imposta toggle NUM LOCK4635 F81D1A 8D 41 FD sta KBFR+14636 F81D1D 8D 44 FD sta KBDRQ ; richiesta servizio al controller4637 F81D20 2C 44 FD ?16: bit KBSTATUS ; test controller PS/24638 F81D23 30 FB bmi ?16 ; attende rispostaTue Jul 17 11:00:15 2018 Page 374639 F81D25 AD 43 FD lda KBFR+34640 F81D28 F0 05 beq ?20 ; errore4641 F81D2A A9 40 lda #NUMLOCKB ; imposta toggle NUM LOCK4642 F81D2C 8D 65 01 sta !_KbdToggle4643 F81D2F A9 C1 ?20: lda #$C1 ; comando start scanning4644 F81D31 8D 40 FD sta KBFR4645 F81D34 8D 44 FD sta KBDRQ ; richiesta servizio al controller4646 F81D37 2C 44 FD ?22: bit KBSTATUS4647 F81D3A 30 FB bmi ?22 ; attende risposta4648 F81D3C 60 rts46494650 ;----------------------------------------------------------4651 ; funzioni test memoria utilizzate in fase di boot46524653 ; test RAM veloce (in fase di boot)4654 F81D3D QuickMT:4655 F81D3D 0B phd4656 F81D3E F4 00 01 pea #DP01ADDR4657 F81D41 2B pld4658 F81D42 A9 01 lda #$014659 F81D44 85 BC sta SMTmpK ; banco start = $014660 F81D46 A9 FF lda #$FF4661 F81D48 8D 4C 00 sta !MemTop ; imposta MemTop = $FFFF4662 F81D4B 8D 4D 00 sta !MemTop+14663 F81D4E 9C 4E 00 stz !MemTop+24664 F81D51 8D 0A FC sta CRXMEOFF ; disabilita X mem4665 F81D54 8D 0C FC sta CREMEOFF ; disabilita E mem4666 F81D57 8D 08 FC sta CRXFEOFF ; disabilita F mem4667 F81D5A 2C 55 00 bit !BiosEnt ; test <F8> solo nel caso che non sia stato4668 F81D5D 30 43 bmi ?01 ; forzato accesso al bios setup4669 F81D5F SCNGETPOS4670 F81D5F 02 18 cop $184671 F81D61 02 .DB $024672 .MNLIST4673 F81D62 86 B6 stx SMAddrL ; salva pos. corrente4674 F81D64 84 B7 sty SMAddrH4675 F81D66 SCNPRINT4676 F81D66 02 01 cop $014677 .MNLIST4678 F81D68 50 72 65 73 73 .DB 'Press <F8> for enter BIOS setup...', $0D, $0020 3C 46 38 3E20 66 6F 72 2065 6E 74 65 7220 42 49 4F 5320 73 65 74 7570 2E 2E 2E 0D004679 F81D8C A9 20 lda #$20 ; imposta T2 su PB6 - 1ms4680 F81D8E 0C 0B FD tsb VIA0+VIAACR4681 F81D91 A9 F4 lda #(.LOW.F8TMO) ; imposta timeout T24682 F81D93 A2 01 ldx #(.HIGH.F8TMO)4683 F81D95 8D 08 FD sta VIA0+VIAT2CL4684 F81D98 8E 09 FD stx VIA0+VIAT2CH4685 F81D9B A9 20 lda #T2IFRB4686 F81D9D 2C 0D FD ?00: bit VIA0+VIAIFR ; test T2 flag4687 F81DA0 F0 FB beq ?00 ; attende timeout4688Tue Jul 17 11:00:15 2018 Page 384689 F81DA2 ?01: SCN_CR4690 F81DA2 SCNPRCHAR4691 .MLIST4692 F81DA2 02 07 cop $074693 .MNLIST4694 F81DA4 0D .DB $0D4695 .MNLIST4696 F81DA5 64 62 stz KbdCnt ; svuota buffer tastiera4697 F81DA7 SCNPRINT4698 F81DA7 02 01 cop $014699 .MNLIST4700 F81DA9 51 75 69 63 6B .DB 'Quick memory test: $', $0020 6D 65 6D 6F72 79 20 74 6573 74 3A 20 24004701 F81DBE SCNGETPOS4702 F81DBE 02 18 cop $184703 F81DC0 02 .DB $024704 .MNLIST4705 F81DC1 86 D6 stx SMAuxL4706 F81DC3 84 D7 sty SMAuxH4707 F81DC5 A6 D6 ?02: ldx SMAuxL ; loop banco4708 F81DC7 A4 D7 ldy SMAuxH4709 F81DC9 SCNSETPOS4710 F81DC9 02 18 cop $184711 F81DCB 03 .DB $034712 .MNLIST4713 F81DCC A5 BC lda SMTmpK ; print banco4714 F81DCE 20 E8 1E jsr _ScnHex4715 F81DD1 SCNGETPOS ; pos. address4716 F81DD1 02 18 cop $184717 F81DD3 02 .DB $024718 .MNLIST4719 F81DD4 86 F6 stx SMXPos4720 F81DD6 84 F7 sty SMYPos4721 F81DD8 64 BA stz SMTmpL ; azzera ptr4722 F81DDA 64 BB stz SMTmpH4723 F81DDC 20 34 1E ?03: jsr F8Tst ; loop test4724 F81DDF 20 A9 1E jsr MEMTst ; test mem4725 F81DE2 D0 4B bne ?10 ; bad ram4726 F81DE4 A9 80 lda #$804727 F81DE6 85 BB sta SMTmpH4728 F81DE8 20 34 1E jsr F8Tst4729 F81DEB 20 A9 1E jsr MEMTst4730 F81DEE D0 3F bne ?104731 F81DF0 A9 40 lda #$404732 F81DF2 85 BB sta SMTmpH4733 F81DF4 20 34 1E jsr F8Tst4734 F81DF7 20 A9 1E jsr MEMTst4735 F81DFA A9 80 lda #$804736 F81DFC 85 BB sta SMTmpH4737 F81DFE 20 34 1E jsr F8Tst4738 F81E01 20 A9 1E jsr MEMTst4739 F81E04 A9 C0 lda #$C04740 F81E06 85 BB sta SMTmpH4741 F81E08 20 34 1E jsr F8TstTue Jul 17 11:00:15 2018 Page 394742 F81E0B 20 A9 1E jsr MEMTst4743 F81E0E A9 FF lda #$FF4744 F81E10 85 BA sta SMTmpL4745 F81E12 85 BB sta SMTmpH4746 F81E14 8D 4C 00 sta !MemTop ; imposta MemTop = $FFFF4747 F81E17 8D 4D 00 sta !MemTop+14748 F81E1A A5 BC lda SMTmpK4749 F81E1C 8D 4E 00 sta !MemTop+24750 F81E1F 20 34 1E jsr F8Tst4751 F81E22 20 A9 1E jsr MEMTst4752 F81E25 D0 08 bne ?104753 F81E27 E6 BC inc SMTmpK4754 F81E29 A5 BC lda SMTmpK4755 F81E2B C9 F8 cmp #$F84756 F81E2D 90 96 bcc ?02 ; loop4757 F81E2F ?10: SCN_CR4758 F81E2F SCNPRCHAR4759 .MLIST4760 F81E2F 02 07 cop $074761 .MNLIST4762 F81E31 0D .DB $0D4763 .MNLIST4764 F81E32 2B pld4765 F81E33 60 rts4766 F81E344767 F81E34 F8Tst:4768 F81E34 2C 55 00 bit !BiosEnt4769 F81E37 30 51 bmi ?01 ; salta test <F8> se gia' premuto4770 F81E39 50 4F bvc ?01 ; bit 6 - abilita test F8 solo al boot4771 F81E3B A5 62 lda KbdCnt ; char disponibili nel buffer tastiera ?4772 F81E3D F0 4B beq ?01 ; no4773 F81E3F 20 1B A2 jsr GetBufKey ; Y -> flag - A -> codice4774 F81E42 AA tax ; X = codice4775 F81E43 98 tya ; A = flag4776 F81E44 0A asl a ; C = bit 7, N = bit 64777 F81E45 30 43 bmi ?01 ; ignora rilascio tasti4778 F81E47 90 41 bcc ?01 ; ignora tasti ASCII4779 F81E49 E0 A7 cpx #KB_F8 ; test F84780 F81E4B D0 3D bne ?01 ; scarta4781 F81E4D A9 80 lda #$804782 F81E4F 0C 55 00 tsb !BiosEnt ; flag ingresso al setup bios4783 F81E52 A6 B6 ldx SMAddrL ; set posizione4784 F81E54 A4 B7 ldy SMAddrH4785 F81E56 SCNSETPOS4786 F81E56 02 18 cop $184787 F81E58 03 .DB $034788 .MNLIST4789 F81E59 SCNPRINT4790 F81E59 02 01 cop $014791 .MNLIST4792 F81E5B 3C 46 38 3E 20 .DB '<F8> detected - entering BIOS setup after boot', $0064 65 74 65 6374 65 64 20 2D20 65 6E 74 6572 69 6E 67 2042 49 4F 53 2073 65 74 75 70Tue Jul 17 11:00:15 2018 Page 4020 61 66 74 6572 20 62 6F 6F74 004793 F81E8A 60 ?01: rts47944795 ; versione long4796 F81E8B LF8Tst:4797 F81E8B 48 pha4798 F81E8C DA phx4799 F81E8D 5A phy4800 F81E8E 08 php4801 F81E8F 0B phd4802 F81E90 F4 00 01 pea #DP01ADDR4803 F81E93 2B pld4804 F81E94 CPU084805 F81E94 E2 30 sep #(PMFLAG.OR.PXFLAG)4806 .LONGA off4807 .LONGI off4808 .MNLIST4809 F81E96 SCNGETPOS4810 F81E96 02 18 cop $184811 F81E98 02 .DB $024812 .MNLIST4813 F81E99 DA phx4814 F81E9A 5A phy4815 F81E9B 20 34 1E jsr F8Tst4816 F81E9E 7A ply4817 F81E9F FA plx4818 F81EA0 SCNSETPOS4819 F81EA0 02 18 cop $184820 F81EA2 03 .DB $034821 .MNLIST4822 F81EA3 2B pld4823 F81EA4 28 plp4824 F81EA5 7A ply4825 F81EA6 FA plx4826 F81EA7 68 pla4827 F81EA8 60 rts48284829 F81EA9 MEMTst:4830 F81EA9 A7 BA lda [SMTmpL]4831 F81EAB EB xba ; salva dato in B4832 F81EAC A9 55 lda #$554833 F81EAE 87 BA sta [SMTmpL]4834 F81EB0 C7 BA cmp [SMTmpL]4835 F81EB2 D0 06 bne ?024836 F81EB4 A9 AA lda #$AA4837 F81EB6 87 BA sta [SMTmpL]4838 F81EB8 C7 BA cmp [SMTmpL]4839 F81EBA 08 ?02: php ; salva Z4840 F81EBB EB xba ; ripristina dato4841 F81EBC 87 BA sta [SMTmpL]4842 F81EBE 28 plp4843 F81EBF D0 11 bne ?044844 F81EC1 A6 F6 ldx SMXPos4845 F81EC3 A4 F7 ldy SMYPos4846 F81EC5 SCNSETPOS ; set pos addressTue Jul 17 11:00:15 2018 Page 414847 F81EC5 02 18 cop $184848 F81EC7 03 .DB $034849 .MNLIST4850 F81EC8 A5 BA lda SMTmpL4851 F81ECA A6 BB ldx SMTmpH4852 F81ECC 20 E2 1E jsr _Scn2Hex4853 F81ECF A9 00 lda #$00 ; Z = 14854 F81ED1 60 rts4855 F81ED2 A6 D6 ?04: ldx SMAuxL ; set pos banco4856 F81ED4 A4 D7 ldy SMAuxH4857 F81ED6 SCNSETPOS4858 F81ED6 02 18 cop $184859 F81ED8 03 .DB $034860 .MNLIST4861 F81ED9 AD 4E 00 lda !MemTop+2 ; print banco4862 F81EDC 20 E8 1E jsr _ScnHex4863 F81EDF A9 01 lda #$01 ; Z = 04864 F81EE1 60 rts48654866 ; stampa a video word A(lo)-X(hi)4867 F81EE2 _Scn2Hex:4868 F81EE2 48 pha4869 F81EE3 8A txa4870 F81EE4 20 E8 1E jsr _ScnHex4871 F81EE7 68 pla48724873 ; _ScnHex - stampa a video byte HEX4874 ; In - A = byte4875 ; Out - nessuno4876 F81EE8 _ScnHex:4877 F81EE8 DA phx ; salva x4878 F81EE9 20 F3 1E jsr Byte2Hex ; X,A = HEX4879 F81EEC TXTCHAROUT ; stampa hi digit4880 F81EEC 02 06 cop $064881 .MNLIST4882 F81EEE 8A txa4883 F81EEF FA plx ; ripristina x4884 F81EF0 TXTCHAROUT ; stampa low gigit4885 F81EF0 02 06 cop $064886 .MNLIST4887 F81EF2 60 rts48884889 ; Byte2Hex - converte byte in HEX4890 ; In - A = byte4891 ; Out: - X = low digit4892 ; A = hi digit4893 F81EF3 Byte2Hex:4894 F81EF3 48 pha ; salva A4895 F81EF4 20 FD 1E jsr ?01 ; converte parte bassa4896 F81EF7 AA tax ; x = low digit4897 F81EF8 68 pla4898 F81EF9 4A lsr a ; parte alta4899 F81EFA 4A lsr a4900 F81EFB 4A lsr a4901 F81EFC 4A lsr a4902 F81EFD 29 0F ?01: and #$0F ; maschera nibble4903 F81EFF C9 0A cmp #10Tue Jul 17 11:00:15 2018 Page 424904 F81F01 90 02 bcc ?024905 F81F03 69 06 adc #64906 F81F05 69 30 ?02: adc #'0'4907 F81F07 60 rts49084909 ;----------------------------------------------------------49104911 F81F084912 ;----------------------------------------------------------49134914 ; init CRTC - DOT 25.175MHz, CCLK = 3.146875MHz, FH (-) = 31.469KHz4915 ; FV (+) = 70Hz - 449 raster lines -- HD64454916 F81F08 CRTCREG:4917 F81F08 00 63 01 50 02 .DB $00, $63, $01, $50, $02, $5A, $03, $D45A 03 D44918 F81F10 04 1B 05 01 06 .DB $04, $1B, $05, $01, $06, $19, $07, $1B19 07 1B4919 F81F18 08 00 09 0F 0A .DB $08, $00, $09, $0F, $0A, $20, $0B, $0F20 0B 0F4920 F81F20 0C 00 0D 00 0E .DB $0C, $00, $0D, $00, $0E, $00, $0F, $0000 0F 004921 F81F28 FF .DB $FF4922 F81F29 1E 00 1F 00 20 .DB $1E, $00, $1F, $00, $20, $00, $FF00 FF4923 F81F304924 F81F30 BootMsg:4925 F81F30 SCNPRINT4926 F81F30 02 01 cop $014927 .MNLIST4928 F81F32 4D 61 63 68 69 .DB 'Machine 65C816 (native mode) model B16/01 - '6E 65 20 36 3543 38 31 36 2028 6E 61 74 6976 65 20 6D 6F64 65 29 20 6D6F 64 65 6C 2042 31 36 2F 3031 20 2D 204929 F81F5E 28 63 29 20 32 .DB '(c) 2012, Dream SpA.', $0D, $0030 31 32 2C 2044 72 65 61 6D20 53 70 41 2E0D 004930 F81F74 SCNPRINT4931 F81F74 02 01 cop $014932 .MNLIST4933 F81F76 42 49 4F 53 20 .DB 'BIOS bootstrap B16 rev. 1.0 (2013/06/05) - VIDEO RGB ', $0062 6F 6F 74 7374 72 61 70 2042 31 36 20 7265 76 2E 20 312E 30 20 28 3230 31 33 2F 3036 2F 30 35 2920 2D 20 56 4944 45 4F 20 5247 42 20 00Tue Jul 17 11:00:15 2018 Page 434934 F81FAC 2C 6D 01 bit !DP01ADDR+VBBRam4935 F81FAF 10 2F bpl ?104936 F81FB1 SCNPRINT4937 F81FB1 02 01 cop $014938 .MNLIST4939 F81FB3 56 47 41 20 63 .DB 'VGA compatible ', $006F 6D 70 61 7469 62 6C 65 20004940 F81FC3 2C 6C 01 bit !DP01ADDR+VBBFlag4941 F81FC6 70 0D bvs ?054942 F81FC8 SCNPRINT4943 F81FC8 02 01 cop $014944 .MNLIST4945 F81FCA 52 36 35 34 35 .DB 'R6545EAP', $0045 41 50 004946 F81FD3 80 19 bra ?204947 F81FD5 ?05: SCNPRINT4948 F81FD5 02 01 cop $014949 .MNLIST4950 F81FD7 48 44 36 34 34 .DB 'HD6445', $0035 004951 F81FDE 80 0E bra ?204952 F81FE0 ?10: SCNPRINT4953 F81FE0 02 01 cop $014954 .MNLIST4955 F81FE2 50 41 4C 20 4D .DB 'PAL MOS8563', $004F 53 38 35 3633 004956 F81FEE ?20: SCNPRINT4957 F81FEE 02 01 cop $014958 .MNLIST4959 F81FF0 0D 0D 00 .DB $0D, $0D, $004960 F81FF3 60 rts4961 F81FF449624963 ; ----- init usb 0 ------4964 F81FF4 initusb0:4965 F81FF4 64 43 stz usb0st ; clear usb0 status4966 F81FF6 A9 08 lda #CB2IFRB4967 F81FF8 8D CD FD sta !VIA3+VIAIFR4968 F81FFB A9 15 lda #CMD_SET_USB_MODE4969 F81FFD 8D D1 FD sta !usb0cmd4970 F82000 EA nop4971 F82001 EA nop4972 F82002 EA nop4973 F82003 EA nop4974 F82004 A9 07 lda #SET_USB_RES ; reset usb0 bus4975 F82006 8D D0 FD sta !usb0dat4976 F82009 20 33 20 jsr delay32us4977 F8200C AD D0 FD lda !usb0dat4978 F8200F C9 51 cmp #CMD_RET_SUCCESS4979 F82011 D0 1F bne ?end ; fail4980 F82013 20 48 20 jsr delay10ms4981 F82016 A9 15 lda #CMD_SET_USB_MODE4982 F82018 8D D1 FD sta !usb0cmd4983 F8201B EA nopTue Jul 17 11:00:15 2018 Page 444984 F8201C EA nop4985 F8201D EA nop4986 F8201E EA nop4987 F8201F A9 06 lda #SET_USB_HOST ; set usb0 bus mode4988 F82021 8D D0 FD sta !usb0dat4989 F82024 20 33 20 jsr delay32us4990 F82027 AD D0 FD lda !usb0dat4991 F8202A C9 51 cmp #CMD_RET_SUCCESS4992 F8202C D0 04 bne ?end ; fail4993 F8202E A9 80 lda #$804994 F82030 85 43 sta usb0st ; <7>: usb0 host mode ok4995 F82032 60 ?end: rts49964997 ; delay49984999 000080 T32US .EQU (32 * PHI2)5000 009C40 T10MS .EQU (10 * 1000 * PHI2)50015002 F82033 delay32us:5003 F82033 A9 20 lda #$20 ; T2 count PHI2 pulses5004 F82035 1C 0B FD trb VIA0+VIAACR5005 F82038 A9 80 lda #T32US5006 F8203A 8D 08 FD sta !VIA0+VIAT2CL5007 F8203D 9C 09 FD stz !VIA0+VIAT2CH5008 F82040 AD 0D FD ?55: lda !VIA0+VIAIFR5009 F82043 89 20 bit #T2IFRB5010 F82045 F0 F9 beq ?555011 F82047 60 rts50125013 F82048 delay10ms:5014 F82048 A9 20 lda #$20 ; T2 count PHI2 pulses5015 F8204A 1C 0B FD trb VIA0+VIAACR5016 F8204D A9 40 lda #<T10MS5017 F8204F 8D 08 FD sta !VIA0+VIAT2CL5018 F82052 A9 9C lda #>T10MS5019 F82054 8D 09 FD sta !VIA0+VIAT2CH5020 F82057 AD 0D FD ?22: lda !VIA0+VIAIFR5021 F8205A 89 20 bit #T2IFRB5022 F8205C F0 F9 beq ?225023 F8205E 60 rts50245025 F8205F TEST12:5026 F8205F A0 00 ldy #05027 F82061 0B phd5028 F82062 F4 00 60 pea #$60005029 F82065 2B pld5030 ; check EEROM emulator board5031 F82066 8C 12 FC ?00: sty .ABS.VIA2+VIADDRB5032 F82069 CC 12 FC cpy .ABS.VIA2+VIADDRB5033 F8206C D0 4E bne ?09 ; fail -- goto old way5034 F8206E C8 iny5035 F8206F D0 F5 bne ?005036 F820715037 ; ok, seem present5038 F82071 AD 1F FC lda !VIA2+VIAPRANH5039 F82074 29 10 and #$105040 F82076 D0 44 bne ?09 ; BUSY -- goto old wayTue Jul 17 11:00:15 2018 Page 455041 F82078 88 dey5042 F82079 8C 12 FC sty .ABS.VIA2+VIADDRB ; port B out50435044 ; transfer emulator data to $E0 bank5045 F8207C A9 E8 lda #$E85046 F8207E 85 02 sta <25047 F82080 64 00 stz <05048 F82082 64 01 stz <15049 F82084 9C 10 FC stz !VIA2+VIAPRB5050 F82087 8D 0D FC sta !CREMEON5051 F8208A INDEX165052 F8208A C2 10 rep #PXFLAG5053 .LONGI on5054 .MNLIST5055 F8208C A0 00 00 ?lp1: ldy #05056 F8208F BB tyx5057 F82090 BF 00 18 01 ?lp2: lda >EMURAM,x5058 F82094 97 00 sta [0],y5059 F82096 C8 iny5060 F82097 E8 inx5061 F82098 E0 00 08 cpx #$08005062 F8209B 90 F3 bcc ?lp25063 F8209D ACC16CLC5064 F8209D C2 21 rep #(PMFLAG.OR.PCFLAG)5065 .LONGA on5066 .MNLIST5067 F8209F 8A txa5068 F820A0 65 00 adc <05069 F820A2 85 00 sta <05070 F820A4 ACC085071 F820A4 E2 20 sep #PMFLAG5072 .LONGA off5073 .MNLIST5074 F820A6 90 02 bcc ?nxt5075 F820A8 E6 02 inc <25076 F820AA EE 10 FC ?nxt: inc !VIA2+VIAPRB5077 F820AD D0 DD bne ?lp15078 F820AF CPU085079 F820AF E2 30 sep #(PMFLAG.OR.PXFLAG)5080 .LONGA off5081 .LONGI off5082 .MNLIST5083 F820B1 8D 0C FC sta !CREMEOFF5084 F820B4 8D 08 FC sta !CRXFEOFF ; disabilita flash F00000 - F7FFFF5085 F820B7 2B pld5086 F820B8 A9 FF lda #$FF5087 F820BA 00 00 brk50885089 F820BC A9 55 ?09: lda #$555090 F820BE 2B pld5091 F820BF A9 55 lda #$555092 F820C1 00 00 brk50935094 F820C3 shutdown:5095 .PUBLIC shutdown50965097 F820C3 58 cliTue Jul 17 11:00:15 2018 Page 465098 F820C4 20 E4 20 jsr asksdown5099 F820C7 B0 16 bcs ?1005100 F820C9 AD 10 FD ?51: lda VIA1+VIAPRB5101 F820CC CD 10 FD cmp VIA1+VIAPRB5102 F820CF D0 F8 bne ?515103 F820D1 29 10 and #$105104 F820D3 F0 F4 beq ?5151055106 ; OFF command5107 F820D5 A2 4A ldx #RTCEXTCTRLA5108 F820D7 8E 4C FD stx RTCALE5109 F820DA A9 08 lda #$08 ; POWERON -> HIGH5110 F820DC 0C 4D FD tsb RTCDATA51115112 F820DF ?100: SCNPRINT5113 F820DF 02 01 cop $015114 .MNLIST5115 F820E1 0D 00 .DB 13,05116 F820E3 6B rtl51175118 ; return CF=0 if YES, CF=1 if NO5119 F820E4 asksdown:5120 F820E4 SCNPRINT5121 F820E4 02 01 cop $015122 .MNLIST5123 F820E6 0D 53 68 75 74 .DB 13, 'Shutdown machine. Continue <Y/N> ?',064 6F 77 6E 206D 61 63 68 696E 65 2E 20 436F 6E 74 69 6E75 65 20 3C 592F 4E 3E 20 3F005124 F8210A 20 1E 21 ?10: jsr getkey05125 F8210D B0 FB bcs ?10 ; control key5126 F8210F AA tax5127 F82110 EB xba5128 F82111 A8 tay5129 F82112 D0 F6 bne ?10 ; CTL, ALT, SHIFT5130 F82114 E0 79 cpx #'y'5131 F82116 18 clc5132 F82117 F0 04 beq ?205133 F82119 E0 6E cpx #'n'5134 F8211B D0 ED bne ?105135 F8211D 60 ?20: rts5136 F8211E5137 ; wait a pressed key5138 F8211E getkey0:5139 F8211E ?02: KBGETIN ; system call - get key5140 F8211E 02 17 cop $175141 .MNLIST5142 F82120 C9 00 cmp #05143 F82122 F0 FA beq ?02 ; loop -- wait pressed key5144 F82124 AA tax ; X=key code5145 F82125 EB xba5146 F82126 18 clc5147 F82127 A8 tay ; Y=control key flagTue Jul 17 11:00:15 2018 Page 475148 F82128 10 01 bpl ?045149 F8212A 38 sec ; flag control key5150 F8212B AF 64 01 00 ?04: lda >DP01ADDR+KbdFlag5151 F8212F EB xba ; B = flag ALT, CTL, SHIFT5152 F82130 18 clc5153 F82131 8A txa ; key code5154 F82132 60 rtsLines Assembled : 4990 Errors : 0