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 TEXTEQU <'KIEWITZ'>
|
---|
44 | ;~ BLDLVL_VENDOR TEXTEQU <'RDPe'>
|
---|
45 | BLDLVL_VENDOR TEXTEQU <'*UNKNOWN*'>
|
---|
46 | ; Version
|
---|
47 | BLDLVL_MAJOR_VERSION EQU AB_MAJOR_VERSION + '0'
|
---|
48 | BLDLVL_MIDDLE_VERSION EQU AB_MIDDLE_VERSION + '0'
|
---|
49 | BLDLVL_MINOR_VERSION EQU AB_MINOR_VERSION + '0'
|
---|
50 | ; Build date
|
---|
51 | 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'
|
---|
52 | BLDLVL_MONTH EQU (AB_MONTH SHR 4)+'0',(AB_MONTH AND 0Fh)+'0'
|
---|
53 | BLDLVL_DAY EQU (AB_DAY SHR 4)+'0',(AB_DAY AND 0Fh)+'0'
|
---|
54 | ; Build time
|
---|
55 | BLDLVL_HOURS EQU (AB_HOURS SHR 4)+'0',(AB_HOURS AND 0Fh)+'0'
|
---|
56 | BLDLVL_MINUTES EQU (AB_MINUTES SHR 4)+'0',(AB_MINUTES AND 0Fh)+'0'
|
---|
57 | BLDLVL_SECONDS EQU (AB_SECONDS SHR 4)+'0',(AB_SECONDS AND 0Fh)+'0'
|
---|
58 | ; Build machine
|
---|
59 | ;~ BLDLVL_MACHINE EQU 'OS2BLDBOX' ; 16 chars max.
|
---|
60 | BLDLVL_MACHINE EQU '*UNKNOWN*' ; 16 chars max.
|
---|
61 | ; Build language
|
---|
62 | IFDEF WASM
|
---|
63 | ; Wasm can only process the reference to 'lang' in pass 2 because it comes
|
---|
64 | ; from an included file which it has not processed yet at pass 1.
|
---|
65 | IF2
|
---|
66 | BLDLVL_LANGUAGE EQU TXT_LanguageID
|
---|
67 | ENDIF
|
---|
68 | ; The other assemblers process 'lang' correctly in pass 1.
|
---|
69 | ELSE
|
---|
70 | BLDLVL_LANGUAGE EQU TXT_LanguageID
|
---|
71 | ENDIF
|
---|
72 | ; Description
|
---|
73 | BLDLVL_DESCRIPTION EQU 'AiR-BOOT Boot Manager'
|
---|
74 |
|
---|
75 |
|
---|
76 |
|
---|
77 | ;~ bliep struct
|
---|
78 | ;~ db '@#'
|
---|
79 | ;~ db BLDLVL_VENDOR
|
---|
80 | ;~ db ':'
|
---|
81 | ;~ db BLDLVL_MAJOR_VERSION
|
---|
82 | ;~ db '.'
|
---|
83 | ;~ db BLDLVL_MIDDLE_VERSION
|
---|
84 | ;~ db '.'
|
---|
85 | ;~ db BLDLVL_MINOR_VERSION
|
---|
86 | ;~ db '#@##1## '
|
---|
87 | ;~ bld_level_date_start db BLDLVL_YEAR
|
---|
88 | ;~ db '/'
|
---|
89 | ;~ db BLDLVL_MONTH
|
---|
90 | ;~ db '/'
|
---|
91 | ;~ db BLDLVL_DAY
|
---|
92 | ;~ db ' '
|
---|
93 | ;~ db BLDLVL_HOURS
|
---|
94 | ;~ db ':'
|
---|
95 | ;~ db BLDLVL_MINUTES
|
---|
96 | ;~ db ':'
|
---|
97 | ;~ db BLDLVL_SECONDS
|
---|
98 | ;~ bld_level_date_end db ' '
|
---|
99 | ;~ db BLDLVL_MACHINE
|
---|
100 | ;~ db '::'
|
---|
101 | ;~ ; Wasm can only process the reference to 'lang' in pass 2 because it
|
---|
102 | ;~ ;comes from an included file which it has not processed yet at pass 1.
|
---|
103 | ;~ IFDEF WASM
|
---|
104 | ;~ IF2
|
---|
105 | ;~ db BLDLVL_LANGUAGE
|
---|
106 | ;~ ENDIF
|
---|
107 | ;~ ; The other assemblers process 'lang' correctly in pass 1.
|
---|
108 | ;~ ELSE
|
---|
109 | ;~ db BLDLVL_LANGUAGE
|
---|
110 | ;~ ENDIF
|
---|
111 | ;~ db '::'
|
---|
112 | ;~ db BLDLVL_MINOR_VERSION
|
---|
113 | ;~ db '::@@'
|
---|
114 | ;~ db BLDLVL_DESCRIPTION
|
---|
115 | ;~ db 0
|
---|
116 | ;~ bliep ends
|
---|
117 |
|
---|
118 |
|
---|
119 | ;
|
---|
120 | ; This macro inserts the BLDLEVEL string at the place where it is invoked.
|
---|
121 | ;
|
---|
122 | InsertBuildLevel MACRO
|
---|
123 | db '@#'
|
---|
124 | db BLDLVL_VENDOR
|
---|
125 | db ':'
|
---|
126 | db BLDLVL_MAJOR_VERSION
|
---|
127 | db '.'
|
---|
128 | db BLDLVL_MIDDLE_VERSION
|
---|
129 | db '.'
|
---|
130 | db BLDLVL_MINOR_VERSION
|
---|
131 | db '#@##1## '
|
---|
132 | bld_level_date_start:
|
---|
133 | db BLDLVL_YEAR
|
---|
134 | db '/'
|
---|
135 | db BLDLVL_MONTH
|
---|
136 | db '/'
|
---|
137 | db BLDLVL_DAY
|
---|
138 | db ' '
|
---|
139 | db BLDLVL_HOURS
|
---|
140 | db ':'
|
---|
141 | db BLDLVL_MINUTES
|
---|
142 | db ':'
|
---|
143 | db BLDLVL_SECONDS
|
---|
144 | bld_level_date_end:
|
---|
145 | db ' '
|
---|
146 | db BLDLVL_MACHINE
|
---|
147 | db '::'
|
---|
148 | ; Wasm can only process the reference to 'lang' in pass 2 because it comes
|
---|
149 | ; from an included file which it has not processed yet at pass 1.
|
---|
150 | IFDEF WASM
|
---|
151 | IF2
|
---|
152 | db BLDLVL_LANGUAGE
|
---|
153 | ENDIF
|
---|
154 | ; The other assemblers process 'lang' correctly in pass 1.
|
---|
155 | ELSE
|
---|
156 | db BLDLVL_LANGUAGE
|
---|
157 | ENDIF
|
---|
158 | db '::'
|
---|
159 | db BLDLVL_MINOR_VERSION
|
---|
160 | db '::@@'
|
---|
161 | db BLDLVL_DESCRIPTION
|
---|
162 | db 0
|
---|
163 | ENDM
|
---|
164 |
|
---|