Mercurial > hg > Members > kono > nitros9-code
annotate lib/alib/windefs.as @ 3054:22ddd48b4ec2
level1 krn: Fix scheduler bug that only affected 6309
The original 6809 binary was correct, but it was disassembled
and interpreted wrongly, so that reassembly went wrong on 6309.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sun, 25 Jan 2015 22:36:02 +0100 |
| parents | 03f26e88b809 |
| children |
| rev | line source |
|---|---|
| 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 | |
|
2782
aaba193af04f
Updated code to use lwasm/lwlink
Boisy Pitre <boisy.pitre@nuance.com>
parents:
2474
diff
changeset
|
12 section .text |
| 2474 | 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 |