as/macro/out/out.casl

   1 ;;; CASL IIマクロ命令「OUT OBUF LEN」で生成される命令群
   2         PUSH    0,GR1
   3         PUSH    0,GR2
   4         LAD     GR1,OBUF
   5         LAD     GR2,LEN
   6         SVC     2
   7         LAD     GR1,=#A
   8         LAD     GR2,=1
   9         SVC     2
  10         POP     GR2
  11         POP     GR1