as/app/pbm/call_rotate.casl

   1 ;;; casl2 call_rotate.casl ../../casl2lib/outb_w.casl ../../casl2lib/divl.casl ../../casl2lib/rev.casl rotate.casl | cat 16_16.pbm - >five_rot.pbm
   2 MAIN    START
   3         LAD     GR1,ORG
   4         LAD     GR2,RES
   5         CALL    ROTATE
   6         LAD     GR2,0
   7 LOOP    LD      GR1,RES,GR2
   8         CALL    OUTB
   9         LAD     GR2,1,GR2
  10         CPA     GR2,HEIGHT
  11         JZE     FIN
  12         JUMP    LOOP
  13 FIN     RET
  14 ORG     DC      #FFFC
  15         DC      #FFFC
  16         DC      #FFFC
  17         DC      #0700
  18         DC      #0700
  19         DC      #0700
  20         DC      #FFFC
  21         DC      #FFFC
  22         DC      #FFFC
  23         DC      #071C
  24         DC      #071C
  25         DC      #071C
  26         DC      #FFFF
  27         DC      #FFFF
  28         DC      #FFFF
  29         DC      #0000
  30 HEIGHT  DC      16
  31 RES     DS      16
  32         END