projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Merge pull request #6 from PDP-10/ats/lcmlmdl
[pdp10-muddle.git]
/
<mdl.comp>
/
atosq.mud.1
1
2
3
<TITLE ATOSQ>
4
5
<DECLARE ("VALUE" ANY <PRIMTYPE WORD>)>
6
<DPUSH TP* (AB)>
7
<PUSHJ P* IATOSQ>
8
<JRST FINIS>
9
10
<INTERNAL-ENTRY IATOSQ 1>
11
<SUBM M* (P)>
12
<MOVE E* (TP)>
13
<PUSHJ P* ATOSQ>
14
<JRST FALS>
15
<MOVE B* E>
16
<MOVSI A* <TYPE-CODE FIX>>
17
FOO <SUB TP* [<(2) 2>]>
18
<JRST MPOPJ>
19
20
21
FALS <MOVEI B* 0>
22
<MOVSI A* <TYPE-CODE FALSE>>
23
<JRST FOO>
24
\f
\ 3
\ 3
\ 3
\ 3