$TITLE ('RMX/80 DEMONSTRATION CONFIGURATION MODULE.')
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

;  MODULE: RMX/80 DEMONSTRATION CONFIGURATION MODULE.

;  LAST CHANGED: 5 OCTOBER 1977

;  THIS MODULE ILLUSTRATES HOW THE USER-SUPPLIED RMX/80 CONFIGURATION
;  MODULE IS TO BE CONSTRUCTED.  THIS MODULE BUILDS THE
;  'RQCRTB' TABLE, CONSISTING OF THE INITIAL TASK TABLE (ITT)
;  AND THE INITIAL EXCHANGE TABLE (IET).  ASSEMBLY LANGUAGE
;  MACROS ARE USED FOR THIS TABLE GENERATION, SINCE THIS IS
;  THE SIMPLEST PROCEDURE FOUND.  A PL/M VERSION OF THIS
;  DEMONSTRATION MODULE IS ALSO INCLUDED (SEE FILE DEMO.PLM).

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

	NAME	DEMO
	CSEG
$INCLUDE (:F1:STD.MAC)
$INCLUDE (:F1:XCHADR.MAC)
$INCLUDE (:F1:CRTAB.MAC)
$INCLUDE (:F1:GENTD.MAC)

NEXCH	SET	0
NTASK	SET	0

; BUILD THE INITIAL TASK TABLE (ITT).

	STD	CLI,64,131,0
	STD	RQFMGR,64,129,0
	STD	PUT,64,131,0
	STD	RQADBG,64,133,0
	STD	RQTHDI,64,112,0

; ALLOCATE THE TASK DESCRIPTORS FOR THE TASKS.

	GENTD

; BUILD THE INITIAL EXCHANGE TABLE (IET).

	XCHADR  RQDBUG
	XCHADR	RQINPX
	XCHADR	RQOUTX
	XCHADR	KEYXCH
	XCHADR	RQALRM
	XCHADR	RQWAKE
	XCHADR	RQL6EX
	XCHADR	RQL7EX
	XCHADR	RQFSAX
	XCHADR	RQFSRX

; BUILD THE CREATE TABLE.

	CRTAB

	END