?login_element?

Subversion Repositories NedoOS

Rev

Rev 126 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.         macro filler x1, x2, y1, y2
  2.                 if y1 >= 100
  3.                         ld      hl,y1*2
  4.                         add     hl,sp
  5.                         ld      sp,hl
  6.                 endif
  7.  
  8.                 dup (y2 - y1)
  9.                         if x1 >= 100
  10.                                 ld      de,x1
  11.                         endif
  12.  
  13.                         pop     hl
  14.  
  15.                         if x1 >= 100
  16.                                 add     hl,de
  17.                         endif
  18.  
  19.                         dup (x2 - x1)
  20.                                 ld      (hl),a
  21.                                 inc     l
  22.                         edup
  23.  
  24.                         ld      (hl),a
  25.                 edup
  26.         endm
  27.  
  28.         OUTPUT "if_in_dup.bin"
  29.  
  30.         filler 10, 13, 30, 33
  31.  
  32.         filler 110, 113, 130, 133
  33.