Seq # *Modification Id* Act
----------------------------+
03425 M00S02998.1tm +++|* (DP+2), CURRENT WORD = FIRST WORD OF OUTPUT.
03426 M00S02999.1tm +++|* (DP+3) *BINARY TRANSMISSION* STATUS
03427 M00S03000.1tm +++|* (CH+2) = ESCAPE CONTROL.
03428 M00S03001.1tm +++|*
03429 M00S03002.1tm +++|* EXIT TO *AWT* FOR *ASCII* FORMAT WRITE.
03430 M00S03003.1tm +++|* TO *BWT* FOR NOS *BINARY* FORMAT WRITE.
03431 M00S03004.1tm +++|*
03432 M00S03005.1tm +++|* CALLS ERQ, RLT.
03433 M00S03006.1tm +++|
03434 M00S03007.1tm +++|
03435 M00S03008.1tm +++| WTM BSS 0 ENTRY
03436 M00S03009.1tm +++| RJM RLT CHECK POT LINK
03437 M00S03010.1tm +++| NJN WTM1 IF POT LINKED
03438 M00S03011.1tm +++| LDN /TLX/RES REQUEST MORE OUTPUT
03439 M00S03012.1tm +++| RJM ERQ
03440 M00S03013.1tm +++| WTM1 LDD DP+3 CHECK *BINARY TRANSMISSION*
03441 M00S03014.1tm +++| LPN 10
03442 M00S03015.1tm +++| ZJN AWT IF *ASCII* WRITE
03443 M00S03016.1tm +++| LJM BWT ENTER *BINARY* WRITE
03444 M00S03017.1tm +++| AWT TITLE WRITE MODE - *ASCII* WRITE PROCESSOR.
03445 M00S03018.1tm +++| AWT SPACE 4,50
03446 M00S03019.1tm +++|** AWT - *ASCII* WRITE PROCESSOR.
03447 M00S03020.1tm +++|*
03448 M00S03021.1tm +++|* ISSUES *ASCII* CHARACTER DATA TO TERMINAL.
03449 M00S03022.1tm +++|*
03450 M00S03023.1tm +++|* ENTRY (CH+2) = ESCAPE CONTROL.
03451 M00S03024.1tm +++|*
03452 M00S03025.1tm +++|* EXIT (CH+2) = ESCAPE CONTROL UPDATED.
03453 M00S03026.1tm +++|*
03454 M00S03027.1tm +++|* ESCAPE CONTROL -
03455 M00S03028.1tm +++|*
03456 M00S03029.1tm +++|* 4XXX = VALID CHARACTER POINTER XXX.
03457 M00S03030.1tm +++|* 0100 = ESCAPE 1.
03458 M00S03031.1tm +++|* 0200 = ESCAPE 2.
03459 M00S03032.1tm +++|* 0300 = *00* (POSSIBLE EOL) BYTE HAS BEEN
03460 M00S03033.1tm +++|* DETECTED. THIS SITUATION WILL OCCUR
03461 M00S03034.1tm +++|* WHEN THE LOWER CHARACTER OF AN
03462 M00S03035.1tm +++|* OUTPUT BYTE IS FOUND TO BE ZERO.
03463 M00S03036.1tm +++|* AT THIS POINT, FURTHER TESTING MUST
03464 M00S03037.1tm +++|* BE DONE TO DETERMINE WHETHER OR NOT
03465 M00S03038.1tm +++|* THIS ZERO CHARACTER IS PART OF
03466 M00S03039.1tm +++|* AN END OF LINE OR IS FOLLOWED BY
03467 M00S03040.1tm +++|* DATA. THIS LATTER CONDITION IS A
03468 M00S03041.1tm +++|* FALSE END OF LINE AND THE ZERO
03469 M00S03042.1tm +++|* CHARACTER MUST BE PROCESSED AS A
03470 M00S03043.1tm +++|* COLON.
03471 M00S03044.1tm +++|* 04XX = FALSE EOL HAS BEEN DETECTED.
03472 M00S03045.1tm +++|* XX = NEXT OUTPUT CHARACTER.
03473 M00S03046.1tm +++|* 05XX = SUSPENDED CONTROL PROCESSING. THIS
03474 M00S03047.1tm +++|* SITUATION OCCURS WHEN A CONTROL
03475 M00S03048.1tm +++|* CHARACTER PROCESSOR IS UNABLE TO
03476 M00S03049.1tm +++|* TO DETERMINE WHETHER OR NOT A
03477 M00S03050.1tm +++|* SUSPECTED CONTROL CHARACTER IS
03478 M00S03051.1tm +++|* FOLLOWED BY AN END OF LINE.
03479 M00S03052.1tm +++|* THIS WILL OCCUR WHEN THERE IS
03480 M00S03053.1tm +++|* NO FURTHER DATA IN THE CURRENT
03481 M00S03054.1tm +++|* OUTPUT POTS AND THE DRIVER MUST
03482 M00S03055.1tm +++|* WAIT FOR FURTHER OUTPUT TO BE
03483 M00S03056.1tm +++|* ASSIGNED.
03484 M00S03057.1tm +++|
03485 M00S03058.1tm +++|
03486 M00S03059.1tm +++| AWT BSS 0 ENTRY
03487 M00S03060.1tm +++| RETURN * REENTER
03488 M00S03061.1tm +++|
03489 M00S03062.1tm +++|* CHECK ESCAPE CONTROL.
03490 M00S03063.1tm +++|
03491 M00S03064.1tm +++| LDD CH+2 GET ESCAPE CONTROL
03492 M00S03065.1tm +++| SHN -6
03493 M00S03066.1tm +++| ZJN AWT1 IF NULL
03494 M00S03067.1tm +++| STD T1
03495 M00S03068.1tm +++| SBN TECPL TEST FOR VALID DATA BIT
03496 M00S03069.1tm +++| PJN AWT1 IF VALID DATA SET
03497 M00S03070.1tm +++| LDM TECP-1,T1 SET PROCESSOR ADDRESS
03498 M00S03071.1tm +++| STD T2
03499 M00S03072.1tm +++| LDD CH+2 SAVE LOWER SIX BITS
03500 M00S03073.1tm +++| LPN 77
03501 M00S03074.1tm +++| STD T7
03502 M00S03075.1tm +++| LJM 0,T2 PROCESS ESCAPE CONTROL
03503 M00S03076.1tm +++|
03504 M00S03077.1tm +++|* GET NEXT OUTPUT CHARACTER.
03505 M00S03078.1tm +++|
03506 M00S03079.1tm +++| AWT1 RJM ROC GET NEXT CHARACTER
03507 M00S03080.1tm +++| PJN AWT3 IF NOT CONTROL BYTE
03508 M00S03081.1tm +++| AWT2 LJM SOC PROCESS CONTROL BYTE
03509 M00S03082.1tm +++|
03510 M00S03083.1tm +++| AWT3 NJN AWT4 IF NON-ZERO
03511 M00S03084.1tm +++| LJM AWT11 CHECK POSSIBLE END OF LINE
03512 M00S03085.1tm +++|
03513 M00S03086.1tm +++|* CHECK OUTPUT CHARACTER.
03514 M00S03087.1tm +++|
03515 M00S03088.1tm +++| AWT4 SBN 74 CHECK FOR ESCAPE CHARACTER
03516 M00S03089.1tm +++| MJN AWT7 IF NOT ESCAPE 1 OR 2
03517 M00S03090.1tm +++| ZJN AWT5 IF ESCAPE 2
03518 M00S03091.1tm +++| SBN 76-74
03519 M00S03092.1tm +++| NJN AWT7 IF NOT ESCAPE 1
03520 M00S03093.1tm +++| LCN 1
03521 M00S03094.1tm +++|
03522 M00S03095.1tm +++|* PROCESS ESCAPE CHARACTER.
03523 M00S03096.1tm +++|
03524 M00S03097.1tm +++| AWT5 ADN 2 SET ESCAPE CHARACTER BIAS
03525 M00S03098.1tm +++| SHN 6
03526 M00S03099.1tm +++| STD CH+2
| Line S03100 Modification History |
M01 (Removed by) | ns2409 |
Seq # *Modification Id* Act
----------------------------+
03527 M01S03100.ns2409 ---| LDD DP+3 CHECK TERMINAL MODE
03528 M01S03101.ns2409 ---| LPN 2
| Line S00001 Modification History |
M01 (Added by) | ns2409 |
M02 (Removed by) | ns2409b |
Seq # *Modification Id* Act
----------------------------+
03529 M02S00001.ns2409b ---| LDD DC CHECK TERMINAL MODE
03530 M02S00002.ns2409b ---| LPN 10
| Line S00014 Modification History |
M01 (Added by) | ns2409b |
Seq # *Modification Id* Act
----------------------------+
03531 M01S00014.ns2409b +++| LDD DP+3
03532 M01S00015.ns2409b +++| LPN 2
03533 M00S03102.1tm +++| ZJN AWT7 IF NOT EXTENDED MODE
03534 M00S03103.1tm +++| AWT6 RJM ROC GET NEXT OUTPUT CHARACTER
03535 M00S03104.1tm +++| MJN AWT2 IF CONTROL BYTE
03536 M00S03105.1tm +++| ADD CH+2 ADD ESCAPE CHARACTER BIAS
03537 M00S03106.1tm +++| STD T7
03538 M00S03107.1tm +++| ADC -214
03539 M00S03108.1tm +++| MJN AWT7 IF LEGAL CHARACTER
03540 M00S03109.1tm +++| LDN 0 IGNORE INVALID CHARACTER
03541 M00S03110.1tm +++| STD CH+2
03542 M00S03111.1tm +++| LJM AWT LOOP FOR NEXT CHARACTER
03543 M00S03112.1tm +++|
03544 M00S03113.1tm +++|* CLEAR ESCAPE CONTROL.
03545 M00S03114.1tm +++|*
03546 M00S03115.1tm +++|* (T7) = OUTPUT CHARACTER PLUS ESCAPE BIAS.
03547 M00S03116.1tm +++|
03548 M00S03117.1tm +++| AWT7 LDN 0 CLEAR ESCAPE CONTROL
03549 M00S03118.1tm +++| STD CH+2
03550 M00S03119.1tm +++|
03551 M00S03120.1tm +++|* TRANSLATE AND ISSUE OUTPUT CHARACTER.
03552 M00S03121.1tm +++|*
03553 M00S03122.1tm +++|* (T7) = OUTPUT CHARACTER PLUS ESCAPE BIAS.
03554 M00S03123.1tm +++|
03555 M00S03124.1tm +++| AWT8 RJM TOC TRANSLATE OUTPUT CHARACTER
03556 M00S03125.1tm +++| SHN 6
03557 M00S03126.1tm +++| PJN AWT10 IF SPECIAL PROCESSING REQUIRED
03558 M00S03127.1tm +++| AOD CH+1 ADVANCE CHARACTER COUNT/LINE
03559 M00S03128.1tm +++| AOD CH+4 ADVANCE OUTPUT CHARACTER COUNT
03560 M00S03129.1tm +++| SHN -14
03561 M00S03130.1tm +++| ZJN AWT9 IF NO OVERFLOW (4096 CHARACTERS)
03562 M00S03131.1tm +++| LDN /TLX/IAM REQUEST ISSUE ACCOUNTING MESSAGE
03563 M00S03132.1tm +++| RJM ERQ
03564 M00S03133.1tm +++|
03565 M00S03134.1tm +++|* ISSUE TRANSLATED CHARACTER TO OUTPUT.
03566 M00S03135.1tm +++|
03567 M00S03136.1tm +++| AWT9 LDD T7 GET TRANSLATED CHARACTER
03568 M00S03137.1tm +++| STD DO ISSUE CHARACTER TO OUTPUT
03569 M00S03138.1tm +++| LJM AWT LOOP FOR NEXT CHARACTER
03570 M00S03139.1tm +++|
03571 M00S03140.1tm +++|* PERFORM SPECIAL PROCESSING.
03572 M00S03141.1tm +++|
03573 M00S03142.1tm +++| AWT10 SHN -6 SET SPECIAL PROCESSOR INDEX
03574 M00S03143.1tm +++| STD T1
03575 M00S03144.1tm +++| LDM TWSP,T1 GET CHARACTER PROCESSOR ADDRESS
03576 M00S03145.1tm +++| LJM MGR= ENTER CHARACTER PROCESSOR
03577 M00S03146.1tm +++|
03578 M00S03147.1tm +++|* PROCESS POSSIBLE END OF LINE.
03579 M00S03148.1tm +++|
03580 M00S03149.1tm +++| AWT11 LDC 300 SET OUTPUT CONTROL
03581 M00S03150.1tm +++| STD CH+2
03582 M00S03151.1tm +++| AWT12 RJM ROC GET NEXT CHARACTER
03583 M00S03152.1tm +++| PJN AWT15 IF NOT CONTROL BYTE
03584 M00S03153.1tm +++| LJM SOC
03585 M00S03154.1tm +++|
03586 M00S03155.1tm +++|* ENTRY FROM CONTROL CHARACTER PROCESSORS.
03587 M00S03156.1tm +++|*
03588 M00S03157.1tm +++|* (A) = FALSE CONTROL BYTE VALUE.
03589 M00S03158.1tm +++|
03590 M00S03159.1tm +++| AWT13 STD CM SAVE FALSE CONTROL BYTE
03591 M00S03160.1tm +++| LDD CH+2 CHECK OUTPUT CONTROL
03592 M00S03161.1tm +++| LMC 300
03593 M00S03162.1tm +++| NJN AWT14 IF NOT SUSPENDED COLON
03594 M00S03163.1tm +++| STD CM
03595 M00S03164.1tm +++| SOD DP+2 BACK UP CHARACTER
03596 M00S03165.1tm +++| AWT14 LDD CM
03597 M00S03166.1tm +++| AWT15 ADC 400 SET ESCAPE CONTROL
03598 M00S03167.1tm +++| STD CH+2
03599 M00S03168.1tm +++| LDN 00 SET COLON
03600 M00S03169.1tm +++| STD T7
03601 M00S03170.1tm +++| LJM AWT8 TRANSLATE AND ISSUE CHARACTER
03602 M00S03171.1tm +++| TECP SPACE 4,10
03603 M00S03172.1tm +++|** TECP - TABLE OF ESCAPE CONTROL PROCESSORS.
03604 M00S03173.1tm +++|
03605 M00S03174.1tm +++|
03606 M00S03175.1tm +++| TECP BSS 0
03607 M00S03176.1tm +++| LOC 1
03608 M00S03177.1tm +++|
03609 M00S03178.1tm +++| CON AWT6 *0100* - ESCAPE 1.
03610 M00S03179.1tm +++| CON AWT6 *0200* - ESCAPE 2.
03611 M00S03180.1tm +++| CON AWT12 *0300* - POSSIBLE *EOL*.
03612 M00S03181.1tm +++| CON AWT4 *04XX* - FALSE *EOL*.
03613 M00S03182.1tm +++| CON SOC1 *05XX* - SUSPENDED OUTPUT CONTROL.
03614 M00S03183.1tm +++|
03615 M00S03184.1tm +++| TECPL BSS 0
03616 M00S03185.1tm +++| LOC *O
03617 M00S03186.1tm +++| TWSP SPACE 4,10
03618 M00S03187.1tm +++|** TWSP - TABLE OF SPECIAL WRITE PROCESSORS.
03619 M00S03188.1tm +++|
03620 M00S03189.1tm +++|
03621 M00S03190.1tm +++| TWSP BSS 0
03622 M00S03191.1tm +++| QUAL TRN
03623 M00S03192.1tm +++| LOC 0
03624 M00S03193.1tm +++|
03625 M00S03194.1tm +++| NLO CON /WTM/AWT NULL CHARACTER (IGNORED)
03626 M00S03195.1tm +++| ACR CON /WTM/ACR CARRIAGE RETURN
03627 M00S03196.1tm +++| ANL CON /WTM/ANL NEW LINE (CR/LF)
03628 M00S03197.1tm +++|
03629 M00S03198.1tm +++| LOC *O
03630 M00S03199.1tm +++| NOREF NLO
03631 M00S03200.1tm +++| QUAL *
03632 M00S03201.1tm +++| BWT TITLE WRITE MODE - *BINARY* WRITE PROCESSOR.
03633 M00S03202.1tm +++| BWT SPACE 4,15
03634 M00S03203.1tm +++|** BWT - BINARY WRITE.
03635 M00S03204.1tm +++|*
03636 M00S03205.1tm +++|* WRITES NOS *BINARY* MODE DATA TO TERMINAL.
03637 M00S03206.1tm +++|*
03638 M00S03207.1tm +++|* CALLS ROC, ERQ.
03639 M00S03208.1tm +++|
03640 M00S03209.1tm +++|
03641 M00S03210.1tm +++| BWT BSS 0 ENTRY
03642 M00S03211.1tm +++| RETURN * REENTER
03643 M00S03212.1tm +++| RJM ROC READ OUTPUT CHARACTER
03644 M00S03213.1tm +++| MJP SOC IF CONTROL BYTE
03645 M00S03214.1tm +++| LDI T5 READ ENTIRE 12-BIT CHARACTER
03646 M00S03215.1tm +++| STD DO STORE OUTPUT
03647 M00S03216.1tm +++| SHN 21-13 CHECK FORMAT
03648 M00S03217.1tm +++| PJN BWT2 IF NOT BINARY FORMAT
03649 M00S03218.1tm +++| AOD DP+2 ADVANCE CHARACTER COUNT
03650 M00S03219.1tm +++| AOD CH+4
03651 M00S03220.1tm +++| SHN -14
03652 M00S03221.1tm +++| ZJN BWT1 IF NO OVERFLOW
03653 M00S03222.1tm +++| LDN /TLX/IAM ISSUE ACCOUNTING MESSAGE
03654 M00S03223.1tm +++| RJM ERQ
03655 M00S03224.1tm +++| BWT1 JMP MGR REENTER
03656 M00S03225.1tm +++|
03657 M00S03226.1tm +++|* TERMINATE BINARY MODE OUTPUT.
03658 M00S03227.1tm +++|
03659 M00S03228.1tm +++| BWT2 LCN 10 CLEAR BINARY MODE BIT
03660 M00S03229.1tm +++| RAD DP+3
03661 M00S03230.1tm +++| SOD DP+2 RESET CHARACTER POSITION
03662 M00S03231.1tm +++| LDN 0 CLEAR ESCAPE CONTROL
03663 M00S03232.1tm +++| STD CH+2
03664 M00S03233.1tm +++| LDN 1 SET CHARACTER COUNT NON-ZERO
03665 M00S03234.1tm +++| STD CH+1
03666 M00S03235.1tm +++| JMP AWT ENTER *ASCII* WRITE
03667 M00S03236.1tm +++| WTM TITLE WRITE MODE - MAIN ROUTINES.
03668 M00S03237.1tm +++| ISN SPACE 4,15
03669 M00S03238.1tm +++|** ISN - ISSUE ASCII *NUL* CHARACTERS.
03670 M00S03239.1tm +++|*
03671 M00S03240.1tm +++|* ENTRY (A) = DEFAULT REPEAT COUNT.
03672 M00S03241.1tm +++|*
03673 M00S03242.1tm +++|* EXIT TO *AWT* TO CONTINUE WRITE OPERATION.
03674 M00S03243.1tm +++|*
03675 M00S03244.1tm +++|* CALLS DDC, SRC.
03676 M00S03245.1tm +++|
03677 M00S03246.1tm +++|
03678 M00S03247.1tm +++| ISN BSS 0 ENTRY
03679 M00S03248.1tm +++| RJM DDC DETERMINE DELAY COUNT
03680 M00S03249.1tm +++| SHN 14
03681 M00S03250.1tm +++| ADK .CNUL SET *NUL* CHARACTER
03682 M00S03251.1tm +++| LMD PY TOGGLE ODD PARITY
03683 M00S03252.1tm +++| RJM SRC SEND REPEATED CHARACTER
03684 M00S03253.1tm +++| JMP AWT CONTINUE WRITE
03685 M00S03254.1tm +++| SOC SPACE 4,15
03686 M00S03255.1tm +++|** SOC - SET OUTPUT CONTROL.
03687 M00S03256.1tm +++|*
03688 M00S03257.1tm +++|* ENTRY (A) = OUTPUT CONTROL BYTE SET BY *ROC*.
03689 M00S03258.1tm +++|* (T7) = LOWER 12 BITS OF *ROC* CONTROL BYTE.
03690 M00S03259.1tm +++|*
03691 M00S03260.1tm +++|* EXIT TO CONTROL BYTE PROCESSOR.
03692 M00S03261.1tm +++|*
03693 M00S03262.1tm +++|* CALLS ERQ, RLT.
03694 M00S03263.1tm +++|
03695 M00S03264.1tm +++|
03696 M00S03265.1tm +++| SOC4 RJM RLT CHECK POT LINK
03697 M00S03266.1tm +++| NJN SOC5 IF LINKED
03698 M00S03267.1tm +++| LDC /CTL/RWC1 SET REENTRY ADDRESS
03699 M00S03268.1tm +++| STD DP+4
03700 M00S03269.1tm +++| UJN SOC6
03701 M00S03270.1tm +++|
03702 M00S03271.1tm +++|* SET NEXT POT.
03703 M00S03272.1tm +++|
03704 M00S03273.1tm +++| SOC5 STD DP SET POT POINTER
03705 M00S03274.1tm +++| LDD DP+1 DROP CURRENT POT
03706 M00S03275.1tm +++| STD RQ+3
03707 M00S03276.1tm +++| LDN /TLX/DRP
03708 M00S03277.1tm +++| RJM ERQ
03709 M00S03278.1tm +++| LDD DP SET CURRENT POT
03710 M00S03279.1tm +++| STD DP+1
03711 M00S03280.1tm +++| RJM RLT CHECK THIS POT LINK
03712 M00S03281.1tm +++| NJN SOC7 IF POT LINKED
03713 M00S03282.1tm +++|
03714 M00S03283.1tm +++|* REQUEST ADDITIONAL OUTPUT.
03715 M00S03284.1tm +++|
03716 M00S03285.1tm +++| SOC6 LDN /TLX/RES REQUEST ADDITIONAL OUTPUT
03717 M00S03286.1tm +++| RJM ERQ
03718 M00S03287.1tm +++| SOC7 LDN 0 CLEAR LINE POSITION
03719 M00S03288.1tm +++| STD DP+2
03720 M00S03289.1tm +++| STD DO CLEAR OUTPUT
03721 M00S03290.1tm +++| JMP MGR EXIT
03722 M00S03291.1tm +++|
03723 M00S03292.1tm +++|
03724 M00S03293.1tm +++|* SOC - ENTRY.
03725 M00S03294.1tm +++|
03726 M00S03295.1tm +++| SOC BSS 0 ENTRY
03727 M00S03296.1tm +++| SHN 21-20 CHECK BIT 20
03728 M00S03297.1tm +++| MJN SOC4 IF SET, THEN END OF POT
03729 M00S03298.1tm +++| AOD DP+2 ADVANCE CHARACTER POINTER
03730 M00S03299.1tm +++|
03731 M00S03300.1tm +++|* CHECK CONTROL BYTE.
03732 M00S03301.1tm +++|
03733 M00S03302.1tm +++| SOC1 LDD T7 CHECK CONTROL BYTE
03734 M00S03303.1tm +++| ZJN SOC3 IF END OF LINE
03735 M00S03304.1tm +++| LMN 2R"IB"
03736 M00S03305.1tm +++| ZJN SOC2 IF INTERNAL END OF BLOCK
03737 M00S03306.1tm +++| LDD DP+3 CHECK MODE
03738 M00S03307.1tm +++| SHN 21-3
03739 M00S03308.1tm +++| PJN SOC2 IF NOT BINARY
03740 M00S03309.1tm +++| SOD DP+2 TERMINATE BINARY MODE
03741 M00S03310.1tm +++| LJM BWT2
03742 M00S03311.1tm +++|
03743 M00S03312.1tm +++|* EXIT TO CONTROL BYTE PROCESSOR.
03744 M00S03313.1tm +++|
03745 M00S03314.1tm +++| SOC2 LDN /TLX/RES REQUEST ADDITIONAL OUTPUT
03746 M00S03315.1tm +++| RJM ERQ
03747 M00S03316.1tm +++| SOC3 LDM TSOC,T7 SET REENTRY ADDRESS
03748 M00S03317.1tm +++| LJM MGR= REENTER
03749 M00S03318.1tm +++| TTM SPACE 4,25
03750 M00S03319.1tm +++|** TTM - ISSUE TERMINAL MESSAGE.
03751 M00S03320.1tm +++|*
03752 M00S03321.1tm +++|* ISSUES MESSAGE TO TERMINAL.
03753 M00S03322.1tm +++|*
03754 M00S03323.1tm +++|* ENTRY (A) = ADDRESS OF FORMATTED MESSAGE.
03755 M00S03324.1tm +++|*
03756 M00S03325.1tm +++|* EXIT (CM+2) = 0.
03757 M00S03326.1tm +++|* (OMCC) = 0.
03758 M00S03327.1tm +++|* TO *RDM* AFTER MESSAGE IS COMPLETE IF THERE
03759 M00S03328.1tm +++|* ARE INPUT POTS AVAILABLE -
03760 M00S03329.1tm +++|* (DP+1) = CURRENT POT RESET TO START OF LINE.
03761 M00S03330.1tm +++|* (DP+2) = CURRENT WORD RESET TO START OF LINE.
03762 M00S03331.1tm +++|* TO *RWC* AFTER MESSAGE IS COMPLETE IF THERE
03763 M00S03332.1tm +++|* IS NO INPUT POT AVAILABLE.
03764 M00S03333.1tm +++|*
03765 M00S03334.1tm +++|* USES (DP+1) = MESSAGE ADDRESS POINTER.
03766 M00S03335.1tm +++|* (DP+2) = MESSAGE BYTE POINTER.
03767 M00S03336.1tm +++|*
03768 M00S03337.1tm +++|* CALLS SEM.
03769 M00S03338.1tm +++|*
03770 M00S03339.1tm +++|* MACROS RETURN.
03771 M00S03340.1tm +++|
03772 M00S03341.1tm +++|
03773 M00S03342.1tm +++| TTM BSS 0 ENTRY
03774 M00S03343.1tm +++| ADC 7700 SET MESSAGE PSEUDO-POT-POINTER
03775 M00S03344.1tm +++| STD DP+1
03776 M00S03345.1tm +++| LDD DP+2 CLEAR BYTE POINTER
03777 M00S03346.1tm +++| LPC 7600
03778 M00S03347.1tm +++| STD DP+2
03779 M00S03348.1tm +++| LDN 0 CLEAR OUTPUT CONTROL
03780 M00S03349.1tm +++| STD CH+2
03781 M00S03350.1tm +++| STM OMCC CLEAR OPERATOR MESSAGE
03782 M00S03351.1tm +++| RJM SEM SET EXTENDED MODE
03783 M00S03352.1tm +++| RETURN AWT ENTER WRITE MODE
03784 M00S03353.1tm +++|
03785 M00S03354.1tm +++|
03786 M00S03355.1tm +++|* ENTERED HERE FROM SUBROUTINE *ROC* TO EXTRACT NEXT
03787 M00S03356.1tm +++|* MESSAGE CHARACTER TO BE RETURNED TO WRITE PROCESSOR.
03788 M00S03357.1tm +++|
03789 M00S03358.1tm +++| TTM1 LDM TTMA-7700,DP+1 GET NEXT CHARACTER
03790 M00S03359.1tm +++| STD T7
03791 M00S03360.1tm +++| LDD DP+2 TOGGLE BYTE INDEX
03792 M00S03361.1tm +++| LMN 1
03793 M00S03362.1tm +++| STD DP+2
03794 M00S03363.1tm +++| LPN 1
03795 M00S03364.1tm +++| NJN TTM2 IF UPPER CHARACTER
03796 M00S03365.1tm +++| AOD DP+1 INCREMENT MESSAGE ADDRESS
03797 M00S03366.1tm +++| LDD T7
03798 M00S03367.1tm +++| LPN 77 EXTRACT LOWER CHARACTER
03799 M00S03368.1tm +++| UJN TTM3
03800 M00S03369.1tm +++|
03801 M00S03370.1tm +++| TTM2 LDD T7 EXTRACT UPPER CHARACTER
03802 M00S03371.1tm +++| SHN -6
03803 M00S03372.1tm +++| TTM3 STD T7 SET CHARACTER
03804 M00S03373.1tm +++| ZJN TTM5 IF END OF MESSAGE
03805 M00S03374.1tm +++| SOD CH+4 PREVENT CHARACTER COUNT ON MESSAGE
03806 M00S03375.1tm +++| LDD T7
03807 M00S03376.1tm +++| LJM ROCX ISSUE CHARACTER
03808 M00S03377.1tm +++|
03809 M00S03378.1tm +++|* RESET LINE POINTERS AND EXIT.
03810 M00S03379.1tm +++|
03811 M00S03380.1tm +++| TTM5 LDD DP+2 RESET CURRENT WORD
03812 M00S03381.1tm +++| SHN -5
03813 M00S03382.1tm +++| LMD DP+2
03814 M00S03383.1tm +++| SCN 17
03815 M00S03384.1tm +++| STD DP+2
03816 M00S03385.1tm +++| LDD DP RESET CURRENT POT
03817 M00S03386.1tm +++| STD DP+1
03818 M00S03387.1tm +++| ZJN TTM6 IF NO INPUT POT
03819 M00S03388.1tm +++| RJM CEM CLEAR EXTENDED MODE
03820 M00S03389.1tm +++| LJM RDM RE-ENTER READ MODE
03821 M00S03390.1tm +++|
03822 M00S03391.1tm +++| TTM6 LDN /TLX/RES RESTART JOB
03823 M00S03392.1tm +++| RJM ERQ
03824 M00S03393.1tm +++| JMP RWC ENTER READ/WRITE CONTROL
03825 M00S03394.1tm +++|
03826 M00S03395.1tm +++|
03827 M00S03396.1tm +++|** TABLE OF TERMINAL MESSAGES.
03828 M00S03397.1tm +++|
03829 M00S03398.1tm +++| TTMA BSS 0
03830 M00S03399.1tm +++| LOC 0
03831 M00S03400.1tm +++|
03832 M00S03401.1tm +++| DELM DATA Z+ *DEL*"NL"+
03833 M00S03402.1tm +++| LOFM DATA Z+"NL" *OVL*"NL"+
03834 M00S03403.1tm +++| MBSY DATA Z+"NL" *CONSOLE BUSY*"NL"+
03835 M00S03404.1tm +++| RDYM DATA Z+"NL" *READY*"NL"+
03836 M00S03405.1tm +++| RILM DATA Z+"NL" *RE-ENTER LAST LINE*"NL"+
03837 M00S03406.1tm +++|
03838 M00S03407.1tm +++| LOC *O
03839 M00S03408.1tm +++| TITLE WRITE MODE - OUTPUT CONTROL BYTE PROCESSORS.
03840 M00S03409.1tm +++| TSOC SPACE 4,10
03841 M00S03410.1tm +++|** TSOC - TABLE OF OUTPUT CONTROL BYTE PROCESSORS.
03842 M00S03411.1tm +++|* INDEXED BY CONTROL CODE.
03843 M00S03412.1tm +++|
03844 M00S03413.1tm +++|
03845 M00S03414.1tm +++| TSOC BSS 0
03846 M00S03415.1tm +++| LOC 0
03847 M00S03416.1tm +++|
03848 M00S03417.1tm +++| CON EOL END OF LINE
03849 M00S03418.1tm +++| CON EOB END OF BLOCK
03850 M00S03419.1tm +++| CON ECB END OF CORRESPONDENCE BLOCK
03851 M00S03420.1tm +++| CON ATI AUTO INPUT
03852 M00S03421.1tm +++| CON LOF LOG OFF USER
03853 M00S03422.1tm +++| CON TPI TRANSPARENT INPUT
03854 M00S03423.1tm +++| CON BNI BINARY INPUT
03855 M00S03424.1tm +++| CON BNO BEGIN BINARY OUTPUT
03856 M00S03425.1tm +++| CON EOL UNUSED - TREAT AS END OF LINE
03857 M00S03426.1tm +++| CON BEO BEGIN EXTENDED OUTPUT
03858 M00S03427.1tm +++| CON EOL UNUSED - TREAT AS END OF LINE
03859 M00S03428.1tm +++| CON EOS END OF STRING
03860 M00S03429.1tm +++| CON IEB INTERNAL END OF BLOCK
03861 M00S03430.1tm +++| CON ETI EXECUTIVE AUTO MODE INPUT
03862 M00S03431.1tm +++|
03863 M00S03432.1tm +++| TSOCL BSS 0
03864 M00S03433.1tm +++| LOC *O
03865 M00S03434.1tm +++| EOL SPACE 4,15
03866 M00S03435.1tm +++|*** 0000 END OF OUTPUT LINE.
03867 M00S03436.1tm +++|*
03868 M00S03437.1tm +++|* THIS CONTROL BYTE CAUSES THE TERMINAL TO BE POSITIONED TO
03869 M00S03438.1tm +++|* THE BEGINNING OF THE NEXT LINE. THE REMAINDER OF THE WORD
03870 M00S03439.1tm +++|* IN WHICH THE *END OF LINE* OCCURS IS DISCARDED.
03871 M00S03440.1tm +++|*
03872 M00S03441.1tm +++|* EXIT (CH+1) = 0.
03873 M00S03442.1tm +++|* (CH+2) = 0.
03874 M00S03443.1tm +++|* TO *ANL* IF IN *ASCII* MODE.
03875 M00S03444.1tm +++|* TO *AWT* IF IN BINARY MODE.
03876 M00S03445.1tm +++|*
03877 M00S03446.1tm +++|* CALLS CEM.
03878 M00S03447.1tm +++|
03879 M00S03448.1tm +++|
03880 M00S03449.1tm +++| EOL BSS 0 ENTRY
03881 M00S03450.1tm +++| LDN 0 CLEAR LINE CHARACTER COUNT
03882 M00S03451.1tm +++| STD CH+1
03883 M00S03452.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL
03884 M00S03453.1tm +++| LDD DP+2 CLEAR WORD AND CHARACTER POINTERS
03885 M00S03454.1tm +++| SCN 17
03886 M00S03455.1tm +++| LMN 12
03887 M00S03456.1tm +++| STD DP+2
03888 M00S03457.1tm +++| LDD DP+3 CHECK FOR BINARY MODE
03889 M00S03458.1tm +++| LPN 10
03890 M00S03459.1tm +++| NJN EOL1 IF BINARY MODE
03891 M00S03460.1tm +++| RJM CEM CLEAR/RESET EXTENDED MODE
03892 M00S03461.1tm +++| JMP ANL ISSUE *NEW LINE*
03893 M00S03462.1tm +++|
03894 M00S03463.1tm +++| EOL1 LMD DP+3 CLEAR BINARY MODE
03895 M00S03464.1tm +++| STD DP+3
03896 M00S03465.1tm +++| JMP AWT CONTINUE OUTPUT
03897 M00S03466.1tm +++| EOB SPACE 4,20
03898 M00S03467.1tm +++|*** 0001 END OF OUTPUT BLOCK.
03899 M00S03468.1tm +++|*
03900 M00S03469.1tm +++|* THIS CONTROL BYTE IS USED TO TERMINATE OUTPUT BEFORE
03901 M00S03470.1tm +++|* THE END OF POT IS REACHED. THE REMAINDER OF THE POT IS
03902 M00S03471.1tm +++|* DISCARDED AND THE TERMINAL IS NOT POSITIONED TO THE
03903 M00S03472.1tm +++|* START OF THE NEXT LINE.
03904 M00S03473.1tm +++|*
03905 M00S03474.1tm +++|* THIS CONTROL BYTE MUST BE FOLLOWED BY AN END-OF-LINE.
03906 M00S03475.1tm +++|*
03907 M00S03476.1tm +++|* EXIT TO *RWC* FOR NEXT OPERATION -
03908 M00S03477.1tm +++|* (DP+2) = 0.
03909 M00S03478.1tm +++|* (CH+1) = 0.
03910 M00S03479.1tm +++|* (CH+2) = 0.
03911 M00S03480.1tm +++|*
03912 M00S03481.1tm +++|* CALLS CLT.
03913 M00S03482.1tm +++|
03914 M00S03483.1tm +++|
03915 M00S03484.1tm +++| EOB BSS 0 ENTRY
03916 M00S03485.1tm +++| LDN 1RA
03917 M00S03486.1tm +++| RJM CLT CHECK FOR LINE TERMINATION
03918 M00S03487.1tm +++| EOB1 LDN 0 CLEAR CHARACTER POSITION
03919 M00S03488.1tm +++| STD DP+2
03920 M00S03489.1tm +++| STD CH+1 RESET CHARACTER COUNT
03921 M00S03490.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL
03922 M00S03491.1tm +++| JMP RWC
03923 M00S03492.1tm +++| ECB SPACE 4,20
03924 M00S03493.1tm +++|*** 0002 END OF CORRESPONDENCE BLOCK.
03925 M00S03494.1tm +++|*
03926 M00S03495.1tm +++|* SPECIAL END OF BLOCK PROCESSING FOR POSSIBLE
03927 M00S03496.1tm +++|* CORRESPONDENCE TERMINALS.
03928 M00S03497.1tm +++|* THIS CODE ENABLES INPUT IF CORRESPONDENCE TERMINAL,
03929 M00S03498.1tm +++|* OTHERWISE IT IS TREATED AS A *0001* BYTE.
03930 M00S03499.1tm +++|*
03931 M00S03500.1tm +++|* THIS CONTROL BYTE MUST BE FOLLOWED BY AN END-OF-LINE.
03932 M00S03501.1tm +++|*
03933 M00S03502.1tm +++|* NOTE THIS CONTROL BYTE IS NOT MEANINGFUL TO THE
03934 M00S03503.1tm +++|* THE TWO-PORT MULTIPLEXER DRIVER.
03935 M00S03504.1tm +++|*
03936 M00S03505.1tm +++|* EXIT TO *EOB1* TO TERMINATE OUTPUT BLOCK.
03937 M00S03506.1tm +++|*
03938 M00S03507.1tm +++|* CALLS CLT.
03939 M00S03508.1tm +++|
03940 M00S03509.1tm +++|
03941 M00S03510.1tm +++|
03942 M00S03511.1tm +++| ECB BSS 0 ENTRY
03943 M00S03512.1tm +++| LDN 1RB CHECK FOR LINE TERMINATOR
03944 M00S03513.1tm +++| RJM CLT
03945 M00S03514.1tm +++| JMP EOB1 PROCESS AS *EOB*
03946 M00S03515.1tm +++| ATI SPACE 4,20
03947 M00S03516.1tm +++|*** 0003 INITIATE AUTO-MODE INPUT.
03948 M00S03517.1tm +++|*
03949 M00S03518.1tm +++|* THIS CONTROL BYTE MUST BE FOLLOWED BY AN END OF LINE
03950 M00S03519.1tm +++|* AND TERMINATES OUTPUT.
03951 M00S03520.1tm +++|* THE WORD CONTAINING THE AUTO INPUT CONTROL BYTE IS
03952 M00S03521.1tm +++|* MOVED TO THE FIRST WORD OF THE POT FOR SUBSEQUENT
03953 M00S03522.1tm +++|* INPUT WHICH MUST FOLLOW IMMEDIATELY.
03954 M00S03523.1tm +++|*
03955 M00S03524.1tm +++|* EXIT TO *RDM* TO READ IN AUTO MODE.
03956 M00S03525.1tm +++|* TO *RWC* TO PROCESS DRIVER REQUEST.
03957 M00S03526.1tm +++|*
03958 M00S03527.1tm +++|* ERROR TO *AWT13* IF INVALID REQUEST.
03959 M00S03528.1tm +++|*
03960 M00S03529.1tm +++|* CALLS CLT, CKL, ERQ, MDS, RSW, SWA.
03961 M00S03530.1tm +++|*
03962 M00S03531.1tm +++|* MACROS RETURN.
03963 M00S03532.1tm +++|
03964 M00S03533.1tm +++|
03965 M00S03534.1tm +++| ATI7 LDN 1RC REENTER WRITE MODE
03966 M00S03535.1tm +++|* LDN 1RM (CONTROL BYTE 0015B)
03967 M00S03536.1tm +++| ATIB EQU *-1
03968 M00S03537.1tm +++| JMP AWT13 CONTINUE WRITE
03969 M00S03538.1tm +++|
03970 M00S03539.1tm +++|* ATI - ENTRY.
03971 M00S03540.1tm +++|
03972 M00S03541.1tm +++| ATI BSS 0 ENTRY
03973 M00S03542.1tm +++| LDC LDNI+1RC CONTROL BYTE TO REENTER WRITE MODE
03974 M00S03543.1tm +++| STM ATIB
03975 M00S03544.1tm +++| LDC MDS SET UP CALL TO SUBROUTINE MDS
03976 M00S03545.1tm +++| STM ATIA
03977 M00S03546.1tm +++| LDN 1RC
03978 M00S03547.1tm +++|
03979 M00S03548.1tm +++|* ATI1 - ENTRY FROM *ATI* AND *ETI*.
03980 M00S03549.1tm +++|*
03981 M00S03550.1tm +++|* ENTRY (ATIA) = *MDS* IF CALLED FROM *ATI*.
03982 M00S03551.1tm +++|* = *WDS* IF CALLED FROM *ETI*.
03983 M00S03552.1tm +++|* (ATIB) = DISPLAY CHARACTER FOR ERROR PROCESSING.
03984 M00S03553.1tm +++|
03985 M00S03554.1tm +++| ATI1 RJM CLT CHECK FOR LINE TERMINATION
03986 M00S03555.1tm +++| RJM CKL CHECK *LIST* STATUS
03987 M00S03556.1tm +++| MJN ATI7 IF FILE BEING LISTED
03988 M00S03557.1tm +++| LDD DC CHECK TERMINAL STATUS
03989 M00S03558.1tm +++| LPN 2
03990 M00S03559.1tm +++| NJN ATI3 IF AUTO INPUT MODE SET
03991 M00S03560.1tm +++| LDD DC+4 CHECK VDCT INTERLOCK
03992 M00S03561.1tm +++| ZJN ATI2 IF NOT INTERLOCKED
03993 M00S03562.1tm +++| LDN 2 SET AUTO INPUT MODE
03994 M00S03563.1tm +++| RAD DC
03995 M00S03564.1tm +++| RJM WDC WRITE VDCT
03996 M00S03565.1tm +++| UJN ATI3 SET WORD/BYTE NUMBER
03997 M00S03566.1tm +++|
03998 M00S03567.1tm +++| ATI2 LDN /TLX/SAI REQUEST SET AUTO INPUT
03999 M00S03568.1tm +++| RJM ERQ
04000 M00S03569.1tm +++| ATI3 LDD DP+2 SET BYTE NUMBER
04001 M00S03570.1tm +++| SHN -1
04002 M00S03571.1tm +++| LPN 7
04003 M00S03572.1tm +++| STD T5
04004 M00S03573.1tm +++| RJM SWA SET WORD ADDRESS
04005 M00S03574.1tm +++| CRD T0 READ DATA WORD
04006 M00S03575.1tm +++| LDN 0 CLEAR BYTE
04007 M00S03576.1tm +++| STI T5
04008 M00S03577.1tm +++| STD CH+2 CLEAR ESCAPE CONTROL
04009 M00S03578.1tm +++| RJM MDS RESTORE WORD AND SET FIRST WORD
04010 M00S03579.1tm +++|* RJM RSW (CONTROL BYTE 0015)
04011 M00S03580.1tm +++| ATIA EQU *-1
04012 M00S03581.1tm +++| LDD DP+2
04013 M00S03582.1tm +++| SCN 17
04014 M00S03583.1tm +++| SHN 5
04015 M00S03584.1tm +++| LMD DP+2
04016 M00S03585.1tm +++| SBN 2 DECREMENT CHARACTER NUMBER
04017 M00S03586.1tm +++| STD DP+2
04018 M00S03587.1tm +++| LPN 17
04019 M00S03588.1tm +++| STD CH+1 SET INPUT LINE CHARACTER COUNT
04020 M00S03589.1tm +++| LDD DP+3 CLEAR BINARY AND EXTENDED MODES
04021 M00S03590.1tm +++| SCN 12
04022 M00S03591.1tm +++| STD DP+3
04023 M00S03592.1tm +++|
04024 M00S03593.1tm +++|* WAIT FOR EXECUTIVE TO SET *AUTO* MODE.
04025 M00S03594.1tm +++|
04026 M00S03595.1tm +++| ATI4 RETURN * REENTER
04027 M00S03596.1tm +++| LDD DC CHECK TERMINAL STATUS
04028 M00S03597.1tm +++| SHN 21-1
04029 M00S03598.1tm +++| MJN ATI5 IF AUTO MODE SET
04030 M00S03599.1tm +++| LDD DC+4 CHECK FOR DRIVER REQUEST
04031 M00S03600.1tm +++| NJP RWC IF DRIVER REQUEST
04032 M00S03601.1tm +++| JMP MGR REENTER
04033 M00S03602.1tm +++|
04034 M00S03603.1tm +++| ATI5 LPN 2 SET NORMAL/EXTENDED MODE BIT
04035 M00S03604.1tm +++| RAD DP+3
04036 M00S03605.1tm +++| RETURN RDM ENTER READ MODE
04037 M00S03606.1tm +++| LOF SPACE 4,15
04038 M00S03607.1tm +++|*** 0004 LOGOFF TERMINAL USER.
04039 M00S03608.1tm +++|*
04040 M00S03609.1tm +++|* THIS BYTE LOGS-OFF THE USER. IT MUST BE THE FIRST
04041 M00S03610.1tm +++|* BYTE OF OUTPUT AND MUST BE FOLLOWED BY AN END-OF-LINE.
04042 M00S03611.1tm +++|*
04043 M00S03612.1tm +++|* CALLS ERQ, CKL, CLT.
04044 M00S03613.1tm +++|
04045 M00S03614.1tm +++|
04046 M00S03615.1tm +++| LOF BSS 0 ENTRY
04047 M00S03616.1tm +++| RJM CKL CHECK *LIST* STATUS
04048 M00S03617.1tm +++| MJN LOF1 IF FILE BEING LISTED
04049 M00S03618.1tm +++| LDD CH+1 CHECK LINE CHARACTER COUNT
04050 M00S03619.1tm +++| NJN LOF1 IF NOT FIRST BYTE
04051 M00S03620.1tm +++| LDN 1RD
04052 M00S03621.1tm +++| RJM CLT CHECK FOR LINE TERMINATION
04053 M00S03622.1tm +++| LDN 1 SET NORMAL LOGOFF
04054 M00S03623.1tm +++| STD RQ+2
04055 M00S03624.1tm +++| LDN /TLX/FLO FORCE LOGOUT
04056 M00S03625.1tm +++| RJM ERQ
04057 M00S03626.1tm +++| LJM EOB1
04058 M00S03627.1tm +++|
04059 M00S03628.1tm +++| LOF1 LDN 1RD
04060 M00S03629.1tm +++| JMP AWT13 REENTER WRITE MODE
04061 M00S03630.1tm +++| TPI SPACE 4,15
04062 M00S03631.1tm +++|*** 0005 INITIATE TRANSPARENT MODE INPUT.
04063 M00S03632.1tm +++|*
04064 M00S03633.1tm +++|* THIS CONTROL BYTE SETS TRANSPARENT INPUT FOR THE NEXT INPUT
04065 M00S03634.1tm +++|* REQUEST. IT MUST APPEAR IN THE FIRST BYTE OF A WORD
04066 M00S03635.1tm +++|* AND BE FOLLOWED BY AN END-OF-LINE.
04067 M00S03636.1tm +++|*
04068 M00S03637.1tm +++|* TRANSPARENT INPUT ALLOWS ALL CHARACTERS TO BE TRANSMITTED
04069 M00S03638.1tm +++|* TO THE CPU PROGRAM.
04070 M00S03639.1tm +++|*
04071 M00S03640.1tm +++|* CALLS CKL, CLT.
04072 M00S03641.1tm +++|
04073 M00S03642.1tm +++|
04074 M00S03643.1tm +++| TPI BSS 0 ENTRY
04075 M00S03644.1tm +++| RJM CKL CHECK *LIST* STATUS
04076 M00S03645.1tm +++| MJN TPI1 IF FILE BEING LISTED
04077 M00S03646.1tm +++| LDD DP+2 CHECK BYTE
04078 M00S03647.1tm +++| LPN 17
04079 M00S03648.1tm +++| LMN 2
04080 M00S03649.1tm +++| NJN TPI1 IF NOT FIRST BYTE
04081 M00S03650.1tm +++| LDN 1RE
04082 M00S03651.1tm +++| RJM CLT CHECK FOR LINE TERMINATION
04083 M00S03652.1tm +++| LDD DP+3 SET TRANSPARENT MODE
04084 M00S03653.1tm +++| SCN 14
04085 M00S03654.1tm +++| LMN 4
04086 M00S03655.1tm +++| STD DP+3
04087 M00S03656.1tm +++| JMP EOB1 TERMINATE OUTPUT BLOCK
04088 M00S03657.1tm +++|
04089 M00S03658.1tm +++| TPI1 LDN 1RE
04090 M00S03659.1tm +++| JMP AWT13 REENTER WRITE MODE
04091 M00S03660.1tm +++| BNI SPACE 4,25
04092 M00S03661.1tm +++|*** 0006 INITIATE BINARY MODE INPUT.
04093 M00S03662.1tm +++|*
04094 M00S03663.1tm +++|* THIS CONTROL BYTE SETS BINARY INPUT FOR THE NEXT INPUT
04095 M00S03664.1tm +++|* REQUEST. THE CONTROL BYTE MUST BE THE FIRST BYTE OF A WORD.
04096 M00S03665.1tm +++|* THE NEXT 2 BYTES ARE THE TERMINATION CONDITIONS AS FOLLOWS -
04097 M00S03666.1tm +++|*
04098 M00S03667.1tm +++|* THE FIRST BYTE (BYTE 1) IS THE MAXIMUM NUMBER OF CHARACTERS
04099 M00S03668.1tm +++|* TO BE RECEIVED BEFORE THE INPUT IS TERMINATED. IF THE
04100 M00S03669.1tm +++|* VALUE IS 0, 1 IS ASSUMED.
04101 M00S03670.1tm +++|*
04102 M00S03671.1tm +++|* THE SECOND CONTROL BYTE (BYTE 2) IS A TERMINATION CODE.
04103 M00S03672.1tm +++|* WHEN A CHARACTER IS RECEIVED FROM THE TERMINAL WHICH
04104 M00S03673.1tm +++|* MATCHES THE BOTTOM 8 BITS OF THIS BYTE, THE INPUT OPERATION
04105 M00S03674.1tm +++|* IS TERMINATED. IF BIT 13 OF THIS BYTE IS SET, NO TERMINATION
04106 M00S03675.1tm +++|* CHARACTER IS ASSUMED.
04107 M00S03676.1tm +++|*
04108 M00S03677.1tm +++|* EXIT (CH) = TERMINATION CHARACTER.
04109 M00S03678.1tm +++|* (CH+1) = INPUT LINE CHARACTER COUNT.
04110 M00S03679.1tm +++|*
04111 M00S03680.1tm +++|* CALLS CKL, SWA.
04112 M00S03681.1tm +++|
04113 M00S03682.1tm +++|
04114 M00S03683.1tm +++| BNI5 LDN 1RF
04115 M00S03684.1tm +++| JMP AWT13 CONTINUE WRITE MODE
04116 M00S03685.1tm +++|
04117 M00S03686.1tm +++|* BNI - ENTRY.
04118 M00S03687.1tm +++|
04119 M00S03688.1tm +++| BNI BSS 0 ENTRY
04120 M00S03689.1tm +++| RJM CKL CHECK *LIST* STATUS
04121 M00S03690.1tm +++| MJN BNI5 IF FILE BEING LISTED
04122 M00S03691.1tm +++| LDD DP+3 CLEAR BINARY MODE
04123 M00S03692.1tm +++| SCN 10
04124 M00S03693.1tm +++| STD DP+3
04125 M00S03694.1tm +++| LDD CH+1 CHECK CHARACTER COUNT
04126 M00S03695.1tm +++| NJN BNI5 IF NOT FIRST BYTE
04127 M00S03696.1tm +++| RJM SWA SET WORD ADDRESS
04128 M00S03697.1tm +++| CRD CM READ DATA WORD
04129 M00S03698.1tm +++| LDD CM+3 CHECK FOR TERMINATION
04130 M00S03699.1tm +++| ADD CM+4
04131 M00S03700.1tm +++| NJN BNI5 IF NOT TERMINATED
04132 M00S03701.1tm +++| LDD CM+1 SET CHARACTER COUNT
04133 M00S03702.1tm +++| NJN BNI2
04134 M00S03703.1tm +++| BNI1 LDN 1
04135 M00S03704.1tm +++| BNI2 STD CH+1
| Line S03705 Modification History |
M01 (Removed by) | 1tm6 |
Seq # *Modification Id* Act
----------------------------+
04136 M01S03705.1tm6 ---| ADC -MXIC-1
| Line S00002 Modification History |
M01 (Added by) | 1tm6 |
Seq # *Modification Id* Act
----------------------------+
04137 M01S00002.1tm6 +++| ADC -VXLL-1
04138 M00S03706.1tm +++| MJN BNI3 IF NOT MORE THAN INTERACTIVE MAXIMUM
04139 M00S03707.1tm +++| LDD DC CHECK TERMINAL STATUS
04140 M00S03708.1tm +++| SHN 21-6
04141 M00S03709.1tm +++| MJN BNI1 IF *READ DATA* SET
04142 M00S03710.1tm +++| BNI3 LDD CM+2 SET TERMINATION CHARACTER
04143 M00S03711.1tm +++| STD CH
04144 M00S03712.1tm +++| LDN 2 SET CHARACTER 2
04145 M00S03713.1tm +++| STD DP+2
04146 M00S03714.1tm +++| LDN 10 SET BINARY MODE
04147 M00S03715.1tm +++| RAD DP+3
04148 M00S03716.1tm +++| RJM SWA WRITE FIRST WORD
04149 M00S03717.1tm +++| CWM BNIA,ON
| Line S00310 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
04150 M01S00310.242l642 +++| LDN 0 CLEAR START OF *F7* SEQUENCE
04151 M01S00311.242l642 +++| STD F7
04152 M00S03718.1tm +++| JMP RWC ENTER READ/WRITE CONTROL
04153 M00S03719.1tm +++|
04154 M00S03720.1tm +++|
04155 M00S03721.1tm +++| BNIA DATA 0007,0,0,0,0 BINARY MODE HEADER
04156 M00S03722.1tm +++| BNO SPACE 4,15
04157 M00S03723.1tm +++|*** 0007 INITIATE BINARY MODE OUTPUT.
04158 M00S03724.1tm +++|*
04159 M00S03725.1tm +++|* THIS CONTROL BYTE INITIATES BINARY OUTPUT. IT MUST
04160 M00S03726.1tm +++|* APPEAR IN THE FIRST BYTE OF OUTPUT.
04161 M00S03727.1tm +++|*
04162 M00S03728.1tm +++|* EXIT TO *BWT* IF VALID CONTROL BYTE.
04163 M00S03729.1tm +++|* TO *AWT13* IF INVALID CONTROL BYTE.
04164 M00S03730.1tm +++|
04165 M00S03731.1tm +++|
04166 M00S03732.1tm +++| BNO BSS 0 ENTRY
04167 M00S03733.1tm +++| LDD DP+3 CLEAR BINARY MODE
04168 M00S03734.1tm +++| SCN 10
04169 M00S03735.1tm +++| STD DP+3
04170 M00S03736.1tm +++| LDD CH+1 CHECK CHARACTER COUNT
04171 M00S03737.1tm +++| NJN BNO1 IF NOT FIRST BYTE
04172 M00S03738.1tm +++| LDN 10 SET BINARY TRANSMISSION
04173 M00S03739.1tm +++| RAD DP+3
04174 M00S03740.1tm +++| LJM BWT ENTER BINARY WRITE MODE
04175 M00S03741.1tm +++|
04176 M00S03742.1tm +++| BNO1 LDN 1RG
04177 M00S03743.1tm +++| JMP AWT13 CONTINUE WRITE MODE
04178 M00S03744.1tm +++| BEO SPACE 4,15
04179 M00S03745.1tm +++|*** 0011 BEGIN EXENDED OUTPUT.
04180 M00S03746.1tm +++|*
04181 M00S03747.1tm +++|* THIS CONTROL BYTE INITIATES EXTENDED MODE OUTPUT.
| Line S03748 Modification History |
M01 (Removed by) | ns2406 |
Seq # *Modification Id* Act
----------------------------+
04182 M01S03748.ns2406 ---|* IT MUST APPEAR IN THE FIRST BYTE OF THE OUTPUT WORD.
| Line S00001 Modification History |
M01 (Added by) | ns2406 |
Seq # *Modification Id* Act
----------------------------+
04183 M01S00001.ns2406 +++|* IT MUST APPEAR IN THE FIRST BYTE OF THE OUTPUT LINE.
04184 M00S03749.1tm +++|*
04185 M00S03750.1tm +++|* EXIT TO *AWT* TO INITIATE EXTENDED OUTPUT.
04186 M00S03751.1tm +++|* TO *AWT13* IF INVALID CONTROL BYTE.
04187 M00S03752.1tm +++|*
04188 M00S03753.1tm +++|* CALLS SEM.
04189 M00S03754.1tm +++|
04190 M00S03755.1tm +++|
04191 M00S03756.1tm +++| BEO BSS 0 ENTRY
| Line S03757 Modification History |
M01 (Removed by) | ns2406 |
Seq # *Modification Id* Act
----------------------------+
04192 M01S03757.ns2406 ---| LDD DP+2 CHECK BYTE POSITION IN LINE
04193 M01S03758.ns2406 ---| LPN 17
04194 M01S03759.ns2406 ---| LMN 2
| Line S00002 Modification History |
M01 (Added by) | ns2406 |
Seq # *Modification Id* Act
----------------------------+
04195 M01S00002.ns2406 +++| LDD CH+1
04196 M00S03760.1tm +++| NJN BEO1 IF NOT FIRST BYTE
04197 M00S03761.1tm +++| RJM SEM SET EXTENDED MODE
04198 M00S03762.1tm +++| JMP AWT INITIATE OUTPUT
04199 M00S03763.1tm +++|
04200 M00S03764.1tm +++| BEO1 LDN 1RI
04201 M00S03765.1tm +++| JMP AWT13 CONTINUE WRITE MODE
04202 M00S03766.1tm +++| EOS SPACE 4,15
04203 M00S03767.1tm +++|*** 0013 END OF STRING.
04204 M00S03768.1tm +++|*
04205 M00S03769.1tm +++|* THIS BYTE ACTS AS A LOGICAL LINE TERMINATOR WHEN
04206 M00S03770.1tm +++|* FOLLOWED BY AN END OF LINE. THE TERMINAL CARRIAGE
04207 M00S03771.1tm +++|* WILL NOT BE REPOSITIONED AND OUTPUT WILL CONTINUE
04208 M00S03772.1tm +++|* WITH THE NEXT LINE OF DATA.
04209 M00S03773.1tm +++|*
04210 M00S03774.1tm +++|* EXIT (CH+1) = 0.
04211 M00S03775.1tm +++|* (CH+2) = 0.
04212 M00S03776.1tm +++|* TO *SOC* IF END OF CURRENT POT -
04213 M00S03777.1tm +++|* (A) = *.ECP*.
04214 M00S03778.1tm +++|* TO *AWT* TO CONTINUE WRITE IF NOT END OF POT.
04215 M00S03779.1tm +++|*
04216 M00S03780.1tm +++|* CALLS CEM, CLT, ROC.
04217 M00S03781.1tm +++|
04218 M00S03782.1tm +++|
04219 M00S03783.1tm +++| EOS BSS 0 ENTRY
04220 M00S03784.1tm +++| LDN 1RK CHECK FOR LINE TERMINATION
04221 M00S03785.1tm +++| RJM CLT
04222 M00S03786.1tm +++| STD CH+1 CLEAR CHARACTER COUNT
04223 M00S03787.1tm +++| STD CH+2 CLEAR CONTROL BYTE
04224 M00S03788.1tm +++| RJM ROC FORCE LINE SKIP IF IN BYTE 4
04225 M00S03789.1tm +++| LMC .ECP CHECK IF END OF POT REACHED
04226 M00S03790.1tm +++| NJN EOS1 IF NOT END OF CURRENT POT
04227 M00S03791.1tm +++| LMC .ECP
04228 M00S03792.1tm +++| LJM SOC SET OUTPUT CONTROL
04229 M00S03793.1tm +++|
04230 M00S03794.1tm +++| EOS1 LDD DP+2 REPOSITION TO READ NEXT WORD
04231 M00S03795.1tm +++| SCN 17
04232 M00S03796.1tm +++| LMN 12
04233 M00S03797.1tm +++| STD DP+2
04234 M00S03798.1tm +++| RJM CEM CLEAR EXTENDED MODE
04235 M00S03799.1tm +++| JMP AWT CONTINUE OUTPUT
04236 M00S03800.1tm +++| IEB SPACE 4,20
04237 M00S03801.1tm +++|*** 0014 INTERNAL END OF BLOCK.
04238 M00S03802.1tm +++|*
04239 M00S03803.1tm +++|* THIS CONTROL BYTE IS USED INTERNALLY BY *1TO* ONLY TO
04240 M00S03804.1tm +++|* TERMINATE OUTPUT BEFORE THE END OF POT IS REACHED. THE
04241 M00S03805.1tm +++|* REMAINDER OF THE POT IS DISCARDED, THE TERMINAL IS NOT
04242 M00S03806.1tm +++|* REPOSITIONED TO THE BEGINNING OF THE NEXT LINE, AND ANY
04243 M00S03807.1tm +++|* SPECIAL MODES (E.G., EXTENDED OR BINARY TRANSMISSION)
04244 M00S03808.1tm +++|* WILL REMAIN SET. THIS BYTE MUST APPEAR AS THE FIRST BYTE
04245 M00S03809.1tm +++|* OF A WORD, AND MUST BE FOLLOWED BY AN END OF LINE.
04246 M00S03810.1tm +++|*
04247 M00S03811.1tm +++|* EXIT TO *RWC1* IF VALID CONTROL BYTE.
04248 M00S03812.1tm +++|* TO *AWT13* IF INVALID CONTROL BYTE.
04249 M00S03813.1tm +++|*
04250 M00S03814.1tm +++|* CALLS CLT.
04251 M00S03815.1tm +++|*
04252 M00S03816.1tm +++|* MACROS RETURN.
04253 M00S03817.1tm +++|
04254 M00S03818.1tm +++|
04255 M00S03819.1tm +++| IEB BSS 0 ENTRY
04256 M00S03820.1tm +++| LDD DP+2 CHECK CHARACTER POSITION
04257 M00S03821.1tm +++| LPN 17
04258 M00S03822.1tm +++| LMN 2
04259 M00S03823.1tm +++| NJN IEB1 IF NOT FIRST BYTE IN WORD
04260 M00S03824.1tm +++| LDN 1RL CHECK FOR LINE TERMINATION
04261 M00S03825.1tm +++| RJM CLT
04262 M00S03826.1tm +++| STD DP+2 CLEAR CHARACTER POSITION
04263 M00S03827.1tm +++| RETURN /CTL/RWC1 ENTER READ/WRITE CONTROL
04264 M00S03828.1tm +++|
04265 M00S03829.1tm +++| IEB1 LDN 1RL
04266 M00S03830.1tm +++| JMP AWT13 REENTER WRITE MODE
04267 M00S03831.1tm +++| ETI SPACE 4,15
04268 M00S03832.1tm +++|*** 0015 EXECUTIVE AUTO INPUT.
04269 M00S03833.1tm +++|*
| Line S03834 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
04270 M01S03834.242l642 ---|* THIS CONTROL BYTE IS INTENDED TO BE USED BY *RAF* FOR
| Line S00312 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
04271 M01S00312.242l642 +++|* THIS CONTROL BYTE IS INTENDED TO BE USED BY *RDF* FOR
04272 M00S03835.1tm +++|* AUTO MODE INPUT. THE WORD IN WHICH THE CONTROL BYTE OCCURS
04273 M00S03836.1tm +++|* IS USED AS THE FIRST N CHARACTERS OF THE INPUT LINE.
04274 M00S03837.1tm +++|* N MUST BE EVEN AND LESS THAN 9.
04275 M00S03838.1tm +++|*
04276 M00S03839.1tm +++|* THIS CONTROL BYTE MUST BE FOLLOWED BY AN END-OF-LINE.
04277 M00S03840.1tm +++|*
04278 M00S03841.1tm +++|* EXIT TO *ATI1* TO INITIATE AUTO MODE INPUT -
04279 M00S03842.1tm +++|* (A) = 1RM.
04280 M00S03843.1tm +++|* (RTIA) = *RSW*.
04281 M00S03844.1tm +++|* (RTIB) = *LDNI+1RM*.
04282 M00S03845.1tm +++|
04283 M00S03846.1tm +++|
04284 M00S03847.1tm +++| ETI BSS 0 ENTRY
04285 M00S03848.1tm +++| LDC LDNI+1RM SET CONTROL TO REENTER WRITE MODE
04286 M00S03849.1tm +++| STM ATIB
04287 M00S03850.1tm +++| LDC RSW SET UP CALL TO SUBROUTINE RSW
04288 M00S03851.1tm +++| STM ATIA
04289 M00S03852.1tm +++| LDN 1RM
04290 M00S03853.1tm +++| LJM ATI1 AUTO MODE INPUT PROCESSING
04291 M00S03854.1tm +++| TITLE WRITE MODE - SPECIAL CHARACTER PROCESSORS.
04292 M00S03855.1tm +++| ACR SPACE 4,15
04293 M00S03856.1tm +++|** ACR - PROCESS *CARRIAGE RETURN* OUTPUT.
04294 M00S03857.1tm +++|*
04295 M00S03858.1tm +++|* ISSUES *CARRIAGE RETURN* TO THE TERMINAL, FOLLOWED
04296 M00S03859.1tm +++|* BY *NUL* CHARACTERS IF IN KEYBOARD MODE OR BY
04297 M00S03860.1tm +++|* *DEL* CHARACTERS IF IN TAPE MODE.
04298 M00S03861.1tm +++|*
04299 M00S03862.1tm +++|* EXIT TO *AWT* TO CONTINUE WRITE OPERATION.
04300 M00S03863.1tm +++|*
04301 M00S03864.1tm +++|* USES T7.
04302 M00S03865.1tm +++|*
04303 M00S03866.1tm +++|* CALLS DDC, SRC.
04304 M00S03867.1tm +++|*
04305 M00S03868.1tm +++|* MACROS RETURN.
04306 M00S03869.1tm +++|
04307 M00S03870.1tm +++|
04308 M00S03871.1tm +++| ACR BSS 0 ENTRY
04309 M00S03872.1tm +++| LDC .CCR ISSUE *CR* TO OUTPUT
04310 M00S03873.1tm +++| LMD PY TOGGLE ODD PARITY
04311 M00S03874.1tm +++| STD DO
04312 M00S03875.1tm +++| RETURN * REENTER
04313 M00S03876.1tm +++| LDN 3 SET DEFAULT DELAY COUNT
04314 M00S03877.1tm +++| RJM DDC DETERMINE TERMINAL DELAY COUNT
04315 M00S03878.1tm +++| STD T7
04316 M00S03879.1tm +++| LDD DC CHECK TERMINAL STATUS
04317 M00S03880.1tm +++| LPN 1
04318 M00S03881.1tm +++| ZJN ACR1 IF NOT IN *TAPE* MODE
04319 M00S03882.1tm +++| LDK .CDEL SET ASCII *DEL* CODE
04320 M00S03883.1tm +++| UJN ACR2
04321 M00S03884.1tm +++|
04322 M00S03885.1tm +++| ACR1 LDK .CNUL SET ASCII *NUL* CODE
04323 M00S03886.1tm +++| ACR2 SHN 6 ADD DELAY COUNT
04324 M00S03887.1tm +++| ADD T7
04325 M00S03888.1tm +++| SHN 14
04326 M00S03889.1tm +++| LMD PY TOGGLE ODD PARITY
04327 M00S03890.1tm +++| RJM SRC SEND REPEATED CHARACTERS
04328 M00S03891.1tm +++| JMP AWT REENTER WRITE MODE
04329 M00S03892.1tm +++| ANL SPACE 4,15
04330 M00S03893.1tm +++|** ANL - PROCESS *NEW LINE* OUTPUT.
04331 M00S03894.1tm +++|*
04332 M00S03895.1tm +++|* ISSUES *CARRIAGE RETURN* FOLLOWED BY *LINE FEED*
04333 M00S03896.1tm +++|* TO THE TERMINAL, THEN FOLLOWED BY *NULL* CHARACTERS.
04334 M00S03897.1tm +++|*
04335 M00S03898.1tm +++|* EXIT TO *ISN* TO ISSUE *NULL* CHARACTERS.
04336 M00S03899.1tm +++|*
04337 M00S03900.1tm +++|* MACROS RETURN.
04338 M00S03901.1tm +++|
04339 M00S03902.1tm +++|
04340 M00S03903.1tm +++| ANL BSS 0 ENTRY
04341 M00S03904.1tm +++| LDC .CCR ISSUE *CR* TO OUTPUT
04342 M00S03905.1tm +++| LMD PY TOGGLE ODD PARITY
04343 M00S03906.1tm +++| STD DO
04344 M00S03907.1tm +++| RETURN * REENTER
04345 M00S03908.1tm +++| LDC .CLF ISSUE *LF* TO OUTPUT
04346 M00S03909.1tm +++| LMD PY TOGGLE ODD PARITY
04347 M00S03910.1tm +++| STD DO
04348 M00S03911.1tm +++| RETURN * REENTER
04349 M00S03912.1tm +++| LDN 2 SET DEFAULT REPEAT COUNT
04350 M00S03913.1tm +++| JMP ISN ISSUE *NUL*S
04351 M00S03914.1tm +++| WTM TITLE WRITE MODE - SUBROUTINES.
04352 M00S03915.1tm +++| CKL SPACE 4,15
04353 M00S03916.1tm +++|** CKL - CHECK LIST STATUS.
04354 M00S03917.1tm +++|*
04355 M00S03918.1tm +++|* EXIT (A) = NEGATIVE IF FILE LIST IN PROGRESS.
04356 M00S03919.1tm +++|*
04357 M00S03920.1tm +++|* USES T1 - T5.
04358 M00S03921.1tm +++|*
04359 M00S03922.1tm +++|* CALLS STA.
04360 M00S03923.1tm +++|
04361 M00S03924.1tm +++|
04362 M00S03925.1tm +++| CKL SUBR ENTRY/EXIT
04363 M00S03926.1tm +++| RJM STA SET FWA OF TERMINAL TABLE
04364 M00S03927.1tm +++| ADN VROT READ *VROT*
04365 M00S03928.1tm +++| CRD T1
04366 M00S03929.1tm +++| LDD T1+4 LOAD STATUS BYTE
04367 M00S03930.1tm +++| SHN 21-6 SHIFT *LIST* STATUS BIT
04368 M00S03931.1tm +++| UJN CKLX RETURN
04369 M00S03932.1tm +++| CLT SPACE 4,25
04370 M00S03933.1tm +++|** CLT - CHECK FOR LINE TERMINATION.
04371 M00S03934.1tm +++|*
04372 M00S03935.1tm +++|* CHECKS CURRENT OUTPUT FOR LINE TERMINATION.
04373 M00S03936.1tm +++|*
04374 M00S03937.1tm +++|* ENTRY (A) = NEXT OUTPUT CHARACTER IF NOT END OF LINE.
04375 M00S03938.1tm +++|*
04376 M00S03939.1tm +++|* EXIT TO CALLING ROUTINE IF LINE TERMINATED.
04377 M00S03940.1tm +++|* TO WRITE MODE IF LINE NOT TERMINATED.
04378 M00S03941.1tm +++|* LINE TERMINATION CAN BE EXPLICIT IN THE CASE OF
04379 M00S03942.1tm +++|* A VALID END OF LINE FOLLOWING THE CURRENT LINE
04380 M00S03943.1tm +++|* POSITION, OR IT MAY BE IMPLICIT IN THE CASE OF THERE
04381 M00S03944.1tm +++|* BEING NO FURTHER DATA, EITHER ASSIGNED OR ON
04382 M00S03945.1tm +++|* MASS STORAGE.
04383 M00S03946.1tm +++|* IN THE EVENT THAT NO DETERMINATION CAN BE MADE
04384 M00S03947.1tm +++|* BECAUSE THE DRIVER IS AT THE END OF THE CURRENT
04385 M00S03948.1tm +++|* POT STRING BUT OUTPUT IS WAITING ON MASS STORAGE,
04386 M00S03949.1tm +++|* OR IF THE JOB IS CURRENTLY IN EXECUTION,
04387 M00S03950.1tm +++|* EXIT IS TO READ/WRITE CONTROL WITH SUSPENDED CONTROL
04388 M00S03951.1tm +++|* STATUS SET IN (CH+2).
04389 M00S03952.1tm +++|*
04390 M00S03953.1tm +++|* USES T0 - T5, CM, CM+1, (MA)-(MA)+5.
04391 M00S03954.1tm +++|*
04392 M00S03955.1tm +++|* CALLS RLT, ROC, STA.
04393 M00S03956.1tm +++|*
04394 M00S03957.1tm +++|* MACROS RETURN.
04395 M00S03958.1tm +++|
04396 M00S03959.1tm +++|
04397 M00S03960.1tm +++| CLT SUBR ENTRY/EXIT
04398 M00S03961.1tm +++| STD CM SAVE CALLING CODE
04399 M00S03962.1tm +++| LDD MA SAVE POINTER WORD
04400 M00S03963.1tm +++| CWD DP
04401 M00S03964.1tm +++| RJM ROC READ NEXT CHARACTER
04402 M00S03965.1tm +++| LMC .ECP
04403 M00S03966.1tm +++| ZJN CLT3 IF END OF CURRENT POT
04404 M00S03967.1tm +++| LMC .ECP
04405 M00S03968.1tm +++|
04406 M00S03969.1tm +++|* CHECK NEXT OUTPUT BYTE FOR END OF LINE.
04407 M00S03970.1tm +++|
04408 M00S03971.1tm +++| CLT1 SHN 1 CHECK FOR END OF LINE
04409 M00S03972.1tm +++| LMN 1
04410 M00S03973.1tm +++| STD CM+1 STORE FLAG (ZERO IF END OF LINE)
04411 M00S03974.1tm +++| CLT2 LDD MA RESTORE POINTER WORD
04412 M00S03975.1tm +++| CRD DP
04413 M00S03976.1tm +++| LDD CM+1 CHECK FLAG
04414 M00S03977.1tm +++| ZJN CLTX IF END OF LINE
04415 M00S03978.1tm +++| LJM CLT6
04416 M00S03979.1tm +++|
04417 M00S03980.1tm +++|* ADVANCE TO NEXT POT.
04418 M00S03981.1tm +++|
04419 M00S03982.1tm +++| CLT3 STD DP+2 CLEAR POINTERS
04420 M00S03983.1tm +++| STD CM+1
04421 M00S03984.1tm +++| RJM RLT CHECK POT LINK
04422 M00S03985.1tm +++| ZJN CLT4 IF POT NOT LINKED
04423 M00S03986.1tm +++| STD DP+1 SET NEXT POT
04424 M00S03987.1tm +++| RJM ROC READ NEXT CHARACTER
04425 M00S03988.1tm +++| UJN CLT1
04426 M00S03989.1tm +++|
04427 M00S03990.1tm +++|* CHECK FOR ADDITIONAL OUTPUT.
04428 M00S03991.1tm +++|
04429 M00S03992.1tm +++| CLT4 LDD DC CHECK FOR DRIVER REQUEST
04430 M00S03993.1tm +++| SHN 21-13
04431 M00S03994.1tm +++| MJN CLT2 IF DRIVER REQUEST
04432 M00S03995.1tm +++| LDD DC+4
04433 M00S03996.1tm +++| NJN CLT5 IF OUTPUT ASSIGNED
04434 M00S03997.1tm +++| RJM STA SET FWA OF TERMINAL TABLE
04435 M00S03998.1tm +++| ADN VROT READ *VROT*
04436 M00S03999.1tm +++| CRD T0
04437 M00S04000.1tm +++| LDD T0+4 CHECK JOB STATUS
04438 M00S04001.1tm +++| LPN 21
04439 M00S04002.1tm +++| LMN 1
04440 M00S04003.1tm +++| ZJN CLT2 IF NOT EXECUTING AND NO OUTPUT
04441 M00S04004.1tm +++|
04442 M00S04005.1tm +++|* SUSPEND CONTROL UNTIL FURTHER OUTPUT IS ASSIGNED.
04443 M00S04006.1tm +++|
04444 M00S04007.1tm +++| CLT5 LDD MA RESET POINTER WORD
04445 M00S04008.1tm +++| CRD DP
04446 M00S04009.1tm +++| LDD CM SET SUSPENDED CONTROL
04447 M00S04010.1tm +++| ADC 600
04448 M00S04011.1tm +++| STD CH+2
04449 M00S04012.1tm +++| RETURN /CTL/RWC1 ENTER READ/WRITE CONTROL
04450 M00S04013.1tm +++|
04451 M00S04014.1tm +++|* REENTER WRITE MODE IF NO TERMINATOR.
04452 M00S04015.1tm +++|
04453 M00S04016.1tm +++| CLT6 LDD DP+3 CHECK *BINARY* MODE
04454 M00S04017.1tm +++| SHN 21-3
04455 M00S04018.1tm +++| MJN CLT7 IF SET
04456 M00S04019.1tm +++| LDD CM SET OUTPUT CHARACTER
04457 M00S04020.1tm +++| LJM AWT13 REENTER WRITE MODE
04458 M00S04021.1tm +++|
04459 M00S04022.1tm +++| CLT7 SOD DP+2 BACK UP CHARACTER
04460 M00S04023.1tm +++| LJM BWT2 EXIT BINARY MODE
04461 M00S04024.1tm +++| MDS SPACE 4,15
04462 M00S04025.1tm +++|** MDS - MOVE DATA WORD TO START OF POT.
04463 M00S04026.1tm +++|*
04464 M00S04027.1tm +++|* MOVE THE WORD CONTAINING THE AUTO INPUT CONTROL BYTE
04465 M00S04028.1tm +++|* TO THE FIRST WORD OF THE POT FOR SUBSEQUENT INPUT.
04466 M00S04029.1tm +++|*
04467 M00S04030.1tm +++|* ENTRY (TO - T4) = DATA WORD.
04468 M00S04031.1tm +++|*
04469 M00S04032.1tm +++|* CALLS SWA.
04470 M00S04033.1tm +++|
04471 M00S04034.1tm +++|
04472 M00S04035.1tm +++| MDS SUBR ENTRY/EXIT
04473 M00S04036.1tm +++| LDD DP+2 CLEAR POT WORD POINTER
04474 M00S04037.1tm +++| LPC 0617
04475 M00S04038.1tm +++| STD DP+2
04476 M00S04039.1tm +++| RJM SWA SET WORD ADDRESS
04477 M00S04040.1tm +++| CWD T0 WRITE WORD TO POT
04478 M00S04041.1tm +++| UJN MDSX RETURN
04479 M00S04042.1tm +++| ROC SPACE 4,20
04480 M00S04043.1tm +++|** ROC - READ OUTPUT CHARACTER.
04481 M00S04044.1tm +++|*
04482 M00S04045.1tm +++|* EXIT (T5) = OUTPUT BYTE ADDRESS.
04483 M00S04046.1tm +++|* (T7) = LOWER 12 BITS OF (A).
04484 M00S04047.1tm +++|* (A) = POSITIVE -
04485 M00S04048.1tm +++|* (A) = OUTPUT CHARACTER.
04486 M00S04049.1tm +++|* = NEGATIVE -
04487 M00S04050.1tm +++|* (A) = 400000B + CONTROL BYTE VALUE, OR,
04488 M00S04051.1tm +++|* 770001 (END OF POT).
04489 M00S04052.1tm +++|*
04490 M00S04053.1tm +++|* USES DP+2, T7, T0 - T5.
04491 M00S04054.1tm +++|*
04492 M00S04055.1tm +++|* CALLS SWA.
04493 M00S04056.1tm +++|*
04494 M00S04057.1tm +++|* MACROS ADCBM.
04495 M00S04058.1tm +++|
04496 M00S04059.1tm +++|
04497 M00S04060.1tm +++|* PROCESS ODD (LOWER) CHARACTER.
04498 M00S04061.1tm +++|
04499 M00S04062.1tm +++| ROC9 LPN 7 SET BYTE NUMBER
04500 M00S04063.1tm +++| STD T5
04501 M00S04064.1tm +++| AOD DP+2 ADVANCE CHARACTER NUMBER
04502 M00S04065.1tm +++| RJM SWA READ DATA WORD
04503 M00S04066.1tm +++| CRD T0
04504 M00S04067.1tm +++| LDI T5 EXTRACT LOWER CHARACTER
04505 M00S04068.1tm +++| LPN 77
04506 M00S04069.1tm +++| ROC10 STD T7 SET CHARACTER
04507 M00S04070.1tm +++|* UJN ROCX
04508 M00S04071.1tm +++|
04509 M00S04072.1tm +++|
04510 M00S04073.1tm +++|* ROC - ENTRY.
04511 M00S04074.1tm +++|
04512 M00S04075.1tm +++| ROC SUBR ENTRY/EXIT
04513 M00S04076.1tm +++| LDD DP+1 CHECK CURRENT POT POINTER
04514 M00S04077.1tm +++| SHN -6
04515 M00S04078.1tm +++| LMN 77
04516 M00S04079.1tm +++| NJN ROC1 IF NOT MESSAGE PSEUDO-POT POINTER
04517 M00S04080.1tm +++| LJM TTM1 GET MESSAGE CHARACTER
04518 M00S04081.1tm +++|
04519 M00S04082.1tm +++| ROC1 LDD DP+2 CHECK CHARACTER NUMBER
04520 M00S04083.1tm +++| SHN 21
04521 M00S04084.1tm +++| MJN ROC9 IF ODD CHARACTER
04522 M00S04085.1tm +++|
04523 M00S04086.1tm +++|* PROCESS EVEN (UPPER) CHARACTER.
04524 M00S04087.1tm +++|
04525 M00S04088.1tm +++| LPN 77 CHECK WORD STATUS
04526 M00S04089.1tm +++| LMN 75
04527 M00S04090.1tm +++| NJN ROC2 IF NOT END OF WORD AND END OF POT
04528 M00S04091.1tm +++| LDC .ECP
04529 M00S04092.1tm +++| UJN ROCX
04530 M00S04093.1tm +++|
04531 M00S04094.1tm +++| ROC2 LPN 7
04532 M00S04095.1tm +++| NJN ROC3 IF NOT END OF WORD
04533 M00S04096.1tm +++| STD T5 SET BYTE 0
04534 M00S04097.1tm +++| LDN 21-12 ADVANCE WORD AND SET ODD CHARACTER
04535 M00S04098.1tm +++| RAD DP+2
04536 M00S04099.1tm +++| UJN ROC4
04537 M00S04100.1tm +++|
04538 M00S04101.1tm +++| ROC3 LMN 5 SET BYTE NUMBER
04539 M00S04102.1tm +++| STD T5
04540 M00S04103.1tm +++| AOD DP+2 ADVANCE CHARACTER
04541 M00S04104.1tm +++| ROC4 RJM SWA SET WORD ADDRESS
04542 M00S04105.1tm +++| CRD T0 READ WORD
04543 M00S04106.1tm +++| LDI T5 EXTRACT UPPER CHARACTER
04544 M00S04107.1tm +++| SHN -6
04545 M00S04108.1tm +++| NJN ROC6 IF NOT CONTROL BYTE
04546 M00S04109.1tm +++| LDI T5
04547 M00S04110.1tm +++| ZJN ROC7 IF ZERO BYTE
04548 M00S04111.1tm +++| SBN TSOCL
04549 M00S04112.1tm +++| PJN ROC8 IF NOT CONTROL BYTE
04550 M00S04113.1tm +++| ADN TSOCL
04551 M00S04114.1tm +++| ROC5 LMC 400000
04552 M00S04115.1tm +++| ROC6 LJM ROC10
04553 M00S04116.1tm +++|
04554 M00S04117.1tm +++|* CHECK FOR END OF LINE.
04555 M00S04118.1tm +++|
04556 M00S04119.1tm +++| ROC7 AOD T5 ADVANCE BYTE POINTER
04557 M00S04120.1tm +++| LMN 5
04558 M00S04121.1tm +++| ZJN ROC5 IF END OF WORD
04559 M00S04122.1tm +++| LDI T5
04560 M00S04123.1tm +++| ZJN ROC7 IF NO DATA IN NEXT BYTE
04561 M00S04124.1tm +++| ROC8 LDN 0 ISSUE COLON
04562 M00S04125.1tm +++| UJN ROC6
04563 M00S04126.1tm +++| RSW SPACE 4,15
04564 M00S04127.1tm +++|** RSW - RESTORE WORD.
04565 M00S04128.1tm +++|*
04566 M00S04129.1tm +++|* THE WORD IN WHICH THE CONTROL BYTE 0015 OCCURS IS USED
04567 M00S04130.1tm +++|* AS THE FIRST N CHARACTERS OF THE INPUT LINE.
04568 M00S04131.1tm +++|*
04569 M00S04132.1tm +++|* ENTRY (T0 - T4) = DATA WORD.
04570 M00S04133.1tm +++|*
04571 M00S04134.1tm +++|* CALLS SWA.
04572 M00S04135.1tm +++|
04573 M00S04136.1tm +++|
04574 M00S04137.1tm +++| RSW SUBR ENTRY/EXIT
04575 M00S04138.1tm +++| RJM SWA SET WORD ADDRESS
04576 M00S04139.1tm +++| CWD T0 WRITE WORD TO POT
04577 M00S04140.1tm +++| UJN RSWX RETURN
04578 M00S04141.1tm +++| SRC SPACE 4,15
04579 M00S04142.1tm +++|** SRC - SEND REPEATED CHARACTER.
04580 M00S04143.1tm +++|*
04581 M00S04144.1tm +++|* ENTRY (A) = 6/REPEAT COUNT, 12/CHARACTER.
04582 M00S04145.1tm +++|*
04583 M00S04146.1tm +++|* EXIT CHARACTER TRANSMITTED (A) TIMES.
04584 M00S04147.1tm +++|*
04585 M00S04148.1tm +++|* USES (CH) = RETURN ADDRESS.
04586 M00S04149.1tm +++|* (CH+1) = REPEAT COUNT.
04587 M00S04150.1tm +++|*
04588 M00S04151.1tm +++|* MACROS RETURN.
04589 M00S04152.1tm +++|
04590 M00S04153.1tm +++|
04591 M00S04154.1tm +++| SRC SUBR ENTRY/EXIT
04592 M00S04155.1tm +++| LPC -4000 SET OUTPUT CHARACTER BIT
04593 M00S04156.1tm +++| LMC 4000
04594 M00S04157.1tm +++| STM RDAT SAVE CHARACTER
04595 M00S04158.1tm +++| SHN -14 SET REPEAT COUNT
04596 M00S04159.1tm +++| STD CH+1
04597 M00S04160.1tm +++| ZJN SRCX IF ZERO
04598 M00S04161.1tm +++| LDM SRC SET RETURN ADDRESS
04599 M00S04162.1tm +++| STD CH
04600 M00S04163.1tm +++| SRC1 LDM RDAT TRANSMIT OUTPUT
04601 M00S04164.1tm +++| STD DO
04602 M00S04165.1tm +++| RETURN * REENTER
04603 M00S04166.1tm +++| SOD CH+1 DECREMENT REPEAT COUNT
04604 M00S04167.1tm +++| NJN SRC1 IF NOT EXHAUSTED
04605 M00S04168.1tm +++| LJM 0,CH REENTER CALLING ROUTINE
04606 M00S04169.1tm +++| TOC SPACE 4,15
04607 M00S04170.1tm +++|** TOC - TRANSLATE ASCII OUTPUT CHARACTER.
04608 M00S04171.1tm +++|*
04609 M00S04172.1tm +++|* TRANSLATES OUTPUT DATA CHARACTER AND SETS THE
04610 M00S04173.1tm +++|* PROPER PARITY (EVEN OR ODD) ON THE TRANSLATED
04611 M00S04174.1tm +++|* OUTPUT CHARACTER.
04612 M00S04175.1tm +++|*
04613 M00S04176.1tm +++|* ENTRY (T7) = CHARACTER TO BE TRANSLATED.
04614 M00S04177.1tm +++|*
04615 M00S04178.1tm +++|* EXIT (A) = 4000B+CHARACTER IF SPECIAL PROCESOR
04616 M00S04179.1tm +++|* NOT DEFINED.
04617 M00S04180.1tm +++|* = SPECIAL PROCESSOR INDEX IF DEFINED.
04618 M00S04181.1tm +++|* (T7) = (A).
04619 M00S04182.1tm +++|
04620 M00S04183.1tm +++|
04621 M00S04184.1tm +++| TOC SUBR ENTRY/EXIT
04622 M00S04185.1tm +++| LDM TOTP,T7 READ TRANSLATION TABLE ENTRY
04623 M00S04186.1tm +++| STD T7
04624 M00S04187.1tm +++| SHN 21-13 CHECK FOR VALID CHARACTER
04625 M00S04188.1tm +++| PJN TOC1 IF IF SPECIAL PROCESSOR
04626 M00S04189.1tm +++| LDD T7 TOGGLE PARITY
04627 M00S04190.1tm +++| LMD PY TOGGLE ODD PARITY
04628 M00S04191.1tm +++| STD T7
04629 M00S04192.1tm +++| TOC1 LDD T7 RETURN (A) = TRANSLATION
04630 M00S04193.1tm +++| UJN TOCX RETURN
04631 M00S04194.1tm +++| SPACE 4,10
04632 M00S04195.1tm +++| QUAL
04633 M00S04196.1tm +++|
04634 M00S04197.1tm +++| WTM EQU /WTM/WTM
04635 M00S04198.1tm +++| TTM EQU /WTM/TTM
04636 M00S04199.1tm +++| DELM EQU /WTM/DELM
04637 M00S04200.1tm +++| LOFM EQU /WTM/LOFM
04638 M00S04201.1tm +++| MBSY EQU /WTM/MBSY
04639 M00S04202.1tm +++| RDYM EQU /WTM/RDYM
04640 M00S04203.1tm +++| RILM EQU /WTM/RILM
| Line S04204 Modification History |
M01 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04641 M01S04204.ns2149 ---| ITM TITLE MULTIPLEXER CHANNEL SUBROUTINES.
04642 M01S04205.ns2149 ---| IFN SPACE 4,35
04643 M01S04206.ns2149 ---|** IFN - ISSUE FUNCTION.
04644 M01S04207.ns2149 ---|*
04645 M01S04208.ns2149 ---|* ISSUE CHANNEL FUNCTION TO FUNCTION TPM HARDWARE.
04646 M01S04209.ns2149 ---|* IF THE TWO-PORT MULTIPLEXER FAILS TO REPLY TO THE FUNCTION
04647 M01S04210.ns2149 ---|* BY DISCONNECTING THE CHANNEL WITHIN 3 MILLISECONDS,
04648 M01S04211.ns2149 ---|* *IFN* FORMATS A DAYFILE MESSAGE SHOWING THE FAILED
04649 M01S04212.ns2149 ---|* FUNCTION AND EXITS TO THE ERROR PROCESSOR.
04650 M01S04213.ns2149 ---|*
04651 M01S04214.ns2149 ---|* ENTRY (A) = FUNCTION TO BE ISSUED.
04652 M01S04215.ns2149 ---|*
04653 M01S04216.ns2149 ---|* ERROR TO *ERR* IF FUNCTION REJECT -
04654 M01S04217.ns2149 ---|* (A) = ADDRESS OF DAYFILE MESSAGE.
04655 M01S04218.ns2149 ---|* ERROR LOG MESSAGE ISSUED.
04656 M01S04219.ns2149 ---|*
04657 M01S04220.ns2149 ---|* CALLS DFM, O2D.
04658 M01S04221.ns2149 ---|*
04659 M01S04222.ns2149 ---|* MACROS CHTE, DELAY.
04660 M01S04223.ns2149 ---|
04661 M01S04224.ns2149 ---|
04662 M01S04225.ns2149 ---| IFN SUBR ENTRY/EXIT
04663 M01S04226.ns2149 ---| STM IFNA SAVE FUNCTION CODE
04664 M01S04227.ns2149 ---| DCN MC+40 INSURE CHANNEL DISCONNECT
04665 M01S04228.ns2149 ---| FAN MC ISSUE FUNCTION CODE
04666 M01S04229.ns2149 ---| LDK FNTIO SET FUNCTION TIME-OUT
04667 M01S04230.ns2149 ---| STD T0
04668 M01S04231.ns2149 ---|
04669 M01S04232.ns2149 ---|* WAIT FOR CHANNEL DISCONNECT.
04670 M01S04233.ns2149 ---|
04671 M01S04234.ns2149 ---| IFN1 IJM IFNX,MC IF FUNCTION COMPLETE
04672 M01S04235.ns2149 ---| DELAY PAUSE 128 USECS
04673 M01S04236.ns2149 ---| SOD T0 DECREMENT TIME-OUT
04674 M01S04237.ns2149 ---| PJN IFN1 IF NOT TIMED-OUT
04675 M01S04238.ns2149 ---| DCN MC+40 DISCONNECT CHANNEL
04676 M01S04239.ns2149 ---|
| Line S04240 Modification History |
M01 (Removed by) | ns22000 |
M02 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04677 M02S04240.ns2149 ---|* FORMAT EQUIPMENT NUMBER INTO DAYFILE MESSAGE.
| Line S00013 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04678 M02S00013.ns2149 ---|* FORMAT EST ORDINAL INTO DAYFILE MESSAGE.
| Line S04241 Modification History |
M01 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04679 M01S04241.ns2149 ---|
04680 M01S04242.ns2149 ---| LDD EQ CONVERT UPPER 3 BITS
04681 M01S04243.ns2149 ---| SHN -6
04682 M01S04244.ns2149 ---| LPN 7
| Line S04245 Modification History |
M01 (Removed by) | 1tm1 |
M02 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04683 M02S04245.ns2149 ---| RJM 02D
| Line S00001 Modification History |
M01 (Added by) | 1tm1 |
M02 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04684 M02S00001.ns2149 ---| RJM O2D
| Line S04246 Modification History |
M01 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04685 M01S04246.ns2149 ---| SBK 2R00-2RM0 CONVERT UPPER *0* TO *M*
04686 M01S04247.ns2149 ---| STM IFNB+4
04687 M01S04248.ns2149 ---| LDD EQ CONVERT LOWER 6 BITS
04688 M01S04249.ns2149 ---| RJM O2D
04689 M01S04250.ns2149 ---| STM IFNB+5
04690 M01S04251.ns2149 ---|
04691 M01S04252.ns2149 ---|* FORMAT CHANNEL AND PORT NUMBERS INTO DAYFILE MESSAGE.
04692 M01S04253.ns2149 ---|
04693 M01S04254.ns2149 ---| LDN MC CONVERT CHANNEL NUMBER
04694 M01S04255.ns2149 ---| CHTE *-1
| Line S04256 Modification History |
M01 (Removed by) | 1tm1 |
M02 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04695 M02S04256.ns2149 ---| RJM 02D
| Line S00002 Modification History |
M01 (Added by) | 1tm1 |
M02 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04696 M02S00002.ns2149 ---| RJM O2D
| Line S04257 Modification History |
M01 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
04697 M01S04257.ns2149 ---| STM IFNB+7
04698 M01S04258.ns2149 ---| LDD PN CONVERT PORT NUMBER
04699 M01S04259.ns2149 ---| RJM O2D
04700 M01S04260.ns2149 ---| STM IFNB+11
04701 M01S04261.ns2149 ---|
04702 M01S04262.ns2149 ---|* FORMAT FUNCTION CODE INTO DAYFILE MESSAGE.
04703 M01S04263.ns2149 ---|
04704 M01S04264.ns2149 ---| LDC * CONVERT UPPER TWO DIGITS
04705 M01S04265.ns2149 ---| IFNA EQU *-1
04706 M01S04266.ns2149 ---| SHN -6
04707 M01S04267.ns2149 ---| RJM O2D
04708 M01S04268.ns2149 ---| STM IFNB+13
04709 M01S04269.ns2149 ---| LDM IFNA CONVERT LOWER TWO DIGITS
04710 M01S04270.ns2149 ---| RJM O2D
04711 M01S04271.ns2149 ---| STM IFNB+14
04712 M01S04272.ns2149 ---|
04713 M01S04273.ns2149 ---|* ISSUE ERROR LOG MESSAGE AND EXIT TO ERROR PROCESSOR.
04714 M01S04274.ns2149 ---|
04715 M01S04275.ns2149 ---| LDC IFNB+3+ERLN
04716 M01S04276.ns2149 ---| RJM DFM ISSUE ERROR LOG MESSAGE
04717 M01S04277.ns2149 ---| LDC IFNB SET ADDRESS OF DAYFILE MESSAGE
04718 M01S04278.ns2149 ---| LJM ERR EXIT TO ERROR PROCESSOR
04719 M01S04279.ns2149 ---|
04720 M01S04280.ns2149 ---|
04721 M01S04281.ns2149 ---| IFNB DATA C* 1TM - RMEEE CXX PYY FNNNN REJECT.*
04722 M01S04282.ns2149 ---| SEL SPACE 4,15
04723 M01S04283.ns2149 ---|** SEL - SELECT MULTIPLEXER PORT.
04724 M01S04284.ns2149 ---|*
04725 M01S04285.ns2149 ---|* ISSUES TPM FUNCTION CODES TO SELECT THE TPM PORT,
04726 M01S04286.ns2149 ---|* SET THE PORT OPERATING MODE, AND SET *DATA TERMINAL
04727 M01S04287.ns2149 ---|* READY* AND *REQUEST TO SEND*, THEN GETS AND STORES
04728 M01S04288.ns2149 ---|* THE PORT STATUS.
04729 M01S04289.ns2149 ---|*
04730 M01S04290.ns2149 ---|* ENTRY (PN) = PORT NUMBER.
04731 M01S04291.ns2149 ---|*
04732 M01S04292.ns2149 ---|* EXIT PORT SELECTED.
04733 M01S04293.ns2149 ---|* (ST) = PORT STATUS.
04734 M01S04294.ns2149 ---|*
04735 M01S04295.ns2149 ---|* CALLS IFN, STS.
04736 M01S04296.ns2149 ---|
04737 M01S04297.ns2149 ---|
04738 M01S04298.ns2149 ---| SEL SUBR ENTRY/EXIT
04739 M01S04299.ns2149 ---| LDD PN GET PORT NUMBER
04740 M01S04300.ns2149 ---| ADK SELECT SET *SELECT* FUNCTION
04741 M01S04301.ns2149 ---| RJM IFN ISSUE FUNCTION
04742 M01S04302.ns2149 ---| LDC SETPOM+TPMODE SET PORT OPERATING MODE
04743 M01S04303.ns2149 ---| RJM IFN
04744 M01S04304.ns2149 ---| LDK SETDTR SET *DATA TERMINAL READY*
04745 M01S04305.ns2149 ---| RJM IFN
04746 M01S04306.ns2149 ---| LDK SETRQS SET *REQUEST TO SEND*
04747 M01S04307.ns2149 ---| RJM IFN
04748 M01S04308.ns2149 ---| RJM STS GET PORT STATUS
04749 M01S04309.ns2149 ---| UJN SELX RETURN
04750 M01S04310.ns2149 ---| STS SPACE 4,15
04751 M01S04311.ns2149 ---|** STS - RETURN MULTIPLEXER STATUS.
04752 M01S04312.ns2149 ---|*
04753 M01S04313.ns2149 ---|* ISSUES FUNCTION TO REQUEST THE TPM PORT STATUS AND
04754 M01S04314.ns2149 ---|* INPUTS AND STORES THE STATUS RESPONSE FROM THE CHANNEL.
04755 M01S04315.ns2149 ---|*
04756 M01S04316.ns2149 ---|* EXIT (A) = MULTIPLEXER PORT STATUS.
04757 M01S04317.ns2149 ---|* (ST) = MULTIPLEXER PORT STATUS.
04758 M01S04318.ns2149 ---|*
04759 M01S04319.ns2149 ---|* ERROR TO *ERR* IF NO RESPONSE -
04760 M01S04320.ns2149 ---|* (A) = ADDRESS OF DAYFILE MESSAGE.
04761 M01S04321.ns2149 ---|*
04762 M01S04322.ns2149 ---|* CALLS IFN.
04763 M01S04323.ns2149 ---|
04764 M01S04324.ns2149 ---|
04765 M01S04325.ns2149 ---| STS SUBR ENTRY/EXIT
04766 M01S04326.ns2149 ---| LDK STATUS SELECT *STATUS* FUNCTION
04767 M01S04327.ns2149 ---| RJM IFN
04768 M01S04328.ns2149 ---| ACN MC
04769 M01S04329.ns2149 ---| EJM STS1,MC IF NO RESPONSE ON CHANNEL
04770 M01S04330.ns2149 ---| IAN MC READ STATUS RESPONSE
04771 M01S04331.ns2149 ---| STD ST STORE PORT STATUS
04772 M01S04332.ns2149 ---| DCN MC+40 DISCONNECT CHANNEL
04773 M01S04333.ns2149 ---| UJN STSX RETURN
04774 M01S04334.ns2149 ---|
04775 M01S04335.ns2149 ---| STS1 LDC =C* 1TM - NO TPM RESPONSE.*
04776 M01S04336.ns2149 ---| UJP ERR PROCESS ERROR
04777 M01S04337.ns2149 ---| SVM SPACE 4,15
04778 M01S04338.ns2149 ---|** SVM - SERVICE MULTIPLEXER.
04779 M01S04339.ns2149 ---|*
04780 M01S04340.ns2149 ---|* PERFORMS DATA OUTPUT AND INPUT OPERATIONS ON THE
04781 M01S04341.ns2149 ---|* TWO-PORT MULITPLEXER.
04782 M01S04342.ns2149 ---|*
04783 M01S04343.ns2149 ---|* ENTRY (DO) = OUTPUT DATA IF BIT 2**11 SET.
04784 M01S04344.ns2149 ---|*
04785 M01S04345.ns2149 ---|* EXIT (DO) = ZERO IF DATA SENT.
04786 M01S04346.ns2149 ---|* = OUTPUT DATA IF OUTPUT BUFFER FULL.
04787 M01S04347.ns2149 ---|* (DI) = INPUT DATA.
04788 M01S04348.ns2149 ---|* = ZERO IF NO INPUT DATA.
04789 M01S04349.ns2149 ---|*
04790 M01S04350.ns2149 ---|* CALLS IFN.
04791 M01S04351.ns2149 ---|
04792 M01S04352.ns2149 ---|
04793 M01S04353.ns2149 ---| SVM SUBR ENTRY/EXIT
04794 M01S04354.ns2149 ---| LDN 0 CLEAR INPUT DATA
04795 M01S04355.ns2149 ---| STD DI
04796 M01S04356.ns2149 ---| LDD ST GET PORT STATUS
04797 M01S04357.ns2149 ---| LPN 6 CHECK *CARRIER ON* AND *DATA SET READY*
04798 M01S04358.ns2149 ---| LMN 6
04799 M01S04359.ns2149 ---| NJN SVMX IF NOT *CARRIER ON* AND *DATA SET READY*
04800 M01S04360.ns2149 ---|
04801 M01S04361.ns2149 ---|* WRITE OUTPUT DATA TO MULTIPLEXER PORT.
04802 M01S04362.ns2149 ---|
04803 M01S04363.ns2149 ---| LDD ST GET PORT STATUS
04804 M01S04364.ns2149 ---| LPN 20 CHECK *OUPUT BUFFER READY*
04805 M01S04365.ns2149 ---| ZJN SVM1 IF NOT *OUPUT BUFFER READY*
04806 M01S04366.ns2149 ---| LDD DO CHECK OUTPUT DATA
04807 M01S04367.ns2149 ---| SHN 21-13
04808 M01S04368.ns2149 ---| PJN SVM1 IF NO OUTPUT DATA
04809 M01S04369.ns2149 ---| LDK WRITE SELECT *WRITE* FUNCTION
04810 M01S04370.ns2149 ---| RJM IFN
04811 M01S04371.ns2149 ---| LDD DO TRANSMIT DATA TO PORT
04812 M01S04372.ns2149 ---| LPC 377
04813 M01S04373.ns2149 ---| ACN MC
04814 M01S04374.ns2149 ---| OAN MC
04815 M01S04375.ns2149 ---| DCN MC+40
04816 M01S04376.ns2149 ---| LDN 0 CLEAR OUTPUT DATA POINTER
04817 M01S04377.ns2149 ---| STD DO
04818 M01S04378.ns2149 ---|
04819 M01S04379.ns2149 ---|* READ INPUT DATA FROM MULTIPLEXER PORT.
04820 M01S04380.ns2149 ---|
04821 M01S04381.ns2149 ---| SVM1 LDD ST CHECK PORT STATUS
04822 M01S04382.ns2149 ---| LPN 10
04823 M01S04383.ns2149 ---| ZJN SVM2 IF NOT *INPUT DATA READY*
04824 M01S04384.ns2149 ---| LDK READ SELECT *READ* FUNCTION
04825 M01S04385.ns2149 ---| RJM IFN
04826 M01S04386.ns2149 ---| ACN MC
04827 M01S04387.ns2149 ---| IAN MC INPUT DATA FROM PORT
04828 M01S04388.ns2149 ---| DCN MC+40
04829 M01S04389.ns2149 ---| SVM2 STD DI STORE INPUT DATA
04830 M01S04390.ns2149 ---| UJP SVMX RETURN
04831 M00S04391.1tm +++| ITM TITLE GENERAL SUBROUTINES.
04832 M00S04392.1tm +++| AVT SPACE 4,15
04833 M00S04393.1tm +++|** AVT - ADVANCE TIMERS.
04834 M00S04394.1tm +++|*
04835 M00S04395.1tm +++|* EXIT (HS) = NONZERO IF 1/2 SECOND ELAPSED.
04836 M00S04396.1tm +++|* = CLEARED BETWEEN 1/2 SECOND CYCLES.
04837 M00S04397.1tm +++|* (IT) = DECREMENTED BY ONE EACH 1/2
04838 M00S04398.1tm +++|* SECOND IF NONZERO.
04839 M00S04399.1tm +++|*
04840 M00S04400.1tm +++|* USES CM - CM+4.
04841 M00S04401.1tm +++|*
04842 M00S04402.1tm +++|* MACROS DELAY.
04843 M00S04403.1tm +++|
04844 M00S04404.1tm +++|
04845 M00S04405.1tm +++| AVT SUBR ENTRY/EXIT
04846 M00S04406.1tm +++| AVT1 LDK RTCL READ REAL-TIME CLOCK
04847 M00S04407.1tm +++| CRD CM
04848 M00S04408.1tm +++| LDD CM+4 CHECK CYCLE TIME
04849 M00S04409.1tm +++| SBM AVTA
04850 M00S04410.1tm +++| PJN AVT2 IF NO OVERFLOW
04851 M00S04411.1tm +++| ADC 10000
04852 M00S04412.1tm +++| AVT2 SBK MNCT
04853 M00S04413.1tm +++| PJN AVT3 IF MINIMUM CYCLE TIME ELAPSED
04854 M00S04414.1tm +++| DELAY
04855 M00S04415.1tm +++| UJN AVT1 LOOP
04856 M00S04416.1tm +++|
04857 M00S04417.1tm +++| AVT3 LDD CM+4 UPDATE MSECS BITS 11-0
04858 M00S04418.1tm +++| STM AVTA
04859 M00S04419.1tm +++| SHN -11 CHECK INTERVAL
04860 M00S04420.1tm +++| SHN 17
04861 M00S04421.1tm +++| LMD CM+3
04862 M00S04422.1tm +++| SHN 3
04863 M00S04423.1tm +++| LPC 7777
04864 M00S04424.1tm +++| SBM AVTB CHECK MSECS BITS 20-9
04865 M00S04425.1tm +++| ZJN AVT4 IF NO CHANGE
04866 M00S04426.1tm +++| RAM AVTB UPDATE MSECS BITS 20-9
04867 M00S04427.1tm +++| LDN 1
04868 M00S04428.1tm +++| AVT4 STD HS SET/CLEAR HALF-SECOND FLAG
04869 M00S04429.1tm +++| ZJN AVT5 IF NOT 1/2 SECOND INTERVAL
04870 M00S04430.1tm +++| LDD IT CHECK 1/2 SECOND TIMER
04871 M00S04431.1tm +++| ZJN AVT5 IF ZERO
04872 M00S04432.1tm +++| SOD IT DECREMENT TIMER
04873 M00S04433.1tm +++| AVT5 UJP AVTX RETURN
04874 M00S04434.1tm +++|
04875 M00S04435.1tm +++|
04876 M00S04436.1tm +++| AVTA CON 0 PREVIOUS REAL-TIME MSECS (BITS 11-0)
04877 M00S04437.1tm +++| AVTB CON 0 PREVIOUS REAL-TIME MSECS (BITS 20-9)
04878 M00S04438.1tm +++| BUP SPACE 4,15
04879 M00S04439.1tm +++|** BUP - BACK UP POINTERS.
04880 M00S04440.1tm +++|*
04881 M00S04441.1tm +++|* BACKS UP THE CURRENT CHARACTER, CURRENT WORD,
04882 M00S04442.1tm +++|* AND CURRENT POT POINTERS TO THE IMMEDIATELY
04883 M00S04443.1tm +++|* PRECEDING CHARACTER POSITION.
04884 M00S04444.1tm +++|*
04885 M00S04445.1tm +++|* EXIT (DP+1) = NEW CURRENT POT.
04886 M00S04446.1tm +++|* (DP+2) = NEW CURRENT WORD AND CHARACTER.
04887 M00S04447.1tm +++|*
04888 M00S04448.1tm +++|* USES T5, T6.
04889 M00S04449.1tm +++|*
04890 M00S04450.1tm +++|* CALLS RLT.
04891 M00S04451.1tm +++|
04892 M00S04452.1tm +++|
04893 M00S04453.1tm +++| BUP5 SOD DP+2 DECREMENT CHARACTER NUMBER
04894 M00S04454.1tm +++|
04895 M00S04455.1tm +++| BUP SUBR ENTRY/EXIT
04896 M00S04456.1tm +++| LDD DP+2 CHECK CHARACTER NUMBER
04897 M00S04457.1tm +++| LPN 17
04898 M00S04458.1tm +++| NJN BUP5 IF NOT FIRST CHARACTER OF WORD
04899 M00S04459.1tm +++| LDD DP+1 CHECK CURRENT POT
04900 M00S04460.1tm +++| LMD DP
04901 M00S04461.1tm +++| NJN BUP2 IF NOT FIRST POT
04902 M00S04462.1tm +++| LDD DP+2 CHECK WORD NUMBER
04903 M00S04463.1tm +++| SHN 5
04904 M00S04464.1tm +++| LMD DP+2
04905 M00S04465.1tm +++| LPC 7000
04906 M00S04466.1tm +++| ZJN BUPX IF FIRST WORD
04907 M00S04467.1tm +++| BUP1 LCN 20-11 DECREMENT WORD NUMBER, SET LAST CHARACTER
04908 M00S04468.1tm +++| RAD DP+2
04909 M00S04469.1tm +++| UJN BUPX
04910 M00S04470.1tm +++|
04911 M00S04471.1tm +++| BUP2 LDD DP+2 CHECK CURRENT WORD
04912 M00S04472.1tm +++| LPC 160
04913 M00S04473.1tm +++| NJN BUP1 IF NOT FIRST WORD OF POT
04914 M00S04474.1tm +++| LDD DP+1 SAVE CURRENT POT
04915 M00S04475.1tm +++| STD T6
04916 M00S04476.1tm +++| LDD DP SET FIRST POT
04917 M00S04477.1tm +++| BUP3 STD DP+1
04918 M00S04478.1tm +++| RJM RLT READ LINK TABLE
04919 M00S04479.1tm +++| LMD T6
04920 M00S04480.1tm +++| ZJN BUP4 IF CURRENT POT REACHED
04921 M00S04481.1tm +++| LMD T6 SET NEXT POT
04922 M00S04482.1tm +++| UJN BUP3 LOOP
04923 M00S04483.1tm +++|
04924 M00S04484.1tm +++| BUP4 LDD DP+2 SET LAST WORD, LAST CHARACTER
04925 M00S04485.1tm +++| LPC 7000
04926 M00S04486.1tm +++| LMC 371 SET *POT REQUESTED*
04927 M00S04487.1tm +++| STD DP+2
04928 M00S04488.1tm +++| LJM BUPX RETURN
04929 M00S04489.1tm +++| CCQ SPACE 4,15
04930 M00S04490.1tm +++|** CCQ - CHECK CIRCULAR REQUEST QUEUE.
04931 M00S04491.1tm +++|*
04932 M00S04492.1tm +++|* CHECKS THE DRIVER CIRCULAR REQUEST QUEUE FOR
04933 M00S04493.1tm +++|* AMOUNT OF FREE SPACE REMAINING AND RECALLS THE
04934 M00S04494.1tm +++|* CPU IF THE QUEUE IS MORE THAN HALF FULL.
04935 M00S04495.1tm +++|*
04936 M00S04496.1tm +++|* USES CM - CM+4.
04937 M00S04497.1tm +++|*
04938 M00S04498.1tm +++|* MACROS LDCDQ, MONITOR.
04939 M00S04499.1tm +++|
04940 M00S04500.1tm +++|
04941 M00S04501.1tm +++| CCQ SUBR ENTRY/EXIT
04942 M00S04502.1tm +++| LDCDQ 3 READ CIRCULAR QUEUE *OUT* POINTER
04943 M00S04503.1tm +++| CRD CM
04944 M00S04504.1tm +++| LDD IN+3 CHECK *IN* - *OUT*
04945 M00S04505.1tm +++| SBD CM+3
04946 M00S04506.1tm +++| SHN 14
04947 M00S04507.1tm +++| ADD IN+4
04948 M00S04508.1tm +++| SBD CM+4
04949 M00S04509.1tm +++| PJN CCQ1 IF *IN* .GE. *OUT*
| Line S04510 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
04950 M01S04510.242l642 ---| ADC VDSL
04951 M01S04511.242l642 ---| CCQ1 ADC -VDSL/2
| Line S00313 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 1tm11 |
Seq # *Modification Id* Act
----------------------------+
04952 M02S00313.1tm11 ---| ADD HN
04953 M02S00314.1tm11 ---| ERRNZ VDSL-100 *VDSL* CHANGED
| Line S00001 Modification History |
M01 (Added by) | 1tm11 |
Seq # *Modification Id* Act
----------------------------+
04954 M01S00001.1tm11 +++| ADK VDSL
| Line S00315 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
04955 M01S00315.242l642 +++| CCQ1 SBK VDSL/2
04956 M00S04512.1tm +++| MJN CCQX IF QUEUE .LE. HALF FULL
04957 M00S04513.1tm +++| MONITOR RCLM RECALL CPU
04958 M00S04514.1tm +++| UJN CCQX RETURN
04959 M00S04515.1tm +++| CEF SPACE 4,15
04960 M00S04516.1tm +++|** CEF - CHECK ERROR FLAG.
04961 M00S04517.1tm +++|*
04962 M00S04518.1tm +++|* CHECKS CPU ERROR FLAG. IF SET, DROPS EQUIPMENT
04963 M00S04519.1tm +++|* AND CHANNEL AND DROPS THE PPU.
04964 M00S04520.1tm +++|*
04965 M00S04521.1tm +++|* EXIT TO *DPP* IF ERROR FLAG SET.
04966 M00S04522.1tm +++|*
04967 M00S04523.1tm +++|* USES CM - CM+4.
04968 M00S04524.1tm +++|
04969 M00S04525.1tm +++|
04970 M00S04526.1tm +++| CEF SUBR ENTRY/EXIT
04971 M00S04527.1tm +++| LDD CP READ CP STATUS WORD
04972 M00S04528.1tm +++| ADK STSW
04973 M00S04529.1tm +++| CRD CM
04974 M00S04530.1tm +++| LDD CM+1 CHECK ERROR FLAG
04975 M00S04531.1tm +++| ZJN CEFX IF NO ERROR FLAG
04976 M00S04532.1tm +++| LJM DPP DROP PPU
04977 M00S04533.1tm +++| CEM SPACE 4,15
04978 M00S04534.1tm +++|** CEM - CLEAR EXTENDED TRANSMISSION MODE.
04979 M00S04535.1tm +++|*
04980 M00S04536.1tm +++|* SET/RESET EXTENDED TRANSMISSION MODE DEPENDING
04981 M00S04537.1tm +++|* UPON MODE IN *VDCT*.
04982 M00S04538.1tm +++|*
04983 M00S04539.1tm +++|* EXIT (A) = (DP+3).
04984 M00S04540.1tm +++|* (DP+3) = EXTENDED MODE CLEARED OR SET.
04985 M00S04541.1tm +++|
04986 M00S04542.1tm +++|
04987 M00S04543.1tm +++| CEM SUBR ENTRY/EXIT
04988 M00S04544.1tm +++| LDD DP+3 CLEAR EXTENDED MODE
04989 M00S04545.1tm +++| SCN 2
04990 M00S04546.1tm +++| STD DP+3
04991 M00S04547.1tm +++| LDD DC GET TERMINAL STATUS
04992 M00S04548.1tm +++| SHN 1-3 SET EXTENDED/NORMAL MODE
04993 M00S04549.1tm +++| LPN 2
04994 M00S04550.1tm +++| RAD DP+3
04995 M00S04551.1tm +++| UJN CEMX RETURN
04996 M00S04552.1tm +++| CIT SPACE 4,15
04997 M00S04553.1tm +++|** CIT - CHECK FOR INACTIVITY TIME-OUT.
04998 M00S04554.1tm +++|*
04999 M00S04555.1tm +++|* ENTRY (IR+3) = REAL-TIME CLOCK (SECONDS) AT START
05000 M00S04556.1tm +++|* OF DRIVER INACTIVITY TIME-OUT.
05001 M00S04557.1tm +++|*
05002 M00S04558.1tm +++|* EXIT (A) = NONZERO IF DRIVER TIMED-OUT.
05003 M00S04559.1tm +++|* = ZERO IF NOT TIMED-OUT.
05004 M00S04560.1tm +++|*
05005 M00S04561.1tm +++|* USES CM - CM+4.
05006 M00S04562.1tm +++|
05007 M00S04563.1tm +++|
05008 M00S04564.1tm +++| CIT SUBR ENTRY/EXIT
05009 M00S04565.1tm +++| LDK SSTL READ SUBSYSTEM CONTROL WORD
05010 M00S04566.1tm +++| CRD CM
05011 M00S04567.1tm +++| LDD CM+3 CHECK *RDF* STATUS
05012 M00S04568.1tm +++| SHN 21-10
05013 M00S04569.1tm +++| PJN CIT2 IF *RDF* IN DEDICATED STATUS
05014 M00S04570.1tm +++| LDK RTCL READ REAL-TIME CLOCK
05015 M00S04571.1tm +++| CRD CM
05016 M00S04572.1tm +++| LDD CM+1 CHECK ELAPSED TIME
05017 M00S04573.1tm +++| SBD IR+3
05018 M00S04574.1tm +++| PJN CIT1 IF NO ROLLOVER
05019 M00S04575.1tm +++| ADC 10000
05020 M00S04576.1tm +++| CIT1 SBK INATIO SUBTRACT TIME-OUT INTERVAL
05021 M00S04577.1tm +++| MJN CIT2 IF INTERVAL NOT EXCEEDED
05022 M00S04578.1tm +++| LDN 77 (A) STATUS = TIMED-OUT
05023 M00S04579.1tm +++| UJN CITX RETURN
05024 M00S04580.1tm +++|
05025 M00S04581.1tm +++| CIT2 LDN 0 (A) STATUS = NOT TIMED-OUT
05026 M00S04582.1tm +++| UJN CITX RETURN
05027 M00S04583.1tm +++| CMF SPACE 4,15
05028 M00S04584.1tm +++|** CMF - CHECK *RDF* STATUS.
05029 M00S04585.1tm +++|*
05030 M00S04586.1tm +++|* CHECKS TO SEE THAT *RDF* IS ENABLED. IF NOT,
05031 M00S04587.1tm +++|* ISSUE ERROR LOG MESSAGE AND EXIT TO *ERR*.
05032 M00S04588.1tm +++|*
05033 M00S04589.1tm +++|* EXIT RETURN TO CALLER IF *RDF* ENABLED.
05034 M00S04590.1tm +++|* TO *ERR* IF *RDF* DISABLED -
05035 M00S04591.1tm +++|* ERROR LOG MESSAGE ISSUED.
05036 M00S04592.1tm +++|* (A) = ADDRESS OF DAYFILE MESSAGE.
05037 M00S04593.1tm +++|*
| Line S04594 Modification History |
M01 (Removed by) | v22l602 |
Seq # *Modification Id* Act
----------------------------+
05038 M01S04594.v22l602 ---|* USES CM - CM+4.
| Line S00002 Modification History |
M01 (Added by) | v22l602 |
Seq # *Modification Id* Act
----------------------------+
05039 M01S00002.v22l602 +++|* USES T1, CM - CM+4.
05040 M00S04595.1tm +++|*
05041 M00S04596.1tm +++|* CALLS DFM.
05042 M00S04597.1tm +++|
05043 M00S04598.1tm +++|
05044 M00S04599.1tm +++| CMF SUBR ENTRY/EXIT
| Line S04600 Modification History |
M01 (Removed by) | v22l602 |
Seq # *Modification Id* Act
----------------------------+
05045 M01S04600.v22l602 ---| LDK SSTL READ SUBSYSTEM CONTROL WORD
05046 M01S04601.v22l602 ---| CRD CM
05047 M01S04602.v22l602 ---| LDD CM+3 CHECK *RDF* STATUS
05048 M01S04603.v22l602 ---| SHN 21-6
05049 M01S04604.v22l602 ---| PJN CMFX IF *RDF* NOT DISABLED
| Line S00003 Modification History |
M01 (Added by) | v22l602 |
Seq # *Modification Id* Act
----------------------------+
05050 M01S00003.v22l602 +++| LDK SSSL READ SUBSYSTEM STATUS
05051 M01S00004.v22l602 +++| CRD CM
05052 M01S00005.v22l602 +++| LDM CMFB+1 SET MASK
05053 M01S00006.v22l602 +++| STM CMFC
05054 M01S00007.v22l602 +++| LDM CMFB GET *SSSL* BYTE NUMBER
05055 M01S00008.v22l602 +++| STD T1
05056 M01S00009.v22l602 +++| LDM CM,T1 READ BYTE
05057 M01S00010.v22l602 +++| LPC **
05058 M01S00011.v22l602 +++| CMFC EQU *-1 (*RDF* MASK BIT)
05059 M01S00012.v22l602 +++| ZJN CMFX IF *RDF* NOT DISABLED
| Line S04605 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05060 M01S04605.242l642 ---| LDC CMFA+3+ERLN ISSUE ERROR LOG MESSAGE
05061 M01S04606.242l642 ---| RJM DFM
05062 M01S04607.242l642 ---| LDC CMFA
05063 M01S04608.242l642 ---| JMP ERR EXIT TO ERROR PROCESSOR
05064 M01S04609.242l642 ---|
05065 M01S04610.242l642 ---|
05066 M01S04611.242l642 ---| CMFA DATA C* 1TM - RDF TERMINATED.*
| Line S00316 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05067 M01S00316.242l642 +++| LDN MTER * RDF TERMINATED.*
05068 M01S00317.242l642 +++| JMP IMT ISSUE MESSAGE AND TERMINATE
| Line S00013 Modification History |
M01 (Added by) | v22l602 |
Seq # *Modification Id* Act
----------------------------+
05069 M01S00013.v22l602 +++|
05070 M01S00014.v22l602 +++|* CALCULATE *SSSL* BYTE AND MASK FOR *RDF*.
05071 M01S00015.v22l602 +++|
05072 M01S00016.v22l602 +++| .1 SET MXSI-RDSI
05073 M01S00017.v22l602 +++| .2 SET .1/12D
05074 M01S00018.v22l602 +++| .3 SET 4-.2
05075 M01S00019.v22l602 +++| .4 DECMIC .1-12D*.2
05076 M01S00020.v22l602 +++| .5 SET 1S".4"
05077 M01S00021.v22l602 +++|
05078 M01S00022.v22l602 +++| CMFB CON .3 *SSSL* BYTE NUMBER
05079 M01S00023.v22l602 +++| CON .5 *SSSL* MASK
05080 M00S04612.1tm +++| CUT SPACE 4,15
05081 M00S04613.1tm +++|** CUT - CLEAN UP TERMINAL TABLE.
05082 M00S04614.1tm +++|*
05083 M00S04615.1tm +++|* CLEARS ALL INFORMATION FROM THE TERMINAL TABLE OF THE
05084 M00S04616.1tm +++|* LOGGED OUT USER, LEAVING VROT SET COMPLETE.
05085 M00S04617.1tm +++|*
05086 M00S04618.1tm +++|* EXIT TERMINAL TABLE WORDS ZEROED OUT. (VROT), BIT
05087 M00S04619.1tm +++|* ZERO, SET.
05088 M00S04620.1tm +++|*
05089 M00S04621.1tm +++|* USES T0 - T5.
05090 M00S04622.1tm +++|*
05091 M00S04623.1tm +++|* CALLS STA.
05092 M00S04624.1tm +++|
05093 M00S04625.1tm +++|
05094 M00S04626.1tm +++| CUT SUBR ENTRY/EXIT
05095 M00S04627.1tm +++| LDN ZERL
05096 M00S04628.1tm +++| CRD T0
05097 M00S04629.1tm +++| LDN 0
05098 M00S04630.1tm +++| STD T5
05099 M00S04631.1tm +++| CUT1 RJM STA SET FWA OF TERMINAL TABLE
05100 M00S04632.1tm +++| ADD T5
05101 M00S04633.1tm +++| CWD T0 CLEAR OUT TERMINAL TABLE
05102 M00S04634.1tm +++| AOD T5
05103 M00S04635.1tm +++| SBN VTTL
05104 M00S04636.1tm +++| NJN CUT1 IF MORE WORDS TO CLEAR
05105 M00S04637.1tm +++| AOD T4 SET COMPLETE BIT IN VROT
05106 M00S04638.1tm +++| RJM STA SET FWA OF TERMINAL TABLE
05107 M00S04639.1tm +++| ADN VROT WRITE *VROT*
05108 M00S04640.1tm +++| CWD T0
05109 M00S04641.1tm +++| UJN CUTX EXIT
05110 M00S04642.1tm +++| CWA SPACE 4,15
05111 M00S04643.1tm +++|** CWA - SET DRIVER CONTROL WORD ADDRESS.
05112 M00S04644.1tm +++|*
05113 M00S04645.1tm +++|* RETURNS THE ABSOLUTE CM ADDRESS OF THE DRIVER CONTROL
| Line S04646 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05114 M01S04646.242l642 ---|* WORD WITHIN *RAF* FIELD LENGTH.
| Line S00318 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05115 M01S00318.242l642 +++|* WORD WITHIN *RDF* FIELD LENGTH.
05116 M00S04647.1tm +++|*
05117 M00S04648.1tm +++|* ENTRY (IR+4) = DRIVER CONTROL WORD POINTER.
05118 M00S04649.1tm +++|*
05119 M00S04650.1tm +++|* EXIT (A) = CM ADDRESS OF DRIVER CONTROL WORD.
05120 M00S04651.1tm +++|
05121 M00S04652.1tm +++|
05122 M00S04653.1tm +++| CWA SUBR ENTRY/EXIT
05123 M00S04654.1tm +++| LDD RA SET CM ADDRESS
05124 M00S04655.1tm +++| SHN 6
05125 M00S04656.1tm +++| ADD IR+4 ADD DRIVER CONTROL WORD POINTER
05126 M00S04657.1tm +++| UJN CWAX RETURN
05127 M00S04658.1tm +++| DCE SPACE 4,15
05128 M00S04659.1tm +++|** DCE - DROP CHANNEL AND EQUIPMENT.
05129 M00S04660.1tm +++|*
| Line S04661 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05130 M01S04661.242l642 ---|* ENTRY (EQ) = BIT 2**9 SET IF CHANNEL AND
05131 M01S04662.242l642 ---|* EQUIPMENT RESERVED.
| Line S00319 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05132 M01S00319.242l642 +++|* ENTRY (EQ) = BIT 2**9 SET IF EQUIPMENT RESERVED.
05133 M00S04663.1tm +++|*
05134 M00S04664.1tm +++|* EXIT CHANNEL AND EQUIPMENT DROPPED.
05135 M00S04665.1tm +++|* (EQ) = BIT 2**9 RESET.
05136 M00S04666.1tm +++|*
05137 M00S04667.1tm +++|* USES CM - CM+4.
05138 M00S04668.1tm +++|*
| Line S04669 Modification History |
M01 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
05139 M01S04669.ns2149 ---|* MACROS CHTE, DCHAN, MONITOR.
| Line S00045 Modification History |
M01 (Added by) | ns2149 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05140 M02S00045.242l642 ---|* CALLS RTM.
| Line S00320 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05141 M01S00320.242l642 +++|* CALLS CLR, RTM.
| Line S00046 Modification History |
M01 (Added by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
05142 M01S00046.ns2149 +++|*
05143 M01S00047.ns2149 +++|* MACROS DCHAN, MONITOR.
05144 M00S04670.1tm +++|
05145 M00S04671.1tm +++|
| Line S04672 Modification History |
M01 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
05146 M01S04672.ns2149 ---| DCE SUBR ENTRY EXIT
| Line S00048 Modification History |
M01 (Added by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
05147 M01S00048.ns2149 +++| DCE SUBR ENTRY/EXIT
05148 M00S04673.1tm +++| LDD EQ CHECK EQUIPMENT
05149 M00S04674.1tm +++| SBD TH
05150 M00S04675.1tm +++| MJN DCEX IF NOT RESERVED
05151 M00S04676.1tm +++| STD EQ CLEAR BIT 2**9
05152 M00S04677.1tm +++| STD CM+1 DROP EQUIPMENT
05153 M00S04678.1tm +++| MONITOR DEQM
| Line S04679 Modification History |
M01 (Removed by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
05154 M01S04679.ns2149 ---| LDN MC DROP MULTIPLEXER CHANNEL
05155 M01S04680.ns2149 ---| CHTE *-1
| Line S00049 Modification History |
M01 (Added by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
05156 M01S00049.ns2149 +++| LDN MX DROP MULTIPLEXER CHANNEL
05157 M00S04681.1tm +++| DCHAN
| Line S00050 Modification History |
M01 (Added by) | ns2149 |
Seq # *Modification Id* Act
----------------------------+
05158 M01S00050.ns2149 +++| RJM RTM RELEASE TERMINAL ON MULTIPLEXER
| Line S00321 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05159 M01S00321.242l642 +++| RJM CLR CLEAR LAST REQUEST
05160 M00S04682.1tm +++| UJN DCEX RETURN
05161 M00S04683.1tm +++| DDC SPACE 4,20
05162 M00S04684.1tm +++|** DDC - DETERMINE DELAY COUNT.
05163 M00S04685.1tm +++|*
05164 M00S04686.1tm +++|* DETERMINES THE TERMINAL NULL CHARACTER (*NUL* OR
05165 M00S04687.1tm +++|* *DEL*) COUNT BASED UPON THE DELAY COUNT IN THE
05166 M00S04688.1tm +++|* USER'S TERMINAL TABLE AND UPON THE DEFAULT COUNT
05167 M00S04689.1tm +++|* PRESENTED TO THE ROUTINE. IF THERE IS NO COUNT
05168 M00S04690.1tm +++|* DEFINED IN THE TERMINAL TABLE, THE DEFAULT COUNT
05169 M00S04691.1tm +++|* WILL BE USED.
05170 M00S04692.1tm +++|*
05171 M00S04693.1tm +++|* ENTRY (A) = DEFAULT COUNT.
05172 M00S04694.1tm +++|*
05173 M00S04695.1tm +++|* EXIT (A) = DELAY COUNT.
05174 M00S04696.1tm +++|
05175 M00S04697.1tm +++|
05176 M00S04698.1tm +++| DDC SUBR ENTRY/EXIT
05177 M00S04699.1tm +++| STD T0 SAVE DEFAULT COUNT
05178 M00S04700.1tm +++| LDD DC+1 GET USER DELAY COUNT
05179 M00S04701.1tm +++| SHN -3
05180 M00S04702.1tm +++| LPN 37
05181 M00S04703.1tm +++| ZJN DDC1 IF NO USER DELAY COUNT DEFINED
05182 M00S04704.1tm +++| STD T0
05183 M00S04705.1tm +++| DDC1 LDD T0 GET DELAY COUNT
05184 M00S04706.1tm +++| UJN DDCX RETURN
05185 M00S04707.1tm +++| DPP SPACE 4,15
05186 M00S04708.1tm +++|** DPP - DROP PPU.
05187 M00S04709.1tm +++|*
05188 M00S04710.1tm +++|* DROPS CHANNEL AND EQUIPMENT, SIGNALS DRIVER SHUTDOWN
| Line S04711 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05189 M01S04711.242l642 ---|* TO *RAF*, AND DROPS THE PPU.
| Line S00322 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05190 M01S00322.242l642 +++|* TO *RDF*, AND DROPS THE PPU.
05191 M00S04712.1tm +++|*
05192 M00S04713.1tm +++|* EXIT TO *PPR*.
05193 M00S04714.1tm +++|*
05194 M00S04715.1tm +++|* CALLS DCE, SDS.
05195 M00S04716.1tm +++|*
05196 M00S04717.1tm +++|* MACROS MONITOR.
05197 M00S04718.1tm +++|
05198 M00S04719.1tm +++|
05199 M00S04720.1tm +++| DPP BSS 0 ENTRY
05200 M00S04721.1tm +++| RJM DCE DISCONNECT CHANNEL AND EQUIPMENT
05201 M00S04722.1tm +++| RJM SDS SIGNAL DRIVER SHUTDOWN
05202 M00S04723.1tm +++| MONITOR DPPM DROP PPU
05203 M00S04724.1tm +++| LJM PPR EXIT TO PPU RESIDENT
| Line S04725 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05204 M01S04725.242l642 ---| DTO SPACE 4,15
05205 M01S04726.242l642 ---|** DTO - PROCESS DRIVER TIME-OUT.
05206 M01S04727.242l642 ---|*
05207 M01S04728.242l642 ---|* ENTERED WHEN DRIVER HAS TIMED-OUT BECAUSE OF NO
05208 M01S04729.242l642 ---|* LINE ACTIVITY. ISSUES ERROR LOG MESSAGE, THEN
05209 M01S04730.242l642 ---|* EXITS TO *ERR* TO ISSUE DAYFILE MESSAGE AND TO
05210 M01S04731.242l642 ---|* DROP THE PPU WITHOUT RECALL.
05211 M01S04732.242l642 ---|*
05212 M01S04733.242l642 ---|* EXIT TO *ERR* -
05213 M01S04734.242l642 ---|* ERROR LOG MESSAGE ISSUED.
05214 M01S04735.242l642 ---|* (A) = ADDRESS OF DAYFILE MESSAGE.
05215 M01S04736.242l642 ---|*
05216 M01S04737.242l642 ---|* CALLS DFM.
05217 M01S04738.242l642 ---|
05218 M01S04739.242l642 ---|
05219 M01S04740.242l642 ---| DTO BSS 0 ENTRY
| Line S04741 Modification History |
M01 (Removed by) | ns2149 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05220 M02S04741.242l642 ---| LDC DTOA+3+ERLN * RDF TIMOUT.*
| Line S00051 Modification History |
M01 (Added by) | ns2149 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05221 M02S00051.242l642 ---| LDC DTOA+3+ERLN * RDF TIME-OUT.*
| Line S04742 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05222 M01S04742.242l642 ---| RJM DFM ISSUE ERROR LOG MESSAGE
05223 M01S04743.242l642 ---| LDC DTOA * 1TM - RDF TIME-OUT.*
05224 M01S04744.242l642 ---| LJM ERR ENTER ERROR PROCESSOR
05225 M01S04745.242l642 ---|
05226 M01S04746.242l642 ---|
05227 M01S04747.242l642 ---| DTOA DATA C* 1TM - RDF TIME-OUT.*
05228 M00S04748.1tm +++| ERQ SPACE 4,20
05229 M00S04749.1tm +++|** ERQ - ENTER CIRCULAR REQUEST QUEUE.
05230 M00S04750.1tm +++|*
05231 M00S04751.1tm +++|* ERQ IS USED TO PLACE AN ENTRY IN THE DRIVER CIRCULAR REQUEST
| Line S04752 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05232 M01S04752.242l642 ---|* QUEUE FOR *RAF* TO PROCESS.
| Line S00323 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05233 M01S00323.242l642 +++|* QUEUE FOR *RDF* TO PROCESS.
05234 M00S04753.1tm +++|*
05235 M00S04754.1tm +++|* ENTRY (A) = REQUEST CODE.
05236 M00S04755.1tm +++|* (RQ+1 - RQ+3) = PARAMETERS.
05237 M00S04756.1tm +++|* (TN) = TERMINAL NUMBER.
05238 M00S04757.1tm +++|*
05239 M00S04758.1tm +++|* EXIT IN UPDATED.
05240 M00S04759.1tm +++|* (A) = 0.
05241 M00S04760.1tm +++|* (RQ+1 - RQ+3) = 0.
05242 M00S04761.1tm +++|*
05243 M00S04762.1tm +++|* USES IN+3, IN+4, RQ - RQ+3.
05244 M00S04763.1tm +++|*
05245 M00S04764.1tm +++|* MACROS LDCDQ, LMCDQ.
05246 M00S04765.1tm +++|
05247 M00S04766.1tm +++|
05248 M00S04767.1tm +++| ERQ1 AOD IN+4 ADVANCE IN
05249 M00S04768.1tm +++| SHN -14
05250 M00S04769.1tm +++| RAD IN+3 ADD OVERFLOW
05251 M00S04770.1tm +++| ERQ2 LDCDQ 2 UPDATE IN
05252 M00S04771.1tm +++| CWD IN
05253 M00S04772.1tm +++| LDN 0 EXIT ERQ WITH A=0
05254 M00S04773.1tm +++| STD RQ+1 CLEAR REQUEST BUFFER
05255 M00S04774.1tm +++| STD RQ+2
05256 M00S04775.1tm +++| STD RQ+3
05257 M00S04776.1tm +++|
05258 M00S04777.1tm +++|* ERQ - ENTRY.
05259 M00S04778.1tm +++|
05260 M00S04779.1tm +++| ERQ SUBR ENTRY/EXIT
05261 M00S04780.1tm +++| ADC 2000 ADD FUNCTION BIAS
05262 M00S04781.1tm +++| STD RQ
05263 M00S04782.1tm +++| LDD IN+3 ENTER REQUEST
05264 M00S04783.1tm +++| SHN 6
05265 M00S04784.1tm +++| ADD RA
05266 M00S04785.1tm +++| SHN 6
05267 M00S04786.1tm +++| ADD IN+4
05268 M00S04787.1tm +++| CWD RQ
05269 M00S04788.1tm +++| LMCDQ 4+VDSL
05270 M00S04789.1tm +++| NJN ERQ1 IF *IN* NOT EQUAL TO LIMIT-1
05271 M00S04790.1tm +++| LDCDQ 1 RESET IN = FIRST
05272 M00S04791.1tm +++| CRD IN
05273 M00S04792.1tm +++| UJN ERQ2
| Line S04793 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05274 M01S04793.242l642 ---| ERR SPACE 4,15
05275 M01S04794.242l642 ---|** ERR - PROCESS DRIVER ERROR.
05276 M01S04795.242l642 ---|*
05277 M01S04796.242l642 ---|* ISSUES DAYFILE MESSAGE, IF REQUIRED, AND
05278 M01S04797.242l642 ---|* TERMINATES DRIVER.
05279 M01S04798.242l642 ---|*
05280 M01S04799.242l642 ---|* ENTRY (A) = ADDRESS OF DAYFILE MESSAGE IF NONZERO.
05281 M01S04800.242l642 ---|*
05282 M01S04801.242l642 ---|* EXIT TO *DPP*.
05283 M01S04802.242l642 ---|*
| Line S04803 Modification History |
M01 (Removed by) | ns2149 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05284 M02S04803.242l642 ---|* CALLS DFM.
| Line S00052 Modification History |
M01 (Added by) | ns2149 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05285 M02S00052.242l642 ---|* CALLS DFM, O2D.
| Line S04804 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05286 M01S04804.242l642 ---|
| Line S00053 Modification History |
M01 (Added by) | ns2149 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05287 M02S00053.242l642 ---|
05288 M02S00054.242l642 ---|* ENTER HERE ON FUNCTION TIME-OUT ERROR.
05289 M02S00055.242l642 ---|* (A) = FUNCTION CODE.
05290 M02S00056.242l642 ---|
05291 M02S00057.242l642 ---| FTER BSS 0 FUNCTION TIME-OUT ERROR
05292 M02S00058.242l642 ---| STM ERRA SAVE FUNCTION CODE
05293 M02S00059.242l642 ---|
05294 M02S00060.242l642 ---|* FORMAT EST ORDINAL INTO DAYFILE MESSAGE.
05295 M02S00061.242l642 ---|
05296 M02S00062.242l642 ---| LDD EQ CONVERT UPPER 3 BITS
05297 M02S00063.242l642 ---| SHN -6
05298 M02S00064.242l642 ---| LPN 7
05299 M02S00065.242l642 ---| ADC 2RM0
05300 M02S00066.242l642 ---| STM ERRB+4
05301 M02S00067.242l642 ---| LDD EQ CONVERT LOWER 6 BITS
05302 M02S00068.242l642 ---| RJM O2D
05303 M02S00069.242l642 ---| STM ERRB+5
05304 M02S00070.242l642 ---|
05305 M02S00071.242l642 ---|* FORMAT CHANNEL AND PORT NUMBERS INTO DAYFILE MESSAGE.
05306 M02S00072.242l642 ---|
05307 M02S00073.242l642 ---| LDN MX CONVERT CHANNEL NUMBER
05308 M02S00074.242l642 ---| RJM O2D
05309 M02S00075.242l642 ---| STM ERRB+7
05310 M02S00076.242l642 ---| LDD PN CONVERT PORT NUMBER
05311 M02S00077.242l642 ---| RJM O2D
05312 M02S00078.242l642 ---| STM ERRB+11
05313 M02S00079.242l642 ---|
05314 M02S00080.242l642 ---|* FORMAT FUNCTION CODE INTO DAYFILE MESSAGE.
05315 M02S00081.242l642 ---|
05316 M02S00082.242l642 ---| LDC * CONVERT UPPER TWO DIGITS
05317 M02S00083.242l642 ---| ERRA EQU *-1
05318 M02S00084.242l642 ---| SHN -6
05319 M02S00085.242l642 ---| RJM O2D
05320 M02S00086.242l642 ---| STM ERRB+13
05321 M02S00087.242l642 ---| LDM ERRA CONVERT LOWER TWO DIGITS
05322 M02S00088.242l642 ---| RJM O2D
05323 M02S00089.242l642 ---| STM ERRB+14
05324 M02S00090.242l642 ---|
05325 M02S00091.242l642 ---|* ISSUE ERROR LOG MESSAGE AND EXIT TO ERROR PROCESSOR.
05326 M02S00092.242l642 ---|
05327 M02S00093.242l642 ---| LDC ERRB+3+ERLN
05328 M02S00094.242l642 ---| RJM DFM ISSUE ERROR LOG MESSAGE
05329 M02S00095.242l642 ---| LDC ERRB SET ADDRESS OF DAYFILE MESSAGE
05330 M02S00096.242l642 ---|* UJN ERR ISSUE DAYFILE MESSAGE
| Line S04805 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
05331 M01S04805.242l642 ---|