Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/term_wprs.asm @ 3255:d0e8324af298

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
level3: nitro module: Use KrnBlk instead of hardcoded $3F Helps porting to non-CoCo3 platforms.
author Tormod Volden <debian.tormod@gmail.com>
date Wed, 29 Aug 2018 08:44:37 +0200
parents a188cc456fa1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3203
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
1 ********************************************************************
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
2 * Term - VTIO VDG Device Descriptor
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
3 *
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
4 * $Id$
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
5 *
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
7 * Comment
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
8 * ------------------------------------------------------------------
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
9
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
10 nam Term
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
11 ttl VTIO VDG Device Descriptor
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
12
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
13 ifp1
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
14 use defsfile
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
15 use cocovtio.d
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
16 endc
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
17
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
18 tylg set Devic+Objct
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
19 atrv set ReEnt+rev
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
20 rev set $00
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
21
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
22 * Window descriptor definitions
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
23 szx set 80 number of columns for display
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
24 szy set 25 number for rows for display
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
25 IFGT Level-1
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
26 wnum set 0 window number
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
27 sty set 1 window type
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
28 cpx set 0 x cursor position
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
29 cpy set 0 y cursor position
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
30 ENDC
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
31
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
32 mod eom,name,tylg,atrv,mgrnam,drvnam
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
33
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
34 fcb UPDAT. mode byte
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
35 fcb HW.Page extended controller address
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
36 fdb $FF76 physical controller address
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
37 fcb initsize-*-1 initilization table size
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
38 fcb DT.SCF device type:0=scf,1=rbf,2=pipe,3=scf
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
39 fcb $00 case:0=up&lower,1=upper only
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
40 fcb $01 backspace:0=bsp,1=bsp then sp & bsp
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
41 fcb $00 delete:0=bsp over line,1=return
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
42 fcb $01 echo:0=no echo
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
43 fcb $01 auto line feed:0=off
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
44 fcb $00 end of line null count
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
45 fcb $01 pause:0=no end of page pause
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
46 fcb szy lines per page
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
47 fcb C$BSP backspace character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
48 fcb C$DEL delete line character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
49 fcb C$CR end of record character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
50 fcb C$EOF end of file character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
51 fcb C$RARR reprint line character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
52 fcb C$SHRARR duplicate last line character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
53 fcb C$PAUS pause character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
54 fcb C$INTR interrupt character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
55 fcb C$QUIT quit character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
56 fcb C$BSP backspace echo character
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
57 fcb C$BELL line overflow character (bell)
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
58 fcb ModCoWP init value for dev ctl reg
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
59 fcb $00 baud rate
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
60 fdb name copy of descriptor name address
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
61 fcb $00 acia xon char
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
62 fcb $00 acia xoff char
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
63 fcb szx (szx) number of columns for display
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
64 fcb szy (szy) number of rows for display
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
65 initsize equ *
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
66
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
67 name fcs /Term/
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
68 mgrnam fcs /SCF/
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
69 drvnam fcs /VTIO/
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
70
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
71 emod
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
72 eom equ *
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
73 end
a188cc456fa1 Adding a co-module for a stock WordPak RS with FHL O-PAK support.
lfantoniosi
parents:
diff changeset
74