| Код |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;ReadKey-reading 1 key from stdin
;;in=-
;;out= al-charecter
;; ah-scancode
;;note:
;; if Press Any Special key (F1,F3,etc.) then
;; you must cmp al with 0 and if it`s true
;; take ah=scancode,else see beloow
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ReadKey PROC Near
mov ah,00h
int 16h
ret
ReadKey ENDP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Readln using int 21h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Readln -read 1 string from file to buffer.String now NULL-terminate!
;;in =bx -hadle
;; ds:dx-buffer
;; ah=0 if EOF
;; al=1 if not EOF
;;out=CF set on Error
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Readln PROC NEAR
; mov dx,offset buffer ;already
; mov bx,handle ;already
mov si,dx
readstart:
mov ah,3Fh
mov cx,01
int 21h
jc ErrorRead
test ax,ax ;maby EOF already
jz EndReadEOF
cmp [si],byte ptr 0Dh
jz EndRead
inc si
mov dx,si
jmp short readstart
EndReadEOF:
mov [si],byte ptr 00
jmp short errorread ;go to exit
EndRead:
;read 0Ah byte....
mov [si],byte ptr 00
mov ah,42h
mov al,01h
; mov bx,handle ;already set
xor cx,cx
mov dx,01h
int 21h
mov ah,01
ErrorRead:
ret
Readln ENDP
|
ну и вывод собсна...
| Код |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Length - return length of ASCIZ string -WITHOUT 00 BYTE!!!
;;in- bp - offset string ASCIZ
;;out- cx - length of that string
;;modif. - cx,al,si
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LengthW PROC Near
xor cx,cx
mov si,bp
calcul:
mov al,[si]
test al,al
jz endcalc
inc si
jmp short calcul
endcalc:
sub si,bp
mov cx,si
ret
LengthW ENDP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Writeln - show string which terminate by zero byte.
;; use color.
;; cursor will after string
;;in= bp - offset string
;; bl - atribute
;;out- ???
;;modif. ah,al,bl,bh,dl,dh,cx
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Writeln PROC Near
call WhereXY
mov ah,13h
mov al,01 ;{must be 0 if cursor must be stand after string}
; mov bl,14 ;{<--atribut!} ;already set
mov bh,00 ;{video page}
call LengthW
; mov cx,len {length of string} ;set by Length
; mov bp,offset string {offset of string} ;<already set
int 10h
Writeln ENDP
|
писалось очень давно под определенные нужды...посему мб ошибки.. ну и общий стиль никакой)...так что AS IS ) |
)