PACKET privs DEFINES pcb,
pages,
internal pause,
set error stop,
sld,
next active task index,
create process,
sysgen off,
(* cdb int ,
cdb text , *)
block,
unblock,
sys op,
set clock,
fixpoint,
save system,
internal shutup,
collect garbage blocks,
send,
define collector,
erase process,
halt process ,
return false ,
return true ,
term ,
char read ,
begin char read ,
char write ,
end char write ,
get char ,
find non blank ,
div rem 256 ,
add mul 256 ,
is digit ,
is lowercase or digit ,
is lowercase ,
is uppercase ,
gen addr ,
gen code addr ,
is short address,
sysgen ,
get tables ,
put tables ,
erase tables ,
exec ,
(* pproc ,
pcall , *)
case ,
move ,
address ,
alias ,
IMULT ,
arith 15 ,
arith 16 ,
put word ,
get word :
PROC pcb (TASK CONST id, INT CONST field, value) :
EXTERNAL 105
ENDPROC pcb ;
PROC pages (DATASPACE CONST ds, TASK CONST id) :
EXTERNAL 88
ENDPROC pages ;
PROC internal pause (INT CONST time limit) :
EXTERNAL 66
ENDPROC internal pause ;
PROC set error stop (INT CONST code) :
EXTERNAL 77
ENDPROC set error stop ;
PROC sld (INT CONST in, REAL VAR real, INT VAR out) :
EXTERNAL 96
ENDPROC sld ;
PROC next active task index (TASK VAR id) :
EXTERNAL 118
ENDPROC next active task index ;
PROC create process (TASK CONST id, PROC start) :
create (id, PROC start)
ENDPROC create process ;
PROC create (TASK CONST id, PROC start) :
EXTERNAL 111
ENDPROC create ;
PROC sysgen off :
INT VAR x := 0 ;
elan (3, x,x,x,x,x,x,x,x,x,x,x)
ENDPROC sysgen off ;
PROC elan (INT CONST mode, INT VAR a,b,c,d,e,f,g,h,i,j,k) :
EXTERNAL 256
ENDPROC elan ;
INT PROC cdbint (INT CONST adr) :
EXTERNAL 116
ENDPROC cdbint ;
TEXT PROC cdbtext (INT CONST adr) :
EXTERNAL 117
ENDPROC cdbtext ;
PROC block (TASK CONST id) :
EXTERNAL 109
ENDPROC block ;
PROC unblock (TASK CONST id) :
EXTERNAL 108
ENDPROC unblock ;
PROC sys op (INT CONST function) :
EXTERNAL 90
ENDPROC sys op ;
PROC set clock (TASK CONST id, REAL CONST value) :
EXTERNAL 82
ENDPROC set clock ;
PROC set clock (REAL CONST value) :
EXTERNAL 103
ENDPROC set clock ;
PROC fixpoint :
sys op (2)
ENDPROC fixpoint ;
PROC collect garbage blocks :
sys op (1)
ENDPROC collect garbage blocks ;
PROC internal shutup :
sys op (4)
ENDPROC internal shutup ;
PROC save system :
sys op (12)
ENDPROC save system ;
PROC send (TASK CONST from, to, INT CONST order, DATASPACE VAR ds,
INT VAR receipt) :
EXTERNAL 127
ENDPROC send ;
PROC define collector (TASK CONST task) :
EXTERNAL 128
ENDPROC define collector ;
PROC erase process (TASK CONST id) :
EXTERNAL 112
ENDPROC erase process ;
PROC halt process (TASK CONST id) :
EXTERNAL 110
ENDPROC halt process ;
(****************************** undokumentiert **************************)
BOOL PROC return false :
EXTERNAL 1
ENDPROC return false ;
BOOL PROC return true :
EXTERNAL 2
ENDPROC return true ;
PROC term :
EXTERNAL 4
ENDPROC term ;
PROC char read (INT CONST pos) :
EXTERNAL 8
ENDPROC char read ;
INT PROC begin char read (INT VAR pos) :
EXTERNAL 9
ENDPROC begin char read ;
PROC char write (INT VAR next, INT CONST char, int) :
EXTERNAL 10
ENDPROC char write ;
PROC end char write (INT VAR a, b, INT CONST char) :
EXTERNAL 11
ENDPROC end char write ;
PROC ctt (INT CONST adr, INT VAR result) :
EXTERNAL 12
ENDPROC ctt ;
BOOL PROC get char (TEXT CONST text, INT VAR pos, char) :
EXTERNAL 13
ENDPROC get char ;
BOOL PROC find non blank (INT VAR non blank char, TEXT CONST string,
INT VAR pos) :
EXTERNAL 14
ENDPROC find non blank ;
PROC divrem 256 (INT VAR a, b) :
EXTERNAL 15
ENDPROC divrem 256 ;
PROC addmul 256 (INT VAR a, b) :
EXTERNAL 16
ENDPROC addmul 256 ;
BOOL PROC is digit (INT CONST char) :
EXTERNAL 18
ENDPROC is digit ;
BOOL PROC is lowercase or digit (INT CONST char) :
EXTERNAL 19
ENDPROC is lowercase or digit ;
BOOL PROC is lowercase (INT CONST char) :
EXTERNAL 20
ENDPROC is lowercase ;
BOOL PROC is uppercase (INT CONST char) :
EXTERNAL 21
ENDPROC is uppercase ;
PROC gen addr (INT CONST word1, word2, INT VAR result) :
EXTERNAL 22
ENDPROC gen addr ;
BOOL PROC gen code addr (INT CONST word1, word2, INT VAR result) :
EXTERNAL 23
ENDPROC gen code addr ;
BOOL PROC is short address (INT CONST address) :
EXTERNAL 24
ENDPROC is short address ;
PROC sysgen :
EXTERNAL 25
ENDPROC sysgen ;
PROC get tables :
EXTERNAL 26
ENDPROC get tables ;
PROC put tables :
EXTERNAL 27
ENDPROC put tables ;
PROC erase tables :
EXTERNAL 28
ENDPROC erase tables ;
PROC exec (INT CONST module number) :
EXTERNAL 29
ENDPROC exec ;
(*
PROC pproc (PROC proc) :
EXTERNAL 30
ENDPROC pproc ;
PROC pcall (PROC proc) :
EXTERNAL 31
ENDPROC pcall ;
*)
BOOL PROC case (INT CONST switch, limit) :
EXTERNAL 32
ENDPROC case ;
PROC move (PROC len, INT VAR from area, to area) :
EXTERNAL 33
ENDPROC move ;
INT PROC alias (DATASPACE CONST ds, INT VAR result) :
EXTERNAL 34
ENDPROC alias ;
INT PROC address (INT CONST object) :
EXTERNAL 35
ENDPROC address ;
INT OP IMULT (INT CONST a, b) :
EXTERNAL 40
ENDOP IMULT ;
PROC arith 15 :
EXTERNAL 91
ENDPROC arith 15 ;
PROC arith 16 :
EXTERNAL 92
ENDPROC arith 16 ;
PROC put word (INT CONST segment, address, word) :
EXTERNAL 119
ENDPROC put word ;
INT PROC get word (INT CONST segment, address) :
EXTERNAL 120
ENDPROC get word
ENDPACKET privs