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