LinhasTotais    EQU     0018h
ColunasTotais   EQU     0050h

.
.
.

;Rotina que limpa o ecra
;       Entradas: ---
;       Saidas: -----
;       Efeitos: ----
LimpaEcra:      PUSH    R1
                PUSH    R2
                PUSH    R3
                PUSH    R4
                MOV     R1,R0
                MOV     R4,ColunasTotais
                MOV     R3,LinhasTotais
CicloLinLimpa:  MOV     R2,R4
                MVBH    R1,R3
CicloColLimpa:  PUSH    R1
                PUSH    Espaco
                CALL    EscCar
                INC     R1
                DEC     R2
                BR.NZ   CicloColLimpa
                MOV     R1,R0
                DEC     R3
                BR.NZ   CicloLinLimpa
                POP     R4
                POP     R3
                POP     R2
                POP     R1
                RET