1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
;; -----------------------------------------------------------------------
;;
;; Copyright 1994-2008 H. Peter Anvin - All Rights Reserved
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, Inc., 53 Temple Place Ste 330,
;; Boston MA 02111-1307, USA; either version 2 of the License, or
;; (at your option) any later version; incorporated herein by reference.
;;
;; -----------------------------------------------------------------------
;;
;; font.inc
;;
;; VGA font handling code
;;
section .text
;
; loadfont: Load a .psf font file and install it onto the VGA console
; (if we're not on a VGA screen then ignore.)
; The font is on top of the getc stack.
;
loadfont.err: jmp close ; Tailcall the close routine
loadfont:
mov di,trackbuf
mov cx,4
call readc ; Read header
jc .err
mov ax,[trackbuf] ; Magic number
cmp ax,0436h
jne .err
mov al,[trackbuf+2] ; File mode
cmp al,5 ; Font modes 0-5 supported
ja .err
xor bx,bx
mov bh,[trackbuf+3] ; Height of font
cmp bh,2 ; VGA minimum
jb .err
cmp bh,32 ; VGA maximum
ja .err
; Load the actual font
mov di,trackbuf
mov cx,bx ; Bytes = font height * 256
call readc
jc .err
call close
; Copy to font buffer
mov si,trackbuf ; Start of font data
mov [VGAFontSize],bh
push es
mov cx,aux_seg
mov es,cx
mov di,aux.fontbuf
mov cx,bx
shr cx,2
rep movsd
pop es
mov [UserFont], byte 1 ; Set font flag
;
; use_font:
; This routine activates whatever font happens to be in the
; vgafontbuf, and updates the adjust_screen data.
; Must be called with CS = DS
;
use_font:
test byte [UsingVGA], ~03h ; Nonstandard mode?
jz .modeok
call vgaclearmode
.modeok:
test [UserFont], byte 1 ; Are we using a user-specified font?
jz adjust_screen ; If not, just do the normal stuff
push es
mov bp,aux_seg
mov es,bp
mov bp,aux.fontbuf ; ES:BP -> font
mov bh,[VGAFontSize]
xor bl,bl ; Needed by both INT 10h calls
test byte [UsingVGA], 01h ; Are we in graphics mode?
jz .text
.graphics:
xor cx,cx
mov cl,bh ; CX = bytes/character
mov ax,[GXPixRows]
div cl ; Compute char rows per screen
mov dl,al
dec ax
mov [VidRows],al
mov ax,1121h ; Set user character table
int 10h
mov ax,[GXPixCols]
shr ax,3 ; 8 pixels/character
dec ax
mov [VidCols],al
pop es
ret ; No need to call adjust_screen
.text:
mov cx,256
xor dx,dx
mov ax,1110h
int 10h ; Load into VGA RAM
pop es
xor bl,bl
mov ax,1103h ; Select page 0
int 10h
;
; adjust_screen: Set the internal variables associated with the screen size.
; This is a subroutine in case we're loading a custom font.
;
adjust_screen:
pusha
mov al,[BIOS_vidrows]
and al,al
jnz vidrows_ok
mov al,24 ; No vidrows in BIOS, assume 25
; (Remember: vidrows == rows-1)
vidrows_ok: mov [VidRows],al
mov ah,0fh
int 10h ; Read video state
dec ah ; Store count-1 (same as rows)
mov [VidCols],ah
popa
ret
section .data
alignz 2
VGAFontSize dw 16 ; Defaults to 16 byte font
UserFont db 0 ; Using a user-specified font
section .bss1
alignb 4
GXPixCols resw 1 ; Graphics mode pixel columns
GXPixRows resw 1 ; Graphics mode pixel rows
|
