Upload

Digital Research

MPM OPERATING SYSTEMS/MPM-86/MISC DRI DISKS/19/RTMIF.RTM

@@ -0,0 +1,103 @@
+
+;*****************************************************
+;*
+;*	RTM Interface Routines
+;*
+;*****************************************************
+
+	cseg
+	org 0
+
+	jmp init		;RTM initialization
+	jmp entry		;RTM entry point
+
+sysdat		dw	0	;SYSDAT segment
+supervisor	equ	offset $
+		rw	2	;SUP entry point
+
+		db	'COPYRIGHT (C) 1981,'
+		db	' DIGITAL RESEARCH '
+serial		db	'654321'
+
+;====		===========================
+init:		; RTM module Initialization
+;====		===========================
+	mov sysdat,ds			;save sysdat
+	mov bx,offset supmod		;init supif
+	mov si,offset supervisor
+	mov ax,[bx]
+	mov cs:[si],ax
+	mov ax,2[bx]
+	mov cs:2[si],ax
+	mov bx,(offset dispatcher)	;init interrupt pdisp
+	mov word ptr [bx],offset fdisp
+	mov word ptr 2[bx],cs
+	mov bx,(offset rtm_pdisp)	;init intermodule pdisp
+	mov word ptr [bx],offset farpdisp
+	mov word ptr 2[bx],cs
+		;create tick and idle process
+	mov bx,offset tickpd		;Tick
+	mov ax,p_uda[bx]
+	add ax,sysdat
+	push es ! mov es,ax
+	mov si,supervisor
+	mov ax,cs:2[si]
+	mov u_initcs,ax ! pop es
+	mov bx,offset idlepd		;IDLE
+	mov ax,p_uda[bx]
+	add ax,sysdat
+	push es ! mov es,ax
+	mov si,supervisor
+	mov ax,cs:2[si]
+	mov u_initcs,ax ! pop es
+	mov dx,bx ! call proc_creat
+		;init is now a process and can run
+		;concurrently with idle process
+	retf
+
+;*****************************************************
+;*
+;*	RTM Function Table
+;*
+;*****************************************************
+
+function	dw	sysreset_entry	;0
+		dw	poll_entry	;1
+		dw	flag_wait_entry	;2
+		dw	flag_set_entry	;3
+		dw	makeq_entry	;4
+		dw	openq_entry	;5
+		dw	deleteq_entry	;6
+		dw	readq_entry	;7
+		dw	creadq_entry	;8-conditional readq
+		dw	writeq_entry	;9
+		dw	cwriteq_entry	;10-conditional writeq
+		dw	delay_entry	;11
+		dw	dispatch_entry	;12
+		dw	terminate_entry	;13
+		dw	creat_proc_entry;14
+		dw	set_prior_entry	;15
+		dw	pd_entry	;16-get PD address
+		dw	abort_spec_entry;17-abort process
+		dw	sleep_entry	;18
+		dw	wakeup_entry	;19
+		dw	findpdname_entry;20
+
+;=====		=================
+entry:		; RTM Entry Point
+;=====		=================
+	mov ch,0 ! shl cx,1 ! mov si,cx
+	call cs:function[si]
+rtm_ret:retf
+
+;=====		===============
+mpmif:		; MPM Interface
+;=====		===============
+	callf cs:dword ptr .supervisor ! ret
+
+;======		================
+xiosif:		; XIOS Interface
+;======		================
+	mov si,mod_entry
+	callf dword ptr xiosmod[si] ! ret
+