v4.0/src/SELECT/SEL-PAN.INC

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;
   3 ;
   4 ;       SEL-PAN.INC
   5 ;
   6 ;
   7 FALSE = 0
   8
   9 ;
  10 ;  Dialog Equates
  11 ;
  12 ;  These values will eventually be defined by the dialog.
  13 ;
  14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  15 .XLIST                          ;AN000;
  16 LEFT_COL        EQU     8       ;AN000;
  17 SCR_CONT       EQU  1           ;AN000;contextual helps
  18 SCR_INDX       EQU  2           ;AN000;indexed helps
  19 SCR_MAIN       EQU  3           ;AN000;main menu
  20 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21 ;
  22 ; Help ID equates
  23 ;
  24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  25 HCB_KEYS       EQU  1           ;AN000;help on keys text
  26 HCB_HELP       EQU  2           ;AN000;help on help text
  27 HCB_MAIN       EQU  3           ;AN000;main menu help text
  28 HCB_SAMP       EQU  4           ;AN000;sample application help text
  29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30 ;
  31 ; Color index record equates
  32 ;
  33 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34 WHITE_BLUE      EQU     1       ;AN000;
  35 BLACK_WHITE     EQU     4       ;AN000;
  36 WHITE_RED       EQU     5       ;AN000;
  37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  38 ;
  39 ; Color ID equates
  40 ;
  41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42 CLR_CLR         EQU  1          ;AN000;shipped text mode color index
  43 CLR_MON         EQU  2          ;AN000;shipped monochrome color index
  44 CLR_USE         EQU  3          ;AN000;user color index
  45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  46 ;
  47 ; Sound equates
  48 ;
  49 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  50 SND_DURA        EQU  10000      ;AN000;duration of error beep
  51 SND_FREQ        EQU  440        ;AN000;frequency of error beep
  52 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  53 ;
  54 ; Size equates
  55 ;
  56 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  57 MAX_MEMPAR      EQU  4000       ;AN000;size of buffer in 16 byte paraghp
  58 MAX_RETKSZ      EQU  512        ;AN000;max # of bytes in return key buff
  59 MAX_HELPSZ      EQU  5000       ;AN000;max # of bytes in help text buff
  60 MAX_PANNUM      EQU  98         ;AN000;max num of panels possible in mem
  61 MAX_SCRNUM      EQU  28         ;AN000;max num of scroll possible in mem
  62 MAX_CHDQUE      EQU  5          ;AN000;max # of child queues to save
  63 MAX_PANQUE      EQU  4          ;AN000;max # of panel queues to save
  64 MAX_NUMCHD      EQU  11         ;AN000;max # of parent panels queued
  65 MAX_NUMPAN      EQU  10         ;AN000;max # of child panels queued
  66 MAX_CLRECD      EQU  12         ;AN000;num of bytes per PCPANEL color rc
  67 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  68 ;
  69 ; Keystroke equates
  70 ;
  71 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  72 KEY_HELP        EQU  3B00H      ;AN000;F1=Help
  73 KEY_SWIT        EQU  3C00H      ;AN000;F2=Switch
  74 KEY_INDX        EQU  3F00H      ;AN000;F5=Index
  75 KEY_KEYS        EQU  4000H      ;AN000;F7=Keys
  76 KEY_SELT        EQU  000DH      ;AN000;Enter
  77 KEY_QUIT        EQU  001BH      ;AN000;Esc=Quit
  78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  79 ;
  80 ; PCPANWR equates
  81 ;
  82 ;
  83 ; PCPANWR option bit equates (PWR_OPT1)
  84 ;
  85 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  86 PWR_WRITEONE   EQU  0000000000000001B        ;AN000;write pan specified by PWR_ID
  87 PWR_WRITEALL   EQU  0000000000000010B        ;AN000;write all pans to specified file
  88 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  89 ;
  90 ; PCPANWR error bit equates (PWR_ERROR)
  91 ;
  92 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  93 PWR_BUFSIZE    EQU  0000000000000001B        ;AN000;buffer size is too small
  94 PWR_NOPANELS   EQU  0000000000000010B        ;AN000;file does not contain panels
  95 PWR_NOTCASFILE EQU  0000000000000100B        ;AN000;CAS file obj list does not exist
  96 PWR_PANELSFULL EQU  0000000000001000B        ;AN000;panel vector is full
  97 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  98 ;
  99 ; PCPANEL equates
 100 ;
 101 ;
 102 ; PCPANEL option bit equates (PM_OPT1)
 103 ;
 104 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 105 PM_RF          EQU  0000000000000001B        ;AN000;do not refresh display
 106 PM_SRF         EQU  0000000000000010B        ;AN000;selective PVB refresh from LVB
 107 PM_BK          EQU  0000000000000100B        ;AN000;panel break function active
 108 PM_CL          EQU  0000000000001000B        ;AN000;initialize LVB to base char/attr
 109 PM_DOA         EQU  0000000000010000B        ;AN000;display childs in active parent
 110 PM_DOV         EQU  0000000000100000B        ;AN000;use child row, col, color overrid
 111 PM_DOQ         EQU  0000000001000000B        ;AN000;disp all child in parent chd tabl
 112 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 113 ;
 114 ; PCPANEL error equates for (PM_ERROR)
 115 ;
 116 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 117 PM_PANPDQ      EQU  0000000000000001B        ;AN000;invalid parent PDQ or start num
 118 PM_PCBVEC      EQU  0000000000000010B        ;AN000;invalid PCB vector entry found
 119 PM_UNKNPANS    EQU  0000000000000100B        ;AN000;unknown panel source found
 120 PM_CHDTAB      EQU  0000000000001000B        ;AN000;set error with child table
 121 PM_COLORX      EQU  0000000000010000B        ;AN000;panel's color index out of range
 122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 123 ;
 124 ; PCPANEL Parent and Child Display Queue option bit equates (PT_OPT)
 125 ;
 126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 127 PT_BK          EQU  0000000000000001B        ;AN000;panel break on
 128 PT_SRF         EQU  0000000000000010B        ;AN000;selective refresh of panel to PVB
 129 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 130 ;
 131 ; PCPANEL Panel Control Block option equates for individual panels (PCB_OPT1)
 132 ;
 133 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 134 PCB_CRE        EQU  0000000000000001B        ;AN000;Create panel from scratch
 135 PCB_CMP        EQU  0000000000000010B        ;AN000;Use compress text form in memory
 136 PCB_EXP        EQU  0000000000000100B        ;AN000;Use expanded text form in memory
 137 PCB_MXP        EQU  0000000000001000B        ;AN000;Use mixed text/attr form in memoy
 138 PCB_LB         EQU  0000000000010000B        ;AN000;Use logical border
 139 PCB_ASZ        EQU  0000000000100000B        ;AN000;Allow sizing of panel
 140 PCB_ASC        EQU  0000000001000000B        ;AN000;Allow scrolling of panel
 141 PCB_LAB        EQU  0000000010000000B        ;AN000;Use the defined panel label
 142 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 143 ;
 144 ; PCPANEL Child information table option equates (CHILD_OPT)
 145 ;
 146 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 147 CHD_ABS        EQU  0000000000000001B        ;AN000;calc child pan pos from scr corne
 148 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 149 ;
 150 ; PCCLRWR equates
 151 ;
 152 ; PCCLRWR error bit equates (CWR_ERROR)
 153 ;
 154 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 155 CWR_BUFSIZE    EQU  0000000000000001B        ;AN000;buffer size is too small
 156 CWR_NOCOLORS   EQU  0000000000000010B        ;AN000;file does not contain colors
 157 CWR_NOTCASFILE EQU  0000000000000100B        ;AN000;file object list does not exist
 158 CWR_COLORSFULL EQU  0000000000001000B        ;AN000;color vector is full
 159 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 160 ;
 161 ; PCSCRWR equates
 162 ;
 163 ;
 164 ; PCSCRWR option bit equates (SWR_OPT1)
 165 ;
 166 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 167 SWR_WRITEONE   EQU  0000000000000001B        ;AN000;write pan specified by SWR_ID
 168 SWR_WRITEALL   EQU  0000000000000010B        ;AN000;write all pans to specified file
 169 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 170 ;
 171 ; PCSCRWR error bit equates (SWR_ERROR)
 172 ;
 173 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 174 SWR_BUFSIZE    EQU  0000000000000001B        ;AN000;buffer size is too small
 175 SWR_NOFIELDS   EQU  0000000000000010B        ;AN000;file does not contain fields
 176 SWR_NOTCASFILE EQU  0000000000000100B        ;AN000;file object list does not exist
 177 SWR_FIELDSFULL EQU  0000000000001000B        ;AN000;field vector is full
 178 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 179 ;
 180 ; PCSTRST equates
 181 ;
 182 ; PCSTRST equates
 183 ;
 184 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 185 SSC_TBSL       EQU  0000000000000001B        ;AN000;use two byte string length
 186 SSC_PTSB       EQU  0000000000000010B        ;AN000;pointer points to string buffer
 187 SSC_VTSAO      EQU  0000000000000100B        ;AN000;vector table is string addr only
 188 SSC_VTASO      EQU  0000000000001000B        ;AN000;vector table addr is seg:offset
 189 SSC_SLSB       EQU  0000000000010000B        ;AN000;string length is in string buffer
 190 SSC_SBTC       EQU  0000000000100000B        ;AN000;string buffer has term. character
 191 SSC_VTE        EQU  1                        ;AN000;error in vector table
 192 SSC_SBE        EQU  2                        ;AN000;error in sting buffer
 193 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 194 ;
 195 ; PCSLCTP equates
 196 ;
 197 ; PCSLCTP Option word one (SCB_OPT1)
 198 ;
 199 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 200 SCB_UC         EQU  0000000000000001B        ;AN000;upper case option
 201 SCB_WRAP       EQU  0000000000000010B        ;AN000;wrap option
 202 SCB_FRBF       EQU  0000000000000100B        ;AN000;force return before first option
 203 SCB_FRAL       EQU  0000000000001000B        ;AN000;force return after last option
 204 SCB_LL         EQU  0000000000010000B        ;AN000;lock line
 205 SCB_UKS        EQU  0000000000100000B        ;AN000;use keystroke
 206 SCB_RD         EQU  0000000001000000B        ;AN000;return after display option
 207 SCB_RUK        EQU  0000000010000000B        ;AN000;return unused keys option
 208 SCB_UI         EQU  0000000100000000B        ;AN000;use index option
 209 SCB_TRN        EQU  0000001000000000B        ;AN000;translate character
 210 SCB_MON        EQU  0000010000000000B        ;AN000;convert to upper case monocasing
 211 SCB_DBCS       EQU  0000100000000000B        ;AN000;check for double byte chars
 212 SCB_TBL        EQU  0001000000000000B        ;AN000;use given DBCS range table
 213 SCB_DCHECK     EQU  0010000000000000B        ;AN000;display check mark characters
 214 SCB_DACTIVE    EQU  0100000000000000B        ;AN000;display active string indicators
 215 SCB_DPOINT     EQU  1000000000000000B        ;AN000;display selection pointer string
 216 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 217 ;
 218 ; PCSLCTP Option word two (SCB_OPT2)
 219 ;
 220 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 221 SCB_CS         EQU  0000000000000001B        ;AN000;clear screen on entry option
 222 SCB_ROTN       EQU  0000000000000010B        ;AN000;reset option to normal on return
 223 SCB_UET        EQU  0000000000000100B        ;AN000;use existing text option
 224 SCB_CFO        EQU  0000000000001000B        ;AN000;cursor follows option
 225 SCB_LCOX       EQU  0000000000010000B        ;AN000;leave cursor on exit
 226 SCB_IPAGE      EQU  0000000000100000B        ;AN000;instant paging
 227 SCB_PM1        EQU  0000000001000000B        ;AN000;paging is minus one line
 228 SCB_UIND       EQU  0000000010000000B        ;AN000;display up, dn, lf, rg indicators
 229 SCB_UNCA       EQU  0000000100000000B        ;AN000;use normal color array
 230 SCB_DYN        EQU  0000001000000000B        ;AN000;option array is dynamicly created
 231 SCB_LANDR      EQU  0000010000000000B        ;AN000;left and right scrolling active
 232 SCB_CPHY       EQU  0000100000000000B        ;AN000;color array is physical attributs
 233 SCB_NUML       EQU  0001000000000000B        ;AN000;generate num list in opt strings
 234 SCB_SKIP       EQU  0010000000000000B        ;AN000;skip inactive option strings
 235 SCB_SHIGH      EQU  0100000000000000B        ;AN000;highlight the selected opt strgs
 236 SCB_AHIGH      EQU  1000000000000000B        ;AN000;highlight the active option strgs
 237 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 238 ;
 239 ; PCSLCTP Option word three (SCB_OPT3)
 240 ;
 241 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 242 SCB_SELACT     EQU  0000000000000001B        ;AN000;allow selection of inactive elem
 243 SCB_SELEXC     EQU  0000000000000010B        ;AN000;exclusive selection of one elemet
 244 SCB_EXCSING    EQU  0000000000000100B        ;AN000;one element is always selected
 245 SCB_NUMUIND    EQU  0000000000001000B        ;AN000;display line number count
 246 SCB_CHIGH      EQU  0000000000010000B        ;AN000;hilight cursored and selected stg
 247 SCB_NUMS       EQU  0000000000100000B        ;AN000;auto 0-9 number selection
 248 SCB_FINDE      EQU  0000000001000000B        ;AN000;auto character search
 249 SCB_RELUIND    EQU  0000000010000000B        ;AN000;rel row/col used w/dirct indicato
 250 SCB_RELSCR     EQU  0000000100000000B        ;AN000;rel row/col used w/scroll field
 251 SCB_LVBOVR     EQU  0000001000000000B        ;AN000;use video buffer seg:off override
 252 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 253 ;
 254 ; PCSLCTP Select Array Option (SCB_SELSEG:SCB_SELOFF)
 255 ;
 256 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 257 SCB_SELECTON   EQU  0000000000000001B        ;AN000;element selected
 258 SCB_ACTIVEON   EQU  0000000000000010B        ;AN000;element active
 259 SCB_SKIPON     EQU  0000000000000100B        ;AN000;element should be skipped
 260 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 261 ;
 262 ; PCHLPWR equates
 263 ;
 264 ; PCHLPWR option bit equates (HWR_OPT1)
 265 ;
 266 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 267 HWR_REPLACE    EQU  0000000000000001B         ;AN000;Replace existing help text/topic
 268 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 269 ;
 270 ; PCHLPWR error bit equates (HWR_ERROR)
 271 ;
 272 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 273 HWR_BUFSIZE    EQU  0000000000000001B         ;AN000;buffer size is too small
 274 HWR_HELPUSED   EQU  0000000000000010B         ;AN000;help ID already in use
 275 HWR_INVALDID   EQU  0000000000000100B         ;AN000;help ID is out of range
 276 HWR_NOHLPOBJ   EQU  0000000000001000B         ;AN000;no help object
 277 HWR_NOTCASFILE EQU  0000000000010000B         ;AN000;not a valid cas file
 278 HWR_HELPSFULL  EQU  0000000000100000B         ;AN000;help vector is full
 279 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 280 ;
 281 ; Internal equates
 282 ;
 283 ; internal equates
 284 ;
 285 ;;;;;;;;;;;;;;;;;;;;;;;;;
 286 UPARROW EQU     72      ;AN000;up arrow
 287 DNARROW EQU     80      ;AN000;down arrow
 288 LFARROW EQU     75      ;AN000;left arrow
 289 RTARROW EQU     77      ;AN000;right arrow
 290 PGUP    EQU     73      ;AN000;
 291 PGDN    EQU     81      ;AN000;
 292 ESCAPE  EQU     27      ;AN000;
 293 ENTER   EQU     13      ;AN000;
 294 SPACE   EQU     32      ;AN000;
 295 F1      EQU     59      ;AN000;
 296 F2      EQU     60      ;AN000;
 297 F3      EQU     61      ;AN000;
 298 F4      EQU     62      ;AN000;
 299 F5      EQU     63      ;AN000;
 300 F6      EQU     64      ;AN000;
 301 F7      EQU     65      ;AN000;
 302 F8      EQU     66      ;AN000;
 303 F9      EQU     67      ;AN000;
 304 F10     EQU     68      ;AN000;
 305 .LIST                   ;AN000;
 306 ;;;;;;;;;;;;;;;;;;;;;;;;;
 307 \1a