Subversion Repositories Kolibri OS

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

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