{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: NESTLABEL)}}
====== NESTLABEL ======
(GIN Macro)
**Defined in:** [[george:source:IFMACS|IFMACS]]
**Used in:**
#QP= [
#R8W [
#RNG [??? NESTLABEL SECT DEVT FGN 1 DOC
#S86 [
#SMQ #MAC NESTLABEL
#T7B [ =========
#TM2 [
#W6L [
#WL= [ %A - LABEL ROOT
#X5W [
#XKG [ PREFIXES %A WITH 20? N'S AND USES THE RESULT AS A LABEL
#Y56 [ IF IDENTIFIER 'NOIFLABELS' IS SET NON-ZERO THEN THIS IS DONE
#YJQ [ BY #DEF LABEL=CURRENT WORD ADDRESS (TO AVOID SHOWING LABELS
#^4B [ ON THE COMPILATION LISTING)
#^J2 [
*23L #SKI 20?
*2H= (
*32W #ALT 20?=20?-1
*3GG NESTLABEL N%A,%B,N%C,%D
*426 #EXI
*4FQ )
*4^B #UNS NOIFLABELS
*5F2 #DEF %A=0?+37?
*5YL #UNS NOIFLABELS
*6D= #SKI
*6XW %A
*7CG #STR %B
*7X6 #FRE %A
*8BQ #STR %C,%A
*8WB (
*9B2 #UNS NOIFLABELS
*9TL #DEF %C=0?+37?
*=*= #UNS NOIFLABELS
*=SW #SKI
*?#G %C
*?S6 #STR %D
*#?Q #FRE %C
*#RB )
**?2 #NOR