X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=%3Cmdl.comp%3E%2Fatosq.mud.1;fp=%3Cmdl.comp%3E%2Fatosq.mud.1;h=a2c043edf205d69ae55a6cc3460211f3fc0fc556;hp=0000000000000000000000000000000000000000;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9

diff --git a/<mdl.comp>/atosq.mud.1 b/<mdl.comp>/atosq.mud.1
new file mode 100644
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>
+
\ No newline at end of file