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