h30h_fe_pm12_1.casl

PRO1    START
        LAD     GR1,DATA
        LD      GR2,=3
        CALL    DTOB
        RET
DATA    DC      #0035,#0036,#0037
        END
DTOB    START
        RPUSH
        ADDL    GR2,GR1
        LAD     GR0,0           ; 戻り値の初期化
LP      CPL     GR1,GR2         ; 変換終了？
        JZE     FIN
        LD      GR4,0,GR1       ; 数字1文字の取り出し
        SUBL    GR4,='0'        ; 1桁を数値に変換
        SLL     GR0,1           ; GR0を10倍してGR4を加算
        LD      GR5,GR0
        SLL     GR5,2
        ADDL    GR0,GR5        
        ADDL    GR0,GR4
        LAD     GR1,1,GR1
        JUMP    LP
FIN     RPOP        
        RET
        END

平成30年度春季基本情報午後問12 - Mae向きなブログ http://maehrm.hatenablog.com/entry/2018/05/03/154307