Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:18 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F8\sp2.asmOutput Filename : obj\F8\sp2.objListing Has Been Relocated2605 .LIST on26062607 F8FFB1 .INCLUDE inc\dirp00.inc2608 ;----------------------------------------------------------2609 ; DIRP00.ASM2610 ; PROGETTO: B16012611 ;2612 ; Variabili in Direct Page $002613 ;----------------------------------------------------------26142615 ; sezione COMMON -- questo permette di includere il file in piu' file26162617 .LIST on26182619 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026202621 000000 .ABSOLUTE ;; inizia sempre da $002622 000000 .ORG 0x002623 0000002624 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2625 000002 0000 .DW2626 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2627 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2628 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2629 ; <6>: flag warm reset2630 00000D 00 RTCFlag .DB26312632 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12633 ; <7>: device ready2634 ; <6>: compact flash device (C.F.)2635 ; <5>: device identification ok2636 ; <4>: MBR loaded2637 ; <3>: valid signature in MBR2638 ; <2>: first partition found&active2639 ; <1>:2640 ; <0>: valid partition flag26412642 ; <7>: device ready2643 ; <6>: USB device2644 ; <5>: compact flash device (C.F.)2645 ; <4>: device identification ok2646 ; <3>: MBR loaded2647 ; <2>: first partition found&active2648 ; <1>: always 12649 ; <0>: valid partition flag2650 000010Tue Jul 17 11:00:18 2018 Page 226512652 00000E atadev .EQU diskstat26532654 000010 usbdev .DS 2 ; flag flash disk on usb bus #02655 ; <7>: device plugged and ready2656 ; <6>: always 12657 ; <5>: device identification ok2658 ; <4>: MBR loaded2659 ; <3>: valid signature in MBR2660 ; <2>: first partition found&active2661 ; <1>:2662 ; <0>: valid partition flag26632664 000012 diskmax .DS 16 ; disk max. sector's2665 000012 atasec .EQU diskmax2666 00001A usbsec .EQU diskmax+8266726682669 000022 atambr .DS 8 ; data for first partition found in mbr2670 ; first 3 bytes for start sector of partition2671 ; last byte for partition type2672 00002A usbmbr .DS 826732674 000032 ataprt .DS 8 ; total sec's of first partition2675 00003A usbprt .DS 8 ; total sec's of first partition267626772678 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2679 ; <7>: module on2680 ; <6>: ch376 flag2681 ; <5:0>: chip version26822683 000043 00 usb0st .DB ; usb0 status2684 ; <7>: usb0 host mode ok2685 ; <6>: flash disk attached flag2686 ; <5>: usb device attached26872688 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2689 ; <7>: disk format established in bit 0&12690 ; <6>: double step seek done2691 ; <5>: trust format bit's (set after ok r/w)2692 ; <4>: write protect bit (if disk in drive)2693 ; <3>: don't care2694 ; <2>: don't care2695 ; <1>: HD disk if set else DD disk2696 ; <0>: CBM format if set else IBM format26972698 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2699 ; <7>: disk format established in bit 0&12700 ; <6>: change disk simulation (after format)2701 ; <5>: don't care2702 ; <4>: write protect bit (under sw control)2703 ; <3>: don't care2704 ; <2>: don't care2705 ; <1>: HD disk if set else DD disk2706 ; <0>: CBM format if set else IBM format2707Tue Jul 17 11:00:18 2018 Page 32708 000046 00 fdcctl .DB ; fdc controller status2709 ; <7>: drive is attached2710 ; <6>: drive need recalibration (restore)2711 ; <5>: FDC controller ok2712 ; <4>: motor on2713 ; <3>: dma is active2714 ; <2>: dma chip ok (post routine)2715 ; <1>: clock rate (1=HD,0=DD)2716 ; <0>: disk ready27172718 000047 00 fdctrk .DB ; fd: current seek track2719 000048 00 fdcerr .DB ; fd: last error code2720 000049 00 ataerr .DB ; ata: last error code2721 00004A 00 ataxer .DB ; ata: last extended error code27222723 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27242725 00004C 0000 MemTop .DW ; top memoria RAM2726 00004E 00 .DB ; banco top mem27272728 00004F 00 DflTxtIn .DB ; device di default text input2729 000050 00 DflTxtOut .DB ; device di default text output27302731 000051 COPPtr LP ; long pointer for COP decoding2732 000054 00 COPIdx .DB ; COP signature/index27332734 000055 00 BiosEnt .DB ; flag accesso a bios setup27352736 ; variabili utilizzate da ACIA2737 000056 spwrk .DS $3027382739 ; bios mem2740 000086 0000 nsize .DW ; dimensione blocco da allocare2741 ;bsize .DW ; dimensione vera blocco free2742 000088 0000 splitsz .DW ; dimensione blocco splittato2743 00008A 0000 bfree .DW ; puntatore blocco free2744 00008C 0000 hdrptr .DW ; puntatore header heap27452746 00008E 0000 pbrklv .DW ; current break level of current process2747 000090 0000 pbrkmin .DW ; minimum breal level of current process2748 000092 0000 pbrkmax .DW ; maximum breal level of current process2749 0000942750 ; bios temp. work area2751 000094 bwrktmp .DS $2827522753 0000BC 00 coptmp .DB ; temp. used while cop27542755 0000BD 00 tstser .DB ; check ser/usb test board post2756 ; <7>: VIA2 ok2757 ; <6>: PICRAM ok2758 ; <1>: UART 16C550 ok2759 ; <0>: R65C51 ok276027612762 ;crc16 .DW27632764 0000BD .RELATIVETue Jul 17 11:00:18 2018 Page 427652766 .ENDS27672768 [01] .IFDEF _ACIA_INC_2769 .INCLUDE INC\SP.INC2770 [00] .ENDIF27712795 .LIST on27962797 05C000 SOBUFADDR3 .EQU SPOUTBUFF32798 05D000 SIBUFADDR3 .EQU SPINBUFF32799 001000 SOBUFSIZ3 .EQU $10002800 001000 SIBUFSIZ3 .EQU $100028012802 060000 SOBUFADDR4 .EQU SPOUTBUFF42803 068000 SIBUFADDR4 .EQU SPINBUFF42804 ;SOBUFSIZ4 .EQU $10002805 ;SIBUFSIZ4 .EQU $10002806 008000 SOBUFSIZ4 .EQU $80002807 008000 SIBUFSIZ4 .EQU $800028082809 000200 NGUARD31 .EQU $0200 ; numero bytes di guardia buffer RX XON/XOFF2810 000100 NGUARD32 .EQU $0100 ; numero bytes di guardia buffer RX handshake2811 000800 NFREE31 .EQU $0800 ; minimo posto in coda RX per cancellare pausa remota2812 000400 NFREE32 .EQU $040028132814 ;---------------------------------------------------------------------------2815 ; direct page var's for test serial ports/usb handling2816 ;---------------------------------------------------------------------------28172818 DPSP2: .SECTION page0, common, ref_only ;UART D.P.28192820 000000 00 usbslv .DB ; <7>: plugged-in, <6>: plug-in pending2821 000001 00 usbum .DB ; <7>: pending message, <6>: connected2822 000002 00 usbcnt1 .DB ; timeout UM245 plug-in detection2823 000003 usbbuf .DS 82824 00000B 00 usbtim .DB2825 00000C 00 usbcnt .DB2826 00000D 00 usbmst .DB2827 00000E 0000 usbsiz .DW2828 000010 usbptr LP2829 000013 00 usbtmp .DB2830 000014 00 usbcmp .DB28312832 ; serial port 65C512833 000015 00 spmode3 .DB ; <7>: 0=no handshake, 1=handshake2834 ; <6>: 0=software/1=hardware handshake2835 ; <5>: not used2836 ; <4>: not used2837 ; <3>: 0=odd parity, 1=even parity2838 ; <2>: 0=no parity, 1=parity as specified2839 ; by bit <3>2840 ; <1:0> : baud rate2841 ; 00 = 192002842 ; 01 = 384002843 ; 10 = 576002844 ; 11 = 115200Tue Jul 17 11:00:18 2018 Page 52845 0000162846 000016 00 splin3 .DB ; <7>: /CTS line level2847 ; <6>: /DSR line status2848 0000172849 000017 00 sppause3 .DB2850 000018 00 spout3 .DB2851 000019 00 spstat3 .DB ; staus2852 ; <7>: rx error (data discarded)2853 ; <6>: rx buffer overflow2854 ; <5>: remote disconnession (/DSR line = 1)2855 ; <4>: output buffer overflow2856 ; <3>: not used2857 ; <2>: framing error2858 ; <1>: parity error2859 ; <0>: overrun error28602861 00001A 00 sptmp3 .DB28622863 00001B 0000 ibuftail3 .DW2864 00001D 0000 ibufhead3 .DW2865 00001F 0000 obuftail3 .DW2866 000021 0000 obufhead3 .DW2867 000023 0000 ibufcnt3 .DW2868 000025 0000 obufcnt3 .DW2869 000027 0000 icntmin3 .DW2870 000029 0000 icntmax3 .DW28712872 ; serial port 16C5502873 00002B 00 spmode4 .DB ; <7>: 0=no handshake, 1=handshake2874 ; <6>: 0=software/1=hardware handshake2875 ; <5>: not used2876 ; <4>: not used2877 ; <3>: 0=odd parity, 1=even parity2878 ; <2>: 0=no parity, 1=parity as specified2879 ; by bit <3>2880 ; <1:0> : baud rate2881 ; 00 = 192002882 ; 01 = 384002883 ; 10 = 576002884 ; 11 = 1152002885 00002C2886 00002C 00 splin4 .DB ; <7>: /DSR line level2887 ; <6>: /CTS line status2888 00002D2889 00002D 00 sppause4 .DB2890 00002E 00 spout4 .DB2891 00002F 00 spstat4 .DB ; staus2892 ; <7>: rx error (data discarded)2893 ; <6>: rx buffer overflow2894 ; <5>: remote disconnession (/DSR line = 1)2895 ; <4>: output buffer overflow2896 ; <3>: break2897 ; <2>: framing error2898 ; <1>: parity error2899 ; <0>: overrun error29002901 000030 00 sptmp4 .DBTue Jul 17 11:00:18 2018 Page 629022903 000031 0000 ibuftail4 .DW2904 000033 0000 ibufhead4 .DW2905 000035 0000 obuftail4 .DW2906 000037 0000 obufhead4 .DW2907 000039 0000 ibufcnt4 .DW2908 00003B 0000 obufcnt4 .DW2909 00003D 0000 icntmin4 .DW2910 00003F 0000 icntmax4 .DW29112912 000041 00 spcnt4 .DB2913 000042 00 uartlsr .DB2914 000043 00 uartiir .DB29152916 000044 usb0name .DS 3629172918 .ENDS29192923 .LIST on29242925 .CODEF82926 F80ABC2927 .LONGA off2928 .LONGI off29292930 ; set serial port #2 - 65C512931 ; A=mode2932 F80ABC spset2:2933 F80ABC 78 sei ; disable interrupt2934 F80ABD 0B phd2935 F80ABE F4 00 05 pea #DP05ADDR2936 F80AC1 2B pld2937 F80AC2 85 15 sta spmode3 ; save mode2938 F80AC4 AA tax2939 F80AC5 8D 29 FC sta !ACIASR ; software reset2940 F80AC8 A9 02 lda #ACIACMDOFF ; disable all2941 F80ACA 8D 2A FC sta !ACIACMD2942 F80ACD AD 28 FC lda !ACIADR ; clear flags2943 F80AD0 AD 29 FC lda !ACIASR2944 F80AD3 29 40 and #01000000B ; get /DSR status2945 F80AD5 F0 04 beq ?dsrl2946 F80AD7 04 16 tsb splin3 ; /DSR high2947 F80AD9 80 04 bra ?cts2948 F80ADB A9 40 ?dsrl: lda #01000000B2949 F80ADD 14 16 trb splin3 ; /DSR low2950 F80ADF A0 80 ?cts: ldy #$802951 F80AE1 A9 08 lda #00001000B ; check /CTS line level: PA<3>2952 F80AE3 2C 1F FC bit !VIA2+VIAPRANH2953 F80AE6 F0 05 beq ?ctsl ; /CTS is low2954 F80AE8 98 tya2955 F80AE9 04 16 tsb splin3 ; /CTS is high2956 F80AEB 80 03 bra ?br2957 F80AED 98 ?ctsl: tya2958 F80AEE 14 16 trb splin3 ; /CTS is low2959 F80AF0 8A ?br: txa ; <1:0> = baud rate select2960 F80AF1 29 03 and #00000011B2961 F80AF3 85 1A sta sptmp3Tue Jul 17 11:00:18 2018 Page 72962 F80AF5 AD 1F FC lda !VIA2+VIAPRANH2963 F80AF8 29 F8 and #11111000B ; /RTS low2964 F80AFA 05 1A ora sptmp32965 F80AFC 8D 1F FC sta !VIA2+VIAPRANH2966 F80AFF A9 10 lda #00010000B ; 8 bits, 1 stop bit, divisor = 1/162967 F80B01 8D 2B FC sta !ACIACTRL2968 F80B04 8A txa ; mode2969 F80B05 29 0C and #00001100B ; mask on bits 3 & 2 (parity mode)2970 F80B07 0A asl a ; shift <3:2> to <6:5>2971 F80B08 0A asl a2972 F80B09 0A asl a2973 F80B0A 09 05 ora #00000101B ; enable all int., /DTR=low2974 F80B0C 85 1A sta sptmp3 ; byte for command register2975 F80B0E 64 17 stz sppause3 ; init work area2976 F80B10 64 18 stz spout32977 F80B12 64 19 stz spstat32978 F80B14 24 15 bit spmode32979 F80B16 CPU16 ; init buffer's pointer's2980 F80B16 C2 30 rep #(PMFLAG.OR.PXFLAG)2981 .LONGA on2982 .LONGI on2983 .MNLIST2984 F80B18 70 08 bvs ?hw ; hardware handshake2985 F80B1A A9 00 02 lda #NGUARD312986 F80B1D A0 00 08 ldy #NFREE312987 F80B20 80 06 bra ?do2988 F80B22 A9 00 01 ?hw: lda #NGUARD322989 F80B25 A0 00 04 ldy #NFREE322990 F80B28 85 29 ?do: sta icntmax32991 F80B2A 84 27 sty icntmin32992 F80B2C 38 sec2993 F80B2D A9 00 10 lda #SIBUFSIZ32994 F80B30 E5 29 sbc icntmax32995 F80B32 85 29 sta icntmax32996 F80B34 64 1B stz ibuftail32997 F80B36 64 1D stz ibufhead32998 F80B38 64 23 stz ibufcnt32999 F80B3A 64 1F stz obuftail33000 F80B3C 64 21 stz obufhead33001 F80B3E 64 25 stz obufcnt33002 F80B40 CPU083003 F80B40 E2 30 sep #(PMFLAG.OR.PXFLAG)3004 .LONGA off3005 .LONGI off3006 .MNLIST3007 F80B42 24 15 bit spmode33008 F80B44 10 06 bpl ?ok ; no handshake3009 F80B46 50 04 bvc ?ok ; software handshake3010 F80B48 24 16 bit splin3 ; check /DSR line3011 F80B4A 50 00 bvc ?ok ; remote terminal is connected3012 ;lda #$203013 ;tsb spstat3 ; remote terminal not connected now3014 F80B4C AD 28 FC ?ok: lda .ABS.ACIADR ; discard any pending received data3015 F80B4F AD 29 FC lda .ABS.ACIASR ; read current interrupt status3016 F80B52 A5 1A lda sptmp3 ; enable interrupts3017 F80B54 8D 2A FC sta .ABS.ACIACMD3018 F80B57 2B pldTue Jul 17 11:00:18 2018 Page 83019 F80B58 58 cli3020 F80B59 60 rts30213022 ; reset serial port #2 - 65C513023 F80B5A spres2:3024 F80B5A 8D 29 FC sta !ACIASR ; software reset3025 F80B5D A9 02 lda #ACIACMDOFF ; disable all3026 F80B5F 8D 2A FC sta !ACIACMD3027 F80B62 AD 28 FC lda !ACIADR ; clear flags3028 F80B65 AD 29 FC lda !ACIASR3029 F80B68 60 rts3030 F80B693031 ; send A to serial port 65C513032 F80B69 spput2:3033 F80B69 78 sei ; disable interrupt3034 F80B6A 0B phd3035 F80B6B F4 00 05 pea #DP05ADDR3036 F80B6E 2B pld3037 F80B6F 86 1A stx sptmp3 ; save X reg.3038 F80B71 A0 00 ldy #0 ; Y = 03039 F80B73 INDEX163040 F80B73 C2 10 rep #PXFLAG3041 .LONGI on3042 .MNLIST3043 F80B75 A6 25 ldx obufcnt33044 F80B77 E0 00 10 cpx #SOBUFSIZ3 ; output buffer is full?3045 F80B7A 90 07 bcc ?str ; no, store byte3046 F80B7C 24 16 bit splin33047 F80B7E 50 2D bvc ?done ; exit with CF=1, Y=0: output buffer is full3048 F80B80 88 dey3049 F80B81 80 2A bra ?done ; exit with CF=1, Y=$FF: remote terminal off3050 F80B83 E8 ?str: inx ; update count3051 F80B84 86 25 stx obufcnt33052 F80B86 A6 1F ldx obuftail3 ; output buffer tail pointer3053 F80B88 9F 00 C0 05 sta >SOBUFADDR3,x ; store byte in output buffer3054 F80B8C E8 inx ; update tail pointer3055 F80B8D E0 00 10 cpx #SOBUFSIZ33056 F80B90 90 01 bcc ?upd3057 F80B92 BB tyx ; circular queue3058 F80B93 86 1F ?upd: stx obuftail330593060 ; here at least one byte to send so check if tx interrupt is enabled3061 ;3062 F80B95 EB xba ; save A3063 F80B96 AD 2A FC lda !ACIACMD3064 F80B99 89 04 bit #00000100B ; check CMD<2>3065 F80B9B D0 0E bne ?xba ; tx interrupt enabled3066 F80B9D 24 17 bit sppause33067 F80B9F 70 0A bvs ?xba ; local pause is on, can't enable tx interrupt3068 F80BA1 A9 08 lda #00001000B ; first clear CMD<3>3069 F80BA3 1C 2A FC trb !ACIACMD3070 F80BA6 A9 04 lda #00000100B ; then set CMD<2>3071 F80BA8 0C 2A FC tsb !ACIACMD ; re-enable tx interrupt3072 F80BAB EB ?xba: xba ; return A = sent data3073 F80BAC 18 clc ; no error3074 F80BAD ?done: INDEX083075 F80BAD E2 10 sep #PXFLAGTue Jul 17 11:00:18 2018 Page 93076 .LONGI off3077 .MNLIST3078 F80BAF A6 1A ldx sptmp3 ; restore X reg.3079 F80BB1 2B pld3080 F80BB2 58 cli3081 F80BB3 60 rts30823083 F80BB4 spget2:3084 F80BB4 78 sei ; disable interrupt3085 F80BB5 0B phd3086 F80BB6 F4 00 05 pea #DP05ADDR3087 F80BB9 2B pld3088 F80BBA 38 sec ; assume error3089 F80BBB 86 1A stx sptmp3 ; save X reg.3090 F80BBD A5 19 lda spstat3 ; rx pending error?3091 F80BBF 30 47 bmi ?done ; yes, exit3092 F80BC1 A9 00 lda #0 ; assume no data available3093 F80BC3 A8 tay ; Y = 03094 F80BC4 INDEX163095 F80BC4 C2 10 rep #PXFLAG3096 .LONGI on3097 .MNLIST3098 F80BC6 A6 23 ldx ibufcnt3 ; available new data?3099 F80BC8 F0 3E beq ?done ; input queue is empty (exit with CF=1, A=0)3100 F80BCA CA dex ; update count3101 F80BCB 86 23 stx ibufcnt33102 F80BCD A6 1D ldx ibufhead3 ; head input buffer pointer3103 F80BCF BF 00 D0 05 lda >SIBUFADDR3,x ; get byte from queue3104 F80BD3 E8 inx ; update head pointer3105 F80BD4 E0 00 10 cpx #SIBUFSIZ33106 F80BD7 90 01 bcc ?upd3107 F80BD9 BB tyx ; circular queue3108 F80BDA 86 1D ?upd: stx ibufhead33109 F80BDC 24 17 bit sppause3 ; remote pause is on?3110 F80BDE 10 27 bpl ?ok ; no3111 F80BE0 A6 23 ldx ibufcnt33112 F80BE2 E4 27 cpx icntmin3 ; can clear remote pause?3113 F80BE4 B0 21 bcs ?ok ; no3114 F80BE6 24 15 bit spmode3 ; handshake is on?3115 F80BE8 10 1D bpl ?ok ; no3116 F80BEA EB xba ; save data3117 F80BEB 70 10 bvs ?hw ; hardware handshake3118 F80BED A9 11 lda #SPXON ; software handshake: send an XON3119 F80BEF 85 18 sta spout3 ; XON is deffered3120 F80BF1 A9 0C lda #00001100B ; re-enable tx interrupt3121 F80BF3 1C 2A FC trb !ACIACMD3122 F80BF6 A9 04 lda #00000100B3123 F80BF8 0C 2A FC tsb !ACIACMD3124 F80BFB 80 09 bra ?xba3125 F80BFD A9 04 ?hw: lda #$04 ; hardware handshake: set RTS=03126 F80BFF 1C 1F FC trb .ABS.VIA2+VIAPRANH3127 F80C02 A9 80 lda #$803128 F80C04 14 17 trb sppause3 ; clear remote pause flag3129 F80C06 EB ?xba: xba ; recover data3130 F80C07 18 ?ok: clc3131 F80C08 ?done: INDEX083132 F80C08 E2 10 sep #PXFLAGTue Jul 17 11:00:18 2018 Page 103133 .LONGI off3134 .MNLIST3135 F80C0A A6 1A ldx sptmp3 ; restore X reg.3136 F80C0C 2B pld3137 F80C0D 58 cli3138 F80C0E 60 rts ; CF=1 & A=0 mean: no data available31393140 ;------------------31413142 ; set serial port 16C5503143 ; A=mode3144 F80C0F spset3:3145 F80C0F 78 sei ; disable interrupt3146 F80C10 0B phd3147 F80C11 F4 00 05 pea #DP05ADDR3148 F80C14 2B pld3149 F80C15 85 2B sta spmode4 ; save mode3150 F80C17 9C 23 FC stz !UART_LCR3151 F80C1A 9C 21 FC stz !UART_IER ; disable all UART interrupts3152 F80C1D 9C 24 FC stz !UART_MCR ; /RTS and /DTR high3153 F80C20 9C 22 FC stz !UART_FCR ; disable FIFO3154 F80C23 AE 20 FC ldx .ABS.UART_RXTX ; clear any pending interrupt3155 F80C26 AE 25 FC ldx .ABS.UART_LSR3156 F80C29 AE 22 FC ldx .ABS.UART_IIR3157 F80C2C A2 80 ldx #$80 ; set DLAB = 1 in LCR3158 F80C2E 8E 23 FC stx .ABS.UART_LCR3159 F80C31 A8 tay ; save mode3160 F80C32 29 03 and #00000011B ; baud rate select3161 F80C34 AA tax3162 F80C35 BF A8 0C F8 lda >?div,x ; select divisor3163 F80C39 8D 20 FC sta !UART_DLL ; set low latch3164 F80C3C 9C 21 FC stz !UART_DLH ; set high latch3165 F80C3F 98 tya ; mode3166 F80C40 29 0C and #00001100B ; mask on bits 3 & 2 (parity mode)3167 F80C42 0A asl a ; shift <3:2> to <4:3>3168 F80C43 09 03 ora #00000011B ; 8N1 (8 bits data, 1 stop bit)3169 F80C45 8D 23 FC sta !UART_LCR3170 F80C48 AD 26 FC lda !UART_MSR ; get /DSR & /CTS status3171 F80C4B AA tax3172 F80C4C 0A asl a3173 F80C4D 0A asl a ; <7>: /DSR, <6>: /CTS3174 F80C4E 29 C0 and #11000000B3175 F80C50 49 C0 eor #11000000B3176 F80C52 85 2C sta splin4 ; update line status3177 F80C54 64 2D stz sppause4 ; init work area3178 F80C56 64 2F stz spstat43179 F80C58 A9 01 lda #1 ; set tx count = 13180 F80C5A 85 41 sta spcnt43181 F80C5C CPU16 ; init buffer's pointer's3182 F80C5C C2 30 rep #(PMFLAG.OR.PXFLAG)3183 .LONGA on3184 .LONGI on3185 .MNLIST3186 F80C5E A9 00 01 lda #NGUARD323187 F80C61 A0 00 04 ldy #NFREE323188 F80C64 85 3F sta icntmax43189 F80C66 84 3D sty icntmin4Tue Jul 17 11:00:18 2018 Page 113190 F80C68 38 sec3191 F80C69 A9 00 80 lda #SIBUFSIZ43192 F80C6C E5 3F sbc icntmax43193 F80C6E 85 3F sta icntmax43194 F80C70 64 31 stz ibuftail43195 F80C72 64 33 stz ibufhead43196 F80C74 64 39 stz ibufcnt43197 F80C76 64 35 stz obuftail43198 F80C78 64 37 stz obufhead43199 F80C7A 64 3B stz obufcnt43200 F80C7C CPU083201 F80C7C E2 30 sep #(PMFLAG.OR.PXFLAG)3202 .LONGA off3203 .LONGI off3204 .MNLIST3205 F80C7E A9 03 lda #00000011B ; set /RTS = /DTR low3206 F80C80 8D 24 FC sta !UART_MCR3207 F80C83 A9 20 lda #$203208 F80C85 24 2B bit spmode43209 F80C87 D0 0E bne ?nof ; no fifo3210 F80C89 A9 01 lda #13211 F80C8B 8D 22 FC sta !UART_FCR3212 F80C8E A9 87 lda #10000111B ; enable fifo, reset rx/tx fifo, trigger level = 83213 F80C90 8D 22 FC sta !UART_FCR ; rx fifo trigger = 83214 F80C93 A9 10 lda #16 ; set tx count = 16 in FIFO mode3215 F80C95 85 41 sta spcnt43216 F80C97 AD 25 FC ?nof: lda !UART_LSR ; again reset all interrupts3217 F80C9A AD 26 FC lda !UART_MSR3218 F80C9D AD 22 FC lda !UART_IIR3219 F80CA0 A9 0F lda #00001111B ; enable all interrupts3220 F80CA2 8D 21 FC sta !UART_IER3221 F80CA5 2B pld3222 F80CA6 58 cli3223 F80CA7 60 rts32243225 ; 19.200, 38.400, 57.600, 115.2003226 F80CA8 06 03 02 01 ?div: .DB 6, 3, 2, 132273228 F80CAC spres3:3229 ;stz !UART_LCR3230 F80CAC 9C 21 FC stz !UART_IER ; clear all interrupts3231 ;stz !UART_MCR ; /RTS and /DTR high3232 F80CAF A9 87 lda #10000111B ; enable fifo, reset rx/tx fifo3233 F80CB1 9C 22 FC stz !UART_FCR ; rx fifo trigger = 83234 F80CB4 AD 25 FC lda !UART_LSR3235 F80CB7 AD 26 FC lda !UART_MSR3236 F80CBA 60 rts32373238 ; send A to serial port 16C5503239 F80CBB spput3:3240 F80CBB 78 sei ; disable interrupt3241 F80CBC 0B phd3242 F80CBD F4 00 05 pea #DP05ADDR3243 F80CC0 2B pld3244 F80CC1 86 30 stx sptmp4 ; save X reg.3245 F80CC3 A0 00 ldy #0 ; Y = 03246 F80CC5 INDEX16Tue Jul 17 11:00:18 2018 Page 123247 F80CC5 C2 10 rep #PXFLAG3248 .LONGI on3249 .MNLIST3250 F80CC7 A6 3B ldx obufcnt43251 F80CC9 E0 00 80 cpx #SOBUFSIZ4 ; output buffer is full?3252 F80CCC 90 17 bcc ?str ; no, store byte3253 F80CCE 24 2C bit splin4 ; test /DSR line status3254 F80CD0 30 09 bmi ?ofl ; remote terminal disconnected3255 F80CD2 EB xba ; save A3256 F80CD3 A9 02 lda #00000010B ; enable TX interrupt...3257 F80CD5 0C 21 FC tsb !UART_IER ; ... hoping that ISR can make room in output buffer3258 F80CD8 EB xba3259 F80CD9 80 24 bra ?done ; exit with CF=1, Y=0: output buffer is full3260 F80CDB 88 ?ofl: dey ; /DSR high3261 F80CDC EB xba3262 F80CDD A9 02 lda #00000010B3263 F80CDF 1C 21 FC trb !UART_IER ; disable tx interrupt3264 F80CE2 EB xba3265 F80CE3 80 1A bra ?done ; exit with CF=1, Y=$FF: remote terminal offline3266 F80CE5 E8 ?str: inx ; update count3267 F80CE6 86 3B stx obufcnt43268 F80CE8 A6 37 ldx obufhead4 ; output buffer head pointer3269 F80CEA 9F 00 00 06 sta >SOBUFADDR4,x ; store byte in output buffer3270 F80CEE E8 inx ; update head pointer3271 F80CEF E0 00 80 cpx #SOBUFSIZ43272 F80CF2 90 01 bcc ?upd3273 F80CF4 BB tyx ; circular queue3274 F80CF5 86 37 ?upd: stx obufhead43275 F80CF7 EB xba3276 ;lda #00000010B3277 ;trb !UART_IER ; re-enable tx interrupt3278 F80CF8 A9 02 lda #00000010B3279 F80CFA 0C 21 FC tsb !UART_IER ; re-enable tx interrupt3280 F80CFD EB xba ; return A = sent data3281 F80CFE 18 clc ; no error3282 F80CFF ?done: INDEX083283 F80CFF E2 10 sep #PXFLAG3284 .LONGI off3285 .MNLIST3286 F80D01 A6 30 ldx sptmp4 ; restore X reg.3287 F80D03 2B pld3288 F80D04 58 cli3289 F80D05 60 rts32903291 F80D06 spget3:3292 F80D06 78 sei ; disable interrupt3293 F80D07 0B phd3294 F80D08 F4 00 05 pea #DP05ADDR3295 F80D0B 2B pld3296 F80D0C 38 sec ; assume error3297 F80D0D 86 30 stx sptmp4 ; save X reg.3298 F80D0F A5 2F lda spstat4 ; rx pending error?3299 F80D11 30 3A bmi ?done ; yes, exit (CF = 1, A = error code)3300 F80D13 A9 00 lda #0 ; assume no data available3301 F80D15 A8 tay ; Y = 03302 F80D16 INDEX163303 F80D16 C2 10 rep #PXFLAGTue Jul 17 11:00:18 2018 Page 133304 .LONGI on3305 .MNLIST3306 F80D18 A6 39 ldx ibufcnt4 ; available new data?3307 F80D1A F0 31 beq ?done ; input queue is empty (exit with CF=1, A=0)3308 F80D1C CA dex ; update count3309 F80D1D 86 39 stx ibufcnt43310 F80D1F A6 31 ldx ibuftail4 ; tail input buffer pointer3311 F80D21 BF 00 80 06 lda >SIBUFADDR4,x ; get byte from queue3312 F80D25 E8 inx ; update tail pointer3313 F80D26 E0 00 80 cpx #SIBUFSIZ43314 F80D29 90 01 bcc ?upd3315 F80D2B BB tyx ; circular queue3316 F80D2C 86 31 ?upd: stx ibuftail43317 F80D2E 24 2B bit spmode4 ; handshake is on?3318 F80D30 10 1A bpl ?ok ; no, exit3319 F80D32 24 2D bit sppause4 ; remote pause is on?3320 F80D34 10 16 bpl ?ok ; no, exit3321 F80D36 A6 39 ldx ibufcnt43322 F80D38 E4 3D cpx icntmin4 ; can clear remote pause?3323 F80D3A B0 10 bcs ?ok ; no, exit3324 F80D3C EB xba ; save data3325 F80D3D A9 02 lda #00000010B ; hardware handshake...3326 F80D3F 0C 24 FC tsb !UART_MCR ; ...set /RTS=03327 F80D42 A9 80 lda #$803328 F80D44 14 2D trb sppause4 ; clear remote pause flag3329 F80D46 A9 02 lda #00000010B ; set IER<1>3330 F80D48 0C 21 FC tsb !UART_IER ; re-enable tx interrupt3331 F80D4B EB xba ; recover data3332 F80D4C 18 ?ok: clc ; no error3333 F80D4D ?done: CPU083334 F80D4D E2 30 sep #(PMFLAG.OR.PXFLAG)3335 .LONGA off3336 .LONGI off3337 .MNLIST3338 F80D4F A6 30 ldx sptmp4 ; restore X reg.3339 F80D51 2B pld3340 F80D52 58 cli3341 F80D53 60 rts ; CF=1 & A=0 mean: no data available33423343 ;------------------33443345 F80D54 lspget2:3346 .PUBLIC lspget23347 F80D54 8B phb ; save DBR3348 F80D55 A0 00 ldy #0 ; set DBR = $003349 F80D57 5A phy3350 F80D58 AB plb3351 F80D59 9B txy3352 F80D5A D0 05 bne ?get23353 F80D5C 20 06 0D jsr spget33354 F80D5F AB plb3355 F80D60 6B rtl3356 F80D61 20 B4 0B ?get2: jsr spget23357 F80D64 AB plb3358 F80D65 6B rtl3359 F80D663360 F80D66 lspput2:Tue Jul 17 11:00:18 2018 Page 143361 .PUBLIC lspput23362 F80D66 8B phb ; save DBR3363 F80D67 A0 00 ldy #0 ; set DBR = $003364 F80D69 5A phy3365 F80D6A AB plb3366 F80D6B 9B txy3367 F80D6C D0 05 bne ?put23368 F80D6E 20 BB 0C jsr spput33369 F80D71 AB plb3370 F80D72 6B rtl3371 F80D73 20 69 0B ?put2: jsr spput23372 F80D76 AB plb3373 F80D77 6B rtl33743375 F80D78 lspset2:3376 .PUBLIC lspset23377 F80D78 8B phb ; save DBR3378 F80D79 A0 00 ldy #0 ; set DBR = $003379 F80D7B 5A phy3380 F80D7C AB plb3381 F80D7D 9B txy3382 F80D7E D0 05 bne ?set23383 F80D80 20 0F 0C jsr spset33384 F80D83 AB plb3385 F80D84 6B rtl3386 F80D85 20 BC 0A ?set2: jsr spset23387 F80D88 AB plb3388 F80D89 6B rtl33893390 F80D8A lspres2:3391 .PUBLIC lspres23392 F80D8A 8B phb ; save DBR3393 F80D8B A0 00 ldy #0 ; set DBR = $003394 F80D8D 5A phy3395 F80D8E AB plb3396 F80D8F 9B txy3397 F80D90 D0 05 bne ?res23398 F80D92 20 AC 0C jsr spres33399 F80D95 AB plb3400 F80D96 6B rtl3401 F80D97 20 5A 0B ?res2: jsr spres23402 F80D9A AB plb3403 F80D9B 6B rtl34043405 F80D9C test0:3406 F80D9C 78 sei3407 F80D9D 0B phd3408 F80D9E F4 00 05 pea #DP05ADDR3409 F80DA1 2B pld3410 F80DA2 85 30 sta sptmp43411 F80DA4 A9 00 lda #03412 F80DA6 8D 22 FC sta !UART_FCR3413 F80DA93414 F80DA9 A5 30 lda sptmp43415 F80DAB 3A ?00: dec a3416 F80DAC D0 FD bne ?003417 F80DAETue Jul 17 11:00:18 2018 Page 153418 F80DAE A9 40 lda #'@'3419 F80DB0 A2 0F ldx #153420 F80DB2 EB xba3421 F80DB3 A9 20 ?01: lda #$203422 F80DB5 2C 25 FC bit !UART_LSR3423 F80DB8 EA nop3424 F80DB9 EA nop3425 F80DBA EA nop3426 F80DBB EA nop3427 F80DBC F0 F5 beq ?0134283429 F80DBE A5 30 lda sptmp43430 F80DC0 3A ?02: dec a3431 F80DC1 D0 FD bne ?023432 F80DC33433 F80DC3 EB xba3434 F80DC4 8D 20 FC sta !UART_RXTX3435 F80DC7 1A inc a3436 F80DC8 EB xba3437 F80DC93438 F80DC9 A5 30 lda sptmp43439 F80DCB 3A ?02a: dec a3440 F80DCC D0 FD bne ?02a34413442 F80DCE CA dex3443 F80DCF D0 E2 bne ?0134443445 F80DD1 A9 20 ?03: lda #$203446 F80DD3 2C 25 FC bit !UART_LSR3447 F80DD6 EA nop3448 F80DD7 EA nop3449 F80DD8 EA nop3450 F80DD9 EA nop3451 F80DDA F0 F5 beq ?0334523453 F80DDC A5 30 lda sptmp43454 F80DDE 3A ?02b: dec a3455 F80DDF D0 FD bne ?02b3456 F80DE13457 F80DE1 A9 0D lda #$0D3458 F80DE3 8D 20 FC sta !UART_RXTX3459 F80DE6 A5 30 lda sptmp43460 F80DE8 2B pld3461 F80DE9 58 cli3462 F80DEA 00 00 brk34633464 F80DEC test1:3465 F80DEC 78 sei3466 F80DED 0B phd3467 F80DEE F4 00 05 pea #DP05ADDR3468 F80DF1 2B pld3469 F80DF2 85 30 sta sptmp43470 F80DF4 A9 01 lda #13471 F80DF6 8D 22 FC sta !UART_FCR3472 F80DF93473 F80DF9 A5 30 lda sptmp43474 F80DFB 3A ?00: dec aTue Jul 17 11:00:18 2018 Page 163475 F80DFC D0 FD bne ?003476 F80DFE3477 F80DFE A9 40 lda #'@'3478 F80E00 A2 0F ldx #153479 F80E02 EB xba3480 F80E03 A9 20 ?01: lda #$203481 F80E05 2C 25 FC bit !UART_LSR3482 F80E08 EA nop3483 F80E09 EA nop3484 F80E0A EA nop3485 F80E0B EA nop3486 F80E0C F0 F5 beq ?0134873488 F80E0E A5 30 lda sptmp43489 F80E10 3A ?02: dec a3490 F80E11 D0 FD bne ?023491 F80E133492 F80E13 EB ?0l: xba3493 F80E14 8D 20 FC sta !UART_RXTX3494 F80E17 1A inc a3495 F80E18 EB xba3496 F80E193497 F80E19 A5 30 lda sptmp43498 F80E1B 3A ?02a: dec a3499 F80E1C D0 FD bne ?02a35003501 F80E1E CA dex3502 F80E1F D0 F2 bne ?0l3503 F80E213504 F80E21 A9 0D lda #$0D3505 F80E23 8D 20 FC sta !UART_RXTX3506 F80E26 A5 30 lda sptmp43507 F80E28 2B pld3508 F80E29 58 cli3509 F80E2A 00 00 brk35103511 F80E2C test2:3512 F80E2C 78 sei3513 F80E2D 0B phd3514 F80E2E F4 00 05 pea #DP05ADDR3515 F80E31 2B pld3516 F80E32 A0 00 ldy #03517 F80E34 A9 01 lda #13518 F80E36 8D 22 FC sta !UART_FCR3519 F80E39 A9 40 ?00: lda #'@'3520 F80E3B A2 0F ldx #153521 F80E3D EB xba3522 F80E3E A9 20 ?01: lda #$203523 F80E40 2C 25 FC bit !UART_LSR3524 F80E43 EA nop3525 F80E44 EA nop3526 F80E45 EA nop3527 F80E46 EA nop3528 F80E47 F0 F5 beq ?0135293530 F80E49 EB ?ll: xba3531 F80E4A 8D 20 FC sta !UART_RXTXTue Jul 17 11:00:18 2018 Page 173532 F80E4D 1A inc a3533 F80E4E EB xba3534 F80E4F CA dex3535 F80E50 D0 F7 bne ?ll3536 F80E523537 F80E52 A9 0D lda #$0D3538 F80E54 8D 20 FC sta !UART_RXTX3539 F80E57 88 dey3540 F80E58 D0 DF bne ?003541 F80E5A 2B pld3542 F80E5B 58 cli3543 F80E5C 00 00 brk35443545 ;==========================================3546 ; UM245R35473548 F80E5E umgetcmd:3549 .PUBLIC umgetcmd35503551 F80E5E A9 40 lda #$403552 F80E60 14 01 trb usbum ; clear bit <6>: fifo data not available3553 F80E62 24 01 bit usbum3554 F80E64 30 1D bmi ?cmd ; already connected: check command3555 F80E663556 ; check connession request3557 F80E66 A2 07 ldx #73558 F80E68 B5 03 ?chk1: lda usbbuf,x3559 F80E6A DF B7 0E F8 cmp >?usbconn,x3560 F80E6E F0 06 beq ?nxt3561 F80E70 A9 55 ?nack: lda #$55 ; NACK3562 F80E72 8D 2F FC sta !UM245R3563 F80E75 6B rtl3564 F80E76 CA ?nxt: dex3565 F80E77 10 EF bpl ?chk13566 F80E79 A9 AA lda #$AA ; ACK3567 F80E7B 8D 2F FC sta !UM245R3568 F80E7E A9 80 lda #$803569 F80E80 04 01 tsb usbum3570 F80E82 6B rtl3571 F80E83 A2 00 ?cmd: ldx #(?usbtab2 - ?usbtab1 - 1)3572 F80E85 A5 03 lda usbbuf3573 F80E87 DF BF 0E F8 ?cmdl: cmp >?usbtab1,x3574 F80E8B F0 05 beq ?cmd23575 F80E8D CA dex3576 F80E8E 10 F7 bpl ?cmdl3577 F80E90 30 DE bmi ?nack ; not found3578 F80E92 A5 04 ?cmd2: lda usbbuf+13579 F80E94 DF C0 0E F8 cmp >?usbtab2,x3580 F80E98 D0 D6 bne ?nack ; not found3581 F80E9A 8A txa3582 F80E9B 0A asl a3583 F80E9C AA tax3584 F80E9D A9 01 lda #CA2IFRB ; disable CA2 interrupt3585 F80E9F 8D 1E FC sta !VIA2+VIAIER3586 F80EA2 8D 1D FC sta !VIA2+VIAIFR3587 F80EA5 20 1B 10 jsr usbsndack3588 F80EA8 FC B5 0E jsr (?umjmp,x)Tue Jul 17 11:00:18 2018 Page 183589 F80EAB 78 sei3590 F80EAC A9 81 lda #SETFRB.OR.CA2IFRB ; enable CA2 interrupt3591 F80EAE 8D 1E FC sta !VIA2+VIAIER3592 F80EB1 8D 1D FC sta !VIA2+VIAIFR3593 F80EB4 6B rtl35943595 F80EB5 ?umjmp:3596 F80EB5 C10E .DW usbgetfmw35973598 F80EB7 ?usbconn:3599 F80EB7 87 E9 5D 93 B7 .DB $87, $E9, $5D, $93, $B7, $57, $7D, $3B57 7D 3B36003601 F80EBF ?usbtab1:3602 F80EBF 99 .DB $9936033604 F80EC0 ?usbtab2:3605 F80EC0 51 .DB $51360636073608 ; get firmware (512K)3609 F80EC1 usbgetfmw:3610 F80EC1 58 cli3611 F80EC2 64 10 stz usbptr3612 F80EC4 64 11 stz usbptr+13613 F80EC6 A9 70 lda #$703614 F80EC8 85 12 sta usbptr+2 ; put firmware in bank $303615 F80ECA 64 0E stz usbsiz ; full 64K bank3616 F80ECC 64 0F stz usbsiz+13617 F80ECE A9 08 lda #$08 ; 8 banks3618 F80ED0 85 13 sta usbtmp3619 F80ED2 A9 08 ?lp: lda #$083620 F80ED4 38 sec3621 F80ED5 E5 13 sbc usbtmp3622 F80ED7 48 pha3623 F80ED8 4B phk3624 F80ED9 F4 3F 0F pea #!?fmt13625 F80EDC A9 05 lda #53626 F80EDE 48 pha3627 F80EDF BPRINTF3628 F80EDF 02 11 cop $113629 .MNLIST3630 F80EE1 20 8A 0F jsr usbgetblk3631 F80EE4 B0 4E bcs ?err ; error3632 F80EE6 20 1B 10 jsr usbsndack3633 F80EE9 SCNPRINT3634 F80EE9 02 01 cop $013635 .MNLIST3636 F80EEB 64 6F 6E 65 2E .DB 'done.', 13, 00D 003637 F80EF2 E6 12 inc usbptr+23638 F80EF4 C6 13 dec usbtmp3639 F80EF6 D0 DA bne ?lp36403641 F80EF8 A9 70 lda #$703642 F80EFA 85 12 sta usbptr+23643 F80EFC 64 14 stz usbcmpTue Jul 17 11:00:18 2018 Page 193644 F80EFE A9 08 lda #$08 ; 8 banks3645 F80F00 85 13 sta usbtmp3646 F80F02 A9 08 ?lp2: lda #$083647 F80F04 38 sec3648 F80F05 E5 13 sbc usbtmp3649 F80F07 48 pha3650 F80F08 4B phk3651 F80F09 F4 71 0F pea #!?fmt33652 F80F0C A9 05 lda #53653 F80F0E 48 pha3654 F80F0F BPRINTF3655 F80F0F 02 11 cop $113656 .MNLIST3657 F80F113658 ;jsr usbcmpblk3659 ;bcs ?err ; error3660 ;bit usbcmp3661 ;bpl ?ok3662 ;jsr usbsndnack3663 ;bra ?err3664 ?ok: ;jsr usbsndack36653666 F80F11 20 DE 0F jsr usbputbank3667 F80F14 B0 1E bcs ?err36683669 F80F16 SCNPRINT3670 F80F16 02 01 cop $013671 .MNLIST3672 F80F18 64 6F 6E 65 2E .DB 'done.', 13, 00D 003673 F80F1F E6 12 inc usbptr+23674 F80F21 C6 13 dec usbtmp3675 F80F23 D0 DD bne ?lp23676 F80F253677 .COMMENT @3678 ; send back for check3679 lda #$08 ; 8 banks3680 sta usbtmp3681 lda #$703682 sta usbptr+23683 ?lp1: lda #$083684 sec3685 sbc usbtmp3686 pha3687 phk3688 pea #!?fmt23689 lda #53690 pha3691 BPRINTF3692 ;jsr usbputblk3693 jsr usbputbank3694 ;jsr usbrx3695 bcs ?err3696 ;bne ?err ; NACK3697 SCNPRINT3698 .DB 'done.', 13, 03699 inc usbptr+2Tue Jul 17 11:00:18 2018 Page 203700 dec usbtmp3701 bne ?lp13702 @37033704 ; wait final ACK3705 F80F25 20 26 10 jsr usbrx3706 F80F28 B0 0A bcs ?err3707 F80F2A D0 08 bne ?err ; NACK3708 F80F2C SCNPRINT3709 F80F2C 02 01 cop $013710 .MNLIST3711 F80F2E 4F 4B 2E 0D 00 .DB 'OK.', 13, 03712 F80F33 60 rts3713 F80F34 ?err:3714 F80F34 SCNPRINT3715 F80F34 02 01 cop $013716 .MNLIST3717 F80F36 65 72 72 6F 72 .DB 'error.', 13, 02E 0D 003718 F80F3E 60 rts37193720 F80F3F 67 65 74 20 66 ?fmt1: .DB 'get firmware bank %bu...', 069 72 6D 77 6172 65 20 62 616E 6B 20 25 6275 2E 2E 2E 003721 F80F58 73 65 6E 64 20 ?fmt2: .DB 'send back bank %bu...', 062 61 63 6B 2020 20 20 62 616E 6B 20 25 6275 2E 2E 2E 003722 F80F71 76 65 72 66 2E ?fmt3: .DB 'verf. firmw. bank %bu...', 020 66 69 72 6D77 2E 20 62 616E 6B 20 25 6275 2E 2E 2E 0037233724 ; get block: size in usbsiz, dest in usbptr3725 F80F8A usbgetblk:3726 F80F8A A0 00 ldy #03727 F80F8C INDEX163728 F80F8C C2 10 rep #PXFLAG3729 .LONGI on3730 .MNLIST3731 F80F8E A6 0E ldx usbsiz3732 F80F90 A9 01 lda #CA2IFRB ; check CA2 flag3733 F80F92 2C 1F FC ?lp: bit !VIA2+VIAPRANH ; check /TXE3734 F80F95 70 17 bvs ?err ; /TXE is high: disconnession?3735 F80F97 2C 1D FC bit VIA2+VIAIFR ; check CA2 flag3736 F80F9A F0 F6 beq ?lp3737 F80F9C 8D 1D FC sta !VIA2+VIAIFR ; clear CA2 flag3738 F80F9F EB xba3739 F80FA0 AD 2F FC lda !UM245R3740 F80FA3 97 10 sta [usbptr],y3741 F80FA5 EB xba3742 F80FA6 C8 iny3743 F80FA7 CA dexTue Jul 17 11:00:18 2018 Page 213744 F80FA8 D0 E8 bne ?lp3745 F80FAA 18 clc3746 F80FAB INDEX083747 F80FAB E2 10 sep #PXFLAG3748 .LONGI off3749 .MNLIST3750 F80FAD 60 rts3751 F80FAE ?err: CPU08SEC3752 F80FAE E2 31 sep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3753 .LONGA off3754 .LONGI off3755 .MNLIST3756 F80FB0 60 rts37573758 ; cmp block: size in usbsiz, dest in usbptr3759 F80FB1 usbcmpblk:3760 F80FB1 A0 00 ldy #03761 F80FB3 INDEX163762 F80FB3 C2 10 rep #PXFLAG3763 .LONGI on3764 .MNLIST3765 F80FB5 A6 0E ldx usbsiz3766 F80FB7 A9 01 lda #CA2IFRB ; check CA2 flag3767 F80FB9 2C 1F FC ?lp: bit !VIA2+VIAPRANH ; check /TXE3768 F80FBC 70 1D bvs ?err ; /TXE is high: disconnession?3769 F80FBE 2C 1D FC bit VIA2+VIAIFR ; check CA2 flag3770 F80FC1 F0 F6 beq ?lp3771 F80FC3 8D 1D FC sta !VIA2+VIAIFR ; clear CA2 flag3772 F80FC6 EB xba3773 F80FC7 AD 2F FC lda !UM245R3774 F80FCA D7 10 cmp [usbptr],y3775 F80FCC F0 04 beq ?023776 F80FCE A9 80 lda #$803777 F80FD0 85 14 sta usbcmp3778 F80FD2 EB ?02: xba3779 F80FD3 C8 iny3780 F80FD4 CA dex3781 F80FD5 D0 E2 bne ?lp3782 F80FD7 18 clc3783 F80FD8 INDEX083784 F80FD8 E2 10 sep #PXFLAG3785 .LONGI off3786 .MNLIST3787 F80FDA 60 rts3788 F80FDB ?err: CPU08SEC3789 F80FDB E2 31 sep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3790 .LONGA off3791 .LONGI off3792 .MNLIST3793 F80FDD 60 rts37943795 ; put a full: source in usbptr3796 F80FDE usbputbank:3797 F80FDE 78 sei3798 F80FDF A0 00 ldy #03799 F80FE1 AD 1F FC ?lp: lda !VIA2+VIAPRANH ; check /TXE3800 F80FE4 CD 1F FC cmp !VIA2+VIAPRANHTue Jul 17 11:00:18 2018 Page 223801 F80FE7 D0 F8 bne ?lp3802 F80FE9 0A asl a3803 F80FEA 30 F5 bmi ?lp3804 F80FEC B7 10 lda [usbptr],y3805 F80FEE 8F 2F FC 00 sta >UM245R3806 F80FF2 C8 iny3807 F80FF3 D0 EC bne ?lp3808 ;jsr usbrx3809 ;bcs ?rts3810 ;bne ?err ; NACK3811 F80FF5 E6 11 inc usbptr+13812 F80FF7 D0 E8 bne ?lp3813 F80FF9 18 clc3814 F80FFA 58 ?rts: cli3815 F80FFB 60 rts3816 F80FFC 38 ?err: sec3817 F80FFD 58 cli3818 F80FFE 60 rts38193820 ; put block: size in usbsiz, dest in usbptr3821 F80FFF usbputblk:3822 F80FFF A0 00 ldy #03823 F81001 INDEX163824 F81001 C2 10 rep #PXFLAG3825 .LONGI on3826 .MNLIST3827 F81003 A6 0E ldx usbsiz3828 ; bra ?lp3829 ;?lp0: bit !VIA2+VIAPRANH ; check /TXE3830 ; bvs ?lp3831 ; bvc ?lp03832 F81005 2C 1F FC ?lp: bit !VIA2+VIAPRANH ; check /TXE3833 ;cmp !VIA2+VIAPRANH3834 ;bne ?lp3835 ;asl a3836 ;bmi ?lp ; /TXE is high3837 F81008 70 FB bvs ?lp3838 F8100A B7 10 lda [usbptr],y3839 F8100C 8D 2F FC sta !UM245R3840 F8100F C8 iny3841 F81010 CA dex3842 F81011 D0 F2 bne ?lp3843 F81013 18 clc3844 F81014 INDEX083845 F81014 E2 10 sep #PXFLAG3846 .LONGI off3847 .MNLIST3848 F81016 60 rts38493850 ; send nack3851 F81017 usbsndnack:3852 F81017 A9 55 lda #$553853 F81019 80 02 bra usbsnd38543855 ; send ack3856 F8101B usbsndack:3857 F8101B A9 AA lda #$AATue Jul 17 11:00:18 2018 Page 2338583859 ; send a byte3860 F8101D usbsnd:3861 F8101D 2C 1F FC ?lp: bit !VIA2+VIAPRANH ; check /TXE3862 F81020 70 FB bvs ?lp ; /TXE is high3863 F81022 8D 2F FC sta !UM245R3864 F81025 60 rts38653866 F81026 usbrx:3867 F81026 A9 01 lda #CA2IFRB ; check CA2 flag3868 F81028 2C 1F FC ?lp: bit !VIA2+VIAPRANH ; check /TXE3869 F8102B 70 0F bvs ?err ; /TXE is high: disconnession?3870 F8102D 2C 1D FC bit VIA2+VIAIFR ; check CA2 flag3871 F81030 F0 F6 beq ?lp3872 F81032 8D 1D FC sta !VIA2+VIAIFR ; clear CA2 flag3873 F81035 AD 2F FC lda !UM245R3874 F81038 C9 AA cmp #$AA3875 F8103A 18 clc3876 F8103B 60 rts3877 F8103C 38 ?err: sec3878 F8103D 60 rtsLines Assembled : 3788 Errors : 0