MAIN   START
       LD      GR1,=#5F3D  ; 0101 1111 0011 1101
       CALL    GR1HEX
       RET
GR1HEX START               ;16進表示 [a07.cas]
       RPUSH               ;レジスタの退避
       LAD     GR4,4       ; [  a  ]
LOOP   SUBA    GR4,=1      ;GR4-1 → GR4
       JMI     LAST
       LD      GR3,GR1     ;GR1 → GR3
       AND     GR3,=#000F  ;右4ビットを取り出す
       LD      GR2,NUM,GR3 ;文字列を取り出す
       ST      GR2,M,GR4   ;16進数を格納
       SRL     GR1,4       ;4ビット右にシフト [  b  ]
       JUMP    LOOP
LAST   OUT     MSG,LEN     ;出力
       RPOP                ;レジスタの復元
       RET
NUM    DC      '0123456789ABCDEF'
MSG    DC      'GR1='
M      DS      4
LEN    DC      8
       END