	title	'Sign on message for PROF-180X'
;
; Anfangsmeldung und Peripherieinitialisierung fuer PROF-180X
;
; Diese Modul besteht nur aus dem Unterprogramm signon
;
; letzte Aenderung am: 03.03.1987 (Joachim)
;

	public	signon

	extrn	?pmsg,scb$base

	maclib	psys

	maclib	hd64180
	
	maclib	pkonfig

esc	equ	27

	dseg

signon:

	lda	io$jumperbyte		; ist GRIP als Terminal definiert ?
	ora	a			;
	jrnz	nogrip			; sprung, wenn nein.
	lxi	h,gripinit		; wenn ja, initialisiere GRIP
	call	?pmsg			;
	mvi	a,spalten-1		; setze CP/M auf
	sta	scb$base+1ah		; das gleiche Zeilen und
	mvi	a,zeilen		; Spalten-Format
	sta	scb$base+1ch		;
nogrip:
	lxi	h,signon$msg		; 
	call	?pmsg
	ret

gripinit:					; Wenn Grip als Terminal definiert ist,
						; wird als erstes dieser String gesendet
						;
		db	00ch			; Loesche Bildschirm
		db	esc,esc,'50'		; schalte spooler ein
		db	esc,esc,'8'		; definiere Bildschirmformat
		db	31+zeilen,31+spalten	; wie in PKONFIG.LIB angegeben
		db	0			; Endekennung

signon$msg:
		db	13,10
		db	'PROF-180X CP/M Version 3, '
		db	'(C) 03.03.1987  Digital Research & Conitec'
		db	13,10,0





	end
