CASLの問題なんですが…。
このプログラム、動きはするのに終了してくれません。どうすれば良いでしょうか。
電話番号テーブル(名前18文字、電話番号12文字を対にして格納。全て半角)から指定された名前を検索し、名前と電話番号を表示するプログラムです。
SEARCH START
BEGIN LD GR0,SPACE
LAD GR1,0
LOOP1 ST GR0,INBUF,GR1
LAD GR1,1,GR1
CPA GR1,C18
JNZ LOOP1
INPUT IN INBUF,LENG
LAD GR0,47
CPL GR0,INBUF
JZE FIN
LAD GR0,0
ST GR0,FLAG
LAD GR2,TABLE
LOOP2 ST GR2,POINT
LAD GR0,47
CPL GR0,0,GR2
JZE LAST
LAD GR1,0
LOOP3 LAD GR0,42
CPL GR0,INBUF,GR1
JZE FOUND
LD GR0,INBUF,GR1
CPL GR0,0,GR2
JNZ TNXT
LAD GR1,1,GR1
LAD GR2,1,GR2
CPA GR1,C18
JNZ LOOP3
FOUND LAD GR0,1
ST GR0,FLAG
CALL DIS
TNXT LD GR2,POINT
LAD GR2,30,GR2
JUMP LOOP2
LAST LAD GR0,1
CPA GR0,FLAG
JZE BEGIN
OUT NFIND,C10
JUMP BEGIN
FIN RET
DIS LAD GR3,0
LD GR0,POINT
LOOP4 LD GR0,0,GR1
ST GR0,OBUF,GR3
LAD GR3,1,GR3
CPA GR3,C30
JZE EXIT1
LAD GR1,1,GR1
JUMP LOOP4
EXIT1 OUT OBUF,C30
RET
POINT DS 1
TABLE DC 'ヤマダ タロウ 0123-456-789'
DC '/'
INBUF DS 80
LENG DS 1
OBUF DS 80
SPACE DC #0020
C10 DC 10
C18 DC 18
C30 DC 30
NFIND DC '該当者なし'
FLAG DS 1
END