mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 01:14:21 +00:00
96 lines
2.4 KiB
Plaintext
96 lines
2.4 KiB
Plaintext
;*****************************************************
|
||
;*
|
||
;* Concurrent CP/M-86 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
|
||
|
||
org 0ch
|
||
dev_ver db 6 ;development system data version
|
||
;set in sysdat.fmt
|
||
|
||
db 'COPYRIGHT (C) 1982,1983,1984'
|
||
db ' DIGITAL RESEARCH '
|
||
db 'XXXX-0000-'
|
||
serial db '654321'
|
||
|
||
;==== ===========================
|
||
init: ; RTM module Initialization
|
||
;==== ===========================
|
||
|
||
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
|
||
|
||
mov bx,rlr ;init the init process's userdisp vec
|
||
mov word ptr p_userdisp[bx],offset def_emultr
|
||
mov word ptr p_userdisp + 2[bx],cs
|
||
|
||
retf
|
||
|
||
;*****************************************************
|
||
;*
|
||
;* RTM Function Table
|
||
;*
|
||
;*****************************************************
|
||
|
||
org ((offset $)+1) AND 0fffeh ;Word Boundary
|
||
|
||
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
|
||
dw sync_entry ;21
|
||
dw unsync_entry ;22
|
||
dw no_abort_entry ;23
|
||
dw ok_abort_entry ;24
|
||
dw no_abort_spec_entry ;25
|
||
; dw flagalloc ;26
|
||
|
||
;===== =================
|
||
entry: ; RTM Entry Point
|
||
;===== =================
|
||
xor ch,ch ! shl cx,1 ! mov si,cx
|
||
call cs:function[si]
|
||
rtm_ret:retf
|
||
|
||
;==== ================
|
||
osif: ; O.S. Interface
|
||
;==== ================
|
||
callf cs:dword ptr .supervisor ! ret
|
||
|
||
;====== ================
|
||
xiosif: ; XIOS Interface
|
||
;====== ================
|
||
mov si,mod_entry
|
||
callf dword ptr xiosmod[si] ! ret
|
||
|