projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Add README.md
[pdp8.git]
/
sw
/
src
/
life
/
L.PA
1
2
/---------------------------------------------------------------------
3
/ CALCULATE INTEGER DIVISION AND MODULO AT ONCE
4
/ RESULT IN LOCATIONS DIV AND MOD
5
/ DIVIDENT IN AC
6
MOD12, 0
7
DCA MOD
8
DCA DIV
9
10
TAD MOD
11
TAD KN48
12
13
SMA
14
SKP
15
JMP IGN48
16
DCA MOD
17
ISZ DIV
18
IGN48, CLA
19
TAD DIV
20
RAL
21
DCA DIV
22
TAD MOD
23
TAD KN24
24
SMA
25
SKP
26
JMP IGN24
27
DCA MOD
28
ISZ DIV
29
IGN24, CLA
30
TAD DIV
31
RAL
32
DCA DIV
33
TAD MOD
34
TAD KN12
35
SMA
36
SKP
37
JMP IGN12
38
DCA MOD
39
ISZ DIV
40
IGN12, CLA
41
JMP I MOD12
42
43
KN48, -60
44
KN24, -30
45
KN12, -14
46
47
48
49
*1000
50
DIV, 0 / INTEGER DIVISION RESULT
51
MOD, 0 / INTIGER DIVISION'S REST
52