home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / INC_MAG / INC_3.MSA / SOURCER_LINE_A_A004.S < prev    next >
Text File  |  1990-03-17  |  888b  |  35 lines
  1. *
  2. * Line-A routine $A004
  3. * "Horizontal Line"
  4. *
  5.  
  6.     DC.W    $A000    ; Initialize Line-A
  7. ;
  8. ; The X and Y coordinates
  9. ;
  10.     MOVE.W    #10,38(A0)  ;X1      
  11.     MOVE.W    #60,40(A0)  ;Y1
  12.     MOVE.W    #200,42(A0) ;X2
  13. ;
  14. ; The bitplanes/colors    
  15. ;
  16.     MOVE.W    #1,24(A0)    ; Bitplane 1 used (a zero here turns bp 1 off)
  17.     MOVE.W    #0,26(A0)    ; Bitplane 2 unused (a one here turns it on)
  18.     MOVE.W    #0,28(A0)    ; Bitplane 3 unused (a one here turns it on)
  19.     MOVE.W    #0,30(A0)    ; Bitplane 4 unused (a one here turns it on)
  20. ;    
  21. ; Other variables
  22. ;
  23.     MOVE.L    #FILL,46(A0)    
  24.     MOVE.L    #$FFFF,50(A0) ; This is the mask for the line style    
  25.     MOVE.W    #0,36(A0)    ; Writing mode (0=write,1=Transparent,2=XOR mode and 3=Inverse mode)
  26.     MOVE.W    #-1,32(a0) ; This one should be -1, don't ask me why!
  27.     DC.W    $A004    ; Call Line-A
  28.     
  29.     CLR.W    -(SP)
  30.     TRAP    #1
  31.  
  32. ; Here can you "draw" your own linestyle pattern
  33. FILL:    DC.W %1111111111111111 
  34.  
  35.