1 " BEGIN INCLUDE FILE bootload_formline.incl.alm -- macro to
 2 "                    invoke bootload_formline.
 3 "                   BIM -- 6/82
 4 "
 5 "
 6           macro     formline
 7           maclist   object,save
 8 "         &1 control string
 9 "         &2 addr of output string
10 "         &3 output string length
11 "         &4 -- ... arguments
12 
13           tsx2      bootload_formline$bootload_formline
14           arg       &U.control_string
15           arg       &2
16           vfd       36/&3
17           vfd       36/&K-3
18 &R4&(     arg       &i
19 &)
20           tra       &U.skip_control
21 &U.control_string:
22           acc       @&1@
23 &U.skip_control:
24           maclist   restore
25 
26           &end
27 
28           macro     formline_cs
29           maclist   object,save
30 "         &1        control_string_address (acc)
31 "         &2        output_string_address
32 "         &3        output_string_length
33 "         &4 -- ... arguments
34 
35           tsx2      bootload_formline$bootload_formline
36           arg       &1
37           arg       &2
38           vfd       36/&3
39           vfd       36/&K-3
40 &R4&(     arg       &i
41 &)
42           maclist   restore
43 
44           &end
45 
46 " END INCLUDE FILE bootload_formline.incl.alm