home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / S / ZCNFG21.LBR / ZCNFGCFG.LBR / ZCCFG.SZC / ZCCFG.SRC
Text File  |  1991-10-28  |  3KB  |  96 lines
  1. ;---------------------------------------------------------
  2.  
  3. ; ZCNFG Patch offsets
  4. IDSTR    EQU    0DH        ;location of ID string
  5. DEFUSR    EQU    19H        ;alternate User/Drive (2 bytes)
  6. TGTTYP    EQU    1BH        ;target file default filetype
  7. OVLTYP    EQU    1EH        ;overlay file default filetype
  8. SCRNLN    EQU    21H        ;your console screen length, lines
  9. Z3INST    EQU    22H        ;switch for Z3 install during config.
  10. CLBRFN    EQU    23H        ;name of CFG lbr in alternate DU
  11. ZCOPT0    EQU    2EH        ;bit mapped byte
  12.  
  13. ;offsets in ZCOPT0
  14. ;        bit position    ;meaning:
  15. CFGDU    EQU    0        ;0=target DIR is default for ovly DU
  16.                 ;1=DEFDU is default for overlay DU
  17.  
  18. ;---------------------------------------------------------
  19.  
  20.     INCLUDE CNFGDEF.LIB
  21.  
  22. ;************************************************************
  23. ;    START OF OVERLAY CODE
  24. ;************************************************************
  25. ;The next 13 bytes must remain in this location.
  26.     RST    0    ;for safety - file won't execute
  27.     DW    MENU1    ;for relocation of addresses, this
  28.             ;points to the NEXT location.
  29. ;first MENU list must be here. All names are local.
  30. MENU1:    DW    MENU1,MENU1,SCRN1,CASE1,HELP1    ;MENU A
  31.  
  32. ;=========================================================
  33.  
  34. CASE1:    DB    (CASE1X-CASE11)/(CASE12-CASE11)    ;number of cases
  35.     DB    CASE12-CASE11            ;length of each record
  36.  
  37. ;    macro    .single char menu selector
  38. ;    |    |    .function (see above)
  39. ;    |    |    |    .offset in cnfg block
  40. ;    |    |    |    |    .function dependent data
  41. ;    |    |    |    |    |    .screen location
  42. ;    |    |    |    |    |    |
  43. ;ACSE1:    BITMAP    0,    SWITCH,    OBYTE0,    CRTFLG,    ASCRL0,    YNDATA
  44. ;                            |
  45. ;        address of data structure used by function._|
  46. ;
  47. ;The first two entries in the case table must be labeled to
  48. ;provide data for the calculation at case1:. Subsequent
  49. ;entries (one for each menu selection) need not be labeled.
  50.  
  51. ;    default filetype for Target file
  52. CASE11:    VECTOR    T,    TEXT,    TGTTYP,    3,    SCR100,    0
  53. ;    default filetype for configuration overlay
  54. CASE12:    VECTOR    O,    TEXT,    OVLTYP,    3,    SCR101,    0
  55. ;    Install Z3ENV address?
  56.     VECTOR    Z,    TOGLTF,    Z3INST,    1,    SCR102,    YNDATA
  57. ;    ALTernate directory for CFG files and CFG library
  58.     VECTOR    A,    DUSPEC,    DEFUSR,    1,    SCR103,    0
  59. ;    screen length
  60.     VECTOR    L,    DECRAD,    SCRNLN,    1,    SCR104,    RANGE1
  61. ;    name of the CFG library
  62.     VECTOR    C,    TEXT,    CLBRFN,    8,    SCR105,    0
  63. ;    which default to use for CFG DU
  64.     BITMAP    D,    SWITCH,    ZCOPT0,    CFGDU,    SCR106,    DUDATA
  65.  
  66. ;the next entry is a label which terminates the list.
  67. ;It is required for use in the calculation at case1:
  68. CASE1X:        ;label used to calc number of entries
  69.  
  70. ;=========================================================
  71.  
  72. SCRN1:    INCLUDE ZCSCR1        ;screen image for first screen
  73.  
  74. ;-----------------------------------
  75. ;    FUNCTION DATA LIST
  76.  
  77. ;data pair for representing bit values in screen image
  78. ;Can also be used for function 8 display (True/False)
  79. ;these are null terminated strings. Note the 'DZ'.
  80.  
  81. YNDATA:    DZ    'YES'        ;for 1=yes
  82.     DZ    'NO '
  83.  
  84. DUDATA:    DZ    'CURRENT'    ;bit0(zcopt0)=1
  85.     DZ    'TARGET '    ;bit0 = 0
  86.  
  87. RANGE1:    DW    12,80        ;min/max lines per screen
  88.  
  89. ;=========================================================
  90.  
  91. HELP1:    INCLUDE ZCHLP1        ; ZCNFG help screen for menu1
  92.  
  93. ;=========================================================
  94.  
  95.     END
  96.