projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
26fd5434516128f73b3c70413593fe0b9d7e2b42
[YACASL2.git]
/
as
/
div.casl
1
DIV START
2
BEGIN LD GR1,X
3
LD GR2,A
4
LOOP SUBL GR1,Y
5
ADDL GR2,=1
6
CPL GR1,Y
7
JPL LOOP
8
JZE LOOP
9
MOD LAD GR3,0,GR1
10
ST GR3,M
11
FIN ST GR2,A
12
RET
13
X DC 87
14
Y DC 11
15
A DC 0
16
M DS 1
17
END