1 *0110 2 000110 7743 D00110, 7743 /Sets duration 3 000111 7400 P00111, 7400 /Sets frequency 4 000112 7777 D00112, 7777 5 000113 0660 P00113, S00660 6 000114 0251 P00114, S00251 7 000115 0230 P00115, S00230 8 000116 0244 P00116, S00244 9 000117 0671 P00117, L00671 10 000120 0524 P00120, S00524 11 000121 0542 P00121, S00542 12 000122 0600 PMESG, MESG /Print a (sixbit) message 13 000123 1202 P00123, S01202 14 000124 1000 P00124, S01000 15 000125 0400 P00125, L00400 16 000126 2200 D00126, 2200 17 000127 0511 P00127, S00511 18 000130 0215 D00130, 0215 19 000131 0212 P00131, D00212 20 000132 7563 D00132, 7563 21 000133 0003 D00133, 0003 22 000134 7615 D00134, 7615 23 000135 0000 D00135, 0000 24 000136 0000 D00136, 0000 25 000137 7403 D00137, 7403 26 000140 0375 P00140, 375 27 000141 0000 S00141, 0000 28 000142 7200 CLA 29 000143 1146 TAD D00146 30 000144 4524 JMS I P00124 31 000145 5541 JMP I S00141 32 000146 0322 D00146, 0322 33 000147 0000 S00147, .-. 34 000150 7200 CLA 35 000151 1154 TAD D00154 36 000152 4524 JMS I P00124 37 000153 5547 JMP I S00147 38 000154 0313 D00154, 0313 39 000155 7773 D00155, 7773 40 000156 0000 P00156, .-. 41 000157 0000 D00157, 0000 42 000160 0000 P00160, .-. 43 000161 4650 D00161, 4650 44 000162 5235 D00162, 5235 45 000163 3514 D00163, 3514 46 000164 0001 D00164, 0001 47 48 *0200 49 000200 6046 TLS 50 000201 4522 JMS I PMESG /Print 51 000202 1400 P01400 /Instructions 52 000203 4522 JMS I PMESG /Print 53 000204 1702 P01702 /"LIST OF CHARACTERS" 54 000205 4266 JMS S00266 55 000206 4522 JMS I PMESG /Print 56 000207 1715 P01715 /"WORDS PER MINUTE" 57 000210 4521 JMS I P00121 58 000211 4522 JMS I PMESG /Print 59 000212 1730 D00212, P01730 /"BAUDS BETWEEN CHARACTERS = " 60 000213 4520 JMS I P00120 61 000214 4522 JMS I PMESG /Print 62 000215 1747 P01747 /"SEND RANDOM GROUPS" 63 000216 4230 L00216, JMS S00230 64 000217 6031 L00217, KSF 65 000220 7410 SKP 66 000221 5525 JMP I P00125 67 000222 4251 JMS S00251 68 000223 4527 JMS I P00127 69 000224 4524 JMS I P00124 70 000225 2135 ISZ D00135 71 000226 5217 JMP L00217 72 000227 5216 JMP L00216 73 000230 0000 S00230, 0000 74 000231 7200 CLA 75 000232 1155 TAD D00155 76 000233 3135 DCA D00135 77 000234 1130 TAD D00130 78 000235 4527 JMS I P00127 79 000236 7200 CLA 80 000237 1131 TAD P00131 81 000240 4527 JMS I P00127 82 000241 7200 CLA 83 000242 4524 JMS I P00124 84 000243 5630 JMP I S00230 85 000244 0000 S00244, .-. 86 000245 6041 TSF 87 000246 5245 JMP .-1 88 000247 6046 TLS 89 000250 5644 JMP I S00244 90 000251 0000 S00251, .-. 91 000252 4257 JMS S00257 92 000253 1126 TAD D00126 93 000254 3156 DCA P00156 94 000255 1556 TAD I P00156 95 000256 5651 JMP I S00251 96 000257 0000 S00257, .-. 97 000260 4322 JMS S00322 98 000261 1163 TAD D00163 99 000262 1162 TAD D00162 100 000263 4473 JMS I P00073 101 000264 0000 D00264, .-. 102 000265 5657 JMP I S00257 103 000266 0000 S00266, .-. 104 000267 4147 JMS S00147 105 000270 3264 DCA D00264 106 000271 1126 TAD D00126 107 000272 3160 DCA P00160 108 000273 6031 L00273, KSF 109 000274 5273 JMP L00273 110 000275 6036 KRB 111 000276 4244 JMS S00244 112 000277 3157 DCA D00157 113 000300 1157 TAD D00157 114 000301 1132 TAD D00132 115 000302 7450 SNA 116 000303 5273 JMP L00273 117 000304 1133 TAD D00133 118 000305 7450 SNA 119 000306 5273 JMP L00273 120 000307 1134 TAD D00134 121 000310 7650 SNA CLA 122 000311 5320 JMP L00320 123 000312 7200 CLA 124 000313 1157 TAD D00157 125 000314 3560 DCA I P00160 126 000315 2264 2264 127 000316 2160 ISZ P00160 128 000317 5273 JMP L00273 129 000320 4141 L00320, JMS S00141 130 000321 5666 JMP I S00266 131 000322 0000 S00322, .-. 132 000323 7300 CLA CLL 133 000324 1161 TAD D00161 134 000325 0164 AND D00164 135 000326 7012 RTR 136 000327 1161 TAD D00161 137 000330 7004 RAL 138 000331 7200 CLA 139 000332 1163 TAD D00163 140 000333 7004 RAL 141 000334 3163 DCA D00163 142 000335 1162 TAD D00162 143 000336 7004 RAL 144 000337 3162 DCA D00162 145 000340 1161 TAD D00161 146 000341 7004 RAL 147 000342 3161 DCA D00161 148 000343 5722 JMP I S00322 149 000344 6031 L00344, KSF 150 000345 5344 JMP L00344 151 000346 6036 KRB 152 000347 3157 3157 153 000350 1157 TAD D00157 154 000351 1132 TAD D00132 155 000352 7450 SNA 156 000353 5366 JMP L00366 157 000354 1133 TAD D00133 158 000355 7450 SNA 159 000356 5344 JMP L00344 160 000357 1134 TAD D00134 161 000360 7650 SNA CLA 162 000361 5525 JMP I P00125 163 000362 1157 TAD D00157 164 000363 4527 JMS I P00127 165 000364 4524 L00364, JMS I P00124 166 000365 5344 JMP L00344 167 000366 4513 L00366, JMS I P00113 168 000367 5364 JMP L00364 169 170 *0400 171 000400 6036 L00400, KRB 172 000401 3230 DCA D00430 173 000402 1233 TAD D00433 174 000403 3232 DCA P00432 175 000404 1632 L00404, TAD I P00432 176 000405 2232 2232 177 000406 7450 SNA 178 000407 5217 JMP L00417 179 000410 1230 TAD D00430 180 000411 7650 SNA CLA 181 000412 5215 JMP L00415 182 000413 2232 ISZ P00432 183 000414 5204 JMP L00404 184 000415 4141 L00415, JMS S00141 185 000416 5632 JMP I P00432 186 000417 4513 L00417, JMS I P00113 187 000420 1227 TAD D00427 188 000421 4516 JMS I P00116 189 000422 4524 JMS I P00124 190 000423 4513 JMS I P00113 191 000424 6031 L00424, KSF 192 000425 5224 JMP L00424 193 000426 5200 JMP L00400 194 000427 0277 D00427, 0277 195 000430 0000 D00430, 0000 196 000431 0000 0000 197 000432 0000 P00432, .-. 198 000433 0434 D00433, 0434 199 000434 7464 SZA SNL OSR 200 000435 5255 JMP L00455 201 000436 7451 7451 202 000437 5263 JMP L00463 203 000440 7476 SNA SZL OSR HLT 204 000441 5267 JMP L00467 205 000442 7475 7475 206 000443 5517 JMP I P00117 207 000444 7455 7455 208 000445 5273 JMP L00473 209 000446 7460 SZA SNL 210 000447 5301 JMP L00501 211 000450 7465 7465 212 000451 5366 JMP L00566 213 000452 7462 SZA SNL HLT 214 000453 5314 JMP L00514 215 000454 0000 0000 216 000455 4513 L00455, JMS I P00113 217 000456 4522 JMS I PMESG /Print 218 000457 1702 P01702 /"LIST OF CHARACTERS" 219 000460 4723 JMS I P00523 220 000461 4513 JMS I P00113 221 000462 5224 JMP L00424 222 000463 4522 L00463, JMS I PMESG /Print 223 000464 1715 P01715 /"WORDS PER MINUTE" 224 000465 4521 JMS I P00121 225 000466 5224 JMP L00424 226 000467 4522 L00467, JMS I PMESG /Print 227 000470 1730 P01730 /"BAUDS BETWEEN CHARACTERS" 228 000471 4520 JMS I P00120 229 000472 5224 JMP L00424 230 000473 4522 L00473, JMS I PMESG /Print 231 000474 1747 P01747 /"SEND RANDOM GROUPS" 232 000475 4513 JMS I P00113 233 000476 4515 JMS I P00115 234 000477 5700 JMP I .+1 235 000500 0217 L00217 236 000501 4513 L00501, JMS I P00113 237 000502 4522 JMS I PMESG /Print 238 000503 1762 P01762 /"PRINT CHARACTERS" 239 000504 1310 TAD D00510 240 000505 3312 DCA D00512 241 000506 4513 JMS I P00113 242 000507 5224 JMP L00424 243 000510 4516 D00510, 4516 244 000511 0000 S00511, 0000 245 000512 4516 D00512, 4516 246 000513 5711 D00513, 5711 247 000514 4513 L00514, JMS I P00113 248 000515 4522 JMS I PMESG /Print 249 000516 1774 P01774 250 000517 1313 TAD D00513 251 000520 3312 DCA D00512 252 000521 4513 JMS I P00113 253 000522 5224 JMP L00424 254 000523 0266 P00523, S00266 255 000524 0000 S00524, 0000 256 000525 4147 JMS S00147 257 000526 4523 JMS I P00123 258 000527 0000 .-. 259 000530 0000 .-. 260 000531 7510 SPA 261 000532 7041 CIA 262 000533 0341 AND D00541 263 000534 7040 CMA 264 000535 3112 DCA D00112 265 000536 4141 JMS S00141 266 000537 4513 JMS I P00113 267 000540 5724 JMP I S00524 268 000541 0077 D00541, 0077 269 000542 0000 S00542, 0000 270 000543 4147 JMS S00147 271 000544 4523 4523 272 000545 0000 .-. 273 000546 0000 .-. 274 000547 7510 SPA 275 000550 7041 CIA 276 000551 0341 AND D00541 277 000552 3355 DCA D00555 278 000553 1365 TAD D00565 279 000554 4473 JMS I P00073 280 000555 0000 D00555, 0000 281 000556 7200 CLA 282 000557 4503 JMS I P00103 283 000560 7041 CIA 284 000561 3110 DCA D00110 285 000562 4141 4141 286 000563 4513 JMS I P00113 287 000564 5742 JMP I S00542 288 000565 0740 D00565, 0740 289 000566 4522 L00566, JMS I PMESG /Print 290 000567 2003 P02003 /"KEYBOARD INPUT"... 291 000570 4147 JMS S00147 292 000571 5772 JMP I P00572 293 000572 0344 P00572, L00344 294 295 *0600 296 000600 0000 MESG, .-. 297 000601 1600 TAD I MESG /Get message address 298 000602 2200 ISZ MESG /Set up for return 299 000603 3212 DCA P00612 /Save message pointer 300 000604 1612 L00604, TAD I P00612 /Get message word 301 000605 2212 ISZ P00612 /Point to the next 302 000606 7450 SNA /End of message? 303 000607 5600 JMP I MESG /Yes, return 304 000610 4213 JMS S00613 /No, output the word 305 000611 5204 JMP L00604 /And look again 306 000612 0000 P00612, .-. 307 000613 0000 S00613, .-. /Output a sixbit word 308 000614 3225 DCA D00625 /Save the word 309 000615 1225 TAD D00625 /Get the word 310 000616 7012 RTR /Shift for left half 311 000617 7012 RTR 312 000620 7012 RTR 313 000621 4226 JMS S00626 /Print it 314 000622 1225 TAD D00625 /Get right half 315 000623 4226 JMS S00626 /Print it 316 000624 5613 JMP I S00613 /Return 317 000625 0000 D00625, .-. /Saves word being printed 318 000626 0000 S00626, .-. /Print a sixbit character 319 000627 0245 AND D00645 /Force to six bits 320 000630 7450 SNA /NUL? 321 000631 5626 JMP I S00626 /Yes, don't really print it 322 000632 1246 TAD D00646 /Subtract '^' 323 000633 7440 SZA /Is it '^'? 324 000634 5237 JMP L00637 /No, go deal 325 000635 4260 JMS S00660 /Yes, just CRLF 326 000636 5626 JMP I S00626 /and return 327 000637 1247 L00637, TAD D00647 /Check for alpha or not 328 000640 7500 SMA /Alphabetic? 329 000641 1250 TAD D00650 /No, fudge result 330 000642 1251 TAD D00651 /Convert to ASCII 331 000643 4252 JMS TTYOUT /Print the character 332 000644 5626 JMP I S00626 /and return 333 000645 0077 D00645, 0077 /Mask for sixbit 334 000646 7742 D00646, -36 /^ is special 335 000647 7776 D00647, 7776 /'^' - ' ' 336 000650 7700 D00650, -100 337 000651 0340 D00651, 340 /' ' + '@' 338 000652 0000 TTYOUT, .-. /Print a character on TTY 339 000653 6041 TSF 340 000654 5253 JMP .-1 341 000655 6046 TLS 342 000656 7200 CLA 343 000657 5652 JMP I TTYOUT 344 000660 0000 S00660, .-. /Print CR-LF 345 000661 7200 CLA 346 000662 1267 TAD D00667 /Get CR 347 000663 4252 JMS TTYOUT /Print it 348 000664 1270 TAD D00670 /Get LF 349 000665 4252 JMS TTYOUT /Print it 350 000666 5660 JMP I S00660 /Return 351 000667 0215 D00667, 215 /CR 352 000670 0212 D00670, 212 /LF 353 000671 4522 L00671, JMS I PMESG /Print 354 000672 2034 P02034 /"COPY FROM KEYBOARD"... 355 000673 4515 L00673, JMS I P00115 356 000674 4514 L00674, JMS I P00114 357 000675 3136 DCA D00136 358 000676 1136 L00676, TAD D00136 359 000677 4524 JMS I P00124 360 000700 6031 L00700, KSF 361 000701 5300 JMP L00700 362 000702 6036 KRB 363 000703 1137 TAD D00137 364 000704 7450 SNA 365 000705 5525 JMP I P00125 366 000706 1140 TAD P00140 367 000707 7041 CIA 368 000710 1136 TAD D00136 369 000711 7640 SZA CLA 370 000712 5276 JMP L00676 371 000713 1136 TAD D00136 372 000714 4516 JMS I P00116 373 000715 7200 CLA 374 000716 1323 TAD D00723 375 000717 4524 JMS I P00124 376 000720 2135 ISZ D00135 377 000721 5274 JMP L00674 378 000722 5273 JMP L00673 379 000723 0240 D00723, 0240 380 381 *1000 382 001000 0000 S01000, .-. 383 001001 0264 AND D01064 /Mask with 077 384 001002 1265 TAD D01065 /Add table base 385 001003 3262 DCA P01062 /Save pointer 386 001004 1662 TAD I P01062 /Get table entry 387 001005 3263 DCA D01063 /Save bit pattern 388 001006 1112 TAD D00112 389 001007 3261 DCA D01061 390 001010 7300 L01010, CLA CLL 391 001011 1263 TAD D01063 /Get bit pattern 392 001012 7004 RAL /Beep value to link 393 001013 7450 SNA /Last bit? 394 001014 5227 JMP L01027 /Yes, go wrap up 395 001015 3263 DCA D01063 /No, save output pattern 396 001016 7420 SNL /Need long beep? 397 001017 5222 JMP L01022 /No, go do short version 398 001020 4234 JMS S01034 /Beep 399 001021 4234 JMS S01034 /Beep more 400 001022 7120 L01022, CLL CML /Switch beep/quiet switch 401 001023 4234 JMS S01034 /One bit time 402 001024 7100 CLL /Now quiet 403 001025 4234 JMS S01034 /One bit time 404 001026 5210 JMP L01010 /Go check for more pattern 405 001027 7100 L01027, CLL /Do a rest 406 001030 4234 L01030, JMS S01034 /Beep or not, depending on link 407 001031 2261 ISZ D01061 /Again? 408 001032 5230 JMP L01030 /Yes, go do it 409 001033 5600 JMP I S01000 /No, return to caller 410 001034 0000 S01034, .-. /Poke the AF04A 411 001035 1110 TAD D00110 /Get duration 412 001036 3250 DCA D01050 /Set duration counter 413 001037 6571 L01037, 6571 /Output value (0000 initially) 414 001040 4251 P01040, JMS S01051 /Delay a bit 415 001041 7040 CMA /Complement the value 416 001042 7430 SZL /Beeping? 417 001043 6571 6571 /Yes, Output new value 418 001044 4251 JMS S01051 /Delay a bit 419 001045 2250 ISZ D01050 /Done all iterations? 420 001046 5237 JMP L01037 /No, go again 421 001047 5634 JMP I S01034 /Yes, return 422 001050 0000 D01050, .-. /Iteration counter 423 001051 0000 S01051, .-. /Fixed delay 424 001052 7200 CLA 425 001053 1111 TAD P00111 /Get frequency 426 001054 3260 DCA D01060 /Set frequency counter 427 001055 2260 ISZ D01060 /Done holding? 428 001056 5255 JMP .-1 /No, wait some more 429 001057 5651 JMP I S01051 /Yes, return 430 001060 0000 D01060, .-. /Pulse sustain counter 431 001061 0000 D01061, .-. /Pulse ?? counter 432 001062 0000 P01062, .-. 433 001063 0000 D01063, 0000 434 001064 0077 D01064, 0077 435 001065 1066 D01065, .+1 /Morse code table base 436 /(Indexed with a sixbit character) 437 001066 0000 0000 /@ Invalid 438 001067 3000 3000 /A .- 439 001070 4200 4200 /B -... 440 001071 5200 5200 /C -.-. 441 001072 4400 4400 /D -.. 442 001073 2000 2000 /E . 443 001074 1200 1200 /F ..-. 444 001075 6400 6400 /G --. 445 001076 0200 0200 /H .... 446 001077 1000 1000 /I .. 447 001100 3600 3600 /J .--- 448 001101 5400 5400 /K -.- 449 001102 2200 2200 /L .-.. 450 001103 7000 7000 /M -- 451 001104 5000 5000 /N -. 452 001105 7400 7400 /O --- 453 001106 3200 3200 /P .--. 454 001107 6600 6600 /Q --.- 455 001110 2400 2400 /R .-. 456 001111 0400 0400 /S ... 457 001112 6000 6000 /T - 458 001113 1400 1400 /U ..- 459 001114 0600 0600 /V ...- 460 001115 3400 3400 /W .-- 461 001116 4600 4600 /X -..- 462 001117 5600 5600 /Y -.-- 463 001120 6200 6200 /Z --.. 464 001121 0000 0000 /[ Invalid 465 001122 0000 0000 /\ Invalid 466 001123 0000 0000 /] Invalid 467 001124 7710 7710 /^ ------.. BUGBUG 468 001125 0010 0010 /_ ..--.- 469 001126 0000 0000 /space 470 001127 0000 0000 /! Invalid 471 001130 2240 2240 /" .-..-. 472 001131 0000 0000 /# Invalid 473 001132 0000 0000 /$ Invalid 474 001133 0000 0000 /% Invalid 475 001134 0000 0000 /& Invalid 476 001135 3640 3640 /' .----. 477 001136 0000 0000 /( Invalid 478 001137 0000 0000 /) Invalid 479 001140 0540 0540 /* ...-.- (end of work) 480 001141 0000 0000 /+ Invalid 481 001142 6340 6340 /, --..-- 482 001143 4140 4140 /- -....- 483 001144 2540 2540 /. .-.-.- 484 001145 4500 4500 // -..-. 485 001146 7700 7700 /0 ----- 486 001147 3700 3700 /1 .---- 487 001150 1700 1700 /2 ..--- 488 001151 0700 0700 /3 ...-- 489 001152 0300 0300 /4 ....- 490 001153 0100 0100 /5 ..... 491 001154 4100 4100 /6 -.... 492 001155 6100 6100 /7 --... 493 001156 7100 7100 /8 ---.. 494 001157 7500 7500 /9 ----. 495 001160 7040 7040 /: ---... 496 001161 5240 5240 /; -.-.-. 497 001162 0000 0000 /< Invalid 498 001163 4300 4300 /= -...- 499 001164 0000 0000 /> Invalid 500 001165 1440 1440 /? ..--.. 501 502 *1200 503 001200 0000 P01200, .-. 504 001201 5253 JMP L01253 505 001202 0000 S01202, 0000 506 001203 7000 L01203, NOP 507 001204 3376 DCA D01376 508 001205 3377 DCA D01377 509 001206 7040 L01206, CMA 510 001207 3343 L01207, DCA S01343 511 001210 6031 L01210, KSF 512 001211 5210 JMP L01210 513 001212 6036 KRB 514 001213 4371 JMS S01371 515 001214 3602 DCA I S01202 516 001215 1602 TAD I S01202 517 001216 1340 TAD D01340 518 001217 7450 SNA 519 001220 5312 JMP L01312 520 001221 1337 TAD D01337 521 001222 7450 SNA 522 001223 5207 JMP L01207 523 001224 1336 TAD D01336 524 001225 7450 SNA 525 001226 5206 JMP L01206 526 001227 1335 TAD D01335 527 001230 3240 DCA D01240 528 001231 7160 CLL CML CMA 529 001232 1342 TAD D01342 530 001233 1240 TAD D01240 531 001234 7630 SZL CLA 532 001235 5243 JMP L01243 533 001236 4315 JMS S01315 534 001237 4355 JMS S01355 535 001240 0000 D01240, 0000 536 001241 0000 0 537 001242 5210 JMP L01210 538 001243 2343 L01243, ISZ S01343 539 001244 4343 JMS S01343 540 001245 2202 ISZ S01202 541 001246 1376 TAD D01376 542 001247 3602 DCA I S01202 543 001250 2202 ISZ S01202 544 001251 1377 TAD D01377 545 001252 5602 JMP I S01202 546 001253 3377 L01253, DCA D01377 547 001254 1600 TAD I P01200 548 001255 3376 DCA D01376 549 001256 2200 ISZ P01200 550 001257 1341 1341 551 001260 3202 DCA S01202 552 001261 1376 TAD D01376 553 001262 7700 SMA CLA 554 001263 5266 JMP L01266 555 001264 4343 JMS S01343 556 001265 1334 TAD D01334 557 001266 1333 L01266, TAD D01333 558 001267 5305 JMP L01305 559 001270 3343 L01270, DCA S01343 560 001271 4355 L01271, JMS S01355 561 001272 6700 6700 562 001273 7413 7413 563 001274 2343 ISZ S01343 564 001275 7430 SZL 565 001276 5271 JMP L01271 566 001277 4355 JMS S01355 567 001300 1100 TAD P00100 568 001301 0364 AND D01364 569 001302 4315 JMS S01315 570 001303 1343 TAD S01343 571 001304 1332 TAD D01332 572 001305 4371 L01305, JMS S01371 573 001306 7300 CLA CLL 574 001307 2202 ISZ S01202 575 001310 5270 JMP L01270 576 001311 5600 JMP I P01200 577 001312 1332 L01312, TAD D01332 578 001313 4371 JMS S01371 579 001314 5203 JMP L01203 580 001315 0000 S01315, 0000 581 001316 1342 TAD D01342 582 001317 3371 DCA S01371 583 001320 1376 TAD D01376 584 001321 3326 DCA D01326 585 001322 1377 TAD D01377 586 001323 3325 DCA D01325 587 001324 4355 L01324, JMS S01355 588 001325 0000 D01325, 0000 589 001326 0000 D01326, 0000 590 001327 2371 ISZ S01371 591 001330 5324 JMP L01324 592 001331 5715 JMP I S01315 593 001332 0257 D01332, 0257 594 001333 0240 D01333, 0240 595 001334 0015 D01334, 0015 596 001335 7773 D01335, 7773 597 001336 0002 D01336, 0002 598 001337 0122 D01337, 0122 599 001340 7401 D01340, 7401 600 001341 7770 7770 601 001342 7767 D01342, 7767 602 001343 0000 S01343, 0000 603 001344 1377 TAD D01377 604 001345 7141 CLL CIA 605 001346 3377 DCA D01377 606 001347 1376 TAD D01376 607 001350 7040 CMA 608 001351 7430 SZL 609 001352 7001 IAC 610 001353 3376 DCA D01376 611 001354 5743 JMP I S01343 612 001355 0000 S01355, 0000 613 001356 7100 CLL 614 001357 1755 TAD I S01355 615 001360 2355 ISZ S01355 616 001361 1377 TAD D01377 617 001362 3377 DCA D01377 618 001363 7004 RAL 619 001364 1755 D01364, 1755 620 001365 2355 ISZ S01355 621 001366 1376 TAD D01376 622 001367 3376 DCA D01376 623 001370 5755 JMP I S01355 624 001371 0000 S01371, .-. 625 001372 6041 TSF 626 001373 5372 JMP .-1 627 001374 6046 TLS 628 001375 5771 JMP I S01371 629 001376 0000 D01376, 0000 630 001377 0000 D01377, 0000 631 632 *1400 633 /This must be assembled without 0 padding at the end of strings. 634 /Otherwise it won't match the original properly. 635 001400 1517 P01400, TEXT /MORSE CODE RANDOM 5 LETTER GROUPS....^/ 001401 2223 001402 0540 001403 0317 001404 0405 001405 4022 001406 0116 001407 0417 001410 1540 001411 6540 001412 1405 001413 2424 001414 0522 001415 4007 001416 2217 001417 2520 001420 2356 001421 5656 001422 5636 636 001423 3605 TEXT /^ENTER LIST OF CHARACTERS, TERMINATING LIST WITH "ALT MODE" KEY.^/ 001424 1624 001425 0522 001426 4014 001427 1123 001430 2440 001431 1706 001432 4003 001433 1001 001434 2201 001435 0324 001436 0522 001437 2354 001440 4024 001441 0522 001442 1511 001443 1601 001444 2411 001445 1607 001446 4014 001447 1123 001450 2440 001451 2711 001452 2410 001453 4042 001454 0114 001455 2440 001456 1517 001457 0405 001460 4240 001461 1305 001462 3156 001463 3600 637 001464 2410 TEXT /THEN GIVE SPEED IN WPM AND EXTRA SPACES DESIRED BETWEEN LETTERS./ 001465 0516 001466 4007 001467 1126 001470 0540 001471 2320 001472 0505 001473 0440 001474 1116 001475 4027 001476 2015 001477 4001 001500 1604 001501 4005 001502 3024 001503 2201 001504 4023 001505 2001 001506 0305 001507 2340 001510 0405 001511 2311 001512 2205 001513 0440 001514 0205 001515 2427 001516 0505 001517 1640 001520 1405 001521 2424 001522 0522 001523 2356 638 001524 3636 TEXT /^^TO CHANGE LIST, TYPE \_A/ 001525 2417 001526 4003 001527 1001 001530 1607 001531 0540 001532 1411 001533 2324 001534 5440 001535 2431 001536 2005 001537 4034 001540 3701 639 001541 4003 TEXT / CHANGE SPEED, TYPE W/ 001542 1001 001543 1607 001544 0540 001545 2320 001546 0505 001547 0454 001550 4024 001551 3120 001552 0540 001553 2700 640 001554 3624 TEXT /^TO CHANGE SPACING, TYPE B^/ 001555 1740 001556 0310 001557 0116 001560 0705 001561 4023 001562 2001 001563 0311 001564 1607 001565 5440 001566 2431 001567 2005 001570 4002 001571 3600 641 001572 2417 TEXT /TO START SENDING, TYPE S^/ 001573 4023 001574 2401 001575 2224 001576 4023 001577 0516 001600 0411 001601 1607 001602 5440 001603 2431 001604 2005 001605 4023 001606 3600 642 001607 2417 TEXT /TO PRINT LETTERS, TYPE P^/ 001610 4020 001611 2211 001612 1624 001613 4014 001614 0524 001615 2405 001616 2223 001617 5440 001620 2431 001621 2005 001622 4020 001623 3600 643 001624 2417 TEXT /TO STOP PRINTING, TYPE N^/ 001625 4023 001626 2417 001627 2040 001630 2022 001631 1116 001632 2411 001633 1607 001634 5440 001635 2431 001636 2005 001637 4016 001640 3600 644 001641 2417 TEXT /TO SEND FROM KEYBOARD, TYPE K ^/ 001642 4023 001643 0516 001644 0440 001645 0622 001646 1715 001647 4013 001650 0531 001651 0217 001652 0122 001653 0454 001654 4024 001655 3120 001656 0540 001657 1340 001660 3600 645 001661 2417 TEXT /TO COPY ON KEYBOARD, TYPE C^^/ 001662 4003 001663 1720 001664 3140 001665 1716 001666 4013 001667 0531 001670 0217 001671 0122 001672 0454 001673 4024 001674 3120 001675 0540 001676 0336 001677 3600 646 001700 0000 0 647 001701 0000 0 648 001702 1411 P01702, TEXT /LIST OF CHARACTERS^/ 001703 2324 001704 4017 001705 0640 001706 0310 001707 0122 001710 0103 001711 2405 001712 2223 001713 3600 649 001714 0000 0 650 001715 3627 P01715, TEXT /^WORDS PER MINUTE = / 001716 1722 001717 0423 001720 4020 001721 0522 001722 4015 001723 1116 001724 2524 001725 0540 001726 7540 651 001727 0000 0 652 001730 3602 P01730, TEXT /^BAUDS BETWEEN CHARACTERS = / 001731 0125 001732 0423 001733 4002 001734 0524 001735 2705 001736 0516 001737 4003 001740 1001 001741 2201 001742 0324 001743 0522 001744 2340 001745 7540 653 001746 0000 0 654 001747 2305 P01747, TEXT /SEND RANDOM GROUPS/ 001750 1604 001751 4022 001752 0116 001753 0417 001754 1540 001755 0722 001756 1725 001757 2023 655 001760 0000 0 656 001761 0000 0 657 001762 2022 P01762, TEXT /PRINT CHARACTERS/ 001763 1116 001764 2440 001765 0310 001766 0122 001767 0103 001770 2405 001771 2223 658 001772 0000 0 659 001773 0000 0 660 001774 1617 P01774, TEXT /NO PRINTING/ 001775 4020 001776 2211 001777 1624 002000 1116 002001 0700 661 002002 0000 0 662 002003 3613 P02003, TEXT /^KEYBOARD INPUT, TERMINATE WITH "ALT MODE" KEY^/ 002004 0531 002005 0217 002006 0122 002007 0440 002010 1116 002011 2025 002012 2454 002013 4024 002014 0522 002015 1511 002016 1601 002017 2405 002020 4027 002021 1124 002022 1040 002023 4201 002024 1424 002025 4015 002026 1704 002027 0542 002030 4013 002031 0531 002032 3600 663 002033 0000 0 664 002034 3603 P02034, TEXT /^COPY FROM KEYBOARD, TERMINATE WITH "ALT MODE" KEY^/ 002035 1720 002036 3140 002037 0622 002040 1715 002041 4013 002042 0531 002043 0217 002044 0122 002045 0454 002046 4024 002047 0522 002050 1511 002051 1601 002052 2405 002053 4027 002054 1124 002055 1040 002056 4201 002057 1424 002060 4015 002061 1704 002062 0542 002063 4013 002064 0531 002065 3600 665 002066 0000 0 666 667 *0067 668 000067 0000 D00067, 0000 669 000070 0000 D00070, 0000 670 000071 7000 P07000 671 000072 7105 CLL RAL IAC 672 000073 7014 P00073, D07014 673 000074 7141 CLL CIA 674 000075 7007 RTL IAC 675 000076 6700 6700 676 000077 7022 7022 677 000100 7051 P00100, S07051 678 000101 7043 BSW CIA 679 000102 6747 6747 680 000103 6756 P00103, S06756 681 000104 7003 P07003 682 683 *6700 684 006700 0000 P06700, .-. 685 006701 3347 DCA P06747 686 006702 3070 DCA D00070 687 006703 1347 TAD P06747 688 006704 7440 SZA 689 006705 5312 JMP L06712 690 006706 1067 TAD D00067 691 006707 7650 SNA CLA 692 006710 5700 JMP I P06700 693 006711 1347 L06711, TAD P06747 694 006712 7004 L06712, RAL 695 006713 7430 SZL 696 006714 5330 JMP L06730 697 006715 7510 SPA 698 006716 5332 JMP L06732 699 006717 7200 CLA 700 006720 1067 L06720, TAD D00067 701 006721 7104 L06721, CLL RAL 702 006722 3067 DCA D00067 703 006723 1347 TAD P06747 704 006724 7004 RAL 705 006725 3347 DCA P06747 706 006726 2070 ISZ D00070 707 006727 5311 JMP L06711 708 006730 7510 L06730, SPA 709 006731 5334 JMP L06734 710 006732 7010 L06732, RAR 711 006733 5700 JMP I P06700 712 006734 7010 L06734, RAR 713 006735 1346 TAD D06746 714 006736 7640 SZA CLA 715 006737 5320 JMP L06720 716 006740 1067 TAD D00067 717 006741 7440 SZA 718 006742 5321 JMP L06721 719 006743 7020 CML 720 006744 1347 TAD P06747 721 006745 5700 JMP I P06700 722 006746 2000 D06746, 2000 723 006747 0000 P06747, .-. 724 006750 3356 DCA S06756 725 006751 1356 TAD S06756 726 006752 7040 CMA 727 006753 0070 AND D00070 728 006754 1356 TAD S06756 729 006755 5747 JMP I P06747 730 006756 0000 S06756, 0000 731 006757 3347 DCA P06747 732 006760 1347 TAD P06747 733 006761 7040 CMA 734 006762 0067 AND D00067 735 006763 1347 TAD P06747 736 006764 5756 JMP I S06756 737 738 *7000 739 007000 0000 P07000, .-. 740 007001 3067 DCA D00067 741 007002 5600 JMP I P07000 742 007003 0000 P07003, .-. 743 007004 7200 7200 744 007005 3067 DCA D00067 745 007006 5603 JMP I P07003 746 007007 0000 D07007, .-. 747 007010 3067 DCA D00067 748 007011 1207 TAD D07007 749 007012 3341 DCA P07141 750 007013 5342 JMP L07142 751 007014 0000 D07014, .-. 752 007015 3067 DCA D00067 753 007016 1214 TAD D07014 754 007017 3305 DCA P07105 755 007020 5306 JMP L07106 756 007021 0037 D07021, 37 757 007022 0000 P07022, .-. 758 007023 3203 DCA P07003 759 007024 1622 TAD I P07022 760 007025 2222 ISZ P07022 761 007026 0221 AND D07021 762 007027 7040 CMA 763 007030 3070 DCA D00070 764 007031 1067 L07031, TAD D00067 765 007032 7104 CLL RAL 766 007033 3067 DCA D00067 767 007034 1203 TAD P07003 768 007035 7004 RAL 769 007036 3203 DCA P07003 770 007037 2070 ISZ D00070 771 007040 5231 JMP L07031 772 007041 1203 TAD P07003 773 007042 5622 JMP I P07022 774 007043 0000 D07043, .-. 775 007044 3203 DCA P07003 776 007045 1243 TAD D07043 777 007046 3251 DCA S07051 778 007047 7100 CLL 779 007050 5256 JMP L07056 780 007051 0000 S07051, .-. 781 007052 7100 CLL 782 007053 7510 SPA 783 007054 7020 CML 784 007055 3203 DCA P07003 785 007056 1651 L07056, TAD I S07051 786 007057 2251 ISZ S07051 787 007060 0221 AND D07021 788 007061 7040 CMA 789 007062 3070 DCA D00070 790 007063 1203 TAD P07003 791 007064 5270 JMP L07070 792 007065 1203 L07065, TAD P07003 793 007066 7510 SPA 794 007067 7020 CML 795 007070 7010 L07070, RAR 796 007071 3203 DCA P07003 797 007072 1067 TAD D00067 798 007073 7010 RAR 799 007074 3067 DCA D00067 800 007075 7100 CLL 801 007076 2070 ISZ D00070 802 007077 5265 JMP L07065 803 007100 1203 TAD P07003 804 007101 7510 SPA 805 007102 7020 CML 806 007103 5651 JMP I S07051 807 007104 7763 D07104, 7763 808 007105 0000 P07105, .-. 809 007106 3203 L07106, DCA P07003 810 007107 1705 TAD I P07105 811 007110 2305 ISZ P07105 812 007111 7141 CLL CIA 813 007112 3207 DCA D07007 814 007113 1203 TAD P07003 815 007114 1207 TAD D07007 816 007115 7630 SZL CLA 817 007116 5705 JMP I P07105 818 007117 1304 TAD D07104 819 007120 3243 DCA D07043 820 007121 5332 JMP L07132 821 007122 1203 L07122, TAD P07003 822 007123 7004 RAL 823 007124 3203 DCA P07003 824 007125 1203 TAD P07003 825 007126 1207 TAD D07007 826 007127 7430 SZL 827 007130 3203 DCA P07003 828 007131 7200 CLA 829 007132 1067 L07132, TAD D00067 830 007133 7004 RAL 831 007134 3067 DCA D00067 832 007135 2243 ISZ D07043 833 007136 5322 JMP L07122 834 007137 1203 TAD P07003 835 007140 5705 JMP I P07105 836 007141 0000 P07141, .-. 837 007142 3214 L07142, DCA D07014 838 007143 1304 TAD D07104 839 007144 3243 DCA D07043 840 007145 1741 TAD I P07141 841 007146 3200 DCA P07000 842 007147 2341 ISZ P07141 843 007150 5361 JMP L07161 844 007151 1214 TAD D07014 845 007152 7420 L07152, SNL 846 007153 5357 JMP L07157 847 007154 7100 CLL 848 007155 1200 TAD P07000 849 007156 7010 RAR 850 007157 3214 L07157, DCA D07014 851 007160 1067 TAD D00067 852 007161 7010 L07161, RAR 853 007162 3067 DCA D00067 854 007163 2243 ISZ D07043 855 007164 5352 JMP L07152 856 007165 1214 TAD D07014 857 007166 5741 JMP I P07141 858 $ D00067 0067 D00070 0070 D00110 0110 D00112 0112 D00126 0126 D00130 0130 D00132 0132 D00133 0133 D00134 0134 D00135 0135 D00136 0136 D00137 0137 D00146 0146 D00154 0154 D00155 0155 D00157 0157 D00161 0161 D00162 0162 D00163 0163 D00164 0164 D00212 0212 D00264 0264 D00427 0427 D00430 0430 D00433 0433 D00510 0510 D00512 0512 D00513 0513 D00541 0541 D00555 0555 D00565 0565 D00625 0625 D00645 0645 D00646 0646 D00647 0647 D00650 0650 D00651 0651 D00667 0667 D00670 0670 D00723 0723 D01050 1050 D01060 1060 D01061 1061 D01063 1063 D01064 1064 D01065 1065 D01240 1240 D01325 1325 D01326 1326 D01332 1332 D01333 1333 D01334 1334 D01335 1335 D01336 1336 D01337 1337 D01340 1340 D01342 1342 D01364 1364 D01376 1376 D01377 1377 D06746 6746 D07007 7007 D07014 7014 D07021 7021 D07043 7043 D07104 7104 L00216 0216 L00217 0217 L00273 0273 L00320 0320 L00344 0344 L00364 0364 L00366 0366 L00400 0400 L00404 0404 L00415 0415 L00417 0417 L00424 0424 L00455 0455 L00463 0463 L00467 0467 L00473 0473 L00501 0501 L00514 0514 L00566 0566 L00604 0604 L00637 0637 L00671 0671 L00673 0673 L00674 0674 L00676 0676 L00700 0700 L01010 1010 L01022 1022 L01027 1027 L01030 1030 L01037 1037 L01203 1203 L01206 1206 L01207 1207 L01210 1210 L01243 1243 L01253 1253 L01266 1266 L01270 1270 L01271 1271 L01305 1305 L01312 1312 L01324 1324 L06711 6711 L06712 6712 L06720 6720 L06721 6721 L06730 6730 L06732 6732 L06734 6734 L07031 7031 L07056 7056 L07065 7065 L07070 7070 L07106 7106 L07122 7122 L07132 7132 L07142 7142 L07152 7152 L07157 7157 L07161 7161 MESG 0600 P00073 0073 P00100 0100 P00103 0103 P00111 0111 P00113 0113 P00114 0114 P00115 0115 P00116 0116 P00117 0117 P00120 0120 P00121 0121 P00123 0123 P00124 0124 P00125 0125 P00127 0127 P00131 0131 P00140 0140 P00156 0156 P00160 0160 P00432 0432 P00523 0523 P00572 0572 P00612 0612 P01040 1040 unreferenced P01062 1062 P01200 1200 P01400 1400 P01702 1702 P01715 1715 P01730 1730 P01747 1747 P01762 1762 P01774 1774 P02003 2003 P02034 2034 P06700 6700 P06747 6747 P07000 7000 P07003 7003 P07022 7022 P07105 7105 P07141 7141 PMESG 0122 S00141 0141 S00147 0147 S00230 0230 S00244 0244 S00251 0251 S00257 0257 S00266 0266 S00322 0322 S00511 0511 S00524 0524 S00542 0542 S00613 0613 S00626 0626 S00660 0660 S01000 1000 S01034 1034 S01051 1051 S01202 1202 S01315 1315 S01343 1343 S01355 1355 S01371 1371 S06756 6756 S07051 7051 TTYOUT 0652