home *** CD-ROM | disk | FTP | other *** search
- stdlib segment para public 'slcode'
- assume cs:stdlib
- extrn sl_putc:far
- ;
- ;
- public sl_print
- sl_print proc far
- push bp
- mov bp, sp
- push ax es bx
- ;
- les bx, 2[bp] ;Get return address
- jmp short TestZero
- ;
- PrintLoop: call sl_Putc
- inc bx
- TestZero: mov al, es:[bx]
- cmp al, 0
- jnz PrintLoop
- ;
- inc bx
- mov 2[bp], bx
- pop bx es ax bp
- ret
- sl_print endp
- stdlib ends
- end
-