Seq # *Modification Id* Act
----------------------------+
07428 M00S07136.xedit +++|* MACROS CSET, GET, OPEN, READ, READW, RECALL, REWIND,
07429 M00S07137.xedit +++|* STATUS, WRITEC, WRITER, WRITEW.
07430 M00S07138.xedit +++|*
07431 M00S07139.xedit +++|* NOTES HELP PICKS THE COMMAND OFF THE ARGUMENT OF THE HELP
07432 M00S07140.xedit +++|* COMMAND. IF NO COMMAND IS SPECIFIED, A LISTING OF ALL XEDIT
07433 M00S07141.xedit +++|* COMMANDS AND COMMAND ABBREVIATIONS AND PREFIX CHARACTERS IS
07434 M00S07142.xedit +++|* GIVEN. IF A COMMAND OR PREFIX CHARACTER IS SPECIFIED ON THE
07435 M00S07143.xedit +++|* HELP COMMAND, IT IS COMPARED WITH THOSE IN THE XEDIT COMMAND
07436 M00S07144.xedit +++|* TABLE AND THE UNABBREVIATED FORM IS SELECTED. XEDITI FILE
07437 M00S07145.xedit +++|* IS THEN GOTTEN FROM THE LIBRARY IF IT IS NOT ALREADY LOCAL.
07438 M00S07146.xedit +++|* THE FILE IS THEN SEARCHED FOR A MATCHING COMMAND AND THE
07439 M00S07147.xedit +++|* COMMAND ENTRY IS PRINTED OUT. NOTE - PAGEINATION LINES ARE
07440 M00S07148.xedit +++|* FLAGGED WITH A *>*. THE LINE BEFORE EACH COMMAND ENTRY IS
07441 M00S07149.xedit +++|* FLAGGED WITH A *-* IN COLUMN 35.
07442 M00S07150.xedit +++|
07443 M00S07151.xedit +++|
07444 M00S07152.xedit +++| HELP SA1 NUMS RESTORE A5 POINTER
07445 M00S07153.xedit +++| SA2 A1+B1
07446 M00S07154.xedit +++| MX7 1
07447 M00S07155.xedit +++| ZR X1,HLP21 IF NO PARAMETER
07448 M00S07156.xedit +++| SA2 X2
07449 M00S07157.xedit +++| SA5 X1
07450 M00S07158.xedit +++| NG X5,HLP21 IF NO PARAMETER
07451 M00S07159.xedit +++| BX6 X7+X2
07452 M00S07160.xedit +++| SA6 A2
07453 M00S07161.xedit +++| SA1 A5+B1 CHECK NEXT CHARACTER
07454 M00S07162.xedit +++| PL X1,HLP0 IF NOT END OF LINE
07455 M00S07163.xedit +++| MX1 0 CLEAR CHARACTER
07456 M00S07164.xedit +++| HLP0 SX4 X5-1R0
07457 M00S07165.xedit +++| SX3 X5-1R+
07458 M00S07166.xedit +++| SX2 X5 MOVE CHARACTER
07459 M00S07167.xedit +++| LX2 6
07460 M00S07168.xedit +++| BX2 X2+X1
07461 M00S07169.xedit +++| SB2 X2
07462 M00S07170.xedit +++| BX3 -X4*X3 NEG. IF NUMBER
07463 M00S07171.xedit +++| SA2 HLPA
07464 M00S07172.xedit +++| NG X3,HLP11 IF A NUMBER
07465 M00S07173.xedit +++| SB3 X2
07466 M00S07174.xedit +++| HLP1 EQ B3,B2,HLP12 IF SPECIAL CHARACTER
07467 M00S07175.xedit +++| SA2 A2+B1
07468 M00S07176.xedit +++| SB3 X2
07469 M00S07177.xedit +++| NZ X2,HLP1 IF NOT END OF LIST
07470 M00S07178.xedit +++| MX6 1 PREPARE TO PARSE COMMAND
07471 M00S07179.xedit +++| MX4 26
07472 M00S07180.xedit +++| MX3 -6
07473 M00S07181.xedit +++| LX4 -5 PREPARE CHARACTER MASK
07474 M00S07182.xedit +++| HLP2 BX0 -X3*X5 REMOVE ASCII
07475 M00S07183.xedit +++| SB3 X0+4
07476 M00S07184.xedit +++| LX1 B3,X4 SHIFT MASK
07477 M00S07185.xedit +++| PL X1,HLP4 IF NOT A-Z
07478 M00S07186.xedit +++| BX1 X3*X5
07479 M00S07187.xedit +++| ZR X1,HLP3 IF NOT ASCII CHARACTER
07480 M00S07188.xedit +++| SX1 X1-7600B
07481 M00S07189.xedit +++| NZ X1,HLP4 IF NOT LOWER CASE A-Z
07482 M00S07190.xedit +++|
07483 M00S07191.xedit +++|* MERGE CHARACTERS.
07484 M00S07192.xedit +++|
07485 M00S07193.xedit +++| HLP3 LX6 6
07486 M00S07194.xedit +++| BX6 X6+X0
07487 M00S07195.xedit +++| SA5 A5+1
07488 M00S07196.xedit +++| PL X5,HLP2 IF MORE CHARACTERS
07489 M00S07197.xedit +++|
07490 M00S07198.xedit +++|* CHECK FOR LEGAL PARAMETER.
07491 M00S07199.xedit +++|
07492 M00S07200.xedit +++| HLP4 BX1 -X3*X6 ISOLATE LAST CHARACTER OF COMMAND
07493 M00S07201.xedit +++| MX0 1
07494 M00S07202.xedit +++| SX4 X1-1RW
07495 M00S07203.xedit +++| ZR X4,HLP5 IF *W* POSTFIX
07496 M00S07204.xedit +++| SX4 X1-1RA
07497 M00S07205.xedit +++| NZ X4,HLP6 IF NOT *A* POSTFIX
07498 M00S07206.xedit +++| HLP5 BX6 X3*X6 REMOVE POSTFIX
07499 M00S07207.xedit +++| HLP6 LX6 6
07500 M00S07208.xedit +++| PL X6,HLP6 IF NOT LEFT JUSTIFIED
07501 M00S07209.xedit +++| BX6 -X0*X6 REMOVE POSITION BIT
07502 M00S07210.xedit +++| SA1 JUMP SEARCH COMMAND TABLE
07503 M00S07211.xedit +++| SA6 JUMPX SET NAME AT END
07504 M00S07212.xedit +++| HLP7 BX3 X1-X6
07505 M00S07213.xedit +++| SA1 A1+B1
07506 M00S07214.xedit +++| NZ X3,HLP7 IF NOT A MATCH
07507 M00S07215.xedit +++| NG X3,HLP7 IF COMPARED A INFORMATION WORD
07508 M00S07216.xedit +++| NG X1,HLP9 IF PRESENTLY ON AN INFORMATION WORD
07509 M00S07217.xedit +++| HLP8 BX6 X1
07510 M00S07218.xedit +++| SA1 A1+B1
07511 M00S07219.xedit +++| PL X1,HLP8 IF NOT AT AN INFORMATION WORD
07512 M00S07220.xedit +++| HLP9 SX1 X1
07513 M00S07221.xedit +++| ZR X1,HLP10 IF COMMAND NOT IN TABLE
07514 M00S07222.xedit +++| EQ HLP13 PROCESS COMMAND
07515 M00S07223.xedit +++|
07516 M00S07224.xedit +++| HLP10 SA6 HLPF
07517 M00S07225.xedit +++| WRITEC OUTPUT,HLPE
07518 M00S07226.xedit +++| EQ NCM CONTINUE
07519 M00S07227.xedit +++|
07520 M00S07228.xedit +++|* PROCESS NUMERIC PARAMETER.
07521 M00S07229.xedit +++|
07522 M00S07230.xedit +++| HLP11 SX6 1R$
07523 M00S07231.xedit +++| LX6 -6
07524 M00S07232.xedit +++| EQ HLP13 PROCESS COMMAND
07525 M00S07233.xedit +++|
07526 M00S07234.xedit +++|* PROCESS SPECIAL COMMAND.
07527 M00S07235.xedit +++|
07528 M00S07236.xedit +++| HLP12 MX3 42
07529 M00S07237.xedit +++| BX6 X2*X3 ISOLATE SEARCH PATTERN:
07530 M00S07238.xedit +++| EQ HLP13 PROCESS COMMAND.
07531 M00S07239.xedit +++| HLP13 SA1 NUMS+1
07532 M00S07240.xedit +++| SA2 X1
07533 M00S07241.xedit +++| SX7 X2
07534 M00S07242.xedit +++| LX2 1
07535 M00S07243.xedit +++| NG X2,HLP13.1 IF REAL EOL
07536 M00S07244.xedit +++| SA7 A2
07537 M00S07245.xedit +++| HLP13.1 SA2 HLPK
07538 M00S07246.xedit +++| SA6 HLPH COMMAND TO SEARCH FOR
07539 M00S07247.xedit +++| SA6 A2
07540 M00S07248.xedit +++| NZ X2,HLP14 IF XEDITI ALREADY GOTTEN
07541 M00S07249.xedit +++| STATUS XEDITI
07542 M00S07250.xedit +++| SA1 XEDITI
07543 M00S07251.xedit +++| SX3 7776B
07544 M00S07252.xedit +++| BX3 X3*X1
07545 M00S07253.xedit +++| NZ X3,HLP14 IF FILE GOTTEN
07546 M00S07254.xedit +++| GET XEDITI,,,,,,IP
07547 M00S07255.xedit +++| HLP14 OPEN XEDITI,READNR,RECALL
07548 M00S07256.xedit +++| REWIND XEDITI,R
07549 M00S07257.xedit +++| READ XEDITI
07550 M00S07258.xedit +++| SA5 HLPH COMMAND TO SEARCH FOR
07551 M00S07259.xedit +++| LX6 X5,B1
07552 M00S07260.xedit +++| SB2 B1+B1
07553 M00S07261.xedit +++| BX7 X6+X5
07554 M00S07262.xedit +++| LX4 X7,B2
07555 M00S07263.xedit +++| SA3 HLPI =10HHHHHHHHHHH
07556 M00S07264.xedit +++| BX6 X4+X7
07557 M00S07265.xedit +++| LX7 -2
07558 M00S07266.xedit +++| BX4 X6+X7
07559 M00S07267.xedit +++| BX3 X3*X4 BIT 3 OF CHAR SET IF CHAR NOT ZERO
07560 M00S07268.xedit +++| AX7 X3,B1
07561 M00S07269.xedit +++| BX0 X5 MASK
07562 M00S07270.xedit +++| BX4 X7+X3
07563 M00S07271.xedit +++| LX7 X4,B2
07564 M00S07272.xedit +++| BX6 X4+X7
07565 M00S07273.xedit +++| AX7 X4,B2
07566 M00S07274.xedit +++| BX0 X6+X7 COMMAND MASK
07567 M00S07275.xedit +++| HLP15 MX6 0
07568 M00S07276.xedit +++| SA6 E.SCR+3
07569 M00S07277.xedit +++| READC XEDITI,E.SCR,8
07570 M00S07278.xedit +++| ZR X1,HLP16 IF NO EOF/EOR
07571 M00S07279.xedit +++| RECALL X2
07572 M00S07280.xedit +++| WRITEC OUTPUT,HLPG
07573 M00S07281.xedit +++| EQ NCM EXIT
07574 M00S07282.xedit +++|
07575 M00S07283.xedit +++| HLP16 SA1 HLPJ
07576 M00S07284.xedit +++| ZR X1,HLP17 IF HELP ENTRY EXPECTED
07577 M00S07285.xedit +++| SA1 E.SCR+3
07578 M00S07286.xedit +++| SA3 =6L -
07579 M00S07287.xedit +++| BX6 X1-X3
07580 M00S07288.xedit +++| LX6 6*6 SHIFT CHARACTER AFTER - TO CHARACTER 9
07581 M00S07289.xedit +++| AX6 6 PROCESS CBR/CCR DIFFERENCE
07582 M00S07290.xedit +++| SA6 HLPJ SET HELP ENTRY EXPECTED IF - IN COL 35
07583 M00S07291.xedit +++| EQ HLP15 READ NEXT LINE
07584 M00S07292.xedit +++|
07585 M00S07293.xedit +++| HLP17 SA1 E.SCR
07586 M00S07294.xedit +++| ZR X1,HLP15 IF BLANK LINE
07587 M00S07295.xedit +++| BX2 X1
07588 M00S07296.xedit +++| LX2 2*6
07589 M00S07297.xedit +++| SX2 X2-2R
07590 M00S07298.xedit +++| ZR X2,HLP15 IF LINE BEGINS WITH 2 BLANKS
07591 M00S07299.xedit +++| AX1 54
07592 M00S07300.xedit +++| SX6 X1-1R>-777700B
07593 M00S07301.xedit +++| ZR X6,HLP15 IF PAGINATION
07594 M00S07302.xedit +++| SA6 HLPJ CLEAR HELP ENTRY EXPECTED FLAG
07595 M00S07303.xedit +++| SA1 A1
07596 M00S07304.xedit +++| BX3 X1-X5 CHECK FOR COMMAND MATCH
07597 M00S07305.xedit +++| BX6 X0*X3
07598 M00S07306.xedit +++| NZ X6,HLP15 IF NO MATCH
07599 M00S07307.xedit +++| BX7 X0
07600 M00S07308.xedit +++| AX7 6
07601 M00S07309.xedit +++| BX7 -X0*X7 MASK FOR NEXT CHARACTER
07602 M00S07310.xedit +++|
07603 M00S07311.xedit +++|* NO COMMAND IS .GE. 9 CHARACTERS IN LENGTH.
07604 M00S07312.xedit +++|
07605 M00S07313.xedit +++| SA2 =10H
07606 M00S07314.xedit +++| BX2 X1-X2 COMPARE WITH BLANK
07607 M00S07315.xedit +++| BX3 X7*X1
07608 M00S07316.xedit +++| BX2 X7*X2
07609 M00S07317.xedit +++| ZR X3,HLP17.1 IF NEXT CHARACTER IS 00B
07610 M00S07318.xedit +++| NZ X2,HLP15 IF NEXT CHARACTOR IS NOT BLANK (55B)
07611 M00S07319.xedit +++| HLP17.1 SA1 CSMR
07612 M00S07320.xedit +++| PL X1,HLP18 IF 63 CHARACTER SET
07613 M00S07321.xedit +++| SA2 BATCH
07614 M00S07322.xedit +++| NZ X2,HLP18 IF BATCH MODE
07615 M00S07323.xedit +++| SA1 AS
07616 M00S07324.xedit +++| ZR X1,HLP18 IF ALREADY IN NORMAL CHARACTER SET MODE
07617 M00S07325.xedit +++| CSET NORMAL
07618 M00S07326.xedit +++|
07619 M00S07327.xedit +++|* A MATCH IS FOUND IN THE XEDIT HELP FILE. LIST ENTRY.
07620 M00S07328.xedit +++|
07621 M00S07329.xedit +++| HLP18 WRITEC OUTPUT,E.SCR
07622 M00S07330.xedit +++| RJ HTI CHECK FOR INTERRUPT
07623 M00S07331.xedit +++| HLP19 READC XEDITI,E.SCR
07624 M00S07332.xedit +++| NZ X1,HLP20 IF EOF/EOR
07625 M00S07333.xedit +++| SA1 E.SCR+3
07626 M00S07334.xedit +++| SA2 =6L -
07627 M00S07335.xedit +++| BX3 X1-X2
07628 M00S07336.xedit +++| LX3 6*6
07629 M00S07337.xedit +++| AX3 6 REMOVE CHARACTOR 36
07630 M00S07338.xedit +++| ZR X3,HLP20 IF END OF ENTRY
07631 M00S07339.xedit +++| SA1 E.SCR
07632 M00S07340.xedit +++| AX1 54
07633 M00S07341.xedit +++| SB2 X1-1R>-777700B
07634 M00S07342.xedit +++| ZR B2,HLP19 IF PAGEINATION
07635 M00S07343.xedit +++| EQ HLP18 WRITE NEXT LINE
07636 M00S07344.xedit +++|
07637 M00S07345.xedit +++| HLP20 RECALL XEDITI
07638 M00S07346.xedit +++| EQ HLP23 EXIT
07639 M00S07347.xedit +++|
07640 M00S07348.xedit +++| HLP21 SA1 CSMR
07641 M00S07349.xedit +++| PL X1,HLP22 IF 63 CHARACTER SET
07642 M00S07350.xedit +++| SA2 BATCH
07643 M00S07351.xedit +++| NZ X2,HLP22 IF BATCH MODE
07644 M00S07352.xedit +++| SA1 AS
07645 M00S07353.xedit +++| ZR X1,HLP22 IF ALREADY IN NORMAL MODE
07646 M00S07354.xedit +++| CSET NORMAL
07647 M00S07355.xedit +++| HLP22 BSS 0
07648 M00S07356.xedit +++| WRITEW OUTPUT,HLPC,HLPD
07649 M00S07357.xedit +++| HLP23 RJ HTI CHECK FOR INTERRUPT
07650 M00S07358.xedit +++| SA1 CSMR
07651 M00S07359.xedit +++| PL X1,NCM IF 63 CHARACTER SET, EXIT
07652 M00S07360.xedit +++| SA2 BATCH
07653 M00S07361.xedit +++| NZ X2,NCM IF IN BATCH MODE
07654 M00S07362.xedit +++| SA1 AS
07655 M00S07363.xedit +++| ZR X1,NCM IF TERMINAL WAS IN NORMAL MODE
07656 M00S07364.xedit +++| WRITER OUTPUT,RECALL
07657 M00S07365.xedit +++| CSET ASCII
07658 M00S07366.xedit +++| EQ NCM RETURN
07659 M00S07367.xedit +++|
07660 M00S07368.xedit +++| HLPA BSS 0
07661 M00S07369.xedit +++| HELPSP HERE ASSEMBLY SPECIAL FORMS
07662 M00S07370.xedit +++| DATA 0
07663 M00S07371.xedit +++|
07664 M00S07372.xedit +++| D OPSYN DATA
07665 M00S07373.xedit +++| HLPC BSS 0
07666 M00S07374.xedit +++| D C*THE FOLLOWING IS A LIST OF ALL XEDIT COMMANDS AND IN BRACKETS,*
07667 M00S07375.xedit +++| D C*THEIR ABBREVIATIONS.*
07668 M00S07376.xedit +++| D C* *
07669 M00S07377.xedit +++| MHELP (.)
07670 M00S07378.xedit +++| MHELP (-)
07671 M00S07379.xedit +++| HELP HERE
07672 M00S07380.xedit +++| DATA C$"MH1"$ ASSEMBLE LAST LINE
07673 M00S07381.xedit +++| D C* *
07674 M00S07382.xedit +++| D C*ANY COMMAND MAY BE PREFIXED BY ANY NUMBER OR COMBINATION OF *
07675 M00S07383.xedit +++| D 30HTHE PREFIX CHARACTERS - *X*, *
07676 M00S07384.xedit +++| VFD 30/5H/*, *
07677 M00S07385.xedit +++| CHAR (VFD 6/0),UA.
07678 M00S07386.xedit +++| VFD 24/4H*, O
07679 M00S07387.xedit +++| DATA C-R *+*.-
07680 M00S07388.xedit +++| D C* *
07681 M00S07389.xedit +++| D C*A COMPLETE WRITEUP ON XEDIT IS AVAILABLE ON THE LIBRARY FILE*
07682 M00S07390.xedit +++| VFD 30/5H#XEDI
07683 M00S07391.xedit +++| CHAR (VFD 12/0),FN.
07684 M00S07392.xedit +++| VFD 18/3H.#
07685 M00S07393.xedit +++| D C* *
07686 M00S07394.xedit +++| D C*INFORMATION FOR A SPECIFIC COMMAND OR PREFIX CHARACTER MAY BE*
07687 M00S07395.xedit +++| D C*OBTAINED BY ENTERING THE COMMAND -*
07688 M00S07396.xedit +++| VFD 24/4H
07689 M00S07397.xedit +++| CHAR (VFD 6/0),QM.
07690 M00S07398.xedit +++| CHAR (VFD 6/0),QM.
07691 M00S07399.xedit +++| VFD 24/4H HEL
07692 M00S07400.xedit +++| DATA 10HP,CMD -
07693 M00S07401.xedit +++| VFD 42/7HOR-
07694 M00S07402.xedit +++| CHAR (VFD 6/0),QM.
07695 M00S07403.xedit +++| CHAR (VFD 6/0),QM.
07696 M00S07404.xedit +++| VFD 6/1R
07697 M00S07405.xedit +++| DATA C*H,CMD*
07698 M00S07406.xedit +++| D C*WHERE CMD IS THE PREFIX OR POSTFIX CHARACTER OR THE COMMAND*
07699 M00S07407.xedit +++| D C*TO BE EXPLAINED.*
07700 M00S07408.xedit +++| HLPD EQU *-HLPC
07701 M00S07409.xedit +++|
07702 M00S07410.xedit +++| HLPE DATA H*COMMAND NOT FOUND -*
07703 M00S07411.xedit +++| HLPF DATA C*COMMAND *
07704 M00S07412.xedit +++| HLPG DATA H*NO HELP ENTRY FOUND FOR -*
07705 M00S07413.xedit +++| HLPH DATA C*COMMAND *
07706 M00S07414.xedit +++| HLPI DATA 10HHHHHHHHHHH
07707 M00S07415.xedit +++| HLPJ DATA 0 HELP ENTRY EXPECTED FLAG
07708 M00S07416.xedit +++| HLPK DATA 0 IF ZERO, GET XEDITI FILE
07709 M00S07417.xedit +++| SPACE 4,20
07710 M00S07418.xedit +++|** HTI - *HELP* COMMAND TELEX INTERRUPT PROCESSOR.
07711 M00S07419.xedit +++|*
07712 M00S07420.xedit +++|* ENTRY NONE.
07713 M00S07421.xedit +++|*
07714 M00S07422.xedit +++|* EXIT RETURNS TO CALLER IF NO TLX INTERRUPT SENSED,
07715 M00S07423.xedit +++|* ELSE REWINDS THE OUTPUT BUFFER, RESETS THE
07716 M00S07424.xedit +++|* CHARACTER SET AND EXITS TO *CER1* TO POP THE
07717 M00S07425.xedit +++|* INPUT STACK.
07718 M00S07426.xedit +++|*
07719 M00S07427.xedit +++|* USES A - 1, 2, 6.
07720 M00S07428.xedit +++|* X - 1, 2, 6.
07721 M00S07429.xedit +++|*
07722 M00S07430.xedit +++|* MACROS CSET, DISTC, RECALL.
07723 M00S07431.xedit +++|
07724 M00S07432.xedit +++| HTI PS ENTRY/EXIT.
07725 M00S07433.xedit +++| MX6 0
07726 M00S07434.xedit +++| SA2 TLX
07727 M00S07435.xedit +++| ZR X2,HTI IF NO INTERRUPT, RETURN
07728 M00S07436.xedit +++| SA6 A2
07729 M00S07437.xedit +++| DISTC ON,A2
07730 M00S07438.xedit +++| RECALL OUTPUT
07731 M00S07439.xedit +++| SA1 =XOUTPUT+1
07732 M00S07440.xedit +++| MX6 -18
07733 M00S07441.xedit +++| BX6 -X6*X1
07734 M00S07442.xedit +++| SA6 A1+B1 IN=OUT=FIRST
07735 M00S07443.xedit +++| SA6 A6+B1
07736 M00S07444.xedit +++| SA2 BATCH
07737 M00S07445.xedit +++| NZ X2,CER1 IF IN BATCH
07738 M00S07446.xedit +++| SA2 AS
07739 M00S07447.xedit +++| ZR X2,CER1 IF ALREADY IN NORMAL CHAR SET MODE
07740 M00S07448.xedit +++| CSET RESTORE
07741 M00S07449.xedit +++| EQ CER1 EXIT, POP INPUT STACK
07742 M00S07450.xedit +++|
07743 M00S07451.xedit +++| XEDITI BSS 0
07744 M00S07452.xedit +++| CHAR= 24D,XEDI,FN. -TI- OR -64-
07745 M00S07453.xedit +++| XEDI FILEB XBUF,1001B,FET=12,USN=LIBRARY,EPR
07746 M00S07454.xedit +++|
07747 M00S07455.xedit +++| USE BUFFERS
07748 M00S07456.xedit +++| XBUFL EQU 1001B
07749 M00S07457.xedit +++| XBUF EQU * XEDITI BUFFER
07750 M00S07458.xedit +++| LWA EQU XBUF+XBUFL+17B
07751 M00S07459.xedit +++|
07752 M00S07460.xedit +++| USE SETCHAR
07753 M00S07461.xedit +++| DATA 0 SET END OF CHARACTER PRESET
07754 M00S07462.xedit +++| USE *
07755 M00S07463.xedit +++| HERE ASSEMBLE THE DEFERRED EXPLAIN ENTRY DATA
07756 M00S07464.xedit +++| OVLDEF 2,(LOW USAGE COMMANDS)
07757 M00S07465.xedit +++| TITLE LOCAL FETS AND STORAGE.
07758 M00S07466.xedit +++|** FETS.
07759 M00S07467.xedit +++|
07760 M00S07468.xedit +++| RFET FILEC RBUF,BUFRL,EPR,FET=7
07761 M00S07469.xedit +++| TITLE COMMAND PROCESSORS.
07762 M00S07470.xedit +++| CPY SPACE 4,15
07763 M00S07471.xedit +++|** CPY - COPY/COPYD PROCESSORS.
07764 M00S07472.xedit +++|*
07765 M00S07473.xedit +++|* ENTRY (COPY) = NAME OF LAST COPY FILE.
07766 M00S07474.xedit +++|*
07767 M00S07475.xedit +++|* EXIT TO *NCM*, COPY COMPLETE.
07768 M00S07476.xedit +++|*
07769 M00S07477.xedit +++|* USES A - 0, 1, 2, 3, 4, 5, 6.
07770 M00S07478.xedit +++|* X - ALL.
07771 M00S07479.xedit +++|*
07772 M00S07480.xedit +++|* CALLS LOC, RDF, VFY, WTF.
07773 M00S07481.xedit +++|*
07774 M00S07482.xedit +++|* MACROS REWIND, WRITEC, WRITER.
07775 M00S07483.xedit +++|
07776 M00S07484.xedit +++|
07777 M00S07485.xedit +++| CPY11 MX6 0 SET NOMOD WHEN USING COPYD
07778 M00S07486.xedit +++| SA6 NOMOD
07779 M00S07487.xedit +++| CPY SA5 IFN
| Line S07488 Modification History |
M01 (Removed by) | xedit23 |
Seq # *Modification Id* Act
----------------------------+
07780 M01S07488.xedit23 ---| SA2 COPY
| Line S00013 Modification History |
M01 (Added by) | xedit23 |
Seq # *Modification Id* Act
----------------------------+
07781 M01S00013.xedit23 +++| SA3 ISFN
07782 M01S00014.xedit23 +++| SB2 BFN.*100B+3 * RESERVED FILE NAME *
07783 M01S00015.xedit23 +++| SA2 COPY
07784 M01S00016.xedit23 +++| BX3 X5-X3
07785 M01S00017.xedit23 +++| ZR X3,CER IF COPY TO EDIT FILE
07786 M00S07489.xedit +++| BX0 X2-X5 =0 IF COPY TO SAME FILE
07787 M00S07490.xedit +++| LX6 X5
07788 M00S07491.xedit +++| SX7 B1
07789 M00S07492.xedit +++| SA6 A2 SAVE COPY FILE NAME
07790 M00S07493.xedit +++| BX5 X5+X7 MERGE COMPLETE BIT
07791 M00S07494.xedit +++| ZR X0,CPY1 IF CONSECUTIVE COPIES
07792 M00S07495.xedit +++| ZR X2,CPY1 IF NO PREVIOUS COPY FILE
07793 M00S07496.xedit +++| WRITER FTD,RECALL
07794 M00S07497.xedit +++| REWIND FTD,RECALL
07795 M00S07498.xedit +++| CPY1 SA0 FTD SET FET ADDRESS
07796 M00S07499.xedit +++| SA1 GFNB
07797 M00S07500.xedit +++|
07798 M00S07501.xedit +++|* DETERMINE IF THE FILE NAME IS A SPECIAL ONE.
07799 M00S07502.xedit +++|
07800 M00S07503.xedit +++| CPY2 BX2 X1-X5
07801 M00S07504.xedit +++| AX2 17
07802 M00S07505.xedit +++| ZR X2,CPY10 IF SPECIAL NAME
07803 M00S07506.xedit +++| SA1 A1+B1
07804 M00S07507.xedit +++| NZ X1,CPY2 IF MORE IN LIST
07805 M00S07508.xedit +++| BX6 X5
07806 M00S07509.xedit +++| ZR X0,CPY3 IF CONSECUTIVE COPIES
07807 M00S07510.xedit +++| SA6 FTD PUT NAME INTO FET
07808 M00S07511.xedit +++| REWIND A6,RECALL
07809 M00S07512.xedit +++|
07810 M00S07513.xedit +++|* PREPARE FOR A COPY OPERATION.
07811 M00S07514.xedit +++|
07812 M00S07515.xedit +++| CPY3 SA1 INDEX
07813 M00S07516.xedit +++| SX5 X1-.COPY =0 IF NOT TO DELETE
07814 M00S07517.xedit +++| CPY4 RJ LOC ATTEMPT TO LOCATE LINE
07815 M00S07518.xedit +++| ZR B5,CPY8 IF NOT FOUND
07816 M00S07519.xedit +++| SX1 A0-OUTPUT
07817 M00S07520.xedit +++| ZR X1,CPY5 IF OUTPUT (IF VERIFY = DUPLICATE LINES)
07818 M00S07521.xedit +++| RJ VRY VERIFY LOCATE
07819 M00S07522.xedit +++| CPY5 WRITEC A0,E.LINE PLACE LINE
07820 M00S07523.xedit +++| SA1 NUMS
| Line S07524 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07821 M01S07524.xedit21 ---| SX6 X1-1
| Line S00079 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07822 M01S00079.xedit21 +++| SX6 B1
07823 M01S00080.xedit21 +++| IX6 X1-X6
07824 M00S07525.xedit +++| AX1 1
07825 M00S07526.xedit +++| ZR X1,CPY9 IF COUNT FINISHED
07826 M00S07527.xedit +++| SA6 A1
07827 M00S07528.xedit +++| CPY6 NZ X5,CPY7 IF *COPYD* COMMAND
07828 M00S07529.xedit +++| RJ WTF
07829 M00S07530.xedit +++| CPY7 RJ RDF
07830 M00S07531.xedit +++| EQ CPY4 PROCESS NEXT LINE
07831 M00S07532.xedit +++|
07832 M00S07533.xedit +++|* LINE IS NOT FOUND.
07833 M00S07534.xedit +++|
07834 M00S07535.xedit +++| CPY8 SA1 NUMS
07835 M00S07536.xedit +++| NG X1,LCT4 IF STRING NOT FOUND
07836 M00S07537.xedit +++| WRITEC A0,E.LINE
07837 M00S07538.xedit +++| EQ CPY6 COPY LINE
07838 M00S07539.xedit +++|
07839 M00S07540.xedit +++|* CLEANUP FROM COMMAND.
07840 M00S07541.xedit +++|
07841 M00S07542.xedit +++| CPY9 ZR X5,NCM IF NOT COPYD
07842 M00S07543.xedit +++| RJ RDF CREAM EXISTING LINE
07843 M00S07544.xedit +++| EQ NCM EXIT
07844 M00S07545.xedit +++|
07845 M00S07546.xedit +++|* PROCESS SPECIAL FILES.
07846 M00S07547.xedit +++|
07847 M00S07548.xedit +++| CPY10 SA3 A1+CPYA-GFNB
07848 M00S07549.xedit +++| SA4 X3 GET ACTUAL NAME TO USE
07849 M00S07550.xedit +++| AX3 18
07850 M00S07551.xedit +++| BX6 X4
07851 M00S07552.xedit +++| SA0 X3 SET FET TO USE
07852 M00S07553.xedit +++| SA6 FTD
07853 M00S07554.xedit +++| EQ CPY3 PERFORM COPY
07854 M00S07555.xedit +++|
07855 M00S07556.xedit +++|* TABLE OF SPECIAL FILE OPERATIONS.
07856 M00S07557.xedit +++|* VFD 42/FET ADDR,18/FILE NAME
07857 M00S07558.xedit +++|
07858 M00S07559.xedit +++| CPYA VFD 42/FTD,18/=0 *NULL* FILE
07859 M00S07560.xedit +++| VFD 42/OUTPUT,18/=0 *OUTPUT* FILE
07860 M00S07561.xedit +++| A SET *-CPYA
07861 M00S07562.xedit +++| BSSZ GFNBL-A SCRATCH REST (WILL EXPLODE IF USED)
07862 M00S07563.xedit +++| DLB SPACE 4,10
07863 M00S07564.xedit +++|** DLB - DELETE LEADING BLANKS.
07864 M00S07565.xedit +++|*
07865 M00S07566.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO PROCESS.
07866 M00S07567.xedit +++|*
07867 M00S07568.xedit +++|* EXIT TO *NCM*.
07868 M00S07569.xedit +++|*
07869 M00S07570.xedit +++|* USES A - 1, 6, 7.
07870 M00S07571.xedit +++|* X - 1, 5, 6, 7.
07871 M00S07572.xedit +++|* B - 2, 3.
07872 M00S07573.xedit +++|*
07873 M00S07574.xedit +++|* CALLS RDF, SAC, WTF.
07874 M00S07575.xedit +++|
07875 M00S07576.xedit +++|
07876 M00S07577.xedit +++| DLB SA1 NUMS
| Line S07578 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07877 M01S07578.xedit21 ---| SX6 X1-1
| Line S00081 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07878 M01S00081.xedit21 +++| SX6 B1
07879 M01S00082.xedit21 +++| IX6 X1-X6
07880 M00S07579.xedit +++|+ SA6 A1
07881 M00S07580.xedit +++| MX5 -0 SET NO MODIFICATIONS
07882 M00S07581.xedit +++| RJ SAC SET ASCII PROCESSING
07883 M00S07582.xedit +++| DLB1 SA1 E.STR-1
07884 M00S07583.xedit +++| SB3 -1R
07885 M00S07584.xedit +++| SX7 -1 RESET CHARACTER COUNTER
07886 M00S07585.xedit +++|
07887 M00S07586.xedit +++| DLB2 SA1 A1+B1 SEARCH FOR FIRST NON-BLANK
07888 M00S07587.xedit +++| SB2 B3+X1
07889 M00S07588.xedit +++| NG X1,DLB6 IF END OF LINE (ALL BLANKS)
07890 M00S07589.xedit +++| ZR B2,DLB2 IF CHARACTER IS A BLANK
07891 M00S07590.xedit +++| SX6 A1-E.STR
07892 M00S07591.xedit +++| ZR X6,DLB4 IF NO LEADING BLANKS
07893 M00S07592.xedit +++| DLB3 BX6 X1 REPACK CHARACTERS
07894 M00S07593.xedit +++| SX7 X7+B1 INCREMENT CHARACTER COUNT
07895 M00S07594.xedit +++| SA6 E.STR+X7
07896 M00S07595.xedit +++| SA1 A1+B1
07897 M00S07596.xedit +++| PL X6,DLB3 IF NOT AT END OF LINE
07898 M00S07597.xedit +++| SX6 B1
07899 M00S07598.xedit +++| MX5 0 SET MODIFICATIONS MADE TO FILE
07900 M00S07599.xedit +++| SA7 E.STR-1 SET NUMBER OF CHARACTERS IN LINE
07901 M00S07600.xedit +++| SA6 E.LMOD SET MODIFICATION MADE TO LINE
07902 M00S07601.xedit +++|
07903 M00S07602.xedit +++|* CHECK FOR MORE LINES TO PROCESS.
07904 M00S07603.xedit +++|
07905 M00S07604.xedit +++| DLB4 SA1 NUMS
| Line S07605 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07906 M01S07605.xedit21 ---| SX6 X1-1
| Line S00083 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07907 M01S00083.xedit21 +++| SX6 B1+
07908 M01S00084.xedit21 +++| IX6 X1-X6
07909 M00S07606.xedit +++| SA6 A1
07910 M00S07607.xedit +++| NG X6,DLB5 IF FINISHED
07911 M00S07608.xedit +++| RJ WTF
07912 M00S07609.xedit +++| RJ RDF
07913 M00S07610.xedit +++| EQ DLB1 PROCESS NEXT LINE
07914 M00S07611.xedit +++| DLB5 SA1 NOMOD UPDATE MODIFICATION STATUS
07915 M00S07612.xedit +++| BX6 X5*X1
07916 M00S07613.xedit +++| SA6 A1
07917 M00S07614.xedit +++| EQ NCM EXIT
07918 M00S07615.xedit +++|
07919 M00S07616.xedit +++|* PROCESS TOTALLY BLANK LINE.
07920 M00S07617.xedit +++|
07921 M00S07618.xedit +++| DLB6 MX5 0 SET MODIFICATION TO FILE
07922 M00S07619.xedit +++| RJ RDF READ NEXT LINE
07923 M00S07620.xedit +++| SA1 NUMS
| Line S07621 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07924 M01S07621.xedit21 ---| SX6 X1-1
| Line S00085 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
07925 M01S00085.xedit21 +++| SX6 B1+
07926 M01S00086.xedit21 +++| IX6 X1-X6
07927 M00S07622.xedit +++| NG X6,DLB5 IF FINISHED
07928 M00S07623.xedit +++| SA6 A1
07929 M00S07624.xedit +++| EQ DLB1 PROCESS NEXT LINE
07930 M00S07625.xedit +++|
07931 M00S07626.xedit +++| LTB SPACE 4,15
07932 M00S07627.xedit +++|** LTB - LIST TAB SETTINGS.
07933 M00S07628.xedit +++|*
07934 M00S07629.xedit +++|* ENTRY (TABS) = TAB SETTINGS.
07935 M00S07630.xedit +++|*
07936 M00S07631.xedit +++|* EXIT TO *NCM*.
07937 M00S07632.xedit +++|*
07938 M00S07633.xedit +++|* USES A - 1, 2, 5, 6, 7.
07939 M00S07634.xedit +++|* X - 1, 2, 3, 4, 5, 6, 7.
07940 M00S07635.xedit +++|* B - 4, 5, 6, 7.
07941 M00S07636.xedit +++|*
07942 M00S07637.xedit +++|* CALLS CDD.
07943 M00S07638.xedit +++|*
07944 M00S07639.xedit +++|* MACROS WRITEC.
07945 M00S07640.xedit +++|
07946 M00S07641.xedit +++|
07947 M00S07642.xedit +++| LTB BSS 0
07948 M00S07643.xedit +++| SB1 1
07949 M00S07644.xedit +++| SA5 TABS
07950 M00S07645.xedit +++| SB6 LTBA+1
07951 M00S07646.xedit +++| SB7 B0
07952 M00S07647.xedit +++| LTB1 SA1 A5+B7 PUT CURRENT TABS INTO MESSAGE
07953 M00S07648.xedit +++| MX5 0
07954 M00S07649.xedit +++| ZR X1,LTB2 IF END OF TABS
07955 M00S07650.xedit +++| RJ CDD CONSTRUCT MESSAGE
07956 M00S07651.xedit +++| LX4 60-6
07957 M00S07652.xedit +++| BX5 X4
07958 M00S07653.xedit +++| SB7 B7+B1
07959 M00S07654.xedit +++| SA1 A5+B7
07960 M00S07655.xedit +++| ZR X1,LTB2 IF END OF TABS
07961 M00S07656.xedit +++| RJ CDD
07962 M00S07657.xedit +++| SB4 6*4
07963 M00S07658.xedit +++| SB4 B4-B2
07964 M00S07659.xedit +++| LX6 B4,X6
07965 M00S07660.xedit +++| MX7 6*6
07966 M00S07661.xedit +++| BX5 X7*X5
07967 M00S07662.xedit +++| BX6 -X7*X6
07968 M00S07663.xedit +++| BX6 X6+X5
07969 M00S07664.xedit +++| SA6 B6
07970 M00S07665.xedit +++| SB6 B6+B1
07971 M00S07666.xedit +++| SB5 8
07972 M00S07667.xedit +++| SB7 B7+B1
07973 M00S07668.xedit +++| LT B7,B5,LTB1 IF NOT FINISHED WITH TABS
07974 M00S07669.xedit +++| MX5 0
07975 M00S07670.xedit +++| LTB2 BX7 X5
07976 M00S07671.xedit +++| SA7 B6
07977 M00S07672.xedit +++| MX7 0
07978 M00S07673.xedit +++| SA7 B6+B1 PUT EOL AFTER LAST TAB
07979 M00S07674.xedit +++| SA1 TABCHAR PUT CURRENT TAB CHARACTER INTO MESSAGE
07980 M00S07675.xedit +++| PL X1,LTB3 IF TAB CHARACTER IS DEFINED
07981 M00S07676.xedit +++| SX1 1R
07982 M00S07677.xedit +++| LTB3 LX1 7*6
07983 M00S07678.xedit +++| MX6 6
07984 M00S07679.xedit +++| SA2 LTBA
07985 M00S07680.xedit +++| LX6 7*6+6
07986 M00S07681.xedit +++| BX7 -X6*X2 PUT LOWER PART OF CHARACTER
07987 M00S07682.xedit +++| BX7 X7+X1
07988 M00S07683.xedit +++| LX6 6
07989 M00S07684.xedit +++| BX3 X6*X1
07990 M00S07685.xedit +++| NZ X3,LTB4 IF NOT ASCII CHARACTER
07991 M00S07686.xedit +++| SX1 1R
07992 M00S07687.xedit +++| LX1 8*6 POSITION
07993 M00S07688.xedit +++| LTB4 BX7 -X6*X7
07994 M00S07689.xedit +++| BX7 X7+X1
07995 M00S07690.xedit +++| SA7 A2
07996 M00S07691.xedit +++| WRITEC OUTPUT,LTBA
07997 M00S07692.xedit +++| EQ NCM EXIT
07998 M00S07693.xedit +++|
07999 M00S07694.xedit +++| LTBA DATA 10H TABS
08000 M00S07695.xedit +++| BSSZ NTABS/2+2
08001 M00S07696.xedit +++| NBL SPACE 4
08002 M00S07697.xedit +++|** NBL - CHANGE ERROR MESSAGES TO CONTAIN NO BELLS.
08003 M00S07698.xedit +++|*
08004 M00S07699.xedit +++|* ENTRY NONE.
08005 M00S07700.xedit +++|*
08006 M00S07701.xedit +++|* EXIT TO *NCM*.
08007 M00S07702.xedit +++|*
08008 M00S07703.xedit +++|* USES A - 1.
08009 M00S07704.xedit +++|* X - 1.
08010 M00S07705.xedit +++|*
08011 M00S07706.xedit +++|* MACROS MOVE.
08012 M00S07707.xedit +++|*
08013 M00S07708.xedit +++|* NOTES THIS COMMAND SWITCHES THE ERROR MESSAGES ISSUED TO A
08014 M00S07709.xedit +++|* TIME SHARING TERMINAL TO THOSE CONTAINING NO BELLS.
08015 M00S07710.xedit +++|* THIS COMMAND FROM A BATCH JOB FUNCTIONS AS A NO-OP.
08016 M00S07711.xedit +++|
08017 M00S07712.xedit +++|
08018 M00S07713.xedit +++| NBL SA1 BATCH
08019 M00S07714.xedit +++| NZ X1,NCM IF BATCH ORIGIN
08020 M00S07715.xedit +++| MOVE NBLAL,NBLA,MESSAGE+1 SWITCH MESSAGES
08021 M00S07716.xedit +++| EQ NCM EXIT
08022 M00S07717.xedit +++|
08023 M00S07718.xedit +++| NBLA BSS 0 TABLE OF ERROR MESSAGES
08024 M00S07719.xedit +++| ERROVL HERE
08025 M00S07720.xedit +++| NBLAL EQU *-NBLA
08026 M00S07721.xedit +++| OCT SPACE 4,20
08027 M00S07722.xedit +++|** OCT - PROCESS OCTCHANGE COMMAND.
08028 M00S07723.xedit +++|*
08029 M00S07724.xedit +++|* ENTRY (NUMS) = FWA OF PARAMETERS.
08030 M00S07725.xedit +++|* (NUMS+1) = LWA OF PARAMETERS.
08031 M00S07726.xedit +++|*
08032 M00S07727.xedit +++|* EXIT TO *NCM*, IF CHANGE COMPLETE.
08033 M00S07728.xedit +++|* TO *CER*, IF ARGUMENT ERROR.
08034 M00S07729.xedit +++|* TO *LCT4*, IF STRING NOT FOUND.
08035 M00S07730.xedit +++|*
08036 M00S07731.xedit +++|* USES A - 0, 1, 5, 6, 7.
08037 M00S07732.xedit +++|* X - ALL.
08038 M00S07733.xedit +++|* B - 4, 6, 7.
08039 M00S07734.xedit +++|*
08040 M00S07735.xedit +++|* CALLS ASF, CHS, RCP, RDF, RTA, RTR, SCP, VAL,
08041 M00S07736.xedit +++|* VRY, WTF.
08042 M00S07737.xedit +++|*
08043 M00S07738.xedit +++|* MACROS MOVE.
08044 M00S07739.xedit +++|*
08045 M00S07740.xedit +++|* NOTES *OCT* PROCESSES ONLY A SUBSET OF CHANGE OPTIONS.
08046 M00S07741.xedit +++|
08047 M00S07742.xedit +++|
08048 M00S07743.xedit +++| OCT BX7 X7-X7 CLEAR CELLS
08049 M00S07744.xedit +++| MX6 0
08050 M00S07745.xedit +++| SA6 P1LP
08051 M00S07746.xedit +++| SA7 P2RP
08052 M00S07747.xedit +++| SA6 A6+B1
08053 M00S07748.xedit +++| SA7 A7+B1
08054 M00S07749.xedit +++| SA6 A6+B1
08055 M00S07750.xedit +++| SA7 A7+B1
08056 M00S07751.xedit +++| RJ SCP SET COMMAND PAREMETERS
08057 M00S07752.xedit +++| ZR X1,OCT12 IF NO PARAMETERS
08058 M00S07753.xedit +++| SX6 D.STR+1
08059 M00S07754.xedit +++| SB6 B0 SET FIRST PASS
08060 M00S07755.xedit +++| MX1 1 SET POSITION
08061 M00S07756.xedit +++| SA7 D.STR SET FWA OF CREATED STRING -1
08062 M00S07757.xedit +++| SA6 P1LP SET FIRST STRING POINTER
08063 M00S07758.xedit +++| BX7 X7-X7 CLEAR ASSEMBLY
08064 M00S07759.xedit +++|
08065 M00S07760.xedit +++|* CONVERT OCTAL DIGITS.
08066 M00S07761.xedit +++|
08067 M00S07762.xedit +++| OCT1 NG X5,OCT2 IF END OF PARAMETERS/LINE
08068 M00S07763.xedit +++| SX4 X5-1R0
08069 M00S07764.xedit +++| SX3 X5-1R7-1
08070 M00S07765.xedit +++| LX7 3
08071 M00S07766.xedit +++| BX3 -X4*X3 NEGATIVE IF OCTAL NUMBER
08072 M00S07767.xedit +++| PL X3,OCT2 IF NOT A NUMBER
08073 M00S07768.xedit +++| BX7 X7+X4 MERGE
08074 M00S07769.xedit +++| SA5 A5+B1
08075 M00S07770.xedit +++| LX1 30 UPDATE POSITION
08076 M00S07771.xedit +++| PL X1,OCT1 IF ON FIRST POSITION
08077 M00S07772.xedit +++| SA7 A7+B1 SAVE ASSEMBLY
08078 M00S07773.xedit +++| BX7 X7-X7
08079 M00S07774.xedit +++| EQ OCT1 LOOP
08080 M00S07775.xedit +++|
08081 M00S07776.xedit +++| OCT2 PL X1,OCT12 IF ON SECOND HALF (ERROR)
08082 M00S07777.xedit +++| SX6 A7+B1 GET LWA+1 FOR STRING
08083 M00S07778.xedit +++| SA6 A6+B1 SAVE ADDRESS
08084 M00S07779.xedit +++|
08085 M00S07780.xedit +++|* SKIP TRAILING BLANKS/ONE COMMA.
08086 M00S07781.xedit +++|
08087 M00S07782.xedit +++| OCT3 SB4 X5-1R
08088 M00S07783.xedit +++| ZR B4,OCT4 IF BLANK
08089 M00S07784.xedit +++| NE B4,B1,OCT5 IF NOT COMMA
08090 M00S07785.xedit +++| NZ X7,OCT5 IF NOT FIRST COMMA
08091 M00S07786.xedit +++|
08092 M00S07787.xedit +++| OCT4 SX7 B4+X7 UPDATE COMMA STATUS
08093 M00S07788.xedit +++| SA5 A5+B1
08094 M00S07789.xedit +++| EQ OCT3 PROCESS NEXT CHARACTER
08095 M00S07790.xedit +++|
08096 M00S07791.xedit +++|* CHECK WHICH FIELD.
08097 M00S07792.xedit +++|
08098 M00S07793.xedit +++| OCT5 BX7 X7-X7 RESET ASSEMBLY
08099 M00S07794.xedit +++| SB6 B6+B1
08100 M00S07795.xedit +++| NE B6,B1,OCT6 IF ON SECOND FIELD
08101 M00S07796.xedit +++| SX6 A7+B1
08102 M00S07797.xedit +++| SA6 P3LP SET SECOND POINTER
08103 M00S07798.xedit +++| EQ OCT1 PARSE SECOND STRING
08104 M00S07799.xedit +++|
08105 M00S07800.xedit +++| OCT6 RJ VAL GET REPETITION COUNT
08106 M00S07801.xedit +++| SA6 NUMS SAVE COUNT
08107 M00S07802.xedit +++| PL X5,OCT12 IF NOT END OF COMMAND
08108 M00S07803.xedit +++| RJ ASF GET STRING PARAMETERS
08109 M00S07804.xedit +++| NZ B2,OCT12 IF ERROR IN ANALYSIS
08110 M00S07805.xedit +++| RJ RCP RESET COMMAND PARAMETERS
08111 M00S07806.xedit +++| SX6 M.CODED
08112 M00S07807.xedit +++| SA6 E.NMODE SET BACK TO CODED
08113 M00S07808.xedit +++|
08114 M00S07809.xedit +++|* BEGIN TO OCTCHANGE.
08115 M00S07810.xedit +++|
08116 M00S07811.xedit +++| OCT7 SB7 9
08117 M00S07812.xedit +++| SA1 E.LINE BREAK LINE INTO 6 BIT PARTS
08118 M00S07813.xedit +++| MX3 -12
08119 M00S07814.xedit +++| SX6 B1 SET SOMETHING IN X6
08120 M00S07815.xedit +++| MX2 -6
08121 M00S07816.xedit +++| BX4 -X3*X1 GET END OF LINE BYTE
08122 M00S07817.xedit +++| SA6 E.STR-1
08123 M00S07818.xedit +++| SA0 OCBUF SET FWA OF SCRATCH BUFFER
08124 M00S07819.xedit +++| OCT8 LX1 6
08125 M00S07820.xedit +++| BX6 -X2*X1
08126 M00S07821.xedit +++| SB7 B7-B1
08127 M00S07822.xedit +++| SA6 A6+B1
08128 M00S07823.xedit +++| PL B7,OCT8 IF MORE IN WORD
08129 M00S07824.xedit +++| ZR X4,OCT9 IF END OF LINE
08130 M00S07825.xedit +++| SB7 9 RESET CHARACTER COUNT
08131 M00S07826.xedit +++| SA1 A1+B1
08132 M00S07827.xedit +++| BX4 -X3*X1
08133 M00S07828.xedit +++| EQ OCT8 BREAK UP NEXT WORD
08134 M00S07829.xedit +++|
08135 M00S07830.xedit +++| OCT9 SA1 A6-B1
08136 M00S07831.xedit +++| MX6 2
08137 M00S07832.xedit +++| OCT9.1 SA1 A1-B1
08138 M00S07833.xedit +++| ZR X1,OCT9.1 IF LAST NON-BLANK NOT FOUND
08139 M00S07834.xedit +++| SA6 A1+B1
08140 M00S07835.xedit +++| SX7 A6-E.STR SET NUMBER OF CHARACTERS IN LINE
08141 M00S07836.xedit +++| SA7 E.STR-1
08142 M00S07837.xedit +++| SX0 OCBUF+320D SET LWA+1 OF BUFFER
08143 M00S07838.xedit +++| RJ CHS CHANGE STRING(S)
08144 M00S07839.xedit +++| ZR B5,OCT13 IF STRING NOT FOUND
08145 M00S07840.xedit +++|
08146 M00S07841.xedit +++|* COPY NEW LINE BACK INTO *E.STR*.
08147 M00S07842.xedit +++|
08148 M00S07843.xedit +++| SA1 OCBUF
08149 M00S07844.xedit +++| MX7 0
08150 M00S07845.xedit +++| SA6 E.STR-1
08151 M00S07846.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE
08152 M00S07847.xedit +++| OCT10 BX6 X1
08153 M00S07848.xedit +++| SA1 A1+B1
08154 M00S07849.xedit +++| SA6 A6+1
08155 M00S07850.xedit +++| PL X6,OCT10 IF MORE
08156 M00S07851.xedit +++| SB6 E.STR
08157 M00S07852.xedit +++| SB7 E.STR REPACK TO SAME (RTA DOES NOT CHECK LENGTH)
08158 M00S07853.xedit +++| RJ RTA REPACK LINE
08159 M00S07854.xedit +++| SB7 E.STR
08160 M00S07855.xedit +++| RJ RTB TRIM LINE
08161 M00S07856.xedit +++| MOVE 33D,E.STR,E.LINE
08162 M00S07857.xedit +++| RJ VRY
08163 M00S07858.xedit +++| SA1 NUMS
| Line S07859 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08164 M01S07859.xedit21 ---| SX6 X1-1
| Line S00087 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08165 M01S00087.xedit21 +++| SX6 B1
08166 M01S00088.xedit21 +++| IX6 X1-X6
08167 M00S07860.xedit +++| AX1 1
08168 M00S07861.xedit +++| ZR X1,NCM IF CHANGE COMPLETE, EXIT
08169 M00S07862.xedit +++| SA6 A1
08170 M00S07863.xedit +++| OCT11 RJ WTF
08171 M00S07864.xedit +++| RJ RDF ADVANCE TO NEXT
08172 M00S07865.xedit +++| EQ OCT7 PROCESS NEXT OCTCHANGE
08173 M00S07866.xedit +++|
08174 M00S07867.xedit +++| OCT12 SB2 ARG.
08175 M00S07868.xedit +++| RJ RCP RESET END OF LINE
08176 M00S07869.xedit +++| EQ CER PROCESS ERROR
08177 M00S07870.xedit +++|
08178 M00S07871.xedit +++|* PROCESS STRING NOT FOUND.
08179 M00S07872.xedit +++|
08180 M00S07873.xedit +++| OCT13 SA1 NUMS
08181 M00S07874.xedit +++| PL X1,OCT11 IF NOT 0 OPTION
08182 M00S07875.xedit +++| EQ LCT4 EXIT, STRING NOT FOUND
08183 M00S07876.xedit +++| PBL SPACE 4,15
08184 M00S07877.xedit +++|** PBL - PROCESS BAD LINE COMMANDS.
08185 M00S07878.xedit +++|*
08186 M00S07879.xedit +++|* ENTRY (X1) = COMMAND DESCRIPTOR WORD. MODIFIER FIELD IS -
08187 M00S07880.xedit +++|* -1 FOR DELETE BAD LINE (DBADL).
08188 M00S07881.xedit +++|* +1 FOR FIND BAD LINE (FBADL).
08189 M00S07882.xedit +++|* (NUMS) = NUMBER OF LINES TO PROCESS.
08190 M00S07883.xedit +++|*
| Line S07884 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08191 M01S07884.xedit21 ---|* USES A - 0, 1, 2, 6.
| Line S00089 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08192 M01S00089.xedit21 +++|* USES A - 1, 2, 6.
08193 M00S07885.xedit +++|* X - 1, 2, 3, 4, 5, 6.
| Line S07886 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08194 M01S07886.xedit21 ---|* B - 2.
08195 M00S07887.xedit +++|*
08196 M00S07888.xedit +++|* CALLS RDF, SCD, VRY, WTF.
08197 M00S07889.xedit +++|*
08198 M00S07890.xedit +++|
08199 M00S07891.xedit +++|
08200 M00S07892.xedit +++| PBL AX1 18
08201 M00S07893.xedit +++| SX5 X1 X5 = COMMAND TYPE
08202 M00S07894.xedit +++| RJ SCD SET CODED LINE
| Line S07895 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08203 M01S07895.xedit21 ---| SA2 NUMS
08204 M01S07896.xedit21 ---| SA0 X2 A0 = NUMBER OF LINES TO PROCESS
08205 M00S07897.xedit +++| PBL1 SA1 E.LINE
08206 M00S07898.xedit +++| MX2 -6
08207 M00S07899.xedit +++| LX1 6
08208 M00S07900.xedit +++| BX3 -X2*X1 GET FIRST CHARACTER
08209 M00S07901.xedit +++| SX4 X3-1R9-1 NEGATIVE, IF OK
08210 M00S07902.xedit +++| SX3 X3-1R0 POSITIVE, IF OK
08211 M00S07903.xedit +++| BX3 -X3*X4 NEGATIVE, IF OK
08212 M00S07904.xedit +++| NG X3,PBL3 IF LINE NUMBER AT START
08213 M00S07905.xedit +++| RJ VRY
08214 M00S07906.xedit +++| PL X5,PBL2 IF FBADL COMMAND
08215 M00S07907.xedit +++| RJ RDF CREAM EXISTING LINE
08216 M00S07908.xedit +++| MX6 0 SET MODIFICATIONS MADE
08217 M00S07909.xedit +++| SA6 NOMOD
| Line S07910 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08218 M01S07910.xedit21 ---| PBL2 SA0 A0-B1 DECREMENT REPITITION COUNT
08219 M01S07911.xedit21 ---| SB2 A0
08220 M01S07912.xedit21 ---| LT B2,B1,NCM IF FINISHED, EXIT
| Line S00090 Modification History |
M01 (Added by) | xedit21 |
M02 (Removed by) | xedi21a |
Seq # *Modification Id* Act
----------------------------+
08221 M02S00090.xedi21a ---| PBL2 SA2 NUMS
| Line S00001 Modification History |
M01 (Added by) | xedi21a |
Seq # *Modification Id* Act
----------------------------+
08222 M01S00001.xedi21a +++| PBL2 SA1 NUMS
| Line S00091 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08223 M01S00091.xedit21 +++| SX6 B1+
08224 M01S00092.xedit21 +++| IX6 X1-X6
08225 M01S00093.xedit21 +++| AX1 1
08226 M01S00094.xedit21 +++| ZR X1,NCM IF FINISHED, EXIT
08227 M01S00095.xedit21 +++| SA6 A1+
08228 M00S07913.xedit +++| NG X5,PBL1 IF DBADL COMMAND
08229 M00S07914.xedit +++| PBL3 RJ WTF
08230 M00S07915.xedit +++| RJ RDF
08231 M00S07916.xedit +++| EQ PBL1 PROCESS FBADL
08232 M00S07917.xedit +++| PLN SPACE 4,20
08233 M00S07918.xedit +++|** PLN - PROCESS LINE NUMBER COMMANDS.
08234 M00S07919.xedit +++|*
08235 M00S07920.xedit +++|* ENTRY (X1) = COMMAND DESCRIPTOR WORD.
08236 M00S07921.xedit +++|* COMMAND MODIFIER (BITS 35-18) CONTAINS THE FUNCTION.
08237 M00S07922.xedit +++|* =-2, ADDLNS.
08238 M00S07923.xedit +++|* =-1, ADDLN.
08239 M00S07924.xedit +++|* = 0, DELETELN.
08240 M00S07925.xedit +++|* = 1, REPLACELN.
08241 M00S07926.xedit +++|* EXIT TO *CER*, IF ERROR.
08242 M00S07927.xedit +++|*
08243 M00S07928.xedit +++|* USES A - 1, 2, 3, 6, 7.
08244 M00S07929.xedit +++|* X - ALL.
08245 M00S07930.xedit +++|* B - 2, 5, 6, 7.
08246 M00S07931.xedit +++|*
08247 M00S07932.xedit +++|* CALLS CDD, RDF, TOP, WTF.
08248 M00S07933.xedit +++|
08249 M00S07934.xedit +++|
08250 M00S07935.xedit +++| PLN AX1 18
08251 M00S07936.xedit +++| SX5 X1
| Line S00096 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08252 M01S00096.xedit21 +++| SX7 30 DEFAULT BIT COUNT
08253 M01S00097.xedit21 +++| SA7 PLNB
08254 M00S07937.xedit +++| MX6 30 DEFAULT CHARACTER SIZE
08255 M00S07938.xedit +++| SB2 X1+B1
08256 M00S07939.xedit +++| PL B2,PLN0 IF NOT ADDLNS
08257 M00S07940.xedit +++| MX6 36 LENGTHEN CHARACTER MASK
08258 M00S07941.xedit +++| PLN0 SA6 PLNA
08259 M00S07942.xedit +++| RJ TOP REWIND FILES
08260 M00S07943.xedit +++| SA1 NUMS
08261 M00S07944.xedit +++| MX7 0
08262 M00S07945.xedit +++| BX6 X1
08263 M00S07946.xedit +++| SA2 A1+B1
08264 M00S07947.xedit +++| NZ X6,PLN0.1 IF STARTING LINE NUMBER NOT ZERO
08265 M00S07948.xedit +++| SX6 B1 SET TO DEFAULT
08266 M00S07949.xedit +++| PLN0.1 SA7 NOMOD SET MODIFICATIONS FLAG
08267 M00S07950.xedit +++| SA6 A1+
08268 M00S07951.xedit +++| BX7 X2
08269 M00S07952.xedit +++| NZ X7,PLN0.2 IF STEP IS NOT ZERO
08270 M00S07953.xedit +++| SX7 B1
08271 M00S07954.xedit +++| PLN0.2 SA7 A2
08272 M00S07955.xedit +++| NG X5,PLN6 IF NOT TO DELETE LINE NUMBER
08273 M00S07956.xedit +++|
08274 M00S07957.xedit +++|* REMOVE LINE NUMBER.
08275 M00S07958.xedit +++|
08276 M00S07959.xedit +++| PLN1 SA1 E.LINE REMOVE LINE NUMBERS
08277 M00S07960.xedit +++| SA2 =40404040404040404040B
08278 M00S07961.xedit +++| BX3 X2*X1 4X IF BIT 5 IS SET
08279 M00S07962.xedit +++| SB5 60-5
08280 M00S07963.xedit +++| LX4 B5,X3 000001 IF BIT 5 WAS SET
08281 M00S07964.xedit +++| IX4 X3-X4 011111 IF BIT 5 WAS SET
08282 M00S07965.xedit +++| BX4 X4+X3 111111 IF BIT 5 WAS SET
08283 M00S07966.xedit +++| SA3 =05050505050505050505B
08284 M00S07967.xedit +++| BX6 X4-X1 COMPLEMENT CHARS .GE. 40B
08285 M00S07968.xedit +++| IX6 X6+X3 1XXXXX IF A NUMBER
08286 M00S07969.xedit +++| BX3 X2*X6 100000 IF A NUMBER
08287 M00S07970.xedit +++| LX4 B5,X3 000001 IF A NUMBER
08288 M00S07971.xedit +++| IX4 X3-X4 011111 IF A NUMBER
08289 M00S07972.xedit +++| BX4 X4+X3 111111 IF A NUMBER
08290 M00S07973.xedit +++| MX6 1
08291 M00S07974.xedit +++| PL X4,PLN9 IF NO LINE NUMBER
08292 M00S07975.xedit +++| PLN2 AX6 6 EXTEND MASK
08293 M00S07976.xedit +++| BX7 -X4*X6
08294 M00S07977.xedit +++| ZR X6,PLN3 IF ALL WORD IS NUMBERS
08295 M00S07978.xedit +++| ZR X7,PLN2 IF NOT FINISHED WITH MASK
08296 M00S07979.xedit +++| PLN3 LX4 B1,X6 MASK OFF EXTRA BIT
08297 M00S07980.xedit +++| BX4 X6*X4
08298 M00S07981.xedit +++| CX0 X4
08299 M00S07982.xedit +++| SB7 X0 SHIFT TO LEFT JUSTIFY WORD
08300 M00S07983.xedit +++| MX3 -12 END OF LINE CHECKER
08301 M00S07984.xedit +++| BX0 -X3*X1 0, IF THIS IS LAST WORD IN LINE
08302 M00S07985.xedit +++| BX6 -X4*X1 REMOVE LINE NUMBER
08303 M00S07986.xedit +++| LX6 B7 LEFT JUSTIFY REMAINING
08304 M00S07987.xedit +++| LX4 B7 POSITION MASK
08305 M00S07988.xedit +++| PLN4 ZR X0,PLN5 IF LAST WORD OF LINE
08306 M00S07989.xedit +++| SA1 A1+B1
08307 M00S07990.xedit +++| BX0 -X3*X1
08308 M00S07991.xedit +++| LX1 B7
08309 M00S07992.xedit +++| BX2 X4*X1
08310 M00S07993.xedit +++| IX7 X2+X6
08311 M00S07994.xedit +++| BX6 -X4*X1
08312 M00S07995.xedit +++| SA7 A1-B1
08313 M00S07996.xedit +++| EQ PLN4 PROCESS NEXT WORD IN LINE
08314 M00S07997.xedit +++|
08315 M00S07998.xedit +++| PLN5 SA6 A1+
08316 M00S07999.xedit +++| PLN6 ZR X5,PLN9 IF NOT ADDING LINE NUMBERS
08317 M00S08000.xedit +++| SA1 NUMS GET BASE
08318 M00S08001.xedit +++| SA2 A1+B1 INCREMENT
08319 M00S08002.xedit +++| IX6 X1+X2
| Line S08003 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08320 M01S08003.xedit21 ---| SB2 X1-99999D
08321 M01S08004.xedit21 ---| GT B2,B1,PLN10 IF LINE NUMBER IS TOO LARGE
08322 M00S08005.xedit +++| SA6 A1+
08323 M00S08006.xedit +++| RJ CDD
| Line S08007 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08324 M01S08007.xedit21 ---| SA3 =66666666B BLANK .EOR. 0000
08325 M01S08008.xedit21 ---| SA2 PLNA WIDTH TO ADD
| Line S00098 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08326 M01S00098.xedit21 +++| SA3 PLNB
08327 M01S00099.xedit21 +++| SA2 PLNA
08328 M01S00100.xedit21 +++| SB7 X3+
08329 M01S00101.xedit21 +++| GE B7,B2,PLN6.2 IF LINE NUMBER FITS WITHIN FIELD
08330 M01S00102.xedit21 +++| PLN6.1 ZR X2,PLN10 IF MASK ALREADY MAXIMUM SIZE
08331 M01S00103.xedit21 +++| SB7 B7+6 INCREMENT FIELD SIZE
08332 M01S00104.xedit21 +++| SX7 B7
08333 M01S00105.xedit21 +++| SA7 A3
08334 M01S00106.xedit21 +++| AX2 6 EXTEND MASK
08335 M01S00107.xedit21 +++| BX7 X2
08336 M01S00108.xedit21 +++| SA7 A2+
08337 M01S00109.xedit21 +++| LT B7,B2,PLN6.1 IF STILL LARGER THAN FIELD
08338 M01S00110.xedit21 +++| PLN6.2 SA3 =66666666B BLANK .EOR. 0000
08339 M01S00111.xedit21 +++| BX3 -X2*X3 TRIM MASK TO FIELD SIZE
08340 M00S08009.xedit +++| LX3 B2 JUSTIFY MASK
08341 M00S08010.xedit +++| CX4 X2 DETERMINE SIZE
08342 M00S08011.xedit +++| SB6 E.LINE SET FWA
08343 M00S08012.xedit +++| BX6 X6-X3
| Line S00112 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08344 M01S00112.xedit21 +++| SB5 B7-60D
08345 M00S08013.xedit +++| SB7 X4-60D
| Line S08014 Modification History |
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08346 M01S08014.xedit21 ---| LX6 30
08347 M01S08015.xedit21 ---| SA1 B6 GET FIRST WORD
| Line S00113 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08348 M01S00113.xedit21 +++| SA1 B6+ GET FIRST WORD
08349 M01S00114.xedit21 +++| AX6 B5
08350 M00S08016.xedit +++| SB5 B6+33D SET LWA+1
08351 M00S08017.xedit +++| MX3 -12 END OF LINE BYTE MASK
08352 M00S08018.xedit +++| BX6 X2*X6 REMOVE EXCESS
08353 M00S08019.xedit +++|
08354 M00S08020.xedit +++| PLN7 BX4 -X3*X1
08355 M00S08021.xedit +++| AX1 B7
08356 M00S08022.xedit +++| BX7 -X2*X1
08357 M00S08023.xedit +++| IX7 X7+X6
08358 M00S08024.xedit +++| BX6 X2*X1
08359 M00S08025.xedit +++| SA1 B6+B1
08360 M00S08026.xedit +++| SA7 B6
08361 M00S08027.xedit +++| SB6 B6+B1
08362 M00S08028.xedit +++| ZR X4,PLN8 IF END OF LINE FOUND
08363 M00S08029.xedit +++| LT B6,B5,PLN7 IF NOT END OF BUFFER
08364 M00S08030.xedit +++| PLN8 SA6 B6+
08365 M00S08031.xedit +++| PLN9 RJ WTF STEP TO NEXT LINE
08366 M00S08032.xedit +++| RJ RDF
08367 M00S08033.xedit +++| PL X5,PLN1 IF TO DELETE LINE NUMBERS
08368 M00S08034.xedit +++| EQ PLN6 ADD NEW LINE NUMBERS
08369 M00S08035.xedit +++|
08370 M00S08036.xedit +++| PLN10 BX7 X7-X7 RESTORE FILE
08371 M00S08037.xedit +++| MX6 -1 SET NO MODS
08372 M00S08038.xedit +++| SA7 IWHERE
08373 M00S08039.xedit +++| SA6 NOMOD
08374 M00S08040.xedit +++| RJ TOP
08375 M00S08041.xedit +++| SB2 LNTL. LINE NUMBER TOO LARGE
08376 M00S08042.xedit +++| EQ CER EXIT
08377 M00S08043.xedit +++|
08378 M00S08044.xedit +++| PLNA DATA 0 MASK STORAGE
| Line S00115 Modification History |
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
08379 M01S00115.xedit21 +++| PLNB DATA 0 FIELD SIZE STORAGE
08380 M00S08045.xedit +++| RDP SPACE 4,20
08381 M00S08046.xedit +++|** RDP - READ/READP PROCESSOR.
08382 M00S08047.xedit +++|*
08383 M00S08048.xedit +++|* ENTRY (NUMS) = FWA OF PARAMETERS.
08384 M00S08049.xedit +++|* (NUMS+1) = LWA OF PARAMETERS.
08385 M00S08050.xedit +++|*
08386 M00S08051.xedit +++|* EXIT TO *NCM*.
08387 M00S08052.xedit +++|*
08388 M00S08053.xedit +++|* USES A - 0, 1, 2, 3, 4, 6, 7.
08389 M00S08054.xedit +++|* X - 0, 1, 2, 3, 4, 6, 7.
08390 M00S08055.xedit +++|* B - 2, 5, 6, 7.
08391 M00S08056.xedit +++|*
08392 M00S08057.xedit +++|* CALLS GAF, GFN, MPR, RCP, RTB, SCP, WTF.
08393 M00S08058.xedit +++|*
08394 M00S08059.xedit +++|* MACROS FERROR, READ, READC, RECALL, RETURN, REWIND,
08395 M00S08060.xedit +++|* STATUS, WRITER.
08396 M00S08061.xedit +++|*
08397 M00S08062.xedit +++|* NOTES READ/READP READS ALTERNATE FILES INTO EDIT FILE.
08398 M00S08063.xedit +++|
08399 M00S08064.xedit +++|
08400 M00S08065.xedit +++| RDP SA4 INDEX
08401 M00S08066.xedit +++| SA0 X4-.READP
08402 M00S08067.xedit +++| RJ SCP SET COMMAND PARAMETERS
08403 M00S08068.xedit +++| SB2 BFN.*100B+2 NO FILE NAME
08404 M00S08069.xedit +++| ZR X1,CER IF NO PARAMETERS
08405 M00S08070.xedit +++| MX6 0
08406 M00S08071.xedit +++| SA6 NOMOD SET MODIFICATIONS MADE
08407 M00S08072.xedit +++|
08408 M00S08073.xedit +++|* GET NEXT FILE NAME AND CONTINUE.
08409 M00S08074.xedit +++|
08410 M00S08075.xedit +++| RDP1 RJ GFN
08411 M00S08076.xedit +++| SB5 B6-BFN.*100B-2
08412 M00S08077.xedit +++| SA3 COPY
08413 M00S08078.xedit +++| ZR B5,RDP12 IF ENCOUNTERED END OF LIST
08414 M00S08079.xedit +++| BX7 X3-X6 =7 IF USING COPY FILE
08415 M00S08080.xedit +++| BX4 X6
08416 M00S08081.xedit +++| NZ X1,RDP11 IF ERROR IN FILE NAME
08417 M00S08082.xedit +++| SA6 IFN SAVE NAME
08418 M00S08083.xedit +++| SA2 E.IN
08419 M00S08084.xedit +++| BX2 X2-X6
08420 M00S08085.xedit +++| AX2 18
08421 M00S08086.xedit +++| ZR X2,RDP13 IF WANT TO READ CURRENT EDIT FILE
08422 M00S08087.xedit +++| NZ X7,RDP2 IF NOT READING COPY FILE
08423 M00S08088.xedit +++| SA7 A3 CLEAR COPY FILE NAME
08424 M00S08089.xedit +++| WRITER FTD,RECALL
08425 M00S08090.xedit +++|
08426 M00S08091.xedit +++| RDP2 SB2 A0
08427 M00S08092.xedit +++| NZ B2,RDP3 IF FILES ARE LOCAL
08428 M00S08093.xedit +++| SA4 =0LSCRF
08429 M00S08094.xedit +++| RJ GAF GET OR ATTACH FILE
| Line S08095 Modification History |
M01 (Removed by) | xedit4 |
Seq # *Modification Id* Act
----------------------------+
08430 M01S08095.xedit4 ---| NZ X6,RDP11 IF FILE NOT OBTAINED
| Line S00001 Modification History |
M01 (Added by) | xedit4 |
Seq # *Modification Id* Act
----------------------------+
08431 M01S00001.xedit4 +++| NZ X6,RDP10 IF FILE NOT OBTAINED
08432 M00S08096.xedit +++| SA4 =0LSCRF
08433 M00S08097.xedit +++|
08434 M00S08098.xedit +++|* FILE OBTAINED, CHECK READ ACCESS.
08435 M00S08099.xedit +++|* (X4) = LOCAL FILE NAME.
08436 M00S08100.xedit +++|
08437 M00S08101.xedit +++| RDP3 MX6 0
08438 M00S08102.xedit +++| SX7 B1
08439 M00S08103.xedit +++| SA6 SFET+5 CLEAR FNT/FST INFORMATION
08440 M00S08104.xedit +++| BX7 X7+X4
08441 M00S08105.xedit +++| SA6 A6+B1
08442 M00S08106.xedit +++| SA7 RFET
08443 M00S08107.xedit +++| SA7 SFET
08444 M00S08108.xedit +++| STATUS A7,P
08445 M00S08109.xedit +++| SB6 FCR.*100B+2
08446 M00S08110.xedit +++| SA1 SFET+5
08447 M00S08111.xedit +++| ZR X1,RDP10 IF FILE NOT FOUND
08448 M00S08112.xedit +++| SX2 240000B
08449 M00S08113.xedit +++| SB6 FCR.*100B+1
08450 M00S08114.xedit +++| BX2 X2*X1
08451 M00S08115.xedit +++| NZ X2,RDP10 IF NOT ALLOWED TO READ FILE
08452 M00S08116.xedit +++| REWIND RFET,RECALL
08453 M00S08117.xedit +++| RDP4 READ RFET
08454 M00S08118.xedit +++| RDP5 RECALL RFET
08455 M00S08119.xedit +++| RDP6 SA1 RFET+2 SEE IF ANY MORE DATA ON FILE
08456 M00S08120.xedit +++| SA2 A1+B1
08457 M00S08121.xedit +++| BX1 X1-X2
08458 M00S08122.xedit +++| NZ X1,RDP7 IF THERE IS DATA ON FILE
08459 M00S08123.xedit +++| SA1 RFET
08460 M00S08124.xedit +++| LX1 59-0
08461 M00S08125.xedit +++| PL X1,RDP5 IF FET BUSY
08462 M00S08126.xedit +++| LX1 0-4
08463 M00S08127.xedit +++| PL X1,RDP4 IF NOT END OF SOMETHING
08464 M00S08128.xedit +++| LX1 4-3
08465 M00S08129.xedit +++| NG X1,RDP9 IF NOT EOR ON FILE
08466 M00S08130.xedit +++| READ RFET,RECALL
08467 M00S08131.xedit +++| SA1 RFET+2 LOOK AHEAD FOR NEXT NON-NULL RECORD
08468 M00S08132.xedit +++| SA2 A1+B1
08469 M00S08133.xedit +++| BX1 X1-X2
08470 M00S08134.xedit +++| ZR X1,RDP9 IF EMPTY RECORD/FILE OR EOI FOUND
08471 M00S08135.xedit +++| RJ WTF
08472 M00S08136.xedit +++| WRITER E.OUT,RECALL
08473 M00S08137.xedit +++| EQ RDP8 READ LINE
08474 M00S08138.xedit +++|
08475 M00S08139.xedit +++| RDP7 RJ WTF
08476 M00S08140.xedit +++| RDP8 READC RFET,E.LINE,33D READ NEXT LINE
08477 M00S08141.xedit +++| NZ X1,BTL IF BAD TEXT LINE FOUND
08478 M00S08142.xedit +++| SB7 E.LINE
08479 M00S08143.xedit +++| RJ RTB CLEAN UP LINE JUST READ
08480 M00S08144.xedit +++| EQ RDP6 PROCESS LINE
08481 M00S08145.xedit +++|
08482 M00S08146.xedit +++|* PROCESS END OF FILE READ.
08483 M00S08147.xedit +++|
| Line S08148 Modification History |
M01 (Removed by) | xedit6 |
Seq # *Modification Id* Act
----------------------------+
08484 M01S08148.xedit6 ---| RDP9 SB2 A0
| Line S00001 Modification History |
M01 (Added by) | xedit6 |
Seq # *Modification Id* Act
----------------------------+
08485 M01S00001.xedit6 +++| RDP9 REWIND RFET,RECALL
08486 M01S00002.xedit6 +++| SB2 A0
08487 M00S08149.xedit +++| NZ B2,RDP1 IF NOT *READP*
08488 M00S08150.xedit +++| RETURN RFET,RECALL
08489 M00S08151.xedit +++| EQ RDP1 PROCESS NEXT FILE
08490 M00S08152.xedit +++|
08491 M00S08153.xedit +++|* PROCESS ERROR AND PROPER TERMINATION.
08492 M00S08154.xedit +++|
08493 M00S08155.xedit +++| RDP10 FERROR IFN,B6
08494 M00S08156.xedit +++| EQ RDP12 FINISH PROCESS
08495 M00S08157.xedit +++|
08496 M00S08158.xedit +++| RDP11 ERROR B6
08497 M00S08159.xedit +++| RDP12 RJ RCP RESET LINE PARAMETERS
08498 M00S08160.xedit +++| EQ NCM EXIT
08499 M00S08161.xedit +++|
08500 M00S08162.xedit +++|* PROCESS READ REQUEST ON CURRENT EDIT FILE.
08501 M00S08163.xedit +++|
08502 M00S08164.xedit +++| RDP13 MX1 60 SET -0
08503 M00S08165.xedit +++| RJ MPR COPY EDIT FILE TO SCRATCH
08504 M00S08166.xedit +++| SA4 IFN RELOAD FILE NAME
08505 M00S08167.xedit +++| EQ RDP2 PROCESS COPY
08506 M00S08168.xedit +++| TITLE SUBROUTINE LOCAL TO OVERLAY.
08507 M00S08169.xedit +++| GAF SPACE 4,15
08508 M00S08170.xedit +++|** GAF - GET/ATTACH FILE.
08509 M00S08171.xedit +++|*
08510 M00S08172.xedit +++|* ENTRY (X4) = SCRATCH NAME.
08511 M00S08173.xedit +++|* (X6) = PERMANENT FILE NAME.
08512 M00S08174.xedit +++|*
08513 M00S08175.xedit +++|* EXIT (X6) = 0, IF FILE OBTAINED.
08514 M00S08176.xedit +++|* (B6) = ERROR ORDINAL IF (X6) .NE. 0.
08515 M00S08177.xedit +++|*
08516 M00S08178.xedit +++|* USES A - 3, 6, 7.
08517 M00S08179.xedit +++|* X - 1, 3, 6, 7.
08518 M00S08180.xedit +++|* B - 6.
08519 M00S08181.xedit +++|*
08520 M00S08182.xedit +++|* MACROS ATTACH, GET.
08521 M00S08183.xedit +++|
08522 M00S08184.xedit +++|
08523 M00S08185.xedit +++| GAF PS ENTRY/EXIT
08524 M00S08186.xedit +++| SA6 PFET+8 SET PERM. NAME
08525 M00S08187.xedit +++| MX7 -1
08526 M00S08188.xedit +++| BX7 -X7+X4
08527 M00S08189.xedit +++| SA7 PFET SET LOCAL NAME
08528 M00S08190.xedit +++| GET A7
08529 M00S08191.xedit +++| SA3 X2
08530 M00S08192.xedit +++| SX1 36000B
08531 M00S08193.xedit +++| BX6 X1*X3
08532 M00S08194.xedit +++| ZR X6,GAF IF GOTTEN, RETURN
| Line S08195 Modification History |
M01 (Removed by) | xedit22 |
Seq # *Modification Id* Act
----------------------------+
08533 M01S08195.xedit22 ---| ATTACH X2
| Line S00001 Modification History |
M01 (Added by) | xedit22 |
Seq # *Modification Id* Act
----------------------------+
08534 M01S00001.xedit22 +++| ATTACH X2,,,,R ATTACH IN READ MODE
08535 M00S08196.xedit +++| SA3 X2
08536 M00S08197.xedit +++| SX1 36000B
08537 M00S08198.xedit +++| BX6 X1*X3
08538 M00S08199.xedit +++| SB6 FCR.*100B+3 SET ERROR ORDINAL
08539 M00S08200.xedit +++| EQ GAF RETURN
08540 M00S08201.xedit +++| RCP SPACE 4,15
08541 M00S08202.xedit +++|** RCP - RESET COMMAND PARAMETERS.
08542 M00S08203.xedit +++|*
08543 M00S08204.xedit +++|* ENTRY (NUMS+1) = ADDRESS OF WORD CONTAINING LWA+1
08544 M00S08205.xedit +++|* OF COMMAND LINE.
08545 M00S08206.xedit +++|*
08546 M00S08207.xedit +++|* EXIT END OF COMMAND FLAG RESET IF NEEDED.
08547 M00S08208.xedit +++|*
08548 M00S08209.xedit +++|* USES A - 1, 2, 6.
08549 M00S08210.xedit +++|* X - 1, 2, 6.
08550 M00S08211.xedit +++|*
08551 M00S08212.xedit +++|* NOTES SINCE *SCP* SETS (NUMS+1) = 0 IF THERE
08552 M00S08213.xedit +++|* ARE NO PARAMETERS, THIS ROUTINE CAN BE CALLED
08553 M00S08214.xedit +++|* IF THIS IS TRUE (WILL LOSE UPPER BITS OF WORD 0).
08554 M00S08215.xedit +++|
08555 M00S08216.xedit +++|
08556 M00S08217.xedit +++| RCP PS ENTRY/EXIT
08557 M00S08218.xedit +++| SA1 NUMS+1
08558 M00S08219.xedit +++| SA2 X1
08559 M00S08220.xedit +++| SX6 X2
08560 M00S08221.xedit +++| LX2 1
08561 M00S08222.xedit +++| NG X2,RCP IF REAL EOL, RETURN
08562 M00S08223.xedit +++| SA6 A2
08563 M00S08224.xedit +++| EQ RCP RETURN
08564 M00S08225.xedit +++| SCP SPACE 4,15
08565 M00S08226.xedit +++|** SCP - SET COMMAND PARAMETERS.
08566 M00S08227.xedit +++|*
08567 M00S08228.xedit +++|* ENTRY (NUMS) = FWA OF PARAMETERS.
08568 M00S08229.xedit +++|* (NUMS+1) = LWA+1 OF PARAMETERS.
08569 M00S08230.xedit +++|*
08570 M00S08231.xedit +++|* EXIT (A5) = IF PARAMETERS ARE PRESENT, FWA OF PARAMETERS.
08571 M00S08232.xedit +++|* (X5) = FIRST WORD OF PARAMETERS.
08572 M00S08233.xedit +++|* (X1) = IF NO PARAMETERS, 0.
08573 M00S08234.xedit +++|* END OF PARAMETERS SET IN LAST WORD OF PARAMETERS.
08574 M00S08235.xedit +++|*
08575 M00S08236.xedit +++|* USES A - 1, 2, 5, 6.
08576 M00S08237.xedit +++|* X - 1, 2, 5, 6, 7.
08577 M00S08238.xedit +++|
08578 M00S08239.xedit +++|
08579 M00S08240.xedit +++| SCP1 SX6 0
08580 M00S08241.xedit +++| SA6 NUMS+1
08581 M00S08242.xedit +++|
08582 M00S08243.xedit +++| SCP PS ENTRY/EXIT
08583 M00S08244.xedit +++| SA1 NUMS
08584 M00S08245.xedit +++| SA2 A1+B1
08585 M00S08246.xedit +++| MX7 1
08586 M00S08247.xedit +++| ZR X1,SCP1 IF NO PARAMETERS
08587 M00S08248.xedit +++| SA2 X2
08588 M00S08249.xedit +++| SA5 X1
08589 M00S08250.xedit +++| BX6 X7+X2 SET END OF STRING
08590 M00S08251.xedit +++| SA6 A2
08591 M00S08252.xedit +++| EQ SCP RETURN
08592 M00S08253.xedit +++| TITLE LOCAL COMMON DECKS AND BUFFERS.
08593 M00S08254.xedit +++|** COMMON DECKS.
08594 M00S08255.xedit +++|*
08595 M00S08256.xedit +++|
08596 M00S08257.xedit +++|
08597 M00S08258.xedit +++|*CALL COMCMVE
08598 M00S08259.xedit +++|
08599 M00S08260.xedit +++| USE SETCHAR
08600 M00S08261.xedit +++| DATA 0 SET END OF CHARACTER PRESET
08601 M00S08262.xedit +++| USE *
08602 M00S08263.xedit +++| BUFFERS SPACE 4
08603 M00S08264.xedit +++|** BUFFERS.
08604 M00S08265.xedit +++|*
08605 M00S08266.xedit +++|
08606 M00S08267.xedit +++|
08607 M00S08268.xedit +++| USE BUFFERS
08608 M00S08269.xedit +++| .A MAX MAXWD*2+1,BUFRL
08609 M00S08270.xedit +++| OCBUF BSS 0
08610 M00S08271.xedit +++| RBUF BSS 0
08611 M00S08272.xedit +++| BSSZ .A+1
08612 M00S08273.xedit +++| LWA EQU *+17B SET OVERLAY LWA
08613 M00S08274.xedit +++| END