!*! Updated on 15-Dec-92 at 8:47 PM by James A. Jarboe I V; edit time: 0:40:11
!*! Created on 01-Oct-91 at 12:58 PM by James A. Jarboe I V; edit time: 0:01:15
!************************************************************************
! *
! TOOLBZ.BSI - Include file for symbolic definitions of TOOLBX opcodes. *
! *
!************************************************************************
! TOOLBZ.BSI is an expanded version of TOOLBX.BSI that is included with
! the ESP release. TOOLBZ.BSI is compatible with TOOLBX.BSI
! only expanded.
! TOOLBZ.BSI is to be used with the TOOLBZ.SBR xcall.
!
! TOOLBZ.SBR is an expanded version of TOOLBX.SBR that is included with
! the ESP release. TOOLBZ.SBR is compatible with TOOLBX.SBR
! up to the TBX'SQFLSZ. The remaining calls are inherent to
! TOOLBZ.SBR and not included with AMOS's TOOLBX.SBR.
!
! TOOLBZ.SBR can be renamed to TOOLBX.SBR and it will remain
! compatible with existing basic programs that use the
! TOOLBX.SBR xcall.
!
! Calling format:
!
! xcall TOOLBZ, TBX'FLDCNT, SCREEN, RETURNFIELDCOUNT
! xcall TOOLBZ, TBX'GETOLH, SCREEN, FIELDNUM, RETURNTEXT$
! xcall TOOLBZ, TBX'SQFLSZ, FILE$, RETURNFILESIZE
! xcall TOOLBZ, TBX'HIDFLD, SCREEN, FIELDNUM, FLAG
! FLAG = TRUE -> HIDE Field
! FLAG = FALSE -> SHOW Field
! xcall TOOLBZ, TBX'SKPFLD, SCREEN, FIELDNUM, FLAG
! FLAG = TRUE -> SKIP Field
! FLAG = FALSE -> ALLOW Field
! xcall TOOLBZ, TBX'SELFLD, SCREEN, FIELDNUM, FLAG
! FLAG = TRUE -> SELECT Field.
! FLAG = FALSE -> DESELECT field.
! xcall TOOLBZ, TBX'GETFLUF, SCREEN, FIELDNUM, RETFLAG
! RETFLAG = FLUF'HIDE -> Field is Hidden.
! RETFLAG = FLUF'SKIP -> Field is Skipped.
! RETFLAG = FLUF'SELECT -> Field is Selected.
! xcall TOOLBZ, TBX'GETPUI, SCREEN, FIELDNUM, RETVALUE
! xcall TOOLBZ, TBX'SETPUI, SCREEN, FIELDNUM, SETVALUE
! xcall TOOLBZ, TBX'GETFID, SCREEN, PERMFIELDNUM, CURRENTFIELDNUM
! xcall TOOLBZ, TBX'GETFPN, SCREEN, CURRENTFIELDNUM, PERMFIELDNUM
!
! Edit History:
!
![103] 13-Dec-92 Added GETFPN offset & call. /JAJ
![102] 12-Dec-92 Added GETFID offset & call. /JAJ
![101] 27-Aug-91 Added GETPUI and SETPUI offsets & call. /JAJ
![100] 02-Oct-90 Added HIDFLD, SKPFLD, SELFLD, GETFLUF
!
!*******************************
! *
! TOOLBX opcode defs. *
! *
!*******************************
! Call offset values for TOOLBZ.SBR
!
! Calling format is:
! XCALL TOOLBZ, TBX'?????, SCREEN, ARG {, ARG }
!
MAP1 TBX'FLDCNT , F, 6, 200 ! Get screen field count.
MAP1 TBX'GETOLH , F, 6, 204 ! Get field on-line-help text.
MAP1 TBX'SQFLSZ , F, 6, 208 ! Get size in bytes of seq. file.
MAP1 TBX'HIDFLD , F, 6, 212 ! Set Hide/show field status.
MAP1 TBX'SKPFLD , F, 6, 216 ! Set Skip/allow field status.
MAP1 TBX'SELFLD , F, 6, 220 ! Set Select/deselect field status.
MAP1 TBX'GETFLUF, F, 6, 224 ! Get field user flags.
MAP1 TBX'GETPUI , F, 6, 228 ! Get Popup Item value.
MAP1 TBX'SETPUI , F, 6, 232 ! Set Popup Item value.
MAP1 TBX'GETFID , F, 6, 236 ! Get Field number via Perm ID Num.
MAP1 TBX'GETFPN , F, 6, 240 ! Get Perm ID Num via field.
!***********************
! *
! Field User Flags *
! *
!***********************
! Values returned from TBX'SELFLD call. Can be a single value or
! a logical sum of the following values.
!
MAP1 FLUF'HIDE , F, 6, 1 ! Hide/Show setting.
MAP1 FLUF'SKIP , F, 6, 2 ! Skip/Allow setting.
MAP1 FLUF'SELECT, F, 6, 4 ! Select/Deselect setting.
!***********************
! *
! Field Select Values *
! *
!***********************
! Set Flag values for GTSCR.SBR fourth argument.
! Can be a single value or a logical sum of the following values.
! Example:
! ESP'FLSSEL = (ESP'FLSNEV or ESP'FLSSLM or ESP'FLSDBF)
!
! Format is:
! xcall GTSCR, SCREEN, CHAR, FIELD, ESP'FLSSEL
!
MAP1 ESP'FLSSEL, f, 6 ! Current field Selection value.
MAP1 ESP'FLSDEC, f, 6, 512*65536 ! Use filler character as edit filler.
MAP1 ESP'FLSSLA, f, 6, 1024*65536 ! Allow selection of ALL fields.
MAP1 ESP'FLSNEV, f, 6, 2048*65536 ! DON'T evaluate expressions.
MAP1 ESP'FLSNRF, f, 6, 4096*65536 ! DON'T print report only fields.
MAP1 ESP'FLSDSL, f, 6, 8192*65536 ! Disable selection during select mode.
MAP1 ESP'FLSSLM, f, 6, 16384*65536 ! Select mode enabled.
MAP1 ESP'FLSDBF, f, 6, 32768*65536 ! Display blanked field(s).
