home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
dos
/
prg
/
bas
/
hanlin3
/
qbwiz20
/
crt.asm
< prev
next >
Wrap
Assembly Source File
|
1992-07-13
|
2KB
|
54 lines
comment #
+----------------------------------------------------------------------+
| |
| QBWiz Copyright (c) 1990-1992 Thomas G. Hanlin III |
| |
| QuickBasic Access Library |
| |
+----------------------------------------------------------------------+
#
public CRT
.model medium
.code
CRT proc ; get display adapter type
mov al,b$Adapter ;
test al,1 ; MDA?
jnz MDA ; yep, set it
test al,2 ; CGA?
jnz CGA ; yep, set it
test al,4 ; EGA?
jnz EGA ; yep, set it
VGA: mov ax,"GV" ;
Done: mov word ptr String,ax ; save first char
mov ax,offset DGROUP:Str ; point to string header
ret ;
MDA: mov ax,"DM" ;
jmp Done ;
CGA: mov ax,"GC" ;
jmp Done ;
EGA: mov ax,"GE" ;
jmp Done ;
CRT endp ; get display adapter type
.data
extrn b$Adapter: byte
Str dw 3,offset DGROUP:String
String db "MDA"
end