kcsj.mac

来自「我用汇编语言编写的程序 能够实现文件的复制删除读出显示等功能」· MAC 代码 · 共 43 行

init macro
mov ax,@data
mov ds,ax
mov es,ax
endm

scroll macro N
push ax
mov ah,6
mov al,N
mov bh,7
mov cx,0
mov dx,184fh
int 10h
pop ax
endm

cursor macro A,B
push ax
push bx
mov ah,2 
mov bh,0
mov dh,A
mov dl,B
int 10h
pop bx
pop ax
endm

strdisp macro str
push ax
push dx
lea dx,str
mov ah,9
int 21h
pop dx
pop ax
endm

charin macro 
mov ah,7
int 21h
endm