Text in graphics mode 2/2

 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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET