1 "
2 " BEGIN INCLUDE FILE ... drl_macros.incl.alm
3 "
4 " These macros define operators for conditional tests to cause a system crash.
5 " If the condition is met, a derail is executed. The macro operand field is the
6 " a string length <=32 characters of the form:
7 " MODULE: REASON.
8 "
9 " By enabling the commented line: zero &2.tst,0, you get a word preceding
10 " the DRL instruction which points back to the test that caused the derail.
11 " This is not done by default because history registers do the same thing.
12
13 macro drl_mac
14 ife &3,
15 warn &1: Argument missing.
16 ifend
17 use .derails.
18 " zero &2.tst,0
19 &2.drl: drl &2.acc
20 use .drlmsg.
21 &2.acc: acc /&3/
22 use .text.
23 &end
24
25 macro drlmi
26 &U.tst: tmi &U.drl
27 maclist off,save
28 drl_mac drlmi,&U,&1
29 maclist restore
30 &end
31
32 macro drlmoz
33 &U.tst: tmoz &U.drl
34 maclist off,save
35 drl_mac drlmoz,&U,&1
36 maclist restore
37 &end
38
39 macro drlnz
40 &U.tst: tnz &U.drl
41 maclist off,save
42 drl_mac drlnz,&U,&1
43 maclist restore
44 &end
45
46 macro drltra
47 &U.tst: tra &U.drl
48 maclist off,save
49 drl_mac drltra,&U,&1
50 maclist restore
51 &end
52
53 macro drlpl
54 &U.tst: tpl &U.drl
55 maclist off,save
56 drl_mac drlpl,&U,&1
57 maclist restore
58 &end
59
60 macro drlpnz
61 &U.tst: tpnz &U.drl
62 maclist off,save
63 drl_mac drlpnz,&U,&1
64 maclist restore
65 &end
66
67 macro drlze
68 &U.tst: tze &U.drl
69 maclist off,save
70 drl_mac drlze,&U,&1
71 maclist restore
72 &end
73 "
74 " END INCLUDE FILE drl_macros.incl.alm
75 "