as/app/pbm/call_rotate3.casl

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