|
|
比如
;clearscreen.s
data segment
CR equ 0dh
winulc equ 30
winulr equ 8
winlrc equ 50
winlrr equ 16
winwidth equ 20
esc equ 1bh
data ends
cseg segment
assume cs:cseg,ds:data
start:mov ax,data
mov ds,ax
mov al,0
call clearscreen
repeat:mov dh,winlrr
mov dl,winulc
mov bh ,0
int 10h
call getchar
cmp al,esc
jz exit
mov al,1
call clearscreen
jmp repeat
exit:mov ah,4ch
int 21h
cseg ends
end start
cseg1 segment
assume cs :cseg1
getchar proc far
mov cx,winwidth
get:mov ah,1
int 21h
cmp al,CR
jz back
cmp al,esc
jz back
loop get
back:ret
getchar endp
clearscreen proc far
mov bh ,7
mov ch,winulr
mov cl,winulc
mov dh,winllr
mov dl,winllc
mov ah,6
int 10h
ret
clearscreen endp
cseg1 ends
请问用as或gcc应加什么选项编译?
谢谢 |
|