; 8 July 88 -- MFB
;
; This need never be used, as it is already in KERNEL0.IMG
;
cseg	segment byte
	assume cs:cseg,ds:cseg,es:cseg

	head	=	(3ea8h-100h) ; change if load point altered
	org	100h

start: 	mov	dx,(offset msg)+head
	mov	ah,9
	int	21h

	mov	dl,'$'
	mov	ah,2
	int	21h

 	mov	dx,(offset msg2)+head
	mov	ah,9
	int	21h

	db	'endproc '

	db	'BANNER '

msg	DB	201, 31 DUP (205), 187, 0DH, 0AH
;	db	186, 6 DUP (32), 201, 205
	db	186, 32, 210, 32, 32, 210, 32, 201, 205
	db	14 DUP (32), 205, 203, 205, 6 DUP (32), 186, 0dh, 0ah

	db	186, 32, 186,  32,  32, 186,  32, 200, 205
	db	 11 DUP (32), 176, 178, 32,  32, 186,  32, 204, 185
	db	4 DUP (32), 186, 0dh, 0ah

	db	186, 32, 186,  32,  32, 186,  32, 201, 205
	db	  10 DUP (32), 176,  32, 178, 32, 32
	db	4 DUP (32), '86', 32, 32, 186, 0dh, 0ah

	db	186, 32, 200, 205, 205, 188,  32, 200, 205
	db	  9 DUP (32), 176,  32,  32, 178
	db	10 DUP (32), 186
	db	'   Original CP/M80 version (c) 1982  ', 0dh, 0ah

	db	186, 32, '         '
	db	6 DUP (32), 176,  3 DUP (32), 178
	db	10 DUP (32), 186
	db	'   United Controls Corporation ', 0dh, 0ah

	db	186, 32, 'United   '
	db	5 DUP (32), 5 DUP (176), 178, 176
	db	9 DUP (32), 186
	db	'   P.O. Box 4620  ', 0dh, 0ah

	db	186, 32, 'Controls '
	db	10 DUP (32), 178, 10 DUP (32), 186
	db	'   Huntsville, Alabama, 35802 ', 0dh, 0ah

	db	186, 32, 'Corporation', 19 DUP (32), 186, 0dh,0ah

	DB	200, 31 DUP (205), 188
	db	'   205-837-6144 ', 0DH, 3 dup (0AH)


	db	35 dup (32)
	DB	201, 30 DUP (205), 187, 0DH, 0AH


;HKP
	db	'MSDOS translation by M.F.Buchan.   ', 186, 32
	db	201, 205, 203, 205, 205, 205, 205, 187

	db	'                     ', 186, 0dh, 0ah
	db	'EGA graphics, shell to DOS,        ', 186,32
	db	186, 205, 202, 205,  32, 204, 205, 185
	db	'   Hong Kong   ', 6 dup (32), 186, 0dh, 0ah

	db	'and other extensions added (1988)  ', 186, 32
	db	204, 205, 185,  32, 205, 203, 205, 186

	db	'                     ', 186,0dh,0ah
	db	'                                   ', 186, 32
	db	200, 205, 205, 205, 205, 202, 205, 188
	db	'  Polytechnic  ', 6 dup (32), 186, 0dh, 0ah

	db	'Released to Public Domain          ', 186
	db	30 dup (32), 186, 0dh, 0ah
	db	'by permission of UCC               ', 186, 32
	db	'Electrical Engineering Dept. ', 186, 0dh, 0ah

	db	35 dup (32)
	DB	200, 30 DUP (205), 188, 0dh, 0ah

	db	'Version 2.02 ', 0dh,0ah
	db	'Comprehensive user manual $'

msg2	db	'25 from UCC ', 0dh, 0ah
	db	'$'

	db	'endfile'

cseg	ends
	end	start