ドキュメントの修正
[YACASL2.git] / as / yakuwa / testbinout / testbinout.casl
1 ;;; BINOUTを呼び出す
2 MAIN    START
3         LAD     GR2,0
4 MLOOP   CPA     GR2,MLEN
5         JZE     MFIN
6         LD      GR1,MWORD,GR2
7         CALL    BINOUT
8         LAD     GR2,1,GR2
9         JUMP    MLOOP
10 MFIN    RET
11 MWORD   DC      #0000,#0001,#09CD,#8001
12 MLEN    DC      4
13         END