blob: 93b3b9e76187f23c998119859861d9f22460798f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(**************************************************************)
(* Extended EUMEL0-instructions for TRACE G.Szalay *)
(************************************************* 87-04-03 ***)
PACKET extended instr DEFINES dsgetw, dsputw, local base,
signed arith, unsigned arith:
INT PROC dsgetw (INT CONST drid, adr hi, adr lo):
EXTERNAL 154
ENDPROC dsgetw;
PROC dsputw (INT CONST drid, adr hi, adr lo, word):
EXTERNAL 155
ENDPROC dsputw;
INT PROC local base:
EXTERNAL 156
ENDPROC local base;
PROC signed arith: EXTERNAL 91 ENDPROC signed arith;
PROC unsigned arith: EXTERNAL 92 ENDPROC unsigned arith;
ENDPACKET extended instr;
|