1 / OS/8 HELP PROGRAM 2 / 3 / THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 4 / AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 5 / CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 6 / FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 7 / 8 / THE SOFTWARE DESCRIBED HEREIN IS FURNISHED TO THE PURCHASER 9 / UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 10 / (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 11 / SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 12 / 13 / DIGITAL EQUIPMENT ASSUMES NO RESPONSIBILITY FOR THE USE 14 / OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED 15 / BY DIGITAL. 16 / 17 / COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION 18 / 19 20 / 21 / VERSION #1 B. M. 1/1/77 22 / VERSION #2A M. H. 4/22/77 23 / (CHANGE TAG VERS WHEN CHANGING VERSION NUMBERS) 24 / 25 / THIS PROGRAM CAN BE CALLED DIRECTLY OR CHAINED TO BY CCL TO 26 / PRINT INFORMATION ON RANDOM SUBJECTS THE USER ASKS ABOUT. 27 / 28 / START ADDRESS:200 JSW:3401 29 / CORE LIMITS:200-7377 30 / 31 / THIS PROGRAM REQUIRES AN INPUT FILE TO RUN. FOR OS/8 THE FILE 32 / SHOULD BE NAMED "HELP8.HL" FOR OS/78 THE NAME SHOULD BE "HELP78.HL". 33 / 34 / THE FORMAT OF THE FILE IS: 35 / 36 / &COMMAND NAME 37 / &ADDITIONAL COMMAND NAMES(IF ANY) 38 / TEXT OF HELP INFO 39 / &NEXT COMMAND NAME 40 / TEXT OF NEXT HELP INFO 41 / ETC. 42 / 43 / NOTE: TOO SPEED UP PROCESSING A HASHING ALGORITHM IS USED 44 / WHICH REQUIRES THAT WHEN MULTIPLE COMMANDS REFERENCE A 45 / SINGLE SUBFILE, THE SUBFILE MUST APPEAR IN THE HELP FILE 46 / ALPHABETICALLY ACCORDING TO THE 1ST COMMAND STRING LETTER 47 / CLOSEST TO Z. 48 / THAT IS, SUBFILES MUST BE ARRANGED ALPHABETICALLY ACCORDING TO 49 / THE HIGHEST LETTERED 1ST CHARACTER OF THE COMMAND. 50 / 51 52 USR= 200 /ADDRESS OF USR 53 OS78= 7771 /ADDRESS OF WD WITH OS/78 FLAG BIT(4) (MH) 54 FETCH= 1 /FETCH A HANDLER 55 LOOKUP= 2 /LOOKUP A FILE NAME 56 ENTER= 3 /ENTER A FILE 57 CLOSE= 4 /CLOSE A FILE 58 DECODE= 5 /CALL THE COMMAND DECODER 59 HASH= 3 /HASH CODE SUBTRACTION FACTOR(MH) 60 61 *10 62 000010 0000 NAMPTR, 0 /POINTER TO CMD DECODER INPUT NAMES 63 000011 0000 XR1, 0 /RANDOM INDEX REGISTER 64 000012 0000 XR2, 0 /ANOTHER RANDOM INDEX REGISTER 65 66 *30 67 000030 0000 COUNT, 0 /RANDOM WORD COUNT FOR ANYTHING 68 000031 0000 CHAR, 0 /TEMPORARY PLACE TO PUT A CHARACTER 69 000032 0000 WILD, 0 /IF NONZERO, NAME HAS '*' OR '?' IN IT 70 000033 0000 WASHLP, 0 /NONZERO IF HELP WAS FOUND ON THIS WORD 71 000034 0000 NAME, ZBLOCK 6 /NAME HELP WAS REQUESTED ON 000035 0000 000036 0000 000037 0000 000040 0000 000041 0000 72 000042 0000 TXTNAM, ZBLOCK 10 /CURRENT SCRIPT FILE NAME BEING LOOKED AT 000043 0000 000044 0000 000045 0000 000046 0000 000047 0000 000050 0000 000051 0000 73 000052 0000 NAMCNT, 0 /NUMBER OF NAMES IN THE COMMAND DECODER AREA 74 000053 0000 BLKCNT, 0 /NUMBER OF AVAILABLE BLOCKS ON OUTPUT 75 000054 0000 OUTADR, 0 /ADDRESS OF OUTPUT HANDLER 76 000055 0000 LINCNT, 0 /COUNT OF NUMBER OF NAMES ON '*' OR 'HELP' LINE 77 000056 7773 LINMAX, -5 /MAXIMUN NUMBER OF NAMES/LINE ON '*' OR 'HELP' LINE 78 000057 0000 FILNAM, ZBLOCK 4 /OUTPUT FILE NAME 000060 0000 000061 0000 000062 0000 79 000063 0000 WDCTR, 0 /WORD COUNTER IN INPUT BLOCK 80 000064 0000 CHTEM, 0 /TEMPORARY SPOT FOR CHARACTER IN 2/3 UNPACK 81 000065 0000 DEVHND, 0 /OUTPUT DEVICE HANDLER ADDRESS 82 000066 0000 CHPTR, 0 /BUFFER POINTER FOR READING CHARACTERS 83 000067 0000 TEMP, 0 /TEMP STORE 84 85 / MAIN LOOP OF PROGRAM 86 STADR=200 87 *STADR 88 000200 7610 START, SKP CLA /NORMAL ENTRY POINT 89 000201 5207 JMP START1 /CHAINED ENTRY (CMD DECODE DONE BY CCL) 90 000202 6212 CIF 10 /SEE WHAT TO DO 91 000203 4777 JMS I (USR 92 000204 0005 DECODE 93 000205 5200 5200 94 000206 0000 0 95 000207 4776 START1, JMS I (INIT /DO ALL INITIALIZATION AND SETUP 96 000210 4775 MAINLP, JMS I (NXTNAM /GET NEXT NAME FROM COMMAND DECODER AREA 97 000211 5774 JMP I (EXIT /NO NAMES LEFT 98 000212 4773 JMS I (RESET /RESET THE INPUT FILE POINTERS TO THE BEGINNING 99 000213 1034 TAD NAME /CHECK FOR '*' OR 'HELP" NAME INDICATING LIST OF HELPS 100 000214 1372 TAD (-"* 101 000215 7650 SNA!CLA 102 000216 5303 JMP HELPLS /NAME BEGAN WITH '*' 103 000217 1034 TAD NAME /NOT '*' LOOK FOR HELP (MH) 104 000220 1371 TAD (-"H 105 000221 7640 SZA!CLA 106 000222 5257 JMP MAIN1 /NO 'HELP' 107 000223 1035 TAD NAME+1 108 000224 1370 TAD (-"E 109 000225 7640 SZA!CLA 110 000226 5257 JMP MAIN1 111 000227 1036 TAD NAME+2 112 000230 1367 TAD (-"L 113 000231 7640 SZA!CLA 114 000232 5257 JMP MAIN1 115 000233 1037 TAD NAME+3 116 000234 1366 TAD (-"P 117 000235 7650 SNA!CLA 118 000236 5303 JMP HELPLS /WAS 'HELP" GO PRINT LIST (MH) 119 000237 1034 TAD NAME /IS 1ST CHAR A "?"?(MH) 120 000240 1365 TAD (-"? /(MH) 121 000241 7650 SNA!CLA /(MH) 122 000242 5257 JMP MAIN1 /YES -- DON'T TRY TO HASH FILE (MH) 123 000243 1034 TAD NAME /NO -- HASH START BLK OF FILE BY (MH) 124 000244 0364 AND (77 /MAKING 1ST CHAR OF NAME SIXBIT (MH) 125 000245 3067 DCA TEMP /MULTIPLY BY 1.5 (MH) 126 000246 1034 TAD NAME /THEN SUBTRACT "HASH"(3) (MH) 127 000247 0364 AND (77 /(MH) 128 000250 7110 CLL!RAR /(MH) 129 000251 1067 TAD TEMP /(MH) 130 000252 1363 TAD (-HASH /(MH) 131 000253 7510 SPA /(MH) 132 000254 7200 CLA /IF RESULT IF MINUS, SET TO ZERO (MH) 133 000255 1762 TAD I (BLK /ADD REAL START BLK OF FILE (MH) 134 000256 3762 DCA I (BLK /REPLACE NEW BLOCK(MH) 135 000257 4761 MAIN1, JMS I (FINDNM /GET A NAME FROM THE SCRIPT FILE 136 000260 5270 JMP NOHELP /HIT THE END OF THE FILE INSTEAD OF NAME 137 000261 4760 JMS I (COMPAR /COMPARE THIS NAME WITH THE ONE HE HAD 138 000262 5257 JMP MAIN1 /NOT A MATCH, TRY NEXT ONE 139 000263 4757 JMS I (PRINT /PRINT THE HELP INFORMATION FOR THAT NAME 140 000264 1032 TAD WILD /IF A WILD CARD TYPE NAME (I.E. '?') THEN 141 000265 7640 SZA CLA / THEN KEEP SEARCHING PAST 1ST MATCH SINCE THERE 142 000266 5257 JMP MAIN1 / MAY BE MORE. 143 000267 5210 JMP MAINLP /NOT A WILD CARD, GET NEXT CMD DECODER NAME 144 145 / HIT THE END OF THE SCRIPT FILE 146 / IF DOING A WILD CARD NAME, SOME HJELP MAY HAVE ALREADY BEEN PRINTED. IF 147 / NOT, PRINT AN ERROR MESSAGE ON THE TELETYPE (OR WHATEVER) 148 000270 1033 NOHELP, TAD WASHLP /SEE IF HELP WAS ADMINISTERED 149 000271 7640 SZA CLA 150 000272 5210 JMP MAINLP /YES IT WAS, TRY NEXT NAME ON LIST 151 000273 4756 JMS I (TYPE /TYPE THE ERROR MESSAGE ON THE TTY 152 000274 2152 SORRY-1 153 000275 3042 DCA TXTNAM /PUT ON ZERO TERMINATER 154 000276 4756 JMS I (TYPE 155 000277 0033 NAME-1 /TYPE WHAT HELP MISSED 156 000300 4756 JMS I (TYPE 157 000301 2145 CRLF-1 /TYPE CARR RETURN, LINE FEED 158 000302 5210 JMP MAINLP /NOW CONTINUE ON WITH IT 159 160 161 / IF A '*' OR 'HELP' WAS TYPED AS HELP NAME, THEN PRINT A LISTING 162 / OF ALL THE INFO IN THE HELP FILE FOR THE USER TO PICK FROM. 163 000303 4577 HELPLS, JMS I [OUTSTR /PRINT THE HEADING MESSAGE 164 000304 2043 AVAIL-1 165 000305 1056 TAD LINMAX /MAX NO. NAMES PER LINE 166 000306 3055 DCA LINCNT /INITIAL COUNT OF NAMES PER LINE 167 000307 4761 HELP1, JMS I (FINDNM /GET NEXT NAME 168 000310 5313 JMP HELP2 /AT END OF FILE 169 000311 4755 JMS I (NAMLST /PRINT THE NAME 170 000312 5307 JMP HELP1 171 000313 1055 HELP2, TAD LINCNT /CHECK IF LAST CHAR WAS CRLF 172 000314 7650 SNA!CLA 173 000315 5210 JMP MAINLP /IT WAS, DON'T DO ANOTHER 174 000316 4577 JMS I [OUTSTR 175 000317 2145 CRLF-1 176 000320 5210 JMP MAINLP 177 000355 1014 PAGE 000356 1000 000357 0716 000360 0600 000361 0425 000362 1245 000363 7775 000364 0077 000365 7501 000366 7460 000367 7464 000370 7473 000371 7470 000372 7526 000373 1600 000374 0400 000375 0631 000376 1400 000377 0200 178 179 / CLOSE ALL FILES AND RETURN TO MONITOR 180 / 181 000400 1377 EXIT, TAD (32 /WRITE AN AND OF FILE TO THE OUTPUT 182 000401 4576 JMS I [PCH 183 000402 1376 TAD (-600 /CLOSE FILE BY WRITING 600(8) NULLS 184 000403 3030 DCA COUNT 185 000404 4576 JMS I [PCH /WRITE IT 186 000405 2030 ISZ COUNT 187 000406 5204 JMP .-2 188 000407 1575 TAD I [BLKSRT /COMPUTE ACTUAL FILE LENGTH FOR CLOSE 189 000410 7041 CIA 190 000411 1574 TAD I [OUTBLK /CURRENT BLOCK NUMBER 191 000412 7001 IAC 192 000413 3222 DCA OLEN 193 000414 6213 CIF CDF 10 194 000415 1573 TAD I [7600 195 000416 6201 CDF 0 196 000417 4775 JMS I (USR /CLOSE THE FILE 197 000420 0004 CLOSE 198 000421 0057 FILNAM 199 000422 0000 OLEN, 0 /THE LENGTH 200 000423 7000 NOP /ERROR ON CLOSE... CAN'T HAPPEN(MH) 201 000424 5774 JMP I (7605 /RETURN TO OS/8 202 203 / SEARCH FOR A & IN THE FILE 204 / THIS IS THE START OF SOME HELP INFO FOR A SUBJECT WHICH IS NAMED AFTER 205 / THE &. COPY THE NAME INTO 'TXTNAM' SO COMPARES CAN BE DONE LATER. 206 / SKIP IF THE END OF FILE ISN'T FOUND ON THE WAY. 207 000425 0000 FINDNM, 0 208 000426 3042 DCA TXTNAM /CLEAR THE NAME OUT 209 000427 3043 DCA TXTNAM+1 210 000430 3044 DCA TXTNAM+2 211 000431 3045 DCA TXTNAM+3 212 000432 3046 DCA TXTNAM+4 213 000433 3047 DCA TXTNAM+5 214 000434 3050 DCA TXTNAM+6 215 000435 4572 FIND1, JMS I [GCH /LOOK FOR A & IN THE FILE 216 000436 1373 TAD (-232 /CHECK FOR END OF FILE 217 000437 7450 SNA 218 000440 5625 JMP I FINDNM /RETURN IF FOUND 219 000441 1372 TAD (232-212 /CHECK FOR LINE FEED 220 000442 7640 SZA CLA 221 000443 5235 JMP FIND1 /NOT IT 222 000444 4572 FIND5, JMS I [GCH /TRY FOR THE & NOW 223 000445 1371 TAD (-"& 224 000446 7650 SNA CLA 225 000447 5254 JMP FIND2 /FOUND A LF,& 226 000450 1370 TAD ("&-232 /MAKE SURE THIS ISNT THE END OF FILE 227 000451 7650 SNA CLA 228 000452 5625 JMP I FINDNM /END OF FILE FOUND, RETURN 229 000453 5235 JMP FIND1 /KEEP LOOKING FOR NAME 230 000454 1367 FIND2, TAD (TXTNAM-1 /MOVE THE NAME INTO 'TXTNAM' 231 000455 3011 DCA XR1 232 000456 1366 TAD (-7 /MAX OF 7 CHARACTERS 233 000457 3030 DCA COUNT 234 000460 4572 FIND3, JMS I [GCH /GET A NAME CHARACTER 235 000461 1365 TAD (-215 /CHECK IF THE END OF LINE 236 000462 7650 SNA CLA 237 000463 5270 JMP FIND4 /END OF LINE, THATS IT 238 000464 1031 TAD CHAR 239 000465 3411 DCA I XR1 /SAVE CHARACTER IN TXTNAM 240 000466 2030 ISZ COUNT 241 000467 5260 JMP FIND3 /IF MORE CHARACTERS LEFT 242 000470 2225 FIND4, ISZ FINDNM /BUMP RETURN ADDRESS FOR FOUND RETURN 243 000471 5625 JMP I FINDNM 244 000565 7563 PAGE 000566 7771 000567 0041 000570 0014 000571 7532 000572 0020 000573 7546 000574 7605 000575 0200 000576 7200 000577 0032 245 246 / COMPARE TWO STRINGS, ONE IN NAME AND ONE IN TXTNAM. CHECK FOR WILD 247 / CARD STUFF LATER WHEN THIS PART IS WORKING. 248 / SKIP IF NAMES ARE EQUAL 249 000600 0000 COMPAR, 0 250 000601 1171 TAD [NAME-1 /SET UP REGISTERS FOR COMPARE 251 000602 3011 DCA XR1 252 000603 1377 TAD (TXTNAM-1 253 000604 3012 DCA XR2 254 000605 1376 TAD (-6 255 000606 3030 DCA COUNT 256 000607 1411 COMP1, TAD I XR1 /GET A CHARACTER AND COMPARE WITH ONE FROM 257 000610 3031 DCA CHAR 258 000611 1031 TAD CHAR 259 000612 1375 TAD (-"? /WILDCARD 260 000613 7640 SZA CLA 261 000614 5220 JMP COMP3 /NO WILDCARD 262 000615 2012 ISZ XR2 263 000616 2032 ISZ WILD 264 000617 5225 JMP COMP2 265 000620 1031 COMP3, TAD CHAR 266 000621 7041 CIA / THE OTHER STRING 267 000622 1412 TAD I XR2 268 000623 7640 SZA CLA 269 000624 5600 JMP I COMPAR /NO MATCH, NORMAL RETURN 270 000625 2030 COMP2, ISZ COUNT 271 000626 5207 JMP COMP1 272 000627 2200 ISZ COMPAR /EQUAL RETURN IS RETRN ADDR+1 273 000630 5600 JMP I COMPAR 274 275 / GET THE NEXT NAME FROM THE COMMAND DECODER AREA 276 / STOP ON EITHER A ZERO OR THE NAME GOING TO ZERO 277 000631 0000 NXTNAM, 0 278 000632 2052 ISZ NAMCNT /COUNT NAMES, ONLY 5 IN THE AREA 279 000633 7410 SKP 280 000634 5631 JMP I NXTNAM /RETURN, NO MORE NAMES 281 000635 7346 CLA CLL CMA RTL /NUMBER OF WORDS OF NAME(-3) 282 000636 3030 DCA COUNT 283 000637 1171 TAD [NAME-1 284 000640 3011 DCA XR1 285 000641 6211 CDF 10 286 000642 1410 TAD I NAMPTR /GET 1ST CHARACTER OF NAME 287 000643 6201 CDF 0 288 000644 7450 SNA 289 000645 5273 JMP NXTN3 /MAYBE OUT OF NAMES(MH) 290 000646 3031 NXTN1, DCA CHAR /SAVE THE WORD 291 000647 1031 TAD CHAR 292 000650 7012 RTR 293 000651 7012 RTR 294 000652 7012 RTR /ISOLATE HIGH 6 BITS 295 000653 4306 JMS SIXTO8 296 000654 3411 DCA I XR1 /PUT IN NAME BUFFER 297 000655 1031 TAD CHAR /NOW DO OTHER HALF 298 000656 4306 JMS SIXTO8 299 000657 3411 DCA I XR1 /2ND CHARACTER OF WORD 300 000660 2030 ISZ COUNT 301 000661 7410 SKP 302 000662 5267 JMP NXTN2 /NO MORE CHARACTERS IN NAME 303 000663 6211 CDF 10 304 000664 1410 TAD I NAMPTR /LOOP IS STRANGE (SHOULD USE DEVICE WORD FOR CHECK) 305 000665 6201 CDF 0 306 000666 5246 JMP NXTN1 307 000667 2010 NXTN2, ISZ NAMPTR /BUMP POINTER TO NEXT NAME IN AREA 308 000670 2010 ISZ NAMPTR 309 000671 2231 ISZ NXTNAM /BUMP RETURN ADDRESS FOR FOUND NAME 310 000672 5631 JMP I NXTNAM 311 000673 1052 NXTN3, TAD NAMCNT /CHECK FOR "HELP" OR "TTY:<"(MH) 312 000674 1374 TAD (4 /IF 1ST TRY AT A NAME THEN NULL COMMAND WAS INPUT(MH) 313 000675 7640 SZA!CLA 314 000676 5631 JMP I NXTNAM /WASN'T NULL -- RETURN, END OF NAMES 315 000677 3034 DCA NAME /WAS NULL -- CLEAR OUT NAME BUFFER 316 000700 3035 DCA NAME+1 317 000701 3036 DCA NAME+2 318 000702 3037 DCA NAME+3 319 000703 3040 DCA NAME+4 320 000704 3041 DCA NAME+5 321 000705 5267 JMP NXTN2 /PREPARE TO RETURN(MH) 322 323 000706 0000 SIXTO8, 0 /CONVERT 6BIT TO 8BIT 324 000707 0373 AND (77 325 000710 7450 SNA /SNA IF NOT A NULL 326 000711 5706 JMP I SIXTO8 /ELSE RETURN 8BIT NULL 327 000712 1372 TAD (240 328 000713 0373 AND (77 329 000714 1372 TAD (240 330 000715 5706 JMP I SIXTO8 331 332 / PRINT ALL THE STUFF BETWEEN LINES OF THE OUTPUT DEVICE 333 / THIS CONTINUES UNTIL A & IS SEEN OR AND OF FILE IS READ 334 000716 0000 PRINT, 0 335 000717 2033 ISZ WASHLP /SET FLAG SAYING HE WAS HELPED 336 000720 4572 PRINT3, JMS I [GCH /FIND 1ST LF WITHOUT FOLLOWING &, THEN PRINT(MH) 337 000721 1371 TAD (-212 /WAS CHAR LF?(MH) 338 000722 7640 SZA!CLA /(MH) 339 000723 5320 JMP PRINT3 /NO -- READ NEXT CHAR(MH) 340 000724 4572 JMS I [GCH /YES -- LOOK FOR &(MH) 341 000725 1370 TAD (-"& /(MH) 342 000726 7650 SNA!CLA /(MH) 343 000727 5320 JMP PRINT3 /IT WAS & SO CONTINUE(MH) 344 000730 4767 JMS I (OUTSTR /IT WASN'T & SO BEGIN PRINTING(MH) 345 000731 2145 CRLF-1 346 000732 1031 TAD CHAR /(MH) 347 000733 7410 SKP /(MH) 348 000734 4572 PRINT1, JMS I [GCH /GET A CHARACTER 349 000735 4576 JMS I [PCH /PRINT THE CHARACTER 350 000736 1031 TAD CHAR /CHECK FOR 351 000737 1371 TAD (-212 352 000740 7640 SZA CLA 353 000741 5334 JMP PRINT1 354 000742 4572 JMS I [GCH /TRY FOR EITHER & OR END OF FILE OR FF 355 000743 1370 TAD (-"& /CHECK FOR A & 356 000744 7450 SNA 357 000745 5716 JMP I PRINT /STOP ON & FOUND 358 000746 1366 TAD (+32 /CHECK FOR ("&-" (MH) 359 000747 7450 SNA /(MH) 360 000750 5716 JMP I PRINT /(MH) 361 000751 1365 TAD (-16 /-+ (MH) 362 000752 7450 SNA 363 000753 5716 JMP I PRINT /RETURN IF END OF FILE 364 000754 1364 TAD (232-"@ 365 000755 7650 SNA CLA 366 000756 5334 JMP PRINT1 /SKIP "@" IF 1ST CHAR ON LINE 367 000757 1031 TAD CHAR /GET THE CHARACTER BACK TO PRINT 368 000760 4576 JMS I [PCH /PRINT IT 369 000761 5334 JMP PRINT1 370 000764 7732 PAGE 000765 7762 000766 0032 000767 1036 000770 7532 000771 7566 000772 0240 000773 0077 000774 0004 000775 7501 000776 7772 000777 0041 371 / TYPE A MESSAGE ON THE TELETYPE 372 / THE MESSAGE IS ONE CHARACTER PER WORD, TERMINATED WITH A ZERO 373 001000 0000 TYPE, 0 374 001001 1600 TAD I TYPE /GET THE MESSAGE ADDRESS 375 001002 2200 ISZ TYPE /BUMP RETURN ADDRESS 376 001003 3011 DCA XR1 377 001004 1411 TYPE1, TAD I XR1 /GET A CHARACTER 378 001005 7450 SNA 379 001006 5600 JMP I TYPE /END OF THE MESSAGE 380 001007 6046 TLS /PRINT THE CHARACTER 381 001010 6041 TYPE2, TSF 382 001011 5210 JMP TYPE2 383 001012 7200 CLA 384 001013 5204 JMP TYPE1 /LOOP 385 386 387 /PRINT THE NEXT NAME ON THE OUTPUT DEVICE AND CHECK TO SEE IF 388 / A CRLF IS NEEDED. EACH NAME IS TERMINATED WITH A TAB CHAR 389 001014 0000 NAMLST, 0 390 001015 1042 TAD TXTNAM /CHECK FOR NULL NAME (MH) 391 001016 7640 SZA!CLA /(MH) 392 001017 5223 JMP NAMLS1 /NOT NULL NAME (MH) 393 001020 4236 JMS OUTSTR /WAS NULL -- PRINT "" (MH) 394 001021 2034 NULNAM-1 /(MH) 395 001022 5225 JMP NAMLS2 /PROCEED (MH) 396 001023 4236 NAMLS1, JMS OUTSTR /PRINT THE NAME ON THE DEVICE 397 001024 0041 TXTNAM-1 398 001025 4236 NAMLS2, JMS OUTSTR /PRINT A TAB AFTER NAME 399 001026 2150 TAB-1 400 001027 2055 ISZ LINCNT /BUMP NUMBER PRINTED SO FAR 401 001030 5614 JMP I NAMLST /NO YET, JUST RETURN 402 001031 1056 TAD LINMAX /RESET TO MAX NUMBER OF NAMES PER LINE 403 001032 3055 DCA LINCNT 404 001033 4236 JMS OUTSTR /TYPE CRLF 405 001034 2145 CRLF-1 406 001035 5614 JMP I NAMLST /NOW RETURN 407 408 409 / PRINT A STRING ON THE OUTPUT DEVICE BY STUFFING THE CHARACTERS 410 / IN THE OUTPUT FILE. THE ADDRESS-1 IS FOLLOWING THE JMS 411 001036 0000 OUTSTR, 0 412 001037 1636 TAD I OUTSTR /GET THE ADDRESS 413 001040 2236 ISZ OUTSTR 414 001041 3011 DCA XR1 /POINTER TO NAME 415 001042 1411 OUTS1, TAD I XR1 /GET A CHARACTER 416 001043 7450 SNA 417 001044 5636 JMP I OUTSTR /RETURN IF DONE 418 001045 4576 JMS I [PCH /PRINT THE CHARACTER 419 001046 5242 JMP OUTS1 420 421 PAGE 422 / GET A CHARACTER FROM THE INPUT FILE 423 001200 0000 GCH, 0 424 001201 1031 TAD CHAR /RETURN A EOF IF THE LAST WAS EOF 425 001202 1377 TAD (-232 426 001203 7640 SZA CLA 427 001204 5607 JMP I GIVCH /NOT EOF, GET NEXT CHARACTER 428 001205 1376 TAD (232 /GET END OF FILE 429 001206 5600 JMP I GCH 430 431 001207 1214 GIVCH, INITBF /INITIALLY SET UP BUFFERS 432 001210 0375 AND (377 /MASK THE CHARACTER 433 001211 3031 DCA CHAR /SAVE CHARACTER 434 001212 1031 TAD CHAR 435 001213 5600 JMP I GCH /RETURN 436 437 001214 1374 INITBF, TAD (-2000 /SET WORD COUNT FOR BLOCK(MH) 438 001215 3063 DCA WDCTR 439 001216 1244 TAD BUFAD 440 001217 3066 DCA CHPTR /CHARACTER POINTER FOR BUFFER 441 001220 1773 TAD I (BLKBGN /FIND OUT IF DATA TRANSFER WILL(MH) 442 001221 7041 CMA!IAC /PASS END OF FILE, IF SO REDUCE(MH) 443 001222 1772 TAD I (FSIZE /SIZE OF TRANSFER.(MH) 444 001223 3067 DCA TEMP /SAVE -ST. BLK.-FILE SIZE(MH) 445 001224 1243 TAD RDFCT /GET TRANSFER LENGTH IN BLKS(MH) 446 001225 7106 CLL!RTL /(MH) 447 001226 7006 RTL /(MH) 448 001227 7006 RTL /(MH) 449 001230 1245 TAD BLK /ADD CURRENT BLK(MH) 450 001231 1067 TAD TEMP /SUBTRACT (ST. BLK OF FILE + SIZE)(MH) 451 001232 7550 SPA!SNA /(MH) 452 001233 5242 JMP INITOK /PROCEED -- DON"T CHG. TRANSFER LEN(MH) 453 001234 7112 CLL!RTR /CHANGE TRANSFER LENGTH SO IT WON'T(MH) 454 001235 7012 RTR /PASS END OF FILE(MH) 455 001236 7012 RTR /(MH) 456 001237 7041 CMA!IAC /(MH) 457 001240 1243 TAD RDFCT /(MH) 458 001241 3243 DCA RDFCT /ENTER THIS INTO FUNCTION WD.(MH) 459 001242 4465 INITOK, JMS I DEVHND /CALL THE HANDLER TO READ A BLOCK 460 001243 2000 RDFCT, 2000 /8 BLOCKS(MH) 461 001244 3400 BUFAD, BUFFER 462 001245 0000 BLK, 0 /BLOCK NUMBER 463 001246 5771 JMP RDERR /ERROR RETURN(MH) 464 001247 1466 NXTCH, TAD I CHPTR 465 001250 4207 JMS GIVCH 466 001251 1370 TAD (7400 467 001252 0466 AND I CHPTR /GET THE HIGH ORDER PART 468 001253 3064 DCA CHTEM 469 001254 2066 ISZ CHPTR 470 001255 1466 TAD I CHPTR 471 001256 4207 JMS GIVCH 472 001257 1466 TAD I CHPTR 473 001260 0370 AND (7400 474 001261 7112 CLL RTR 475 001262 7012 RTR 476 001263 1064 TAD CHTEM /GET OTHER HALF 477 001264 7012 RTR 478 001265 7012 RTR 479 001266 4207 JMS GIVCH /GIVE THIRD CHARACTER OF GROUP 480 001267 2066 ISZ CHPTR 481 001270 2063 ISZ WDCTR /BUMP WORD COUNTER 482 001271 5247 JMP NXTCH /LOOP 483 001272 1243 TAD RDFCT /INCREMENT BLOCK NUMBER(MH) 484 001273 7106 CLL!RTL /(MH) 485 001274 7006 RTL /(MH) 486 001275 7006 RTL /(MH) 487 001276 1245 TAD BLK /(MH) 488 001277 3245 DCA BLK /ENTER INTO FUNCTION WD(MH) 489 001300 5214 JMP INITBF /READ IT IN 490 491 001370 7400 PAGE 001371 1706 001372 1525 001373 1524 001374 6000 001375 0377 001376 0232 001377 7546 492 / ROUTINE TO INITIALIZE ALL OF THIS STUFF 493 / POINTERS GET SET AND THE FILES OPENED. 494 001400 0000 INIT, 0 495 001401 1377 TAD (OUTHSP+1 496 001402 3233 DCA OUTHND 497 001403 1377 TAD (OUTHSP+1 /HANDLER ADDRESS 498 001404 3215 DCA OUTHN1 499 001405 6211 CDF 10 500 001406 1573 TAD I [7600 /GET OUTPUT DEVICE 501 001407 7450 SNA 502 001410 5221 JMP TTYDFL 503 001411 6212 CIF 10 504 001412 6201 CDF 0 505 001413 4776 JMS I (USR /FETCH THE HANDLER 506 001414 0001 FETCH 507 001415 2401 OUTHN1, OUTHSP+1 508 001416 5775 JMP FETERR /ERROR RETURN(MH) 509 001417 1215 TAD OUTHN1 /GET HANDLER ADDRESS 510 001420 5242 JMP COMMON /COMMON CODE FOR BOTH FETCHES 511 512 / DEFAULT TO THE TTY WHEN NO OUTPUT DEVICE IS SPECIFIED 513 001421 1340 TTYDFL, TAD TTYNM /SET UP THE DEVICE NAME 514 001422 3231 DCA TTY 515 001423 1341 TAD TTYNM+1 516 001424 3232 DCA TTY+1 517 001425 6212 CIF 10 /FETCH THE OUTPUT HANDLERS 518 001426 6201 CDF 0 519 001427 4776 JMS I (USR 520 001430 0001 FETCH 521 001431 2424 TTY, DEVICE TTY /DEFAULT TO THE TTY 001432 3100 522 001433 2401 OUTHND, OUTHSP+1 /PLACE TO PUT THE HANDLER 523 001434 5335 JMP NOTTY /IF TELETYPE HANDLER DOESNT EXIST 524 001435 1232 TAD TTY+1 /SET UP DEVICE NUMBER FOR COMMON CODE 525 001436 6211 CDF 10 526 001437 3573 DCA I [7600 527 001440 6201 CDF 0 528 001441 1233 TAD OUTHND /GET HANDLER ENTRY POINT 529 001442 3054 COMMON, DCA OUTADR 530 001443 1374 TAD (OUTBUF 531 001444 3773 DCA I (OCPTR 532 001445 1372 TAD (-200 /OUTPUT BUFFER COUNT 533 001446 3771 DCA I (OUWDCT 534 001447 1372 TAD (7600 535 001450 3011 DCA XR1 /COPY NAME FROM FIELD 1 CMD DEC AREA 536 001451 6211 CDF 10 537 001452 1411 TAD I XR1 538 001453 7450 SNA 539 001454 1370 TAD (1014 /HL.LS IS DEFAULT NAME IF NONE THERE 540 001455 3057 DCA FILNAM 541 001456 1411 TAD I XR1 542 001457 3060 DCA FILNAM+1 543 001460 1411 TAD I XR1 544 001461 3061 DCA FILNAM+2 545 001462 1411 TAD I XR1 /COPY EXTENSION 546 001463 7450 SNA 547 001464 1367 TAD (1423 /USE .LS AS DEFAULT EXTENSION 548 001465 3062 DCA FILNAM+3 549 001466 6201 CDF 0 550 001467 1366 TAD (FILNAM /INITIALIZE THE ENTER 551 001470 3276 DCA BLKSRT 552 001471 6213 CDF CIF 10 553 001472 1772 TAD I (7600 554 001473 6201 CDF 0 555 001474 4776 JMS I (USR /DO ENTER WITH DEVICE NO IN AC 556 001475 0003 ENTER 557 001476 0000 BLKSRT, 0 /STARTING BLOCK 558 001477 0000 FILLNG, 0 /LENGTH OF FILE 559 001500 5342 JMP NOROOM /DEVICE FULL 560 001501 1276 TAD BLKSRT 561 001502 3574 DCA I [OUTBLK /INITIAL OUTPUT BLOCK 562 001503 1277 TAD FILLNG 563 001504 3053 DCA BLKCNT /NEGATIVE FILE LENGTH IN BLOCKS 564 565 001505 1365 TAD (7605 /SET NXTNAM POINTER TO THE NEXT NAME 566 001506 3010 DCA NAMPTR 567 001507 1364 TAD (-5 568 001510 3052 DCA NAMCNT /NUMBER OF CHARACTERS IN NAME 569 001511 6212 CIF 10 570 001512 4776 JMS I (USR /FETCH THE SYSTEM DEVICE HANDLER 571 001513 0001 FETCH / TO GET THE DEVICE NUMBER TO LOOKUP HELP FILE 572 001514 2331 DEVNAM, DEVICE SYS /(MH) 001515 2300 573 001516 0000 DEVH, 0 /HANDLER ADDRESS FOR READING 574 001517 5775 JMP FETERR /FETCH ERROR(MH) 575 001520 1315 TAD DEVNAM+1 /GET THE SYS DEVICE NUMBER 576 001521 6212 CIF 10 /LOOKUP HELP FILE WITH IT 577 001522 4776 JMS I (USR 578 001523 0002 LOOKUP 579 001524 2206 BLKBGN, HELP8 /STARTING BLOCK OF THE FILE(MH) 580 001525 0000 FSIZE, 0 /-NUMBER OF BLOCKS(MH) 581 001526 5332 JMP NOSCRP /THE SCRIPT FILE (HELP FILE) ISNT THERE 582 001527 1316 TAD DEVH 583 001530 3065 DCA DEVHND /COPY TO PG 0 FOR ADDRESSABILITY 584 001531 5600 JMP I INIT /THATS IT 585 586 001532 4763 NOSCRP, JMS I (TYPE /TYPE MESSAGE SAYING HELP FILE NOT THERE 587 001533 2015 NOSC-1 588 001534 5765 JMP I (7605 /RETURN TO NONITOR 589 001535 4763 NOTTY, JMS I (TYPE 590 001536 1777 TTYMIS-1 591 001537 5765 JMP I (7605 592 001540 2424 TTYNM, DEVICE TTY 001541 3100 593 001542 4570 NOROOM, JMS I [TYPE /DEVICE FILL 594 001543 2167 DEVFUL-1 595 001544 5765 JMP I (7605 /RETURN TO MONITOR 596 001563 1000 PAGE 001564 7773 001565 7605 001566 0057 001567 1423 001570 1014 001571 1652 001572 7600 001573 1653 001574 3000 001575 1703 001576 0200 001577 2401 597 598 / RESET THE INPUT FILE TO THE FIRST BLOCK AND RESET ALL THE CHARACTER 599 / UNPACKING STUFF TO THE 1ST CHARACTER OF THE FILE 600 001600 0000 RESET, 0 601 001601 1777 TAD I (BUFFER /RESET BUFFER POINTER TO START 602 001602 3066 DCA CHPTR 603 001603 3033 DCA WASHLP /SET NOT YET HELPED 604 001604 3031 DCA CHAR /SET TO STOP EOF STUFF 605 001605 1376 TAD (-2000 /RESET WORD COUNT FOR 8 BLOCKS(MH) 606 001606 3063 DCA WDCTR 607 001607 1775 TAD I (BLKBGN /RESET STARTING BLOCK OF FILE 608 001610 3774 DCA I (BLK 609 001611 1373 TAD (2000 /RESET TRANSFER LEN FOR 8 BLOCKS(MH) 610 001612 3772 DCA I (RDFCT /(MH) 611 001613 1371 TAD (INITBF /SET UP TO REREAD BLOCK 0 OF FILE 612 001614 3770 DCA I (GIVCH 613 001615 5600 JMP I RESET 614 615 / PUT A CHARACTER OUT TO THE OUTPUT DEVICE 616 / THIS IS A COOROUTINE TYPE GUY JUST LIKE THE INPUT HANDLER 617 618 001616 0000 PCH, 0 619 001617 5650 JMP I RPOS /DISPATCH 620 621 001620 3653 RPOS1, DCA I OCPTR /PUT 1ST CHARACTER IN BUFFER 622 001621 4250 JMS RPOS 623 624 001622 3254 RPOS2, DCA HOLD /SAVE THE 2ND CHARACTER 625 001623 4250 JMS RPOS 626 627 001624 7006 RPOS3, RTL /PACK THE CHARACTERS 628 001625 7006 RTL 629 001626 3255 DCA HOLD2 630 001627 1255 TAD HOLD2 631 001630 0367 AND (7400 632 001631 1653 TAD I OCPTR 633 001632 3653 DCA I OCPTR /PART WAY DONE 634 001633 2253 ISZ OCPTR 635 001634 1255 TAD HOLD2 636 001635 7006 RTL 637 001636 7006 RTL 638 001637 0367 AND (7400 /NOW THE 2ND WORD 639 001640 1254 TAD HOLD 640 001641 3653 DCA I OCPTR 641 001642 2253 ISZ OCPTR /BUMP POINTER AGAIN 642 001643 2252 ISZ OUWDCT 643 001644 7410 SKP 644 001645 4256 JMS DUMP /IF AT THE END OF THE BUFFER 645 001646 4250 RPOS4, JMS RPOS 646 001647 5220 JMP RPOS1 647 001650 1620 RPOS, RPOS1 /INITIALLY SET TO THE 1ST CHARACTER 648 001651 5616 JMP I PCH /RETURN TO THE USER 649 650 001652 0000 OUWDCT, 0 /OUTPUT BUFFER WORD COUNTER 651 001653 0000 OCPTR, 0 /OUTPUT CHARACTER BUFFER POINTER 652 001654 0000 HOLD, 0 /TEMPORARY PLACE TO PUT A CHARACACTER 653 001655 0000 HOLD2, 0 /SAME AS ABOVE 654 655 / DUMP THE OUTPUT BUFFER TO THE OUTPUT FILE 656 657 001656 0000 DUMP, 0 658 001657 2053 ISZ BLKCNT /SEE IF ANY ROOM LEFT TO DUMP TO 659 001660 7410 SKP 660 001661 5275 JMP DUMPER /IF OUT OF ROOM 661 001662 4454 JMS I OUTADR /CALL THE HANDLER 662 001663 4200 4200 663 001664 3000 OUTBFA, OUTBUF /OUTPUT BUFFER ADDRESS 664 001665 0000 OUTBLK, 0 /OUTPUT BUFFER BLOCK NUMBER 665 001666 5300 JMP WRERR /WRITE ERROR(MH) 666 001667 1264 TAD OUTBFA /RESET INPUT POINTER 667 001670 3253 DCA OCPTR 668 001671 1366 TAD (-200 /RESET THE WORD COUNT 669 001672 3252 DCA OUWDCT 670 001673 2265 ISZ OUTBLK /BUMP OUTPUT BLOCK NUMBER 671 001674 5656 JMP I DUMP /RETURN 672 001675 4765 DUMPER, JMS I (TYPE /TYPE ERROR MESSAGE 673 001676 2167 DEVFUL-1 /FILE FULL ERROR 674 001677 5764 JMP I (7605 675 001700 4765 WRERR, JMS I (TYPE /WRITE ERROR (MH) 676 001701 1710 MWRERR-1 /(MH) 677 001702 5764 JMP I (7605 /(MH) 678 001703 4765 FETERR, JMS I (TYPE /FETCH ERROR (MH) 679 001704 1724 MFEERR-1 /(MH) 680 001705 5764 JMP I (7605 /(MH) 681 001706 4765 RDERR, JMS I (TYPE /(READ ERROR (MH) 682 001707 1740 MRDERR-1 /(MH) 683 001710 5764 JMP I (7605 /(MH) 684 001711 0327 MWRERR, "W; "R; "I; "T; "E; 240; "E; "R; "R; 215; 212; 0 001712 0322 001713 0311 001714 0324 001715 0305 001716 0240 001717 0305 001720 0322 001721 0322 001722 0215 001723 0212 001724 0000 685 001725 0306 MFEERR, "F; "E; "T; "C; "H; 240; "E; "R; "R; 215; 212; 0 001726 0305 001727 0324 001730 0303 001731 0310 001732 0240 001733 0305 001734 0322 001735 0322 001736 0215 001737 0212 001740 0000 686 001741 0322 MRDERR, "R; "E; "A; "D; 240; "E; "R; "R; 215; 212; 0 001742 0305 001743 0301 001744 0304 001745 0240 001746 0305 001747 0322 001750 0322 001751 0215 001752 0212 001753 0000 687 001764 7605 PAGE 001765 1000 001766 7600 001767 7400 001770 1207 001771 1214 001772 1243 001773 2000 001774 1245 001775 1524 001776 6000 001777 3400 688 689 002000 0316 TTYMIS, "N;"O;" ;"T;"T;"Y;" ;"H;"A;"N;"D;215;212;0 002001 0317 002002 0240 002003 0324 002004 0324 002005 0331 002006 0240 002007 0310 002010 0301 002011 0316 002012 0304 002013 0215 002014 0212 002015 0000 690 002016 0316 NOSC, "N;"O;" ;"H;"E;"L;"P; 240; "F; "I; "L; "E; 215;212;0 002017 0317 002020 0240 002021 0310 002022 0305 002023 0314 002024 0320 002025 0240 002026 0306 002027 0311 002030 0314 002031 0305 002032 0215 002033 0212 002034 0000 691 002035 0242 NULNAM, 242; "N; "O; "N; "E; 242; 0 002036 0316 002037 0317 002040 0316 002041 0305 002042 0242 002043 0000 692 002044 0211 AVAIL, " ; "H; "E; "L; "P; ".; "S; "V; 215; 212 002045 0310 002046 0305 002047 0314 002050 0320 002051 0256 002052 0323 002053 0326 002054 0215 002055 0212 693 002056 0240 240; 215; 212 002057 0215 002060 0212 694 002061 0303 "C; "A; "L; "L; "I; "N; "G; 240; "C; "O; "M; "M; "A; "N; "D; "S; ": 002062 0301 002063 0314 002064 0314 002065 0311 002066 0316 002067 0307 002070 0240 002071 0303 002072 0317 002073 0315 002074 0315 002075 0301 002076 0316 002077 0304 002100 0323 002101 0272 695 002102 0215 215; 212; ".; "H; "E; "L; "P; 240; "P; "A; "R; "A; "M; "E; "T; "E; "R 002103 0212 002104 0256 002105 0310 002106 0305 002107 0314 002110 0320 002111 0240 002112 0320 002113 0301 002114 0322 002115 0301 002116 0315 002117 0305 002120 0324 002121 0305 002122 0322 696 002123 0215 215; 212 002124 0212 697 002125 0240 240; 215; 212 002126 0215 002127 0212 698 002130 0320 "P; "A; "R; "A; "M; "E; "T; "E; "R; "S; ":; 215; 212; 0 002131 0301 002132 0322 002133 0301 002134 0315 002135 0305 002136 0324 002137 0305 002140 0322 002141 0323 002142 0272 002143 0215 002144 0212 002145 0000 699 002146 0215 CRLF, 215;212;0 002147 0212 002150 0000 700 002151 0211 TAB, 211;0 002152 0000 701 002153 0215 SORRY, 215;212;"N;"O;240;"H;"E;"L;"P;240;"-;240;0 002154 0212 002155 0316 002156 0317 002157 0240 002160 0310 002161 0305 002162 0314 002163 0320 002164 0240 002165 0255 002166 0240 002167 0000 702 002170 0304 DEVFUL, "D;"E;"V;"I;"C;"E;240;"F;"U;"L;"L;215;212;0 002171 0305 002172 0326 002173 0311 002174 0303 002175 0305 002176 0240 002177 0306 002200 0325 002201 0314 002202 0314 002203 0215 002204 0212 002205 0000 703 002206 1005 HELP8, FILENAME HELP.HL 002207 1420 002210 0000 002211 1014 704 002212 0201 VERS, 0201 /VERSION 2A (MH) 705 PAGE 706 002400 0000 OUTHSP, ZBLOCK 400 /OUTPUT HANDLER SPACE 002401 0000 002402 0000 002403 0000 002404 0000 002405 0000 002406 0000 002407 0000 002410 0000 002411 0000 002412 0000 002413 0000 002414 0000 002415 0000 002416 0000 002417 0000 002420 0000 002421 0000 002422 0000 002423 0000 002424 0000 002425 0000 002426 0000 002427 0000 002430 0000 002431 0000 002432 0000 002433 0000 002434 0000 002435 0000 002436 0000 002437 0000 002440 0000 002441 0000 002442 0000 002443 0000 002444 0000 002445 0000 002446 0000 002447 0000 002450 0000 002451 0000 002452 0000 002453 0000 002454 0000 002455 0000 002456 0000 002457 0000 002460 0000 002461 0000 002462 0000 002463 0000 002464 0000 002465 0000 002466 0000 002467 0000 002470 0000 002471 0000 002472 0000 002473 0000 002474 0000 002475 0000 002476 0000 002477 0000 002500 0000 002501 0000 002502 0000 002503 0000 002504 0000 002505 0000 002506 0000 002507 0000 002510 0000 002511 0000 002512 0000 002513 0000 002514 0000 002515 0000 002516 0000 002517 0000 002520 0000 002521 0000 002522 0000 002523 0000 002524 0000 002525 0000 002526 0000 002527 0000 002530 0000 002531 0000 002532 0000 002533 0000 002534 0000 002535 0000 002536 0000 002537 0000 002540 0000 002541 0000 002542 0000 002543 0000 002544 0000 002545 0000 002546 0000 002547 0000 002550 0000 002551 0000 002552 0000 002553 0000 002554 0000 002555 0000 002556 0000 002557 0000 002560 0000 002561 0000 002562 0000 002563 0000 002564 0000 002565 0000 002566 0000 002567 0000 002570 0000 002571 0000 002572 0000 002573 0000 002574 0000 002575 0000 002576 0000 002577 0000 002600 0000 002601 0000 002602 0000 002603 0000 002604 0000 002605 0000 002606 0000 002607 0000 002610 0000 002611 0000 002612 0000 002613 0000 002614 0000 002615 0000 002616 0000 002617 0000 002620 0000 002621 0000 002622 0000 002623 0000 002624 0000 002625 0000 002626 0000 002627 0000 002630 0000 002631 0000 002632 0000 002633 0000 002634 0000 002635 0000 002636 0000 002637 0000 002640 0000 002641 0000 002642 0000 002643 0000 002644 0000 002645 0000 002646 0000 002647 0000 002650 0000 002651 0000 002652 0000 002653 0000 002654 0000 002655 0000 002656 0000 002657 0000 002660 0000 002661 0000 002662 0000 002663 0000 002664 0000 002665 0000 002666 0000 002667 0000 002670 0000 002671 0000 002672 0000 002673 0000 002674 0000 002675 0000 002676 0000 002677 0000 002700 0000 002701 0000 002702 0000 002703 0000 002704 0000 002705 0000 002706 0000 002707 0000 002710 0000 002711 0000 002712 0000 002713 0000 002714 0000 002715 0000 002716 0000 002717 0000 002720 0000 002721 0000 002722 0000 002723 0000 002724 0000 002725 0000 002726 0000 002727 0000 002730 0000 002731 0000 002732 0000 002733 0000 002734 0000 002735 0000 002736 0000 002737 0000 002740 0000 002741 0000 002742 0000 002743 0000 002744 0000 002745 0000 002746 0000 002747 0000 002750 0000 002751 0000 002752 0000 002753 0000 002754 0000 002755 0000 002756 0000 002757 0000 002760 0000 002761 0000 002762 0000 002763 0000 002764 0000 002765 0000 002766 0000 002767 0000 002770 0000 002771 0000 002772 0000 002773 0000 002774 0000 002775 0000 002776 0000 002777 0000 707 003000 0000 OUTBUF, ZBLOCK 400 /OUTPUT BUFFER FOR LISTING 003001 0000 003002 0000 003003 0000 003004 0000 003005 0000 003006 0000 003007 0000 003010 0000 003011 0000 003012 0000 003013 0000 003014 0000 003015 0000 003016 0000 003017 0000 003020 0000 003021 0000 003022 0000 003023 0000 003024 0000 003025 0000 003026 0000 003027 0000 003030 0000 003031 0000 003032 0000 003033 0000 003034 0000 003035 0000 003036 0000 003037 0000 003040 0000 003041 0000 003042 0000 003043 0000 003044 0000 003045 0000 003046 0000 003047 0000 003050 0000 003051 0000 003052 0000 003053 0000 003054 0000 003055 0000 003056 0000 003057 0000 003060 0000 003061 0000 003062 0000 003063 0000 003064 0000 003065 0000 003066 0000 003067 0000 003070 0000 003071 0000 003072 0000 003073 0000 003074 0000 003075 0000 003076 0000 003077 0000 003100 0000 003101 0000 003102 0000 003103 0000 003104 0000 003105 0000 003106 0000 003107 0000 003110 0000 003111 0000 003112 0000 003113 0000 003114 0000 003115 0000 003116 0000 003117 0000 003120 0000 003121 0000 003122 0000 003123 0000 003124 0000 003125 0000 003126 0000 003127 0000 003130 0000 003131 0000 003132 0000 003133 0000 003134 0000 003135 0000 003136 0000 003137 0000 003140 0000 003141 0000 003142 0000 003143 0000 003144 0000 003145 0000 003146 0000 003147 0000 003150 0000 003151 0000 003152 0000 003153 0000 003154 0000 003155 0000 003156 0000 003157 0000 003160 0000 003161 0000 003162 0000 003163 0000 003164 0000 003165 0000 003166 0000 003167 0000 003170 0000 003171 0000 003172 0000 003173 0000 003174 0000 003175 0000 003176 0000 003177 0000 003200 0000 003201 0000 003202 0000 003203 0000 003204 0000 003205 0000 003206 0000 003207 0000 003210 0000 003211 0000 003212 0000 003213 0000 003214 0000 003215 0000 003216 0000 003217 0000 003220 0000 003221 0000 003222 0000 003223 0000 003224 0000 003225 0000 003226 0000 003227 0000 003230 0000 003231 0000 003232 0000 003233 0000 003234 0000 003235 0000 003236 0000 003237 0000 003240 0000 003241 0000 003242 0000 003243 0000 003244 0000 003245 0000 003246 0000 003247 0000 003250 0000 003251 0000 003252 0000 003253 0000 003254 0000 003255 0000 003256 0000 003257 0000 003260 0000 003261 0000 003262 0000 003263 0000 003264 0000 003265 0000 003266 0000 003267 0000 003270 0000 003271 0000 003272 0000 003273 0000 003274 0000 003275 0000 003276 0000 003277 0000 003300 0000 003301 0000 003302 0000 003303 0000 003304 0000 003305 0000 003306 0000 003307 0000 003310 0000 003311 0000 003312 0000 003313 0000 003314 0000 003315 0000 003316 0000 003317 0000 003320 0000 003321 0000 003322 0000 003323 0000 003324 0000 003325 0000 003326 0000 003327 0000 003330 0000 003331 0000 003332 0000 003333 0000 003334 0000 003335 0000 003336 0000 003337 0000 003340 0000 003341 0000 003342 0000 003343 0000 003344 0000 003345 0000 003346 0000 003347 0000 003350 0000 003351 0000 003352 0000 003353 0000 003354 0000 003355 0000 003356 0000 003357 0000 003360 0000 003361 0000 003362 0000 003363 0000 003364 0000 003365 0000 003366 0000 003367 0000 003370 0000 003371 0000 003372 0000 003373 0000 003374 0000 003375 0000 003376 0000 003377 0000 708 BUFFER=. /INPUT BUFFER FOR HELP FILE, 8 BLKS OR 4000 WDS (MH) 709 000170 1000 $ 000171 0033 000172 1200 000173 7600 000174 1665 000175 1476 000176 1616 000177 1036 AVAIL 2044 BLK 1245 BLKBGN 1524 BLKCNT 0053 BLKSRT 1476 BUFAD 1244 BUFFER 3400 CHAR 0031 CHPTR 0066 CHTEM 0064 CLOSE 0004 COMMON 1442 COMP1 0607 COMP2 0625 COMP3 0620 COMPAR 0600 COUNT 0030 CRLF 2146 DECODE 0005 DEVFUL 2170 DEVH 1516 DEVHND 0065 DEVNAM 1514 DUMP 1656 DUMPER 1675 ENTER 0003 EXIT 0400 FETCH 0001 FETERR 1703 FILLNG 1477 FILNAM 0057 FIND1 0435 FIND2 0454 FIND3 0460 FIND4 0470 FIND5 0444 unreferenced FINDNM 0425 FSIZE 1525 GCH 1200 GIVCH 1207 HASH 0003 HELP1 0307 HELP2 0313 HELP8 2206 HELPLS 0303 HOLD 1654 HOLD2 1655 INIT 1400 INITBF 1214 INITOK 1242 LINCNT 0055 LINMAX 0056 LOOKUP 0002 MAIN1 0257 MAINLP 0210 MFEERR 1725 MRDERR 1741 MWRERR 1711 NAMCNT 0052 NAME 0034 NAMLS1 1023 NAMLS2 1025 NAMLST 1014 NAMPTR 0010 NOHELP 0270 NOROOM 1542 NOSC 2016 NOSCRP 1532 NOTTY 1535 NULNAM 2035 NXTCH 1247 NXTN1 0646 NXTN2 0667 NXTN3 0673 NXTNAM 0631 OCPTR 1653 OLEN 0422 OS78 7771 unreferenced OUTADR 0054 OUTBFA 1664 OUTBLK 1665 OUTBUF 3000 OUTHN1 1415 OUTHND 1433 OUTHSP 2400 OUTS1 1042 OUTSTR 1036 OUWDCT 1652 PCH 1616 PRINT 0716 PRINT1 0734 PRINT3 0720 RDERR 1706 RDFCT 1243 RESET 1600 RPOS 1650 RPOS1 1620 RPOS2 1622 unreferenced RPOS3 1624 unreferenced RPOS4 1646 unreferenced SIXTO8 0706 SORRY 2153 STADR 0200 START 0200 unreferenced START1 0207 TAB 2151 TEMP 0067 TTY 1431 TTYDFL 1421 TTYMIS 2000 TTYNM 1540 TXTNAM 0042 TYPE 1000 TYPE1 1004 TYPE2 1010 USR 0200 VERS 2212 unreferenced WASHLP 0033 WDCTR 0063 WILD 0032 WRERR 1700 XR1 0011 XR2 0012