BBS: Inland Empire Archive
Date: 08-15-92 (00:32) Number: 155
From: MATT PRITCHARD @ 930/21 Refer#: NONE
To: CURTIS STRATMAN Recvd: NO
Subj: Text in graphics mode 2/2 Conf: (2) Quik_Bas
>>> Continued from previous message
XOR DH,DH ;Clear DH
SHL DX,1 ;Get Bit #3
MOV AL,DH ;put in AL
XLAT AL ;Translate into DAC value
STOSB ;Write to Video Buffer
XOR DH,DH ;Clear DH
SHL DX,1 ;Get Bit #4
MOV AL,DH ;put in AL
XLAT AL ;Translate into DAC value
STOSB ;Write to Video Buffer
XOR DH,DH ;Clear DH
SHL DX,1 ;Get Bit #5
MOV AL,DH ;put in AL
XLAT AL ;Translate into DAC value
STOSB ;Write to Video Buffer
XOR DH,DH ;Clear DH
SHL DX,1 ;Get Bit #6
MOV AL,DH ;put in AL
XLAT AL ;Translate into DAC value
STOSB ;Write to Video Buffer
XOR DH,DH ;Clear DH
SHL DX,1 ;Get Bit #7
MOV AL,DH ;put in AL
XLAT AL ;Translate into DAC value
STOSB ;Write to Video Buffer
XOR DH,DH ;Clear DH
SHL DX,1 ;Get Bit #8
MOV AL,DH ;put in AL
XLAT AL ;Translate into DAC value
STOSB ;Write to Video Buffer
ADD DI,SCREEN_WIDTH-8 ;Point to Next Line
LOOP DECODE_CHAR_BYTE ;Process all Lines
POP DI
POP SI
POP DS ;Restore Data Segment
POP BP ;Restore Bp
RET 14 ;Exit and Clean up Stack
GPRINTC ENDP
-
Hope this helps... Let me know if have problems with it.
-Matt P
===
* SLMR 2.1a * My reality check just bounced.
--- InterPCB 1.50
# Origin: CENTRAL BBS -Texas' BEST BBS! 214-393-7090 HST 3+GIGs (8:930/21)
* Origin: Gateway System to/from RBBS-NET (RBBS-PC 1:10/8)
