(loader '((title |checkmet.lo|)))
(loader'((fentry check-value subr2)
(entry check-value subr2)
(push a2)
(push a1)
(push (@ 101))
(push a1)
(mov '1 a4)
(jmp eval)
101
(eval ())
(push a1)
(mov (& 2) a2)
(jcall equal)
(bfnil a1 102)
(push (@ 104))
(push '"** the value of ")
(push (& 3))
(push '" has to be ")
(push (& 6))
(push '" not ")
(push (& 6))
(mov '6 a4)
(jmp print)
104
(eval ())
(adjstk '3)
(return)
102
(mov nil a1)
(adjstk '3)
(return)
))
(loader'((fentry perform-meter subr2)
(entry perform-meter subr2)
(push a2)
(push a1)
(push (@ 101))
(mov '0 a4)
(jmp outchan)
101
(eval ())
(push a1)
(push (@ 102))
(push dlink)
(push prot)
(stack dlink)
(push (@ 104))
(push (@ 105))
(push (& 7))
(push '".mtr")
(mov '2 a4)
(jmp catenate)
105
(eval ())
(jcall openo)
(push a1)
(mov '1 a4)
(jmp outchan)
104
(eval ())
(push (@ 106))
(mov '0 a4)
(jmp print)
106
(eval ())
(push (@ 107))
(push '"Metering of ")
(push (& 7))
(push '" for ")
(push (& 8))
(mov '4 a4)
(jmp print)
107
(eval ())
(push (@ 108))
(mov '0 a4)
(jmp print)
108
(eval ())
(jcall count-calls-init)
(push (@ 109))
(push (& 5))
(mov '1 a4)
(jmp eval)
109
(eval ())
(jcall count-calls-stop)
(push (@ 110))
(push '20.)
(mov '1 a4)
(jmp count-calls-printn)
110
(eval ())
(push (@ 111))
(push (@ 112))
(mov '0 a4)
(jmp outchan)
112
(eval ())
(push a1)
(mov '1 a4)
(jmp close)
111
(eval ())
(mov (& 1) dlink)
(adjstk '3)
(push a1)
(mov (@ 103) a3)
102
(push a3)
(push a2)
(push (@ 113))
(push (& 4))
(mov '1 a4)
(jmp outchan)
113
(eval ())
(pop a2)
(pop a3)
(pop a1)
(bri a3)
103
(eval ())
(adjstk '3)
(return)
))
(loader '((end)))