File: HELP50.LS of Disk: V50/Source/Source-Listing-PAL-1
(Source file text)
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 1
/OS/8 HELP PROGRAM V50
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DATAPLAN GMBH.
/DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR
/IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DATAPLAN'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DATAPLAN.
/
/DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
/OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DATAPLAN.
/
/
/
/
/
/
/
/
/
/
/
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 2
/GERMAN=1
/
/ VERSION #1 B. M. 1/1/77
/ VERSION #2A M. H. 4/22/77
/ VERSION #40A WVDM JUL-79
/ (CHANGE TAG VERS WHEN CHANGING VERSION NUMBERS)
/
/ THIS PROGRAM CAN BE CALLED DIRECTLY OR CHAINED TO BY CCL TO
/ PRINT INFORMATION ON RANDOM SUBJECTS THE USER ASKS ABOUT.
/
/ START ADDRESS:200 JSW:3401
/ CORE LIMITS:200-7377
/
/ THIS PROGRAM REQUIRES AN INPUT FILE TO RUN. FOR OS/8 THE FILE
/ SHOULD BE NAMED "HELP8.HL" FOR OS/78 THE NAME SHOULD BE "HELP78.HL".
/
/ THE FORMAT OF THE FILE IS:
/ <SP><CR><LF>
/ &COMMAND NAME
/ &ADDITIONAL COMMAND NAMES(IF ANY)
/ TEXT OF HELP INFO
/ &NEXT COMMAND NAME
/ TEXT OF NEXT HELP INFO
/ ETC.
/
/ NOTE: TOO SPEED UP PROCESSING A HASHING ALGORITHM IS USED
/ WHICH REQUIRES THAT WHEN MULTIPLE COMMANDS REFERENCE A
/ SINGLE SUBFILE, THE SUBFILE MUST APPEAR IN THE HELP FILE
/ ALPHABETICALLY ACCORDING TO THE 1ST COMMAND STRING LETTER
/ CLOSEST TO Z.
/ THAT IS, SUBFILES MUST BE ARRANGED ALPHABETICALLY ACCORDING TO
/ THE HIGHEST LETTERED 1ST CHARACTER OF THE COMMAND.
/
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 3
0265 VERSHI= "5
0260 VERSLO= "0
0301 PATCH= "A
0200 USR= 200 /ADDRESS OF USR
7771 OS78= 7771 /ADDRESS OF WD WITH OS/78 FLAG BIT(4) (MH)
0001 FETCH= 1 /FETCH A HANDLER
0002 LOOKUP= 2 /LOOKUP A FILE NAME
0003 ENTER= 3 /ENTER A FILE
0004 CLOSE= 4 /CLOSE A FILE
0005 DECODE= 5 /CALL THE COMMAND DECODER
0003 HASH= 3 /HASH CODE SUBTRACTION FACTOR(MH)
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 4
0001 *1
000001 6232 CIF 30
000002 5001 JMP 1 /FOR SYMBIONT
0010 *10
000010 0000 NAMPTR, 0 /POINTER TO CMD DECODER INPUT NAMES
000011 0000 XR1, 0 /RANDOM INDEX REGISTER
000012 0000 XR2, 0 /ANOTHER RANDOM INDEX REGISTER
0030 *30
000030 0000 COUNT, 0 /RANDOM WORD COUNT FOR ANYTHING
000031 0000 CHAR, 0 /TEMPORARY PLACE TO PUT A CHARACTER
000032 0000 WILD, 0 /IF NONZERO, NAME HAS '*' OR '?' IN IT
000033 0000 WASHLP, 0 /NONZERO IF HELP WAS FOUND ON THIS WORD
000034 0000 NAME, ZBLOCK 6 /NAME HELP WAS REQUESTED ON
000042 0000 TXTNAM, ZBLOCK 10 /CURRENT SCRIPT FILE NAME BEING LOOKED AT
000052 0000 NAMCNT, 0 /NUMBER OF NAMES IN THE COMMAND DECODER AREA
000053 0000 BLKCNT, 0 /NUMBER OF AVAILABLE BLOCKS ON OUTPUT
000054 0000 OUTADR, 0 /ADDRESS OF OUTPUT HANDLER
000055 0000 LINCNT, 0 /COUNT OF NUMBER OF NAMES ON '*' OR 'HELP' LINE
000056 7770 LINMAX, -10 /MAXIMUN NUMBER OF NAMES/LINE ON '*' OR 'HELP' LINE
000057 0000 FILNAM, ZBLOCK 4 /OUTPUT FILE NAME
000063 0000 WDCTR, 0 /WORD COUNTER IN INPUT BLOCK
000064 0000 CHTEM, 0 /TEMPORARY SPOT FOR CHARACTER IN 2/3 UNPACK
000065 0000 DEVHND, 0 /OUTPUT DEVICE HANDLER ADDRESS
000066 0000 CHPTR, 0 /BUFFER POINTER FOR READING CHARACTERS
000067 0000 TEMP, 0 /TEMP STORE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 5
/ MAIN LOOP OF PROGRAM
0200 STADR=200
0200 *STADR
000200 7610 START, SKP CLA /NORMAL ENTRY POINT
000201 5207 JMP START1 /CHAINED ENTRY (CMD DECODE DONE BY CCL)
000202 6212 CIF 10 /SEE WHAT TO DO
000203 4777 JMS I (USR
000204 0005 DECODE
000205 5200 5200
000206 0000 0
000207 4776 START1, JMS I (INIT /DO ALL INITIALIZATION AND SETUP
000210 4775 MAINLP, JMS I (NXTNAM /GET NEXT NAME FROM COMMAND DECODER AREA
000211 5774 JMP I (EXIT /NO NAMES LEFT
000212 4773 JMS I (RESET /RESET THE INPUT FILE POINTERS TO THE BEGINNING
000213 1034 TAD NAME /CHECK FOR '*' OR 'HELP" NAME INDICATING LIST OF HELPS
000214 1372 TAD (-"*
000215 7650 SNA!CLA
000216 5307 JMP HELPLS /NAME BEGAN WITH '*'
000217 1034 TAD NAME /NOT '*' LOOK FOR HELP (MH)
000220 1371 TAD (-"H
000221 7640 SZA!CLA
000222 5263 JMP MAIN1 /NO 'HELP'
000223 1035 TAD NAME+1
000224 1370 TAD (-"E
000225 7440 SZA
000226 1367 TAD ("E-"I /HI
000227 7640 SZA!CLA
000230 5263 JMP MAIN1
000231 1036 TAD NAME+2
000232 1366 TAD (-"L
000233 7640 SZA!CLA
000234 5263 JMP MAIN1
000235 1037 TAD NAME+3
000236 1365 TAD (-"P
000237 7440 SZA
000240 1364 TAD ("P-"F /HILF E
000241 7650 SNA!CLA
000242 5307 JMP HELPLS /WAS 'HELP" GO PRINT LIST (MH)
000243 1034 TAD NAME /IS 1ST CHAR A "?"?(MH)
000244 1363 TAD (-"? /(MH)
000245 7650 SNA!CLA /(MH)
000246 5263 JMP MAIN1 /YES -- DON'T TRY TO HASH FILE (MH)
000247 1034 TAD NAME /NO -- HASH START BLK OF FILE BY (MH)
000250 0362 AND (77 /MAKING 1ST CHAR OF NAME SIXBIT (MH)
000251 3067 DCA TEMP /MULTIPLY BY 1.5 (MH)
000252 1034 TAD NAME /THEN SUBTRACT "HASH"(3) (MH)
000253 0362 AND (77 /(MH)
000254 7110 CLL!RAR /(MH)
000255 1067 TAD TEMP /(MH)
000256 1361 TAD (-HASH /(MH)
000257 7510 SPA /(MH)
000260 7200 CLA /IF RESULT IF MINUS, SET TO ZERO (MH)
000261 1760 TAD I (BLK /ADD REAL START BLK OF FILE (MH)
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 5-1
000262 3760 DCA I (BLK /REPLACE NEW BLOCK(MH)
000263 4757 MAIN1, JMS I (FINDNM /GET A NAME FROM THE SCRIPT FILE
000264 5274 JMP NOHELP /HIT THE END OF THE FILE INSTEAD OF NAME
000265 4756 JMS I (COMPAR /COMPARE THIS NAME WITH THE ONE HE HAD
000266 5263 JMP MAIN1 /NOT A MATCH, TRY NEXT ONE
000267 4755 JMS I (PRINT /PRINT THE HELP INFORMATION FOR THAT NAME
000270 1032 TAD WILD /IF A WILD CARD TYPE NAME (I.E. '?') THEN
000271 7640 SZA CLA / THEN KEEP SEARCHING PAST 1ST MATCH SINCE THERE
000272 5263 JMP MAIN1 / MAY BE MORE.
000273 5210 JMP MAINLP /NOT A WILD CARD, GET NEXT CMD DECODER NAME
/ HIT THE END OF THE SCRIPT FILE
/ IF DOING A WILD CARD NAME, SOME HJELP MAY HAVE ALREADY BEEN PRINTED. IF
/ NOT, PRINT AN ERROR MESSAGE ON THE TELETYPE (OR WHATEVER)
000274 1033 NOHELP, TAD WASHLP /SEE IF HELP WAS ADMINISTERED
000275 7640 SZA CLA
000276 5210 JMP MAINLP /YES IT WAS, TRY NEXT NAME ON LIST
000277 4754 JMS I (TYPE /TYPE THE ERROR MESSAGE ON THE TTY
000300 2175 SORRY-1
000301 3042 DCA TXTNAM /PUT ON ZERO TERMINATER
000302 4754 JMS I (TYPE
000303 0033 NAME-1 /TYPE WHAT HELP MISSED
000304 4754 JMS I (TYPE
000305 2163 CRLF-1 /TYPE CARR RETURN, LINE FEED
000306 5210 JMP MAINLP /NOW CONTINUE ON WITH IT
/ IF A '*' OR 'HELP' WAS TYPED AS HELP NAME, THEN PRINT A LISTING
/ OF ALL THE INFO IN THE HELP FILE FOR THE USER TO PICK FROM.
000307 1753 HELPLS, TAD I (PRINT+2 /IS CLEAR ALLOWED?
000310 7650 SNA CLA
000311 5315 JMP .+4
000312 4754 JMS I (TYPE
000313 2170 CLEAR-1
000314 3753 DCA I (PRINT+2
000315 4577 JMS I [OUTSTR /PRINT THE HEADING MESSAGE
000316 2056 AVAIL-1
000317 1056 TAD LINMAX /MAX NO. NAMES PER LINE
000320 3055 DCA LINCNT /INITIAL COUNT OF NAMES PER LINE
000321 4757 HELP1, JMS I (FINDNM /GET NEXT NAME
000322 5325 JMP HELP2 /AT END OF FILE
000323 4752 JMS I (NAMLST /PRINT THE NAME
000324 5321 JMP HELP1
000325 1055 HELP2, TAD LINCNT /CHECK IF LAST CHAR WAS CRLF
000326 7650 SNA!CLA
000327 5210 JMP MAINLP /IT WAS, DON'T DO ANOTHER
000330 4577 JMS I [OUTSTR
000331 2163 CRLF-1
000332 5210 JMP MAINLP
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 6
000352 1015
000353 0667
000354 1000
000355 0665
000356 0472
000357 0425
000360 1245
000361 7775
000362 0077
000363 7501
000364 0012
000365 7460
000366 7464
000367 7774
000370 7473
000371 7470
000372 7526
000373 1600
000374 0400
000375 0600
000376 1400
000377 0200
0400 PAGE
/ CLOSE ALL FILES AND RETURN TO MONITOR
/
000400 1377 EXIT, TAD (32 /WRITE AN AND OF FILE TO THE OUTPUT
000401 4576 JMS I [PCH
000402 1376 TAD (-600 /CLOSE FILE BY WRITING 600(8) NULLS
000403 3030 DCA COUNT
000404 4576 JMS I [PCH /WRITE IT
000405 2030 ISZ COUNT
000406 5204 JMP .-2
000407 1575 TAD I [BLKSRT /COMPUTE ACTUAL FILE LENGTH FOR CLOSE
000410 7041 CIA
000411 1574 TAD I [OUTBLK /CURRENT BLOCK NUMBER
000412 7001 IAC
000413 3222 DCA OLEN
000414 6213 CIF CDF 10
000415 1573 TAD I [7600
000416 6201 CDF 0
000417 4775 JMS I (USR /CLOSE THE FILE
000420 0004 CLOSE
000421 0057 FILNAM
000422 0000 OLEN, 0 /THE LENGTH
000423 7000 NOP /ERROR ON CLOSE... CAN'T HAPPEN(MH)
000424 5774 JMP I (7605 /RETURN TO OS/8
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 7
/ SEARCH FOR A <LF>& IN THE FILE
/ THIS IS THE START OF SOME HELP INFO FOR A SUBJECT WHICH IS NAMED AFTER
/ THE &. COPY THE NAME INTO 'TXTNAM' SO COMPARES CAN BE DONE LATER.
/ SKIP IF THE END OF FILE ISN'T FOUND ON THE WAY.
000425 0000 FINDNM, 0
000426 3042 DCA TXTNAM /CLEAR THE NAME OUT
000427 3043 DCA TXTNAM+1
000430 3044 DCA TXTNAM+2
000431 3045 DCA TXTNAM+3
000432 3046 DCA TXTNAM+4
000433 3047 DCA TXTNAM+5
000434 3050 DCA TXTNAM+6
000435 4572 FIND1, JMS I [GCH /LOOK FOR A <LF>& IN THE FILE
000436 1373 TAD (-232 /CHECK FOR END OF FILE
000437 7450 SNA
000440 5625 JMP I FINDNM /RETURN IF FOUND
000441 1372 TAD (232-212 /CHECK FOR LINE FEED
000442 7640 SZA CLA
000443 5235 JMP FIND1 /NOT IT
000444 4572 FIND5, JMS I [GCH /TRY FOR THE & NOW
000445 1371 TAD (-"&
000446 7650 SNA CLA
000447 5254 JMP FIND2 /FOUND A LF,&
000450 1370 TAD ("&-232 /MAKE SURE THIS ISNT THE END OF FILE
000451 7650 SNA CLA
000452 5625 JMP I FINDNM /END OF FILE FOUND, RETURN
000453 5235 JMP FIND1 /KEEP LOOKING FOR NAME
000454 1367 FIND2, TAD (TXTNAM-1 /MOVE THE NAME INTO 'TXTNAM'
000455 3011 DCA XR1
000456 1366 TAD (-7 /MAX OF 7 CHARACTERS
000457 3030 DCA COUNT
000460 4572 FIND3, JMS I [GCH /GET A NAME CHARACTER
000461 1365 TAD (-215 /CHECK IF THE END OF LINE <CR>
000462 7650 SNA CLA
000463 5270 JMP FIND4 /END OF LINE, THATS IT
000464 1031 TAD CHAR
000465 3411 DCA I XR1 /SAVE CHARACTER IN TXTNAM
000466 2030 ISZ COUNT
000467 5260 JMP FIND3 /IF MORE CHARACTERS LEFT
000470 2225 FIND4, ISZ FINDNM /BUMP RETURN ADDRESS FOR FOUND RETURN
000471 5625 JMP I FINDNM
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 8
/ COMPARE TWO STRINGS, ONE IN NAME AND ONE IN TXTNAM. CHECK FOR WILD
/ CARD STUFF LATER WHEN THIS PART IS WORKING.
/ SKIP IF NAMES ARE EQUAL
000472 0000 COMPAR, 0
000473 1171 TAD [NAME-1 /SET UP REGISTERS FOR COMPARE
000474 3011 DCA XR1
000475 1367 TAD (TXTNAM-1
000476 3012 DCA XR2
000477 1364 TAD (-6
000500 3030 DCA COUNT
000501 1411 COMP1, TAD I XR1 /GET A CHARACTER AND COMPARE WITH ONE FROM
000502 3031 DCA CHAR
000503 1031 TAD CHAR
000504 1363 TAD (-"? /WILDCARD
000505 7640 SZA CLA
000506 5312 JMP COMP3 /NO WILDCARD
000507 2012 ISZ XR2
000510 2032 ISZ WILD
000511 5317 JMP COMP2
000512 1031 COMP3, TAD CHAR
000513 7041 CIA / THE OTHER STRING
000514 1412 TAD I XR2
000515 7640 SZA CLA
000516 5672 JMP I COMPAR /NO MATCH, NORMAL RETURN
000517 2030 COMP2, ISZ COUNT
000520 5301 JMP COMP1
000521 2272 ISZ COMPAR /EQUAL RETURN IS RETRN ADDR+1
000522 5672 JMP I COMPAR
000563 7501
000564 7772
000565 7563
000566 7771
000567 0041
000570 0014
000571 7532
000572 0020
000573 7546
000574 7605
000575 0200
000576 7200
000577 0032
0600 PAGE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 9
/ GET THE NEXT NAME FROM THE COMMAND DECODER AREA
/ STOP ON EITHER A ZERO OR THE NAME GOING TO ZERO
000600 0000 NXTNAM, 0
000601 2052 ISZ NAMCNT /COUNT NAMES, ONLY 5 IN THE AREA
000602 7410 SKP
000603 5600 JMP I NXTNAM /RETURN, NO MORE NAMES
000604 7346 CLA CLL CMA RTL /NUMBER OF WORDS OF NAME(-3)
000605 3030 DCA COUNT
000606 1171 TAD [NAME-1
000607 3011 DCA XR1
000610 6211 CDF 10
000611 1410 TAD I NAMPTR /GET 1ST CHARACTER OF NAME
000612 6201 CDF 0
000613 7450 SNA
000614 5242 JMP NXTN3 /MAYBE OUT OF NAMES(MH)
000615 3031 NXTN1, DCA CHAR /SAVE THE WORD
000616 1031 TAD CHAR
000617 7012 RTR
000620 7012 RTR
000621 7012 RTR /ISOLATE HIGH 6 BITS
000622 4255 JMS SIXTO8
000623 3411 DCA I XR1 /PUT IN NAME BUFFER
000624 1031 TAD CHAR /NOW DO OTHER HALF
000625 4255 JMS SIXTO8
000626 3411 DCA I XR1 /2ND CHARACTER OF WORD
000627 2030 ISZ COUNT
000630 7410 SKP
000631 5236 JMP NXTN2 /NO MORE CHARACTERS IN NAME
000632 6211 CDF 10
000633 1410 TAD I NAMPTR /LOOP IS STRANGE (SHOULD USE DEVICE WORD FOR CHECK)
000634 6201 CDF 0
000635 5215 JMP NXTN1
000636 2010 NXTN2, ISZ NAMPTR /BUMP POINTER TO NEXT NAME IN AREA
000637 2010 ISZ NAMPTR
000640 2200 ISZ NXTNAM /BUMP RETURN ADDRESS FOR FOUND NAME
000641 5600 JMP I NXTNAM
000642 1052 NXTN3, TAD NAMCNT /CHECK FOR "HELP<CR>" OR "TTY:<<CR>"(MH)
000643 1377 TAD (4 /IF 1ST TRY AT A NAME THEN NULL COMMAND WAS INPUT(MH)
000644 7640 SZA!CLA
000645 5600 JMP I NXTNAM /WASN'T NULL -- RETURN, END OF NAMES
000646 3034 DCA NAME /WAS NULL -- CLEAR OUT NAME BUFFER
000647 3035 DCA NAME+1
000650 3036 DCA NAME+2
000651 3037 DCA NAME+3
000652 3040 DCA NAME+4
000653 3041 DCA NAME+5
000654 5236 JMP NXTN2 /PREPARE TO RETURN(MH)
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 10
000655 0000 SIXTO8, 0 /CONVERT 6BIT TO 8BIT
000656 0376 AND (77
000657 7450 SNA /SNA IF NOT A NULL
000660 5655 JMP I SIXTO8 /ELSE RETURN 8BIT NULL
000661 1375 TAD (240
000662 0376 AND (77
000663 1375 TAD (240
000664 5655 JMP I SIXTO8
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 11
/ PRINT ALL THE STUFF BETWEEN LINES OF THE OUTPUT DEVICE
/ THIS CONTINUES UNTIL A <LF>& IS SEEN OR AND OF FILE IS READ
000665 0000 PRINT, 0
000666 1033 TAD WASHLP /IF NOT HELPED CLEAR VIDEO
000667 7640 SZA CLA /CAN BE ZEROED BY INIT
000670 5273 JMP PRINT3-2
000671 4774 JMS I (TYPE
000672 2170 CLEAR-1 /VT52 SEQUENCE
000673 7201 CLA IAC
000674 3033 DCA WASHLP /SET FLAG SAYING HE WAS HELPED
000675 4572 PRINT3, JMS I [GCH /FIND 1ST LF WITHOUT FOLLOWING &, THEN PRINT(MH)
000676 1373 TAD (-212 /WAS CHAR LF?(MH)
000677 7640 SZA!CLA /(MH)
000700 5275 JMP PRINT3 /NO -- READ NEXT CHAR(MH)
000701 4572 JMS I [GCH /YES -- LOOK FOR &(MH)
000702 1372 TAD (-"& /(MH)
000703 7650 SNA!CLA /(MH)
000704 5275 JMP PRINT3 /IT WAS & SO CONTINUE(MH)
000705 4771 JMS I (OUTSTR /IT WASN'T & SO BEGIN PRINTING(MH)
000706 2163 CRLF-1
000707 1031 TAD CHAR /(MH)
000710 7410 SKP /(MH)
000711 4572 PRINT1, JMS I [GCH /GET A CHARACTER
000712 4576 JMS I [PCH /PRINT THE CHARACTER
000713 1031 TAD CHAR /CHECK FOR <LF>
000714 1373 TAD (-212
000715 7640 SZA CLA
000716 5311 JMP PRINT1
000717 4572 JMS I [GCH /TRY FOR EITHER & OR END OF FILE OR FF
000720 1372 TAD (-"& /CHECK FOR A &
000721 7450 SNA
000722 5665 JMP I PRINT /STOP ON <LF> & FOUND
000723 1370 TAD (+32 /CHECK FOR <FF> ("&-"<FF> (MH)
000724 7450 SNA /(MH)
000725 5665 JMP I PRINT /(MH)
000726 1367 TAD (-16 /-<EOT>+<FF> (MH)
000727 7450 SNA
000730 5665 JMP I PRINT /RETURN IF END OF FILE
000731 1366 TAD (232-"@
000732 7650 SNA CLA
000733 5311 JMP PRINT1 /SKIP "@" IF 1ST CHAR ON LINE
000734 1031 TAD CHAR /GET THE CHARACTER BACK TO PRINT
000735 4576 JMS I [PCH /PRINT IT
000736 5311 JMP PRINT1
000766 7732
000767 7762
000770 0032
000771 1037
000772 7532
000773 7566
000774 1000
000775 0240
000776 0077
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 11-1
000777 0004
1000 PAGE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 12
/ TYPE A MESSAGE ON THE TELETYPE
/ THE MESSAGE IS ONE CHARACTER PER WORD, TERMINATED WITH A ZERO
001000 0000 TYPE, 0
001001 7200 CLA
001002 1600 TAD I TYPE /GET THE MESSAGE ADDRESS
001003 2200 ISZ TYPE /BUMP RETURN ADDRESS
001004 3011 DCA XR1
001005 1411 TYPE1, TAD I XR1 /GET A CHARACTER
001006 7450 SNA
001007 5600 JMP I TYPE /END OF THE MESSAGE
001010 6046 TLS /PRINT THE CHARACTER
001011 6041 TYPE2, TSF
001012 5211 JMP TYPE2
001013 7200 CLA
001014 5205 JMP TYPE1 /LOOP
/PRINT THE NEXT NAME ON THE OUTPUT DEVICE AND CHECK TO SEE IF
/ A CRLF IS NEEDED. EACH NAME IS TERMINATED WITH A TAB CHAR
001015 0000 NAMLST, 0
001016 1042 TAD TXTNAM /CHECK FOR NULL NAME (MH)
001017 7640 SZA!CLA /(MH)
001020 5224 JMP NAMLS1 /NOT NULL NAME (MH)
001021 4237 JMS OUTSTR /WAS NULL -- PRINT "<NONE>" (MH)
001022 2047 NULNAM-1 /(MH)
001023 5226 JMP NAMLS2 /PROCEED (MH)
001024 4237 NAMLS1, JMS OUTSTR /PRINT THE NAME ON THE DEVICE
001025 0041 TXTNAM-1
001026 4237 NAMLS2, JMS OUTSTR /PRINT A TAB AFTER NAME
001027 2166 TAB-1
001030 2055 ISZ LINCNT /BUMP NUMBER PRINTED SO FAR
001031 5615 JMP I NAMLST /NO YET, JUST RETURN
001032 1056 TAD LINMAX /RESET TO MAX NUMBER OF NAMES PER LINE
001033 3055 DCA LINCNT
001034 4237 JMS OUTSTR /TYPE CRLF
001035 2163 CRLF-1
001036 5615 JMP I NAMLST /NOW RETURN
/ PRINT A STRING ON THE OUTPUT DEVICE BY STUFFING THE CHARACTERS
/ IN THE OUTPUT FILE. THE ADDRESS-1 IS FOLLOWING THE JMS
001037 0000 OUTSTR, 0
001040 1637 TAD I OUTSTR /GET THE ADDRESS
001041 2237 ISZ OUTSTR
001042 3011 DCA XR1 /POINTER TO NAME
001043 1411 OUTS1, TAD I XR1 /GET A CHARACTER
001044 7450 SNA
001045 5637 JMP I OUTSTR /RETURN IF DONE
001046 4576 JMS I [PCH /PRINT THE CHARACTER
001047 5243 JMP OUTS1
1200 PAGE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 13
/ GET A CHARACTER FROM THE INPUT FILE
001200 0000 GCH, 0
001201 1031 TAD CHAR /RETURN A EOF IF THE LAST WAS EOF
001202 1377 TAD (-232
001203 7640 SZA CLA
001204 5607 JMP I GIVCH /NOT EOF, GET NEXT CHARACTER
001205 1376 TAD (232 /GET END OF FILE
001206 5600 JMP I GCH
001207 1214 GIVCH, INITBF /INITIALLY SET UP BUFFERS
001210 0375 AND (377 /MASK THE CHARACTER
001211 3031 DCA CHAR /SAVE CHARACTER
001212 1031 TAD CHAR
001213 5600 JMP I GCH /RETURN
001214 1374 INITBF, TAD (-2000 /SET WORD COUNT FOR BLOCK(MH)
001215 3063 DCA WDCTR
001216 1244 TAD BUFAD
001217 3066 DCA CHPTR /CHARACTER POINTER FOR BUFFER
001220 1773 TAD I (BLKBGN /FIND OUT IF DATA TRANSFER WILL(MH)
001221 7041 CMA!IAC /PASS END OF FILE, IF SO REDUCE(MH)
001222 1772 TAD I (FSIZE /SIZE OF TRANSFER.(MH)
001223 3067 DCA TEMP /SAVE -ST. BLK.-FILE SIZE(MH)
001224 1243 TAD RDFCT /GET TRANSFER LENGTH IN BLKS(MH)
001225 7106 CLL!RTL /(MH)
001226 7006 RTL /(MH)
001227 7006 RTL /(MH)
001230 1245 TAD BLK /ADD CURRENT BLK(MH)
001231 1067 TAD TEMP /SUBTRACT (ST. BLK OF FILE + SIZE)(MH)
001232 7550 SPA!SNA /(MH)
001233 5242 JMP INITOK /PROCEED -- DON"T CHG. TRANSFER LEN(MH)
001234 7112 CLL!RTR /CHANGE TRANSFER LENGTH SO IT WON'T(MH)
001235 7012 RTR /PASS END OF FILE(MH)
001236 7012 RTR /(MH)
001237 7041 CMA!IAC /(MH)
001240 1243 TAD RDFCT /(MH)
001241 3243 DCA RDFCT /ENTER THIS INTO FUNCTION WD.(MH)
001242 4465 INITOK, JMS I DEVHND /CALL THE HANDLER TO READ A BLOCK
001243 2000 RDFCT, 2000 /8 BLOCKS(MH)
001244 3400 BUFAD, BUFFER
001245 0000 BLK, 0 /BLOCK NUMBER
001246 5771' JMP RDERR /ERROR RETURN(MH)
001247 1466 NXTCH, TAD I CHPTR
001250 4207 JMS GIVCH
001251 1370 TAD (7400
001252 0466 AND I CHPTR /GET THE HIGH ORDER PART
001253 3064 DCA CHTEM
001254 2066 ISZ CHPTR
001255 1466 TAD I CHPTR
001256 4207 JMS GIVCH
001257 1466 TAD I CHPTR
001260 0370 AND (7400
001261 7112 CLL RTR
001262 7012 RTR
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 13-1
001263 1064 TAD CHTEM /GET OTHER HALF
001264 7012 RTR
001265 7012 RTR
001266 4207 JMS GIVCH /GIVE THIRD CHARACTER OF GROUP
001267 2066 ISZ CHPTR
001270 2063 ISZ WDCTR /BUMP WORD COUNTER
001271 5247 JMP NXTCH /LOOP
001272 1243 TAD RDFCT /INCREMENT BLOCK NUMBER(MH)
001273 7106 CLL!RTL /(MH)
001274 7006 RTL /(MH)
001275 7006 RTL /(MH)
001276 1245 TAD BLK /(MH)
001277 3245 DCA BLK /ENTER INTO FUNCTION WD(MH)
001300 5214 JMP INITBF /READ IT IN
001370 7400
001371 1711
001372 1533
001373 1532
001374 6000
001375 0377
001376 0232
001377 7546
1400 PAGE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 14
/ ROUTINE TO INITIALIZE ALL OF THIS STUFF
/ POINTERS GET SET AND THE FILES OPENED.
001400 0000 INIT, 0
001401 1377 TAD (OUTHSP+1
001402 3243 DCA OUTHND
001403 1377 TAD (OUTHSP+1 /HANDLER ADDRESS
001404 3225 DCA OUTHN1
001405 6211 CDF 10
001406 1573 TAD I [7600 /GET OUTPUT DEVICE
001407 7450 SNA
001410 5231 JMP TTYDFL
001411 3067 DCA TEMP
001412 1067 TAD TEMP
001413 1376 TAD (7757
001414 3054 DCA OUTADR /CHECK IF TTY AFTER ALL
001415 1454 TAD I OUTADR
001416 6201 CDF 0
001417 7640 SZA CLA
001420 3775 DCA I (PRINT+2 /NOT TTY: KILL SCREEN CLEAR
001421 1067 TAD TEMP
001422 6212 CIF 10
001423 4774 JMS I (USR /FETCH THE HANDLER
001424 0001 FETCH
001425 2401 OUTHN1, OUTHSP+1
001426 5773' JMP FETERR /ERROR RETURN(MH)
001427 1225 TAD OUTHN1 /GET HANDLER ADDRESS
001430 5252 JMP COMMON /COMMON CODE FOR BOTH FETCHES
/ DEFAULT TO THE TTY WHEN NO OUTPUT DEVICE IS SPECIFIED
001431 1346 TTYDFL, TAD TTYNM /SET UP THE DEVICE NAME
001432 3241 DCA TTY
001433 1347 TAD TTYNM+1
001434 3242 DCA TTY+1
001435 6212 CIF 10 /FETCH THE OUTPUT HANDLERS
001436 6201 CDF 0
001437 4774 JMS I (USR
001440 0001 FETCH
001441 2424 TTY, DEVICE TTY /DEFAULT TO THE TTY
001442 3100
001443 2401 OUTHND, OUTHSP+1 /PLACE TO PUT THE HANDLER
001444 5343 JMP NOTTY /IF TELETYPE HANDLER DOESNT EXIST
001445 1242 TAD TTY+1 /SET UP DEVICE NUMBER FOR COMMON CODE
001446 6211 CDF 10
001447 3573 DCA I [7600
001450 6201 CDF 0
001451 1243 TAD OUTHND /GET HANDLER ENTRY POINT
001452 3054 COMMON, DCA OUTADR
001453 1372 TAD (OUTBUF
001454 3771 DCA I (OCPTR
001455 1370 TAD (-200 /OUTPUT BUFFER COUNT
001456 3767 DCA I (OUWDCT
001457 1370 TAD (7600
001460 3011 DCA XR1 /COPY NAME FROM FIELD 1 CMD DEC AREA
001461 6211 CDF 10
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 14-1
001462 1411 TAD I XR1
001463 7450 SNA
001464 1366 TAD (1014 /HL.LS IS DEFAULT NAME IF NONE THERE
001465 3057 DCA FILNAM
001466 1411 TAD I XR1
001467 3060 DCA FILNAM+1
001470 1411 TAD I XR1
001471 3061 DCA FILNAM+2
001472 1411 TAD I XR1 /COPY EXTENSION
001473 7450 SNA
001474 1365 TAD (1423 /USE .LS AS DEFAULT EXTENSION
001475 3062 DCA FILNAM+3
001476 6201 CDF 0
001477 1364 TAD (FILNAM /INITIALIZE THE ENTER
001500 3306 DCA BLKSRT
001501 6213 CDF CIF 10
001502 1770 TAD I (7600
001503 6201 CDF 0
001504 4774 JMS I (USR /DO ENTER WITH DEVICE NO IN AC
001505 0003 ENTER
001506 0000 BLKSRT, 0 /STARTING BLOCK
001507 0000 FILLNG, 0 /LENGTH OF FILE
001510 5350 JMP NOROOM /DEVICE FULL
001511 1306 TAD BLKSRT
001512 3574 DCA I [OUTBLK /INITIAL OUTPUT BLOCK
001513 1307 TAD FILLNG
001514 3053 DCA BLKCNT /NEGATIVE FILE LENGTH IN BLOCKS
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 15
001515 1363 TAD (7605 /SET NXTNAM POINTER TO THE NEXT NAME
001516 3010 DCA NAMPTR
001517 1362 TAD (-5
001520 3052 DCA NAMCNT /NUMBER OF CHARACTERS IN NAME
001521 7100 CLL
001522 1761 TAD I (7756 /CHECK IF RESIDENT
001523 1374 TAD (200
001524 7620 SNL CLA
001525 5773' JMP FETERR
001526 1760 TAD I (7776 /'SBLOCK' GET THE HELP DEVICE NUMBER
001527 6212 CIF 10 /LOOKUP HELP FILE WITH IT
001530 4774 JMS I (USR
001531 0002 LOOKUP
001532 2231 BLKBGN, HELP8 /STARTING BLOCK OF THE FILE(MH)
001533 0000 FSIZE, 0 /-NUMBER OF BLOCKS(MH)
001534 5340 JMP NOSCRP /THE SCRIPT FILE (HELP FILE) ISNT THERE
001535 1761 TAD I (7756 /'MREAD-1' GET ENTRY POINT
001536 3065 DCA DEVHND /COPY TO PG 0 FOR ADDRESSABILITY
001537 5600 JMP I INIT /THATS IT
001540 4757 NOSCRP, JMS I (TYPE /TYPE MESSAGE SAYING HELP FILE NOT THERE
001541 2030 NOSC-1
001542 5763 JMP I (7605 /RETURN TO NONITOR
001543 4757 NOTTY, JMS I (TYPE
001544 2012 TTYMIS-1
001545 5763 JMP I (7605
001546 2424 TTYNM, DEVICE TTY
001547 3100
001550 4570 NOROOM, JMS I [TYPE /DEVICE FILL
001551 2212 DEVFUL-1
001552 5763 JMP I (7605 /RETURN TO MONITOR
001557 1000
001560 7776
001561 7756
001562 7773
001563 7605
001564 0057
001565 1423
001566 1014
001567 1655
001570 7600
001571 1656
001572 3000
001573 1706
001574 0200
001575 0667
001576 7757
001577 2401
1600 PAGE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 16
/ RESET THE INPUT FILE TO THE FIRST BLOCK AND RESET ALL THE CHARACTER
/ UNPACKING STUFF TO THE 1ST CHARACTER OF THE FILE
001600 0000 RESET, 0
001601 1777 TAD I (BUFFER /RESET BUFFER POINTER TO START
001602 3066 DCA CHPTR
001603 1033 TAD WASHLP /IF SET
001604 7640 SZA CLA
001605 3776 DCA I (PRINT+2 /DON'T CLEAR SECOND TIME
001606 3033 DCA WASHLP /SET NOT YET HELPED
001607 3031 DCA CHAR /SET TO STOP EOF STUFF
001610 1375 TAD (-2000 /RESET WORD COUNT FOR 8 BLOCKS(MH)
001611 3063 DCA WDCTR
001612 1774 TAD I (BLKBGN /RESET STARTING BLOCK OF FILE
001613 3773 DCA I (BLK
001614 1372 TAD (2000 /RESET TRANSFER LEN FOR 8 BLOCKS(MH)
001615 3771 DCA I (RDFCT /(MH)
001616 1370 TAD (INITBF /SET UP TO REREAD BLOCK 0 OF FILE
001617 3767 DCA I (GIVCH
001620 5600 JMP I RESET
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 17
/ PUT A CHARACTER OUT TO THE OUTPUT DEVICE
/ THIS IS A COOROUTINE TYPE GUY JUST LIKE THE INPUT HANDLER
001621 0000 PCH, 0
001622 5653 JMP I RPOS /DISPATCH
001623 3656 RPOS1, DCA I OCPTR /PUT 1ST CHARACTER IN BUFFER
001624 4253 JMS RPOS
001625 3257 RPOS2, DCA HOLD /SAVE THE 2ND CHARACTER
001626 4253 JMS RPOS
001627 7006 RPOS3, RTL /PACK THE CHARACTERS
001630 7006 RTL
001631 3260 DCA HOLD2
001632 1260 TAD HOLD2
001633 0366 AND (7400
001634 1656 TAD I OCPTR
001635 3656 DCA I OCPTR /PART WAY DONE
001636 2256 ISZ OCPTR
001637 1260 TAD HOLD2
001640 7006 RTL
001641 7006 RTL
001642 0366 AND (7400 /NOW THE 2ND WORD
001643 1257 TAD HOLD
001644 3656 DCA I OCPTR
001645 2256 ISZ OCPTR /BUMP POINTER AGAIN
001646 2255 ISZ OUWDCT
001647 7410 SKP
001650 4261 JMS DUMP /IF AT THE END OF THE BUFFER
001651 4253 RPOS4, JMS RPOS
001652 5223 JMP RPOS1
001653 1623 RPOS, RPOS1 /INITIALLY SET TO THE 1ST CHARACTER
001654 5621 JMP I PCH /RETURN TO THE USER
001655 0000 OUWDCT, 0 /OUTPUT BUFFER WORD COUNTER
001656 0000 OCPTR, 0 /OUTPUT CHARACTER BUFFER POINTER
001657 0000 HOLD, 0 /TEMPORARY PLACE TO PUT A CHARACACTER
001660 0000 HOLD2, 0 /SAME AS ABOVE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 18
/ DUMP THE OUTPUT BUFFER TO THE OUTPUT FILE
001661 0000 DUMP, 0
001662 2053 ISZ BLKCNT /SEE IF ANY ROOM LEFT TO DUMP TO
001663 7410 SKP
001664 5300 JMP DUMPER /IF OUT OF ROOM
001665 4454 JMS I OUTADR /CALL THE HANDLER
001666 4200 4200
001667 3000 OUTBFA, OUTBUF /OUTPUT BUFFER ADDRESS
001670 0000 OUTBLK, 0 /OUTPUT BUFFER BLOCK NUMBER
001671 5303 JMP WRERR /WRITE ERROR(MH)
001672 1267 TAD OUTBFA /RESET INPUT POINTER
001673 3256 DCA OCPTR
001674 1365 TAD (-200 /RESET THE WORD COUNT
001675 3255 DCA OUWDCT
001676 2270 ISZ OUTBLK /BUMP OUTPUT BLOCK NUMBER
001677 5661 JMP I DUMP /RETURN
001700 4764 DUMPER, JMS I (TYPE /TYPE ERROR MESSAGE
001701 2212 DEVFUL-1 /FILE FULL ERROR
001702 5763 JMP I (7605
001703 4764 WRERR, JMS I (TYPE /WRITE ERROR (MH)
001704 1713 MWRERR-1 /(MH)
001705 5763 JMP I (7605 /(MH)
001706 4764 FETERR, JMS I (TYPE /FETCH ERROR (MH)
001707 1727 MFEERR-1 /(MH)
001710 5763 JMP I (7605 /(MH)
001711 4764 RDERR, JMS I (TYPE /(READ ERROR (MH)
001712 1777 MRDERR-1 /(MH)
001713 5763 JMP I (7605 /(MH)
IFNDEF GERMAN <
001714 0327 MWRERR, "W; "R; "I; "T; "E; 240; "E; "R; "R; 215; 212; 0
001715 0322
001716 0311
001717 0324
001720 0305
001721 0240
001722 0305
001723 0322
001724 0322
001725 0215
001726 0212
001727 0000
001730 0306 MFEERR, "F; "E; "T; "C; "H; 240; "E; "R; "R; 215; 212; 0
001731 0305
001732 0324
001733 0303
001734 0310
001735 0240
001736 0305
001737 0322
001740 0322
001741 0215
001742 0212
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 18-1
001743 0000
>
IFDEF GERMAN <
MWRERR, "S; "c; "h; "r; "e; "i; "b; "-; "F; "e; "h; "l; "e; "r;215;212;0
MFEERR, "G; "e; "r; "a; "e; "t; " ; "u; "n; "b; "e; "k; "a; "n; "n; "t;215;212;0
>
001763 7605
001764 1000
001765 7600
001766 7400
001767 1207
001770 1214
001771 1243
001772 2000
001773 1245
001774 1532
001775 6000
001776 0667
001777 3400
2000 PAGE
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 19
IFNDEF GERMAN <
002000 0322 MRDERR, "R; "E; "A; "D; 240; "E; "R; "R; 215; 212; 0
002001 0305
002002 0301
002003 0304
002004 0240
002005 0305
002006 0322
002007 0322
002010 0215
002011 0212
002012 0000
002013 0316 TTYMIS, "N;"O;" ;"T;"T;"Y;" ;"H;"A;"N;"D;215;212;0
002014 0317
002015 0240
002016 0324
002017 0324
002020 0331
002021 0240
002022 0310
002023 0301
002024 0316
002025 0304
002026 0215
002027 0212
002030 0000
002031 0316 NOSC, "N;"O;" ;"H;"E;"L;"P; 240; "F; "I; "L; "E; 215;212;0
002032 0317
002033 0240
002034 0310
002035 0305
002036 0314
002037 0320
002040 0240
002041 0306
002042 0311
002043 0314
002044 0305
002045 0215
002046 0212
002047 0000
002050 0242 NULNAM, 242; "N; "O; "N; "E; 242; 0
002051 0316
002052 0317
002053 0316
002054 0305
002055 0242
002056 0000
002057 0215 AVAIL, 215; 212; " ; "H; "E; "L; "P; 240; "V;VERSHI;VERSLO;PATCH;
002060 0212
002061 0211
002062 0310
002063 0305
002064 0314
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 19-1
002065 0320
002066 0240
002067 0326
002070 0265
002071 0260
002072 0301
002073 0215 215; 212; 215; 212
002074 0212
002075 0215
002076 0212
002077 0303 "C; "A; "L; "L; "I; "N; "G; 240; "C; "O; "M; "M; "A; "N; "D; "S; ":
002100 0301
002101 0314
002102 0314
002103 0311
002104 0316
002105 0307
002106 0240
002107 0303
002110 0317
002111 0315
002112 0315
002113 0301
002114 0316
002115 0304
002116 0323
002117 0272
002120 0215 215; 212; ".; "H; "E; "L; "P; 240; "P; "A; "R; "A; "M; "E; "T; "E; "R
002121 0212
002122 0256
002123 0310
002124 0305
002125 0314
002126 0320
002127 0240
002130 0320
002131 0301
002132 0322
002133 0301
002134 0315
002135 0305
002136 0324
002137 0305
002140 0322
002141 0215 215; 212
002142 0212
002143 0240 240; 215; 212
002144 0215
002145 0212
002146 0320 "P; "A; "R; "A; "M; "E; "T; "E; "R; "S; ":; 215; 212; 0
002147 0301
002150 0322
002151 0301
002152 0315
002153 0305
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 19-2
002154 0324
002155 0305
002156 0322
002157 0323
002160 0272
002161 0215
002162 0212
002163 0000
002164 0215 CRLF, 215;212;0
002165 0212
002166 0000
002167 0211 TAB, 211;0
002170 0000
002171 0233 CLEAR, 233; "H; 233; "J;0
002172 0310
002173 0233
002174 0312
002175 0000
002176 0215 SORRY, 215;212;"N;"O;240;"H;"E;"L;"P;240;"-;240;0
002177 0212
002200 0316
002201 0317
002202 0240
002203 0310
002204 0305
002205 0314
002206 0320
002207 0240
002210 0255
002211 0240
002212 0000
002213 0304 DEVFUL, "D;"E;"V;"I;"C;"E;240;"F;"U;"L;"L;215;212;0
002214 0305
002215 0326
002216 0311
002217 0303
002220 0305
002221 0240
002222 0306
002223 0325
002224 0314
002225 0314
002226 0215
002227 0212
002230 0000
>
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 20
IFDEF GERMAN <
MRDERR, "L; "e; "s; "e; "-; "F; "e; "h; "l; "e; "r;215;212;0
TTYMIS, "K; "e; "i; "n; " ; "T; "T; "Y; ":; "!;215;212;0
NOSC, "K; "e; "i; "n; "e; " ;"H;"E;"L;"P; " ; "D; "a; "t; "e; "i;215;212;0
NULNAM, "'; "L; "E; "E; "R; "';0
AVAIL, 215;212; " ; "H; "E; "L; "P;240; "V;VERSHI;VERSLO;PATCH
215;212;215;212
"A; "u; "f; "r; "u; "f; ":;215;212;215;212
".; "H; "i; "l; "f; "e;240; "S; "c; "h; "l; "u; "e; "s; "s; "e; "l
215;212;215;212
"S; "c; "h; "l; "u; "e; "s; "s; "e; "l; ":;215;212;0
CRLF, 215;212;0
TAB, 211;0
CLEAR, 233; "H; 233; "J;0
SORRY, 215;212
"K; "e; "i; "n; "e; " ; "H; "i; "l; "f; "e; " ; "f; "u; "e; "r; ":;240;0
DEVFUL, "G; "e; "r; "a; "e; "t; " ; "v; "o; "l; "l;215;212;0
>
002231 1005 HELP8, FILENAME HELP.HL
002232 1420
002233 0000
002234 1014
2400 PAGE
002400 0000 OUTHSP, ZBLOCK 400 /OUTPUT HANDLER SPACE
003000 0000 OUTBUF, ZBLOCK 400 /OUTPUT BUFFER FOR LISTING
3400 BUFFER=. /INPUT BUFFER FOR HELP FILE, 8 BLKS OR 4000 WDS (MH)
$
000170 1000
000171 0033
000172 1200
000173 7600
000174 1670
000175 1506
000176 1621
000177 1037
/OS/8 HELP PROGRAM V50 PAL8-V50X 20-FEB-92 PAGE 21
AVAIL 2057 MRDERR 2000 TTYNM 1546
BLK 1245 MWRERR 1714 TXTNAM 0042
BLKBGN 1532 NAMCNT 0052 TYPE 1000
BLKCNT 0053 NAME 0034 TYPE1 1005
BLKSRT 1506 NAMLST 1015 TYPE2 1011
BUFAD 1244 NAMLS1 1024 USR 0200
BUFFER 3400 NAMLS2 1026 VERSHI 0265
CHAR 0031 NAMPTR 0010 VERSLO 0260
CHPTR 0066 NOHELP 0274 WASHLP 0033
CHTEM 0064 NOROOM 1550 WDCTR 0063
CLEAR 2171 NOSC 2031 WILD 0032
CLOSE 0004 NOSCRP 1540 WRERR 1703
COMMON 1452 NOTTY 1543 XR1 0011
COMPAR 0472 NULNAM 2050 XR2 0012
COMP1 0501 NXTCH 1247
COMP2 0517 NXTNAM 0600
COMP3 0512 NXTN1 0615
COUNT 0030 NXTN2 0636
CRLF 2164 NXTN3 0642
DECODE 0005 OCPTR 1656
DEVFUL 2213 OLEN 0422
DEVHND 0065 OS78 7771
DUMP 1661 OUTADR 0054
DUMPER 1700 OUTBFA 1667
ENTER 0003 OUTBLK 1670
EXIT 0400 OUTBUF 3000
FETCH 0001 OUTHND 1443
FETERR 1706 OUTHN1 1425
FILLNG 1507 OUTHSP 2400
FILNAM 0057 OUTSTR 1037
FINDNM 0425 OUTS1 1043
FIND1 0435 OUWDCT 1655
FIND2 0454 PATCH 0301
FIND3 0460 PCH 1621
FIND4 0470 PRINT 0665
FIND5 0444 PRINT1 0711
FSIZE 1533 PRINT3 0675
GCH 1200 RDERR 1711
GIVCH 1207 RDFCT 1243
HASH 0003 RESET 1600
HELPLS 0307 RPOS 1653
HELP1 0321 RPOS1 1623
HELP2 0325 RPOS2 1625
HELP8 2231 RPOS3 1627
HOLD 1657 RPOS4 1651
HOLD2 1660 SIXTO8 0655
INIT 1400 SORRY 2176
INITBF 1214 STADR 0200
INITOK 1242 START 0200
LINCNT 0055 START1 0207
LINMAX 0056 TAB 2167
LOOKUP 0002 TEMP 0067
MAINLP 0210 TTY 1441
MAIN1 0263 TTYDFL 1431
MFEERR 1730 TTYMIS 2013
ERRORS DETECTED: 0
LINKS GENERATED: 3