EDIT10  START
BEGIN   IN      INBUF,LENG     ;データ入力
        LAD     GR0,0
        [    ( a )    ]
        JZE     LAST
        ST      GR0,FLAG       ;初期化処理
        LAD     GR1,0          ;　　〃
        LAD     GR2,0          ;　　〃
        LD      GR0,INBUF      ; 1けた目の読み込み
        JUMP    LBL1           ; 1けた目の処理へ
LOOP    CPA     GR1,LENG       ; 1レコードの処理終了
        JZE     LBL4           ;結果の表示へ
        LD      GR0,INBUF,GR1
        CPA     GR0,='/'       ; / 符合か？
        JZE     LBL3
        CPA     GR0,='A'       ;入力文字 ＜ 'A'？
        [    ( b )    ]
        CPA     GR0,='Z'       ;入力文字 ＞ 'Z'？
        JPL     LBL1
        LD      GR3,FLAG
        CPA     GR3,=1         ;FLAG=1？
        JZE     LBL1
        ADDA    GR0,=32        ;英小文字に変換
LBL1    [    ( c )    ]         ;出力領域へ移動
        LAD     GR2,1,GR2
LBL2    LAD     GR1,1,GR1
        JUMP    LOOP
LBL3    LAD     GR3,1
        [    ( d )    ]        ; FLAGの反転
        ST      GR3,FLAG
        JUMP    LBL2
LBL4    ST      GR2,LENG       ;結果の表示
        OUT     OUTBUF,LENG    ;　　〃
        JUMP    BEGIN
LAST    RET
INBUF   DS      256            ;入力データ領域
OUTBUF  DS      256            ;結果表示領域
LENG    DS      1              ;データ長
FLAG    DS      1              ;制御フラグ
        END