File: FKDSK0.PA of Tape: OS8/OS8-V40/v40-9

(Source file text) 

---

/FAKE DSK0 HANDLER
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1980   BY DATAPLAN GMBH, LAUDA, BRD
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DATAPLAN GMBH.
/DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR
/IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DATAPLAN'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DATAPLAN.
/
/DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
/OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DATAPLAN.
/
/
/
/
/
/
/
/
/
/
/
/WVDM, DP, ZUERICH, 1-JAN-80
/THIS IS A FAKE HANDLER FOR
/RESERVING A SLOT FOR DSK0 IN MULTI8

	*0
	-1
	DEVICE FAKE
	DEVICE DSK0
	4500
	0
	0
	0

	FVERS="M&77
	*200

FKDSK0,	FVERS		/ENTRY FAKE HANDLER
	CLA
	ISZ FKDSK0	/TO BUFFER
	ISZ FKDSK0	/TO BLOCK
	ISZ FKDSK0	/TO ERROR
	RDF		/SET RETURN FIELD
	TAD FKCDIF
	DCA FKEXIT
	CDF 0
	TAD DSK0IN
	DCA DSK0LP	/SET MESSAGE POINTER
DSK0LP,	TAD MESSAG
	TLS		/TYPE A WARNING MESSAGE IF USED
	TSF		/ON A REAL MACHINE
	 JMP .-1
	ISZ DSK0LP	/SETUP FOR NEXT CHARACTER
	SZA CLA
	 JMP DSK0LP	/GO FOR NEXT CHARACTER
	STL CLA RAR	/SET ERROR STATUS
FKEXIT,	CDF CIF		/CDF CIF RETURN
	JMP I FKDSK0	/RETURN

FKCDIF,	CIF CDF 0
DSK0IN,	TAD MESSAG
MESSAG,	207;"F;"a;"k;"e;" ;"D;"S;"K;"0;":;" ;"H;"a;"n;"d;"l;"e;"r;"!;215;212;0
	PAGE
	$

---