home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / ASSEMBLE / 80X0992 / DRAWIMAG.ASM < prev    next >
Assembly Source File  |  1992-07-30  |  14KB  |  377 lines
  1. ;
  2. ;  DRAWIMAG.ASM
  3. ;
  4. ;  Author: Matt Pritchard
  5. ;  released to the public domain
  6. ;
  7.         
  8.         VGA_SEGMENT     EQU     0A000H          ;Vga Memory Segment
  9.         SCREEN_XWIDTH   EQU     360             ;Screen width in Pixels
  10.         SCREEN_WIDTH    EQU     90              ;Screen width in bytes
  11.  
  12.         GC_INDEX        EQU     03CEH           ;VGA Graphics Controller
  13.         SC_INDEX        EQU     03C4H           ;VGA Sequence controller
  14.         CRTC_INDEX      EQU     03D4H           ;VGA CRT Controller
  15.         MISC_OUTPUT     EQU     03C2H           ;VGA Misc Register
  16.         MAP_MASK        EQU     02              ;Map Register #
  17.         READ_MAP        EQU     04              ;Read Map Register #
  18.  
  19. ;DRAWIMAGE (IconImageSeg%, IconImageOfs%, Xpos%, Ypos%, Width%, Hieght%) 
  20. ; 
  21. ; % = 16 bit integer value passed BY VALUE on stack. 
  22. ; 
  23. ;Draws a variable sized Image, only the non zero pixels. 
  24. ;The width of the image must be a multiple of 4. 
  25. ; 
  26. ;Preserves:  DS, SI, DI, BP 
  27. ;Sets:       Dir flag - Clear 
  28. ;Destroys:   AX, BX, CX, DX, ES, Flags
  29.  
  30. DI_STACK        STRUC
  31.         DI_Jump         DW      ?       ;Jump Table offset
  32.         DI_Repeat       DB      ?,?     ;# of 16 byte repeat copies
  33.         DI_NextL        DW      ?       ;Offset to next line start
  34.         DI_Addr         DW      ?       ;Saved Image Address
  35.                         DW      ?       ;Saved DI
  36.                         DW      ?       ;Saved SI
  37.                         DW      ?       ;Saved DS
  38.                         DW      ?       ;Saved BP
  39.                         DD      ?       ;Save Caller Addr
  40.         DI_YSIZE        DW      ?       ;Height of Image
  41.         DI_XSIZE        DW      ?       ;Width of Image (mult of 4)
  42.         DI_YPOS         DW      ?       ;Y pos of Image (Upper left)
  43.         DI_XPOS         DW      ?       ;X pos of Image (Upper left)
  44.         DI_IOFF         DW      ?       ;Offset of image data
  45.         DI_ISEG         DW      ?       ;Segment of image data DI_STACK
  46. ENDS
  47.  
  48.         PUBLIC    DRAWIMAGE
  49.  
  50.         .CODE
  51.  
  52.         ;Table for Inline (Unrolled loop) entry
  53.  
  54. JumpTable       DW      @Copy0,  @Copy1,  @Copy2,  @Copy3
  55.                 DW      @Copy4,  @Copy5,  @Copy6,  @Copy7
  56.                 DW      @Copy8,  @Copy9,  @Copy10, @Copy11
  57.                 DW      @Copy12, @Copy13, @Copy14, @Copy15
  58.  
  59. DRAWIMAGE   PROC    FAR
  60.  
  61.         PUSH    BP                      ;Save Bp
  62.         PUSH    DS                      ;Save Data Seg
  63.         PUSH    SI                      ;
  64.         PUSH    DI                      ;
  65.  
  66.         SUB     SP, 8                   ;Alloc Temp Stack Variables
  67.  
  68.         MOV     BP, SP                  ;Set to address of bp
  69.  
  70.         MOV     AX, VGA_SEGMENT         ;VGA Graphics Segment
  71.         MOV     ES, AX                  ;ES for Vga pixel access
  72.  
  73.         ;Setup all our stack variables
  74.  
  75.         MOV     BX, [BP].DI_XSIZE       ;Get image width
  76.         SHR     BX, 1                   ;Get width /2
  77.         MOV     SI, BX                  ;Put (Width/4)*2 in SI
  78.         SHR     BX, 1                   ;Get Width /4
  79.         MOV     [BP].DI_XSIZE, BX       ;Save width/4 as width
  80.         MOV     DX, SCREEN_WIDTH        ;Get Screen width (bytes)
  81.         SUB     DX, AX                  ;Get Dist to start of next line
  82.         MOV     [BP].DI_NextL, DX       ;Save info for later
  83.         AND     SI, 000Fh               ;Get (width/4) mod 16
  84.         MOV     AX, CS:JumpTable[SI]    ;Get 1st pass jump addr
  85.         MOV     [BP].DI_Jump, AX        ;Save for reference...
  86.  
  87.         MOV     CL, 4                   ;4 shifts = /16
  88.         SHR     BX, CL                  ;Get (Width/4) / 16
  89.         INC     BL                      ;Add 1 for 0 fall through
  90.         MOV     [BP].DI_Repeat, BL      ;Save Repeat block count
  91.  
  92.         ;Compute address of Image on Screen
  93.  
  94.         MOV     AX, SCREEN_WIDTH        ;Get Screen width (bytes)
  95.         MUL     [BP].DI_YPOS            ;AX = Ypos * Screen Width
  96.  
  97.         MOV     DI, [BP].DI_XPOS        ;Get Xpos
  98.         MOV     CX, DI                  ;Copy of Xpos in CX
  99.         SHR     DI, 1                   ;XByte = Xpos/4
  100.         SHR     DI, 1
  101.  
  102.         ADD     DI, AX                  ;Addr = Xpos/4 + Ypos*Screen Width
  103.         MOV     [BP].DI_Addr,DI         ;Save Screen starting Write Addr
  104.  
  105.         MOV     AX, 1102h               ;Plane Mask & Plane Select
  106.         AND     CL, 3                   ;Get Plane # in CL (Xpos AND 3)
  107.         SHL     AH, CL                  ;Set Mask to correct plane
  108.  
  109.         MOV     DX, SC_INDEX            ;Setup to select plane
  110.         OUT     DX, AX                  ;Select Plane...
  111.         INC     DX                      ;Future OUTs will be plane select
  112.  
  113.         MOV     DS, [BP].DI_ISEG        ;Get Image SEGMENT in DS
  114.  
  115.         MOV     CH,04h                  ;4 Planes to Draw
  116.  
  117.         CLD                             ;String copy opcodes forward
  118.  
  119.         ;Copy a plane (1/4) of the image data
  120.  
  121. @DI_Copy_Plane:
  122.  
  123.         MOV     SI,[BP].DI_IOFS         ;Get image start addr in (DS:)SI
  124.         MOV     DI,[BP].DI_Addr         ;Get Image write addr in (ES:)DI
  125.         MOV     CL,[BP].DI_Repeat       ;Get block repeat count
  126.         MOV     DX,[BP].DI_YSIZE        ;Get # of lines to copy
  127.         MOV     BX,[BP].DI_Jump         ;Get starting addr
  128.  
  129.         JMP     NEAR [BX]               ;skip to correct starting point
  130.  
  131.         ;Copy a block of 16 pixels
  132.         ;Loop unrolled to x16 for maximum performance
  133.  
  134. @DI_Copy_Loop:
  135.  
  136.         MOV     AL,[SI]                 ;Read Byte #1
  137.         OR      AL,AL                   ;Byte = 0?
  138.         JZ      @ND1                    ;If so, Don't Draw
  139.         MOV     ES:[DI],AL              ;Draw byte #1
  140.  
  141. @ND1:
  142.         INC     DI                      ;Advance Dest Addr
  143.         ADD     SI,4                    ;Skip to Next Byte in same plane
  144.  
  145. @Copy15:
  146.         MOV     AL,[SI]                 ;Read Byte #2
  147.         OR      AL,AL                   ;Byte =0?
  148.         JZ      @ND2                    ;If so, Don't Draw
  149.         MOV     ES:[DI],AL              ;Draw byte #2
  150.  
  151. @ND2:
  152.         INC     DI                      ;Advance Dest Addr
  153.         ADD     SI,4                    ;Skip to Next Byte in same plane
  154.  
  155. @Copy14:
  156.         MOV     AL,[SI]                 ;Read Byte #3
  157.         OR      AL,AL                   ;Byte =0?
  158.         JZ      @ND3                    ;If so, Don't Draw
  159.         MOV     ES:[DI],AL              ;Draw byte #3
  160.  
  161. @ND3:
  162.         INC     DI                      ;Advance Dest Addr
  163.         ADD     SI,4                    ;Skip to Next Byte in same plane
  164.  
  165. @Copy13:
  166.         MOV     AL,[SI]                 ;Read Byte #4
  167.         OR      AL,AL                   ;Byte =0?
  168.         JZ      @ND4                    ;If so, Don't Draw
  169.         MOV     ES:[DI],AL              ;Draw byte #4
  170.  
  171. @ND4:
  172.         INC     DI                      ;Advance Dest Addr
  173.         ADD     SI,4                    ;Skip to Next Byte in same plane
  174.  
  175. @Copy12:
  176.         MOV     AL,[SI]                 ;Read Byte #5
  177.         OR      AL,AL                   ;Byte =0?
  178.         JZ      @ND5                    ;If so, Don't Draw
  179.         MOV     ES:[DI],AL              ;Draw byte #5
  180.  
  181. @ND5:
  182.         INC     DI                      ;Advance Dest Addr
  183.         ADD     SI,4                    ;Skip to Next Byte in same plane
  184.  
  185. @Copy11:
  186.         MOV     AL,[SI]                 ;Read Byte #6
  187.         OR      AL,AL                   ;Byte =0?
  188.         JZ      @ND6                    ;If so, Don't Draw
  189.         MOV     ES:[DI],AL              ;Draw byte #6
  190.  
  191. @ND6:
  192.         INC     DI                      ;Advance Dest Addr
  193.         ADD     SI,4                    ;Skip to Next Byte in same plane
  194.  
  195. @Copy10:
  196.         MOV     AL,[SI]                 ;Read Byte #7
  197.         OR      AL,AL                   ;Byte =0?
  198.         JZ      @ND7                    ;If so, Don't Draw
  199.         MOV     ES:[DI],AL              ;Draw byte #7
  200.  
  201. @ND7:
  202.         INC     DI                      ;Advance Dest Addr
  203.         ADD     SI,4                    ;Skip to Next Byte in same plane
  204.  
  205. @Copy9:
  206.         MOV     AL,[SI]                 ;Read Byte #8
  207.         OR      AL,AL                   ;Byte =0?
  208.         JZ      @ND8                    ;If so, Don't Draw
  209.         MOV     ES:[DI],AL              ;Draw byte #8
  210.  
  211. @ND8:
  212.         INC     DI                      ;Advance Dest Addr
  213.         ADD     SI,4                    ;Skip to Next Byte in same plane
  214.  
  215. @Copy8:
  216.         MOV     AL,[SI]                 ;Read Byte #9
  217.         OR      AL,AL                   ;Byte =0?
  218.         JZ      @ND9                    ;If so, Don't Draw
  219.         MOV     ES:[DI],AL              ;Draw byte #9
  220.  
  221. @ND9:
  222.         INC     DI                      ;Advance Dest Addr
  223.         ADD     SI,4                    ;Skip to Next Byte in same plane
  224. @Copy7:
  225.         MOV     AL,[SI]                 ;Read Byte #10
  226.         OR      AL,AL                   ;Byte =0?
  227.         JZ      @ND10                   ;If so, Don't Draw
  228.         MOV     ES:[DI],AL              ;Draw byte #10
  229.  
  230. ;Routine: CLEAR_VGA_SCREEN (*Color%)
  231. ;  Sets the Entire Screen to one Color
  232. ;
  233. ;BASIC: DECLARE SUB CLEAR.VGA ALIAS "CLEAR_VGA_SCREEN" 
  234. ;(BYVAL ColorNum%) 
  235. ; 
  236. ;C:     pascal void CLEAR_VGA_SCREEN ( int ColorNum );
  237.  
  238. CVS_STACK STRUC
  239.                 DW      ?       ;saved DI
  240.                 DW      ?       ;saved BP
  241.                 DD      ?       ;Caller
  242.     CVS_COLOR   DB      ?,?     ;Color to Fill With CVS_STACK ENDS
  243.  
  244.     PUBLIC      CLEAR_VGA_SCREEN
  245.  
  246. CLEAR_VGA_SCREEN        PROC    FAR
  247.  
  248.     PUSH    BP                  ; Save registers
  249.     PUSH    DI
  250.  
  251.     MOV     BP,SP               ; Setup Stack frame
  252.  
  253.     MOV     DX, SC_INDEX        ; Select All Panes
  254.     MOV     AX, 0F02H           ; Map Mask (02) = 0F
  255.     OUT     DX, AX
  256.  
  257.     MOV     AX, VGA_SEGMENT     ; Point to VGA memory
  258.     MOV     ES, AX
  259.     MOV     DI, 0
  260.  
  261.     MOV     AL,[BP].CVS_COLOR   ; Get Color to set
  262.     MOV     AH,AL               ; Copy for Word Write
  263.  
  264.     MOV     CX, 10800           ; # of bytes in 360x240 mode
  265.     REP     STOSW               ; Blast it!
  266.  
  267.     POP     DI                  ; restore registers
  268.     POP     BP
  269.  
  270.     RET     2                   ; exit & clean up stack
  271.  
  272. CLEAR_VGA_SCREEN        ENDP
  273.  
  274. ;Routine: SETPOINT (*Xpos1, *Ypos1%, *ColorNum%) 
  275. ;   Sets a single pixel in 360x240 256 color mode 
  276. ; 
  277. ;BASIC: DECLARE SUB SETPOINT (BYVAL X%, BYVAL Y%, BYVAL ColorNum%) 
  278. ;C:     pascal void SETPOINT (int Xpos, int Ypos, int ColorNum);
  279.  
  280.  
  281. SP_STACK STRUC
  282.                 DW      ?       ;saved BP
  283.                 DD      ?       ;Caller
  284.     SETP_COLOR  DB      ?,?     ;Pixel color
  285.     SETP_YPOS   DW      ?       ;Pixel Y pos
  286.     SETP_XPOS   DW      ?       ;Pixel X pos SP_STACK ENDS
  287.  
  288.     PUBLIC SETPOINT
  289.  
  290. SETPOINT    PROC    FAR
  291.  
  292.     PUSH    BP                  ;Save base pointer
  293.  
  294.     MOV     BP,SP               ;Set up stack frame
  295.  
  296.     MOV     AX, SCREEN_WIDTH    ;Get Screen Line Width
  297.     MUL     [BP].SETP_YPOS      ;AX = Ypos * 90
  298.  
  299.     MOV     BX,[BP].SETP_XPOS   ;Get Xpos
  300.     MOV     CX, BX              ;Save copy of Xpos
  301.     SHR     BX, 1               ;XByte = Xpos/4
  302.     SHR     BX, 1
  303.  
  304.     ADD     BX,AX               ;BX = 90 * Ypos + Xpos/4
  305.  
  306.     MOV     AX, 0102h           ;Plane Mask & Select Register
  307.     AND     CL, 3               ;Get plane # from Xpos
  308.     SHL     AH, CL              ;Shift to Get Plane Value
  309.     MOV     DX, SC_INDEX        ;Setup to select plane
  310.  
  311.     OUT     DX, AX              ;Select Plane...
  312.  
  313.     MOV     AX,VGA_SEGMENT      ;Setup Vga Segment
  314.     MOV     ES,AX
  315.  
  316.     MOV     AL,[BP].SETP_COLOR  ;Get Color
  317.  
  318.     MOV     ES:[BX], AL         ;Draw Point
  319.  
  320.     POP     BP                  ;Restore Bp
  321.  
  322.     RET     6                   ;Exit and Clean up Stack
  323.  
  324. SETPOINT    ENDP
  325.  
  326. ;Routine: int READPOINT (*Xpos, *Ypos%)
  327. ;    Returns the color of single pixel in AX 
  328. ; 
  329. ;BASIC: DECLARE FUNCTION READPOINT% (BYVAL X%, BYVAL Y%) 
  330. ;C:     pascal int READPOINT( int Xpos, int Ypos );
  331.  
  332. RP_STACK STRUC
  333.                 DW      ?       ;saved Bp
  334.                 DD      ?       ;Caller
  335.     RP_YPOS     DW      ?       ;Pixel Y pos
  336.     RP_XPOS     DW      ?       ;Pixel X pos RP_STACK ENDS
  337.  
  338.     PUBLIC      READPOINT
  339.  
  340. READPOINT        PROC    FAR
  341.  
  342.     PUSH    BP
  343.  
  344.     MOV     BP,SP               ;Set up stack frame
  345.  
  346.     MOV     AX, SCREEN_WIDTH    ;Get Screen Line Width
  347.     MUL     [BP].RP_YPOS        ;AX = Ypos * Screen Width
  348.  
  349.     MOV     BX,[BP].RP_XPOS     ;Get Xpos
  350.     MOV     CX, BX              ;Save Copy of Xpos
  351.     SHR     BX, 1               ;XByte = Xpos/4
  352.     SHR     BX, 1
  353.  
  354.     ADD     BX,AX               ;BX = Screen_Width * Ypos + Xpos/4
  355.  
  356.     MOV     AL, READ_MAP        ;GC Read Mask Register
  357.     MOV     AH, CL              ;Get Xpos
  358.     AND     AH, 3               ;& mask out Plane #
  359.     MOV     DX, GC_INDEX        ;Setup to select Read Mask
  360.  
  361.     OUT     DX, AX              ;Select Plane...
  362.  
  363.     MOV     AX,VGA_SEGMENT      ;Setup Vga Segment
  364.     MOV     ES,AX
  365.  
  366.     XOR     AX,AX               ;Clear Return Value
  367.  
  368.     MOV     AL,ES:[BX]          ;Get Color of Pixel
  369.  
  370.     POP     BP                  ;Restore registers
  371.  
  372.     RET     4                   ;Exit and Clean up Stack
  373.  
  374. READPOINT        ENDP
  375.  
  376. ; EOF DRAWIMAG.ASM
  377.