1 2 /COPYRIGHT 1970 DIGITAL EQUIPMENT CORPORATION 3 / MAYNARD, MASS. 01754 4 /REVISED JANUARY 1970 5 /DEC-08-ESAC-PA 6 7 /EDIT-8, BY RICK MERRILL 8 9 *1 10 11 /MISCELLANEOUS 12 13 00001 7600 BUFEND, 7600 /LAST USED LOCATION 14 15 00002 7770 MTABS, -10 /SPACES PER TAB. 16 00003 7701 M77, -77 17 00004 0004 DDTJR, DDTJR 18 00005 0077 C77, 77 19 00006 7740 M40, -40 20 00007 0100 C100, 100 21 22 /AUTO-INDEX REGISTERS 23 24 00010 0000 AXOUT, 0 /OUTPUT INDEX 25 00011 0000 AXCOMB, 0 /COMBINE POINTER. 26 00012 0000 AXTEM, 0 /TEMPORARY INDEX. 27 00013 0000 AXIN, 0 /STORAGE INDEX 28 29 /NUMBERS 30 31 00014 7774 M4, -4 /LETTER COUNT 32 00015 0140 C140, 140 /PACK TEST 33 00016 0260 C260, 260 /NUMBERS BASE 34 00017 0340 C340, 340 /PACK MASK 35 00020 0201 TE1, 201 36 00021 0200 C200, 200 /(START & RESTART) 37 38 /LISTS 39 40 LIST7=. /TAG SEARCH 41 00022 0240 C240, 240 42 00023 0257 257 /(303 - FOR FORTRAN) 43 LIST4=. /OUTPUT LIST. 44 00024 0211 CTAB, 211 45 00025 0215 C215, 215 46 00026 0212 212 47 00027 0377 377 48 00030 7751 M27, -27 49 CX51=.-1 /ILLEGAL CONTROL MASK 50 51 LIST5=. /INPUT LIST FOR "AONE". 52 00031 0240 240 53 LIST6=. /INPUT LIST FOR "SFOUND". 54 00032 0225 225 /CTRL/U . MODIFIED FROM _ 12/69 55 00033 0214 C214, 214 56 00034 0207 BELL, 207 57 00035 0212 C212, 212 58 00036 0377 CRO, 377 59 LIST3=. /EXCRETION LIST 60 00037 0215 215 /LIST BRANCHER. 61 00040 0000 000 /(SEARCH CHARACTER) 62 00041 7501 M277, -277 63 /CONSTANTS 64 65 CCR=C215 66 00042 0277 C277, 277 /QUESTION 67 CLF=C212 68 00043 0177 P177, 177 69 MCR=. 70 00044 7563 M215, -215 71 00045 7776 M2, -2 72 00046 7540 M240, -240 73 00047 7440 M340, -340 74 00050 7737 NONE, -41 /"NOP-CIA" 75 00051 0414 APP1, APP 76 00052 1450 DELT, DELP 77 READ1=. 78 00053 1052 CHI1, CHIN 79 00054 0112 CFRS, FRST 80 00055 1053 IGNORE, CHIN+1 81 00056 1307 COMM5, COM5 82 00057 1624 END, BUFBEG /FIRST LOCATION USED. 83 00060 4341 KEYBD, I33+3200 /JMS I33 84 00061 1141 I331, I33 85 00062 1054 KEYBRD, INPAT 86 /NEXT 87 00063 5411 CCON, JMP I Z AXCOMB 88 00064 1277 COM1-1 89 00065 4327 CZ1, I750+3200 /JMS I750 90 00066 0522 UTR1, UTRA 91 00067 0750 FIN1, FIND 92 00070 0632 LIS, LIST 93 00071 0012 NINE, 12 94 00072 7506 NUMB, -272 95 00073 1064 OUT1, OUT 96 00074 1154 HIGH, OUTH 97 OUTL1=. 98 00075 1146 LOW, OUTL 99 00076 1075 CZ, TAD Z LOW /CONTENTS OF START 100 00077 0213 ONUM, GTOP 101 00100 0332 SORTJ, SORTB 102 00101 0453 PACK1, PACBUF 103 /SEARCH 104 00102 1123 SXS1, TAD Z CHAR /CONTENTS OF L3 105 00103 5320 SXS2, SLOOK+4400 /JMP SLOOK 106 00104 0667 L3I, L3 /PATCH POINTER 107 00105 0661 L2I, L2 /CONTINUE SEARCH - LETTERS 108 00106 0312 ENDLNI, ENDLN 109 /SPACES TO TABS 110 00107 0442 SPCNO, MOR+4 /PACK 111 00110 0437 SPCGO, MOR+1 /SORT 112 00111 0334 SPLAT, 334 /\ - ACKNOWLEDGE RUBOUT 113 /VARIABLES 114 115 00112 0000 FRST, 0 /FIRST LINE ADDRESS 116 00113 0000 THSN, 0 /CURRENT LINE NO. 117 00114 0000 LSTN, 0 /LAST LINE NO. 118 00115 1624 BUFR, BUFBEG /NEXT LOCATION IN BUFFER 119 120 00116 0000 TCNT, 0 /TAB COUNT 121 00117 0000 ADD, 0 /CHAR. BUF. IN. 122 00120 0000 ARG0, 0 123 00121 7777 ARG1, -1 124 00122 0000 ARG2, 0 125 /CHAR IS ALWAYS SET BY OUT, SOMETIMES BY SORTB; 126 /IT IS ALWAYS USED BY PACK AND SORTB. 127 00123 0000 CHAR, 0 128 MOV1=. 129 00124 0000 COUNTP, 0 /NO. OF PAGES. 130 CNT=. /PRINT COUNTER 131 00125 0000 XCT, 0 /UNPACK SWITCH 132 00126 0000 XCTIN, 0 /PACK SWITCH 133 00127 0000 ECHOSW, 0 /N0N-ZERO TO PRINT 134 00130 0000 SAVE, 0 135 00131 0000 TEMP, 0 136 00132 0000 THIS, 0 /LINE POINTER. 137 00133 0000 OUTDEV, 0 /POINTER TO OUT. SUB. 138 00134 0000 XSAV, 0 /HOLD INPUT POINTER. 139 140 141 /FUNCTIONS 142 143 00135 1057 KILL, TAD Z END /KILL 144 00136 3115 DCA Z BUFR 145 00137 3114 DCA Z LSTN 146 00140 3113 DCA Z THSN 147 00141 3112 DCA Z FRST 148 00142 5420 JMP I TE1 149 150 151 00143 1113 PERI, TAD Z THSN /. 152 00144 7410 SKP 153 00145 1114 SLAS, TAD Z LSTN // 154 00146 3131 DCA TEMP 155 00147 3123 DCA CHAR 156 00150 5551 JMP I .+1 157 00151 0230 GLOM 158 159 00152 1120 MOVE, TAD Z ARG0 /ARG2 .GE. ARG0 160 00153 7041 CMPT, CIA 161 00154 1122 TAD Z ARG2 162 00155 7710 SPA CLA 163 00156 4165 ERROR 164 00157 1120 TAD ARG0 165 00160 3124 DCA MOV1 166 00161 1122 TAD ARG2 167 00162 3165 DCA MOV2 168 00163 5477 JMP I Z ONUM /(GTOP) 169 00164 0000 DTEM, 0000 /NEXT POINTER IN DELETE CHAIN 170 171 GTEM=. /NEXT 6-BITS OF UNPACK 172 MOV2=. /END OF MOVE BLOCK 173 ERROR=JMS . /ERROR ROUTINE 174 00165 0000 0 175 P7600=. 176 M200=. 177 00166 7600 ELIM, 7600 /GRP2-CLA 178 00167 1042 TAD C277 179 00170 4475 JMS I OUTL1 /PRINT "?" 180 00171 5456 JMP I COMM5 /RESET PATCHES 181 182 00172 1122 FIRS, TAD Z ARG2 /COMMA 183 00173 5477 JMP I Z ONUM /SWAP ARGS. 184 00174 1502 DELMVP, DELMV 185 00175 0603 CHECKP, CHECK 186 *176 187 00176 5135 JMP KILL /RETURNS TO 200 188 00177 5456 TE, JMP I COMM5 /RETURNS TO 200. 189 190 00200 6046 START, TLS 191 00201 1075 TAD LOW /OR (JMP I Z AXCOMB) 192 00202 3133 DCA Z OUTDEV /INIT OUTPUT 193 00203 1060 TAD KEYBD 194 00204 3462 DCA I KEYBRD /INIT INPUT 195 00205 2127 ISZ ECHOSW /SET ECHO - ( "DCA ECHOSW" FOR HALF-DUPLEX) 196 00206 3040 DCA LIST3+1 197 00207 1102 TAD SXS1 /INIT LIST 198 00210 3504 DCA I Z L3I 199 00211 1025 TAD CCR /POSITION PRINT 200 00212 4473 JMS I OUT1 201 00213 3120 GTOP, DCA Z ARG0 /HERE VIA ONUM 202 00214 3122 DCA Z ARG2 203 00215 1050 GEXP, TAD Z NONE /IMPLICIT ADD 204 00216 1153 GMIN, TAD Z CMPT 205 00217 3232 DCA G2 206 00220 3131 DBCV2, DCA Z TEMP 207 00221 4453 JMS I Z CHI1 /(CHIN) 208 00222 1072 TAD Z NUMB 209 00223 7500 SMA 210 00224 5230 JMP GLOM /CONTINUED ARGUEMENTS 211 00225 1071 TAD Z NINE 212 00226 7500 SMA 213 00227 5360 JMP COUNT /CONTINUED NUMBER 214 00230 7200 GLOM, CLA 215 00231 1131 TAD Z TEMP 216 00232 7402 G2, HLT /(NOP) OR (CIA) 217 00233 1122 TAD Z ARG2 218 00234 3122 DCA Z ARG2 219 00235 4332 JMS SORTB 220 00236 0371 LIST1-1 221 00237 7676 OPS1-LIST1 /HANG ON TO COMMAND. 222 00240 1123 TAD CHAR 223 00241 3130 DCA SAVE 224 00242 4453 JMS I Z CHI1 /(CHIN) 225 00243 1044 TAD MCR 226 00244 7640 SZA CLA /C.R. MUST FOLLOW 227 00245 4165 ERROR /.AND. 228 00246 1120 TAD Z ARG0 /IF ARG0=0,ARG0=ARG2 229 00247 7450 SNA 230 00250 1122 TAD Z ARG2 231 00251 3120 DCA Z ARG0 232 00252 1122 TAD Z ARG2 /.AND. 233 00253 7040 CMA 234 00254 1120 TAD Z ARG0 /ARG1=ARG0-ARG2-1 235 00255 7500 SMA 236 00256 4165 ERROR /.AND. 237 00257 3121 DCA Z ARG1 /ARG0 .LE. ARG2 238 00260 1120 TAD Z ARG0 /.AND. 239 00261 7710 SPA CLA /ARG0 .GE. 0 240 00262 4165 ERROR 241 /(ISZ ECHOSW)-FOR HALF-DUPLEX 242 00263 1130 TAD SAVE 243 00264 4332 JMS SORTB 244 00265 1000 LIST2-1 245 00266 0564 OPS2-LIST2 246 00267 4165 ERROR 247 248 249 00270 0213 OPS1, GTOP /CR 250 00271 0623 EXNEX /ESCAPE 251 00272 0623 EXNEX /LINEFEED 252 00273 0215 GEXP /SPACE 253 00274 0215 GEXP /PLUS 254 00275 0172 FIRS /COMMA 255 00276 0216 GMIN /MINUS 256 00277 0143 PERI /POINT 257 00300 0145 SLAS /SLASH 258 00301 0622 EXLAS /BACKUP 259 00302 1023 PRNT /= 260 00303 0623 EXNEX /ALT (MOD 33) 261 00304 0623 EXNEX /ALT 262 00305 0220 DBCV2 /DUMMY 263 00306 0152 MOVE /DOLLAR 264 00307 0166 ELIM /COMMAND RUBOUT 265 00310 0166 ELIM /CTRL/U ADDED 1/70 266 00311 1023 PRNT /: 267 268 00312 0000 ENDLN, 0 269 00313 4501 JMS I Z PACK1 /PACK C.R. 270 00314 1117 TAD Z ADD 271 00315 7440 SZA 272 00316 3413 DCA I Z AXIN 273 00317 1115 TAD Z BUFR 274 00320 3532 DCA I Z THIS /LINK THIS TO NEW. 275 00321 1134 TAD Z XSAV 276 00322 3515 DCA I Z BUFR 277 00323 1115 TAD Z BUFR 278 00324 3132 DCA Z THIS 279 00325 2013 ISZ Z AXIN 280 00326 1013 TAD Z AXIN 281 00327 3115 DCA Z BUFR 282 00330 3126 DCA XCTIN 283 00331 5712 JMP I ENDLN 284 285 00332 0000 SORTB, 0 /SORT AND BRANCH ROUTINE. 286 00333 7440 SZA 287 00334 3123 DCA CHAR /CHAR IS ASSUMED OR SET. 288 00335 1732 TAD I SORTB 289 00336 2332 ISZ SORTB 290 00337 3012 DCA AXTEM 291 00340 1412 TAD I AXTEM 292 00341 7510 SPA 293 00342 5355 JMP SEX 294 00343 7041 CIA 295 00344 1123 TAD CHAR 296 00345 7640 SZA CLA 297 00346 5340 JMP .-6 298 00347 1012 TAD AXTEM /MATCH FOUND. 299 00350 1732 TAD I SORTB 300 00351 3332 DCA SORTB 301 00352 1732 TAD I SORTB 302 00353 3332 DCA SORTB 303 00354 5732 JMP I SORTB 304 ///// 305 00355 2332 SEX, ISZ SORTB /MATCH NOT FOUND. 306 00356 7200 CLA 307 00357 5732 JMP I SORTB 308 309 00360 3332 COUNT, DCA SORTB 310 00361 1131 TAD Z TEMP 311 00362 7106 RTL CLL 312 00363 7004 RAL 313 00364 3130 DCA Z SAVE /OCTAL 314 00365 1131 TAD Z TEMP 315 00366 7004 RAL 316 00367 1130 TAD Z SAVE 317 00370 1332 TAD SORTB 318 00371 5220 JMP DBCV2 /GET NEXT 319 320 LIST1=. 321 00372 0215 215 322 00373 0233 233 323 00374 0212 212 324 00375 0240 240 325 00376 0253 253 326 00377 0254 254 327 00400 0255 255 328 00401 0256 256 329 00402 0257 257 330 00403 0274 274 331 00404 0275 275 332 00405 0375 375 333 00406 0276 276 334 00407 0000 000 335 00410 0244 244 336 00411 0377 377 337 00412 0225 225 /CTRL/U. ADDED 1/70 338 00413 0272 272 339 340 00414 1114 APP, TAD Z LSTN /APPEND 341 00415 3120 DCA Z ARG0 342 00416 5222 JMP INS 343 ///// 344 00417 4452 CNGE, JMS I Z DELT /CHANGE 345 00420 1120 XNS, TAD ARG0 /INSERT 346 00421 7650 SNA CLA /TEST FOR TOP 347 00422 2120 INS, ISZ ARG0 /SET TO TOP 348 00423 1120 TAD ARG0 349 00424 4467 JMS I FIN1 /FIND THE POINTER 350 00425 3132 DCA Z THIS 351 00426 1532 TAD I Z THIS 352 00427 3134 DCA XSAV 353 00430 7240 CLA CMA 354 00431 1120 TAD ARG0 355 00432 3113 DCA THSN 356 00433 1115 AONE, TAD Z BUFR /BEGIN LINE 357 00434 3013 DCA Z AXIN 358 00435 3126 DCA Z XCTIN 359 360 00436 4453 MOR, JMS I READ1 361 00437 4500 JMS I SORTJ 362 00440 0030 LIST5-1 363 00441 1131 INLIST-LIST5 364 00442 4253 JMS PACBUF 365 00443 5236 JMP MOR 366 367 368 ///// 369 00444 4506 EOL, JMS I Z ENDLNI /END LINE 370 00445 2114 ISZ Z LSTN /ADD LINE 371 00446 2113 ISZ Z THSN 372 00447 1021 TAD C200 373 00450 4575 JMS I CHECKP 374 00451 5376 JMP FULL 375 00452 5236 JMP MOR 376 377 00453 0000 PACBUF, 0 /PACK A CHARACTER 378 00454 1123 TAD Z CHAR 379 00455 1041 TAD M277 380 00456 7650 SNA CLA 381 00457 5274 JMP ESCA /277 382 00460 1123 TAD Z CHAR 383 00461 0017 AND Z C340 384 00462 1047 TAD M340 385 00463 7450 SNA /("SZA" FOR MOD 37) 386 00464 5653 JMP I PACBUF /(DELETE FOR MOD 37)-IGNORE ILLEGALS 387 00465 1015 TAD Z C140 388 00466 7650 SNA CLA 389 00467 5274 JMP ESCA /340-377 AND 200-237 390 00470 1123 TR1, TAD Z CHAR /240-336 391 00471 0005 AND Z C77 392 00472 4277 JMS PCK1 393 00473 5653 JMP I PACBUF 394 ////// 395 00474 1005 ESCA, TAD Z C77 396 00475 4277 JMS PCK1 397 00476 5270 JMP TR1 398 399 400 00477 0000 PCK1, 0 401 00500 3322 DCA UTRA 402 00501 7001 IAC 403 00502 4575 JMS I CHECKP 404 00503 5376 JMP FULL /TEXT BUFFER FULL. 405 00504 1322 TAD UTRA 406 00505 2126 ISZ XCTIN 407 00506 5313 JMP ROT 408 00507 1117 TAD Z ADD 409 00510 3413 DCA I Z AXIN 410 00511 3117 DCA Z ADD 411 00512 5677 JMP I PCK1 412 ///// 413 00513 7106 ROT, CLL RTL 414 00514 7006 RTL 415 00515 7006 RTL 416 00516 3117 DCA Z ADD 417 00517 7040 CMA 418 00520 3126 DCA Z XCTIN 419 00521 5677 JMP I PCK1 420 421 UTEM=PCK1 /UNPACK TEMPORARY 422 423 00522 0000 UTRA, 0 /UNPACK CHARACTER. 424 00523 4344 JMS GET1 425 00524 5332 JMP EXTR /EXTEND 426 00525 7710 UT2, SPA CLA /NORM & EXTEND 427 00526 1007 TAD Z C100 /300-337 & 340-376 428 00527 1021 UT1, TAD Z C200 /240-276 & 200-236 429 00530 1277 TAD UTEM 430 00531 5722 JMP I UTRA 431 ////// 432 00532 4344 EXTR, JMS GET1 433 00533 5327 JMP UT1 /QUESTION MARK 434 00534 7040 CMA 435 00535 3344 DCA GET1 /UNPACK ONLY C.R.-(DELETE ALL FOR MOD 37) 436 00536 1344 TAD GET1 /AND TAB 437 00537 0030 AND Z CX51 /AND 2(13,17,31,33,35,37) 438 00540 7640 SZA CLA /... 439 00541 5323 JMP UTRA+1 /... 440 00542 1344 TAD GET1 /... 441 00543 5325 JMP UT2 442 443 00544 0000 GET1, 0 /UNPACK 6-BITS 444 00545 2125 ISZ XCT 445 00546 5356 JMP GET3 446 00547 1410 TAD I Z AXOUT 447 00550 3165 DCA Z GTEM 448 00551 1165 TAD Z GTEM 449 00552 7112 RTR CLL 450 00553 7012 RTR 451 00554 7012 RTR 452 00555 5361 JMP GEND 453 ///// 454 00556 7040 GET3, CMA 455 00557 3125 DCA XCT 456 00560 1165 TAD Z GTEM 457 00561 0005 GEND, AND Z C77 458 00562 3277 DCA UTEM /SAVE 459 00563 1277 TAD UTEM 460 00564 1003 TAD Z M77 461 00565 7650 SNA CLA 462 00566 5744 JMP I GET1 /1ST IF 77 463 00567 2344 ISZ GET1 464 00570 1277 TAD UTEM 465 00571 1006 TAD Z M40 466 00572 5744 JMP I GET1 467 00573 1025 CTRLU, TAD CCR /ECHOS A RETURN,LINEFEED 468 00574 4473 JMS I OUT1 /WHEN BEGINNING OF A LINE IS DELETED 469 00575 5233 JMP AONE /BY CTRL/U. ADDED 1/70 470 471 ///// 472 00576 1420 FULL, TAD I Z TE1 /CHECK FOR MIDDLE OF AN N-COMMAND. 473 00577 7700 SMA CLA /(5000 IF TRUE) 474 00600 1034 TAD Z BELL 475 00601 4475 JMS I Z OUTL1 /BYPASS BIT2 476 00602 5420 JMP I Z TE1 477 478 479 /ROUTINE TO SEE IF THERE IS ENOUGH TEXT BUFFER SPACE TO COMPLETE 480 /A GIVEN OPERATION. ROUTINE ENTERED WITH C(ACC)= NUMBER OF LOCATIONS 481 /NEEDED FOR THE OPERATION. ROUTINE TAKES EXIT 2 IF THERE IS ENOUGH 482 /SPACE;RINGS BELL 5 TIMES AND TAKES EXIT 1 IF NOT ENOUGH SPACE. 483 /THIS ROUTINE IS PAGE INDEPENDENT BUT CANNOT BE USED AS A PAGE 484 /BOUNDRY BUFFER. 485 /ROUTINE ADDED 12/69. 486 00603 0000 CHECK, 0000 487 00604 1013 TAD AXIN 488 00605 7140 CMA CLL 489 00606 1001 TAD BUFEND 490 00607 7630 SZL CLA 491 00610 5220 JMP .+10 492 00611 1014 TAD M4 493 00612 3116 DCA TCNT 494 00613 1034 TAD BELL 495 00614 4475 JMS I OUTL1 496 00615 2116 ISZ TCNT 497 00616 5213 JMP .-3 498 00617 5603 JMP I CHECK 499 00620 2203 ISZ CHECK 500 00621 5603 JMP I CHECK 501 502 00622 1045 EXLAS, TAD Z M2 /PRINT LAST 503 00623 1113 EXNEX, TAD Z THSN /PRINT NEXT 504 00624 7001 IAC 505 00625 7450 EX, SNA 506 00626 4165 ERROR 507 00627 3120 DCA Z ARG0 /SAVE EFFECTIVE ARG. 508 00630 7040 CMA 509 00631 3121 DCA Z ARG1 510 /(ISZ ECHOSW) - FOR HALF-DUPLEX 511 00632 1120 LIST, TAD Z ARG0 /LIST 512 00633 7640 SZA CLA /TEST ARGS 513 00634 5241 JMP L0 514 00635 1114 TAD Z LSTN /SET FULL RANGE 515 00636 7041 CIA 516 00637 3121 DCA Z ARG1 517 00640 2120 ISZ Z ARG0 /SET TO #1 518 00641 1120 L0, TAD Z ARG0 519 00642 4467 JMS I FIN1 520 00643 3132 DCA Z THIS /SAVE POINTER 521 00644 1532 TAD I THIS /IS POINTER POINTING TO LAST LINE? 522 00645 7650 SNA CLA 523 00646 5373 JMP PROT /YES. OPERATION HAS GONE TO FAR. 524 00647 7040 CMA 525 00650 1532 TAD I Z THIS /GET START 526 00651 3010 DCA Z AXOUT 527 00652 1410 TAD I Z AXOUT /SAVE POINTER FOR SEARCH. 528 00653 3134 DCA XSAV 529 00654 7040 CMA 530 00655 3125 DCA XCT 531 00656 1120 TAD Z ARG0 /SET POINTER 532 00657 3113 DCA THSN 533 00660 2120 ISZ Z ARG0 /SET NEXT LINE 534 00661 7404 L2, OSR /IS OUTPUT SUPPRESS SWITCH (SR 2) SET? 535 00662 7006 RTL 536 00663 7710 SPA CLA 537 00664 5420 JMP I TE1 /YES;EXIT TO COMMAND MODE. 538 00665 4466 JMS I Z UTR1 /UNPACK 539 00666 4473 JMS I OUT1 /PRINT 540 00667 1123 L3, TAD Z CHAR /OR (JMP SLOOK) 541 00670 1044 TAD Z MCR 542 00671 7640 SZA CLA /TEST FOR EOL 543 00672 5261 JMP L2 544 00673 2121 ISZ Z ARG1 /TEST LINE COUNT 545 00674 5241 JMP L0 /GET NEXT LINE 546 00675 5420 JMP I Z TE1 /WAIT 547 /SEARCH ROUTINES 548 549 00676 1025 SLINE, TAD Z CCR /TYPE CR.LF 550 00677 4473 JMS I Z OUT1 /SET CHAR 551 00700 1344 TAD FUDGE 552 00701 7450 SNA 553 00702 1532 TAD I THIS 554 00703 3344 DCA FUDGE 555 00704 4506 JMS I Z ENDLNI /END LINE 556 00705 2120 ISZ Z ARG0 /MOVE POINT 557 00706 2114 ISZ LSTN /ADD A LINE. 558 00707 1115 SBAR, TAD Z BUFR /RESTART PACK BUFFER 559 00710 3013 DCA Z AXIN 560 00711 3126 DCA Z XCTIN 561 00712 4453 SFOUND, JMS I Z CHI1 /(CHIN) 562 00713 4500 JMS I Z SORTJ /TEST INSERTS 563 00714 0031 LIST6-1 564 00715 1137 SRNLST-LIST6 565 00716 4501 SGOT, JMS I Z PACK1 /PACK INSERTS 566 00717 5312 JMP SFOUND /MORE INPUT 567 568 00720 4500 SLOOK, JMS I Z SORTJ /TEST PRINTED CHARS. 569 00721 0036 LIST3-1 570 00722 1137 LISTGO-LIST3 571 00723 4501 JMS I Z PACK1 /PACK SEARCHED CHARS. 572 00724 5261 JMP L2 /CONTINUE SEARCH 573 574 00725 1344 SRETN, TAD FUDGE /THIS ROUTINE MODIFIED TO ALLOW DYNAMIC 575 00726 7450 SNA /DELETION DURING SEARCH. 12/69. 576 00727 1532 TAD I THIS 577 00730 3164 DCA DTEM 578 00731 3344 DCA FUDGE 579 00732 4506 JMS I Z ENDLNI /END OF SEARCHED LINE 580 00733 4574 JMS I DELMVP /DELETE OLD COPY OF LINE 581 00734 1115 TAD BUFR 582 00735 3013 DCA AXIN 583 00736 1021 TAD C200 584 00737 4575 JMS I CHECKP 585 00740 5420 JMP I TE1 586 00741 2121 ISZ Z ARG1 /TEST COUNT 587 00742 5470 JMP I Z LIS /CONTINUE 588 00743 5420 JMP I Z TE1 /TERMINATE 589 00744 0000 FUDGE, 0000 590 591 //// 592 00745 1025 CTRLU2, TAD CCR /PRINTS CR/LF WHEN CTRL/U 593 00746 4473 JMS I OUT1 /DELETES BEGIN OF A LINE. 594 00747 5307 JMP SBAR /ADDED 1/70 595 596 00750 0000 FIND, 0 /LOCATE LINE BUFFER 597 00751 7041 CIA 598 00752 7500 SMA 599 00753 4165 ERROR /TOO SMALL 600 00754 3131 DCA Z TEMP 601 00755 1131 TAD Z TEMP 602 00756 7001 IAC 603 00757 1114 TAD Z LSTN 604 00760 7710 SPA CLA 605 00761 4165 ERROR /TOO LARGE 606 00762 1054 TAD Z CFRS 607 00763 5366 JMP .+3 608 00764 1530 TAD I Z SAVE /CHAIN THROUGH LIST. 609 00765 7440 SZA /FAILSAFE 610 00766 3130 DCA Z SAVE 611 00767 2131 ISZ Z TEMP 612 00770 5364 JMP .-4 613 00771 1130 TAD Z SAVE 614 00772 5750 JMP I FIND 615 616 00773 7040 PROT, CMA /LIST ROUTINE WENT TOO FAR. 617 00774 1120 TAD ARG0 /RESET POINTERS SO IT CAN'T HAPPEN 618 00775 3113 DCA THSN /AGAIN. 619 00776 1113 TAD THSN 620 00777 3114 DCA LSTN 621 01000 4165 ERROR 622 623 624 LIST2=. /COMMAND LETTERS 625 01001 0306 306 /F 626 01002 0301 301 /A 627 01003 0311 311 /I 628 01004 0303 303 /C 629 01005 0313 313 /K 630 01006 0304 304 /D 631 01007 0314 314 /L 632 01010 0316 316 /N 633 01011 0320 320 /P 634 01012 0322 322 /R 635 01013 0324 324 /T 636 01014 0315 315 /M 637 01015 0307 307 /G 638 01016 0323 323 /S 639 01017 6030 CON, 6030 /CONVERSION CONSTANTS 640 01020 7634 7634 641 01021 7766 7766 642 01022 7777 7777 643 644 645 BOX=COUNTP 646 VAL=ARG0 647 648 01023 1122 PRNT, TAD Z ARG2 /: OR = 649 01024 3120 DCA Z VAL 650 01025 1014 TAD Z M4 651 01026 3125 DCA Z CNT 652 01027 1251 TAD ADDR 653 01030 3236 DCA XYZ+2 654 01031 3124 DCA BOX 655 01032 5235 JMP .+3 656 01033 2124 ISZ BOX 657 01034 3120 XYZ, DCA Z VAL 658 01035 1120 TAD Z VAL 659 01036 7402 HLT /(TAD CON + (DX) ) 660 01037 7500 SMA 661 01040 5233 JMP XYZ-1 662 01041 7200 CLA 663 01042 1124 TAD BOX 664 01043 1016 TAD Z C260 665 01044 4475 JMS I Z OUTL1 /BYPASS BIT2 666 01045 2236 ISZ XYZ+2 667 01046 2125 ISZ Z CNT 668 01047 5231 JMP XYZ-3 669 01050 5420 JMP I Z TE1 670 671 01051 1217 ADDR, TAD CON 672 673 01052 0000 CHIN, 0 /READ IN A CHARACTER SUBR. 674 01053 3123 DCA Z CHAR /CLEAR CHARACTER. 675 01054 4341 INPAT, JMS I33 /OR (JMS I750) 676 01055 0043 AND P177 /MASK PARITY 677 01056 7450 SNA /IGNORE BLANK AND L/T 678 01057 5253 JMP CHIN+1 679 01060 1021 TAD C200 680 01061 4264 JMS OUT /ECHO INPUT 681 01062 1123 TAD CHAR 682 01063 5652 JMP I CHIN 683 01064 0000 OUT, 0 /OUTPUT A CHARACTER 684 01065 3123 DCA CHAR 685 01066 1127 TAD ECHOSW 686 01067 7650 SNA CLA /TEST PRINT CONTROL 687 01070 5664 JMP I OUT 688 01071 4500 JMS I SORTJ 689 01072 0023 LIST4-1 690 01073 1160 OUTLIS-LIST4 691 01074 2116 ISZ TCNT /COUNT ONE LETTER 692 01075 1123 TAD CHAR 693 01076 4533 OUTX, JMS I Z OUTDEV 694 01077 5664 JMP I OUT 695 ///// 696 01100 1025 OUTCRL, TAD CCR 697 01101 4533 JMS I Z OUTDEV 698 01102 3116 DCA TCNT 699 01103 1035 TAD CLF 700 01104 5276 JMP OUTX 701 ///// 702 01105 7404 OUTTAB, OSR /BIT1 DOWN FOR SPACES. 703 01106 7004 RAL 704 01107 7710 SPA CLA 705 01110 5323 JMP OUTRT 706 01111 1116 TAD TCNT 707 01112 1002 TAD MTABS 708 01113 7500 SMA 709 01114 5312 JMP .-2 710 01115 3116 DCA TCNT 711 01116 1022 TAD C240 712 01117 4533 JMS I Z OUTDEV 713 01120 2116 ISZ TCNT 714 01121 5316 JMP .-3 715 01122 5664 JMP I OUT 716 ///// 717 01123 1024 OUTRT, TAD CTAB /BIT1 UP FOR TAB-R.O. 718 01124 4533 JMS I Z OUTDEV 719 01125 1036 TAD CRO 720 01126 5276 JMP OUTX 721 722 /I-O SUBROUTINES 723 724 01127 0000 I750, 0 725 01130 6011 RSF 726 01131 5335 JMP .+4 727 01132 3341 DCA I33 728 01133 6016 RFC RRB 729 01134 5727 JMP I I750 730 01135 2341 ISZ I33 731 01136 5330 JMP .-6 732 01137 5740 JMP I .+1 /READER EMPTY. 733 01140 0576 FULL 734 735 01141 0000 I33, 0 736 01142 6031 KSF 737 01143 5342 JMP .-1 738 01144 6036 KRB 739 01145 5741 JMP I I33 740 741 01146 0000 OUTL, 0 742 01147 6041 TSF 743 01150 5347 JMP .-1 744 01151 6046 TLS 745 01152 7200 CLA 746 01153 5746 JMP I OUTL 747 748 01154 0000 OUTH, 0 749 01155 6021 PSF 750 01156 5355 JMP .-1 751 01157 6026 PLS 752 01160 7200 CLA 753 01161 5754 JMP I OUTH 754 755 INLIST=. 756 01162 1355 SPACES /SPCS 757 01163 0573 CTRLU /CTRL/U. MODIFIED FROM "_" 1/70. 758 01164 0576 FULL /F.F. 759 01165 0576 FULL /BELL 760 01166 1053 CHIN+1 /L.F. 761 01167 1312 RUB1 /R.O. 762 01170 0444 EOL /C.R. 763 764 SRNLST=. 765 01171 0745 CTRLU2 /CTRL/U. MODIFIED FROM "_" 1/70 766 01172 0661 L2 /F.F. 767 01173 1210 SCONT /BELL 768 01174 0676 SLINE /L.F. 769 01175 1312 RUB1 /R.O. /SRNLST AND LISTGO MUST STAY TOGETHER!!!!!! 770 771 LISTGO=. 772 01176 0725 SRETN /C.R. 773 01177 0716 SGOT /SEARCH CHARACTER 774 775 776 TAGLIST=. /NON-TAGS 777 01200 1610 GTAG2 /SP ("EX+1"- FOR TEXT)-PARAGRAPHS 778 01201 1610 GTAG2 // 779 01202 1610 GTAG2 /TAB ("EX+1"-FOR TEXT) 780 01203 1610 GTAG2 /C.R. 781 782 OUTLIS=. /SPECIAL OUTPUTS 783 01204 1105 OUTTAB /211 784 01205 1100 OUTCRL /215 785 01206 1077 OUTX+1 /212 786 01207 1077 OUTX+1 /377 - (SET FOR 257 TO TRIM COMMENTS.) 787 788 01210 4461 SCONT, JMS I I331 /S-BELL 789 01211 3040 DCA LIST3+1 790 01212 5505 JMP I Z L2I 791 792 01213 7602 PUNC, HLT CLA /PUNCH 793 794 795 01214 4234 PUNCN, JMS TSTOUT 796 01215 5470 JMP I Z LIS 797 798 01216 4234 FORM, JMS TSTOUT /FORM 799 01217 4225 JMS LEAD 800 01220 1033 TAD C214 801 01221 4473 JMS I OUT1 802 01222 1006 TAD M40 803 01223 4225 JMS LEAD 804 01224 5420 JMP I Z TE1 805 806 01225 0000 LEAD, 0 /LEAD 807 01226 1014 TAD M4 808 01227 3234 DCA TSTOUT 809 01230 4473 JMS I OUT1 810 01231 2234 ISZ TSTOUT 811 01232 5230 JMP .-2 812 01233 5625 JMP I LEAD 813 814 01234 0000 TSTOUT, 0 815 01235 2127 ISZ ECHOSW /SET FOR PRINTING 816 01236 7404 OSR /BIT10 FOR OUTPUT 817 01237 7012 RTR 818 01240 7620 SNL CLA 819 01241 5245 JMP .+4 820 01242 6026 PLS /RAISE OUTPUT FLAG. 821 01243 1074 TAD HIGH 822 01244 7410 SKP 823 01245 1075 TAD LOW 824 01246 3133 DCA Z OUTDEV 825 01247 5634 JMP I TSTOUT 826 TELE=. 827 01250 3127 TELEN, DCA ECHOSW /READ 828 01251 7404 OSR /TEST INPUT BITS. 829 01252 7012 RTR /BIT11 FOR INPUT 830 01253 7700 P7700, SMA CLA 831 01254 5451 JMP I Z APP1 832 01255 1065 TAD CZ1 /(JMS I750) 833 01256 3462 DCA I KEYBRD 834 01257 6011 RSF 835 01260 6014 RFC 836 01261 5451 JMP I Z APP1 837 838 01262 4234 TRAIL, JMS TSTOUT /TRAIL 839 01263 1006 TAD M40 840 01264 5222 JMP FORM+4 841 842 01265 1120 COMBO, TAD Z ARG0 /NEXT 843 01266 7452 SNA HLT 844 01267 7001 IAC 845 01270 7041 CIA 846 01271 3124 DCA Z COUNTP 847 01272 1063 TAD CCON /(JMP I Z AXCOMB) 848 01273 3420 DCA I Z TE1 849 01274 1064 COMB, TAD CCON+1 /COM1-1 850 01275 3011 DCA Z AXCOMB 851 01276 3120 DCA Z ARG0 852 01277 5214 JMP PUNCN 853 ///// 854 01300 5216 COM1, JMP FORM /FORM-FEED 855 01301 5135 COM2, JMP KILL /KILL 856 01302 5250 COM3, JMP TELEN /READ 857 01303 2124 COM4, ISZ Z COUNTP 858 01304 5274 JMP COMB 859 01305 1034 TAD BELL 860 01306 4475 JMS I OUTL1 861 01307 1076 COM5, TAD CZ /RESTORE LOC 200. 862 01310 3420 DCA I Z TE1 863 01311 5420 JMP I Z TE1 864 865 866 01312 1013 RUB1, TAD Z AXIN 867 01313 7041 CIA 868 01314 1115 TAD Z BUFR 869 01315 1117 TAD Z ADD 870 01316 7640 SZA CLA /TEST NULL LINE 871 01317 1127 TAD Z ECHOSW 872 01320 7650 SNA CLA /TEST INPUT 873 01321 5455 JMP I Z IGNORE /NULL LINE 874 01322 1111 TAD SPLAT 875 01323 4473 JMS I Z OUT1 876 01324 1013 TAD Z AXIN 877 01325 3124 DCA Z MOV1 878 01326 2126 ISZ Z XCTIN /TEST HALF 879 01327 5346 JMP RUB2 880 01330 1524 TAD I Z MOV1 881 01331 0005 AND Z C77 882 01332 1003 TAD Z M77 883 01333 7640 SZA CLA /TEST EXTEND 884 01334 5344 JMP RUB4 885 01335 7040 RUB3, CMA 886 01336 3126 DCA Z XCTIN 887 01337 7040 RUB5, CMA 888 01340 1013 TAD Z AXIN 889 01341 3013 DCA Z AXIN 890 01342 1524 TAD I Z MOV1 891 01343 0253 AND P7700 892 01344 3117 RUB4, DCA Z ADD 893 01345 5455 JMP I Z IGNORE /(CHIN+1) 894 ///// 895 01346 1524 RUB2, TAD I Z MOV1 896 01347 0253 AND P7700 897 01350 1007 TAD Z C100 898 01351 7640 SZA CLA 899 01352 5335 JMP RUB3 900 01353 3524 DCA I Z MOV1 901 01354 5337 JMP RUB5 902 903 01355 1127 SPACES, TAD Z ECHOSW /SPACE READIN 904 01356 7650 SNA CLA /TEST READ MODE 905 01357 7404 OSR /BIT0 UP TO COMPRESS SPACES TO TABS 906 01360 7700 SMA CLA 907 01361 5507 JMP I SPCNO /PACK - (MOR+4) 908 01362 7040 CMA /SET 1 SPACE 909 01363 3125 SP2, DCA CNT 910 01364 4453 JMS I Z READ1 /(CHIN) 911 01365 1046 TAD M240 912 01366 7650 SNA CLA 913 01367 5363 JMP SP2 /IGNORE EXTRA SPACES. 914 01370 1123 TAD CHAR 915 01371 3130 DCA SAVE /SAVE NON-SPACE 916 01372 2125 ISZ CNT 917 01373 1030 TAD M27 /TAB 918 01374 1022 TAD C240 /SPACE 919 01375 3123 DCA CHAR 920 01376 4501 JMS I Z PACK1 /(PACBUF) 921 01377 1130 TAD SAVE 922 01400 5510 JMP I SPCGO /SORT - (MOR+1) 923 924 925 926 927 /THIS ROUTINE CAN BE PLACED ACROSS PAGE BOUNDRIES LIKE 928 /A LIST SINCE ITS OPERATION IS INDEPENDENT OF PAGE LOCATIONS. 929 01401 4461 XCRET, JMS I I331 /XAMINE OR SEARCH 930 01402 3040 DCA LIST3+1 /SAVE SEARCH CHARACTER 931 01403 1103 TAD SXS2 932 01404 3504 DCA I Z L3I /PATCH TO "SLOOK" 933 01405 1115 TAD Z BUFR /SET PACK POINTER. 934 01406 3013 DCA Z AXIN 935 01407 3126 DCA Z XCTIN 936 01410 3612 DCA I .+2 /CLEARS FUDGE INCASE SAME WAS LEFT UNCLEARED 937 /DURING "BUFFER FULL" EXIT TO COMMAND MODE. 938 01411 5470 JMP I Z LIS /(LIST) 939 01412 0744 FUDGE 940 941 942 MP1=ARG1 943 MP2=ARG0 944 MP3=ARG2 945 946 947 01413 1124 MOVEM, TAD MOV1 /TEST FOR GOOD ARGS. 948 01414 7041 CIA 949 01415 1122 TAD ARG2 950 01416 7710 SPA CLA /"N,M$XM" 951 01417 5225 JMP .+6 952 01420 1165 TAD MOV2 953 01421 7040 CMA 954 01422 1122 TAD ARG2 955 01423 7750 SPA SNA CLA /TEST COMMAND LOGIC 956 01424 4165 ERROR 957 01425 1124 TAD MOV1 /N 958 01426 4467 JMS I Z FIN1 959 01427 3121 DCA MP1 960 01430 7001 IAC 961 01431 1165 TAD MOV2 /M 962 01432 4467 JMS I Z FIN1 963 01433 3120 DCA MP2 964 01434 1122 TAD ARG2 /X 965 01435 4467 JMS I Z FIN1 966 01436 3122 DCA MP3 /ALL FOUND. 967 01437 1521 TAD I MP1 /SWAP POINTERS 968 01440 3131 DCA TEMP 969 01441 1520 TAD I MP2 970 01442 3521 DCA I MP1 971 01443 1522 TAD I MP3 972 01444 3520 DCA I MP2 973 01445 1131 TAD TEMP 974 01446 3522 DCA I MP3 975 01447 5420 JMP I Z TE1 976 /DELETE ROUTINES. MODIFIED 12/69 TO ENABLE GARBAGE COLLECTION. 977 978 /ROUTINE TO EXECUTE FULL DELETION OF ANY NUMBER OF LINES.ON ENTRY 979 /C(ARG0)=NUMBER OF FIRST LINE TO BE DELETED. C(ARG1)=-NUMBER OF LINES 980 /TO BE DELETED. ON EXIT, C(THSN)=NUMBER OF LINE BEFORE FIRST DELETED 981 /LINE. THIS ROUTINE MUST BE ENTERED WITH C(ACC)=0. 982 983 01450 0000 DELP, 0000 984 01451 1120 TAD ARG0 /IS NUMBER OF LAST LINE TO BE 985 01452 7041 CIA /TO BE DELETED >NUMBER OF LAST TEXT LINE? 986 01453 7001 IAC 987 01454 1121 TAD ARG1 988 01455 1114 TAD Z LSTN 989 01456 7710 SPA CLA /TEST FOR OVERKILL 990 01457 4165 ERROR /OVERKILL NOT ALLOWED 991 01460 1120 DELCYC, TAD ARG0 992 01461 4467 JMS I FIN1 /FIND POINTER TO LINE N 993 01462 3132 DCA THIS /(PRESENTLY BEING DELETED). 994 01463 1532 TAD I THIS /FIND LOCATION OF LINE AFTER. 995 01464 7450 SNA /IS ROUTINE BEYOND THE LAST LINE? 996 01465 5272 JMP GRD /YES, LOOP UNTIL ARG1 GOES TO 0. 997 01466 3164 DCA DTEM /DEPOSIT LATTER SO 998 01467 1564 TAD I DTEM /THAT POINTER FROM LINE N-1 999 01470 3532 DCA I THIS /POINTS TO LINE N+1 1000 01471 4302 JMS DELMV /DELETE THE LINE FROM MEMORY 1001 01472 7240 GRD, CLA CMA 1002 01473 1114 TAD Z LSTN 1003 01474 3114 DCA Z LSTN 1004 01475 2121 ISZ ARG1 /HAVE ALL LINES BEEN DELETED? 1005 01476 5260 JMP DELCYC 1006 01477 1120 TAD ARG0 /YES.SET "." TO NUMBER OF LINE IMMEDIATELY 1007 01500 3113 DCA THSN /AFTER DELETED TEXT 1008 01501 5650 JMP I DELP /EXIT. 1009 1010 1011 /GENERAL TEXT REMOVAL ROUTINE. ON ENTRY, C(DTEM)=LOCATION 1012 /OF HEAD OF LINE TO BE DELETED. 1013 1014 01502 0000 DELMV, 0000 1015 01503 1164 TAD DTEM /SET "UNPACK POINTER" SO THAT 1016 01504 3010 DCA AXOUT /LINE N CAN BE EXAMINED. 1017 01505 4466 JMS I UTR1 /LOOK AT CHARACTER. 1018 01506 1044 TAD M215 /IS IT A RETURN? 1019 01507 7640 SZA CLA 1020 01510 5305 JMP .-3 /NO,TRY AGAIN 1021 01511 1010 TAD AXOUT /YES, DETERMINE NUMBER OF LOCATIONS 1022 01512 7040 CMA /BETWEEN LINE HEAD AND RETURN INCLUSIVE. 1023 01513 1164 TAD DTEM 1024 01514 3362 DCA CNTR 1025 01515 1054 TAD CFRS /STARTING WITH THE FIRST LINE 1026 01516 3131 DOK, DCA TEMP /LINE HEAD LOCATION GOES TO TEMP. 1027 01517 1531 TAD I TEMP /LOOK AT POINTER VALUE. 1028 01520 7450 SNA /IF ZERO,THIS IS THE LAST LINE. 1029 01521 5334 JMP DONE 1030 01522 3130 DCA SAVE /IT IS NOT =0,SAVE THE VALUE. 1031 01523 1164 TAD DTEM /IS THE NEXT LINE HEAD 1032 01524 7141 CIA CLL /LOCATION > THE LOCATION OF THE 1033 01525 1130 TAD SAVE /HEAD OF THE LINE TO BE DELETED? 1034 01526 7630 SZL CLA 1035 01527 1362 TAD CNTR /IF YES, THE LINE HEAD LOCATION 1036 01530 1130 TAD SAVE /MUST BE MODIFIED TO ACCOUNT FOR 1037 01531 3531 DCA I TEMP /DELETION. 1038 01532 1130 TAD SAVE 1039 01533 5316 JMP DOK 1040 1041 1042 1043 1044 /GARBAGE COLLECT ROUTINE. 1045 01534 7040 DONE, CMA 1046 01535 1164 TAD DTEM 1047 01536 3010 DCA AXOUT /SET STORAGE POINTER FOR MOVE. 1048 01537 1362 TAD CNTR 1049 01540 7041 CIA 1050 01541 1010 TAD AXOUT /SET DRAWING ADDRESS FOR MOVE. 1051 01542 3013 DCA AXIN 1052 01543 1115 TAD BUFR 1053 01544 7041 CIA 1054 01545 1013 TAD AXIN 1055 01546 7001 IAC 1056 01547 7450 SNA 1057 01550 5356 JMP .+6 /LAST LINE BEING DELETED.JUST MOVE THE POINTERS. 1058 01551 3362 DCA CNTR 1059 01552 1413 TAD I AXIN /MOVE ALL CHARACTERS TO DELETE THE SPACE. 1060 01553 3410 DCA I AXOUT 1061 01554 2362 ISZ CNTR 1062 01555 5352 JMP .-3 1063 01556 1010 TAD AXOUT /RESET BUFR TO NEW END OF BUFFER. 1064 01557 7001 IAC 1065 01560 3115 DCA BUFR 1066 01561 5702 JMP I DELMV 1067 01562 0000 CNTR, 0000 1068 1069 1070 01563 4452 DELE, JMS I DELT 1071 01564 5420 JMP I TE1 1072 1073 1074 1075 1076 01565 1216 OPS2, FORM /F 1077 01566 0414 APP /A 1078 01567 0420 XNS /I 1079 01570 0417 CNGE /C 1080 01571 0135 KILL /K 1081 01572 1563 DELE /D 1082 01573 0632 LIST /L 1083 01574 1265 COMBO /N 1084 01575 1213 PUNC /P 1085 01576 1250 TELE /R 1086 01577 1262 TRAIL /T 1087 01600 1413 MOVEM /M 1088 01601 1603 GETTAG /G 1089 01602 1401 XCRET /S 1090 1091 1092 1093 01603 1120 GETTAG, TAD Z ARG0 /TAG SEARCH 1094 01604 7640 SZA CLA 1095 01605 5211 JMP GTAG1 1096 01606 1113 TAD Z THSN /NO ARG - USE .+1 1097 01607 3120 DCA Z ARG0 1098 01610 2120 GTAG2, ISZ Z ARG0 /MOVE TO NEXT 1099 01611 7001 GTAG1, IAC 1100 01612 1120 TAD Z ARG0 1101 01613 4467 JMS I FIN1 1102 01614 3010 DCA Z AXOUT 1103 01615 7040 CMA 1104 01616 3125 DCA Z XCT 1105 01617 4466 JMS I Z UTR1 /UNPACK 1106 01620 4500 JMS I Z SORTJ /BRANCH 1107 01621 0021 LIST7-1 1108 01622 1156 TAGLIST-LIST7 1109 01623 5470 JMP I Z LIS /PRINT ("JMP GTAG2" - FOR TEXT) 1110 1111 1112 1113 1114 BUFBEG=. 1115 $ ADD 0117 ADDR 1051 AONE 0433 APP 0414 APP1 0051 ARG0 0120 ARG1 0121 ARG2 0122 AXCOMB 0011 AXIN 0013 AXOUT 0010 AXTEM 0012 BELL 0034 BOX 0124 BUFBEG 1624 BUFEND 0001 BUFR 0115 C100 0007 C140 0015 C200 0021 C212 0035 C214 0033 C215 0025 C240 0022 C260 0016 C277 0042 C340 0017 C77 0005 CCON 0063 CCR 0025 CFRS 0054 CHAR 0123 CHECK 0603 CHECKP 0175 CHI1 0053 CHIN 1052 CLF 0035 CMPT 0153 CNGE 0417 CNT 0125 CNTR 1562 COM1 1300 COM2 1301 unreferenced COM3 1302 unreferenced COM4 1303 unreferenced COM5 1307 COMB 1274 COMBO 1265 COMM5 0056 CON 1017 COUNT 0360 COUNTP 0124 CRO 0036 CTAB 0024 CTRLU 0573 CTRLU2 0745 CX51 0030 CZ 0076 CZ1 0065 DBCV2 0220 DDTJR 0004 DELCYC 1460 DELE 1563 DELMV 1502 DELMVP 0174 DELP 1450 DELT 0052 DOK 1516 DONE 1534 DTEM 0164 ECHOSW 0127 ELIM 0166 END 0057 ENDLN 0312 ENDLNI 0106 EOL 0444 ERROR 4165 ESCA 0474 EX 0625 unreferenced EXLAS 0622 EXNEX 0623 EXTR 0532 FIN1 0067 FIND 0750 FIRS 0172 FORM 1216 FRST 0112 FUDGE 0744 FULL 0576 G2 0232 GEND 0561 GET1 0544 GET3 0556 GETTAG 1603 GEXP 0215 GLOM 0230 GMIN 0216 GRD 1472 GTAG1 1611 GTAG2 1610 GTEM 0165 GTOP 0213 HIGH 0074 I33 1141 I331 0061 I750 1127 IGNORE 0055 INLIST 1162 INPAT 1054 INS 0422 KEYBD 0060 KEYBRD 0062 KILL 0135 L0 0641 L2 0661 L2I 0105 L3 0667 L3I 0104 LEAD 1225 LIS 0070 LIST 0632 LIST1 0372 LIST2 1001 LIST3 0037 LIST4 0024 LIST5 0031 LIST6 0032 LIST7 0022 LISTGO 1176 LOW 0075 LSTN 0114 M2 0045 M200 0166 unreferenced M215 0044 M240 0046 M27 0030 M277 0041 M340 0047 M4 0014 M40 0006 M77 0003 MCR 0044 MOR 0436 MOV1 0124 MOV2 0165 MOVE 0152 MOVEM 1413 MP1 0121 MP2 0120 MP3 0122 MTABS 0002 NINE 0071 NONE 0050 NUMB 0072 ONUM 0077 OPS1 0270 OPS2 1565 OUT 1064 OUT1 0073 OUTCRL 1100 OUTDEV 0133 OUTH 1154 OUTL 1146 OUTL1 0075 OUTLIS 1204 OUTRT 1123 OUTTAB 1105 OUTX 1076 P177 0043 P7600 0166 unreferenced P7700 1253 PACBUF 0453 PACK1 0101 PCK1 0477 PERI 0143 PRNT 1023 PROT 0773 PUNC 1213 PUNCN 1214 READ1 0053 ROT 0513 RUB1 1312 RUB2 1346 RUB3 1335 RUB4 1344 RUB5 1337 SAVE 0130 SBAR 0707 SCONT 1210 SEX 0355 SFOUND 0712 SGOT 0716 SLAS 0145 SLINE 0676 SLOOK 0720 SORTB 0332 SORTJ 0100 SP2 1363 SPACES 1355 SPCGO 0110 SPCNO 0107 SPLAT 0111 SRETN 0725 SRNLST 1171 START 0200 unreferenced SXS1 0102 SXS2 0103 TAGLIS 1200 TCNT 0116 TE 0177 unreferenced TE1 0020 TELE 1250 TELEN 1250 TEMP 0131 THIS 0132 THSN 0113 TR1 0470 TRAIL 1262 TSTOUT 1234 UT1 0527 UT2 0525 UTEM 0477 UTR1 0066 UTRA 0522 VAL 0120 XCRET 1401 XCT 0125 XCTIN 0126 XNS 0420 XSAV 0134 XYZ 1034