3 LD GR3,=-1 ; 単語の処理中を示すフラグの初期化
9 LD GR4,0,GR1 ; 1文字を取り出す。
16 ALNUM LD GR3,GR3 ; 単語の処理中?
17 JPL LP ; 英字を含む単語を処理中ならLPヘ
18 JZE ACHK ; 数字だけの単語を処理中ならACHKヘ
20 LD GR6,GR1 ; 単語の先頭アドレスを退避
21 ACHK CPL GR4,='A' ; 検査対象文字は数字?
22 JMI LP ; 数字の場合,次の文字の取出しヘ
28 ST GR5,0,GR2 ; 終了マークを格納
32 SETTKN LD GR3,GR3 ; 単語の処理中?
33 JMI FIN2 ; 処理中でなければ何もしない。
34 ST GR6,0,GR2 ; 単語の先頭アドレスを管理テーブルに格納
36 SUBL GR5,GR6 ; 単語の長さを計算
37 ST GR5,1,GR2 ; 単語の長さを格納
38 ST GR3,2,GR2 ; 単語の属性を格納
39 LD GR3,=-1 ; 単語の処理中状態を解除