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\sp.asmOutput Filename : obj\F8\sp.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 F8FFB1 .INCLUDE INC\SP.INC2770 ;;2771 ;; Copyright (c) 2016 Marco Granati <mg@unet.bz>2772 ;;2773 ;; Permission to use, copy, modify, and distribute this software for any2774 ;; purpose with or without fee is hereby granted, provided that the above2775 ;; copyright notice and this permission notice appear in all copies.2776 ;;2777 ;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES2778 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF2779 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR2780 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES2781 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN2782 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF2783 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.2784 ;;27852786 ;; name: sp.inc2787 ;; rev.: 2016/07/282788 ;; bios C816 version v1.027892790 .LIST on27912792 000001 SOH .EQU $012793 000002 STX .EQU $022794 000003 ETX .EQU $032795 000004 EOT .EQU $042796 000005 ENQ .EQU $052797 000006 ACK .EQU $062798 000010 DLE .EQU $102799 000016 SYN .EQU $1628002801 002000 SOBUFSIZ .EQU $2000 ; dimensione coda TX1/TX2 ACIA (8K)2802 ;SOBUFSIZ .EQU $0100 ; dimensione coda TX1/TX2 ACIA (8K)2803 004000 SIBUFSIZ .EQU $4000 ; dimensione coda RX1/RX2 ACIA (16K)2804 ;SIBUFSIZ .EQU $0100 ; dimensione coda RX1/RX2 ACIA (16K)28052806 000080 NGUARD1 .EQU $80 ; numero bytes di guardia buffer RX XON/XOFF2807 000040 NGUARD2 .EQU $40 ; numero bytes di guardia buffer RX handshake2808 ;NGUARD1 .EQU $40 ; numero bytes di guardia buffer RX XON/XOFF2809 ;NGUARD2 .EQU $20 ; numero bytes di guardia buffer RX handshake2810 001000 NFREE1 .EQU $1000 ; minimo posto in coda RX per cancellare pausa remota2811 000800 NFREE2 .EQU $08002812 ;NGUARD3 .EQU $F02813 ;NGUARD4 .EQU $F828142815 ;---------------------------------------------------------------------------2816 ; direct page var's for serial ports handling2817 ;---------------------------------------------------------------------------28182819 DPSP: .SECTION page0, common, ref_only, offset spwrk ;ACIA D.P.28202821 000056 _DPSP_START .DS 0Tue Jul 17 11:00:18 2018 Page 528222823 ; WARNING: not change order and type of the following variables28242825 ; acia 1 var's2826 000056 00 splin .DB ; interrupt status register2827 000057 00 spcsr .DB ; control status register2828 000058 00 spfr .DB ; format register2829 000059 00 spout .DB ; XON/XOFF send flag28302831 ; acia 2 var's2832 00005A 00 splin2 .DB ; interrupt status register2833 00005B 00 spcsr2 .DB ; control status register2834 00005C 00 spfr2 .DB ; format register2835 00005D 00 spout2 .DB ; XON/XOFF send flag28362837 ; serial port's mode & status2838 00005E 00 spmode .DB ; <7>: 0=no handshake, 1=handshake2839 ; <6>: 0=software/1=hardware handshake2840 ; <5>: not used2841 ; <4>: baud rate: 0=19200, 1=384002842 ; <3>: 0=odd parity, 1=even parity2843 ; <2>: 0=no parity, 1=parity as specified2844 ; by bit <3>2845 ; <1>: interface type: 0=RS232, 1=RS4852846 ; <0>: RS232: uplink flow control (RTS/DCD)2847 ; RS485: 120 ohm termination on2848 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02849 00005F2850 00005F 00 spstat .DB ; serial port status2851 ; <7>: rx error (data discarded)2852 ; <6>: rx buffer overflow2853 ; <5>: remote disconnession (DSR line = 1)2854 ; <4>: output buffer overflow2855 ; <3>: not used2856 ; <2>: framing error2857 ; <1>: parity error2858 ; <0>: overrun error28592860 000060 00 sppause .DB ; local/remote pause flag's2861 ; <7>: remote pause (sent an XON or set RTS=1)2862 ; <6>: local pause (received an XON or CTS=1)28632864 000061 00 sptmp .DB ; temp. byte used while get data28652866 ; serial port's mode & status2867 000062 00 spmode2 .DB ; <7>: 0=no handshake, 1=handshake2868 ; <6>: 0=software/1=hardware handshake2869 ; <5>: not used2870 ; <4>: baud rate: 0=19200, 1=384002871 ; <3>: 0=odd parity, 1=even parity2872 ; <2>: 0=no parity, 1=parity as specified2873 ; by bit <3>2874 ; <1>: interface type: 0=RS232, 1=RS4852875 ; <0>: RS232: uplink flow control (RTS/DCD)2876 ; RS485: 120 ohm termination on2877 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02878 000063Tue Jul 17 11:00:18 2018 Page 62879 000063 00 spstat2 .DB ; serial port status2880 ; <7>: rx error (data discarded)2881 ; <6>: rx buffer overflow2882 ; <5>: remote disconnession (DSR line = 1)2883 ; <4>: output buffer overflow2884 ; <3>: not used2885 ; <2>: framing error2886 ; <1>: parity error2887 ; <0>: overrun error28882889 000064 00 sppause2 .DB ; local/remote pause flag's2890 ; <7>: remote pause (sent XOFF/XON or RTS=1/0)2891 ; <6>: local pause (rx XOFF/XON or CTS=0/1)28922893 000065 00 sppost .DB ; after POST must hold $C028942895 000066 0000 ibuftail .DW ; pointer to tail of input buffer2896 000068 0000 ibufhead .DW ; pointer to head of input buffer2897 00006A 0000 ibuftail2 .DW2898 00006C 0000 ibufhead2 .DW28992900 00006E 0000 obuftail .DW ; pointer to tail of output buffer2901 000070 0000 obufhead .DW ; pointer to head of output buffer2902 000072 0000 obuftail2 .DW2903 000074 0000 obufhead2 .DW29042905 000076 0000 ibufcnt .DW ; count of bytes in input buffer2906 000078 0000 obufcnt .DW ; count of bytes in output buffer2907 00007A 0000 ibufcnt2 .DW2908 00007C 0000 obufcnt2 .DW29092910 00007E 0000 icntmin .DW ; min. count for clear remote pause2911 000080 0000 icntmax .DW ; max. count for set remote pause2912 000082 0000 icntmin2 .DW2913 000084 0000 icntmax2 .DW29142915 000086 _DPSP_END .DS 02916 000030 DPSPSIZ .EQU (_DPSP_END - _DPSP_START)291729182919 .ENDS29202921 00005F ACIArxe_1 .EQU spstat2922 000063 ACIArxe_2 .EQU spstat22923 00005E ACIAhsk_1 .EQU spmode2924 000062 ACIAhsk_2 .EQU spmode22925 000060 ACIAPause_1 .EQU sppause2926 000064 ACIAPause_2 .EQU sppause22927 000057 ACIAcsr_1 .EQU spcsr2928 00005B ACIAcsr_2 .EQU spcsr22929 000058 ACIAfr_1 .EQU spfr2930 00005C ACIAfr_2 .EQU spfr22931 000060 ACIAOut_1 .EQU sppause2932 000064 ACIAOut_2 .EQU sppause22933 000076 ACIAICnt_1 .EQU ibufcnt2934 00007A ACIAICnt_2 .EQU ibufcnt22935 000068 ACIAIHead_1 .EQU ibufheadTue Jul 17 11:00:18 2018 Page 72936 00006C ACIAIHead_2 .EQU ibufhead22937 000066 ACIAITail_1 .EQU ibuftail2938 00006A ACIAITail_2 .EQU ibuftail22939 000078 ACIAOCnt_1 .EQU obufcnt2940 00007C ACIAOCnt_2 .EQU obufcnt22941 000070 ACIAOHead_1 .EQU obufhead2942 000074 ACIAOHead_2 .EQU obufhead22943 00006E ACIAOTail_1 .EQU obuftail2944 000072 ACIAOTail_2 .EQU obuftail229452946 002000 ACIAOBUFLEN .EQU SOBUFSIZ2947 004000 ACIAIBUFLEN .EQU SIBUFSIZ2948 050000 ACIAOUTBUF1 .EQU SPOUTBUFF2949 052000 ACIAOUTBUF2 .EQU SPOUTBUFF22950 054000 ACIAINBUF1 .EQU SPINBUFF2951 058000 ACIAINBUF2 .EQU SPINBUFF229522953 000061 ACIATmp .EQU sptmp29542962 .LIST on29632964 ; page 0 local var's (declared in bios temp. work area)2965 _P0BTMP: .SECTION page0, ref_only, offset bwrktmp ; DP Tmp. BIOS29662967 000094 0000 crc16 .DW2968 000096 0000 bycnt .DW ; data packet lenght2969 000098 0000 byndx .DW ; data buffer index2970 00009A 00 pkttyp .DB ; expected packet type2971 00009B 00 pktnum .DB ; current packet number2972 00009C 00 expect .DB ; expected packet number2973 00009D 00 tmpx .DB29742975 .ENDS29762977 .CODEF82978 F8045B2979 .LONGA off2980 .LONGI off29812982 ; X=serial port2983 F8045B _spget0:2984 F8045B 8A txa2985 F8045C D0 55 bne _spget12986 F8045E2987 F8045E SPGETB 02988 [01] .IFZ 02989 000000 k .SET 02990 054000 SIBUFADDR .SET SPINBUFF2991 [01] .ELSE2992 k .SET 42993 SIBUFADDR .SET SPINBUFF22994 [00] .ENDIF29952996 F8045E 78 sei ; disable interrupt2997 F8045F 38 sec ; assume error2998 F80460 86 61 stx sptmp ; save X reg.2999 F80462 A5 5F lda spstat+k ; rx pending error?Tue Jul 17 11:00:18 2018 Page 83000 F80464 30 47 bmi ?done ; yes, exit3001 F80466 A9 00 lda #0 ; assume no data available3002 F80468 A8 tay ; Y = 03003 F80469 INDEX163004 .MLIST3005 F80469 C2 10 rep #PXFLAG3006 .LONGI on3007 .MNLIST3008 F8046B A6 76 ldx ibufcnt+k ; available new data?3009 F8046D F0 3E beq ?done ; input queue is empty (exit with CF=1, A=0)3010 F8046F CA dex ; update count3011 F80470 86 76 stx ibufcnt+k3012 F80472 A6 68 ldx ibufhead+k ; head input buffer pointer3013 F80474 BF 00 40 05 lda >SIBUFADDR,x ; get byte from queue3014 F80478 E8 inx ; update head pointer3015 F80479 E0 00 40 cpx #SIBUFSIZ3016 F8047C 90 01 bcc ?upd3017 F8047E BB tyx ; circular queue3018 F8047F 86 68 ?upd: stx ibufhead+k3019 F80481 24 60 bit sppause+k ; remote pause is on?3020 F80483 10 27 bpl ?ok ; no3021 F80485 A6 76 ldx ibufcnt+k3022 F80487 E4 7E cpx icntmin+k ; can clear remote pause?3023 F80489 B0 21 bcs ?ok ; no3024 F8048B 24 5E bit spmode+k ; handshake is on?3025 F8048D 10 1D bpl ?ok ; no3026 F8048F EB xba ; save data3027 F80490 70 10 bvs ?hw ; hardware handshake3028 F80492 A9 11 lda #SPXON ; software handshake: send an XON3029 F80494 2C 51 FD bit .ABS.ACIACSR+k ; check TUR bit3030 F80497 50 05 bvc ?def ; can't send an XON at this time3031 F80499 8D 53 FD sta .ABS.ACIATDR+k ; send now an XON3032 F8049C 80 09 bra ?crp ; clear remote pause flag3033 F8049E 85 59 ?def: sta spout+k ; XON is deffered3034 F804A0 80 09 bra ?xba3035 F804A2 A5 58 ?hw: lda spfr+k ; hardware handshake: set RTS=03036 F804A4 8D 51 FD sta .ABS.ACIAFR+k3037 F804A7 A9 80 ?crp: lda #$803038 F804A9 14 60 trb sppause+k ; clear remote pause flag3039 F804AB EB ?xba: xba ; recover data3040 F804AC 18 ?ok: clc3041 F804AD ?done: INDEX083042 .MLIST3043 F804AD E2 10 sep #PXFLAG3044 .LONGI off3045 .MNLIST3046 F804AF A6 61 ldx sptmp ; restore X reg.3047 F804B1 58 cli3048 F804B2 60 rts ; CF=1 & A=0 mean: no data available3049 F804B3 .ENDM3050 F804B33051 F804B3 _spget1:3052 F804B3 SPGETB 130533054 .MLIST3055 [01] .IFZ 13056 k .SET 0Tue Jul 17 11:00:18 2018 Page 93057 SIBUFADDR .SET SPINBUFF3058 [01] .ELSE3059 000004 k .SET 43060 058000 SIBUFADDR .SET SPINBUFF23061 [00] .ENDIF30623063 F804B3 78 sei ; disable interrupt3064 F804B4 38 sec ; assume error3065 F804B5 86 61 stx sptmp ; save X reg.3066 F804B7 A5 63 lda spstat+k ; rx pending error?3067 F804B9 30 47 bmi ?done ; yes, exit3068 F804BB A9 00 lda #0 ; assume no data available3069 F804BD A8 tay ; Y = 03070 F804BE INDEX163071 .MLIST3072 F804BE C2 10 rep #PXFLAG3073 .LONGI on3074 .MNLIST3075 F804C0 A6 7A ldx ibufcnt+k ; available new data?3076 F804C2 F0 3E beq ?done ; input queue is empty (exit with CF=1, A=0)3077 F804C4 CA dex ; update count3078 F804C5 86 7A stx ibufcnt+k3079 F804C7 A6 6C ldx ibufhead+k ; head input buffer pointer3080 F804C9 BF 00 80 05 lda >SIBUFADDR,x ; get byte from queue3081 F804CD E8 inx ; update head pointer3082 F804CE E0 00 40 cpx #SIBUFSIZ3083 F804D1 90 01 bcc ?upd3084 F804D3 BB tyx ; circular queue3085 F804D4 86 6C ?upd: stx ibufhead+k3086 F804D6 24 64 bit sppause+k ; remote pause is on?3087 F804D8 10 27 bpl ?ok ; no3088 F804DA A6 7A ldx ibufcnt+k3089 F804DC E4 82 cpx icntmin+k ; can clear remote pause?3090 F804DE B0 21 bcs ?ok ; no3091 F804E0 24 62 bit spmode+k ; handshake is on?3092 F804E2 10 1D bpl ?ok ; no3093 F804E4 EB xba ; save data3094 F804E5 70 10 bvs ?hw ; hardware handshake3095 F804E7 A9 11 lda #SPXON ; software handshake: send an XON3096 F804E9 2C 55 FD bit .ABS.ACIACSR+k ; check TUR bit3097 F804EC 50 05 bvc ?def ; can't send an XON at this time3098 F804EE 8D 57 FD sta .ABS.ACIATDR+k ; send now an XON3099 F804F1 80 09 bra ?crp ; clear remote pause flag3100 F804F3 85 5D ?def: sta spout+k ; XON is deffered3101 F804F5 80 09 bra ?xba3102 F804F7 A5 5C ?hw: lda spfr+k ; hardware handshake: set RTS=03103 F804F9 8D 55 FD sta .ABS.ACIAFR+k3104 F804FC A9 80 ?crp: lda #$803105 F804FE 14 64 trb sppause+k ; clear remote pause flag3106 F80500 EB ?xba: xba ; recover data3107 F80501 18 ?ok: clc3108 F80502 ?done: INDEX083109 .MLIST3110 F80502 E2 10 sep #PXFLAG3111 .LONGI off3112 .MNLIST3113 F80504 A6 61 ldx sptmp ; restore X reg.Tue Jul 17 11:00:18 2018 Page 103114 F80506 58 cli3115 F80507 60 rts ; CF=1 & A=0 mean: no data available3116 F80508 .ENDM31173118 ; X=serial port3119 .PUBLIC _spput03120 F80508 _spput0:3121 F80508 9B txy3122 F80509 D0 6D bne _spput13123 F8050B3124 F8050B SPPUTB 031253126 .MLIST3127 [01] .IFZ 03128 000000 k .SET 03129 050000 SOBUFADDR .SET SPOUTBUFF3130 [01] .ELSE3131 k .SET 43132 SOBUFADDR .SET SPOUTBUFF23133 [00] .ENDIF31343135 F8050B 78 sei ; disable interrupt3136 F8050C 86 61 stx sptmp ; save X reg.3137 F8050E A0 00 ldy #0 ; Y = 03138 F80510 INDEX163139 .MLIST3140 F80510 C2 10 rep #PXFLAG3141 .LONGI on3142 .MNLIST3143 F80512 A6 78 ldx obufcnt+k3144 F80514 E0 00 20 cpx #SOBUFSIZ ; output buffer is full?3145 F80517 90 07 bcc ?str ; no, store byte3146 F80519 24 56 bit splin+k3147 F8051B 10 55 bpl ?done ; exit with CF=1, Y=0: output buffer is full3148 F8051D 88 dey3149 F8051E 80 52 bra ?done ; exit with CF=1, Y=$FF: remote terminal off3150 F80520 E8 ?str: inx ; update count3151 F80521 86 78 stx obufcnt+k3152 F80523 A6 6E ldx obuftail+k ; output buffer tail pointer3153 F80525 9F 00 00 05 sta >SOBUFADDR,x ; store byte in output buffer3154 F80529 E8 inx ; update tail pointer3155 F8052A E0 00 20 cpx #SOBUFSIZ3156 F8052D 90 01 bcc ?upd3157 F8052F BB tyx ; circular queue3158 F80530 86 6E ?upd: stx obuftail+k3159 F80532 2C 51 FD bit .ABS.ACIACSR+k ; check TUR bit: try to free output buffer3160 F80535 50 3A bvc ?ok ; can't send now: send by ISR3161 F80537 EB xba ; save data3162 F80538 A5 59 lda spout+k ; XON/XOFF send pending?3163 F8053A F0 17 beq ?snd ; no3164 F8053C 8D 53 FD sta .ABS.ACIATDR+k ; send an XON/XOFF3165 F8053F C9 11 cmp #SPXON3166 F80541 D0 08 bne ?xon3167 F80543 A9 80 lda #$803168 F80545 04 60 tsb sppause+k ; set remote pause3169 F80547 64 59 stz spout+k ; clear XOFF flag3170 F80549 80 25 bra ?xba ; doneTue Jul 17 11:00:18 2018 Page 113171 F8054B A9 80 ?xon: lda #$803172 F8054D 14 60 trb sppause+k ; clear remote pause3173 F8054F 64 59 stz spout+k ; clear XON flag3174 F80551 80 1D bra ?xba ; done3175 F80553 24 60 ?snd: bit sppause+k3176 F80555 70 19 bvs ?xba ; local pause is on, can't send at this time3177 F80557 A6 78 ldx obufcnt+k3178 F80559 F0 15 beq ?xba ; output buffer is empty3179 F8055B CA dex ; update count3180 F8055C 86 78 stx obufcnt+k3181 F8055E A6 70 ldx obufhead+k3182 F80560 BF 00 00 05 lda >SOBUFADDR,x ; get data from output buffer3183 F80564 8D 53 FD sta .ABS.ACIATDR+k ; send data3184 F80567 E8 inx ; update head pointer3185 F80568 E0 00 20 cpx #SOBUFSIZ3186 F8056B 90 01 bcc ?upd23187 F8056D BB tyx ; circular queue3188 F8056E 86 70 ?upd2: stx obufhead+k3189 F80570 EB ?xba: xba ; return A = sent data3190 F80571 18 ?ok: clc ; no error3191 F80572 ?done: INDEX083192 .MLIST3193 F80572 E2 10 sep #PXFLAG3194 .LONGI off3195 .MNLIST3196 F80574 A6 61 ldx sptmp ; restore X reg.3197 F80576 58 cli3198 F80577 60 rts3199 F80578 .ENDM3200 F805783201 F80578 _spput1:3202 F80578 SPPUTB 132033204 .MLIST3205 [01] .IFZ 13206 k .SET 03207 SOBUFADDR .SET SPOUTBUFF3208 [01] .ELSE3209 000004 k .SET 43210 052000 SOBUFADDR .SET SPOUTBUFF23211 [00] .ENDIF32123213 F80578 78 sei ; disable interrupt3214 F80579 86 61 stx sptmp ; save X reg.3215 F8057B A0 00 ldy #0 ; Y = 03216 F8057D INDEX163217 .MLIST3218 F8057D C2 10 rep #PXFLAG3219 .LONGI on3220 .MNLIST3221 F8057F A6 7C ldx obufcnt+k3222 F80581 E0 00 20 cpx #SOBUFSIZ ; output buffer is full?3223 F80584 90 07 bcc ?str ; no, store byte3224 F80586 24 5A bit splin+k3225 F80588 10 55 bpl ?done ; exit with CF=1, Y=0: output buffer is full3226 F8058A 88 dey3227 F8058B 80 52 bra ?done ; exit with CF=1, Y=$FF: remote terminal offTue Jul 17 11:00:18 2018 Page 123228 F8058D E8 ?str: inx ; update count3229 F8058E 86 7C stx obufcnt+k3230 F80590 A6 72 ldx obuftail+k ; output buffer tail pointer3231 F80592 9F 00 20 05 sta >SOBUFADDR,x ; store byte in output buffer3232 F80596 E8 inx ; update tail pointer3233 F80597 E0 00 20 cpx #SOBUFSIZ3234 F8059A 90 01 bcc ?upd3235 F8059C BB tyx ; circular queue3236 F8059D 86 72 ?upd: stx obuftail+k3237 F8059F 2C 55 FD bit .ABS.ACIACSR+k ; check TUR bit: try to free output buffer3238 F805A2 50 3A bvc ?ok ; can't send now: send by ISR3239 F805A4 EB xba ; save data3240 F805A5 A5 5D lda spout+k ; XON/XOFF send pending?3241 F805A7 F0 17 beq ?snd ; no3242 F805A9 8D 57 FD sta .ABS.ACIATDR+k ; send an XON/XOFF3243 F805AC C9 11 cmp #SPXON3244 F805AE D0 08 bne ?xon3245 F805B0 A9 80 lda #$803246 F805B2 04 64 tsb sppause+k ; set remote pause3247 F805B4 64 5D stz spout+k ; clear XOFF flag3248 F805B6 80 25 bra ?xba ; done3249 F805B8 A9 80 ?xon: lda #$803250 F805BA 14 64 trb sppause+k ; clear remote pause3251 F805BC 64 5D stz spout+k ; clear XON flag3252 F805BE 80 1D bra ?xba ; done3253 F805C0 24 64 ?snd: bit sppause+k3254 F805C2 70 19 bvs ?xba ; local pause is on, can't send at this time3255 F805C4 A6 7C ldx obufcnt+k3256 F805C6 F0 15 beq ?xba ; output buffer is empty3257 F805C8 CA dex ; update count3258 F805C9 86 7C stx obufcnt+k3259 F805CB A6 74 ldx obufhead+k3260 F805CD BF 00 20 05 lda >SOBUFADDR,x ; get data from output buffer3261 F805D1 8D 57 FD sta .ABS.ACIATDR+k ; send data3262 F805D4 E8 inx ; update head pointer3263 F805D5 E0 00 20 cpx #SOBUFSIZ3264 F805D8 90 01 bcc ?upd23265 F805DA BB tyx ; circular queue3266 F805DB 86 74 ?upd2: stx obufhead+k3267 F805DD EB ?xba: xba ; return A = sent data3268 F805DE 18 ?ok: clc ; no error3269 F805DF ?done: INDEX083270 .MLIST3271 F805DF E2 10 sep #PXFLAG3272 .LONGI off3273 .MNLIST3274 F805E1 A6 61 ldx sptmp ; restore X reg.3275 F805E3 58 cli3276 F805E4 60 rts3277 F805E5 .ENDM3278 F805E53279 ; A=mode, X=serial #3280 F805E5 spset:3281 F805E5 9B txy3282 F805E6 F0 02 beq ?sr0 ; serial #03283 F805E8 A2 04 ldx #4 ; serial #13284 F805EA 78 ?sr0: sei ; disable interruptTue Jul 17 11:00:18 2018 Page 133285 F805EB 95 5E sta spmode,x3286 F805ED A8 tay3287 F805EE A9 7F lda #$7F ; disable all interrupts3288 F805F0 9D 50 FD sta .ABS.ACIAIER,x3289 F805F3 BD 53 FD lda .ABS.ACIARDR,x ; discard any pending received data3290 F805F6 BD 50 FD lda .ABS.ACIAISR,x ; read current interrupt status3291 F805F9 BD 51 FD lda .ABS.ACIACSR,x ; save current control status3292 F805FC 95 57 sta spcsr,x3293 F805FE 98 tya ; mode3294 F805FF 29 0C and #00001100B ; mask on bits 3 & 2 (parity mode)3295 F80601 09 E0 ora #11100000B ; 8 data bits, RTS=DTR=low3296 F80603 95 58 sta spfr,x ; value of format register3297 ;ora #00000011B3298 F80605 9D 51 FD sta .ABS.ACIAFR,x ; set format register: RTS=DTR=13299 F80608 98 tya3300 F80609 A0 4E ldy #01001110B ; access to ACR, one stop bit, 384003301 F8060B 89 10 bit #00010000B3302 F8060D D0 02 bne ?br ; select baud rate=384003303 F8060F A0 4D ldy #01001101B ; access to ACR, one stop bit, 192003304 F80611 98 ?br: tya3305 F80612 9D 51 FD sta .ABS.ACIACR,x ; set control register3306 F80615 9E 52 FD stz .ABS.ACIAACR,x ; set aux. control reg. (normal tx, parity)3307 F80618 A9 80 lda #$803308 F8061A 0C 1F FD tsb VIA1+VIAPRANH ; enble RS2323309 F8061D A9 02 lda #00000010B ; check RS4853310 F8061F 34 5E bit spmode,x3311 F80621 F0 1B beq ?cnt ; interface type: RS2323312 F80623 B5 5E lda spmode,x3313 F80625 29 BF and #10111111B ; software handshake only for RS4853314 F80627 95 5E sta spmode,x3315 F80629 A9 80 lda #$803316 F8062B 1C 1F FD trb VIA1+VIAPRANH ; enble RS485 interface3317 F8062E A9 40 lda #$403318 F80630 1C 0F FD trb VIA0+VIAPRANH ; disable 120 ohm termination3319 F80633 A9 01 lda #00000001B ; check termination status3320 F80635 34 5E bit spmode,x3321 F80637 F0 05 beq ?cnt ; termination off3322 F80639 A9 40 lda #$403323 F8063B 0C 0F FD tsb VIA0+VIAPRANH ; enable 120 ohm termination3324 F8063E 74 60 ?cnt: stz sppause,x ; init work area3325 F80640 74 59 stz spout,x3326 F80642 74 5F stz spstat,x3327 F80644 34 5E bit spmode,x3328 F80646 CPU16 ; init buffer's pointer's3329 .MLIST3330 F80646 C2 30 rep #(PMFLAG.OR.PXFLAG)3331 .LONGA on3332 .LONGI on3333 .MNLIST3334 F80648 70 08 bvs ?hw ; hardware handshake3335 F8064A A9 80 00 lda #NGUARD13336 F8064D A0 00 10 ldy #NFREE13337 F80650 80 06 bra ?do3338 F80652 A9 40 00 ?hw: lda #NGUARD23339 F80655 A0 00 08 ldy #NFREE23340 F80658 95 80 ?do: sta icntmax,x3341 F8065A 94 7E sty icntmin,xTue Jul 17 11:00:18 2018 Page 143342 F8065C 38 sec3343 F8065D A9 00 40 lda #SIBUFSIZ3344 F80660 F5 80 sbc icntmax,x3345 F80662 95 80 sta icntmax,x3346 F80664 74 66 stz ibuftail,x3347 F80666 74 68 stz ibufhead,x3348 F80668 74 76 stz ibufcnt,x3349 F8066A 74 6E stz obuftail,x3350 F8066C 74 70 stz obufhead,x3351 F8066E 74 78 stz obufcnt,x3352 F80670 CPU083353 F80670 E2 30 sep #(PMFLAG.OR.PXFLAG)3354 .LONGA off3355 .LONGI off3356 .MNLIST3357 F80672 BD 53 FD lda .ABS.ACIARDR,x ; discard any pending received data3358 F80675 BD 50 FD lda .ABS.ACIAISR,x ; read current interrupt status3359 F80678 BD 51 FD lda .ABS.ACIACSR,x ; save current control status3360 F8067B 95 57 sta spcsr,x3361 F8067D 29 3B and #00111011B ; mask lines level3362 F8067F 89 08 bit #00001000B ; check DSR line level3363 F80681 F0 02 beq ?sav ; DSR is low3364 F80683 09 40 ora #01000000B ; DSR is high3365 F80685 0A ?sav: asl a ; 7:DSR, 6:CTS, 5:DCD, 2:DTR, 1:RTS3366 F80686 95 56 sta splin,x ; save lines level3367 F80688 A9 F9 lda #$F9 ; enable interrupts3368 F8068A 9D 50 FD sta .ABS.ACIAIER,x3369 F8068D 58 cli3370 F8068E 60 rts33713372 ; X=serial #3373 F8068F spres:3374 F8068F 9B txy3375 F80690 F0 02 beq ?sr0 ; serial #03376 F80692 A2 04 ldx #4 ; serial #13377 F80694 78 ?sr0: sei ; disable interrupt3378 F80695 A9 7F lda #$7F ; disable all interrupts3379 F80697 9D 50 FD sta .ABS.ACIAIER,x3380 F8069A B5 58 lda spfr,x3381 F8069C 09 03 ora #00000011B ; set RTS=DTR=13382 F8069E 9D 51 FD sta .ABS.ACIAFR,x3383 F806A1 BD 53 FD lda .ABS.ACIARDR,x ; discard any pending received data3384 F806A4 BD 50 FD lda .ABS.ACIAISR,x ; read current interrupt status3385 F806A7 BD 51 FD lda .ABS.ACIACSR,x ; save current control status3386 F806AA 95 57 sta spcsr,x3387 F806AC 58 cli3388 F806AD 60 rts33893390 ;---- TRANSFER33913392 ; X=port (0 or 4)3393 ; get byte with timeout3394 F806AE sptget:3395 F806AE A9 20 lda #$20 ; set T2 count PB6 pulse (1ms)3396 F806B0 0C 0B FD tsb .ABS.VIA0+VIAACR3397 F806B3 9C 08 FD stz .ABS.VIA0+VIAT2CL3398 F806B6 A9 04 lda #4 ; set 1024ms timeoutTue Jul 17 11:00:18 2018 Page 153399 F806B8 8D 09 FD sta .ABS.VIA0+VIAT2CH3400 F806BB 20 5B 04 ?lp: jsr _spget0 ; get byte within timeout3401 F806BE 90 0C bcc ?exit ; ok, data available3402 F806C0 A8 tay ; CF=1 here3403 F806C1 D0 09 bne ?exit ; some rx error(s)3404 F806C3 A9 20 lda #T2IFRB3405 F806C5 2C 0D FD bit .ABS.VIA0+VIAIFR3406 F806C8 F0 F1 beq ?lp ; no timeout: loop3407 F806CA A9 08 lda #$08 ; set timeout error - CF=1 here3408 F806CC 60 ?exit: rts34093410 F806CD sndnack:3411 ;ldy #NACK3412 F806CD 80 02 bra sndack23413 F806CF3414 F806CF sndack:3415 F806CF A0 06 ldy #ACK3416 F806D13417 F806D1 sndack2:3418 F806D1 84 9D sty tmpx3419 F806D3 A9 16 lda #SYN3420 F806D5 20 00 07 jsr sptput3421 F806D8 B0 48 bcs exit13422 F806DA A5 9D lda tmpx3423 F806DC 20 00 07 jsr sptput3424 F806DF B0 41 bcs exit13425 F806E1 A5 9B lda pktnum34263427 F806E3 spxput:3428 F806E3 C9 16 cmp #SYN3429 F806E5 F0 0C beq ?esc3430 F806E7 C9 11 cmp #SPXON3431 F806E9 F0 08 beq ?esc3432 F806EB C9 13 cmp #SPXOFF3433 F806ED F0 04 beq ?esc3434 F806EF C9 10 cmp #DLE3435 F806F1 D0 0D bne sptput3436 F806F3 49 20 ?esc: eor #$203437 F806F5 85 9D sta tmpx3438 F806F7 A9 10 lda #DLE3439 F806F9 20 00 07 jsr sptput3440 F806FC B0 24 bcs exit13441 F806FE A5 9D lda tmpx34423443 ; X=port (0 or 4)3444 ; put byte with timeout3445 F80700 sptput:3446 F80700 A8 tay ; Y=data3447 F80701 A9 20 lda #$20 ; set T2 count PB6 pulse (1ms)3448 F80703 0C 0B FD tsb .ABS.VIA0+VIAACR3449 F80706 9C 08 FD stz .ABS.VIA0+VIAT2CL3450 F80709 A9 04 lda #4 ; set 1024ms timeout3451 F8070B 8D 09 FD sta .ABS.VIA0+VIAT2CH3452 F8070E 98 ?lp: tya ; byte to send3453 F8070F 20 08 05 jsr _spput0 ; put byte within timeout3454 F80712 90 0E bcc exit1 ; ok3455 F80714 C8 iny ; Y=$FF if remote disconnessionTue Jul 17 11:00:18 2018 Page 163456 F80715 F0 09 beq ?err ; remote terminal disconnected3457 F80717 A8 tay ; Y=data3458 F80718 A9 20 lda #T2IFRB3459 F8071A 2C 0D FD bit .ABS.VIA0+VIAIFR3460 F8071D F0 EF beq ?lp ; no timeout: loop3461 F8071F 98 tya ; restore data3462 F80720 A0 80 ?err: ldy #$80 ; timeout or remote disconnession3463 F80722 60 exit1: rts34643465 ; frame alignment3466 ; A=expected packet type (SOH or STX)3467 ; X=0 (serial port 0)3468 ; exit with CF=0 if no error (ZF=0 if STX/SOH, ZF=1 if EOT)3469 F80723 fndsyn:3470 F80723 85 9A sta pkttyp3471 F80725 20 AE 06 jsr sptget3472 F80728 B0 26 bcs ?done ; error3473 F8072A C9 16 cmp #SYN3474 F8072C D0 F5 bne fndsyn ; skip bytes until find start of trame3475 F8072E 20 AE 06 ?lp: jsr sptget ; next byte3476 F80731 B0 1D bcs ?done ; error3477 F80733 C9 16 cmp #SYN ; discard further consecutive sync's3478 F80735 F0 F7 beq ?lp3479 F80737 C5 9A cmp pkttyp ; expected SOH, STX or EOT3480 F80739 D0 08 bne ?eot3481 F8073B A9 FF lda #$FF ; initialize crc computation3482 F8073D 85 94 sta crc163483 F8073F 85 95 sta crc16+1 ; if received STX or SOH exit with ZF=03484 F80741 18 ?ok: clc ; no error3485 F80742 60 rts3486 F80743 A4 9A ?eot: ldy pkttyp ; when expect STX, an EOT is legal3487 F80745 C0 02 cpy #STX3488 F80747 D0 04 bne ?err ; unexpected packet type3489 F80749 C9 04 cmp #EOT ; received an EOT?3490 F8074B F0 F4 beq ?ok ; exit with ZF=1 (EOT)3491 F8074D A9 10 ?err: lda #$10 ; unexpected packet type error3492 F8074F 38 sec3493 F80750 60 ?done: rts34943495 ; get escaped byte3496 ; X=serial port3497 F80751 spxget:3498 F80751 20 AE 06 jsr sptget3499 F80754 B0 10 bcs ?done3500 F80756 C9 16 cmp #SYN ; here a SYN is an error3501 F80758 F0 0C beq ?done ; exit3502 F8075A C9 10 cmp #DLE3503 F8075C D0 07 bne ?ok3504 F8075E 20 AE 06 jsr sptget3505 F80761 B0 03 bcs ?done3506 F80763 49 20 eor #$203507 F80765 18 ?ok: clc3508 F80766 60 ?done: rts35093510 F80767 updcrc:3511 F80767 A8 tay3512 F80768 45 95 eor crc16+1 ; quick CRC computation with lookup tablesTue Jul 17 11:00:18 2018 Page 173513 F8076A AA tax ; index for lookup table3514 F8076B A5 94 lda crc163515 F8076D 5F BC 09 F8 eor >crchi,x3516 F80771 85 95 sta crc16+13517 F80773 BF BC 08 F8 lda >crclo,x3518 F80777 85 94 sta crc163519 F80779 98 tya3520 F8077A 60 rts35213522 ; X=serial port (0 or 4)3523 F8077B getdat:3524 F8077B ACC163525 F8077B C2 20 rep #PMFLAG3526 .LONGA on3527 .MNLIST3528 F8077D A9 00 02 lda #$2003529 F80780 A4 9A ldy pkttyp3530 F80782 C0 02 cpy #STX3531 F80784 F0 03 beq ?st3532 F80786 A9 10 00 lda #$103533 F80789 85 96 ?st: sta bycnt3534 F8078B 64 98 stz byndx3535 F8078D ACC083536 F8078D E2 20 sep #PMFLAG3537 .LONGA off3538 .MNLIST3539 F8078F 20 51 07 ?lp: jsr spxget3540 F80792 B0 2A bcs ?err3541 F80794 20 67 07 jsr updcrc3542 F80797 INDEX163543 F80797 C2 10 rep #PXFLAG3544 .LONGI on3545 .MNLIST3546 F80799 A6 98 ldx byndx3547 F8079B 9F 00 9A 01 sta >SPBUF,x3548 F8079F E8 inx3549 F807A0 86 98 stx byndx3550 F807A2 E4 96 cpx bycnt3551 F807A4 INDEX083552 F807A4 E2 10 sep #PXFLAG3553 .LONGI off3554 .MNLIST3555 F807A6 A2 00 ldx #03556 F807A8 90 E5 bcc ?lp3557 F807AA 20 51 07 jsr spxget3558 F807AD B0 0F bcs ?err3559 F807AF C5 94 cmp crc163560 F807B1 D0 0B bne ?err3561 F807B3 20 51 07 jsr spxget3562 F807B6 B0 06 bcs ?err3563 F807B8 C5 95 cmp crc16+13564 F807BA D0 02 bne ?err3565 F807BC 18 clc3566 F807BD 60 rts3567 F807BE 38 ?err: sec3568 F807BF 60 rts3569 F807C0Tue Jul 17 11:00:18 2018 Page 183570 ; X=serial port (0 or 4)3571 F807C0 getpkt:3572 F807C0 A9 02 lda #STX3573 F807C2 20 23 07 jsr fndsyn3574 F807C5 B0 1E bcs ?done3575 F807C7 20 51 07 jsr spxget3576 F807CA B0 19 bcs ?done3577 F807CC 85 9B sta pktnum3578 F807CE 20 51 07 jsr spxget3579 F807D1 B0 12 bcs ?done3580 F807D3 49 FF eor #$FF3581 F807D5 C5 9B cmp pktnum3582 F807D7 D0 0C bne ?err3583 F807D9 C5 9C cmp expect3584 F807DB D0 08 bne ?err3585 F807DD 20 7B 07 jsr getdat3586 F807E0 B0 03 bcs ?err35873588 ; send positive ACK3589 F807E2 4C CF 06 jmp sndack3590 F807E53591 F807E5 ?err:3592 F807E5 60 ?done: rts35933594 F807E63595 ;------------------35963597 F807E6 lspget:3598 .PUBLIC lspget3599 F807E6 0B phd ; save DP3600 F807E7 8B phb ; save DBR3601 F807E8 F4 00 00 pea #0 ; set DP = $00003602 F807EB 2B pld3603 F807EC A0 00 ldy #0 ; set DBR = $003604 F807EE 5A phy3605 F807EF AB plb3606 F807F0 20 5B 04 jsr _spget03607 F807F3 AB plb3608 F807F4 2B pld3609 F807F5 6B rtl3610 F807F63611 F807F6 lspput:3612 .PUBLIC lspput3613 F807F6 0B phd ; save DP3614 F807F7 8B phb ; save DBR3615 F807F8 F4 00 00 pea #0 ; set DP = $00003616 F807FB 2B pld3617 F807FC A0 00 ldy #0 ; set DBR = $003618 F807FE 5A phy3619 F807FF AB plb3620 F80800 20 08 05 jsr _spput03621 F80803 AB plb3622 F80804 2B pld3623 F80805 6B rtl36243625 F80806 lspset:3626 .PUBLIC lspsetTue Jul 17 11:00:18 2018 Page 193627 F80806 0B phd ; save DP3628 F80807 8B phb ; save DBR3629 F80808 F4 00 00 pea #0 ; set DP = $00003630 F8080B 2B pld3631 F8080C A0 00 ldy #0 ; set DBR = $003632 F8080E 5A phy3633 F8080F AB plb3634 F80810 20 E5 05 jsr spset3635 F80813 AB plb3636 F80814 2B pld3637 F80815 6B rtl36383639 F80816 lspres:3640 .PUBLIC lspres3641 F80816 0B phd ; save DP3642 F80817 8B phb ; save DBR3643 F80818 F4 00 00 pea #0 ; set DP = $00003644 F8081B 2B pld3645 F8081C A0 00 ldy #0 ; set DBR = $003646 F8081E 5A phy3647 F8081F AB plb3648 F80820 20 8F 06 jsr spres3649 F80823 AB plb3650 F80824 2B pld3651 F80825 6B rtl36523653 F80826 crc16a:3654 F80826 EB xba3655 F80827 A9 00 lda #03656 F80829 A2 08 ldx #83657 F8082B ACC163658 F8082B C2 20 rep #PMFLAG3659 .LONGA on3660 .MNLIST3661 F8082D 45 94 eor crc163662 F8082F 0A ?lp: asl a3663 F80830 90 03 bcc ?skp3664 F80832 49 21 10 eor #$10213665 F80835 CA ?skp: dex3666 F80836 D0 F7 bne ?lp3667 F80838 85 94 sta crc163668 F8083A ACC083669 F8083A E2 20 sep #PMFLAG3670 .LONGA off3671 .MNLIST3672 F8083C 60 rts36733674 F8083D crc16b:3675 F8083D A2 08 ldx #83676 F8083F A8 ?lp: tay3677 F80840 45 94 eor crc163678 F80842 4A lsr a3679 F80843 ACC163680 F80843 C2 20 rep #PMFLAG3681 .LONGA on3682 .MNLIST3683 F80845 08 phpTue Jul 17 11:00:18 2018 Page 203684 F80846 A5 94 lda crc163685 F80848 4A lsr a3686 F80849 28 plp3687 F8084A 90 03 bcc ?nxt3688 F8084C 49 08 84 eor #$84083689 F8084F 85 94 ?nxt: sta crc163690 F80851 ACC083691 F80851 E2 20 sep #PMFLAG3692 .LONGA off3693 .MNLIST3694 F80853 98 tya3695 F80854 4A lsr a3696 F80855 CA dex3697 F80856 D0 E7 bne ?lp3698 F80858 60 rts3699 F808593700 F80859 crccalc:3701 F80859 0B phd3702 F8085A F4 00 00 pea #03703 F8085D 2B pld3704 F8085E 86 FF stx $ff37053706 F80860 A9 FF lda #$FF3707 F80862 85 94 sta crc163708 F80864 85 95 sta crc16+13709 F80866 20 99 08 jsr crctb3710 F80869 ACC163711 F80869 C2 20 rep #PMFLAG3712 .LONGA on3713 .MNLIST3714 F8086B A5 94 lda crc163715 F8086D 85 F0 sta $f03716 F8086F ACC083717 F8086F E2 20 sep #PMFLAG3718 .LONGA off3719 .MNLIST3720 F80871 A9 00 lda #$003721 F80873 85 94 sta crc163722 F80875 A9 00 lda #$003723 F80877 85 95 sta crc16+13724 F80879 20 99 08 jsr crctb3725 F8087C ACC163726 F8087C C2 20 rep #PMFLAG3727 .LONGA on3728 .MNLIST3729 F8087E A5 94 lda crc163730 F80880 85 F2 sta $f23731 F80882 ACC083732 F80882 E2 20 sep #PMFLAG3733 .LONGA off3734 .MNLIST3735 F80884 A9 0F lda #$0F3736 F80886 85 94 sta crc163737 F80888 A9 1D lda #$1D3738 F8088A 85 95 sta crc16+13739 F8088C 20 99 08 jsr crctb3740 F8088F ACC16Tue Jul 17 11:00:18 2018 Page 213741 F8088F C2 20 rep #PMFLAG3742 .LONGA on3743 .MNLIST3744 F80891 A5 94 lda crc163745 F80893 85 F4 sta $f43746 F80895 ACC083747 F80895 E2 20 sep #PMFLAG3748 .LONGA off3749 .MNLIST3750 F80897 2B pld3751 F80898 6B rtl375237533754 F80899 crctb:3755 F80899 64 FE stz $fe3756 F8089B ?lp:3757 F8089B A6 FE ldx $fe3758 F8089D E4 FF cpx $ff3759 F8089F B0 1A bcs ?end3760 F808A1 BF 00 00 10 lda >$100000,x3761 F808A5 E8 inx3762 F808A6 86 FE stx $fe37633764 F808A8 45 95 eor crc16+1 ; Quick CRC computation with lookup tables3765 F808AA AA tax ; updates the two bytes at crc & crc+13766 F808AB A5 94 lda crc16 ; with the byte send in the "A" register3767 F808AD 5F BC 09 F8 eor >crchi,x3768 F808B1 85 95 sta crc16+13769 F808B3 BF BC 08 F8 lda >crclo,x3770 F808B7 85 94 sta crc163771 F808B93772 F808B9 80 E0 bra ?lp3773 F808BB ?end:3774 F808BB 60 rts ; y=82 on exit37753776 F808BC crclo3777 F808BC 00 21 42 63 84 .byte $00,$21,$42,$63,$84,$A5,$C6,$E7,$08,$29,$4A,$6B,$8C,$AD,$CE,$EFA5 C6 E7 08 294A 6B 8C AD CEEF3778 F808CC 31 10 73 52 B5 .byte $31,$10,$73,$52,$B5,$94,$F7,$D6,$39,$18,$7B,$5A,$BD,$9C,$FF,$DE94 F7 D6 39 187B 5A BD 9C FFDE3779 F808DC 62 43 20 01 E6 .byte $62,$43,$20,$01,$E6,$C7,$A4,$85,$6A,$4B,$28,$09,$EE,$CF,$AC,$8DC7 A4 85 6A 4B28 09 EE CF AC8D3780 F808EC 53 72 11 30 D7 .byte $53,$72,$11,$30,$D7,$F6,$95,$B4,$5B,$7A,$19,$38,$DF,$FE,$9D,$BCF6 95 B4 5B 7A19 38 DF FE 9DBC3781 F808FC C4 E5 86 A7 40 .byte $C4,$E5,$86,$A7,$40,$61,$02,$23,$CC,$ED,$8E,$AF,$48,$69,$0A,$2B61 02 23 CC ED8E AF 48 69 0A2B3782 F8090C F5 D4 B7 96 71 .byte $F5,$D4,$B7,$96,$71,$50,$33,$12,$FD,$DC,$BF,$9E,$79,$58,$3B,$1ATue Jul 17 11:00:18 2018 Page 2250 33 12 FD DCBF 9E 79 58 3B1A3783 F8091C A6 87 E4 C5 22 .byte $A6,$87,$E4,$C5,$22,$03,$60,$41,$AE,$8F,$EC,$CD,$2A,$0B,$68,$4903 60 41 AE 8FEC CD 2A 0B 68493784 F8092C 97 B6 D5 F4 13 .byte $97,$B6,$D5,$F4,$13,$32,$51,$70,$9F,$BE,$DD,$FC,$1B,$3A,$59,$7832 51 70 9F BEDD FC 1B 3A 59783785 F8093C 88 A9 CA EB 0C .byte $88,$A9,$CA,$EB,$0C,$2D,$4E,$6F,$80,$A1,$C2,$E3,$04,$25,$46,$672D 4E 6F 80 A1C2 E3 04 25 46673786 F8094C B9 98 FB DA 3D .byte $B9,$98,$FB,$DA,$3D,$1C,$7F,$5E,$B1,$90,$F3,$D2,$35,$14,$77,$561C 7F 5E B1 90F3 D2 35 14 77563787 F8095C EA CB A8 89 6E .byte $EA,$CB,$A8,$89,$6E,$4F,$2C,$0D,$E2,$C3,$A0,$81,$66,$47,$24,$054F 2C 0D E2 C3A0 81 66 47 24053788 F8096C DB FA 99 B8 5F .byte $DB,$FA,$99,$B8,$5F,$7E,$1D,$3C,$D3,$F2,$91,$B0,$57,$76,$15,$347E 1D 3C D3 F291 B0 57 76 15343789 F8097C 4C 6D 0E 2F C8 .byte $4C,$6D,$0E,$2F,$C8,$E9,$8A,$AB,$44,$65,$06,$27,$C0,$E1,$82,$A3E9 8A AB 44 6506 27 C0 E1 82A33790 F8098C 7D 5C 3F 1E F9 .byte $7D,$5C,$3F,$1E,$F9,$D8,$BB,$9A,$75,$54,$37,$16,$F1,$D0,$B3,$92D8 BB 9A 75 5437 16 F1 D0 B3923791 F8099C 2E 0F 6C 4D AA .byte $2E,$0F,$6C,$4D,$AA,$8B,$E8,$C9,$26,$07,$64,$45,$A2,$83,$E0,$C18B E8 C9 26 0764 45 A2 83 E0C13792 F809AC 1F 3E 5D 7C 9B .byte $1F,$3E,$5D,$7C,$9B,$BA,$D9,$F8,$17,$36,$55,$74,$93,$B2,$D1,$F0BA D9 F8 17 3655 74 93 B2 D1F037933794 ; hi byte CRC lookup table (should be page aligned)3795 F809BC crchi3796 F809BC 00 10 20 30 40 .byte $00,$10,$20,$30,$40,$50,$60,$70,$81,$91,$A1,$B1,$C1,$D1,$E1,$F150 60 70 81 91A1 B1 C1 D1 E1F13797 F809CC 12 02 32 22 52 .byte $12,$02,$32,$22,$52,$42,$72,$62,$93,$83,$B3,$A3,$D3,$C3,$F3,$E342 72 62 93 83B3 A3 D3 C3 F3E33798 F809DC 24 34 04 14 64 .byte $24,$34,$04,$14,$64,$74,$44,$54,$A5,$B5,$85,$95,$E5,$F5,$C5,$D574 44 54 A5 B585 95 E5 F5 C5Tue Jul 17 11:00:18 2018 Page 23D53799 F809EC 36 26 16 06 76 .byte $36,$26,$16,$06,$76,$66,$56,$46,$B7,$A7,$97,$87,$F7,$E7,$D7,$C766 56 46 B7 A797 87 F7 E7 D7C73800 F809FC 48 58 68 78 08 .byte $48,$58,$68,$78,$08,$18,$28,$38,$C9,$D9,$E9,$F9,$89,$99,$A9,$B918 28 38 C9 D9E9 F9 89 99 A9B93801 F80A0C 5A 4A 7A 6A 1A .byte $5A,$4A,$7A,$6A,$1A,$0A,$3A,$2A,$DB,$CB,$FB,$EB,$9B,$8B,$BB,$AB0A 3A 2A DB CBFB EB 9B 8B BBAB3802 F80A1C 6C 7C 4C 5C 2C .byte $6C,$7C,$4C,$5C,$2C,$3C,$0C,$1C,$ED,$FD,$CD,$DD,$AD,$BD,$8D,$9D3C 0C 1C ED FDCD DD AD BD 8D9D3803 F80A2C 7E 6E 5E 4E 3E .byte $7E,$6E,$5E,$4E,$3E,$2E,$1E,$0E,$FF,$EF,$DF,$CF,$BF,$AF,$9F,$8F2E 1E 0E FF EFDF CF BF AF 9F8F3804 F80A3C 91 81 B1 A1 D1 .byte $91,$81,$B1,$A1,$D1,$C1,$F1,$E1,$10,$00,$30,$20,$50,$40,$70,$60C1 F1 E1 10 0030 20 50 40 70603805 F80A4C 83 93 A3 B3 C3 .byte $83,$93,$A3,$B3,$C3,$D3,$E3,$F3,$02,$12,$22,$32,$42,$52,$62,$72D3 E3 F3 02 1222 32 42 52 62723806 F80A5C B5 A5 95 85 F5 .byte $B5,$A5,$95,$85,$F5,$E5,$D5,$C5,$34,$24,$14,$04,$74,$64,$54,$44E5 D5 C5 34 2414 04 74 64 54443807 F80A6C A7 B7 87 97 E7 .byte $A7,$B7,$87,$97,$E7,$F7,$C7,$D7,$26,$36,$06,$16,$66,$76,$46,$56F7 C7 D7 26 3606 16 66 76 46563808 F80A7C D9 C9 F9 E9 99 .byte $D9,$C9,$F9,$E9,$99,$89,$B9,$A9,$58,$48,$78,$68,$18,$08,$38,$2889 B9 A9 58 4878 68 18 08 38283809 F80A8C CB DB EB FB 8B .byte $CB,$DB,$EB,$FB,$8B,$9B,$AB,$BB,$4A,$5A,$6A,$7A,$0A,$1A,$2A,$3A9B AB BB 4A 5A6A 7A 0A 1A 2A3A3810 F80A9C FD ED DD CD BD .byte $FD,$ED,$DD,$CD,$BD,$AD,$9D,$8D,$7C,$6C,$5C,$4C,$3C,$2C,$1C,$0CAD 9D 8D 7C 6C5C 4C 3C 2C 1C0C3811 F80AAC EF FF CF DF AF .byte $EF,$FF,$CF,$DF,$AF,$BF,$8F,$9F,$6E,$7E,$4E,$5E,$2E,$3E,$0E,$1EBF 8F 9F 6E 7E4E 5E 2E 3E 0E1ELines Assembled : 3473 Errors : 0