Mercurial > hg > Members > kono > nitros9-code

view level1/modules/term_mc6850.asm @ 3277:33d539c123cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
d64: Add mb.ddisk script for making Dragon boot floppy At least it works in XRoar when running off a 80d floppy and preparing a new 40d boot floppy in the second drive. The "format" must be run manually for now since there is not enough memory to run it from inside the script...
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 07 Mar 2020 23:15:05 +0100
parents 0116eacf444a
children
line wrap: on
line source

********************************************************************
* Term - mc6850 Device Descriptor
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* ------------------------------------------------------------------

         nam   Term
         ttl   mc6850 Device Descriptor

* Disassembled 98/08/23 21:16:50 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   defsfile
         endc

tylg     set   Devic+Objct
atrv     set   ReEnt+rev
rev      set   $00

         mod   eom,name,tylg,atrv,mgrnam,drvnam

         fcb   UPDAT.     mode byte
         fcb   HW.Page    extended controller address

         IFNE  mc09
         IFDEF HwBASE     from makefile
         fdb   HwBASE
         ELSE
         fdb   VDUSTA     virtual UART physical controller address
         ENDIF
         ELSE
         fdb   $FF68      physical controller address
         ENDC

         fcb   initsize-*-1 initialization table size
         fcb   DT.SCF     IT.DVC device type:0=scf,1=rbf,2=pipe,3=scf
         fcb   $00        IT.UPC case:0=up&lower,1=upper only
         fcb   $01        IT.BSO backspace:0=bsp,1=bsp then sp & bsp
         fcb   $00        IT.DLO delete:0=bsp over line,1=return
         fcb   $01        IT.EKO echo:0=no echo
         fcb   $01        IT.ALF auto line feed:0=off
         fcb   $00        IT.NUL end of line null count
         fcb   $01        IT.PAU pause:0=no end of page pause
* IT.PAG and IT.ROW are set to 25 to match the Multicomp6809 hardware
* terminal. Applications (eg scred) inspect this value and need it to be
* correct. In the case of a "glass teletype" (aka terminal emulator)
* attached to a serial port, it should be set to 25x80 in order for programs
* like scred to work correctly.
         fcb   25         IT.PAG lines per page
         fcb   C$BSP      IT.BSP backspace character
         fcb   C$DEL      IT.DEL delete line character
         fcb   C$CR       IT.EOR end of record character
         fcb   C$EOF      IT.EOF end of file character
         fcb   C$RPRT     IT.RPR reprint line character
         fcb   C$RPET     IT.DUP duplicate last line character
         fcb   C$PAUS     IT.PSC pause character
         fcb   C$INTR     IT.INT interrupt character
         fcb   C$QUIT     IT.QUT quit character
         fcb   C$BSP      IT.BSE backspace echo character
         fcb   C$BELL     IT.OVF line overflow character (bell)
         fcb   PARNONE    IT.PAR parity
         fcb   STOP1+WORD8+B9600 IT.BAU stop bits/word size/baud rate
         fdb   name       IT.D2P copy of descriptor name address
         fcb   C$XON      IT.XON acia xon char
         fcb   C$XOFF     IT.XOFF acia xoff char
         fcb   80         IT.COL (szx) number of columns for display
         fcb   25         IT.ROW (szy) number of rows for display
         fcb   $00        IT.XTYP 0 => NOT extended type
initsize equ   *

         IFDEF TNum       from makefile
         IFEQ  TNum
name     fcs   /T0/
         ENDIF
         IFEQ  TNum-1
name     fcs   /T1/
         ENDIF
         ELSE
name     fcs   /Term/
         ENDIF            match IFDEF TNum

mgrnam   fcs   /SCF/
drvnam   fcs   /mc6850/

         emod
eom      equ   *
         end