Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:xedit.004
Deck XEDIT Part 004
25 Modifications
Listing Sections
- Deck XEDIT Start
- Deck XEDIT Part 1 (Line 2001)
- Deck XEDIT Part 2 (Line 3736)
- Deck XEDIT Part 3 (Line 5666)
- Deck XEDIT Part 4 (Line 7428)
Source
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
cdc/nos2.source/opl.opl871/deck/xedit.004.txt · Last modified: by 127.0.0.1