projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
コメントなどの修正
[YACASL2.git]
/
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