1 dcl (     neg                 init(37),
 2           negl                init(38),
 3           fneg                init(39),
 4 
 5           clear_aq            init(58),
 6           clear_q             init(59),
 7           blank_q             init(135),
 8 
 9           als                 init(134),
10           lrl                 init(62),
11           lls                 init(63)) fixed bin(15) internal static options(constant);