1 /FLYING SAUCER-ROCKET PROGRAM 2 /FOR THE PDP-5 COMPUTER. 3 /TITLE ICBM-1970 TTY VERSION 4 / 4/15/70 5 /KVO: UPDATED SOURCE TO ASSEMBLE WITH PALBART 6 DXL=JMS XDXL 7 DYS=JMS XDYS 8 DILX=6053 9 DILY=6054 10 DIXY=6055 11 *14 12 000014 0000 MESCNT, 0 13 /ALL CONSTANTS AND VARIABLES USED IN ROCKET, FS. 14 /LOCATIONS 10-17 USED AS AUTO-INDEXING REGISTERS. 15 16 *20 17 000020 0000 SPEEDR, 0 18 000021 0000 SPEEDF, 0 19 000022 0000 MROCK, 0 20 000023 0000 MFS, 0 21 22 /ROCKET STALL CONSTANT 23 000024 7213 STAL, -565 24 000025 7563 MRETURN,-CR 25 000026 0212 LINEFD, LF 26 000027 0215 RETURN, CR 27 000030 0000 SYM, 0 28 000031 1201 MESS, MESSAG-1 29 000032 1663 INSTR, INSDAT-1 30 000033 0001 C1, 1 31 000034 0000 COUNTR, 0 32 000035 0000 COUNTF, 0 33 000036 1777 CROCKP, 2000-1 34 000037 0777 CROCK, ROCDAT-1 35 000040 1377 CFSDAT, FLYDAT-1 36 000041 2377 CFSDAP, 2400-1 37 000042 1400 CFSDAA, FLYDAT 38 000043 7401 M377, -377 39 000044 6200 M1600, -1600 40 000045 0000 DIVIDE, 0 41 42 /ADDRESS EXIT TO DIGITAL DECTAPE SYSTEM. 43 /ALTER THIS ADDRESS TO SUIT YOUR OWN USE. 44 000046 7600 C7600, 7600 45 000047 0007 C7, 7 46 000050 7740 MHIT, -40 47 000051 0000 TEMPA, 0 48 000052 0000 TEMPB, 0 49 000053 0000 CNT, 0 50 000054 7775 M3, -3 51 000055 0741 CRLFEN, CRLF 52 000056 0377 C377, 377 53 000057 0400 CRAISE, 400 54 000060 0020 C20, 20 55 000061 0725 PRNT, PRNT1 56 000062 0600 TESTHT, TEST 57 000063 0040 CHIT, 40 58 000064 0000 XR, 0 59 000065 0206 GHOST, REST 60 61 /HIT CHECK COORDINATES. 62 000066 2176 CR1, TAGR1+1000 63 000067 2177 CR2, TAGR2+1000 64 000070 2502 CF1, TAGF1+1000 65 000071 2503 CF2, TAGF2+1000 66 000072 0706 CHAN, CHANG 67 000073 0400 ROCKET, ROCKT 68 000074 0500 FS, FLY 69 000075 0421 ROCINI, ROCIN 70 000076 0520 SAUINI, FSINI 71 000077 0443 STALL, RSTALL 72 000100 0750 CHECK, CCHECK 73 000101 0000 TEMP, 0 74 000102 0000 INCREM, 0 75 000103 5203 INSTJP, 5203 /JMP LOC 003 CURRENT PAGE. 76 000104 7700 M100, -100 77 000105 7500 M300, -300 78 79 /CJL .SV ADDS THESE TWO SUBROUTINES 80 000106 0000 XDYS, 0 81 000107 1130 TAD C1000 82 000110 6054 DILY 83 000111 7000 NOP 84 000112 7000 NOP 85 000113 7000 NOP 86 000114 7000 NOP 87 000115 7000 NOP 88 000116 6055 DIXY 89 000117 6055 DIXY 90 000120 1127 TAD C7000 91 000121 5506 JMP I XDYS 92 000122 0000 XDXL, 0 93 000123 1130 TAD C1000 94 000124 6053 DILX 95 000125 1127 TAD C7000 96 000126 5522 JMP I XDXL 97 000127 7000 C7000, 7000 98 000130 1000 C1000, 1000 99 /END CJL .SV ADDITIONS 100 101 *175 102 000175 6046 BEGIN1, TLS /INITIALIZE TELEPRINTER 103 000176 4472 JMS I CHAN 104 000177 7410 SKP /RESUME PREVIOUS FLOW 105 106 *200 107 /MAIN PROGRAM TO CONTROL THE ROCKET AND UFO. 108 000200 5175 BEGIN, JMP BEGIN1 /PATCH FOR TTY INIT 109 000201 6032 KCC 110 /PRINT INSTRUCTIONS THE FIRST TIME. 111 000202 4271 JMS GETSTR 112 000203 7200 CLA 113 000204 1103 TAD INSTJP 114 000205 3200 DCA BEGIN 115 000206 6032 REST, KCC 116 /GET SPEEDS. 117 000207 4276 JMS GET 118 000210 4455 JMS I CRLFEN 119 000211 1020 TAD SPEEDR 120 000212 4214 JMS DIVID 121 000213 5232 JMP PUTIN 122 123 /DIVIDE SUBROUTINE. 124 /CALCULATE HOW MANY TIMES TO ADD SPEED 125 /SO THE SCOPE IS NOT OVERFLOWED. 126 000214 0000 DIVID, 0 127 000215 3101 DCA TEMP 128 000216 3045 DCA DIVIDE 129 000217 1101 TAD TEMP 130 000220 7650 SNA CLA 131 000221 5206 JMP REST 132 000222 1044 TAD M1600 133 000223 1101 TAD TEMP 134 000224 2045 ISZ DIVIDE 135 000225 7510 SPA 136 000226 5223 JMP .-3 137 000227 7200 CLA 138 000230 1045 TAD DIVIDE 139 000231 5614 JMP I DIVID 140 / 141 000232 3022 PUTIN, DCA MROCK 142 000233 1021 TAD SPEEDF 143 000234 4214 JMS DIVID 144 000235 3023 DCA MFS 145 /MAIN DISPLAY CONTROL. 146 /RESET ROCKET & FLYING SAUCER. 147 000236 4475 START, JMS I ROCINI 148 000237 4476 JMS I SAUINI 149 000240 6031 GOON, KSF 150 000241 5260 JMP CONTFS 151 /IF FLAG-1 SEE IF RUB-OUT OR RETURN, 152 /IF NEITHER START DISPLAYING ROCKET. 153 000242 7200 CLA 154 000243 6034 KRS 155 000244 1025 TAD MRETURN 156 000245 7650 SNA CLA 157 000246 5206 JMP REST 158 000247 6034 KRS 159 000250 1043 TAD M377 160 000251 7450 SNA 161 000252 4500 JMS I CHECK 162 000253 4473 JMS I ROCKET 163 000254 2034 ISZ COUNTR 164 000255 5260 JMP .+3 165 /IF THE ROCKET IS AT THE TOP OF THE SCREEN 166 /RESET IT AND CLEAR THE FLAG. 167 000256 4475 JMS I ROCINI 168 000257 6032 KCC 169 000260 4474 CONTFS, JMS I FS 170 000261 6031 KSF 171 000262 4477 JMS I STALL 172 /SEE IF IT IS A HIT. 173 000263 4462 JMS I TESTHT 174 000264 7200 CLA 175 000265 2035 ISZ COUNTF 176 000266 7410 SKP 177 /RESET FLYING SAUCER 178 000267 4476 JMS I SAUINI 179 000270 5240 JMP GOON 180 181 /THIS IS THE ROUTINE THAT PRINTS OUT THE INSTRUCTIONS. 182 000271 0000 GETSTR, 0 183 000272 7200 CLA 184 000273 1032 TAD INSTR 185 000274 3014 DCA MESCNT 186 000275 5301 JMP .+4 187 188 /THIS IS THE ROUTINE THAT GETS THE PARAMETERS. 189 000276 0203 GET, 203 190 000277 1031 TAD MESS 191 000300 3014 DCA MESCNT 192 000301 4455 JMS I CRLFEN 193 000302 1060 TAD C20 194 000303 3101 DCA TEMP 195 000304 3020 DCA SPEEDR 196 000305 3021 DCA SPEEDF 197 000306 1414 CONTUE, TAD I MESCNT 198 000307 7510 SPA 199 000310 5676 JMP I GET 200 000311 7440 SZA 201 000312 5314 JMP CONT3 202 000313 5316 JMP GETCAR 203 000314 4461 CONT3, JMS I PRNT 204 000315 5306 JMP CONTUE 205 000316 6031 GETCAR, KSF 206 000317 5316 JMP .-1 207 000320 6036 KRB 208 000321 3030 DCA SYM 209 000322 1030 TAD SYM 210 000323 4461 JMS I PRNT 211 /RETURN SIGNIFIES END OF ENTRY. 212 000324 1030 TAD SYM 213 000325 1025 TAD MRETURN 214 000326 7640 SZA CLA 215 000327 5333 JMP CONT5 216 000330 4455 JMS I CRLFEN 217 000331 2101 ISZ TEMP 218 000332 5306 JMP CONTUE 219 000333 1030 CONT5, TAD SYM 220 000334 0047 AND C7 221 000335 3030 DCA SYM 222 000336 1501 TAD I TEMP 223 224 000337 7106 CLL RTL;RAL 000340 7004 225 000341 1030 TAD SYM 226 000342 3501 DCA I TEMP 227 000343 5316 JMP GETCAR 228 / 229 /;;;;;;;;;;EDITING BREAK;;;;;;;;;; 230 / 231 /ROCKET SUBROUTINE. 232 *10 233 000010 0000 XCO, 0 234 000011 0000 XPUT, 0 235 236 *400 237 000400 0000 ROCKT, 0 238 000401 7200 RESET, CLA 239 000402 1036 TAD CROCKP 240 000403 3011 DCA XPUT 241 000404 1036 TAD CROCKP 242 000405 3010 DCA XCO 243 000406 1410 STARTA, TAD I XCO 244 000407 7510 SPA 245 000410 5600 JMP I ROCKT 246 000411 4122 DXL 247 000412 1020 TAD SPEEDR 248 000413 3411 DCA I XPUT 249 000414 1410 TAD I XCO 250 000415 4106 DYS 251 000416 1020 TAD SPEEDR 252 000417 3411 DCA I XPUT 253 000420 5206 JMP STARTA 254 255 /RESET ROCKET TO STARTING POSITION. 256 000421 0000 ROCIN, 0 257 000422 7200 CLA 258 000423 1022 TAD MROCK 259 000424 7041 CIA 260 000425 3034 DCA COUNTR 261 000426 1037 TAD CROCK 262 000427 3010 DCA XCO 263 000430 1036 TAD CROCKP 264 000431 3011 DCA XPUT 265 000432 1410 GOON1, TAD I XCO 266 000433 7510 SPA 267 000434 5237 JMP CONT 268 000435 3411 DCA I XPUT 269 000436 5232 JMP GOON1 270 000437 3411 CONT, DCA I XPUT 271 000440 1044 TAD M1600 272 000441 3411 DCA I XPUT 273 000442 5621 JMP I ROCIN 274 275 /THIS ROUTINE STALLS IF THE ROCKET IS NOT FIRING 276 000443 0000 RSTALL, 0 277 000444 7200 CLA 278 000445 1024 TAD STAL 279 000446 3101 DCA TEMP 280 000447 2101 ISZ TEMP 281 000450 5247 JMP .-1 282 000451 5643 JMP I RSTALL 283 284 /FLYING SAUCER SUBROUTINE. 285 *12 286 000012 0000 XCOO, 0 287 000013 0000 XPUTT, 0 288 289 *500 290 000500 0000 FLY, 0 291 000501 7200 RESETT, CLA 292 000502 1041 TAD CFSDAP 293 000503 3013 DCA XPUTT 294 000504 1041 TAD CFSDAP 295 000505 3012 DCA XCOO 296 000506 1412 STARTT, TAD I XCOO 297 000507 7510 SPA 298 000510 5700 JMP I FLY 299 000511 4122 DXL 300 000512 1021 TAD SPEEDF 301 000513 3413 DCA I XPUTT 302 000514 1412 TAD I XCOO 303 000515 4106 DYS 304 000516 3413 DCA I XPUTT 305 000517 5306 JMP STARTT 306 307 /RESET FLYING SAUCER TO STARTING POSITION 308 000520 0000 FSINI, 0 309 000521 7200 CLA 310 000522 1023 TAD MFS 311 000523 7041 CIA 312 000524 3035 DCA COUNTF 313 000525 1040 TAD CFSDAT 314 000526 3012 DCA XCOO 315 000527 1041 TAD CFSDAP 316 000530 3013 DCA XPUTT 317 000531 1412 GOON2, TAD I XCOO 318 000532 7510 SPA 319 000533 5336 JMP CONT1 320 000534 3413 DCA I XPUTT 321 000535 5331 JMP GOON2 322 000536 3413 CONT1, DCA I XPUTT 323 000537 1044 TAD M1600 324 000540 3413 DCA I XPUTT 325 000541 5720 JMP I FSINI 326 327 /ROUTINE TO SEE IF IT HIT. 328 /CONSTANTS C40 AND M40 CONTROL 329 /HO CLOSE YOU HAVE TO BE TO SCORE A HIT. 330 *600 331 000600 0000 TEST, 0 332 000601 7200 CLA 333 000602 1054 TAD M3 334 000603 3053 DCA CNT 335 000604 1467 TAD I CR2 336 000605 1063 TAD CHIT 337 000606 3051 DCA TEMPA 338 000607 1467 TAD I CR2 339 000610 1050 TAD MHIT 340 000611 3052 DCA TEMPB 341 000612 1051 TAD TEMPA 342 000613 7041 CIA 343 000614 1471 TAD I CF2 344 000615 7710 SPA CLA 345 000616 2053 ISZ CNT 346 000617 2053 ISZ CNT 347 000620 1052 TAD TEMPB 348 000621 7041 CIA 349 000622 1471 TAD I CF2 350 000623 7510 SPA 351 000624 5230 JMP TEST1 352 000625 2053 ISZ CNT 353 000626 5600 JMP I TEST 354 000627 5233 JMP TESTY 355 000630 2053 TEST1, ISZ CNT 356 000631 5233 JMP TESTY 357 000632 5600 JMP I TEST 358 000633 7200 TESTY, CLA 359 000634 1054 TAD M3 360 000635 3053 DCA CNT 361 000636 1466 TAD I CR1 362 000637 1063 TAD CHIT 363 000640 3051 DCA TEMPA 364 000641 1466 TAD I CR1 365 000642 1050 TAD MHIT 366 000643 3052 DCA TEMPB 367 000644 1051 TAD TEMPA 368 000645 7041 CIA 369 000646 1470 TAD I CF1 370 000647 7710 SPA CLA 371 000650 2053 ISZ CNT 372 000651 2053 ISZ CNT 373 000652 1052 TAD TEMPB 374 000653 7041 CIA 375 000654 1470 TAD I CF1 376 000655 7510 SPA 377 000656 5262 JMP TEST2 378 000657 2053 ISZ CNT 379 000660 5600 JMP I TEST 380 000661 5265 JMP CRAZ 381 000662 2053 TEST2, ISZ CNT 382 000663 5265 JMP CRAZ 383 000664 5600 JMP I TEST 384 385 /DISPLAY GARBAGE FOR HIT! 386 000665 7200 CRAZ, CLA 387 000666 1054 TAD M3 388 000667 3101 DCA TEMP 389 000670 6032 KCC 390 000671 1410 CRAZY, TAD I 10 391 000672 1410 TAD I 10 392 000673 4122 DXL 393 000674 2051 ISZ TEMPA 394 000675 5277 JMP .+2 395 000676 5303 JMP SEE 396 000677 7040 SEEON, CMA 397 000700 1410 CONTDS, TAD I 10 398 000701 4106 DYS 399 000702 5271 JMP CRAZY 400 000703 2101 SEE, ISZ TEMP 401 000704 5277 JMP SEEON 402 000705 5465 JMP I GHOST 403 404 /ROUTINE TO ADD A CONSTANT TO 405 /Y-COORDINATES OF THE FLYING SAUCER. 406 /CONSTANT “CRAISE” CAN BE CHANGED 407 /FOR YOUR OWN USE. 408 000706 0000 CHANG, 0 409 000707 7200 CLA 410 000710 1042 TAD CFSDAA 411 000711 3010 DCA 10 412 000712 1042 TAD CFSDAA 413 000713 3011 DCA 11 414 000714 1410 KEEP1, TAD I 10 415 000715 7510 SPA 416 000716 5324 JMP CONT6 417 000717 1057 TAD CRAISE 418 000720 3411 DCA I 11 419 /SKIP X-COORDINATES. 420 000721 1410 TAD I 10 421 000722 3411 DCA I 11 422 000723 5314 JMP KEEP1 423 000724 5706 CONT6, JMP I CHANG 424 425 /PRINT SUBROUTINE. 426 000725 0000 PRNT1, 0 427 000726 1043 TAD M377 428 000727 7440 SZA 429 000730 5333 JMP .+3 430 000731 4455 JMS I CRLFEN 431 000732 5446 JMP I C7600 432 000733 1056 TAD C377 433 000734 6041 TSF 434 000735 5334 JMP .-1 435 000736 6046 TLS 436 000737 7300 CLA CLL 437 000740 5725 JMP I PRNT1 438 439 /CRLF ROUTINE. 440 000741 0000 CRLF, 0 441 000742 7200 CLA 442 000743 1027 TAD RETURN 443 000744 4325 JMS PRNT1 444 000745 1026 TAD LINEFD 445 000746 4325 JMS PRNT1 446 000747 5741 JMP I CRLF 447 448 /MAKE SURE 377 IS IN BUFFER. 449 000750 0000 CCHECK, 0 450 000751 1105 TAD M300 451 000752 3102 DCA INCREM 452 /STALL LOOP TO BE SURE CHARACTER IS IN BUFFER. 453 000753 2102 ISZ INCREM 454 000754 5353 JMP .-1 455 000755 6034 KRS 456 000756 1043 TAD M377 457 000757 7450 SNA 458 000760 5446 JMP I C7600 459 000761 5750 JMP I CCHECK 460 / 461 /;;;;;;;;;;EDITING BREAK;;;;;;;;;; 462 / 463 /ROCKET DATA COORDINATES (X,Y). 464 *1000 465 001000 0000 ROCDAT, 0 466 001001 0060 60 467 001002 0004 4 468 001003 0054 54 469 001004 0004 4 470 001005 0060 60 471 001006 0010 10 472 001007 0050 50 473 001010 0010 10 474 001011 0060 60 475 001012 0014 14 476 001013 0044 44 477 001014 0014 14 478 001015 0060 60 479 001016 0020 20 480 001017 0040 40 481 001020 0020 20 482 001021 0060 60 483 001022 0024 24 484 001023 0034 34 485 001024 0024 24 486 001025 0044 44 487 001026 0024 24 488 001027 0060 60 489 001030 0030 30 490 001031 0030 30 491 001032 0030 30 492 001033 0050 50 493 001034 0030 30 494 001035 0060 60 495 001036 0034 34 496 001037 0024 24 497 001040 0034 34 498 001041 0054 54 499 001042 0034 34 500 001043 0060 60 501 001044 0040 40 502 001045 0020 20 503 001046 0040 40 504 001047 0060 60 505 001050 0044 44 506 001051 0014 14 507 001052 0044 44 508 001053 0024 24 509 001054 0044 44 510 001055 0054 54 511 001056 0044 44 512 001057 0064 64 513 001060 0050 50 514 001061 0010 10 515 001062 0050 50 516 001063 0030 30 517 001064 0050 50 518 001065 0050 50 519 001066 0050 50 520 001067 0070 70 521 001070 0054 54 522 001071 0004 4 523 001072 0054 54 524 001073 0034 34 525 001074 0054 54 526 001075 0044 44 527 001076 0054 54 528 001077 0074 74 529 001100 0060 60 530 001101 0000 0 531 001102 0060 60 532 001103 0004 4 533 001104 0060 60 534 001105 0010 10 535 001106 0060 60 536 001107 0014 14 537 001110 0060 60 538 001111 0020 20 539 001112 0060 60 540 001113 0024 24 541 001114 0060 60 542 001115 0030 30 543 001116 0060 60 544 001117 0034 34 545 001120 0060 60 546 001121 0040 40 547 001122 0060 60 548 001123 0100 100 549 001124 0064 64 550 001125 0044 44 551 001126 0064 64 552 001127 0074 74 553 001130 0064 64 554 001131 0104 104 555 001132 0070 70 556 001133 0050 50 557 001134 0070 70 558 001135 0070 70 559 001136 0070 70 560 001137 0110 110 561 001140 0074 74 562 001141 0054 54 563 001142 0074 74 564 001143 0064 64 565 001144 0074 74 566 001145 0114 114 567 001146 0100 100 568 001147 0060 60 569 001150 0100 100 570 001151 0120 120 571 001152 0104 104 572 001153 0064 64 573 001154 0104 104 574 001155 0120 120 575 001156 0110 110 576 001157 0070 70 577 001160 0110 110 578 001161 0120 120 579 001162 0114 114 580 001163 0074 74 581 001164 0114 114 582 001165 0120 120 583 001166 0120 120 584 001167 0100 100 585 001170 0120 120 586 001171 0104 104 587 001172 0120 120 588 001173 0110 110 589 001174 0120 120 590 001175 0114 114 591 001176 0120 TAGR1, 120 592 001177 0120 TAGR2, 120 593 001200 4000 4000 594 001201 4000 4000 595 596 /MESSAGES ARE NOT TRIM CODE BECAUSE 597 /OF THE NATURE OF THE PRINT & GET ROUTINE. 598 /MESSAGES STORED STARTING AT *1202 599 001202 0322 MESSAG, R 600 001203 0317 O 601 001204 0303 C 602 001205 0313 K 603 001206 0305 E 604 001207 0324 T 605 001210 0240 SPACE 606 001211 0323 S 607 001212 0320 P 608 001213 0305 E 609 001214 0305 E 610 001215 0304 D 611 001216 0275 EQUAL 612 001217 0000 0 613 001220 0325 U 614 001221 0306 F 615 001222 0317 O 616 001223 0240 SPACE 617 001224 0323 S 618 001225 0320 P 619 001226 0305 E 620 001227 0305 E 621 001230 0304 D 622 001231 0275 EQUAL 623 001232 0000 0 624 001233 0212 LF 625 001234 0310 H 626 001235 0311 II 627 001236 0324 T 628 001237 0240 SPACE 629 001240 0301 A 630 001241 0240 SPACE 631 001242 0313 K 632 001243 0305 E 633 001244 0331 Y 634 001245 0240 SPACE 635 001246 0324 T 636 001247 0317 O 637 001250 0240 SPACE 638 001251 0306 F 639 001252 0311 II 640 001253 0322 R 641 001254 0305 E 642 001255 0240 SPACE 643 001256 0322 R 644 001257 0317 O 645 001260 0303 C 646 001261 0313 K 647 001262 0305 E 648 001263 0324 T 649 001264 0256 PERIOD 650 001265 4000 4000 651 652 /FLYING SAUCER COORDINATES (X,Y). 653 *1400 654 001400 0057 FLYDAT, 57 655 001401 1077 1077 656 001402 0063 63 657 001403 1101 1101 658 001404 0063 63 659 001405 1077 1077 660 001406 0063 63 661 001407 1075 1075 662 001410 0067 67 663 001411 1103 1103 664 001412 0067 67 665 001413 1077 1077 666 001414 0067 67 667 001415 1073 1073 668 001416 0073 73 669 001417 1103 1103 670 001420 0073 73 671 001421 1077 1077 672 001422 0073 073 673 001423 1073 1073 674 001424 0073 73 675 001425 1063 1063 676 001426 0075 75 677 001427 1067 1067 678 001430 0077 77 679 001431 1103 1103 680 001432 0077 77 681 001433 1077 1077 682 001434 0077 77 683 001435 1073 1073 684 001436 0077 77 685 001437 1063 1063 686 001440 0101 101 687 001441 1067 1067 688 001442 0103 103 689 001443 1103 1103 690 001444 0103 103 691 001445 1077 1077 692 001446 0103 103 693 001447 1073 1073 694 001450 0105 105 695 001451 1107 1107 696 001452 0107 107 697 001453 1113 1113 698 001454 0107 107 699 001455 1103 1103 700 001456 0107 107 701 001457 1077 1077 702 001460 0107 107 703 001461 1073 1073 704 001462 0113 113 705 001463 1117 1117 706 001464 0113 113 707 001465 1103 1103 708 001466 0113 113 709 001467 1067 1067 710 001470 0113 113 711 001471 1073 1073 712 001472 0117 117 713 001473 1123 1123 714 001474 0117 117 715 001475 1113 1113 716 001476 0117 117 717 001477 1107 1107 718 001500 0117 117 719 001501 1103 1103 720 001502 0117 TAGF1, 117 721 001503 1077 TAGF2, 1077 722 001504 0117 117 723 001505 1073 1073 724 001506 0123 123 725 001507 1123 1123 726 001510 0123 123 727 001511 1113 1113 728 001512 0123 123 729 001513 1107 1107 730 001514 0123 123 731 001515 1103 1103 732 001516 0123 123 733 001517 1077 1077 734 001520 0123 123 735 001521 1073 1073 736 001522 0125 125 737 001523 1125 1125 738 001524 0127 127 739 001525 1127 1127 740 001526 0127 127 741 001527 1123 1123 742 001530 0127 127 743 001531 1103 1103 744 001532 0127 127 745 001533 1077 1077 746 001534 0127 127 747 001535 1073 1073 748 001536 0131 131 749 001537 1125 1125 750 001540 0133 133 751 001541 1123 1123 752 001542 0133 133 753 001543 1113 1113 754 001544 0133 133 755 001545 1107 1107 756 001546 0133 133 757 001547 1103 1103 758 001550 0133 133 759 001551 1077 1077 760 001552 0133 133 761 001553 1073 1073 762 001554 0137 137 763 001555 1123 1123 764 001556 0137 137 765 001557 1113 1113 766 001560 0137 137 767 001561 1107 1107 768 001562 0137 137 769 001563 1103 1103 770 001564 0137 137 771 001565 1067 1067 772 001566 0137 137 773 001567 1073 1073 774 001570 0143 143 775 001571 1117 1117 776 001572 0143 143 777 001573 1103 1103 778 001574 0143 143 779 001575 1077 1077 780 001576 0143 143 781 001577 1073 1073 782 001600 0147 147 783 001601 1113 1113 784 001602 0147 147 785 001603 1103 1103 786 001604 0147 147 787 001605 1077 1077 788 001606 0147 147 789 001607 1073 1073 790 001610 0151 151 791 001611 1107 1107 792 001612 0153 153 793 001613 1102 1102 794 001614 0153 153 795 001615 1077 1077 796 001616 0153 153 797 001617 1073 1073 798 001620 0155 155 799 001621 1067 1067 800 001622 0157 157 801 001623 1103 1103 802 001624 0157 157 803 001625 1077 1077 804 001626 0157 157 805 001627 1073 1073 806 001630 0157 157 807 001631 1063 1063 808 001632 0161 161 809 001633 1067 1067 810 001634 0163 163 811 001635 1103 1103 812 001636 0163 163 813 001637 1077 1077 814 001640 0163 163 815 001641 1073 1073 816 001642 0163 163 817 001643 1063 1063 818 001644 0167 167 819 001645 1103 1103 820 001646 0167 167 821 001647 1077 1077 822 001650 0167 167 823 001651 1073 1073 824 001652 0173 173 825 001653 1101 1101 826 001654 0173 173 827 001655 1075 1075 828 001656 0173 173 829 001657 1077 1077 830 001660 0177 177 831 001661 1077 1077 832 001662 4000 4000 833 001663 4000 4000 834 835 /INSTRUCTIONS STORED HERE. 836 /IF THEY ARE NOT TO BE PRINTED OUT 837 /PUT A 7000 IN LOCATION 202 838 /BEFORE STARTING THE PROGRAM. 839 /OR PUT A 4000 (- #) IN LOCATION 1664. 840 *1664 841 001664 0215 INSDAT, CR 842 001665 0212 LF 843 001666 0311 II 844 001667 0316 N 845 001670 0323 S 846 001671 0324 T 847 001672 0322 R 848 001673 0325 U 849 001674 0303 C 850 001675 0324 T 851 001676 0311 II 852 001677 0317 O 853 001700 0316 N 854 001701 0323 S 855 001702 0272 COLON 856 001703 0215 CR 857 001704 0212 LF 858 001705 0323 S 859 001706 0320 P 860 001707 0305 E 861 001710 0305 E 862 001711 0304 D 863 001712 0323 S 864 001713 0240 SPACE 865 001714 0323 S 866 001715 0257 NSLASH 867 001716 0302 B 868 001717 0240 SPACE 869 001720 0274 LT 870 001721 0240 SPACE 871 001722 0317 O 872 001723 0322 R 873 001724 0240 SPACE 874 001725 0275 EQUAL 875 001726 0240 SPACE 876 001727 0324 T 877 001730 0317 O 878 001731 0240 SPACE 879 001732 0263 THREE 880 001733 0260 ZERO 881 001734 0256 PERIOD 882 001735 0215 CR 883 001736 0212 LF 884 001737 0322 R 885 001740 0305 E 886 001741 0324 T 887 001742 0325 U 888 001743 0322 R 889 001744 0316 N 890 001745 0240 SPACE 891 001746 0313 K 892 001747 0305 E 893 001750 0331 Y 894 001751 0240 SPACE 895 001752 0327 W 896 001753 0311 II 897 001754 0314 L 898 001755 0314 L 899 001756 0240 SPACE 900 001757 0301 A 901 001760 0323 S 902 001761 0313 K 903 001762 0240 SPACE 904 001763 0321 Q 905 001764 0325 U 906 001765 0305 E 907 001766 0323 S 908 001767 0324 T 909 001770 0311 II 910 001771 0317 O 911 001772 0316 N 912 001773 0323 S 913 001774 0240 SPACE 914 001775 0301 A 915 001776 0307 G 916 001777 0301 A 917 002000 0311 II 918 002001 0316 N 919 002002 0256 PERIOD 920 002003 0215 CR 921 002004 0212 LF 922 002005 0322 R 923 002006 0325 U 924 002007 0302 B 925 002010 0317 O 926 002011 0325 U 927 002012 0324 T 928 002013 0240 SPACE 929 002014 0327 W 930 002015 0311 II 931 002016 0314 L 932 002017 0314 L 933 002020 0240 SPACE 934 002021 0322 R 935 002022 0305 E 936 002023 0324 T 937 002024 0325 U 938 002025 0322 R 939 002026 0316 N 940 002027 0240 SPACE 941 002030 0324 T 942 002031 0317 O 943 002032 0240 SPACE 944 002033 0323 S 945 002034 0331 Y 946 002035 0323 S 947 002036 0324 T 948 002037 0305 E 949 002040 0315 M 950 002041 0240 SPACE 951 002042 0256 PERIOD 952 002043 0215 CR 953 002044 0212 LF 954 002045 0316 N 955 002046 0317 O 956 002047 0324 T 957 002050 0305 E 958 002051 0272 COLON 959 002052 0240 SPACE 960 002053 0303 C 961 002054 0317 O 962 002055 0316 N 963 002056 0324 T 964 002057 0322 R 965 002060 0317 O 966 002061 0314 L 967 002062 0240 SPACE 968 002063 0313 K 969 002064 0305 E 970 002065 0331 Y 971 002066 0247 SQUOTE 972 002067 0323 S 973 002070 0240 SPACE 974 002071 0317 O 975 002072 0320 P 976 002073 0305 E 977 002074 0322 R 978 002075 0301 A 979 002076 0324 T 980 002077 0305 E 981 002100 0240 SPACE 982 002101 0317 O 983 002102 0316 N 984 002103 0314 L 985 002104 0331 Y 986 002105 0240 SPACE 987 002106 0304 D 988 002107 0325 U 989 002110 0322 R 990 002111 0311 II 991 002112 0316 N 992 002113 0307 G 993 002114 0240 SPACE 994 002115 0304 D 995 002116 0311 II 996 002117 0323 S 997 002120 0320 P 998 002121 0314 L 999 002122 0301 A 1000 002123 0331 Y 1001 002124 0256 PERIOD 1002 002125 0215 CR 1003 002126 0212 LF 1004 002127 4000 4000 1005 1006 /TABLE OF LETTERS AND THEIR ASCII VALUE IN OCTAL. 1007 A=301 1008 B=302 1009 C=303 1010 D=304 1011 E=305 1012 F=306 1013 G=307 1014 H=310 1015 II=311 1016 J=312 1017 K=313 1018 L=314 1019 M=315 1020 N=316 1021 O=317 1022 P=320 1023 Q=321 1024 R=322 1025 S=323 1026 T=324 1027 U=325 1028 V=326 1029 W=327 1030 X=330 1031 Y=331 1032 Z=332 1033 ONE=261 1034 TWO=262 1035 THREE=263 1036 FOUR=264 1037 FIVE=265 1038 SIX=266 1039 SEVEN=267 1040 EIGHT=270 1041 NINE=271 1042 ZERO=260 1043 EX=241 /! 1044 QUOTE=242 1045 NUMSIN=243 /# 1046 DOLLAR=244 1047 PERCNT=245 1048 AMPER=246 /& 1049 SQUOTE=247 /' 1050 LPAR=250 1051 RPAR=251 1052 ASTER=252 1053 PLUS=253 1054 COMMA=254 1055 MINUS=255 1056 PERIOD=256 1057 COLON=272 1058 NSLASH=257 1059 SEMCOL=273 1060 LT=274 1061 EQUAL=275 1062 GT=276 1063 QUES=277 1064 ATSIGN=300 1065 LBRAK=333 1066 LSASH=334 1067 RBRAK=335 1068 LAR=337 1069 LF=212 1070 SPACE=240 1071 CR=215 1072 BELL=207 1073 $ A 0301 AMPER 0246 unreferenced ASTER 0252 unreferenced ATSIGN 0300 unreferenced B 0302 BEGIN 0200 BEGIN1 0175 BELL 0207 unreferenced C 0303 C1 0033 unreferenced C1000 0130 C20 0060 C377 0056 C7 0047 C7000 0127 C7600 0046 CCHECK 0750 CF1 0070 CF2 0071 CFSDAA 0042 CFSDAP 0041 CFSDAT 0040 CHAN 0072 CHANG 0706 CHECK 0100 CHIT 0063 CNT 0053 COLON 0272 COMMA 0254 unreferenced CONT 0437 CONT1 0536 CONT3 0314 CONT5 0333 CONT6 0724 CONTDS 0700 unreferenced CONTFS 0260 CONTUE 0306 COUNTF 0035 COUNTR 0034 CR 0215 CR1 0066 CR2 0067 CRAISE 0057 CRAZ 0665 CRAZY 0671 CRLF 0741 CRLFEN 0055 CROCK 0037 CROCKP 0036 D 0304 DILX 6053 DILY 6054 DIVID 0214 DIVIDE 0045 DIXY 6055 DOLLAR 0244 unreferenced DXL 4122 DYS 4106 E 0305 EIGHT 0270 unreferenced EQUAL 0275 EX 0241 unreferenced F 0306 FIVE 0265 unreferenced FLY 0500 FLYDAT 1400 FOUR 0264 unreferenced FS 0074 FSINI 0520 G 0307 GET 0276 GETCAR 0316 GETSTR 0271 GHOST 0065 GOON 0240 GOON1 0432 GOON2 0531 GT 0276 unreferenced H 0310 II 0311 INCREM 0102 INSDAT 1664 INSTJP 0103 INSTR 0032 J 0312 unreferenced K 0313 KEEP1 0714 L 0314 LAR 0337 unreferenced LBRAK 0333 unreferenced LF 0212 LINEFD 0026 LPAR 0250 unreferenced LSASH 0334 unreferenced LT 0274 M 0315 M100 0104 unreferenced M1600 0044 M3 0054 M300 0105 M377 0043 MESCNT 0014 MESS 0031 MESSAG 1202 MFS 0023 MHIT 0050 MINUS 0255 unreferenced MRETUR 0025 MROCK 0022 N 0316 NINE 0271 unreferenced NSLASH 0257 NUMSIN 0243 unreferenced O 0317 ONE 0261 unreferenced P 0320 PERCNT 0245 unreferenced PERIOD 0256 PLUS 0253 unreferenced PRNT 0061 PRNT1 0725 PUTIN 0232 Q 0321 QUES 0277 unreferenced QUOTE 0242 unreferenced R 0322 RBRAK 0335 unreferenced RESET 0401 unreferenced RESETT 0501 unreferenced REST 0206 RETURN 0027 ROCDAT 1000 ROCIN 0421 ROCINI 0075 ROCKET 0073 ROCKT 0400 RPAR 0251 unreferenced RSTALL 0443 S 0323 SAUINI 0076 SEE 0703 SEEON 0677 SEMCOL 0273 unreferenced SEVEN 0267 unreferenced SIX 0266 unreferenced SPACE 0240 SPEEDF 0021 SPEEDR 0020 SQUOTE 0247 STAL 0024 STALL 0077 START 0236 unreferenced STARTA 0406 STARTT 0506 SYM 0030 T 0324 TAGF1 1502 TAGF2 1503 TAGR1 1176 TAGR2 1177 TEMP 0101 TEMPA 0051 TEMPB 0052 TEST 0600 TEST1 0630 TEST2 0662 TESTHT 0062 TESTY 0633 THREE 0263 TWO 0262 unreferenced U 0325 V 0326 unreferenced W 0327 X 0330 unreferenced XCO 0010 XCOO 0012 XDXL 0122 XDYS 0106 XPUT 0011 XPUTT 0013 XR 0064 unreferenced Y 0331 Z 0332 unreferenced ZERO 0260