SPACE  START             ;空白を除く [a02.cas]
       LAD    GR1,S      ;Sの先頭アドレス
       LAD    GR2,0      ;Rの指標レジスタ
       LAD    GR0,R      ;Rの先頭アドレス
LOOP   LD     GR3,0,GR1  ;Sの1文字を取り出す [  a  ]
       CPA    GR3,=' '   ;空白か？
       JZE    NEXT
       ST     GR3,R,GR2  ;GR3の値をRに格納
       LAD    GR2,1,GR2  ;Rの指標を1加算
NEXT   LAD    GR1,1,GR1  ;Sの指標を1加算
       CPL    GR1,GR0    ;終了判定 [  b  ]
       JNZ    LOOP
       ST     GR2,LEN    ;出力文字長を格納
       OUT    R,LEN      ;Rの出力
       RET
S      DC     'How  are  you '
R      DS     20
LEN    DS     1
       END