home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
PPPBCKP
/
SRC
/
SRC20A01.ZIP
/
WATTSRC.ZIP
/
ELIB
/
OUTS.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-11-28
|
948b
|
67 lines
PAGE 66,132
;
;
;
;
;
;
;
;
; outs.asm
;
; print a string to stdio
;
;
; Usage :
; outch( ch )
;
; (c) 1990 University of Waterloo,
; Faculty of Engineering,
; Engineering Microcomputer Network Development Office
;
; version
;
; 0.1 7-Nov -1990 E. P. Engelke
;
;
include masmdefs.hsm
include model.hsm
codedef OUTS
datadef
cextrn outch
cstart OUTS
cpublic outs
push DS
lds SI, +@AB [BP]
@1: lodsb
or AL, AL
jz @2
cmp AL, 0dh ;convert 0d to 0d 0a
jnz @3
push AX
ccall outch
pop AX
; mov DL, AL
; mov AX, 020ah
; int 21h
@3: push AX
ccall outch
pop AX
; mov DL, AL
; mov AH, 2
; int 21h
jmp @1
@2: pop DS
creturn outs
cend OUTS
end