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