cdc:nos2.source:opl.opl871:deck:1tm.001
Deck 1TM Part 001
22 Modifications
Listing Sections
- Deck 1TM Start
- Deck 1TM Part 1 (Line 1536)
- Deck 1TM Part 2 (Line 3425)
- Deck 1TM Part 3 (Line 5332)
- Deck 1TM Part 4 (Line 6914)
Source
Seq # *Modification Id* Act ----------------------------+ 01536 M00S01271.1tm +++| LDD DP+2 GET INPUT STATUS 01537 M00S01272.1tm +++| SHN 21-10 01538 M00S01273.1tm +++| PJN CTO9 IF INPUT NOT INITIATED 01539 M00S01274.1tm +++| LPN 7 SET POT LENGTH 01540 M00S01275.1tm +++| LMN 40 SET FORCED DUMP FLAG 01541 M00S01276.1tm +++| STD RQ+1 01542 M00S01277.1tm +++| LDD DP SET FIRST, CURRENT POT 01543 M00S01278.1tm +++| STD RQ+2 01544 M00S01279.1tm +++| STD RQ+3 01545 M00S01280.1tm +++| LDN /TLX/RIN REQUEST SOURCE INPUT DUMP 01546 M00S01281.1tm +++| RJM ERQ 01547 M00S01282.1tm +++| STD DP CLEAR POINTERS 01548 M00S01283.1tm +++| STD DP+2 01549 M00S01284.1tm +++| CTO9 JMP MGR RETURN TO MANAGER 01550 M00S01285.1tm +++| INT SPACE 4,20 01551 M00S01286.1tm +++|** INT - PROCESS INTERRUPT. 01552 M00S01287.1tm +++|*
| Line S01288 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01553 M01S01288.242l642 ---|* *INT* REQUESTS *RAF* TO TERMINATE OUTPUT AND THE USER
| Line S00179 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01554 M01S00179.242l642 +++|* *INT* REQUESTS *RDF* TO TERMINATE OUTPUT AND THE USER 01555 M00S01289.1tm +++|* PROGRAM IN RESPONSE TO AN INTERRUPT FROM THE TERMINAL. 01556 M00S01290.1tm +++|* 01557 M00S01291.1tm +++|* ENTRY (A) = INTERRUPT CODE- 01558 M00S01292.1tm +++|* = *TIET* IF *I* KEY OR *BREAK*. 01559 M00S01293.1tm +++|* = *TAET* IF *S* KEY. 01560 M00S01294.1tm +++|* 01561 M00S01295.1tm +++|* EXIT TO *RWC* IF HANG-UP-PHONE REQUIRED. 01562 M00S01296.1tm +++|* TO *SUS* TO SUSPEND TERMINAL AFTER INTERRUPT - 01563 M00S01297.1tm +++|* (DP) = 0. 01564 M00S01298.1tm +++|* 01565 M00S01299.1tm +++|* USES T7, CM - CM+4. 01566 M00S01300.1tm +++|* 01567 M00S01301.1tm +++|* CALLS ERQ, STA. 01568 M00S01302.1tm +++| 01569 M00S01303.1tm +++| 01570 M00S01304.1tm +++| INT BSS 0 ENTRY 01571 M00S01305.1tm +++| STD T7 SAVE INTERRUPT CODE 01572 M00S01306.1tm +++| RJM STA SET FWA OF TERMINAL TABLE 01573 M00S01307.1tm +++| ADK VSTT READ *VSTT* 01574 M00S01308.1tm +++| CRD CM 01575 M00S01309.1tm +++| LDD CM CHECK LOGOUT AND DETACH STATUS 01576 M00S01310.1tm +++| LPC 0401 01577 M00S01311.1tm +++| NJN INT1 IF LOGOUT OR DETACH IN PROGRESS 01578 M00S01312.1tm +++| LDD DC CHECK FOR DRIVER REQUEST 01579 M00S01313.1tm +++| SHN 21-13 01580 M00S01314.1tm +++| PJN INT2 IF NO REQUEST 01581 M00S01315.1tm +++| LDD DC+4 CHECK REQUEST 01582 M00S01316.1tm +++| LMN /1TD/HUP 01583 M00S01317.1tm +++| NJN INT2 IF NOT HANG UP PHONE 01584 M00S01318.1tm +++| INT1 UJN RWC ENTER READ/WRITE CONTROL 01585 M00S01319.1tm +++| 01586 M00S01320.1tm +++| INT2 LDD DP SET POTS TO BE DROPPED 01587 M00S01321.1tm +++| STD RQ+3 01588 M00S01322.1tm +++| LDD T7 SET INTERRUPT CODE 01589 M00S01323.1tm +++| STD RQ+2 01590 M00S01324.1tm +++| LDN /TLX/PUB PROCESS USER BREAK 01591 M00S01325.1tm +++| RJM ERQ 01592 M00S01326.1tm +++| STD DP CLEAR POT POINTER 01593 M00S01327.1tm +++| LJM SUS SUSPEND TERMINAL 01594 M00S01328.1tm +++| LIN SPACE 4,15 01595 M00S01329.1tm +++|** LIN - PROCESS LOGIN. 01596 M00S01330.1tm +++|*
| Line S01331 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01597 M01S01331.242l642 ---|* EXIT TO *CLI* WHEN *RAF* RESPONDS TO LOGIN REQUEST -
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01598 M01S00180.242l642 +++|* EXIT TO *CLI* WHEN *RDF* RESPONDS TO LOGIN REQUEST - 01599 M00S01332.1tm +++|* (DP) = POT ASSIGNMENT. 01600 M00S01333.1tm +++|* (DP+1) = (DP). 01601 M00S01334.1tm +++|* (VDCT) BYTE 4 = 0. 01602 M00S01335.1tm +++|* 01603 M00S01336.1tm +++|* CALLS WDC. 01604 M00S01337.1tm +++| 01605 M00S01338.1tm +++| 01606 M00S01339.1tm +++| LIN BSS 0 ENTRY 01607 M00S01340.1tm +++| LDD DC CHECK TERMINAL STATUS 01608 M00S01341.1tm +++| LMD HN
| Line S01342 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01609 M01S01342.242l642 ---| ZJN LIN1 IF *RAF* READY
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01610 M01S00181.242l642 +++| ZJN LIN1 IF *RDF* READY 01611 M00S01343.1tm +++| JMP MGR EXIT 01612 M00S01344.1tm +++| 01613 M00S01345.1tm +++| LIN1 LDD DC+4 SET POT ASSIGNMENT 01614 M00S01346.1tm +++| STD DP 01615 M00S01347.1tm +++| STD DP+1 01616 M00S01348.1tm +++| LDN 0 CLEAR POT ASSIGNMENT 01617 M00S01349.1tm +++| STD DC+4 01618 M00S01350.1tm +++| RJM WDC REWRITE VDCT 01619 M00S01351.1tm +++| LJM /RDM/CLI PROCESS COMMAND LINE INPUT 01620 M00S01352.1tm +++| RWC SPACE 4,20 01621 M00S01353.1tm +++|** RWC - READ/WRITE CONTROL. 01622 M00S01354.1tm +++|* 01623 M00S01355.1tm +++|* ENTRY COMPLETION OF READ OR WRITE OPERATION. 01624 M00S01356.1tm +++|* 01625 M00S01357.1tm +++|* EXIT TO *RDM* IF INPUT RECEIVED FROM TERMINAL.
| Line S01358 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01626 M01S01358.242l642 ---|* TO *WTM* IF MESSAGE ASSIGNED BY *RAF* -
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01627 M01S00182.242l642 +++|* TO *WTM* IF MESSAGE ASSIGNED BY *RDF* - 01628 M00S01359.1tm +++|* (DP) = OUTPUT POT ASSIGNMENT. 01629 M00S01360.1tm +++|* (DP+1) = (DP). 01630 M00S01361.1tm +++|* (DP+2) = FIRST WORD INDEX. 01631 M00S01362.1tm +++|* (VDCT) BYTE 4 = 0.
| Line S01363 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01632 M01S01363.242l642 ---|* TO *TFR* IF FUNCTION REQUEST RECEIVED FROM *RAF*.
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01633 M01S00183.242l642 +++|* TO *TFR* IF FUNCTION REQUEST RECEIVED FROM *RDF*. 01634 M00S01364.1tm +++|* TO *CTO* IF TERMINAL IDLE. 01635 M00S01365.1tm +++|* 01636 M00S01366.1tm +++|* CALLS CEM, ERQ, WDC. 01637 M00S01367.1tm +++|* 01638 M00S01368.1tm +++|* MACROS RETURN. 01639 M00S01369.1tm +++| 01640 M00S01370.1tm +++| 01641 M00S01371.1tm +++| RWC BSS 0 ENTRY 01642 M00S01372.1tm +++| RJM CEM CLEAR EXTENDED MODE 01643 M00S01373.1tm +++| 01644 M00S01374.1tm +++|* ENTRY TO PREVENT TRANSMISSION MODE CHANGE. 01645 M00S01375.1tm +++|* CHECK FOR INPUT FROM TERMINAL. 01646 M00S01376.1tm +++| 01647 M00S01377.1tm +++| RWC1 RETURN * SET REENTRY 01648 M00S01378.1tm +++| LDD DI CHECK FOR INPUT DATA 01649 M00S01379.1tm +++| ZJN RWC2 IF NO DATA RECEIVED 01650 M00S01380.1tm +++| LJM RDM ENTER READ MODE 01651 M00S01381.1tm +++| 01652 M00S01382.1tm +++|* CHECK FOR MESSAGE ASSIGNMENT OR FUNCTION REQUEST. 01653 M00S01383.1tm +++| 01654 M00S01384.1tm +++| RWC2 LDD DC+4 CHECK OUTPUT ASSIGNMENT 01655 M00S01385.1tm +++| NJN RWC3 IF MESSAGE ASSIGNED 01656 M00S01386.1tm +++| LJM CTO CHECK TIME-OUT 01657 M00S01387.1tm +++| 01658 M00S01388.1tm +++| RWC3 LDD DC CHECK MESSAGE TYPE 01659 M00S01389.1tm +++| SHN 21-13 01660 M00S01390.1tm +++| PJN RWC4 IF NOT FUNCTION REQUEST
| Line S01391 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01661 M01S01391.242l642 ---| LJM TFR PROCESS *RAF* FUNCTION REQUEST
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01662 M01S00184.242l642 +++| LJM TFR PROCESS *RDF* FUNCTION REQUEST 01663 M00S01392.1tm +++| 01664 M00S01393.1tm +++|* PREPARE NEW OUTPUT. 01665 M00S01394.1tm +++| 01666 M00S01395.1tm +++| RWC4 LDD DP CHECK FIRST POT 01667 M00S01396.1tm +++| ZJN RWC5 IF NOT ASSIGNED 01668 M00S01397.1tm +++| STD RQ+3 SET POT 01669 M00S01398.1tm +++| LDN /TLX/DRT REQUEST DROP POT CHAIN 01670 M00S01399.1tm +++| RJM ERQ 01671 M00S01400.1tm +++| RWC5 LDD DC+4 CURRENT POT = ASSIGNMENT 01672 M00S01401.1tm +++| STD DP 01673 M00S01402.1tm +++| STD DP+1 01674 M00S01403.1tm +++| LDD DC+1 CURRENT WORD = FIRST WORD OF ASSIGNMENT 01675 M00S01404.1tm +++| LPN 7 01676 M00S01405.1tm +++| SHN 4 01677 M00S01406.1tm +++| STD DP+2 01678 M00S01407.1tm +++| LDD DC+1 CLEAR STARTING WORD 01679 M00S01408.1tm +++| SCN 7 01680 M00S01409.1tm +++| STD DC+1 01681 M00S01410.1tm +++| LDN 0 CLEAR ASSIGNMENT 01682 M00S01411.1tm +++| STD DC+4 01683 M00S01412.1tm +++| RJM WDC REWRITE VDCT 01684 M00S01413.1tm +++| JMP WTM ENTER WRITE MODE 01685 M00S01414.1tm +++| SUS SPACE 4,15
| Line S01415 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01686 M01S01415.242l642 ---|** SUS - SUSPEND DRIVER FOR *RAF* INTERRUPT ACKNOWLEDGE.
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01687 M01S00185.242l642 +++|** SUS - SUSPEND DRIVER FOR *RDF* INTERRUPT ACKNOWLEDGE. 01688 M00S01416.1tm +++|*
| Line S01417 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01689 M01S01417.242l642 ---|* WAITS UNTIL *RAF* SETS THE INTERRUPT ACKNOWLEDGE
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01690 M01S00186.242l642 +++|* WAITS UNTIL *RDF* SETS THE INTERRUPT ACKNOWLEDGE 01691 M00S01418.1tm +++|* BIT IN THE TERMINAL TABLE. 01692 M00S01419.1tm +++|* 01693 M00S01420.1tm +++|* EXIT TO *RWC* AFTER ACKNOWLEDGE SET -
| Line S01421 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01694 M01S01421.v23l617 ---|* (VDCT) BYTE 0 = INTERRUPT ACKNOWLEDGE BIT 01695 M01S01422.v23l617 ---|* CLEARED.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01696 M01S00018.v23l617 +++|* *VDCT* INTERRUPT ACKNOWLEDGE BIT CLEARED. 01697 M01S00019.v23l617 +++|* TO *MGR.* WITHOUT TERMINAL TABLE WRITE UNTIL INTERRUPT 01698 M01S00020.v23l617 +++|* ACKNOWLEDGE SET. *IAF* CAN WRITE *VDCT* AND *VCHT* 01699 M01S00021.v23l617 +++|* UNTIL THIS TIME. 01700 M00S01423.1tm +++|*
| Line S01424 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01701 M01S01424.v23l617 ---|* CALLS ERQ, WDC. 01702 M01S01425.v23l617 ---|* 01703 M01S01426.v23l617 ---|* MACROS RETURN.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01704 M01S00022.v23l617 +++|* CALLS ERQ, STA, WDC. 01705 M00S01427.1tm +++| 01706 M00S01428.1tm +++| 01707 M00S01429.1tm +++| SUS BSS 0 ENTRY 01708 M00S01430.1tm +++| LDD DC GET TERMINAL STATUS 01709 M00S01431.1tm +++| SHN 21-12 CHECK INTERRUPT ACKNOWLEDGE BIT 01710 M00S01432.1tm +++| MJN SUS1 IF SET
| Line S01433 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01711 M01S01433.v23l617 ---| RETURN SUS LOOP
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01712 M01S00023.v23l617 +++| LDC SUS SET REENTRY ADDRESS 01713 M01S00024.v23l617 +++| STD DP+4 01714 M01S00025.v23l617 +++| RJM STA SET TERMINAL TABLE ADDRESS 01715 M01S00026.v23l617 +++| ADN VDPT WRITE *VDPT* 01716 M01S00027.v23l617 +++| CWD DP 01717 M01S00028.v23l617 +++| LJM MGR. EXIT WITHOUT TERMINAL TABLE WRITE 01718 M00S01434.1tm +++| 01719 M00S01435.1tm +++| SUS1 SHN 1 CLEAR INTERRUPT ACKNOWLEDGE BIT 01720 M00S01436.1tm +++| SCN 1 01721 M00S01437.1tm +++| SHN 12-0 01722 M00S01438.1tm +++| STD DC 01723 M00S01439.1tm +++| RJM WDC REWRITE *VDCT*
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01724 M01S00029.v23l617 +++| SBN VDCT-VCHT READ *VCHT* FOR CHARACTER COUNT RECOVERY 01725 M01S00030.v23l617 +++| CRD CH 01726 M00S01440.1tm +++| LDD DC+4 CHECK FOR DRIVER ASSIGNMENT 01727 M00S01441.1tm +++| NJN SUS2 IF PRESENT 01728 M00S01442.1tm +++| LDN /TLX/RES REQUEST NEW ASSIGNMENT 01729 M00S01443.1tm +++| RJM ERQ 01730 M00S01444.1tm +++| SUS2 JMP RWC ENTER READ/WRITE CONTROL
| Line S01445 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01731 M01S01445.242l642 ---| TITLE *RAF* FUNCTION REQUEST PROCESSORS.
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01732 M01S00187.242l642 +++| TITLE *RDF* FUNCTION REQUEST PROCESSORS. 01733 M00S01446.1tm +++| TFR SPACE 4,15
| Line S01447 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01734 M01S01447.242l642 ---|** TFR - PROCESS *RAF* FUNCTION REQUEST.
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01735 M01S00188.242l642 +++|** TFR - PROCESS *RDF* FUNCTION REQUEST. 01736 M00S01448.1tm +++|* 01737 M00S01449.1tm +++|* EXIT TO FUNCTION REQUEST PROCESSOR - 01738 M00S01450.1tm +++|* (A) = (DP+3)- 01739 M00S01451.1tm +++|* (T3) = FUNCTION REQUEST. 01740 M00S01452.1tm +++|* (VDCT) = FUNCTION REQUEST CLEARED. 01741 M00S01453.1tm +++|* 01742 M00S01454.1tm +++|* USES T1, T2, T3. 01743 M00S01455.1tm +++|* 01744 M00S01456.1tm +++|* CALLS ERQ, WDC. 01745 M00S01457.1tm +++| 01746 M00S01458.1tm +++| 01747 M00S01459.1tm +++| TFR BSS 0 ENTRY 01748 M00S01460.1tm +++| LDD DC+4 SAVE REQUEST CODE 01749 M00S01461.1tm +++| STD T3 01750 M00S01462.1tm +++| LPN 77 01751 M00S01463.1tm +++| SBN TTFRL 01752 M00S01464.1tm +++| MJN TFR1 IF LEGAL FUNCTION 01753 M00S01465.1tm +++| LCN TTFRL SET ILLEGAL FUNCTION 01754 M00S01466.1tm +++| TFR1 ADN TTFRL 01755 M00S01467.1tm +++| STD T1 01756 M00S01468.1tm +++| LDN /TLX/RES REQUEST ADDITIONAL OUTPUT 01757 M00S01469.1tm +++| RJM ERQ 01758 M00S01470.1tm +++| STD DC+4 CLEAR FUNCTION REQUEST 01759 M00S01471.1tm +++| LDD DC CLEAR DRIVER REQUEST BIT 01760 M00S01472.1tm +++| LPC 3777 01761 M00S01473.1tm +++| STD DC 01762 M00S01474.1tm +++| RJM WDC WRITE VDCT 01763 M00S01475.1tm +++| LDM TTFR,T1 SET FUNCTION PROCESSOR ADDRESS 01764 M00S01476.1tm +++| STD T2 01765 M00S01477.1tm +++| NJN TFR2 IF A VALID ENTRY 01766 M00S01478.1tm +++| JMP MGR EXIT 01767 M00S01479.1tm +++| 01768 M00S01480.1tm +++| TFR2 LDD DP+3 SET (A) = TERMINAL MODE FLAGS 01769 M00S01481.1tm +++| LJM 0,T2 ENTER PROCESSOR 01770 M00S01482.1tm +++| TTFR SPACE 4,10
| Line S01483 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01771 M01S01483.242l642 ---|** TTFR - TABLE OF *RAF* FUNCTION REQUESTS.
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01772 M01S00189.242l642 +++|** TTFR - TABLE OF *RDF* FUNCTION REQUESTS. 01773 M00S01484.1tm +++| 01774 M00S01485.1tm +++| 01775 M00S01486.1tm +++| TTFR INDEX 01776 M00S01487.1tm +++| 01777 M00S01488.1tm +++| INDEX /1TD/BGI,BGI BEGIN INPUT 01778 M00S01489.1tm +++| INDEX /1TD/CFD,CFD CLEAR FULL DUPLEX 01779 M00S01490.1tm +++| INDEX /1TD/HUP,HUP HANG UP THE PHONE 01780 M00S01491.1tm +++| INDEX /1TD/IIP,IIP ISSUE INPUT PROMPT 01781 M00S01492.1tm +++| INDEX /1TD/LGI,LGI PROCESS LOGIN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2409b |
Seq # *Modification Id* Act ----------------------------+ 01782 M01S00001.ns2409b +++| INDEX /1TD/SCE,SCE SET/CLEAR EXTENDED MODE 01783 M00S01493.1tm +++| INDEX /1TD/SDU,SUS SUSPEND DRIVER FOR USER BREAK 01784 M00S01494.1tm +++| INDEX /1TD/SEP,SEP SET EVEN PARITY 01785 M00S01495.1tm +++| INDEX /1TD/SFD,SFD SET FULL DUPLEX 01786 M00S01496.1tm +++| INDEX /1TD/SNM,SNM SET NORMAL MODES 01787 M00S01497.1tm +++| INDEX /1TD/SOP,SOP SET ODD PARITY 01788 M00S01498.1tm +++| INDEX /1TD/STT,STT SET TERMINAL TYPE 01789 M00S01499.1tm +++| 01790 M00S01500.1tm +++| INDEX /1TD/REQL 01791 M00S01501.1tm +++| TTFRL EQU *-TTFR 01792 M00S01502.1tm +++| BGI SPACE 4,15 01793 M00S01503.1tm +++|** BGI - BEGIN INPUT. 01794 M00S01504.1tm +++|* 01795 M00S01505.1tm +++|* ISSUES *START TAPE READER* CONTROL CODE IF TERMINAL 01796 M00S01506.1tm +++|* IS IN *TAPE* MODE. CONTROL IS THEN TRANSFERRED 01797 M00S01507.1tm +++|* TO THE *READ* PROCESSOR. 01798 M00S01508.1tm +++|* 01799 M00S01509.1tm +++|* ENTRY (DC) = BIT 2**0 SET IF *TAPE* MODE. 01800 M00S01510.1tm +++|* 01801 M00S01511.1tm +++|* EXIT TO *RDM* - 01802 M00S01512.1tm +++|* *DC1* ISSUED IF TERMINAL IN *TAPE* MODE. 01803 M00S01513.1tm +++|* 01804 M00S01514.1tm +++|* MACROS RETURN. 01805 M00S01515.1tm +++| 01806 M00S01516.1tm +++| 01807 M00S01517.1tm +++| BGI BSS 0 ENTRY 01808 M00S01518.1tm +++| LDD DC CHECK FOR *TAPE* MODE 01809 M00S01519.1tm +++| LPN 1 01810 M00S01520.1tm +++| ZJN BGI1 IF NOT IN *TAPE* MODE 01811 M00S01521.1tm +++| LDC .CDC1 ISSUE *DC1* TO START TAPE READER 01812 M00S01522.1tm +++| LMD PY TOGGLE ODD PARITY 01813 M00S01523.1tm +++| STD DO 01814 M00S01524.1tm +++| BGI1 RETURN RDM ENTER *READ* MODE 01815 M00S01525.1tm +++| CFD SPACE 4,15 01816 M00S01526.1tm +++|** CFD - CLEAR *FULL DUPLEX* FLAG. 01817 M00S01527.1tm +++|* 01818 M00S01528.1tm +++|* ENTRY (A) = (DP+3). 01819 M00S01529.1tm +++|* 01820 M00S01530.1tm +++|* EXIT TO *MGR* - 01821 M00S01531.1tm +++|* (DP+3) = *FULL DUPLEX* CLEARED. 01822 M00S01532.1tm +++| 01823 M00S01533.1tm +++| 01824 M00S01534.1tm +++| CFD BSS 0 ENTRY 01825 M00S01535.1tm +++| LPC 7677 CLEAR *FULL DUPLEX* FLAG 01826 M00S01536.1tm +++| STD DP+3 01827 M00S01537.1tm +++| JMP MGR EXIT 01828 M00S01538.1tm +++| IIP SPACE 4,20 01829 M00S01539.1tm +++|** IIP - ISSUE INPUT PROMPT. 01830 M00S01540.1tm +++|* 01831 M00S01541.1tm +++|* ISSUE INPUT PROMPT CHARACTER IF TRANSPARENT, BINARY, 01832 M00S01542.1tm +++|* OR AUTO MODE IS NOT SET. 01833 M00S01543.1tm +++|* 01834 M00S01544.1tm +++|* ENTRY (A) = (DP+3). 01835 M00S01545.1tm +++|* 01836 M00S01546.1tm +++|* EXIT TO *WTM* TO ISSUE PROMPT MESSAGE - 01837 M00S01547.1tm +++|* PROMPT MESSAGE WRITTEN TO POT. 01838 M00S01548.1tm +++|* (DP+2) = 0. 01839 M00S01549.1tm +++|* (CH+2) = 0. 01840 M00S01550.1tm +++|* TO *RWC* IF *TRANSPARENT*, *AUTO*, OR 01841 M00S01551.1tm +++|* *BINARY* MODE. 01842 M00S01552.1tm +++|* /TLX/RES EXECUTIVE REQUEST ISSUED. 01843 M00S01553.1tm +++|* 01844 M00S01554.1tm +++|* USES T0 - T4. 01845 M00S01555.1tm +++|* 01846 M00S01556.1tm +++|* CALLS ERQ, STA, SWA. 01847 M00S01557.1tm +++| 01848 M00S01558.1tm +++| 01849 M00S01559.1tm +++| IIP BSS 0 ENTRY 01850 M00S01560.1tm +++| SHN 21-2 CHECK TERMINAL MODE 01851 M00S01561.1tm +++| MJN IIP1 IF *TRANSPARENT* MODE 01852 M00S01562.1tm +++| LPN 1 01853 M00S01563.1tm +++| NJN IIP2 IF *BINARY* MODE 01854 M00S01564.1tm +++| LDD DC 01855 M00S01565.1tm +++| LPN 2 01856 M00S01566.1tm +++| NJN IIP2 IF *AUTO* MODE 01857 M00S01567.1tm +++| RJM STA SET FWA OF TERMINAL TABLE 01858 M00S01568.1tm +++| ADK VSTT READ *VSTT* 01859 M00S01569.1tm +++| CRD T0 01860 M00S01570.1tm +++| LDD T0 CHECK FOR NO-PROMPT MODE 01861 M00S01571.1tm +++| LPN 40 01862 M00S01572.1tm +++| NJN IIP2 IF NO-PROMPT MODE 01863 M00S01573.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL 01864 M00S01574.1tm +++| STD DP+2 CLEAR WORD POINTER 01865 M00S01575.1tm +++| RJM SWA SET WORD ADDRESS IN OUTPUT POT 01866 M00S01576.1tm +++| CWM IIPA,ON WRITE PROMPT TO POT 01867 M00S01577.1tm +++| JMP WTM ENTER WRITE MODE 01868 M00S01578.1tm +++| 01869 M00S01579.1tm +++| IIP1 LDN 0 CLEAR INPUT POINTER 01870 M00S01580.1tm +++| STD DP+2 01871 M00S01581.1tm +++| IIP2 LDN /TLX/RES REQUEST NEXT MESSAGE 01872 M00S01582.1tm +++| RJM ERQ 01873 M00S01583.1tm +++| JMP RWC WAIT FOR *BGI* REQUEST 01874 M00S01584.1tm +++| 01875 M00S01585.1tm +++| 01876 M00S01586.1tm +++| IIPA DATA 4L? "EB" INPUT PROMPT 01877 M00S01587.1tm +++| CON 0,0,0 01878 M00S01588.1tm +++| LGI SPACE 4,15 01879 M00S01589.1tm +++|** LGI - PROCESS USER LOGIN. 01880 M00S01590.1tm +++|* 01881 M00S01591.1tm +++|* ENTRY (A) = (DP+3). 01882 M00S01592.1tm +++|* 01883 M00S01593.1tm +++|* EXIT TO *LIN* TO COMPLETE LOGIN - 01884 M00S01594.1tm +++|* (DP - DP+2) = 0. 01885 M00S01595.1tm +++|* (CH - CH+4) = 0. 01886 M00S01596.1tm +++|* 01887 M00S01597.1tm +++|* USES T7. 01888 M00S01598.1tm +++|* 01889 M00S01599.1tm +++|* CALLS ERQ. 01890 M00S01600.1tm +++|* 01891 M00S01601.1tm +++|* MACROS RETURN. 01892 M00S01602.1tm +++| 01893 M00S01603.1tm +++| 01894 M00S01604.1tm +++| LGI BSS 0 ENTRY 01895 M00S01605.1tm +++| LPC 200 RETAIN *BLKEDIT* TERMINAL TYPE 01896 M00S01606.1tm +++| STD T7 01897 M00S01607.1tm +++| LDD DP CHECK POT ASSIGNMENT 01898 M00S01608.1tm +++| ZJN LGI1 IF NONE 01899 M00S01609.1tm +++| STD RQ+3 DROP POTS 01900 M00S01610.1tm +++| LDN /TLX/DRT 01901 M00S01611.1tm +++| RJM ERQ 01902 M00S01612.1tm +++| LGI1 LDN ZERL CLEAR CONTROL WORDS 01903 M00S01613.1tm +++| CRD DP 01904 M00S01614.1tm +++| CRD CH 01905 M00S01615.1tm +++| LDD T7 RESET TERMINAL TYPE 01906 M00S01616.1tm +++| STD DP+3 01907 M00S01617.1tm +++| RETURN LIN ENTER LOGIN
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2409b |
Seq # *Modification Id* Act ----------------------------+ 01908 M01S00002.ns2409b +++| SCE SPACE 4,15 01909 M01S00003.ns2409b +++|** SCE - SET/CLEAR EXTENDED MODE. 01910 M01S00004.ns2409b +++|* 01911 M01S00005.ns2409b +++|* SET/CLEAR EXTENDED TRANSMISSION MODE DEPENDING 01912 M01S00006.ns2409b +++|* UPON MODE IN *VDCT*. 01913 M01S00007.ns2409b +++|* 01914 M01S00008.ns2409b +++|* CALLS CEM. 01915 M01S00009.ns2409b +++| 01916 M01S00010.ns2409b +++| 01917 M01S00011.ns2409b +++| SCE BSS 0 ENTRY 01918 M01S00012.ns2409b +++| RJM CEM 01919 M01S00013.ns2409b +++| JMP MGR EXIT 01920 M00S01618.1tm +++| SEP SPACE 4,15 01921 M00S01619.1tm +++|** SEP - SET *EVEN* PARITY. 01922 M00S01620.1tm +++|* 01923 M00S01621.1tm +++|* ENTRY (A) = (DP+3). 01924 M00S01622.1tm +++|* 01925 M00S01623.1tm +++|* EXIT TO *MGR* - 01926 M00S01624.1tm +++|* (DP+3) = PARITY RESET TO *EVEN*. 01927 M00S01625.1tm +++|* (PY) = PARITY RESET TO *EVEN*. 01928 M00S01626.1tm +++| 01929 M00S01627.1tm +++| 01930 M00S01628.1tm +++| SEP BSS 0 ENTRY 01931 M00S01629.1tm +++| SCN 1 CLEAR *ODD* PARITY FLAG 01932 M00S01630.1tm +++| STD DP+3 01933 M00S01631.1tm +++| LDN 0 CLEAR *ODD* PARITY BIT 01934 M00S01632.1tm +++| STD PY 01935 M00S01633.1tm +++| JMP MGR EXIT 01936 M00S01634.1tm +++| SFD SPACE 4,15 01937 M00S01635.1tm +++|** SFD - SET *FULL DUPLEX* FLAG. 01938 M00S01636.1tm +++|* 01939 M00S01637.1tm +++|* ENTRY (A) = (DP+3). 01940 M00S01638.1tm +++|* 01941 M00S01639.1tm +++|* EXIT TO *MGR* - 01942 M00S01640.1tm +++|* (DP+3) = *FULL DUPLEX* SET 01943 M00S01641.1tm +++| 01944 M00S01642.1tm +++| 01945 M00S01643.1tm +++| SFD BSS 0 ENTRY 01946 M00S01644.1tm +++| LPC 7677 SET FULL-DUPLEX FLAG 01947 M00S01645.1tm +++| LMD HN 01948 M00S01646.1tm +++| STD DP+3 01949 M00S01647.1tm +++| JMP MGR EXIT 01950 M00S01648.1tm +++| SNM SPACE 4,15 01951 M00S01649.1tm +++|** SNM - SET NORMAL MODES. 01952 M00S01650.1tm +++|* 01953 M00S01651.1tm +++|* CLEARS EXTENDED MODE AND ODD PARITY. 01954 M00S01652.1tm +++|* 01955 M00S01653.1tm +++|* ENTRY (A) = (DP+3). 01956 M00S01654.1tm +++|* 01957 M00S01655.1tm +++|* EXIT TO *SEP* - 01958 M00S01656.1tm +++|* (A) = (DP+3), *EXTENDED MODE* CLEARED. 01959 M00S01657.1tm +++| 01960 M00S01658.1tm +++| 01961 M00S01659.1tm +++| SNM BSS 0 ENTRY 01962 M00S01660.1tm +++| SCN 2 CLEAR *EXTENDED* MODE 01963 M00S01661.1tm +++| JMP SEP SET EVEN PARITY 01964 M00S01662.1tm +++| SOP SPACE 4,15 01965 M00S01663.1tm +++|** SOP - SET *ODD* PARITY. 01966 M00S01664.1tm +++|* 01967 M00S01665.1tm +++|* ENTRY (A) = (DP+3). 01968 M00S01666.1tm +++|* 01969 M00S01667.1tm +++|* EXIT TO *MGR* - 01970 M00S01668.1tm +++|* (DP+3) = PARITY SET TO *ODD*. 01971 M00S01669.1tm +++|* (PY) = PARITY SET TO *ODD*. 01972 M00S01670.1tm +++| 01973 M00S01671.1tm +++| 01974 M00S01672.1tm +++| SOP BSS 0 ENTRY 01975 M00S01673.1tm +++| SCN 1 SET *ODD* PARITY FLAG 01976 M00S01674.1tm +++| LMN 1 01977 M00S01675.1tm +++| STD DP+3 01978 M00S01676.1tm +++| LDC 1S7 SET *ODD* PARITY BIT 01979 M00S01677.1tm +++| STD PY 01980 M00S01678.1tm +++| JMP MGR EXIT 01981 M00S01679.1tm +++| STT SPACE 4,15 01982 M00S01680.1tm +++|** STT - SET TERMINAL TYPE. 01983 M00S01681.1tm +++|* 01984 M00S01682.1tm +++|* SET TERMINAL TYPE TO *BLKEDIT* OR TO *TTY*. 01985 M00S01683.1tm +++|* 01986 M00S01684.1tm +++|* ENTRY (A) = (DP+3). 01987 M00S01685.1tm +++|* (T3) = FUNCTION REQUEST - 01988 M00S01686.1tm +++|* = 6/TYPE, 6/. 01989 M00S01687.1tm +++|* TYPE = 0 IF *TTY* 01990 M00S01688.1tm +++|* = 1 IF *BLKEDIT*. 01991 M00S01689.1tm +++|* 01992 M00S01690.1tm +++|* EXIT TO *MGR* - 01993 M00S01691.1tm +++|* (DP+3) = NEW TERMINAL TYPE. 01994 M00S01692.1tm +++| 01995 M00S01693.1tm +++| 01996 M00S01694.1tm +++| STT BSS 0 ENTRY 01997 M00S01695.1tm +++| LPC -200 CLEAR CURRENT TERMINAL TYPE 01998 M00S01696.1tm +++| STD DP+3 01999 M00S01697.1tm +++| LDD T3 CHECK TYPE REQUESTED 02000 M00S01698.1tm +++| SHN -6 02001 M00S01699.1tm +++| ZJN STT1 IF *TTY* 02002 M00S01700.1tm +++| LDC 200 SET *BLKEDIT* 02003 M00S01701.1tm +++| RAD DP+3 02004 M00S01702.1tm +++| STT1 JMP MGR EXIT 02005 M00S01703.1tm +++| SPACE 4,10 02006 M00S01704.1tm +++| QUAL 02007 M00S01705.1tm +++| 02008 M00S01706.1tm +++| CTO EQU /CTL/CTO 02009 M00S01707.1tm +++| LINPE EQU /CTL/LINPE 02010 M00S01708.1tm +++| MGR EQU /CTL/MGR 02011 M00S01709.1tm +++| MGR$ EQU /CTL/MGR$ 02012 M00S01710.1tm +++| MGR= EQU /CTL/MGR= 02013 M00S01711.1tm +++| RWC EQU /CTL/RWC 02014 M00S01712.1tm +++| RDM TITLE READ MODE. 02015 M00S01713.1tm +++| QUAL RDM 02016 M00S01714.1tm +++| RDM SPACE 4,30 02017 M00S01715.1tm +++|** RDM - READ MODE ENTRY PROCESSOR. 02018 M00S01716.1tm +++|* 02019 M00S01717.1tm +++|* ENTRY (DP+1) = FIRST POT FOR INPUT LINE. 02020 M00S01718.1tm +++|* (DP+2) = 3/FIRST WORD OF LINE, 02021 M00S01719.1tm +++|* 1/INPUT INITIATED, 02022 M00S01720.1tm +++|* 1/POT REQUESTED, 02023 M00S01721.1tm +++|* 3/CURRENT WORD OF LINE, 02024 M00S01722.1tm +++|* 4/CURRENT CHARACTER OF LINE. 02025 M00S01723.1tm +++|* 02026 M00S01724.1tm +++|* FOR SPECIAL INPUT PROCESSING - 02027 M00S01725.1tm +++|* (DP+3) *TRANSPARENT INPUT* STATUS. 02028 M00S01726.1tm +++|* (DP+3) *BINARY INPUT* STATUS. 02029 M00S01727.1tm +++|* 02030 M00S01728.1tm +++|* (CH) = BINARY INPUT TERMINATION CHARACTER. 02031 M00S01729.1tm +++|* (CH+1) = BINARY INPUT TERMINATION COUNT. 02032 M00S01730.1tm +++|* 02033 M00S01731.1tm +++|* EXIT TO *ARD* IF *ASCII* FORMAT READ - 02034 M00S01732.1tm +++|* (A) = INPUT DATA. 02035 M00S01733.1tm +++|* (DI) = INPUT DATA. 02036 M00S01734.1tm +++|* (DP+4) = *ARD*. 02037 M00S01735.1tm +++|* TO *BRD* IF NOS *BINARY* FORMAT READ - 02038 M00S01736.1tm +++|* (A) = INPUT DATA. 02039 M00S01737.1tm +++|* (DI) = INPUT DATA. 02040 M00S01738.1tm +++|* (DP+4) = *BRD*. 02041 M00S01739.1tm +++|* TO *TTM* IF NO INPUT POT AVAILABLE FOR DATA. 02042 M00S01740.1tm +++| 02043 M00S01741.1tm +++| 02044 M00S01742.1tm +++| RDM BSS 0 ENTRY 02045 M00S01743.1tm +++| LDD DP CHECK FIRST POT ASSIGNED 02046 M00S01744.1tm +++| ZJN RDM4 IF NO INPUT POT 02047 M00S01745.1tm +++| LDD DP+3 CHECK BINARY TRANSMISSION 02048 M00S01746.1tm +++| SHN 21-3 02049 M00S01747.1tm +++| PJN RDM2 IF NOT SET 02050 M00S01748.1tm +++| LDD CH+1 CHECK BINARY COUNT 02051 M00S01749.1tm +++| NJN RDM1 IF SET 02052 M00S01750.1tm +++| LCN 10 02053 M00S01751.1tm +++| RAD DP+3 CLEAR BINARY MODE 02054 M00S01752.1tm +++| UJN RDM2 02055 M00S01753.1tm +++| 02056 M00S01754.1tm +++| RDM1 LDC BRD SET BINARY READ 02057 M00S01755.1tm +++| UJN RDM3 02058 M00S01756.1tm +++| 02059 M00S01757.1tm +++| RDM2 LDC ARD SELECT READ PROCESSOR 02060 M00S01758.1tm +++| RDM3 STD DP+4 SET PROCESSOR ADDRESS 02061 M00S01759.1tm +++| LDD DI SET (A) = INPUT DATA 02062 M00S01760.1tm +++| LJM 0,DP+4 ENTER PROCESSOR 02063 M00S01761.1tm +++| 02064 M00S01762.1tm +++|* PROCESS LACK OF INPUT POT. IF THE INPUT DATA HAS 02065 M00S01763.1tm +++|* NO NEED TO BE TRANSLATED AND STORED IT WILL BE IGNORED. 02066 M00S01764.1tm +++|* IF THE DATA IS VALID, A DIAGNOSTIC MESSAGE WILL BE 02067 M00S01765.1tm +++|* ISSUED TO THE TERMINAL OPERATOR. 02068 M00S01766.1tm +++| 02069 M00S01767.1tm +++| RDM4 LDD DI GET INPUT CHARACTER 02070 M00S01768.1tm +++| LPC 177 02071 M00S01769.1tm +++| STD T7 02072 M00S01770.1tm +++| LDM TINT,T7 TRANSLATE CHARACTER 02073 M00S01771.1tm +++| SHN -7 02074 M00S01772.1tm +++| ZJN RDM5 IF NOT SPECIAL CHARACTER 02075 M00S01773.1tm +++| LMN /TRN/NLI 02076 M00S01774.1tm +++| NJN RDM5 IF NOT NULL INPUT 02077 M00S01775.1tm +++| JMP MGR IGNORE CHARACTER 02078 M00S01776.1tm +++| 02079 M00S01777.1tm +++| RDM5 LDN RILM *RE-ENTER LAST LINE* 02080 M00S01778.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02081 M00S01779.1tm +++| ARD TITLE READ MODE - *ASCII* READ PROCESSOR. 02082 M00S01780.1tm +++| ARD SPACE 4,25 02083 M00S01781.1tm +++|** ARD - *ASCII* TERMINAL READ. 02084 M00S01782.1tm +++|* 02085 M00S01783.1tm +++|* PROCESSES INPUT DATA FROM *ASCII* MODE TERMINAL. 02086 M00S01784.1tm +++|* 02087 M00S01785.1tm +++|* ENTRY (A) = INPUT DATA. 02088 M00S01786.1tm +++|* (DI) = INPUT DATA. 02089 M00S01787.1tm +++|* (DP+4) = *ARD*. 02090 M00S01788.1tm +++|* 02091 M00S01789.1tm +++|* EXIT TO *EIC* IF INPUT RECEIVED - 02092 M00S01790.1tm +++|* (DI) = INPUT DATA. 02093 M00S01791.1tm +++|* (T7) = LOWER 7 BITS OF INPUT. 02094 M00S01792.1tm +++|* (DO) = 0 IF NOT FULL DUPLEX. 02095 M00S01793.1tm +++|* = INPUT DATA IF FULL DUPLEX. 02096 M00S01794.1tm +++|* TO *CTO* IF NO INPUT RECEIVED - 02097 M00S01795.1tm +++|* (DP+4) = *ARD*. 02098 M00S01796.1tm +++|* TO *DLO* IF LOST-DATA CONDITION ON LINE. 02099 M00S01797.1tm +++|* TO PROCESSOR IF SPECIAL CHARACTER RECEIVED. 02100 M00S01798.1tm +++|* 02101 M00S01799.1tm +++|* USES T1, T2. 02102 M00S01800.1tm +++|* 02103 M00S01801.1tm +++|* CALLS EMD. 02104 M00S01802.1tm +++| 02105 M00S01803.1tm +++| 02106 M00S01804.1tm +++| ARD BSS 0 ENTRY 02107 M00S01805.1tm +++| NJN ARD1 IF CHARACTER RECEIVED 02108 M00S01806.1tm +++| LJM CTO CHECK TIME-OUT 02109 M00S01807.1tm +++| 02110 M00S01808.1tm +++| ARD1 SHN 21-11 CHECK CHARACTER STATUS 02111 M00S01809.1tm +++| PJN ARD2 IF NOT LOST DATA 02112 M00S01810.1tm +++| LJM DLO PROCESS LOST DATA 02113 M00S01811.1tm +++| 02114 M00S01812.1tm +++|* ISSUE INPUT TO OUTPUT OR CLEAR (DO), DEPENDING 02115 M00S01813.1tm +++|* UPON TERMINAL DUPLEX MODE. 02116 M00S01814.1tm +++| 02117 M00S01815.1tm +++| ARD2 SHN 11-21 EXTRACT CHARACTER 02118 M00S01816.1tm +++| LPC 4377 ASSUME ECHOPLEX MODE 02119 M00S01817.1tm +++| STD DO 02120 M00S01818.1tm +++| LPC 177 EXTRACT DATA BITS 02121 M00S01819.1tm +++| STD T7 02122 M00S01820.1tm +++| RJM EMD ENTER OPERATOR MESSAGE DATA 02123 M00S01821.1tm +++| LDD DP+3 CHECK ECHOPLEX MODE 02124 M00S01822.1tm +++| LPC 100 02125 M00S01823.1tm +++| NJN ARD3 IF SET 02126 M00S01824.1tm +++| STD DO CLEAR OUTPUT 02127 M00S01825.1tm +++| 02128 M00S01826.1tm +++|* TRANSLATE INPUT CHARACTER. 02129 M00S01827.1tm +++| 02130 M00S01828.1tm +++| ARD3 LDM TINT,T7 READ TRANSLATION TABLE ENTRY 02131 M00S01829.1tm +++| STD T7 SAVE TRANSLATION 02132 M00S01830.1tm +++| SHN -7 CHECK FOR SPECIAL PROCESSING
| Line S01831 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02133 M01S01831.242l642 ---| NJN ARD4 IF SPECIAL PROCESSING REQUIRED 02134 M01S01832.242l642 ---| LJM EIC ENTER INPUT CHARACTER
| Line S00190 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02135 M01S00190.242l642 +++| NJN ARD5 IF SPECIAL PROCESSING REQUIRED 02136 M01S00191.242l642 +++| LDD F7 02137 M01S00192.242l642 +++| NJN ARD7 IF START OF *F7* SEQUENCE DETECTED 02138 M01S00193.242l642 +++| ARD4 LJM EIC ENTER INPUT CHARACTER 02139 M00S01833.1tm +++| 02140 M00S01834.1tm +++| 02141 M00S01835.1tm +++|* PROCESS SPECIAL READ CHARACTER. 02142 M00S01836.1tm +++|
| Line S01837 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02143 M01S01837.242l642 ---| ARD4 STD T1 SET PROCESSOR INDEX 02144 M01S01838.242l642 ---| LDM TRSP-1,T1 SET PROCESSOR ADDRESS
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02145 M01S00194.242l642 +++| ARD5 STD T1 SET PROCESSOR INDEX 02146 M01S00195.242l642 +++| LMN /TRN/CLW 02147 M01S00196.242l642 +++| ZJN ARD6 IF LOWER CASE *W* 02148 M01S00197.242l642 +++| LDD F7 02149 M01S00198.242l642 +++| NJN ARD7 IF START OF *F7* SEQUENCE DETECTED 02150 M01S00199.242l642 +++| ARD6 LDM TRSP-1,T1 SET PROCESSOR ADDRESS 02151 M00S01839.1tm +++| STD T2 02152 M00S01840.1tm +++| LDD DP+3 SET (A) = (DP+3) 02153 M00S01841.1tm +++| LJM 0,T2 ENTER PROCESSOR
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02154 M01S00200.242l642 +++| 02155 M01S00201.242l642 +++|* START OF *F7* SEQUENCE DETECTED BUT NOT FINISHED. 02156 M01S00202.242l642 +++|* THAT IS, FOLLOWING THE 1E (HEX), A 77 (HEX) WAS NOT 02157 M01S00203.242l642 +++|* RECEIVED. 02158 M01S00204.242l642 +++| 02159 M01S00205.242l642 +++| ARD7 SBN 2 02160 M01S00206.242l642 +++| ZJN ARD8 IF PREVIOUS CHARACTER IS SET UP 02161 M01S00207.242l642 +++| LDD DI CURRENT CHARACTER WILL BE NEXT 02162 M01S00208.242l642 +++| STM SVMA 02163 M01S00209.242l642 +++| AOD F7 02164 M01S00210.242l642 +++| LDK .CRS PROCESS PREVIOUS CHARACTER 02165 M01S00211.242l642 +++| STD DI 02166 M01S00212.242l642 +++| UJP ARD1 EXTRACT CHARACTER 02167 M01S00213.242l642 +++| 02168 M01S00214.242l642 +++| ARD8 STD F7 CLEAR *F7* FLAG 02169 M01S00215.242l642 +++| UJN ARD4 ENTER INPUT CHARACTER 02170 M00S01842.1tm +++| TRSP SPACE 4,10 02171 M00S01843.1tm +++|** TRSP - TABLE OF SPECIAL READ CHARACTER PROCESSORS. 02172 M00S01844.1tm +++| 02173 M00S01845.1tm +++| 02174 M00S01846.1tm +++| TRSP BSS 0 02175 M00S01847.1tm +++| QUAL TRN 02176 M00S01848.1tm +++| LOC 1 02177 M00S01849.1tm +++| 02178 M00S01850.1tm +++| CES CON /RDM/CES CHECK ESCAPE STATUS
| Line S00216 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02179 M01S00216.242l642 +++| CLW CON /RDM/CLW CHECK LOWER CASE *W* 02180 M01S00217.242l642 +++| CRS CON /RDM/CRS CHECK *RS* 02181 M00S01851.1tm +++| CRT CON /RDM/CRT CARRIAGE RETURN 02182 M00S01852.1tm +++| DEL CON /RDM/DEL DELETE (RUBOUT) 02183 M00S01853.1tm +++| DLN CON /RDM/DLN LINE DELETE 02184 M00S01854.1tm +++| DPC CON /RDM/DPC DELETE PREVIOUS CHARACTER 02185 M00S01855.1tm +++| EOT CON /RDM/EOT END OF TRANSMISSION 02186 M00S01856.1tm +++| NLI CON /RDM/NLI NULL INPUT 02187 M00S01857.1tm +++| ECI CON /RDM/ECI ESCAPE CHARACTER INPUT 02188 M00S01858.1tm +++| CLN CON /RDM/CLN COLON 02189 M00S01859.1tm +++| BRK CON /RDM/BRK BREAK 02190 M00S01860.1tm +++| ETX CON /RDM/ETX ETX 02191 M00S01861.1tm +++| 02192 M00S01862.1tm +++| LOC *O 02193 M00S01863.1tm +++| NOREF CES,NLI 02194 M00S01864.1tm +++| QUAL * 02195 M00S01865.1tm +++| RDM TITLE READ MODE - *BINARY* READ PROCESSOR. 02196 M00S01866.1tm +++| BRD SPACE 4,15 02197 M00S01867.1tm +++|** BRD - BINARY READ PROCESSOR. 02198 M00S01868.1tm +++|* 02199 M00S01869.1tm +++|* ENTRY (A) = INPUT DATA CHARACTER. 02200 M00S01870.1tm +++|* (DI) = INPUT DATA CHARACTER. 02201 M00S01871.1tm +++|* (CH) = INPUT TERMINATION CHARACTER. 02202 M00S01872.1tm +++|* (CH+1) = INPUT LINE CHARACTER COUNT. 02203 M00S01873.1tm +++|* (DP+4) = *BRD*. 02204 M00S01874.1tm +++|* 02205 M00S01875.1tm +++|* EXIT TO *CLI* TO PROCESS COMMAND LINE. 02206 M00S01876.1tm +++|* TO *DLO* IF LOST DATA. 02207 M00S01877.1tm +++|* TO *SLI* TO PROCESS SOURCE LINE. 02208 M00S01878.1tm +++|* 02209 M00S01879.1tm +++|* CALLS ERQ, WDC. 02210 M00S01880.1tm +++| 02211 M00S01881.1tm +++| 02212 M00S01882.1tm +++| BRD BSS 0 ENTRY 02213 M00S01883.1tm +++| NJN BRD1 IF INPUT RECEIVED 02214 M00S01884.1tm +++| LJM CTO CHECK TIME-OUT 02215 M00S01885.1tm +++| 02216 M00S01886.1tm +++| BRD1 STD T7 SAVE INPUT CHARACTER 02217 M00S01887.1tm +++| SHN 21-11 CHECK *LOST DATA* BIT 02218 M00S01888.1tm +++| PJN BRD2 IF *LOST DATA* NOT SET 02219 M00S01889.1tm +++| LJM DLO PROCESS DATA LOST 02220 M00S01890.1tm +++| 02221 M00S01891.1tm +++| BRD2 LDD DP+3 CHECK *FULL DUPLEX* 02222 M00S01892.1tm +++| LPC 100 02223 M00S01893.1tm +++| ZJN BRD3 IF NOT SET 02224 M00S01894.1tm +++| LDD DI ISSUE INPUT CHARACTER TO OUTPUT 02225 M00S01895.1tm +++| LPC 4377 02226 M00S01896.1tm +++| BRD3 STD DO SET/CLEAR OUTPUT BUFFER 02227 M00S01897.1tm +++| LDD CH SAVE INPUT TERMINATOR CHARACTER 02228 M00S01898.1tm +++| STD CH+2 02229 M00S01899.1tm +++| LDD T7 FORMAT INPUT CHARACTER
| Line S01900 Modification History | |
|---|---|
M01 (Removed by) | 1tm4 |
Seq # *Modification Id* Act ----------------------------+ 02230 M01S01900.1tm4 ---| SHN -6 02231 M01S01901.1tm4 ---| LPN 43
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1tm4 |
Seq # *Modification Id* Act ----------------------------+ 02232 M01S00001.1tm4 +++| LPC 4300 02233 M00S01902.1tm +++| STD CH SET UPPER HALF FOR *WIC* 02234 M00S01903.1tm +++| LDD T7 SET LOWER HALF FOR *WIC* 02235 M00S01904.1tm +++| LPN 77 02236 M00S01905.1tm +++| STD T7 02237 M00S01906.1tm +++| AOD DP+2 ADVANCE INPUT BYTE NUMBER 02238 M00S01907.1tm +++| RJM WIC WRITE INPUT CHARACTER 02239 M00S01908.1tm +++| AOD CH+3 ADVANCE INPUT CHARACTER COUNT 02240 M00S01909.1tm +++| SHN -14 02241 M00S01910.1tm +++| ZJN BRD4 IF NO OVERFLOW 02242 M00S01911.1tm +++| STD RQ+2 REQUEST ACCOUNTING MESSAGE 02243 M00S01912.1tm +++| LDN /TLX/IAM 02244 M00S01913.1tm +++| RJM ERQ 02245 M00S01914.1tm +++| BRD4 LDD CH+2 RESTORE TERMINATOR 02246 M00S01915.1tm +++| STD CH 02247 M00S01916.1tm +++| SHN 6 02248 M00S01917.1tm +++| MJN BRD5 IF NO TERMINATOR SPECIFIED 02249 M00S01918.1tm +++| SHN -6 02250 M00S01919.1tm +++| LMD T7 02251 M00S01920.1tm +++| LPC 177 02252 M00S01921.1tm +++| ZJN BRD6 IF TERMINATOR RECIEVED 02253 M00S01922.1tm +++| BRD5 SOD CH+1 DECREMENT CHARACTER COUNT 02254 M00S01923.1tm +++| SBN 1 02255 M00S01924.1tm +++| MJN BRD6 IF END OF BINARY INPUT 02256 M00S01925.1tm +++| JMP MGR RETURN TO MANAGER 02257 M00S01926.1tm +++| 02258 M00S01927.1tm +++|* TERMINATE BINARY READ OPERATION. 02259 M00S01928.1tm +++| 02260 M00S01929.1tm +++| BRD6 LDN 0 ENTER END-OF-LINE 02261 M00S01930.1tm +++| STD CH 02262 M00S01931.1tm +++| STD DO CLEAR OUTPUT 02263 M00S01932.1tm +++| STD T7 02264 M00S01933.1tm +++| STD CH+1 CLEAR CHARACTER COUNT 02265 M00S01934.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL 02266 M00S01935.1tm +++| AOD DP+2 WRITE END OF LINE 02267 M00S01936.1tm +++| RJM WIC 02268 M00S01937.1tm +++| LCN 10 CLEAR BINARY INPUT 02269 M00S01938.1tm +++| RAD DP+3 02270 M00S01939.1tm +++| LDD DC CHECK TERMINAL STATUS 02271 M00S01940.1tm +++| SHN 21-6 02272 M00S01941.1tm +++| MJN CLI IF *READ DATA* 02273 M00S01942.1tm +++| LJM SLI PROCESS SOURCE LINE INPUT 02274 M00S01943.1tm +++| TITLE READ MODE - MAIN ROUTINES. 02275 M00S01944.1tm +++| CLI SPACE 4,15 02276 M00S01945.1tm +++|** CLI - PROCESS COMMAND LINE INPUT. 02277 M00S01946.1tm +++|*
| Line S01947 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02278 M01S01947.242l642 ---|* TRANSMITS THE COMMAND LINE TO *RAF*.
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02279 M01S00218.242l642 +++|* TRANSMITS THE COMMAND LINE TO *RDF*. 02280 M00S01948.1tm +++|* 02281 M00S01949.1tm +++|* CALLS ERQ. 02282 M00S01950.1tm +++|* 02283 M00S01951.1tm +++|* EXIT TO *RWC* - 02284 M00S01952.1tm +++|* (DO) = *LF* IF *TAPE* MODE. 02285 M00S01953.1tm +++|* INPUT POTS RELEASED TO EXECUTIVE. 02286 M00S01954.1tm +++|* (DP) = 0. 02287 M00S01955.1tm +++| 02288 M00S01956.1tm +++| 02289 M00S01957.1tm +++|CLI BSS 0 ENTRY 02290 M00S01958.1tm +++| LDD DP SET FIRST POT OF LINE 02291 M00S01959.1tm +++| STD RQ+3 02292 M00S01960.1tm +++| LDD DP+2 SET FIRST WORD 02293 M00S01961.1tm +++| SHN -11 02294 M00S01962.1tm +++| STD RQ+2 02295 M00S01963.1tm +++| LDN /TLX/CLI REQUEST COMMAND LINE INPUT 02296 M00S01964.1tm +++| RJM ERQ 02297 M00S01965.1tm +++| STD DP CLEAR FIRST POT 02298 M00S01966.1tm +++| STD DP+2 CLEAR POINTERS 02299 M00S01967.1tm +++| LDD DC CHECK TERMINAL STATUS 02300 M00S01968.1tm +++| LPN 1 02301 M00S01969.1tm +++| ZJN CLI1 IF NOT IN *TAPE* MODE 02302 M00S01970.1tm +++| LDK .CLF ISSUE *LF* TO TERMINAL 02303 M00S01971.1tm +++| STD DO 02304 M00S01972.1tm +++| CLI1 JMP RWC ENTER READ/WRITE CONTROL 02305 M00S01973.1tm +++| DLO SPACE 4,15 02306 M00S01974.1tm +++|** DLO - PROCESS LOST DATA. 02307 M00S01975.1tm +++|*
| Line S01976 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02308 M01S01976.242l642 ---|* NOTIFY *RAF* THAT A LOST DATA CONDITION OCCURRED ON THE
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02309 M01S00219.242l642 +++|* NOTIFY *RDF* THAT A LOST DATA CONDITION OCCURRED ON THE 02310 M00S01977.1tm +++|* TERMINAL LINE. 02311 M00S01978.1tm +++|* 02312 M00S01979.1tm +++|* EXIT TO *NIP* TO PROCESS LOST DATA - 02313 M00S01980.1tm +++|* (RQ+2) = 1. 02314 M00S01981.1tm +++| 02315 M00S01982.1tm +++| 02316 M00S01983.1tm +++| DLO BSS 0 ENTRY 02317 M00S01984.1tm +++| LDN 1 SET LOST-DATA BIT 02318 M00S01985.1tm +++| STD RQ+2 02319 M00S01986.1tm +++| LJM NIP PROCESS LOST DATA 02320 M00S01987.1tm +++| EIC SPACE 4,20 02321 M00S01988.1tm +++|** EIC - ENTER INPUT CHARACTER. 02322 M00S01989.1tm +++|* 02323 M00S01990.1tm +++|* ENTERS INPUT CHARACTER IN INPUT AND COUNTS CHARACTER. 02324 M00S01991.1tm +++|* IF THE LINE CHARACTER COUNT EXCEEDS THE MAXIMUM, AN 02325 M00S01992.1tm +++|* OVERFLOW MESSAGE WILL BE ISSUED. 02326 M00S01993.1tm +++|* 02327 M00S01994.1tm +++|* ENTRY (T7) = CHARACTER TO BE ENTERED. 02328 M00S01995.1tm +++|* (DP+4) = *ARD*. 02329 M00S01996.1tm +++|* 02330 M00S01997.1tm +++|* EXIT TO *MGR* IF NO OVERFLOW - 02331 M00S01998.1tm +++|* (CH+1) = LINE CHARACTER COUNT INCREMENTED. 02332 M00S01999.1tm +++|* TO *TTM* IF LINE OVERFLOW. 02333 M00S02000.1tm +++|* 02334 M00S02001.1tm +++|* CALLS WIC. 02335 M00S02002.1tm +++| 02336 M00S02003.1tm +++| 02337 M00S02004.1tm +++| EIC BSS 0 ENTRY 02338 M00S02005.1tm +++| RJM WIC WRITE INPUT CHARACTER TO INPUT POT 02339 M00S02006.1tm +++| AOD CH+1 INCREMENT LINE CHARACTER COUNT
| Line S02007 Modification History | |
|---|---|
M01 (Removed by) | 1tm6 |
Seq # *Modification Id* Act ----------------------------+ 02340 M01S02007.1tm6 ---| SBK MXIC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1tm6 |
Seq # *Modification Id* Act ----------------------------+ 02341 M01S00001.1tm6 +++| SBK VXLL 02342 M00S02008.1tm +++| PJN EIC1 IF LINE OVERFLOW 02343 M00S02009.1tm +++| JMP MGR REENTER ASCII READ PROCESSOR 02344 M00S02010.1tm +++| 02345 M00S02011.1tm +++|* PROCESS INPUT LINE OVERFLOW. 02346 M00S02012.1tm +++| 02347 M00S02013.1tm +++| EIC1 LDN LOFM SET MESSAGE POINTER 02348 M00S02014.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02349 M00S02015.1tm +++| EIL SPACE 4,15 02350 M00S02016.1tm +++|** EIL - END OF INPUT LINE. 02351 M00S02017.1tm +++|* 02352 M00S02018.1tm +++|* TERMINATES INPUT FOR THE CURRENT LINE AND CALLS 02353 M00S02019.1tm +++|* THE APPROPRIATE END OF LINE PROCESSOR. 02354 M00S02020.1tm +++|* 02355 M00S02021.1tm +++|* EXIT (CH+1) = 0. 02356 M00S02022.1tm +++|* (CH+2) = 0. 02357 M00S02023.1tm +++|* (DP+3) = *TRANSPARENT* MODE CLEARED. 02358 M00S02024.1tm +++|* TO *CLI* IF COMMAND LINE INPUT. 02359 M00S02025.1tm +++|* TO *RDM* IF OPERATOR MESSAGE ISSUED. 02360 M00S02026.1tm +++|* TO *SLI* IF SOURCE LINE INPUT. 02361 M00S02027.1tm +++|* 02362 M00S02028.1tm +++|* CALLS EOM, ERQ, RPC, WIC. 02363 M00S02029.1tm +++|* 02364 M00S02030.1tm +++|* MACROS ADCBM. 02365 M00S02031.1tm +++| 02366 M00S02032.1tm +++| 02367 M00S02033.1tm +++| EIL BSS 0 ENTRY 02368 M00S02034.1tm +++| RJM EOM ENTER OPERATOR MESSAGE 02369 M00S02035.1tm +++| LDD DP+2 CHECK CHARACTER POSITION 02370 M00S02036.1tm +++| LPN 1 02371 M00S02037.1tm +++| NJN EIL1 IF LOWER CHARACTER 02372 M00S02038.1tm +++| 02373 M00S02039.1tm +++|* ENTER *BLANK* AS UPPER CHARACTER IF PREVIOUS CHARACTER 02374 M00S02040.1tm +++|* IS A *COLON* (00). 02375 M00S02041.1tm +++| 02376 M00S02042.1tm +++| LDD CH+1 CHECK LINE CHARACTER COUNT 02377 M00S02043.1tm +++| ZJN EIL3 IF START OF LINE 02378 M00S02044.1tm +++| LDD MA SAVE POINTER WORD 02379 M00S02045.1tm +++| CWD DP 02380 M00S02046.1tm +++| RJM RPC READ PRECEDING CHARACTER 02381 M00S02047.1tm +++| STD T7 02382 M00S02048.1tm +++| LDD MA RESTORE POINTER WORD 02383 M00S02049.1tm +++| CRD DP 02384 M00S02050.1tm +++| LDD T7 CHECK PRECEDING CHARACTER 02385 M00S02051.1tm +++| NJN EIL3 IF NOT COLON 02386 M00S02052.1tm +++| LDN 1R ENTER BLANK 02387 M00S02053.1tm +++| STD T7 02388 M00S02054.1tm +++| RJM WIC 02389 M00S02055.1tm +++| 02390 M00S02056.1tm +++|* ENTER *BLANK* AS LOWER CHARACTER IF NOT IN *TRANSPARENT* 02391 M00S02057.1tm +++|* MODE, ELSE ENTER NULL (00). 02392 M00S02058.1tm +++| 02393 M00S02059.1tm +++| EIL1 LDD DP+3 CHECK FOR TRANSPARENT MODE 02394 M00S02060.1tm +++| LPN 4 02395 M00S02061.1tm +++| ZJN EIL2 IF NOT TRANSPARENT MODE 02396 M00S02062.1tm +++| LDN 1R 02397 M00S02063.1tm +++| EIL2 LMN 1R 02398 M00S02064.1tm +++| STD T7 02399 M00S02065.1tm +++| RJM WIC 02400 M00S02066.1tm +++| 02401 M00S02067.1tm +++|* ENTER NULL (00) AS UPPER CHARACTER TO FORCE END-OF-LINE. 02402 M00S02068.1tm +++| 02403 M00S02069.1tm +++| EIL3 LDN 0 ENTER END OF LINE 02404 M00S02070.1tm +++| STD T7 02405 M00S02071.1tm +++| RJM WIC 02406 M00S02072.1tm +++| LDD DP+3 CLEAR *TRANSPARENT* MODE 02407 M00S02073.1tm +++| SCN 4 02408 M00S02074.1tm +++| STD DP+3 02409 M00S02075.1tm +++| 02410 M00S02076.1tm +++|* COMPLETE END OF LINE PROCESSING. 02411 M00S02077.1tm +++| 02412 M00S02078.1tm +++| LDD CH+1 ADVANCE INPUT CHARACTER COUNT 02413 M00S02079.1tm +++| RAD CH+3 02414 M00S02080.1tm +++| SHN -14 02415 M00S02081.1tm +++| ZJN EIL4 IF NO OVERFLOW 02416 M00S02082.1tm +++| STD RQ+2 02417 M00S02083.1tm +++| LDN /TLX/IAM REQUEST ISSUE ACCOUNTING MESSAGE 02418 M00S02084.1tm +++| RJM ERQ 02419 M00S02085.1tm +++| EIL4 STD CH+1 CLEAR INPUT LINE CHARACTER COUNT 02420 M00S02086.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL 02421 M00S02087.1tm +++| LDD DC CHECK TERMINAL STATUS 02422 M00S02088.1tm +++| SHN 21-6 02423 M00S02089.1tm +++| MJN EIL6 IF *READ DATA*, PROCESS AS COMMAND 02424 M00S02090.1tm +++| SHN 6-2 02425 M00S02091.1tm +++| MJN EIL5 IF *TEXT* MODE, PROCESS AS SOURCE 02426 M00S02092.1tm +++| LDD DP+2 READ FIRST WORD OF LINE 02427 M00S02093.1tm +++| LPC 7000 02428 M00S02094.1tm +++| SHN 6 02429 M00S02095.1tm +++| ADD DP 02430 M00S02096.1tm +++| SHN 3 02431 M00S02097.1tm +++| ADCBM 02432 M00S02098.1tm +++| CRD CM 02433 M00S02099.1tm +++| LDD CM CHECK FIRST CHARACTER 02434 M00S02100.1tm +++| SHN -6 02435 M00S02101.1tm +++| SBN 1R0 02436 M00S02102.1tm +++| MJN EIL6 IF NOT DIGIT 02437 M00S02103.1tm +++| SBN 1R9+1-1R0 02438 M00S02104.1tm +++| EIL5 MJN SLI IF DIGIT 02439 M00S02105.1tm +++| EIL6 LJM CLI PROCESS COMMAND LINE 02440 M00S02106.1tm +++| ESC SPACE 4,20 02441 M00S02107.1tm +++|** ESC - PROCESS ESCAPE CODES. 02442 M00S02108.1tm +++|* 02443 M00S02109.1tm +++|* ENTERS UPPER AND LOWER HALVES OF ESCAPE 02444 M00S02110.1tm +++|* CHARACTER (74XX OR 76XX). 02445 M00S02111.1tm +++|* 02446 M00S02112.1tm +++|* ENTRY (T7) = ESCAPE CODE CHARACTER. 02447 M00S02113.1tm +++|* BIT 2**6 SET IF ESCAPE 1 (76XX). 02448 M00S02114.1tm +++|* BIT 2**6 CLEAR IF ESCAPE 2 (74XX). 02449 M00S02115.1tm +++|* (DP+4) = *ARD*. 02450 M00S02116.1tm +++|* 02451 M00S02117.1tm +++|* EXIT ESCAPE CODE WRITTEN TO INPUT POT. 02452 M00S02118.1tm +++|* TO *EIC* TO COMPLETE LOWER 6 BITS OF CHARACTER - 02453 M00S02119.1tm +++|* (T7) = CHARACTER. 02454 M00S02120.1tm +++|* 02455 M00S02121.1tm +++|* USES CH+2. 02456 M00S02122.1tm +++|* 02457 M00S02123.1tm +++|* CALLS WIC. 02458 M00S02124.1tm +++| 02459 M00S02125.1tm +++| 02460 M00S02126.1tm +++| ESC BSS 0 ENTRY 02461 M00S02127.1tm +++| LDD T7 SAVE CHARACTER 02462 M00S02128.1tm +++| STD CH+2 02463 M00S02129.1tm +++| SHN -5 SET PROPER ESCAPE CODE 02464 M00S02130.1tm +++| LPN 2 02465 M00S02131.1tm +++| ADN 74 02466 M00S02132.1tm +++| STD T7 02467 M00S02133.1tm +++| RJM WIC WRITE ESCAPE CODE 02468 M00S02134.1tm +++| LDD CH+2 SET DISPLAY CODE 02469 M00S02135.1tm +++| LPC 177 PRESERVE ESCAPE BIAS 02470 M00S02136.1tm +++| STD T7 02471 M00S02137.1tm +++| JMP EIC ENTER REMAINDER OF CHARACTER 02472 M00S02138.1tm +++| NIP SPACE 4,15 02473 M00S02139.1tm +++|** NIP - NO INPUT POT AVAILABLE. 02474 M00S02140.1tm +++|*
| Line S02141 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02475 M01S02141.242l642 ---|* NOTIFY *RAF* THAT NO INPUT WAS AVAILABLE AND
| Line S00220 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02476 M01S00220.242l642 +++|* NOTIFY *RDF* THAT NO INPUT WAS AVAILABLE AND 02477 M00S02142.1tm +++|* ISSUE *RE-ENTER LAST LINE* MESSAGE TO TERMINAL. 02478 M00S02143.1tm +++|* 02479 M00S02144.1tm +++|* ENTRY (RQ+2) = 0 IF NO INPUT POT AVAILABLE. 02480 M00S02145.1tm +++|* = 1 IF DATA LOST ON LINE. 02481 M00S02146.1tm +++|* 02482 M00S02147.1tm +++|* EXIT TO *TTM* TO ISSUE MESSAGE. 02483 M00S02148.1tm +++|* 02484 M00S02149.1tm +++|* CALLS ERQ. 02485 M00S02150.1tm +++| 02486 M00S02151.1tm +++| 02487 M00S02152.1tm +++| NIP BSS 0 ENTRY
| Line S02153 Modification History | |
|---|---|
M01 (Removed by) | 1tm3 |
Seq # *Modification Id* Act ----------------------------+ 02488 M01S02153.1tm3 ---| LDM /TLX/DLO REQUEST LOST-DATA PROCESSING
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1tm3 |
Seq # *Modification Id* Act ----------------------------+ 02489 M01S00001.1tm3 +++| LDN /TLX/DLO REQUEST LOST DATA PROCESSING 02490 M00S02154.1tm +++| RJM ERQ 02491 M00S02155.1tm +++| LDN RILM SET RE-ENTER LINE MESSAGE 02492 M00S02156.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02493 M00S02157.1tm +++| SLI SPACE 4,15 02494 M00S02158.1tm +++|** SLI - SOURCE LINE INPUT. 02495 M00S02159.1tm +++|* 02496 M00S02160.1tm +++|* TRANSMITS FIRST POT OF DATA TO EXECUTIVE AS SOURCE 02497 M00S02161.1tm +++|* INPUT IF MORE THAN ONE POT OF SOURCE LINE(S). 02498 M00S02162.1tm +++|* 02499 M00S02163.1tm +++|* EXIT TO *ARD* TO WAIT FOR ADDITIONAL INPUT - 02500 M00S02164.1tm +++|* DATA TRANSMITTED TO EXECUTIVE AS SOURCE INPUT. 02501 M00S02165.1tm +++|* 02502 M00S02166.1tm +++|* CALLS RIN. 02503 M00S02167.1tm +++|* 02504 M00S02168.1tm +++|* MACROS RETURN. 02505 M00S02169.1tm +++| 02506 M00S02170.1tm +++| 02507 M00S02171.1tm +++| SLI BSS 0 ENTRY 02508 M00S02172.1tm +++| LDD DP+2 SAVE *POT REQUESTED* FLAG 02509 M00S02173.1tm +++| LPC 360 02510 M00S02174.1tm +++| LMC 400 SET *INPUT INITIATED* 02511 M00S02175.1tm +++| STD DP+2 02512 M00S02176.1tm +++| SHN 5 02513 M00S02177.1tm +++| RAD DP+2 02514 M00S02178.1tm +++| RJM RIN RELEASE INPUT DATA 02515 M00S02179.1tm +++| RETURN ARD REENTER READ PROCESSOR 02516 M00S02180.1tm +++| TITLE READ MODE - SPECIAL CHARACTER PROCESSORS. 02517 M00S02181.1tm +++| BRK SPACE 4,20 02518 M00S02182.1tm +++|** BRK - PROCESS BREAK. 02519 M00S02183.1tm +++|* 02520 M00S02184.1tm +++|* (1) IGNORE BREAK IF IN *TAPE* MODE. 02521 M00S02185.1tm +++|* (2) INTERRUPT JOB IF ACTIVE. 02522 M00S02186.1tm +++|* (3) DELETE LINE IF INPUT ACTIVE AND IF NOT 02523 M00S02187.1tm +++|* IN *TRANSPARENT* MODE. 02524 M00S02188.1tm +++|* (4) ENTER *BRK* CHARACTER AND TERMINATE LINE 02525 M00S02189.1tm +++|* IF IN *TRANSPARENT* MODE. 02526 M00S02190.1tm +++|* (5) EXIT FROM *TEXT* MODE IF IN *TEXT* MODE. 02527 M00S02191.1tm +++|* 02528 M00S02192.1tm +++|* EXIT TO *RDM* IF IN *TAPE* MODE. 02529 M00S02193.1tm +++|* TO */CTL/INT* TO INTERRUPT JOB. 02530 M00S02194.1tm +++|* TO *TTM* TO ISSUE *DEL* MESSAGE. 02531 M00S02195.1tm +++|* TO *EIL* TO TERMINATE INPUT LINE. 02532 M00S02196.1tm +++|* TO *ETX2* TO EXIT FROM *TEXT* MODE. 02533 M00S02197.1tm +++|* 02534 M00S02198.1tm +++|* CALLS STA, WIC. 02535 M00S02199.1tm +++|* 02536 M00S02200.1tm +++|* MACROS RETURN. 02537 M00S02201.1tm +++| 02538 M00S02202.1tm +++| 02539 M00S02203.1tm +++| BRK BSS 0 ENTRY 02540 M00S02204.1tm +++| LDD DC CHECK TERMINAL STATUS 02541 M00S02205.1tm +++| LPN 1 02542 M00S02206.1tm +++| ZJN BRK1 IF NOT IN *TAPE* MODE 02543 M00S02207.1tm +++| JMP RDM IGNORE CHARACTER 02544 M00S02208.1tm +++| 02545 M00S02209.1tm +++| BRK1 LDK 100D/MNCT+1 START TIMER FOR BREAK 02546 M00S02210.1tm +++| STD DO 02547 M00S02211.1tm +++| BRK2 RETURN * REENTER 02548 M00S02212.1tm +++| NJN BRK1 IF BREAK STILL IN PROGRESS 02549 M00S02213.1tm +++| SOD DO 02550 M00S02214.1tm +++| NJN BRK2 IF NOT TIMED-OUT 02551 M00S02215.1tm +++| LDD CH+1 CHECK INPUT LINE 02552 M00S02216.1tm +++| NJN BRK4 IF LINE NOT EMPTY 02553 M00S02217.1tm +++| 02554 M00S02218.1tm +++|* PROCESS EMPTY INPUT LINE. 02555 M00S02219.1tm +++| 02556 M00S02220.1tm +++| LDD DC CHECK TERMINAL STATUS 02557 M00S02221.1tm +++| LPN 4 02558 M00S02222.1tm +++| ZJN BRK3 IF NOT *TEXT* MODE 02559 M00S02223.1tm +++| LJM ETX2 EXIT *TEXT* MODE 02560 M00S02224.1tm +++| 02561 M00S02225.1tm +++|* INTERRUPT JOB IF ACTIVE. 02562 M00S02226.1tm +++| 02563 M00S02227.1tm +++| BRK3 RJM STA SET FWA OF TERMINAL TABLE 02564 M00S02228.1tm +++| ADN VROT READ *VROT* 02565 M00S02229.1tm +++| CRD CM 02566 M00S02230.1tm +++| LDD CM+4 CHECK JOB ACTIVITY 02567 M00S02231.1tm +++| LMN 1 02568 M00S02232.1tm +++| ZJN BRK5 IF NO JOB ACTIVITY 02569 M00S02233.1tm +++| LDK TIET SET INTERRUPT CODE 02570 M00S02234.1tm +++| LJM /CTL/INT INTERRUPT JOB 02571 M00S02235.1tm +++| 02572 M00S02236.1tm +++|* PROCESS NON-EMPTY INPUT LINE. 02573 M00S02237.1tm +++| 02574 M00S02238.1tm +++| BRK4 LDD DP+3 CHECK MODE 02575 M00S02239.1tm +++| LPN 4 02576 M00S02240.1tm +++| NJN BRK6 IF TRANSPARENT MODE
| Line S02241 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02577 M01S02241.242l642 ---| BRK5 LDN DELM SET *DEL* MESSAGE
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02578 M02S00221.ns2394 ---| BRK5 LDD DC CHECK FOR AUTO MODE 02579 M02S00222.ns2394 ---| SHN 21-1 02580 M02S00223.ns2394 ---| PJN BRK5.1 IF NOT AUTO MODE 02581 M02S00224.ns2394 ---| RJM SCA SET CANCEL AUTO LINE 02582 M02S00225.ns2394 ---| BRK5.1 LDN DELM SET *DEL* MESSAGE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02583 M01S00001.ns2394 +++| BRK5 LDN DELM SET *DEL* MESSAGE 02584 M00S02242.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02585 M00S02243.1tm +++| 02586 M00S02244.1tm +++|* ENTER TRANSPARENT MODE DATA. 02587 M00S02245.1tm +++| 02588 M00S02246.1tm +++| BRK6 LDN 76 STORE ESCAPE 02589 M00S02247.1tm +++| STD T7 02590 M00S02248.1tm +++| RJM WIC 02591 M00S02249.1tm +++| LDN 40 STORE DISPLAY CODE 02592 M00S02250.1tm +++| STD T7 02593 M00S02251.1tm +++| RJM WIC 02594 M00S02252.1tm +++| RETURN EIL ENTER END-OF-LINE PROCESSING 02595 M00S02253.1tm +++| CES SPACE 4,20 02596 M00S02254.1tm +++|** CES - CHECK ESCAPE STATUS. 02597 M00S02255.1tm +++|* 02598 M00S02256.1tm +++|* DETERMINES WHETHER AN ESCAPE CHARACTER IS TO 02599 M00S02257.1tm +++|* BE ENTERED AS AN ESCAPE CHARACTER, AS AN UPPER 02600 M00S02258.1tm +++|* CASE CHARACTER, OR IS TO BE IGNORED. 02601 M00S02259.1tm +++|* 02602 M00S02260.1tm +++|* ENTRY (T7) = TRANSLATED CHARACTER. 02603 M00S02261.1tm +++|* (DP+4) = *ARD*. 02604 M00S02262.1tm +++|* 02605 M00S02263.1tm +++|* EXIT TO *ESC* TO ENTER ESCAPE CHARACTER IF 02606 M00S02264.1tm +++|* TERMINAL IS IN EXTENDED MODE. 02607 M00S02265.1tm +++|* TO *EIC* TO ENTER UPPER CASE CHARACTER IF NOT 02608 M00S02266.1tm +++|* IN EXTENDED MODE AND ALPHA CHARACTER. 02609 M00S02267.1tm +++|* 02610 M00S02268.1tm +++| 02611 M00S02269.1tm +++| 02612 M00S02270.1tm +++| CES BSS 0 ENTRY 02613 M00S02271.1tm +++| LDD DP+3 CHECK TERMINAL MODE 02614 M00S02272.1tm +++| LPN 6 02615 M00S02273.1tm +++| ZJN CES1 IF NOT EXTENDED MODE 02616 M00S02274.1tm +++| JMP ESC ENTER ESCAPE CHARACTER 02617 M00S02275.1tm +++| 02618 M00S02276.1tm +++| CES1 LDD T7 CHECK CHARACTER TRANSLATION 02619 M00S02277.1tm +++| SHN 21-6 02620 M00S02278.1tm +++| PJN CES2 IF ESCAPE 2 02621 M00S02279.1tm +++| LDD T7 CHECK LOWER SIX BITS 02622 M00S02280.1tm +++| LPN 77 02623 M00S02281.1tm +++| ZJN CES2 IF *7600* 02624 M00S02282.1tm +++| SBN 1RZ+1 02625 M00S02283.1tm +++| PJN CES2 IF NOT LOWER CASE ALPHA 02626 M00S02284.1tm +++| JMP EIC ENTER AS UPPER CASE ALPHA 02627 M00S02285.1tm +++| 02628 M00S02286.1tm +++| CES2 JMP MGR IGNORE CHARACTER 02629 M00S02287.1tm +++| CLN SPACE 4,20 02630 M00S02288.1tm +++|** CLN - PROCESS *COLON* INPUT (64 CHARACTER SET). 02631 M00S02289.1tm +++|* 02632 M00S02290.1tm +++|* ENTERS *COLON* CHARACTER AS *00* IF IN NORMAL INPUT 02633 M00S02291.1tm +++|* MODE OR AS *7604* IF IN EXTENDED INPUT MODE. 02634 M00S02292.1tm +++|* 02635 M00S02293.1tm +++|* ENTRY (A) = (DP+3). 02636 M00S02294.1tm +++|* (T7) = CHARACTER. 02637 M00S02295.1tm +++|* 02638 M00S02296.1tm +++|* EXIT COLON *00* WRITTEN IF NORMAL MODE. 02639 M00S02297.1tm +++|* TO *ESC* TO ENTER *7604* IF EXTENDED MODE - 02640 M00S02298.1tm +++|* (T7) = 204B. 02641 M00S02299.1tm +++|* 02642 M00S02300.1tm +++|* CALLS WIC. 02643 M00S02301.1tm +++|* 02644 M00S02302.1tm +++|* NOTE IF THE SYSTEM IS IN 63 CHARACTER SET MODE, 02645 M00S02303.1tm +++|* A COLON WILL BE BE AUTOMATICALLY ENTERED AS 02646 M00S02304.1tm +++|* *63* AND THIS ROUTINE WILL NOT BE CALLED. 02647 M00S02305.1tm +++| 02648 M00S02306.1tm +++| 02649 M00S02307.1tm +++| CLN BSS 0 ENTRY 02650 M00S02308.1tm +++| LPN 6 CHECK TERMINAL MODE 02651 M00S02309.1tm +++| NJN CLN1 IF *ASCII* OR *TRANSPARENT* 02652 M00S02310.1tm +++| LDC 200 SET UP *00* CHARACTER 02653 M00S02311.1tm +++| STD T7 02654 M00S02312.1tm +++| RJM WIC WRITE INPUT CHARACTER 02655 M00S02313.1tm +++| JMP MGR EXIT 02656 M00S02314.1tm +++| 02657 M00S02315.1tm +++| CLN1 LDC 204 SET UP *7604* CHARACTER 02658 M00S02316.1tm +++| STD T7 02659 M00S02317.1tm +++| JMP ESC ENTER ESCAPE CHARACTER
| Line S00226 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02660 M01S00226.242l642 +++|CLW SPACE 4,15 02661 M01S00227.242l642 +++|** CLW - CHECK LOWER CASE *W*. 02662 M01S00228.242l642 +++|* 02663 M01S00229.242l642 +++|* THE SEQUENCE NORMALLY ISSUED BY THE *F7* KEY ON 02664 M01S00230.242l642 +++|* A CDC 721 TERMINAL IS *RS*, LOWER CASE W. THIS 02665 M01S00231.242l642 +++|* ROUTINE DETECTS THE SECOND CHARACTER IN THE SEQUENCE. 02666 M01S00232.242l642 +++|* 02667 M01S00233.242l642 +++|* ENTRY (F7) = 0, IF *RS* NOT PREVIOUSLY DETECTED. 02668 M01S00234.242l642 +++|* .NE. 0 IF *RS* HAS BEEN DETECTED. 02669 M01S00235.242l642 +++|* 02670 M01S00236.242l642 +++|* EXIT TO *EIC* IF *F7* SEQUENCE NOT DETECTED. 02671 M01S00237.242l642 +++|* TO *MGR* IF *F7* SEQUENCE HAS BEEN DETECTED. 02672 M01S00238.242l642 +++|* 02673 M01S00239.242l642 +++|* USES DO. 02674 M01S00240.242l642 +++|* 02675 M01S00241.242l642 +++|* CALLS RTD, RPI. 02676 M01S00242.242l642 +++| 02677 M01S00243.242l642 +++| 02678 M01S00244.242l642 +++| CLW BSS 0 ENTRY 02679 M01S00245.242l642 +++| LDD F7 02680 M01S00246.242l642 +++| NJN CLW1 IF *F7* 02681 M01S00247.242l642 +++| JMP EIC ENTER INPUT CHARACTER 02682 M01S00248.242l642 +++| 02683 M01S00249.242l642 +++| CLW1 LDN 0 02684 M01S00250.242l642 +++| STD DO 02685 M01S00251.242l642 +++| STD F7 02686 M01S00252.242l642 +++| RJM CRR CHECK RE-REQUESTED BIT 02687 M01S00253.242l642 +++| LPN 20 02688 M01S00254.242l642 +++| ZJN CLW2 IF NOT RE-REQUESTED 02689 M01S00255.242l642 +++| RJM RTD RELEASE AND DELAY 02690 M01S00256.242l642 +++| RJM /CTL/RPI INITIALIZE FOR REGAINING PORT ACCESS 02691 M01S00257.242l642 +++| CLW2 JMP MGR RETURN 02692 M01S00258.242l642 +++| CRS SPACE 4,15 02693 M01S00259.242l642 +++|** CRS - CHECK *RS*. 02694 M01S00260.242l642 +++|* 02695 M01S00261.242l642 +++|* THE SEQUENCE NORMALLY ISSUED BY THE *F7* KEY ON 02696 M01S00262.242l642 +++|* A CDC 721 TERMINAL IS *RS*, LOWER CASE W. THIS 02697 M01S00263.242l642 +++|* ROUTINE DETECTS THE FIRST CHARACTER IN THE SEQUENCE 02698 M01S00264.242l642 +++|* AND SETS A FLAG IF IT IS NOT ALREADY SET. 02699 M01S00265.242l642 +++|* 02700 M01S00266.242l642 +++|* ENTRY (F7) = 0, IF *RS* NOT PREVIOUSLY DETECTED. 02701 M01S00267.242l642 +++|* .NE. 0 IF *RS* HAS BEEN DETECTED. 02702 M01S00268.242l642 +++|* 02703 M01S00269.242l642 +++|* EXIT TO *EIC* IF *RS* HAS ALREADY BEEN DETECTED. 02704 M01S00270.242l642 +++|* TO *MGR* IF *RS* WAS NOT DETECTED BEFORE. 02705 M01S00271.242l642 +++| 02706 M01S00272.242l642 +++| 02707 M01S00273.242l642 +++| CRS BSS 0 ENTRY 02708 M01S00274.242l642 +++| LDD F7 02709 M01S00275.242l642 +++| ZJN CRS1 IF *RS* NOT DETECTED 02710 M01S00276.242l642 +++| JMP EIC ENTER INPUT CHARACTER 02711 M01S00277.242l642 +++| 02712 M01S00278.242l642 +++| CRS1 STD DO CLEAR INPUT CHARACTER IN ECHOPLEX MODE 02713 M01S00279.242l642 +++| AOD F7 SET START OF *F7* SEQUENCE 02714 M01S00280.242l642 +++| JMP MGR RETURN 02715 M00S02318.1tm +++| CRT SPACE 4,15 02716 M00S02319.1tm +++|** CRT - PROCESS CARRIAGE RETURN. 02717 M00S02320.1tm +++|* 02718 M00S02321.1tm +++|* ISSUE *LINE FEED* TO TERMINAL AND ENTER END-OF-LINE 02719 M00S02322.1tm +++|* PROCESSOR. 02720 M00S02323.1tm +++|* 02721 M00S02324.1tm +++|* ENTRY (CH+1) = INPUT LINE CHARACTER COUNT. 02722 M00S02325.1tm +++|* (DP+4) = *ARD*. 02723 M00S02326.1tm +++|* 02724 M00S02327.1tm +++|* EXIT ASCII *LF* ISSUED TO TERMINAL IF NOT IN 02725 M00S02328.1tm +++|* *TAPE* MODE. 02726 M00S02329.1tm +++|* TO *EIL* TO TERMINATE INPUT LINE. 02727 M00S02330.1tm +++|* TO *MGR* IF CHARACTER TO BE IGNORED. 02728 M00S02331.1tm +++| 02729 M00S02332.1tm +++| 02730 M00S02333.1tm +++| CRT BSS 0 ENTRY 02731 M00S02334.1tm +++| LDD DP+3 CHECK TERMINAL TYPE 02732 M00S02335.1tm +++| SHN 21-7 02733 M00S02336.1tm +++| MJN CRT2 IF *BLKEDIT* 02734 M00S02337.1tm +++| LDD DC CHECK TERMINAL STATUS 02735 M00S02338.1tm +++| LPN 1 02736 M00S02339.1tm +++| ZJN CRT1 IF NOT IN *TAPE* MODE 02737 M00S02340.1tm +++| LDD CH+1 CHECK LINE CHARACTER COUNT 02738 M00S02341.1tm +++| NJN CRT2 IF NOT EMPTY INPUT LINE 02739 M00S02342.1tm +++| JMP MGR IGNORE CHARACTER 02740 M00S02343.1tm +++| 02741 M00S02344.1tm +++| CRT1 LDC .CLF ISSUE LINE FEED 02742 M00S02345.1tm +++| LMD PY TOGGLE ODD PARITY 02743 M00S02346.1tm +++| STD DO 02744 M00S02347.1tm +++| CRT2 JMP EIL ENTER END-OF-LINE PROCESSOR 02745 M00S02348.1tm +++| DEL SPACE 4,15 02746 M00S02349.1tm +++|** DEL - PROCESS *DEL* CHARACTER. 02747 M00S02350.1tm +++|* 02748 M00S02351.1tm +++|* PROCESS *DEL* AS ESCAPE CHARACTER IF *BLKEDIT* TERMINAL, 02749 M00S02352.1tm +++|* ELSE PROCESS AS NULL INPUT. 02750 M00S02353.1tm +++|* 02751 M00S02354.1tm +++|* ENTRY (A) = (DP+3). 02752 M00S02355.1tm +++|* 02753 M00S02356.1tm +++|* EXIT TO *CES* IF *BLKEDIT* TERMINAL. 02754 M00S02357.1tm +++|* TO *NLI* IF NOT *BLKEDIT* TERMINAL - 02755 M00S02358.1tm +++|* (A) = (DP+3). 02756 M00S02359.1tm +++| 02757 M00S02360.1tm +++| 02758 M00S02361.1tm +++| DEL BSS 0 ENTRY 02759 M00S02362.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02760 M00S02363.1tm +++| MJP CES IF *BLKEDIT* 02761 M00S02364.1tm +++| LDD DP+3 02762 M00S02365.1tm +++| JMP NLI PROCESS AS NULL INPUT 02763 M00S02366.1tm +++| DLN SPACE 4,20 02764 M00S02367.1tm +++|** DLN - PROCESS DELETE LINE. 02765 M00S02368.1tm +++|* 02766 M00S02369.1tm +++|* ENTRY (A) = (DP+3). 02767 M00S02370.1tm +++|* (CH+1) = INPUT LINE LENGTH. 02768 M00S02371.1tm +++|* (DP+4) = *ARD*. 02769 M00S02372.1tm +++|* 02770 M00S02373.1tm +++|* EXIT TO *CES* IF *BLKEDIT* TERMINAL. 02771 M00S02374.1tm +++|* TO *ESC* TO ENTER CHARACTER. 02772 M00S02375.1tm +++|* TO *MGR* TO IGNORE CHARACTER. 02773 M00S02376.1tm +++|* TO *TTM* TO ISSUE LINE DELETE MESSAGE. 02774 M00S02377.1tm +++| 02775 M00S02378.1tm +++| 02776 M00S02379.1tm +++| DLN BSS 0 ENTRY 02777 M00S02380.1tm +++| 02778 M00S02381.1tm +++|* PROCESS AS ESCAPE CHARACTER IF *BLKEDIT* TERMINAL. 02779 M00S02382.1tm +++| 02780 M00S02383.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02781 M00S02384.1tm +++| MJP CES IF *BLKEDIT* 02782 M00S02385.1tm +++| 02783 M00S02386.1tm +++|* ENTER CHARACTER IF IN *TRANSPARENT* MODE. 02784 M00S02387.1tm +++| 02785 M00S02388.1tm +++| LDD DP+3 CHECK FOR *TRANSPARENT* MODE 02786 M00S02389.1tm +++| LPN 4 02787 M00S02390.1tm +++| ZJN DLN1 IF NOT SET 02788 M00S02391.1tm +++| JMP ESC ENTER ESCAPE CHARACTER 02789 M00S02392.1tm +++| 02790 M00S02393.1tm +++|* IGNORE CHARACTER IF NULL INPUT LINE. 02791 M00S02394.1tm +++| 02792 M00S02395.1tm +++| DLN1 STD DO SUPPRESS DUPLEX ECHO-BACK
| Line S02396 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02793 M01S02396.242l642 ---| LDD CH+1 CHECK INPUT LINE LENGTH
| Line S00281 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02794 M02S00281.ns2394 ---| LDD DC CHECK FOR AUTO MODE 02795 M02S00282.ns2394 ---| SHN 21-1 02796 M02S00283.ns2394 ---| PJN DLN1.5 IF NOT AUTO MODE 02797 M02S00284.ns2394 ---| RJM SCA SET CANCEL AUTO LINE 02798 M02S00285.ns2394 ---| DLN1.5 LDD CH+1 CHECK INPUT LINE LENGTH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02799 M01S00002.ns2394 +++| LDD CH+1 CHECK INPUT LINE LENGTH 02800 M00S02397.1tm +++| NJN DLN2 IF NOT NULL LINE 02801 M00S02398.1tm +++| JMP MGR IGNORE CHARACTER 02802 M00S02399.1tm +++| 02803 M00S02400.1tm +++|* DELETE INPUT LINE. 02804 M00S02401.1tm +++| 02805 M00S02402.1tm +++| DLN2 LDN DELM *DEL* 02806 M00S02403.1tm +++| JMP TTM ISSUE TERMINAL MESSAGE 02807 M00S02404.1tm +++| DPC SPACE 4,15 02808 M00S02405.1tm +++|** DPC - DELETE PRECEEDING CHARACTER. 02809 M00S02406.1tm +++|* 02810 M00S02407.1tm +++|* DELETE CHARACTER PRECEDING CHARACTER IF NOT *BLKEDIT* 02811 M00S02408.1tm +++|* TERMINAL. ENTER CHARACTER IF *BLKEDIT*. 02812 M00S02409.1tm +++|* 02813 M00S02410.1tm +++|* ENTRY (A) = (DP+3). 02814 M00S02411.1tm +++|* 02815 M00S02412.1tm +++|* EXIT TO *CES* IF *BLKEDIT* TERMINAL. 02816 M00S02413.1tm +++|* TO *MGR* IF CHARACTER DELETED- 02817 M00S02414.1tm +++|* (DP+1) = CURRENT POT BACKED UP. 02818 M00S02415.1tm +++|* (DP+2) = CURRENT WORD AND CHARACTER BACKED UP. 02819 M00S02416.1tm +++|* (CH+1) = CHARACTER COUNT DECREMENTED. 02820 M00S02417.1tm +++|* (OMCC) = CHARACTER COUNT DECREMENTED. 02821 M00S02418.1tm +++|* 02822 M00S02419.1tm +++|* USES T0 - T5. 02823 M00S02420.1tm +++|* 02824 M00S02421.1tm +++|* CALLS BUP, RPC, SWA. 02825 M00S02422.1tm +++| 02826 M00S02423.1tm +++| 02827 M00S02424.1tm +++| DPC BSS 0 ENTRY 02828 M00S02425.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02829 M00S02426.1tm +++| MJP CES IF *BLKEDIT* 02830 M00S02427.1tm +++| LDM OMCC DECREMENT OPERATOR MESSAGE CHARACTER COUNT 02831 M00S02428.1tm +++| ZJN DPC1 IF ZERO 02832 M00S02429.1tm +++| SOM OMCC 02833 M00S02430.1tm +++| DPC1 LDD CH+1 CHECK LINE CHARACTER COUNT 02834 M00S02431.1tm +++| NJN DPC2 IF NONZERO 02835 M00S02432.1tm +++| JMP MGR EXIT 02836 M00S02433.1tm +++| 02837 M00S02434.1tm +++| DPC2 SOD CH+1 DECREMENT LINE CHARACTER COUNT 02838 M00S02435.1tm +++| RJM BUP BACK UP POINTERS 02839 M00S02436.1tm +++| LDD DP+2 CHECK CHARACTER NUMBER 02840 M00S02437.1tm +++| SHN 21 02841 M00S02438.1tm +++| PJN DPC3 IF UPPER CHARACTER 02842 M00S02439.1tm +++| LPN 7 SET BYTE 02843 M00S02440.1tm +++| STD T5 02844 M00S02441.1tm +++| RJM SWA SET WORD ADDRESS 02845 M00S02442.1tm +++| CRD T0 READ WORD 02846 M00S02443.1tm +++| LDI T5 EXTRACT UPPER CHARACTER 02847 M00S02444.1tm +++| SCN 77 02848 M00S02445.1tm +++| STD CH 02849 M00S02446.1tm +++| LDN 0 CLEAR BYTE 02850 M00S02447.1tm +++| STI T5 02851 M00S02448.1tm +++| RJM SWA SET WORD ADDRESS 02852 M00S02449.1tm +++| CWD T0 STORE WORD 02853 M00S02450.1tm +++| DPC3 LDD DP+3 CHECK *ASCII* MODE 02854 M00S02451.1tm +++| LPN 6 02855 M00S02452.1tm +++| ZJN DPC5 IF NOT SET 02856 M00S02453.1tm +++| LDD MA SAVE POINTER WORD 02857 M00S02454.1tm +++| CWD DP 02858 M00S02455.1tm +++| RJM RPC READ PREVIOUS CHARACTER 02859 M00S02456.1tm +++| SBN 74 02860 M00S02457.1tm +++| MJN DPC4 IF NOT ESCAPE 02861 M00S02458.1tm +++| ZJN DPC6 IF ESCAPE 2 02862 M00S02459.1tm +++| SBN 76-74 02863 M00S02460.1tm +++| ZJN DPC6 IF ESCAPE 1 02864 M00S02461.1tm +++| DPC4 LDD MA RESTORE POINTER WORD 02865 M00S02462.1tm +++| CRD DP 02866 M00S02463.1tm +++| DPC5 JMP MGR EXIT 02867 M00S02464.1tm +++| 02868 M00S02465.1tm +++| DPC6 LDD DP+2 CHECK CHARACTER NUMBER 02869 M00S02466.1tm +++| SHN 21-0 02870 M00S02467.1tm +++| PJN DPC5 IF UPPER CHARACTER 02871 M00S02468.1tm +++| LDI T5 EXTRACT UPPER CHARACTER 02872 M00S02469.1tm +++| SCN 77 02873 M00S02470.1tm +++| STD CH 02874 M00S02471.1tm +++| LDN 0 CLEAR BYTE 02875 M00S02472.1tm +++| STI T5 02876 M00S02473.1tm +++| RJM SWA SET WORD ADDRESS 02877 M00S02474.1tm +++| CWD T0 STORE WORD 02878 M00S02475.1tm +++| JMP MGR EXIT 02879 M00S02476.1tm +++| EOT SPACE 4,15 02880 M00S02477.1tm +++|** EOT - END OF TRANSMISSION (*BLKEDIT* TERMINAL). 02881 M00S02478.1tm +++|* 02882 M00S02479.1tm +++|* PROCESS *EOT* TERMINATOR OF INPUT LINE. IF THE 02883 M00S02480.1tm +++|* LINE IS NOT NULL, A CARRIAGE RETURN WILL BE TRANS- 02884 M00S02481.1tm +++|* MITTED TO THE TERMINAL. IF THE LINE IS EMPTY, THE 02885 M00S02482.1tm +++|* LINE WILL BE IGNORED. 02886 M00S02483.1tm +++|* 02887 M00S02484.1tm +++|* ENTRY (A) = DP+3. 02888 M00S02485.1tm +++|* 02889 M00S02486.1tm +++|* EXIT TO *CES* IF NOT *BLKEDIT* TERMINAL. 02890 M00S02487.1tm +++|* TO *EIL* IF *BLKEDIT* TERMINAL AND NOT NULL 02891 M00S02488.1tm +++|* INPUT LINE. 02892 M00S02489.1tm +++|* TO *MGR* IF *BLKEDIT* TERMINAL AND NULL INPUT 02893 M00S02490.1tm +++|* LINE. 02894 M00S02491.1tm +++|* 02895 M00S02492.1tm +++|* MACROS RETURN. 02896 M00S02493.1tm +++| 02897 M00S02494.1tm +++| 02898 M00S02495.1tm +++| EOT BSS 0 ENTRY 02899 M00S02496.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02900 M00S02497.1tm +++| PJP CES IF NOT *BLKEDIT* 02901 M00S02498.1tm +++| LDD CH+1 CHECK LINE LENGTH 02902 M00S02499.1tm +++| ZJP MGR IF NULL 02903 M00S02500.1tm +++| LDC .CCR ISSUE *CR* 02904 M00S02501.1tm +++| LMD PY TOGGLE ODD PARITY 02905 M00S02502.1tm +++| STD DO 02906 M00S02503.1tm +++| RETURN * REENTER 02907 M00S02504.1tm +++| LDC .CLF ISSUE *LF* 02908 M00S02505.1tm +++| LMD PY TOGGLE ODD PARITY 02909 M00S02506.1tm +++| STD DO 02910 M00S02507.1tm +++| RETURN EIL ENTER INPUT LINE 02911 M00S02508.1tm +++| ECI SPACE 4,20 02912 M00S02509.1tm +++|** ECI - ESCAPE CHARACTER INPUT. 02913 M00S02510.1tm +++|* 02914 M00S02511.1tm +++|* DIRECTS PROCESSING OF *74* AND *76* INPUT CHARACTERS. 02915 M00S02512.1tm +++|* IF IN EXTENDED OR TRANSPARENT MODE, THE *74* CODE IS 02916 M00S02513.1tm +++|* STORED AS *7401* AND THE *76* CODE IS STORED AS 02917 M00S02514.1tm +++|* *7402*. 02918 M00S02515.1tm +++|* 02919 M00S02516.1tm +++|* ENTRY (A) = (DP+3). 02920 M00S02517.1tm +++|* (T7) = CHARACTER. 02921 M00S02518.1tm +++|* 02922 M00S02519.1tm +++|* EXIT TO *EIC* TO ENTER SINGLE CHARACTER CODE IF 02923 M00S02520.1tm +++|* NOT IN EXTENDED MODE. 02924 M00S02521.1tm +++|* TO *ESC* TO ENTER ESCAPE CODE (7401 OR 7401) 02925 M00S02522.1tm +++|* IF IN EXTENDED MODE. 02926 M00S02523.1tm +++| 02927 M00S02524.1tm +++| 02928 M00S02525.1tm +++| ECI BSS 0 ENTRY 02929 M00S02526.1tm +++| LPN 6 CHECK TERMINAL MODE 02930 M00S02527.1tm +++| ZJN ECI1 IF NEITHER *ASCII* NOR TRANSPARENT 02931 M00S02528.1tm +++| JMP ESC ENTER ESCAPE CODE CHARACTERS 02932 M00S02529.1tm +++| 02933 M00S02530.1tm +++| ECI1 LDD T7 CONVERT TO SINGLE DISPLAY CODE 02934 M00S02531.1tm +++| LPN 3 02935 M00S02532.1tm +++| SHN 1 02936 M00S02533.1tm +++| ADN 72 02937 M00S02534.1tm +++| STD T7 02938 M00S02535.1tm +++| JMP EIC ENTER INPUT CHARACTER 02939 M00S02536.1tm +++| ETX SPACE 4,15 02940 M00S02537.1tm +++|** ETX - END OF TEXT. 02941 M00S02538.1tm +++|* 02942 M00S02539.1tm +++|* EXIT TO *CES* IF INPUT LINE NOT EMPTY. 02943 M00S02540.1tm +++|* TO *CES* IF NOT IN TEXT MODE. 02944 M00S02541.1tm +++|* TO *RWC* AFTER EXITTING FROM *TEXT* MODE. 02945 M00S02542.1tm +++|* 02946 M00S02543.1tm +++|* CALLS ERQ, WDC. 02947 M00S02544.1tm +++| 02948 M00S02545.1tm +++| 02949 M00S02546.1tm +++| ETX BSS 0 ENTRY 02950 M00S02547.1tm +++| LDD CH+1 CHECK INPUT LINE CHARACTER COUNT 02951 M00S02548.1tm +++| NJN ETX1 IF LINE NOT EMPTY 02952 M00S02549.1tm +++| LDD DC CHECK TERMINAL STATUS 02953 M00S02550.1tm +++| LPN 4 02954 M00S02551.1tm +++| NJN ETX2 IF *TEXT* MODE 02955 M00S02552.1tm +++| ETX1 LDD DP+3 02956 M00S02553.1tm +++| LJM CES CHECK ESCAPE STATUS 02957 M00S02554.1tm +++| 02958 M00S02555.1tm +++| ETX2 LDD DC CLEAR *INPUT REQUESTED*, *TEXT* MODE 02959 M00S02556.1tm +++| LPC 7373 02960 M00S02557.1tm +++| STD DC 02961 M00S02558.1tm +++| RJM WDC REWRITE *VDCT* 02962 M00S02559.1tm +++| LDD DP+1 GET POT TO BE DUMPED 02963 M00S02560.1tm +++| STD RQ+3 02964 M00S02561.1tm +++| LDD DP+2 EXTRACT WORD COUNT OF POT 02965 M00S02562.1tm +++| SHN -4 02966 M00S02563.1tm +++| LPN 7 02967 M00S02564.1tm +++| STD RQ+2 02968 M00S02565.1tm +++| LDN /TLX/ETX EXIT TEXT MODE REQUEST 02969 M00S02566.1tm +++| RJM ERQ 02970 M00S02567.1tm +++| STD DP CLEAR FIRST POT POINTER 02971 M00S02568.1tm +++| STD DP+1 CLEAR CURRENT POT POINTER 02972 M00S02569.1tm +++| STD DP+2 CLEAR POSITION WITHIN CURRENT POT 02973 M00S02570.1tm +++| JMP RWC ENTER READ/WRITE CONTROL 02974 M00S02571.1tm +++| NLI SPACE 4,15 02975 M00S02572.1tm +++|** NLI - PROCESS NULL INPUT. 02976 M00S02573.1tm +++|* 02977 M00S02574.1tm +++|* ENTRY (A) = (DP+3). 02978 M00S02575.1tm +++|* (DP+4) = PROCESSING ADDRESS. 02979 M00S02576.1tm +++|* 02980 M00S02577.1tm +++|* EXIT TO *MGR* IF CHARACTER TO BE IGNORED. 02981 M00S02578.1tm +++|* TO *EIC* IF CHARACTER TO BE ENTERED. 02982 M00S02579.1tm +++|* TO *ESC* IF ESCAPE CHARACTER TO BE ENTERED. 02983 M00S02580.1tm +++| 02984 M00S02581.1tm +++| 02985 M00S02582.1tm +++| NLI BSS 0 ENTRY 02986 M00S02583.1tm +++| LPN 4 CHECK *TRANSPARENT* MODE 02987 M00S02584.1tm +++| ZJN NLI1 IF NOT SET 02988 M00S02585.1tm +++| LDD CH+2 02989 M00S02586.1tm +++| LPC 177 02990 M00S02587.1tm +++| ZJN NLI1 IF NO CHARACTER DEFINED 02991 M00S02588.1tm +++| STD T7 ENTER CHARACTER 02992 M00S02589.1tm +++| SHN 21-6 CHECK FOR ESCAPE 2 02993 M00S02590.1tm +++| MJN NLI2 IF ESCAPE 2 02994 M00S02591.1tm +++| LJM EIC ENTER INPUT CHARACTER 02995 M00S02592.1tm +++| 02996 M00S02593.1tm +++| NLI1 JMP MGR IGNORE CHARACTER 02997 M00S02594.1tm +++| 02998 M00S02595.1tm +++| NLI2 LJM ESC ENTER ESCAPE CHARACTER 02999 M00S02596.1tm +++| RDM TITLE READ MODE - SUBROUTINES. 03000 M00S02597.1tm +++| EMD SPACE 4,25 03001 M00S02598.1tm +++|** EMD - ENTER OPERATOR MESSAGE DATA. 03002 M00S02599.1tm +++|* 03003 M00S02600.1tm +++|* ENTERS DATA FOR POSSIBLE OPERATOR MESSAGE INTO 03004 M00S02601.1tm +++|* THE OPERATOR MESSAGE BUFFER. IN ORDER FOR THE 03005 M00S02602.1tm +++|* INPUT DATA TO BE CONSIDERED A CANDIDATE FOR AN 03006 M00S02603.1tm +++|* OPERATOR MESSAGE, THE FIRST CHARACTER OF INPUT 03007 M00S02604.1tm +++|* MUST BE AN ASCII *ESC* CHARACTER. RECEIPT OF AN 03008 M00S02605.1tm +++|* ADDITIONAL ASCII *ESC* CHARACTER AFTER THE START OF 03009 M00S02606.1tm +++|* THE MESSAGE WILL CAUSE THE MESSAGE TO BE NO LONGER 03010 M00S02607.1tm +++|* CONSIDERED A CANDIDATE FOR AN OPERATOR MESSAGE. 03011 M00S02608.1tm +++|* 03012 M00S02609.1tm +++|* ENTRY (T7) = LOWER 7 BITS OF INPUT DATA. 03013 M00S02610.1tm +++|* (CH+1) = LINE CHARACTER COUNT.
| Line S00286 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03014 M01S00286.242l642 +++|* (F7) = 0 IF START OF *F7* SEQUENCE NOT DETECTED. 03015 M00S02611.1tm +++|* (OMCC) = OPERATOR MESSAGE CHARACTER COUNT. 03016 M00S02612.1tm +++|* = NONZERO IF POSSIBLE OPERATOR MESSAGE. 03017 M00S02613.1tm +++|* 03018 M00S02614.1tm +++|* EXIT DATA ENTERED IN OPERATOR MESSAGE BUFFER. 03019 M00S02615.1tm +++|* (OMCC) = INCREMENTED IF POSSIBLE MESSAGE 03020 M00S02616.1tm +++|* CHARACTER. 03021 M00S02617.1tm +++|* = 0 IF *ESC* RECEIVED AFTER START OF 03022 M00S02618.1tm +++|* MESSAGE. 03023 M00S02619.1tm +++|* 03024 M00S02620.1tm +++|* USES T1, T2. 03025 M00S02621.1tm +++| 03026 M00S02622.1tm +++| 03027 M00S02623.1tm +++| EMD SUBR ENTRY/EXIT
| Line S00287 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03028 M01S00287.242l642 +++| LDD F7 CHECK FOR START OF *F7* SEQUENCE DETECTED 03029 M01S00288.242l642 +++| NJN EMDX IF DETECTED 03030 M00S02624.1tm +++| LDD CH+1 CHECK LINE CHARACTER COUNT 03031 M00S02625.1tm +++| ADM OMCC ADD MESSAGE CHARACTER COUNT 03032 M00S02626.1tm +++| NJN EMD2 IF EITHER IS NONZERO 03033 M00S02627.1tm +++| 03034 M00S02628.1tm +++|* CHECK FIRST INPUT CHARACTER FOR *ESC* CODE. 03035 M00S02629.1tm +++| 03036 M00S02630.1tm +++| LDD T7 GET INPUT CHARACTER 03037 M00S02631.1tm +++| LMK .AESC 03038 M00S02632.1tm +++| NJN EMDX IF NOT *ESC* 03039 M00S02633.1tm +++| LDC 2L SET BLANK IN BUFFER 03040 M00S02634.1tm +++| STM OMBUF 03041 M00S02635.1tm +++| EMD1 AOM OMCC INCREMENT MESSAGE CHARACTER COUNT 03042 M00S02636.1tm +++| UJN EMDX RETURN 03043 M00S02637.1tm +++| 03044 M00S02638.1tm +++|* CHECK FOR *ESC* AFTER START OF INPUT. 03045 M00S02639.1tm +++| 03046 M00S02640.1tm +++| EMD2 SBD CH+1 CHECK VALUE OF *OMCC* 03047 M00S02641.1tm +++| ZJN EMDX IF ZERO 03048 M00S02642.1tm +++| LDD T7 GET INPUT CHARACTER 03049 M00S02643.1tm +++| SBK .AESC 03050 M00S02644.1tm +++| NJN EMD3 IF NOT *ESC* 03051 M00S02645.1tm +++| STM OMCC CLEAR MESSAGE CHARACTER COUNT 03052 M00S02646.1tm +++| UJN EMDX RETURN 03053 M00S02647.1tm +++| 03054 M00S02648.1tm +++|* TRANSLATE INPUT CHARACTER TO MESSAGE BUFFER. 03055 M00S02649.1tm +++| 03056 M00S02650.1tm +++| EMD3 ADK .AESC-.ASP CHECK CHARACTER VALUE 03057 M00S02651.1tm +++| MJN EMDX IF NOT TRANSLATABLE 03058 M00S02652.1tm +++| LDM OMCC CHECK BUFFER LENGTH 03059 M00S02653.1tm +++| SBK 68D 03060 M00S02654.1tm +++| PJP EMDX IF OVERFLOW, IGNORE CHARACTER 03061 M00S02655.1tm +++| LDM TINT,T7 GET TRANSLATION 03062 M00S02656.1tm +++| LPN 77 MASK UPPER CASE BITS 03063 M00S02657.1tm +++| STD T1 SAVE TRANSLATION 03064 M00S02658.1tm +++| 03065 M00S02659.1tm +++|* ENTER CHARACTER IN MESSAGE BUFFER. 03066 M00S02660.1tm +++| 03067 M00S02661.1tm +++| LDM OMCC GET BUFFER CHARACTER COUNT 03068 M00S02662.1tm +++| SHN 22-1 SET CURRENT BYTE 03069 M00S02663.1tm +++| STD T2 03070 M00S02664.1tm +++| SHN 1 SHIFT CHARACTER POSITION 03071 M00S02665.1tm +++| LPN 1 03072 M00S02666.1tm +++| NJN EMD4 IF LOWER CHARACTER 03073 M00S02667.1tm +++| LDD T1 STORE AS UPPER CHARACTER 03074 M00S02668.1tm +++| SHN 6 03075 M00S02669.1tm +++| STM OMBUF,T2 03076 M00S02670.1tm +++| JMP EMD1 INCREMENT CHARACTER COUNT 03077 M00S02671.1tm +++| 03078 M00S02672.1tm +++| EMD4 LDD T1 STORE AS LOWER CHARACTER 03079 M00S02673.1tm +++| RAM OMBUF,T2 03080 M00S02674.1tm +++| JMP EMD1 INCREMENT CHARACTER COUNT 03081 M00S02675.1tm +++| EOM SPACE 4,40 03082 M00S02676.1tm +++|** EOM - ENTER OPERATOR MESSAGE. 03083 M00S02677.1tm +++|* 03084 M00S02678.1tm +++|* CHECKS THE CONTENTS OF THE OPERATOR MESSAGE BUFFER 03085 M00S02679.1tm +++|* FOR A VALID OPERATOR MESSAGE. IF THE BUFFER CONTENTS 03086 M00S02680.1tm +++|* CONSTITUTE AN OPERATOR MESSAGE, THE MESSAGE WILL BE 03087 M00S02681.1tm +++|* TRANSMITTED TO THE DSD *A,OPERATOR* DISPLAY BUFFER 03088 M00S02682.1tm +++|* AND THE INPUT LINE FROM WHICH THE MESSAGE WAS EX- 03089 M00S02683.1tm +++|* TRACTED WILL BE DISCARDED. 03090 M00S02684.1tm +++|* 03091 M00S02685.1tm +++|* ENTRY (OMCC) = MESSAGE CHARACTER COUNT. 03092 M00S02686.1tm +++|* = ZERO IF NO POSSIBLE MESSAGE IN 03093 M00S02687.1tm +++|* BUFFER. 03094 M00S02688.1tm +++|* (OMBUF) = TRANSLATED MESSAGE. 03095 M00S02689.1tm +++|* 03096 M00S02690.1tm +++|* EXIT TO CALLER IF NO MESSAGE ISSUED - 03097 M00S02691.1tm +++|* (OMCC) = 0. 03098 M00S02692.1tm +++|* TO *TTM* IF MESSAGE HAS BEEN ISSUED. 03099 M00S02693.1tm +++|* (A) = ADDRESS OF *READY* MESSAGE. 03100 M00S02694.1tm +++|* (CH+1) = 0. 03101 M00S02695.1tm +++|* 03102 M00S02696.1tm +++|* ERROR TO *TTM* TO ISSUE *CONSOLE BUSY* MESSAGE IF 03103 M00S02697.1tm +++|* OPERATOR DISPLAY BUFFER BUSY. 03104 M00S02698.1tm +++|* 03105 M00S02699.1tm +++|* USES T1, T2, CM - CM+4. 03106 M00S02700.1tm +++|* 03107 M00S02701.1tm +++|* CALLS STA, ZOM. 03108 M00S02702.1tm +++|* 03109 M00S02703.1tm +++|* MACROS MONITOR. 03110 M00S02704.1tm +++| 03111 M00S02705.1tm +++| 03112 M00S02706.1tm +++| EOM SUBR ENTRY/EXIT 03113 M00S02707.1tm +++| LDM OMCC CHECK MESSAGE LENGTH 03114 M00S02708.1tm +++| ZJN EOMX IF ZERO 03115 M00S02709.1tm +++| SBN 4 03116 M00S02710.1tm +++| MJN EOM1 IF TOO SHORT 03117 M00S02711.1tm +++| 03118 M00S02712.1tm +++|* VALIDATE MESSAGE FORMAT. 03119 M00S02713.1tm +++| 03120 M00S02714.1tm +++| LDM OMBUF CHECK FIRST 2 CHARACTERS 03121 M00S02715.1tm +++| LMC 2R M 03122 M00S02716.1tm +++| NJN EOM1 IF NOT * M* 03123 M00S02717.1tm +++| LDM OMBUF+1 CHECK SECOND 2 CHARACTERS 03124 M00S02718.1tm +++| LMC 2RS= 03125 M00S02719.1tm +++| ZJN EOM2 IF *S=* 03126 M00S02720.1tm +++| EOM1 LDN 0 CLEAR MESSAGE LENGTH 03127 M00S02721.1tm +++| STM OMCC 03128 M00S02722.1tm +++| JMP EOMX RETURN TO CALLER 03129 M00S02723.1tm +++| 03130 M00S02724.1tm +++|* INTERLOCK OPERATOR DISPLAY BUFFER. 03131 M00S02725.1tm +++| 03132 M00S02726.1tm +++| EOM2 LDK LDSP READ *L* DISPLAY POINTER 03133 M00S02727.1tm +++| CRD CM 03134 M00S02728.1tm +++| LDD CM+2 GET *L* DISPLAY BUFFER ADDRESS 03135 M00S02729.1tm +++| SHN 14 03136 M00S02730.1tm +++| LMD CM+3 03137 M00S02731.1tm +++| SBK LODS SET FWA OF OPERATOR DISPLAY BUFFER 03138 M00S02732.1tm +++| STD CM+4 03139 M00S02733.1tm +++| STM EOMA+1 03140 M00S02734.1tm +++| SHN -14 03141 M00S02735.1tm +++| STD CM+3 03142 M00S02736.1tm +++| ADC LDCI 03143 M00S02737.1tm +++| STM EOMA 03144 M00S02738.1tm +++| LDN 0 FORMAT INTERLOCK REQUEST 03145 M00S02739.1tm +++| STD CM+1 03146 M00S02740.1tm +++| STD CM+2 03147 M00S02741.1tm +++| MONITOR UTEM ISSUE INTERLOCK REQUEST 03148 M00S02742.1tm +++| LDD CM+1 03149 M00S02743.1tm +++| ZJN EOM3 IF INTERLOCK GRANTED 03150 M00S02744.1tm +++| LDN MBSY * CONSOLE BUSY* 03151 M00S02745.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 03152 M00S02746.1tm +++| 03153 M00S02747.1tm +++|* FORMAT DISPLAY BUFFER HEADER WORD. 03154 M00S02748.1tm +++| 03155 M00S02749.1tm +++| EOM3 RJM ZOM ZERO-FILL MESSAGE 03156 M00S02750.1tm +++| RJM STA SET FWA OF TERMINAL TABLE 03157 M00S02751.1tm +++| ADK VFST READ *VFST* TO GET JSN 03158 M00S02752.1tm +++| CRD CM 03159 M00S02753.1tm +++| LDD TN SET TERMINAL NUMBER IN HEADER 03160 M00S02754.1tm +++| ADC 2R00 03161 M00S02755.1tm +++| STD CM+2 03162 M00S02756.1tm +++| LDN 0 03163 M00S02757.1tm +++| STD CM+3 03164 M00S02758.1tm +++| LDN 1 SET BUFFER BUSY BIT 03165 M00S02759.1tm +++| STD CM+4 03166 M00S02760.1tm +++| 03167 M00S02761.1tm +++|* COPY BUFFER HEADER AND MESSAGE TO DISPLAY BUFFER. 03168 M00S02762.1tm +++| 03169 M00S02763.1tm +++| LDN 7 SET MESSAGE DATA LENGTH 03170 M00S02764.1tm +++| STD T1 03171 M00S02765.1tm +++| EOMA LDC * WRITE BUFFER HEADER 03172 M00S02766.1tm +++| CWD CM 03173 M00S02767.1tm +++| ADN 1 WRITE BUFFER MESSAGE DATA 03174 M00S02768.1tm +++| CWM OMBUF+2,T1 03175 M00S02769.1tm +++| 03176 M00S02770.1tm +++|* SET OPERATOR MESSAGE FLAG IN DISPLAY BUFFER 03177 M00S02771.1tm +++| 03178 M00S02772.1tm +++| LDN 1 FORMAT *UTEM* REQUEST 03179 M00S02773.1tm +++| STD CM+1 03180 M00S02774.1tm +++| LDN 0 03181 M00S02775.1tm +++| STD CM+2 03182 M00S02776.1tm +++| STD CM+3 03183 M00S02777.1tm +++| LDK OPRL 03184 M00S02778.1tm +++| STD CM+4 03185 M00S02779.1tm +++| LDD MA WRITE MESSAGE PARAMETERS 03186 M00S02780.1tm +++| CWM EOMB,ON 03187 M00S02781.1tm +++| MONITOR UTEM ISSUE MONITOR REQUEST 03188 M00S02782.1tm +++| 03189 M00S02783.1tm +++|* EXIT TO *TTM* TO ISSUE *READY* MESSAGE. 03190 M00S02784.1tm +++|* 03191 M00S02785.1tm +++|* ENTRY (A) = ZERO (FROM *MONITOR* REQUEST). 03192 M00S02786.1tm +++| 03193 M00S02787.1tm +++| STD CH+1 CLEAR INPUT CHARACTER COUNT 03194 M00S02788.1tm +++| LDN RDYM SET MESSAGE ADDRESS 03195 M00S02789.1tm +++| JMP TTM ISSUE TERMINAL MESSAGE 03196 M00S02790.1tm +++| 03197 M00S02791.1tm +++| 03198 M00S02792.1tm +++| EOMB VFD 6/0,6/1,6/59D,42/1 *UTEM* PARAMETER WORD 03199 M00S02793.1tm +++| RIN SPACE 4,15 03200 M00S02794.1tm +++|** RIN - RELEASE INPUT POTS TO EXECUTIVE. 03201 M00S02795.1tm +++|*
| Line S02796 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03202 M01S02796.242l642 ---|* TRANSMITS FILLED INPUT POTS TO *RAF* EXECUTIVE
| Line S00289 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03203 M01S00289.242l642 +++|* TRANSMITS FILLED INPUT POTS TO *RDF* EXECUTIVE 03204 M00S02797.1tm +++|* VIA *RIN* REQUEST. 03205 M00S02798.1tm +++|* 03206 M00S02799.1tm +++|* ENTRY (DP) = FIRST POT OF INPUT LINE. 03207 M00S02800.1tm +++|* (DP+1) = CURRENT POT OF INPUT. 03208 M00S02801.1tm +++|* 03209 M00S02802.1tm +++|* EXIT FIRST THROUGH CURRENT POT RELEASED IF 03210 M00S02803.1tm +++|* FIRST IS NOT THE CURRENT POT. 03211 M00S02804.1tm +++|* (DP) = (DP+1). 03212 M00S02805.1tm +++|* 03213 M00S02806.1tm +++|* CALLS ERQ. 03214 M00S02807.1tm +++| 03215 M00S02808.1tm +++| 03216 M00S02809.1tm +++| RIN SUBR ENTRY/EXIT 03217 M00S02810.1tm +++| LDD DP SET FIRST POT 03218 M00S02811.1tm +++| STD RQ+3 03219 M00S02812.1tm +++| LMD DP+1 03220 M00S02813.1tm +++| ZJN RIN1 IF FIRST POT .EQ. CURRENT POT 03221 M00S02814.1tm +++| LDD DP+1 SET CURRENT POT 03222 M00S02815.1tm +++| STD DP 03223 M00S02816.1tm +++| STD RQ+2 03224 M00S02817.1tm +++| LDN /TLX/RIN RELEASE POT 03225 M00S02818.1tm +++| RJM ERQ 03226 M00S02819.1tm +++| RIN1 STD RQ+3 CLEAR REQUEST 03227 M00S02820.1tm +++| UJN RINX RETURN 03228 M00S02821.1tm +++| RPC SPACE 4,15 03229 M00S02822.1tm +++|** RPC - READ PREVIOUS CHARACTER. 03230 M00S02823.1tm +++|* 03231 M00S02824.1tm +++|* ENTRY NONE. 03232 M00S02825.1tm +++|* 03233 M00S02826.1tm +++|* EXIT (A) = PREVIOUS CHARACTER. 03234 M00S02827.1tm +++|* IF PREVIOUS CHARACTER IS LOWER- 03235 M00S02828.1tm +++|* (T0 - T0+4) = DATA WORD. 03236 M00S02829.1tm +++|* (T5) = BYTE NUMBER. 03237 M00S02830.1tm +++|* (T6) = WORD NUMBER. 03238 M00S02831.1tm +++|* 03239 M00S02832.1tm +++|* USES T0 - T5. 03240 M00S02833.1tm +++|* 03241 M00S02834.1tm +++|* CALLS BUP, SWA. 03242 M00S02835.1tm +++| 03243 M00S02836.1tm +++| 03244 M00S02837.1tm +++| RPC1 LDD CH SET CHARACTER 03245 M00S02838.1tm +++| SHN -6 03246 M00S02839.1tm +++| 03247 M00S02840.1tm +++| RPC SUBR ENTRY/EXIT 03248 M00S02841.1tm +++| RJM BUP BACK UP POINTERS 03249 M00S02842.1tm +++| LDD DP+2 CHECK CHARACTER NUMBER 03250 M00S02843.1tm +++| SHN 21 03251 M00S02844.1tm +++| PJN RPC1 IF UPPER CHARACTER 03252 M00S02845.1tm +++| LPN 7 SET BYTE 03253 M00S02846.1tm +++| STD T5 03254 M00S02847.1tm +++| RJM SWA SET WORD ADDRESS 03255 M00S02848.1tm +++| CRD T0 03256 M00S02849.1tm +++| LDI T5 SET CHARACTER 03257 M00S02850.1tm +++| LPN 77 03258 M00S02851.1tm +++| UJN RPCX RETURN
| Line S00290 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03259 M02S00290.ns2394 ---| SCA SPACE 4,10 03260 M02S00291.ns2394 ---|** SCA - SET CANCEL AUTO LINE. 03261 M02S00292.ns2394 ---|* 03262 M02S00293.ns2394 ---|* EXIT *VDCT* REWRITTEN. 03263 M02S00294.ns2394 ---|* 03264 M02S00295.ns2394 ---|* USES CM - CM+4. 03265 M02S00296.ns2394 ---|* 03266 M02S00297.ns2394 ---|* CALLS STA. 03267 M02S00298.ns2394 ---| 03268 M02S00299.ns2394 ---| 03269 M02S00300.ns2394 ---| SCA SUBR ENTRY/EXIT 03270 M02S00301.ns2394 ---| RJM STA SET FWA OF TERMINAL TABLE 03271 M02S00302.ns2394 ---| ADK VDCT READ *VDCT* 03272 M02S00303.ns2394 ---| CRD CM 03273 M02S00304.ns2394 ---| LDN 40 SET CANCEL AUTO LINE 03274 M02S00305.ns2394 ---| RAD CM 03275 M02S00306.ns2394 ---| RJM STA REWRITE *VDCT* 03276 M02S00307.ns2394 ---| ADK VDCT 03277 M02S00308.ns2394 ---| CWD CM 03278 M02S00309.ns2394 ---| UJN SCAX RETURN 03279 M00S02852.1tm +++| WIC SPACE 4,25 03280 M00S02853.1tm +++|** WIC - WRITE INPUT CHARACTER. 03281 M00S02854.1tm +++|* 03282 M00S02855.1tm +++|* ENTRY (T7) = CHARACTER. 03283 M00S02856.1tm +++|* (CH) = UPPER CHARACTER IF LOWER CHARACTER IS 03284 M00S02857.1tm +++|* TO BE STORED. 03285 M00S02858.1tm +++|* IF (T7) = 0, AND UPPER CHARACTER IS TO BE PROCESSED, 03286 M00S02859.1tm +++|* END OF LINE IS ASSUMED. IN ORDER TO PREVENT 03287 M00S02860.1tm +++|* CONFUSION BETWEEN THE DISPLAY CODE COLON *00* AND 03288 M00S02861.1tm +++|* END OF LINE, A *00* COLON IS PASSED TO *WIC* AS A 03289 M00S02862.1tm +++|* *200* CODE. 03290 M00S02863.1tm +++|* 03291 M00S02864.1tm +++|* EXIT TO *NIP* IF NO INPUT POT. 03292 M00S02865.1tm +++|* 03293 M00S02866.1tm +++|* USES T0 - T5. 03294 M00S02867.1tm +++|* 03295 M00S02868.1tm +++|* CALLS ERQ, RLT, SWA. 03296 M00S02869.1tm +++|* 03297 M00S02870.1tm +++|* MACROS RETURN. 03298 M00S02871.1tm +++| 03299 M00S02872.1tm +++| 03300 M00S02873.1tm +++| WIC6 LPN 7 SET CURRENT BYTE 03301 M00S02874.1tm +++| STD T5 03302 M00S02875.1tm +++| NJN WIC7 IF NOT START OF NEW WORD 03303 M00S02876.1tm +++| LDN ZERL 03304 M00S02877.1tm +++| UJN WIC8 03305 M00S02878.1tm +++| 03306 M00S02879.1tm +++| WIC7 RJM SWA SET CURRENT WORD ADDRESS 03307 M00S02880.1tm +++| WIC8 CRD T0 03308 M00S02881.1tm +++| LDD T7 MERGE UPPER AND LOWER CHARACTERS 03309 M00S02882.1tm +++| LPN 77 MASK FOR COLON 03310 M00S02883.1tm +++| LMD CH 03311 M00S02884.1tm +++| STI T5 STORE BYTE 03312 M00S02885.1tm +++| RJM SWA WRITE WORD TO CM POT 03313 M00S02886.1tm +++| CWD T0 03314 M00S02887.1tm +++| LDI T5 03315 M00S02888.1tm +++| ADD T7 03316 M00S02889.1tm +++| ZJN WIC2 IF END OF LINE 03317 M00S02890.1tm +++| AOD DP+2 ADVANCE CHARACTER 03318 M00S02891.1tm +++| LPN 17 03319 M00S02892.1tm +++| LMN 12 03320 M00S02893.1tm +++| ZJN WIC2 IF END OF WORD 03321 M00S02894.1tm +++|* UJN WICX RETURN 03322 M00S02895.1tm +++| 03323 M00S02896.1tm +++|* WIC - ENTRY/EXIT. 03324 M00S02897.1tm +++| 03325 M00S02898.1tm +++| WIC SUBR ENTRY/EXIT 03326 M00S02899.1tm +++| WIC1 LDD DP+2 CHECK CHARACTER NUMBER 03327 M00S02900.1tm +++| SHN 21 03328 M00S02901.1tm +++| MJN WIC6 IF LOWER 03329 M00S02902.1tm +++| 03330 M00S02903.1tm +++|* PROCESS UPPER CHARACTER. 03331 M00S02904.1tm +++| 03332 M00S02905.1tm +++| AOD DP+2 ADVANCE CHARACTER POINTER 03333 M00S02906.1tm +++| LDD T7 CHECK CHARACTER 03334 M00S02907.1tm +++| SHN 6 STORE UPPER CHARACTER 03335 M00S02908.1tm +++| STD CH 03336 M00S02909.1tm +++| NJN WICX IF NOT END OF LINE 03337 M00S02910.1tm +++| UJN WIC1 FORCE END OF LINE 03338 M00S02911.1tm +++| 03339 M00S02912.1tm +++|* PROCESS END OF WORD. 03340 M00S02913.1tm +++| 03341 M00S02914.1tm +++| WIC2 LDD DP+2 CHECK WORD NUMBER 03342 M00S02915.1tm +++| SHN -4 03343 M00S02916.1tm +++| LPN 7 03344 M00S02917.1tm +++| LMN 7 03345 M00S02918.1tm +++| ZJN WIC4 IF END OF POT 03346 M00S02919.1tm +++| LDD DP+2 ADVANCE WORD NUMBER, RESET CHARACTER 03347 M00S02920.1tm +++| SCN 17 03348 M00S02921.1tm +++| ADN 20 03349 M00S02922.1tm +++| STD DP+2 03350 M00S02923.1tm +++| SHN -4 CHECK WORD NUMBER 03351 M00S02924.1tm +++| LPN 17 03352 M00S02925.1tm +++| SBN 5 03353 M00S02926.1tm +++| MJN WICX RETURN IF WORD 5 NOT REACHED 03354 M00S02927.1tm +++| SBN 3 03355 M00S02928.1tm +++| PJN WICX RETURN IF POT REQUESTED 03356 M00S02929.1tm +++| LDC 200 SET *POT REQUESTED* 03357 M00S02930.1tm +++| RAD DP+2 03358 M00S02931.1tm +++| RJM RLT READ NEXT POT LINK 03359 M00S02932.1tm +++| NJN WIC3 IF POT LINKED 03360 M00S02933.1tm +++| LDD DP+1 SET CURRENT POT 03361 M00S02934.1tm +++| STD RQ+3 03362 M00S02935.1tm +++| LDN /TLX/LPT REQUEST POT 03363 M00S02936.1tm +++| RJM ERQ 03364 M00S02937.1tm +++| WIC3 JMP WICX RETURN 03365 M00S02938.1tm +++| 03366 M00S02939.1tm +++|* PROCESS END OF POT. 03367 M00S02940.1tm +++| 03368 M00S02941.1tm +++| WIC4 LDD DP+2 RESET WORD AND CHARACTER 03369 M00S02942.1tm +++| LPC 7400 03370 M00S02943.1tm +++| STD DP+2 03371 M00S02944.1tm +++| RJM RLT GET NEXT POT LINK 03372 M00S02945.1tm +++| ZJN WIC5 IF POT NOT LINKED 03373 M00S02946.1tm +++| STD DP+1 SET NEW CURRENT POT 03374 M00S02947.1tm +++| LDD DP+3 03375 M00S02948.1tm +++| LPN 10 03376 M00S02949.1tm +++| ZJN WIC3 IF NOT BINARY MODE, RETURN 03377 M00S02950.1tm +++| LDD DC CHECK TERMINAL STATUS 03378 M00S02951.1tm +++| SHN 21-6 03379 M00S02952.1tm +++| MJN WIC3 IF *READ DATA* SET 03380 M00S02953.1tm +++| RJM RIN RELEASE INPUT DATA 03381 M00S02954.1tm +++| JMP WICX RETURN 03382 M00S02955.1tm +++| 03383 M00S02956.1tm +++| WIC5 RETURN NIP PROCESS NO-INPUT-POT 03384 M00S02957.1tm +++| ZOM SPACE 4,15 03385 M00S02958.1tm +++|** ZOM - ZERO-FILL OPERATOR MESSAGE BUFFER. 03386 M00S02959.1tm +++|* 03387 M00S02960.1tm +++|* ZERO-FILLS THE OPERATOR MESSAGE BUFFER FROM THE LAST 03388 M00S02961.1tm +++|* CHARACTER ENTERED INTO THE BUFFER TO THE END OF THE 03389 M00S02962.1tm +++|* BUFFER. 03390 M00S02963.1tm +++|* 03391 M00S02964.1tm +++|* ENTRY (OMCC) = NUMBER OF CHARACTERS IN BUFFER. 03392 M00S02965.1tm +++|* 03393 M00S02966.1tm +++|* EXIT BUFFER ZERO-FILLED. 03394 M00S02967.1tm +++|* 03395 M00S02968.1tm +++|* USES T1. 03396 M00S02969.1tm +++| 03397 M00S02970.1tm +++| 03398 M00S02971.1tm +++| ZOM SUBR ENTRY/EXIT 03399 M00S02972.1tm +++| LDM OMCC GET BUFFER CHARACTER COUNT 03400 M00S02973.1tm +++| SHN 22-1 SET PPU BYTE COUNT 03401 M00S02974.1tm +++| STD T1 03402 M00S02975.1tm +++| SHN 1 ADD LAST CHARACTER INDEX 03403 M00S02976.1tm +++| LPN 1 03404 M00S02977.1tm +++| RAD T1 03405 M00S02978.1tm +++| ZOM1 SBK 37D CHECK FOR END OF BUFFER 03406 M00S02979.1tm +++| PJN ZOMX IF BUFFER COMPLETE 03407 M00S02980.1tm +++| LDN 0 CLEAR BUFFER BYTE 03408 M00S02981.1tm +++| STM OMBUF,T1 03409 M00S02982.1tm +++| AOD T1 INCREMENT BUFFER INDEX 03410 M00S02983.1tm +++| UJN ZOM1 LOOP TO END OF BUFFER 03411 M00S02984.1tm +++| SPACE 4,10 03412 M00S02985.1tm +++| QUAL 03413 M00S02986.1tm +++| 03414 M00S02987.1tm +++| RDM EQU /RDM/RDM 03415 M00S02988.1tm +++| WTM TITLE WRITE MODE. 03416 M00S02989.1tm +++| QUAL WTM 03417 M00S02990.1tm +++| WTM SPACE 4,20 03418 M00S02991.1tm +++|** WTM - WRITE MODE CONTROL. 03419 M00S02992.1tm +++|* 03420 M00S02993.1tm +++|* DETERMINES WHETHER A WRITE OPERATION SHOULD BE IN NOS 03421 M00S02994.1tm +++|* *BINARY* OR IN *ASCII* FORMAT AND BRANCHES TO THE FORMAT 03422 M00S02995.1tm +++|* WRITE PROCESSOR. 03423 M00S02996.1tm +++|* 03424 M00S02997.1tm +++|* ENTRY (DP+1) = FIRST POT OF OUTPUT.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1tm.001.txt · Last modified: (external edit)