Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .model tiny
- .code
- org 100h
- main:
- ;; аргументы нормер режима 01 02 07, номер страницы
- ;; в нем выводить
- mov ah, 0fh
- int 10h
- mov old_vm, al
- mov old_ap, bh
- xor ax, ax
- mov al, our_vm
- push ax
- mov al, our_ap
- push ax
- call change_vm
- mov column, 4
- mov row, 32
- mov cx, 10h
- ;mov dx, 10h
- mov symb, 00h
- ;32, 4 - начальные координаты курсора
- mov bh, our_ap
- l:
- mov ah, 02h
- mov dh, row
- mov dl, column
- push cx
- push dx
- int 10h
- mov cx, 10h
- ; xchg cx, dx
- inc column
- pop dx
- l_2:
- mov ah, 09h
- mov al, symb
- mov bl, 02h
- push cx
- mov cx, 01h
- int 10h
- pop cx
- inc symb
- inc dh
- loop l_2
- ;inc column
- pop cx
- ; xchg cx, dx
- loop l
- xor ax, ax
- int 16h ; Ждет нажатия клавиши
- xor ax, ax
- mov al, old_vm
- push ax
- mov al, old_ap
- push ax
- call change_vm
- ret
- change_vm proc
- push bp
- mov bp, sp
- push ax
- mov ah, 00h
- mov al, [bp+6] ;vm
- int 10h
- mov ah, 05h
- mov al, [bp+4] ;ap
- int 10h
- pop ax
- pop bp
- ret 4
- change_vm endp
- our_vm db 03h
- our_ap db 00h
- old_vm db ?
- old_ap db ?
- column db ?
- row db ?
- symb db ?
- end main
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement