projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Autotest_mkの最新版を反映
[YACASL2.git]
/
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