cdc:nos2.source:opl.opl871:deck:1tm.001
Deck 1TM Part 001
22 Modifications
Listing Sections
- Deck 1TM Start
- Deck 1TM Part 1 (Line 1542)
- Deck 1TM Part 2 (Line 3370)
- Deck 1TM Part 3 (Line 4790)
- Deck 1TM Part 4 (Line 5799)
- Deck 1TM Part 5 (Line 7032)
- Deck 1TM Part 6 (Line 7481)
Source
Seq # *Modification Id* Act ----------------------------+ 01542 M01S01277.1tm +++| LDD DP SET FIRST, CURRENT POT 01543 M01S01278.1tm +++| STD RQ+2 01544 M01S01279.1tm +++| STD RQ+3 01545 M01S01280.1tm +++| LDN /TLX/RIN REQUEST SOURCE INPUT DUMP 01546 M01S01281.1tm +++| RJM ERQ 01547 M01S01282.1tm +++| STD DP CLEAR POINTERS 01548 M01S01283.1tm +++| STD DP+2 01549 M01S01284.1tm +++| CTO9 JMP MGR RETURN TO MANAGER 01550 M01S01285.1tm +++| INT SPACE 4,20 01551 M01S01286.1tm +++|** INT - PROCESS INTERRUPT. 01552 M01S01287.1tm +++|*
| Line S01288 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01553 M02S01288.242l642 ---|* *INT* REQUESTS *RAF* TO TERMINATE OUTPUT AND THE USER 01554 M01S00179.242l642 +++|* *INT* REQUESTS *RDF* TO TERMINATE OUTPUT AND THE USER 01555 M01S01289.1tm +++|* PROGRAM IN RESPONSE TO AN INTERRUPT FROM THE TERMINAL. 01556 M01S01290.1tm +++|* 01557 M01S01291.1tm +++|* ENTRY (A) = INTERRUPT CODE- 01558 M01S01292.1tm +++|* = *TIET* IF *I* KEY OR *BREAK*. 01559 M01S01293.1tm +++|* = *TAET* IF *S* KEY. 01560 M01S01294.1tm +++|* 01561 M01S01295.1tm +++|* EXIT TO *RWC* IF HANG-UP-PHONE REQUIRED. 01562 M01S01296.1tm +++|* TO *SUS* TO SUSPEND TERMINAL AFTER INTERRUPT - 01563 M01S01297.1tm +++|* (DP) = 0. 01564 M01S01298.1tm +++|* 01565 M01S01299.1tm +++|* USES T7, CM - CM+4. 01566 M01S01300.1tm +++|* 01567 M01S01301.1tm +++|* CALLS ERQ, STA. 01568 M01S01302.1tm +++| 01569 M01S01303.1tm +++| 01570 M01S01304.1tm +++| INT BSS 0 ENTRY 01571 M01S01305.1tm +++| STD T7 SAVE INTERRUPT CODE 01572 M01S01306.1tm +++| RJM STA SET FWA OF TERMINAL TABLE 01573 M01S01307.1tm +++| ADK VSTT READ *VSTT* 01574 M01S01308.1tm +++| CRD CM 01575 M01S01309.1tm +++| LDD CM CHECK LOGOUT AND DETACH STATUS 01576 M01S01310.1tm +++| LPC 0401 01577 M01S01311.1tm +++| NJN INT1 IF LOGOUT OR DETACH IN PROGRESS 01578 M01S01312.1tm +++| LDD DC CHECK FOR DRIVER REQUEST 01579 M01S01313.1tm +++| SHN 21-13 01580 M01S01314.1tm +++| PJN INT2 IF NO REQUEST 01581 M01S01315.1tm +++| LDD DC+4 CHECK REQUEST 01582 M01S01316.1tm +++| LMN /1TD/HUP 01583 M01S01317.1tm +++| NJN INT2 IF NOT HANG UP PHONE 01584 M01S01318.1tm +++| INT1 UJN RWC ENTER READ/WRITE CONTROL 01585 M01S01319.1tm +++| 01586 M01S01320.1tm +++| INT2 LDD DP SET POTS TO BE DROPPED 01587 M01S01321.1tm +++| STD RQ+3 01588 M01S01322.1tm +++| LDD T7 SET INTERRUPT CODE 01589 M01S01323.1tm +++| STD RQ+2 01590 M01S01324.1tm +++| LDN /TLX/PUB PROCESS USER BREAK 01591 M01S01325.1tm +++| RJM ERQ 01592 M01S01326.1tm +++| STD DP CLEAR POT POINTER 01593 M01S01327.1tm +++| LJM SUS SUSPEND TERMINAL 01594 M01S01328.1tm +++| LIN SPACE 4,15 01595 M01S01329.1tm +++|** LIN - PROCESS LOGIN. 01596 M01S01330.1tm +++|*
| Line S01331 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01597 M02S01331.242l642 ---|* EXIT TO *CLI* WHEN *RAF* RESPONDS TO LOGIN REQUEST - 01598 M01S00180.242l642 +++|* EXIT TO *CLI* WHEN *RDF* RESPONDS TO LOGIN REQUEST - 01599 M01S01332.1tm +++|* (DP) = POT ASSIGNMENT. 01600 M01S01333.1tm +++|* (DP+1) = (DP). 01601 M01S01334.1tm +++|* (VDCT) BYTE 4 = 0. 01602 M01S01335.1tm +++|* 01603 M01S01336.1tm +++|* CALLS WDC. 01604 M01S01337.1tm +++| 01605 M01S01338.1tm +++| 01606 M01S01339.1tm +++| LIN BSS 0 ENTRY 01607 M01S01340.1tm +++| LDD DC CHECK TERMINAL STATUS 01608 M01S01341.1tm +++| LMD HN
| Line S01342 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01609 M02S01342.242l642 ---| ZJN LIN1 IF *RAF* READY 01610 M01S00181.242l642 +++| ZJN LIN1 IF *RDF* READY 01611 M01S01343.1tm +++| JMP MGR EXIT 01612 M01S01344.1tm +++| 01613 M01S01345.1tm +++| LIN1 LDD DC+4 SET POT ASSIGNMENT 01614 M01S01346.1tm +++| STD DP 01615 M01S01347.1tm +++| STD DP+1 01616 M01S01348.1tm +++| LDN 0 CLEAR POT ASSIGNMENT 01617 M01S01349.1tm +++| STD DC+4 01618 M01S01350.1tm +++| RJM WDC REWRITE VDCT 01619 M01S01351.1tm +++| LJM /RDM/CLI PROCESS COMMAND LINE INPUT 01620 M01S01352.1tm +++| RWC SPACE 4,20 01621 M01S01353.1tm +++|** RWC - READ/WRITE CONTROL. 01622 M01S01354.1tm +++|* 01623 M01S01355.1tm +++|* ENTRY COMPLETION OF READ OR WRITE OPERATION. 01624 M01S01356.1tm +++|* 01625 M01S01357.1tm +++|* EXIT TO *RDM* IF INPUT RECEIVED FROM TERMINAL.
| Line S01358 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01626 M02S01358.242l642 ---|* TO *WTM* IF MESSAGE ASSIGNED BY *RAF* - 01627 M01S00182.242l642 +++|* TO *WTM* IF MESSAGE ASSIGNED BY *RDF* - 01628 M01S01359.1tm +++|* (DP) = OUTPUT POT ASSIGNMENT. 01629 M01S01360.1tm +++|* (DP+1) = (DP). 01630 M01S01361.1tm +++|* (DP+2) = FIRST WORD INDEX. 01631 M01S01362.1tm +++|* (VDCT) BYTE 4 = 0.
| Line S01363 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01632 M02S01363.242l642 ---|* TO *TFR* IF FUNCTION REQUEST RECEIVED FROM *RAF*. 01633 M01S00183.242l642 +++|* TO *TFR* IF FUNCTION REQUEST RECEIVED FROM *RDF*. 01634 M01S01364.1tm +++|* TO *CTO* IF TERMINAL IDLE. 01635 M01S01365.1tm +++|* 01636 M01S01366.1tm +++|* CALLS CEM, ERQ, WDC. 01637 M01S01367.1tm +++|* 01638 M01S01368.1tm +++|* MACROS RETURN. 01639 M01S01369.1tm +++| 01640 M01S01370.1tm +++| 01641 M01S01371.1tm +++| RWC BSS 0 ENTRY 01642 M01S01372.1tm +++| RJM CEM CLEAR EXTENDED MODE 01643 M01S01373.1tm +++| 01644 M01S01374.1tm +++|* ENTRY TO PREVENT TRANSMISSION MODE CHANGE. 01645 M01S01375.1tm +++|* CHECK FOR INPUT FROM TERMINAL. 01646 M01S01376.1tm +++| 01647 M01S01377.1tm +++| RWC1 RETURN * SET REENTRY 01648 M01S01378.1tm +++| LDD DI CHECK FOR INPUT DATA 01649 M01S01379.1tm +++| ZJN RWC2 IF NO DATA RECEIVED 01650 M01S01380.1tm +++| LJM RDM ENTER READ MODE 01651 M01S01381.1tm +++| 01652 M01S01382.1tm +++|* CHECK FOR MESSAGE ASSIGNMENT OR FUNCTION REQUEST. 01653 M01S01383.1tm +++| 01654 M01S01384.1tm +++| RWC2 LDD DC+4 CHECK OUTPUT ASSIGNMENT 01655 M01S01385.1tm +++| NJN RWC3 IF MESSAGE ASSIGNED 01656 M01S01386.1tm +++| LJM CTO CHECK TIME-OUT 01657 M01S01387.1tm +++| 01658 M01S01388.1tm +++| RWC3 LDD DC CHECK MESSAGE TYPE 01659 M01S01389.1tm +++| SHN 21-13 01660 M01S01390.1tm +++| PJN RWC4 IF NOT FUNCTION REQUEST
| Line S01391 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01661 M02S01391.242l642 ---| LJM TFR PROCESS *RAF* FUNCTION REQUEST 01662 M01S00184.242l642 +++| LJM TFR PROCESS *RDF* FUNCTION REQUEST 01663 M01S01392.1tm +++| 01664 M01S01393.1tm +++|* PREPARE NEW OUTPUT. 01665 M01S01394.1tm +++| 01666 M01S01395.1tm +++| RWC4 LDD DP CHECK FIRST POT 01667 M01S01396.1tm +++| ZJN RWC5 IF NOT ASSIGNED 01668 M01S01397.1tm +++| STD RQ+3 SET POT 01669 M01S01398.1tm +++| LDN /TLX/DRT REQUEST DROP POT CHAIN 01670 M01S01399.1tm +++| RJM ERQ 01671 M01S01400.1tm +++| RWC5 LDD DC+4 CURRENT POT = ASSIGNMENT 01672 M01S01401.1tm +++| STD DP 01673 M01S01402.1tm +++| STD DP+1 01674 M01S01403.1tm +++| LDD DC+1 CURRENT WORD = FIRST WORD OF ASSIGNMENT 01675 M01S01404.1tm +++| LPN 7 01676 M01S01405.1tm +++| SHN 4 01677 M01S01406.1tm +++| STD DP+2 01678 M01S01407.1tm +++| LDD DC+1 CLEAR STARTING WORD 01679 M01S01408.1tm +++| SCN 7 01680 M01S01409.1tm +++| STD DC+1 01681 M01S01410.1tm +++| LDN 0 CLEAR ASSIGNMENT 01682 M01S01411.1tm +++| STD DC+4 01683 M01S01412.1tm +++| RJM WDC REWRITE VDCT 01684 M01S01413.1tm +++| JMP WTM ENTER WRITE MODE 01685 M01S01414.1tm +++| SUS SPACE 4,15
| Line S01415 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01686 M02S01415.242l642 ---|** SUS - SUSPEND DRIVER FOR *RAF* INTERRUPT ACKNOWLEDGE. 01687 M01S00185.242l642 +++|** SUS - SUSPEND DRIVER FOR *RDF* INTERRUPT ACKNOWLEDGE. 01688 M01S01416.1tm +++|*
| Line S01417 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01689 M02S01417.242l642 ---|* WAITS UNTIL *RAF* SETS THE INTERRUPT ACKNOWLEDGE 01690 M01S00186.242l642 +++|* WAITS UNTIL *RDF* SETS THE INTERRUPT ACKNOWLEDGE 01691 M01S01418.1tm +++|* BIT IN THE TERMINAL TABLE. 01692 M01S01419.1tm +++|* 01693 M01S01420.1tm +++|* EXIT TO *RWC* AFTER ACKNOWLEDGE SET -
| Line S01421 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01694 M02S01421.v23l617 ---|* (VDCT) BYTE 0 = INTERRUPT ACKNOWLEDGE BIT
| Line S01422 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01695 M02S01422.v23l617 ---|* CLEARED. 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 M01S01423.1tm +++|*
| Line S01424 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01701 M02S01424.v23l617 ---|* CALLS ERQ, WDC.
| Line S01425 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01702 M02S01425.v23l617 ---|*
| Line S01426 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01703 M02S01426.v23l617 ---|* MACROS RETURN. 01704 M01S00022.v23l617 +++|* CALLS ERQ, STA, WDC. 01705 M01S01427.1tm +++| 01706 M01S01428.1tm +++| 01707 M01S01429.1tm +++| SUS BSS 0 ENTRY 01708 M01S01430.1tm +++| LDD DC GET TERMINAL STATUS 01709 M01S01431.1tm +++| SHN 21-12 CHECK INTERRUPT ACKNOWLEDGE BIT 01710 M01S01432.1tm +++| MJN SUS1 IF SET
| Line S01433 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01711 M02S01433.v23l617 ---| RETURN SUS LOOP 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 M01S01434.1tm +++| 01719 M01S01435.1tm +++| SUS1 SHN 1 CLEAR INTERRUPT ACKNOWLEDGE BIT 01720 M01S01436.1tm +++| SCN 1 01721 M01S01437.1tm +++| SHN 12-0 01722 M01S01438.1tm +++| STD DC 01723 M01S01439.1tm +++| RJM WDC REWRITE *VDCT* 01724 M01S00029.v23l617 +++| SBN VDCT-VCHT READ *VCHT* FOR CHARACTER COUNT RECOVERY 01725 M01S00030.v23l617 +++| CRD CH 01726 M01S01440.1tm +++| LDD DC+4 CHECK FOR DRIVER ASSIGNMENT 01727 M01S01441.1tm +++| NJN SUS2 IF PRESENT 01728 M01S01442.1tm +++| LDN /TLX/RES REQUEST NEW ASSIGNMENT 01729 M01S01443.1tm +++| RJM ERQ 01730 M01S01444.1tm +++| SUS2 JMP RWC ENTER READ/WRITE CONTROL
| Line S01445 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01731 M02S01445.242l642 ---| TITLE *RAF* FUNCTION REQUEST PROCESSORS. 01732 M01S00187.242l642 +++| TITLE *RDF* FUNCTION REQUEST PROCESSORS. 01733 M01S01446.1tm +++| TFR SPACE 4,15
| Line S01447 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01734 M02S01447.242l642 ---|** TFR - PROCESS *RAF* FUNCTION REQUEST. 01735 M01S00188.242l642 +++|** TFR - PROCESS *RDF* FUNCTION REQUEST. 01736 M01S01448.1tm +++|* 01737 M01S01449.1tm +++|* EXIT TO FUNCTION REQUEST PROCESSOR - 01738 M01S01450.1tm +++|* (A) = (DP+3)- 01739 M01S01451.1tm +++|* (T3) = FUNCTION REQUEST. 01740 M01S01452.1tm +++|* (VDCT) = FUNCTION REQUEST CLEARED. 01741 M01S01453.1tm +++|* 01742 M01S01454.1tm +++|* USES T1, T2, T3. 01743 M01S01455.1tm +++|* 01744 M01S01456.1tm +++|* CALLS ERQ, WDC. 01745 M01S01457.1tm +++| 01746 M01S01458.1tm +++| 01747 M01S01459.1tm +++| TFR BSS 0 ENTRY 01748 M01S01460.1tm +++| LDD DC+4 SAVE REQUEST CODE 01749 M01S01461.1tm +++| STD T3 01750 M01S01462.1tm +++| LPN 77 01751 M01S01463.1tm +++| SBN TTFRL 01752 M01S01464.1tm +++| MJN TFR1 IF LEGAL FUNCTION 01753 M01S01465.1tm +++| LCN TTFRL SET ILLEGAL FUNCTION 01754 M01S01466.1tm +++| TFR1 ADN TTFRL 01755 M01S01467.1tm +++| STD T1 01756 M01S01468.1tm +++| LDN /TLX/RES REQUEST ADDITIONAL OUTPUT 01757 M01S01469.1tm +++| RJM ERQ 01758 M01S01470.1tm +++| STD DC+4 CLEAR FUNCTION REQUEST 01759 M01S01471.1tm +++| LDD DC CLEAR DRIVER REQUEST BIT 01760 M01S01472.1tm +++| LPC 3777 01761 M01S01473.1tm +++| STD DC 01762 M01S01474.1tm +++| RJM WDC WRITE VDCT 01763 M01S01475.1tm +++| LDM TTFR,T1 SET FUNCTION PROCESSOR ADDRESS 01764 M01S01476.1tm +++| STD T2 01765 M01S01477.1tm +++| NJN TFR2 IF A VALID ENTRY 01766 M01S01478.1tm +++| JMP MGR EXIT 01767 M01S01479.1tm +++| 01768 M01S01480.1tm +++| TFR2 LDD DP+3 SET (A) = TERMINAL MODE FLAGS 01769 M01S01481.1tm +++| LJM 0,T2 ENTER PROCESSOR 01770 M01S01482.1tm +++| TTFR SPACE 4,10
| Line S01483 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01771 M02S01483.242l642 ---|** TTFR - TABLE OF *RAF* FUNCTION REQUESTS. 01772 M01S00189.242l642 +++|** TTFR - TABLE OF *RDF* FUNCTION REQUESTS. 01773 M01S01484.1tm +++| 01774 M01S01485.1tm +++| 01775 M01S01486.1tm +++| TTFR INDEX 01776 M01S01487.1tm +++| 01777 M01S01488.1tm +++| INDEX /1TD/BGI,BGI BEGIN INPUT 01778 M01S01489.1tm +++| INDEX /1TD/CFD,CFD CLEAR FULL DUPLEX 01779 M01S01490.1tm +++| INDEX /1TD/HUP,HUP HANG UP THE PHONE 01780 M01S01491.1tm +++| INDEX /1TD/IIP,IIP ISSUE INPUT PROMPT 01781 M01S01492.1tm +++| INDEX /1TD/LGI,LGI PROCESS LOGIN 01782 M01S00001.ns2409b +++| INDEX /1TD/SCE,SCE SET/CLEAR EXTENDED MODE 01783 M01S01493.1tm +++| INDEX /1TD/SDU,SUS SUSPEND DRIVER FOR USER BREAK 01784 M01S01494.1tm +++| INDEX /1TD/SEP,SEP SET EVEN PARITY 01785 M01S01495.1tm +++| INDEX /1TD/SFD,SFD SET FULL DUPLEX 01786 M01S01496.1tm +++| INDEX /1TD/SNM,SNM SET NORMAL MODES 01787 M01S01497.1tm +++| INDEX /1TD/SOP,SOP SET ODD PARITY 01788 M01S01498.1tm +++| INDEX /1TD/STT,STT SET TERMINAL TYPE 01789 M01S01499.1tm +++| 01790 M01S01500.1tm +++| INDEX /1TD/REQL 01791 M01S01501.1tm +++| TTFRL EQU *-TTFR 01792 M01S01502.1tm +++| BGI SPACE 4,15 01793 M01S01503.1tm +++|** BGI - BEGIN INPUT. 01794 M01S01504.1tm +++|* 01795 M01S01505.1tm +++|* ISSUES *START TAPE READER* CONTROL CODE IF TERMINAL 01796 M01S01506.1tm +++|* IS IN *TAPE* MODE. CONTROL IS THEN TRANSFERRED 01797 M01S01507.1tm +++|* TO THE *READ* PROCESSOR. 01798 M01S01508.1tm +++|* 01799 M01S01509.1tm +++|* ENTRY (DC) = BIT 2**0 SET IF *TAPE* MODE. 01800 M01S01510.1tm +++|* 01801 M01S01511.1tm +++|* EXIT TO *RDM* - 01802 M01S01512.1tm +++|* *DC1* ISSUED IF TERMINAL IN *TAPE* MODE. 01803 M01S01513.1tm +++|* 01804 M01S01514.1tm +++|* MACROS RETURN. 01805 M01S01515.1tm +++| 01806 M01S01516.1tm +++| 01807 M01S01517.1tm +++| BGI BSS 0 ENTRY 01808 M01S01518.1tm +++| LDD DC CHECK FOR *TAPE* MODE 01809 M01S01519.1tm +++| LPN 1 01810 M01S01520.1tm +++| ZJN BGI1 IF NOT IN *TAPE* MODE 01811 M01S01521.1tm +++| LDC .CDC1 ISSUE *DC1* TO START TAPE READER 01812 M01S01522.1tm +++| LMD PY TOGGLE ODD PARITY 01813 M01S01523.1tm +++| STD DO 01814 M01S01524.1tm +++| BGI1 RETURN RDM ENTER *READ* MODE 01815 M01S01525.1tm +++| CFD SPACE 4,15 01816 M01S01526.1tm +++|** CFD - CLEAR *FULL DUPLEX* FLAG. 01817 M01S01527.1tm +++|* 01818 M01S01528.1tm +++|* ENTRY (A) = (DP+3). 01819 M01S01529.1tm +++|* 01820 M01S01530.1tm +++|* EXIT TO *MGR* - 01821 M01S01531.1tm +++|* (DP+3) = *FULL DUPLEX* CLEARED. 01822 M01S01532.1tm +++| 01823 M01S01533.1tm +++| 01824 M01S01534.1tm +++| CFD BSS 0 ENTRY 01825 M01S01535.1tm +++| LPC 7677 CLEAR *FULL DUPLEX* FLAG 01826 M01S01536.1tm +++| STD DP+3 01827 M01S01537.1tm +++| JMP MGR EXIT 01828 M01S01538.1tm +++| IIP SPACE 4,20 01829 M01S01539.1tm +++|** IIP - ISSUE INPUT PROMPT. 01830 M01S01540.1tm +++|* 01831 M01S01541.1tm +++|* ISSUE INPUT PROMPT CHARACTER IF TRANSPARENT, BINARY, 01832 M01S01542.1tm +++|* OR AUTO MODE IS NOT SET. 01833 M01S01543.1tm +++|* 01834 M01S01544.1tm +++|* ENTRY (A) = (DP+3). 01835 M01S01545.1tm +++|* 01836 M01S01546.1tm +++|* EXIT TO *WTM* TO ISSUE PROMPT MESSAGE - 01837 M01S01547.1tm +++|* PROMPT MESSAGE WRITTEN TO POT. 01838 M01S01548.1tm +++|* (DP+2) = 0. 01839 M01S01549.1tm +++|* (CH+2) = 0. 01840 M01S01550.1tm +++|* TO *RWC* IF *TRANSPARENT*, *AUTO*, OR 01841 M01S01551.1tm +++|* *BINARY* MODE. 01842 M01S01552.1tm +++|* /TLX/RES EXECUTIVE REQUEST ISSUED. 01843 M01S01553.1tm +++|* 01844 M01S01554.1tm +++|* USES T0 - T4. 01845 M01S01555.1tm +++|* 01846 M01S01556.1tm +++|* CALLS ERQ, STA, SWA. 01847 M01S01557.1tm +++| 01848 M01S01558.1tm +++| 01849 M01S01559.1tm +++| IIP BSS 0 ENTRY 01850 M01S01560.1tm +++| SHN 21-2 CHECK TERMINAL MODE 01851 M01S01561.1tm +++| MJN IIP1 IF *TRANSPARENT* MODE 01852 M01S01562.1tm +++| LPN 1 01853 M01S01563.1tm +++| NJN IIP2 IF *BINARY* MODE 01854 M01S01564.1tm +++| LDD DC 01855 M01S01565.1tm +++| LPN 2 01856 M01S01566.1tm +++| NJN IIP2 IF *AUTO* MODE 01857 M01S01567.1tm +++| RJM STA SET FWA OF TERMINAL TABLE 01858 M01S01568.1tm +++| ADK VSTT READ *VSTT* 01859 M01S01569.1tm +++| CRD T0 01860 M01S01570.1tm +++| LDD T0 CHECK FOR NO-PROMPT MODE 01861 M01S01571.1tm +++| LPN 40 01862 M01S01572.1tm +++| NJN IIP2 IF NO-PROMPT MODE 01863 M01S01573.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL 01864 M01S01574.1tm +++| STD DP+2 CLEAR WORD POINTER 01865 M01S01575.1tm +++| RJM SWA SET WORD ADDRESS IN OUTPUT POT 01866 M01S01576.1tm +++| CWM IIPA,ON WRITE PROMPT TO POT 01867 M01S01577.1tm +++| JMP WTM ENTER WRITE MODE 01868 M01S01578.1tm +++| 01869 M01S01579.1tm +++| IIP1 LDN 0 CLEAR INPUT POINTER 01870 M01S01580.1tm +++| STD DP+2 01871 M01S01581.1tm +++| IIP2 LDN /TLX/RES REQUEST NEXT MESSAGE 01872 M01S01582.1tm +++| RJM ERQ 01873 M01S01583.1tm +++| JMP RWC WAIT FOR *BGI* REQUEST 01874 M01S01584.1tm +++| 01875 M01S01585.1tm +++| 01876 M01S01586.1tm +++| IIPA DATA 4L? "EB" INPUT PROMPT 01877 M01S01587.1tm +++| CON 0,0,0 01878 M01S01588.1tm +++| LGI SPACE 4,15 01879 M01S01589.1tm +++|** LGI - PROCESS USER LOGIN. 01880 M01S01590.1tm +++|* 01881 M01S01591.1tm +++|* ENTRY (A) = (DP+3). 01882 M01S01592.1tm +++|* 01883 M01S01593.1tm +++|* EXIT TO *LIN* TO COMPLETE LOGIN - 01884 M01S01594.1tm +++|* (DP - DP+2) = 0. 01885 M01S01595.1tm +++|* (CH - CH+4) = 0. 01886 M01S01596.1tm +++|* 01887 M01S01597.1tm +++|* USES T7. 01888 M01S01598.1tm +++|* 01889 M01S01599.1tm +++|* CALLS ERQ. 01890 M01S01600.1tm +++|* 01891 M01S01601.1tm +++|* MACROS RETURN. 01892 M01S01602.1tm +++| 01893 M01S01603.1tm +++| 01894 M01S01604.1tm +++| LGI BSS 0 ENTRY 01895 M01S01605.1tm +++| LPC 200 RETAIN *BLKEDIT* TERMINAL TYPE 01896 M01S01606.1tm +++| STD T7 01897 M01S01607.1tm +++| LDD DP CHECK POT ASSIGNMENT 01898 M01S01608.1tm +++| ZJN LGI1 IF NONE 01899 M01S01609.1tm +++| STD RQ+3 DROP POTS 01900 M01S01610.1tm +++| LDN /TLX/DRT 01901 M01S01611.1tm +++| RJM ERQ 01902 M01S01612.1tm +++| LGI1 LDN ZERL CLEAR CONTROL WORDS 01903 M01S01613.1tm +++| CRD DP 01904 M01S01614.1tm +++| CRD CH 01905 M01S01615.1tm +++| LDD T7 RESET TERMINAL TYPE 01906 M01S01616.1tm +++| STD DP+3 01907 M01S01617.1tm +++| RETURN LIN ENTER LOGIN 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 M01S01618.1tm +++| SEP SPACE 4,15 01921 M01S01619.1tm +++|** SEP - SET *EVEN* PARITY. 01922 M01S01620.1tm +++|* 01923 M01S01621.1tm +++|* ENTRY (A) = (DP+3). 01924 M01S01622.1tm +++|* 01925 M01S01623.1tm +++|* EXIT TO *MGR* - 01926 M01S01624.1tm +++|* (DP+3) = PARITY RESET TO *EVEN*. 01927 M01S01625.1tm +++|* (PY) = PARITY RESET TO *EVEN*. 01928 M01S01626.1tm +++| 01929 M01S01627.1tm +++| 01930 M01S01628.1tm +++| SEP BSS 0 ENTRY 01931 M01S01629.1tm +++| SCN 1 CLEAR *ODD* PARITY FLAG 01932 M01S01630.1tm +++| STD DP+3 01933 M01S01631.1tm +++| LDN 0 CLEAR *ODD* PARITY BIT 01934 M01S01632.1tm +++| STD PY 01935 M01S01633.1tm +++| JMP MGR EXIT 01936 M01S01634.1tm +++| SFD SPACE 4,15 01937 M01S01635.1tm +++|** SFD - SET *FULL DUPLEX* FLAG. 01938 M01S01636.1tm +++|* 01939 M01S01637.1tm +++|* ENTRY (A) = (DP+3). 01940 M01S01638.1tm +++|* 01941 M01S01639.1tm +++|* EXIT TO *MGR* - 01942 M01S01640.1tm +++|* (DP+3) = *FULL DUPLEX* SET 01943 M01S01641.1tm +++| 01944 M01S01642.1tm +++| 01945 M01S01643.1tm +++| SFD BSS 0 ENTRY 01946 M01S01644.1tm +++| LPC 7677 SET FULL-DUPLEX FLAG 01947 M01S01645.1tm +++| LMD HN 01948 M01S01646.1tm +++| STD DP+3 01949 M01S01647.1tm +++| JMP MGR EXIT 01950 M01S01648.1tm +++| SNM SPACE 4,15 01951 M01S01649.1tm +++|** SNM - SET NORMAL MODES. 01952 M01S01650.1tm +++|* 01953 M01S01651.1tm +++|* CLEARS EXTENDED MODE AND ODD PARITY. 01954 M01S01652.1tm +++|* 01955 M01S01653.1tm +++|* ENTRY (A) = (DP+3). 01956 M01S01654.1tm +++|* 01957 M01S01655.1tm +++|* EXIT TO *SEP* - 01958 M01S01656.1tm +++|* (A) = (DP+3), *EXTENDED MODE* CLEARED. 01959 M01S01657.1tm +++| 01960 M01S01658.1tm +++| 01961 M01S01659.1tm +++| SNM BSS 0 ENTRY 01962 M01S01660.1tm +++| SCN 2 CLEAR *EXTENDED* MODE 01963 M01S01661.1tm +++| JMP SEP SET EVEN PARITY 01964 M01S01662.1tm +++| SOP SPACE 4,15 01965 M01S01663.1tm +++|** SOP - SET *ODD* PARITY. 01966 M01S01664.1tm +++|* 01967 M01S01665.1tm +++|* ENTRY (A) = (DP+3). 01968 M01S01666.1tm +++|* 01969 M01S01667.1tm +++|* EXIT TO *MGR* - 01970 M01S01668.1tm +++|* (DP+3) = PARITY SET TO *ODD*. 01971 M01S01669.1tm +++|* (PY) = PARITY SET TO *ODD*. 01972 M01S01670.1tm +++| 01973 M01S01671.1tm +++| 01974 M01S01672.1tm +++| SOP BSS 0 ENTRY 01975 M01S01673.1tm +++| SCN 1 SET *ODD* PARITY FLAG 01976 M01S01674.1tm +++| LMN 1 01977 M01S01675.1tm +++| STD DP+3 01978 M01S01676.1tm +++| LDC 1S7 SET *ODD* PARITY BIT 01979 M01S01677.1tm +++| STD PY 01980 M01S01678.1tm +++| JMP MGR EXIT 01981 M01S01679.1tm +++| STT SPACE 4,15 01982 M01S01680.1tm +++|** STT - SET TERMINAL TYPE. 01983 M01S01681.1tm +++|* 01984 M01S01682.1tm +++|* SET TERMINAL TYPE TO *BLKEDIT* OR TO *TTY*. 01985 M01S01683.1tm +++|* 01986 M01S01684.1tm +++|* ENTRY (A) = (DP+3). 01987 M01S01685.1tm +++|* (T3) = FUNCTION REQUEST - 01988 M01S01686.1tm +++|* = 6/TYPE, 6/. 01989 M01S01687.1tm +++|* TYPE = 0 IF *TTY* 01990 M01S01688.1tm +++|* = 1 IF *BLKEDIT*. 01991 M01S01689.1tm +++|* 01992 M01S01690.1tm +++|* EXIT TO *MGR* - 01993 M01S01691.1tm +++|* (DP+3) = NEW TERMINAL TYPE. 01994 M01S01692.1tm +++| 01995 M01S01693.1tm +++| 01996 M01S01694.1tm +++| STT BSS 0 ENTRY 01997 M01S01695.1tm +++| LPC -200 CLEAR CURRENT TERMINAL TYPE 01998 M01S01696.1tm +++| STD DP+3 01999 M01S01697.1tm +++| LDD T3 CHECK TYPE REQUESTED 02000 M01S01698.1tm +++| SHN -6 02001 M01S01699.1tm +++| ZJN STT1 IF *TTY* 02002 M01S01700.1tm +++| LDC 200 SET *BLKEDIT* 02003 M01S01701.1tm +++| RAD DP+3 02004 M01S01702.1tm +++| STT1 JMP MGR EXIT 02005 M01S01703.1tm +++| SPACE 4,10 02006 M01S01704.1tm +++| QUAL 02007 M01S01705.1tm +++| 02008 M01S01706.1tm +++| CTO EQU /CTL/CTO 02009 M01S01707.1tm +++| LINPE EQU /CTL/LINPE 02010 M01S01708.1tm +++| MGR EQU /CTL/MGR 02011 M01S01709.1tm +++| MGR$ EQU /CTL/MGR$ 02012 M01S01710.1tm +++| MGR= EQU /CTL/MGR= 02013 M01S01711.1tm +++| RWC EQU /CTL/RWC 02014 M01S01712.1tm +++| RDM TITLE READ MODE. 02015 M01S01713.1tm +++| QUAL RDM 02016 M01S01714.1tm +++| RDM SPACE 4,30 02017 M01S01715.1tm +++|** RDM - READ MODE ENTRY PROCESSOR. 02018 M01S01716.1tm +++|* 02019 M01S01717.1tm +++|* ENTRY (DP+1) = FIRST POT FOR INPUT LINE. 02020 M01S01718.1tm +++|* (DP+2) = 3/FIRST WORD OF LINE, 02021 M01S01719.1tm +++|* 1/INPUT INITIATED, 02022 M01S01720.1tm +++|* 1/POT REQUESTED, 02023 M01S01721.1tm +++|* 3/CURRENT WORD OF LINE, 02024 M01S01722.1tm +++|* 4/CURRENT CHARACTER OF LINE. 02025 M01S01723.1tm +++|* 02026 M01S01724.1tm +++|* FOR SPECIAL INPUT PROCESSING - 02027 M01S01725.1tm +++|* (DP+3) *TRANSPARENT INPUT* STATUS. 02028 M01S01726.1tm +++|* (DP+3) *BINARY INPUT* STATUS. 02029 M01S01727.1tm +++|* 02030 M01S01728.1tm +++|* (CH) = BINARY INPUT TERMINATION CHARACTER. 02031 M01S01729.1tm +++|* (CH+1) = BINARY INPUT TERMINATION COUNT. 02032 M01S01730.1tm +++|* 02033 M01S01731.1tm +++|* EXIT TO *ARD* IF *ASCII* FORMAT READ - 02034 M01S01732.1tm +++|* (A) = INPUT DATA. 02035 M01S01733.1tm +++|* (DI) = INPUT DATA. 02036 M01S01734.1tm +++|* (DP+4) = *ARD*. 02037 M01S01735.1tm +++|* TO *BRD* IF NOS *BINARY* FORMAT READ - 02038 M01S01736.1tm +++|* (A) = INPUT DATA. 02039 M01S01737.1tm +++|* (DI) = INPUT DATA. 02040 M01S01738.1tm +++|* (DP+4) = *BRD*. 02041 M01S01739.1tm +++|* TO *TTM* IF NO INPUT POT AVAILABLE FOR DATA. 02042 M01S01740.1tm +++| 02043 M01S01741.1tm +++| 02044 M01S01742.1tm +++| RDM BSS 0 ENTRY 02045 M01S01743.1tm +++| LDD DP CHECK FIRST POT ASSIGNED 02046 M01S01744.1tm +++| ZJN RDM4 IF NO INPUT POT 02047 M01S01745.1tm +++| LDD DP+3 CHECK BINARY TRANSMISSION 02048 M01S01746.1tm +++| SHN 21-3 02049 M01S01747.1tm +++| PJN RDM2 IF NOT SET 02050 M01S01748.1tm +++| LDD CH+1 CHECK BINARY COUNT 02051 M01S01749.1tm +++| NJN RDM1 IF SET 02052 M01S01750.1tm +++| LCN 10 02053 M01S01751.1tm +++| RAD DP+3 CLEAR BINARY MODE 02054 M01S01752.1tm +++| UJN RDM2 02055 M01S01753.1tm +++| 02056 M01S01754.1tm +++| RDM1 LDC BRD SET BINARY READ 02057 M01S01755.1tm +++| UJN RDM3 02058 M01S01756.1tm +++| 02059 M01S01757.1tm +++| RDM2 LDC ARD SELECT READ PROCESSOR 02060 M01S01758.1tm +++| RDM3 STD DP+4 SET PROCESSOR ADDRESS 02061 M01S01759.1tm +++| LDD DI SET (A) = INPUT DATA 02062 M01S01760.1tm +++| LJM 0,DP+4 ENTER PROCESSOR 02063 M01S01761.1tm +++| 02064 M01S01762.1tm +++|* PROCESS LACK OF INPUT POT. IF THE INPUT DATA HAS 02065 M01S01763.1tm +++|* NO NEED TO BE TRANSLATED AND STORED IT WILL BE IGNORED. 02066 M01S01764.1tm +++|* IF THE DATA IS VALID, A DIAGNOSTIC MESSAGE WILL BE 02067 M01S01765.1tm +++|* ISSUED TO THE TERMINAL OPERATOR. 02068 M01S01766.1tm +++| 02069 M01S01767.1tm +++| RDM4 LDD DI GET INPUT CHARACTER 02070 M01S01768.1tm +++| LPC 177 02071 M01S01769.1tm +++| STD T7 02072 M01S01770.1tm +++| LDM TINT,T7 TRANSLATE CHARACTER 02073 M01S01771.1tm +++| SHN -7 02074 M01S01772.1tm +++| ZJN RDM5 IF NOT SPECIAL CHARACTER 02075 M01S01773.1tm +++| LMN /TRN/NLI 02076 M01S01774.1tm +++| NJN RDM5 IF NOT NULL INPUT 02077 M01S01775.1tm +++| JMP MGR IGNORE CHARACTER 02078 M01S01776.1tm +++| 02079 M01S01777.1tm +++| RDM5 LDN RILM *RE-ENTER LAST LINE* 02080 M01S01778.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02081 M01S01779.1tm +++| ARD TITLE READ MODE - *ASCII* READ PROCESSOR. 02082 M01S01780.1tm +++| ARD SPACE 4,25 02083 M01S01781.1tm +++|** ARD - *ASCII* TERMINAL READ. 02084 M01S01782.1tm +++|* 02085 M01S01783.1tm +++|* PROCESSES INPUT DATA FROM *ASCII* MODE TERMINAL. 02086 M01S01784.1tm +++|* 02087 M01S01785.1tm +++|* ENTRY (A) = INPUT DATA. 02088 M01S01786.1tm +++|* (DI) = INPUT DATA. 02089 M01S01787.1tm +++|* (DP+4) = *ARD*. 02090 M01S01788.1tm +++|* 02091 M01S01789.1tm +++|* EXIT TO *EIC* IF INPUT RECEIVED - 02092 M01S01790.1tm +++|* (DI) = INPUT DATA. 02093 M01S01791.1tm +++|* (T7) = LOWER 7 BITS OF INPUT. 02094 M01S01792.1tm +++|* (DO) = 0 IF NOT FULL DUPLEX. 02095 M01S01793.1tm +++|* = INPUT DATA IF FULL DUPLEX. 02096 M01S01794.1tm +++|* TO *CTO* IF NO INPUT RECEIVED - 02097 M01S01795.1tm +++|* (DP+4) = *ARD*. 02098 M01S01796.1tm +++|* TO *DLO* IF LOST-DATA CONDITION ON LINE. 02099 M01S01797.1tm +++|* TO PROCESSOR IF SPECIAL CHARACTER RECEIVED. 02100 M01S01798.1tm +++|* 02101 M01S01799.1tm +++|* USES T1, T2. 02102 M01S01800.1tm +++|* 02103 M01S01801.1tm +++|* CALLS EMD. 02104 M01S01802.1tm +++| 02105 M01S01803.1tm +++| 02106 M01S01804.1tm +++| ARD BSS 0 ENTRY 02107 M01S01805.1tm +++| NJN ARD1 IF CHARACTER RECEIVED 02108 M01S01806.1tm +++| LJM CTO CHECK TIME-OUT 02109 M01S01807.1tm +++| 02110 M01S01808.1tm +++| ARD1 SHN 21-11 CHECK CHARACTER STATUS 02111 M01S01809.1tm +++| PJN ARD2 IF NOT LOST DATA 02112 M01S01810.1tm +++| LJM DLO PROCESS LOST DATA 02113 M01S01811.1tm +++| 02114 M01S01812.1tm +++|* ISSUE INPUT TO OUTPUT OR CLEAR (DO), DEPENDING 02115 M01S01813.1tm +++|* UPON TERMINAL DUPLEX MODE. 02116 M01S01814.1tm +++| 02117 M01S01815.1tm +++| ARD2 SHN 11-21 EXTRACT CHARACTER 02118 M01S01816.1tm +++| LPC 4377 ASSUME ECHOPLEX MODE 02119 M01S01817.1tm +++| STD DO 02120 M01S01818.1tm +++| LPC 177 EXTRACT DATA BITS 02121 M01S01819.1tm +++| STD T7 02122 M01S01820.1tm +++| RJM EMD ENTER OPERATOR MESSAGE DATA 02123 M01S01821.1tm +++| LDD DP+3 CHECK ECHOPLEX MODE 02124 M01S01822.1tm +++| LPC 100 02125 M01S01823.1tm +++| NJN ARD3 IF SET 02126 M01S01824.1tm +++| STD DO CLEAR OUTPUT 02127 M01S01825.1tm +++| 02128 M01S01826.1tm +++|* TRANSLATE INPUT CHARACTER. 02129 M01S01827.1tm +++| 02130 M01S01828.1tm +++| ARD3 LDM TINT,T7 READ TRANSLATION TABLE ENTRY 02131 M01S01829.1tm +++| STD T7 SAVE TRANSLATION 02132 M01S01830.1tm +++| SHN -7 CHECK FOR SPECIAL PROCESSING
| Line S01831 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02133 M02S01831.242l642 ---| NJN ARD4 IF SPECIAL PROCESSING REQUIRED
| Line S01832 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02134 M02S01832.242l642 ---| LJM EIC ENTER INPUT CHARACTER 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 M01S01833.1tm +++| 02140 M01S01834.1tm +++| 02141 M01S01835.1tm +++|* PROCESS SPECIAL READ CHARACTER. 02142 M01S01836.1tm +++|
| Line S01837 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02143 M02S01837.242l642 ---| ARD4 STD T1 SET PROCESSOR INDEX
| Line S01838 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02144 M02S01838.242l642 ---| LDM TRSP-1,T1 SET PROCESSOR ADDRESS 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 M01S01839.1tm +++| STD T2 02152 M01S01840.1tm +++| LDD DP+3 SET (A) = (DP+3) 02153 M01S01841.1tm +++| LJM 0,T2 ENTER PROCESSOR 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 M01S01842.1tm +++| TRSP SPACE 4,10 02171 M01S01843.1tm +++|** TRSP - TABLE OF SPECIAL READ CHARACTER PROCESSORS. 02172 M01S01844.1tm +++| 02173 M01S01845.1tm +++| 02174 M01S01846.1tm +++| TRSP BSS 0 02175 M01S01847.1tm +++| QUAL TRN 02176 M01S01848.1tm +++| LOC 1 02177 M01S01849.1tm +++| 02178 M01S01850.1tm +++| CES CON /RDM/CES CHECK ESCAPE STATUS 02179 M01S00216.242l642 +++| CLW CON /RDM/CLW CHECK LOWER CASE *W* 02180 M01S00217.242l642 +++| CRS CON /RDM/CRS CHECK *RS* 02181 M01S01851.1tm +++| CRT CON /RDM/CRT CARRIAGE RETURN 02182 M01S01852.1tm +++| DEL CON /RDM/DEL DELETE (RUBOUT) 02183 M01S01853.1tm +++| DLN CON /RDM/DLN LINE DELETE 02184 M01S01854.1tm +++| DPC CON /RDM/DPC DELETE PREVIOUS CHARACTER 02185 M01S01855.1tm +++| EOT CON /RDM/EOT END OF TRANSMISSION 02186 M01S01856.1tm +++| NLI CON /RDM/NLI NULL INPUT 02187 M01S01857.1tm +++| ECI CON /RDM/ECI ESCAPE CHARACTER INPUT 02188 M01S01858.1tm +++| CLN CON /RDM/CLN COLON 02189 M01S01859.1tm +++| BRK CON /RDM/BRK BREAK 02190 M01S01860.1tm +++| ETX CON /RDM/ETX ETX 02191 M01S01861.1tm +++| 02192 M01S01862.1tm +++| LOC *O 02193 M01S01863.1tm +++| NOREF CES,NLI 02194 M01S01864.1tm +++| QUAL * 02195 M01S01865.1tm +++| RDM TITLE READ MODE - *BINARY* READ PROCESSOR. 02196 M01S01866.1tm +++| BRD SPACE 4,15 02197 M01S01867.1tm +++|** BRD - BINARY READ PROCESSOR. 02198 M01S01868.1tm +++|* 02199 M01S01869.1tm +++|* ENTRY (A) = INPUT DATA CHARACTER. 02200 M01S01870.1tm +++|* (DI) = INPUT DATA CHARACTER. 02201 M01S01871.1tm +++|* (CH) = INPUT TERMINATION CHARACTER. 02202 M01S01872.1tm +++|* (CH+1) = INPUT LINE CHARACTER COUNT. 02203 M01S01873.1tm +++|* (DP+4) = *BRD*. 02204 M01S01874.1tm +++|* 02205 M01S01875.1tm +++|* EXIT TO *CLI* TO PROCESS COMMAND LINE. 02206 M01S01876.1tm +++|* TO *DLO* IF LOST DATA. 02207 M01S01877.1tm +++|* TO *SLI* TO PROCESS SOURCE LINE. 02208 M01S01878.1tm +++|* 02209 M01S01879.1tm +++|* CALLS ERQ, WDC. 02210 M01S01880.1tm +++| 02211 M01S01881.1tm +++| 02212 M01S01882.1tm +++| BRD BSS 0 ENTRY 02213 M01S01883.1tm +++| NJN BRD1 IF INPUT RECEIVED 02214 M01S01884.1tm +++| LJM CTO CHECK TIME-OUT 02215 M01S01885.1tm +++| 02216 M01S01886.1tm +++| BRD1 STD T7 SAVE INPUT CHARACTER 02217 M01S01887.1tm +++| SHN 21-11 CHECK *LOST DATA* BIT 02218 M01S01888.1tm +++| PJN BRD2 IF *LOST DATA* NOT SET 02219 M01S01889.1tm +++| LJM DLO PROCESS DATA LOST 02220 M01S01890.1tm +++| 02221 M01S01891.1tm +++| BRD2 LDD DP+3 CHECK *FULL DUPLEX* 02222 M01S01892.1tm +++| LPC 100 02223 M01S01893.1tm +++| ZJN BRD3 IF NOT SET 02224 M01S01894.1tm +++| LDD DI ISSUE INPUT CHARACTER TO OUTPUT 02225 M01S01895.1tm +++| LPC 4377 02226 M01S01896.1tm +++| BRD3 STD DO SET/CLEAR OUTPUT BUFFER 02227 M01S01897.1tm +++| LDD CH SAVE INPUT TERMINATOR CHARACTER 02228 M01S01898.1tm +++| STD CH+2 02229 M01S01899.1tm +++| LDD T7 FORMAT INPUT CHARACTER
| Line S01900 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 1tm4 |
Seq # *Modification Id* Act ----------------------------+ 02230 M02S01900.1tm4 ---| SHN -6
| Line S01901 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 1tm4 |
Seq # *Modification Id* Act ----------------------------+ 02231 M02S01901.1tm4 ---| LPN 43 02232 M01S00001.1tm4 +++| LPC 4300 02233 M01S01902.1tm +++| STD CH SET UPPER HALF FOR *WIC* 02234 M01S01903.1tm +++| LDD T7 SET LOWER HALF FOR *WIC* 02235 M01S01904.1tm +++| LPN 77 02236 M01S01905.1tm +++| STD T7 02237 M01S01906.1tm +++| AOD DP+2 ADVANCE INPUT BYTE NUMBER 02238 M01S01907.1tm +++| RJM WIC WRITE INPUT CHARACTER 02239 M01S01908.1tm +++| AOD CH+3 ADVANCE INPUT CHARACTER COUNT 02240 M01S01909.1tm +++| SHN -14 02241 M01S01910.1tm +++| ZJN BRD4 IF NO OVERFLOW 02242 M01S01911.1tm +++| STD RQ+2 REQUEST ACCOUNTING MESSAGE 02243 M01S01912.1tm +++| LDN /TLX/IAM 02244 M01S01913.1tm +++| RJM ERQ 02245 M01S01914.1tm +++| BRD4 LDD CH+2 RESTORE TERMINATOR 02246 M01S01915.1tm +++| STD CH 02247 M01S01916.1tm +++| SHN 6 02248 M01S01917.1tm +++| MJN BRD5 IF NO TERMINATOR SPECIFIED 02249 M01S01918.1tm +++| SHN -6 02250 M01S01919.1tm +++| LMD T7 02251 M01S01920.1tm +++| LPC 177 02252 M01S01921.1tm +++| ZJN BRD6 IF TERMINATOR RECIEVED 02253 M01S01922.1tm +++| BRD5 SOD CH+1 DECREMENT CHARACTER COUNT 02254 M01S01923.1tm +++| SBN 1 02255 M01S01924.1tm +++| MJN BRD6 IF END OF BINARY INPUT 02256 M01S01925.1tm +++| JMP MGR RETURN TO MANAGER 02257 M01S01926.1tm +++| 02258 M01S01927.1tm +++|* TERMINATE BINARY READ OPERATION. 02259 M01S01928.1tm +++| 02260 M01S01929.1tm +++| BRD6 LDN 0 ENTER END-OF-LINE 02261 M01S01930.1tm +++| STD CH 02262 M01S01931.1tm +++| STD DO CLEAR OUTPUT 02263 M01S01932.1tm +++| STD T7 02264 M01S01933.1tm +++| STD CH+1 CLEAR CHARACTER COUNT 02265 M01S01934.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL 02266 M01S01935.1tm +++| AOD DP+2 WRITE END OF LINE 02267 M01S01936.1tm +++| RJM WIC 02268 M01S01937.1tm +++| LCN 10 CLEAR BINARY INPUT 02269 M01S01938.1tm +++| RAD DP+3 02270 M01S01939.1tm +++| LDD DC CHECK TERMINAL STATUS 02271 M01S01940.1tm +++| SHN 21-6 02272 M01S01941.1tm +++| MJN CLI IF *READ DATA* 02273 M01S01942.1tm +++| LJM SLI PROCESS SOURCE LINE INPUT 02274 M01S01943.1tm +++| TITLE READ MODE - MAIN ROUTINES. 02275 M01S01944.1tm +++| CLI SPACE 4,15 02276 M01S01945.1tm +++|** CLI - PROCESS COMMAND LINE INPUT. 02277 M01S01946.1tm +++|*
| Line S01947 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02278 M02S01947.242l642 ---|* TRANSMITS THE COMMAND LINE TO *RAF*. 02279 M01S00218.242l642 +++|* TRANSMITS THE COMMAND LINE TO *RDF*. 02280 M01S01948.1tm +++|* 02281 M01S01949.1tm +++|* CALLS ERQ. 02282 M01S01950.1tm +++|* 02283 M01S01951.1tm +++|* EXIT TO *RWC* - 02284 M01S01952.1tm +++|* (DO) = *LF* IF *TAPE* MODE. 02285 M01S01953.1tm +++|* INPUT POTS RELEASED TO EXECUTIVE. 02286 M01S01954.1tm +++|* (DP) = 0. 02287 M01S01955.1tm +++| 02288 M01S01956.1tm +++| 02289 M01S01957.1tm +++|CLI BSS 0 ENTRY 02290 M01S01958.1tm +++| LDD DP SET FIRST POT OF LINE 02291 M01S01959.1tm +++| STD RQ+3 02292 M01S01960.1tm +++| LDD DP+2 SET FIRST WORD 02293 M01S01961.1tm +++| SHN -11 02294 M01S01962.1tm +++| STD RQ+2 02295 M01S01963.1tm +++| LDN /TLX/CLI REQUEST COMMAND LINE INPUT 02296 M01S01964.1tm +++| RJM ERQ 02297 M01S01965.1tm +++| STD DP CLEAR FIRST POT 02298 M01S01966.1tm +++| STD DP+2 CLEAR POINTERS 02299 M01S01967.1tm +++| LDD DC CHECK TERMINAL STATUS 02300 M01S01968.1tm +++| LPN 1 02301 M01S01969.1tm +++| ZJN CLI1 IF NOT IN *TAPE* MODE 02302 M01S01970.1tm +++| LDK .CLF ISSUE *LF* TO TERMINAL 02303 M01S01971.1tm +++| STD DO 02304 M01S01972.1tm +++| CLI1 JMP RWC ENTER READ/WRITE CONTROL 02305 M01S01973.1tm +++| DLO SPACE 4,15 02306 M01S01974.1tm +++|** DLO - PROCESS LOST DATA. 02307 M01S01975.1tm +++|*
| Line S01976 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02308 M02S01976.242l642 ---|* NOTIFY *RAF* THAT A LOST DATA CONDITION OCCURRED ON THE 02309 M01S00219.242l642 +++|* NOTIFY *RDF* THAT A LOST DATA CONDITION OCCURRED ON THE 02310 M01S01977.1tm +++|* TERMINAL LINE. 02311 M01S01978.1tm +++|* 02312 M01S01979.1tm +++|* EXIT TO *NIP* TO PROCESS LOST DATA - 02313 M01S01980.1tm +++|* (RQ+2) = 1. 02314 M01S01981.1tm +++| 02315 M01S01982.1tm +++| 02316 M01S01983.1tm +++| DLO BSS 0 ENTRY 02317 M01S01984.1tm +++| LDN 1 SET LOST-DATA BIT 02318 M01S01985.1tm +++| STD RQ+2 02319 M01S01986.1tm +++| LJM NIP PROCESS LOST DATA 02320 M01S01987.1tm +++| EIC SPACE 4,20 02321 M01S01988.1tm +++|** EIC - ENTER INPUT CHARACTER. 02322 M01S01989.1tm +++|* 02323 M01S01990.1tm +++|* ENTERS INPUT CHARACTER IN INPUT AND COUNTS CHARACTER. 02324 M01S01991.1tm +++|* IF THE LINE CHARACTER COUNT EXCEEDS THE MAXIMUM, AN 02325 M01S01992.1tm +++|* OVERFLOW MESSAGE WILL BE ISSUED. 02326 M01S01993.1tm +++|* 02327 M01S01994.1tm +++|* ENTRY (T7) = CHARACTER TO BE ENTERED. 02328 M01S01995.1tm +++|* (DP+4) = *ARD*. 02329 M01S01996.1tm +++|* 02330 M01S01997.1tm +++|* EXIT TO *MGR* IF NO OVERFLOW - 02331 M01S01998.1tm +++|* (CH+1) = LINE CHARACTER COUNT INCREMENTED. 02332 M01S01999.1tm +++|* TO *TTM* IF LINE OVERFLOW. 02333 M01S02000.1tm +++|* 02334 M01S02001.1tm +++|* CALLS WIC. 02335 M01S02002.1tm +++| 02336 M01S02003.1tm +++| 02337 M01S02004.1tm +++| EIC BSS 0 ENTRY 02338 M01S02005.1tm +++| RJM WIC WRITE INPUT CHARACTER TO INPUT POT 02339 M01S02006.1tm +++| AOD CH+1 INCREMENT LINE CHARACTER COUNT
| Line S02007 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 1tm6 |
Seq # *Modification Id* Act ----------------------------+ 02340 M02S02007.1tm6 ---| SBK MXIC 02341 M01S00001.1tm6 +++| SBK VXLL 02342 M01S02008.1tm +++| PJN EIC1 IF LINE OVERFLOW 02343 M01S02009.1tm +++| JMP MGR REENTER ASCII READ PROCESSOR 02344 M01S02010.1tm +++| 02345 M01S02011.1tm +++|* PROCESS INPUT LINE OVERFLOW. 02346 M01S02012.1tm +++| 02347 M01S02013.1tm +++| EIC1 LDN LOFM SET MESSAGE POINTER 02348 M01S02014.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02349 M01S02015.1tm +++| EIL SPACE 4,15 02350 M01S02016.1tm +++|** EIL - END OF INPUT LINE. 02351 M01S02017.1tm +++|* 02352 M01S02018.1tm +++|* TERMINATES INPUT FOR THE CURRENT LINE AND CALLS 02353 M01S02019.1tm +++|* THE APPROPRIATE END OF LINE PROCESSOR. 02354 M01S02020.1tm +++|* 02355 M01S02021.1tm +++|* EXIT (CH+1) = 0. 02356 M01S02022.1tm +++|* (CH+2) = 0. 02357 M01S02023.1tm +++|* (DP+3) = *TRANSPARENT* MODE CLEARED. 02358 M01S02024.1tm +++|* TO *CLI* IF COMMAND LINE INPUT. 02359 M01S02025.1tm +++|* TO *RDM* IF OPERATOR MESSAGE ISSUED. 02360 M01S02026.1tm +++|* TO *SLI* IF SOURCE LINE INPUT. 02361 M01S02027.1tm +++|* 02362 M01S02028.1tm +++|* CALLS EOM, ERQ, RPC, WIC. 02363 M01S02029.1tm +++|* 02364 M01S02030.1tm +++|* MACROS ADCBM. 02365 M01S02031.1tm +++| 02366 M01S02032.1tm +++| 02367 M01S02033.1tm +++| EIL BSS 0 ENTRY 02368 M01S02034.1tm +++| RJM EOM ENTER OPERATOR MESSAGE 02369 M01S02035.1tm +++| LDD DP+2 CHECK CHARACTER POSITION 02370 M01S02036.1tm +++| LPN 1 02371 M01S02037.1tm +++| NJN EIL1 IF LOWER CHARACTER 02372 M01S02038.1tm +++| 02373 M01S02039.1tm +++|* ENTER *BLANK* AS UPPER CHARACTER IF PREVIOUS CHARACTER 02374 M01S02040.1tm +++|* IS A *COLON* (00). 02375 M01S02041.1tm +++| 02376 M01S02042.1tm +++| LDD CH+1 CHECK LINE CHARACTER COUNT 02377 M01S02043.1tm +++| ZJN EIL3 IF START OF LINE 02378 M01S02044.1tm +++| LDD MA SAVE POINTER WORD 02379 M01S02045.1tm +++| CWD DP 02380 M01S02046.1tm +++| RJM RPC READ PRECEDING CHARACTER 02381 M01S02047.1tm +++| STD T7 02382 M01S02048.1tm +++| LDD MA RESTORE POINTER WORD 02383 M01S02049.1tm +++| CRD DP 02384 M01S02050.1tm +++| LDD T7 CHECK PRECEDING CHARACTER 02385 M01S02051.1tm +++| NJN EIL3 IF NOT COLON 02386 M01S02052.1tm +++| LDN 1R ENTER BLANK 02387 M01S02053.1tm +++| STD T7 02388 M01S02054.1tm +++| RJM WIC 02389 M01S02055.1tm +++| 02390 M01S02056.1tm +++|* ENTER *BLANK* AS LOWER CHARACTER IF NOT IN *TRANSPARENT* 02391 M01S02057.1tm +++|* MODE, ELSE ENTER NULL (00). 02392 M01S02058.1tm +++| 02393 M01S02059.1tm +++| EIL1 LDD DP+3 CHECK FOR TRANSPARENT MODE 02394 M01S02060.1tm +++| LPN 4 02395 M01S02061.1tm +++| ZJN EIL2 IF NOT TRANSPARENT MODE 02396 M01S02062.1tm +++| LDN 1R 02397 M01S02063.1tm +++| EIL2 LMN 1R 02398 M01S02064.1tm +++| STD T7 02399 M01S02065.1tm +++| RJM WIC 02400 M01S02066.1tm +++| 02401 M01S02067.1tm +++|* ENTER NULL (00) AS UPPER CHARACTER TO FORCE END-OF-LINE. 02402 M01S02068.1tm +++| 02403 M01S02069.1tm +++| EIL3 LDN 0 ENTER END OF LINE 02404 M01S02070.1tm +++| STD T7 02405 M01S02071.1tm +++| RJM WIC 02406 M01S02072.1tm +++| LDD DP+3 CLEAR *TRANSPARENT* MODE 02407 M01S02073.1tm +++| SCN 4 02408 M01S02074.1tm +++| STD DP+3 02409 M01S02075.1tm +++| 02410 M01S02076.1tm +++|* COMPLETE END OF LINE PROCESSING. 02411 M01S02077.1tm +++| 02412 M01S02078.1tm +++| LDD CH+1 ADVANCE INPUT CHARACTER COUNT 02413 M01S02079.1tm +++| RAD CH+3 02414 M01S02080.1tm +++| SHN -14 02415 M01S02081.1tm +++| ZJN EIL4 IF NO OVERFLOW 02416 M01S02082.1tm +++| STD RQ+2 02417 M01S02083.1tm +++| LDN /TLX/IAM REQUEST ISSUE ACCOUNTING MESSAGE 02418 M01S02084.1tm +++| RJM ERQ 02419 M01S02085.1tm +++| EIL4 STD CH+1 CLEAR INPUT LINE CHARACTER COUNT 02420 M01S02086.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL 02421 M01S02087.1tm +++| LDD DC CHECK TERMINAL STATUS 02422 M01S02088.1tm +++| SHN 21-6 02423 M01S02089.1tm +++| MJN EIL6 IF *READ DATA*, PROCESS AS COMMAND 02424 M01S02090.1tm +++| SHN 6-2 02425 M01S02091.1tm +++| MJN EIL5 IF *TEXT* MODE, PROCESS AS SOURCE 02426 M01S02092.1tm +++| LDD DP+2 READ FIRST WORD OF LINE 02427 M01S02093.1tm +++| LPC 7000 02428 M01S02094.1tm +++| SHN 6 02429 M01S02095.1tm +++| ADD DP 02430 M01S02096.1tm +++| SHN 3 02431 M01S02097.1tm +++| ADCBM 02432 M01S02098.1tm +++| CRD CM 02433 M01S02099.1tm +++| LDD CM CHECK FIRST CHARACTER 02434 M01S02100.1tm +++| SHN -6 02435 M01S02101.1tm +++| SBN 1R0 02436 M01S02102.1tm +++| MJN EIL6 IF NOT DIGIT 02437 M01S02103.1tm +++| SBN 1R9+1-1R0 02438 M01S02104.1tm +++| EIL5 MJN SLI IF DIGIT 02439 M01S02105.1tm +++| EIL6 LJM CLI PROCESS COMMAND LINE 02440 M01S02106.1tm +++| ESC SPACE 4,20 02441 M01S02107.1tm +++|** ESC - PROCESS ESCAPE CODES. 02442 M01S02108.1tm +++|* 02443 M01S02109.1tm +++|* ENTERS UPPER AND LOWER HALVES OF ESCAPE 02444 M01S02110.1tm +++|* CHARACTER (74XX OR 76XX). 02445 M01S02111.1tm +++|* 02446 M01S02112.1tm +++|* ENTRY (T7) = ESCAPE CODE CHARACTER. 02447 M01S02113.1tm +++|* BIT 2**6 SET IF ESCAPE 1 (76XX). 02448 M01S02114.1tm +++|* BIT 2**6 CLEAR IF ESCAPE 2 (74XX). 02449 M01S02115.1tm +++|* (DP+4) = *ARD*. 02450 M01S02116.1tm +++|* 02451 M01S02117.1tm +++|* EXIT ESCAPE CODE WRITTEN TO INPUT POT. 02452 M01S02118.1tm +++|* TO *EIC* TO COMPLETE LOWER 6 BITS OF CHARACTER - 02453 M01S02119.1tm +++|* (T7) = CHARACTER. 02454 M01S02120.1tm +++|* 02455 M01S02121.1tm +++|* USES CH+2. 02456 M01S02122.1tm +++|* 02457 M01S02123.1tm +++|* CALLS WIC. 02458 M01S02124.1tm +++| 02459 M01S02125.1tm +++| 02460 M01S02126.1tm +++| ESC BSS 0 ENTRY 02461 M01S02127.1tm +++| LDD T7 SAVE CHARACTER 02462 M01S02128.1tm +++| STD CH+2 02463 M01S02129.1tm +++| SHN -5 SET PROPER ESCAPE CODE 02464 M01S02130.1tm +++| LPN 2 02465 M01S02131.1tm +++| ADN 74 02466 M01S02132.1tm +++| STD T7 02467 M01S02133.1tm +++| RJM WIC WRITE ESCAPE CODE 02468 M01S02134.1tm +++| LDD CH+2 SET DISPLAY CODE 02469 M01S02135.1tm +++| LPC 177 PRESERVE ESCAPE BIAS 02470 M01S02136.1tm +++| STD T7 02471 M01S02137.1tm +++| JMP EIC ENTER REMAINDER OF CHARACTER 02472 M01S02138.1tm +++| NIP SPACE 4,15 02473 M01S02139.1tm +++|** NIP - NO INPUT POT AVAILABLE. 02474 M01S02140.1tm +++|*
| Line S02141 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02475 M02S02141.242l642 ---|* NOTIFY *RAF* THAT NO INPUT WAS AVAILABLE AND 02476 M01S00220.242l642 +++|* NOTIFY *RDF* THAT NO INPUT WAS AVAILABLE AND 02477 M01S02142.1tm +++|* ISSUE *RE-ENTER LAST LINE* MESSAGE TO TERMINAL. 02478 M01S02143.1tm +++|* 02479 M01S02144.1tm +++|* ENTRY (RQ+2) = 0 IF NO INPUT POT AVAILABLE. 02480 M01S02145.1tm +++|* = 1 IF DATA LOST ON LINE. 02481 M01S02146.1tm +++|* 02482 M01S02147.1tm +++|* EXIT TO *TTM* TO ISSUE MESSAGE. 02483 M01S02148.1tm +++|* 02484 M01S02149.1tm +++|* CALLS ERQ. 02485 M01S02150.1tm +++| 02486 M01S02151.1tm +++| 02487 M01S02152.1tm +++| NIP BSS 0 ENTRY
| Line S02153 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 1tm3 |
Seq # *Modification Id* Act ----------------------------+ 02488 M02S02153.1tm3 ---| LDM /TLX/DLO REQUEST LOST-DATA PROCESSING 02489 M01S00001.1tm3 +++| LDN /TLX/DLO REQUEST LOST DATA PROCESSING 02490 M01S02154.1tm +++| RJM ERQ 02491 M01S02155.1tm +++| LDN RILM SET RE-ENTER LINE MESSAGE 02492 M01S02156.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02493 M01S02157.1tm +++| SLI SPACE 4,15 02494 M01S02158.1tm +++|** SLI - SOURCE LINE INPUT. 02495 M01S02159.1tm +++|* 02496 M01S02160.1tm +++|* TRANSMITS FIRST POT OF DATA TO EXECUTIVE AS SOURCE 02497 M01S02161.1tm +++|* INPUT IF MORE THAN ONE POT OF SOURCE LINE(S). 02498 M01S02162.1tm +++|* 02499 M01S02163.1tm +++|* EXIT TO *ARD* TO WAIT FOR ADDITIONAL INPUT - 02500 M01S02164.1tm +++|* DATA TRANSMITTED TO EXECUTIVE AS SOURCE INPUT. 02501 M01S02165.1tm +++|* 02502 M01S02166.1tm +++|* CALLS RIN. 02503 M01S02167.1tm +++|* 02504 M01S02168.1tm +++|* MACROS RETURN. 02505 M01S02169.1tm +++| 02506 M01S02170.1tm +++| 02507 M01S02171.1tm +++| SLI BSS 0 ENTRY 02508 M01S02172.1tm +++| LDD DP+2 SAVE *POT REQUESTED* FLAG 02509 M01S02173.1tm +++| LPC 360 02510 M01S02174.1tm +++| LMC 400 SET *INPUT INITIATED* 02511 M01S02175.1tm +++| STD DP+2 02512 M01S02176.1tm +++| SHN 5 02513 M01S02177.1tm +++| RAD DP+2 02514 M01S02178.1tm +++| RJM RIN RELEASE INPUT DATA 02515 M01S02179.1tm +++| RETURN ARD REENTER READ PROCESSOR 02516 M01S02180.1tm +++| TITLE READ MODE - SPECIAL CHARACTER PROCESSORS. 02517 M01S02181.1tm +++| BRK SPACE 4,20 02518 M01S02182.1tm +++|** BRK - PROCESS BREAK. 02519 M01S02183.1tm +++|* 02520 M01S02184.1tm +++|* (1) IGNORE BREAK IF IN *TAPE* MODE. 02521 M01S02185.1tm +++|* (2) INTERRUPT JOB IF ACTIVE. 02522 M01S02186.1tm +++|* (3) DELETE LINE IF INPUT ACTIVE AND IF NOT 02523 M01S02187.1tm +++|* IN *TRANSPARENT* MODE. 02524 M01S02188.1tm +++|* (4) ENTER *BRK* CHARACTER AND TERMINATE LINE 02525 M01S02189.1tm +++|* IF IN *TRANSPARENT* MODE. 02526 M01S02190.1tm +++|* (5) EXIT FROM *TEXT* MODE IF IN *TEXT* MODE. 02527 M01S02191.1tm +++|* 02528 M01S02192.1tm +++|* EXIT TO *RDM* IF IN *TAPE* MODE. 02529 M01S02193.1tm +++|* TO */CTL/INT* TO INTERRUPT JOB. 02530 M01S02194.1tm +++|* TO *TTM* TO ISSUE *DEL* MESSAGE. 02531 M01S02195.1tm +++|* TO *EIL* TO TERMINATE INPUT LINE. 02532 M01S02196.1tm +++|* TO *ETX2* TO EXIT FROM *TEXT* MODE. 02533 M01S02197.1tm +++|* 02534 M01S02198.1tm +++|* CALLS STA, WIC. 02535 M01S02199.1tm +++|* 02536 M01S02200.1tm +++|* MACROS RETURN. 02537 M01S02201.1tm +++| 02538 M01S02202.1tm +++| 02539 M01S02203.1tm +++| BRK BSS 0 ENTRY 02540 M01S02204.1tm +++| LDD DC CHECK TERMINAL STATUS 02541 M01S02205.1tm +++| LPN 1 02542 M01S02206.1tm +++| ZJN BRK1 IF NOT IN *TAPE* MODE 02543 M01S02207.1tm +++| JMP RDM IGNORE CHARACTER 02544 M01S02208.1tm +++| 02545 M01S02209.1tm +++| BRK1 LDK 100D/MNCT+1 START TIMER FOR BREAK 02546 M01S02210.1tm +++| STD DO 02547 M01S02211.1tm +++| BRK2 RETURN * REENTER 02548 M01S02212.1tm +++| NJN BRK1 IF BREAK STILL IN PROGRESS 02549 M01S02213.1tm +++| SOD DO 02550 M01S02214.1tm +++| NJN BRK2 IF NOT TIMED-OUT 02551 M01S02215.1tm +++| LDD CH+1 CHECK INPUT LINE 02552 M01S02216.1tm +++| NJN BRK4 IF LINE NOT EMPTY 02553 M01S02217.1tm +++| 02554 M01S02218.1tm +++|* PROCESS EMPTY INPUT LINE. 02555 M01S02219.1tm +++| 02556 M01S02220.1tm +++| LDD DC CHECK TERMINAL STATUS 02557 M01S02221.1tm +++| LPN 4 02558 M01S02222.1tm +++| ZJN BRK3 IF NOT *TEXT* MODE 02559 M01S02223.1tm +++| LJM ETX2 EXIT *TEXT* MODE 02560 M01S02224.1tm +++| 02561 M01S02225.1tm +++|* INTERRUPT JOB IF ACTIVE. 02562 M01S02226.1tm +++| 02563 M01S02227.1tm +++| BRK3 RJM STA SET FWA OF TERMINAL TABLE 02564 M01S02228.1tm +++| ADN VROT READ *VROT* 02565 M01S02229.1tm +++| CRD CM 02566 M01S02230.1tm +++| LDD CM+4 CHECK JOB ACTIVITY 02567 M01S02231.1tm +++| LMN 1 02568 M01S02232.1tm +++| ZJN BRK5 IF NO JOB ACTIVITY 02569 M01S02233.1tm +++| LDK TIET SET INTERRUPT CODE 02570 M01S02234.1tm +++| LJM /CTL/INT INTERRUPT JOB 02571 M01S02235.1tm +++| 02572 M01S02236.1tm +++|* PROCESS NON-EMPTY INPUT LINE. 02573 M01S02237.1tm +++| 02574 M01S02238.1tm +++| BRK4 LDD DP+3 CHECK MODE 02575 M01S02239.1tm +++| LPN 4 02576 M01S02240.1tm +++| NJN BRK6 IF TRANSPARENT MODE
| Line S02241 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02577 M02S02241.242l642 ---| BRK5 LDN DELM SET *DEL* MESSAGE
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02578 M02S00221.ns2394 ---| BRK5 LDD DC CHECK FOR AUTO MODE
| Line S00222 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02579 M02S00222.ns2394 ---| SHN 21-1
| Line S00223 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02580 M02S00223.ns2394 ---| PJN BRK5.1 IF NOT AUTO MODE
| Line S00224 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02581 M02S00224.ns2394 ---| RJM SCA SET CANCEL AUTO LINE
| Line S00225 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02582 M02S00225.ns2394 ---| BRK5.1 LDN DELM SET *DEL* MESSAGE 02583 M01S00001.ns2394 +++| BRK5 LDN DELM SET *DEL* MESSAGE 02584 M01S02242.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 02585 M01S02243.1tm +++| 02586 M01S02244.1tm +++|* ENTER TRANSPARENT MODE DATA. 02587 M01S02245.1tm +++| 02588 M01S02246.1tm +++| BRK6 LDN 76 STORE ESCAPE 02589 M01S02247.1tm +++| STD T7 02590 M01S02248.1tm +++| RJM WIC 02591 M01S02249.1tm +++| LDN 40 STORE DISPLAY CODE 02592 M01S02250.1tm +++| STD T7 02593 M01S02251.1tm +++| RJM WIC 02594 M01S02252.1tm +++| RETURN EIL ENTER END-OF-LINE PROCESSING 02595 M01S02253.1tm +++| CES SPACE 4,20 02596 M01S02254.1tm +++|** CES - CHECK ESCAPE STATUS. 02597 M01S02255.1tm +++|* 02598 M01S02256.1tm +++|* DETERMINES WHETHER AN ESCAPE CHARACTER IS TO 02599 M01S02257.1tm +++|* BE ENTERED AS AN ESCAPE CHARACTER, AS AN UPPER 02600 M01S02258.1tm +++|* CASE CHARACTER, OR IS TO BE IGNORED. 02601 M01S02259.1tm +++|* 02602 M01S02260.1tm +++|* ENTRY (T7) = TRANSLATED CHARACTER. 02603 M01S02261.1tm +++|* (DP+4) = *ARD*. 02604 M01S02262.1tm +++|* 02605 M01S02263.1tm +++|* EXIT TO *ESC* TO ENTER ESCAPE CHARACTER IF 02606 M01S02264.1tm +++|* TERMINAL IS IN EXTENDED MODE. 02607 M01S02265.1tm +++|* TO *EIC* TO ENTER UPPER CASE CHARACTER IF NOT 02608 M01S02266.1tm +++|* IN EXTENDED MODE AND ALPHA CHARACTER. 02609 M01S02267.1tm +++|* 02610 M01S02268.1tm +++| 02611 M01S02269.1tm +++| 02612 M01S02270.1tm +++| CES BSS 0 ENTRY 02613 M01S02271.1tm +++| LDD DP+3 CHECK TERMINAL MODE 02614 M01S02272.1tm +++| LPN 6 02615 M01S02273.1tm +++| ZJN CES1 IF NOT EXTENDED MODE 02616 M01S02274.1tm +++| JMP ESC ENTER ESCAPE CHARACTER 02617 M01S02275.1tm +++| 02618 M01S02276.1tm +++| CES1 LDD T7 CHECK CHARACTER TRANSLATION 02619 M01S02277.1tm +++| SHN 21-6 02620 M01S02278.1tm +++| PJN CES2 IF ESCAPE 2 02621 M01S02279.1tm +++| LDD T7 CHECK LOWER SIX BITS 02622 M01S02280.1tm +++| LPN 77 02623 M01S02281.1tm +++| ZJN CES2 IF *7600* 02624 M01S02282.1tm +++| SBN 1RZ+1 02625 M01S02283.1tm +++| PJN CES2 IF NOT LOWER CASE ALPHA 02626 M01S02284.1tm +++| JMP EIC ENTER AS UPPER CASE ALPHA 02627 M01S02285.1tm +++| 02628 M01S02286.1tm +++| CES2 JMP MGR IGNORE CHARACTER 02629 M01S02287.1tm +++| CLN SPACE 4,20 02630 M01S02288.1tm +++|** CLN - PROCESS *COLON* INPUT (64 CHARACTER SET). 02631 M01S02289.1tm +++|* 02632 M01S02290.1tm +++|* ENTERS *COLON* CHARACTER AS *00* IF IN NORMAL INPUT 02633 M01S02291.1tm +++|* MODE OR AS *7604* IF IN EXTENDED INPUT MODE. 02634 M01S02292.1tm +++|* 02635 M01S02293.1tm +++|* ENTRY (A) = (DP+3). 02636 M01S02294.1tm +++|* (T7) = CHARACTER. 02637 M01S02295.1tm +++|* 02638 M01S02296.1tm +++|* EXIT COLON *00* WRITTEN IF NORMAL MODE. 02639 M01S02297.1tm +++|* TO *ESC* TO ENTER *7604* IF EXTENDED MODE - 02640 M01S02298.1tm +++|* (T7) = 204B. 02641 M01S02299.1tm +++|* 02642 M01S02300.1tm +++|* CALLS WIC. 02643 M01S02301.1tm +++|* 02644 M01S02302.1tm +++|* NOTE IF THE SYSTEM IS IN 63 CHARACTER SET MODE, 02645 M01S02303.1tm +++|* A COLON WILL BE BE AUTOMATICALLY ENTERED AS 02646 M01S02304.1tm +++|* *63* AND THIS ROUTINE WILL NOT BE CALLED. 02647 M01S02305.1tm +++| 02648 M01S02306.1tm +++| 02649 M01S02307.1tm +++| CLN BSS 0 ENTRY 02650 M01S02308.1tm +++| LPN 6 CHECK TERMINAL MODE 02651 M01S02309.1tm +++| NJN CLN1 IF *ASCII* OR *TRANSPARENT* 02652 M01S02310.1tm +++| LDC 200 SET UP *00* CHARACTER 02653 M01S02311.1tm +++| STD T7 02654 M01S02312.1tm +++| RJM WIC WRITE INPUT CHARACTER 02655 M01S02313.1tm +++| JMP MGR EXIT 02656 M01S02314.1tm +++| 02657 M01S02315.1tm +++| CLN1 LDC 204 SET UP *7604* CHARACTER 02658 M01S02316.1tm +++| STD T7 02659 M01S02317.1tm +++| JMP ESC ENTER ESCAPE CHARACTER 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 M01S02318.1tm +++| CRT SPACE 4,15 02716 M01S02319.1tm +++|** CRT - PROCESS CARRIAGE RETURN. 02717 M01S02320.1tm +++|* 02718 M01S02321.1tm +++|* ISSUE *LINE FEED* TO TERMINAL AND ENTER END-OF-LINE 02719 M01S02322.1tm +++|* PROCESSOR. 02720 M01S02323.1tm +++|* 02721 M01S02324.1tm +++|* ENTRY (CH+1) = INPUT LINE CHARACTER COUNT. 02722 M01S02325.1tm +++|* (DP+4) = *ARD*. 02723 M01S02326.1tm +++|* 02724 M01S02327.1tm +++|* EXIT ASCII *LF* ISSUED TO TERMINAL IF NOT IN 02725 M01S02328.1tm +++|* *TAPE* MODE. 02726 M01S02329.1tm +++|* TO *EIL* TO TERMINATE INPUT LINE. 02727 M01S02330.1tm +++|* TO *MGR* IF CHARACTER TO BE IGNORED. 02728 M01S02331.1tm +++| 02729 M01S02332.1tm +++| 02730 M01S02333.1tm +++| CRT BSS 0 ENTRY 02731 M01S02334.1tm +++| LDD DP+3 CHECK TERMINAL TYPE 02732 M01S02335.1tm +++| SHN 21-7 02733 M01S02336.1tm +++| MJN CRT2 IF *BLKEDIT* 02734 M01S02337.1tm +++| LDD DC CHECK TERMINAL STATUS 02735 M01S02338.1tm +++| LPN 1 02736 M01S02339.1tm +++| ZJN CRT1 IF NOT IN *TAPE* MODE 02737 M01S02340.1tm +++| LDD CH+1 CHECK LINE CHARACTER COUNT 02738 M01S02341.1tm +++| NJN CRT2 IF NOT EMPTY INPUT LINE 02739 M01S02342.1tm +++| JMP MGR IGNORE CHARACTER 02740 M01S02343.1tm +++| 02741 M01S02344.1tm +++| CRT1 LDC .CLF ISSUE LINE FEED 02742 M01S02345.1tm +++| LMD PY TOGGLE ODD PARITY 02743 M01S02346.1tm +++| STD DO 02744 M01S02347.1tm +++| CRT2 JMP EIL ENTER END-OF-LINE PROCESSOR 02745 M01S02348.1tm +++| DEL SPACE 4,15 02746 M01S02349.1tm +++|** DEL - PROCESS *DEL* CHARACTER. 02747 M01S02350.1tm +++|* 02748 M01S02351.1tm +++|* PROCESS *DEL* AS ESCAPE CHARACTER IF *BLKEDIT* TERMINAL, 02749 M01S02352.1tm +++|* ELSE PROCESS AS NULL INPUT. 02750 M01S02353.1tm +++|* 02751 M01S02354.1tm +++|* ENTRY (A) = (DP+3). 02752 M01S02355.1tm +++|* 02753 M01S02356.1tm +++|* EXIT TO *CES* IF *BLKEDIT* TERMINAL. 02754 M01S02357.1tm +++|* TO *NLI* IF NOT *BLKEDIT* TERMINAL - 02755 M01S02358.1tm +++|* (A) = (DP+3). 02756 M01S02359.1tm +++| 02757 M01S02360.1tm +++| 02758 M01S02361.1tm +++| DEL BSS 0 ENTRY 02759 M01S02362.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02760 M01S02363.1tm +++| MJP CES IF *BLKEDIT* 02761 M01S02364.1tm +++| LDD DP+3 02762 M01S02365.1tm +++| JMP NLI PROCESS AS NULL INPUT 02763 M01S02366.1tm +++| DLN SPACE 4,20 02764 M01S02367.1tm +++|** DLN - PROCESS DELETE LINE. 02765 M01S02368.1tm +++|* 02766 M01S02369.1tm +++|* ENTRY (A) = (DP+3). 02767 M01S02370.1tm +++|* (CH+1) = INPUT LINE LENGTH. 02768 M01S02371.1tm +++|* (DP+4) = *ARD*. 02769 M01S02372.1tm +++|* 02770 M01S02373.1tm +++|* EXIT TO *CES* IF *BLKEDIT* TERMINAL. 02771 M01S02374.1tm +++|* TO *ESC* TO ENTER CHARACTER. 02772 M01S02375.1tm +++|* TO *MGR* TO IGNORE CHARACTER. 02773 M01S02376.1tm +++|* TO *TTM* TO ISSUE LINE DELETE MESSAGE. 02774 M01S02377.1tm +++| 02775 M01S02378.1tm +++| 02776 M01S02379.1tm +++| DLN BSS 0 ENTRY 02777 M01S02380.1tm +++| 02778 M01S02381.1tm +++|* PROCESS AS ESCAPE CHARACTER IF *BLKEDIT* TERMINAL. 02779 M01S02382.1tm +++| 02780 M01S02383.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02781 M01S02384.1tm +++| MJP CES IF *BLKEDIT* 02782 M01S02385.1tm +++| 02783 M01S02386.1tm +++|* ENTER CHARACTER IF IN *TRANSPARENT* MODE. 02784 M01S02387.1tm +++| 02785 M01S02388.1tm +++| LDD DP+3 CHECK FOR *TRANSPARENT* MODE 02786 M01S02389.1tm +++| LPN 4 02787 M01S02390.1tm +++| ZJN DLN1 IF NOT SET 02788 M01S02391.1tm +++| JMP ESC ENTER ESCAPE CHARACTER 02789 M01S02392.1tm +++| 02790 M01S02393.1tm +++|* IGNORE CHARACTER IF NULL INPUT LINE. 02791 M01S02394.1tm +++| 02792 M01S02395.1tm +++| DLN1 STD DO SUPPRESS DUPLEX ECHO-BACK
| Line S02396 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 02793 M02S02396.242l642 ---| LDD CH+1 CHECK INPUT LINE LENGTH
| Line S00281 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02794 M02S00281.ns2394 ---| LDD DC CHECK FOR AUTO MODE
| Line S00282 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02795 M02S00282.ns2394 ---| SHN 21-1
| Line S00283 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02796 M02S00283.ns2394 ---| PJN DLN1.5 IF NOT AUTO MODE
| Line S00284 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02797 M02S00284.ns2394 ---| RJM SCA SET CANCEL AUTO LINE
| Line S00285 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 02798 M02S00285.ns2394 ---| DLN1.5 LDD CH+1 CHECK INPUT LINE LENGTH 02799 M01S00002.ns2394 +++| LDD CH+1 CHECK INPUT LINE LENGTH 02800 M01S02397.1tm +++| NJN DLN2 IF NOT NULL LINE 02801 M01S02398.1tm +++| JMP MGR IGNORE CHARACTER 02802 M01S02399.1tm +++| 02803 M01S02400.1tm +++|* DELETE INPUT LINE. 02804 M01S02401.1tm +++| 02805 M01S02402.1tm +++| DLN2 LDN DELM *DEL* 02806 M01S02403.1tm +++| JMP TTM ISSUE TERMINAL MESSAGE 02807 M01S02404.1tm +++| DPC SPACE 4,15 02808 M01S02405.1tm +++|** DPC - DELETE PRECEEDING CHARACTER. 02809 M01S02406.1tm +++|* 02810 M01S02407.1tm +++|* DELETE CHARACTER PRECEDING CHARACTER IF NOT *BLKEDIT* 02811 M01S02408.1tm +++|* TERMINAL. ENTER CHARACTER IF *BLKEDIT*. 02812 M01S02409.1tm +++|* 02813 M01S02410.1tm +++|* ENTRY (A) = (DP+3). 02814 M01S02411.1tm +++|* 02815 M01S02412.1tm +++|* EXIT TO *CES* IF *BLKEDIT* TERMINAL. 02816 M01S02413.1tm +++|* TO *MGR* IF CHARACTER DELETED- 02817 M01S02414.1tm +++|* (DP+1) = CURRENT POT BACKED UP. 02818 M01S02415.1tm +++|* (DP+2) = CURRENT WORD AND CHARACTER BACKED UP. 02819 M01S02416.1tm +++|* (CH+1) = CHARACTER COUNT DECREMENTED. 02820 M01S02417.1tm +++|* (OMCC) = CHARACTER COUNT DECREMENTED. 02821 M01S02418.1tm +++|* 02822 M01S02419.1tm +++|* USES T0 - T5. 02823 M01S02420.1tm +++|* 02824 M01S02421.1tm +++|* CALLS BUP, RPC, SWA. 02825 M01S02422.1tm +++| 02826 M01S02423.1tm +++| 02827 M01S02424.1tm +++| DPC BSS 0 ENTRY 02828 M01S02425.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02829 M01S02426.1tm +++| MJP CES IF *BLKEDIT* 02830 M01S02427.1tm +++| LDM OMCC DECREMENT OPERATOR MESSAGE CHARACTER COUNT 02831 M01S02428.1tm +++| ZJN DPC1 IF ZERO 02832 M01S02429.1tm +++| SOM OMCC 02833 M01S02430.1tm +++| DPC1 LDD CH+1 CHECK LINE CHARACTER COUNT 02834 M01S02431.1tm +++| NJN DPC2 IF NONZERO 02835 M01S02432.1tm +++| JMP MGR EXIT 02836 M01S02433.1tm +++| 02837 M01S02434.1tm +++| DPC2 SOD CH+1 DECREMENT LINE CHARACTER COUNT 02838 M01S02435.1tm +++| RJM BUP BACK UP POINTERS 02839 M01S02436.1tm +++| LDD DP+2 CHECK CHARACTER NUMBER 02840 M01S02437.1tm +++| SHN 21 02841 M01S02438.1tm +++| PJN DPC3 IF UPPER CHARACTER 02842 M01S02439.1tm +++| LPN 7 SET BYTE 02843 M01S02440.1tm +++| STD T5 02844 M01S02441.1tm +++| RJM SWA SET WORD ADDRESS 02845 M01S02442.1tm +++| CRD T0 READ WORD 02846 M01S02443.1tm +++| LDI T5 EXTRACT UPPER CHARACTER 02847 M01S02444.1tm +++| SCN 77 02848 M01S02445.1tm +++| STD CH 02849 M01S02446.1tm +++| LDN 0 CLEAR BYTE 02850 M01S02447.1tm +++| STI T5 02851 M01S02448.1tm +++| RJM SWA SET WORD ADDRESS 02852 M01S02449.1tm +++| CWD T0 STORE WORD 02853 M01S02450.1tm +++| DPC3 LDD DP+3 CHECK *ASCII* MODE 02854 M01S02451.1tm +++| LPN 6 02855 M01S02452.1tm +++| ZJN DPC5 IF NOT SET 02856 M01S02453.1tm +++| LDD MA SAVE POINTER WORD 02857 M01S02454.1tm +++| CWD DP 02858 M01S02455.1tm +++| RJM RPC READ PREVIOUS CHARACTER 02859 M01S02456.1tm +++| SBN 74 02860 M01S02457.1tm +++| MJN DPC4 IF NOT ESCAPE 02861 M01S02458.1tm +++| ZJN DPC6 IF ESCAPE 2 02862 M01S02459.1tm +++| SBN 76-74 02863 M01S02460.1tm +++| ZJN DPC6 IF ESCAPE 1 02864 M01S02461.1tm +++| DPC4 LDD MA RESTORE POINTER WORD 02865 M01S02462.1tm +++| CRD DP 02866 M01S02463.1tm +++| DPC5 JMP MGR EXIT 02867 M01S02464.1tm +++| 02868 M01S02465.1tm +++| DPC6 LDD DP+2 CHECK CHARACTER NUMBER 02869 M01S02466.1tm +++| SHN 21-0 02870 M01S02467.1tm +++| PJN DPC5 IF UPPER CHARACTER 02871 M01S02468.1tm +++| LDI T5 EXTRACT UPPER CHARACTER 02872 M01S02469.1tm +++| SCN 77 02873 M01S02470.1tm +++| STD CH 02874 M01S02471.1tm +++| LDN 0 CLEAR BYTE 02875 M01S02472.1tm +++| STI T5 02876 M01S02473.1tm +++| RJM SWA SET WORD ADDRESS 02877 M01S02474.1tm +++| CWD T0 STORE WORD 02878 M01S02475.1tm +++| JMP MGR EXIT 02879 M01S02476.1tm +++| EOT SPACE 4,15 02880 M01S02477.1tm +++|** EOT - END OF TRANSMISSION (*BLKEDIT* TERMINAL). 02881 M01S02478.1tm +++|* 02882 M01S02479.1tm +++|* PROCESS *EOT* TERMINATOR OF INPUT LINE. IF THE 02883 M01S02480.1tm +++|* LINE IS NOT NULL, A CARRIAGE RETURN WILL BE TRANS- 02884 M01S02481.1tm +++|* MITTED TO THE TERMINAL. IF THE LINE IS EMPTY, THE 02885 M01S02482.1tm +++|* LINE WILL BE IGNORED. 02886 M01S02483.1tm +++|* 02887 M01S02484.1tm +++|* ENTRY (A) = DP+3. 02888 M01S02485.1tm +++|* 02889 M01S02486.1tm +++|* EXIT TO *CES* IF NOT *BLKEDIT* TERMINAL. 02890 M01S02487.1tm +++|* TO *EIL* IF *BLKEDIT* TERMINAL AND NOT NULL 02891 M01S02488.1tm +++|* INPUT LINE. 02892 M01S02489.1tm +++|* TO *MGR* IF *BLKEDIT* TERMINAL AND NULL INPUT 02893 M01S02490.1tm +++|* LINE. 02894 M01S02491.1tm +++|* 02895 M01S02492.1tm +++|* MACROS RETURN. 02896 M01S02493.1tm +++| 02897 M01S02494.1tm +++| 02898 M01S02495.1tm +++| EOT BSS 0 ENTRY 02899 M01S02496.1tm +++| SHN 21-7 CHECK TERMINAL TYPE 02900 M01S02497.1tm +++| PJP CES IF NOT *BLKEDIT* 02901 M01S02498.1tm +++| LDD CH+1 CHECK LINE LENGTH 02902 M01S02499.1tm +++| ZJP MGR IF NULL 02903 M01S02500.1tm +++| LDC .CCR ISSUE *CR* 02904 M01S02501.1tm +++| LMD PY TOGGLE ODD PARITY 02905 M01S02502.1tm +++| STD DO 02906 M01S02503.1tm +++| RETURN * REENTER 02907 M01S02504.1tm +++| LDC .CLF ISSUE *LF* 02908 M01S02505.1tm +++| LMD PY TOGGLE ODD PARITY 02909 M01S02506.1tm +++| STD DO 02910 M01S02507.1tm +++| RETURN EIL ENTER INPUT LINE 02911 M01S02508.1tm +++| ECI SPACE 4,20 02912 M01S02509.1tm +++|** ECI - ESCAPE CHARACTER INPUT. 02913 M01S02510.1tm +++|* 02914 M01S02511.1tm +++|* DIRECTS PROCESSING OF *74* AND *76* INPUT CHARACTERS. 02915 M01S02512.1tm +++|* IF IN EXTENDED OR TRANSPARENT MODE, THE *74* CODE IS 02916 M01S02513.1tm +++|* STORED AS *7401* AND THE *76* CODE IS STORED AS 02917 M01S02514.1tm +++|* *7402*. 02918 M01S02515.1tm +++|* 02919 M01S02516.1tm +++|* ENTRY (A) = (DP+3). 02920 M01S02517.1tm +++|* (T7) = CHARACTER. 02921 M01S02518.1tm +++|* 02922 M01S02519.1tm +++|* EXIT TO *EIC* TO ENTER SINGLE CHARACTER CODE IF 02923 M01S02520.1tm +++|* NOT IN EXTENDED MODE. 02924 M01S02521.1tm +++|* TO *ESC* TO ENTER ESCAPE CODE (7401 OR 7401) 02925 M01S02522.1tm +++|* IF IN EXTENDED MODE. 02926 M01S02523.1tm +++| 02927 M01S02524.1tm +++| 02928 M01S02525.1tm +++| ECI BSS 0 ENTRY 02929 M01S02526.1tm +++| LPN 6 CHECK TERMINAL MODE 02930 M01S02527.1tm +++| ZJN ECI1 IF NEITHER *ASCII* NOR TRANSPARENT 02931 M01S02528.1tm +++| JMP ESC ENTER ESCAPE CODE CHARACTERS 02932 M01S02529.1tm +++| 02933 M01S02530.1tm +++| ECI1 LDD T7 CONVERT TO SINGLE DISPLAY CODE 02934 M01S02531.1tm +++| LPN 3 02935 M01S02532.1tm +++| SHN 1 02936 M01S02533.1tm +++| ADN 72 02937 M01S02534.1tm +++| STD T7 02938 M01S02535.1tm +++| JMP EIC ENTER INPUT CHARACTER 02939 M01S02536.1tm +++| ETX SPACE 4,15 02940 M01S02537.1tm +++|** ETX - END OF TEXT. 02941 M01S02538.1tm +++|* 02942 M01S02539.1tm +++|* EXIT TO *CES* IF INPUT LINE NOT EMPTY. 02943 M01S02540.1tm +++|* TO *CES* IF NOT IN TEXT MODE. 02944 M01S02541.1tm +++|* TO *RWC* AFTER EXITTING FROM *TEXT* MODE. 02945 M01S02542.1tm +++|* 02946 M01S02543.1tm +++|* CALLS ERQ, WDC. 02947 M01S02544.1tm +++| 02948 M01S02545.1tm +++| 02949 M01S02546.1tm +++| ETX BSS 0 ENTRY 02950 M01S02547.1tm +++| LDD CH+1 CHECK INPUT LINE CHARACTER COUNT 02951 M01S02548.1tm +++| NJN ETX1 IF LINE NOT EMPTY 02952 M01S02549.1tm +++| LDD DC CHECK TERMINAL STATUS 02953 M01S02550.1tm +++| LPN 4 02954 M01S02551.1tm +++| NJN ETX2 IF *TEXT* MODE 02955 M01S02552.1tm +++| ETX1 LDD DP+3 02956 M01S02553.1tm +++| LJM CES CHECK ESCAPE STATUS 02957 M01S02554.1tm +++| 02958 M01S02555.1tm +++| ETX2 LDD DC CLEAR *INPUT REQUESTED*, *TEXT* MODE 02959 M01S02556.1tm +++| LPC 7373 02960 M01S02557.1tm +++| STD DC 02961 M01S02558.1tm +++| RJM WDC REWRITE *VDCT* 02962 M01S02559.1tm +++| LDD DP+1 GET POT TO BE DUMPED 02963 M01S02560.1tm +++| STD RQ+3 02964 M01S02561.1tm +++| LDD DP+2 EXTRACT WORD COUNT OF POT 02965 M01S02562.1tm +++| SHN -4 02966 M01S02563.1tm +++| LPN 7 02967 M01S02564.1tm +++| STD RQ+2 02968 M01S02565.1tm +++| LDN /TLX/ETX EXIT TEXT MODE REQUEST 02969 M01S02566.1tm +++| RJM ERQ 02970 M01S02567.1tm +++| STD DP CLEAR FIRST POT POINTER 02971 M01S02568.1tm +++| STD DP+1 CLEAR CURRENT POT POINTER 02972 M01S02569.1tm +++| STD DP+2 CLEAR POSITION WITHIN CURRENT POT 02973 M01S02570.1tm +++| JMP RWC ENTER READ/WRITE CONTROL 02974 M01S02571.1tm +++| NLI SPACE 4,15 02975 M01S02572.1tm +++|** NLI - PROCESS NULL INPUT. 02976 M01S02573.1tm +++|* 02977 M01S02574.1tm +++|* ENTRY (A) = (DP+3). 02978 M01S02575.1tm +++|* (DP+4) = PROCESSING ADDRESS. 02979 M01S02576.1tm +++|* 02980 M01S02577.1tm +++|* EXIT TO *MGR* IF CHARACTER TO BE IGNORED. 02981 M01S02578.1tm +++|* TO *EIC* IF CHARACTER TO BE ENTERED. 02982 M01S02579.1tm +++|* TO *ESC* IF ESCAPE CHARACTER TO BE ENTERED. 02983 M01S02580.1tm +++| 02984 M01S02581.1tm +++| 02985 M01S02582.1tm +++| NLI BSS 0 ENTRY 02986 M01S02583.1tm +++| LPN 4 CHECK *TRANSPARENT* MODE 02987 M01S02584.1tm +++| ZJN NLI1 IF NOT SET 02988 M01S02585.1tm +++| LDD CH+2 02989 M01S02586.1tm +++| LPC 177 02990 M01S02587.1tm +++| ZJN NLI1 IF NO CHARACTER DEFINED 02991 M01S02588.1tm +++| STD T7 ENTER CHARACTER 02992 M01S02589.1tm +++| SHN 21-6 CHECK FOR ESCAPE 2 02993 M01S02590.1tm +++| MJN NLI2 IF ESCAPE 2 02994 M01S02591.1tm +++| LJM EIC ENTER INPUT CHARACTER 02995 M01S02592.1tm +++| 02996 M01S02593.1tm +++| NLI1 JMP MGR IGNORE CHARACTER 02997 M01S02594.1tm +++| 02998 M01S02595.1tm +++| NLI2 LJM ESC ENTER ESCAPE CHARACTER 02999 M01S02596.1tm +++| RDM TITLE READ MODE - SUBROUTINES. 03000 M01S02597.1tm +++| EMD SPACE 4,25 03001 M01S02598.1tm +++|** EMD - ENTER OPERATOR MESSAGE DATA. 03002 M01S02599.1tm +++|* 03003 M01S02600.1tm +++|* ENTERS DATA FOR POSSIBLE OPERATOR MESSAGE INTO 03004 M01S02601.1tm +++|* THE OPERATOR MESSAGE BUFFER. IN ORDER FOR THE 03005 M01S02602.1tm +++|* INPUT DATA TO BE CONSIDERED A CANDIDATE FOR AN 03006 M01S02603.1tm +++|* OPERATOR MESSAGE, THE FIRST CHARACTER OF INPUT 03007 M01S02604.1tm +++|* MUST BE AN ASCII *ESC* CHARACTER. RECEIPT OF AN 03008 M01S02605.1tm +++|* ADDITIONAL ASCII *ESC* CHARACTER AFTER THE START OF 03009 M01S02606.1tm +++|* THE MESSAGE WILL CAUSE THE MESSAGE TO BE NO LONGER 03010 M01S02607.1tm +++|* CONSIDERED A CANDIDATE FOR AN OPERATOR MESSAGE. 03011 M01S02608.1tm +++|* 03012 M01S02609.1tm +++|* ENTRY (T7) = LOWER 7 BITS OF INPUT DATA. 03013 M01S02610.1tm +++|* (CH+1) = LINE CHARACTER COUNT. 03014 M01S00286.242l642 +++|* (F7) = 0 IF START OF *F7* SEQUENCE NOT DETECTED. 03015 M01S02611.1tm +++|* (OMCC) = OPERATOR MESSAGE CHARACTER COUNT. 03016 M01S02612.1tm +++|* = NONZERO IF POSSIBLE OPERATOR MESSAGE. 03017 M01S02613.1tm +++|* 03018 M01S02614.1tm +++|* EXIT DATA ENTERED IN OPERATOR MESSAGE BUFFER. 03019 M01S02615.1tm +++|* (OMCC) = INCREMENTED IF POSSIBLE MESSAGE 03020 M01S02616.1tm +++|* CHARACTER. 03021 M01S02617.1tm +++|* = 0 IF *ESC* RECEIVED AFTER START OF 03022 M01S02618.1tm +++|* MESSAGE. 03023 M01S02619.1tm +++|* 03024 M01S02620.1tm +++|* USES T1, T2. 03025 M01S02621.1tm +++| 03026 M01S02622.1tm +++| 03027 M01S02623.1tm +++| EMD SUBR ENTRY/EXIT 03028 M01S00287.242l642 +++| LDD F7 CHECK FOR START OF *F7* SEQUENCE DETECTED 03029 M01S00288.242l642 +++| NJN EMDX IF DETECTED 03030 M01S02624.1tm +++| LDD CH+1 CHECK LINE CHARACTER COUNT 03031 M01S02625.1tm +++| ADM OMCC ADD MESSAGE CHARACTER COUNT 03032 M01S02626.1tm +++| NJN EMD2 IF EITHER IS NONZERO 03033 M01S02627.1tm +++| 03034 M01S02628.1tm +++|* CHECK FIRST INPUT CHARACTER FOR *ESC* CODE. 03035 M01S02629.1tm +++| 03036 M01S02630.1tm +++| LDD T7 GET INPUT CHARACTER 03037 M01S02631.1tm +++| LMK .AESC 03038 M01S02632.1tm +++| NJN EMDX IF NOT *ESC* 03039 M01S02633.1tm +++| LDC 2L SET BLANK IN BUFFER 03040 M01S02634.1tm +++| STM OMBUF 03041 M01S02635.1tm +++| EMD1 AOM OMCC INCREMENT MESSAGE CHARACTER COUNT 03042 M01S02636.1tm +++| UJN EMDX RETURN 03043 M01S02637.1tm +++| 03044 M01S02638.1tm +++|* CHECK FOR *ESC* AFTER START OF INPUT. 03045 M01S02639.1tm +++| 03046 M01S02640.1tm +++| EMD2 SBD CH+1 CHECK VALUE OF *OMCC* 03047 M01S02641.1tm +++| ZJN EMDX IF ZERO 03048 M01S02642.1tm +++| LDD T7 GET INPUT CHARACTER 03049 M01S02643.1tm +++| SBK .AESC 03050 M01S02644.1tm +++| NJN EMD3 IF NOT *ESC* 03051 M01S02645.1tm +++| STM OMCC CLEAR MESSAGE CHARACTER COUNT 03052 M01S02646.1tm +++| UJN EMDX RETURN 03053 M01S02647.1tm +++| 03054 M01S02648.1tm +++|* TRANSLATE INPUT CHARACTER TO MESSAGE BUFFER. 03055 M01S02649.1tm +++| 03056 M01S02650.1tm +++| EMD3 ADK .AESC-.ASP CHECK CHARACTER VALUE 03057 M01S02651.1tm +++| MJN EMDX IF NOT TRANSLATABLE 03058 M01S02652.1tm +++| LDM OMCC CHECK BUFFER LENGTH 03059 M01S02653.1tm +++| SBK 68D 03060 M01S02654.1tm +++| PJP EMDX IF OVERFLOW, IGNORE CHARACTER 03061 M01S02655.1tm +++| LDM TINT,T7 GET TRANSLATION 03062 M01S02656.1tm +++| LPN 77 MASK UPPER CASE BITS 03063 M01S02657.1tm +++| STD T1 SAVE TRANSLATION 03064 M01S02658.1tm +++| 03065 M01S02659.1tm +++|* ENTER CHARACTER IN MESSAGE BUFFER. 03066 M01S02660.1tm +++| 03067 M01S02661.1tm +++| LDM OMCC GET BUFFER CHARACTER COUNT 03068 M01S02662.1tm +++| SHN 22-1 SET CURRENT BYTE 03069 M01S02663.1tm +++| STD T2 03070 M01S02664.1tm +++| SHN 1 SHIFT CHARACTER POSITION 03071 M01S02665.1tm +++| LPN 1 03072 M01S02666.1tm +++| NJN EMD4 IF LOWER CHARACTER 03073 M01S02667.1tm +++| LDD T1 STORE AS UPPER CHARACTER 03074 M01S02668.1tm +++| SHN 6 03075 M01S02669.1tm +++| STM OMBUF,T2 03076 M01S02670.1tm +++| JMP EMD1 INCREMENT CHARACTER COUNT 03077 M01S02671.1tm +++| 03078 M01S02672.1tm +++| EMD4 LDD T1 STORE AS LOWER CHARACTER 03079 M01S02673.1tm +++| RAM OMBUF,T2 03080 M01S02674.1tm +++| JMP EMD1 INCREMENT CHARACTER COUNT 03081 M01S02675.1tm +++| EOM SPACE 4,40 03082 M01S02676.1tm +++|** EOM - ENTER OPERATOR MESSAGE. 03083 M01S02677.1tm +++|* 03084 M01S02678.1tm +++|* CHECKS THE CONTENTS OF THE OPERATOR MESSAGE BUFFER 03085 M01S02679.1tm +++|* FOR A VALID OPERATOR MESSAGE. IF THE BUFFER CONTENTS 03086 M01S02680.1tm +++|* CONSTITUTE AN OPERATOR MESSAGE, THE MESSAGE WILL BE 03087 M01S02681.1tm +++|* TRANSMITTED TO THE DSD *A,OPERATOR* DISPLAY BUFFER 03088 M01S02682.1tm +++|* AND THE INPUT LINE FROM WHICH THE MESSAGE WAS EX- 03089 M01S02683.1tm +++|* TRACTED WILL BE DISCARDED. 03090 M01S02684.1tm +++|* 03091 M01S02685.1tm +++|* ENTRY (OMCC) = MESSAGE CHARACTER COUNT. 03092 M01S02686.1tm +++|* = ZERO IF NO POSSIBLE MESSAGE IN 03093 M01S02687.1tm +++|* BUFFER. 03094 M01S02688.1tm +++|* (OMBUF) = TRANSLATED MESSAGE. 03095 M01S02689.1tm +++|* 03096 M01S02690.1tm +++|* EXIT TO CALLER IF NO MESSAGE ISSUED - 03097 M01S02691.1tm +++|* (OMCC) = 0. 03098 M01S02692.1tm +++|* TO *TTM* IF MESSAGE HAS BEEN ISSUED. 03099 M01S02693.1tm +++|* (A) = ADDRESS OF *READY* MESSAGE. 03100 M01S02694.1tm +++|* (CH+1) = 0. 03101 M01S02695.1tm +++|* 03102 M01S02696.1tm +++|* ERROR TO *TTM* TO ISSUE *CONSOLE BUSY* MESSAGE IF 03103 M01S02697.1tm +++|* OPERATOR DISPLAY BUFFER BUSY. 03104 M01S02698.1tm +++|* 03105 M01S02699.1tm +++|* USES T1, T2, CM - CM+4. 03106 M01S02700.1tm +++|* 03107 M01S02701.1tm +++|* CALLS STA, ZOM. 03108 M01S02702.1tm +++|* 03109 M01S02703.1tm +++|* MACROS MONITOR. 03110 M01S02704.1tm +++| 03111 M01S02705.1tm +++| 03112 M01S02706.1tm +++| EOM SUBR ENTRY/EXIT 03113 M01S02707.1tm +++| LDM OMCC CHECK MESSAGE LENGTH 03114 M01S02708.1tm +++| ZJN EOMX IF ZERO 03115 M01S02709.1tm +++| SBN 4 03116 M01S02710.1tm +++| MJN EOM1 IF TOO SHORT 03117 M01S02711.1tm +++| 03118 M01S02712.1tm +++|* VALIDATE MESSAGE FORMAT. 03119 M01S02713.1tm +++| 03120 M01S02714.1tm +++| LDM OMBUF CHECK FIRST 2 CHARACTERS 03121 M01S02715.1tm +++| LMC 2R M 03122 M01S02716.1tm +++| NJN EOM1 IF NOT * M* 03123 M01S02717.1tm +++| LDM OMBUF+1 CHECK SECOND 2 CHARACTERS 03124 M01S02718.1tm +++| LMC 2RS= 03125 M01S02719.1tm +++| ZJN EOM2 IF *S=* 03126 M01S02720.1tm +++| EOM1 LDN 0 CLEAR MESSAGE LENGTH 03127 M01S02721.1tm +++| STM OMCC 03128 M01S02722.1tm +++| JMP EOMX RETURN TO CALLER 03129 M01S02723.1tm +++| 03130 M01S02724.1tm +++|* INTERLOCK OPERATOR DISPLAY BUFFER. 03131 M01S02725.1tm +++| 03132 M01S02726.1tm +++| EOM2 LDK LDSP READ *L* DISPLAY POINTER 03133 M01S02727.1tm +++| CRD CM 03134 M01S02728.1tm +++| LDD CM+2 GET *L* DISPLAY BUFFER ADDRESS 03135 M01S02729.1tm +++| SHN 14 03136 M01S02730.1tm +++| LMD CM+3 03137 M01S02731.1tm +++| SBK LODS SET FWA OF OPERATOR DISPLAY BUFFER 03138 M01S02732.1tm +++| STD CM+4 03139 M01S02733.1tm +++| STM EOMA+1 03140 M01S02734.1tm +++| SHN -14 03141 M01S02735.1tm +++| STD CM+3 03142 M01S02736.1tm +++| ADC LDCI 03143 M01S02737.1tm +++| STM EOMA 03144 M01S02738.1tm +++| LDN 0 FORMAT INTERLOCK REQUEST 03145 M01S02739.1tm +++| STD CM+1 03146 M01S02740.1tm +++| STD CM+2 03147 M01S02741.1tm +++| MONITOR UTEM ISSUE INTERLOCK REQUEST 03148 M01S02742.1tm +++| LDD CM+1 03149 M01S02743.1tm +++| ZJN EOM3 IF INTERLOCK GRANTED 03150 M01S02744.1tm +++| LDN MBSY * CONSOLE BUSY* 03151 M01S02745.1tm +++| LJM TTM ISSUE TERMINAL MESSAGE 03152 M01S02746.1tm +++| 03153 M01S02747.1tm +++|* FORMAT DISPLAY BUFFER HEADER WORD. 03154 M01S02748.1tm +++| 03155 M01S02749.1tm +++| EOM3 RJM ZOM ZERO-FILL MESSAGE 03156 M01S02750.1tm +++| RJM STA SET FWA OF TERMINAL TABLE 03157 M01S02751.1tm +++| ADK VFST READ *VFST* TO GET JSN 03158 M01S02752.1tm +++| CRD CM 03159 M01S02753.1tm +++| LDD TN SET TERMINAL NUMBER IN HEADER 03160 M01S02754.1tm +++| ADC 2R00 03161 M01S02755.1tm +++| STD CM+2 03162 M01S02756.1tm +++| LDN 0 03163 M01S02757.1tm +++| STD CM+3 03164 M01S02758.1tm +++| LDN 1 SET BUFFER BUSY BIT 03165 M01S02759.1tm +++| STD CM+4 03166 M01S02760.1tm +++| 03167 M01S02761.1tm +++|* COPY BUFFER HEADER AND MESSAGE TO DISPLAY BUFFER. 03168 M01S02762.1tm +++| 03169 M01S02763.1tm +++| LDN 7 SET MESSAGE DATA LENGTH 03170 M01S02764.1tm +++| STD T1 03171 M01S02765.1tm +++| EOMA LDC * WRITE BUFFER HEADER 03172 M01S02766.1tm +++| CWD CM 03173 M01S02767.1tm +++| ADN 1 WRITE BUFFER MESSAGE DATA 03174 M01S02768.1tm +++| CWM OMBUF+2,T1 03175 M01S02769.1tm +++| 03176 M01S02770.1tm +++|* SET OPERATOR MESSAGE FLAG IN DISPLAY BUFFER 03177 M01S02771.1tm +++| 03178 M01S02772.1tm +++| LDN 1 FORMAT *UTEM* REQUEST 03179 M01S02773.1tm +++| STD CM+1 03180 M01S02774.1tm +++| LDN 0 03181 M01S02775.1tm +++| STD CM+2 03182 M01S02776.1tm +++| STD CM+3 03183 M01S02777.1tm +++| LDK OPRL 03184 M01S02778.1tm +++| STD CM+4 03185 M01S02779.1tm +++| LDD MA WRITE MESSAGE PARAMETERS 03186 M01S02780.1tm +++| CWM EOMB,ON 03187 M01S02781.1tm +++| MONITOR UTEM ISSUE MONITOR REQUEST 03188 M01S02782.1tm +++| 03189 M01S02783.1tm +++|* EXIT TO *TTM* TO ISSUE *READY* MESSAGE. 03190 M01S02784.1tm +++|* 03191 M01S02785.1tm +++|* ENTRY (A) = ZERO (FROM *MONITOR* REQUEST). 03192 M01S02786.1tm +++| 03193 M01S02787.1tm +++| STD CH+1 CLEAR INPUT CHARACTER COUNT 03194 M01S02788.1tm +++| LDN RDYM SET MESSAGE ADDRESS 03195 M01S02789.1tm +++| JMP TTM ISSUE TERMINAL MESSAGE 03196 M01S02790.1tm +++| 03197 M01S02791.1tm +++| 03198 M01S02792.1tm +++| EOMB VFD 6/0,6/1,6/59D,42/1 *UTEM* PARAMETER WORD 03199 M01S02793.1tm +++| RIN SPACE 4,15 03200 M01S02794.1tm +++|** RIN - RELEASE INPUT POTS TO EXECUTIVE. 03201 M01S02795.1tm +++|*
| Line S02796 Modification History | |
|---|---|
M01 (Added by) | 1tm |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03202 M02S02796.242l642 ---|* TRANSMITS FILLED INPUT POTS TO *RAF* EXECUTIVE 03203 M01S00289.242l642 +++|* TRANSMITS FILLED INPUT POTS TO *RDF* EXECUTIVE 03204 M01S02797.1tm +++|* VIA *RIN* REQUEST. 03205 M01S02798.1tm +++|* 03206 M01S02799.1tm +++|* ENTRY (DP) = FIRST POT OF INPUT LINE. 03207 M01S02800.1tm +++|* (DP+1) = CURRENT POT OF INPUT. 03208 M01S02801.1tm +++|* 03209 M01S02802.1tm +++|* EXIT FIRST THROUGH CURRENT POT RELEASED IF 03210 M01S02803.1tm +++|* FIRST IS NOT THE CURRENT POT. 03211 M01S02804.1tm +++|* (DP) = (DP+1). 03212 M01S02805.1tm +++|* 03213 M01S02806.1tm +++|* CALLS ERQ. 03214 M01S02807.1tm +++| 03215 M01S02808.1tm +++| 03216 M01S02809.1tm +++| RIN SUBR ENTRY/EXIT 03217 M01S02810.1tm +++| LDD DP SET FIRST POT 03218 M01S02811.1tm +++| STD RQ+3 03219 M01S02812.1tm +++| LMD DP+1 03220 M01S02813.1tm +++| ZJN RIN1 IF FIRST POT .EQ. CURRENT POT 03221 M01S02814.1tm +++| LDD DP+1 SET CURRENT POT 03222 M01S02815.1tm +++| STD DP 03223 M01S02816.1tm +++| STD RQ+2 03224 M01S02817.1tm +++| LDN /TLX/RIN RELEASE POT 03225 M01S02818.1tm +++| RJM ERQ 03226 M01S02819.1tm +++| RIN1 STD RQ+3 CLEAR REQUEST 03227 M01S02820.1tm +++| UJN RINX RETURN 03228 M01S02821.1tm +++| RPC SPACE 4,15 03229 M01S02822.1tm +++|** RPC - READ PREVIOUS CHARACTER. 03230 M01S02823.1tm +++|* 03231 M01S02824.1tm +++|* ENTRY NONE. 03232 M01S02825.1tm +++|* 03233 M01S02826.1tm +++|* EXIT (A) = PREVIOUS CHARACTER. 03234 M01S02827.1tm +++|* IF PREVIOUS CHARACTER IS LOWER- 03235 M01S02828.1tm +++|* (T0 - T0+4) = DATA WORD. 03236 M01S02829.1tm +++|* (T5) = BYTE NUMBER. 03237 M01S02830.1tm +++|* (T6) = WORD NUMBER. 03238 M01S02831.1tm +++|* 03239 M01S02832.1tm +++|* USES T0 - T5. 03240 M01S02833.1tm +++|* 03241 M01S02834.1tm +++|* CALLS BUP, SWA. 03242 M01S02835.1tm +++| 03243 M01S02836.1tm +++| 03244 M01S02837.1tm +++| RPC1 LDD CH SET CHARACTER 03245 M01S02838.1tm +++| SHN -6 03246 M01S02839.1tm +++| 03247 M01S02840.1tm +++| RPC SUBR ENTRY/EXIT 03248 M01S02841.1tm +++| RJM BUP BACK UP POINTERS 03249 M01S02842.1tm +++| LDD DP+2 CHECK CHARACTER NUMBER 03250 M01S02843.1tm +++| SHN 21 03251 M01S02844.1tm +++| PJN RPC1 IF UPPER CHARACTER 03252 M01S02845.1tm +++| LPN 7 SET BYTE 03253 M01S02846.1tm +++| STD T5 03254 M01S02847.1tm +++| RJM SWA SET WORD ADDRESS 03255 M01S02848.1tm +++| CRD T0 03256 M01S02849.1tm +++| LDI T5 SET CHARACTER 03257 M01S02850.1tm +++| LPN 77 03258 M01S02851.1tm +++| UJN RPCX RETURN
| Line S00290 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03259 M02S00290.ns2394 ---| SCA SPACE 4,10
| Line S00291 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03260 M02S00291.ns2394 ---|** SCA - SET CANCEL AUTO LINE.
| Line S00292 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03261 M02S00292.ns2394 ---|*
| Line S00293 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03262 M02S00293.ns2394 ---|* EXIT *VDCT* REWRITTEN.
| Line S00294 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03263 M02S00294.ns2394 ---|*
| Line S00295 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03264 M02S00295.ns2394 ---|* USES CM - CM+4.
| Line S00296 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03265 M02S00296.ns2394 ---|*
| Line S00297 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03266 M02S00297.ns2394 ---|* CALLS STA.
| Line S00298 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03267 M02S00298.ns2394 ---|
| Line S00299 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03268 M02S00299.ns2394 ---|
| Line S00300 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03269 M02S00300.ns2394 ---| SCA SUBR ENTRY/EXIT
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03270 M02S00301.ns2394 ---| RJM STA SET FWA OF TERMINAL TABLE
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03271 M02S00302.ns2394 ---| ADK VDCT READ *VDCT*
| Line S00303 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03272 M02S00303.ns2394 ---| CRD CM
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03273 M02S00304.ns2394 ---| LDN 40 SET CANCEL AUTO LINE
| Line S00305 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03274 M02S00305.ns2394 ---| RAD CM
| Line S00306 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03275 M02S00306.ns2394 ---| RJM STA REWRITE *VDCT*
| Line S00307 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03276 M02S00307.ns2394 ---| ADK VDCT
| Line S00308 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03277 M02S00308.ns2394 ---| CWD CM
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2394 |
Seq # *Modification Id* Act ----------------------------+ 03278 M02S00309.ns2394 ---| UJN SCAX RETURN 03279 M01S02852.1tm +++| WIC SPACE 4,25 03280 M01S02853.1tm +++|** WIC - WRITE INPUT CHARACTER. 03281 M01S02854.1tm +++|* 03282 M01S02855.1tm +++|* ENTRY (T7) = CHARACTER. 03283 M01S02856.1tm +++|* (CH) = UPPER CHARACTER IF LOWER CHARACTER IS 03284 M01S02857.1tm +++|* TO BE STORED. 03285 M01S02858.1tm +++|* IF (T7) = 0, AND UPPER CHARACTER IS TO BE PROCESSED, 03286 M01S02859.1tm +++|* END OF LINE IS ASSUMED. IN ORDER TO PREVENT 03287 M01S02860.1tm +++|* CONFUSION BETWEEN THE DISPLAY CODE COLON *00* AND 03288 M01S02861.1tm +++|* END OF LINE, A *00* COLON IS PASSED TO *WIC* AS A 03289 M01S02862.1tm +++|* *200* CODE. 03290 M01S02863.1tm +++|* 03291 M01S02864.1tm +++|* EXIT TO *NIP* IF NO INPUT POT. 03292 M01S02865.1tm +++|* 03293 M01S02866.1tm +++|* USES T0 - T5. 03294 M01S02867.1tm +++|* 03295 M01S02868.1tm +++|* CALLS ERQ, RLT, SWA. 03296 M01S02869.1tm +++|* 03297 M01S02870.1tm +++|* MACROS RETURN. 03298 M01S02871.1tm +++| 03299 M01S02872.1tm +++| 03300 M01S02873.1tm +++| WIC6 LPN 7 SET CURRENT BYTE 03301 M01S02874.1tm +++| STD T5 03302 M01S02875.1tm +++| NJN WIC7 IF NOT START OF NEW WORD 03303 M01S02876.1tm +++| LDN ZERL 03304 M01S02877.1tm +++| UJN WIC8 03305 M01S02878.1tm +++| 03306 M01S02879.1tm +++| WIC7 RJM SWA SET CURRENT WORD ADDRESS 03307 M01S02880.1tm +++| WIC8 CRD T0 03308 M01S02881.1tm +++| LDD T7 MERGE UPPER AND LOWER CHARACTERS 03309 M01S02882.1tm +++| LPN 77 MASK FOR COLON 03310 M01S02883.1tm +++| LMD CH 03311 M01S02884.1tm +++| STI T5 STORE BYTE 03312 M01S02885.1tm +++| RJM SWA WRITE WORD TO CM POT 03313 M01S02886.1tm +++| CWD T0 03314 M01S02887.1tm +++| LDI T5 03315 M01S02888.1tm +++| ADD T7 03316 M01S02889.1tm +++| ZJN WIC2 IF END OF LINE 03317 M01S02890.1tm +++| AOD DP+2 ADVANCE CHARACTER 03318 M01S02891.1tm +++| LPN 17 03319 M01S02892.1tm +++| LMN 12 03320 M01S02893.1tm +++| ZJN WIC2 IF END OF WORD 03321 M01S02894.1tm +++|* UJN WICX RETURN 03322 M01S02895.1tm +++| 03323 M01S02896.1tm +++|* WIC - ENTRY/EXIT. 03324 M01S02897.1tm +++| 03325 M01S02898.1tm +++| WIC SUBR ENTRY/EXIT 03326 M01S02899.1tm +++| WIC1 LDD DP+2 CHECK CHARACTER NUMBER 03327 M01S02900.1tm +++| SHN 21 03328 M01S02901.1tm +++| MJN WIC6 IF LOWER 03329 M01S02902.1tm +++| 03330 M01S02903.1tm +++|* PROCESS UPPER CHARACTER. 03331 M01S02904.1tm +++| 03332 M01S02905.1tm +++| AOD DP+2 ADVANCE CHARACTER POINTER 03333 M01S02906.1tm +++| LDD T7 CHECK CHARACTER 03334 M01S02907.1tm +++| SHN 6 STORE UPPER CHARACTER 03335 M01S02908.1tm +++| STD CH 03336 M01S02909.1tm +++| NJN WICX IF NOT END OF LINE 03337 M01S02910.1tm +++| UJN WIC1 FORCE END OF LINE 03338 M01S02911.1tm +++| 03339 M01S02912.1tm +++|* PROCESS END OF WORD. 03340 M01S02913.1tm +++| 03341 M01S02914.1tm +++| WIC2 LDD DP+2 CHECK WORD NUMBER 03342 M01S02915.1tm +++| SHN -4 03343 M01S02916.1tm +++| LPN 7 03344 M01S02917.1tm +++| LMN 7 03345 M01S02918.1tm +++| ZJN WIC4 IF END OF POT 03346 M01S02919.1tm +++| LDD DP+2 ADVANCE WORD NUMBER, RESET CHARACTER 03347 M01S02920.1tm +++| SCN 17 03348 M01S02921.1tm +++| ADN 20 03349 M01S02922.1tm +++| STD DP+2 03350 M01S02923.1tm +++| SHN -4 CHECK WORD NUMBER 03351 M01S02924.1tm +++| LPN 17 03352 M01S02925.1tm +++| SBN 5 03353 M01S02926.1tm +++| MJN WICX RETURN IF WORD 5 NOT REACHED 03354 M01S02927.1tm +++| SBN 3 03355 M01S02928.1tm +++| PJN WICX RETURN IF POT REQUESTED 03356 M01S02929.1tm +++| LDC 200 SET *POT REQUESTED* 03357 M01S02930.1tm +++| RAD DP+2 03358 M01S02931.1tm +++| RJM RLT READ NEXT POT LINK 03359 M01S02932.1tm +++| NJN WIC3 IF POT LINKED 03360 M01S02933.1tm +++| LDD DP+1 SET CURRENT POT 03361 M01S02934.1tm +++| STD RQ+3 03362 M01S02935.1tm +++| LDN /TLX/LPT REQUEST POT 03363 M01S02936.1tm +++| RJM ERQ 03364 M01S02937.1tm +++| WIC3 JMP WICX RETURN 03365 M01S02938.1tm +++| 03366 M01S02939.1tm +++|* PROCESS END OF POT. 03367 M01S02940.1tm +++| 03368 M01S02941.1tm +++| WIC4 LDD DP+2 RESET WORD AND CHARACTER 03369 M01S02942.1tm +++| LPC 7400
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1tm.001.txt · Last modified: by 127.0.0.1