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