Rev 437 | Rev 750 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
593 | mikedld | 1 | |
2 | |||
3 | |||
4 | |||
437 | diamond | 5 | macro line_full_top { |
6 | db 201 |
||
7 | times 78 db 205 |
||
8 | db 187 |
||
9 | } |
||
10 | macro line_full_bottom { |
||
11 | db 200 |
||
12 | times 78 db 205 |
||
13 | db 188 |
||
14 | } |
||
15 | macro line_half { |
||
16 | db 186,' ' |
||
17 | times 76 db 0xc4 |
||
18 | db ' ',186 |
||
19 | } |
||
20 | macro line_space { |
||
21 | db 186 |
||
22 | times 78 db 32 |
||
23 | db 186 |
||
24 | } |
||
25 | d80x25_top: |
||
26 | line_full_top |
||
27 | cur_line_pos = 75 |
||
28 | store byte ' ' at d80x25_top+cur_line_pos+1 |
||
29 | rev_var = __REV__ |
||
30 | while rev_var > 0 |
||
31 | store byte rev_var mod 10 + '0' at d80x25_top+cur_line_pos |
||
32 | cur_line_pos = cur_line_pos - 1 |
||
33 | rev_var = rev_var / 10 |
||
34 | end while |
||
35 | store byte ' ' at d80x25_top+cur_line_pos |
||
36 | store dword ' SVN' at d80x25_top+cur_line_pos-4 |
||
37 | |||
38 | |||
39 | verstr: |
||
40 | ; line_space |
||
41 | ; version string |
||
42 | db 186,32 |
||
43 | repeat 78 |
||
44 | load a byte from version+%-1 |
||
45 | if a = 13 |
||
46 | break |
||
47 | end if |
||
48 | db a |
||
49 | end repeat |
||
50 | repeat 78 - ($-verstr) |
||
51 | db ' ' |
||
52 | end repeat |
||
53 | db 32,186 |
||
54 | line_half |
||
55 | d80x25_top_num = 4 |
||
56 |