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 000001 7600 BUFEND, 7600 /LAST USED LOCATION 14 15 000002 7770 MTABS, -10 /SPACES PER TAB. 16 000003 7701 M77, -77 17 000004 0004 DDTJR, DDTJR 18 000005 0077 C77, 77 19 000006 7740 M40, -40 20 000007 0100 C100, 100 21 22 /AUTO-INDEX REGISTERS 23 24 000010 0000 AXOUT, 0 /OUTPUT INDEX 25 000011 0000 AXCOMB, 0 /COMBINE POINTER. 26 000012 0000 AXTEM, 0 /TEMPORARY INDEX. 27 000013 0000 AXIN, 0 /STORAGE INDEX 28 29 /NUMBERS 30 31 000014 7774 M4, -4 /LETTER COUNT 32 000015 0140 C140, 140 /PACK TEST 33 000016 0260 C260, 260 /NUMBERS BASE 34 000017 0340 C340, 340 /PACK MASK 35 000020 0201 TE1, 201 36 000021 0200 C200, 200 /(START & RESTART) 37 38 /LISTS 39 40 LIST7=. /TAG SEARCH 41 000022 0240 C240, 240 42 000023 0257 257 /(303 - FOR FORTRAN) 43 LIST4=. /OUTPUT LIST. 44 000024 0211 CTAB, 211 45 000025 0215 C215, 215 46 000026 0212 212 47 000027 0377 377 48 000030 7751 M27, -27 49 CX51=.-1 /ILLEGAL CONTROL MASK 50 51 LIST5=. /INPUT LIST FOR "AONE". 52 000031 0240 240 53 LIST6=. /INPUT LIST FOR "SFOUND". 54 000032 0225 225 /CTRL/U . MODIFIED FROM _ 12/69 55 000033 0214 C214, 214 56 000034 0207 BELL, 207 57 000035 0212 C212, 212 58 000036 0377 CRO, 377 59 LIST3=. /EXCRETION LIST 60 000037 0215 215 /LIST BRANCHER. 61 000040 0000 000 /(SEARCH CHARACTER) 62 000041 7501 M277, -277 63 /CONSTANTS 64 65 CCR=C215 66 000042 0277 C277, 277 /QUESTION 67 CLF=C212 68 000043 0177 P177, 177 69 MCR=. 70 000044 7563 M215, -215 71 000045 7776 M2, -2 72 000046 7540 M240, -240 73 000047 7440 M340, -340 74 000050 7737 NONE, -41 /"NOP-CIA" 75 000051 0414 APP1, APP 76 000052 1450 DELT, DELP 77 READ1=. 78 000053 1052 CHI1, CHIN 79 000054 0112 CFRS, FRST 80 000055 1053 IGNORE, CHIN+1 81 000056 1307 COMM5, COM5 82 000057 1624 END, BUFBEG /FIRST LOCATION USED. 83 000060 4341 KEYBD, I33+3200 /JMS I33 84 000061 1141 I331, I33 85 000062 1054 KEYBRD, INPAT 86 /NEXT 87 000063 5411 CCON, JMP I Z AXCOMB 88 000064 1277 COM1-1 89 000065 4327 CZ1, I750+3200 /JMS I750 90 000066 0522 UTR1, UTRA 91 000067 0750 FIN1, FIND 92 000070 0632 LIS, LIST 93 000071 0012 NINE, 12 94 000072 7506 NUMB, -272 95 000073 1064 OUT1, OUT 96 000074 1154 HIGH, OUTH 97 OUTL1=. 98 000075 1146 LOW, OUTL 99 000076 1075 CZ, TAD Z LOW /CONTENTS OF START 100 000077 0213 ONUM, GTOP 101 000100 0332 SORTJ, SORTB 102 000101 0453 PACK1, PACBUF 103 /SEARCH 104 000102 1123 SXS1, TAD Z CHAR /CONTENTS OF L3 105 000103 5320 SXS2, SLOOK+4400 /JMP SLOOK 106 000104 0667 L3I, L3 /PATCH POINTER 107 000105 0661 L2I, L2 /CONTINUE SEARCH - LETTERS 108 000106 0312 ENDLNI, ENDLN 109 /SPACES TO TABS 110 000107 0442 SPCNO, MOR+4 /PACK 111 000110 0437 SPCGO, MOR+1 /SORT 112 000111 0334 SPLAT, 334 /\ - ACKNOWLEDGE RUBOUT 113 /VARIABLES 114 115 000112 0000 FRST, 0 /FIRST LINE ADDRESS 116 000113 0000 THSN, 0 /CURRENT LINE NO. 117 000114 0000 LSTN, 0 /LAST LINE NO. 118 000115 1624 BUFR, BUFBEG /NEXT LOCATION IN BUFFER 119 120 000116 0000 TCNT, 0 /TAB COUNT 121 000117 0000 ADD, 0 /CHAR. BUF. IN. 122 000120 0000 ARG0, 0 123 000121 7777 ARG1, -1 124 000122 0000 ARG2, 0 125 /CHAR IS ALWAYS SET BY OUT, SOMETIMES BY SORTB; 126 /IT IS ALWAYS USED BY PACK AND SORTB. 127 000123 0000 CHAR, 0 128 MOV1=. 129 000124 0000 COUNTP, 0 /NO. OF PAGES. 130 CNT=. /PRINT COUNTER 131 000125 0000 XCT, 0 /UNPACK SWITCH 132 000126 0000 XCTIN, 0 /PACK SWITCH 133 000127 0000 ECHOSW, 0 /N0N-ZERO TO PRINT 134 000130 0000 SAVE, 0 135 000131 0000 TEMP, 0 136 000132 0000 THIS, 0 /LINE POINTER. 137 000133 0000 OUTDEV, 0 /POINTER TO OUT. SUB. 138 000134 0000 XSAV, 0 /HOLD INPUT POINTER. 139 140 141 /FUNCTIONS 142 143 000135 1057 KILL, TAD Z END /KILL 144 000136 3115 DCA Z BUFR 145 000137 3114 DCA Z LSTN 146 000140 3113 DCA Z THSN 147 000141 3112 DCA Z FRST 148 000142 5420 JMP I TE1 149 150 151 000143 1113 PERI, TAD Z THSN /. 152 000144 7410 SKP 153 000145 1114 SLAS, TAD Z LSTN // 154 000146 3131 DCA TEMP 155 000147 3123 DCA CHAR 156 000150 5551 JMP I .+1 157 000151 0230 GLOM 158 159 000152 1120 MOVE, TAD Z ARG0 /ARG2 .GE. ARG0 160 000153 7041 CMPT, CIA 161 000154 1122 TAD Z ARG2 162 000155 7710 SPA CLA 163 000156 4165 ERROR 164 000157 1120 TAD ARG0 165 000160 3124 DCA MOV1 166 000161 1122 TAD ARG2 167 000162 3165 DCA MOV2 168 000163 5477 JMP I Z ONUM /(GTOP) 169 000164 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 000165 0000 0 175 P7600=. 176 M200=. 177 000166 7600 ELIM, 7600 /GRP2-CLA 178 000167 1042 TAD C277 179 000170 4475 JMS I OUTL1 /PRINT "?" 180 000171 5456 JMP I COMM5 /RESET PATCHES 181 182 000172 1122 FIRS, TAD Z ARG2 /COMMA 183 000173 5477 JMP I Z ONUM /SWAP ARGS. 184 000174 1502 DELMVP, DELMV 185 000175 0603 CHECKP, CHECK 186 *176 187 000176 5135 JMP KILL /RETURNS TO 200 188 000177 5456 TE, JMP I COMM5 /RETURNS TO 200. 189 190 000200 6046 START, TLS 191 000201 1075 TAD LOW /OR (JMP I Z AXCOMB) 192 000202 3133 DCA Z OUTDEV /INIT OUTPUT 193 000203 1060 TAD KEYBD 194 000204 3462 DCA I KEYBRD /INIT INPUT 195 000205 2127 ISZ ECHOSW /SET ECHO - ( "DCA ECHOSW" FOR HALF-DUPLEX) 196 000206 3040 DCA LIST3+1 197 000207 1102 TAD SXS1 /INIT LIST 198 000210 3504 DCA I Z L3I 199 000211 1025 TAD CCR /POSITION PRINT 200 000212 4473 JMS I OUT1 201 000213 3120 GTOP, DCA Z ARG0 /HERE VIA ONUM 202 000214 3122 DCA Z ARG2 203 000215 1050 GEXP, TAD Z NONE /IMPLICIT ADD 204 000216 1153 GMIN, TAD Z CMPT 205 000217 3232 DCA G2 206 000220 3131 DBCV2, DCA Z TEMP 207 000221 4453 JMS I Z CHI1 /(CHIN) 208 000222 1072 TAD Z NUMB 209 000223 7500 SMA 210 000224 5230 JMP GLOM /CONTINUED ARGUEMENTS 211 000225 1071 TAD Z NINE 212 000226 7500 SMA 213 000227 5360 JMP COUNT /CONTINUED NUMBER 214 000230 7200 GLOM, CLA 215 000231 1131 TAD Z TEMP 216 000232 7402 G2, HLT /(NOP) OR (CIA) 217 000233 1122 TAD Z ARG2 218 000234 3122 DCA Z ARG2 219 000235 4332 JMS SORTB 220 000236 0371 LIST1-1 221 000237 7676 OPS1-LIST1 /HANG ON TO COMMAND. 222 000240 1123 TAD CHAR 223 000241 3130 DCA SAVE 224 000242 4453 JMS I Z CHI1 /(CHIN) 225 000243 1044 TAD MCR 226 000244 7640 SZA CLA /C.R. MUST FOLLOW 227 000245 4165 ERROR /.AND. 228 000246 1120 TAD Z ARG0 /IF ARG0=0,ARG0=ARG2 229 000247 7450 SNA 230 000250 1122 TAD Z ARG2 231 000251 3120 DCA Z ARG0 232 000252 1122 TAD Z ARG2 /.AND. 233 000253 7040 CMA 234 000254 1120 TAD Z ARG0 /ARG1=ARG0-ARG2-1 235 000255 7500 SMA 236 000256 4165 ERROR /.AND. 237 000257 3121 DCA Z ARG1 /ARG0 .LE. ARG2 238 000260 1120 TAD Z ARG0 /.AND. 239 000261 7710 SPA CLA /ARG0 .GE. 0 240 000262 4165 ERROR 241 /(ISZ ECHOSW)-FOR HALF-DUPLEX 242 000263 1130 TAD SAVE 243 000264 4332 JMS SORTB 244 000265 1000 LIST2-1 245 000266 0564 OPS2-LIST2 246 000267 4165 ERROR 247 248 249 000270 0213 OPS1, GTOP /CR 250 000271 0623 EXNEX /ESCAPE 251 000272 0623 EXNEX /LINEFEED 252 000273 0215 GEXP /SPACE 253 000274 0215 GEXP /PLUS 254 000275 0172 FIRS /COMMA 255 000276 0216 GMIN /MINUS 256 000277 0143 PERI /POINT 257 000300 0145 SLAS /SLASH 258 000301 0622 EXLAS /BACKUP 259 000302 1023 PRNT /= 260 000303 0623 EXNEX /ALT (MOD 33) 261 000304 0623 EXNEX /ALT 262 000305 0220 DBCV2 /DUMMY 263 000306 0152 MOVE /DOLLAR 264 000307 0166 ELIM /COMMAND RUBOUT 265 000310 0166 ELIM /CTRL/U ADDED 1/70 266 000311 1023 PRNT /: 267 268 000312 0000 ENDLN, 0 269 000313 4501 JMS I Z PACK1 /PACK C.R. 270 000314 1117 TAD Z ADD 271 000315 7440 SZA 272 000316 3413 DCA I Z AXIN 273 000317 1115 TAD Z BUFR 274 000320 3532 DCA I Z THIS /LINK THIS TO NEW. 275 000321 1134 TAD Z XSAV 276 000322 3515 DCA I Z BUFR 277 000323 1115 TAD Z BUFR 278 000324 3132 DCA Z THIS 279 000325 2013 ISZ Z AXIN 280 000326 1013 TAD Z AXIN 281 000327 3115 DCA Z BUFR 282 000330 3126 DCA XCTIN 283 000331 5712 JMP I ENDLN 284 285 000332 0000 SORTB, 0 /SORT AND BRANCH ROUTINE. 286 000333 7440 SZA 287 000334 3123 DCA CHAR /CHAR IS ASSUMED OR SET. 288 000335 1732 TAD I SORTB 289 000336 2332 ISZ SORTB 290 000337 3012 DCA AXTEM 291 000340 1412 TAD I AXTEM 292 000341 7510 SPA 293 000342 5355 JMP SEX 294 000343 7041 CIA 295 000344 1123 TAD CHAR 296 000345 7640 SZA CLA 297 000346 5340 JMP .-6 298 000347 1012 TAD AXTEM /MATCH FOUND. 299 000350 1732 TAD I SORTB 300 000351 3332 DCA SORTB 301 000352 1732 TAD I SORTB 302 000353 3332 DCA SORTB 303 000354 5732 JMP I SORTB 304 ///// 305 000355 2332 SEX, ISZ SORTB /MATCH NOT FOUND. 306 000356 7200 CLA 307 000357 5732 JMP I SORTB 308 309 000360 3332 COUNT, DCA SORTB 310 000361 1131 TAD Z TEMP 311 000362 7106 RTL CLL 312 000363 7004 RAL 313 000364 3130 DCA Z SAVE /OCTAL 314 000365 1131 TAD Z TEMP 315 000366 7004 RAL 316 000367 1130 TAD Z SAVE 317 000370 1332 TAD SORTB 318 000371 5220 JMP DBCV2 /GET NEXT 319 320 LIST1=. 321 000372 0215 215 322 000373 0233 233 323 000374 0212 212 324 000375 0240 240 325 000376 0253 253 326 000377 0254 254 327 000400 0255 255 328 000401 0256 256 329 000402 0257 257 330 000403 0274 274 331 000404 0275 275 332 000405 0375 375 333 000406 0276 276 334 000407 0000 000 335 000410 0244 244 336 000411 0377 377 337 000412 0225 225 /CTRL/U. ADDED 1/70 338 000413 0272 272 339 340 000414 1114 APP, TAD Z LSTN /APPEND 341 000415 3120 DCA Z ARG0 342 000416 5222 JMP INS 343 ///// 344 000417 4452 CNGE, JMS I Z DELT /CHANGE 345 000420 1120 XNS, TAD ARG0 /INSERT 346 000421 7650 SNA CLA /TEST FOR TOP 347 000422 2120 INS, ISZ ARG0 /SET TO TOP 348 000423 1120 TAD ARG0 349 000424 4467 JMS I FIN1 /FIND THE POINTER 350 000425 3132 DCA Z THIS 351 000426 1532 TAD I Z THIS 352 000427 3134 DCA XSAV 353 000430 7240 CLA CMA 354 000431 1120 TAD ARG0 355 000432 3113 DCA THSN 356 000433 1115 AONE, TAD Z BUFR /BEGIN LINE 357 000434 3013 DCA Z AXIN 358 000435 3126 DCA Z XCTIN 359 360 000436 4453 MOR, JMS I READ1 361 000437 4500 JMS I SORTJ 362 000440 0030 LIST5-1 363 000441 1131 INLIST-LIST5 364 000442 4253 JMS PACBUF 365 000443 5236 JMP MOR 366 367 368 ///// 369 000444 4506 EOL, JMS I Z ENDLNI /END LINE 370 000445 2114 ISZ Z LSTN /ADD LINE 371 000446 2113 ISZ Z THSN 372 000447 1021 TAD C200 373 000450 4575 JMS I CHECKP 374 000451 5376 JMP FULL 375 000452 5236 JMP MOR 376 377 000453 0000 PACBUF, 0 /PACK A CHARACTER 378 000454 1123 TAD Z CHAR 379 000455 1041 TAD M277 380 000456 7650 SNA CLA 381 000457 5274 JMP ESCA /277 382 000460 1123 TAD Z CHAR 383 000461 0017 AND Z C340 384 000462 1047 TAD M340 385 000463 7450 SNA /("SZA" FOR MOD 37) 386 000464 5653 JMP I PACBUF /(DELETE FOR MOD 37)-IGNORE ILLEGALS 387 000465 1015 TAD Z C140 388 000466 7650 SNA CLA 389 000467 5274 JMP ESCA /340-377 AND 200-237 390 000470 1123 TR1, TAD Z CHAR /240-336 391 000471 0005 AND Z C77 392 000472 4277 JMS PCK1 393 000473 5653 JMP I PACBUF 394 ////// 395 000474 1005 ESCA, TAD Z C77 396 000475 4277 JMS PCK1 397 000476 5270 JMP TR1 398 399 400 000477 0000 PCK1, 0 401 000500 3322 DCA UTRA 402 000501 7001 IAC 403 000502 4575 JMS I CHECKP 404 000503 5376 JMP FULL /TEXT BUFFER FULL. 405 000504 1322 TAD UTRA 406 000505 2126 ISZ XCTIN 407 000506 5313 JMP ROT 408 000507 1117 TAD Z ADD 409 000510 3413 DCA I Z AXIN 410 000511 3117 DCA Z ADD 411 000512 5677 JMP I PCK1 412 ///// 413 000513 7106 ROT, CLL RTL 414 000514 7006 RTL 415 000515 7006 RTL 416 000516 3117 DCA Z ADD 417 000517 7040 CMA 418 000520 3126 DCA Z XCTIN 419 000521 5677 JMP I PCK1 420 421 UTEM=PCK1 /UNPACK TEMPORARY 422 423 000522 0000 UTRA, 0 /UNPACK CHARACTER. 424 000523 4344 JMS GET1 425 000524 5332 JMP EXTR /EXTEND 426 000525 7710 UT2, SPA CLA /NORM & EXTEND 427 000526 1007 TAD Z C100 /300-337 & 340-376 428 000527 1021 UT1, TAD Z C200 /240-276 & 200-236 429 000530 1277 TAD UTEM 430 000531 5722 JMP I UTRA 431 ////// 432 000532 4344 EXTR, JMS GET1 433 000533 5327 JMP UT1 /QUESTION MARK 434 000534 7040 CMA 435 000535 3344 DCA GET1 /UNPACK ONLY C.R.-(DELETE ALL FOR MOD 37) 436 000536 1344 TAD GET1 /AND TAB 437 000537 0030 AND Z CX51 /AND 2(13,17,31,33,35,37) 438 000540 7640 SZA CLA /... 439 000541 5323 JMP UTRA+1 /... 440 000542 1344 TAD GET1 /... 441 000543 5325 JMP UT2 442 443 000544 0000 GET1, 0 /UNPACK 6-BITS 444 000545 2125 ISZ XCT 445 000546 5356 JMP GET3 446 000547 1410 TAD I Z AXOUT 447 000550 3165 DCA Z GTEM 448 000551 1165 TAD Z GTEM 449 000552 7112 RTR CLL 450 000553 7012 RTR 451 000554 7012 RTR 452 000555 5361 JMP GEND 453 ///// 454 000556 7040 GET3, CMA 455 000557 3125 DCA XCT 456 000560 1165 TAD Z GTEM 457 000561 0005 GEND, AND Z C77 458 000562 3277 DCA UTEM /SAVE 459 000563 1277 TAD UTEM 460 000564 1003 TAD Z M77 461 000565 7650 SNA CLA 462 000566 5744 JMP I GET1 /1ST IF 77 463 000567 2344 ISZ GET1 464 000570 1277 TAD UTEM 465 000571 1006 TAD Z M40 466 000572 5744 JMP I GET1 467 000573 1025 CTRLU, TAD CCR /ECHOS A RETURN,LINEFEED 468 000574 4473 JMS I OUT1 /WHEN BEGINNING OF A LINE IS DELETED 469 000575 5233 JMP AONE /BY CTRL/U. ADDED 1/70 470 471 ///// 472 000576 1420 FULL, TAD I Z TE1 /CHECK FOR MIDDLE OF AN N-COMMAND. 473 000577 7700 SMA CLA /(5000 IF TRUE) 474 000600 1034 TAD Z BELL 475 000601 4475 JMS I Z OUTL1 /BYPASS BIT2 476 000602 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 000603 0000 CHECK, 0000 487 000604 1013 TAD AXIN 488 000605 7140 CMA CLL 489 000606 1001 TAD BUFEND 490 000607 7630 SZL CLA 491 000610 5220 JMP .+10 492 000611 1014 TAD M4 493 000612 3116 DCA TCNT 494 000613 1034 TAD BELL 495 000614 4475 JMS I OUTL1 496 000615 2116 ISZ TCNT 497 000616 5213 JMP .-3 498 000617 5603 JMP I CHECK 499 000620 2203 ISZ CHECK 500 000621 5603 JMP I CHECK 501 502 000622 1045 EXLAS, TAD Z M2 /PRINT LAST 503 000623 1113 EXNEX, TAD Z THSN /PRINT NEXT 504 000624 7001 IAC 505 000625 7450 EX, SNA 506 000626 4165 ERROR 507 000627 3120 DCA Z ARG0 /SAVE EFFECTIVE ARG. 508 000630 7040 CMA 509 000631 3121 DCA Z ARG1 510 /(ISZ ECHOSW) - FOR HALF-DUPLEX 511 000632 1120 LIST, TAD Z ARG0 /LIST 512 000633 7640 SZA CLA /TEST ARGS 513 000634 5241 JMP L0 514 000635 1114 TAD Z LSTN /SET FULL RANGE 515 000636 7041 CIA 516 000637 3121 DCA Z ARG1 517 000640 2120 ISZ Z ARG0 /SET TO #1 518 000641 1120 L0, TAD Z ARG0 519 000642 4467 JMS I FIN1 520 000643 3132 DCA Z THIS /SAVE POINTER 521 000644 1532 TAD I THIS /IS POINTER POINTING TO LAST LINE? 522 000645 7650 SNA CLA 523 000646 5373 JMP PROT /YES. OPERATION HAS GONE TO FAR. 524 000647 7040 CMA 525 000650 1532 TAD I Z THIS /GET START 526 000651 3010 DCA Z AXOUT 527 000652 1410 TAD I Z AXOUT /SAVE POINTER FOR SEARCH. 528 000653 3134 DCA XSAV 529 000654 7040 CMA 530 000655 3125 DCA XCT 531 000656 1120 TAD Z ARG0 /SET POINTER 532 000657 3113 DCA THSN 533 000660 2120 ISZ Z ARG0 /SET NEXT LINE 534 000661 7404 L2, OSR /IS OUTPUT SUPPRESS SWITCH (SR 2) SET? 535 000662 7006 RTL 536 000663 7710 SPA CLA 537 000664 5420 JMP I TE1 /YES;EXIT TO COMMAND MODE. 538 000665 4466 JMS I Z UTR1 /UNPACK 539 000666 4473 JMS I OUT1 /PRINT 540 000667 1123 L3, TAD Z CHAR /OR (JMP SLOOK) 541 000670 1044 TAD Z MCR 542 000671 7640 SZA CLA /TEST FOR EOL 543 000672 5261 JMP L2 544 000673 2121 ISZ Z ARG1 /TEST LINE COUNT 545 000674 5241 JMP L0 /GET NEXT LINE 546 000675 5420 JMP I Z TE1 /WAIT 547 /SEARCH ROUTINES 548 549 000676 1025 SLINE, TAD Z CCR /TYPE CR.LF 550 000677 4473 JMS I Z OUT1 /SET CHAR 551 000700 1344 TAD FUDGE 552 000701 7450 SNA 553 000702 1532 TAD I THIS 554 000703 3344 DCA FUDGE 555 000704 4506 JMS I Z ENDLNI /END LINE 556 000705 2120 ISZ Z ARG0 /MOVE POINT 557 000706 2114 ISZ LSTN /ADD A LINE. 558 000707 1115 SBAR, TAD Z BUFR /RESTART PACK BUFFER 559 000710 3013 DCA Z AXIN 560 000711 3126 DCA Z XCTIN 561 000712 4453 SFOUND, JMS I Z CHI1 /(CHIN) 562 000713 4500 JMS I Z SORTJ /TEST INSERTS 563 000714 0031 LIST6-1 564 000715 1137 SRNLST-LIST6 565 000716 4501 SGOT, JMS I Z PACK1 /PACK INSERTS 566 000717 5312 JMP SFOUND /MORE INPUT 567 568 000720 4500 SLOOK, JMS I Z SORTJ /TEST PRINTED CHARS. 569 000721 0036 LIST3-1 570 000722 1137 LISTGO-LIST3 571 000723 4501 JMS I Z PACK1 /PACK SEARCHED CHARS. 572 000724 5261 JMP L2 /CONTINUE SEARCH 573 574 000725 1344 SRETN, TAD FUDGE /THIS ROUTINE MODIFIED TO ALLOW DYNAMIC 575 000726 7450 SNA /DELETION DURING SEARCH. 12/69. 576 000727 1532 TAD I THIS 577 000730 3164 DCA DTEM 578 000731 3344 DCA FUDGE 579 000732 4506 JMS I Z ENDLNI /END OF SEARCHED LINE 580 000733 4574 JMS I DELMVP /DELETE OLD COPY OF LINE 581 000734 1115 TAD BUFR 582 000735 3013 DCA AXIN 583 000736 1021 TAD C200 584 000737 4575 JMS I CHECKP 585 000740 5420 JMP I TE1 586 000741 2121 ISZ Z ARG1 /TEST COUNT 587 000742 5470 JMP I Z LIS /CONTINUE 588 000743 5420 JMP I Z TE1 /TERMINATE 589 000744 0000 FUDGE, 0000 590 591 //// 592 000745 1025 CTRLU2, TAD CCR /PRINTS CR/LF WHEN CTRL/U 593 000746 4473 JMS I OUT1 /DELETES BEGIN OF A LINE. 594 000747 5307 JMP SBAR /ADDED 1/70 595 596 000750 0000 FIND, 0 /LOCATE LINE BUFFER 597 000751 7041 CIA 598 000752 7500 SMA 599 000753 4165 ERROR /TOO SMALL 600 000754 3131 DCA Z TEMP 601 000755 1131 TAD Z TEMP 602 000756 7001 IAC 603 000757 1114 TAD Z LSTN 604 000760 7710 SPA CLA 605 000761 4165 ERROR /TOO LARGE 606 000762 1054 TAD Z CFRS 607 000763 5366 JMP .+3 608 000764 1530 TAD I Z SAVE /CHAIN THROUGH LIST. 609 000765 7440 SZA /FAILSAFE 610 000766 3130 DCA Z SAVE 611 000767 2131 ISZ Z TEMP 612 000770 5364 JMP .-4 613 000771 1130 TAD Z SAVE 614 000772 5750 JMP I FIND 615 616 000773 7040 PROT, CMA /LIST ROUTINE WENT TOO FAR. 617 000774 1120 TAD ARG0 /RESET POINTERS SO IT CAN'T HAPPEN 618 000775 3113 DCA THSN /AGAIN. 619 000776 1113 TAD THSN 620 000777 3114 DCA LSTN 621 001000 4165 ERROR 622 623 624 LIST2=. /COMMAND LETTERS 625 001001 0306 306 /F 626 001002 0301 301 /A 627 001003 0311 311 /I 628 001004 0303 303 /C 629 001005 0313 313 /K 630 001006 0304 304 /D 631 001007 0314 314 /L 632 001010 0316 316 /N 633 001011 0320 320 /P 634 001012 0322 322 /R 635 001013 0324 324 /T 636 001014 0315 315 /M 637 001015 0307 307 /G 638 001016 0323 323 /S 639 001017 6030 CON, 6030 /CONVERSION CONSTANTS 640 001020 7634 7634 641 001021 7766 7766 642 001022 7777 7777 643 644 645 BOX=COUNTP 646 VAL=ARG0 647 648 001023 1122 PRNT, TAD Z ARG2 /: OR = 649 001024 3120 DCA Z VAL 650 001025 1014 TAD Z M4 651 001026 3125 DCA Z CNT 652 001027 1251 TAD ADDR 653 001030 3236 DCA XYZ+2 654 001031 3124 DCA BOX 655 001032 5235 JMP .+3 656 001033 2124 ISZ BOX 657 001034 3120 XYZ, DCA Z VAL 658 001035 1120 TAD Z VAL 659 001036 7402 HLT /(TAD CON + (DX) ) 660 001037 7500 SMA 661 001040 5233 JMP XYZ-1 662 001041 7200 CLA 663 001042 1124 TAD BOX 664 001043 1016 TAD Z C260 665 001044 4475 JMS I Z OUTL1 /BYPASS BIT2 666 001045 2236 ISZ XYZ+2 667 001046 2125 ISZ Z CNT 668 001047 5231 JMP XYZ-3 669 001050 5420 JMP I Z TE1 670 671 001051 1217 ADDR, TAD CON 672 673 001052 0000 CHIN, 0 /READ IN A CHARACTER SUBR. 674 001053 3123 DCA Z CHAR /CLEAR CHARACTER. 675 001054 4341 INPAT, JMS I33 /OR (JMS I750) 676 001055 0043 AND P177 /MASK PARITY 677 001056 7450 SNA /IGNORE BLANK AND L/T 678 001057 5253 JMP CHIN+1 679 001060 1021 TAD C200 680 001061 4264 JMS OUT /ECHO INPUT 681 001062 1123 TAD CHAR 682 001063 5652 JMP I CHIN 683 001064 0000 OUT, 0 /OUTPUT A CHARACTER 684 001065 3123 DCA CHAR 685 001066 1127 TAD ECHOSW 686 001067 7650 SNA CLA /TEST PRINT CONTROL 687 001070 5664 JMP I OUT 688 001071 4500 JMS I SORTJ 689 001072 0023 LIST4-1 690 001073 1160 OUTLIS-LIST4 691 001074 2116 ISZ TCNT /COUNT ONE LETTER 692 001075 1123 TAD CHAR 693 001076 4533 OUTX, JMS I Z OUTDEV 694 001077 5664 JMP I OUT 695 ///// 696 001100 1025 OUTCRL, TAD CCR 697 001101 4533 JMS I Z OUTDEV 698 001102 3116 DCA TCNT 699 001103 1035 TAD CLF 700 001104 5276 JMP OUTX 701 ///// 702 001105 7404 OUTTAB, OSR /BIT1 DOWN FOR SPACES. 703 001106 7004 RAL 704 001107 7710 SPA CLA 705 001110 5323 JMP OUTRT 706 001111 1116 TAD TCNT 707 001112 1002 TAD MTABS 708 001113 7500 SMA 709 001114 5312 JMP .-2 710 001115 3116 DCA TCNT 711 001116 1022 TAD C240 712 001117 4533 JMS I Z OUTDEV 713 001120 2116 ISZ TCNT 714 001121 5316 JMP .-3 715 001122 5664 JMP I OUT 716 ///// 717 001123 1024 OUTRT, TAD CTAB /BIT1 UP FOR TAB-R.O. 718 001124 4533 JMS I Z OUTDEV 719 001125 1036 TAD CRO 720 001126 5276 JMP OUTX 721 722 /I-O SUBROUTINES 723 724 001127 0000 I750, 0 725 001130 6011 RSF 726 001131 5335 JMP .+4 727 001132 3341 DCA I33 728 001133 6016 RFC RRB 729 001134 5727 JMP I I750 730 001135 2341 ISZ I33 731 001136 5330 JMP .-6 732 001137 5740 JMP I .+1 /READER EMPTY. 733 001140 0576 FULL 734 735 001141 0000 I33, 0 736 001142 6031 KSF 737 001143 5342 JMP .-1 738 001144 6036 KRB 739 001145 5741 JMP I I33 740 741 001146 0000 OUTL, 0 742 001147 6041 TSF 743 001150 5347 JMP .-1 744 001151 6046 TLS 745 001152 7200 CLA 746 001153 5746 JMP I OUTL 747 748 001154 0000 OUTH, 0 749 001155 6021 PSF 750 001156 5355 JMP .-1 751 001157 6026 PLS 752 001160 7200 CLA 753 001161 5754 JMP I OUTH 754 755 INLIST=. 756 001162 1355 SPACES /SPCS 757 001163 0573 CTRLU /CTRL/U. MODIFIED FROM "_" 1/70. 758 001164 0576 FULL /F.F. 759 001165 0576 FULL /BELL 760 001166 1053 CHIN+1 /L.F. 761 001167 1312 RUB1 /R.O. 762 001170 0444 EOL /C.R. 763 764 SRNLST=. 765 001171 0745 CTRLU2 /CTRL/U. MODIFIED FROM "_" 1/70 766 001172 0661 L2 /F.F. 767 001173 1210 SCONT /BELL 768 001174 0676 SLINE /L.F. 769 001175 1312 RUB1 /R.O. /SRNLST AND LISTGO MUST STAY TOGETHER!!!!!! 770 771 LISTGO=. 772 001176 0725 SRETN /C.R. 773 001177 0716 SGOT /SEARCH CHARACTER 774 775 776 TAGLIST=. /NON-TAGS 777 001200 1610 GTAG2 /SP ("EX+1"- FOR TEXT)-PARAGRAPHS 778 001201 1610 GTAG2 // 779 001202 1610 GTAG2 /TAB ("EX+1"-FOR TEXT) 780 001203 1610 GTAG2 /C.R. 781 782 OUTLIS=. /SPECIAL OUTPUTS 783 001204 1105 OUTTAB /211 784 001205 1100 OUTCRL /215 785 001206 1077 OUTX+1 /212 786 001207 1077 OUTX+1 /377 - (SET FOR 257 TO TRIM COMMENTS.) 787 788 001210 4461 SCONT, JMS I I331 /S-BELL 789 001211 3040 DCA LIST3+1 790 001212 5505 JMP I Z L2I 791 792 001213 7602 PUNC, HLT CLA /PUNCH 793 794 795 001214 4234 PUNCN, JMS TSTOUT 796 001215 5470 JMP I Z LIS 797 798 001216 4234 FORM, JMS TSTOUT /FORM 799 001217 4225 JMS LEAD 800 001220 1033 TAD C214 801 001221 4473 JMS I OUT1 802 001222 1006 TAD M40 803 001223 4225 JMS LEAD 804 001224 5420 JMP I Z TE1 805 806 001225 0000 LEAD, 0 /LEAD 807 001226 1014 TAD M4 808 001227 3234 DCA TSTOUT 809 001230 4473 JMS I OUT1 810 001231 2234 ISZ TSTOUT 811 001232 5230 JMP .-2 812 001233 5625 JMP I LEAD 813 814 001234 0000 TSTOUT, 0 815 001235 2127 ISZ ECHOSW /SET FOR PRINTING 816 001236 7404 OSR /BIT10 FOR OUTPUT 817 001237 7012 RTR 818 001240 7620 SNL CLA 819 001241 5245 JMP .+4 820 001242 6026 PLS /RAISE OUTPUT FLAG. 821 001243 1074 TAD HIGH 822 001244 7410 SKP 823 001245 1075 TAD LOW 824 001246 3133 DCA Z OUTDEV 825 001247 5634 JMP I TSTOUT 826 TELE=. 827 001250 3127 TELEN, DCA ECHOSW /READ 828 001251 7404 OSR /TEST INPUT BITS. 829 001252 7012 RTR /BIT11 FOR INPUT 830 001253 7700 P7700, SMA CLA 831 001254 5451 JMP I Z APP1 832 001255 1065 TAD CZ1 /(JMS I750) 833 001256 3462 DCA I KEYBRD 834 001257 6011 RSF 835 001260 6014 RFC 836 001261 5451 JMP I Z APP1 837 838 001262 4234 TRAIL, JMS TSTOUT /TRAIL 839 001263 1006 TAD M40 840 001264 5222 JMP FORM+4 841 842 001265 1120 COMBO, TAD Z ARG0 /NEXT 843 001266 7452 SNA HLT 844 001267 7001 IAC 845 001270 7041 CIA 846 001271 3124 DCA Z COUNTP 847 001272 1063 TAD CCON /(JMP I Z AXCOMB) 848 001273 3420 DCA I Z TE1 849 001274 1064 COMB, TAD CCON+1 /COM1-1 850 001275 3011 DCA Z AXCOMB 851 001276 3120 DCA Z ARG0 852 001277 5214 JMP PUNCN 853 ///// 854 001300 5216 COM1, JMP FORM /FORM-FEED 855 001301 5135 COM2, JMP KILL /KILL 856 001302 5250 COM3, JMP TELEN /READ 857 001303 2124 COM4, ISZ Z COUNTP 858 001304 5274 JMP COMB 859 001305 1034 TAD BELL 860 001306 4475 JMS I OUTL1 861 001307 1076 COM5, TAD CZ /RESTORE LOC 200. 862 001310 3420 DCA I Z TE1 863 001311 5420 JMP I Z TE1 864 865 866 001312 1013 RUB1, TAD Z AXIN 867 001313 7041 CIA 868 001314 1115 TAD Z BUFR 869 001315 1117 TAD Z ADD 870 001316 7640 SZA CLA /TEST NULL LINE 871 001317 1127 TAD Z ECHOSW 872 001320 7650 SNA CLA /TEST INPUT 873 001321 5455 JMP I Z IGNORE /NULL LINE 874 001322 1111 TAD SPLAT 875 001323 4473 JMS I Z OUT1 876 001324 1013 TAD Z AXIN 877 001325 3124 DCA Z MOV1 878 001326 2126 ISZ Z XCTIN /TEST HALF 879 001327 5346 JMP RUB2 880 001330 1524 TAD I Z MOV1 881 001331 0005 AND Z C77 882 001332 1003 TAD Z M77 883 001333 7640 SZA CLA /TEST EXTEND 884 001334 5344 JMP RUB4 885 001335 7040 RUB3, CMA 886 001336 3126 DCA Z XCTIN 887 001337 7040 RUB5, CMA 888 001340 1013 TAD Z AXIN 889 001341 3013 DCA Z AXIN 890 001342 1524 TAD I Z MOV1 891 001343 0253 AND P7700 892 001344 3117 RUB4, DCA Z ADD 893 001345 5455 JMP I Z IGNORE /(CHIN+1) 894 ///// 895 001346 1524 RUB2, TAD I Z MOV1 896 001347 0253 AND P7700 897 001350 1007 TAD Z C100 898 001351 7640 SZA CLA 899 001352 5335 JMP RUB3 900 001353 3524 DCA I Z MOV1 901 001354 5337 JMP RUB5 902 903 001355 1127 SPACES, TAD Z ECHOSW /SPACE READIN 904 001356 7650 SNA CLA /TEST READ MODE 905 001357 7404 OSR /BIT0 UP TO COMPRESS SPACES TO TABS 906 001360 7700 SMA CLA 907 001361 5507 JMP I SPCNO /PACK - (MOR+4) 908 001362 7040 CMA /SET 1 SPACE 909 001363 3125 SP2, DCA CNT 910 001364 4453 JMS I Z READ1 /(CHIN) 911 001365 1046 TAD M240 912 001366 7650 SNA CLA 913 001367 5363 JMP SP2 /IGNORE EXTRA SPACES. 914 001370 1123 TAD CHAR 915 001371 3130 DCA SAVE /SAVE NON-SPACE 916 001372 2125 ISZ CNT 917 001373 1030 TAD M27 /TAB 918 001374 1022 TAD C240 /SPACE 919 001375 3123 DCA CHAR 920 001376 4501 JMS I Z PACK1 /(PACBUF) 921 001377 1130 TAD SAVE 922 001400 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 001401 4461 XCRET, JMS I I331 /XAMINE OR SEARCH 930 001402 3040 DCA LIST3+1 /SAVE SEARCH CHARACTER 931 001403 1103 TAD SXS2 932 001404 3504 DCA I Z L3I /PATCH TO "SLOOK" 933 001405 1115 TAD Z BUFR /SET PACK POINTER. 934 001406 3013 DCA Z AXIN 935 001407 3126 DCA Z XCTIN 936 001410 3612 DCA I .+2 /CLEARS FUDGE INCASE SAME WAS LEFT UNCLEARED 937 /DURING "BUFFER FULL" EXIT TO COMMAND MODE. 938 001411 5470 JMP I Z LIS /(LIST) 939 001412 0744 FUDGE 940 941 942 MP1=ARG1 943 MP2=ARG0 944 MP3=ARG2 945 946 947 001413 1124 MOVEM, TAD MOV1 /TEST FOR GOOD ARGS. 948 001414 7041 CIA 949 001415 1122 TAD ARG2 950 001416 7710 SPA CLA /"N,M$XM" 951 001417 5225 JMP .+6 952 001420 1165 TAD MOV2 953 001421 7040 CMA 954 001422 1122 TAD ARG2 955 001423 7750 SPA SNA CLA /TEST COMMAND LOGIC 956 001424 4165 ERROR 957 001425 1124 TAD MOV1 /N 958 001426 4467 JMS I Z FIN1 959 001427 3121 DCA MP1 960 001430 7001 IAC 961 001431 1165 TAD MOV2 /M 962 001432 4467 JMS I Z FIN1 963 001433 3120 DCA MP2 964 001434 1122 TAD ARG2 /X 965 001435 4467 JMS I Z FIN1 966 001436 3122 DCA MP3 /ALL FOUND. 967 001437 1521 TAD I MP1 /SWAP POINTERS 968 001440 3131 DCA TEMP 969 001441 1520 TAD I MP2 970 001442 3521 DCA I MP1 971 001443 1522 TAD I MP3 972 001444 3520 DCA I MP2 973 001445 1131 TAD TEMP 974 001446 3522 DCA I MP3 975 001447 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 001450 0000 DELP, 0000 984 001451 1120 TAD ARG0 /IS NUMBER OF LAST LINE TO BE 985 001452 7041 CIA /TO BE DELETED >NUMBER OF LAST TEXT LINE? 986 001453 7001 IAC 987 001454 1121 TAD ARG1 988 001455 1114 TAD Z LSTN 989 001456 7710 SPA CLA /TEST FOR OVERKILL 990 001457 4165 ERROR /OVERKILL NOT ALLOWED 991 001460 1120 DELCYC, TAD ARG0 992 001461 4467 JMS I FIN1 /FIND POINTER TO LINE N 993 001462 3132 DCA THIS /(PRESENTLY BEING DELETED). 994 001463 1532 TAD I THIS /FIND LOCATION OF LINE AFTER. 995 001464 7450 SNA /IS ROUTINE BEYOND THE LAST LINE? 996 001465 5272 JMP GRD /YES, LOOP UNTIL ARG1 GOES TO 0. 997 001466 3164 DCA DTEM /DEPOSIT LATTER SO 998 001467 1564 TAD I DTEM /THAT POINTER FROM LINE N-1 999 001470 3532 DCA I THIS /POINTS TO LINE N+1 1000 001471 4302 JMS DELMV /DELETE THE LINE FROM MEMORY 1001 001472 7240 GRD, CLA CMA 1002 001473 1114 TAD Z LSTN 1003 001474 3114 DCA Z LSTN 1004 001475 2121 ISZ ARG1 /HAVE ALL LINES BEEN DELETED? 1005 001476 5260 JMP DELCYC 1006 001477 1120 TAD ARG0 /YES.SET "." TO NUMBER OF LINE IMMEDIATELY 1007 001500 3113 DCA THSN /AFTER DELETED TEXT 1008 001501 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 001502 0000 DELMV, 0000 1015 001503 1164 TAD DTEM /SET "UNPACK POINTER" SO THAT 1016 001504 3010 DCA AXOUT /LINE N CAN BE EXAMINED. 1017 001505 4466 JMS I UTR1 /LOOK AT CHARACTER. 1018 001506 1044 TAD M215 /IS IT A RETURN? 1019 001507 7640 SZA CLA 1020 001510 5305 JMP .-3 /NO,TRY AGAIN 1021 001511 1010 TAD AXOUT /YES, DETERMINE NUMBER OF LOCATIONS 1022 001512 7040 CMA /BETWEEN LINE HEAD AND RETURN INCLUSIVE. 1023 001513 1164 TAD DTEM 1024 001514 3362 DCA CNTR 1025 001515 1054 TAD CFRS /STARTING WITH THE FIRST LINE 1026 001516 3131 DOK, DCA TEMP /LINE HEAD LOCATION GOES TO TEMP. 1027 001517 1531 TAD I TEMP /LOOK AT POINTER VALUE. 1028 001520 7450 SNA /IF ZERO,THIS IS THE LAST LINE. 1029 001521 5334 JMP DONE 1030 001522 3130 DCA SAVE /IT IS NOT =0,SAVE THE VALUE. 1031 001523 1164 TAD DTEM /IS THE NEXT LINE HEAD 1032 001524 7141 CIA CLL /LOCATION > THE LOCATION OF THE 1033 001525 1130 TAD SAVE /HEAD OF THE LINE TO BE DELETED? 1034 001526 7630 SZL CLA 1035 001527 1362 TAD CNTR /IF YES, THE LINE HEAD LOCATION 1036 001530 1130 TAD SAVE /MUST BE MODIFIED TO ACCOUNT FOR 1037 001531 3531 DCA I TEMP /DELETION. 1038 001532 1130 TAD SAVE 1039 001533 5316 JMP DOK 1040 1041 1042 1043 1044 /GARBAGE COLLECT ROUTINE. 1045 001534 7040 DONE, CMA 1046 001535 1164 TAD DTEM 1047 001536 3010 DCA AXOUT /SET STORAGE POINTER FOR MOVE. 1048 001537 1362 TAD CNTR 1049 001540 7041 CIA 1050 001541 1010 TAD AXOUT /SET DRAWING ADDRESS FOR MOVE. 1051 001542 3013 DCA AXIN 1052 001543 1115 TAD BUFR 1053 001544 7041 CIA 1054 001545 1013 TAD AXIN 1055 001546 7001 IAC 1056 001547 7450 SNA 1057 001550 5356 JMP .+6 /LAST LINE BEING DELETED.JUST MOVE THE POINTERS. 1058 001551 3362 DCA CNTR 1059 001552 1413 TAD I AXIN /MOVE ALL CHARACTERS TO DELETE THE SPACE. 1060 001553 3410 DCA I AXOUT 1061 001554 2362 ISZ CNTR 1062 001555 5352 JMP .-3 1063 001556 1010 TAD AXOUT /RESET BUFR TO NEW END OF BUFFER. 1064 001557 7001 IAC 1065 001560 3115 DCA BUFR 1066 001561 5702 JMP I DELMV 1067 001562 0000 CNTR, 0000 1068 1069 1070 001563 4452 DELE, JMS I DELT 1071 001564 5420 JMP I TE1 1072 1073 1074 1075 1076 001565 1216 OPS2, FORM /F 1077 001566 0414 APP /A 1078 001567 0420 XNS /I 1079 001570 0417 CNGE /C 1080 001571 0135 KILL /K 1081 001572 1563 DELE /D 1082 001573 0632 LIST /L 1083 001574 1265 COMBO /N 1084 001575 1213 PUNC /P 1085 001576 1250 TELE /R 1086 001577 1262 TRAIL /T 1087 001600 1413 MOVEM /M 1088 001601 1603 GETTAG /G 1089 001602 1401 XCRET /S 1090 1091 1092 1093 001603 1120 GETTAG, TAD Z ARG0 /TAG SEARCH 1094 001604 7640 SZA CLA 1095 001605 5211 JMP GTAG1 1096 001606 1113 TAD Z THSN /NO ARG - USE .+1 1097 001607 3120 DCA Z ARG0 1098 001610 2120 GTAG2, ISZ Z ARG0 /MOVE TO NEXT 1099 001611 7001 GTAG1, IAC 1100 001612 1120 TAD Z ARG0 1101 001613 4467 JMS I FIN1 1102 001614 3010 DCA Z AXOUT 1103 001615 7040 CMA 1104 001616 3125 DCA Z XCT 1105 001617 4466 JMS I Z UTR1 /UNPACK 1106 001620 4500 JMS I Z SORTJ /BRANCH 1107 001621 0021 LIST7-1 1108 001622 1156 TAGLIST-LIST7 1109 001623 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