PUTHEX  START
       LAD   GR3,BUF       ; 16進数字格納位置
       LAD   GR1,12        ; シフト数
PH1    LD    GR2,N         ; 変換すべき数の読み込み
       SRL   GR2,0,GR1     ;  12,8,4,0ビット右シフト
       AND   GR2,=#000F    ; 下位4ビット以外を消す
       CPA   GR2,=10       ; 16進数が10より大きいか？
       JMI   PH2
       LAD   GR2,#0007,GR2 ; 英字に変換するための補正
PH2    LAD   GR2,#0030,GR2 ; 文字コードにする       
       ST    GR2,0,GR3
       LAD   GR3,1,GR3     ; 格納位置を進める
       SUBA  GR1,=4        ; シフト数−4
       JPL   PH1           ; シフト数が正ならもう一度
       JZE   PH1           ; シフト数が0ならもう一度
       OUT   BUF,LEN
       RET
N      DS    1             ; 変換すべき数
LEN    DC    4             ; 文字数
BUF    DS    256           ; 16進文字列
       END