kolibrios/kernel/branches/net/boot/bootstr.inc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
;; Distributed under terms of the GNU General Public License    ;;
;;                                                              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision $


; boot data: common strings (for all languages)
macro line_full_top {
          db       201
          times    78   db 205
          db       187
}
macro line_full_bottom {
          db       200
          times    78   db 205
          db       188
}
macro line_half {
          db      186,' '
          times    76   db 0xc4
          db      ' ',186
}
macro line_space {
          db      186
          times   78 db 32
          db      186
}
d80x25_top:
                line_full_top
cur_line_pos = 75
        store byte ' ' at d80x25_top+cur_line_pos+1
rev_var = __REV__
while rev_var > 0
        store byte rev_var mod 10 + '0' at d80x25_top+cur_line_pos
        cur_line_pos = cur_line_pos - 1
        rev_var = rev_var / 10
end while
        store byte ' ' at d80x25_top+cur_line_pos
        store dword ' SVN' at d80x25_top+cur_line_pos-4

space_msg:
                line_space
verstr:
;               line_space
; version string
        db 186,32
        repeat 78
                load a byte from version+%-1
                if a = 13
                        break
                end if
                db a
        end repeat
        repeat 78 - ($-verstr)
                db      ' '
        end repeat
        db 32,186
                line_half
d80x25_top_num = 4