home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG084P.ASM < prev    next >
Assembly Source File  |  1988-05-25  |  4KB  |  168 lines
  1.  
  2. ;************************************************************************
  3. ;                                    *
  4. ;  Scanline(start, end, raster, color):draw line from (start,y) to    *
  5. ;    (end,y) with a color 'color'.                                   *
  6. ;  Entry :sp + 12 = Start                        *
  7. ;      sp + 10 = Stop                         *
  8. ;      sp + 8 = y                            *
  9. ;      sp + 6 = color                        *
  10. ;        ....                            *
  11. ;                                    *
  12. ;************************************************************************
  13.  
  14. XSIZE    EQU    640
  15. HBYTES    EQU    (XSIZE/8)
  16. GRFSEG    EQU    0A000H
  17.  
  18. Start    EQU    [BP+12]
  19. Stop    EQU    [BP+10]
  20. Raster    EQU    [BP+8]
  21. Color    EQU    [BP+6]
  22.  
  23.     PUBLIC    ScanLine
  24.  
  25. ScanLine    PROC FAR
  26.     PUSH    BP
  27.     MOV    BP,SP
  28.  
  29.     PUSH    DI            ;Preserve segment registers
  30.     PUSH    SI
  31.     PUSH    DS
  32.     PUSH    ES
  33.  
  34.        ;--- Load SET/RESET registers with current color
  35.  
  36.     MOV    DX,03CEh     ; move color into reset register
  37.     XOR    AL,AL
  38.     OUT    DX,AL
  39.     INC    DX
  40.     MOV    AL,Color
  41.     OUT    DX,AL
  42.     DEC    DX         ; enable use of reset register
  43.     MOV    AL,1
  44.     OUT    DX,AL
  45.     INC    DX
  46.     MOV    AL,0Fh
  47.     OUT    DX,AL
  48.     MOV    DX,03C4h     ; enable all four planes for writing
  49.     MOV    AL,2
  50.     OUT    DX,AL
  51.     INC    DX
  52.     MOV    AL,0Fh
  53.     OUT    DX,al
  54.  
  55.     ;--- COMPUTE ADDRESS AND MASK FOR FIRST PIXEL -------------
  56. SL_Address:
  57.     ;--- Convert (x,y) to absolute address in display buffer
  58.  
  59.     MOV    AX,Raster        ;Compute offset as 80*y+x/8
  60.     MOV    BX,HBYTES
  61.     MUL    BX
  62.     MOV    DI,Start        ; + x/8
  63.     MOV    CL,3
  64.     SHR    DI,CL
  65.     ADD    DI,AX
  66.  
  67.     MOV    DX,GRFSEG        ;Point DS and ES into display buffer
  68.     MOV    DS,DX
  69.     MOV    ES,DX
  70.  
  71.     MOV    CX,Stop         ;Compute dx
  72.     SUB    CX,Start
  73.  
  74.     ;--- Compute bit mask for the leading partial byte
  75.  
  76.     MOV    AX,Start        ;Fetch x0
  77.     AND    AX,07H            ;Check if there is leading partial byte
  78.     JZ    SL_Complete        ;...No, bypass this step
  79.     MOV    BX,0FFH         ;Compute mask for the first byte by
  80.     PUSH    CX            ;shifting FF pattern to the right
  81.     MOV    CX,AX            ;until only partial leading bits are
  82.     SHR    BX,CL            ;on
  83.     POP    CX
  84.     ADD    CX,AX            ;Update counter of bits completed
  85.     SUB    CX,8
  86.     JGE    SL_SetMask        ;Modify mask if only one byte
  87.     NEG    CX
  88.     SHR    BX,CL
  89.     SHL    BX,CL
  90.     XOR    CX,CX            ; restore counter
  91. SL_SetMask:
  92.     MOV    DX,3CEH         ;Set mask by loading BIT MASK
  93.     MOV    AL,08h            ;register in the GRAPHICS controller
  94.     OUT    DX,AL
  95.     INC    DX
  96.     MOV    AL,BL
  97.     OUT    DX,AL
  98.  
  99.     ;--- Draw pixels from the leading partial byte
  100.  
  101.     MOV    AL,[DI]         ;Latch data
  102.     STOSB                ;Write new data
  103.  
  104.     ;--- Draw pixels from the middle complete bytes
  105.  
  106. SL_Complete:                ; check if any bytes to set
  107.     MOV    BX,CX            ;Check if there is more than 7 bits
  108.     CMP    CX,8            ;left to draw
  109.     JL    SL_Trailing        ;... If not, skip this part
  110.  
  111.     SHR    CX,1            ;Divide bits by 8 to get byte count
  112.     SHR    CX,1
  113.     SHR    CX,1
  114.     MOV    DX,03CEH        ; Enable all 8 bits for write
  115.     MOV    AL,08h            ; by writing to BIT MASK register in
  116.     OUT    DX,AL            ; the SEQUENCER
  117.     INC    DX
  118.     MOV    AL,0FFH
  119.     OUT    DX,AL
  120.  
  121.     REP    STOSB            ;Write new data
  122.  
  123.     ;--- Compute mask for the trailing partial byte
  124.  
  125. SL_Trailing:
  126.     AND    BX,07H            ;Check if there are any bits left to do
  127.     JZ    SL_Done         ;...No, quit
  128.     MOV    AX,0FFFFH        ;...Yes, compute mask by shifting FFFF
  129.     MOV    CX,BX            ;by number of bits to be drawn
  130.     SHR    AX,CL
  131.     XOR    AH,0FFH
  132.     MOV    DX,03CEH        ;Set BIT MASK register in GRAPHICS
  133.     MOV    AL,08h            ;controller to the mask
  134.     OUT    DX,AL
  135.     INC    DX
  136.     MOV    AL,AH
  137.     OUT    DX,AL
  138.  
  139.     ;--- Draw pixels from the trailing partial byte
  140.  
  141.     MOV    AL,[DI]         ;Latch data
  142.     STOSB                ;Write new data
  143.  
  144.     ;--- Restore PLANE ENABLE and BIT MASK registers
  145. SL_Done:
  146.     MOV    DX,03CEh        ; Enable all 8-bits in a byte for write
  147.     MOV    AL,08h            ; by setting BIT MASK register to Fhex
  148.     OUT    DX,AL
  149.     INC    DX
  150.     MOV    AL,0FFh
  151.     OUT    DX,AL
  152.  
  153.     DEC    DX            ; Disable SET/RESET function
  154.     MOV    AL,1
  155.     OUT    DX,AL
  156.     INC    DX
  157.     XOR    AX,AX
  158.     OUT    DX,AL
  159.  
  160.     POP    ES            ;Restore segment registers
  161.     POP    DS
  162.     POP    SI
  163.     POP    DI
  164.     MOV    SP,BP
  165.     POP    BP
  166.     RET    8
  167. ScanLine    ENDP
  168.