| 1 | ;
 | 
|---|
| 2 | ; AiR-BOOT (c) Copyright 1998-2008 M. Kiewitz
 | 
|---|
| 3 | ;
 | 
|---|
| 4 | ; This file is part of AiR-BOOT
 | 
|---|
| 5 | ;
 | 
|---|
| 6 | ; AiR-BOOT is free software: you can redistribute it and/or modify it under
 | 
|---|
| 7 | ;  the terms of the GNU General Public License as published by the Free
 | 
|---|
| 8 | ;  Software Foundation, either version 3 of the License, or (at your option)
 | 
|---|
| 9 | ;  any later version.
 | 
|---|
| 10 | ;
 | 
|---|
| 11 | ; AiR-BOOT is distributed in the hope that it will be useful, but WITHOUT ANY
 | 
|---|
| 12 | ;  WARRANTY: without even the implied warranty of MERCHANTABILITY or FITNESS
 | 
|---|
| 13 | ;  FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
 | 
|---|
| 14 | ;  details.
 | 
|---|
| 15 | ;
 | 
|---|
| 16 | ; You should have received a copy of the GNU General Public License along with
 | 
|---|
| 17 | ;  AiR-BOOT. If not, see <http://www.gnu.org/licenses/>.
 | 
|---|
| 18 | ;
 | 
|---|
| 19 | 
 | 
|---|
| 20 | 
 | 
|---|
| 21 | 
 | 
|---|
| 22 | 
 | 
|---|
| 23 | ;
 | 
|---|
| 24 | ; OS/2 BLDLEVEL Information.
 | 
|---|
| 25 | ;
 | 
|---|
| 26 | 
 | 
|---|
| 27 | 
 | 
|---|
| 28 | ;
 | 
|---|
| 29 | ; The version values in here are derived from the AiR-BOOT versions
 | 
|---|
| 30 | ; as defined in VERSION.INC.
 | 
|---|
| 31 | ;
 | 
|---|
| 32 | 
 | 
|---|
| 33 | ;
 | 
|---|
| 34 | ; For some reason JWasm and Tasm don't accept 'EN' for instance, but need
 | 
|---|
| 35 | ; it to be split-up. While 'iEN' does work. So all the strings that were not
 | 
|---|
| 36 | ; accepted are split-up.
 | 
|---|
| 37 | ;
 | 
|---|
| 38 | ; Changed langid to be just one letter in build-level, conforming to the
 | 
|---|
| 39 | ; AiR-BOOT signature.
 | 
|---|
| 40 | ;
 | 
|---|
| 41 | 
 | 
|---|
| 42 | ; Vendor
 | 
|---|
| 43 | BLDLVL_VENDOR           EQU     'KIEWITZ'
 | 
|---|
| 44 | ; Version
 | 
|---|
| 45 | BLDLVL_MAJOR_VERSION    EQU     AB_MAJOR_VERSION    + '0'
 | 
|---|
| 46 | BLDLVL_MIDDLE_VERSION   EQU     AB_MIDDLE_VERSION   + '0'
 | 
|---|
| 47 | BLDLVL_MINOR_VERSION    EQU     AB_MINOR_VERSION    + '0'
 | 
|---|
| 48 | ; Build date
 | 
|---|
| 49 | BLDLVL_YEAR             EQU     (AB_YEAR SHR 12 AND 0Fh)+'0',(AB_YEAR SHR 8 AND 0Fh)+'0',(AB_YEAR SHR 4 AND 0Fh)+'0',(AB_YEAR AND 0Fh)+'0'
 | 
|---|
| 50 | BLDLVL_MONTH            EQU     (AB_MONTH SHR 4)+'0',(AB_MONTH AND 0Fh)+'0'
 | 
|---|
| 51 | BLDLVL_DAY              EQU     (AB_DAY SHR 4)+'0',(AB_DAY AND 0Fh)+'0'
 | 
|---|
| 52 | ; Build time
 | 
|---|
| 53 | BLDLVL_HOURS            EQU     (AB_HOURS SHR 4)+'0',(AB_HOURS AND 0Fh)+'0'
 | 
|---|
| 54 | BLDLVL_MINUTES          EQU     (AB_MINUTES SHR 4)+'0',(AB_MINUTES AND 0Fh)+'0'
 | 
|---|
| 55 | BLDLVL_SECONDS          EQU     (AB_SECONDS SHR 4)+'0',(AB_SECONDS AND 0Fh)+'0'
 | 
|---|
| 56 | ; Build machine (16 chars max ?)
 | 
|---|
| 57 | ;BLDLVL_MACHINE          EQU     'ecs-devbox'
 | 
|---|
| 58 | BLDLVL_MACHINE          EQU     '*UNKNOWN*'
 | 
|---|
| 59 | ; Build language
 | 
|---|
| 60 | IFDEF   WASM
 | 
|---|
| 61 |     ; Wasm can only process the reference to 'lang' in pass 2 because it comes
 | 
|---|
| 62 |     ; from an included file which it has not processed yet at pass 1.
 | 
|---|
| 63 |     IF2
 | 
|---|
| 64 |         BLDLVL_LANGUAGE EQU     TXT_LanguageID
 | 
|---|
| 65 |     ENDIF
 | 
|---|
| 66 | ; The other assemblers process 'lang' correctly in pass 1.
 | 
|---|
| 67 | ELSE
 | 
|---|
| 68 |     BLDLVL_LANGUAGE     EQU     TXT_LanguageID
 | 
|---|
| 69 | ENDIF
 | 
|---|
| 70 | ; Description
 | 
|---|
| 71 | BLDLVL_DESCRIPTION      EQU     'AiR-BOOT Boot Manager'
 | 
|---|
| 72 | 
 | 
|---|
| 73 | 
 | 
|---|
| 74 | 
 | 
|---|
| 75 | ;~ bliep   struct
 | 
|---|
| 76 |     ;~ db  '@#'
 | 
|---|
| 77 |     ;~ db  BLDLVL_VENDOR
 | 
|---|
| 78 |     ;~ db  ':'
 | 
|---|
| 79 |     ;~ db  BLDLVL_MAJOR_VERSION
 | 
|---|
| 80 |     ;~ db  '.'
 | 
|---|
| 81 |     ;~ db  BLDLVL_MIDDLE_VERSION
 | 
|---|
| 82 |     ;~ db  '.'
 | 
|---|
| 83 |     ;~ db  BLDLVL_MINOR_VERSION
 | 
|---|
| 84 |     ;~ db  '#@##1## '
 | 
|---|
| 85 | ;~ bld_level_date_start    db  BLDLVL_YEAR
 | 
|---|
| 86 |     ;~ db  '/'
 | 
|---|
| 87 |     ;~ db  BLDLVL_MONTH
 | 
|---|
| 88 |     ;~ db  '/'
 | 
|---|
| 89 |     ;~ db  BLDLVL_DAY
 | 
|---|
| 90 |     ;~ db  ' '
 | 
|---|
| 91 |     ;~ db  BLDLVL_HOURS
 | 
|---|
| 92 |     ;~ db  ':'
 | 
|---|
| 93 |     ;~ db  BLDLVL_MINUTES
 | 
|---|
| 94 |     ;~ db  ':'
 | 
|---|
| 95 |     ;~ db  BLDLVL_SECONDS
 | 
|---|
| 96 | ;~ bld_level_date_end    db  '      '
 | 
|---|
| 97 |     ;~ db  BLDLVL_MACHINE
 | 
|---|
| 98 |     ;~ db  '::'
 | 
|---|
| 99 |     ;~ ; Wasm can only process the reference to 'lang' in pass 2 because it
 | 
|---|
| 100 |     ;~ ;comes from an included file which it has not processed yet at pass 1.
 | 
|---|
| 101 |     ;~ IFDEF   WASM
 | 
|---|
| 102 |         ;~ IF2
 | 
|---|
| 103 |             ;~ db  BLDLVL_LANGUAGE
 | 
|---|
| 104 |         ;~ ENDIF
 | 
|---|
| 105 |     ;~ ; The other assemblers process 'lang' correctly in pass 1.
 | 
|---|
| 106 |     ;~ ELSE
 | 
|---|
| 107 |         ;~ db  BLDLVL_LANGUAGE
 | 
|---|
| 108 |     ;~ ENDIF
 | 
|---|
| 109 |     ;~ db  '::'
 | 
|---|
| 110 |     ;~ db  BLDLVL_MINOR_VERSION
 | 
|---|
| 111 |     ;~ db  '::@@'
 | 
|---|
| 112 |     ;~ db  BLDLVL_DESCRIPTION
 | 
|---|
| 113 |     ;~ db  0
 | 
|---|
| 114 | ;~ bliep   ends
 | 
|---|
| 115 | 
 | 
|---|
| 116 | 
 | 
|---|
| 117 | ;
 | 
|---|
| 118 | ; This macro inserts the BLDLEVEL string at the place where it is invoked.
 | 
|---|
| 119 | ;
 | 
|---|
| 120 | InsertBuildLevel    MACRO
 | 
|---|
| 121 |     db  '@#'
 | 
|---|
| 122 |     db  BLDLVL_VENDOR
 | 
|---|
| 123 |     db  ':'
 | 
|---|
| 124 |     db  BLDLVL_MAJOR_VERSION
 | 
|---|
| 125 |     db  '.'
 | 
|---|
| 126 |     db  BLDLVL_MIDDLE_VERSION
 | 
|---|
| 127 |     db  '.'
 | 
|---|
| 128 |     db  BLDLVL_MINOR_VERSION
 | 
|---|
| 129 |     db  '#@##1## '
 | 
|---|
| 130 | bld_level_date_start:
 | 
|---|
| 131 |     db  BLDLVL_YEAR
 | 
|---|
| 132 |     db  '/'
 | 
|---|
| 133 |     db  BLDLVL_MONTH
 | 
|---|
| 134 |     db  '/'
 | 
|---|
| 135 |     db  BLDLVL_DAY
 | 
|---|
| 136 |     db  ' '
 | 
|---|
| 137 |     db  BLDLVL_HOURS
 | 
|---|
| 138 |     db  ':'
 | 
|---|
| 139 |     db  BLDLVL_MINUTES
 | 
|---|
| 140 |     db  ':'
 | 
|---|
| 141 |     db  BLDLVL_SECONDS
 | 
|---|
| 142 | bld_level_date_end:
 | 
|---|
| 143 |     db  '      '
 | 
|---|
| 144 |     db  BLDLVL_MACHINE
 | 
|---|
| 145 |     db  '::'
 | 
|---|
| 146 |     ; Wasm can only process the reference to 'lang' in pass 2 because it comes
 | 
|---|
| 147 |     ; from an included file which it has not processed yet at pass 1.
 | 
|---|
| 148 |     IFDEF   WASM
 | 
|---|
| 149 |         IF2
 | 
|---|
| 150 |             db  BLDLVL_LANGUAGE
 | 
|---|
| 151 |         ENDIF
 | 
|---|
| 152 |     ; The other assemblers process 'lang' correctly in pass 1.
 | 
|---|
| 153 |     ELSE
 | 
|---|
| 154 |         db  BLDLVL_LANGUAGE
 | 
|---|
| 155 |     ENDIF
 | 
|---|
| 156 |     db  '::'
 | 
|---|
| 157 |     db  BLDLVL_MINOR_VERSION
 | 
|---|
| 158 |     db  '::@@'
 | 
|---|
| 159 |     db  BLDLVL_DESCRIPTION
 | 
|---|
| 160 |     db  0
 | 
|---|
| 161 | ENDM
 | 
|---|
| 162 | 
 | 
|---|