Subversion Repositories Kolibri OS

Rev

Rev 5363 | Rev 7129 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2288 clevermous 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;;                                                              ;;
5363 yogev_ezra 3 
;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
2288 clevermous 4 
;; Distributed under terms of the GNU General Public License    ;;
5 
;;                                                              ;;
6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 
 
8 
$Revision: 7114 $
9 
 
10 
 
11 
; boot data: common strings (for all languages)
12 
macro line_full_top {
13 
          db       201
14 
          times    78   db 205
15 
          db       187
16 
}
17 
macro line_full_bottom {
18 
          db       200
19 
          times    78   db 205
20 
          db       188
21 
}
22 
macro line_half {
23 
          db      186,' '
24 
          times    76   db 0xc4
25 
          db      ' ',186
26 
}
27 
macro line_space {
28 
          db      186
29 
          times   78 db 32
30 
          db      186
31 
}
32 
d80x25_top:
33 
                line_full_top
7114 dunkaist 34 
if __REV__ > 0
35 
  cur_line_pos = 75
2288 clevermous 36 
        store byte ' ' at d80x25_top+cur_line_pos+1
7114 dunkaist 37 
  rev_var = __REV__
38 
  while rev_var > 0
2288 clevermous 39 
        store byte rev_var mod 10 + '0' at d80x25_top+cur_line_pos
40 
        cur_line_pos = cur_line_pos - 1
41 
        rev_var = rev_var / 10
7114 dunkaist 42 
  end while
2288 clevermous 43 
        store byte ' ' at d80x25_top+cur_line_pos
44 
        store dword ' SVN' at d80x25_top+cur_line_pos-4
7114 dunkaist 45 
end if
2288 clevermous 46 
 
47 
space_msg:
48 
                line_space
49 
verstr:
50 
;               line_space
51 
; version string
52 
        db 186,32
53 
        repeat 78
54 
                load a byte from version+%-1
55 
                if a = 13
56 
                        break
57 
                end if
58 
                db a
59 
        end repeat
60 
        repeat 78 - ($-verstr)
61 
                db      ' '
62 
        end repeat
63 
        db 32,186
64 
                line_half
65 
d80x25_top_num = 4