GRIPS 2: Government Rast…rocessing Software & Data/GRIPS_2.cdr/dos/pcshow/src/lattice/ega.asm

Assembly Source File | 1990-01-06 | 14.3 KB | 457 lines

;
;  EGA GRAPHICS DRIVER
;
;  supports raster graphics on the Enhanced Adapter
;
;      Tim Krauskopf               Spring 1986
;
;  National Center for Supercomputing Applications
;  605 E. Springfield
;  Champaign, IL 61820
;  [phone]
;
;
        TITLE   EGA GRAPHICS RASTER DRIVER
        NAME    EGA
        INCLUDE DOS.MAC
        SETX
;
;  Define where the registers are
;
SEQ        EQU        03C4H
MAPREG    EQU        2
MAPMASK    EQU        03C5H
GCHIP    EQU        03CEH
DRREG   EQU     3
MODEREG EQU     5
BITREG    EQU        8
BITMASK    EQU        03CFH
;
        DSEG
FLAG    DB      0            ; HAVE WE SET REGS UP
        ENDDS

        PSEG
        PUBLIC  EGALINE;,EGALINE2,EGALINEA,EGAPOINT
        PUBLIC    INITEGA,RESETEGA,EGAPAL
;******************************************************************
;  INITEGA
;    use the BIOS to set mode 10 on the EGA board
;
INITEGA    PROC    FAR
        MOV        AX,10H            ; set to hi-res mode for EGA
        INT     10h                ; video
        RET
INITEGA    ENDP

RESETEGA    PROC    FAR
        MOV        AX,3            ; set to color character mode
        INT        10h
        RET
RESETEGA    ENDP

;*******************************************************************
;  PALETTE
;     set one element of the EGA's palette select
;
;  usage:  egapal(reg,setting);
;             reg (0-15)        EGA's palette regs
;             setting            one byte, what to write there
;
EGAPAL    PROC    FAR
        PUSH    BP
        MOV        BP,SP
        MOV        BL,[BP+X]        ; register #
        MOV        BH,[BP+X+2]        ; value
        MOV        AX,01000H        ; set palette element
        INT        10h
        POP        BP
        RET
EGAPAL    ENDP

ifdef QAK
;*****************************************************************
;  Puts an absolute pixel in the given color
;
;   usage:   egapoint(x,y,color,table)
;            x,y = point location
;            color = integer color number  0 to 255
;            table = translation table of 256 bytes for XLAT
;
;   BUG:  will only write on black background, see egaline for
;         clearing all four planes before writing to specified planes
;         in that color
;
EGAPOINT    PROC    FAR
        PUSH    BP
        MOV        BP,SP
        MOV     AL,FLAG
        OR      AL,AL
        JNZ     NOSETUP
        CALL    SETUPG            ; set up the mask regs
        MOV     FLAG,1            ; set the flag
NOSETUP:
        MOV     CX,[BP+X+8]       ; get segment of transtable
        MOV     BX,[BP+X+6]       ; get offset of transtable
        MOV        AX,[BP+X+4]       ; get the color param = 3rd param
        PUSH DS
        MOV  DS,CX                ; set ds for the transtable
        XLATB                     ; pick up translated color
        POP     DS
        MOV        DX,MAPMASK
        OUT        DX,AL             ; set the mask to this color
        MOV        AX,0A000H
        MOV     ES,AX             ; set for addressing
        MOV        AX,[BP+X+2]       ; get y value 0 < y < 350
        MOV        BX,80
        MUL     BX                ; multiply by 80 bytes/line
        MOV     DI,AX             ; put in DI
        MOV     AX,[BP+X]         ; get x value 0 < x < 640
        MOV     BX,AX             ; save it
        MOV     CL,3
        SHR     AX,CL             ; divide by 8
        ADD     DI,AX             ; add it to di = byte offset
        ;
        MOV     CX,BX
        AND     CX,0007H          ; save only the right three bits
        MOV     BL,80H            ; here's a bit
        SHR        BL,CL             ; move it over some
        MOV     DX,BITMASK        ; set the mask
        MOV     AL,BL
        OUT     DX,AL             ;  send it
;
        MOV        AL,0FFH           ; set all bits
        MOV        AH,ES:[DI]        ; latch the bytes
        STOSB                     ; place that bit on bit mask


        POP        BP
        RET
EGAPOINT    ENDP
endif

SETUPG:
        MOV        DX,GCHIP
        MOV        AL,MODEREG
        OUT        DX,AL             ; choose write mode 0
        INC        DX
        MOV        AL,0
        OUT        DX,AL             ; clear mode reg to 0
        DEC     DX
        MOV        AL,DRREG          ; clear function select = Replace
        OUT        DX,AL
        INC     DX
        MOV        AL,0h             ; clear all
        OUT        DX,AL
;
        MOV        AL,MAPREG         ; want to access mapreg from
        MOV        DX,SEQ            ; sequencer set of regs
        OUT        DX,AL
        MOV        AL,BITREG         ; want to access bitreg from
        MOV     DX,GCHIP          ; graphics chip's regs
        OUT        DX,AL
        MOV        DX,BITMASK        ; set up the bitmask = no masking
        MOV        AL,0FFH           ; all bits on
        OUT        DX,AL
        RET
;
;**************************************************************************
;  EGALINE
;
;   Write a stream of colors (represented by bytes) to the EGA, with
;   a translation table for the EGA color map.
;
;   Usage:     egaline(x,y,colorbuffer,n,table,xoff)
;            x,y = point to start line
;            colorbuffer = 4 byte pointer to stream of
;            n    bytes.
;            table  = 4 byte pointer to translation table, 256 bytes
;                      long for XLAT instruction
;             xoff    = offset into the line to be sent to the screen

EGALINE    PROC    FAR
        PUSH    BP
        MOV        BP,SP
        MOV     AL,FLAG
        OR      AL,AL
        JNZ     NOSETUP2
        CALL    SETUPG            ; set up the mask regs
        MOV     FLAG,1            ; set the flag
NOSETUP2:
        PUSH    DS                ; save our ds
        MOV     AX,[BP+X+6]       ; get color table segment
        MOV     DS,AX             ; use it now

        MOV        AX,0A000H
        MOV     ES,AX             ; set for addressing
        MOV        AX,[BP+X+14]; GET THE X OFFSET INTO THE ARRAY
        CMP        AX,0        ; CHECK FOR NEGATIVE OFFSET
        JGE        OKSIGN        ; JUMP AROUND FIXING THE WINDOW IF POSITIVE
        NEG        AX            ; TAKE THE OPPOSITE VALUE
        ADD        AX,[BP+X]    ; AND ADD IT TO THE POSITION ON THE SCREEN
        MOV        [BP+X],AX    ; AND RE-STORE THE POSITION
        MOV        AX,[BP+X+8]    ; GET THE NEGATIVE OFFSET AGAIN
        ADD        AX,[BP+X+8]    ; REDUCE THE NUMBER OF BYTES TO COPY TO THE SCREEN
        MOV        [BP+X+8],AX    ; AND STORE THE NUMBER OF BYTES AGAIN
OKSIGN:
        MOV        [BP+X+14],AX; PUT THE OFFSET BACK
;
        MOV        AX,[BP+X+2]       ; get y value 0 < y < 350
        MOV        BX,80
        MUL     BX                ; multiply by 80 bytes/line
        MOV     DI,AX             ; put in DI
        MOV     AX,[BP+X]         ; get x value 0 < x < 640
        MOV     BX,AX             ; save it
        MOV     CL,3
        SHR     AX,CL             ; divide by 8
        ADD     DI,AX             ; add it to di = byte offset
        ;
        MOV     CX,BX
        AND     CX,0007H          ; save only the right three bits
        MOV     BL,080H           ; here's a bit
        ROR        BL,CL             ; move it over some
;
;  At this point, bl has the bit mask for the first bit in the line
;  Keep rotating it and set the mask for each bit to write
;
        MOV     CX,[BP+X+8]       ; get count of bytes
        CMP        CX,0              ; CHECK FOR ZERO BYTES
        JL        LINEDONE          ; JUMP TO THE END OF THE ROUTINE
        MOV     SI,[BP+X+4]       ; where to get the new colors
        ADD     SI,[BP+X+14]      ; add in the x offset into the line

        MOV     AH,BL             ; keep bit rotation in ah
        MOV     DX,[BP+X+12]      ; get segment of transtable
        MOV     BX,[BP+X+10]      ; get offset of transtable

NEXTBIT:
        LODSB                     ; get the next color to al
        PUSH DS
        MOV  DS,DX                ; set ds for the transtable
        XLATB                     ; pick up translated color to al
        PUSH AX                   ; need it later

        MOV     DX,BITMASK        ; set the bitmask to current rotation
        MOV     AL,AH
        OUT     DX,AL             ;  send it

        MOV        DX,MAPMASK
        MOV     AL,0FH            ; open all bit planes
        OUT        DX,AL             ; send it

        MOV        AL,ES:[DI]        ; latch the whole set of bytes
        MOV     BYTE PTR ES:[DI],0H  ; clear all four planes to 0 at this bit
        POP        AX                ; get real color back
        OUT        DX,AL              ; send it to set the color planes

        MOV     DX,DS             ;  recover what was in dx
        POP     DS
;
        MOV        AL,0FFH           ; set all bits
        CMP     AH,01             ; see if we are at end of byte
        JZ      INCSTORE

NONINC:
        MOV     ES:[DI],AL        ; write the bit from bitmask
        ROR     AH,1              ; rotate me
        LOOP    NEXTBIT          ; go back for next one
        JMP     LINEDONE

INCSTORE:
        STOSB                     ; place that bit on bit mask and next byte
        ROR     AH,1              ; rotate me
        LOOP    NEXTBIT

LINEDONE:
        POP     DS
        POP        BP
        RET
EGALINE    ENDP

ifdef QAK
EGALINE2    PROC    FAR
        PUSH    BP
        MOV        BP,SP
        MOV     AL,FLAG
        OR      AL,AL
        JNZ     NO2SETUP2
        CALL    SETUPG            ; set up the mask regs
        MOV     FLAG,1            ; set the flag
NO2SETUP2:
        PUSH    DS                ; save our ds
        MOV     AX,[BP+X+6]       ; get color table segment
        MOV     DS,AX             ; use it now

        MOV        AX,0A000H
        MOV     ES,AX             ; set for addressing
        MOV        AX,[BP+X+2]       ; get y value 0 < y < 350
        MOV        BX,80
        MUL     BX                ; multiply by 80 bytes/line
        MOV     DI,AX             ; put in DI
        MOV     AX,[BP+X]         ; get x value 0 < x < 640
        MOV     BX,AX             ; save it
        MOV     CL,3
        SHR     AX,CL             ; divide by 8
        ADD     DI,AX             ; add it to di = byte offset
        ;
        MOV     CX,BX
        AND     CX,0007H          ; save only the right three bits
        MOV     BL,0C0H           ; here's 2 bits
        ROR        BL,CL             ; move it over some
;
;  At this point, bl has the bit mask for the first bit in the line
;  Keep rotating it and set the mask for each bit to write
;
        MOV     CX,[BP+X+8]       ; get count of bytes
        MOV     SI,[BP+X+4]       ; where to get the new colors

        MOV     AH,BL             ; keep bit rotation in ah
        MOV     DX,[BP+X+12]      ; get segment of transtable
        MOV     BX,[BP+X+10]      ; get offset of transtable

NEXT2BIT:
        LODSB                     ; get the next color to al
        PUSH DS
        MOV  DS,DX                ; set ds for the transtable
        XLATB                     ; pick up translated color to al
        PUSH AX                   ; need it later

        MOV     DX,BITMASK        ; set the bitmask to current rotation
        MOV     AL,AH
        OUT     DX,AL             ;  send it

        MOV        DX,MAPMASK
        MOV     AL,0FH            ; open all bit planes
        OUT        DX,AL             ; send it

        MOV        AL,ES:[DI]        ; latch the whole set of bytes
        MOV     BYTE PTR ES:[DI],0H  ; clear all four planes to 0 at this bit
        POP        AX                ; get real color back
        OUT        DX,AL              ; send it to set the color planes

        MOV     DX,DS             ;  recover what was in dx
        POP     DS
;
        MOV        AL,0FFH           ; set all bits
        CMP     AH,03             ; see if we are at end of byte
        JZ      INC2STORE

NON2INC:
        MOV     ES:[DI],AL        ; write the bit from bitmask
        ROR     AH,1              ; rotate me
        ROR     AH,1              ; rotate me
        LOOP    NEXT2BIT          ; go back for next one
        JMP     LINE2DONE

INC2STORE:
        STOSB                     ; place that bit on bit mask and next byte
        ROR     AH,1              ; rotate me
        ROR     AH,1              ; again
        LOOP    NEXT2BIT

LINE2DONE:
        POP     DS
        POP        BP
        RET
EGALINE2    ENDP

;**************************************************************************
;  EGALINEA
;
;   Write a stream of colors (represented by bytes) to the EGA, with
;   a translation table for the EGA color map.  This one includes arbitrary
;   width expansion.
;
;   Usage:     egalinea(x,y,colorbuffer,n,table,expansion)
;            x,y = point to start line
;            colorbuffer = 4 byte pointer to stream of
;            n    bytes.
;            table  = 4 byte pointer to translation table, 256 bytes
;                      long for XLAT instruction
;            expansion = how much horizontal pixel expansion you want
;

EGALINEA    PROC    FAR
        PUSH    BP
        MOV        BP,SP
        MOV     AL,FLAG
        OR      AL,AL
        JNZ     NOSETA
        CALL    SETUPG            ; set up the mask regs
        MOV     FLAG,1            ; set the flag
NOSETA:
        PUSH    DS                ; save our ds
        MOV     AX,[BP+X+6]       ; get color table segment
        MOV     DS,AX             ; use it now

        MOV        AX,0A000H
        MOV     ES,AX             ; set for addressing
        MOV        AX,[BP+X+2]       ; get y value 0 < y < 350
        MOV        BX,80
        MUL     BX                ; multiply by 80 bytes/line
        MOV     DI,AX             ; put in DI

        MOV     AX,[BP+X]         ; get x value 0 < x < 640
        MOV     BX,AX             ; save it
        MOV     CL,3
        SHR     AX,CL             ; divide by 8
        ADD     DI,AX             ; add it to di = byte offset
        ;
        MOV     CX,BX
        AND     CX,0007H          ; save only the right three bits
        MOV     BL,080H           ; here's a bit
        ROR        BL,CL             ; move it over some
;
;  At this point, bl has the bit mask for the first bit in the line
;  Keep rotating it and set the mask for each bit to write
;
        MOV     SI,[BP+X+4]       ; where to get the new colors

        MOV     AH,BL             ; keep bit rotation in ah
        MOV     DX,[BP+X+12]      ; get segment of transtable
        MOV     BX,[BP+X+10]      ; get offset of transtable

NEXTBYTE:
        MOV        CX,[BP+X+14]      ; pixel expansion number
        LODSB                     ; the next color to write
        PUSH     DS
         MOV        DS,DX             ; get the seg for xlat from dx
        XLATB                      ; color translation
        MOV        [BP+X],AL         ; used as a local var for translated color

NEXTP:
        MOV     DX,BITMASK        ; set the bitmask to current rotation
        MOV     AL,AH
        OUT     DX,AL             ;  send it

        MOV        DX,MAPMASK
        MOV     AL,0FH            ; open all bit planes
        OUT        DX,AL             ; send it

        MOV        AL,ES:[DI]        ; latch the whole set of bytes
        MOV     BYTE PTR ES:[DI],0H  ; clear all four planes to 0 at this bit
        MOV        AL,[BP+X]         ; get real color from local var
        OUT        DX,AL              ; send it to set the color planes
;
        MOV        AL,0FFH           ; set all bits
        MOV        ES:[DI],AL          ; set it!
        CMP     AH,01             ; see if we are at end of byte
        JNZ     SAMEBYTE
        INC        DI                ; get us to the next destination byte
SAMEBYTE:
        ROR     AH,1              ; rotate me
        LOOP    NEXTP             ; go back for next one

        MOV        DX,DS             ; reset xlat segment into dx
        POP        DS                ; get data input seg back
        DEC        WORD PTR [BP+X+8] ; number of data points
        JNZ        NEXTBYTE          ; do another, if necessary

        POP     DS
        POP        BP
        RET
EGALINEA    ENDP
endif
        ENDPS
        END