home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / ASM / ASMLIB40.ZIP / ASM4DEMO.ZIP / BBTEST.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-08-28  |  829 b   |  62 lines
  1. include    asm.inc
  2.  
  3. public    bbtest
  4.  
  5. extrn    graphmode:proc, textmode:proc
  6.  
  7. extrn    drawline:proc
  8. extrn    bitblockbytes:proc, allocdos:proc, halloc:proc
  9. extrn    getbitblock:proc
  10. extrn    putbitblock:proc
  11. extrn    gcolor:proc
  12. extrn    drawbox:proc
  13. extrn    getkey:proc
  14.  
  15. .data
  16. x    dw 0,0,319,199
  17. y    dw 0,0,50,50
  18.  
  19. .code
  20. bbtest    proc
  21.     call    graphmode
  22.  
  23.     lea    bx,y
  24.     call    drawbox
  25.     mov    cx,319
  26.     lea    bx,x
  27. m0:    mov    ax,cx
  28.     call    gcolor
  29.     call    drawline
  30.     add    word ptr [bx],1
  31.     add    word ptr 4[bx],1
  32.     loop    m0
  33.  
  34.     lea    bx,y
  35.     call    bitblockbytes
  36.     call    halloc
  37.     jc    m1
  38.     mov    di,bx
  39.     push    bx
  40.     push    ds
  41.     pop    es
  42.     lea    bx,y
  43.     call    getbitblock
  44.     mov    ax,14
  45.     call    gcolor
  46.     call    drawbox
  47.     lea    bx,y+2
  48.     pop    di
  49.     push    ds
  50.     pop    es
  51.     call    putbitblock
  52.  
  53.     call    getkey
  54.     lea    bx,y
  55.     call    bitblockbytes
  56.     push    ax
  57.     call    textmode
  58.     pop    ax
  59. m1:    ret
  60. bbtest    endp
  61.     end
  62.