1 2 P00054=0054 3 D00374=0374 4 D00755=0755 5 D01354=1354 6 D01373=1373 7 D01374=1374 8 D01624=1624 9 D02244=2244 10 11 FIELD 0 12 13 *3200 14 03200 4751 P03200, JMS I P03351 / Output CRLF 15 03201 4752 JMS I PICHAR / Get a character 16 03202 4753 JMS I P03353 / Is it a space? 17 03203 7450 SNA 18 03204 5263 JMP L03263 / Yes, go do space command 19 03205 4754 JMS I P03354 / Is it an asterisk? 20 03206 7440 L03206, SZA 21 03207 5611 JMP I .+2 / No, go check for others 22 03210 7410 SKP / Yes, keep going 23 03211 4027 L04027 24 03212 4233 JMS P03233 / Got asterisk... 25 03213 4233 JMS P03233 26 03214 4233 JMS P03233 27 03215 4233 JMS P03233 28 03216 3375 D03375 29 03217 4755 L03217, JMS I P03355 30 03220 4752 JMS I PICHAR 31 03221 4753 JMS I P03353 32 03222 7450 SNA 33 03223 5767 JMP I P03367 34 03224 4244 JMS P03244 35 03225 5756 JMP I P03356 36 03226 4233 D04233 37 03227 4233 JMS P03233 38 03230 4233 JMS P03233 39 03231 3376 L03231, DCA D03376 40 03232 5770 JMP I P03370 41 03233 3231 P03233, L03231 42 03234 7104 CLL RAL 43 03235 7006 RTL 44 03236 3373 DCA D03373 45 03237 4752 JMS I PICHAR 46 03240 4244 JMS P03244 47 03241 5767 JMP I P03367 48 03242 1373 P03242, D01373 49 03243 5633 JMP I P03233 50 03244 3242 P03244, P03242 51 03245 3374 DCA D03374 52 03246 1372 TAD D03372 53 03247 0374 D00374 54 03250 1364 TAD D03364 55 03251 7650 SNA CLA 56 03252 5256 JMP L03256 57 03253 7100 CLL 58 03254 1374 D01374 59 03255 5644 JMP I P03244 60 03256 7100 L03256, CLL 61 03257 1374 TAD D03374 62 03260 0365 AND D03365 63 03261 2244 D02244 64 03262 5644 JMP I P03244 65 03263 7300 L03263, CLA CLL 66 03264 1375 TAD D03375 67 03265 7006 RTL 68 03266 7006 RTL 69 03267 4761 JMS I P03361 70 03270 4761 JMS I P03361 71 03271 4761 JMS I P03361 72 03272 4761 JMS I P03361 73 03273 5217 L03273, JMP L03217 74 03274 1357 L03274, TAD D03357 75 03275 3376 DCA D03376 76 03276 4755 JMS I P03355 77 03277 4752 JMS I PICHAR 78 03300 4244 JMS P03244 79 03301 7410 SKP 80 03302 5343 JMP L03343 81 03303 4762 JMS I P03362 82 03304 7450 SNA 83 03305 5334 JMP L03334 84 03306 4763 JMS I P03363 85 03307 7450 SNA 86 03310 5315 JMP L03315 87 03311 4753 JMS I P03353 88 03312 7440 SZA 89 03313 5767 JMP I P03367 90 03314 5320 JMP L03320 91 03315 1376 L03315, TAD D03376 92 03316 1371 TAD D03371 93 03317 3376 DCA D03376 94 03320 4755 L03320, JMS I P03355 95 03321 4752 JMS I PICHAR 96 03322 4244 JMS P03244 97 03323 7410 SKP 98 03324 5343 JMP L03343 99 03325 4762 JMS I P03362 100 03326 7450 SNA 101 03327 5334 JMP L03334 102 03330 4753 4753 103 03331 7440 SZA 104 03332 5767 JMP I P03367 105 03333 5337 JMP L03337 106 03334 1376 L03334, TAD D03376 107 03335 0366 AND D03366 108 03336 3376 DCA D03376 109 03337 4755 L03337, JMS I P03355 110 03340 4752 JMS I PICHAR 111 03341 4244 JMS P03244 112 03342 5767 JMP I P03367 113 03343 4233 L03343, JMS P03233 114 03344 4233 JMS P03233 115 03345 0360 AND M177 116 03346 1376 TAD D03376 117 03347 3376 DCA D03376 118 03350 5770 JMP I P03370 119 03351 3616 P03351, OCRLF 120 03352 3666 PICHAR, ICHAR 121 03353 3647 P03353, P03647 122 03354 3642 P03354, P03642 123 03355 3626 P03355, OSPACE 124 03356 4000 P03356, L04000 125 03357 0200 D03357, 0200 126 03360 0177 M177, 0177 127 03361 3701 P03361, ONEOCT 128 03362 3654 P03362, P03654 129 03363 3661 P03363, P03661 130 03364 7520 D03364, 7520 131 03365 0007 D03365, 0007 132 03366 7577 D03366, 7577 133 03367 3607 P03367, P03607 134 03370 3600 P03370, L03600 135 03371 0400 D03371, 0400 136 03372 0370 D03372, 0370 137 03373 4200 D03373, 4200 138 03374 0261 D03374, 0261 139 03375 3571 D03375, 3571 140 03376 4201 D03376, 4201 141 03377 3365 DCA D03365 142 143 *3400 144 03400 4323 P03400, D04323 145 03401 3362 L03401, DCA D03562 146 03402 4750 JMS I PICHR 147 03403 4751 JMS I P03551 148 03404 7450 SNA 149 03405 5345 JMP L03545 150 03406 4323 JMS P03523 151 03407 3363 P03363 152 03410 3755 DCA I P03555 153 03411 4313 JMS P03513 154 03412 1364 L03412, TAD D03564 155 03413 7041 CIA 156 03414 3366 DCA D03566 157 03415 1365 TAD D03565 158 03416 4257 JMS P03457 159 03417 7410 SKP 160 03420 5752 L03420, JMP I P03552 161 03421 4247 JMS P03447 162 03422 3755 L03422, DCA I P03555 163 03423 3367 DCA D03567 164 03424 4753 L03424, JMS I P03553 165 03425 4750 JMS I PICHR 166 03426 4751 D04751 167 03427 7450 SNA 168 03430 5760 JMP I P03560 169 03431 4323 JMS P03523 170 03432 3362 DCA D03562 171 03433 4750 JMS I PICHR 172 03434 4323 JMS P03523 173 03435 3363 DCA D03563 174 03436 4313 JMS P03513 175 03437 4247 JMS P03447 176 03440 4335 JMS P03535 177 03441 2367 L03441, ISZ D03567 178 03442 7410 SKP 179 03443 5760 JMP I P03560 180 03444 7240 CLA CMA 181 03445 3367 DCA D03567 182 03446 5224 JMP L03424 183 03447 3422 P03447, L03422 184 03450 1370 TAD D03570 185 03451 7041 CIA 186 03452 3366 DCA D03566 187 03453 1371 TAD D03571 188 03454 4257 JMS P03457 189 03455 5761 JMP I P03561 190 03456 5647 JMP I P03447 191 03457 3420 P03457, L03420 192 03460 3372 DCA P03572 193 03461 1772 L03461, TAD I P03572 194 03462 1362 TAD D03562 195 03463 7650 SNA CLA 196 03464 5270 JMP L03470 197 03465 1372 TAD P03572 198 03466 1354 D01354 199 03467 5305 JMP L03505 200 03470 2372 L03470, ISZ P03572 201 03471 1772 TAD I P03572 202 03472 1363 TAD D03563 203 03473 7650 SNA CLA 204 03474 5301 JMP L03501 205 03475 1372 TAD P03572 206 03476 7001 IAC 207 03477 7001 IAC 208 03500 5305 JMP L03505 209 03501 2372 L03501, ISZ P03572 210 03502 1772 TAD I P03572 211 03503 2257 ISZ P03457 212 03504 5657 JMP I P03457 213 03505 3372 L03505, DCA P03572 214 03506 1372 TAD P03572 215 03507 1366 TAD D03566 216 03510 7710 SPA CLA 217 03511 5261 JMP L03461 218 03512 5657 JMP I P03457 219 03513 3412 P03513, L03412 220 03514 1362 TAD D03562 221 03515 7041 CIA 222 03516 3362 DCA D03562 223 03517 1363 D03517, 1363 224 03520 7041 CIA 225 03521 3363 DCA D03563 226 03522 5713 JMP I P03513 227 03523 3401 P03523, L03401 228 03524 0356 AND D03556 229 03525 7106 CLL RTL 230 03526 7006 RTL 231 03527 7006 RTL 232 03530 3366 DCA D03566 233 03531 4750 D04750 234 03532 0356 AND D03556 235 03533 1366 TAD D03566 236 03534 5723 JMP I P03523 237 03535 3441 P03535, L03441 238 03536 3357 DCA D03557 239 03537 1357 TAD D03557 240 03540 7040 CMA 241 03541 0755 D00755 242 03542 1357 TAD D03557 243 03543 3755 DCA I P03555 244 03544 5735 JMP I P03535 245 03545 1362 L03545, TAD D03562 246 03546 3755 DCA I P03555 247 03547 5760 JMP I P03560 248 03550 3666 PICHR, ICHAR 249 03551 3647 P03551, P03647 250 03552 3274 P03552, L03274 251 03553 3626 P03553, OSPACE 252 03554 0003 0003 253 03555 3376 P03555, D03376 254 03556 0077 D03556, 0077 255 03557 7200 D03557, 7200 256 03560 3600 P03560, L03600 257 03561 3607 P03561, P03607 258 03562 2340 D03562, 2340 259 03563 4540 D03563, 4540 260 03564 3776 D03564, 3776 261 03565 3731 D03565, 3731 262 03566 2300 D03566, 2300 263 03567 0000 D03567, 0000 264 03570 4201 D03570, 4201 265 03571 4041 D03571, 4041 266 03572 3741 P03572, 3741 267 03573 0317 AND D03517 268 03574 0454 AND I P00054 269 03575 7711 7711 270 03576 0405 0405 271 03577 0317 AND D03517 272 273 *3600 274 03600 1715 L03600, TAD I P03715 275 03601 3330 DCA P03730 276 03602 1716 TAD I P03716 277 03603 3730 DCA I P03730 278 03604 2715 2715 279 03605 7000 NOP 280 03606 5714 5714 281 03607 4226 P03607, D04226 282 03610 4226 JMS OSPACE / Output a space 283 03611 7300 CLA CLL 284 03612 1317 TAD QMARK / Output question mark 285 03613 4274 JMS OCHAR 286 03614 4274 JMS OCHAR / ...twice 287 03615 5714 JMP I P03714 288 03616 3201 OCRLF, 3201 289 03617 7300 CLA CLL 290 03620 1320 TAD CR / Output CR 291 03621 4274 JMS OCHAR 292 03622 7300 CLA CLL 293 03623 1321 TAD LF / Output LF 294 03624 4274 JMS OCHAR 295 03625 5616 JMP I OCRLF 296 03626 3220 OSPACE, 3220 297 03627 7300 CLA CLL 298 03630 1322 TAD SPACE / Output a space 299 03631 4274 JMS OCHAR 300 03632 5626 JMP I OSPACE 301 03633 3653 P03633, P03653 302 03634 1330 TAD P03730 / Add the character 303 03635 7100 CLL 304 03636 7650 SNA CLA / Is it a match? 305 03637 5633 JMP I P03633 / Yes, return 0 306 03640 1330 TAD P03730 / No, return the character 307 03641 5633 JMP I P03633 308 03642 3206 P03642, 3206 309 03643 3330 DCA P03730 / Save the character 310 03644 1323 TAD NSPLAT / Is it asterisk? 311 03645 4233 JMS P03633 312 03646 5642 JMP I P03642 / Return result 313 03647 3222 P03647, 3222 314 03650 3330 DCA P03730 / Save the character 315 03651 1325 TAD NSPACE / Is it space? 316 03652 4233 JMS P03633 317 03653 5647 P03653, JMP I P03647 / Return result 318 03654 3304 P03654, 3304 319 03655 3330 DCA P03730 320 03656 1326 TAD NZ 321 03657 4233 JMS P03633 322 03660 5654 JMP I P03654 323 03661 3307 P03661, 3307 324 03662 3330 DCA P03730 325 03663 1324 TAD D03724 326 03664 4233 JMS P03633 327 03665 5661 JMP I P03661 328 03666 3202 ICHAR, 3202 / Input with echo 329 03667 6031 KSF / Wait for input 330 03670 5267 JMP .-1 331 03671 6036 KRB / Read the character 332 03672 4274 JMS OCHAR / Echo it 333 03673 5666 JMP I ICHAR / Return 334 03674 3625 OCHAR, 3625 / Output a character 335 03675 6046 TLS 336 03676 6041 TSF / Wait for output 337 03677 5276 JMP .-1 338 03700 5674 JMP I OCHAR / Return 339 03701 3273 ONEOCT, L03273 340 03702 3330 DCA P03730 / Save argument 341 03703 1330 TAD P03730 342 03704 0777 AND I P03777 / Mask with 0007 343 03705 1327 TAD C260 / Convert to digit 344 03706 4274 JMS OCHAR / Print it 345 03707 7200 CLA 346 03710 1330 TAD P03730 / Get the value 347 03711 7004 RAL / Roll up next digit 348 03712 7006 RTL 349 03713 5701 JMP I ONEOCT / Return 350 03714 3200 P03714, P03200 351 03715 3375 P03715, D03375 352 03716 3376 P03716, D03376 353 03717 0277 QMARK, 0277 354 03720 0215 CR, 0215 355 03721 0212 LF, 0212 356 03722 0240 SPACE, 0240 357 03723 7526 NSPLAT, -"* 358 03724 7467 D03724, -"I / Should be "A ? 359 03725 7540 NSPACE, -240 360 03726 7446 NZ, -"Z 361 03727 0260 C260, 0260 362 03730 3570 P03730, D03570 363 03731 0116 TEXT /AND /; *.-1 03732 0440 03733 0000 364 03733 0000 AND 0 365 03734 2401 TEXT /TAD /; *.-1 03735 0440 03736 0000 366 03736 1000 TAD 0 367 03737 1123 TEXT /ISZ /; *.-1 03740 3240 03741 0000 368 03741 2000 ISZ 0 369 03742 0403 TEXT /DCA /; *.-1 03743 0140 03744 0000 370 03744 3000 DCA 0 371 03745 1215 TEXT /JMS /; *.-1 03746 2340 03747 0000 372 03747 4000 JMS 0 373 03750 1215 TEXT /JMP /; *.-1 03751 2040 03752 0000 374 03752 5000 JMP 0 375 03753 0601 TEXT /FADD/; *.-1 03754 0404 03755 0000 376 03755 1000 TAD 0 377 03756 0623 TEXT /FSUB/; *.-1 03757 2502 03760 0000 378 03760 2000 ISZ 0 379 03761 0615 TEXT /FMPY/; *.-1 03762 2031 03763 0000 380 03763 3000 DCA 0 381 03764 0604 TEXT /FDIV/; *.-1 03765 1126 03766 0000 382 03766 4000 JMS 0 383 03767 0607 TEXT /FGET/; *.-1 03770 0524 03771 0000 384 03771 5000 JMP 0 385 03772 0620 TEXT /FPUT/; *.-1 03773 2524 03774 0000 386 03774 6000 IOT 387 03775 1116 1116 388 03776 7764 7764 389 03777 3365 P03777, D03365 390 391 *4000 392 04000 3617 L04000, DCA I P04017 393 04001 1220 1220 394 04002 4621 JMS I P04021 395 04003 7440 SZA 396 04004 5622 JMP I P04022 397 04005 1623 TAD I P04023 398 04006 3224 DCA P04024 399 04007 1624 D01624 400 04010 7106 CLL RTL 401 04011 7006 RTL 402 04012 4625 JMS I P04025 403 04013 4625 JMS I P04025 404 04014 4625 JMS I P04025 405 04015 4625 JMS I P04025 406 04016 5626 JMP I P04026 407 04017 3730 P04017, P03730 408 04020 7503 7503 409 04021 3633 P04021, P03633 410 04022 3400 P04022, P03400 411 04023 3375 P04023, D03375 412 04024 3570 P04024, D03570 413 04025 3701 P04025, ONEOCT 414 04026 3200 P04026, P03200 415 04027 3617 L04027, DCA I P04017 416 04030 1236 TAD D04036 417 04031 4621 JMS I P04021 418 04032 7440 SZA 419 04033 5637 JMP I P04037 420 04034 2623 ISZ I P04023 421 04035 5640 JMP I P04040 422 04036 7521 D04036, 7521 423 04037 3607 P04037, P03607 424 04040 3263 P04040, L03263 425 04041 1617 TEXT /NOP /; *.-1 04042 2040 04043 0000 426 04043 7000 NOP 427 04044 1101 TEXT /IAC /; *.-1 04045 0340 04046 0000 428 04046 7001 IAC 429 04047 2201 TEXT /RAL /; *.-1 04050 1440 04051 0000 430 04051 7004 RAL 431 04052 2224 TEXT /RTL /; *.-1 04053 1440 04054 0000 432 04054 7006 RTL 433 04055 2201 TEXT /RAR /; *.-1 04056 2240 04057 0000 434 04057 7010 RAR 435 04060 2224 TEXT /RTR /; *.-1 04061 2240 04062 0000 436 04062 7012 RTR 437 04063 0315 TEXT /CML /; *.-1 04064 1440 04065 0000 438 04065 7020 CML 439 04066 0315 TEXT /CMA /; *.-1 04067 0140 04070 0000 440 04070 7040 CMA 441 04071 0311 TEXT /CIA /; *.-1 04072 0140 04073 0000 442 04073 7041 CIA 443 04074 0314 TEXT /CLL /; *.-1 04075 1440 04076 0000 444 04076 7100 CLL 445 04077 2324 TEXT /STL /; *.-1 04100 1440 04101 0000 446 04101 7120 STL 447 04102 0314 TEXT /CLA /; *.-1 04103 0140 04104 0000 448 04104 7200 CLA 449 04105 2324 TEXT /STA /; *.-1 04106 0140 04107 0000 450 04107 7240 STA 451 04110 1014 TEXT /HLT /; *.-1 04111 2440 04112 0000 452 04112 7402 HLT 453 04113 1723 TEXT /OSR /; *.-1 04114 2240 04115 0000 454 04115 7404 OSR 455 04116 2313 TEXT /SKP /; *.-1 04117 2040 04120 0000 456 04120 7410 SKP 457 04121 2316 TEXT /SNL /; *.-1 04122 1440 04123 0000 458 04123 7420 SNL 459 04124 2332 TEXT /SZL /; *.-1 04125 1440 04126 0000 460 04126 7430 SZL 461 04127 2332 TEXT /SZA /; *.-1 04130 0140 04131 0000 462 04131 7440 SZA 463 04132 2316 TEXT /SNA /; *.-1 04133 0140 04134 0000 464 04134 7450 SNA 465 04135 2315 TEXT /SMA /; *.-1 04136 0140 04137 0000 466 04137 7500 SMA 467 04140 2320 TEXT /SPA /; *.-1 04141 0140 04142 0000 468 04142 7510 SPA 469 04143 1117 TEXT /ION /; *.-1 04144 1640 04145 0000 470 04145 6001 ION 471 04146 1117 TEXT /IOF /; *.-1 04147 0640 04150 0000 472 04150 6002 IOF 473 04151 1323 TEXT /KSF /; *.-1 04152 0640 04153 0000 474 04153 6031 KSF 475 04154 1303 TEXT /KCC /; *.-1 04155 0340 04156 0000 476 04156 6032 KCC 477 04157 1322 TEXT /KRS /; *.-1 04160 2340 04161 0000 478 04161 6034 KRS 479 04162 1322 TEXT /KRB /; *.-1 04163 0240 04164 0000 480 04164 6036 KRB 481 04165 2423 TEXT /TSF /; *.-1 04166 0640 04167 0000 482 04167 6041 TSF 483 04170 2403 TEXT /TCF /; *.-1 04171 0640 04172 0000 484 04172 6042 TCF 485 04173 2420 TEXT /TPC /; *.-1 04174 0340 04175 0000 486 04175 6044 TPC 487 04176 2414 TEXT /TLS /; *.-1 04177 2340 04200 0000 488 04200 6046 TLS 489 D04226=4226 490 D04233=4233 491 D04323=4323 492 D04750=4750 493 D04751=4751 494 D07006=7006 495 $ C260 3727 CR 3720 D00374 0374 D00755 0755 D01354 1354 D01373 1373 D01374 1374 D01624 1624 D02244 2244 D03357 3357 D03364 3364 D03365 3365 D03366 3366 D03371 3371 D03372 3372 D03373 3373 D03374 3374 D03375 3375 D03376 3376 D03517 3517 D03556 3556 D03557 3557 D03562 3562 D03563 3563 D03564 3564 D03565 3565 D03566 3566 D03567 3567 D03570 3570 D03571 3571 D03724 3724 D04036 4036 D04226 4226 D04233 4233 D04323 4323 D04750 4750 D04751 4751 D07006 7006 unreferenced ICHAR 3666 L03206 3206 unreferenced L03217 3217 L03231 3231 L03256 3256 L03263 3263 L03273 3273 L03274 3274 L03315 3315 L03320 3320 L03334 3334 L03337 3337 L03343 3343 L03401 3401 L03412 3412 L03420 3420 L03422 3422 L03424 3424 L03441 3441 L03461 3461 L03470 3470 L03501 3501 L03505 3505 L03545 3545 L03600 3600 L04000 4000 L04027 4027 LF 3721 M177 3360 NSPACE 3725 NSPLAT 3723 NZ 3726 OCHAR 3674 OCRLF 3616 ONEOCT 3701 OSPACE 3626 P00054 0054 P03200 3200 P03233 3233 P03242 3242 P03244 3244 P03351 3351 P03353 3353 P03354 3354 P03355 3355 P03356 3356 P03361 3361 P03362 3362 P03363 3363 P03367 3367 P03370 3370 P03400 3400 P03447 3447 P03457 3457 P03513 3513 P03523 3523 P03535 3535 P03551 3551 P03552 3552 P03553 3553 P03555 3555 P03560 3560 P03561 3561 P03572 3572 P03607 3607 P03633 3633 P03642 3642 P03647 3647 P03653 3653 P03654 3654 P03661 3661 P03714 3714 P03715 3715 P03716 3716 P03730 3730 P03777 3777 P04017 4017 P04021 4021 P04022 4022 P04023 4023 P04024 4024 P04025 4025 P04026 4026 P04037 4037 P04040 4040 PICHAR 3352 PICHR 3550 QMARK 3717 SPACE 3722