[unix-history] / usr / src / usr.bin / tn3270 / distribution / sys_dos / support.asm

_TEXT	segment	byte public 'CODE'
_TEXT	ends

_DATA	segment	word public 'DATA'
_DATA	ends

CONST	segment	word public 'CONST'
CONST	ends

_BSS	segment word public 'BSS'
_BSS	ends

DGROUP	group	CONST, _BSS, _DATA

	assume	cs:_TEXT, ds:DGROUP, ss:DGROUP, es:DGROUP

_TEXT	segment
	public	_iret_subr

_iret_subr	proc	far
	iret
_iret_subr	endp

_TEXT	ends

	end
Commit	Line	Data
34bfe048 GM	1	_TEXT segment byte public 'CODE'
	2	_TEXT ends
	3
	4	_DATA segment word public 'DATA'
	5	_DATA ends
	6
	7	CONST segment word public 'CONST'
	8	CONST ends
	9
	10	_BSS segment word public 'BSS'
	11	_BSS ends
	12
	13	DGROUP group CONST, _BSS, _DATA
	14
	15	assume cs:_TEXT, ds:DGROUP, ss:DGROUP, es:DGROUP
	16
	17	_TEXT segment
289cb558	18	public _iret_subr
34bfe048	19
289cb558 GM	20	_iret_subr proc far
	21	iret
	22	_iret_subr endp
34bfe048 GM	23
	24	_TEXT ends
	25
	26	end