+;;; casl2 call_rotate3.casl ../../casl2lib/outb_w.casl ../../casl2lib/divl.casl ../../casl2lib/rev.casl rotate3.casl | cat 16_16.pbm - >five_rot3.pbm
+MAIN START
+ LAD GR1,ORG
+ LAD GR2,RES
+ LAD GR3,8
+ CALL ROTATE
+ LAD GR2,0
+LOOP LD GR1,RES,GR2
+ CALL OUTB
+ LAD GR2,1,GR2
+ CPA GR2,HEIGHT
+ JZE FIN
+ JUMP LOOP
+FIN RET
+ORG DC #FFFC
+ DC #FFFC
+ DC #FFFC
+ DC #0700
+ DC #0700
+ DC #0700
+ DC #FFFC
+ DC #FFFC
+ DC #FFFC
+ DC #071C
+ DC #071C
+ DC #071C
+ DC #FFFF
+ DC #FFFF
+ DC #FFFF
+ DC #0000
+HEIGHT DC 16
+RES DS 16
+ END