Files from TOPS-20 <mdl.comp>.

[pdp10-muddle.git] / <mdl.comp> / atosq.mud.1

diff --git a/<mdl.comp>/atosq.mud.1 b/<mdl.comp>/atosq.mud.1
new file mode 100644 (file)
index 0000000..a2c043e
--- /dev/null
+++ b/<mdl.comp>/atosq.mud.1
@@ -0,0 +1,24 @@
+
+
+        <TITLE  ATOSQ>
+
+        <DECLARE ("VALUE" ANY <PRIMTYPE WORD>)>
+        <DPUSH  TP* (AB)>
+        <PUSHJ  P* IATOSQ>
+        <JRST   FINIS>
+
+        <INTERNAL-ENTRY IATOSQ 1>
+        <SUBM   M* (P)>
+        <MOVE   E* (TP)>
+        <PUSHJ  P* ATOSQ>
+        <JRST  FALS>
+        <MOVE   B* E>
+        <MOVSI  A* <TYPE-CODE FIX>>
+FOO    <SUB    TP* [<(2) 2>]>
+        <JRST   MPOPJ>
+
+
+FALS   <MOVEI  B* 0>
+       <MOVSI  A* <TYPE-CODE FALSE>>
+       <JRST   FOO>
+\f\ 3\ 3\ 3\ 3
\ No newline at end of file