|
2145
|
1 ********************************************************************
|
|
|
2 * W13 - Window descriptor
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Edt/Rev YYYY/MM/DD Modified by
|
|
|
7 * Comment
|
|
|
8 * ------------------------------------------------------------------
|
|
|
9
|
|
|
10 nam W13
|
|
|
11 ttl Window descriptor
|
|
|
12
|
|
|
13 * Disassembled 98/08/23 22:38:05 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
2624
|
17 use cocovtio.d
|
|
2145
|
18 endc
|
|
|
19
|
|
|
20 tylg set Devic+Objct
|
|
|
21 atrv set ReEnt+rev
|
|
|
22 rev set $00
|
|
|
23
|
|
|
24 * Window descriptor definitions
|
|
|
25 szx set 80 number of columns for display
|
|
|
26 szy set 24 number for rows for display
|
|
|
27 sty set 2 window type
|
|
|
28 cpx set 0 x cursor position
|
|
|
29 cpy set 0 y cursor position
|
|
|
30 prn1 set Blue. foreground color
|
|
|
31 prn2 set White. background color
|
|
|
32 prn3 set Yellow. border color
|
|
|
33
|
|
|
34 mod eom,name,tylg,atrv,mgrnam,drvnam
|
|
|
35
|
|
|
36 fcb READ.+WRITE. mode byte
|
|
|
37 fcb HW.Page extended controller address
|
|
|
38 fdb A.W13 physical controller address
|
|
|
39 fcb initsize-*-1 initilization table size
|
|
|
40 fcb $00 device type:0=scf,1=rbf,2=pipe,3=scf
|
|
|
41 fcb $00 case:0=up&lower,1=upper only
|
|
|
42 fcb $01 backspace:0=bsp,1=bsp then sp & bsp
|
|
|
43 fcb $00 delete:0=bsp over line,1=return
|
|
|
44 fcb $01 echo:0=no echo
|
|
|
45 fcb $01 auto line feed:0=off
|
|
|
46 fcb $00 end of line null count
|
|
|
47 fcb $00 pause:0=no end of page pause
|
|
|
48 fcb 24 lines per page
|
|
|
49 fcb C$BSP backspace character
|
|
|
50 fcb C$DEL delete line character
|
|
|
51 fcb C$CR end of record character
|
|
|
52 fcb C$EOF end of file character
|
|
|
53 fcb C$RARR reprint line character
|
|
|
54 fcb C$SHRARR duplicate last line character
|
|
|
55 fcb C$PAUS pause character
|
|
|
56 fcb C$INTR interrupt character
|
|
|
57 fcb C$QUIT quit character
|
|
|
58 fcb C$BSP backspace echo character
|
|
|
59 fcb C$BELL line overflow character (bell)
|
|
|
60 fcb $80 init value for dev ctl reg
|
|
|
61 fcb $00 baud rate
|
|
|
62 fdb name copy of descriptor name address
|
|
|
63 fcb $00 acia xon char
|
|
|
64 fcb $00 acia xoff char
|
|
|
65 fcb szx (szx) number of columns for display
|
|
|
66 fcb szy (szy) number of rows for display
|
|
2165
|
67 fcb 13 window number
|
|
2145
|
68 fcb $01 data in rest of descriptor valid
|
|
|
69 fcb sty (sty) window type
|
|
|
70 fcb cpx (cpx) x cursor position
|
|
|
71 fcb cpy (cpy) y cursor position
|
|
|
72 fcb prn1 (prn1) foreground color
|
|
|
73 fcb prn2 (prn2) background color
|
|
|
74 fcb prn3 (prn3) border color
|
|
|
75 initsize equ *
|
|
|
76
|
|
2165
|
77 name fcs /W13/
|
|
2145
|
78 mgrnam fcs /SCF/
|
|
|
79 drvnam fcs /VTIO/
|
|
|
80
|
|
|
81 emod
|
|
|
82 eom equ *
|
|
|
83 end
|
|
|
84
|
