Mercurial > hg > Members > kono > nitros9-code
view lib/alib/windefs.a @ 2772:0a3f4d8ea6d5
Found ENDC in wrong location in dwread.asm and dwwrite.asm. Corrected.
Moved the native 6309 code in dwread.asm and dwwrite.asm into the H6309 labeled area and changed IFEQ H6309 to IFNE H6309. Also moved the 57600bps 6809 code to the default location. This change had been done in the old dwread.asm and dwwrite.asm files to make it easier to follow. Though these two files were overwritten from the HDBDOS project dwread.asm and dwwrite.asm files. So this conversion needed to be done again so it made the source easier to follow.
| author | drencor-xeen |
|---|---|
| date | Wed, 23 Jan 2013 12:36:55 -0600 |
| parents | 7d70b7e1cb21 |
| children | aaba193af04f |
line wrap: on
line source
************************************ * * This file contains the names for the various window * commands avail for CoCo3 Level 2 OS9. * History: File created 88/04/24 - Bob van der Poel * Note that all these constants begin with a "W" ttl Window Definitions psect Windefs,0,0,0,0,0 WBColor: equ $1b33 background color WBoldSw: equ $1b3d bold switch WBorder: equ $1b34 border color WCWArea: equ $1b25 change working area WDefColr: equ $1b30 set default color WDfnGPBuf: equ $1b28 define get/put buffer WDWEnd: equ $1b24 device window end WDWProtSw: equ $1b36 device window protect WDWSet: equ $1b20 device window set WFColor: equ $1b32 foreground color WFont: equ $1b3a select font WGCSet: equ $1b39 graphics cursor set WGetBlk: equ $1b2c get block WGPLoad: equ $1b2b get/put buffer load WKilBuf: equ $1b2a kill get/put buffer WLSet: equ $1b2f logic set WOWEnd: equ $1b23 overlay window end WOWSet: equ $1b22 overlay window set WPalette: equ $1b31 change palette WPropSw: equ $1b3f proportional switch WPSet: equ $1b2e Pattern set WPutBlk: equ $1b2d put block WScaleSw: equ $1b35 scale switch WSelect: equ $1b21 select window WTCharSw: equ $1b3c transparent char switch * drawing commands WArc3P: equ $1b52 draw arc WBar: equ $1b4a draw bar WRBar: equ $1b4b draw bar relative WBox: equ $1b48 draw box WRBox: equ $1b49 draw box relative WCircle: equ $1b50 draw circle WEllipse: equ $1b51 draw ellipse WFFill: equ $1b4f flood fill WLine: equ $1b44 draw line WRLine: equ $1b45 draw line relative WLineM: equ $1b46 draw line and move WRLineM: equ $1b47 draw line relative and move WPoint: equ $1b42 set point WRPoint: equ $1b43 set point relative WPutGC: equ $1b4e put graphics cursor WSetDPtr: equ $1b40 set draw pointer WRSetDPtr: equ $1b41 set draw pointer relative * Text commands * these are one byte codes... WHomeCur: equ $01 home cursor WPosCur: equ $02 position cursor WErasLn: equ $03 erase line WErasEOL: equ $04 erase to end of line WErasEOS: equ $0b erase to end of screen WErase: equ $0c erase screen and home cursor WCurR: equ $06 move cursor right one pos WCurL: equ $08 move cursor left one pos WCurUp: equ $09 move cursor up one line WCurDn: equ $0a move cursor down one line WBell: equ $07 rings terminal bell WCr: equ $0d sends a carriage return * two byte codes... WCurOff: equ $0520 turn off cursor WCurOn: equ $0521 turn on cursor WRvOn: equ $1f20 reverse video on WRvOff: equ $1f21 reverse video off WUlOn: equ $1f22 underlining on WUlOff: equ $1f23 underlineing off WBlnkOn: equ $1f24 blinking on WBlnkOff: equ $1f25 blinking off WInsLn: equ $1f30 insert line at cursor WDelLn: equ $1f31 delete current line endsect