2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
3 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
5 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
6 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
8 .IMPORT $$dyncall,MILLICODE
14 .EXPORT initialize_char_syntax,CODE
15 .EXPORT initialize_char_syntax,ENTRY,PRIV_LEV=3,RTNVAL=GR
16 initialize_char_syntax
18 .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
20 addil
L'is_idchar-$global$-32,%r27