1 .SPACE $PRIVATE$ 2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31 3 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82 4 .SPACE $TEXT$ 5 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44 6 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY 7 .IMPORT $global$,DATA 8 .IMPORT $$dyncall,MILLICODE 9 ; gcc_compiled.: 10 .SPACE $TEXT$ 11 .SUBSPA $CODE$ 12 13 .align 4 14 .EXPORT initialize_char_syntax,CODE 15 .EXPORT initialize_char_syntax,ENTRY,PRIV_LEV=3,RTNVAL=GR 16 initialize_char_syntax 17 .PROC 18 .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 19 .ENTRY 20 addil L'is_idchar-$global$-32,%r27 21 .EXIT 22 .PROCEND 23 is_idchar .comm 256 24
