;
; SPLIT.A86 - Clear the screen by sliding the text off in 4 columns
;
        cseg
        org     100h
        jmp     start
;
number  dw      0
;
start:
        mov     cx,0019h
        jmp     again
timer:
        push    cx
        xor     ax,ax
        xor     cx,cx
        xor     dx,dx
        mov     ah,00                   ;function 0 - read system timer
        int     1Ah                     ;call timer services
        mov     number,dx               ;store return in variable
        add     number,1                ;add 1 to it
count:
        mov     ah,00                   ;function 0 - read system timer
        int     1Ah
        cmp     number,dx
        je      thatsall                ;yes, go do the screen
        jmp     count                   ;no, go count some more
thatsall:
        pop     cx
again:
        PUSH    CX
        MOV     AX,0601h
        MOV     BH,07h
        MOV     CX,0
        MOV     DX,01814h
        INT     10h
        MOV     AX,0601h
        MOV     BH,07h
        MOV     CX,0029h
        MOV     DX,0183Dh
        INT     10h
        MOV     AX,0701h
        MOV     BH,07h
        MOV     CX,0015h
        MOV     DX,01828h
        INT     10h
        MOV     AX,0701h
        MOV     BH,07h
        MOV     CX,003Eh
        MOV     DX,0184Fh
        INT     10h
        POP     CX
        DEC     CX
        CMP     CX,0
        JNZ     timer
        MOV     AH,02h
        MOV     BH,0
        xor     dx,dx
        INT     10h
        xor     cx,cx
        int     224
end