Blame | Last modification | View Log | Download | RSS feed
Tue Jul 17 11:00:17 2018 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F8\rtc.asmOutput Filename : obj\F8\rtc.objListing Has Been Relocated2606 .LIST on26072608 F8FFB1 .INCLUDE inc\dirp00.inc2609 ;----------------------------------------------------------2610 ; DIRP00.ASM2611 ; PROGETTO: B16012612 ;2613 ; Variabili in Direct Page $002614 ;----------------------------------------------------------26152616 ; sezione COMMON -- questo permette di includere il file in piu' file26172618 .LIST on26192620 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0026212622 000000 .ABSOLUTE ;; inizia sempre da $002623 000000 .ORG 0x002624 0000002625 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2626 000002 0000 .DW2627 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2628 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2629 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2630 ; <6>: flag warm reset2631 00000D 00 RTCFlag .DB26322633 00000E diskstat .DS 2 ; flag device on ata bus #0 & #12634 ; <7>: device ready2635 ; <6>: compact flash device (C.F.)2636 ; <5>: device identification ok2637 ; <4>: MBR loaded2638 ; <3>: valid signature in MBR2639 ; <2>: first partition found&active2640 ; <1>:2641 ; <0>: valid partition flag26422643 ; <7>: device ready2644 ; <6>: USB device2645 ; <5>: compact flash device (C.F.)2646 ; <4>: device identification ok2647 ; <3>: MBR loaded2648 ; <2>: first partition found&active2649 ; <1>: always 12650 ; <0>: valid partition flag2651 000010Tue Jul 17 11:00:17 2018 Page 226522653 00000E atadev .EQU diskstat26542655 000010 usbdev .DS 2 ; flag flash disk on usb bus #02656 ; <7>: device plugged and ready2657 ; <6>: always 12658 ; <5>: device identification ok2659 ; <4>: MBR loaded2660 ; <3>: valid signature in MBR2661 ; <2>: first partition found&active2662 ; <1>:2663 ; <0>: valid partition flag26642665 000012 diskmax .DS 16 ; disk max. sector's2666 000012 atasec .EQU diskmax2667 00001A usbsec .EQU diskmax+8266826692670 000022 atambr .DS 8 ; data for first partition found in mbr2671 ; first 3 bytes for start sector of partition2672 ; last byte for partition type2673 00002A usbmbr .DS 826742675 000032 ataprt .DS 8 ; total sec's of first partition2676 00003A usbprt .DS 8 ; total sec's of first partition267726782679 000042 00 usb0ch .DB ; usb0 (ch375/ch376) flag2680 ; <7>: module on2681 ; <6>: ch376 flag2682 ; <5:0>: chip version26832684 000043 00 usb0st .DB ; usb0 status2685 ; <7>: usb0 host mode ok2686 ; <6>: flash disk attached flag2687 ; <5>: usb device attached26882689 000044 00 fdcdrv .DB ; phisycal drive status (drive #0)2690 ; <7>: disk format established in bit 0&12691 ; <6>: double step seek done2692 ; <5>: trust format bit's (set after ok r/w)2693 ; <4>: write protect bit (if disk in drive)2694 ; <3>: don't care2695 ; <2>: don't care2696 ; <1>: HD disk if set else DD disk2697 ; <0>: CBM format if set else IBM format26982699 000045 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2700 ; <7>: disk format established in bit 0&12701 ; <6>: change disk simulation (after format)2702 ; <5>: don't care2703 ; <4>: write protect bit (under sw control)2704 ; <3>: don't care2705 ; <2>: don't care2706 ; <1>: HD disk if set else DD disk2707 ; <0>: CBM format if set else IBM format2708Tue Jul 17 11:00:17 2018 Page 32709 000046 00 fdcctl .DB ; fdc controller status2710 ; <7>: drive is attached2711 ; <6>: drive need recalibration (restore)2712 ; <5>: FDC controller ok2713 ; <4>: motor on2714 ; <3>: dma is active2715 ; <2>: dma chip ok (post routine)2716 ; <1>: clock rate (1=HD,0=DD)2717 ; <0>: disk ready27182719 000047 00 fdctrk .DB ; fd: current seek track2720 000048 00 fdcerr .DB ; fd: last error code2721 000049 00 ataerr .DB ; ata: last error code2722 00004A 00 ataxer .DB ; ata: last extended error code27232724 00004B 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)27252726 00004C 0000 MemTop .DW ; top memoria RAM2727 00004E 00 .DB ; banco top mem27282729 00004F 00 DflTxtIn .DB ; device di default text input2730 000050 00 DflTxtOut .DB ; device di default text output27312732 000051 COPPtr LP ; long pointer for COP decoding2733 000054 00 COPIdx .DB ; COP signature/index27342735 000055 00 BiosEnt .DB ; flag accesso a bios setup27362737 ; variabili utilizzate da ACIA2738 000056 spwrk .DS $3027392740 ; bios mem2741 000086 0000 nsize .DW ; dimensione blocco da allocare2742 ;bsize .DW ; dimensione vera blocco free2743 000088 0000 splitsz .DW ; dimensione blocco splittato2744 00008A 0000 bfree .DW ; puntatore blocco free2745 00008C 0000 hdrptr .DW ; puntatore header heap27462747 00008E 0000 pbrklv .DW ; current break level of current process2748 000090 0000 pbrkmin .DW ; minimum breal level of current process2749 000092 0000 pbrkmax .DW ; maximum breal level of current process2750 0000942751 ; bios temp. work area2752 000094 bwrktmp .DS $2827532754 0000BC 00 coptmp .DB ; temp. used while cop27552756 0000BD 00 tstser .DB ; check ser/usb test board post2757 ; <7>: VIA2 ok2758 ; <6>: PICRAM ok2759 ; <1>: UART 16C550 ok2760 ; <0>: R65C51 ok276127622763 ;crc16 .DW27642765 0000BD .RELATIVETue Jul 17 11:00:17 2018 Page 427662767 .ENDS27682769 [01] .IFDEF _ACIA_INC_2770 .INCLUDE INC\SP.INC2771 [00] .ENDIF27722776 .LIST on27772778 000004 MAXFNC .EQU 427792780 ; page 0 local var's (declared in bios temp. work area)2781 _P0BTMP: .SECTION page0, ref_only, offset bwrktmp ; DP Tmp. BIOS27822783 000094 dmonth .DS 12 ; array of month's day's2784 0000A0 0000 cyear .DW ; full year - 12785 0000A2 0000 ty400 .DW ; full year / 4002786 0000A4 0000 ty100 .DW ; full year / 1002787 0000A6 0000 dvsor .DW ; divisor/remainder2788 0000A8 0000 quot .DW ; quotient2789 0000AA 0000 date1 .DW ; last march sunday2790 0000AC 0000 date2 .DW ; last october sunday2791 0000AE 00 dayofw .DB ; day of week (1=sunday...)2792 0000AF 00 date .DB ; date (day of month)2793 0000B0 00 month .DB2794 0000B1 00 year .DB2795 0000B2 00 ctry .DB ; century2796 0000B3 00 jan1 .DB ; first day of the year27972798 .ENDS27992800 .CODEF828012802 .LONGA off2803 .LONGI off28042805 ;---------------------------------------------------------------------------2806 ; system call interface2807 ;---------------------------------------------------------------------------28082809 ; handle real time clock2810 ;2811 ; functions:2812 ;2813 ; $00: set time (X=seconds, Y=minutes, A=hours)2814 ; $01: set date (X=day, Y=month, A=year, B=century)2815 ; ?02: get time (X=seconds, Y=minutes, A=hours, B=day of week)2816 ; $03: get date (X=day, Y=month, A=year, B=century)2817 ;2818 F8AF83 sys_rtc:2819 F8AF832820 .PUBLIC sys_rtc28212822 F8AF83 A3 12 lda STKPBR,s ; bank where was executed cop instruction2823 F8AF85 85 53 sta COPPtr+22824 F8AF87 ACC16 ; retrieve function number2825 F8AF87 C2 20 rep #PMFLAGTue Jul 17 11:00:17 2018 Page 52826 .LONGA on2827 .MNLIST2828 F8AF89 A3 10 lda STKPCL,s ; pointer to byte after signature2829 F8AF8B 85 51 sta COPPtr2830 F8AF8D 1A inc a ; update return address2831 F8AF8E 83 10 sta STKPCL,s2832 F8AF90 A7 51 lda [COPPtr] ; byte after signature: function number #2833 F8AF92 AA tax ; X=function number2834 F8AF93 ACC08 ; A,M -> 8 bit2835 F8AF93 E2 20 sep #PMFLAG2836 .LONGA off2837 .MNLIST2838 F8AF95 E0 04 cpx #MAXFNC2839 F8AF97 B0 06 bcs ?10 ; invalid function2840 F8AF99 8A txa2841 F8AF9A 0A asl a2842 F8AF9B AA tax ; function index2843 F8AF9C 7C 3F B2 jmp (JMPTBL,x)2844 F8AF9F A9 01 ?10: lda #RTC_BADFNC2845 F8AFA1 38 sec2846 F8AFA2 6B rtl28472848 ; set rtc time2849 F8AFA3 rtcsett:2850 F8AFA3 A3 0B lda STKXR,s ; X=seconds2851 F8AFA5 AA tax2852 F8AFA6 A3 09 lda STKYR,s ; Y=minutes2853 F8AFA8 A8 tay2854 F8AFA9 A3 0D lda STKCR,s ; A=hours2855 F8AFAB 20 DC B0 jsr chktim ; check if valid time2856 F8AFAE 90 04 bcc ?102857 F8AFB0 A9 02 lda #RTC_BADTIME ; return error2858 F8AFB2 38 sec2859 F8AFB3 6B rtl2860 F8AFB4 EB ?10: xba ; B=hours2861 F8AFB5 A9 0B lda #RTCCTRLB ; stop time update2862 F8AFB7 8D 4C FD sta RTCALE2863 F8AFBA A9 80 lda #$802864 F8AFBC 0C 4D FD tsb RTCDATA2865 F8AFBF 9C 4C FD stz RTCALE ; seconds register2866 F8AFC2 8E 4D FD stx RTCDATA ; set seconds2867 F8AFC5 A9 02 lda #RTCMIN2868 F8AFC7 8D 4C FD sta RTCALE2869 F8AFCA 8C 4D FD sty RTCDATA ; set minutes2870 F8AFCD A9 04 lda #RTCHOURS2871 F8AFCF 8D 4C FD sta RTCALE2872 F8AFD2 EB xba2873 F8AFD3 8D 4D FD sta RTCDATA ; set hours2874 F8AFD6 A9 0B lda #RTCCTRLB ; start time update2875 F8AFD8 8D 4C FD sta RTCALE2876 F8AFDB A9 80 lda #$802877 F8AFDD 1C 4D FD trb RTCDATA2878 F8AFE0 18 clc2879 F8AFE1 6B rtl28802881 ; get rtc time2882 F8AFE2 rtcgett:Tue Jul 17 11:00:17 2018 Page 62883 F8AFE2 78 sei2884 F8AFE3 A2 0A ldx #RTCCTRLA ; set bank 12885 F8AFE5 8E 4C FD stx RTCALE2886 F8AFE8 A9 10 lda #$102887 F8AFEA 0C 4D FD tsb RTCDATA2888 F8AFED A2 4A ldx #RTCEXTCTRLA ; check INCR bit 62889 F8AFEF 8E 4C FD stx RTCALE2890 F8AFF2 2C 4D FD ?02: bit RTCDATA2891 F8AFF5 70 FB bvs ?022892 F8AFF7 A2 00 ldx #0 ; seconds2893 F8AFF9 8E 4C FD stx RTCALE2894 F8AFFC AD 4D FD lda RTCDATA2895 F8AFFF 83 0B sta STKXR,s2896 F8B001 E8 inx2897 F8B002 E8 inx2898 F8B003 8E 4C FD stx RTCALE ; minutes2899 F8B006 AD 4D FD lda RTCDATA2900 F8B009 83 09 sta STKYR,s2901 F8B00B E8 inx2902 F8B00C E8 inx2903 F8B00D 8E 4C FD stx RTCALE ; hours2904 F8B010 AD 4D FD lda RTCDATA2905 F8B013 83 0D sta STKCR,s2906 F8B015 E8 inx2907 F8B016 E8 inx2908 F8B017 8E 4C FD stx RTCALE ; day of week2909 F8B01A AD 4D FD lda RTCDATA2910 F8B01D 83 0E sta STKCR+1,s2911 F8B01F 58 cli2912 F8B020 18 clc2913 F8B021 6B rtl29142915 ; get rtc date2916 F8B022 rtcgetd:2917 F8B022 78 sei2918 F8B023 A2 0A ldx #RTCCTRLA ; set bank 12919 F8B025 8E 4C FD stx RTCALE2920 F8B028 A9 10 lda #$102921 F8B02A 0C 4D FD tsb RTCDATA2922 F8B02D A2 4A ldx #RTCEXTCTRLA ; check INCR bit 62923 F8B02F 8E 4C FD stx RTCALE2924 F8B032 2C 4D FD ?02: bit RTCDATA2925 F8B035 70 FB bvs ?022926 F8B037 A2 07 ldx #RTCDDATE ; day2927 F8B039 8E 4C FD stx RTCALE2928 F8B03C AD 4D FD lda RTCDATA2929 F8B03F 83 0B sta STKXR,s2930 F8B041 E8 inx2931 F8B042 8E 4C FD stx RTCALE ; month2932 F8B045 AD 4D FD lda RTCDATA2933 F8B048 83 09 sta STKYR,s2934 F8B04A E8 inx2935 F8B04B 8E 4C FD stx RTCALE ; year2936 F8B04E AD 4D FD lda RTCDATA2937 F8B051 83 0D sta STKCR,s2938 F8B053 A2 48 ldx #RTCCENTURY2939 F8B055 8E 4C FD stx RTCALE ; centuryTue Jul 17 11:00:17 2018 Page 72940 F8B058 AD 4D FD lda RTCDATA2941 F8B05B 83 0E sta STKCR+1,s2942 F8B05D 58 cli2943 F8B05E 18 clc2944 F8B05F 6B rtl29452946 F8B060 rtctest:2947 .PUBLIC rtctest2948 F8B060 0B phd2949 F8B061 F4 00 00 pea #02950 F8B064 2B pld2951 F8B065 20 E7 B0 jsr chkdate2952 F8B068 90 06 bcc ?022953 F8B06A A9 03 lda #RTC_BADDATE ; return error2954 F8B06C 38 sec2955 F8B06D 2B pld2956 F8B06E 00 00 brk2957 F8B070 20 27 B1 ?02: jsr getdayw ; get day of week2958 F8B073 20 91 B1 jsr getlmt2959 F8B076 A6 AA ldx date12960 F8B078 A4 AC ldy date22961 F8B07A 18 clc2962 F8B07B 2B pld2963 F8B07C 00 00 brk29642965 F8B07E rtcsetd:2966 F8B07E A3 0B lda STKXR,s ; X=date (day of month)2967 F8B080 AA tax2968 F8B081 A3 09 lda STKYR,s ; Y=month2969 F8B083 A8 tay2970 F8B084 A3 0E lda STKCR+1,s ; B=century2971 F8B086 EB xba2972 F8B087 A3 0D lda STKCR,s ; A=year2973 F8B089 20 E7 B0 jsr chkdate2974 F8B08C 90 04 bcc ?022975 F8B08E A9 03 lda #RTC_BADDATE ; return error2976 F8B090 38 sec2977 F8B091 6B rtl2978 F8B092 20 27 B1 ?02: jsr getdayw ; get day of week2979 F8B095 78 sei2980 F8B096 A2 0A ldx #RTCCTRLA ; set bank 12981 F8B098 8E 4C FD stx RTCALE2982 F8B09B A9 10 lda #$102983 F8B09D 0C 4D FD tsb RTCDATA2984 F8B0A0 A9 0B lda #RTCCTRLB ; stop time update2985 F8B0A2 8D 4C FD sta RTCALE2986 F8B0A5 A9 80 lda #$802987 F8B0A7 0C 4D FD tsb RTCDATA2988 F8B0AA A2 06 ldx #RTCDAY ; day of week2989 F8B0AC 8E 4C FD stx RTCALE2990 F8B0AF A5 AE lda dayofw2991 F8B0B1 8D 4D FD sta RTCDATA2992 F8B0B4 E8 inx2993 F8B0B5 8E 4C FD stx RTCALE ; date (day of week)2994 F8B0B8 A5 AF lda date2995 F8B0BA 8D 4D FD sta RTCDATA2996 F8B0BD E8 inxTue Jul 17 11:00:17 2018 Page 82997 F8B0BE 8E 4C FD stx RTCALE ; month2998 F8B0C1 A5 B0 lda month2999 F8B0C3 8D 4D FD sta RTCDATA3000 F8B0C6 E8 inx3001 F8B0C7 8E 4C FD stx RTCALE ; year3002 F8B0CA A5 B1 lda year3003 F8B0CC 8D 4D FD sta RTCDATA3004 F8B0CF A2 48 ldx #RTCCENTURY3005 F8B0D1 8E 4C FD stx RTCALE ; century3006 F8B0D4 A5 B2 lda ctry3007 F8B0D6 8D 4D FD sta RTCDATA3008 F8B0D9 58 cli3009 F8B0DA 18 clc3010 F8B0DB 6B rtl30113012 ; check time validity3013 F8B0DC chktim:3014 F8B0DC E0 3C cpx #603015 F8B0DE B0 06 bcs ?103016 F8B0E0 C0 3C cpy #603017 F8B0E2 B0 02 bcs ?103018 F8B0E4 C9 18 cmp #243019 F8B0E6 60 ?10: rts ; return CF=1 if invalid time30203021 ; check date validity3022 F8B0E7 chkdate:3023 F8B0E7 C0 01 cpy #1 ; check month 1..123024 F8B0E9 B0 02 bcs ?043025 F8B0EB 38 ?02: sec3026 F8B0EC 60 ?03: rts3027 F8B0ED C0 0D ?04: cpy #133028 F8B0EF B0 FB bcs ?033029 F8B0F1 84 B0 sty month3030 F8B0F3 EB xba ; check century3031 F8B0F4 C9 64 cmp #1003032 F8B0F6 B0 F4 bcs ?033033 F8B0F8 85 B2 sta ctry3034 F8B0FA EB xba3035 F8B0FB C9 64 cmp #100 ; check year3036 F8B0FD B0 ED bcs ?033037 F8B0FF 85 B1 sta year3038 F8B101 E0 01 cpx #1 ; check date (day of month)3039 F8B103 90 E6 bcc ?023040 F8B105 86 AF stx date3041 F8B107 A2 0B ldx #11 ; build month's array3042 F8B109 BF 47 B2 F8 ?05: lda >MDAYTBL,x ; max. days3043 F8B10D 95 94 sta dmonth,x3044 F8B10F CA dex3045 F8B110 10 F7 bpl ?053046 F8B112 A5 B1 lda year ; century start?3047 F8B114 D0 02 bne ?06 ; no...so check if year divisible by 43048 F8B116 A5 B2 lda ctry ; check if century is divisible by 43049 F8B118 29 03 ?06: and #$03 ; year/century divisible by 4?3050 F8B11A D0 02 bne ?08 ; no...so no leap year3051 F8B11C E6 95 inc dmonth+1 ; leap year so february have 29 days3052 F8B11E 88 ?08: dey ; month zero based3053 F8B11F B6 94 ldx dmonth,yTue Jul 17 11:00:17 2018 Page 93054 F8B121 E4 AF cpx date3055 F8B123 90 C6 bcc ?02 ; over month limit3056 F8B125 18 clc3057 F8B126 60 rts30583059 F8B127 getdayw:3060 F8B127 20 F4 B1 jsr fyear3061 F8B12A CPU163062 F8B12A C2 30 rep #(PMFLAG.OR.PXFLAG)3063 .LONGA on3064 .LONGI on3065 .MNLIST3066 F8B12C A9 90 01 lda #4003067 F8B12F 85 A6 sta dvsor3068 F8B131 A5 A0 lda cyear3069 F8B133 20 18 B2 jsr fudiv ; year / 4003070 F8B136 85 A2 sta ty4003071 F8B138 A9 64 00 lda #1003072 F8B13B 85 A6 sta dvsor3073 F8B13D A5 A0 lda cyear3074 F8B13F 20 18 B2 jsr fudiv ; year / 1003075 F8B142 85 A4 sta ty1003076 F8B144 A5 A0 lda cyear3077 F8B146 4A lsr a ; year / 43078 F8B147 4A lsr a3079 F8B148 18 clc3080 F8B149 69 23 00 adc #353081 F8B14C 18 clc3082 F8B14D 65 A0 adc cyear ; add year3083 F8B14F 18 clc3084 F8B150 65 A2 adc ty400 ; add (year / 400)3085 F8B152 38 sec3086 F8B153 E5 A4 sbc ty100 ; subtract (year / 100)3087 F8B155 A2 07 00 ldx #73088 F8B158 86 A6 stx dvsor3089 F8B15A 20 18 B2 jsr fudiv ; divide by 7...remainder is the first day3090 F8B15D CPU083091 F8B15D E2 30 sep #(PMFLAG.OR.PXFLAG)3092 .LONGA off3093 .LONGI off3094 .MNLIST3095 F8B15F 98 tya ; first day of the year3096 F8B160 85 B3 sta jan1 ; save for later use3097 F8B162 18 clc3098 F8B163 65 AF adc date ; add current date3099 F8B165 3A dec a ; day number (0 based)3100 F8B166 A0 00 ldy #0 ; hi byte3101 F8B168 A6 B0 ldx month ; add days3102 F8B16A CA dex3103 F8B16B F0 0A beq ?10 ; january...so nothing to add3104 F8B16D CA dex3105 F8B16E 18 ?06: clc3106 F8B16F 75 94 adc dmonth,x ; add days till previous month3107 F8B171 90 01 bcc ?083108 F8B173 C8 iny3109 F8B174 CA ?08: dex3110 F8B175 10 F7 bpl ?06Tue Jul 17 11:00:17 2018 Page 103111 F8B177 EB ?10: xba3112 F8B178 98 tya3113 F8B179 EB xba3114 F8B17A CPU163115 F8B17A C2 30 rep #(PMFLAG.OR.PXFLAG)3116 .LONGA on3117 .LONGI on3118 .MNLIST3119 F8B17C A2 07 00 ldx #73120 F8B17F 86 A6 stx dvsor3121 F8B181 20 18 B2 jsr fudiv ; Y -> 0 = monday .. 6 = sunday3122 F8B184 CPU083123 F8B184 E2 30 sep #(PMFLAG.OR.PXFLAG)3124 .LONGA off3125 .LONGI off3126 .MNLIST3127 F8B186 C8 iny3128 F8B187 C0 07 cpy #7 ; sunday ?3129 F8B189 D0 02 bne ?15 ; no3130 F8B18B A0 00 ldy #0 ; yes3131 F8B18D C8 ?15: iny3132 F8B18E 84 AE sty dayofw ; 1=sunday..7=saturday3133 F8B190 60 rts31343135 F8B191 getlmt:3136 F8B191 A9 00 lda #03137 F8B193 EB xba3138 F8B194 A5 B3 lda jan13139 F8B196 18 clc3140 F8B197 65 94 adc dmonth ; get march, 313141 F8B199 65 95 adc dmonth+13142 F8B19B 65 96 adc dmonth+23143 F8B19D 3A dec a3144 F8B19E CPU163145 F8B19E C2 30 rep #(PMFLAG.OR.PXFLAG)3146 .LONGA on3147 .LONGI on3148 .MNLIST3149 F8B1A0 A2 07 00 ldx #73150 F8B1A3 86 A6 stx dvsor3151 F8B1A5 20 18 B2 jsr fudiv ; Y -> 0 = monday .. 6 = sunday3152 F8B1A8 CPU083153 F8B1A8 E2 30 sep #(PMFLAG.OR.PXFLAG)3154 .LONGA off3155 .LONGI off3156 .MNLIST3157 F8B1AA A9 1F lda #313158 F8B1AC C0 06 cpy #6 ; sunday?3159 F8B1AE F0 04 beq ?10 ; yes, found first limit3160 F8B1B0 3A ?05: dec a ; back one day3161 F8B1B1 88 dey3162 F8B1B2 10 FC bpl ?05 ; till previous monday3163 F8B1B4 85 AA ?10: sta date1 ; last march sunday3164 F8B1B6 A9 03 lda #33165 F8B1B8 85 AB sta date1+13166 F8B1BA A9 00 lda #03167 F8B1BC EB xbaTue Jul 17 11:00:17 2018 Page 113168 F8B1BD A5 95 lda dmonth+1 ; get october, 313169 F8B1BF 18 clc3170 F8B1C0 65 B3 adc jan13171 F8B1C2 CPU16CLC3172 F8B1C2 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)3173 .LONGA on3174 .LONGI on3175 .MNLIST3176 F8B1C4 69 14 01 adc #2763177 F8B1C7 3A dec a3178 F8B1C8 A2 07 00 ldx #73179 F8B1CB 86 A6 stx dvsor3180 F8B1CD 20 18 B2 jsr fudiv ; Y -> 0 = monday .. 6 = sunday3181 F8B1D0 CPU083182 F8B1D0 E2 30 sep #(PMFLAG.OR.PXFLAG)3183 .LONGA off3184 .LONGI off3185 .MNLIST3186 F8B1D2 A9 1F lda #313187 F8B1D4 C0 06 cpy #6 ; sunday?3188 F8B1D6 F0 04 beq ?20 ; yes, found first limit3189 F8B1D8 3A ?15: dec a ; back one day3190 F8B1D9 88 dey3191 F8B1DA 10 FC bpl ?15 ; till previous monday3192 F8B1DC 85 AC ?20: sta date2 ; last october sunday3193 F8B1DE A9 0A lda #103194 F8B1E0 85 AD sta date2+13195 F8B1E2 ACC163196 F8B1E2 C2 20 rep #PMFLAG3197 .LONGA on3198 .MNLIST3199 F8B1E4 A2 00 ldx #0 ; not in DST range3200 F8B1E6 A5 AF lda date ; check if date is the DST range3201 F8B1E8 C5 AA cmp date13202 F8B1EA 90 05 bcc ?25 ; not in DST3203 F8B1EC C5 AC cmp date23204 F8B1EE B0 01 bcs ?25 ; not in DST3205 F8B1F0 CA dex ; DST time3206 ?25: ;stx dstfg3207 F8B1F1 ACC083208 F8B1F1 E2 20 sep #PMFLAG3209 .LONGA off3210 .MNLIST3211 F8B1F3 60 rts3212 F8B1F43213 ; get full year - 13214 F8B1F4 fyear:3215 F8B1F4 A5 B1 lda year3216 F8B1F6 85 A4 sta ty1003217 F8B1F8 64 A5 stz ty100+13218 F8B1FA A5 B2 lda ctry3219 F8B1FC 85 A0 sta cyear3220 F8B1FE 64 A1 stz cyear+13221 F8B200 ACC163222 F8B200 C2 20 rep #PMFLAG3223 .LONGA on3224 .MNLISTTue Jul 17 11:00:17 2018 Page 123225 F8B202 A5 A0 lda cyear3226 F8B204 0A asl a ; x 43227 F8B205 0A asl a3228 F8B206 65 A0 adc cyear ; x 53229 F8B208 0A asl a ; x 103230 F8B209 85 A0 sta cyear3231 F8B20B 0A asl a ; x 403232 F8B20C 0A asl a3233 F8B20D 65 A0 adc cyear ; x 503234 F8B20F 0A asl a ; x 1003235 F8B210 65 A4 adc ty1003236 F8B212 3A dec a3237 F8B213 85 A0 sta cyear3238 F8B215 ACC083239 F8B215 E2 20 sep #PMFLAG3240 .LONGA off3241 .MNLIST3242 F8B217 60 rts32433244 ; fast unsigned division 16 bit3245 ;3246 ; entry: C = 16 bit dividend3247 ; dvsor = 16 bit divisor3248 ;3249 ; exit: C = 16 bit quotient3250 ; Y = dvsor = 16 bit remainder3251 ;3252 ; use: all3253 ;3254 ; note: no check for null divisor3255 ; must be called with cpu in 16 bit mode3256 ;3257 ;-----3258 F8B218 fudiv:3259 ;-----3260 .LONGA on3261 .LONGI on32623263 F8B218 A2 01 00 ldx #1 ; bit counter3264 F8B21B A8 tay ; Y=dividend3265 F8B21C 64 A8 stz quot ; init quotient3266 F8B21E A5 A6 lda dvsor ; C=divisor3267 F8B220 0A ?10: asl a ; shift divisor: get leftmost bit3268 F8B221 B0 06 bcs ?20 ; go to division3269 F8B223 E8 inx3270 F8B224 E0 11 00 cpx #17 ; test all divisor bit's3271 F8B227 D0 F7 bne ?103272 F8B229 6A ?20: ror a ; put shifted-out bit back3273 F8B22A 85 A6 sta dvsor3274 F8B22C 98 ?30: tya ; get dividend3275 F8B22D 38 sec3276 F8B22E E5 A6 sbc dvsor3277 F8B230 90 01 bcc ?40 ; can't subctract, retain old dividend3278 F8B232 A8 tay ; Y=new dividend3279 F8B233 26 A8 ?40: rol quot ; shift carry into quotient (1 if division)3280 F8B235 46 A6 lsr dvsor ; shift right divisor for next subtract3281 F8B237 CA dexTue Jul 17 11:00:17 2018 Page 133282 F8B238 D0 F2 bne ?303283 F8B23A 84 A6 sty dvsor ; remainder3284 F8B23C A5 A8 lda quot ; C=quotient3285 F8B23E 60 rts3286 F8B23F3287 ;---------------------------------------------------------------------------3288 ; tables3289 ;---------------------------------------------------------------------------32903291 ; rtc function's jump table3292 F8B23F JMPTBL:3293 F8B23F A3AF 7EB0 E2AF .DW rtcsett, rtcsetd, rtcgett, rtcgetd22B032943295 ; month's table3296 F8B247 MDAYTBL:3297 F8B247 1F 1C 1F 1E 1F .DB 31,28,31,30,31,30,31,31,30,31,30,311E 1F 1F 1E 1F1E 1FLines Assembled : 3237 Errors : 0