Microsoft (R) Macro Assembler Version 5.10                  5/16/24 23:40:14
CP/DOS  DOSPutMessage  mapper                               Page     1-1


				page 60,132
				
				title CP/DOS  DOSPutMessage  mapper
				
 0000				dosxxx	segment byte public 'dos'
					assume	cs:dosxxx,ds:nothing,es:nothing,ss:nothing
				;
				; ************************************************************************* *
				; *
				; *	 MODULE: DosPutMessage
				; *
				; *	 FILE NAME: dos035.asm
				; *
				; *	 FUNCTION:   diplay message
				; *
				; *	 CALLING SEQUENCE:
				; *
				; *		push	handle		; file handle
				; *		push	messlgth	; message length
				; *		push	messbuff	; message buffer
				; *		call	dosputmessage
				; *
				; *	 RETURN SEQUENCE:   AX = return code
				; *
				; *
				; *
				; *	 MODULES CALLED:     INT 21H  function 4
				; *
				; *************************************************************************
				
					public	dosputmessage
					.sall
					.list
				
				str	struc
 0000  0000			old_bp	dw	?
 0002  00000000			return	dd	?
 0006  00000000			MessagePtr	dd	?	; message pointer
 000A  0000			MessageLength	dw	?	; message length
 000C  0000			Handle		dw	?	; file handle
 000E				str	ends
				
 0000				dosputmessage proc   far
				
					Enter	dosputmessage		      ; save registers
				
 000C  8B 5E 0C				mov	bx,[bp].Handle		      ; get handle
 000F  8B 4E 0A				mov	cx,[bp].MessageLength	      ; get message length
 0012  C5 56 06				lds	dx,[bp].MessagePtr	      ; setup message buffer
				
 0015  B4 40				mov	ah,40h			      ; load opcode
 0017  CD 21				int	21h			      ; display message
 0019  72 02				jc	ErrorExit		      ; jump if error
				
 001B  33 C0				xor	ax,ax			      ; else set good return code
				
Microsoft (R) Macro Assembler Version 5.10                  5/16/24 23:40:14
CP/DOS  DOSPutMessage  mapper                               Page     1-2


 001D				ErrorExit:
					Mexit				      ; pop registers
 0029  CA 0008				ret	size str - 6		      ; return
				
 002C				dosputmessage  endp
				
 002C				dosxxx	ends
				
					end

Microsoft (R) Macro Assembler Version 5.10                  5/16/24 23:40:14
CP/DOS  DOSPutMessage  mapper                               Symbols-1


Macros:

		N a m e			Lines

ENTER  . . . . . . . . . . . . .  	   3
MEXIT  . . . . . . . . . . . . .  	   3
POPAL  . . . . . . . . . . . . .  	   9
PUSHAL . . . . . . . . . . . . .  	   9

Structures and Records:

                N a m e                 Width   # fields
                                        Shift   Width   Mask    Initial

STR  . . . . . . . . . . . . . .  	000E	0005
  OLD_BP . . . . . . . . . . . .  	0000
  RETURN . . . . . . . . . . . .  	0002
  MESSAGEPTR . . . . . . . . . .  	0006
  MESSAGELENGTH  . . . . . . . .  	000A
  HANDLE . . . . . . . . . . . .  	000C

Segments and Groups:

                N a m e         	Length	 Align	Combine Class

DOSXXX . . . . . . . . . . . . .  	002C	BYTE	PUBLIC	'DOS'

Symbols:            

                N a m e         	Type	 Value	 Attr

dosputmessage  . . . . . . . . .  	F PROC	0000	DOSXXX	Global	Length = 002C

ERROREXIT  . . . . . . . . . . .  	L NEAR	001D	DOSXXX

@CPU . . . . . . . . . . . . . .  	TEXT  0101h		
@FILENAME  . . . . . . . . . . .  	TEXT  putmsg		
@VERSION . . . . . . . . . . . .  	TEXT  510		


    113 Source  Lines
    137 Total   Lines
     19 Symbols

  47526 + 296471 Bytes symbol space free

      0 Warning Errors
      0 Severe  Errors
