Return to crt0msg.asm CVS log

Up to [OS/2 SDKs] / os2sdk / startup / os2

Microsoft OS/2 SDK 12-15-1987

	TITLE	crt0msg - OS/2 startup messages
;***
;5crt0msg.asm - OS/2 startup error messages
;
;	Copyright (c) 1986-1987, Microsoft Corporation
;
;Purpose:
;	Core collection of error messages contained in programs
;	which use the C startup code.
;
;*******************************************************************************


?DF=	1			; this is special for c startup
include	version.inc
.xlist
include	cmacros.inc
.list

createSeg HDR,	nhdr,	byte,	public, MSG,	DGROUP
createSeg MSG,	nmsg,	byte,	public, MSG,	DGROUP
createSeg PAD,	npad,	byte,	common, MSG,	DGROUP
createSeg EPAD,	nepad,	byte,	common, MSG,	DGROUP

createSeg _TEXT, code,	word,	public, CODE,	<>
createSeg _DATA, data,	word,	public, DATA,	DGROUP

defGrp	DGROUP			; define DGROUP


public	__acrtmsg
__acrtmsg= 9876h

;	Messages used by crt0.asm

sBegin	nmsg
assumes	ds,data
	dw	0
	db	'R6000',13,10,'- stack overflow',13,10,0
	dw	3
	db	'R6003',13,10,'- integer divide by 0',13,10,0
	dw	8
	db	'R6008',13,10,'- not enough space for arguments',13,10,0
	dw	9
	db	'R6009',13,10,'- not enough space for environment',13,10,0
IFDEF	FORTRAN
	dw	252
	db	13,10,0
	dw	255
	db	'run-time error ',0
ELSE
	dw	255
	db	13,10,'run-time error ',0
ENDIF
sEnd	nmsg

sBegin	npad
assumes	ds,data
	dw	-1
; no padding for now;
; MAX padding would be
;	db	113 dup(0)
sEnd

externP	_NMSG_WRITE

IFDEF	FORTRAN
	externNP _FF_DBGMSG
ENDIF

sBegin	code
	assumes	cs,code
	assumes	ds,data

page
;***
;_FF_MSGBANNER() - What does this do?
;
;Purpose:
;   UNDONE: What does this routine do?
;
;Entry:
;
;Exit:
;
;Uses:
;
;Exceptions:
;
;*******************************************************************************
cProc	_FF_MSGBANNER,<PUBLIC>,<>
cBegin
IFDEF	FORTRAN
	mov	ax,252		; "\r\n" to begin error message
				; contained in message 255 for C
	push	ax
	call	_NMSG_WRITE

	call	_FF_DBGMSG	; not needed for C-only version
ENDIF
	mov	ax,255		; run-time error message banner
	push	ax
	call	_NMSG_WRITE
cEnd

sEnd	code

	end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.