Mercurial > hg > Members > kono > nitros9-code

view level2/modules/term_win40.asm @ 2966:e84a638d1c16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cohr: Support both COVDG control codes and COHR Esc codes $0B is the only control character that is used by both protocols. I decided to keep the the COVDG command as this protocol is more common. So far I've been able to find only 3 OS9 applications that are using the CoHR drivers, all by Dragon Data: Stylograph, Dynacalc and RMS. Only RMS seems to use the $0B (Home) control code, but it is easy to patch the RMS.trm file to replace $0B with the $01 CoVDG Home command. So this seems like a reasonable sacrifice.
author Ken H. <dragon.atv@gmail.com>
date Mon, 10 Feb 2014 10:10:40 +0200
parents b8c7b7fbf3c9
children 2071c1c4b6c8
line wrap: on
line source

********************************************************************
* Term - Window descriptor
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* ------------------------------------------------------------------

         nam   Term
         ttl   Window descriptor

* Disassembled 98/08/23 22:38:05 by Disasm v1.6 (C) 1988 by RML

         ifp1  
         use   defsfile
         use   cocovtio.d
         endc  

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

* Window descriptor definitions
szx      set   40         number of columns for display
szy      set   24         number for rows for display
wnum     set   0          window number
sty      set   1          window type
cpx      set   0          x cursor position
cpy      set   0          y cursor position
prn1     set   Black.     foreground color
prn2     set   Green.     background color
prn3     set   Green.     border color

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

         fcb   UPDAT.     mode byte
         fcb   HW.Page    extended controller address
         fdb   A.TermW    physical controller address
         fcb   initsize-*-1 initilization table size
         fcb   $00        device type:0=scf,1=rbf,2=pipe,3=scf
         fcb   $00        case:0=up&lower,1=upper only
         fcb   $01        backspace:0=bsp,1=bsp then sp & bsp
         fcb   $00        delete:0=bsp over line,1=return
         fcb   $01        echo:0=no echo
         fcb   $01        auto line feed:0=off
         fcb   $00        end of line null count
         fcb   $00        pause:0=no end of page pause
         fcb   24         lines per page
         fcb   C$BSP      backspace character
         fcb   C$DEL      delete line character
         fcb   C$CR       end of record character
         fcb   C$EOF      end of file character
         fcb   C$RARR     reprint line character
         fcb   C$SHRARR   duplicate last line character
         fcb   C$PAUS     pause character
         fcb   C$INTR     interrupt character
         fcb   C$QUIT     quit character
         fcb   C$BSP      backspace echo character
         fcb   C$BELL     line overflow character (bell)
         fcb   $80        init value for dev ctl reg
         fcb   $00        baud rate
         fdb   name       copy of descriptor name address
         fcb   $00        acia xon char
         fcb   $00        acia xoff char
         fcb   szx        (szx) number of columns for display
         fcb   szy        (szy) number of rows for display
         fcb   wnum       window number
         fcb   $01        data in rest of descriptor valid
         fcb   sty        (sty) window type
         fcb   cpx        (cpx) x cursor position
         fcb   cpy        (cpy) y cursor position
         fcb   prn1       (prn1) foreground color
         fcb   prn2       (prn2) background color
         fcb   prn3       (prn3) border color
initsize equ   *

name     fcs   /Term/
mgrnam   fcs   /SCF/
drvnam   fcs   /VTIO/

         emod  
eom      equ   *
         end