Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
750 victor 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;;                                                              ;;
3 
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
4 
;; Distributed under terms of the GNU General Public License    ;;
5 
;;                                                              ;;
6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
593 mikedld 7 
 
750 victor 8 
$Revision: 2434 $
593 mikedld 9 
 
10 
 
437 diamond 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
34 
cur_line_pos = 75
35 
        store byte ' ' at d80x25_top+cur_line_pos+1
36 
rev_var = __REV__
37 
while rev_var > 0
38 
        store byte rev_var mod 10 + '0' at d80x25_top+cur_line_pos
39 
        cur_line_pos = cur_line_pos - 1
40 
        rev_var = rev_var / 10
41 
end while
42 
        store byte ' ' at d80x25_top+cur_line_pos
43 
        store dword ' SVN' at d80x25_top+cur_line_pos-4
44 
 
2434 Serge 45 
space_msg:
46 
                line_space
437 diamond 47 
verstr:
48 
;		line_space
49 
; version string
50 
	db 186,32
51 
	repeat 78
52 
		load a byte from version+%-1
53 
		if a = 13
54 
			break
55 
		end if
56 
		db a
57 
	end repeat
58 
	repeat 78 - ($-verstr)
59 
		db	' '
60 
	end repeat
61 
	db 32,186
62 
		line_half
63 
d80x25_top_num = 4