Blame | Last modification | View Log | Download | RSS feed
Fri Jul 29 18:05:17 2016 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F9\acia.asmOutput Filename : obj\F9\acia.objListing Has Been Relocated2497 .LIST on24982499 F8FF6A .INCLUDE inc\dirp00.inc2500 ;----------------------------------------------------------2501 ; DIRP00.ASM2502 ; PROGETTO: B16012503 ;2504 ; Variabili in Direct Page $002505 ;----------------------------------------------------------25062507 ; sezione COMMON -- questo permette di includere il file in piu' file25082509 .LIST on25102511 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0025122513 000000 .ABSOLUTE ;; inizia sempre da $002514 000000 .ORG 0x002515 0000002516 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2517 000002 0000 .DW2518 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2519 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2520 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2521 ; <6>: flag warm reset2522 00000D 00 RTCFlag .DB25232524 00000E atadev .DS 2 ; flag device on ata bus #0 & #12525 ; <7>: device ready2526 ; <6>: compact flash device (C.F.)2527 ; <5>: device identification ok2528 ; <4>: MBR loaded2529 ; <3>: valid signature in MBR2530 ; <2>: first partition found&active2531 ; <1>:2532 ; <0>: valid partition flag25332534 000010 atasec .DS 8 ; max. user sectors on ata device2535 000018 atambr .DS 8 ; data for first partition found in mbr2536 ; first 3 bytes for start sector of partition2537 ; last byte for partition type2538 000020 ataprt .DS 8 ; total sec's of first partition25392540 000028 00 fdcdrv .DB ; phisycal drive status (drive #0)2541 ; <7>: disk format established in bit 0&12542 ; <6>: double step seek doneFri Jul 29 18:05:17 2016 Page 22543 ; <5>: trust format bit's (set after ok r/w)2544 ; <4>: write protect bit (if disk in drive)2545 ; <3>: don't care2546 ; <2>: don't care2547 ; <1>: HD disk if set else DD disk2548 ; <0>: CBM format if set else IBM format25492550 000029 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2551 ; <7>: disk format established in bit 0&12552 ; <6>: change disk simulation (after format)2553 ; <5>: don't care2554 ; <4>: write protect bit (under sw control)2555 ; <3>: don't care2556 ; <2>: don't care2557 ; <1>: HD disk if set else DD disk2558 ; <0>: CBM format if set else IBM format25592560 00002A 00 fdcctl .DB ; fdc controller status2561 ; <7>: drive is attached2562 ; <6>: drive need recalibration (restore)2563 ; <5>: FDC controller ok2564 ; <4>: motor on2565 ; <3>: dma is active2566 ; <2>: dma chip ok (post routine)2567 ; <1>: clock rate (1=HD,0=DD)2568 ; <0>: disk ready25692570 00002B 00 fdctrk .DB ; fd: current seek track2571 00002C 00 fdcerr .DB ; fd: last error code2572 00002D 00 ataerr .DB ; ata: last error code2573 00002E 00 ataxer .DB ; ata: last extended error code25742575 00002F 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)25762577 000030 0000 MemTop .DW ; top memoria RAM2578 000032 00 .DB ; banco top mem25792580 000033 00 DflTxtIn .DB ; device di default text input2581 000034 00 DflTxtOut .DB ; device di default text output25822583 000035 COPPtr LP ; long pointer for COP decoding2584 000038 00 COPIdx .DB ; COP signature/index25852586 000039 00 BiosEnt .DB ; flag accesso a bios setup25872588 ; variabili utilizzate da ACIA2589 00003A spwrk .DS $3025902591 ; bios mem2592 00006A 0000 nsize .DW ; dimensione blocco da allocare2593 ;bsize .DW ; dimensione vera blocco free2594 00006C 0000 splitsz .DW ; dimensione blocco splittato2595 00006E 0000 bfree .DW ; puntatore blocco free2596 000070 0000 hdrptr .DW ; puntatore header heap25972598 000072 0000 pbrklv .DW ; current break level of current process2599 000074 0000 pbrkmin .DW ; minimum breal level of current processFri Jul 29 18:05:17 2016 Page 32600 000076 0000 pbrkmax .DW ; maximum breal level of current process2601 0000782602 ; bios temp. work area2603 000078 bwrktmp .DS $2826042605 0000A0 00 .DB ; dummy2606 0000A126072608 0000A0 .RELATIVE26092610 .ENDS26112612 [01] .IFDEF _ACIA_INC_2613 F8FF6A .INCLUDE INC\SP.INC2614 ;;2615 ;; Copyright (c) 2016 Marco Granati <mg@unet.bz>2616 ;;2617 ;; Permission to use, copy, modify, and distribute this software for any2618 ;; purpose with or without fee is hereby granted, provided that the above2619 ;; copyright notice and this permission notice appear in all copies.2620 ;;2621 ;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES2622 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF2623 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR2624 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES2625 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN2626 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF2627 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.2628 ;;26292630 ;; name: sp.inc2631 ;; rev.: 2016/07/282632 ;; bios C816 version v1.026332634 .LIST on26352636 000011 SPXON .EQU $11 ; XON seriale per handshake software2637 000013 SPXOFF .EQU $13 ; XOFF seriale per handshake software26382639 ;NGUARD1 .EQU $800 ; numero bytes di guardia buffer RX XON/XOFF2640 ;NGUARD2 .EQU $400 ; numero bytes di guardia buffer RX handshake2641 000040 NGUARD1 .EQU $40 ; numero bytes di guardia buffer RX XON/XOFF2642 000040 NGUARD2 .EQU $40 ; numero bytes di guardia buffer RX handshake2643 ;NGUARD3 .EQU $0400 ; minimo posto in coda RX per cancellare pausa remota2644 000020 NGUARD3 .EQU $202645 000040 NGUARD4 .EQU $4026462647 ;---------------------------------------------------------------------------2648 ; direct page var's for serial ports handling2649 ;---------------------------------------------------------------------------26502651 DPSP: .SECTION page0, common, ref_only, offset spwrk ;ACIA D.P.26522653 00003A _DPSP_START .DS 026542655 ; WARNING: not change order and type of the following variables2656Fri Jul 29 18:05:17 2016 Page 42657 ; acia 1 var's2658 00003A 00 spisr .DB ; interrupt status register2659 00003B 00 spcsr .DB ; control status register2660 00003C 00 spfr .DB ; format register2661 00003D 00 spout .DB ; XON/XOFF send flag26622663 ; acia 2 var's2664 00003E 00 spisr2 .DB ; interrupt status register2665 00003F 00 spcsr2 .DB ; control status register2666 000040 00 spfr2 .DB ; format register2667 000041 00 spout2 .DB ; XON/XOFF send flag26682669 ; serial port's mode & status2670 000042 00 spmode .DB ; <7>: 0=no handshake, 1=handshake2671 ; <6>: 0=software/1=hardware handshake2672 ; <5>: not used2673 ; <4>: baud rate: 0=19200, 1=384002674 ; <3>: 0=odd parity, 1=even parity2675 ; <2>: 0=no parity, 1=parity as specified2676 ; by bit <3>2677 ; <1>: interface type: 0=RS232, 1=RS4852678 ; <0>: RS232: uplink flow control (RTS/DCD)2679 ; RS485: 120 ohm termination on2680 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02681 0000432682 000043 00 spstat .DB ; serial port status2683 ; <7>: rx error (data discarded)2684 ; <6>: rx buffer overflow2685 ; <5>: remote disconnession (DSR line = 1)2686 ; <4>: output buffer is full2687 ; <3>: not used2688 ; <2>: framing error2689 ; <1>: parity error2690 ; <0>: overrun error26912692 000044 00 sppause .DB ; local/remote pause flag's2693 ; <7>: remote pause (sent XOFF/XON or RTS=1/0)2694 ; <6>: local pause (rx XOFF/XON or CTS=0/1)26952696 000045 00 sptmp .DB ; temp. byte used while get data26972698 ; serial port's mode & status2699 000046 00 spmode2 .DB ; <7>: 0=no handshake, 1=handshake2700 ; <6>: 0=software/1=hardware handshake2701 ; <5>: not used2702 ; <4>: baud rate: 0=19200, 1=384002703 ; <3>: 0=odd parity, 1=even parity2704 ; <2>: 0=no parity, 1=parity as specified2705 ; by bit <3>2706 ; <1>: interface type: 0=RS232, 1=RS4852707 ; <0>: RS232: uplink flow control (RTS/DCD)2708 ; RS485: 120 ohm termination on2709 ; if bit 7=1 and bit 1=1, bit 6 is forced to 02710 0000472711 000047 00 spstat2 .DB ; serial port status2712 ; <7>: rx error (data discarded)2713 ; <6>: rx buffer overflowFri Jul 29 18:05:17 2016 Page 52714 ; <5>: remote disconnession (DSR line = 1)2715 ; <4>: output buffer is full2716 ; <3>: not used2717 ; <2>: framing error2718 ; <1>: parity error2719 ; <0>: overrun error27202721 000048 00 sppause2 .DB ; local/remote pause flag's2722 ; <7>: remote pause (sent XOFF/XON or RTS=1/0)2723 ; <6>: local pause (rx XOFF/XON or CTS=0/1)27242725 000049 00 sppost .DB ; after POST must hold $C027262727 00004A 0000 ibuftail .DW ; pointer to tail of input buffer2728 00004C 0000 ibufhead .DW ; pointer to head of input buffer2729 00004E 0000 ibuftail2 .DW2730 000050 0000 ibufhead2 .DW27312732 000052 0000 obuftail .DW ; pointer to tail of output buffer2733 000054 0000 obufhead .DW ; pointer to head of output buffer2734 000056 0000 obuftail2 .DW2735 000058 0000 obufhead2 .DW27362737 00005A 0000 ibufcnt .DW ; count of bytes in input buffer2738 00005C 0000 obufcnt .DW ; count of bytes in output buffer2739 00005E 0000 ibufcnt2 .DW2740 000060 0000 obufcnt2 .DW27412742 000062 0000 icntmin .DW ; min. count for clear remote pause2743 000064 0000 icntmax .DW ; max. count for set remote pause2744 000066 0000 icntmin2 .DW2745 000068 0000 icntmax2 .DW27462747 00006A _DPSP_END .DS 02748 000030 DPSPSIZ .EQU (_DPSP_END - _DPSP_START)274927502751 .ENDS27522753 000043 ACIArxe_1 .EQU spstat2754 000047 ACIArxe_2 .EQU spstat22755 000042 ACIAhsk_1 .EQU spmode2756 000046 ACIAhsk_2 .EQU spmode22757 000044 ACIAPause_1 .EQU sppause2758 000048 ACIAPause_2 .EQU sppause22759 00003B ACIAcsr_1 .EQU spcsr2760 00003F ACIAcsr_2 .EQU spcsr22761 00003C ACIAfr_1 .EQU spfr2762 000040 ACIAfr_2 .EQU spfr22763 000044 ACIAOut_1 .EQU sppause2764 000048 ACIAOut_2 .EQU sppause22765 00005A ACIAICnt_1 .EQU ibufcnt2766 00005E ACIAICnt_2 .EQU ibufcnt22767 00004C ACIAIHead_1 .EQU ibufhead2768 000050 ACIAIHead_2 .EQU ibufhead22769 00004A ACIAITail_1 .EQU ibuftail2770 00004E ACIAITail_2 .EQU ibuftail2Fri Jul 29 18:05:17 2016 Page 62771 00005C ACIAOCnt_1 .EQU obufcnt2772 000060 ACIAOCnt_2 .EQU obufcnt22773 000054 ACIAOHead_1 .EQU obufhead2774 000058 ACIAOHead_2 .EQU obufhead22775 000052 ACIAOTail_1 .EQU obuftail2776 000056 ACIAOTail_2 .EQU obuftail227772778 000100 ACIAOBUFLEN .EQU SOBUFSIZ2779 000100 ACIAIBUFLEN .EQU SIBUFSIZ2780 010000 ACIAOUTBUF1 .EQU SPOUTBUFF2781 012000 ACIAOUTBUF2 .EQU SPOUTBUFF22782 050000 ACIAINBUF1 .EQU SPINBUFF2783 054000 ACIAINBUF2 .EQU SPINBUFF227842785 000045 ACIATmp .EQU sptmp2786Lines Assembled : 3106 Errors : 0