cdc:nos2.source:opl.opl871:deck:1mt.013
Deck 1MT Part 013
92 Modifications
Listing Sections
- Deck 1MT Start
- Deck 1MT Part 1 (Line 1462)
- Deck 1MT Part 2 (Line 2674)
- Deck 1MT Part 3 (Line 4017)
- Deck 1MT Part 4 (Line 5073)
- Deck 1MT Part 5 (Line 6369)
- Deck 1MT Part 6 (Line 7796)
- Deck 1MT Part 7 (Line 9269)
- Deck 1MT Part 8 (Line 10478)
- Deck 1MT Part 9 (Line 11579)
- Deck 1MT Part 10 (Line 12640)
- Deck 1MT Part 11 (Line 13801)
- Deck 1MT Part 12 (Line 15216)
- Deck 1MT Part 13 (Line 16607)
- Deck 1MT Part 14 (Line 18062)
- Deck 1MT Part 15 (Line 19541)
- Deck 1MT Part 16 (Line 20933)
- Deck 1MT Part 17 (Line 22793)
- Deck 1MT Part 18 (Line 24082)
- Deck 1MT Part 19 (Line 25232)
- Deck 1MT Part 20 (Line 26664)
- Deck 1MT Part 21 (Line 28010)
- Deck 1MT Part 22 (Line 28907)
- Deck 1MT Part 23 (Line 30276)
- Deck 1MT Part 24 (Line 31850)
- Deck 1MT Part 25 (Line 33112)
- Deck 1MT Part 26 (Line 34430)
- Deck 1MT Part 27 (Line 35774)
- Deck 1MT Part 28 (Line 37108)
Source
Seq # *Modification Id* Act ----------------------------+ 16607 M01S03473.274l797 +++| SADT .LF 16608 M01S03474.274l797 +++| ADC * (LIMIT - FIRST) 16609 M01S03475.274l797 +++| 16610 M01S03476.274l797 +++| CIB SUBR ENTRY/EXIT 16611 M01S03477.274l797 +++| SADT .FE,,3,A 16612 M01S03478.274l797 +++| LDC * READ OUT 16613 M01S03479.274l797 +++| CRD CM 16614 M01S03480.274l797 +++| LDD CM+3 16615 M01S03481.274l797 +++| LPN 37 16616 M01S03482.274l797 +++| STD CM+3 16617 M01S03483.274l797 +++| SHN 14 16618 M01S03484.274l797 +++| LMD CM+4 16619 M01S03485.274l797 +++| SADT .LM,C 16620 M01S03486.274l797 +++| ADC -* (-LIMIT) 16621 M01S03487.274l797 +++| MJN CIB1 IF OUT .LT. LIMIT 16622 M01S03488.274l797 +++| LDN /MTX/BAE BUFFER ARGUMENT ERROR 16623 M01S03489.274l797 +++| LJM RET3 RETURN ERROR CODE 16624 M01S03490.274l797 +++| CPD SPACE 4,10 16625 M01S03491.274l797 +++|** CPD - CHECK PP (1LT) DROP OUT. 16626 M01S03492.274l797 +++|* 16627 M01S03493.274l797 +++|* ENTRY (CPDA) = PP INPUT REGISTER ADDRESS. 16628 M01S03494.274l797 +++|* 16629 M01S03495.274l797 +++|* EXIT (A) = 0, IF *1LT* STILL AROUND. 16630 M01S03496.274l797 +++|* 16631 M01S03497.274l797 +++|* USES CM - CM+4. 16632 M01S03498.274l797 +++|* 16633 M01S03499.274l797 +++|* MACROS CHTE. 16634 M01S03500.274l797 +++| 16635 M01S03501.274l797 +++| 16636 M01S03502.274l797 +++| CPD SUBR ENTRY/EXIT 16637 M01S03503.274l797 +++| LDC * 16638 M01S03504.274l797 +++| CPDA EQU *-1 16639 M01S03505.274l797 +++| CRD CM 16640 M01S03506.274l797 +++| LDD CM+1 16641 M01S03507.274l797 +++| SCN 77 16642 M01S03508.274l797 +++| SHN 6 16643 M01S03509.274l797 +++| LMD CM 16644 M01S03510.274l797 +++| LMC 3RT1L 16645 M01S03511.274l797 +++| ZJN CPD1 IF *1LT* 16646 M01S03512.274l797 +++| SHN 14 16647 M01S03513.274l797 +++| LMN 1R1 16648 M01S03514.274l797 +++| NJN CPDX IF NOT *1LT* LOADING 16649 M01S03515.274l797 +++| CPD1 LDD CM+3 16650 M01S03516.274l797 +++| CHTE * 16651 M01S03517.274l797 +++| LMN CH 16652 M01S03518.274l797 +++| LPN 77 16653 M01S03519.274l797 +++| UJN CPDX RETURN 16654 M01S03520.274l797 +++| CRA SPACE 4,10 16655 M01S03521.274l797 +++|** CRA - CHECK REQUEST ACCEPTANCE FROM *1LT*. 16656 M01S03522.274l797 +++|* 16657 M01S03523.274l797 +++|* EXIT (A) = 0 IF *1LT* COMPLETE. 16658 M01S03524.274l797 +++|* (CM - CM+4) = REQUEST/RETURN WORD. 16659 M01S03525.274l797 +++| 16660 M01S03526.274l797 +++| 16661 M01S03527.274l797 +++| CRA SUBR ENTRY/EXIT 16662 M01S03528.274l797 +++| LDM CPDA 16663 M01S03529.274l797 +++| ADN 2 16664 M01S03530.274l797 +++| CRD CM 16665 M01S03531.274l797 +++| LDD CM 16666 M01S03532.274l797 +++| LMN 2 16667 M01S03533.274l797 +++| UJN CRAX RETURN 16668 M01S03534.274l797 +++| EBP SPACE 4,15 16669 M01S03535.274l797 +++|** EBP - END OF BLOCK PROCESSING. 16670 M01S03536.274l797 +++|* 16671 M01S03537.274l797 +++|* ENTRY (TB) = STATUS OF BLOCK READ. 16672 M01S03538.274l797 +++|* (CN+3 - CN+4) = IN POINTER. 16673 M01S03539.274l797 +++|* 16674 M01S03540.274l797 +++|* EXIT TO *RET* IF TERMINATION CONDITION MET. 16675 M01S03541.274l797 +++|* TO *RET2* IF DROP OUT CONDITION OR RECOVERED ERROR. 16676 M01S03542.274l797 +++|*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1mt47 |
Seq # *Modification Id* Act ----------------------------+ 16677 M01S00004.1mt47 +++|* USES CN+3, CN+4, HP. 16678 M01S00005.1mt47 +++|*
| Line S03543 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16679 M01S03543.274l797 +++|* CALLS CIB, UIP. 16680 M01S03544.274l797 +++|* 16681 M01S03545.274l797 +++|* MACROS SADT. 16682 M01S03546.274l797 +++| 16683 M01S03547.274l797 +++| 16684 M01S03548.274l797 +++| EBP SUBR ENTRY/EXIT 16685 M01S03549.274l797 +++| LDD TB 16686 M01S03550.274l797 +++| EBPA SBN 0 READ STOP CONDITION
| Line S03551 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt47 |
Seq # *Modification Id* Act ----------------------------+ 16687 M02S03551.1mt47 ---| PJN EBP3 IF TERMINATION MET
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1mt47 |
Seq # *Modification Id* Act ----------------------------+ 16688 M01S00006.1mt47 +++| EBPB PJN EBP3.1 IF TERMINATION MET (NOT LEVEL 17 READCW) 16689 M01S00007.1mt47 +++|* PJN EBP3 IF TERMINATION MET (LEVEL 17 READCW)
| Line S03552 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16690 M01S03552.274l797 +++| RJM CIB CHECK INPUT BUFFER 16691 M01S03553.274l797 +++| SADT .BS,C 16692 M01S03554.274l797 +++| ADC -* (- MAXIMUM BLOCK SIZE)
| Line S03555 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16693 M02S03555.1mt48 ---| MJN EBP1 IF NOT ROOM FOR NEXT BLOCK
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16694 M01S00007.1mt48 +++| EBPC MJN EBP1 IF NOT ROOM FOR NEXT BLOCK 16695 M01S00008.1mt48 +++|* PSN (READSKP)
| Line S03556 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16696 M01S03556.274l797 +++| SADT .BS,C 16697 M01S03557.274l797 +++| ADC -* (-MAXIMUM BLOCK SIZE) 16698 M01S03558.274l797 +++| SHN -21 16699 M01S03559.274l797 +++| RAM UIPB SET DRIVER RECALL FLAG 16700 M01S03560.274l797 +++| LDD EP CHECK IF ERROR OR RECOVERY IN PROGRESS 16701 M01S03561.274l797 +++| LPN 77 16702 M01S03562.274l797 +++| ADD EC 16703 M01S03563.274l797 +++| ADD DF CHECK DROP OUT FLAG 16704 M01S03564.274l797 +++| NJN EBP2 IF DROP OUT OR ERROR CONDITION 16705 M01S03565.274l797 +++| EBP1 RJM UIP UPDATE IN POINTER 16706 M01S03566.274l797 +++| UJN EBPX RETURN 16707 M01S03567.274l797 +++| 16708 M01S03568.274l797 +++| EBP2 RJM UIP UPDATE IN POINTER 16709 M01S03569.274l797 +++| LJM RET2 REQUEUE 16710 M01S03570.274l797 +++|
| Line S03571 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt47 |
Seq # *Modification Id* Act ----------------------------+ 16711 M02S03571.1mt47 ---| EBP3 RJM UIP UPDATE IN POINTER IN FET
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1mt47 |
Seq # *Modification Id* Act ----------------------------+ 16712 M01S00008.1mt47 +++| EBP3 LDM VDAB BACK UP IN POINTER 16713 M01S00009.1mt47 +++| STD CN+3 16714 M01S00010.1mt47 +++| LDM VDAC 16715 M01S00011.1mt47 +++| STD CN+4 16716 M01S00012.1mt47 +++| EBP3.1 RJM UIP UPDATE IN POINTER IN FET
| Line S03572 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16717 M02S03572.1mt48 ---| LDD TB
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16718 M01S00009.1mt48 +++| EBPD UJN EBP3.2 COMPLETE FET 16719 M01S00010.1mt48 +++|* LDM LNUM (READSKP) 16720 M01S00011.1mt48 +++| CON LNUM 16721 M01S00012.1mt48 +++| EBPE SBN 0 LEVEL NUMBER DESIRED 16722 M01S00013.1mt48 +++| PJN EBP3.2 IF TERMINATION MET 16723 M01S00014.1mt48 +++| EBPF LDN 4 SET TO SKIP RECORD 16724 M01S00015.1mt48 +++|* LDN 10 (IF FILE SKIP REQUIRED) 16725 M01S00016.1mt48 +++| STD PB INDICATE TO MAGNET TO SKIP 16726 M01S00017.1mt48 +++| LDN /MTX/BEI 16727 M01S00018.1mt48 +++| LJM RET3 RETURN ERROR CODE 16728 M01S00019.1mt48 +++| 16729 M01S00020.1mt48 +++| EBP3.2 LDD TB
| Line S03573 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16730 M01S03573.274l797 +++| ZJN EBP4 IF PRU READ COMPLETE
| Line S03574 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 16731 M02S03574.282l826 ---| LDD HP SET EOR/EOF FLAG 16732 M02S03575.282l826 ---| LPC 5777 16733 M02S03576.282l826 ---| LMC 2000 16734 M02S03577.282l826 ---| STD HP
| Line S00874 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 16735 M01S00874.282l826 +++| LDD UP SET EOR/EOF FLAG 16736 M01S00875.282l826 +++| SCN 10 16737 M01S00876.282l826 +++| LMN 10 16738 M01S00877.282l826 +++| STD UP
| Line S03578 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16739 M01S03578.274l797 +++| LDD TB 16740 M01S03579.274l797 +++| ADN 1 RETURN EOR/EOF 16741 M01S03580.274l797 +++| SHN 3+4 16742 M01S03581.274l797 +++| LMM LNUM MERGE LEVEL NUMBER 16743 M01S03582.274l797 +++| SHN 16 16744 M01S03583.274l797 +++| EBP4 ADN 1 16745 M01S03584.274l797 +++| LJM RET SET FET COMPLETE
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 16746 M01S00107.1mt51 +++| ITS SPACE 4,10 16747 M01S00108.1mt51 +++|** ITS - INDICATE *1MT* TRANSFER STARTED. 16748 M01S00109.1mt51 +++|* 16749 M01S00110.1mt51 +++|* ENTRY (A) = BYTE COUNT. 16750 M01S00111.1mt51 +++|* 16751 M01S00112.1mt51 +++|* EXIT (A) = BYTE COUNT. 16752 M01S00113.1mt51 +++| 16753 M01S00114.1mt51 +++| 16754 M01S00115.1mt51 +++| ITS SUBR ENTRY/EXIT 16755 M01S00116.1mt51 +++| STD T0 SAVE BYTE COUNT 16756 M01S00117.1mt51 +++| LDM CPDA INDICATE *1MT* TRANSFER STARTED 16757 M01S00118.1mt51 +++| ADN 3 16758 M01S00119.1mt51 +++| CWD ON 16759 M01S00120.1mt51 +++| LDD T0 RESTORE (A) 16760 M01S00121.1mt51 +++| UJN ITSX RETURN
| Line S03585 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16761 M01S03585.274l797 +++| SRQ SPACE 4,10 16762 M01S03586.274l797 +++|** SRQ - SEND REQUEST TO *1LT* TO START BLOCK. 16763 M01S03587.274l797 +++|*
| Line S03588 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16764 M02S03588.1mt48 ---|* ENTRY (CN+3 - CN+4) = IN POINTER.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16765 M01S00021.1mt48 +++|* ENTRY (A) = REQUEST CODE. 16766 M01S00022.1mt48 +++|* (CN+3 - CN+4) = IN POINTER.
| Line S03589 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16767 M01S03589.274l797 +++|* 16768 M01S03590.274l797 +++|* EXIT TO *RET2* IF *1LT* PAUSING. 16769 M01S03591.274l797 +++|*
| Line S03592 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16770 M02S03592.1mt48 ---|* USES CM - CM+4.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16771 M01S00023.1mt48 +++|* USES EC, TB, CM - CM+4.
| Line S03593 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16772 M01S03593.274l797 +++|* 16773 M01S03594.274l797 +++|* CALLS ADP, CPD, HNG. 16774 M01S03595.274l797 +++| 16775 M01S03596.274l797 +++| 16776 M01S03597.274l797 +++| SRQ SUBR ENTRY/EXIT
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 16777 M01S00024.1mt48 +++| STM SRQC SAVE REQUEST CODE
| Line S03598 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16778 M01S03598.274l797 +++| LDN 0 ALLOW FOR CONTROL WORD 16779 M01S03599.274l797 +++| SRQA EQU *-1 16780 M01S03600.274l797 +++|* LDN 1 (200 READ CODE) 16781 M01S03601.274l797 +++| RJM ADP 16782 M01S03602.274l797 +++| LDN 0 16783 M01S03603.274l797 +++| STM VDAD+3 CLEAR BLOCK LENGTH FOR CONTROL WORD 16784 M01S03604.274l797 +++| STM VDAD+4 16785 M01S03605.274l797 +++| STM VDAA INDICATE *1MT* FINISHED INPUT 16786 M01S03606.274l797 +++| STM .BYC FULL CHUNK COUNT READ 16787 M01S03607.274l797 +++| STD EC ERROR CODE 16788 M01S03608.274l797 +++| STD TB TERMINATION STATUS 16789 M01S03609.274l797 +++| LDD CN+3 16790 M01S03610.274l797 +++| STM SRQC+3 16791 M01S03611.274l797 +++| LDD CN+4 16792 M01S03612.274l797 +++| STM SRQC+4 SET UP IN POINTER FOR *1LT* 16793 M01S03613.274l797 +++| PSN
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 16794 M01S00122.1mt51 +++|* UJN SRQ1 (NOT CYBER 180)
| Line S03614 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16795 M01S03614.274l797 +++| SRQB EQU *-1
| Line S03615 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 16796 M02S03615.1mt51 ---|* UJN SRQ1 (NOT CYBER 180-8XX)
| Line S03616 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16797 M01S03616.274l797 +++| SCF *+2,CH SET CHANNEL FLAG
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 16798 M01S00123.1mt51 +++| LDM CPDA INDICATE *1MT* TRANSFER STARTED 16799 M01S00124.1mt51 +++| ADN 3 16800 M01S00125.1mt51 +++| CWD ON
| Line S03617 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 16801 M01S03617.274l797 +++| SRQ1 LDM CPDA CHECK *1LT* FUNCTION 16802 M01S03618.274l797 +++| ADN 1 16803 M01S03619.274l797 +++| CRD CM 16804 M01S03620.274l797 +++| LDD CM 16805 M01S03621.274l797 +++| LMN PRLM 16806 M01S03622.274l797 +++| ZJN SRQ2 IF *1LT* PAUSING 16807 M01S03623.274l797 +++| LDM CPDA ENTER REQUEST 16808 M01S03624.274l797 +++| ADN 2 16809 M01S03625.274l797 +++| CWM SRQC,ON 16810 M01S03626.274l797 +++| RJM CPD CHECK PP DROP OUT 16811 M01S03627.274l797 +++| ZJP SRQX IF *1LT* STILL AROUND 16812 M01S03628.274l797 +++| RJM HNG HANG PP 16813 M01S03629.274l797 +++| 16814 M01S03630.274l797 +++| SRQ2 LJM RET2 REQUEUE REQUEST 16815 M01S03631.274l797 +++| 16816 M01S03632.274l797 +++| 16817 M01S03633.274l797 +++| SRQC BSS 0 *1LT* REQUEST 16818 M01S03634.274l797 +++| CON 1 READ BLOCK REQUEST 16819 M01S03635.274l797 +++| CON LIRW REMAINDER 16820 M01S03636.274l797 +++| CON LICH CHUNK COUNT 16821 M01S03637.274l797 +++| CON 0,0 IN POINTER 16822 M01S03638.274l797 +++| UCP SPACE 4,10 16823 M01S03639.274l797 +++|** UCP - UPDATE COUNTERS AND POINTERS. 16824 M01S03640.274l797 +++|* 16825 M01S03641.274l797 +++|* ENTRY (CN+3 - CN+4) = IN POINTER. 16826 M01S03642.274l797 +++|* 16827 M01S03643.274l797 +++|* EXIT (A) = (.BYC) = FULL CHUNKS READ. 16828 M01S03644.274l797 +++|* 16829 M01S03645.274l797 +++|* CALLS ADP. 16830 M01S03646.274l797 +++| 16831 M01S03647.274l797 +++| 16832 M01S03648.274l797 +++| UCP SUBR ENTRY/EXIT 16833 M01S03649.274l797 +++| LDC LBBY 16834 M01S03650.274l797 +++| RAM VDAD+4 COUNT BYTES READ 16835 M01S03651.274l797 +++| SHN -14 16836 M01S03652.274l797 +++| RAM VDAD+3 16837 M01S03653.274l797 +++| LDC /MTX/LBWD ADVANCE POINTER TO WRITE CM 16838 M01S03654.274l797 +++| RJM ADP 16839 M01S03655.274l797 +++| AOM .BYC INCREMENT FULL CHUNK COUNT 16840 M01S03656.274l797 +++| UJN UCPX RETURN 16841 M01S03657.274l797 +++| UIP SPACE 4,15 16842 M01S03658.274l797 +++|** UIP - UPDATE IN POINTER IN FET. 16843 M01S03659.274l797 +++|* IF AN ERROR OCCURRED, THE ERROR PROCESSING OVERLAY IS 16844 M01S03660.274l797 +++|* CALLED. ERRORS INCLUDE TAPE MARKS AND EOT. IF NO ERROR 16845 M01S03661.274l797 +++|* OCCURRED OR THE ERROR IS RECOVEABLE, THE IN POINTER IN THE 16846 M01S03662.274l797 +++|* FET IS UPDATED. 16847 M01S03663.274l797 +++|* 16848 M01S03664.274l797 +++|* CALLS *CRE*, *REM*. 16849 M01S03665.274l797 +++|* 16850 M01S03666.274l797 +++|* MACROS CALL, SADT. 16851 M01S03667.274l797 +++| 16852 M01S03668.274l797 +++| 16853 M01S03669.274l797 +++| UIP SUBR ENTRY/EXIT 16854 M01S03670.274l797 +++| LDD EP 16855 M01S03671.274l797 +++| LPN 77 16856 M01S03672.274l797 +++| ADD EC 16857 M01S03673.274l797 +++| ZJN UIP1 IF NO ERROR ENCOUNTERED 16858 M01S03674.274l797 +++| UIPA CALL REM LOAD READ ERROR PROCESSOR 16859 M01S03675.274l797 +++|* CALL CRE LOAD ERROR PROCESSOR (CTS) 16860 M01S03676.274l797 +++| SADT .FE,,2,A 16861 M01S03677.274l797 +++| UIP1 LDC * UPDATE IN POINTER IN FET 16862 M01S03678.274l797 +++| CWD CN 16863 M01S03679.274l797 +++| LDN 0 RECALL CPU FLAG 16864 M01S03680.274l797 +++| UIPB EQU *-1 16865 M01S03681.274l797 +++|* LDN 1 (ROOM FOR 1 BLOCK, NO ROOM FOR 2 BLOCKS) 16866 M01S03682.274l797 +++| ZJN UIP2 IF NO RECALL CPU 16867 M01S03683.274l797 +++| LDD OA RECALL CPU 16868 M01S03684.274l797 +++| CWM UIPD,ON 16869 M01S03685.274l797 +++| SOM UIPB 16870 M01S03686.274l797 +++| UIP2 AOD BL+1 INCREMENT BLOCK COUNT 16871 M01S03687.274l797 +++| SHN -14 16872 M01S03688.274l797 +++| RAD BL 16873 M01S03689.274l797 +++| AOD BT INCREMENT BLOCKS TRANSFERRED 16874 M01S03690.274l797 +++| LJM UIPX 16875 M01S03691.274l797 +++| UIPC EQU *-1 16876 M01S03692.274l797 +++|* LJM RET4 (FATAL READ ERROR) 16877 M01S03693.274l797 +++| 16878 M01S03694.274l797 +++| 16879 M01S03695.274l797 +++| UIPD CON DRCM DRIVER RECALL CPU MONITOR FUNCTION 16880 M01S03696.274l797 +++| VDA SPACE 4,20 16881 M01S03697.274l797 +++|** VDA - VALIDATE DATA. 16882 M01S03698.274l797 +++|* THIS ROUTINE UPDATES THE BYTE COUNTER AND IN POINTER FOR THE 16883 M01S03699.274l797 +++|* LAST CHUNK READ. IF *1MT* READ THE LAST CHUNK, *WDA* PUTS 16884 M01S03700.274l797 +++|* THE DATA IN CENTRAL. THIS ROUTINE ALSO VALIDATES THE DATA 16885 M01S03701.274l797 +++|* IN THE BLOCK PREFIX, AND WRITES THE BEGINNING CONTROL WORD 16886 M01S03702.274l797 +++|* FOR A 200 READ. 16887 M01S03703.274l797 +++|* 16888 M01S03704.274l797 +++|* ENTRY (A) = BYTE COUNT USED FOR LAST INPUT. 16889 M01S03705.274l797 +++|* (T1) = BYTES NOT TRANSFERRED. 16890 M01S03706.274l797 +++|* (VDAA) = 0 IF *1MT* FINISHED THE TRANSFER. 16891 M01S03707.274l797 +++|* (BUFB-5 - BUFB-1) = BLOCK PREFIX. 16892 M01S03708.274l797 +++|* (.BYC) = FULL CHUNKS TRANSFERRED. 16893 M01S03709.274l797 +++|* 16894 M01S03710.274l797 +++|* EXIT (TB) = TERMINATION STATUS. 16895 M01S03711.274l797 +++|* (LNUM) = LEVEL NUMBER. 16896 M01S03712.274l797 +++|* (EC) = /MTX/BNE IF VALIDATION ERROR. 16897 M01S03713.274l797 +++|* (BUFB) = LEVEL NUMBER FOR 200 READ. 16898 M01S03714.274l797 +++|* (VDAE) .NE. 0 IF BLOCK LENGTH ERROR. 16899 M01S03715.274l797 +++|* 16900 M01S03716.274l797 +++|* USES BY, T1, T2, WC. 16901 M01S03717.274l797 +++|* 16902 M01S03718.274l797 +++|* CALLS ADP, UCP, WDA. 16903 M01S03719.274l797 +++| 16904 M01S03720.274l797 +++| 16905 M01S03721.274l797 +++| VDA SUBR 16906 M01S03722.274l797 +++| SBD T1 16907 M01S03723.274l797 +++| STD BY BYTE COUNT READ 16908 M01S03724.274l797 +++| 16909 M01S03725.274l797 +++|* ADJUST THE BYTE COUNT TO ALLOW FOR THE PREFIX, THEN 16910 M01S03726.274l797 +++|* CALCULATE THE WORD COUNT TO TRANSFER TO CENTRAL. 16911 M01S03727.274l797 +++| 16912 M01S03728.274l797 +++| LDM .BYC 16913 M01S03729.274l797 +++| NJN VDA1 IF NOT FIRST CHUNK 16914 M01S03730.274l797 +++| LDD BY 16915 M01S03731.274l797 +++| SBN 2 16916 M01S03732.274l797 +++| PJN VDA2 IF AT LEAST 2 BYTES RECEIVED 16917 M01S03733.274l797 +++| VDA1 LDD BY 16918 M01S03734.274l797 +++| ADN 3 16919 M01S03735.274l797 +++| VDA2 STD T2 16920 M01S03736.274l797 +++| SHN 1 13*BYTES 16921 M01S03737.274l797 +++| ADD T2 16922 M01S03738.274l797 +++| SHN 2 16923 M01S03739.274l797 +++| ADD T2 16924 M01S03740.274l797 +++| SHN 14 (-6) (13*BYTES)/64 16925 M01S03741.274l797 +++| STD T0 16926 M01S03742.274l797 +++| SHN 6+2 4*13*BYTES (52*BYTES) 16927 M01S03743.274l797 +++| SBD T2 51*BYTES 16928 M01S03744.274l797 +++| ADD T0 (51*BYTES)+((13*BYTES)/64) 16929 M01S03745.274l797 +++| SHN -8D WORDS = ((51*BYTES)+((13*BYTES)/64))/256 16930 M01S03746.274l797 +++| STD WC 16931 M01S03747.274l797 +++| LPN 1 16932 M01S03748.274l797 +++| NJN VDA3 IF NO PAD BYTE ADDED ON WRITE 16933 M01S03749.274l797 +++| LDD BY 16934 M01S03750.274l797 +++| ZJN VDA3 IF NO DATA READ THIS CHUNK 16935 M01S03751.274l797 +++| SOD BY 16936 M01S03752.274l797 +++| VDA3 LDC * 16937 M01S03753.274l797 +++| VDAA EQU *-1 16938 M01S03754.274l797 +++| NJN VDA5 IF *1LT* FINISHED INPUT 16939 M01S03755.274l797 +++| LDM .BYC 16940 M01S03756.274l797 +++| ZJN VDA4 IF FIRST CHUNK 16941 M01S03757.274l797 +++| RJM UCP UPDATE COUNTERS AND POINTER FOR *1LT* 16942 M01S03758.274l797 +++| VDA4 LDD WC 16943 M01S03759.274l797 +++| RJM ADP ADVANCE IN POINTER 16944 M01S03760.274l797 +++| RJM WDA WRITE DATA TO CENTRAL MEMORY 16945 M01S03761.274l797 +++| UJN VDA6 CHECK BYTES READ 16946 M01S03762.274l797 +++| 16947 M01S03763.274l797 +++| VDA5 LDD WC ADVANCE IN POINTER FOR *1LT* 16948 M01S03764.274l797 +++| RJM ADP 16949 M01S03765.274l797 +++| VDA6 LDM VDAD+3 16950 M01S03766.274l797 +++| STD T1 BYTES READ (UPPER) 16951 M01S03767.274l797 +++| LDM VDAD+4 16952 M01S03768.274l797 +++| STD T2 BYTES READ (LOWER) 16953 M01S03769.274l797 +++| LDD WC 16954 M01S03770.274l797 +++| SHN 2 16955 M01S03771.274l797 +++| ADD WC 16956 M01S03772.274l797 +++| RAM VDAD+4 UPDATE BYTE COUNT FOR CONTROL WORD 16957 M01S03773.274l797 +++| SHN -14 16958 M01S03774.274l797 +++| RAM VDAD+3 16959 M01S03775.274l797 +++| LDM BUFB-4 SAVE BLOCK LENGTH LOWER BITS 16960 M01S03776.274l797 +++| STM //BNEI 16961 M01S03777.274l797 +++| LDM BUFB-5 SAVE BLOCK LENGTH UPPER BITS 16962 M01S03778.274l797 +++| STM //BNEU 16963 M01S03779.274l797 +++| LDM BUFB-2 SAVE BLOCK NUMBER 16964 M01S03780.274l797 +++| STM //BNEI+2 16965 M01S03781.274l797 +++| LDM BUFB-3 16966 M01S03782.274l797 +++| STM //BNEI+1 16967 M01S03783.274l797 +++| LDN 1 16968 M01S03784.274l797 +++| STM VDAE 16969 M01S03785.274l797 +++| LDD BY 16970 M01S03786.274l797 +++| ADM .BYC 16971 M01S03787.274l797 +++| ZJN VDA9 IF NO BYTES READ 16972 M01S03788.274l797 +++| LDM .BYC 16973 M01S03789.274l797 +++| ZJN VDA8 IF FIRST CHUNK 16974 M01S03790.274l797 +++| LDD T2 BYTES (LOWER) READ BEFORE LAST CHUNK 16975 M01S03791.274l797 +++| ADN 5 ALLOW FOR PREFIX 16976 M01S03792.274l797 +++| VDA8 ADD BY BYTES READ THIS CHUNK 16977 M01S03793.274l797 +++| STD T0 16978 M01S03794.274l797 +++| SHN -14 16979 M01S03795.274l797 +++| ADD T1 BYTES (UPPER) READ BEFORE LAST CHUNK 16980 M01S03796.274l797 +++| LMM BUFB-5 16981 M01S03797.274l797 +++| NJN VDA9 IF BLOCK LENGTH UPPER ERROR 16982 M01S03798.274l797 +++| LDD T0 16983 M01S03799.274l797 +++| LMM BUFB-4 16984 M01S03800.274l797 +++| NJN VDA9 IF BLOCK LENGTH LOWER ERROR 16985 M01S03801.274l797 +++| STM VDAE 16986 M01S03802.274l797 +++| LDM BUFB-3 16987 M01S03803.274l797 +++| LMD BL 16988 M01S03804.274l797 +++| NJN VDA9 IF BLOCK NUMBER UPPER ERROR 16989 M01S03805.274l797 +++| LDM BUFB-2 16990 M01S03806.274l797 +++| LMD BL+1 16991 M01S03807.274l797 +++| ZJN VDA10 IF BLOCK NUMBER CORRECT 16992 M01S03808.274l797 +++| VDA9 LDN /MTX/BNE 16993 M01S03809.274l797 +++| STD EC 16994 M01S03810.274l797 +++| VDA10 LDM .BYC 16995 M01S03811.274l797 +++| LMN LICH 16996 M01S03812.274l797 +++| NJN VDA11 IF NOT FULL PRU 16997 M01S03813.274l797 +++| LDD BY 16998 M01S03814.274l797 +++| LMC LIRW*5 16999 M01S03815.274l797 +++| STM BUFB SET 0 LEVEL NUMBER 17000 M01S03816.274l797 +++| ZJN VDA13 IF FULL PRU 17001 M01S03817.274l797 +++| VDA11 LDM BUFB-1 SET LEVEL NUMBER FOR CONTROL WORD 17002 M01S03818.274l797 +++| STM BUFB 17003 M01S03819.274l797 +++| STM LNUM 17004 M01S03820.274l797 +++| LMN 17 17005 M01S03821.274l797 +++| ZJN VDA12 IF EOF 17006 M01S03822.274l797 +++| LCN 1 17007 M01S03823.274l797 +++| VDA12 ADN 2 17008 M01S03824.274l797 +++| VDA13 STD TB SET BLOCK STATUS 17009 M01S03825.274l797 +++| LDD MD 17010 M01S03826.274l797 +++| LPN 40 17011 M01S03827.274l797 +++| ZJN VDA14 IF NOT CONTROL WORD READ 17012 M01S03828.274l797 +++| LDC * PUT CONTROL WORD IN BUFFER 17013 M01S03829.274l797 +++| VDAB EQU *-1 17014 M01S03830.274l797 +++| SHN 6 17015 M01S03831.274l797 +++| ADD RA 17016 M01S03832.274l797 +++| SHN 6 17017 M01S03833.274l797 +++| ADC * 17018 M01S03834.274l797 +++| VDAC EQU *-1 17019 M01S03835.274l797 +++| CWM VDAD,ON 17020 M01S03836.274l797 +++| VDA14 LJM VDAX 17021 M01S03837.274l797 +++| 17022 M01S03838.274l797 +++|* BEGINNING CONTROL WORD FOR 200 READ. 17023 M01S03839.274l797 +++| 17024 M01S03840.274l797 +++| VDAD DATA 1,0 PRU SIZE 17025 M01S03841.274l797 +++| DATA 0 17026 M01S03842.274l797 +++| DATA 0,0 BLOCK LENGTH IN BYTES 17027 M01S03843.274l797 +++| VDAE DATA 0 0 IF CORRECT BLOCK LENGTH (FOR ERR. REC.) 17028 M01S03844.274l797 +++| WDA SPACE 4,10 17029 M01S03845.274l797 +++|** WDA - WRITE DATA TO CENTRAL MEMORY. 17030 M01S03846.274l797 +++|* 17031 M01S03847.274l797 +++|* ENTRY (T4 - T5) = IN POINTER. 17032 M01S03848.274l797 +++|* (T6) = FIRST PART WORD COUNT. 17033 M01S03849.274l797 +++|* (T7) = SECOND PART WORD COUNT. 17034 M01S03850.274l797 +++|* 17035 M01S03851.274l797 +++|* MACROS SADT. 17036 M01S03852.274l797 +++| 17037 M01S03853.274l797 +++| 17038 M01S03854.274l797 +++| WDA SUBR ENTRY/EXIT 17039 M01S03855.274l797 +++| LDD T6 17040 M01S03856.274l797 +++| ZJN WDAX IF NO FIRST PART 17041 M01S03857.274l797 +++| SHN 2 17042 M01S03858.274l797 +++| ADD T6 17043 M01S03859.274l797 +++| ADC BUFB 17044 M01S03860.274l797 +++| STM WDAA 17045 M01S03861.274l797 +++| LDD T4 TRANSFER FIRST PART 17046 M01S03862.274l797 +++| SHN 6 17047 M01S03863.274l797 +++| ADD RA 17048 M01S03864.274l797 +++| SHN 6 17049 M01S03865.274l797 +++| ADD T5 17050 M01S03866.274l797 +++| CWM BUFB,T6 17051 M01S03867.274l797 +++| LDD T7 17052 M01S03868.274l797 +++| ZJN WDAX IF NO SECOND PART 17053 M01S03869.274l797 +++| SADT .FT,,,A 17054 M01S03870.274l797 +++| LDC * TRANSFER SECOND PART 17055 M01S03871.274l797 +++| CWM *,T7 17056 M01S03872.274l797 +++| WDAA EQU *-1 17057 M01S03873.274l797 +++| UJN WDAX RETURN
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17058 M01S00126.1mt51 +++| WTS SPACE 4,10 17059 M01S00127.1mt51 +++|** WTS - WAIT FOR *1LT* TRANSFER TO START. 17060 M01S00128.1mt51 +++|* 17061 M01S00129.1mt51 +++|* ENTRY (A) = BYTE COUNT. 17062 M01S00130.1mt51 +++|* 17063 M01S00131.1mt51 +++|* EXIT (A) = BYTE COUNT. 17064 M01S00132.1mt51 +++|* 17065 M01S00133.1mt51 +++|* USES CM - CM+4.
| Line S03874 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17066 M01S03874.274l797 +++|
| Line S03875 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17067 M02S03875.1mt51 ---| ERRMI BUFB-5-* IF CODE OVERFLOWS INTO DATA BUFFER
| Line S03876 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17068 M01S03876.274l797 +++|
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17069 M01S00134.1mt51 +++| WTS3 LDD T0 RESTORE (A) 17070 M01S00135.1mt51 +++| 17071 M01S00136.1mt51 +++| WTS SUBR ENTRY/EXIT 17072 M01S00137.1mt51 +++| STD T0 SAVE BYTE COUNT 17073 M01S00138.1mt51 +++| WTS1 LDM CPDA CHECK *1MT*/*1LT* INTERLOCK 17074 M01S00139.1mt51 +++| ADN 3 17075 M01S00140.1mt51 +++| CRD CM 17076 M01S00141.1mt51 +++| LDD CM 17077 M01S00142.1mt51 +++| ZJN WTS3 IF *1LT* TRANSFER STARTED 17078 M01S00143.1mt51 +++| LDN 24 DELAY 10 MICROSECONDS 17079 M01S00144.1mt51 +++| WTS2 SBN 1 17080 M01S00145.1mt51 +++| NJN WTS2 IF NOT DONE 17081 M01S00146.1mt51 +++| UJN WTS1 CHECK INTERLOCK 17082 M01S00147.1mt51 +++| SPACE 4,10 17083 M01S00148.1mt51 +++| ERRNG BUFB-5-* CODE OVERFLOWS INTO DATA BUFFER 17084 M01S00149.1mt51 +++| TITLE PRESET.
| Line S03877 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17085 M01S03877.274l797 +++| PRS SPACE 4,10 17086 M01S03878.274l797 +++|** PRS - PRESET. 17087 M01S03879.274l797 +++|* THIS OVERLAY IS ONLY LOADED IF THE FUNCTION IS A READ AND 17088 M01S03880.274l797 +++|* THE FORMAT IS LI. THIS ROUTINE LOADS *1LT* WHICH TRANSFERS 17089 M01S03881.274l797 +++|* THE 2ND, 4TH, ... CHUNKS OF THE BLOCK. 17090 M01S03882.274l797 +++|* 17091 M01S03883.274l797 +++|* EXIT TO *RET2* IF MOVE FLAG OR NO PP ASSIGNED FOR *1LT*. 17092 M01S03884.274l797 +++|* TO *RLI* TO READ THE FIRST BLOCK. 17093 M01S03885.274l797 +++|* 17094 M01S03886.274l797 +++|* USES T1, CM - CM+4. 17095 M01S03887.274l797 +++|* 17096 M01S03888.274l797 +++|* CALLS CEC, CPD, *CPP*, MCH. 17097 M01S03889.274l797 +++|* 17098 M01S03890.274l797 +++|* MACROS MONITOR, PAUSE. 17099 M01S03891.274l797 +++| 17100 M01S03892.274l797 +++| 17101 M01S03893.274l797 +++| PRS LDC PRSA MODIFY CHANNELS 17102 M01S03894.274l797 +++| RJM MCH 17103 M01S03895.274l797 +++| LDD WC 17104 M01S03896.274l797 +++| STM /READ/WOCN SO /CPP/CAL SETS CORRECT BLOCK SIZE 17105 M01S03897.274l797 +++| LDD HP 17106 M01S03898.274l797 +++| LPN 20 17107 M01S03899.274l797 +++| SHN 6 17108 M01S03900.274l797 +++| RAM CALL+3 SET ATS FLAG FOR *1LT*
| Line S03901 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17109 M02S03901.1mt48 ---| LDN 0
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17110 M01S00025.1mt48 +++| LDC TRSO
| Line S03902 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17111 M01S03902.274l797 +++| STD T1
| Line S03903 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17112 M02S03903.1mt48 ---| PRS1 LDM TRSO,T1
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17113 M01S00026.1mt48 +++| PRS1 LDI T1
| Line S03904 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17114 M01S03904.274l797 +++| ZJN PRS5 IF END OF TABLE 17115 M01S03905.274l797 +++| LMM CIOE 17116 M01S03906.274l797 +++| LPC 774 17117 M01S03907.274l797 +++| ZJN PRS2 IF FUNCTION FOUND IN TABLE 17118 M01S03908.274l797 +++| LDN 2 17119 M01S03909.274l797 +++| RAD T1 17120 M01S03910.274l797 +++| UJN PRS1 CHECK NEXT ENTRY IN TABLE 17121 M01S03911.274l797 +++|
| Line S03912 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17122 M02S03912.1mt48 ---| PRS2 LDM LNUM
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17123 M01S00027.1mt48 +++| PRS2 AOD T1 17124 M01S00028.1mt48 +++| LDM LNUM
| Line S03913 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17125 M01S03913.274l797 +++| SHN -10
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17126 M01S00029.1mt48 +++| RAM EBPE SET *READSKP* LEVEL NUMBER 17127 M01S00030.1mt48 +++| LPN 17
| Line S03914 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17128 M01S03914.274l797 +++| LMN 17 17129 M01S03915.274l797 +++| NJN PRS3 IF NOT LEVEL 17
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17130 M01S00031.1mt48 +++| LDN 10-4 SET *READSKP* FOR FILE SKIP 17131 M01S00032.1mt48 +++| RAM EBPF
| Line S03916 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17132 M01S03916.274l797 +++| LDD MD 17133 M01S03917.274l797 +++| LPN 40
| Line S03918 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17134 M02S03918.1mt48 ---| ZJN PRS3 IF NOT 200 READ
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17135 M01S00033.1mt48 +++| ZJN PRS3 IF NOT 200 READCW
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 1mt47 |
Seq # *Modification Id* Act ----------------------------+ 17136 M01S00013.1mt47 +++| LCN EBP3.1-EBP3 SUPPRESS LEVEL 17 EOF CONTROL WORDS 17137 M01S00014.1mt47 +++| RAM EBPB
| Line S03919 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17138 M02S03919.1mt48 ---| LDN 2 17139 M02S03920.1mt48 ---| UJN PRS4 SET STOP CONDITION 17140 M02S03921.1mt48 ---| 17141 M02S03922.1mt48 ---| PRS3 LDM TRSO+1,T1 SET STOP CONDITION
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17142 M01S00034.1mt48 +++| SOI T1 ADJUST TERMINATION CONDITION 17143 M01S00035.1mt48 +++| PRS3 LDI T1
| Line S03923 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17144 M01S03923.274l797 +++| PRS4 RAM EBPA 17145 M01S03924.274l797 +++| PRS5 LDN F0040 SELECT READ FUNCTION 17146 M01S03925.274l797 +++| STM //ITMA 17147 M01S03926.274l797 +++| LDD MD 17148 M01S03927.274l797 +++| LPN 40 17149 M01S03928.274l797 +++| ZJN PRS6 IF NO CONTROL WORDS 17150 M01S03929.274l797 +++| AOM SRQA ALLOW FOR CONTROL WORD 17151 M01S03930.274l797 +++| PRS6 LDD HP 17152 M01S03931.274l797 +++| SHN 21-7 17153 M01S03932.274l797 +++| PJN PRS7 IF NOT CTS 17154 M01S03933.274l797 +++| LDC LDNI+CRE/10000 CALL CTS ERROR PROCESSOR 17155 M01S03934.274l797 +++| STM UIPA 17156 M01S03935.274l797 +++| LDC 6125 BITS TO TEST IN GENERAL STATUS 17157 M01S03936.274l797 +++| STM /PRESET/WFEA 17158 M01S03937.274l797 +++| LDN 1 BITS IN GENERAL STATUS THAT SHOULD BE SET 17159 M01S03938.274l797 +++| STM /PRESET/WFEB 17160 M01S03939.274l797 +++| LJM PRS13 SET TO MODIFY SADT INSTRUCTIONS 17161 M01S03940.274l797 +++| 17162 M01S03941.274l797 +++|* REPLACE *RLI* WITH READ ROUTINE *ALI* FOR ATS. 17163 M01S03942.274l797 +++| 17164 M01S03943.274l797 +++| PRS7 LDC .ALIL-1 LENGTH OF CODE TO MOVE 17165 M01S03944.274l797 +++| STD T1 17166 M01S03945.274l797 +++| PRS8 LDM .ALI,T1 17167 M01S03946.274l797 +++| STM ALI,T1 17168 M01S03947.274l797 +++| SOD T1 17169 M01S03948.274l797 +++| PJN PRS8 IF MORE CODE TO MOVE 17170 M01S03949.274l797 +++| LDC .ALIB MODIFY CHANNELS 17171 M01S03950.274l797 +++| RJM MCH 17172 M01S03951.274l797 +++| LDC 4435 BITS TO TEST IN GENERAL STATUS 17173 M01S03952.274l797 +++| STM //WEOA 17174 M01S03953.274l797 +++| LDN 1 BITS IN GENERAL STATUS THAT SHOULD BE SET 17175 M01S03954.274l797 +++| STM //WEOB 17176 M01S03955.274l797 +++| LDK MABL CHECK MAINFRAME TYPE 17177 M01S03956.274l797 +++| CRD CM 17178 M01S03957.274l797 +++| LDD CM+1 17179 M01S03958.274l797 +++| SHN -6 17180 M01S03959.274l797 +++| LPN 41 17181 M01S03960.274l797 +++| LMN 1
| Line S03961 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17182 M02S03961.1mt51 ---| NJP PRS10 IF NOT CYBER 170-8XX
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17183 M01S00150.1mt51 +++| NJP PRS10 IF NOT CYBER 180
| Line S03962 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17184 M01S03962.274l797 +++|
| Line S03963 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17185 M02S03963.1mt51 ---|* PRESET FOR CYBER 170-8XX. THE CHANNEL FLAG IS USED FOR 17186 M02S03964.1mt51 ---|* COMMUNICATION BETWEEN *1MT* AND *1LT* IF CYBER 170-8XX.
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17187 M01S00151.1mt51 +++|* PRESET FOR CYBER 180 IOU. THE CHANNEL FLAG IS USED FOR 17188 M01S00152.1mt51 +++|* COMMUNICATION BETWEEN *1MT* AND *1LT* IF CYBER 180.
| Line S03965 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17189 M01S03965.274l797 +++| 17190 M01S03966.274l797 +++| LDC UJNI+2 JUMP TO INPUT FIRST CHUNK 17191 M01S03967.274l797 +++| STM ALIE 17192 M01S03968.274l797 +++| LDC ALI1 17193 M01S03969.274l797 +++| STM ALIA JUMP ADDRESS IF NOT LAST CHUNK 17194 M01S03970.274l797 +++| LDC AILA 17195 M01S03971.274l797 +++| STM ALIG 17196 M01S03972.274l797 +++| STM ALIB 17197 M01S03973.274l797 +++| LDC ALI8 17198 M01S03974.274l797 +++| STM ALIF JUMP ADDRESS IF LAST CHUNK 17199 M01S03975.274l797 +++| LDN .AILL-1 MOVE IOU LOOP 17200 M01S03976.274l797 +++| STD T1 17201 M01S03977.274l797 +++| PRS9 LDM .AIL,T1 17202 M01S03978.274l797 +++| STM AIL,T1 17203 M01S03979.274l797 +++| SOD T1 17204 M01S03980.274l797 +++| PJN PRS9 IF MORE CODE TO MOVE 17205 M01S03981.274l797 +++| LDC .AILB MODIFY CHANNELS 17206 M01S03982.274l797 +++| RJM MCH 17207 M01S03983.274l797 +++| UJN PRS11 CONTINUE PRESET 17208 M01S03984.274l797 +++| 17209 M01S03985.274l797 +++| PRS10 ISTORE SRQB,(UJN SRQ1) SKIP SETTING CHANNEL FLAG 17210 M01S03986.274l797 +++| PRS11 LDD EP SET CLIPPING LEVEL 17211 M01S03987.274l797 +++| LPC 700 17212 M01S03988.274l797 +++| ZJP PRS12 IF NORMAL CLIP LEVEL 17213 M01S03989.274l797 +++| RAM ALIC 17214 M01S03990.274l797 +++| UJN PRS13 CONTINUE PRESET 17215 M01S03991.274l797 +++| 17216 M01S03992.274l797 +++| PRS12 LDC UJNI+2 DISABLE CLIP LEVEL SELECTION 17217 M01S03993.274l797 +++| STM ALID 17218 M01S03994.274l797 +++| PRS13 LDC PRSB SET TO MODIFY SADT INSTRUCTIONS 17219 M01S03995.274l797 +++| STD CN 17220 M01S03996.274l797 +++| LDN 2 SET TO FETCH IN POINTER 17221 M01S03997.274l797 +++| STD CN+4 17222 M01S03998.274l797 +++| LDC /SRU/ITRL*100 SET SRU INCREMENT 17223 M01S03999.274l797 +++| STM //CECA 17224 M01S04000.274l797 +++| LDC PRS14 SET TO RETURN HERE AFTER *CPP* LOADED 17225 M01S04001.274l797 +++| STD BT 17226 M01S04002.274l797 +++| LJM PRSX RETURN 17227 M01S04003.274l797 +++| 17228 M01S04004.274l797 +++|* RETURN HERE AFTER *CPP* LOADED. 17229 M01S04005.274l797 +++|* BUILD CALL TO *1LT*. 17230 M01S04006.274l797 +++| 17231 M01S04007.274l797 +++| PRS14 LDD CP MERGE CP NUMBER 17232 M01S04008.274l797 +++| SHN -7 17233 M01S04009.274l797 +++| RAM CALL+1
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ncccts |
Seq # *Modification Id* Act ----------------------------+ 17234 M01S00028.ncccts +++| LDD HP 17235 M01S00029.ncccts +++| LPC 7700 ALLOW *1LT* TO TEST FOR CTS 17236 M01S00030.ncccts +++| RAM CALL+2
| Line S04010 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17237 M01S04010.274l797 +++| LDD IA SET INPUT REGISTER ADDRESS IN CALL 17238 M01S04011.274l797 +++| STM CALL+4 17239 M01S04012.274l797 +++| LDN CMCL CHECK MOVE FLAG 17240 M01S04013.274l797 +++| CRD CM 17241 M01S04014.274l797 +++| LDD CM 17242 M01S04015.274l797 +++| SHN 7 17243 M01S04016.274l797 +++| LMD CP 17244 M01S04017.274l797 +++| ZJN PRS15 IF MOVE FLAG 17245 M01S04018.274l797 +++| LDD MA WRITE REQUEST BLOCK 17246 M01S04019.274l797 +++| CWM CALL,TR 17247 M01S04020.274l797 +++| LDN 1 SET TO NOT QUEUE REQUEST 17248 M01S04021.274l797 +++| STD CM+1 17249 M01S04022.274l797 +++| MONITOR RPPM REQUEST PP 17250 M01S04023.274l797 +++| LDD CM+1 17251 M01S04024.274l797 +++| NJN PRS16 IF PP ASSIGNED 17252 M01S04025.274l797 +++| PRS15 LJM RET2 REQUEUE 17253 M01S04026.274l797 +++| 17254 M01S04027.274l797 +++| PRS16 STM CPDA SAVE PP INPUT REGISTER ADDRESS 17255 M01S04028.274l797 +++| PRS17 LDN 77 DELAY 17256 M01S04029.274l797 +++| SBN 1 17257 M01S04030.274l797 +++| NJN *-1 17258 M01S04031.274l797 +++| LDD MA CHECK FOR *1LT* ACKNOWLEDGE 17259 M01S04032.274l797 +++| ADN 1 17260 M01S04033.274l797 +++| CRD CM 17261 M01S04034.274l797 +++| LDD CM 17262 M01S04035.274l797 +++| ZJN PRS19 IF *1LT* READY 17263 M01S04036.274l797 +++| RJM CPD CHECK PP DROP OUT 17264 M01S04037.274l797 +++| NJN PRS15 IF *1LT* GONE 17265 M01S04038.274l797 +++| LDN CMCL CHECK MOVE FLAG 17266 M01S04039.274l797 +++| CRD CM 17267 M01S04040.274l797 +++| LDD CM 17268 M01S04041.274l797 +++| SHN 7 17269 M01S04042.274l797 +++| LMD CP 17270 M01S04043.274l797 +++| NJN PRS17 IF NO MOVE FLAG FOR THIS CP 17271 M01S04044.274l797 +++| RJM CEC CHANGE BACK TO MAGNET CP 17272 M01S04045.274l797 +++| PRS18 RJM CPD CHECK PP DROP OUT 17273 M01S04046.274l797 +++| NJN PRS15 IF *1LT* GONE 17274 M01S04047.274l797 +++| PAUSE NE 17275 M01S04048.274l797 +++| UJN PRS18 LOOP 17276 M01S04049.274l797 +++|
| Line S04050 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17277 M02S04050.1mt48 ---| PRS19 LJM RLI ENTER READ ROUTINE
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17278 M01S00036.1mt48 +++| PRS19 LDM CIOE 17279 M01S00037.1mt48 +++| LPC 774 17280 M01S00038.1mt48 +++| LMN 20 17281 M01S00039.1mt48 +++| NJN PRS20 IF NOT READ SKIP 17282 M01S00040.1mt48 +++| STM EBPC 17283 M01S00041.1mt48 +++| LDC UJNI-PJNI 17284 M01S00042.1mt48 +++| RAM RLIB 17285 M01S00043.1mt48 +++| LDC LDMI 17286 M01S00044.1mt48 +++| STM EBPD 17287 M01S00045.1mt48 +++| RJM CIB 17288 M01S00046.1mt48 +++| MJN PRS21 IF BUFFER ARGUMENT ERROR 17289 M01S00047.1mt48 +++| STD T5 17290 M01S00048.1mt48 +++| SHN -14 17291 M01S00049.1mt48 +++| STD T4 17292 M01S00050.1mt48 +++| LDN 3 SET REQUEST TO *1LT* 17293 M01S00051.1mt48 +++| RJM SRQ 17294 M01S00052.1mt48 +++| PRS20 LDN 77 DELAY 17295 M01S00053.1mt48 +++| SBN 1 17296 M01S00054.1mt48 +++| NJN *-1 IF DELAY NOT COMPLETE 17297 M01S00055.1mt48 +++| RJM CRA SEE IF *1LT* ACCEPTED READ SKIP 17298 M01S00056.1mt48 +++| LMN 2 17299 M01S00057.1mt48 +++| NJN PRS20 IF *1LT* NOT DONE 17300 M01S00058.1mt48 +++| PRS21 LJM RLI ENTER READ ROUTINE
| Line S04051 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17301 M01S04051.274l797 +++| CALL SPACE 4,10 17302 M01S04052.274l797 +++|** *1LT* CALL BLOCK. 17303 M01S04053.274l797 +++|* 17304 M01S04054.274l797 +++|*T 18/ 1LT,6/ CP,12/ 0,12/ CHANNEL,12/ PPIA
Figure
17305 M01S04055.274l797 +++|*T, 12/ -0,24/ FIRST,24/ LIMIT
Figure
17306 M01S04056.274l797 +++| 17307 M01S04057.274l797 +++| 17308 M01S04058.274l797 +++| CALL VFD 18/3R1LT,6/0 17309 M01S04059.274l797 +++| CON 0 READ 17310 M01S04060.274l797 +++| CHTE * 17311 M01S04061.274l797 +++| CON CH CHANNEL 17312 M01S04062.274l797 +++| CON 0 *1MT* INPUT REGISTER ADDRESS 17313 M01S04063.274l797 +++| CON -0 17314 M01S04064.274l797 +++| SADT .FT,,,,SE 17315 M01S04065.274l797 +++| CON 0,0 17316 M01S04066.274l797 +++| SADT .LM,,,,SE 17317 M01S04067.274l797 +++| CON 0,0 17318 M01S04068.274l797 +++| 17319 M01S04069.274l797 +++| ERRMI ERLA-* IF CODE OVERFLOWS 17320 M01S04070.274l797 +++| TRSO SPACE 4,10 17321 M01S04071.274l797 +++|** TRSO - TABLE OF READ STOP CODES. 17322 M01S04072.274l797 +++| 17323 M01S04073.274l797 +++| 17324 M01S04074.274l797 +++| TRSO BSS 0 17325 M01S04075.274l797 +++| CON 10,1 READ
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17326 M01S00059.1mt48 +++| CON 20,1 READSKP
| Line S04076 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17327 M01S04076.274l797 +++| CON 200,3 READCW 17328 M01S04077.274l797 +++| CON 250,2 READNS 17329 M01S04078.274l797 +++| CON 600,3 READEI 17330 M01S04079.274l797 +++| CON 0 RPHR 17331 M01S04080.274l797 +++| 17332 M01S04081.274l797 +++| PRSA CHTB CHANNEL TABLE 17333 M01S04082.274l797 +++| PRSB TSAD
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17334 M01S00153.1mt51 +++| TITLE PRESET SUBROUTINES.
| Line S04083 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17335 M01S04083.274l797 +++| ALI SPACE 4,15 17336 M01S04084.274l797 +++|** ALI - ATS LI FORMAT READ. 17337 M01S04085.274l797 +++|* THIS ROUTINE OVERLAYS *RLI*. 17338 M01S04086.274l797 +++|* 17339 M01S04087.274l797 +++|* USES T1. 17340 M01S04088.274l797 +++|* 17341 M01S04089.274l797 +++|* CALLS ADP, CDO, CRA, DTS, EBP, FCN, ITM, MCC, SRQ, STW, 17342 M01S04090.274l797 +++|* UBW, UCP, VDA, WDA, WEO. 17343 M01S04091.274l797 +++| 17344 M01S04092.274l797 +++| 17345 M01S04093.274l797 +++| .ALI BSS 0 17346 M01S04094.274l797 +++| LOC .RLIA 17347 M01S04095.274l797 +++| ALI LDC NJNI+ALI6-ALIH
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17348 M01S00154.1mt51 +++|* LDC ALI1 (CYBER 180)
| Line S04096 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17349 M01S04096.274l797 +++| ALIA EQU *-1
| Line S04097 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17350 M02S04097.1mt51 ---|* LDC ALI1 (CYBER 170-8XX)
| Line S04098 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17351 M01S04098.274l797 +++| STM ALIH NOT LAST CHUNK
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17352 M01S00155.1mt51 +++|* STM AILA (CYBER 180)
| Line S04099 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17353 M01S04099.274l797 +++| ALIB EQU *-1
| Line S04100 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17354 M02S04100.1mt51 ---|* STM AILA (CYBER 170-8XX)
| Line S04101 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17355 M01S04101.274l797 +++| LDC 6
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17356 M01S00156.1mt51 +++|* LDC X06 (SELECT CLIP LEVEL)
| Line S04102 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17357 M01S04102.274l797 +++| ALIC EQU *-1
| Line S04103 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17358 M02S04103.1mt51 ---|* LDC X06 (SELECT CLIP LEVEL)
| Line S04104 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17359 M01S04104.274l797 +++| RJM FCN
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17360 M01S00157.1mt51 +++|* UJN *+2 (NORMAL CLIP LEVEL)
| Line S04105 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17361 M01S04105.274l797 +++| ALID EQU *-2
| Line S04106 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17362 M02S04106.1mt51 ---|* UJN *+2 (NORMAL CLIP LEVEL)
| Line S04107 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17363 M01S04107.274l797 +++| RJM ITM INITIATE TAPE MOTION
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 17364 M01S00060.1mt48 +++| LDN 1
| Line S04108 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17365 M01S04108.274l797 +++| RJM SRQ SEND START BLOCK REQUEST TO *1LT* 17366 M01S04109.274l797 +++| LDD DS SAVE DEVICE STATUS 17367 M01S04110.274l797 +++| STM /READ/STAP 17368 M01S04111.274l797 +++| LDC LBBY+5 BYTE COUNT FOR FIRST CHUNK 17369 M01S04112.274l797 +++| STM ALII 17370 M01S04113.274l797 +++| LJM ALI7 INPUT THE FIRST CHUNK
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17371 M01S00158.1mt51 +++|* UJN *+2 (CYBER 180 - INPUT THE FIRST CHUNK)
| Line S04114 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17372 M01S04114.274l797 +++| ALIE EQU *-2
| Line S04115 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17373 M02S04115.1mt51 ---|* UJN *+2 (CYBER 170-8XX) 17374 M02S04116.1mt51 ---|
| Line S04117 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17375 M01S04117.274l797 +++| IAM BUFB-5,CH INPUT FIRST CHUNK 17376 M01S04118.274l797 +++| ALI1 IJM ALI9,CH IF *1MT* FINISHED THE CHANNEL TRANSFER 17377 M01S04119.274l797 +++| EJM ALI1,CH IF *1LT* NOT TAKING DATA YET 17378 M01S04120.274l797 +++| CCF *,CH TELL *1LT* TO START 17379 M01S04121.274l797 +++| ALI2 RJM UCP UPDATE COUNTERS AND POINTER 17380 M01S04122.274l797 +++| LMN 1 17381 M01S04123.274l797 +++| ZJN ALI3 IF FIRST CHUNK 17382 M01S04124.274l797 +++| RJM UCP UPDATE COUNTERS AND POINTER 17383 M01S04125.274l797 +++| ALI3 RJM WDA WRITE DATA TO CENTRAL MEMORY 17384 M01S04126.274l797 +++| LDC LBBY 17385 M01S04127.274l797 +++| STM ALII BYTE COUNT FOR MIDDLE CHUNK 17386 M01S04128.274l797 +++| LDM .BYC 17387 M01S04129.274l797 +++| SBN LICH-1 FULL CHUNKS PER BLOCK - 1 17388 M01S04130.274l797 +++| MJN ALI4 IF MORE FULL CHUNKS TO INPUT 17389 M01S04131.274l797 +++| LDC LIRW*5+1+1 BYTES IN REMAINDER + PAD + 1 17390 M01S04132.274l797 +++| STM ALII 17391 M01S04133.274l797 +++| LDC UJNI+ALI8-ALIH
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17392 M01S00159.1mt51 +++|* LDC ALI8 (CYBER 180)
| Line S04134 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17393 M01S04134.274l797 +++| ALIF EQU *-1
| Line S04135 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17394 M02S04135.1mt51 ---|* LDC ALI8 (CYBER 170-8XX)
| Line S04136 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17395 M01S04136.274l797 +++| STM ALIH LAST CHUNK HANDLING
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17396 M01S00160.1mt51 +++|* STM AILA (CYBER 180)
| Line S04137 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17397 M01S04137.274l797 +++| ALIG EQU *-1
| Line S04138 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17398 M02S04138.1mt51 ---|* STM AILA (CYBER 170-8XX)
| Line S04139 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17399 M01S04139.274l797 +++| 17400 M01S04140.274l797 +++|* THE FOLLOWING CODE IS OVERLAID BY CODE AT *AIL* IF USING 17401 M01S04141.274l797 +++|* THE CHANNEL FLAG INSTRUCTION. 17402 M01S04142.274l797 +++| 17403 M01S04143.274l797 +++| .ALIA BSS 0 BEGINNING OF OVERLAID CODE 17404 M01S04144.274l797 +++| ALI4 AJM *,CH IF WAITING FOR *1LT* TO DCN CHANNEL 17405 M01S04145.274l797 +++| LDM ALII SET NUMBER OF BYTES TO INPUT 17406 M01S04146.274l797 +++| ALI5 IJM ALI19,CH IF *1LT* FINISHED THE CHANNEL TRANSFER 17407 M01S04147.274l797 +++| EJM ALI5,CH IF *1LT* STILL READING 17408 M01S04148.274l797 +++| IAM BUFB,CH INPUT DATA 17409 M01S04149.274l797 +++| DCN CH+40 INDICATE TO *1LT* TO CONTINUE READ 17410 M01S04150.274l797 +++| NJN ALI9 IF *1MT* FINISHED THE CHANNEL TRANSFER 17411 M01S04151.274l797 +++| ALIH EQU *-1 17412 M01S04152.274l797 +++|* UJN ALI8 (LAST CHUNK) 17413 M01S04153.274l797 +++| ACN CH 17414 M01S04154.274l797 +++| ALI6 IJM ALI9,CH IF *1MT* FINISHED THE CHANNEL TRANSFER 17415 M01S04155.274l797 +++| EJM ALI6,CH IF *1LT* NOT TAKING DATA YET 17416 M01S04156.274l797 +++| LJM ALI2 SETUP FOR NEXT CHUNK 17417 M01S04157.274l797 +++| 17418 M01S04158.274l797 +++| ALI7 IAM BUFB-5,CH 17419 M01S04159.274l797 +++| DCN CH+40 INDICATE TO *1LT* TO CONTINUE READ 17420 M01S04160.274l797 +++| NJN ALI9 IF *1MT* FINISHED THE CHANNEL TRANSFER 17421 M01S04161.274l797 +++| ACN CH 17422 M01S04162.274l797 +++| UJN ALI6 SAVE BYTES NOT TRANSFERRED 17423 M01S04163.274l797 +++| 17424 M01S04164.274l797 +++| .ALIAL EQU *-.ALIA LENGTH OF OVERLAID AREA 17425 M01S04165.274l797 +++| 17426 M01S04166.274l797 +++| ALI8 NJN ALI9 IF NOT EXCESS BLOCK LENGTH 17427 M01S04167.274l797 +++| LDN /MTX/BTL SET BLOCK TOO LONG 17428 M01S04168.274l797 +++| RJM MCC MASTER CLEAR CHANNEL 17429 M01S04169.274l797 +++|* LDN 0 17430 M01S04170.274l797 +++| RJM STW GET GENERAL STATUS 17431 M01S04171.274l797 +++| LDN 1 SET TO COMPUTE WORD COUNT 17432 M01S04172.274l797 +++| ALI9 STD T1 17433 M01S04173.274l797 +++| LDC LBBY+5 BYTE COUNT FOR FIRST CHUNK
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17434 M01S00161.1mt51 +++|* LDC LBBY (MIDDLE CHUNK) 17435 M01S00162.1mt51 +++|* LDC LIRW*5+1+1 (LAST CHUNK)
| Line S04174 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17436 M01S04174.274l797 +++| ALII EQU *-1
| Line S04175 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17437 M02S04175.1mt51 ---|* LDC LBBY (MIDDLE CHUNK) 17438 M02S04176.1mt51 ---|* LDC LIRW*5+1+1 (LAST CHUNK)
| Line S04177 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17439 M01S04177.274l797 +++| RJM VDA PROCESS DATA 17440 M01S04178.274l797 +++| RJM CDO CHECK DROP OUT FLAG 17441 M01S04179.274l797 +++| 17442 M01S04180.274l797 +++|* PROCESS STATUS. 17443 M01S04181.274l797 +++| 17444 M01S04182.274l797 +++| RJM WEO WAIT FOR END OF OPERATION 17445 M01S04183.274l797 +++| ZJN ALI12 IF NO ERRORS 17446 M01S04184.274l797 +++| SHN 21-4 17447 M01S04185.274l797 +++| PJN ALI10 IF NOT TAPE MARK 17448 M01S04186.274l797 +++| LDN 3 SET STOP TO EOI 17449 M01S04187.274l797 +++| STD TB 17450 M01S04188.274l797 +++| LDN 17 SET LEVEL NUMBER 17451 M01S04189.274l797 +++| STM LNUM 17452 M01S04190.274l797 +++| LDM VDAB BACK UP POINTERS 17453 M01S04191.274l797 +++| STD CN+3 17454 M01S04192.274l797 +++| LDM VDAC 17455 M01S04193.274l797 +++| STD CN+4 17456 M01S04194.274l797 +++| LDN /MTX/BEI SET EOI 17457 M01S04195.274l797 +++| STD EC 17458 M01S04196.274l797 +++| UJN ALI15 GET DETAILED STATUS 17459 M01S04197.274l797 +++| 17460 M01S04198.274l797 +++| ALI10 LDD EC 17461 M01S04199.274l797 +++| ZJN ALI11 IF ERROR NOT ALREADY ENCOUNTERED 17462 M01S04200.274l797 +++| LDM MTDS 17463 M01S04201.274l797 +++| ZJN ALI13 IF NOT FATAL ERROR 17464 M01S04202.274l797 +++| ALI11 LDN /MTX/STE STATUS ERROR 17465 M01S04203.274l797 +++| STD EC 17466 M01S04204.274l797 +++| UJN ALI13 NO TAPE ERROR REPORTED FROM HARDWARE 17467 M01S04205.274l797 +++| 17468 M01S04206.274l797 +++| ALI12 LDM MTDS+1 17469 M01S04207.274l797 +++| SHN 21-11 17470 M01S04208.274l797 +++| PJN ALI13 IF NO GCR SINGLE TRACK CORRECTION 17471 M01S04209.274l797 +++| AOM ECNT+4 INCREMENT COUNTER 17472 M01S04210.274l797 +++| SHN -14 17473 M01S04211.274l797 +++| RAM ECNT+3 INCREMENT COUNTER FOR OVERFLOW 17474 M01S04212.274l797 +++| ALI13 LDD DS 17475 M01S04213.274l797 +++| LPN 40 17476 M01S04214.274l797 +++| ZJN ALI14 IF NO FILL STATUS 17477 M01S04215.274l797 +++| LDD EC 17478 M01S04216.274l797 +++| NJN ALI15 IF ERROR ALREADY ENCOUNTERED 17479 M01S04217.274l797 +++| LDN /MTX/STE 17480 M01S04218.274l797 +++| STD EC 17481 M01S04219.274l797 +++| ALI14 LDD EC 17482 M01S04220.274l797 +++| NJN ALI15 IF ERROR 17483 M01S04221.274l797 +++| RJM UBW UPDATE BID WINDOW 17484 M01S04222.274l797 +++| UJN ALI16 SAVE STATUS FOR ERROR PROCESSOR 17485 M01S04223.274l797 +++| 17486 M01S04224.274l797 +++| ALI15 RJM DTS DETAILED STATUS 17487 M01S04225.274l797 +++| ALI16 LDD DS SAVE STATUS FOR ERROR PROCESSOR 17488 M01S04226.274l797 +++| STM //STER 17489 M01S04227.274l797 +++| ALI17 RJM CRA READ *1LT* INTERFACE WORD 17490 M01S04228.274l797 +++| NJN ALI17 IF *1LT* TRANSFER TO CM NOT COMPLETE 17491 M01S04229.274l797 +++| LDD MD 17492 M01S04230.274l797 +++| LPN 40 17493 M01S04231.274l797 +++| ZJN ALI18 IF NOT 200 READ CODE 17494 M01S04232.274l797 +++| LDN 1 17495 M01S04233.274l797 +++| RJM ADP 17496 M01S04234.274l797 +++| RJM WDA WRITE TRAILER CONTROL WORD 17497 M01S04235.274l797 +++| ALI18 LDN 0 17498 M01S04236.274l797 +++| STD CM ACKNOWLEDGE *1LT* 17499 M01S04237.274l797 +++| LDM CPDA 17500 M01S04238.274l797 +++| ADN 2 17501 M01S04239.274l797 +++| CWD CM 17502 M01S04240.274l797 +++| RJM EBP END OF BLOCK PROCESSING 17503 M01S04241.274l797 +++| LJM RLI READ NEXT BLOCK 17504 M01S04242.274l797 +++| 17505 M01S04243.274l797 +++|* *1LT* FINISHED THE CHANNEL TRANSFER. 17506 M01S04244.274l797 +++| 17507 M01S04245.274l797 +++| ALI19 RJM CRA READ *1LT* INTERFACE WORD 17508 M01S04246.274l797 +++| NJN ALI19 IF *1LT* TRANSFER TO CM NOT COMPLETE 17509 M01S04247.274l797 +++| AOM VDAA INDICATE *1LT* FINISHED THE TRANSFER 17510 M01S04248.274l797 +++| LDC LBBY 17511 M01S04249.274l797 +++| STM ALII BYTE COUNT FOR INPUT 17512 M01S04250.274l797 +++| SBD CM+1 17513 M01S04251.274l797 +++| LJM ALI9 SAVE BYTES NOT TRANSFERRED 17514 M01S04252.274l797 +++| 17515 M01S04253.274l797 +++| LOC *O 17516 M01S04254.274l797 +++| .ALIL EQU *-.ALI LENGTH OF *ALI* 17517 M01S04255.274l797 +++| ERRMI .RLIAL-.ALIL IF CODE OVERFLOWS 17518 M01S04256.274l797 +++| .ALIB CHTB CHANNEL TABLE 17519 M01S04257.274l797 +++| AIL SPACE 4,10 17520 M01S04258.274l797 +++|** ATS INPUT LOOP IF USING THE CHANNEL FLAG INSTRUCTION. 17521 M01S04259.274l797 +++| 17522 M01S04260.274l797 +++| 17523 M01S04261.274l797 +++| .AIL BSS 0 17524 M01S04262.274l797 +++| LOC .ALIA 17525 M01S04263.274l797 +++| AIL LDM ALII BYTES TO INPUT
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17526 M01S00163.1mt51 +++| RJM WTS WAIT FOR *1LT* TRANSFER TO START
| Line S04264 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17527 M01S04264.274l797 +++| AIL1 IJM ALI19,CH IF *1LT* FINISHED THE CHANNEL TRANSFER 17528 M01S04265.274l797 +++| SCF AIL1,CH IF *1LT* STILL READING
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | 1mt51 |
Seq # *Modification Id* Act ----------------------------+ 17529 M01S00164.1mt51 +++| RJM ITS INDICATE *1MT* TRANSFER STARTED
| Line S04266 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17530 M01S04266.274l797 +++| IAM BUFB,CH 17531 M01S04267.274l797 +++| LJM ALI1 SAVE WORDS NOT TRANSFERRED 17532 M01S04268.274l797 +++| AILA EQU *-1 17533 M01S04269.274l797 +++|* LJM ALI8 LAST CHUNK 17534 M01S04270.274l797 +++| 17535 M01S04271.274l797 +++| LOC *O 17536 M01S04272.274l797 +++| .AILL EQU *-.AIL LENGTH OF ATS INPUT LOOP 17537 M01S04273.274l797 +++| 17538 M01S04274.274l797 +++| ERRMI .ALIAL-.AILL IF IOU INPUT CODE TOO LONG 17539 M01S04275.274l797 +++| 17540 M01S04276.274l797 +++| .AILB CHTB TABLE OF CHANNELS FOR IOU CODE 17541 M00S10050.1mt +++| OVERLAY (READ LABEL PROCESSOR.),(/READ/ORLA),,RLA 17542 M00S10051.1mt +++| RLA SPACE 4,15 17543 M00S10052.1mt +++|** RLA - READ LABELS PROCESSOR. 17544 M00S10053.1mt +++|* 17545 M00S10054.1mt +++|*T 12/ 0,12/ RLA,12/ 0100,12/ PAR,6/ OP,6/ SEC
Figure
17546 M00S10055.1mt +++|* 17547 M00S10056.1mt +++|* OP OPERATION TYPE (SEE LISTS BY LABEL TYPE) 17548 M00S10057.1mt +++|* SEC SECTION IN PROCESS. 17549 M00S10058.1mt +++|* PAR PARAMETER. 17550 M00S10059.1mt +++|* 17551 M00S10060.1mt +++|* RETURN TO *RLAX* WILL ADVANCE TO NEXT SECTION WITHOUT A
| Line S10061 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17552 M01S10061.274l797 ---|* NEW READ BEING PERFORMED. SECTION NUMBER IS ADVANCED AT
| Line S04277 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17553 M01S04277.274l797 +++|* NEW READ BEING PERFORMED. 17554 M00S10062.1mt +++|*
| Line S10063 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17555 M01S10063.274l797 ---|* CALLS CHC, HNG, *MFP*, RUD, UBW, WEL, 17556 M01S10064.274l797 ---|* LABEL PROCESSORS.
| Line S04278 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17557 M01S04278.274l797 +++|* CALLS CHC, CCL, FCN, HNG, *MFP*, /READ/MRD9.1, /READ/RCT13, 17558 M01S04279.274l797 +++|* /READ/RDF, RUD, UBW, WEL, /PRESET/WFE. 17559 M00S10065.1mt +++|* 17560 M00S10066.1mt +++|* MACROS CALL. 17561 M00S10067.1mt +++| 17562 M00S10068.1mt +++| 17563 M00S10069.1mt +++| ENTRY RLA 17564 M00S10070.1mt +++| RLA LDD PB 17565 M00S10071.1mt +++| SHN -6
| Line S10072 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17566 M01S10072.282l826 ---| SBN 7
| Line S00878 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17567 M01S00878.282l826 +++| SBN /MTX/RLCM/100 17568 M00S10073.1mt +++| MJN RLA1 IF NOT MULTI-FILE OPERATION 17569 M00S10074.1mt +++| CALL MFP
| Line S10075 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17570 M01S10075.252l678 ---| RLA1 LDD PB CHECK SEQUENCE
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17571 M01S00362.252l678 +++| RLA1 UJN RLA1.1 DISABLE IF NOT INITIAL LABEL CHECK 17572 M01S00363.252l678 +++|* LDN 0 (CLEAR LABEL RETRY COUNTER) 17573 M01S00364.252l678 +++| RLAF EQU *-1 17574 M01S00365.252l678 +++| STM LERA 17575 M01S00366.252l678 +++| RLA1.1 LDD PB CHECK SEQUENCE 17576 M00S10076.1mt +++| SHN -6 17577 M00S10077.1mt +++| LMC 0 (CURRENT SEQUENCE) 17578 M00S10078.1mt +++| RLAA EQU *-1 17579 M00S10079.1mt +++| NJN RLA2 IF INCORRECT SEQUENCE 17580 M00S10080.1mt +++| LDD PB SET SECTION 17581 M00S10081.1mt +++| LPN 77 17582 M00S10082.1mt +++| STD T1 17583 M00S10083.1mt +++| ADC -* (MAXIMUM NUMBER OF SECTIONS) 17584 M00S10084.1mt +++| RLAB EQU *-1 17585 M00S10085.1mt +++| MJN RLA3 IF LEGAL SECTION 17586 M00S10086.1mt +++| RLA2 RJM HNG HANG PP 17587 M00S10087.1mt +++| RLA3 LDM TABC,T1 17588 M00S10088.1mt +++| STM RLAE 17589 M00S10089.1mt +++| RJM RUD READ UDT LABEL DATA 17590 M00S10090.1mt +++| LDC BUF SET DEFAULT BUFFER ADDRESS 17591 M00S10091.1mt +++| STM IBUF 17592 M00S10092.1mt +++| LDC UDTB 17593 M00S10093.1mt +++| STM DBUF 17594 M00S10094.1mt +++| LDC 0 17595 M00S10095.1mt +++| RLAC EQU *-1 17596 M00S10096.1mt +++| SHN 21-13
| Line S10097 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17597 M01S10097.274l797 ---| MJN RLA7 IF RECOVERED LABEL BLOCK
| Line S04280 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17598 M01S04280.274l797 +++| MJP RLA7 IF RECOVERED LABEL BLOCK 17599 M00S10098.1mt +++| NJN RLA4 IF SKIP READ 17600 M00S10099.1mt +++| LDC * (READ BEFORE FIRST OPERATION FLAG) 17601 M00S10100.1mt +++| RLAD EQU *-1 17602 M00S10101.1mt +++| ZJN RLA5 IF READ BEFORE FIRST OPERATION 17603 M00S10102.1mt +++| LDN 0 17604 M00S10103.1mt +++| STM RLAD
| Line S10104 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17605 M01S10104.274l797 ---| RLA4 UJN RLA9 PROCESS ROUTINE
| Line S04281 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17606 M01S04281.274l797 +++| RLA4 UJP RLA9 PROCESS ROUTINE 17607 M00S10105.1mt +++|
| Line S10106 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 17608 M01S10106.v23l617 ---| RLA5 LDD MD SET READ FUNCTION 17609 M01S10107.v23l617 ---| LPC 2000 17610 M01S10108.v23l617 ---| SHN 6-12 17611 M01S10109.v23l617 ---| ADN 40 17612 M01S10110.v23l617 ---| STM ITMA 17613 M01S10111.v23l617 ---| LJM /READ/RDF READ TAPE
| Line S00298 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 17614 M01S00298.v23l617 +++| RLA5 LDD MD CHECK DIRECTION 17615 M01S00299.v23l617 +++| SHN 21-12 17616 M01S00300.v23l617 +++| PJN RLA5.1 IF FORWARD READ
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17617 M02S00301.274l797 ---| LDC 113 ISSUE BACKSPACE FUNCTION
| Line S04282 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17618 M01S04282.274l797 +++| LDC F0113 ISSUE BACKSPACE FUNCTION
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 17619 M01S00302.v23l617 +++| RJM FCN 17620 M01S00303.v23l617 +++| STD EC CLEAR ERROR CODE
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17621 M02S00304.274l797 ---| LDN 50 SET LABEL LENGTH
| Line S04283 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17622 M01S04283.274l797 +++| LDN LABL SET LABEL LENGTH 17623 M01S04284.274l797 +++| RLAI EQU *-1 17624 M01S04285.274l797 +++|* LDN CLBL CTS LABEL LENGTH
| Line S00305 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 17625 M01S00305.v23l617 +++| STD BY
| Line S00306 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17626 M02S00306.274l797 ---| LJM /READ/MRD9.1 PROCESS STATUS
| Line S04286 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17627 M01S04286.274l797 +++| LDD HP 17628 M01S04287.274l797 +++| SHN 21-7 17629 M01S04288.274l797 +++| PJP /READ/MRD9.1 IF NOT CTS (RETURN AT *RLA6.1) 17630 M01S04289.274l797 +++| RLA5.0 RJM /PRESET/WFE WAIT FOR END OF OPERATION 17631 M01S04290.274l797 +++| MJN RLA5.0 IF COMMAND RETRY 17632 M01S04291.274l797 +++| NJP /READ/RCT13 IF ERROR 17633 M01S04292.274l797 +++| LDN 40 17634 M01S04293.274l797 +++| STD ES CHARACTER FILL STATUS 17635 M01S04294.274l797 +++| UJN RLA6.1 SAVE STATUS FOR ERROR PROCESSING
| Line S00307 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 17636 M01S00307.v23l617 +++| 17637 M01S00308.v23l617 +++| RLA5.1 LJM /READ/RDF READ TAPE 17638 M01S00309.v23l617 +++|
| Line S04295 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17639 M01S04295.274l797 +++|* ENTER HERE AFTER LABEL READ OR BACKSPACE FUNCTION. 17640 M00S10112.1mt +++|
| Line S10113 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17641 M01S10113.274l797 ---| RLA6 AOD BT INCREMENT BLOCKS READ
| Line S04296 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17642 M01S04296.274l797 +++| RLA6 CALL CCL CODE CONVERT LABEL 17643 M01S04297.274l797 +++| RLA6.1 AOD BT INCREMENT BLOCKS READ 17644 M00S10114.1mt +++| LDD EC 17645 M00S10115.1mt +++| NJN RLA8 IF READ ERROR 17646 M00S10116.1mt +++| RLA7 RJM WEL WRITE EXTENDED LABELS 17647 M00S10117.1mt +++| UJN RLA9 PROCESS LABEL 17648 M00S10118.1mt +++| 17649 M00S10119.1mt +++| RLA8 LMN /MTX/BEI 17650 M00S10120.1mt +++| NJN RLA9 IF NOT TAPE MARK 17651 M00S10121.1mt +++| LDN 1 SET TAPE MARK INDICATION
| Line S04298 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17652 M01S04298.274l797 +++| RLAH EQU *-1 17653 M01S04299.274l797 +++|* UJN RLA9 CTS 17654 M00S10122.1mt +++| STM UBWB
| Line S10123 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17655 M01S10123.274l797 ---| RJM UBW
| Line S04300 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17656 M01S04300.274l797 +++| RJM UBW UPDATE BLOCK ID WINDOW 17657 M00S10124.1mt +++| RLA9 LDN 0 CLEAR SKIP READ FLAG 17658 M00S10125.1mt +++| STM RLAC 17659 M00S10126.1mt +++| RJM * PROCESS LABEL 17660 M00S10127.1mt +++| RLAE EQU *-1 17661 M00S10128.1mt +++| NJN RLA10 IF MORE LABELS TO PROCESS 17662 M00S10129.1mt +++| LJM RET1 EXIT 17663 M00S10130.1mt +++| 17664 M00S10131.1mt +++| RLAX AOD PB ADVANCE SECTION 17665 M00S10132.1mt +++| STM RLAC SET SKIP READ FLAG 17666 M00S10133.1mt +++| RLA10 LJM RLA1 LOOP 17667 M00S10134.1mt +++| 17668 M00S10135.1mt +++| RLA11 RJM CHC CHANGE CONTROL POINT AND RELOCATE ADDR. 17669 M00S10136.1mt +++| UJN RLA10 LOOP 17670 M00S10137.1mt +++| SPACE 4,10 17671 M00S10138.1mt +++|** CURRENT OPERATION TABLE. 17672 M00S10139.1mt +++|* 17673 M00S10140.1mt +++|* CORRECT TABLE WILL BE MOVED INTO THIS 17674 M00S10141.1mt +++|* AREA BY PRESET ROUTINE. 17675 M00S10142.1mt +++| 17676 M00S10143.1mt +++| 17677 M00S10144.1mt +++| TABC BSS 14 17678 M00S10145.1mt +++| TABCL EQU *-TABC 17679 M00S10146.1mt +++| FAD SPACE 4,10 17680 M00S10147.1mt +++|** FAD - SET FET ADDRESS. 17681 M00S10148.1mt +++|* THIS ROUTINE IS HERE AS ADDRESS MODIFICATION DOES NOT WORK 17682 M00S10149.1mt +++|* ABOVE 3777B. 17683 M00S10150.1mt +++|* 17684 M00S10151.1mt +++|* EXIT (A) = FET ADDRESS. 17685 M00S10152.1mt +++|* 17686 M00S10153.1mt +++|* MACROS SADT. 17687 M00S10154.1mt +++| 17688 M00S10155.1mt +++| 17689 M00S10156.1mt +++| FAD SUBR ENTRY/EXIT 17690 M00S10157.1mt +++| SADT .FE,,,A 17691 M00S10158.1mt +++| LDC * 17692 M00S10159.1mt +++| UJN FADX RETURN
| Line S10160 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17693 M01S10160.282l826 ---| CCM SPACE 4,10 17694 M01S10161.282l826 ---|** CCM - CHECK CONVERSION MODE FOR 9 TRACK, UNLABELED TAPES. 17695 M01S10162.282l826 ---|* 17696 M01S10163.282l826 ---|* CALLS SKR. 17697 M01S10164.282l826 ---| 17698 M01S10165.282l826 ---| 17699 M01S10166.282l826 ---| CCM SUBR ENTRY/EXIT 17700 M01S10167.282l826 ---| LDD HP
| Line S10168 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17701 M02S10168.282l826 ---| LPN 1 17702 M02S10169.282l826 ---| ZJN CCMX IF NOT 9 TRACK 17703 M02S10170.282l826 ---| LDD UP
| Line S04301 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17704 M02S04301.282l826 ---| SHN 21-0 17705 M02S04302.282l826 ---| PJN CCMX IF NOT 9 TRACK 17706 M02S04303.282l826 ---| CCMA EQU *-1 17707 M02S04304.282l826 ---|* UJN CCMX (CTS) 17708 M02S04305.282l826 ---| CCM1 LDD UP
| Line S10171 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17709 M01S10171.282l826 ---| SHN 21-13 17710 M01S10172.282l826 ---| MJN CCMX IF LABELED 17711 M01S10173.282l826 ---| LDD PA 17712 M01S10174.282l826 ---| LMN 2 17713 M01S10175.282l826 ---| ZJN CCMX IF ALREADY TRIED OPPOSITE MODE 17714 M01S10176.282l826 ---| RJM SKR SKIP BLOCK REVERSE 17715 M01S10177.282l826 ---| LDD DC RETRY IN OPPOSITE MODE 17716 M01S10178.282l826 ---| LMN 1 17717 M01S10179.282l826 ---| STD DC 17718 M01S10180.282l826 ---| AOD PA SET MODE SWITCH 17719 M01S10181.282l826 ---| LDM CCM CHECK WHERE CALLED FROM 17720 M01S10182.282l826 ---| LMC .EEOV
| Line S10183 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17721 M02S10183.282l826 ---| NJN CCM1 IF NOT CALLED FROM *EOV* PROCESSING
| Line S04306 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17722 M02S04306.282l826 ---| NJN CCM2 IF NOT CALLED FROM *EOV* PROCESSING
| Line S10184 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17723 M01S10184.282l826 ---| SOD PB RETRY *EOF1*
| Line S10185 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17724 M02S10185.282l826 ---| CCM1 LJM RET2 REQUEUE
| Line S04307 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17725 M02S04307.282l826 ---| CCM2 LJM RET2 REQUEUE 17726 M00S10186.1mt +++| CHC SPACE 4,10 17727 M00S10187.1mt +++|** CHC - CHANGE CONTROL POINTS AND RELOCATE ADDRESSES. 17728 M00S10188.1mt +++|* 17729 M00S10189.1mt +++|* CALLS /CPP/CPP. 17730 M00S10190.1mt +++|* 17731 M00S10191.1mt +++|* MACROS CALL. 17732 M00S10192.1mt +++| 17733 M00S10193.1mt +++| 17734 M00S10194.1mt +++| CHC SUBR ENTRY/EXIT 17735 M00S10195.1mt +++| CALL CPP 17736 M00S10196.1mt +++| LDN ZERL SET ADDRESS RELOCATION 17737 M00S10197.1mt +++| CRD CN 17738 M00S10198.1mt +++| LDC TADD 17739 M00S10199.1mt +++| STD CN 17740 M00S10200.1mt +++| RJM /CPP/CPP 17741 M00S10201.1mt +++| AOD PB INCREMENT SECTION 17742 M00S10202.1mt +++| UJN CHCX RETURN 17743 M00S10203.1mt +++| CLA SPACE 4,15 17744 M00S10204.1mt +++|** CLA - CHECK LABEL FOR VALIDITY. 17745 M00S10205.1mt +++|* CHECKS FOR SIZE AND ERRORS. 17746 M00S10206.1mt +++|* 17747 M00S10207.1mt +++|* EXIT (A) = 0, IF GOOD LABEL. 17748 M00S10208.1mt +++|* (A) = 1, IF TAPE MARK. 17749 M00S10209.1mt +++|* (A) = -1, IF ((PB, 11 - 6) = 0) AND BAD LABEL. 17750 M00S10210.1mt +++|* 17751 M00S10211.1mt +++|* GIVES LABEL MISSING ON ALL OTHER BAD LABELS. 17752 M00S10212.1mt +++|*
| Line S00879 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17753 M01S00879.282l826 +++|* USES BT. 17754 M01S00880.282l826 +++|*
| Line S10213 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17755 M01S10213.252l678 ---|* CALLS CCM, *REM*.
| Line S00367 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17756 M02S00367.274l797 ---|* CALLS CCM, LER, *REM*.
| Line S04308 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17757 M01S04308.274l797 +++|* CALLS CCM, CLL, *CRE*, LER, *REM*. 17758 M00S10214.1mt +++|* 17759 M00S10215.1mt +++|* MACROS CALL. 17760 M00S10216.1mt +++| 17761 M00S10217.1mt +++|
| Line S10218 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17762 M01S10218.274l797 ---| CLA8 LDM /READ/MRDA 17763 M01S10219.274l797 ---| LMD BY 17764 M01S10220.274l797 ---| LMN 1 17765 M01S10221.274l797 ---| NJN CLA2 IF NOT CORRECT NUMBER OF BYTES 17766 M01S10222.274l797 ---| LDD ES 17767 M01S10223.274l797 ---| LPN 40 17768 M01S10224.274l797 ---| NJN CLA2 IF FILL STATUS
| Line S04309 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17769 M01S04309.274l797 +++| CLA8 RJM CLL CHECK LABEL LENGTH 17770 M01S04310.274l797 +++| NJN CLA2 IF INCORRECT LENGTH 17771 M00S10225.1mt +++| 17772 M00S10226.1mt +++| CLA SUBR ENTRY/EXIT 17773 M00S10227.1mt +++| LDD EC 17774 M00S10228.1mt +++| ZJN CLA8 IF NO ERROR 17775 M00S10229.1mt +++| LMN /MTX/BEI 17776 M00S10230.1mt +++| NJN CLA1 IF NOT TAPE MARK 17777 M00S10231.1mt +++| LDN 1 INDICATE TAPE MARK 17778 M00S10232.1mt +++| UJN CLAX RETURN 17779 M00S10233.1mt +++| 17780 M00S10234.1mt +++| CLA1 LMN /MTX/OTF&/MTX/BEI 17781 M00S10235.1mt +++| ZJN CLA8 IF ON THE FLY ERROR CORRECTION 17782 M00S10236.1mt +++| LMN /MTX/STE&/MTX/OTF 17783 M00S10237.1mt +++| CLA2 NJN CLA5 IF NOT STATUS ERROR 17784 M00S10238.1mt +++| LDD PB 17785 M00S10239.1mt +++| SHN -6
| Line S10240 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17786 M01S10240.252l678 ---| ZJN CLA6 IF INITIAL LABEL CHECK
| Line S10241 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17787 M01S10241.282l826 ---| LMN 5
| Line S00881 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17788 M01S00881.282l826 +++| LMN /MTX/RLCR/100 17789 M00S10242.1mt +++| ZJN CLA6 IF REEL RECHECK
| Line S10243 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17790 M01S10243.282l826 ---| LMN 5&1 17791 M01S10244.282l826 ---| NJN CLA3 IF NOT END OF TAPE CHECK 17792 M01S10245.282l826 ---| RJM CCM CHECK CONVERSION MODE 17793 M00S10246.1mt +++| CLA3 LDD SP 17794 M00S10247.1mt +++| SHN 21-2 17795 M00S10248.1mt +++| MJN CLA7 IF ERROR PROCESSING INHIBITED 17796 M00S10249.1mt +++| SOD BT DECREMENT BLOCKS READ 17797 M00S10250.1mt +++| 17798 M00S10251.1mt +++|* ENTER HERE ON LABEL READ RECOVERY TO RELOAD ERROR PROCESSOR. 17799 M00S10252.1mt +++|
| Line S10253 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17800 M01S10253.252l678 ---| CLA4 CALL REM LOAD READ ERROR PROCESSOR
| Line S00368 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17801 M01S00368.252l678 +++| CLA4 RJM LER CHECK FOR LABEL ERROR AT LOAD POINT/INIT 17802 M01S00369.252l678 +++|* UJN *+2 (NOT INITIAL LABEL CHECK) 17803 M01S00370.252l678 +++| CLAA EQU *-2
| Line S00371 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17804 M02S00371.274l797 ---| CALL REM LOAD READ ERROR PROCESSOR
| Line S04311 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17805 M01S04311.274l797 +++| CLAD CALL REM LOAD READ ERROR PROCESSOR 17806 M01S04312.274l797 +++|* CALL CRE LOAD ERROR PROCESSOR (CTS) 17807 M00S10254.1mt +++| 17808 M00S10255.1mt +++| CLA5 LDD EC 17809 M00S10256.1mt +++| LMN /MTX/NBE 17810 M00S10257.1mt +++| ZJN CLA3 IF NOISE BLOCK 17811 M00S10258.1mt +++| LDD PB 17812 M00S10259.1mt +++| SHN -6 17813 M00S10260.1mt +++| ZJN CLA7 IF INITIAL LABEL CHECK
| Line S10261 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17814 M01S10261.282l826 ---| LMN 5
| Line S00882 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17815 M01S00882.282l826 +++| ERRNZ /MTX/RLCL 17816 M01S00883.282l826 +++| LMN /MTX/RLCR/100 17817 M00S10262.1mt +++| ZJN CLA7 IF REEL RECHECK 17818 M00S10263.1mt +++| LDN /MTX/LAM LABEL MISSING 17819 M00S10264.1mt +++| LJM RET3 RETURN ERROR CODE 17820 M00S10265.1mt +++| 17821 M00S10266.1mt +++| CLA6 LDM MTDS CHECK FOR ON-THE-FLY CORRECTED ERROR 17822 M00S10267.1mt +++| LPC 7077 17823 M00S10268.1mt +++|* LPC 7777 (ATS UNIT)
| Line S10269 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17824 M01S10269.252l678 ---| CLAA EQU *-1
| Line S00372 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17825 M01S00372.252l678 +++| CLAB EQU *-1 17826 M00S10270.1mt +++| NJN CLA7 IF FATAL ERROR
| Line S04313 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17827 M01S04313.274l797 +++| CLAC EQU *-1 17828 M01S04314.274l797 +++|* UJN CLA7 CTS 17829 M00S10271.1mt +++| LJM CLA8 CHECK LENGTH 17830 M00S10272.1mt +++| 17831 M00S10273.1mt +++| CLA7 LCN 1 INDICATE BAD LABEL 17832 M00S10274.1mt +++| LJM CLAX RETURN 17833 M00S10275.1mt +++| 17834 M00S10276.1mt +++| ERRNG BUFB-* *CLA* DESTROYED BY READ ERROR PROCESSOR
| Line S04315 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17835 M01S04315.274l797 +++| CLL SPACE 4,15 17836 M01S04316.274l797 +++|** CLL - CHECK LABEL LENGTH. 17837 M01S04317.274l797 +++|* 17838 M01S04318.274l797 +++|* THIS ROUTINE VERIFIES THAT THE DATA READ FOR THE LABEL WAS 17839 M01S04319.274l797 +++|* THE CORRECT LENGTH. 17840 M01S04320.274l797 +++|* 17841 M01S04321.274l797 +++|* ENTRY (BY) = BYTES READ. 17842 M01S04322.274l797 +++|* (ES) = FILL STATUS. 17843 M01S04323.274l797 +++|* (HP) = HARDWARE OPTIONS. 17844 M01S04324.274l797 +++|* 17845 M01S04325.274l797 +++|* EXIT (A) = 0 IF CORRECT LENGTH. 17846 M01S04326.274l797 +++| 17847 M01S04327.274l797 +++| 17848 M01S04328.274l797 +++| CLL SUBR ENTRY/EXIT 17849 M01S04329.274l797 +++| LDD HP 17850 M01S04330.274l797 +++| SHN 21-7 17851 M01S04331.274l797 +++| MJN CLL1 IF CTS 17852 M01S04332.274l797 +++| LDD BY BYTES READ 17853 M01S04333.274l797 +++| LMN LABL 17854 M01S04334.274l797 +++| NJN CLLX IF WRONG LENGTH 17855 M01S04335.274l797 +++| LDD ES EXPECT NO FILL STATUS 17856 M01S04336.274l797 +++| UJN CLL2 CHECK FILL STATUS 17857 M01S04337.274l797 +++| 17858 M01S04338.274l797 +++| CLL1 LDD BY BYTES READ 17859 M01S04339.274l797 +++| LMN CLBL 17860 M01S04340.274l797 +++| NJN CLLX IF WRONG LENGTH 17861 M01S04341.274l797 +++| LDD ES 17862 M01S04342.274l797 +++| LMN 40 EXPECT FILL STATUS 17863 M01S04343.274l797 +++| CLL2 LPN 40 17864 M01S04344.274l797 +++| UJN CLLX RETURN 17865 M00S10277.1mt +++| DBT SPACE 4,10 17866 M00S10278.1mt +++|** DBT - DETERMINE BLOCK TYPE. 17867 M00S10279.1mt +++|*
| Line S10280 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17868 M01S10280.274l797 ---|* EXIT (A) = 0 IF TAPE MARK OR BLOCK TOO LONG.
| Line S04345 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17869 M01S04345.274l797 +++|* EXIT (A) = 0 IF TAPE MARK OR BLOCK WRONG LENGTH. 17870 M00S10281.1mt +++| 17871 M00S10282.1mt +++| 17872 M00S10283.1mt +++| DBT2 LDN 0 SET INCORRECT NUMBER OF BYTES 17873 M00S10284.1mt +++| 17874 M00S10285.1mt +++| DBT SUBR ENTRY/EXIT 17875 M00S10286.1mt +++| LDD EC 17876 M00S10287.1mt +++| LMN /MTX/BEI 17877 M00S10288.1mt +++| ZJN DBTX IF TAPE MARK 17878 M00S10289.1mt +++| LDD EC 17879 M00S10290.1mt +++| LMN /MTX/BTL 17880 M00S10291.1mt +++| ZJN DBTX IF BLOCK TOO LARGE 17881 M00S10292.1mt +++| LDD BY 17882 M00S10293.1mt +++| ZJN DBT1 IF POSSIBLE RECOVERABLE ERROR
| Line S10294 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17883 M01S10294.274l797 ---| LMM /READ/MRDA 17884 M01S10295.274l797 ---| LMN 1 17885 M01S10296.274l797 ---| NJN DBT2 IF NOT CORRECT NUMBER OF BYTES 17886 M01S10297.274l797 ---| LDD ES 17887 M01S10298.274l797 ---| LPN 40 17888 M01S10299.274l797 ---| NJN DBT2 IF FILL STATUS
| Line S04346 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17889 M01S04346.274l797 +++| RJM CLL CHECK LABEL LENGTH 17890 M01S04347.274l797 +++| NJN DBT2 IF INCORRECT LENGTH 17891 M00S10300.1mt +++| DBT1 LDN 1 SET TO VALIDATE LABEL 17892 M00S10301.1mt +++| UJN DBTX RETURN 17893 M00S10302.1mt +++| ELA SPACE 4,10 17894 M00S10303.1mt +++|** ELA - EXTENDED LABELS ADDRESS PROCESSING. 17895 M00S10304.1mt +++|* 17896 M00S10305.1mt +++|* ENTRY (T6 - T7) = POSITION TO START AT IN BUFFER. 17897 M00S10306.1mt +++|* 17898 M00S10307.1mt +++|* EXIT (A) = ABSOLUTE ADDRESS. 17899 M00S10308.1mt +++|* (A) = 0, END OF LABEL BUFFER. 17900 M00S10309.1mt +++|* 17901 M00S10310.1mt +++|* CALLS FAD. 17902 M00S10311.1mt +++| 17903 M00S10312.1mt +++| 17904 M00S10313.1mt +++| ELA2 LDN 0 INDICATE END OF BUFFER 17905 M00S10314.1mt +++| 17906 M00S10315.1mt +++| ELA SUBR ENTRY/EXIT 17907 M00S10316.1mt +++| RJM FAD GET FET ADDRESS 17908 M00S10317.1mt +++| ADN 11 17909 M00S10318.1mt +++| CRD CM 17910 M00S10319.1mt +++| LDD CM+3 17911 M00S10320.1mt +++| SHN 14 17912 M00S10321.1mt +++| STD CM+1 17913 M00S10322.1mt +++| SHN -14 17914 M00S10323.1mt +++| STD CM+3 17915 M00S10324.1mt +++| SHN 14 17916 M00S10325.1mt +++| LMD CM+4 17917 M00S10326.1mt +++| SBN 2 17918 M00S10327.1mt +++| MJN ELA2 IF NO LABEL BUFFER 17919 M00S10328.1mt +++| LDD CM+2 17920 M00S10329.1mt +++| SHN 6 17921 M00S10330.1mt +++| LMD CM+1 17922 M00S10331.1mt +++| STD CM+2 17923 M00S10332.1mt +++| SHN -14 17924 M00S10333.1mt +++| STD CM+1 17925 M00S10334.1mt +++| LDD T6 17926 M00S10335.1mt +++| SBD CM+1 17927 M00S10336.1mt +++| SHN 14 17928 M00S10337.1mt +++| ADD T7 17929 M00S10338.1mt +++| SBD CM+2 17930 M00S10339.1mt +++| ADN 11 ALLOW FOR LABEL 17931 M00S10340.1mt +++| PJN ELA2 IF END OF LABEL BUFFER 17932 M00S10341.1mt +++| LDD CM+1 CHECK IF BUFFER WITHIN FL 17933 M00S10342.1mt +++| ADD CM+3 17934 M00S10343.1mt +++| SHN 14 17935 M00S10344.1mt +++| ADD CM+2 17936 M00S10345.1mt +++| ADD CM+4 17937 M00S10346.1mt +++| SHN -6 17938 M00S10347.1mt +++| SBD FL 17939 M00S10348.1mt +++| MJN ELA1 IF BUFFER WITHIN FL 17940 M00S10349.1mt +++| LDN /MTX/BAE BUFFER ARGUMENT ERROR 17941 M00S10350.1mt +++| LJM RET3 RETURN ERROR CODE 17942 M00S10351.1mt +++| 17943 M00S10352.1mt +++| ELA1 LDD CM+3 17944 M00S10353.1mt +++| ADD T6 17945 M00S10354.1mt +++| SHN 6 17946 M00S10355.1mt +++| ADD RA 17947 M00S10356.1mt +++| SHN 6 17948 M00S10357.1mt +++| ADD CM+4 17949 M00S10358.1mt +++| ADD T7 17950 M00S10359.1mt +++| LJM ELAX RETURN 17951 M00S10360.1mt +++| EOF SPACE 4,10
| Line S00373 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 17952 M01S00373.252l678 +++|** LOAD POINT RECOVERY CODE OVERLAYS INTO HERE ON INITIAL LABEL 17953 M01S00374.252l678 +++|* CHECK. THE CHECKING OF END OF FILE LABELS AND VOLUME ONE 17954 M01S00375.252l678 +++|* LABELS WILL NEVER OCCUR AT THE SAME TIME. 17955 M01S00376.252l678 +++| 17956 M01S00377.252l678 +++| .LERA BSS 0 FWA OF OVERLAY CODE FROM *PRSD* 17957 M01S00378.252l678 +++| EOF SPACE 4,15 17958 M00S10361.1mt +++|** EOF - PROCESS *EOF1*. 17959 M00S10362.1mt +++|* RETURNS 1271/1273 IF EOI ON S/L FORMAT TAPE AND 260/262 17960 M00S10363.1mt +++|* READ CODE WAS USED. THIS IS FOR SCOPE PRODUCT SET 17961 M00S10364.1mt +++|* COMPATIBILITY. 17962 M00S10365.1mt +++|* 17963 M00S10366.1mt +++|* ALSO COUNTS TAPE MARK AS A BLOCK IF TAPE IS LABELED, BUT 17964 M00S10367.1mt +++|* LABEL DATA DOES NOT FOLLOW TAPE MARK. AGAIN THIS FOR SAME 17965 M00S10368.1mt +++|* REASON AS ABOVE. 17966 M00S10369.1mt +++|*
| Line S10370 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17967 M01S10370.282l826 ---|* CALLS CBC, CLA, DBT, SKR, /MFP/SSN, UAD.
| Line S00884 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17968 M01S00884.282l826 +++|* CALLS CBC, CIF, CLA, DBT, SKR, /MFP/SSN, UAD. 17969 M00S10371.1mt +++| 17970 M00S10372.1mt +++| 17971 M00S10373.1mt +++| EOF SUBR ENTRY/EXIT
| Line S00885 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17972 M01S00885.282l826 +++| RJM CIF CHECK INTERNAL TAPE FORMAT 17973 M01S00886.282l826 +++| ZJN EOF2 IF INTERNAL TAPE FORMAT
| Line S10374 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 17974 M01S10374.274l797 ---| LDD FM 17975 M01S10375.274l797 ---| SBN /MTX/TFSI+1 17976 M01S10376.274l797 ---| MJN EOF2 IF I/SI FORMAT 17977 M00S10377.1mt +++| RJM DBT DETERMINE BLOCK TYPE
| Line S04348 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17978 M02S04348.282l826 ---| EOFB EQU *-2 17979 M02S04349.282l826 ---|* UJN EOF2 (I, SI, LI FORMAT) 17980 M00S10378.1mt +++| NJN EOF2 IF NOT TAPE MARK OR BLOCK TOO LARGE
| Line S00887 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17981 M01S00887.282l826 +++| 17982 M01S00888.282l826 +++|* ENTRY FROM *EOV*. 17983 M01S00889.282l826 +++|
| Line S10379 Modification History | |
|---|---|
M01 (Removed by) | 1mt16 |
Seq # *Modification Id* Act ----------------------------+ 17984 M01S10379.1mt16 ---| LDD PB
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mt16 |
Seq # *Modification Id* Act ----------------------------+ 17985 M01S00001.1mt16 +++| EOF0 LDD PB 17986 M00S10380.1mt +++| SHN -6
| Line S10381 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17987 M01S10381.282l826 ---| LMN 6
| Line S00890 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17988 M01S00890.282l826 +++| LMN /MTX/RLCF/100 17989 M00S10382.1mt +++| NJN EOF1 IF NOT CLOSE 17990 M00S10383.1mt +++| RJM SKR SKIP BLOCK REVERSE
| Line S10384 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17991 M01S10384.282l826 ---| LDN /MTX/BEI SET NOT TO SKIP TAPE MARKS REVERSE 17992 M01S10385.282l826 ---| LJM RET3 RETURN ERROR CODE
| Line S00891 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 17993 M01S00891.282l826 +++| LJM RBE RETURN *BEI* ERROR TO NOT SKIP REVERSE 17994 M00S10386.1mt +++| 17995 M00S10387.1mt +++| EOF1 RJM SKR SKIP BLOCK REVERSE 17996 M00S10388.1mt +++| LJM EOF11 PROCESS TAPE MARK 17997 M00S10389.1mt +++| 17998 M00S10390.1mt +++| EOF2 RJM CLA 17999 M00S10391.1mt +++| NJN EOF3 IF BAD LABEL 18000 M00S10392.1mt +++| LDM BUF 18001 M00S10393.1mt +++| LMC 2REO 18002 M00S10394.1mt +++| NJN EOF3 IF NOT *EO* 18003 M00S10395.1mt +++| LDM BUF+1 18004 M00S10396.1mt +++| LMC 2RF1 18005 M00S10397.1mt +++| ZJN EOF7 IF *EOF1* 18006 M00S10398.1mt +++| EOF3 LDD PB CHECK IF MULTI FILE 18007 M00S10399.1mt +++| SHN -6
| Line S10400 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18008 M01S10400.282l826 ---| SBN 7
| Line S00892 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18009 M01S00892.282l826 +++| SBN /MTX/RLCM/100 18010 M00S10401.1mt +++| ZJN EOF4 IF END OF REEL CHECK 18011 M00S10402.1mt +++| MJN EOF5 IF NOT MULTI FILE 18012 M00S10403.1mt +++| LDN /MTX/LAM LABEL MISSING 18013 M00S10404.1mt +++| LJM RET3 RETURN ERROR CODE 18014 M00S10405.1mt +++| 18015 M00S10406.1mt +++| EOF4 LDN 10 18016 M00S10407.1mt +++| RAD PB 18017 M00S10408.1mt +++| UJN EOF6 ADVANCE TO NEXT LABEL TYPE 18018 M00S10409.1mt +++| 18019 M00S10410.1mt +++| EOF5 ADN 7-6 18020 M00S10411.1mt +++| NJN EOF6 IF NOT CLOSE 18021 M00S10412.1mt +++| LDN 2 18022 M00S10413.1mt +++| RAD PB 18023 M00S10414.1mt +++| EOF6 LJM RLAX ADVANCE TO NEXT LABEL TYPE 18024 M00S10415.1mt +++| 18025 M00S10416.1mt +++| EOF7 LDD PB CHECK IF MULTI FILE 18026 M00S10417.1mt +++| SHN -6
| Line S10418 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18027 M01S10418.282l826 ---| SBN 7
| Line S00893 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 18028 M01S00893.282l826 +++| SBN /MTX/RLCM/100 18029 M00S10419.1mt +++| MJN EOF9 IF NOT MULTI FILE 18030 M00S10420.1mt +++| NJN EOF8 IF NOT MF LABEL CHECK 18031 M00S10421.1mt +++| RJM /MFP/SSN SET SEQUENCE NUMBER 18032 M00S10422.1mt +++| EOF8 AOD PB ADVANCE SECTION 18033 M00S10423.1mt +++| LJM EOFX RETURN 18034 M00S10424.1mt +++| 18035 M00S10425.1mt +++| EOF9 ADN 7-6 18036 M00S10426.1mt +++| ZJN EOF8 IF CLOSE 18037 M00S10427.1mt +++| RJM CBC CHECK BLOCK COUNT 18038 M00S10428.1mt +++| 18039 M00S10429.1mt +++|* ENTER HERE ON NON - STANDARD LABEL. 18040 M00S10430.1mt +++| 18041 M00S10431.1mt +++| EOF10 LDC 1031 RETURN EOI STATUS 18042 M00S10432.1mt +++| STD PB 18043 M00S10433.1mt +++| STM EOFA SET EOI FOR SKIP OPERATION 18044 M00S10434.1mt +++| UJN EOF12 RETURN EOI 18045 M00S10435.1mt +++| 18046 M00S10436.1mt +++|* HANDLE TAPE MARKS NOT FOLLOWED BY LABELS. 18047 M00S10437.1mt +++| 18048 M00S10438.1mt +++| EOF11 AOD BL+1 COUNT BLOCK 18049 M00S10439.1mt +++| SHN -14 18050 M00S10440.1mt +++| RAD BL 18051 M00S10441.1mt +++| LDN 31 RETURN EOF STATUS 18052 M00S10442.1mt +++| STD PB 18053 M00S10443.1mt +++| EOF12 RJM UAD READ CIO CODE 18054 M00S10444.1mt +++| ADN /MTX/UCIA 18055 M00S10445.1mt +++| CRD CM 18056 M00S10446.1mt +++| LDD CM 18057 M00S10447.1mt +++| SHN -6 18058 M00S10448.1mt +++| LPN 57 18059 M00S10449.1mt +++| ZJN EOF14 IF READ OPERATION 18060 M00S10450.1mt +++| SHN -4 18061 M00S10451.1mt +++| ZJN EOF13 IF NOT SKIP REVERSE
Proceed to Part 14
cdc/nos2.source/opl.opl871/deck/1mt.013.txt · Last modified: by 127.0.0.1