pTAL Reference Manual (G06.24+, H06.09+, J06.03+)

RESETTOG with no arguments turns off all numeric toggles but does not affect named toggles.
NoneDefault:
Placement:
• With a parenthesized list, it can appear anywhere
• Without a parenthesized list, it must be the last directive on the directive
line or compilation command line
Applies to the compilation unitScope:
Interacts with:Dependencies:
• DEFINETOG
• ENDIF
• __EXT64
• IF and ENDIF
• SETTOG
• TARGET
References:
• DEFINETOG (page 388)
• ENDIF (page 390)
• “__EXT64” (page 394)
• IF and IFNOT (page 398)
• SETTOG (page 415)
• “TARGET” (page 516)
• Toggles (page 370)
ROUND
ROUND rounds FIXED values assigned to FIXED variables that have smaller fpoint values than
the values you are assigning.
ROUND
turns on rounding. If the fpoint of the assignment value is greater than that of the variable,
ROUND first truncates the assignment value so that its fpoint is one greater than that of the
destination variable. The truncated assignment value is then rounded away from zero as follows:
value = (IF value < 0 THEN value - 5 ELSE value + 5) / 10
In other words, if the truncated assignment value is negative, 5 is subtracted; if positive, 5 is
added. Then, an integer division by 10 is performed, and the result is truncated again, this
time by a factor of 10. Thus, if the absolute value of the least significant digit of the initially
truncated assignment value is 5 or more, a 1 is added to the absolute value of the final least
significant digit.
412 Compiler Directives