as/outi_call.casl

   1 ; need outi.casl
   2 MAIN    START
   3         LAD GR2,0
   4         LD  GR3,CNT
   5 LOOP    LD GR1,VAL,GR2
   6         CALL    OUTI
   7         LAD GR2,1,GR2
   8         CPA GR2,GR3
   9         JZE FIN
  10         JUMP LOOP
  11 FIN RET
  12         END
  13 VAL DC  #0000,#0001,#0002,#0010,#0100,#1000,#7FFF,#FFFF,#FFFE,#FFF0,#FF00,#F000,#8001,#8000
  14 CNT DC  14