Prog
 
1	 	 		BTOF	600			
2	 	 		SCHA	10			SET LF TERM CHAR
3	 	 		TAG	1			
4	 	 		OPEN	2			OPEN PORT 2
5	 	 		READ	2	101		
6	 	 		CLOS	2			
7	 	 		BTON	600			
8	 	 		SLEN	3			
9	 	 		SLCT				
10	 	 						
11	 	 		WSEQ	104	'VAR'		VAR READ
12	 	 		VAL	1	109		COPY VAR# TO VAR 1
13	 	 		CPGE	1	200	900	VALIDITY CHECK
14	 	 	900	CPLE	1	399	900	
15	 	 	900	CPGE	1	300	902	REAL VARIABLES
16	 	 	902	CPLE	1	399	902	
17	 	N	902					
18	A	 	900	TRAN	2	*1		
19	 	 	902	TRAN	102	*1		
20	 	N	902	SLEN	8			
21	 	 	902	SLEN	4.3			
22	 	N	902					
23	A	 	900	STRH	109	*2		COPY VAR DATA
24	 	 	902	EXSR	5			
25	 	 	902	STRH	109	*99		
26	 	 	900	LET	60	117		BUILD RESPONSE
27	 	 	900	EXSR	4			
28	 	N	900	EXSR	1			ERROR RESPONSE
29	 	 						
30	 	 		WSEQ	104	'VRW'		VAR WRITE
31	 	 		VAL	1	109		COPY VAR# TO VAR 1
32	 	 		SLEN	8			
33	 	 		BTON	901			
34	 	 		CPGE	1	200	900	VALIDITY CHECK
35	 	 	900	CPLE	1	399	900	
36	 	 		CPGE	1	300	902	REAL VARIABLES
37	 	 	902	CPLE	1	399	902	
38	 	 		SLEN	8			
39	 	N	902					
40	A	 	900	VAL	3	115		COPY VAR DATA
41	 	 	902	VAL	103	115		
42	 	 	900					
43	A	N	902	CPGE	3	-9999999	901	GOOD DATA CHECK
44	 	 	900					
45	A	N	902					
46	A	 	901	CPLE	3	9999999	901	
47	 	 	902	CPGE	103	-99999.9	901	GOOD DATA CHECK
48	 	 	902					
49	A	 	901	CPLT	103	1000000	901	
50	 	N	901	BTOF	900			
51	 	N	902					
52	A	 	900	LET	*1	*3		
53	 	 	902					
54	A	 	900	LET	*1	*103		
55	 	 	900	LET	60	107		BUILD RESPONSE
56	 	 	900	EXSR	4			
57	 	N	900					
58	A	 	901	EXSR	1			SEND ERROR
59	 	N	901	EXSR	2			SEND ERROR
60	 	 						
61	 	 		WSEQ	104	'POS'		POS READ
62	 	 		SLEN	4			READ 4 CHAR
63	 	 		VAL	1	107		COPY POINT # TO V1
64	 	 		CPGT	1	0	902	
65	 	 	902	CPLE	1	2000	902	
66	 	N	902	EXSR	1			POINT ERROR
67	 	 		SCPY	113	'0'		FILL WITH BLANKS
68	 	 		SPUT	114	32		FILL WITH BLANKS
69	 	 		SPUT	115	32		FILL WITH BLANKS
70	 	 		SPUT	116	32		FILL WITH BLANKS
71	 	 		SCPY	117	'0'		FILL WITH BLANKS
72	 	 		SPUT	118	32		FILL WITH BLANKS
73	 	 		SPUT	119	32		FILL WITH BLANKS
74	 	 		SPUT	120	32		FILL WITH BLANKS
75	 	 		SCPY	121	'0'		FILL WITH BLANKS
76	 	 		SPUT	122	32		FILL WITH BLANKS
77	 	 		SPUT	123	32		FILL WITH BLANKS
78	 	 		SPUT	124	32		FILL WITH BLANKS
79	 	 		SPUT	125	32		FILL WITH BLANKS
80	 	 		SPUT	126	32		FILL WITH BLANKS
81	 	 		SPUT	127	32		FILL WITH BLANKS
82	 	 		SPUT	128	32		FILL WITH BLANKS
83	 	 		SPUT	129	32		FILL WITH BLANKS
84	 	 		PTST	1	*1	900	TEST POINT
85	 	 	900	GOTO	2			
86	 	 		PGET	1	*1		
87	 	 		SLEN	5.3			
88	 	 		CPEQ	199	0	900	
89	 	 	900	GOTO	2			
90	 	 		CPLT	199	0	900	
91	 	 	900	GOTO	3			
92	 	 		CPGT	199	9999.999	900	
93	 	 	900	GOTO	4			
94	 	 		SLEN	4.3			
95	 	 		CPGT	199	999.999	900	
96	 	 	900	GOTO	4			
97	 	 		SLEN	3.3			
98	 	 		CPGT	199	99.999	900	
99	 	 	900	GOTO	4			
100	 	 		SLEN	2.3			
101	 	 		CPGT	199	9.999	900	
102	 	 	900	GOTO	4			
103	 	 		SLEN	1.3			
104	 	 		TAG	3			NEG POINT
105	 	 		TAG	4			
106	 	 		STR	121	*199		COPY VAR DATA
107	 	 		TAG	2			
108	 	 		LET	60	130		BUILD RESPONSE
109	 	 		SCPY	111	'010'		
110	 	 		SCPY	115	'0'		
111	 	 		SCPY	119	''		
112	 	 	902	EXSR	4			
113	 	 						
114	 	 		WSEQ	104	'PSE'		POS WRITE
115	 	 		SLEN	4			
116	 	 		VAL	1	107		COPY PNT FORWRITE
117	 	 		SLEN	9			
118	 	 		VAL	199	121		READ DATA
119	 	 		CPGT	1	0	900	
120	 	 	900	CPLE	1	2000	900	
121	 	 	900	PPUT	1	*1		COPY VAR DATA
122	 	 	900	LET	60	107		BUILD RESPONSE
123	 	 	900	EXSR	4			
124	 	N	900	EXSR	1			pOINT ERROR
125	 	 						
126	 	 		WSEQ	104	'GFS'		FLAG WRITE
127	 	 		SLEN	3			
128	 	 		VAL	1	107		COPY PNT FORWRITE
129	 	 		CPGE	1	600	910	VALIDITY CHECK
130	 	 	910	CPLE	1	887	910	
131	 	 		SLEN	1			
132	 	 	910	VAL	99	110		READ DATA
133	 	 	910	OUT	*1	*1		pUT THE VAL IN FLG
134	 	 		LET	60	107		BUILD RESPONSE
135	 	 	900	EXSR	4			
136	 	N	910	EXSR	1			ERROR
137	 	 						
138	 	 		WSEQ	104	'FLG'		FLAG READ
139	 	 		SLEN	3			
140	 	 		VAL	1	107		COPY PNT FORWRITE
141	 	 		CPGE	1	600	900	VALIDITY CHECK
142	 	 	900	CPLE	1	887	900	
143	 	 		SLEN	1			
144	 	 	900	IN	*1	*1		GET VALUE
145	 	 	900	STR	110	*99		STORE VALUE
146	 	 		LET	60	111		BUILD RESPONSE
147	 	 	900	EXSR	4			
148	 	N	900	EXSR	1			ERROR
149	 	 						
150	 	 		WSEQ	104	'INP'		READ INPUTS
151	 	 		SLEN	3			
152	 	 		VAL	1	107		COPY PNT FORWRITE
153	 	 		CPGE	1	1	900	VALIDITY CHECK
154	 	 	900	CPLE	1	287	900	
155	 	 		SLEN	1			
156	 	 	900	IN	*1	*1		GET VALUE
157	 	 	900	STR	110	*99		STORE VALUE
158	 	 		LET	60	111		BUILD RESPONSE
159	 	 	900	EXSR	4			
160	 	N	900	EXSR	1			ERROR
161	 	 						
162	 	 		WSEQ	104	'OUT'		READ OUTPUTS
163	 	 		SLEN	3			
164	 	 		VAL	1	107		COPY PNT FORWRITE
165	 	 		CPGE	1	300	900	VALIDITY CHECK
166	 	 	900	CPLE	1	587	900	
167	 	 		SLEN	1			
168	 	 	900	IN	*1	*1		GET VALUE
169	 	 	900	STR	110	*99		STORE VALUE
170	 	 		LET	60	111		BUILD RESPONSE
171	 	 	900	EXSR	4			
172	 	N	900	EXSR	1			ERROR
173	 	 						
174	 	 		WSEQ	104	'OTS'		OUTPUT WRITE
175	 	 		SLEN	3			
176	 	 		VAL	1	107		COPY PNT FORWRITE
177	 	 		CPGE	1	300	910	VALIDITY CHECK
178	 	 	910	CPLE	1	587	910	
179	 	 		SLEN	1			
180	 	 	910	VAL	99	110		READ DATA
181	 	 	910	OUT	*1	*1		pUT THE VAL IN FLG
182	 	 		LET	60	107		BUILD RESPONSE
183	 	 	910	EXSR	4			
184	 	N	910	EXSR	1			ERROR
185	 	 						
186	 	 		WSEQ	104	'HLT'		HALT
187	 	 		BTON	699			
188	 	 		CANC	699			STOP
189	 	 		BTOF	699			
190	 	 		LET	60	107		BUILD RESPONSE
191	 	 		EXSR	4			
192	 	 						
193	 	 		WSEQ	104	'HOM'		HOME ROBOT
194	 	 		SLEN	2			
195	 	 		VAL	99	107		AXIS #s
196	 	 		OUT	640	647		
197	 	 	640					
198	A	N	641	HOME	1			
199	 	N	640					
200	A	 	641	HOME	10			
201	 	 	640					
202	A	 	641	HOME	11			
203	 	 		LET	60	107		BUILD RESPONSE
204	 	 		EXSR	4			
205	 	 						
206	 	 		WSEQ	104	'PMV'		POINT MOVE
207	 	 		SLEN	4			
208	 	 		VAL	69	117		
209	 	 		VEL	200			
210	 	 		MOVP	*69			
211	 	 		LET	60	107		BUILD RESPONSE
212	 	 		EXSR	4			
213	 	 						
214	 	 		WSEQ	104	'RUN'		POINT MOVE
215	 	 		SLEN	2			
216	 	 		VAL	68	107		
217	 	 		EXPG	*68			
218	 	 		LET	60	107		BUILD RESPONSE
219	 	 		EXSR	4			
220	 	 						
221	 	 		WSEQ	104	'SRV'		POINT MOVE
222	 	 		SLEN	1			
223	 	 		VALH	99	108		
224	 	 		OUT	800	803		
225	 	 		VALH	99	107		
226	 	 		OUT	804	807		
227	 	 		ISEQ	109	'1'		
228	 	 	800	SVON	1			
229	 	 	801	SVON	10			
230	 	 	802	SVON	11			
231	 	 	803	SVON	11			
232	 	 		EDIF				
233	 	 		ISEQ	109	'0'		
234	 	 	800	SVOF	1			
235	 	 	801	SVOF	10			
236	 	 	802	SVOF	11			
237	 	 	803	SVOF	11			
238	 	 		EDIF				
239	 	 		LET	60	107		BUILD RESPONSE
240	 	 		EXSR	4			
241	 	 						
242	 	 		WSEQ	104	'EXT'		POINT MOVE
243	 	 		SLEN	2			
244	 	 		VAL	67	107		
245	 	 		ABPG	*67			
246	 	 		LET	60	107		BUILD RESPONSE
247	 	 		EXSR	4			
248	 	 						
249	 	 		WSEQ	104	'TST'		TEST COMM
250	 	 		SCPY	101	'#'		BUILD RESPONSE
251	 	 		OPEN	2			
252	 	 		WRIT	2	101		WRITE RESPONSE
253	 	 		CLOS	2			
254	 	 						
255	 	 		OTHE				
256	 	 		EDSL				
257	 	 		GOTO	1			
258	 	 		EXIT				
259	 	 						
260	 	 		BGSR	1			
261	 	 		SCPY	101	'%'		
262	 	 		SCPY	104	'02@@'		pOINT ERROR
263	 	 		SPUT	108	13		
264	 	 		SPUT	109	10		
265	 	 		OPEN	2			
266	 	 		WRIT	2	101		WRITE RESPONSE
267	 	 		CLOS	2			
268	 	 		EDSR				
269	 	 						
270	 	 		BGSR	2			
271	 	 		SCPY	101	'%'		
272	 	 		SCPY	104	'17@@'		DATA ERROR
273	 	 		SPUT	108	13		
274	 	 		SPUT	109	10		
275	 	 		OPEN	2			
276	 	 		WRIT	2	101		WRITE RESPONSE
277	 	 		CLOS	2			
278	 	 		EDSR				
279	 	 						
280	 	 		BGSR	3			REPLACE SPACE
281	 	 						W/ ZEROS
282	 	 		LET	5	107		START
283	 	 		SGET	6	*5		
284	 	 		LET	6	64		FORCE EXIT
285	 	 		DWNE	6	64		@
286	 	 		CPEQ	6	32	930	'SPACE'
287	 	 	930	SPUT	*5	48		REPLACE W/ 0
288	 	 		ADD	5	1		INC POINTER
289	 	 		SGET	6	*5		
290	 	 		EDDO				
291	 	 		EDSR				
292	 	 						
293	 	 		BGSR	4			
294	 	 		SCPY	101	'#'		BUILD RESPONSE
295	 	 		SCPY	*60	'@@'		
296	 	 		ADD	60	1		
297	 	 		SPUT	*60	13		
298	 	 		ADD	60	1		
299	 	 		SPUT	*60	10		
300	 	 		OPEN	2			
301	 	 		WRIT	2	101		WRITE RESPONSE
302	 	 		CLOS	2			
303	 	 		EDSR				
304	 	 						
305	 	 		BGSR	5			real variable sbr
306	 	 		BTOF	600	675		
307	 	 		LET	2	*102		
308	 	 		TRAN	198	*2		tran. real value
309	 	 		CPLT	198	0	900	sign check
310	 	 		CPEQ	198	0	901	
311	 	 	900	BTON	650			turn on sign bit
312	 	 	900	MULT	198	-1		invert negatives
313	 	 	901	LET	99	0		
314	 	 	901	OUT	619	650		
315	 	 	901	GOTO	1			
316	 	 		LET	197	*198		
317	 	 		LET	199	*198		
318	 	 		LET	102	0		start point expon.
319	 	 						
320	 	 		TAG	14			*start exponent*
321	 	 		CPLT	197	2	902	
322	 	N	902	DIV	197	2		
323	 	N	902	ADD	102	1		increment 102
324	 	N	902	GOTO	14			repeat if not over
325	 	 		ADD	102	127		
326	 	 		LET	99	*102		store final 2^e
327	 	 		OUT	642	649		put out
328	 	 						
329	 	 		CPLT	197	1	903	
330	 	N	903	SUB	197	1.000		take off integer
331	 	 		LET	101	1		counter
332	 	 		LET	1	641		mantissa 619-641
333	 	 		TAG	13			*start mantissa*
334	 	 		DIV	101	2		
335	 	 		CPLE	101	*197	904	check division
336	 	 	904	SUB	197	*101		keep going if less
337	 	 	904	BTON	*1			on mantissa bit
338	 	 		SUB	1	1		index mantissa bit
339	 	 		CPEQ	1	618	905	23 mantissa bits?
340	 	N	905	GOTO	13			not yet, repeat
341	 	 		EDSR