TAL Reference Manual

Compiler Directives
TAL Reference Manual—526371-001
16-50
INHIBITXX Directive
3. In this example, SETTOG creates toggle DONE and turns it on. IFNOT tests the
toggle for the off state, finds it is on, and causes the compiler to skip the source
text between IF DONE and ENDIF DONE:
?SETTOG done !Create toggle DONE; turn it on
!Some code here
?IFNOT done !Test toggle for off state
PROC skipped; !Find it on; skip procedure
BEGIN
!Lots of code
END;
?ENDIF done !End of skipped portion
4. In this example, SETTOG turns on toggle 1. IF tests the toggle, finds it is on, and
causes the compiler to compile the source text between IF 1 and ENDIF 1:
?SETTOG 1 !Turn toggle 1 on
!Some code here
?IF 1 !Test toggle for on state;
PROC kept; !Find it on; compile procedure
BEGIN
!More code
END;
?ENDIF 1 !End of compiled portion
INHIBITXX Directive
INHIBITXX generates inefficient but correct code for extended global declarations in
relocatable blocks that Binder might locate after the first 64 words of the primary global
area of the user data segment.
The default is NOINHIBITXX.
Usage Considerations
INHIBITXX or NOINHIBITXX can appear in the compilation command or any number
of times in the compilation unit before the first procedure declaration.
INHIBITXX turns the INHIBITXX setting on for subsequent declarations.
VST1631.vsd
NOINHIBITXX
INHIBITXX