| 1 | ;
|
|---|
| 2 | ; OS/2 BLDLEVEL Information.
|
|---|
| 3 | ;
|
|---|
| 4 |
|
|---|
| 5 |
|
|---|
| 6 | ;
|
|---|
| 7 | ; The version values in here are derived from the AiR-BOOT versions
|
|---|
| 8 | ; as defined in VERSION.INC.
|
|---|
| 9 | ;
|
|---|
| 10 |
|
|---|
| 11 | ;
|
|---|
| 12 | ; For some reason JWasm and Tasm don't accept 'EN' for instance, but need
|
|---|
| 13 | ; it to be split-up. While 'iEN' does work. So all the strings that were not
|
|---|
| 14 | ; accepted are split-up.
|
|---|
| 15 | ;
|
|---|
| 16 | ; Changed langid to be just one letter in build-level, conforming to the
|
|---|
| 17 | ; AiR-BOOT signature.
|
|---|
| 18 | ;
|
|---|
| 19 |
|
|---|
| 20 | ; Vendor
|
|---|
| 21 | BLDLVL_VENDOR EQU 'KIEWITZ'
|
|---|
| 22 | ; Version
|
|---|
| 23 | BLDLVL_MAJOR_VERSION EQU AB_MAJOR_VERSION + '0'
|
|---|
| 24 | BLDLVL_MIDDLE_VERSION EQU AB_MIDDLE_VERSION + '0'
|
|---|
| 25 | BLDLVL_MINOR_VERSION EQU AB_MINOR_VERSION + '0'
|
|---|
| 26 | ; Build date
|
|---|
| 27 | 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'
|
|---|
| 28 | BLDLVL_MONTH EQU (AB_MONTH SHR 4)+'0',(AB_MONTH AND 0Fh)+'0'
|
|---|
| 29 | BLDLVL_DAY EQU (AB_DAY SHR 4)+'0',(AB_DAY AND 0Fh)+'0'
|
|---|
| 30 | ; Build time
|
|---|
| 31 | BLDLVL_HOURS EQU (AB_HOURS SHR 4)+'0',(AB_HOURS AND 0Fh)+'0'
|
|---|
| 32 | BLDLVL_MINUTES EQU (AB_MINUTES SHR 4)+'0',(AB_MINUTES AND 0Fh)+'0'
|
|---|
| 33 | BLDLVL_SECONDS EQU (AB_SECONDS SHR 4)+'0',(AB_SECONDS AND 0Fh)+'0'
|
|---|
| 34 | ; Build machine
|
|---|
| 35 | ;BLDLVL_MACHINE EQU 'ecs-devbox'
|
|---|
| 36 | BLDLVL_MACHINE EQU '*UNKNOWN*'
|
|---|
| 37 | ; Build language
|
|---|
| 38 | IFDEF WASM
|
|---|
| 39 | ; Wasm can only process the reference to 'lang' in pass 2 because it comes
|
|---|
| 40 | ; from an included file which it has not processed yet at pass 1.
|
|---|
| 41 | IF2
|
|---|
| 42 | BLDLVL_LANGUAGE EQU TXT_LanguageID
|
|---|
| 43 | ENDIF
|
|---|
| 44 | ; The other assemblers process 'lang' correctly in pass 1.
|
|---|
| 45 | ELSE
|
|---|
| 46 | BLDLVL_LANGUAGE EQU TXT_LanguageID
|
|---|
| 47 | ENDIF
|
|---|
| 48 | ; Description
|
|---|
| 49 | BLDLVL_DESCRIPTION EQU 'AiR-BOOT Boot Manager'
|
|---|
| 50 |
|
|---|
| 51 |
|
|---|
| 52 | ;
|
|---|
| 53 | ; This macro inserts the BLDLEVEL string at the place where it is invoked.
|
|---|
| 54 | ;
|
|---|
| 55 | InsertBuildLevel MACRO
|
|---|
| 56 | db '@#'
|
|---|
| 57 | db BLDLVL_VENDOR
|
|---|
| 58 | db ':'
|
|---|
| 59 | db BLDLVL_MAJOR_VERSION
|
|---|
| 60 | db '.'
|
|---|
| 61 | db BLDLVL_MIDDLE_VERSION
|
|---|
| 62 | db '.'
|
|---|
| 63 | db BLDLVL_MINOR_VERSION
|
|---|
| 64 | db '#@##1## '
|
|---|
| 65 | bld_level_date_start:
|
|---|
| 66 | db BLDLVL_YEAR
|
|---|
| 67 | db '/'
|
|---|
| 68 | db BLDLVL_MONTH
|
|---|
| 69 | db '/'
|
|---|
| 70 | db BLDLVL_DAY
|
|---|
| 71 | db ' '
|
|---|
| 72 | db BLDLVL_HOURS
|
|---|
| 73 | db ':'
|
|---|
| 74 | db BLDLVL_MINUTES
|
|---|
| 75 | db ':'
|
|---|
| 76 | db BLDLVL_SECONDS
|
|---|
| 77 | bld_level_date_end:
|
|---|
| 78 | db ' '
|
|---|
| 79 | db BLDLVL_MACHINE
|
|---|
| 80 | db '::'
|
|---|
| 81 | ; Wasm can only process the reference to 'lang' in pass 2 because it comes
|
|---|
| 82 | ; from an included file which it has not processed yet at pass 1.
|
|---|
| 83 | IFDEF WASM
|
|---|
| 84 | IF2
|
|---|
| 85 | db BLDLVL_LANGUAGE
|
|---|
| 86 | ENDIF
|
|---|
| 87 | ; The other assemblers process 'lang' correctly in pass 1.
|
|---|
| 88 | ELSE
|
|---|
| 89 | db BLDLVL_LANGUAGE
|
|---|
| 90 | ENDIF
|
|---|
| 91 | db '::'
|
|---|
| 92 | db BLDLVL_MINOR_VERSION
|
|---|
| 93 | db '::@@'
|
|---|
| 94 | db BLDLVL_DESCRIPTION
|
|---|
| 95 | db 0
|
|---|
| 96 | ENDM
|
|---|
| 97 |
|
|---|
