1 / NEW SUPER RK05 ALIGNMENT PROGRAM ... ALIGNX ... R.L.MOORE 2 / 3 / 11/19/75 4 / 5 / THANKS TO JOE LOMBARDI FOR TOGGLE-IN PROGRAMS 6 / 7 / ************************************************************** 8 / 9 / 10 / 11 / SIMPLE TOGGLE IN PROGRAM - FOR DISK ALIGNMENT 12 / 13 / 20/ 7201 14 / 6742 15 / 1051 16 / 6744 17 / 1050 18 / 6746 19 / 7604 20 / 6743 21 / 6741 22 / 5230 23 / 5220 24 / 50/ 0000 25 / 51/ 1000 26 / 27 / CHANGE LOC. 50 TO 0002 FOR DRIVE 1; 0004 FOR DRIVE 2; 0006 FOR DRIVE 3 28 / 29 / 30 / SIMPLE TOGGLE IN - FOR OSCILLATING SEEKS 31 / 32 / 20/ 7201 33 / 7104 34 / 6742 35 / 1242 36 / 6746 37 / 7604 38 / 6743 39 / 6741 40 / 5227 41 / 2070 42 / 5231 43 / 1243 44 / 6746 45 / 7300 46 / 6743 47 / 6741 48 / 5237 49 / 5223 50 / 3200 51 / 3200 52 / 53 / 54 / CHANGE LOC'S 42 & 43 TO 3202,3204,ETC FOR OTHER DRIVES 55 / *** USEFUL PROGRAMMING INFO *** 56 / 57 / 58 / SETUP OF 8E FRONT PANEL SWITCHES 59 / 60 /: 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 61 /----------------------------------------------------------------------- 62 /: : : : : : : : : : : : : 63 /: :SEEK :UPPER:>128 : : 64 /: DRIVE 0-3 : : : : ENTER TRACK TO SEEK OR ALIGN TO : 65 /: :ALIGN:LOWER:<128 : : 66 /: : : : : : : : : : : : : 67 /----------------------------------------------------------------------- 68 / 69 / 70 / RK8E COMMAND REGISTER CONTENTS 71 / 72 /: 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 73 /---------------------------------------------------------------------- 74 /: : : : : : : : : : : : : 75 /: : EN. : EN. : XFER: EXTENDED : : EXT: 76 /: - FUNCTION - : INT.: INT.: 128 : - MEMORY FIELD -: - DRIVE -:CYLN: 77 /: : ON : ON : WORD: ADDRESS : : BIT: 78 /: (SEE BELOW) :DONE :SEEK :BLOCK: : : IF : 79 /: :FLAG :DONE : : : :>128: 80 /: : : : : : : : : : : : : 81 /----------------------------------------------------------------------- 82 / 83 / FUNCTION BITS (0-2) 84 / 85 / 0 0 0 READ DATA 86 / 0 0 1 READ ALL 87 / 0 1 0 SET WRITE PROTECT BIT 88 / 0 1 1 SEEK ONLY 89 / 1 0 0 WRITE DATA 90 / 1 0 1 WRITE ALL 91 / 1 1 0 NOT USED 92 / 1 1 1 NOT USED 93 / 94 / 95 / RK8E DISK ADDRESS REGISTER 96 / 97 /: 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 98 /----------------------------------------------------------------------- 99 /: : : : : : : : : : : : : 100 /: : SUR-: : 101 /: - CYLINDER (TRACK) - :FACE : - SECTOR - : 102 /: : : : : : : : : : : : : 103 /----------------------------------------------------------------------- 104 / 105 / NOTE: 106 / MSB OF CYLINDER ADDR. IS BIT 11 OF CMD REGISTER 107 / THIS BIT IS SET IF ADDR. IS GREATER THAN CYL 128 108 / IOT & PARAMETER DEFINITIONS 109 DSKP=6741 110 DCLR=6742 111 DLAG=6743 112 DLCA=6744 113 DRST=6745 114 DLDC=6746 115 DMAN=6747 116 / 117 OS8=1 /=1 IF OS-8 RESIDENT, 0 IF PAPER TAPE 118 / 119 TYPE=JMS I A6BIT 120 WIPE=JMS I SCREN 121 DELAY=JMS I DEL 122 CHAR=JMS I ACHAR 123 RECAL=JMS I ARECAL 124 SEEK=JMS I ASEEK 125 ALIGN=JMS I AALIGN 126 MES1=JMS I MESG1 127 MES2=JMS I MESG2 128 MES3=JMS I MESG3 129 MES4=JMS I MESG4 130 MES5=JMS I MESG5 131 KBDMON=JMS I MON 132 BEEP=JMS I ABEEP 133 SWITCH=JMS I SW 134 TIME=JMS I TIMOUT 135 / 136 / 137 FIELD 0 138 *50 139 / 140 000050 0400 SW, SETUP 141 000051 1200 MESG1, MESS1 142 000052 1400 MESG2, MESS2 143 000053 1600 MESG3, MESS3 144 000054 2000 MESG4, MESS4 145 000055 2200 MESG5, MESS5 146 000056 2400 A6BIT, SIXBIT 147 000057 1000 SCREN, SCREEN 148 000060 1013 DEL, DELAY4 149 000061 2435 ACHAR, TTYOUT 150 000062 0220 ARECAL, RECAL1 151 000063 0600 AALIGN, ALIGN1 152 000064 0616 ASEEK, SEEK1 153 000065 0231 MON, KBFLAG 154 000066 1024 ABEEP, BEEP1 155 000067 1033 TIMOUT, XTIME 156 / 157 / 158 / 159 000070 0000 DRIVE, 0000 160 000071 0000 CMD, 0000 161 000072 4000 CURADD, 4000 162 000073 0000 SWREG, 0000 163 000074 0000 TRACK, 0000 164 000075 0000 NEW, 0000 165 000076 0000 OLD, 0000 166 000077 0000 EXT, 0000 167 / CONTROL PROGRAM 168 / 169 *0200 170 000200 7410 START, SKP 171 000201 5211 JMP NOMESS 172 000202 7300 CLA CLL 173 000203 4457 WIPE 174 000204 4451 MES1 175 000205 4452 MES2 176 000206 4453 MES3 177 000207 4454 MES4 178 000210 4455 MES5 179 000211 7402 NOMESS, HLT 180 000212 4462 RECAL 181 000213 4465 LOOP, IFNZRO OS8 /ASSEMBLE ONLY IF AN OS-8 SYS 182 000214 4450 SWITCH 183 000215 4464 SEEK 184 000216 4463 ALIGN 185 000217 5213 JMP LOOP 186 / 187 / 188 / 189 / SUBROUTINE TO RECALIBRATE DRIVE 190 / 191 000220 0000 RECAL1, 0 /RECAL AT STARTUP TIME 192 000221 4467 TIME 193 000222 1070 TAD Z DRIVE 194 000223 6746 DLDC /LOAD COMMAND REG 195 000224 7326 CLA CLL CML RTL /AC=0002 196 000225 6742 DCLR /RECALIBRATE 197 000226 6741 DSKP 198 000227 5226 JMP .-1 199 000230 5620 JMP I RECAL1 /EXIT THIS SUB 200 / 201 / 202 / 203 / SUBROTINE TO MONITOR KEYBOARD FOR ^C 204 / 205 000231 0000 KBFLAG, 0 206 000232 6031 KSF /IS A FLAG ?? 207 000233 5631 JMP I KBFLAG /NO...SPLIT 208 000234 6036 KRB /YES...READ BUFFER 209 000235 1377 TAD (-203) /TEST FOR ^C 210 000236 7640 SZA CLA /IT IS ... 211 000237 5631 JMP I KBFLAG /NOT ! 212 000240 5776 JMP I (07600) /EXIT TO OS-8 213 / 214 000376 7600 PAGE 000377 7575 215 / 216 / 217 / SETUP CALLING SEQUENCE 218 / 219 / JMS SETUP 220 / SEEK 221 / ALIGN 222 / 223 / 224 / 225 / 226 / 227 000400 0000 SETUP, 0000 /SETUP DISK INFO FROM SW. REG. 228 000401 7300 CLA CLL 229 000402 3073 DCA SWREG 230 000403 3070 DCA DRIVE 231 000404 3074 DCA TRACK /CLEAR OUT A LOT OF LOCATIONS 232 000405 3071 DCA CMD 233 000406 3075 DCA NEW 234 / 235 / 236 / 237 / ******************************************************** 238 / 239 / DECIDE IF THE SW. REG. HAS BEEN CHANGED SINCE LAST TIME 240 / 241 / ******************************************************** 242 / 243 / 244 000407 7604 LAS 245 000410 3073 DCA SWREG /SAVE SR VALUE 246 000411 1073 TAD SWREG 247 000412 0377 AND (7000 248 000413 7012 RTR;RTR;RTR 000414 7012 000415 7012 249 000416 3075 DCA NEW 250 000417 1075 TAD NEW 251 000420 7041 CIA /COMPLIMENT & INCR. 252 000421 1076 TAD OLD /COMPARE WITH OLD SR 253 000422 7640 SZA CLA 254 000423 4462 RECAL 255 000424 7300 CLA CLL 256 000425 1075 TAD NEW 257 000426 3076 DCA OLD 258 / 259 EJECT 260 / 261 / ************************** 262 / 263 / MAKE UP COMMAND REGISTER 264 / 265 / ************************** 266 / 267 / 268 000427 7300 CLA CLL 269 000430 1073 TAD SWREG 270 000431 0376 AND (0200) /MASK FOR >128 BIT 271 000432 7006 RTL;RTL;RTL /GET INTO BIT 11 (PASSES THRU LINK) 000433 7006 000434 7006 272 000435 3077 DCA EXT /SAVE THE EXT SEEK BIT 273 000436 7300 CLA CLL 274 000437 1073 TAD SWREG 275 000440 0375 AND (6000) /MASK BITS 0-1 (DRIVE #) 276 000441 7006 RTL;RTL /GET INTO BITS 9-10 000442 7006 277 000443 3070 DCA DRIVE 278 000444 7300 CLA CLL 279 000445 1073 TAD SWREG 280 000446 0374 AND (1000) /MASK FOR SEEK OR ALIGN BIT 281 000447 7640 SZA CLA /SKIP IF ALIGN (SEEK BIT DID NOT "AND" THRU) 282 000450 1373 TAD (3200) /SEEK ONLY CMD WORD 283 000451 1077 TAD EXT /ADD THE EXT BIT 284 000452 3071 DCA CMD /TO SAVE AS COMMAND REGISTER WORD 285 / 286 / 287 / ************************** 288 / 289 / MAKE UP THE TRACK WORD 290 / 291 / ************************** 292 / 293 / 294 000453 7300 CLA CLL 295 000454 1073 TAD SWREG 296 000455 0372 AND (0400) /MASK FOR THE UPPER-LOWER HEAD BIT 297 000456 7012 RTR;RTR /GET INTO BIT 7 000457 7012 298 000460 3074 DCA TRACK 299 000461 7300 CLA CLL 300 000462 1073 TAD SWREG 301 000463 0371 AND (0177) /MASK TRACK INFO BITS 5-11 302 000464 7006 RTL;RTL;RAL /GET INTO BITS 0-6 000465 7006 000466 7004 303 000467 1074 TAD TRACK /ADD HEAD BIT (STORED IN TRACK) 304 000470 3074 DCA TRACK /SAVE THE ENTIRE TRACK WORD 305 000471 7300 CLA CLL 306 000472 1073 TAD SWREG 307 000473 0374 AND (1000) /GET BACK THE SEEK - ALIGN BIT 308 000474 7650 SNA CLA 309 000475 2200 ISZ SETUP /BUMP RETURN POINTER FOR ALIGN 310 000476 7300 CLA CLL 311 000477 5600 JMP I SETUP /EXIT 312 000571 0177 PAGE 000572 0400 000573 3200 000574 1000 000575 6000 000576 0200 000577 7000 313 / 314 / 315 / 316 / ***************************************************************** 317 / 318 / THIS SUBROUTINE DOES A SEEK TO THE ADDRESS LOADED INTO THE SW REG., 319 / THEN READS THE DATA AT THAT CYLINDER ADDRESS INTO THE DUMP AREA 320 / IN CORE .... HEADS ARE ALIGNED DURING THIS SUB .... 321 / 322 / ****************************************************************** 323 / 324 / 325 / 326 / 327 / 328 / 329 / 330 / 331 000600 0000 ALIGN1, 0 332 000601 7201 CLA IAC /SET AC=1 333 000602 6742 DCLR 334 000603 1072 TAD Z CURADD 335 000604 6744 DLCA /LOAD CURRENT ADDRESS 336 000605 1070 TAD Z DRIVE /GET DRIVE NUMBER FROM PG 0 337 000606 1071 TAD Z CMD /GET COMMAND WORD 338 000607 6746 DLDC /LOAD COMMAND REG. 339 000610 1074 TAD TRACK 340 000611 6743 DLAG /LOAD ADDR & GO 341 000612 6741 DSKP /WAIT FOR HEAD 342 000613 5212 JMP .-1 /TO GET THERE 343 000614 7300 CLA CLL 344 000615 5600 JMP I ALIGN1 /EXIT THIS SUB 345 / 346 / 347 /SUBROUTINE TO DO OSCILLATING SEEKS 348 / 349 / 350 000616 0000 SEEK1, 0 /OSC. SEEK SUBROUTINE 351 000617 7300 CLA CLL 352 000620 1070 TAD DRIVE /GET DRIVE NUMBER 353 000621 1071 TAD CMD /GET CMD WORD 354 000622 6746 DLDC /LOAD COMMAND REGISTER 355 000623 1074 TAD TRACK 356 000624 6743 DLAG /LOAD ADDR & GO 357 000625 6741 DSKP /WAIT... 358 000626 5225 JMP .-1 /FOR FLAG 359 000627 2246 ISZ WAIT1 360 000630 5227 JMP .-1 361 000631 1070 TAD DRIVE 362 000632 1071 TAD CMD 363 000633 0377 AND (7776) /GET RID OF EXT BIT FOR CYL 0 364 000634 6746 DLDC 365 000635 7300 CLA CLL 366 000636 6743 DLAG /LOADS FOR CYLINDER 0 367 000637 6741 DSKP 368 000640 5237 JMP .-1 369 000641 2246 ISZ WAIT1 370 000642 5241 JMP .-1 371 000643 2216 ISZ SEEK1 372 000644 7300 CLL CLA 373 000645 5616 JMP I SEEK1 374 / 375 000646 0000 WAIT1, 0 376 / 377 / 378 000777 7776 PAGE 379 EJECT UTILITY PROGRAMS 380 / 381 / 382 / ******************************************************************* 383 / 384 / THIS SUBROUTINE CLEARS THE VT05 SCREEN PRIOR TO PRINTING OUT A 385 / A MESSAGE...ALL CHARS ARE NON-PRINTABLE ON TTY OR LA30 ... 386 / 387 / ****************************************************************** 388 / 389 001000 0000 SCREEN, 0 390 001001 7300 CLA CLL 391 001002 1377 TAD (035) 392 001003 4461 CHAR 393 001004 4460 DELAY 394 001005 7300 CLA CLL 395 001006 1376 TAD (037) 396 001007 4461 CHAR 397 001010 4460 DELAY 398 001011 7300 CLA CLL 399 001012 5600 JMP I SCREEN 400 / 401 / 402 / ******************************************************************** 403 / 404 / SUBROUTINE TO OUTPUT 4 NULL CHARACTERS TO VT05 FOR 2400 BUAD FIX 405 / 406 / ********************************************************************* 407 / 408 001013 0000 DELAY4, 0 409 001014 1375 TAD (-0004) /OUTPUTS 4 NULL CHARACTERS 410 001015 3223 DCA KDLAY /FOR OS-8 2400 BUAD RATE 411 001016 7300 CLA CLL /PROBLEM 412 001017 4461 CHAR 413 001020 2223 ISZ KDLAY 414 001021 5216 JMP .-3 415 001022 5613 JMP I DELAY4 416 001023 0000 KDLAY, 0 /GETS SET TO 7774 417 / 418 / 419 001024 0000 BEEP1, 0 420 001025 7300 CLA CLL 421 001026 1374 TAD (0007) 422 001027 4461 CHAR 423 001030 4460 DELAY 424 001031 7300 CLA CLL 425 001032 5624 JMP I BEEP1 426 / 427 001033 0000 XTIME, 0 428 001034 1373 TAD (7700) 429 001035 3244 DCA SETTL2 430 001036 2243 ISZ SETTLE 431 001037 5236 JMP .-1 432 001040 2244 ISZ SETTL2 433 001041 5236 JMP .-3 434 001042 5633 JMP I XTIME 435 / 436 001043 0000 SETTLE, 0 437 001044 0000 SETTL2, 0 438 / 439 001173 7700 PAGE 001174 0007 001175 7774 001176 0037 001177 0035 440 / OUTPUT MESSAGES TO SCREEN 441 / 442 001200 0000 MESS1, 0 443 001201 4456 TYPE 444 001202 4040 TEXT" *** RK05 ALIGNX *** RLM '75" 001203 4040 001204 4040 001205 4040 001206 4040 001207 4040 001210 4040 001211 4040 001212 4040 001213 4040 001214 4040 001215 4040 001216 4052 001217 5252 001220 4040 001221 2213 001222 6065 001223 4040 001224 4001 001225 1411 001226 0716 001227 3040 001230 4052 001231 5252 001232 4040 001233 4040 001234 4040 001235 4040 001236 4040 001237 4040 001240 4040 001241 4040 001242 2214 001243 1540 001244 4767 001245 6500 445 001246 4460 DELAY 446 001247 1377 TAD (212) 447 001250 4461 CHAR 448 001251 4460 DELAY 449 001252 1377 TAD (212) 450 001253 4461 CHAR 451 001254 4460 DELAY 452 001255 4456 TYPE 453 001256 7240 TEXT": 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 :" 001257 4060 001260 4040 001261 7240 001262 4061 001263 4040 001264 7240 001265 4062 001266 4040 001267 7240 001270 4063 001271 4040 001272 7240 001273 4064 001274 4040 001275 7240 001276 4065 001277 4040 001300 7240 001301 4066 001302 4040 001303 7240 001304 4067 001305 4040 001306 7240 001307 4070 001310 4040 001311 7240 001312 4071 001313 4040 001314 7240 001315 6160 001316 4072 001317 4061 001320 6140 001321 7200 454 001322 4460 DELAY 455 001323 4456 TYPE 456 001324 7255 TEXT":---------------------------------------------------------------------:" 001325 5555 001326 5555 001327 5555 001330 5555 001331 5555 001332 5555 001333 5555 001334 5555 001335 5555 001336 5555 001337 5555 001340 5555 001341 5555 001342 5555 001343 5555 001344 5555 001345 5555 001346 5555 001347 5555 001350 5555 001351 5555 001352 5555 001353 5555 001354 5555 001355 5555 001356 5555 001357 5555 001360 5555 001361 5555 001362 5555 001363 5555 001364 5555 001365 5555 001366 5555 001367 7200 457 001370 4460 DELAY 458 001371 5600 JMP I MESS1 459 001377 0212 PAGE 460 001400 0000 MESS2, 0 461 001401 4456 TYPE 462 001402 7240 TEXT": : : : : : : : : : : : :" 001403 4040 001404 4040 001405 7240 001406 4040 001407 4040 001410 7240 001411 4040 001412 4040 001413 7240 001414 4040 001415 4040 001416 7240 001417 4040 001420 4040 001421 7240 001422 4040 001423 4040 001424 7240 001425 4040 001426 4040 001427 7240 001430 4040 001431 4040 001432 7240 001433 4040 001434 4040 001435 7240 001436 4040 001437 4040 001440 7240 001441 4040 001442 4072 001443 4040 001444 4040 001445 7200 463 001446 4460 DELAY 464 001447 4456 TYPE 465 001450 7240 TEXT": :SEEK :UPPER:>128 : :" 001451 4040 001452 4040 001453 4040 001454 4040 001455 4040 001456 7223 001457 0505 001460 1340 001461 7225 001462 2020 001463 0522 001464 7276 001465 6162 001466 7040 001467 7240 001470 4040 001471 4040 001472 4040 001473 4040 001474 4040 001475 4040 001476 4040 001477 4040 001500 4040 001501 4040 001502 4040 001503 4040 001504 4040 001505 4040 001506 4040 001507 4040 001510 4040 001511 4040 001512 4040 001513 7200 466 001514 4460 DELAY 467 001515 4456 TYPE 468 001516 7240 TEXT": DRIVE 0-3 : : : : ENTER TRACK TO SEEK OR ALIGN TO :" 001517 0422 001520 1126 001521 0540 001522 6055 001523 6340 001524 7240 001525 4040 001526 4040 001527 7240 001530 4040 001531 4040 001532 7240 001533 4040 001534 4040 001535 7240 001536 4040 001537 4005 001540 1624 001541 0522 001542 4024 001543 2201 001544 0313 001545 4024 001546 1740 001547 2305 001550 0513 001551 4017 001552 2240 001553 0114 001554 1107 001555 1640 001556 2417 001557 4040 001560 4040 001561 7200 469 001562 4460 DELAY 470 001563 5600 JMP I MESS2 471 PAGE 472 001600 0000 MESS3, 0 473 001601 4456 TYPE 474 001602 7240 TEXT": :ALIGN:LOWER:<128 : :" 001603 4040 001604 4040 001605 4040 001606 4040 001607 4040 001610 7201 001611 1411 001612 0716 001613 7214 001614 1727 001615 0522 001616 7274 001617 6162 001620 7040 001621 7240 001622 4040 001623 4040 001624 4040 001625 4040 001626 4040 001627 4040 001630 4040 001631 4040 001632 4040 001633 4040 001634 4040 001635 4040 001636 4040 001637 4040 001640 4040 001641 4040 001642 4040 001643 4040 001644 4040 001645 7200 475 001646 4460 DELAY 476 001647 4456 TYPE 477 001650 7240 TEXT": : : : : : : : : : : : :" 001651 4040 001652 4040 001653 7240 001654 4040 001655 4040 001656 7240 001657 4040 001660 4040 001661 7240 001662 4040 001663 4040 001664 7240 001665 4040 001666 4040 001667 7240 001670 4040 001671 4040 001672 7240 001673 4040 001674 4040 001675 7240 001676 4040 001677 4040 001700 7240 001701 4040 001702 4040 001703 7240 001704 4040 001705 4040 001706 7240 001707 4040 001710 4072 001711 4040 001712 4040 001713 7200 478 001714 4460 DELAY 479 001715 5600 JMP I MESS3 480 PAGE 481 002000 0000 MESS4, 0 482 002001 4456 TYPE 483 002002 7255 TEXT":---------------------------------------------------------------------:" 002003 5555 002004 5555 002005 5555 002006 5555 002007 5555 002010 5555 002011 5555 002012 5555 002013 5555 002014 5555 002015 5555 002016 5555 002017 5555 002020 5555 002021 5555 002022 5555 002023 5555 002024 5555 002025 5555 002026 5555 002027 5555 002030 5555 002031 5555 002032 5555 002033 5555 002034 5555 002035 5555 002036 5555 002037 5555 002040 5555 002041 5555 002042 5555 002043 5555 002044 5555 002045 7200 484 002046 4460 DELAY 485 002047 4456 TYPE 486 002050 4040 TEXT" 8E FRONT PANEL SWITCHES" 002051 4040 002052 4040 002053 4040 002054 4040 002055 4040 002056 4040 002057 4040 002060 4040 002061 4040 002062 4040 002063 4040 002064 4040 002065 7005 002066 4006 002067 2217 002070 1624 002071 4020 002072 0116 002073 0514 002074 4023 002075 2711 002076 2403 002077 1005 002100 2300 487 002101 4460 DELAY 488 002102 5600 JMP I MESS4 489 PAGE 490 002200 0000 MESS5, 0 491 002201 1377 TAD (212) 492 002202 4461 CHAR 493 002203 4460 DELAY 494 002204 1377 TAD (212) 495 002205 4461 CHAR 496 002206 4460 DELAY 497 002207 1377 TAD (212) 498 002210 4461 CHAR 499 002211 4460 DELAY 500 002212 1377 TAD (212) 501 002213 4461 CHAR 502 002214 4460 DELAY 503 002215 1377 TAD (212) 504 002216 4461 CHAR 505 002217 4460 DELAY 506 002220 4456 TYPE 507 002221 2022 TEXT"PRESS 'CONT' TO START ALIGNMENT ^C RETURNS TO OS-8" 002222 0523 002223 2340 002224 4047 002225 0317 002226 1624 002227 4740 002230 4024 002231 1740 002232 2324 002233 0122 002234 2440 002235 0114 002236 1107 002237 1615 002240 0516 002241 2440 002242 4040 002243 4040 002244 4040 002245 4040 002246 4040 002247 4040 002250 4040 002251 4040 002252 4040 002253 4036 002254 0340 002255 4022 002256 0524 002257 2522 002260 1623 002261 4024 002262 1740 002263 1723 002264 5570 002265 0000 508 002266 4460 DELAY 509 002267 5600 JMP I MESS5 510 EJECT SIXBIT TEXT RECOVERY SUBROUTINE 511 / 512 / SUBROUTINE SIXBIT 513 / 514 /*** SIXBIT *** 515 /TEXT RECOVERY SUBROUTINE 516 002377 0212 PAGE 517 002400 0000 SIXBIT, 0 518 002401 1600 TAD I SIXBIT /POINTER TO TEXT 519 002402 7012 RTR;RTR;RTR /GET 1ST HALF OF WORD 002403 7012 002404 7012 520 002405 4212 JMS TYPIT /PROCESS CHARACTER FOR OUTPUT 521 002406 1600 TAD I SIXBIT /GET CHAR. AGAIN.... 522 002407 4212 JMS TYPIT /THIS TIME LAST HALF 523 002410 2200 ISZ SIXBIT /UP THE POINTER 524 002411 5201 JMP SIXBIT+1 /NEXT WORD 525 002412 0000 TYPIT, 0 /CHARACTER PROCESSING 526 002413 0377 AND (77) /MASK FOR A SINGLE 6 BIT CHAR. 527 002414 7450 SNA /TEST FOR 0000 528 002415 5227 JMP CRLF /LAST CHAR....BEAT IT !! 529 002416 3243 DCA TEMP /TEMPORARY CHAR. STORAGE 530 002417 1243 TAD TEMP /RESTORE IT 531 002420 0376 AND (40) /TEST RANGE FOR BIT 6 532 002421 7650 SNA CLA /NUMERIC OR ALPHA DATA ?? 533 002422 1375 TAD (100) /ADD 100 FOR ALPHA DATA 534 002423 1374 TAD (200) /ADD 200 FOR ALL DATA 535 002424 1243 TAD TEMP /ADD CHAR. ASCII VALUE 536 002425 4235 JMS TTYOUT /EXIT TO TTY ROUTINE 537 002426 5612 JMP I TYPIT /EXIT THIS SUB 538 002427 7300 CRLF, CLA CLL /CRLF ROUTINE 539 002430 1373 TAD (215) /ASCII FOR CR 540 002431 4235 JMS TTYOUT /DO IT 541 002432 1372 TAD (212) /ASCII FOR LF 542 002433 4235 JMS TTYOUT /DO IT 543 002434 5600 JMP I SIXBIT /DONE...BYE !! 544 002435 0000 TTYOUT, 0 /TTY OUTPUT SUB 545 002436 6046 TLS 546 002437 6041 TSF 547 002440 5237 JMP .-1 548 002441 7300 CLA CLL 549 002442 5635 JMP I TTYOUT /EXIT THIS SUB 550 002443 0000 TEMP, 0 /TEMPORARY CHAR STORAGE 551 002572 0212 $$$$ 002573 0215 002574 0200 002575 0100 002576 0040 002577 0077 A6BIT 0056 AALIGN 0063 ABEEP 0066 ACHAR 0061 ALIGN 4463 ALIGN1 0600 ARECAL 0062 ASEEK 0064 BEEP 4466 unreferenced BEEP1 1024 CHAR 4461 CMD 0071 CRLF 2427 CURADD 0072 DCLR 6742 DEL 0060 DELAY 4460 DELAY4 1013 DLAG 6743 DLCA 6744 DLDC 6746 DMAN 6747 unreferenced DRIVE 0070 DRST 6745 unreferenced DSKP 6741 EXT 0077 KBDMON 4465 KBFLAG 0231 KDLAY 1023 LOOP 0213 MES1 4451 MES2 4452 MES3 4453 MES4 4454 MES5 4455 MESG1 0051 MESG2 0052 MESG3 0053 MESG4 0054 MESG5 0055 MESS1 1200 MESS2 1400 MESS3 1600 MESS4 2000 MESS5 2200 MON 0065 NEW 0075 NOMESS 0211 OLD 0076 OS8 0001 RECAL 4462 RECAL1 0220 SCREEN 1000 SCREN 0057 SEEK 4464 SEEK1 0616 SETTL2 1044 SETTLE 1043 SETUP 0400 SIXBIT 2400 START 0200 unreferenced SW 0050 SWITCH 4450 SWREG 0073 TEMP 2443 TIME 4467 TIMOUT 0067 TRACK 0074 TTYOUT 2435 TYPE 4456 TYPIT 2412 WAIT1 0646 WIPE 4457 XTIME 1033