v4.0/src/SELECT/PCEQUATE.INC

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;
   3 ; PCSCRRD option bit equates (SRD_OPT1)
   4 ;
   5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   6 SRD_INITIAL    EQU  0000000000000001B        ;AN000;initialize SCB and filespec buff
   7 SRD_READONE    EQU  0000000000000010B        ;AN000;read field specified by SRD_ID
   8 SRD_APPEND     EQU  0000000000000100B        ;AN000;match field ID are issued new ID
   9 SRD_READALL    EQU  0000000000001000B        ;AN000;read all FLDS in specified file
  10 SRD_ALLOCRES   EQU  0000000000010000B        ;AN000;allocate reserved PCSLCTP space
  11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  12 ;
  13 ; PCSCRRD error bit equates (SRD_ERROR)
  14 ;
  15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16 SRD_BUFSIZE    EQU  0000000000000001B        ;AN000;buffer size is too small
  17 SRD_NOFIELDS   EQU  0000000000000010B        ;AN000;file does not contain fields
  18 SRD_NOTCASFILE EQU  0000000000000100B        ;AN000;file object list does not exist
  19 SRD_FIELDSFULL EQU  0000000000001000B        ;AN000;max num FLDS read into SCB vect
  20 SRD_NOINITIAL  EQU  0000000000010000B        ;AN000;make initialize call first
  21 SRD_NOFIELDID  EQU  0000000000100000B        ;AN000;specified field ID not found
  22 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  23 ;
  24 ; PCHLPRD option bit equates (HRD_OPT1)
  25 ;
  26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  27 HRD_TOPIC      EQU  0000000000000001B         ;AN000;process help TOPIC(S) index
  28 HRD_TEXT       EQU  0000000000000010B         ;AN000;process HELP or ERROR text
  29 HRD_DISPID     EQU  0000000000000100B         ;AN000;display unique id on topic list
  30 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  31 ;
  32 ; PCHLPRD error bit equates (HRD_ERROR)
  33 ;
  34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  35 HRD_BUFSIZE    EQU  0000000000000001B         ;AN000;buffer size is too small
  36 HRD_NOHLPOBJ   EQU  0000000000000010B         ;AN000;file does not contain helps
  37 HRD_NOOBJLST   EQU  0000000000000100B         ;AN000;file object list does not exist
  38 HRD_NOHELPID   EQU  0000000000001000B         ;AN000;requested id was not found
  39 HRD_NOTCASFILE EQU  0000000000010000B         ;AN000;not a valid cas file
  40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41 ;
  42 ; PCSTRST equates
  43 ;
  44 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  45 SSC_TBSL       EQU  0000000000000001B        ;AN000;use two byte string length
  46 SSC_PTSB       EQU  0000000000000010B        ;AN000;pointer points to string buffer
  47 SSC_VTSAO      EQU  0000000000000100B        ;AN000;vector table is string addr only
  48 SSC_VTASO      EQU  0000000000001000B        ;AN000;vector table addr is seg:offset
  49 SSC_SLSB       EQU  0000000000010000B        ;AN000;string length is in string buffer
  50 SSC_SBTC       EQU  0000000000100000B        ;AN000;string buffer has term. character
  51 SSC_VTE        EQU  1                        ;AN000;error in vector table
  52 SSC_SBE        EQU  2                        ;AN000;error in string buffer
  53 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  54 ;
  55 ; PCSLCTP Option word one (SCB_OPT1)
  56 ;
  57 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  58 SCB_UC         EQU  0000000000000001B        ;AN000;upper case option
  59 SCB_WRAP       EQU  0000000000000010B        ;AN000;wrap option
  60 SCB_FRBF       EQU  0000000000000100B        ;AN000;force return before first option
  61 SCB_FRAL       EQU  0000000000001000B        ;AN000;force return after last option
  62 SCB_LL         EQU  0000000000010000B        ;AN000;lock line
  63 SCB_UKS        EQU  0000000000100000B        ;AN000;use keystroke
  64 SCB_RD         EQU  0000000001000000B        ;AN000;return after display option
  65 SCB_RUK        EQU  0000000010000000B        ;AN000;return unused keys option
  66 SCB_UI         EQU  0000000100000000B        ;AN000;use index option
  67 SCB_TRN        EQU  0000001000000000B        ;AN000;translate character
  68 SCB_MON        EQU  0000010000000000B        ;AN000;convert to upper case monocasing
  69 SCB_DBCS       EQU  0000100000000000B        ;AN000;check for double byte chars
  70 SCB_TBL        EQU  0001000000000000B        ;AN000;use given DBCS range table
  71 SCB_DCHECK     EQU  0010000000000000B        ;AN000;display check mark characters
  72 SCB_DACTIVE    EQU  0100000000000000B        ;AN000;display active string indicators
  73 SCB_DPOINT     EQU  1000000000000000B        ;AN000;display selection pointer string
  74 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  75 ;
  76 ; PCSLCTP Option word two (SCB_OPT2)
  77 ;
  78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  79 SCB_CS         EQU  0000000000000001B        ;AN000;clear screen on entry option
  80 SCB_ROTN       EQU  0000000000000010B        ;AN000;reset option to normal on return
  81 SCB_UET        EQU  0000000000000100B        ;AN000;use existing text option
  82 SCB_CFO        EQU  0000000000001000B        ;AN000;cursor follows option
  83 SCB_LCOX       EQU  0000000000010000B        ;AN000;leave cursor on exit
  84 SCB_IPAGE      EQU  0000000000100000B        ;AN000;instant paging
  85 SCB_PM1        EQU  0000000001000000B        ;AN000;paging is minus one line
  86 SCB_UIND       EQU  0000000010000000B        ;AN000;display up, dn, lf, rg indicators
  87 SCB_UNCA       EQU  0000000100000000B        ;AN000;use normal color array
  88 SCB_DYN        EQU  0000001000000000B        ;AN000;option array is dynamicly created
  89 SCB_LANDR      EQU  0000010000000000B        ;AN000;left and right scrolling active
  90 SCB_CPHY       EQU  0000100000000000B        ;AN000;color array is physical attributs
  91 SCB_NUML       EQU  0001000000000000B        ;AN000;generate num list in opt strings
  92 SCB_SKIP       EQU  0010000000000000B        ;AN000;skip inactive option strings
  93 SCB_SHIGH      EQU  0100000000000000B        ;AN000;highlight the selected opt strgs
  94 SCB_AHIGH      EQU  1000000000000000B        ;AN000;highlight the active option strgs
  95 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  96 ;
  97 ; PCSLCTP Option word three (SCB_OPT3)
  98 ;
  99 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 100 SCB_SELACT     EQU  0000000000000001B        ;AN000;allow selection of inactive elem
 101 SCB_SELEXC     EQU  0000000000000010B        ;AN000;exclusive selection of one elemet
 102 SCB_EXCSING    EQU  0000000000000100B        ;AN000;one element is always selected
 103 SCB_NUMUIND    EQU  0000000000001000B        ;AN000;display line number count
 104 SCB_CHIGH      EQU  0000000000010000B        ;AN000;hilight cursored and selected stg
 105 SCB_NUMS       EQU  0000000000100000B        ;AN000;auto 0-9 number selection
 106 SCB_FINDE      EQU  0000000001000000B        ;AN000;auto character search
 107 SCB_RELUIND    EQU  0000000010000000B        ;AN000;rel row/col used w/dirct indicato
 108 SCB_RELSCR     EQU  0000000100000000B        ;AN000;rel row/col used w/scroll field
 109 SCB_LVBOVR     EQU  0000001000000000B        ;AN000;use video buffer seg:off override
 110 SCB_FM         EQU  0000010000000000B        ;AN000;make call to dynamic format rout
 111 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 112 ;
 113 ; PCSLCTP Select Array Option (SCB_SELSEG:SCB_SELOFF)
 114 ;
 115 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 116 SCB_SELECTON   EQU  0000000000000001B        ;AN000;element selected
 117 SCB_ACTIVEON   EQU  0000000000000010B        ;AN000;element active
 118 SCB_SKIPON     EQU  0000000000000100B        ;AN000;element should be skipped
 119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 120 ;
 121 ; PCINCHA option equates (INC_OPT)
 122 ;
 123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 124 INC_KWAIT      EQU  0000000000000001B        ;keystroke
 125 INC_UTRAN      EQU  0000000000000010B        ;translate keys using user table
 126 INC_UDBCS      EQU  0000000000000100B        ;DBCS processed using user table
 127 INC_DDBCS      EQU  0000000000001000B        ;DBCS processed using DOS table
 128 INC_UMONO      EQU  0000000000010000B        ;monocase keys using user table
 129 INC_AMONO      EQU  0000000000100000B        ;monocase keys using USA algorithm
 130 INC_RSCAN      EQU  0000000001000000B        ;return scan codes for norm chars
 131 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 132 ;
 133 ; PCINCHA option equates (INC_STAT)
 134 ;
 135 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 136 INC_KFND       EQU  0000000000000001B        ;AN000;character found in buffer
 137 INC_DBCS       EQU  0000000000000010B        ;AN000;character found is double byte
 138 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 139 ;
 140 ; PCCLRRD error bit equates (CRD_ERROR)
 141 ;
 142 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 143 CRD_BUFSIZE     EQU  0000000000000001B       ;AN000;buffer size is too small
 144 CRD_NOCOLORS    EQU  0000000000000010B       ;AN000;file does not contain colors
 145 CRD_NOTCASFILE  EQU  0000000000000100B       ;AN000;file object list does not exist
 146 CRD_IDNOTFOUND  EQU  0000000000001000B       ;AN000;color index ID not found
 147 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 148 ;
 149 ; PCPANRD option bit equates (PRD_OPT1)
 150 ;
 151 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 152 PRD_INITIAL    EQU  0000000000000001B        ;AN000;initialize PCB and filespec buff
 153 PRD_READONE    EQU  0000000000000010B        ;AN000;read pan specified by PRD_ID
 154 PRD_APPEND     EQU  0000000000000100B        ;AN000;match pans ID are issued new ID
 155 PRD_READALL    EQU  0000000000001000B        ;AN000;read all pans in specified file
 156 PRD_SIZEMALL   EQU  0000000000010000B        ;AN000;reserve space for panel sizing
 157 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 158 ;
 159 ; PCPANRD error bit equates (PRD_ERROR)
 160 ;
 161 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 162 PRD_BUFSIZE    EQU  0000000000000001B        ;AN000;buffer size is too small
 163 PRD_NOPANELS   EQU  0000000000000010B        ;AN000;file does not contain panels
 164 PRD_NOTCASFILE EQU  0000000000000100B        ;AN000;file object list does not exist
 165 PRD_PANELSFULL EQU  0000000000001000B        ;AN000;max num pans read into PCB vect
 166 PRD_NOINITIAL  EQU  0000000000010000B        ;AN000;make initialize call first
 167 PRD_NOPANELID  EQU  0000000000100000B        ;AN000;specified panel ID not found
 168 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 169 ;
 170 ; PCDISPQ option equates (QM_OPT1)
 171 ;
 172 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 173 QM_INIT        EQU  0000000000000001B        ;AN000;Initialize working buffer
 174 QM_PUSHCHD     EQU  0000000000000010B        ;AN000;Add child number
 175 QM_RVMCHD      EQU  0000000000000100B        ;AN000;Remove specific child number
 176 QM_POPCHD      EQU  0000000000001000B        ;AN000;Pop (n) number of child cur queue
 177 QM_PUSHPAN     EQU  0000000000010000B        ;AN000;Add panel number
 178 QM_RVMPAN      EQU  0000000000100000B        ;AN000;Remove specific panel number
 179 QM_POPPAN      EQU  0000000001000000B        ;AN000;Pop (n) number of panls cur queue
 180 QM_PUSHCQU     EQU  0000000010000000B        ;AN000;Push current child queue
 181 QM_POPCQU      EQU  0000000100000000B        ;AN000;Pop last child queue
 182 QM_PUSHPQU     EQU  0000001000000000B        ;AN000;Push current panel queue
 183 QM_POPPQU      EQU  0000010000000000B        ;AN000;Pop last panel queue pushed
 184 QM_CLSCHD      EQU  0000100000000000B        ;AN000;Clear current child queue.
 185 QM_CLSPAN      EQU  0001000000000000B        ;AN000;Clear current panel queue.
 186 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 187 ; PCDISPQ option equates (QM_OPT2)
 188 ;
 189 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 190 QM_BREAKON     EQU  0000000000000001B        ;AN000;break option is on
 191 QM_BREAKOFF    EQU  0000000000000010B        ;AN000;break option is off
 192 QM_SRFON       EQU  0000000000000100B        ;AN000;selected refresh option is on
 193 QM_SRFOFF      EQU  0000000000001000B        ;AN000;selected refresh option is off
 194 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 195 ;
 196 ; PCDISPQ error equates (QM_ERROR)
 197 ;
 198 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 199 QM_ERRMP       EQU  0000000000000001B        ;AN000;max number of panels added
 200 QM_ERRMC       EQU  0000000000000010B        ;AN000;max number of childs added
 201 QM_ERRMPQ      EQU  0000000000000100B        ;AN000;max number of panel queues pushed
 202 QM_ERRMCQ      EQU  0000000000001000B        ;AN000;max number of child queues pushed
 203 QM_ERROP       EQU  0000000000010000B        ;AN000;max number of panel queues popped
 204 QM_ERROC       EQU  0000000000100000B        ;AN000;max number of child queues popped
 205 QM_ERRBU       EQU  0000000001000000B        ;AN000;inadequate buffer size avail
 206 QM_ERRPN       EQU  0000000010000000B        ;AN000;specified panel not found
 207 QM_ERRCN       EQU  0000000100000000B        ;AN000;specified child not found
 208 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 209 ;
 210 ; PCPANEL option bit equates (PM_OPT1)
 211 ;
 212 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 213 PM_RF          EQU  0000000000000001B        ;AN000;do not refresh display
 214 PM_SRF         EQU  0000000000000010B        ;AN000;selective PVB refresh from LVB
 215 PM_BK          EQU  0000000000000100B        ;AN000;panel break function active
 216 PM_CL          EQU  0000000000001000B        ;AN000;initialize LVB to base char/attr
 217 PM_DOA         EQU  0000000000010000B        ;AN000;display childs in active parent
 218 PM_DOV         EQU  0000000000100000B        ;AN000;use child row, col, color overrid
 219 PM_DOQ         EQU  0000000001000000B        ;AN000;disp all child in parent chd tabl
 220 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 221 ;
 222 ; PCPANEL error equates for (PM_ERROR)
 223 ;
 224 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 225 PM_PANPDQ      EQU  0000000000000001B        ;AN000;invalid parent PDQ or start num
 226 PM_PCBVEC      EQU  0000000000000010B        ;AN000;invalid PCB vector entry found
 227 PM_UNKNPANS    EQU  0000000000000100B        ;AN000;unknown panel source found
 228 PM_CHDTAB      EQU  0000000000001000B        ;AN000;set error with child table
 229 PM_COLORX      EQU  0000000000010000B        ;AN000;panel's color index out of range
 230 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 231 ;
 232 ; PCPANEL Parent and Child Display Queue option bit equates (PT_OPT)
 233 ;
 234 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 235 PT_BK          EQU  0000000000000001B        ;AN000;panel break on
 236 PT_SRF         EQU  0000000000000010B        ;AN000;selective refresh of panel to PVB
 237 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 238 ;
 239 ; PCPANEL Panel Control Block option equates for individual panels (PCB_OPT1)
 240 ;
 241 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 242 PCB_CRE        EQU  0000000000000001B        ;AN000;Create panel from scratch
 243 PCB_CMP        EQU  0000000000000010B        ;AN000;Use compress text form in memory
 244 PCB_EXP        EQU  0000000000000100B        ;AN000;Use expanded text form in memory
 245 PCB_MXP        EQU  0000000000001000B        ;AN000;Use mixed text/attr form in memoy
 246 PCB_LB         EQU  0000000000010000B        ;AN000;Use logical border
 247 PCB_ASZ        EQU  0000000000100000B        ;AN000;Allow sizing of panel
 248 PCB_ASC        EQU  0000000001000000B        ;AN000;Allow scrolling of panel
 249 PCB_LAB        EQU  0000000010000000B        ;AN000;Use the defined panel label
 250 PCB_DTB        EQU  0000000100000000B        ;AN000;Draw top border (graphics only)
 251 PCB_DBB        EQU  0000001000000000B        ;AN000;Draw bottom border (graphic only)
 252 PCB_DLB        EQU  0000010000000000B        ;AN000;Draw left border (graphics only)
 253 PCB_DRB        EQU  0000100000000000B        ;AN000;Draw right border (graphics only)
 254 PCB_DSHADOW    EQU  0001000000000000B        ;AN000;Draw shadow (graphics only)
 255 PCB_PELCOORD   EQU  0010000000000000B        ;AN000;row/col in pel coordinates (grap)
 256 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 257 ;
 258 ; PCINSTR option bit equates (INS_OPT)
 259 ;
 260 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 261 INS_FKS        EQU  0000000000000001B        ;AN000;find keystroke
 262 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 263 ;
 264 ; PCGVIDO Status equates (GV_STAT1)
 265 ;
 266 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 267 GV_TV          EQU  0000000000000001B        ;AN000;TopView is present
 268 GV_CGA         EQU  0000000000000010B        ;AN000;CGA is present
 269 GV_EGA         EQU  0000000000000100B        ;AN000;EGA is present
 270 GV_PGA         EQU  0000000000001000B        ;AN000;PGA is present
 271 GV_MGA         EQU  0000000000010000B        ;AN000;MGA is present
 272 GV_EGAA        EQU  0000000000100000B        ;AN000;EGA is active card
 273 GV_CGAA        EQU  0000000001000000B        ;AN000;CGA is active card
 274 GV_EGACM       EQU  0000000010000000B        ;AN000;EGA is set to monochrome
 275 GV_PGAEM       EQU  0000000100000000B        ;AN000;PGA is in color emulation mode
 276 GV_HS          EQU  0000001000000000B        ;AN000;display requires sync check 1=Y
 277 GV_64K         EQU  0000010000000000B        ;AN000; 64K memory on EGA card
 278 GV_128K        EQU  0000100000000000B        ;AN000;128K memory on EGA card
 279 GV_192K        EQU  0001000000000000B        ;AN000;192K memory on EGA card
 280 GV_256K        EQU  0010000000000000B        ;AN000;256K memory on EGA card
 281 GV_UM          EQU  0100000000000000B        ;AN000;error unknown moniter or config
 282 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 283 ;
 284 ; PCGVIDO Status equates (GV_STAT2)
 285 ;
 286 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 287 GV_TVW         EQU  0000000000000001B        ;AN000;App is 'well behaved' under TV
 288 GV_P5140       EQU  0000000000000010B        ;AN000;P12 with LCD
 289 GV_P5153       EQU  0000000000000100B        ;AN000;P12 with color
 290 GV_P5151       EQU  0000000000001000B        ;AN000;P12 with monochrome
 291 GV_COLOR       EQU  0000000000010000B        ;AN000;color mode
 292 GV_TEXTGRAPH   EQU  0000000000100000B        ;AN000;graphics mode
 293 GV_MONOP       EQU  0000000001000000B        ;AN000;monochrome adapter is primary
 294 GV_CGAP        EQU  0000000010000000B        ;AN000;CGA adapter is primary card
 295 GV_EGAP        EQU  0000000100000000B        ;AN000;EGA adapter is primary card
 296 GV_TURBOP      EQU  0000001000000000B        ;AN000;Turbo graphics adapter is primary
 297 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 298 ;
 299 ; PCINPUT option equates.
 300 ;
 301 ;
 302 ; PCINPUT Option equates (IN_OPT)
 303 ;
 304 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 305 IN_UTRAN       EQU  0000000000000001B        ;AN000;translate keys using user table
 306 IN_ADBCS       EQU  0000000000000010B        ;AN000;DBCS option active
 307 IN_UDBCS       EQU  0000000000000100B        ;AN000;DBCS processed using user table
 308 IN_DDBCS       EQU  0000000000001000B        ;AN000;DBCS processed using DOS table
 309 IN_UMONO       EQU  0000000000010000B        ;AN000;monocase keys using user table
 310 IN_AMONO       EQU  0000000000100000B        ;AN000;monocase keys using USA algorithm
 311 IN_LICBX       EQU  0000000001000000B        ;AN000;load ICB off:seg and exit
 312 IN_LVBOV       EQU  0000000010000000B        ;AN000;use video buffer seg:off override
 313                                              ;
 314 IN_RANG        EQU  0000000000000001B        ;AN000;ICB ID out of vector range
 315 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 316 ;
 317 ; Input Field Control Block Equates
 318 ;
 319 ; ICB_OPT1  Option word one equates
 320 ;
 321 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 322 ICB_ECL         EQU  0000000000000001B        ;AN000;set specified color on entry
 323 ICB_XCL         EQU  0000000000000010B        ;AN000;set specified color on exit
 324 ICB_USC         EQU  0000000000000100B        ;AN000;use color attribute string
 325 ICB_BEN         EQU  0000000000001000B        ;AN000;display entry delimiters
 326 ICB_BEX         EQU  0000000000010000B        ;AN000;display exit delimiters
 327 ICB_BOX         EQU  0000000000100000B        ;AN000;display border delimiters
 328 ICB_MUS         EQU  0000000001000000B        ;AN000;plus and minus display active
 329 ICB_SMU         EQU  0000000010000000B        ;AN000;starting default is negative
 330 ICB_OUT         EQU  0000000100000000B        ;AN000;display default and accept input
 331 ICB_CLR         EQU  0000001000000000B        ;AN000;clear default on first entry
 332 ICB_PSW         EQU  0000010000000000B        ;AN000;password
 333 ICB_RJU         EQU  0000100000000000B        ;AN000;right justification is activated
 334 ICB_SWK         EQU  0001000000000000B        ;AN000;switch entry dir key active
 335 ICB_RTA         EQU  0010000000000000B        ;AN000;right arrow editing
 336 ICB_LFA         EQU  0100000000000000B        ;AN000;left arrow editing
 337 ICB_BKS         EQU  1000000000000000B        ;AN000;backspace editing
 338 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 339 ;
 340 ; ICB_OPT2  Option word two equates
 341 ;
 342 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 343 ICB_INS         EQU  0000000000000001B        ;AN000;insert key editing
 344 ICB_DEL         EQU  0000000000000010B        ;AN000;delete key editing
 345 ICB_HOM         EQU  0000000000000100B        ;AN000;home key editing
 346 ICB_CTE         EQU  0000000000001000B        ;AN000;control + end key editing
 347 ICB_END         EQU  0000000000010000B        ;AN000;end key editing
 348 ICB_AXC         EQU  0000000000100000B        ;AN000;auto enter on cursor
 349 ICB_AXD         EQU  0000000001000000B        ;AN000;auto enter on data
 350 ICB_CSW         EQU  0000000010000000B        ;AN000;wrap the cursor end to end
 351 ICB_UPC         EQU  0000000100000000B        ;AN000;lower case to upper conversion
 352 ICB_UFK         EQU  0000001000000000B        ;AN000;use supplied keystroke as 1 key
 353 ICB_UDO         EQU  0000010000000000B        ;AN000;undo key replaces default
 354 ICB_TSD         EQU  0000100000000000B        ;AN000;thousands separators during inpu
 355 ICB_TSA         EQU  0001000000000000B        ;AN000;thousands separators after entry
 356 ICB_TSR         EQU  0010000000000000B        ;AN000;return thousand separators
 357 ICB_PAD         EQU  0100000000000000B        ;AN000;pad zeros to precision
 358 ICB_WRP         EQU  1000000000000000B        ;AN000;word wrap in windowed field
 359 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 360 ;
 361 ; ICB_OPT3  Option word three equates
 362 ;
 363 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 364 ICB_WIN        EQU  0000000000000001B        ;AN000;windowing wrap of field
 365 ICB_WAE        EQU  0000000000000010B        ;AN000;up and down arrow editing
 366 ICB_TBX        EQU  0000000000000100B        ;AN000;exit if arrows reach top/bottom
 367 ICB_HOR        EQU  0000000000001000B        ;AN000;horizontial windowing
 368 ICB_WHM        EQU  0000000000010000B        ;AN000;full window Home key
 369 ICB_WEN        EQU  0000000000100000B        ;AN000;full window End key
 370 ICB_WCE        EQU  0000000001000000B        ;AN000;full window Ctrl-End key
 371 ICB_WDL        EQU  0000000010000000B        ;AN000;full window Delete key
 372 ICB_WAR        EQU  0000000100000000B        ;AN000;full window arrow keys
 373 ICB_WBS        EQU  0000001000000000B        ;AN000;full window backspace key
 374 ICB_FGS        EQU  0000010000000000B        ;AN000;use the ICB_STATUS status values
 375 ICB_SCR        EQU  0000100000000000B        ;AN000;display of scroll flag active
 376 ICB_NUM        EQU  0001000000000000B        ;AN000;display of numlock flag active
 377 ICB_CAP        EQU  0010000000000000B        ;AN000;display of caps flag active
 378 ICB_FIN        EQU  0100000000000000B        ;AN000;display of insert flag active
 379 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 380 ;
 381 ; ICB_STATUS status word equates
 382 ;
 383 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 384 ICB_SDEF       EQU  0000000000000001B        ;AN000;default value changed
 385 ICB_SMUS       EQU  0000000000000010B        ;AN000;minus sign active
 386 ICB_SPUS       EQU  0000000000000100B        ;AN000;plus sign active
 387 ICB_STRU       EQU  0000000000001000B        ;AN000;default value was truncated
 388 ICB_SSCR       EQU  0000000000010000B        ;AN000;scroll lock flag on at exit/entry
 389 ICB_SNUM       EQU  0000000000100000B        ;AN000;num lock flag on at exit/entry
 390 ICB_SCAP       EQU  0000000001000000B        ;AN000;caps lock flag on at exit/entry
 391 ICB_SINS       EQU  0000000010000000B        ;AN000;insert flag on at exit/entry
 392 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 393 ;
 394 ; PCWWRAP option bit equates (WWP_OPT1)
 395 ;
 396 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 397 WWP_LEFTJUST   EQU  0000000000000001B        ;AN000;process with left straight edge
 398 WWP_RIGHTJUST  EQU  0000000000000010B        ;AN000;process with right straight edge
 399 WWP_LEFTNRIGHT EQU  0000000000000100B        ;AN000;process with left and right edge
 400 WWP_HYPHEN     EQU  0000000000001000B        ;AN000;hyphenate word(s)
 401 WWP_DESTBUFFER EQU  0000000000010000B        ;AN000;Use specified destination buffer
 402 WWP_SRCBUFFER  EQU  0000000000100000B        ;AN000;Use the same buf as the text
 403 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 404 ;
 405 ; PCWWRAP error bit equates (WWP_ERROR)
 406 ;
 407 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 408 WWP_BUFSIZE    EQU  0000000000000001B        ;AN000;buffer size is too small
 409 WWP_DUPSYMBOL  EQU  0000000000000010B        ;AN000;WWP_HYSMBOL and WWP_SRCHYSMB
 410                                              ; are set to same character
 411 WWP_LONGWORD   EQU  0000000000000100B        ;AN000;word is longer than WWP_WIDTH
 412 WWP_NOBUFFER   EQU  0000000000001000B        ;AN000;no address to src or dest buf
 413 WWP_NOJUSTOPT  EQU  0000000000010000B        ;AN000;no justification option was set
 414 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 415 ;
 416 ; Help options (WR_HLPOPT, WR_HLPPAN, WR_HLPDIS)
 417 ;
 418 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 419 HLP_CONT       EQU  0000000000000001B        ;AN000;contextual help
 420 HLP_KEYS       EQU  0000000000000010B        ;AN000;keys help
 421 HLP_HELP       EQU  0000000000000100B        ;AN000;help-on-help
 422 HLP_INDX       EQU  0000000000001000B        ;AN000;help index
 423 HLP_OVER       EQU  0000000000010000B        ;AN000;help row and column overrides
 424 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 425 ;
 426 ; Internal equates
 427 ;
 428 ;
 429 ; Internal keystroke equates
 430 ;
 431 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 432 UPARROW        EQU  72*256                   ;AN000;up arrow
 433 DNARROW        EQU  80*256                   ;AN000;down arrow
 434 LFARROW        EQU  75*256                   ;AN000;left arrow
 435 RTARROW        EQU  77*256                   ;AN000;right arrow
 436 PGUP           EQU  73                       ;AN000;
 437 PGDN           EQU  81                       ;AN000;
 438 ESCAPE         EQU  27                       ;AN000;
 439 ENTER          EQU  13                       ;AN000;
 440 SPACE          EQU  32                       ;AN000;
 441 TAB            EQU   9                       ;AN000;
 442 F1             EQU  59                       ;AN000;
 443 F2             EQU  60                       ;AN000;
 444 F3             EQU  61                       ;AN000;
 445 F4             EQU  62                       ;AN000;
 446 F5             EQU  63                       ;AN000;
 447 F6             EQU  64                       ;AN000;
 448 F7             EQU  65                       ;AN000;
 449 F8             EQU  66                       ;AN000;
 450 F9             EQU  67                       ;AN000;
 451 F10            EQU  68                       ;AN000;