crear cuadrado

format binary as 'img'
ORG 7C00h

  MOV AX, 13h
  INT 10h

  MOV AX, 0xA000
  MOV ES, AX

  CALL pintar_bg
  CALL cuadrado

  JMP $

  cuadrado:
    MOV AL, [negro]
    MOV DI, 320*75+135

    MOV CX, [n]

    pintar_filas:
      PUSH CX

      MOV CX, [n]
      pintar_cols:
        MOV [ES:DI], AL
        INC DI
      LOOP pintar_cols
      ADD DI, 320-50
      POP CX
    LOOP pintar_filas



  RET

  pintar_bg:
    MOV CX, 320*200
    MOV DI, 0
    MOV AL, [blanco]

    bucle:
      MOV [ES:DI], AL
      INC DI
      LOOP bucle

  RET

blanco db 00001111b
negro db 00000000b
n dw 50

times 510-($-$$) db 0
  dw 0xAA55