.model   small
           .code
           org      100h

cmosimg:   jmp      body
filename   db       "CMOS.Img",0
handle     dw       0

body       proc     near
           cld
           lea      di,buffer
           mov      cx,80h
counter:   mov      al,80h
           sub      al,cl
           out      70h,al
           in       al,71h
           stosb
loop       counter
           mov      ah,3ch      ;scrive nel file
           xor      cx,cx
           lea      dx,filename
           int      21h
           mov      handle,ax
           mov      ah,40h
           mov      bx,handle
           mov      cx,80h
           lea      dx,buffer
           int      21h
           mov      ah,3eh
           mov      bx,handle
           int      21h
           int      20h
body       endp

buffer:    end      cmosimg