|
2474
|
1 ************************************
|
|
|
2 *
|
|
|
3 * This file contains the names for the various window
|
|
|
4 * commands avail for CoCo3 Level 2 OS9.
|
|
|
5
|
|
|
6 * History: File created 88/04/24 - Bob van der Poel
|
|
|
7
|
|
|
8 * Note that all these constants begin with a "W"
|
|
|
9
|
|
|
10 ttl Window Definitions
|
|
|
11
|
|
|
12 psect Windefs,0,0,0,0,0
|
|
|
13
|
|
|
14 WBColor: equ $1b33 background color
|
|
|
15 WBoldSw: equ $1b3d bold switch
|
|
|
16 WBorder: equ $1b34 border color
|
|
|
17 WCWArea: equ $1b25 change working area
|
|
|
18 WDefColr: equ $1b30 set default color
|
|
|
19 WDfnGPBuf: equ $1b28 define get/put buffer
|
|
|
20 WDWEnd: equ $1b24 device window end
|
|
|
21 WDWProtSw: equ $1b36 device window protect
|
|
|
22 WDWSet: equ $1b20 device window set
|
|
|
23 WFColor: equ $1b32 foreground color
|
|
|
24 WFont: equ $1b3a select font
|
|
|
25 WGCSet: equ $1b39 graphics cursor set
|
|
|
26 WGetBlk: equ $1b2c get block
|
|
|
27 WGPLoad: equ $1b2b get/put buffer load
|
|
|
28 WKilBuf: equ $1b2a kill get/put buffer
|
|
|
29 WLSet: equ $1b2f logic set
|
|
|
30 WOWEnd: equ $1b23 overlay window end
|
|
|
31 WOWSet: equ $1b22 overlay window set
|
|
|
32 WPalette: equ $1b31 change palette
|
|
|
33 WPropSw: equ $1b3f proportional switch
|
|
|
34 WPSet: equ $1b2e Pattern set
|
|
|
35 WPutBlk: equ $1b2d put block
|
|
|
36 WScaleSw: equ $1b35 scale switch
|
|
|
37 WSelect: equ $1b21 select window
|
|
|
38 WTCharSw: equ $1b3c transparent char switch
|
|
|
39
|
|
|
40 * drawing commands
|
|
|
41
|
|
|
42 WArc3P: equ $1b52 draw arc
|
|
|
43 WBar: equ $1b4a draw bar
|
|
|
44 WRBar: equ $1b4b draw bar relative
|
|
|
45 WBox: equ $1b48 draw box
|
|
|
46 WRBox: equ $1b49 draw box relative
|
|
|
47 WCircle: equ $1b50 draw circle
|
|
|
48 WEllipse: equ $1b51 draw ellipse
|
|
|
49 WFFill: equ $1b4f flood fill
|
|
|
50 WLine: equ $1b44 draw line
|
|
|
51 WRLine: equ $1b45 draw line relative
|
|
|
52 WLineM: equ $1b46 draw line and move
|
|
|
53 WRLineM: equ $1b47 draw line relative and move
|
|
|
54 WPoint: equ $1b42 set point
|
|
|
55 WRPoint: equ $1b43 set point relative
|
|
|
56 WPutGC: equ $1b4e put graphics cursor
|
|
|
57 WSetDPtr: equ $1b40 set draw pointer
|
|
|
58 WRSetDPtr: equ $1b41 set draw pointer relative
|
|
|
59
|
|
|
60 * Text commands
|
|
|
61
|
|
|
62 * these are one byte codes...
|
|
|
63
|
|
|
64 WHomeCur: equ $01 home cursor
|
|
|
65 WPosCur: equ $02 position cursor
|
|
|
66 WErasLn: equ $03 erase line
|
|
|
67 WErasEOL: equ $04 erase to end of line
|
|
|
68 WErasEOS: equ $0b erase to end of screen
|
|
|
69 WErase: equ $0c erase screen and home cursor
|
|
|
70 WCurR: equ $06 move cursor right one pos
|
|
|
71 WCurL: equ $08 move cursor left one pos
|
|
|
72 WCurUp: equ $09 move cursor up one line
|
|
|
73 WCurDn: equ $0a move cursor down one line
|
|
|
74 WBell: equ $07 rings terminal bell
|
|
|
75 WCr: equ $0d sends a carriage return
|
|
|
76
|
|
|
77 * two byte codes...
|
|
|
78
|
|
|
79 WCurOff: equ $0520 turn off cursor
|
|
|
80 WCurOn: equ $0521 turn on cursor
|
|
|
81 WRvOn: equ $1f20 reverse video on
|
|
|
82 WRvOff: equ $1f21 reverse video off
|
|
|
83 WUlOn: equ $1f22 underlining on
|
|
|
84 WUlOff: equ $1f23 underlineing off
|
|
|
85 WBlnkOn: equ $1f24 blinking on
|
|
|
86 WBlnkOff: equ $1f25 blinking off
|
|
|
87 WInsLn: equ $1f30 insert line at cursor
|
|
|
88 WDelLn: equ $1f31 delete current line
|
|
|
89
|
|
|
90
|
|
|
91 endsect
|
|
|
92
|
|
|
93
|
