PACK   START               ;＜PACK.CAS＞
       IN     DATA,LEN     ;数字の入力
       LAD    GR1,2        ; DATAの指標
       LD     GR2,OUT      ; GR2は結果の格納領域
LOOP   SRL    GR2,4        ; 4ビット右シフト
       LD     GR3,DATA,GR1 ; GR3に数字を入れる
       SLL    GR3,12       ; 12ビット左シフト
       OR     GR2,GR3      ;合成
       SUBA   GR1,=1       ;デクリメント
       JMI    FIN          ;終わりか判断する
       JUMP   LOOP         ;
FIN    ST     GR2,OUT      ;結果の格納
       RET                 ;終了
OUT    DC     #C000        ;パック10進数
DATA   DS     256          ;入力域
LEN    DS     1            ;入力文字長
       END