as/binout.casl

   1 BINOUT  START
   2         LAD     GR1,#09CD
   3         LAD     GR2,1
   4         PUSH    0,GR1
   5         PUSH    0,GR2
   6         PUSH    0,GR3
   7         PUSH    0,GR4
   8         LAD     GR2,0
   9         LAD     GR3,15
  10         LD      GR4,GR1
  11         JZE     OUT1
  12 LOOP1   JMI     ONE
  13         LAD     GR3,-1,GR3
  14         SLL     GR1,1
  15         JUMP    LOOP1
  16 LOOP2   JMI     ONE
  17 ZERO    LAD     GR0,48
  18         JUMP    STORE
  19 ONE     LAD     GR0,49
  20 STORE   ST      GR0,OBUF,GR2
  21         LAD     GR2,1,GR2
  22         LAD     GR3,-1,GR3
  23         CPA     GR3,NZERO
  24         JMI     OUT2
  25         SLL     GR1,1
  26         JUMP    LOOP2
  27 OUT1    LAD     GR0,48
  28         ST      GR0,OBUF,GR2
  29         LAD     GR2,1,GR2
  30 OUT2    ST      GR2,OLNG
  31         OUT     OBUF,OLNG
  32         POP     GR4
  33         POP     GR3
  34         POP     GR2
  35         POP     GR1
  36         RET
  37 OBUF    DS      16
  38 OLNG    DS      1
  39 NZERO   DC      0
  40         END