(FILECREATED "24-Oct-85 18:17:51" {ERIS}<IRIS>KOTO>IRISCONSTANTS.;2
 48027  

      changes to:  (VARS IRISCONSTANTSCOMS)

      previous date: " 5-Sep-85 23:28:08" {ERIS}<IRIS>KOTO>IRISCONSTANTS.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT IRISCONSTANTSCOMS)

(RPAQQ IRISCONSTANTSCOMS
 [(COMS (* * gl.h)
				  (* Maximum X and Y screen coordinates)
				  (CONSTANTS (IRIS.XMAXSCREEN 1023)
					     (IRIS.YMAXSCREEN 767))
				  (* Various hardware/software limits)
				  (CONSTANTS (IRIS.ATTRIBSTACKDEPTH 10)
					     (IRIS.VPSTACKDEPTH 8)
					     (IRIS.MATRIXSTACKDEPTH 32)
					     (IRIS.STARTTAG -2)
					     (IRIS.ENDTAG -3))
				  (* Name for colors in color map loaded by IRIS.GINIT)
				  (CONSTANTS (IRIS.BACKGROUND 0)
					     (IRIS.BLACK 0)
					     (IRIS.RED 1)
					     (IRIS.GREEN 2)
					     (IRIS.YELLOW 3)
					     (IRIS.BLUE 4)
					     (IRIS.MAGENTA 5)
					     (IRIS.CYAN 6)
					     (IRIS.WHITE 7)))
			    (COMS (* * device.h)
				  (* Macros to test valuator and button numbers)
				  (MACROS IRIS.ISBUTTON IRIS.ISSCRBUTTON IRIS.ISVALUATOR IRIS.ISTIMER 
					  IRIS.ISDIAL IRIS.ISLPEN IRIS.ISLPENBUT)
				  (* Include file with device definitions)
				  (CONSTANTS (IRIS.NULLDEV 0)
					     (IRIS.BUTOFFSET 1)
					     (IRIS.SBTOFFSET 200)
					     (IRIS.VALOFFSET 256)
					     (IRIS.KEYOFFSET 512)
					     (IRIS.TIMOFFSET 515)
					     (IRIS.BUTCOUNT 144)
					     (IRIS.SBTCOUNT 16)
					     (IRIS.VALCOUNT 14)
					     (IRIS.TIMCOUNT 8))
				  (* Buttons)
				  (CONSTANTS (IRIS.BUT0 (IPLUS 0 IRIS.BUTOFFSET))
					     (IRIS.BUT1 (IPLUS 1 IRIS.BUTOFFSET))
					     (IRIS.BUT2 (IPLUS 2 IRIS.BUTOFFSET))
					     (IRIS.BUT3 (IPLUS 3 IRIS.BUTOFFSET))
					     (IRIS.BUT4 (IPLUS 4 IRIS.BUTOFFSET))
					     (IRIS.BUT5 (IPLUS 5 IRIS.BUTOFFSET))
					     (IRIS.BUT6 (IPLUS 6 IRIS.BUTOFFSET))
					     (IRIS.BUT7 (IPLUS 7 IRIS.BUTOFFSET))
					     (IRIS.BUT8 (IPLUS 8 IRIS.BUTOFFSET))
					     (IRIS.BUT9 (IPLUS 9 IRIS.BUTOFFSET))
					     (IRIS.BUT10 (IPLUS 10 IRIS.BUTOFFSET))
					     (IRIS.BUT11 (IPLUS 11 IRIS.BUTOFFSET))
					     (IRIS.BUT12 (IPLUS 12 IRIS.BUTOFFSET))
					     (IRIS.BUT13 (IPLUS 13 IRIS.BUTOFFSET))
					     (IRIS.BUT14 (IPLUS 14 IRIS.BUTOFFSET))
					     (IRIS.BUT15 (IPLUS 15 IRIS.BUTOFFSET))
					     (IRIS.BUT16 (IPLUS 16 IRIS.BUTOFFSET))
					     (IRIS.BUT17 (IPLUS 17 IRIS.BUTOFFSET))
					     (IRIS.BUT18 (IPLUS 18 IRIS.BUTOFFSET))
					     (IRIS.BUT19 (IPLUS 19 IRIS.BUTOFFSET))
					     (IRIS.BUT20 (IPLUS 20 IRIS.BUTOFFSET))
					     (IRIS.BUT21 (IPLUS 21 IRIS.BUTOFFSET))
					     (IRIS.BUT22 (IPLUS 22 IRIS.BUTOFFSET))
					     (IRIS.BUT23 (IPLUS 23 IRIS.BUTOFFSET))
					     (IRIS.BUT24 (IPLUS 24 IRIS.BUTOFFSET))
					     (IRIS.BUT25 (IPLUS 25 IRIS.BUTOFFSET))
					     (IRIS.BUT26 (IPLUS 26 IRIS.BUTOFFSET))
					     (IRIS.BUT27 (IPLUS 27 IRIS.BUTOFFSET))
					     (IRIS.BUT28 (IPLUS 28 IRIS.BUTOFFSET))
					     (IRIS.BUT29 (IPLUS 29 IRIS.BUTOFFSET))
					     (IRIS.BUT30 (IPLUS 30 IRIS.BUTOFFSET))
					     (IRIS.BUT31 (IPLUS 31 IRIS.BUTOFFSET))
					     (IRIS.BUT32 (IPLUS 32 IRIS.BUTOFFSET))
					     (IRIS.BUT33 (IPLUS 33 IRIS.BUTOFFSET))
					     (IRIS.BUT34 (IPLUS 34 IRIS.BUTOFFSET))
					     (IRIS.BUT35 (IPLUS 35 IRIS.BUTOFFSET))
					     (IRIS.BUT36 (IPLUS 36 IRIS.BUTOFFSET))
					     (IRIS.BUT37 (IPLUS 37 IRIS.BUTOFFSET))
					     (IRIS.BUT38 (IPLUS 38 IRIS.BUTOFFSET))
					     (IRIS.BUT39 (IPLUS 39 IRIS.BUTOFFSET))
					     (IRIS.BUT40 (IPLUS 40 IRIS.BUTOFFSET))
					     (IRIS.BUT41 (IPLUS 41 IRIS.BUTOFFSET))
					     (IRIS.BUT42 (IPLUS 42 IRIS.BUTOFFSET))
					     (IRIS.BUT43 (IPLUS 43 IRIS.BUTOFFSET))
					     (IRIS.BUT44 (IPLUS 44 IRIS.BUTOFFSET))
					     (IRIS.BUT45 (IPLUS 45 IRIS.BUTOFFSET))
					     (IRIS.BUT46 (IPLUS 46 IRIS.BUTOFFSET))
					     (IRIS.BUT47 (IPLUS 47 IRIS.BUTOFFSET))
					     (IRIS.BUT48 (IPLUS 48 IRIS.BUTOFFSET))
					     (IRIS.BUT49 (IPLUS 49 IRIS.BUTOFFSET))
					     (IRIS.BUT50 (IPLUS 50 IRIS.BUTOFFSET))
					     (IRIS.BUT51 (IPLUS 51 IRIS.BUTOFFSET))
					     (IRIS.BUT52 (IPLUS 52 IRIS.BUTOFFSET))
					     (IRIS.BUT53 (IPLUS 53 IRIS.BUTOFFSET))
					     (IRIS.BUT54 (IPLUS 54 IRIS.BUTOFFSET))
					     (IRIS.BUT55 (IPLUS 55 IRIS.BUTOFFSET))
					     (IRIS.BUT56 (IPLUS 56 IRIS.BUTOFFSET))
					     (IRIS.BUT57 (IPLUS 57 IRIS.BUTOFFSET))
					     (IRIS.BUT58 (IPLUS 58 IRIS.BUTOFFSET))
					     (IRIS.BUT59 (IPLUS 59 IRIS.BUTOFFSET))
					     (IRIS.BUT60 (IPLUS 60 IRIS.BUTOFFSET))
					     (IRIS.BUT61 (IPLUS 61 IRIS.BUTOFFSET))
					     (IRIS.BUT62 (IPLUS 62 IRIS.BUTOFFSET))
					     (IRIS.BUT63 (IPLUS 63 IRIS.BUTOFFSET))
					     (IRIS.BUT64 (IPLUS 64 IRIS.BUTOFFSET))
					     (IRIS.BUT65 (IPLUS 65 IRIS.BUTOFFSET))
					     (IRIS.BUT66 (IPLUS 66 IRIS.BUTOFFSET))
					     (IRIS.BUT67 (IPLUS 67 IRIS.BUTOFFSET))
					     (IRIS.BUT68 (IPLUS 68 IRIS.BUTOFFSET))
					     (IRIS.BUT69 (IPLUS 69 IRIS.BUTOFFSET))
					     (IRIS.BUT70 (IPLUS 70 IRIS.BUTOFFSET))
					     (IRIS.BUT71 (IPLUS 71 IRIS.BUTOFFSET))
					     (IRIS.BUT72 (IPLUS 72 IRIS.BUTOFFSET))
					     (IRIS.BUT73 (IPLUS 73 IRIS.BUTOFFSET))
					     (IRIS.BUT74 (IPLUS 74 IRIS.BUTOFFSET))
					     (IRIS.BUT75 (IPLUS 75 IRIS.BUTOFFSET))
					     (IRIS.BUT76 (IPLUS 76 IRIS.BUTOFFSET))
					     (IRIS.BUT77 (IPLUS 77 IRIS.BUTOFFSET))
					     (IRIS.BUT78 (IPLUS 78 IRIS.BUTOFFSET))
					     (IRIS.BUT79 (IPLUS 79 IRIS.BUTOFFSET))
					     (IRIS.BUT80 (IPLUS 80 IRIS.BUTOFFSET))
					     (IRIS.BUT81 (IPLUS 81 IRIS.BUTOFFSET))
					     (IRIS.BUT82 (IPLUS 82 IRIS.BUTOFFSET))
					     (IRIS.MAXKBDBUT IRIS.BUT82)
					     (IRIS.BUT100 (IPLUS 100 IRIS.BUTOFFSET))
					     (IRIS.BUT101 (IPLUS 101 IRIS.BUTOFFSET))
					     (IRIS.BUT102 (IPLUS 102 IRIS.BUTOFFSET))
					     (IRIS.BUT103 (IPLUS 103 IRIS.BUTOFFSET))
					     (IRIS.BUT104 (IPLUS 104 IRIS.BUTOFFSET))
					     (IRIS.BUT105 (IPLUS 105 IRIS.BUTOFFSET))
					     (IRIS.BUT106 (IPLUS 106 IRIS.BUTOFFSET))
					     (IRIS.BUT107 (IPLUS 107 IRIS.BUTOFFSET))
					     (IRIS.BUT108 (IPLUS 108 IRIS.BUTOFFSET))
					     (IRIS.BUT109 (IPLUS 109 IRIS.BUTOFFSET))
					     (IRIS.BUT110 (IPLUS 110 IRIS.BUTOFFSET))
					     (IRIS.BUT111 (IPLUS 111 IRIS.BUTOFFSET))
					     (IRIS.BUT112 (IPLUS 112 IRIS.BUTOFFSET))
					     (IRIS.BUT113 (IPLUS 113 IRIS.BUTOFFSET))
					     (IRIS.BUT114 (IPLUS 114 IRIS.BUTOFFSET))
					     (IRIS.BUT115 (IPLUS 115 IRIS.BUTOFFSET))
					     (IRIS.BUT116 (IPLUS 116 IRIS.BUTOFFSET))
					     (IRIS.BUT117 (IPLUS 117 IRIS.BUTOFFSET))
					     (IRIS.BUT118 (IPLUS 118 IRIS.BUTOFFSET))
					     (IRIS.BUT119 (IPLUS 119 IRIS.BUTOFFSET))
					     (IRIS.BUT120 (IPLUS 120 IRIS.BUTOFFSET))
					     (IRIS.BUT121 (IPLUS 121 IRIS.BUTOFFSET))
					     (IRIS.BUT122 (IPLUS 122 IRIS.BUTOFFSET))
					     (IRIS.BUT123 (IPLUS 123 IRIS.BUTOFFSET))
					     (IRIS.BUT124 (IPLUS 124 IRIS.BUTOFFSET))
					     (IRIS.BUT125 (IPLUS 125 IRIS.BUTOFFSET))
					     (IRIS.BUT126 (IPLUS 126 IRIS.BUTOFFSET))
					     (IRIS.BUT127 (IPLUS 127 IRIS.BUTOFFSET))
					     (IRIS.BUT128 (IPLUS 128 IRIS.BUTOFFSET))
					     (IRIS.BUT129 (IPLUS 129 IRIS.BUTOFFSET))
					     (IRIS.BUT130 (IPLUS 130 IRIS.BUTOFFSET))
					     (IRIS.BUT131 (IPLUS 131 IRIS.BUTOFFSET))
					     (IRIS.BUT132 (IPLUS 132 IRIS.BUTOFFSET))
					     (IRIS.BUT133 (IPLUS 133 IRIS.BUTOFFSET))
					     (IRIS.BUT134 (IPLUS 134 IRIS.BUTOFFSET))
					     (IRIS.BUT135 (IPLUS 135 IRIS.BUTOFFSET))
					     (IRIS.BUT136 (IPLUS 136 IRIS.BUTOFFSET))
					     (IRIS.BUT137 (IPLUS 137 IRIS.BUTOFFSET))
					     (IRIS.BUT138 (IPLUS 138 IRIS.BUTOFFSET))
					     (IRIS.BUT139 (IPLUS 139 IRIS.BUTOFFSET))
					     (IRIS.BUT140 (IPLUS 140 IRIS.BUTOFFSET))
					     (IRIS.BUT141 (IPLUS 141 IRIS.BUTOFFSET))
					     (IRIS.MOUSEBUTTON1 IRIS.BUT100)
					     (IRIS.MOUSEBUTTON2 IRIS.BUT101)
					     (IRIS.MOUSEBUTTON3 IRIS.BUT102)
					     (IRIS.MOUSE1 IRIS.BUT100)
					     (IRIS.MOUSE2 IRIS.BUT101)
					     (IRIS.MOUSE3 IRIS.BUT102)
					     (IRIS.LEFTMOUSEBUTTON IRIS.BUT102)
					     (IRIS.MIDDLEMOUSEBUTTON IRIS.BUT101)
					     (IRIS.RIGHTMOUSEBUTTON IRIS.BUT100)
					     (IRIS.LEFTMOUSE IRIS.BUT102)
					     (IRIS.MIDDLEMOUSE IRIS.BUT101)
					     (IRIS.RIGHTMOUSE IRIS.BUT100)
					     (IRIS.LPENBUT 104))
				  (* Switches)
				  (CONSTANTS (IRIS.SWBASE IRIS.BUT110)
					     (IRIS.SW0 (IPLUS IRIS.SWBASE 0))
					     (IRIS.SW1 (IPLUS IRIS.SWBASE 1))
					     (IRIS.SW2 (IPLUS IRIS.SWBASE 2))
					     (IRIS.SW3 (IPLUS IRIS.SWBASE 3))
					     (IRIS.SW4 (IPLUS IRIS.SWBASE 4))
					     (IRIS.SW5 (IPLUS IRIS.SWBASE 5))
					     (IRIS.SW6 (IPLUS IRIS.SWBASE 6))
					     (IRIS.SW7 (IPLUS IRIS.SWBASE 7))
					     (IRIS.SW8 (IPLUS IRIS.SWBASE 8))
					     (IRIS.SW9 (IPLUS IRIS.SWBASE 9))
					     (IRIS.SW10 (IPLUS IRIS.SWBASE 10))
					     (IRIS.SW11 (IPLUS IRIS.SWBASE 11))
					     (IRIS.SW12 (IPLUS IRIS.SWBASE 12))
					     (IRIS.SW13 (IPLUS IRIS.SWBASE 13))
					     (IRIS.SW14 (IPLUS IRIS.SWBASE 14))
					     (IRIS.SW15 (IPLUS IRIS.SWBASE 15))
					     (IRIS.SW16 (IPLUS IRIS.SWBASE 16))
					     (IRIS.SW17 (IPLUS IRIS.SWBASE 17))
					     (IRIS.SW18 (IPLUS IRIS.SWBASE 18))
					     (IRIS.SW19 (IPLUS IRIS.SWBASE 19))
					     (IRIS.SW20 (IPLUS IRIS.SWBASE 20))
					     (IRIS.SW21 (IPLUS IRIS.SWBASE 21))
					     (IRIS.SW22 (IPLUS IRIS.SWBASE 22))
					     (IRIS.SW23 (IPLUS IRIS.SWBASE 23))
					     (IRIS.SW24 (IPLUS IRIS.SWBASE 24))
					     (IRIS.SW25 (IPLUS IRIS.SWBASE 25))
					     (IRIS.SW26 (IPLUS IRIS.SWBASE 26))
					     (IRIS.SW27 (IPLUS IRIS.SWBASE 27))
					     (IRIS.SW28 (IPLUS IRIS.SWBASE 28))
					     (IRIS.SW29 (IPLUS IRIS.SWBASE 29))
					     (IRIS.SW30 (IPLUS IRIS.SWBASE 30))
					     (IRIS.SW31 (IPLUS IRIS.SWBASE 31)))
				  (* Keys)
				  (CONSTANTS (IRIS.AKEY IRIS.BUT10)
					     (IRIS.BKEY IRIS.BUT35)
					     (IRIS.CKEY IRIS.BUT27)
					     (IRIS.DKEY IRIS.BUT17)
					     (IRIS.EKEY IRIS.BUT16)
					     (IRIS.FKEY IRIS.BUT18)
					     (IRIS.GKEY IRIS.BUT25)
					     (IRIS.HKEY IRIS.BUT26)
					     (IRIS.IKEY IRIS.BUT39)
					     (IRIS.JKEY IRIS.BUT33)
					     (IRIS.KKEY IRIS.BUT34)
					     (IRIS.LKEY IRIS.BUT41)
					     (IRIS.MKEY IRIS.BUT43)
					     (IRIS.NKEY IRIS.BUT36)
					     (IRIS.OKEY IRIS.BUT40)
					     (IRIS.PKEY IRIS.BUT47)
					     (IRIS.QKEY IRIS.BUT9)
					     (IRIS.RKEY IRIS.BUT23)
					     (IRIS.SKEY IRIS.BUT11)
					     (IRIS.TKEY IRIS.BUT24)
					     (IRIS.UKEY IRIS.BUT32)
					     (IRIS.VKEY IRIS.BUT28)
					     (IRIS.WKEY IRIS.BUT15)
					     (IRIS.XKEY IRIS.BUT20)
					     (IRIS.YKEY IRIS.BUT32)
					     (IRIS.ZKEY IRIS.BUT19)
					     (IRIS.ZEROKEY IRIS.BUT45)
					     (IRIS.ONEKEY IRIS.BUT7)
					     (IRIS.TWOKEY IRIS.BUT13)
					     (IRIS.THREEKEY IRIS.BUT14)
					     (IRIS.FOURKEY IRIS.BUT21)
					     (IRIS.FIVCEKEY IRIS.BUT22)
					     (IRIS.SIXKEY IRIS.BUT29)
					     (IRIS.SEVENKEY IRIS.BUT30)
					     (IRIS.EIGHTKEY IRIS.BUT37)
					     (IRIS.NINIKEY IRIS.BUT38)
					     (IRIS.BREAKKEY IRIS.BUT0)
					     (IRIS.SETUPKEY IRIS.BUT1)
					     (IRIS.CNTRLKEY IRIS.BUT2)
					     (IRIS.CAPSLOCKKEY IRIS.BUT3)
					     (IRIS.RIGHTSHIFTKEY IRIS.BUT4)
					     (IRIS.LEFTSHIFTKEY IRIS.BUT5)
					     (IRIS.NOSCRLKEY IRIS.BUT12)
					     (IRIS.ESCKEY IRIS.BUT6)
					     (IRIS.TABKEY IRIS.BUT8)
					     (IRIS.RETURNKEY IRIS.BUT50)
					     (IRIS.SPACEKKEY IRIS.BUT82)
					     (IRIS.LINEFEEDKEY IRIS.BUT59)
					     (IRIS.BACKSPACEKEY IRIS.BUT60)
					     (IRIS.DELETEKEY IRIS.BUT61)
					     (IRIS.SEMICOLONKEY IRIS.BUT42)
					     (IRIS.PERIODKEY IRIS.BUT51)
					     (IRIS.COMMAKEY IRIS.BUT44)
					     (IRIS.QUOTEKEY IRIS.BUT49)
					     (IRIS.ACCENTGRAVEKEY IRIS.BUT54)
					     (IRIS.MINUSKEY IRIS.BUT46)
					     (IRIS.VIRGULEKEY IRIS.BUT52)
					     (IRIS.BACKSLASHKEY IRIS.BUT56)
					     (IRIS.EQUALKEY IRIS.BUT53)
					     (IRIS.LEFTBRACKETKEY IRIS.BUT48)
					     (IRIS.RIGHTBRACKETKEY IRIS.BUT55)
					     (IRIS.LEFTARROWKEY IRIS.BUT72)
					     (IRIS.DOWNARROWKEY IRIS.BUT73)
					     (IRIS.UPARROWKEY IRIS.BUT80)
					     (IRIS.PAD0 IRIS.BUT58)
					     (IRIS.PAD1 IRIS.BUT57)
					     (IRIS.PAD2 IRIS.BUT63)
					     (IRIS.PAD3 IRIS.BUT64)
					     (IRIS.PAD4 IRIS.BUT62)
					     (IRIS.PAD5 IRIS.BUT68)
					     (IRIS.PAD6 IRIS.BUT69)
					     (IRIS.PAD8 IRIS.BUT67)
					     (IRIS.PAD9 IRIS.BUT74)
					     (IRIS.PADPF1 IRIS.BUT71)
					     (IRIS.PADPF2 IRIS.BUT70)
					     (IRIS.PADPF3 IRIS.BUT78)
					     (IRIS.PADPF4 IRIS.BUT77)
					     (IRIS.PADPERIOD IRIS.BUT65)
					     (IRIS.PADMINUS IRIS.BUT75)
					     (IRIS.PADCOMMA IRIS.BUT76)
					     (IRIS.PADENTER IRIS.BUT81))
				  (* Screen buttons)
				  (CONSTANTS (IRIS.SCRBUT0 (IPLUS IRIS.SBTOFFSET 0))
					     (IRIS.SCRBUT1 (IPLUS IRIS.SBTOFFSET 1))
					     (IRIS.SCRBUT2 (IPLUS IRIS.SBTOFFSET 2))
					     (IRIS.SCRBUT3 (IPLUS IRIS.SBTOFFSET 3))
					     (IRIS.SCRBUT4 (IPLUS IRIS.SBTOFFSET 4))
					     (IRIS.SCRBUT5 (IPLUS IRIS.SBTOFFSET 5))
					     (IRIS.SCRBUT6 (IPLUS IRIS.SBTOFFSET 6))
					     (IRIS.SCRBUT7 (IPLUS IRIS.SBTOFFSET 7))
					     (IRIS.SCRBUT8 (IPLUS IRIS.SBTOFFSET 8))
					     (IRIS.SCRBUT9 (IPLUS IRIS.SBTOFFSET 9))
					     (IRIS.SCRBUT10 (IPLUS IRIS.SBTOFFSET 10))
					     (IRIS.SCRBUT11 (IPLUS IRIS.SBTOFFSET 11))
					     (IRIS.SCRBUT12 (IPLUS IRIS.SBTOFFSET 12))
					     (IRIS.SCRBUT13 (IPLUS IRIS.SBTOFFSET 13))
					     (IRIS.SCRBUT14 (IPLUS IRIS.SBTOFFSET 14))
					     (IRIS.SCRBUT15 (IPLUS IRIS.SBTOFFSET 15))
					     (IRIS.SCRBUT16 (IPLUS IRIS.SBTOFFSET 16)))
				  (* Valuators)
				  (CONSTANTS (IRIS.SGIRESERVED (IPLUS 0 IRIS.VALOFFSET))
					     (IRIS.DIAL0 (PLUS 1 IRIS.VALOFFSET))
					     (IRIS.DIAL1 (PLUS 2 IRIS.VALOFFSET))
					     (IRIS.DIAL2 (PLUS 3 IRIS.VALOFFSET))
					     (IRIS.DIAL3 (PLUS 4 IRIS.VALOFFSET))
					     (IRIS.DIAL4 (PLUS 5 IRIS.VALOFFSET))
					     (IRIS.DIAL5 (PLUS 6 IRIS.VALOFFSET))
					     (IRIS.DIAL6 (PLUS 7 IRIS.VALOFFSET))
					     (IRIS.DIAL7 (PLUS 8 IRIS.VALOFFSET))
					     (IRIS.DIAL8 (PLUS 9 IRIS.VALOFFSET))
					     (IRIS.MOUSEX (PLUS 10 IRIS.VALOFFSET))
					     (IRIS.MOUSEY (PLUS 11 IRIS.VALOFFSET))
					     (IRIS.LPENX (PLUS 12 IRIS.VALOFFSET))
					     (IRIS.PLENY (PLUS 13 IRIS.VALOFFSET))
					     (IRIS.NULLX (PLUS 14 IRIS.VALOFFSET))
					     (IRIS.NULLY (PLUS 15 IRIS.VALOFFSET)))
				  (* Timers)
				  (CONSTANTS (IRIS.TIMER0 (IPLUS IRIS.TIMOFFSET 0))
					     (IRIS.TIMER1 (IPLUS IRIS.TIMOFFSET 1))
					     (IRIS.TIMER2 (IPLUS IRIS.TIMOFFSET 2))
					     (IRIS.TIMER3 (IPLUS IRIS.TIMOFFSET 3))
					     (IRIS.TIMER4 (IPLUS IRIS.TIMOFFSET 4))
					     (IRIS.TIMER5 (IPLUS IRIS.TIMOFFSET 5))
					     (IRIS.TIMER6 (IPLUS IRIS.TIMOFFSET 6))
					     (IRIS.TIMER7 (IPLUS IRIS.TIMOFFSET 7)))
				  (* Misc devices)
				  (CONSTANTS (IRIS.KEYBD (IPLUS 1 IRIS.KEYOFFSET))
					     (IRIS.CURSORX 526)
					     (* cursor x pseudo valuator)
					     (IRIS.CURSORY 527)
					     (* cursor y pseudo valuator)
					     (IRIS.VALMARK 523)
					     (* valuator mark)
					     (IRIS.GERROR 524)
					     (* errors device)
					     (IRIS.REDRAW 528)
					     (* used by port manager to signal redraws)
					     (IRIS.WMSEND 529)
					     (* data in proc's shmem)
					     (IRIS.WMREPLY 530)
					     (* reply from port manager)
					     (IRIS.WMGFCLOSE 531)
					     (* gf # is no longer being used)
					     (IRIS.WMTXCLOSE 532)
					     (* tx # is no longer being used)
					     (IRIS.MODECHANGE 533)
					     (* the display mode has changed)
					     (IRIS.INPUTCHANGE 534)
					     (* input connected or disconnected)
					     (IRIS.QFULL 535)
					     (* queue was filled))
				  (* * get.h)
				  (* Values returned by IRIS.GETBUFFER)
				  (CONSTANTS (IRIS.NEITHERBUFFER 0)
					     (IRIS.BACKBUFFER 1)
					     (IRIS.FRONTBUFFER 2)
					     (IRIS.BOTHBUFFERS 3)
					     (IRIS.NOBUFFER 0)
					     (IRIS.BCKBUFFER 1)
					     (IRIS.FRNTBUFFER 2))
				  (* Values returned by IRIS.GETCMMODE)
				  (CONSTANTS (IRIS.MULTIMAP 0)
					     (IRIS.ONEMAP 1)
					     (IRIS.CMAPMULTI 0)
					     (IRIS.CMAPONE 1))
				  (* Values returned by IRIS.GETDISPLAYMODE)
				  (CONSTANTS (IRIS.RGBMODE 0)
					     (IRIS.SINGLEBUFFER 1)
					     (IRIS.DOUBLEBUFFER 2)
					     (IRIS.DMRGB 0)
					     (IRIS.DMSINGLE 1)
					     (IRIS.DMDOUBLE 2))
				  (* Values returned by IRIS.GETDISPLAYMODE)
				  (CONSTANTS (IRIS.HZ30 0)
					     (IRIS.HZ60 1)
					     (IRIS.NTSC 2)
					     (IRIS.PAL 2)
					     (IRIS.HZ50 3)
					     (IRIS.MONA 5)
					     (IRIS.MONB 6)
					     (IRIS.MONC 7)
					     (IRIS.MOND 8)
					     (IRIS.MONSPECIAL 16))
				  (* Individual hit bits returned by IRIS.HITCODE)
				  (CONSTANTS (IRIS.LEFTPLANE 1)
					     (IRIS.RIGHTPLANE 2)
					     (IRIS.BOTTOMPLANE 4)
					     (IRIS.TOPPLANE 8)
					     (IRIS.NEARPLANE 16)
					     (IRIS.FARPLANE 32))
				  (* * constants for rotation)
				  (CONSTANTS (IRIS.XAXIS (CHARCODE X))
					     (IRIS.YAXIS (CHARCODE Y))
					     (IRIS.ZAXIS (CHARCODE Z)))
				  (* * Other stuff)
				  (* Approximate interval between retraces in milliseconds)
				  (CONSTANTS (IRIS.RETRACEINTERVAL 33.33333])
(* * gl.h)





(* Maximum X and Y screen coordinates)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.XMAXSCREEN
 1023)

(RPAQQ IRIS.YMAXSCREEN
 767)

(CONSTANTS (IRIS.XMAXSCREEN 1023)
	   (IRIS.YMAXSCREEN 767))
)



(* Various hardware/software limits)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.ATTRIBSTACKDEPTH
 10)

(RPAQQ IRIS.VPSTACKDEPTH
 8)

(RPAQQ IRIS.MATRIXSTACKDEPTH
 32)

(RPAQQ IRIS.STARTTAG
 -2)

(RPAQQ IRIS.ENDTAG
 -3)

(CONSTANTS (IRIS.ATTRIBSTACKDEPTH 10)
	   (IRIS.VPSTACKDEPTH 8)
	   (IRIS.MATRIXSTACKDEPTH 32)
	   (IRIS.STARTTAG -2)
	   (IRIS.ENDTAG -3))
)



(* Name for colors in color map loaded by IRIS.GINIT)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.BACKGROUND
 0)

(RPAQQ IRIS.BLACK
 0)

(RPAQQ IRIS.RED
 1)

(RPAQQ IRIS.GREEN
 2)

(RPAQQ IRIS.YELLOW
 3)

(RPAQQ IRIS.BLUE
 4)

(RPAQQ IRIS.MAGENTA
 5)

(RPAQQ IRIS.CYAN
 6)

(RPAQQ IRIS.WHITE
 7)

(CONSTANTS (IRIS.BACKGROUND 0)
	   (IRIS.BLACK 0)
	   (IRIS.RED 1)
	   (IRIS.GREEN 2)
	   (IRIS.YELLOW 3)
	   (IRIS.BLUE 4)
	   (IRIS.MAGENTA 5)
	   (IRIS.CYAN 6)
	   (IRIS.WHITE 7))
)
(* * device.h)





(* Macros to test valuator and button numbers)


(DECLARE: EVAL@COMPILE 
[PUTPROPS IRIS.ISBUTTON MACRO ((b)
	   (AND (GEQ b IRIS.BUTOFFSET)
		(LESSP b (PLUS IRIS.BUTCOUNT IRIS.BUTOFFSET]
[PUTPROPS IRIS.ISSCRBUTTON MACRO ((b)
	   (AND (GEQ b IRIS.SBTOFFSET)
		(LESSP b (IPLUS IRIS.SBTCOUNT IRIS.SBTOFFSET]
[PUTPROPS IRIS.ISVALUATOR MACRO ((v)
	   (AND (GEQ v IRIS.VALOFFSET)
		(LESSP v (IPLUS IRIS.VALCOUNT IRIS.VALOFFSET]
[PUTPROPS IRIS.ISTIMER MACRO ((t)
	   (AND (GEQ t IRIS.TIMOFFSET)
		(LESSP t (IPLUS IRIS.TIMCOUNT IRIS.TIMOFFSET]
[PUTPROPS IRIS.ISDIAL MACRO ((t)
	   (AND (GEQ t IRIS.DIAL0)
		(LEQ t IRIS.DIAL8]
[PUTPROPS IRIS.ISLPEN MACRO ((t)
	   (OR (EQP t IRIS.LPENX)
	       (EQP t IRIS.LPENY]
(PUTPROPS IRIS.ISLPENBUT MACRO ((t)
	   (EQP t IRIS.LPENBUT)))
)



(* Include file with device definitions)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.NULLDEV
 0)

(RPAQQ IRIS.BUTOFFSET
 1)

(RPAQQ IRIS.SBTOFFSET
 200)

(RPAQQ IRIS.VALOFFSET
 256)

(RPAQQ IRIS.KEYOFFSET
 512)

(RPAQQ IRIS.TIMOFFSET
 515)

(RPAQQ IRIS.BUTCOUNT
 144)

(RPAQQ IRIS.SBTCOUNT
 16)

(RPAQQ IRIS.VALCOUNT
 14)

(RPAQQ IRIS.TIMCOUNT
 8)

(CONSTANTS (IRIS.NULLDEV 0)
	   (IRIS.BUTOFFSET 1)
	   (IRIS.SBTOFFSET 200)
	   (IRIS.VALOFFSET 256)
	   (IRIS.KEYOFFSET 512)
	   (IRIS.TIMOFFSET 515)
	   (IRIS.BUTCOUNT 144)
	   (IRIS.SBTCOUNT 16)
	   (IRIS.VALCOUNT 14)
	   (IRIS.TIMCOUNT 8))
)



(* Buttons)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.BUT0
 (IPLUS 0 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT1
 (IPLUS 1 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT2
 (IPLUS 2 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT3
 (IPLUS 3 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT4
 (IPLUS 4 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT5
 (IPLUS 5 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT6
 (IPLUS 6 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT7
 (IPLUS 7 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT8
 (IPLUS 8 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT9
 (IPLUS 9 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT10
 (IPLUS 10 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT11
 (IPLUS 11 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT12
 (IPLUS 12 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT13
 (IPLUS 13 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT14
 (IPLUS 14 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT15
 (IPLUS 15 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT16
 (IPLUS 16 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT17
 (IPLUS 17 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT18
 (IPLUS 18 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT19
 (IPLUS 19 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT20
 (IPLUS 20 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT21
 (IPLUS 21 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT22
 (IPLUS 22 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT23
 (IPLUS 23 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT24
 (IPLUS 24 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT25
 (IPLUS 25 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT26
 (IPLUS 26 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT27
 (IPLUS 27 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT28
 (IPLUS 28 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT29
 (IPLUS 29 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT30
 (IPLUS 30 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT31
 (IPLUS 31 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT32
 (IPLUS 32 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT33
 (IPLUS 33 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT34
 (IPLUS 34 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT35
 (IPLUS 35 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT36
 (IPLUS 36 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT37
 (IPLUS 37 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT38
 (IPLUS 38 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT39
 (IPLUS 39 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT40
 (IPLUS 40 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT41
 (IPLUS 41 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT42
 (IPLUS 42 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT43
 (IPLUS 43 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT44
 (IPLUS 44 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT45
 (IPLUS 45 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT46
 (IPLUS 46 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT47
 (IPLUS 47 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT48
 (IPLUS 48 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT49
 (IPLUS 49 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT50
 (IPLUS 50 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT51
 (IPLUS 51 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT52
 (IPLUS 52 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT53
 (IPLUS 53 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT54
 (IPLUS 54 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT55
 (IPLUS 55 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT56
 (IPLUS 56 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT57
 (IPLUS 57 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT58
 (IPLUS 58 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT59
 (IPLUS 59 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT60
 (IPLUS 60 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT61
 (IPLUS 61 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT62
 (IPLUS 62 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT63
 (IPLUS 63 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT64
 (IPLUS 64 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT65
 (IPLUS 65 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT66
 (IPLUS 66 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT67
 (IPLUS 67 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT68
 (IPLUS 68 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT69
 (IPLUS 69 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT70
 (IPLUS 70 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT71
 (IPLUS 71 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT72
 (IPLUS 72 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT73
 (IPLUS 73 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT74
 (IPLUS 74 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT75
 (IPLUS 75 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT76
 (IPLUS 76 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT77
 (IPLUS 77 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT78
 (IPLUS 78 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT79
 (IPLUS 79 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT80
 (IPLUS 80 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT81
 (IPLUS 81 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT82
 (IPLUS 82 IRIS.BUTOFFSET))

(RPAQ IRIS.MAXKBDBUT
 IRIS.BUT82)

(RPAQ IRIS.BUT100
 (IPLUS 100 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT101
 (IPLUS 101 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT102
 (IPLUS 102 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT103
 (IPLUS 103 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT104
 (IPLUS 104 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT105
 (IPLUS 105 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT106
 (IPLUS 106 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT107
 (IPLUS 107 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT108
 (IPLUS 108 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT109
 (IPLUS 109 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT110
 (IPLUS 110 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT111
 (IPLUS 111 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT112
 (IPLUS 112 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT113
 (IPLUS 113 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT114
 (IPLUS 114 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT115
 (IPLUS 115 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT116
 (IPLUS 116 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT117
 (IPLUS 117 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT118
 (IPLUS 118 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT119
 (IPLUS 119 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT120
 (IPLUS 120 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT121
 (IPLUS 121 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT122
 (IPLUS 122 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT123
 (IPLUS 123 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT124
 (IPLUS 124 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT125
 (IPLUS 125 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT126
 (IPLUS 126 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT127
 (IPLUS 127 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT128
 (IPLUS 128 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT129
 (IPLUS 129 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT130
 (IPLUS 130 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT131
 (IPLUS 131 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT132
 (IPLUS 132 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT133
 (IPLUS 133 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT134
 (IPLUS 134 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT135
 (IPLUS 135 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT136
 (IPLUS 136 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT137
 (IPLUS 137 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT138
 (IPLUS 138 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT139
 (IPLUS 139 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT140
 (IPLUS 140 IRIS.BUTOFFSET))

(RPAQ IRIS.BUT141
 (IPLUS 141 IRIS.BUTOFFSET))

(RPAQ IRIS.MOUSEBUTTON1
 IRIS.BUT100)

(RPAQ IRIS.MOUSEBUTTON2
 IRIS.BUT101)

(RPAQ IRIS.MOUSEBUTTON3
 IRIS.BUT102)

(RPAQ IRIS.MOUSE1
 IRIS.BUT100)

(RPAQ IRIS.MOUSE2
 IRIS.BUT101)

(RPAQ IRIS.MOUSE3
 IRIS.BUT102)

(RPAQ IRIS.LEFTMOUSEBUTTON
 IRIS.BUT102)

(RPAQ IRIS.MIDDLEMOUSEBUTTON
 IRIS.BUT101)

(RPAQ IRIS.RIGHTMOUSEBUTTON
 IRIS.BUT100)

(RPAQ IRIS.LEFTMOUSE
 IRIS.BUT102)

(RPAQ IRIS.MIDDLEMOUSE
 IRIS.BUT101)

(RPAQ IRIS.RIGHTMOUSE
 IRIS.BUT100)

(RPAQQ IRIS.LPENBUT
 104)

(CONSTANTS (IRIS.BUT0 (IPLUS 0 IRIS.BUTOFFSET))
	   (IRIS.BUT1 (IPLUS 1 IRIS.BUTOFFSET))
	   (IRIS.BUT2 (IPLUS 2 IRIS.BUTOFFSET))
	   (IRIS.BUT3 (IPLUS 3 IRIS.BUTOFFSET))
	   (IRIS.BUT4 (IPLUS 4 IRIS.BUTOFFSET))
	   (IRIS.BUT5 (IPLUS 5 IRIS.BUTOFFSET))
	   (IRIS.BUT6 (IPLUS 6 IRIS.BUTOFFSET))
	   (IRIS.BUT7 (IPLUS 7 IRIS.BUTOFFSET))
	   (IRIS.BUT8 (IPLUS 8 IRIS.BUTOFFSET))
	   (IRIS.BUT9 (IPLUS 9 IRIS.BUTOFFSET))
	   (IRIS.BUT10 (IPLUS 10 IRIS.BUTOFFSET))
	   (IRIS.BUT11 (IPLUS 11 IRIS.BUTOFFSET))
	   (IRIS.BUT12 (IPLUS 12 IRIS.BUTOFFSET))
	   (IRIS.BUT13 (IPLUS 13 IRIS.BUTOFFSET))
	   (IRIS.BUT14 (IPLUS 14 IRIS.BUTOFFSET))
	   (IRIS.BUT15 (IPLUS 15 IRIS.BUTOFFSET))
	   (IRIS.BUT16 (IPLUS 16 IRIS.BUTOFFSET))
	   (IRIS.BUT17 (IPLUS 17 IRIS.BUTOFFSET))
	   (IRIS.BUT18 (IPLUS 18 IRIS.BUTOFFSET))
	   (IRIS.BUT19 (IPLUS 19 IRIS.BUTOFFSET))
	   (IRIS.BUT20 (IPLUS 20 IRIS.BUTOFFSET))
	   (IRIS.BUT21 (IPLUS 21 IRIS.BUTOFFSET))
	   (IRIS.BUT22 (IPLUS 22 IRIS.BUTOFFSET))
	   (IRIS.BUT23 (IPLUS 23 IRIS.BUTOFFSET))
	   (IRIS.BUT24 (IPLUS 24 IRIS.BUTOFFSET))
	   (IRIS.BUT25 (IPLUS 25 IRIS.BUTOFFSET))
	   (IRIS.BUT26 (IPLUS 26 IRIS.BUTOFFSET))
	   (IRIS.BUT27 (IPLUS 27 IRIS.BUTOFFSET))
	   (IRIS.BUT28 (IPLUS 28 IRIS.BUTOFFSET))
	   (IRIS.BUT29 (IPLUS 29 IRIS.BUTOFFSET))
	   (IRIS.BUT30 (IPLUS 30 IRIS.BUTOFFSET))
	   (IRIS.BUT31 (IPLUS 31 IRIS.BUTOFFSET))
	   (IRIS.BUT32 (IPLUS 32 IRIS.BUTOFFSET))
	   (IRIS.BUT33 (IPLUS 33 IRIS.BUTOFFSET))
	   (IRIS.BUT34 (IPLUS 34 IRIS.BUTOFFSET))
	   (IRIS.BUT35 (IPLUS 35 IRIS.BUTOFFSET))
	   (IRIS.BUT36 (IPLUS 36 IRIS.BUTOFFSET))
	   (IRIS.BUT37 (IPLUS 37 IRIS.BUTOFFSET))
	   (IRIS.BUT38 (IPLUS 38 IRIS.BUTOFFSET))
	   (IRIS.BUT39 (IPLUS 39 IRIS.BUTOFFSET))
	   (IRIS.BUT40 (IPLUS 40 IRIS.BUTOFFSET))
	   (IRIS.BUT41 (IPLUS 41 IRIS.BUTOFFSET))
	   (IRIS.BUT42 (IPLUS 42 IRIS.BUTOFFSET))
	   (IRIS.BUT43 (IPLUS 43 IRIS.BUTOFFSET))
	   (IRIS.BUT44 (IPLUS 44 IRIS.BUTOFFSET))
	   (IRIS.BUT45 (IPLUS 45 IRIS.BUTOFFSET))
	   (IRIS.BUT46 (IPLUS 46 IRIS.BUTOFFSET))
	   (IRIS.BUT47 (IPLUS 47 IRIS.BUTOFFSET))
	   (IRIS.BUT48 (IPLUS 48 IRIS.BUTOFFSET))
	   (IRIS.BUT49 (IPLUS 49 IRIS.BUTOFFSET))
	   (IRIS.BUT50 (IPLUS 50 IRIS.BUTOFFSET))
	   (IRIS.BUT51 (IPLUS 51 IRIS.BUTOFFSET))
	   (IRIS.BUT52 (IPLUS 52 IRIS.BUTOFFSET))
	   (IRIS.BUT53 (IPLUS 53 IRIS.BUTOFFSET))
	   (IRIS.BUT54 (IPLUS 54 IRIS.BUTOFFSET))
	   (IRIS.BUT55 (IPLUS 55 IRIS.BUTOFFSET))
	   (IRIS.BUT56 (IPLUS 56 IRIS.BUTOFFSET))
	   (IRIS.BUT57 (IPLUS 57 IRIS.BUTOFFSET))
	   (IRIS.BUT58 (IPLUS 58 IRIS.BUTOFFSET))
	   (IRIS.BUT59 (IPLUS 59 IRIS.BUTOFFSET))
	   (IRIS.BUT60 (IPLUS 60 IRIS.BUTOFFSET))
	   (IRIS.BUT61 (IPLUS 61 IRIS.BUTOFFSET))
	   (IRIS.BUT62 (IPLUS 62 IRIS.BUTOFFSET))
	   (IRIS.BUT63 (IPLUS 63 IRIS.BUTOFFSET))
	   (IRIS.BUT64 (IPLUS 64 IRIS.BUTOFFSET))
	   (IRIS.BUT65 (IPLUS 65 IRIS.BUTOFFSET))
	   (IRIS.BUT66 (IPLUS 66 IRIS.BUTOFFSET))
	   (IRIS.BUT67 (IPLUS 67 IRIS.BUTOFFSET))
	   (IRIS.BUT68 (IPLUS 68 IRIS.BUTOFFSET))
	   (IRIS.BUT69 (IPLUS 69 IRIS.BUTOFFSET))
	   (IRIS.BUT70 (IPLUS 70 IRIS.BUTOFFSET))
	   (IRIS.BUT71 (IPLUS 71 IRIS.BUTOFFSET))
	   (IRIS.BUT72 (IPLUS 72 IRIS.BUTOFFSET))
	   (IRIS.BUT73 (IPLUS 73 IRIS.BUTOFFSET))
	   (IRIS.BUT74 (IPLUS 74 IRIS.BUTOFFSET))
	   (IRIS.BUT75 (IPLUS 75 IRIS.BUTOFFSET))
	   (IRIS.BUT76 (IPLUS 76 IRIS.BUTOFFSET))
	   (IRIS.BUT77 (IPLUS 77 IRIS.BUTOFFSET))
	   (IRIS.BUT78 (IPLUS 78 IRIS.BUTOFFSET))
	   (IRIS.BUT79 (IPLUS 79 IRIS.BUTOFFSET))
	   (IRIS.BUT80 (IPLUS 80 IRIS.BUTOFFSET))
	   (IRIS.BUT81 (IPLUS 81 IRIS.BUTOFFSET))
	   (IRIS.BUT82 (IPLUS 82 IRIS.BUTOFFSET))
	   (IRIS.MAXKBDBUT IRIS.BUT82)
	   (IRIS.BUT100 (IPLUS 100 IRIS.BUTOFFSET))
	   (IRIS.BUT101 (IPLUS 101 IRIS.BUTOFFSET))
	   (IRIS.BUT102 (IPLUS 102 IRIS.BUTOFFSET))
	   (IRIS.BUT103 (IPLUS 103 IRIS.BUTOFFSET))
	   (IRIS.BUT104 (IPLUS 104 IRIS.BUTOFFSET))
	   (IRIS.BUT105 (IPLUS 105 IRIS.BUTOFFSET))
	   (IRIS.BUT106 (IPLUS 106 IRIS.BUTOFFSET))
	   (IRIS.BUT107 (IPLUS 107 IRIS.BUTOFFSET))
	   (IRIS.BUT108 (IPLUS 108 IRIS.BUTOFFSET))
	   (IRIS.BUT109 (IPLUS 109 IRIS.BUTOFFSET))
	   (IRIS.BUT110 (IPLUS 110 IRIS.BUTOFFSET))
	   (IRIS.BUT111 (IPLUS 111 IRIS.BUTOFFSET))
	   (IRIS.BUT112 (IPLUS 112 IRIS.BUTOFFSET))
	   (IRIS.BUT113 (IPLUS 113 IRIS.BUTOFFSET))
	   (IRIS.BUT114 (IPLUS 114 IRIS.BUTOFFSET))
	   (IRIS.BUT115 (IPLUS 115 IRIS.BUTOFFSET))
	   (IRIS.BUT116 (IPLUS 116 IRIS.BUTOFFSET))
	   (IRIS.BUT117 (IPLUS 117 IRIS.BUTOFFSET))
	   (IRIS.BUT118 (IPLUS 118 IRIS.BUTOFFSET))
	   (IRIS.BUT119 (IPLUS 119 IRIS.BUTOFFSET))
	   (IRIS.BUT120 (IPLUS 120 IRIS.BUTOFFSET))
	   (IRIS.BUT121 (IPLUS 121 IRIS.BUTOFFSET))
	   (IRIS.BUT122 (IPLUS 122 IRIS.BUTOFFSET))
	   (IRIS.BUT123 (IPLUS 123 IRIS.BUTOFFSET))
	   (IRIS.BUT124 (IPLUS 124 IRIS.BUTOFFSET))
	   (IRIS.BUT125 (IPLUS 125 IRIS.BUTOFFSET))
	   (IRIS.BUT126 (IPLUS 126 IRIS.BUTOFFSET))
	   (IRIS.BUT127 (IPLUS 127 IRIS.BUTOFFSET))
	   (IRIS.BUT128 (IPLUS 128 IRIS.BUTOFFSET))
	   (IRIS.BUT129 (IPLUS 129 IRIS.BUTOFFSET))
	   (IRIS.BUT130 (IPLUS 130 IRIS.BUTOFFSET))
	   (IRIS.BUT131 (IPLUS 131 IRIS.BUTOFFSET))
	   (IRIS.BUT132 (IPLUS 132 IRIS.BUTOFFSET))
	   (IRIS.BUT133 (IPLUS 133 IRIS.BUTOFFSET))
	   (IRIS.BUT134 (IPLUS 134 IRIS.BUTOFFSET))
	   (IRIS.BUT135 (IPLUS 135 IRIS.BUTOFFSET))
	   (IRIS.BUT136 (IPLUS 136 IRIS.BUTOFFSET))
	   (IRIS.BUT137 (IPLUS 137 IRIS.BUTOFFSET))
	   (IRIS.BUT138 (IPLUS 138 IRIS.BUTOFFSET))
	   (IRIS.BUT139 (IPLUS 139 IRIS.BUTOFFSET))
	   (IRIS.BUT140 (IPLUS 140 IRIS.BUTOFFSET))
	   (IRIS.BUT141 (IPLUS 141 IRIS.BUTOFFSET))
	   (IRIS.MOUSEBUTTON1 IRIS.BUT100)
	   (IRIS.MOUSEBUTTON2 IRIS.BUT101)
	   (IRIS.MOUSEBUTTON3 IRIS.BUT102)
	   (IRIS.MOUSE1 IRIS.BUT100)
	   (IRIS.MOUSE2 IRIS.BUT101)
	   (IRIS.MOUSE3 IRIS.BUT102)
	   (IRIS.LEFTMOUSEBUTTON IRIS.BUT102)
	   (IRIS.MIDDLEMOUSEBUTTON IRIS.BUT101)
	   (IRIS.RIGHTMOUSEBUTTON IRIS.BUT100)
	   (IRIS.LEFTMOUSE IRIS.BUT102)
	   (IRIS.MIDDLEMOUSE IRIS.BUT101)
	   (IRIS.RIGHTMOUSE IRIS.BUT100)
	   (IRIS.LPENBUT 104))
)



(* Switches)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.SWBASE
 IRIS.BUT110)

(RPAQ IRIS.SW0
 (IPLUS IRIS.SWBASE 0))

(RPAQ IRIS.SW1
 (IPLUS IRIS.SWBASE 1))

(RPAQ IRIS.SW2
 (IPLUS IRIS.SWBASE 2))

(RPAQ IRIS.SW3
 (IPLUS IRIS.SWBASE 3))

(RPAQ IRIS.SW4
 (IPLUS IRIS.SWBASE 4))

(RPAQ IRIS.SW5
 (IPLUS IRIS.SWBASE 5))

(RPAQ IRIS.SW6
 (IPLUS IRIS.SWBASE 6))

(RPAQ IRIS.SW7
 (IPLUS IRIS.SWBASE 7))

(RPAQ IRIS.SW8
 (IPLUS IRIS.SWBASE 8))

(RPAQ IRIS.SW9
 (IPLUS IRIS.SWBASE 9))

(RPAQ IRIS.SW10
 (IPLUS IRIS.SWBASE 10))

(RPAQ IRIS.SW11
 (IPLUS IRIS.SWBASE 11))

(RPAQ IRIS.SW12
 (IPLUS IRIS.SWBASE 12))

(RPAQ IRIS.SW13
 (IPLUS IRIS.SWBASE 13))

(RPAQ IRIS.SW14
 (IPLUS IRIS.SWBASE 14))

(RPAQ IRIS.SW15
 (IPLUS IRIS.SWBASE 15))

(RPAQ IRIS.SW16
 (IPLUS IRIS.SWBASE 16))

(RPAQ IRIS.SW17
 (IPLUS IRIS.SWBASE 17))

(RPAQ IRIS.SW18
 (IPLUS IRIS.SWBASE 18))

(RPAQ IRIS.SW19
 (IPLUS IRIS.SWBASE 19))

(RPAQ IRIS.SW20
 (IPLUS IRIS.SWBASE 20))

(RPAQ IRIS.SW21
 (IPLUS IRIS.SWBASE 21))

(RPAQ IRIS.SW22
 (IPLUS IRIS.SWBASE 22))

(RPAQ IRIS.SW23
 (IPLUS IRIS.SWBASE 23))

(RPAQ IRIS.SW24
 (IPLUS IRIS.SWBASE 24))

(RPAQ IRIS.SW25
 (IPLUS IRIS.SWBASE 25))

(RPAQ IRIS.SW26
 (IPLUS IRIS.SWBASE 26))

(RPAQ IRIS.SW27
 (IPLUS IRIS.SWBASE 27))

(RPAQ IRIS.SW28
 (IPLUS IRIS.SWBASE 28))

(RPAQ IRIS.SW29
 (IPLUS IRIS.SWBASE 29))

(RPAQ IRIS.SW30
 (IPLUS IRIS.SWBASE 30))

(RPAQ IRIS.SW31
 (IPLUS IRIS.SWBASE 31))

(CONSTANTS (IRIS.SWBASE IRIS.BUT110)
	   (IRIS.SW0 (IPLUS IRIS.SWBASE 0))
	   (IRIS.SW1 (IPLUS IRIS.SWBASE 1))
	   (IRIS.SW2 (IPLUS IRIS.SWBASE 2))
	   (IRIS.SW3 (IPLUS IRIS.SWBASE 3))
	   (IRIS.SW4 (IPLUS IRIS.SWBASE 4))
	   (IRIS.SW5 (IPLUS IRIS.SWBASE 5))
	   (IRIS.SW6 (IPLUS IRIS.SWBASE 6))
	   (IRIS.SW7 (IPLUS IRIS.SWBASE 7))
	   (IRIS.SW8 (IPLUS IRIS.SWBASE 8))
	   (IRIS.SW9 (IPLUS IRIS.SWBASE 9))
	   (IRIS.SW10 (IPLUS IRIS.SWBASE 10))
	   (IRIS.SW11 (IPLUS IRIS.SWBASE 11))
	   (IRIS.SW12 (IPLUS IRIS.SWBASE 12))
	   (IRIS.SW13 (IPLUS IRIS.SWBASE 13))
	   (IRIS.SW14 (IPLUS IRIS.SWBASE 14))
	   (IRIS.SW15 (IPLUS IRIS.SWBASE 15))
	   (IRIS.SW16 (IPLUS IRIS.SWBASE 16))
	   (IRIS.SW17 (IPLUS IRIS.SWBASE 17))
	   (IRIS.SW18 (IPLUS IRIS.SWBASE 18))
	   (IRIS.SW19 (IPLUS IRIS.SWBASE 19))
	   (IRIS.SW20 (IPLUS IRIS.SWBASE 20))
	   (IRIS.SW21 (IPLUS IRIS.SWBASE 21))
	   (IRIS.SW22 (IPLUS IRIS.SWBASE 22))
	   (IRIS.SW23 (IPLUS IRIS.SWBASE 23))
	   (IRIS.SW24 (IPLUS IRIS.SWBASE 24))
	   (IRIS.SW25 (IPLUS IRIS.SWBASE 25))
	   (IRIS.SW26 (IPLUS IRIS.SWBASE 26))
	   (IRIS.SW27 (IPLUS IRIS.SWBASE 27))
	   (IRIS.SW28 (IPLUS IRIS.SWBASE 28))
	   (IRIS.SW29 (IPLUS IRIS.SWBASE 29))
	   (IRIS.SW30 (IPLUS IRIS.SWBASE 30))
	   (IRIS.SW31 (IPLUS IRIS.SWBASE 31)))
)



(* Keys)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.AKEY
 IRIS.BUT10)

(RPAQ IRIS.BKEY
 IRIS.BUT35)

(RPAQ IRIS.CKEY
 IRIS.BUT27)

(RPAQ IRIS.DKEY
 IRIS.BUT17)

(RPAQ IRIS.EKEY
 IRIS.BUT16)

(RPAQ IRIS.FKEY
 IRIS.BUT18)

(RPAQ IRIS.GKEY
 IRIS.BUT25)

(RPAQ IRIS.HKEY
 IRIS.BUT26)

(RPAQ IRIS.IKEY
 IRIS.BUT39)

(RPAQ IRIS.JKEY
 IRIS.BUT33)

(RPAQ IRIS.KKEY
 IRIS.BUT34)

(RPAQ IRIS.LKEY
 IRIS.BUT41)

(RPAQ IRIS.MKEY
 IRIS.BUT43)

(RPAQ IRIS.NKEY
 IRIS.BUT36)

(RPAQ IRIS.OKEY
 IRIS.BUT40)

(RPAQ IRIS.PKEY
 IRIS.BUT47)

(RPAQ IRIS.QKEY
 IRIS.BUT9)

(RPAQ IRIS.RKEY
 IRIS.BUT23)

(RPAQ IRIS.SKEY
 IRIS.BUT11)

(RPAQ IRIS.TKEY
 IRIS.BUT24)

(RPAQ IRIS.UKEY
 IRIS.BUT32)

(RPAQ IRIS.VKEY
 IRIS.BUT28)

(RPAQ IRIS.WKEY
 IRIS.BUT15)

(RPAQ IRIS.XKEY
 IRIS.BUT20)

(RPAQ IRIS.YKEY
 IRIS.BUT32)

(RPAQ IRIS.ZKEY
 IRIS.BUT19)

(RPAQ IRIS.ZEROKEY
 IRIS.BUT45)

(RPAQ IRIS.ONEKEY
 IRIS.BUT7)

(RPAQ IRIS.TWOKEY
 IRIS.BUT13)

(RPAQ IRIS.THREEKEY
 IRIS.BUT14)

(RPAQ IRIS.FOURKEY
 IRIS.BUT21)

(RPAQ IRIS.FIVCEKEY
 IRIS.BUT22)

(RPAQ IRIS.SIXKEY
 IRIS.BUT29)

(RPAQ IRIS.SEVENKEY
 IRIS.BUT30)

(RPAQ IRIS.EIGHTKEY
 IRIS.BUT37)

(RPAQ IRIS.NINIKEY
 IRIS.BUT38)

(RPAQ IRIS.BREAKKEY
 IRIS.BUT0)

(RPAQ IRIS.SETUPKEY
 IRIS.BUT1)

(RPAQ IRIS.CNTRLKEY
 IRIS.BUT2)

(RPAQ IRIS.CAPSLOCKKEY
 IRIS.BUT3)

(RPAQ IRIS.RIGHTSHIFTKEY
 IRIS.BUT4)

(RPAQ IRIS.LEFTSHIFTKEY
 IRIS.BUT5)

(RPAQ IRIS.NOSCRLKEY
 IRIS.BUT12)

(RPAQ IRIS.ESCKEY
 IRIS.BUT6)

(RPAQ IRIS.TABKEY
 IRIS.BUT8)

(RPAQ IRIS.RETURNKEY
 IRIS.BUT50)

(RPAQ IRIS.SPACEKKEY
 IRIS.BUT82)

(RPAQ IRIS.LINEFEEDKEY
 IRIS.BUT59)

(RPAQ IRIS.BACKSPACEKEY
 IRIS.BUT60)

(RPAQ IRIS.DELETEKEY
 IRIS.BUT61)

(RPAQ IRIS.SEMICOLONKEY
 IRIS.BUT42)

(RPAQ IRIS.PERIODKEY
 IRIS.BUT51)

(RPAQ IRIS.COMMAKEY
 IRIS.BUT44)

(RPAQ IRIS.QUOTEKEY
 IRIS.BUT49)

(RPAQ IRIS.ACCENTGRAVEKEY
 IRIS.BUT54)

(RPAQ IRIS.MINUSKEY
 IRIS.BUT46)

(RPAQ IRIS.VIRGULEKEY
 IRIS.BUT52)

(RPAQ IRIS.BACKSLASHKEY
 IRIS.BUT56)

(RPAQ IRIS.EQUALKEY
 IRIS.BUT53)

(RPAQ IRIS.LEFTBRACKETKEY
 IRIS.BUT48)

(RPAQ IRIS.RIGHTBRACKETKEY
 IRIS.BUT55)

(RPAQ IRIS.LEFTARROWKEY
 IRIS.BUT72)

(RPAQ IRIS.DOWNARROWKEY
 IRIS.BUT73)

(RPAQ IRIS.UPARROWKEY
 IRIS.BUT80)

(RPAQ IRIS.PAD0
 IRIS.BUT58)

(RPAQ IRIS.PAD1
 IRIS.BUT57)

(RPAQ IRIS.PAD2
 IRIS.BUT63)

(RPAQ IRIS.PAD3
 IRIS.BUT64)

(RPAQ IRIS.PAD4
 IRIS.BUT62)

(RPAQ IRIS.PAD5
 IRIS.BUT68)

(RPAQ IRIS.PAD6
 IRIS.BUT69)

(RPAQ IRIS.PAD8
 IRIS.BUT67)

(RPAQ IRIS.PAD9
 IRIS.BUT74)

(RPAQ IRIS.PADPF1
 IRIS.BUT71)

(RPAQ IRIS.PADPF2
 IRIS.BUT70)

(RPAQ IRIS.PADPF3
 IRIS.BUT78)

(RPAQ IRIS.PADPF4
 IRIS.BUT77)

(RPAQ IRIS.PADPERIOD
 IRIS.BUT65)

(RPAQ IRIS.PADMINUS
 IRIS.BUT75)

(RPAQ IRIS.PADCOMMA
 IRIS.BUT76)

(RPAQ IRIS.PADENTER
 IRIS.BUT81)

(CONSTANTS (IRIS.AKEY IRIS.BUT10)
	   (IRIS.BKEY IRIS.BUT35)
	   (IRIS.CKEY IRIS.BUT27)
	   (IRIS.DKEY IRIS.BUT17)
	   (IRIS.EKEY IRIS.BUT16)
	   (IRIS.FKEY IRIS.BUT18)
	   (IRIS.GKEY IRIS.BUT25)
	   (IRIS.HKEY IRIS.BUT26)
	   (IRIS.IKEY IRIS.BUT39)
	   (IRIS.JKEY IRIS.BUT33)
	   (IRIS.KKEY IRIS.BUT34)
	   (IRIS.LKEY IRIS.BUT41)
	   (IRIS.MKEY IRIS.BUT43)
	   (IRIS.NKEY IRIS.BUT36)
	   (IRIS.OKEY IRIS.BUT40)
	   (IRIS.PKEY IRIS.BUT47)
	   (IRIS.QKEY IRIS.BUT9)
	   (IRIS.RKEY IRIS.BUT23)
	   (IRIS.SKEY IRIS.BUT11)
	   (IRIS.TKEY IRIS.BUT24)
	   (IRIS.UKEY IRIS.BUT32)
	   (IRIS.VKEY IRIS.BUT28)
	   (IRIS.WKEY IRIS.BUT15)
	   (IRIS.XKEY IRIS.BUT20)
	   (IRIS.YKEY IRIS.BUT32)
	   (IRIS.ZKEY IRIS.BUT19)
	   (IRIS.ZEROKEY IRIS.BUT45)
	   (IRIS.ONEKEY IRIS.BUT7)
	   (IRIS.TWOKEY IRIS.BUT13)
	   (IRIS.THREEKEY IRIS.BUT14)
	   (IRIS.FOURKEY IRIS.BUT21)
	   (IRIS.FIVCEKEY IRIS.BUT22)
	   (IRIS.SIXKEY IRIS.BUT29)
	   (IRIS.SEVENKEY IRIS.BUT30)
	   (IRIS.EIGHTKEY IRIS.BUT37)
	   (IRIS.NINIKEY IRIS.BUT38)
	   (IRIS.BREAKKEY IRIS.BUT0)
	   (IRIS.SETUPKEY IRIS.BUT1)
	   (IRIS.CNTRLKEY IRIS.BUT2)
	   (IRIS.CAPSLOCKKEY IRIS.BUT3)
	   (IRIS.RIGHTSHIFTKEY IRIS.BUT4)
	   (IRIS.LEFTSHIFTKEY IRIS.BUT5)
	   (IRIS.NOSCRLKEY IRIS.BUT12)
	   (IRIS.ESCKEY IRIS.BUT6)
	   (IRIS.TABKEY IRIS.BUT8)
	   (IRIS.RETURNKEY IRIS.BUT50)
	   (IRIS.SPACEKKEY IRIS.BUT82)
	   (IRIS.LINEFEEDKEY IRIS.BUT59)
	   (IRIS.BACKSPACEKEY IRIS.BUT60)
	   (IRIS.DELETEKEY IRIS.BUT61)
	   (IRIS.SEMICOLONKEY IRIS.BUT42)
	   (IRIS.PERIODKEY IRIS.BUT51)
	   (IRIS.COMMAKEY IRIS.BUT44)
	   (IRIS.QUOTEKEY IRIS.BUT49)
	   (IRIS.ACCENTGRAVEKEY IRIS.BUT54)
	   (IRIS.MINUSKEY IRIS.BUT46)
	   (IRIS.VIRGULEKEY IRIS.BUT52)
	   (IRIS.BACKSLASHKEY IRIS.BUT56)
	   (IRIS.EQUALKEY IRIS.BUT53)
	   (IRIS.LEFTBRACKETKEY IRIS.BUT48)
	   (IRIS.RIGHTBRACKETKEY IRIS.BUT55)
	   (IRIS.LEFTARROWKEY IRIS.BUT72)
	   (IRIS.DOWNARROWKEY IRIS.BUT73)
	   (IRIS.UPARROWKEY IRIS.BUT80)
	   (IRIS.PAD0 IRIS.BUT58)
	   (IRIS.PAD1 IRIS.BUT57)
	   (IRIS.PAD2 IRIS.BUT63)
	   (IRIS.PAD3 IRIS.BUT64)
	   (IRIS.PAD4 IRIS.BUT62)
	   (IRIS.PAD5 IRIS.BUT68)
	   (IRIS.PAD6 IRIS.BUT69)
	   (IRIS.PAD8 IRIS.BUT67)
	   (IRIS.PAD9 IRIS.BUT74)
	   (IRIS.PADPF1 IRIS.BUT71)
	   (IRIS.PADPF2 IRIS.BUT70)
	   (IRIS.PADPF3 IRIS.BUT78)
	   (IRIS.PADPF4 IRIS.BUT77)
	   (IRIS.PADPERIOD IRIS.BUT65)
	   (IRIS.PADMINUS IRIS.BUT75)
	   (IRIS.PADCOMMA IRIS.BUT76)
	   (IRIS.PADENTER IRIS.BUT81))
)



(* Screen buttons)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.SCRBUT0
 (IPLUS IRIS.SBTOFFSET 0))

(RPAQ IRIS.SCRBUT1
 (IPLUS IRIS.SBTOFFSET 1))

(RPAQ IRIS.SCRBUT2
 (IPLUS IRIS.SBTOFFSET 2))

(RPAQ IRIS.SCRBUT3
 (IPLUS IRIS.SBTOFFSET 3))

(RPAQ IRIS.SCRBUT4
 (IPLUS IRIS.SBTOFFSET 4))

(RPAQ IRIS.SCRBUT5
 (IPLUS IRIS.SBTOFFSET 5))

(RPAQ IRIS.SCRBUT6
 (IPLUS IRIS.SBTOFFSET 6))

(RPAQ IRIS.SCRBUT7
 (IPLUS IRIS.SBTOFFSET 7))

(RPAQ IRIS.SCRBUT8
 (IPLUS IRIS.SBTOFFSET 8))

(RPAQ IRIS.SCRBUT9
 (IPLUS IRIS.SBTOFFSET 9))

(RPAQ IRIS.SCRBUT10
 (IPLUS IRIS.SBTOFFSET 10))

(RPAQ IRIS.SCRBUT11
 (IPLUS IRIS.SBTOFFSET 11))

(RPAQ IRIS.SCRBUT12
 (IPLUS IRIS.SBTOFFSET 12))

(RPAQ IRIS.SCRBUT13
 (IPLUS IRIS.SBTOFFSET 13))

(RPAQ IRIS.SCRBUT14
 (IPLUS IRIS.SBTOFFSET 14))

(RPAQ IRIS.SCRBUT15
 (IPLUS IRIS.SBTOFFSET 15))

(RPAQ IRIS.SCRBUT16
 (IPLUS IRIS.SBTOFFSET 16))

(CONSTANTS (IRIS.SCRBUT0 (IPLUS IRIS.SBTOFFSET 0))
	   (IRIS.SCRBUT1 (IPLUS IRIS.SBTOFFSET 1))
	   (IRIS.SCRBUT2 (IPLUS IRIS.SBTOFFSET 2))
	   (IRIS.SCRBUT3 (IPLUS IRIS.SBTOFFSET 3))
	   (IRIS.SCRBUT4 (IPLUS IRIS.SBTOFFSET 4))
	   (IRIS.SCRBUT5 (IPLUS IRIS.SBTOFFSET 5))
	   (IRIS.SCRBUT6 (IPLUS IRIS.SBTOFFSET 6))
	   (IRIS.SCRBUT7 (IPLUS IRIS.SBTOFFSET 7))
	   (IRIS.SCRBUT8 (IPLUS IRIS.SBTOFFSET 8))
	   (IRIS.SCRBUT9 (IPLUS IRIS.SBTOFFSET 9))
	   (IRIS.SCRBUT10 (IPLUS IRIS.SBTOFFSET 10))
	   (IRIS.SCRBUT11 (IPLUS IRIS.SBTOFFSET 11))
	   (IRIS.SCRBUT12 (IPLUS IRIS.SBTOFFSET 12))
	   (IRIS.SCRBUT13 (IPLUS IRIS.SBTOFFSET 13))
	   (IRIS.SCRBUT14 (IPLUS IRIS.SBTOFFSET 14))
	   (IRIS.SCRBUT15 (IPLUS IRIS.SBTOFFSET 15))
	   (IRIS.SCRBUT16 (IPLUS IRIS.SBTOFFSET 16)))
)



(* Valuators)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.SGIRESERVED
 (IPLUS 0 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL0
 (PLUS 1 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL1
 (PLUS 2 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL2
 (PLUS 3 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL3
 (PLUS 4 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL4
 (PLUS 5 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL5
 (PLUS 6 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL6
 (PLUS 7 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL7
 (PLUS 8 IRIS.VALOFFSET))

(RPAQ IRIS.DIAL8
 (PLUS 9 IRIS.VALOFFSET))

(RPAQ IRIS.MOUSEX
 (PLUS 10 IRIS.VALOFFSET))

(RPAQ IRIS.MOUSEY
 (PLUS 11 IRIS.VALOFFSET))

(RPAQ IRIS.LPENX
 (PLUS 12 IRIS.VALOFFSET))

(RPAQ IRIS.PLENY
 (PLUS 13 IRIS.VALOFFSET))

(RPAQ IRIS.NULLX
 (PLUS 14 IRIS.VALOFFSET))

(RPAQ IRIS.NULLY
 (PLUS 15 IRIS.VALOFFSET))

(CONSTANTS (IRIS.SGIRESERVED (IPLUS 0 IRIS.VALOFFSET))
	   (IRIS.DIAL0 (PLUS 1 IRIS.VALOFFSET))
	   (IRIS.DIAL1 (PLUS 2 IRIS.VALOFFSET))
	   (IRIS.DIAL2 (PLUS 3 IRIS.VALOFFSET))
	   (IRIS.DIAL3 (PLUS 4 IRIS.VALOFFSET))
	   (IRIS.DIAL4 (PLUS 5 IRIS.VALOFFSET))
	   (IRIS.DIAL5 (PLUS 6 IRIS.VALOFFSET))
	   (IRIS.DIAL6 (PLUS 7 IRIS.VALOFFSET))
	   (IRIS.DIAL7 (PLUS 8 IRIS.VALOFFSET))
	   (IRIS.DIAL8 (PLUS 9 IRIS.VALOFFSET))
	   (IRIS.MOUSEX (PLUS 10 IRIS.VALOFFSET))
	   (IRIS.MOUSEY (PLUS 11 IRIS.VALOFFSET))
	   (IRIS.LPENX (PLUS 12 IRIS.VALOFFSET))
	   (IRIS.PLENY (PLUS 13 IRIS.VALOFFSET))
	   (IRIS.NULLX (PLUS 14 IRIS.VALOFFSET))
	   (IRIS.NULLY (PLUS 15 IRIS.VALOFFSET)))
)



(* Timers)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.TIMER0
 (IPLUS IRIS.TIMOFFSET 0))

(RPAQ IRIS.TIMER1
 (IPLUS IRIS.TIMOFFSET 1))

(RPAQ IRIS.TIMER2
 (IPLUS IRIS.TIMOFFSET 2))

(RPAQ IRIS.TIMER3
 (IPLUS IRIS.TIMOFFSET 3))

(RPAQ IRIS.TIMER4
 (IPLUS IRIS.TIMOFFSET 4))

(RPAQ IRIS.TIMER5
 (IPLUS IRIS.TIMOFFSET 5))

(RPAQ IRIS.TIMER6
 (IPLUS IRIS.TIMOFFSET 6))

(RPAQ IRIS.TIMER7
 (IPLUS IRIS.TIMOFFSET 7))

(CONSTANTS (IRIS.TIMER0 (IPLUS IRIS.TIMOFFSET 0))
	   (IRIS.TIMER1 (IPLUS IRIS.TIMOFFSET 1))
	   (IRIS.TIMER2 (IPLUS IRIS.TIMOFFSET 2))
	   (IRIS.TIMER3 (IPLUS IRIS.TIMOFFSET 3))
	   (IRIS.TIMER4 (IPLUS IRIS.TIMOFFSET 4))
	   (IRIS.TIMER5 (IPLUS IRIS.TIMOFFSET 5))
	   (IRIS.TIMER6 (IPLUS IRIS.TIMOFFSET 6))
	   (IRIS.TIMER7 (IPLUS IRIS.TIMOFFSET 7)))
)



(* Misc devices)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.KEYBD
 (IPLUS 1 IRIS.KEYOFFSET))

(RPAQQ IRIS.CURSORX
 526)

(RPAQQ IRIS.CURSORY
 527)

(RPAQQ IRIS.VALMARK
 523)

(RPAQQ IRIS.GERROR
 524)

(RPAQQ IRIS.REDRAW
 528)

(RPAQQ IRIS.WMSEND
 529)

(RPAQQ IRIS.WMREPLY
 530)

(RPAQQ IRIS.WMGFCLOSE
 531)

(RPAQQ IRIS.WMTXCLOSE
 532)

(RPAQQ IRIS.MODECHANGE
 533)

(RPAQQ IRIS.INPUTCHANGE
 534)

(RPAQQ IRIS.QFULL
 535)

(CONSTANTS (IRIS.KEYBD (IPLUS 1 IRIS.KEYOFFSET))
	   (IRIS.CURSORX 526)
	   (IRIS.CURSORY 527)
	   (IRIS.VALMARK 523)
	   (IRIS.GERROR 524)
	   (IRIS.REDRAW 528)
	   (IRIS.WMSEND 529)
	   (IRIS.WMREPLY 530)
	   (IRIS.WMGFCLOSE 531)
	   (IRIS.WMTXCLOSE 532)
	   (IRIS.MODECHANGE 533)
	   (IRIS.INPUTCHANGE 534)
	   (IRIS.QFULL 535))
)
(* * get.h)





(* Values returned by IRIS.GETBUFFER)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.NEITHERBUFFER
 0)

(RPAQQ IRIS.BACKBUFFER
 1)

(RPAQQ IRIS.FRONTBUFFER
 2)

(RPAQQ IRIS.BOTHBUFFERS
 3)

(RPAQQ IRIS.NOBUFFER
 0)

(RPAQQ IRIS.BCKBUFFER
 1)

(RPAQQ IRIS.FRNTBUFFER
 2)

(CONSTANTS (IRIS.NEITHERBUFFER 0)
	   (IRIS.BACKBUFFER 1)
	   (IRIS.FRONTBUFFER 2)
	   (IRIS.BOTHBUFFERS 3)
	   (IRIS.NOBUFFER 0)
	   (IRIS.BCKBUFFER 1)
	   (IRIS.FRNTBUFFER 2))
)



(* Values returned by IRIS.GETCMMODE)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.MULTIMAP
 0)

(RPAQQ IRIS.ONEMAP
 1)

(RPAQQ IRIS.CMAPMULTI
 0)

(RPAQQ IRIS.CMAPONE
 1)

(CONSTANTS (IRIS.MULTIMAP 0)
	   (IRIS.ONEMAP 1)
	   (IRIS.CMAPMULTI 0)
	   (IRIS.CMAPONE 1))
)



(* Values returned by IRIS.GETDISPLAYMODE)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.RGBMODE
 0)

(RPAQQ IRIS.SINGLEBUFFER
 1)

(RPAQQ IRIS.DOUBLEBUFFER
 2)

(RPAQQ IRIS.DMRGB
 0)

(RPAQQ IRIS.DMSINGLE
 1)

(RPAQQ IRIS.DMDOUBLE
 2)

(CONSTANTS (IRIS.RGBMODE 0)
	   (IRIS.SINGLEBUFFER 1)
	   (IRIS.DOUBLEBUFFER 2)
	   (IRIS.DMRGB 0)
	   (IRIS.DMSINGLE 1)
	   (IRIS.DMDOUBLE 2))
)



(* Values returned by IRIS.GETDISPLAYMODE)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.HZ30
 0)

(RPAQQ IRIS.HZ60
 1)

(RPAQQ IRIS.NTSC
 2)

(RPAQQ IRIS.PAL
 2)

(RPAQQ IRIS.HZ50
 3)

(RPAQQ IRIS.MONA
 5)

(RPAQQ IRIS.MONB
 6)

(RPAQQ IRIS.MONC
 7)

(RPAQQ IRIS.MOND
 8)

(RPAQQ IRIS.MONSPECIAL
 16)

(CONSTANTS (IRIS.HZ30 0)
	   (IRIS.HZ60 1)
	   (IRIS.NTSC 2)
	   (IRIS.PAL 2)
	   (IRIS.HZ50 3)
	   (IRIS.MONA 5)
	   (IRIS.MONB 6)
	   (IRIS.MONC 7)
	   (IRIS.MOND 8)
	   (IRIS.MONSPECIAL 16))
)



(* Individual hit bits returned by IRIS.HITCODE)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.LEFTPLANE
 1)

(RPAQQ IRIS.RIGHTPLANE
 2)

(RPAQQ IRIS.BOTTOMPLANE
 4)

(RPAQQ IRIS.TOPPLANE
 8)

(RPAQQ IRIS.NEARPLANE
 16)

(RPAQQ IRIS.FARPLANE
 32)

(CONSTANTS (IRIS.LEFTPLANE 1)
	   (IRIS.RIGHTPLANE 2)
	   (IRIS.BOTTOMPLANE 4)
	   (IRIS.TOPPLANE 8)
	   (IRIS.NEARPLANE 16)
	   (IRIS.FARPLANE 32))
)
(* * constants for rotation)


(DECLARE: EVAL@COMPILE 

(RPAQ IRIS.XAXIS
 (CHARCODE X))

(RPAQ IRIS.YAXIS
 (CHARCODE Y))

(RPAQ IRIS.ZAXIS
 (CHARCODE Z))

(CONSTANTS (IRIS.XAXIS (CHARCODE X))
	   (IRIS.YAXIS (CHARCODE Y))
	   (IRIS.ZAXIS (CHARCODE Z)))
)
(* * Other stuff)





(* Approximate interval between retraces in milliseconds)


(DECLARE: EVAL@COMPILE 

(RPAQQ IRIS.RETRACEINTERVAL
 33.33333)

(CONSTANTS (IRIS.RETRACEINTERVAL 33.33333))
)
(PUTPROPS IRISCONSTANTS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP