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