MATCH  START
       ST      GR0,G0SAVE     ;レジスタの退避
       PUSH    0,GR1          ;　　　〃
       PUSH    0,GR2          ;　　　〃
       PUSH    0,GR3          ;　　　〃
       LD      GR2,1,GR1      ; Bの先頭番地GR2に格納
       LD      GR3,2,GR1      ; Cの先頭番地GR3に格納
       LD      GR1,0,GR1      ; Aの先頭番地GR1に格納
LOOP   LD      GR0,0,GR2
       CPA     GR0,=-1        ; Bの最後？
       JZE     LAST
       LD      GR0,0,GR1
       CPA     GR0,=-1        ; Aの最後？
       JZE     LAST
       [    ( a )    ]        ; AとBの内容の比較
       JZE     EQ             ;
       [    ( b )    ]
       LAD     GR1,1,GR1      ; A＜B
       JUMP    LOOP
GT     LAD     GR2,1,GR2      ; A＞B
       JUMP    LOOP
EQ     ST      GR0,0,GR3      ; A＝B
       LAD     GR1,1,GR1
       LAD     GR2,1,GR2
       LAD     GR3,1,GR3
       JUMP    LOOP
LAST   [    ( c )    ]        ; Cの最後を格納
       POP     GR3            ;レジスタの復元
       POP     GR2            ;　　　〃
       POP     GR1            ;　　　〃
       LD      GR0,G0SAVE     ;　　　〃
       RET
G0SAVE DS      1
       END