dumpwordコマンドで数値以外の値が引数のときにエラーが発生するよう修正
[YACASL2.git] / as / FUNC / mull_call1.casl
1 ;;; casl2 mull_call0.casl mull.casl outl.casl
2 MAIN    START
3         LAD     GR1,1
4         LAD     GR2,#8000
5         CALL    MULL
6         JOV     WAN
7         LD      GR1,GR0
8         CALL    OUTL
9         JUMP    FIN
10 WAN     OUT     MSG,MLEN        
11 FIN     RET
12 MSG     DC      'OF'
13 MLEN    DC      2
14         END