OUTSN.ASM
资源名称:ertos.rar [点击查看]
上传用户:sunrenlu
上传日期:2022-06-13
资源大小:1419k
文件大小:1k
源码类别:
操作系统开发
开发平台:
DOS
- PAGE 66,132
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ;
- ; outsn.asm
- ;
- ; print a string up to a certain len to stdio
- ;
- ;
- ; Usage :
- ; outsn( char far *s, int n)
- ;
- ; (c) Erick Engelke
- ;
- ; version
- ;
- ; 0.1 7-Nov -1990 E. P. Engelke
- ;
- ;
- include masmdefs.hsm
- include model.hsm
- codedef OUTSN
- datadef
- cextrn outch
- cstart OUTSN
- cpublic outsn
- push DS
- lds SI, +@AB [BP]
- mov CX, +@AB+4[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
- loop @1
- @2: pop DS
- creturn outsn
- cend OUTSN
- end