MAIN   START
       LAD     GR1,30
       LAD     GR2,10
       LAD     GR3,20
       CALL    SAMP      ;Éû¥×¥í¥°¥é¥à¤Î¸Æ¤Ó½Ð¤·
       RET
       END
SAMP   START             ;GR¤ÎÂç¾® [b13.cas]
       RPUSH             ;ÈÆÍѥ쥸¥¹¥¿¤ÎÂàÈò
       LD     GR4,='1'   ;'1' ¢ª GR4
       LD     GR5,='2'   ;'2' ¢ª GR5
       LD     GR6,='3'   ;'3' ¢ª GR6
       CPA    GR1,GR2    ;GR1¤ÈGR2¤ÎÈæ³Ó
       JPL    L1
       CPA    GR2,GR3    ;GR2¤ÈGR3¤ÎÈæ³Ó [  a  ]
       JPL    L2
       ST     GR4,P1     ; 1 ¡ã 2 < 3
       ST     GR5,P2
       ST     GR6,P3
       JUMP   PRINT
L2     ST     GR5,P3     ;'2' ¢ª P3
       CPA    GR1,GR3    ;GR1¤ÈGR3¤ÎÈæ³Ó
       JPL    L3
       ST     GR4,P1     ; 1 ¡ã 3 < 2 [  b  ]
       ST     GR6,P2     ;'3' ¢ª P2
       JUMP   PRINT
L3     ST     GR6,P1     ; 3 ¡ã 1 < 2
       ST     GR4,P2
       JUMP   PRINT
L1     CPA    GR1,GR3    ;GR1¤ÈGR3¤ÎÈæ³Ó [  c  ]
       JPL    L4
       ST     GR5,P1     ; 2 ¡ã 1 < 3
       ST     GR4,P2
       ST     GR6,P3
       JUMP   PRINT
L4     ST     GR4,P3     ;'1' ¢ª P3
       CPA    GR2,GR3    ;GR2¤ÈGR3¤ÎÈæ³Ó
       JPL    L5
       ST     GR5,P1     ; 2 ¡ã 3 < 1
       ST     GR6,P2     ; [   d   ]
       JUMP   PRINT
L5     ST     GR6,P1     ; 3 ¡ã 1 < 2
       ST     GR5,P2
PRINT  OUT    MSG,LEN    ;·ë²Ì¤Î½ÐÎÏ
       RPOP              ;ÈÆÍѥ쥸¥¹¥¿¤ÎÉü¸µ
       RET
MSG    DC     'GR'
P1     DC     'x < GR'
P2     DC     'x < GR'
P3     DC     'x'
LEN    DC     15
       END