home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / ASM003.ZIP / TESTLINE.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-07-27  |  1.7 KB  |  56 lines
  1.      PAGE,132
  2.      EXTRN DRAWLINE:FAR
  3.  
  4. ;     DAN ROLLINS  (213) 246-5021
  5. ;
  6. ;     TESTLINE---sample driver for DRAWLINE
  7. ;---------------------------------------------------------------
  8. STACK   SEGMENT  PARA STACK 'STACK '
  9.         DB       64 DUP('STACK   ')
  10. STACK   ENDS
  11. ;---------------------------------------------------------------
  12. DATA    SEGMENT  PARA PUBLIC 'DATA'
  13.  
  14. PARMS   DW       7 DUP (?)
  15.  
  16. ;equates make it easier to program access to arguments
  17.  
  18. X1      EQU      WORD PTR [SI]
  19. Y1      EQU      WORD PTR [SI+2]
  20. X2      EQU      WORD PTR [SI+4]
  21. Y2      EQU      WORD PTR [SI+6]
  22. COLOR   EQU      WORD PTR [SI+8]
  23. LEN     EQU      WORD PTR [SI+10]
  24. SKIP    EQU      WORD PTR [SI+12]
  25. DATA    ENDS
  26. ;---------------------------------------------------------------
  27. TESTSEG SEGMENT PARA PUBLIC 'CODE'
  28.         ASSUME  CS:TESTSEG, DS:DATA
  29.  
  30. TESTLINE PROC FAR
  31.         PUSH  DS          ;save program prefix segment for exit
  32.         XOR   AX,AX
  33.         PUSH  AX          ;word of 0000 for exit return address
  34.  
  35.         MOV   AH,0        ;set mode function
  36.         MOV   AL,4        ;med-res graphics
  37.         INT   10H         ;initialize graphics mode
  38.  
  39.         MOV   AX,DATA     
  40.         MOV   DS,AX               ;set up data segment
  41.         MOV   SI,OFFSET DS:PARMS  ;point si to line parameter block
  42.  
  43.         MOV   COLOR,3     ;white  
  44.         MOV   X1,0        ;start is top left of screen 
  45.         MOV   Y1,0 
  46.         MOV   X2,319      ;end is bottom right 
  47.         MOV   Y2,199 
  48.  
  49.         MOV   LEN,0       ;display entire line
  50.         MOV   SKIP,0
  51.         CALL  DRAWLINE
  52.         RET               ;program exits to DOS (or DEBUG)
  53. TESTLINE   ENDP
  54. TESTSEG  ENDS
  55.          END    TESTLINE
  56.