projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a238bebb1a8b5b24ca536d8c2ef46405fbbd4051
[YACASL2.git]
/
as
/
casl2lib
/
test
/
mull
/
mull_call1.casl
1
;;; casl2 mull_call0.casl mull.casl outl.casl
2
MAIN START
3
LAD GR1,1
4
LAD GR2,#8000
5
CALL MULL
6
JOV WAN
7
LD GR1,GR0
8
CALL OUTL
9
JUMP FIN
10
WAN OUT MSG,MLEN
11
FIN RET
12
MSG DC 'OF'
13
MLEN DC 2
14
END