cdc:nos2.source:opl.opl871:deck:1mt.026
Deck 1MT Part 026
92 Modifications
Listing Sections
- Deck 1MT Start
- Deck 1MT Part 1 (Line 1165)
- Deck 1MT Part 2 (Line 2065)
- Deck 1MT Part 3 (Line 2637)
- Deck 1MT Part 4 (Line 3927)
- Deck 1MT Part 5 (Line 4475)
- Deck 1MT Part 6 (Line 5277)
- Deck 1MT Part 7 (Line 6184)
- Deck 1MT Part 8 (Line 6822)
- Deck 1MT Part 9 (Line 7965)
- Deck 1MT Part 10 (Line 9108)
- Deck 1MT Part 11 (Line 9996)
- Deck 1MT Part 12 (Line 10363)
- Deck 1MT Part 13 (Line 10738)
- Deck 1MT Part 14 (Line 11111)
- Deck 1MT Part 15 (Line 11564)
- Deck 1MT Part 16 (Line 11945)
- Deck 1MT Part 17 (Line 12468)
- Deck 1MT Part 18 (Line 12860)
- Deck 1MT Part 19 (Line 13386)
- Deck 1MT Part 20 (Line 13934)
- Deck 1MT Part 21 (Line 15269)
- Deck 1MT Part 22 (Line 16735)
- Deck 1MT Part 23 (Line 18223)
- Deck 1MT Part 24 (Line 19198)
- Deck 1MT Part 25 (Line 20207)
- Deck 1MT Part 26 (Line 21474)
- Deck 1MT Part 27 (Line 23302)
- Deck 1MT Part 28 (Line 24289)
- Deck 1MT Part 29 (Line 25394)
- Deck 1MT Part 30 (Line 26682)
- Deck 1MT Part 31 (Line 27740)
- Deck 1MT Part 32 (Line 28603)
- Deck 1MT Part 33 (Line 29450)
- Deck 1MT Part 34 (Line 30911)
- Deck 1MT Part 35 (Line 32176)
- Deck 1MT Part 36 (Line 33362)
- Deck 1MT Part 37 (Line 34443)
- Deck 1MT Part 38 (Line 35399)
- Deck 1MT Part 39 (Line 36170)
- Deck 1MT Part 40 (Line 37296)
Source
Seq # *Modification Id* Act ----------------------------+ 21474 M01S05080.274l797 +++| LOC *O 21475 M01S05081.274l797 +++| ERRNG 473+ERLB+5-* IF CODE LONGER THAN ONE PRU 21476 M01S12403.1mt +++| OVERLAY (MULTI-FILE AUXILIARY PROCESSOR.),(/RLA/OVLM),,MFP 21477 M01S12404.1mt +++| SPACE 4,10 21478 M01S12405.1mt +++|** THIS OVERLAY CONTAINS ROUTINES WHICH ARE USED FOR 21479 M01S12406.1mt +++|* MULTI-FILE OPERATIONS. IT OVERLAYS PART OF THE 21480 M01S12407.1mt +++|* READ LABELS OVERLAY AND IS USED IN CONJUCTION WITH 21481 M01S12408.1mt +++|* READ LABELS WHEN MULTI-FILE TAPES ARE BEING PROCESSED. 21482 M01S12409.1mt +++| SPACE 4,10 21483 M01S12410.1mt +++|* ASSEMBLY CONSTANTS 21484 M01S12411.1mt +++| 21485 M01S12412.1mt +++| 21486 M01S12413.1mt +++| BUF EQU /RLA/BUF 21487 M01S12414.1mt +++| DBUF EQU /RLA/DBUF 21488 M01S12415.1mt +++| IBUF EQU /RLA/IBUF 21489 M01S12416.1mt +++| UDTB EQU /RLA/UDTB 21490 M01S12417.1mt +++| CAN EQU /RLA/CAN 21491 M01S12418.1mt +++| CHC EQU /RLA/CHC 21492 M01S12419.1mt +++| CLA EQU /RLA/CLA 21493 M01S12420.1mt +++| C2D EQU /RLA/C2D 21494 M01S12421.1mt +++| DCV EQU /RLA/DCV 21495 M01S12422.1mt +++| ELA EQU /RLA/ELA 21496 M01S12423.1mt +++| FAD EQU /RLA/FAD 21497 M01S12424.1mt +++| FCH EQU /RLA/FCH 21498 M01S01247.282l826 +++| RBE EQU /RLA/RBE 21499 M01S12425.1mt +++| RLAX EQU /RLA/RLAX 21500 M01S12426.1mt +++| THL EQU /RLA/THL 21501 M01S12427.1mt +++| WUD EQU /RLA/WUD 21502 M01S12428.1mt +++| 21503 M01S12429.1mt +++| ENTRY MFP 21504 M01S12430.1mt +++| 21505 M01S12431.1mt +++| PHD SPACE 4,10 21506 M01S12432.1mt +++|** PHD - PROCESS HEADER. 21507 M01S12433.1mt +++|*
| Line S12434 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21508 M02S12434.282l826 ---|* ENTRY (A) = 0 - SECTION 7.
| Line S12435 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21509 M02S12435.282l826 ---|* (A) = 1 - SECTION 10. 21510 M01S01248.282l826 +++|* ENTRY (A) = 0 IF CHECK MULTI-FILE LABELS (*RLCM*) OPERATION. 21511 M01S01249.282l826 +++|* (A) = 1 IF VALIDATE HEADER LABEL (*RLVH*) OPERATION. 21512 M01S12436.1mt +++|* 21513 M01S12437.1mt +++|* CALLS CAN, FCH, THL, WUD. 21514 M01S12438.1mt +++| 21515 M01S12439.1mt +++| 21516 M01S12440.1mt +++| PHD SUBR ENTRY/EXIT 21517 M01S12441.1mt +++| STD T6 SAVE ENTRY 21518 M01S12442.1mt +++| LDC BUF SET UP BUFFER ADDRESSES 21519 M01S12443.1mt +++| STM IBUF 21520 M01S12444.1mt +++| LDD T6
| Line S12445 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21521 M02S12445.282l826 ---| ZJN PHD1 IF HEADER CHECK 21522 M01S01250.282l826 +++| ZJN PHD1 IF CHECK MULTI-FILE LABELS 21523 M01S01251.282l826 +++| ERRNZ /MTX/RLCM-700 21524 M01S12446.1mt +++| LDM CIOE CHECK IF POSMF 21525 M01S12447.1mt +++| LPC 1774 21526 M01S12448.1mt +++| LMC 110 21527 M01S12449.1mt +++| NJN PHD3 IF NOT POSMF 21528 M01S12450.1mt +++| PHD1 LDC UDTB 21529 M01S12451.1mt +++| STM DBUF 21530 M01S12452.1mt +++| RJM THL TRANSFER HEADER LABEL 21531 M01S12453.1mt +++| RJM WUD WRITE UDT 21532 M01S12454.1mt +++| PHD2 UJN PHDX RETURN 21533 M01S12455.1mt +++| 21534 M01S12456.1mt +++| PHD3 LDC PHDA COMPARE LABEL TO UDT 21535 M01S12457.1mt +++| STM DBUF 21536 M01S12458.1mt +++| LDN 21D ZERO OUT BUFFER 21537 M01S12459.1mt +++| STD T7 21538 M01S12460.1mt +++| LDN 50D 21539 M01S12461.1mt +++| RJM FCH COPY CHARACTERS 21540 M01S12462.1mt +++| RJM THL TRANSFER HEADER LABEL 21541 M01S12463.1mt +++| LDN 21D 21542 M01S12464.1mt +++| STD T6 21543 M01S12465.1mt +++| STD T7 21544 M01S12466.1mt +++| LDC UDTB SET INPUT BUFFER 21545 M01S12467.1mt +++| STM IBUF
| Line S12468 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 21546 M02S12468.ns22000 ---| LDN 50D 21547 M01S00312.ns22000 +++| LDN 30D 21548 M01S12469.1mt +++| RJM CAN COMPARE FIELDS 21549 M01S12470.1mt +++| NJN PHD4 IF NO COMPARE 21550 M01S00313.ns22000 +++| LDN 56D 21551 M01S00314.ns22000 +++| STD T6 21552 M01S00315.ns22000 +++| STD T7 21553 M01S00316.ns22000 +++| LDN 15D 21554 M01S00317.ns22000 +++| RJM CAN COMPARE LABEL FIELDS 21555 M01S00318.ns22000 +++| NJN PHD4 IF NO COMPARE 21556 M01S12471.1mt +++| LDC BUF RESET INPUT BUFFER ADDRESS 21557 M01S12472.1mt +++| STM IBUF
| Line S12473 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 21558 M02S12473.ns22000 ---| UJN PHD2 RETURN 21559 M01S00319.ns22000 +++| LJM PHDX RETURN 21560 M01S12474.1mt +++|
| Line S12475 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21561 M02S12475.282l826 ---| PHD4 LDN /MTX/BEI
| Line S12476 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21562 M02S12476.282l826 ---| LJM RET3 RETURN ERROR CODE 21563 M01S01252.282l826 +++| PHD4 LJM RBE RETURN *BEI* ERROR 21564 M01S12477.1mt +++| REL SPACE 4,10 21565 M01S12478.1mt +++|** REL - READ EXTENDED LABELS. 21566 M01S12479.1mt +++|* 21567 M01S12480.1mt +++|* CALLS ELA. 21568 M01S12481.1mt +++| 21569 M01S12482.1mt +++| 21570 M01S12483.1mt +++| REL5 LDD CM SET SEQUENCE NUMBER 21571 M01S12484.1mt +++| SHN 14 21572 M01S12485.1mt +++| ADD CM+1 21573 M01S12486.1mt +++| ADN 4 21574 M01S12487.1mt +++| CRM TMCB,ON 21575 M01S12488.1mt +++| LDM TMCB+2 21576 M01S12489.1mt +++| SCN 77 21577 M01S12490.1mt +++| SHN 6 21578 M01S12491.1mt +++| LMM TMCB+1 21579 M01S12492.1mt +++| SHN 6 21580 M01S12493.1mt +++| STM TMCB+4 21581 M01S12494.1mt +++| SHN 6 21582 M01S12495.1mt +++| STM TMCB+3 21583 M01S12496.1mt +++| 21584 M01S12497.1mt +++| REL SUBR ENTRY/EXIT 21585 M01S12498.1mt +++| LDN 0 21586 M01S12499.1mt +++| STD T6 21587 M01S12500.1mt +++| STD T7 21588 M01S12501.1mt +++| REL1 RJM ELA GET EXTENDED LABEL ADDRESS 21589 M01S12502.1mt +++| ZJN RELX IF NO EXTENDED LABEL BUFFER 21590 M01S12503.1mt +++| CRD CM 21591 M01S12504.1mt +++| STD CM+1 21592 M01S12505.1mt +++| SHN -14 21593 M01S12506.1mt +++| STD CM 21594 M01S12507.1mt +++| LDD CM+4 21595 M01S12508.1mt +++| ZJN REL3 IF END OF BUFFER 21596 M01S12509.1mt +++| LMC 80D 21597 M01S12510.1mt +++| NJN REL4 IF NOT CORRECT LENGTH 21598 M01S12511.1mt +++| LDD CM 21599 M01S12512.1mt +++| SHN 14 21600 M01S12513.1mt +++| ADD CM+1 21601 M01S12514.1mt +++| ADN 1 21602 M01S12515.1mt +++| CRM TMCB,ON 21603 M01S12516.1mt +++| LDM TMCB 21604 M01S12517.1mt +++| LMC 2RHD 21605 M01S12518.1mt +++| NJN REL2 IF NOT *HD* 21606 M01S12519.1mt +++| LDM TMCB+1 21607 M01S12520.1mt +++| LMC 2RR1 21608 M01S12521.1mt +++| NJN REL2 IF NOT *HDR1* 21609 M01S12522.1mt +++| LJM REL5 SET SEQUENCE NUMBER 21610 M01S12523.1mt +++| 21611 M01S12524.1mt +++| REL2 LDN 11 21612 M01S12525.1mt +++| RAD T7 21613 M01S12526.1mt +++| SHN -14 21614 M01S12527.1mt +++| RAD T6 21615 M01S12528.1mt +++| LJM REL1 LOOP FOR NEXT LABEL 21616 M01S12529.1mt +++| 21617 M01S12530.1mt +++| REL3 LDN /MTX/LAM LABEL MISSING 21618 M01S12531.1mt +++| LJM RET3 RETURN ERROR CODE 21619 M01S12532.1mt +++|
| Line S12533 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 21620 M02S12533.v23l617 ---| REL4 LDN /MTX/IXL ILLEGAL CHARACTER COUNT IN HEADER 21621 M01S00361.v23l617 +++| REL4 LDN /MTX/IXL INCORRECT CHARACTER COUNT IN HEADER 21622 M01S12534.1mt +++| LJM RET3 RETURN ERROR CODE 21623 M01S12535.1mt +++| SSN SPACE 4,10 21624 M01S12536.1mt +++|** SSN - SET SEQUENCE NUMBER. 21625 M01S12537.1mt +++|* 21626 M01S12538.1mt +++|* CALLS C2D, DCV. 21627 M01S12539.1mt +++| 21628 M01S12540.1mt +++| 21629 M01S12541.1mt +++| SSN SUBR ENTRY/EXIT 21630 M01S12542.1mt +++| LDC SSNA SET DESTINATION BUFFER 21631 M01S12543.1mt +++| STM DBUF 21632 M01S12544.1mt +++| LDN 32D GET SEQUENCE NUMBER 21633 M01S12545.1mt +++| STD T6 21634 M01S12546.1mt +++| LDN 2 21635 M01S12547.1mt +++| STD T7 21636 M01S12548.1mt +++| LDC 30004 21637 M01S12549.1mt +++| RJM DCV CONVERT DECIMAL FIELD 21638 M01S12550.1mt +++| LDM SSNA+1 SET LAST SEQUENCE NUMBER+1 21639 M01S12551.1mt +++| ADN 1 21640 M01S12552.1mt +++| STD T6 21641 M01S12553.1mt +++| RJM C2D 21642 M01S12554.1mt +++| STM SSNA+3 21643 M01S12555.1mt +++| LDD T6 21644 M01S12556.1mt +++| SHN -6 21645 M01S12557.1mt +++| RJM C2D 21646 M01S12558.1mt +++| LPN 77 21647 M01S12559.1mt +++| STM SSNA+2 21648 M01S12560.1mt +++| LDN 0 CLEAR TAPE MARK COUNT 21649 M01S12561.1mt +++| STD PA 21650 M01S12562.1mt +++| UJN SSNX RETURN 21651 M01S12563.1mt +++| TMC SPACE 4,10 21652 M01S12564.1mt +++|** TMC - TAPE MARK CHECK. 21653 M01S12565.1mt +++|* 21654 M01S12566.1mt +++|* CALLS CHC, CLA, DCV, FAD, REL, WUD. 21655 M01S12567.1mt +++| 21656 M01S12568.1mt +++| 21657 M01S12569.1mt +++| TMC9 AOD PB ADVANCE SECTION 21658 M01S12570.1mt +++| 21659 M01S12571.1mt +++| TMC SUBR ENTRY/EXIT 21660 M01S12572.1mt +++| RJM CLA CHECK LABELS 21661 M01S12573.1mt +++| SBN 1 21662 M01S12574.1mt +++| ZJN TMC2 IF TAPE MARK 21663 M01S12575.1mt +++| LDD PA 21664 M01S12576.1mt +++| ZJN TMC1 IF HDR1 NOT PRECEEDED BY TAPE MARK 21665 M01S12577.1mt +++| LJM RLAX READ NEXT BLOCK 21666 M01S12578.1mt +++| 21667 M01S12579.1mt +++| TMC1 LDN /MTX/LAM LABEL MISSING 21668 M01S12580.1mt +++| LJM RET3 RETURN ERROR CODE 21669 M01S12581.1mt +++| 21670 M01S12582.1mt +++| TMC2 AOD PA INCREMENT TAPE MARK COUNT 21671 M01S12583.1mt +++| SBN 1 21672 M01S12584.1mt +++| ZJN TMC9 IF NOT SECOND TAPE MARK 21673 M01S12585.1mt +++| LDD UP 21674 M01S12586.1mt +++| SHN 21-1 21675 M01S12587.1mt +++| PJN TMC3 IF NOT *POSMF 9999* 21676 M01S12588.1mt +++| LDN 0 CLEAR PARAMETER 21677 M01S12589.1mt +++| STD PA 21678 M01S12590.1mt +++| LDM UDTB+22 SET SECTION NUMBER TO ONE 21679 M01S12591.1mt +++| SCN 77 21680 M01S12592.1mt +++| STM UDTB+22 21681 M01S12593.1mt +++| LDN 1 21682 M01S12594.1mt +++| STM UDTB+23 21683 M01S12595.1mt +++| AOM UDTB+30 INCREMENT SEQUENCE NUMBER 21684 M01S12596.1mt +++| SHN -14 21685 M01S12597.1mt +++| RAM UDTB+27 21686 M01S12598.1mt +++| LDM UDTB+10 SET LABEL NOT EXPIRED 21687 M01S12599.1mt +++| SCN 2 21688 M01S12600.1mt +++| LMN 2 21689 M01S12601.1mt +++| STM UDTB+10 21690 M01S12602.1mt +++| RJM WUD REWRITE UDT 21691 M01S12603.1mt +++| LDN /MTX/BEI SET EOI INDICATOR 21692 M01S12604.1mt +++| LJM RET3 RETURN ERROR CODE 21693 M01S12605.1mt +++| 21694 M01S12606.1mt +++| TMC3 RJM CHC CHANGE CONTROL POINTS 21695 M01S12607.1mt +++| LDM FETO CHECK EXTENDED LABELS 21696 M01S12608.1mt +++| SHN 21-5 21697 M01S12609.1mt +++| PJN TMC4 IF NOT EXTENDED LABELS 21698 M01S12610.1mt +++| RJM REL READ EXTENDED LABELS 21699 M01S12611.1mt +++| UJN TMC5 PROCESS FILE NOT FOUND 21700 M01S12612.1mt +++| 21701 M01S12613.1mt +++| TMC4 RJM FAD SET FET ADDRESS 21702 M01S12614.1mt +++| ADN 12 21703 M01S12615.1mt +++| CRM TMCB,ON 21704 M01S12616.1mt +++| TMC5 LDM TMCB+4 21705 M01S12617.1mt +++| NJN TMC6 IF FILE SEQUENCE NUMBER NOT FOUND 21706 M01S12618.1mt +++| STD LG 21707 M01S12619.1mt +++| UJN TMC7 INDICATE FILE IDENTIFIER NOT FOUND 21708 M01S12620.1mt +++| 21709 M01S12621.1mt +++| TMC6 LDC TMCB SET BUFFER PARAMETERS 21710 M01S12622.1mt +++| STM IBUF 21711 M01S12623.1mt +++| STM DBUF 21712 M01S12624.1mt +++| LDN 8D 21713 M01S12625.1mt +++| STD T6 21714 M01S12626.1mt +++| LDN 12D 21715 M01S12627.1mt +++| STD T7 21716 M01S12628.1mt +++| LDC 30003 21717 M01S12629.1mt +++| RJM DCV CONVERT DECIMAL FIELD 21718 M01S12630.1mt +++| LDM TMCB+6 SET SEQUENCE NUMBER DESIRED 21719 M01S12631.1mt +++| STD LG 21720 M01S12632.1mt +++| LDM SSNA+1 SET HIGHEST EXISTING SEQUENCE NUMBER 21721 M01S12633.1mt +++| TMC7 STD LG+1 21722 M01S12634.1mt +++| LDM FETO CHECK IF EXTENDED LABELS 21723 M01S12635.1mt +++| SHN 21-5 21724 M01S12636.1mt +++| MJN TMC8 IF EXTENDED LABELS 21725 M01S12637.1mt +++| LDM TMCB+3 RETURN LAST SEQUENCE NUMBER FOUND 21726 M01S12638.1mt +++| SCN 77 21727 M01S12639.1mt +++| LMM SSNA+2 21728 M01S12640.1mt +++| STM TMCB+3 21729 M01S12641.1mt +++| LDM SSNA+3 21730 M01S12642.1mt +++| STM TMCB+4 21731 M01S12643.1mt +++| RJM FAD SET FET ADDRESS 21732 M01S12644.1mt +++| ADN 12 RETURN LABEL INFORMATION 21733 M01S12645.1mt +++| CWM TMCB,ON
| Line S12646 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 21734 M02S12646.274l797 ---| TMC8 LDC 200 SET END OF SET FLAG
| Line S12647 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 21735 M02S12647.274l797 ---| RAD HP
| Line S05082 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21736 M02S05082.282l826 ---| TMC8 LDN 0
| Line S05083 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21737 M02S05083.282l826 ---| RJM //CEC CHANGE TO MAGNET CONTROL POINT
| Line S05084 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21738 M02S05084.282l826 ---| RJM UAD ADDRESS OF UNIT DESCRIPTOR TABLE
| Line S05085 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21739 M02S05085.282l826 ---| ADN /MTX/UFLA
| Line S05086 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21740 M02S05086.282l826 ---| CRD CM
| Line S05087 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21741 M02S05087.282l826 ---| LDN 20
| Line S05088 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21742 M02S05088.282l826 ---| RAD CM
| Line S05089 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21743 M02S05089.282l826 ---| RJM UAD
| Line S05090 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21744 M02S05090.282l826 ---| ADN /MTX/UFLA
| Line S05091 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21745 M02S05091.282l826 ---| CWD CM SET END OF SET FLAG 21746 M01S01253.282l826 +++| TMC8 LDD UP SET END OF SET FLAG 21747 M01S01254.282l826 +++| LPC 7677 21748 M01S01255.282l826 +++| LMD HN 21749 M01S01256.282l826 +++| STD UP 21750 M01S12648.1mt +++| LDN /MTX/BEI RETURN END OF SET STATUS 21751 M01S12649.1mt +++| LJM RET3 RETURN FATAL ERROR 21752 M01S12650.1mt +++| SPACE 4,10 21753 M01S12651.1mt +++|** BUFFERS. 21754 M01S12652.1mt +++| 21755 M01S12653.1mt +++| 21756 M01S12654.1mt +++| PHDA EQU * LABEL COMPARE BUFFER 21757 M01S12655.1mt +++| TMCB EQU * SEQUENCE NUMBER HOLD 21758 M01S12656.1mt +++| SSNA EQU TMCB+7*5 SEQUENCE NUMBER 21759 M01S12657.1mt +++| BUFL EQU SSNA+4 END OF BUFERS 21760 M01S12658.1mt +++| 21761 M01S12659.1mt +++|
| Line S12660 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21762 M02S12660.282l826 ---| ERRPL BUFL-/RLA/OVLML OVERFLOW INTO BUFFER 21763 M01S01257.282l826 +++| ERROVL 21764 M01S12661.1mt +++| PRS SPACE 4,10 21765 M01S12662.1mt +++|** PRS - PRESET. 21766 M01S12663.1mt +++|* 21767 M01S12664.1mt +++|* CALLS MCH. 21768 M01S12665.1mt +++| 21769 M01S12666.1mt +++| 21770 M01S12667.1mt +++| PRS LDC PRSA MODIFY CHANNELS 21771 M01S12668.1mt +++| RJM MCH 21772 M01S12669.1mt +++| LJM PRSX RETURN 21773 M01S12670.1mt +++| 21774 M01S12671.1mt +++| 21775 M01S12672.1mt +++| PRSA CHTB CHANNEL TABLE 21776 M01S12673.1mt +++| OVERLAY (OPEN OPERATIONS.) 21777 M01S12674.1mt +++| OPF SPACE 4,10 21778 M01S12675.1mt +++|** OPF - OPEN OPERATION. 21779 M01S12676.1mt +++|* 21780 M01S12677.1mt +++|* ENTRY (PB) .NE. 0 IF CHECK TYPE OF *POSMF*. 21781 M01S12678.1mt +++|* 21782 M01S12679.1mt +++|* CALLS CCH, CCS, CDN, DCV, ELA, FCH, FHR, GCH, OPH, 21783 M01S12680.1mt +++|* SCH, WUD. 21784 M01S12681.1mt +++|* 21785 M01S12682.1mt +++|* MACROS SADT. 21786 M01S12683.1mt +++| 21787 M01S12684.1mt +++| 21788 M01S12685.1mt +++| ENTRY OPF 21789 M01S12686.1mt +++| 21790 M01S12687.1mt +++| SADT .FE,,4,A 21791 M01S12688.1mt +++| OPF LDC * READ FET+4 21792 M01S12689.1mt +++| CRD CN 21793 M01S12690.1mt +++| LDD CN+3 RETURN BLOCK (PRU) SIZE 21794 M01S12691.1mt +++| LPN 77 21795 M01S12692.1mt +++| STD CN+3 21796 M01S12693.1mt +++| SADT .BS 21797 M01S12694.1mt +++| LDC * 21798 M01S12695.1mt +++| SHN 14 21799 M01S12696.1mt +++| STD CN+2 21800 M01S12697.1mt +++| SHN -14 21801 M01S12698.1mt +++| SHN 6 21802 M01S12699.1mt +++| RAD CN+3 21803 M01S12700.1mt +++| SADT .FE,,4,A 21804 M01S12701.1mt +++| LDC * RETURN BLOCK SIZE 21805 M01S12702.1mt +++| CWD CN 21806 M01S12703.1mt +++| LDM UDTB+10 SAVE OPEN STATUS 21807 M01S12704.1mt +++| STD CM 21808 M01S12705.1mt +++| STM FHRB 21809 M01S12706.1mt +++| LPC 6777 SET FILE OPENED STATUS 21810 M01S12707.1mt +++| LMD TH 21811 M01S12708.1mt +++| STM UDTB+10 21812 M01S12709.1mt +++| OPFA LDN 0 FET LENGTH - 5 21813 M01S12710.1mt +++| STD T3 21814 M01S12711.1mt +++| SBN 10 21815 M01S12712.1mt +++| PJN OPF4 IF FET LONG ENOUGH FOR LABEL PARAMETERS 21816 M01S12713.1mt +++| LDM FETO 21817 M01S12714.1mt +++| SHN 21-5 21818 M01S12715.1mt +++| PJN OPF1 IF NOT EXTENDED LABELS 21819 M01S12716.1mt +++| LDD T3 FET LENGTH - 5 21820 M01S12717.1mt +++| SBN 10D-5 21821 M01S12718.1mt +++| PJN OPF4 IF FET AT LEAST 10D WORDS LONG
| Line S12719 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21822 M02S12719.282l826 ---| OPF1 LDD UP
| Line S12720 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21823 M02S12720.282l826 ---| SHN -10
| Line S12721 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21824 M02S12721.282l826 ---| ZJN OPF5 IF UNLABELED
| Line S12722 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21825 M02S12722.282l826 ---| LPN 4
| Line S12723 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21826 M02S12723.282l826 ---| NJN OPF5 IF NON-STANDARD LABEL 21827 M01S01258.282l826 +++| OPF1 LDD LT 21828 M01S01259.282l826 +++| SHN 21-12 21829 M01S01260.282l826 +++| PJN OPF5 IF UNLABELED 21830 M01S01261.282l826 +++| SHN 21-11-21+12 21831 M01S01262.282l826 +++| MJN OPF5 IF NON-STANDARD LABEL 21832 M01S12724.1mt +++| LDD DS 21833 M01S12725.1mt +++| SHN 21-1 21834 M01S12726.1mt +++| PJN OPF2 IF NOT BUSY
| Line S12727 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21835 M02S12727.282l826 ---| LDN /MTX/REQ REQUEUE WITH DELAY 21836 M01S01263.282l826 +++| LDN /MTX/RBS REQUEUE ON UNIT BUSY 21837 M01S12728.1mt +++| LJM RET5 RETURN STATUS TO MAGNET 21838 M01S12729.1mt +++| 21839 M01S12730.1mt +++| OPF2 LPN 1 21840 M01S12731.1mt +++| ZJN OPF5 IF NOT LOAD POINT 21841 M01S12732.1mt +++| OPF3 RJM WUD REWRITE UDT 21842 M01S12733.1mt +++| LJM RET1 RETURN 21843 M01S12734.1mt +++|
| Line S12735 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21844 M02S12735.282l826 ---| OPF4 LDD UP
| Line S12736 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21845 M02S12736.282l826 ---| SHN -10
| Line S12737 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21846 M02S12737.282l826 ---| NJN OPF6 IF LABELED 21847 M01S01264.282l826 +++| OPF4 LDD LT 21848 M01S01265.282l826 +++| SHN 21-12 21849 M01S01266.282l826 +++| MJN OPF6 IF LABELED 21850 M01S12738.1mt +++| OPF5 RJM WUD 21851 M01S12739.1mt +++| LDN /MTX/BEI 21852 M01S12740.1mt +++| LJM RET3 RETURN ERROR CODE 21853 M01S12741.1mt +++|
| Line S12742 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21854 M02S12742.282l826 ---| OPF6 LPN 4
| Line S12743 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21855 M02S12743.282l826 ---| NJN OPF5 IF NON-STANDARD LABEL 21856 M01S01267.282l826 +++| OPF6 SHN 21-11-21+12 21857 M01S01268.282l826 +++| MJN OPF5 IF NON-STANDARD LABEL 21858 M01S12744.1mt +++| LDM CIOE 21859 M01S12745.1mt +++| LPN 4 21860 M01S12746.1mt +++| ZJN OPF8 IF NOT OPEN WRITE 21861 M01S12747.1mt +++| LDD CM 21862 M01S12748.1mt +++| SHN 21-11 21863 M01S12749.1mt +++| PJN OPF7 IF FIRST OPEN SINCE ASSIGNMENT 21864 M01S12750.1mt +++| LJM OPF18 TRANSFER HEADER INFORMATION TO FET 21865 M01S12751.1mt +++| 21866 M01S12752.1mt +++| OPF7 LJM OPF11 PROCESS OPEN WRITE 21867 M01S12753.1mt +++| 21868 M01S12754.1mt +++| OPF8 LDM CIOE CHECK IF *POSMF* 21869 M01S12755.1mt +++| SHN -2 21870 M01S12756.1mt +++| LPC 377 21871 M01S12757.1mt +++| LMN 22 21872 M01S12758.1mt +++| STM OPFB 21873 M01S12759.1mt +++| ZJN OPF9 IF *POSMF* 21874 M01S12760.1mt +++| LDD DS 21875 M01S12761.1mt +++| LPN 4 21876 M01S12762.1mt +++| NJN OPF9 IF LOAD POINT 21877 M01S12763.1mt +++| LJM OPF1 CHECK FOR BUSY 21878 M01S12764.1mt +++| 21879 M01S12765.1mt +++| OPF9 RJM FHR FIND *HDR1* LABEL 21880 M01S12766.1mt +++| LDM FETO 21881 M01S12767.1mt +++| SHN 21-5 21882 M01S12768.1mt +++| PJN OPF10 IF NOT EXTENDED LABELS 21883 M01S12769.1mt +++| LDN 0 21884 M01S12770.1mt +++| STD T6 21885 M01S12771.1mt +++| STD T7 21886 M01S12772.1mt +++| LDN ZERL 21887 M01S12773.1mt +++| CRD CN 21888 M01S12774.1mt +++| LDC 1 21889 M01S12775.1mt +++| OPFB EQU *-1 *POSMF* FLAG 21890 M01S12776.1mt +++| ZJN OPF10 IF *POSMF* 21891 M01S12777.1mt +++| RJM ELA 21892 M01S12778.1mt +++| ZJN OPF10 IF END OF BUFFER 21893 M01S12779.1mt +++| CWD CN PRESET BUFFER 21894 M01S12780.1mt +++| OPF10 RJM OPH OPEN HEADER 21895 M01S12781.1mt +++| RJM WUD REWRITE UDT 21896 M01S12782.1mt +++| LJM RET1 RETURN 21897 M01S12783.1mt +++| 21898 M01S12784.1mt +++| OPF11 RJM FHR FIND HEADER LABEL 21899 M01S12785.1mt +++| OPF12 LDN 0 SET TO VALIDATE NUMERIC CHARACTERS 21900 M01S12786.1mt +++| STM DCVA 21901 M01S12787.1mt +++| LDC BFMS SET BUFFERS 21902 M01S12788.1mt +++| STM IBUF 21903 M01S12789.1mt +++| LDC UDTB 21904 M01S12790.1mt +++| STM DBUF 21905 M01S12791.1mt +++| LDN 5 PROCESS FILE IDENTIFIER 21906 M01S12792.1mt +++| STD T6 21907 M01S12793.1mt +++| LDN 21D 21908 M01S12794.1mt +++| STD T7 21909 M01S12795.1mt +++| LDN 17D COPY CHARACTERS IF SPECIFIED 21910 M01S12796.1mt +++| RJM CCS 21911 M01S12797.1mt +++| OPFC LDN 41D PROCESS SET IDENTIFIER 21912 M01S12798.1mt +++|* UJN OPF13 (*POSMF 9999* AND NOT FIRST FILE) 21913 M01S12799.1mt +++| STD T7 21914 M01S12800.1mt +++| LDN 6 21915 M01S12801.1mt +++| RJM CCS 21916 M01S12802.1mt +++| OPFD LDN 38D PROCESS FILE SECTION NUMBER 21917 M01S12803.1mt +++|* UJN OPF13 (*POSMF 9999*) 21918 M01S12804.1mt +++| STD T7 21919 M01S12805.1mt +++| RJM CDN CONVERT DECIMAL NUMBER 21920 M01S12806.1mt +++| LDN 32D PROCESS FILE SEQUENCE NUMBER 21921 M01S12807.1mt +++| STD T6 21922 M01S12808.1mt +++| LDN 48D 21923 M01S12809.1mt +++| STD T7 21924 M01S12810.1mt +++| RJM CDN CONVERT DECIMAL NUMBER 21925 M01S12811.1mt +++| OPF13 LDN 36D PROCESS GENERATION NUMBER 21926 M01S12812.1mt +++| STD T6 21927 M01S12813.1mt +++| LDN 58D 21928 M01S12814.1mt +++| STD T7 21929 M01S12815.1mt +++| RJM CDN CONVERT DECIMAL NUMBER 21930 M01S12816.1mt +++| LDN 40D PROCESS GENERATION VERSION NUMBER 21931 M01S12817.1mt +++| STD T6 21932 M01S12818.1mt +++| LDN 56D 21933 M01S12819.1mt +++| STD T7 21934 M01S12820.1mt +++| RJM GCH 21935 M01S12821.1mt +++| ZJN OPF14 IF NOT SPECIFIED 21936 M01S12822.1mt +++| SOD T6 21937 M01S12823.1mt +++| LDC 20002 21938 M01S12824.1mt +++| RJM DCV 21939 M01S12825.1mt +++| UJN OPF15 SET CREATION DATE 21940 M01S12826.1mt +++| 21941 M01S12827.1mt +++| OPF14 LDN 2 SET GENERATION VERSION NUMBER TO ZERO 21942 M01S12828.1mt +++| RJM FCH 21943 M01S12829.1mt +++| OPF15 LDN JDAL SET CREATION DATE 21944 M01S12830.1mt +++| CRM BFMS,ON 21945 M01S12831.1mt +++| LDN 6 21946 M01S12832.1mt +++| STD T6 21947 M01S12833.1mt +++| LDN 61D 21948 M01S12834.1mt +++| STD T7 21949 M01S12835.1mt +++| LDN 5 21950 M01S12836.1mt +++| RJM CCH 21951 M01S12837.1mt +++| LDN 48D PROCESS EXPIRATION DATE 21952 M01S12838.1mt +++| STD T6 21953 M01S12839.1mt +++| RJM GCH 21954 M01S12840.1mt +++| NJN OPF16 IF SPECIFIED 21955 M01S12841.1mt +++| LDN 6 DEFAULT TO TODAYS DATE 21956 M01S12842.1mt +++| STD T6 21957 M01S12843.1mt +++| OPF16 LDN 5 21958 M01S12844.1mt +++| RJM CCH 21959 M01S12845.1mt +++| LDN 54D PROCESS ACCESSIBILTIY 21960 M01S12846.1mt +++| STD T6 21961 M01S12847.1mt +++| LDN 47D 21962 M01S12848.1mt +++| STD T7 21963 M01S12849.1mt +++| RJM GCH 21964 M01S12850.1mt +++| NJN OPF17 IF SPECIFIED 21965 M01S12851.1mt +++| LDN 1R 21966 M01S12852.1mt +++| OPF17 RJM SCH 21967 M01S12853.1mt +++| OPF18 LDM OPFB 21968 M01S12854.1mt +++| ZJN OPF19 IF *POSMF 9999* 21969 M01S12855.1mt +++| LDC LJMI SET TO RETURN LABEL BLOCK TO FET 21970 M01S12856.1mt +++| STM OPHA 21971 M01S12857.1mt +++| LDC OPH6 21972 M01S12858.1mt +++| STM OPHA+1 21973 M01S12859.1mt +++| RJM OPH 21974 M01S12860.1mt +++| LJM OPF5 REWRITE UDT AND EXIT WITH *BEI* ERROR 21975 M01S12861.1mt +++| 21976 M01S12862.1mt +++| OPF19 LJM OPF3 REWRITE UDT AND EXIT 21977 M01S12863.1mt +++| OPH SPACE 4,10
| Line S12864 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 21978 M02S12864.ns2786 ---|** OPH - OPFN READ/ALTER. 21979 M01S00013.ns2786 +++|** OPH - OPEN READ/ALTER. 21980 M01S12865.1mt +++|* 21981 M01S12866.1mt +++|* CALLS CAN, CCH, DCV, ELA, GHD, SCH. 21982 M01S12867.1mt +++|* 21983 M01S12868.1mt +++|* MACROS MONITOR, SADT. 21984 M01S12869.1mt +++| 21985 M01S12870.1mt +++| 21986 M01S12871.1mt +++| OPH SUBR ENTRY/EXIT 21987 M01S12872.1mt +++| RJM GHD PROCESS HEADER LABEL 21988 M01S12873.1mt +++| LDN LABW 21989 M01S12874.1mt +++| STD T1 21990 M01S12875.1mt +++| SADT .LF 21991 M01S12876.1mt +++| LDC * 21992 M01S12877.1mt +++| SBD T1 21993 M01S12878.1mt +++| MJN OPH2 IF NOT ROOM FOR LABEL IN BUFFER 21994 M01S12879.1mt +++| LDM FETO 21995 M01S12880.1mt +++| SHN 21-5 21996 M01S12881.1mt +++| MJN OPH2 IF EXTENDED LABELS 21997 M01S12882.1mt +++| SADT .FT 21998 M01S12883.1mt +++| LDC * VALIDATE FIRST 21999 M01S12884.1mt +++| SBN 2 22000 M01S12885.1mt +++| PJN OPH1 IF FIRST .GT. 1 22001 M01S12886.1mt +++| LDN /MTX/BAE BUFFER ARGUMENT ERROR 22002 M01S12887.1mt +++| LJM RET3 RETURN ERROR CODE 22003 M01S12888.1mt +++| 22004 M01S12889.1mt +++| SADT .FT,,,A 22005 M01S12890.1mt +++| OPH1 LDC * TRANSFER HDR1 22006 M01S12891.1mt +++| CWM BUF,T1 22007 M01S12892.1mt +++| OPH2 LDC BFMS SET BUFFERS FOR COMPARISON 22008 M01S12893.1mt +++|* LJM OPH6 (OPEN/WRITE) 22009 M01S12894.1mt +++| OPHA EQU *-2 22010 M01S12895.1mt +++| STM IBUF 22011 M01S12896.1mt +++| LDC BUF 22012 M01S12897.1mt +++| STM DBUF 22013 M01S12898.1mt +++| LDN 5 22014 M01S12899.1mt +++| STD T6 22015 M01S12900.1mt +++| STD T7 22016 M01S12901.1mt +++| LDN 17D COMPARE FILE IDENTIFIER 22017 M01S12902.1mt +++| RJM CAN 22018 M01S12903.1mt +++| NJN OPH3 IF NO COMPARE 22019 M01S12904.1mt +++| LDN 6 COMPARE SET IDENTIFICATION 22020 M01S12905.1mt +++| RJM CAN 22021 M01S12906.1mt +++| NJN OPH3 IF NO COMPARE 22022 M01S12907.1mt +++| LDN 4 COMPARE FILE SECTION NUMBER 22023 M01S12908.1mt +++| RJM CAN 22024 M01S12909.1mt +++| NJN OPH3 IF NO COMPARE 22025 M01S12910.1mt +++| LDN 4 COMPARE FILE SEQUENCE NUMBER 22026 M01S12911.1mt +++| RJM CAN 22027 M01S12912.1mt +++| NJN OPH3 IF NO COMPARE 22028 M01S12913.1mt +++| LDN 4 COMPARE GENERATION NUMBER 22029 M01S12914.1mt +++| RJM CAN 22030 M01S12915.1mt +++| OPH3 NJN OPH4 IF NO COMPARE 22031 M01S12916.1mt +++| LDN 2 COMPARE GENERATION VERSION NUMBER 22032 M01S12917.1mt +++| RJM CAN 22033 M01S12918.1mt +++| NJN OPH4 IF NO COMPARE
| Line S12919 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ncchdr1 |
Seq # *Modification Id* Act ----------------------------+ 22034 M02S12919.ncchdr1 ---| LDN 6 COMPARE CREATION DATE 22035 M01S00001.ncchdr1 +++| AOD T6 SKIP OVER CENTURY CHAR 22036 M01S00002.ncchdr1 +++| AOD T7 22037 M01S00003.ncchdr1 +++| LDN 5 COMPARE CREATION DATE 22038 M01S12920.1mt +++| RJM CAN 22039 M01S12921.1mt +++| NJN OPH4 IF NO COMPARE
| Line S12922 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ncchdr1 |
Seq # *Modification Id* Act ----------------------------+ 22040 M02S12922.ncchdr1 ---| LDN 6 COMPARE EXPIRATION DATE 22041 M01S00004.ncchdr1 +++| AOD T6 SKIP OVER CENTURY CHAR 22042 M01S00005.ncchdr1 +++| AOD T7 22043 M01S00006.ncchdr1 +++| LDN 5 COMPARE EXPIRATION DATE 22044 M01S12923.1mt +++| RJM CAN 22045 M01S12924.1mt +++| NJN OPH4 IF NO COMPARE 22046 M01S12925.1mt +++| LDN 1 COMPARE ACCESSIBILITY 22047 M01S12926.1mt +++| RJM CAN 22048 M01S12927.1mt +++| ZJN OPH6 IF GOOD COMPARE 22049 M01S12928.1mt +++| OPH4 STD EP SET CHARACTER POSITION REJECT OCCURRED 22050 M01S12929.1mt +++| LDM CIOE CHECK IF *POSMF* 22051 M01S12930.1mt +++| SHN -2 22052 M01S12931.1mt +++| LPC 377 22053 M01S12932.1mt +++| LMN 22 22054 M01S12933.1mt +++| NJN OPH5 IF NOT *POSMF* 22055 M01S12934.1mt +++| STD EP CLEAR EP 22056 M01S12935.1mt +++| LJM OPF5 REWRITE UDT 22057 M01S12936.1mt +++| 22058 M01S12937.1mt +++| OPH5 LDN /MTX/LPE SET LABEL PARAMETER ERROR 22059 M01S12938.1mt +++| LJM RET3 RETURN ERROR CODE 22060 M01S12939.1mt +++| 22061 M01S12940.1mt +++| OPH6 LDM FETO 22062 M01S12941.1mt +++| SHN 21-5 22063 M01S12942.1mt +++| PJN OPH8 IF NOT EXTENDED LABELS 22064 M01S12943.1mt +++| LDM OPFB 22065 M01S12944.1mt +++| NJN OPH7 IF NOT *POSMF* 22066 M01S12945.1mt +++| STD T6 22067 M01S12946.1mt +++| STD T7 22068 M01S12947.1mt +++| LDN ZERL PRESET BUFFER 22069 M01S12948.1mt +++| CRD CN 22070 M01S12949.1mt +++| RJM ELA 22071 M01S12950.1mt +++| ZJN OPH7 IF END OF BUFFER 22072 M01S12951.1mt +++| CWD CN 22073 M01S12952.1mt +++| OPH7 LJM OPHX RETURN 22074 M01S12953.1mt +++| 22075 M01S12954.1mt +++|* BUILD FET BLOCK TO RETURN TO USER 22076 M01S12955.1mt +++| 22077 M01S12956.1mt +++| OPH8 LDC BUF SET INPUT BUFFER 22078 M01S12957.1mt +++| STM IBUF 22079 M01S12958.1mt +++| LDC BFMS SET DESTINATION BUFFER 22080 M01S12959.1mt +++| STM DBUF 22081 M01S12960.1mt +++| LDN 5 COPY FILE IDENTIFIER 22082 M01S12961.1mt +++| STD T6 22083 M01S12962.1mt +++| LDN 1 22084 M01S12963.1mt +++| STD T7 22085 M01S12964.1mt +++| LDN 17D 22086 M01S12965.1mt +++| RJM CCH 22087 M01S12966.1mt +++| LDN 32D+1 COPY FILE SEQUENCE NUMBER 22088 M01S12967.1mt +++| STD T6 22089 M01S12968.1mt +++| LDN 3 22090 M01S12969.1mt +++| RJM CCH 22091 M01S12970.1mt +++| LDN 40D COPY GENERATION VERSION NUMBER 22092 M01S12971.1mt +++| STD T6 22093 M01S12972.1mt +++| LDN 2 22094 M01S12973.1mt +++| RJM CCH 22095 M01S12974.1mt +++| 22096 M01S12975.1mt +++|* RECALCULATE EXPIRATION DATE. 22097 M01S12976.1mt +++| 22098 M01S12977.1mt +++| LDN CN SET DESTINATION BUFFER 22099 M01S12978.1mt +++| STM DBUF 22100 M01S12979.1mt +++| LDN 49D CONVERT YEAR OF EXPIRATION 22101 M01S12980.1mt +++| STD T6 22102 M01S12981.1mt +++| LDN 1 22103 M01S12982.1mt +++| STD T7 22104 M01S12983.1mt +++| LDC 20002 22105 M01S12984.1mt +++| RJM DCV 22106 M01S12985.1mt +++| LDN 43D CONVERT YEAR OF CREATION 22107 M01S12986.1mt +++| STD T6 22108 M01S12987.1mt +++| LDC 20002 22109 M01S12988.1mt +++| RJM DCV 22110 M01S12989.1mt +++| LDN 51D CONVERT DAY OF EXPIRATION 22111 M01S12990.1mt +++| STD T6 22112 M01S12991.1mt +++| LDC 20003 22113 M01S12992.1mt +++| RJM DCV 22114 M01S12993.1mt +++| LDN 45D CONVERT DAY OF CREATION 22115 M01S12994.1mt +++| STD T6 22116 M01S12995.1mt +++| LDC 20003 22117 M01S12996.1mt +++| RJM DCV 22118 M01S00014.ns2786 +++| LDN CN 22119 M01S00015.ns2786 +++| RJM SCB SET CENTURY BIAS FOR YEAR OF EXPIRATION 22120 M01S00016.ns2786 +++| LDN CN+1 22121 M01S00017.ns2786 +++| RJM SCB SET CENTURY BIAS FOR YEAR OF CREATION
| Line S12997 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22122 M02S12997.ns2786 ---| LDN ZERL PRESET RESULT 22123 M01S00018.ns2786 +++| LDC 99D 22124 M01S00019.ns2786 +++| LMD CN EXPIRATION YEAR 22125 M01S00020.ns2786 +++| NJN OPH8.1 IF YEAR NOT 99 22126 M01S00021.ns2786 +++| LDC 999D 22127 M01S00022.ns2786 +++| LMD CN+2 EXPIRATION DAY 22128 M01S00023.ns2786 +++| ZJN OPH11 IF INFINITE EXPIRATION DATE 22129 M01S00024.ns2786 +++| OPH8.1 LDN ZERL PRESET RESULT 22130 M01S12998.1mt +++| CRD CM 22131 M01S12999.1mt +++| LDD CN 22132 M01S13000.1mt +++| SBD CN+1 22133 M01S13001.1mt +++| ZJN OPH10 IF SAME YEAR 22134 M01S13002.1mt +++| MJN OPH13 IF LABEL EXPIRED
| Line S13003 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22135 M02S13003.ns2786 ---| STD T1
| Line S13004 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22136 M02S13004.ns2786 ---| OPH9 LDC 365D INCREMENT EXPIRATION DATE 22137 M01S00025.ns2786 +++| OPH9 LDD CN+1 22138 M01S00026.ns2786 +++| LPN 3 22139 M01S00027.ns2786 +++| ZJN OPH9.1 IF LEAP YEAR 22140 M01S00028.ns2786 +++| LCN 1 22141 M01S00029.ns2786 +++| OPH9.1 ADC 366D INCREMENT DAYS 22142 M01S13005.1mt +++| RAD CN+2 22143 M01S13006.1mt +++| SHN -14 22144 M01S13007.1mt +++| NJN OPH11 IF OVERFLOW
| Line S13008 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22145 M02S13008.ns2786 ---| SOD T1 22146 M01S00030.ns2786 +++| AOD CN+1 22147 M01S00031.ns2786 +++| SBD CN 22148 M01S13009.1mt +++| NJN OPH9 IF MORE YEARS 22149 M01S13010.1mt +++| OPH10 LDD CN+2 RETENTION DAYS 22150 M01S13011.1mt +++| SBD CN+3 22151 M01S13012.1mt +++| MJN OPH13 IF LABEL EXPIRED 22152 M01S13013.1mt +++| STD CM+4 22153 M01S13014.1mt +++| ADC -1000D 22154 M01S13015.1mt +++| MJN OPH12 IF LESS THAN 1000 DAYS 22155 M01S13016.1mt +++| OPH11 LDC 999D 22156 M01S13017.1mt +++| STD CM+4 22157 M01S13018.1mt +++| OPH12 LDD CM+4 22158 M01S13019.1mt +++| NJN OPH14 IF NOT EXPIRED 22159 M01S13020.1mt +++| OPH13 LDC 2R00 SET RETENTION CYCLE TO ZERO 22160 M01S13021.1mt +++| STD CM+3 22161 M01S13022.1mt +++| STD CM+4 22162 M01S13023.1mt +++| UJN OPH15 STORE CHARACTERS IN BUFFER 22163 M01S13024.1mt +++| 22164 M01S13025.1mt +++| OPH14 LDD MA 22165 M01S13026.1mt +++| CWD CM 22166 M01S13027.1mt +++| MONITOR RDCM CONVERT DATA 22167 M01S13028.1mt +++| LDD MA 22168 M01S13029.1mt +++| CRD CM 22169 M01S13030.1mt +++| OPH15 LDC BFMS SET DESTINATION BUFFER 22170 M01S13031.1mt +++| STM DBUF 22171 M01S13032.1mt +++| LDN 23D 22172 M01S13033.1mt +++| STD T7 22173 M01S13034.1mt +++| LDD CM+3 STORE CHARACTERS IN BUFFER 22174 M01S13035.1mt +++| RJM SCH 22175 M01S13036.1mt +++| LDD CM+4 22176 M01S13037.1mt +++| SHN -6 22177 M01S13038.1mt +++| RJM SCH 22178 M01S13039.1mt +++| LDD CM+4 22179 M01S13040.1mt +++| RJM SCH 22180 M01S13041.1mt +++| LDN 43D COPY CREATION DATE 22181 M01S13042.1mt +++| STD T6 22182 M01S13043.1mt +++| LDN 5 22183 M01S13044.1mt +++| RJM CCH 22184 M01S13045.1mt +++| LDN 22D COPY SET IDENTIFIER 22185 M01S13046.1mt +++| STD T6 22186 M01S13047.1mt +++| LDN 6 22187 M01S13048.1mt +++| RJM CCH 22188 M01S13049.1mt +++| LDN 28D FILE SECTION NUMBER 22189 M01S13050.1mt +++| STD T6 22190 M01S13051.1mt +++| LDN 4 22191 M01S13052.1mt +++| RJM CCH 22192 M01S13053.1mt +++| LDN 4 22193 M01S13054.1mt +++| STD T1 22194 M01S13055.1mt +++| SADT .FE,,,A 22195 M01S13056.1mt +++| LDC * 22196 M01S13057.1mt +++| ADN 11 22197 M01S13058.1mt +++| CWM BFMS,T1 22198 M01S13059.1mt +++| LJM OPHX RETURN 22199 M01S13060.1mt +++| TITLE SUBROUTINES. 22200 M01S13061.1mt +++| ELA SPACE 4,10 22201 M01S13062.1mt +++|** ELA - EXTENDED LABELS ADDRESS PROCESSING. 22202 M01S13063.1mt +++|* 22203 M01S13064.1mt +++|* ENTRY (T6 - T7) = POSITION TO START AT IN BUFFER. 22204 M01S13065.1mt +++|* 22205 M01S13066.1mt +++|* EXIT (A) = ABSOLUTE ADDRESS. 22206 M01S13067.1mt +++|* (A) = 0, END OF LABEL BUFFER. 22207 M01S13068.1mt +++|* 22208 M01S13069.1mt +++|* MACROS SADT. 22209 M01S13070.1mt +++| 22210 M01S13071.1mt +++| 22211 M01S13072.1mt +++| ELA2 LDN 0 INDICATE END OF BUFFER 22212 M01S13073.1mt +++| 22213 M01S13074.1mt +++| ELA SUBR ENTRY/EXIT 22214 M01S13075.1mt +++| SADT .FE,,,A 22215 M01S13076.1mt +++| LDC * GET FET ADDRESS 22216 M01S13077.1mt +++| ADN 11 22217 M01S13078.1mt +++| CRD CM 22218 M01S13079.1mt +++| LDD CM+3 22219 M01S13080.1mt +++| SHN 14 22220 M01S13081.1mt +++| STD CM+1 22221 M01S13082.1mt +++| SHN -14 22222 M01S13083.1mt +++| STD CM+3 22223 M01S13084.1mt +++| SHN 14 22224 M01S13085.1mt +++| LMD CM+4 22225 M01S13086.1mt +++| SBN 2 22226 M01S13087.1mt +++| MJN ELA2 IF NO LABEL BUFFER 22227 M01S13088.1mt +++| LDD CM+2 22228 M01S13089.1mt +++| SHN 6 22229 M01S13090.1mt +++| LMD CM+1 22230 M01S13091.1mt +++| STD CM+2 22231 M01S13092.1mt +++| SHN -14 22232 M01S13093.1mt +++| STD CM+1 22233 M01S13094.1mt +++| LDD T6 22234 M01S13095.1mt +++| SBD CM+1 22235 M01S13096.1mt +++| SHN 14 22236 M01S13097.1mt +++| ADD T7 22237 M01S13098.1mt +++| SBD CM+2 22238 M01S13099.1mt +++| ADN 11 ALLOW FOR LABEL 22239 M01S13100.1mt +++| PJN ELA2 IF END OF LABEL BUFFER 22240 M01S13101.1mt +++| LDD CM+1 CHECK IF BUFFER WITHIN FL 22241 M01S13102.1mt +++| ADD CM+3 22242 M01S13103.1mt +++| SHN 14 22243 M01S13104.1mt +++| ADD CM+2 22244 M01S13105.1mt +++| ADD CM+4 22245 M01S13106.1mt +++| SHN -6 22246 M01S13107.1mt +++| SBD FL 22247 M01S13108.1mt +++| MJN ELA1 IF BUFFER WITHIN FL 22248 M01S13109.1mt +++| LDN /MTX/BAE BUFFER ARGUMENT ERROR 22249 M01S13110.1mt +++| LJM RET3 RETURN ERROR CODE 22250 M01S13111.1mt +++| 22251 M01S13112.1mt +++| ELA1 LDD CM+3 CALCULATE LABEL ADDRESS 22252 M01S13113.1mt +++| ADD T6 22253 M01S13114.1mt +++| SHN 6 22254 M01S13115.1mt +++| ADD RA 22255 M01S13116.1mt +++| SHN 6 22256 M01S13117.1mt +++| ADD CM+4 22257 M01S13118.1mt +++| ADD T7 22258 M01S13119.1mt +++| LJM ELAX RETURN 22259 M01S13120.1mt +++| FHR SPACE 4,10 22260 M01S13121.1mt +++|** FHR - FIND *HDR1* LABEL. 22261 M01S13122.1mt +++|* 22262 M01S13123.1mt +++|* EXIT (BFMS - BFMS+47) = *HDR1* LABEL IF FOUND, OTHERWISE 0. 22263 M01S13124.1mt +++|* 22264 M01S13125.1mt +++|* CALLS CCH, CPO, DCV, ELA, FCH, GCD, GCH. 22265 M01S13126.1mt +++|* 22266 M01S13127.1mt +++|* MACROS MONITOR, SADT. 22267 M01S13128.1mt +++| 22268 M01S13129.1mt +++| 22269 M01S13130.1mt +++| FHR SUBR ENTRY/EXIT
| Line S13131 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 22270 M02S13131.274l797 ---| LDN LABL CLEAR BUFFER 22271 M01S05092.274l797 +++| LDN CLBL CLEAR BUFFER 22272 M01S13132.1mt +++| STD T1 22273 M01S13133.1mt +++| FHR1 LDN 0 22274 M01S13134.1mt +++| STM BFMS,T1 22275 M01S13135.1mt +++| SOD T1 22276 M01S13136.1mt +++| PJN FHR1 IF MORE BUFFER TO CLEAR 22277 M01S13137.1mt +++| LDM FETO 22278 M01S13138.1mt +++| SHN 21-5 22279 M01S13139.1mt +++| PJN FHR2 IF NOT EXTENDED LABELS 22280 M01S13140.1mt +++| LJM FHR14 SEARCH FOR *HDR1* IN USER BUFFER 22281 M01S13141.1mt +++| 22282 M01S13142.1mt +++| FHR2 LDN 4 READ FET LABEL PARAMETERS 22283 M01S13143.1mt +++| STD T1 22284 M01S13144.1mt +++| SADT .FE,,,A 22285 M01S13145.1mt +++| LDC * FET ADDRESS 22286 M01S13146.1mt +++| ADN 11 22287 M01S13147.1mt +++| CRM BFMS-4*5,T1 22288 M01S13148.1mt +++| LDC BFMS-4*5 SET INPUT BUFFER ADDRESS 22289 M01S13149.1mt +++| STM IBUF 22290 M01S13150.1mt +++| LDC BFMS SET DESTINATION BUFFER ADDRESS 22291 M01S13151.1mt +++| STM DBUF 22292 M01S13152.1mt +++| LDN 1 MOVE FILE IDENTIFIER 22293 M01S13153.1mt +++| STD T6 22294 M01S13154.1mt +++| LDN 5 22295 M01S13155.1mt +++| STD T7 22296 M01S13156.1mt +++| LDN 17D 22297 M01S13157.1mt +++| RJM CCH 22298 M01S13158.1mt +++| LDN 32D 22299 M01S13159.1mt +++| STD T7 22300 M01S13160.1mt +++| LDM BFMS-4*5+10 22301 M01S13161.1mt +++| LPN 77 22302 M01S13162.1mt +++| SHN 14 22303 M01S13163.1mt +++| ADM BFMS-4*5+11 22304 M01S13164.1mt +++| ZJN FHR4 IF NO FILE SEQUENCE NUMBER 22305 M01S13165.1mt +++| LMC 3R999 22306 M01S13166.1mt +++| ZJN FHR3 IF *999* MUST EXPAND TO *9999* 22307 M01S13167.1mt +++| LDC 1L0&1L9 22308 M01S13168.1mt +++| FHR3 LMC 1L9+1 22309 M01S13169.1mt +++| RJM FCH 22310 M01S13170.1mt +++| LDN 3 COPY FILE SEQUENCE NUMBER 22311 M01S13171.1mt +++| RJM CCH 22312 M01S13172.1mt +++| FHR4 LDN 21D COPY GENERATION VERSION NUMBER 22313 M01S13173.1mt +++| STD T6 22314 M01S13174.1mt +++| LDN 40D 22315 M01S13175.1mt +++| STD T7 22316 M01S13176.1mt +++| LDN 2 22317 M01S13177.1mt +++| RJM CCH 22318 M01S13178.1mt +++| LDN 26D MOVE CREATION DATE 22319 M01S13179.1mt +++| STD T6 22320 M01S13180.1mt +++| RJM GCH 22321 M01S13181.1mt +++| STM FHRA 22322 M01S13182.1mt +++| ZJN FHR5 IF CREATION DATE NOT SPECIFIED 22323 M01S13183.1mt +++| SOD T6
| Line S13184 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22324 M02S13184.ns2786 ---| LDC 1L +1
| Line S13185 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22325 M02S13185.ns2786 ---| RJM FCH 22326 M01S00032.ns2786 +++| RJM SCF SET CENTURY FILL CHARACTER 22327 M01S13186.1mt +++| LDN 5 22328 M01S13187.1mt +++| RJM CCH 22329 M01S13188.1mt +++| FHR5 LDN 23D 22330 M01S13189.1mt +++| STD T6 22331 M01S13190.1mt +++| RJM GCH 22332 M01S13191.1mt +++| NJN FHR6 IF RETENTION CYCLE 22333 M01S13192.1mt +++| LJM FHR12 COPY SET ID 22334 M01S13193.1mt +++|
| Line S13194 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22335 M02S13194.ns2786 ---| FHR6 LDN 48D PRESET EXPIRATION DATE
| Line S13195 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22336 M02S13195.ns2786 ---| STD T7
| Line S13196 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22337 M02S13196.ns2786 ---| LDC 1L +1
| Line S13197 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22338 M02S13197.ns2786 ---| RJM FCH
| Line S13198 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22339 M02S13198.ns2786 ---| LDN 26D 22340 M01S00033.ns2786 +++| FHR6 LDN 26D 22341 M01S13199.1mt +++| STD T6 22342 M01S13200.1mt +++| LDM CIOE 22343 M01S13201.1mt +++| LPN 4 22344 M01S13202.1mt +++| NJN FHR7 IF OPEN WRITE 22345 M01S13203.1mt +++| RJM CPO CHECK IF *POSMF 9999* 22346 M01S13204.1mt +++| ZJN FHR7 IF *POSMF 9999* 22347 M01S13205.1mt +++| LDC 0 FIRST CHARACTER OF CREATION DATE 22348 M01S13206.1mt +++| FHRA EQU *-1 22349 M01S13207.1mt +++| NJN FHR8 IF CREATION DATE SPECIFIED 22350 M01S13208.1mt +++| LDC UDTB DEFAULT TO CREATION DATE ON TAPE 22351 M01S13209.1mt +++| STM IBUF 22352 M01S13210.1mt +++| LDN 61D 22353 M01S13211.1mt +++| STD T6 22354 M01S13212.1mt +++| UJN FHR8 COPY EXPIRATION DATE 22355 M01S13213.1mt +++| 22356 M01S13214.1mt +++| FHR7 LDN 0 SET TO VALIDATE NUMERIC CHARACTERS 22357 M01S13215.1mt +++| STM DCVA 22358 M01S13216.1mt +++| LDN JDAL DEFAULT TO TODAYS DATE 22359 M01S13217.1mt +++| CRD CM 22360 M01S13218.1mt +++| LDN CM SET INPUT BUFFER 22361 M01S13219.1mt +++| STM IBUF 22362 M01S13220.1mt +++| LDN 6 22363 M01S13221.1mt +++| STD T6
| Line S13222 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22364 M02S13222.ns2786 ---| FHR8 LDN 49D SET DESTINATION BUFFER ADDRESS 22365 M01S00034.ns2786 +++| FHR8 LDN 48D SET DESTINATION BUFFER ADDRESS 22366 M01S13223.1mt +++| STD T7 22367 M01S00035.ns2786 +++| RJM SCF SET CENTURY FOR EXPIRATION DATE 22368 M01S13224.1mt +++| LDN 5 COPY EXPIRATION DATE 22369 M01S13225.1mt +++| RJM CCH 22370 M01S13226.1mt +++| LDC BFMS-4*5 RESET INPUT BUFFER 22371 M01S13227.1mt +++| STM IBUF 22372 M01S13228.1mt +++| LDN CN CHANGE DESTINATION BUFFER 22373 M01S13229.1mt +++| STM DBUF 22374 M01S13230.1mt +++| LDN 1 CONVERT RETENTION CYCLE 22375 M01S13231.1mt +++| STD T7 22376 M01S13232.1mt +++| LDN 23D 22377 M01S13233.1mt +++| STD T6 22378 M01S13234.1mt +++| LDC 20003 22379 M01S13235.1mt +++| RJM DCV 22380 M01S13236.1mt +++| LDC BFMS CONVERT DAYS FROM JULIAN DATE 22381 M01S13237.1mt +++| STM IBUF 22382 M01S13238.1mt +++| LDN 51D 22383 M01S13239.1mt +++| STD T6
| Line S13240 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22384 M02S13240.ns2786 ---| LDN 3
| Line S13241 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22385 M02S13241.ns2786 ---| STD T7 22386 M01S13242.1mt +++| LDC 20003 22387 M01S13243.1mt +++| RJM DCV 22388 M01S13244.1mt +++| LDD CN 22389 M01S13245.1mt +++| LMC 999D 22390 M01S13246.1mt +++| NJN FHR9 IF NOT INDEFINITE 22391 M01S13247.1mt +++| LDC 2R99 SET TO YEAR 99 22392 M01S13248.1mt +++| STM BFMS+30
| Line S13249 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22393 M02S13249.ns2786 ---| LJM FHR12 COPY SET ID 22394 M01S00036.ns2786 +++| LJM FHR11 COPY 999 TO DAYS OF EXPIRATION DATE 22395 M01S13250.1mt +++| 22396 M01S13251.1mt +++| FHR9 LDD CN+1 GET TOTAL NUMBER OF DAYS 22397 M01S13252.1mt +++| RAD CN
| Line S13253 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22398 M02S13253.ns2786 ---| STD T3
| Line S13254 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22399 M02S13254.ns2786 ---| FHR10 LDD T3 LEAP YEAR IS IGNORED
| Line S13255 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22400 M02S13255.ns2786 ---| ADC -365D
| Line S13256 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22401 M02S13256.ns2786 ---| MJN FHR11 IF .LT 1 YEAR
| Line S13257 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22402 M02S13257.ns2786 ---| STD T3 22403 M01S00037.ns2786 +++| LDN 49D CONVERT CREATION YEAR 22404 M01S00038.ns2786 +++| STD T6 22405 M01S00039.ns2786 +++| LDC 20002 22406 M01S00040.ns2786 +++| RJM DCV 22407 M01S00041.ns2786 +++| LDD CN+2 22408 M01S00042.ns2786 +++| LPN 3 22409 M01S00043.ns2786 +++| ZJN FHR10 IF LEAP YEAR 22410 M01S00044.ns2786 +++| LDN 1 22411 M01S00045.ns2786 +++| FHR10 ADC -366D 22412 M01S00046.ns2786 +++| ADD CN 22413 M01S00047.ns2786 +++| MJN FHR11 IF WITHIN THE CURRENT YEAR 22414 M01S00048.ns2786 +++| ZJN FHR11 IF LAST DAY OF CURRENT YEAR 22415 M01S00049.ns2786 +++| STD CN 22416 M01S00050.ns2786 +++| AOD CN+2 22417 M01S13258.1mt +++| AOM BFMS+30 22418 M01S13259.1mt +++| LPN 77 22419 M01S13260.1mt +++| LMN 1R9+1 22420 M01S13261.1mt +++| NJN FHR10 IF NO ROLLOVER 22421 M01S13262.1mt +++| LCN 1R9+1-1R0 22422 M01S13263.1mt +++| RAM BFMS+30 22423 M01S13264.1mt +++| UJN FHR10 CONTINUE RETENTION CYCLE CONVERSION 22424 M01S13265.1mt +++| 22425 M01S13266.1mt +++| FHR11 LDN ZERL CONVERT REMAINING DAYS 22426 M01S13267.1mt +++| CRD CM
| Line S13268 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22427 M02S13268.ns2786 ---| LDD T3 22428 M01S00051.ns2786 +++| LDD CN 22429 M01S13269.1mt +++| STD CM+4 22430 M01S13270.1mt +++| LDD MA 22431 M01S13271.1mt +++| CWD CM 22432 M01S13272.1mt +++| MONITOR RDCM 22433 M01S13273.1mt +++| LDD MA 22434 M01S13274.1mt +++| CRD CM 22435 M01S13275.1mt +++| LDD CM+4 22436 M01S13276.1mt +++| SCN 77 22437 M01S13277.1mt +++| SHN 6 22438 M01S13278.1mt +++| LMD CM+3 22439 M01S13279.1mt +++| SHN 6 22440 M01S13280.1mt +++| STM BFMS+31 22441 M01S13281.1mt +++| LDD CM+4 22442 M01S13282.1mt +++| LPN 77 22443 M01S13283.1mt +++| SHN 6 22444 M01S13284.1mt +++| STD CM+4 22445 M01S13285.1mt +++| LDM BFMS+32 22446 M01S13286.1mt +++| LPN 77 22447 M01S13287.1mt +++| LMD CM+4 22448 M01S13288.1mt +++| STM BFMS+32 22449 M01S13289.1mt +++| LDC BFMS-4*5 RESET INPUT BUFFER ADDRESS 22450 M01S13290.1mt +++| STM IBUF 22451 M01S13291.1mt +++| FHR12 LDC BFMS RESTORE DESTINATION BUFFER ADDRESS 22452 M01S13292.1mt +++| STM DBUF 22453 M01S13293.1mt +++| LDN 31D MOVE SET IDENTIFICATION 22454 M01S13294.1mt +++| STD T6 22455 M01S13295.1mt +++| LDN 22D 22456 M01S13296.1mt +++| STD T7 22457 M01S13297.1mt +++| LDN 6 22458 M01S13298.1mt +++| RJM CCH 22459 M01S13299.1mt +++| LDN 4 MOVE FILE SECTION NUMBER 22460 M01S13300.1mt +++| RJM CCH 22461 M01S13301.1mt +++| LJM FHR20 CHECK FOR *POSMF* 22462 M01S13302.1mt +++|
| Line S13303 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 22463 M02S13303.v23l617 ---| FHR13 LDN /MTX/IXL ILLEGAL CHARACTER COUNT IN HEADER 22464 M01S00362.v23l617 +++| FHR13 LDN /MTX/IXL INCORRECT CHARACTER COUNT IN HEADER 22465 M01S13304.1mt +++| LJM RET3 RETURN ERROR CODE 22466 M01S13305.1mt +++| 22467 M01S13306.1mt +++|* GET LABEL FROM USER BUFFER. 22468 M01S13307.1mt +++| 22469 M01S13308.1mt +++| FHR14 LDN 0 SEARCH FOR *HDR1* 22470 M01S13309.1mt +++| STD T6 22471 M01S13310.1mt +++| STD T7 22472 M01S13311.1mt +++| FHR15 RJM ELA 22473 M01S13312.1mt +++| ZJN FHR17 IF END OF LABEL BUFFER 22474 M01S13313.1mt +++| CRD CN 22475 M01S13314.1mt +++| ADN 1 22476 M01S13315.1mt +++| CRD CM 22477 M01S13316.1mt +++| LDD CN+4 22478 M01S13317.1mt +++| ZJN FHR17 IF END OF LABELS IN BUFFER 22479 M01S13318.1mt +++| LMC 80D 22480 M01S13319.1mt +++| NJN FHR13 IF NOT CORRECT LENGTH 22481 M01S13320.1mt +++| LDD CM 22482 M01S13321.1mt +++| LMC 2RHD 22483 M01S13322.1mt +++| NJN FHR16 IF NOT *HD* 22484 M01S13323.1mt +++| LDD CM+1 22485 M01S13324.1mt +++| LMC 2RR1 22486 M01S13325.1mt +++| ZJN FHR19 IF *R1* 22487 M01S13326.1mt +++| FHR16 LDN 11 ADVANCE LABEL BUFFER POINTER 22488 M01S13327.1mt +++| RAD T7 22489 M01S13328.1mt +++| SHN -14 22490 M01S13329.1mt +++| RAD T6 22491 M01S13330.1mt +++| UJN FHR15 CONTINUE SEARCH 22492 M01S13331.1mt +++| 22493 M01S13332.1mt +++| FHR17 LDM OPFB 22494 M01S13333.1mt +++| NJN FHR18 IF NOT *POSMF* 22495 M01S13334.1mt +++| LDN /MTX/BAE *BUFFER ARGUMENT ERROR.* 22496 M01S13335.1mt +++| LJM RET3 RETURN ERROR CODE 22497 M01S13336.1mt +++| 22498 M01S13337.1mt +++| FHR18 LJM FHRX RETURN 22499 M01S13338.1mt +++| 22500 M01S13339.1mt +++| FHR19 LDN 10 READ UP LABEL 22501 M01S13340.1mt +++| STD T5 22502 M01S13341.1mt +++| RJM ELA SKIP HEADER WORD 22503 M01S13342.1mt +++| ADN 1 22504 M01S13343.1mt +++| CRM BFMS,T5 22505 M01S13344.1mt +++| FHR20 LDM OPFB 22506 M01S13345.1mt +++| NJN FHR18 IF NOT *POSMF* 22507 M01S13346.1mt +++| LDD PB 22508 M01S13347.1mt +++| NJN FHR22 IF CHECK TYPE OF *POSMF* 22509 M01S13348.1mt +++| LDD UP 22510 M01S13349.1mt +++| SHN 21-1 22511 M01S13350.1mt +++| PJN FHR18 IF NOT *POSMF 9999* 22512 M01S13351.1mt +++| LDD UP CLEAR *POSMF 9999* IN PROGRESS 22513 M01S13352.1mt +++| SCN 2 22514 M01S13353.1mt +++| STD UP 22515 M01S13354.1mt +++| LDM FHRC 22516 M01S13355.1mt +++| STM OPFD 22517 M01S13356.1mt +++| LDM UDTB+10 SET LABEL EXPIRED 22518 M01S13357.1mt +++| SCN 2 22519 M01S13358.1mt +++| LMN 2 22520 M01S13359.1mt +++| STM UDTB+10 22521 M01S13360.1mt +++| LDM UDTB+27 CHECK FILE NUMBER 22522 M01S13361.1mt +++| LPN 77 22523 M01S13362.1mt +++| SHN 14 22524 M01S13363.1mt +++| ADM UDTB+30 22525 M01S13364.1mt +++| LMN 1 22526 M01S13365.1mt +++| ZJN FHR21 IF POSITIONED AT FIRST FILE 22527 M01S13366.1mt +++| LDM FHRD SKIP TRANSFER OF SETID 22528 M01S13367.1mt +++| STM OPFC 22529 M01S13368.1mt +++| FHR21 LJM OPF12 RETURN TO TRANSFER FET TO UDT 22530 M01S13369.1mt +++| 22531 M01S13370.1mt +++|* CHECK IF *POSMF 9999* AND IF REWIND IS REQUIRED. IF 22532 M01S13371.1mt +++|* IT IS A *POSMF 9999*, THE *BEI* ERROR CODE IS RETURNED 22533 M01S13372.1mt +++|* TO *MAGNET*. IF NOT *POSMF 9999*, NO ERROR CODE 22534 M01S13373.1mt +++|* IS RETURNED AND REWIND STATUS IS INDICATED BY 22535 M01S13374.1mt +++|* RETURNING (PA) = 0 IF REWIND IS NEEDED AND (PA) .NE. 0 22536 M01S13375.1mt +++|* IF REWIND IS NOT NEEDED. 22537 M01S13376.1mt +++| 22538 M01S13377.1mt +++| FHR22 LDN 0 SET EXIT CONDITION 22539 M01S13378.1mt +++| STD PA 22540 M01S13379.1mt +++| LDD UP PRESET TYPE OF *POSMF* 22541 M01S13380.1mt +++| SCN 2 22542 M01S13381.1mt +++| STD UP 22543 M01S13382.1mt +++| RJM CPO CHECK IF *9999* 22544 M01S13383.1mt +++| NJN FHR23 IF NOT *9999* 22545 M01S13384.1mt +++| LDN 2 SET *POSMF 9999* IN PROGRESS 22546 M01S13385.1mt +++| RAD UP 22547 M01S13386.1mt +++| LDN /MTX/BEI RETURN *POSMF 9999* INDICATION 22548 M01S13387.1mt +++| LJM RET3 RETURN ERROR CODE 22549 M01S13388.1mt +++|
| Line S13389 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 22550 M02S13389.282l826 ---| FHR23 LDD HP CHECK WRITE STATUS
| Line S13390 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 22551 M02S13390.282l826 ---| SHN 21-13 22552 M01S01269.282l826 +++| FHR23 LDD UP CHECK WRITE STATUS 22553 M01S01270.282l826 +++| SHN 21-4 22554 M01S13391.1mt +++| MJN FHR25 IF LAST OPERATION WRITE - REWIND 22555 M01S13392.1mt +++| LDC BFMS SET BUFFER ADDRESSES 22556 M01S13393.1mt +++| STM DBUF 22557 M01S13394.1mt +++| STM IBUF 22558 M01S13395.1mt +++| LDN 32D GET FIRST CHARACTER OF SEQUENCE NUMBER 22559 M01S13396.1mt +++| STD T7 22560 M01S13397.1mt +++| RJM GCD GET CHARACTER 22561 M01S13398.1mt +++| NJN FHR26 IF SEQUENCE NUMBER SPECIFIED 22562 M01S13399.1mt +++| LDN 5 22563 M01S13400.1mt +++| STD T7 22564 M01S13401.1mt +++| RJM GCD GET CHARACTER 22565 M01S13402.1mt +++| NJN FHR25 IF FI SPECIFIED - REWIND REQUIRED 22566 M01S13403.1mt +++| LDC * SET TO LABEL FLAGS IN UDT WORD *UVSN* 22567 M01S13404.1mt +++| FHRB EQU *-1 22568 M01S13405.1mt +++| SHN 21-11 22569 M01S13406.1mt +++| PJN FHR25 IF FIRST OPEN SINCE ASSIGNMENT 22570 M01S13407.1mt +++| FHR24 LDN 1 SET NO REWIND REQUIRED 22571 M01S13408.1mt +++| STD PA 22572 M01S13409.1mt +++| FHR25 LJM RET1 RETURN 22573 M01S13410.1mt +++| 22574 M01S13411.1mt +++| FHR26 LDN 32D CONVERT FET SEQUENCE NUMBER TO BINARY 22575 M01S13412.1mt +++| STD T6 22576 M01S13413.1mt +++| LDN 2 22577 M01S13414.1mt +++| STD T7 22578 M01S13415.1mt +++| LDC 30004 CONVERT DECIMAL FIELD 22579 M01S13416.1mt +++| RJM DCV 22580 M01S13417.1mt +++| LDM UDTB+27 CLEAR ACCESSIBILITY CHARACTER 22581 M01S13418.1mt +++| LPN 77 22582 M01S13419.1mt +++| STM UDTB+27 22583 M01S13420.1mt +++| LDM BFMS COMPARE UDT TO FET SEQUENCE NUMBER 22584 M01S13421.1mt +++| LPN 77 22585 M01S13422.1mt +++| SBM UDTB+27 22586 M01S13423.1mt +++| MJN FHR25 IF REWIND REQUIRED 22587 M01S13424.1mt +++| NJN FHR24 IF NO REWIND REQUIRED 22588 M01S13425.1mt +++| LDM BFMS+1 22589 M01S13426.1mt +++| SBM UDTB+30 22590 M01S13427.1mt +++| MJN FHR25 IF REWIND REQUIRED 22591 M01S13428.1mt +++| ZJN FHR25 IF REWIND REQUIRED 22592 M01S13429.1mt +++| UJN FHR24 SET NO REWIND REQUIRED 22593 M01S13430.1mt +++| 22594 M01S13431.1mt +++| 22595 M01S13432.1mt +++| FHRC BSS 0 22596 M01S13433.1mt +++| LOC OPFD 22597 M01S13434.1mt +++| UJN OPF13 SKIP FILE SEQUENCE NUMBER CONVERSION 22598 M01S13435.1mt +++| LOC *O 22599 M01S13436.1mt +++| 22600 M01S13437.1mt +++| FHRD BSS 0 22601 M01S13438.1mt +++| LOC OPFC 22602 M01S13439.1mt +++| UJN OPF13 SKIP TRANSFER OF SETID 22603 M01S13440.1mt +++| LOC *O 22604 M01S13441.1mt +++| GHD SPACE 4,10 22605 M01S13442.1mt +++|** GHD - GENERATE *HDR1* LABEL FROM UDT. 22606 M01S13443.1mt +++|* 22607 M01S13444.1mt +++|* EXIT (BUF - BUF+50) = *HDR1* LABEL FROM CHARACTER POSITION 22608 M01S13445.1mt +++|* 5 TO 55. 22609 M01S13446.1mt +++|* 22610 M01S13447.1mt +++|* CALLS CBD, CCH, SCH. 22611 M01S13448.1mt +++| 22612 M01S13449.1mt +++| 22613 M01S13450.1mt +++| GHD SUBR ENTRY/EXIT
| Line S13451 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 22614 M02S13451.274l797 ---| LDN LABL CLEAR BUFFER 22615 M01S05093.274l797 +++| LDN CLBL CLEAR BUFFER 22616 M01S13452.1mt +++| STD T1 22617 M01S13453.1mt +++| GHD1 LDN 0 22618 M01S13454.1mt +++| STM BUF,T1 22619 M01S13455.1mt +++| SOD T1 22620 M01S13456.1mt +++| PJN GHD1 IF MORE BUFFER TO CLEAR 22621 M01S13457.1mt +++| LDC UDTB SET INPUT BUFFER 22622 M01S13458.1mt +++| STM IBUF 22623 M01S13459.1mt +++| LDC BUF SET DESTINATION BUFFER 22624 M01S13460.1mt +++| STM DBUF 22625 M01S13461.1mt +++| LDC 2RHD SET *HDR1* IN BUFFER 22626 M01S13462.1mt +++| STM BUF 22627 M01S13463.1mt +++| LDC 2RR1 22628 M01S13464.1mt +++| STM BUF+1 22629 M01S13465.1mt +++| LDN 21D MOVE FILE IDENTIFIER 22630 M01S13466.1mt +++| STD T6 22631 M01S13467.1mt +++| LDN 5 22632 M01S13468.1mt +++| STD T7 22633 M01S13469.1mt +++| LDN 17D 22634 M01S13470.1mt +++| RJM CCH 22635 M01S13471.1mt +++| LDN 41D MOVE SET IDENTIFIER 22636 M01S13472.1mt +++| STD T6 22637 M01S13473.1mt +++| LDN 6 22638 M01S13474.1mt +++| RJM CCH 22639 M01S13475.1mt +++| LDN 38D CONVERT FILE SECTION NUMBER 22640 M01S13476.1mt +++| STD T6 22641 M01S13477.1mt +++| LDC 30004 22642 M01S13478.1mt +++| RJM CBD 22643 M01S13479.1mt +++| LDN 48D CONVERT FILE SEQUENCE NUMBER 22644 M01S13480.1mt +++| STD T6 22645 M01S13481.1mt +++| LDC 30004 22646 M01S13482.1mt +++| RJM CBD 22647 M01S13483.1mt +++| LDN 58D CONVERT GENERATION NUMBER 22648 M01S13484.1mt +++| STD T6 22649 M01S13485.1mt +++| LDC 30004 22650 M01S13486.1mt +++| RJM CBD 22651 M01S13487.1mt +++| LDN 56D CONVERT GENERATION VERSION NUMBER 22652 M01S13488.1mt +++| STD T6 22653 M01S13489.1mt +++| LDC 20002 22654 M01S13490.1mt +++| RJM CBD
| Line S13491 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22655 M02S13491.ns2786 ---| LDN 61D PROCESS DATE 22656 M01S00052.ns2786 +++| LDN 61D PROCESS CREATION DATE 22657 M01S13492.1mt +++| STD T6
| Line S13493 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22658 M02S13493.ns2786 ---| LDN 1R SPACE FILL
| Line S13494 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22659 M02S13494.ns2786 ---| RJM SCH 22660 M01S00053.ns2786 +++| RJM SCF SET CREATION DATE CENTURY CHARACTER 22661 M01S00054.ns2786 +++| LDN 5 COPY CREATION DATE 22662 M01S00055.ns2786 +++| RJM CCH 22663 M01S00056.ns2786 +++| RJM SCF SET EXPIRATION DATE CENTURY CHARACTER 22664 M01S13495.1mt +++| LDN 5 COPY CREATION DATE
| Line S13496 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22665 M02S13496.ns2786 ---| RJM CCH
| Line S13497 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22666 M02S13497.ns2786 ---| LDN 1R SPACE FILL
| Line S13498 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22667 M02S13498.ns2786 ---| RJM SCH
| Line S13499 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22668 M02S13499.ns2786 ---| LDN 5 COPY EXPIRATION DATE 22669 M01S13500.1mt +++| RJM CCH 22670 M01S13501.1mt +++| LDN 47D COPY ACCESSIBILITY 22671 M01S13502.1mt +++| STD T6 22672 M01S13503.1mt +++| LDN 1 22673 M01S13504.1mt +++| RJM CCH 22674 M01S13505.1mt +++| LJM GHDX RETURN 22675 M01S13506.1mt +++| TITLE CHARACTER PROCESSING SUBROUTINES. 22676 M01S13507.1mt +++| SPACE 4,10 22677 M01S13508.1mt +++|** DIRECT CELL USAGE IN FOLLOWING ROUTINES. 22678 M01S13509.1mt +++|* 22679 M01S13510.1mt +++|* ENTRY (T5) = NUMBER OF CHARACTERS. 22680 M01S13511.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 22681 M01S13512.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 22682 M01S13513.1mt +++|* 22683 M01S13514.1mt +++|* ALL CHARACTER POSITIONS ARE REFERENCED STARTING WITH *1*. 22684 M01S13515.1mt +++|* THUS, THE CHARACTER POSITION VALUES BEING USED TO ACCESS 22685 M01S13516.1mt +++|* *BUF* MAY BE REFERENCED DIRECTLY TO THE LABEL STANDARD. 22686 M01S13517.1mt +++| 22687 M01S13518.1mt +++| 22688 M01S13519.1mt +++| IBUF CON UDTB FWA OF FETCH BUFFER 22689 M01S13520.1mt +++| DBUF CON BUF FWA OF DESTINATION BUFFER 22690 M01S13521.1mt +++| CAN SPACE 4,15 22691 M01S13522.1mt +++|** CAN - COMPARE ALPHANUMERIC FIELDS. 22692 M01S13523.1mt +++|* COMPARE WILL BE GOOD IF ALL OF INPUT CHARACTER STRING IS 22693 M01S13524.1mt +++|* BINARY ZERO. 22694 M01S13525.1mt +++|* 22695 M01S13526.1mt +++|* ENTRY (A) = NUMBER OF CHARACTERS TO COMPARE. 22696 M01S13527.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 22697 M01S13528.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 22698 M01S13529.1mt +++|* 22699 M01S13530.1mt +++|* EXIT (A) = 0, GOOD COMPARE. 22700 M01S13531.1mt +++|* (A) .NE. 0, (A) = CHARACTER POSITION AT START. 22701 M01S13532.1mt +++|* (T6), (T7) = UPDATED. 22702 M01S13533.1mt +++|* 22703 M01S13534.1mt +++|* USES T3, T4. 22704 M01S13535.1mt +++|* 22705 M01S13536.1mt +++|* CALLS GCD, GCH. 22706 M01S13537.1mt +++| 22707 M01S13538.1mt +++| 22708 M01S13539.1mt +++| CAN5 SOD T5 UPDATE TO SKIP REMAINDER OF FIELD 22709 M01S13540.1mt +++| RAD T6 22710 M01S13541.1mt +++| LDD T5 22711 M01S13542.1mt +++| RAD T7 22712 M01S13543.1mt +++| LDD T3 22713 M01S13544.1mt +++| 22714 M01S13545.1mt +++| CAN SUBR ENTRY/EXIT 22715 M01S13546.1mt +++| STD T5 22716 M01S13547.1mt +++| STD T4 22717 M01S13548.1mt +++| LDD T6 SAVE STARTING POSITION 22718 M01S13549.1mt +++| STD T3 22719 M01S13550.1mt +++| CAN1 RJM GCH GET CHARACTER 22720 M01S13551.1mt +++| NJN CAN2 IF SPECIFIED 22721 M01S13552.1mt +++| SOD T4 22722 M01S13553.1mt +++| NJN CAN1 IF MORE CHARACTERS TO CHECK 22723 M01S13554.1mt +++| LDD T5 22724 M01S13555.1mt +++| RAD T7 22725 M01S13556.1mt +++| LDN 0 GOOD COMPARE 22726 M01S13557.1mt +++| UJN CANX RETURN 22727 M01S13558.1mt +++| 22728 M01S13559.1mt +++| CAN2 LDD T3 RESET CHARACTER POSITION 22729 M01S13560.1mt +++| STD T6 22730 M01S13561.1mt +++| CAN3 RJM GCH GET CHARACTER 22731 M01S13562.1mt +++| STD T4 22732 M01S13563.1mt +++| NJN CAN4 IF NOT 00 CHARACTER 22733 M01S13564.1mt +++| LDN 1R 22734 M01S13565.1mt +++| STD T4 22735 M01S13566.1mt +++| CAN4 RJM GCD GET CHARACTER FROM DESTINATION BUFFER 22736 M01S13567.1mt +++| LMD T4 22737 M01S13568.1mt +++| NJN CAN5 IF NO COMPARE 22738 M01S13569.1mt +++| SOD T5 22739 M01S13570.1mt +++| NJN CAN3 IF MORE CHARACTERS TO COMPARE 22740 M01S13571.1mt +++| UJN CANX RETURN 22741 M01S13572.1mt +++| CBD SPACE 4,15 22742 M01S13573.1mt +++|** CBD - CONVERT BINARY FIELD TO DECIMAL. 22743 M01S13574.1mt +++|* 22744 M01S13575.1mt +++|* ENTRY (A, 21 - 14) = NUMBER OF CHARACTERS IN BINARY FIELD 22745 M01S13576.1mt +++|* MAXIMUM OF 4. 22746 M01S13577.1mt +++|* (A, 13 - 0) = NUMBER OF DISPLAY CODE CHARACTERS TO 22747 M01S13578.1mt +++|* STORE WITH A MAXIMUM OF 6. 22748 M01S13579.1mt +++|* 22749 M01S13580.1mt +++|* EXIT RESULT STORED IN DESTINATION BUFFER. 22750 M01S13581.1mt +++|* 22751 M01S13582.1mt +++|* CALLS GCH, SCH. 22752 M01S13583.1mt +++|* 22753 M01S13584.1mt +++|* MACROS MONITOR. 22754 M01S13585.1mt +++| 22755 M01S13586.1mt +++| 22756 M01S13587.1mt +++| CBD SUBR ENTRY/EXIT 22757 M01S13588.1mt +++| STD T5 22758 M01S13589.1mt +++| SHN -14 22759 M01S13590.1mt +++| STD T4 22760 M01S13591.1mt +++| LDN ZERL PRESET FIELD TO CONVERT 22761 M01S13592.1mt +++| CRD CM 22762 M01S13593.1mt +++| CBD1 LDD CM+3 MOVE UP FIELD 22763 M01S13594.1mt +++| SHN 6 22764 M01S13595.1mt +++| STD CM+3 22765 M01S13596.1mt +++| LDD CM+4 22766 M01S13597.1mt +++| SHN 6 22767 M01S13598.1mt +++| STD CM+4 22768 M01S13599.1mt +++| SHN -14 22769 M01S13600.1mt +++| RAD CM+3 22770 M01S13601.1mt +++| RJM GCH GET CHARACTER 22771 M01S13602.1mt +++| RAD CM+4 22772 M01S13603.1mt +++| SOD T4 22773 M01S13604.1mt +++| NJN CBD1 IF MORE FIELD POSITIONS 22774 M01S13605.1mt +++| LDD MA CONVERT DATA 22775 M01S13606.1mt +++| CWD CM 22776 M01S13607.1mt +++| MONITOR RDCM 22777 M01S13608.1mt +++| LDD MA 22778 M01S13609.1mt +++| CRD CM 22779 M01S13610.1mt +++| LDD CM+3 REMOVE *.* FROM DATA 22780 M01S13611.1mt +++| LPN 77 22781 M01S13612.1mt +++| SHN 14 22782 M01S13613.1mt +++| LMD CM+2 22783 M01S13614.1mt +++| SHN 6 22784 M01S13615.1mt +++| STD CM+3 22785 M01S13616.1mt +++| LMD CM+3 22786 M01S13617.1mt +++| LMD CM+1 22787 M01S13618.1mt +++| SHN 6 22788 M01S13619.1mt +++| STD CM+2 22789 M01S13620.1mt +++| LDN CM+1 REMOVE SPACES 22790 M01S13621.1mt +++| STD T1 22791 M01S13622.1mt +++| CBD2 AOD T1 ADVANCE TO NEXT BYTE 22792 M01S13623.1mt +++| LMN CM+5 22793 M01S13624.1mt +++| ZJN CBD5 IF ALL SPACES 22794 M01S13625.1mt +++| LDI T1 22795 M01S13626.1mt +++| ZJN CBD3 IF ZERO 22796 M01S13627.1mt +++| LMC 2R 22797 M01S13628.1mt +++| NJN CBD4 IF NOT * * 22798 M01S13629.1mt +++| CBD3 LDC 2R00 22799 M01S13630.1mt +++| STI T1 22800 M01S13631.1mt +++| UJN CBD2 LOOP 22801 M01S13632.1mt +++| 22802 M01S13633.1mt +++| CBD4 SHN -6 22803 M01S13634.1mt +++| NJN CBD5 IF NOT * * 22804 M01S13635.1mt +++| LCN -1R0+1R 22805 M01S13636.1mt +++| SHN 6 22806 M01S13637.1mt +++| RAI T1 22807 M01S13638.1mt +++| CBD5 LDM CBDA,T5 SET TO ENTER STORE LOOP 22808 M01S13639.1mt +++| STD T1 22809 M01S13640.1mt +++| LJM 0,T1 STORE CHARACTERS 22810 M01S13641.1mt +++| 22811 M01S13642.1mt +++| CBD6 LDD CM+2 STORE SIXTH CHARACTER 22812 M01S13643.1mt +++| SHN -6 22813 M01S13644.1mt +++| RJM SCH 22814 M01S13645.1mt +++| CBD7 LDD CM+2 STORE FIFTH CHARACTER 22815 M01S13646.1mt +++| RJM SCH 22816 M01S13647.1mt +++| CBD8 LDD CM+3 STORE FOURTH CHARACTER 22817 M01S13648.1mt +++| SHN -6 22818 M01S13649.1mt +++| RJM SCH 22819 M01S13650.1mt +++| CBD9 LDD CM+3 STORE THIRD CHARACTER 22820 M01S13651.1mt +++| RJM SCH 22821 M01S13652.1mt +++| CBD10 LDD CM+4 STORE SECOND CHARACTER 22822 M01S13653.1mt +++| SHN -6 22823 M01S13654.1mt +++| RJM SCH 22824 M01S13655.1mt +++| CBD11 LDD CM+4 STORE FIRST CHARACTER 22825 M01S13656.1mt +++| RJM SCH 22826 M01S13657.1mt +++| LJM CBDX RETURN 22827 M01S13658.1mt +++| 22828 M01S13659.1mt +++| CBDA BSS 0 INDEXED BY NUMBER OF CHARACTERS TO STORE 22829 M01S13660.1mt +++| LOC 0 22830 M01S13661.1mt +++| CON CBDX 22831 M01S13662.1mt +++| CON CBD11 22832 M01S13663.1mt +++| CON CBD10 22833 M01S13664.1mt +++| CON CBD9 22834 M01S13665.1mt +++| CON CBD8 22835 M01S13666.1mt +++| CON CBD7 22836 M01S13667.1mt +++| CON CBD6 22837 M01S13668.1mt +++| LOC *O 22838 M01S13669.1mt +++| CCH SPACE 4,15 22839 M01S13670.1mt +++|** CCH - COPY INPUT BUFFER TO DESTINATION BUFFER. 22840 M01S13671.1mt +++|* 22841 M01S13672.1mt +++|* ENTRY (A) = NUMBER OF CHARACTERS TO MOVE. 22842 M01S13673.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 22843 M01S13674.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 22844 M01S13675.1mt +++|* 22845 M01S13676.1mt +++|* EXIT (T6), (T7) = INCREMENTED. 22846 M01S13677.1mt +++|* 22847 M01S13678.1mt +++|* USES T5. 22848 M01S13679.1mt +++|* 22849 M01S13680.1mt +++|* CALLS GCH, SCH. 22850 M01S13681.1mt +++| 22851 M01S13682.1mt +++| 22852 M01S13683.1mt +++| CCH SUBR ENTRY/EXIT 22853 M01S13684.1mt +++| STD T5 22854 M01S13685.1mt +++| CCH1 RJM GCH GET LABEL CHARACTER 22855 M01S13686.1mt +++| RJM SCH STORE CHARACTER IN USER BUFFER 22856 M01S13687.1mt +++| SOD T5 22857 M01S13688.1mt +++| NJN CCH1 IF MORE CHARACTERS TO MOVE 22858 M01S13689.1mt +++| UJN CCHX RETURN 22859 M01S13690.1mt +++| CCS SPACE 4,15 22860 M01S13691.1mt +++|** CCS - COPY CHARACTERS IF SPECIFIED. 22861 M01S13692.1mt +++|* CHECKS FIELD FOR ALL ZEROES. IF ALL ZEROES, FIELD IS SPACE 22862 M01S13693.1mt +++|* FILLED. OTHERWISE FIELD IS COPIED FROM INPUT BUFFER TO 22863 M01S13694.1mt +++|* DESTINATION BUFFER. 22864 M01S13695.1mt +++|* 22865 M01S13696.1mt +++|* ENTRY (A) = NUMBER OF CHARACTERS TO PROCESS. 22866 M01S13697.1mt +++|* (T6) = INPUT BUFFER POSITION. 22867 M01S13698.1mt +++|* (T7) = DESTINATION BUFFER POSITION. 22868 M01S13699.1mt +++|* 22869 M01S13700.1mt +++|* EXIT (T6), (T7) = INCREMENTED. 22870 M01S13701.1mt +++|* 22871 M01S13702.1mt +++|* USES T5. 22872 M01S13703.1mt +++|* 22873 M01S13704.1mt +++|* CALLS FCH, GCH, SCH. 22874 M01S13705.1mt +++| 22875 M01S13706.1mt +++| 22876 M01S13707.1mt +++| CCS2 LDD MA COPY FIELD 22877 M01S13708.1mt +++| CRD T3 22878 M01S13709.1mt +++| LDD T5 22879 M01S13710.1mt +++| CCS3 RJM GCH GET LABEL CHARACTER 22880 M01S13711.1mt +++| NJN CCS4 IF NOT 00 CHARACTER 22881 M01S13712.1mt +++| LDN 1R 22882 M01S13713.1mt +++| CCS4 RJM SCH STORE CHARACTER IN DESTINATION BUFFER 22883 M01S13714.1mt +++| SOD T5 22884 M01S13715.1mt +++| NJN CCS3 IF MORE CHARACTERS TO MOVE 22885 M01S13716.1mt +++| 22886 M01S13717.1mt +++| CCS SUBR ENTRY/EXIT 22887 M01S13718.1mt +++| STD T5 22888 M01S13719.1mt +++| LDD MA SAVE DIRECT CELLS 22889 M01S13720.1mt +++| CWD T3 22890 M01S13721.1mt +++| CCS1 RJM GCH GET CHARACTER 22891 M01S13722.1mt +++| NJN CCS2 IF FIELD SPECIFIED 22892 M01S13723.1mt +++| SOD T5 22893 M01S13724.1mt +++| NJN CCS1 IF MORE CHARACTERS TO CHECK 22894 M01S13725.1mt +++| LDD MA SET DEFAULTS 22895 M01S13726.1mt +++| CRD T3 22896 M01S13727.1mt +++| LDD T5 22897 M01S13728.1mt +++| RAD T6 22898 M01S13729.1mt +++| LDD T5 22899 M01S13730.1mt +++| ADC 1L 22900 M01S13731.1mt +++| RJM FCH 22901 M01S13732.1mt +++| UJN CCSX RETURN 22902 M01S13733.1mt +++| CDN SPACE 4,10 22903 M01S13734.1mt +++|** CDN - CONVERT DECIMAL FIELD (4 CHARACTERS). 22904 M01S13735.1mt +++|* IF FIELD IS NOT DEFINED, A DEFAULT OF 1 IS SET. 22905 M01S13736.1mt +++|* 22906 M01S13737.1mt +++|* ENTRY (T6) = CHARACTER POSITION IN INPUT BUFFER. 22907 M01S13738.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 22908 M01S13739.1mt +++|* 22909 M01S13740.1mt +++|* CALLS DCV, GCH, SCH. 22910 M01S13741.1mt +++| 22911 M01S13742.1mt +++| 22912 M01S13743.1mt +++| CDN1 LDN 0 SET DEFAULT 22913 M01S13744.1mt +++| RJM SCH 22914 M01S13745.1mt +++| LDN 0 22915 M01S13746.1mt +++| RJM SCH 22916 M01S13747.1mt +++| LDN 1 22917 M01S13748.1mt +++| RJM SCH 22918 M01S13749.1mt +++| 22919 M01S13750.1mt +++| CDN SUBR ENTRY/EXIT 22920 M01S13751.1mt +++| RJM GCH GET CHARACTER 22921 M01S13752.1mt +++| ZJN CDN1 IF FIELD NOT DEFINED 22922 M01S13753.1mt +++| SOD T6 22923 M01S13754.1mt +++| LDC 30004 22924 M01S13755.1mt +++| RJM DCV 22925 M01S13756.1mt +++| UJN CDNX RETURN 22926 M01S13757.1mt +++| CPO SPACE 4,10 22927 M01S13758.1mt +++|** CPO - CHECK IF *POSMF 9999*.
| Line S13759 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 22928 M02S13759.274l797 ---|* MUST BE CALLED AFTER LABEL IS TRANSFERED TO BFMS. 22929 M01S05094.274l797 +++|* MUST BE CALLED AFTER LABEL IS TRANSFERRED TO BFMS. 22930 M01S13760.1mt +++|* 22931 M01S13761.1mt +++|* EXIT (A) = 0 IF *POSMF 9999* 22932 M01S13762.1mt +++|* (DBUF) = BFMS. 22933 M01S13763.1mt +++|* (IBUF) = CPOA. 22934 M01S13764.1mt +++|* 22935 M01S13765.1mt +++|* CALLS CAN. 22936 M01S13766.1mt +++|* 22937 M01S13767.1mt +++|* USES T6, T7. 22938 M01S13768.1mt +++| 22939 M01S13769.1mt +++| 22940 M01S13770.1mt +++| CPO SUBR ENTRY/EXIT 22941 M01S13771.1mt +++| LDM OPFB 22942 M01S13772.1mt +++| NJN CPOX IF NOT *POSMF* 22943 M01S13773.1mt +++| LDC CPOA CHECK SEQUENCE NUMBER 22944 M01S13774.1mt +++| STM IBUF 22945 M01S13775.1mt +++| LDC BFMS 22946 M01S13776.1mt +++| STM DBUF 22947 M01S13777.1mt +++| LDN 1 22948 M01S13778.1mt +++| STD T6 22949 M01S13779.1mt +++| LDN 32D 22950 M01S13780.1mt +++| STD T7 22951 M01S13781.1mt +++| LDN 4 22952 M01S13782.1mt +++| RJM CAN COMPARE FIELDS 22953 M01S13783.1mt +++| UJN CPOX RETURN 22954 M01S13784.1mt +++| 22955 M01S13785.1mt +++| 22956 M01S13786.1mt +++| CPOA DATA H*9999* 22957 M01S13787.1mt +++| DCV SPACE 4,15 22958 M01S13788.1mt +++|** DCV - CONVERT DECIMAL FIELD TO BINARY. 22959 M01S13789.1mt +++|* 22960 M01S13790.1mt +++|* ENTRY (A, 13 - 12) = NUMBER OF CHARACTER POSITIONS IN RESULT. 22961 M01S13791.1mt +++|* (A, 11 - 0) = NUMBER OF CHARACTERS IN LABEL FIELD. 22962 M01S13792.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 22963 M01S13793.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 22964 M01S13794.1mt +++|* 22965 M01S13795.1mt +++|* EXIT (T6), (T7) = INCREMENTED. 22966 M01S13796.1mt +++|* 22967 M01S13797.1mt +++|* USES T1 - T5. 22968 M01S13798.1mt +++|* 22969 M01S13799.1mt +++|* CALLS GCH, SCH. 22970 M01S13800.1mt +++| 22971 M01S13801.1mt +++|
| Line S13802 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 22972 M02S13802.v23l617 ---| DCV7 LDN /MTX/IXL ILLEGAL LABEL FIELD 22973 M01S00363.v23l617 +++| DCV7 LDN /MTX/IXL INCORRECT LABEL FIELD 22974 M01S13803.1mt +++| LJM RET3 RETURN ERROR CODE 22975 M01S13804.1mt +++| 22976 M01S13805.1mt +++| DCV SUBR ENTRY/EXIT 22977 M01S13806.1mt +++| STD T5 NUMBER OF CHARACTERS IN LABEL 22978 M01S13807.1mt +++| SHN -14 22979 M01S13808.1mt +++| STD T4 NUMBER OF CHARACTER POSITIONS IN UDT 22980 M01S13809.1mt +++| LDN 0 PRESET RESULT 22981 M01S13810.1mt +++| STD T2 22982 M01S13811.1mt +++| STD T3 22983 M01S13812.1mt +++| DCV1 RJM GCH GET CHARACTER 22984 M01S13813.1mt +++| STD T1 22985 M01S13814.1mt +++| SBN 1R0 22986 M01S13815.1mt +++| RAD T3 22987 M01S13816.1mt +++| SHN -14 22988 M01S13817.1mt +++| RAD T2 22989 M01S13818.1mt +++| DCVA UJN DCV2 DO NOT VALIDATE CHARACTER 22990 M01S13819.1mt +++|* PSN (OPEN WRITE OR POSMF 9999) 22991 M01S13820.1mt +++| 22992 M01S13821.1mt +++| LDD T1 22993 M01S13822.1mt +++| SBN 1R0 22994 M01S13823.1mt +++| MJN DCV7 IF NOT NUMERIC CHARACTER 22995 M01S13824.1mt +++| SBN 1R9-1R0+1 22996 M01S13825.1mt +++| PJN DCV7 IF NOT NUMERIC CHARACTER 22997 M01S13826.1mt +++| DCV2 SOD T5 DECREMENT NUMBER OF CHARACTERS TO PROCESS 22998 M01S13827.1mt +++| ZJN DCV3 IF ALL DIGITS PROCESSED 22999 M01S13828.1mt +++| LDD T2 10D * ACCUMALATED RESULT 23000 M01S13829.1mt +++| SHN 14 23001 M01S13830.1mt +++| ADD T3 23002 M01S13831.1mt +++| SHN 2+6 * 4 23003 M01S13832.1mt +++| ADD T2 * 5 23004 M01S13833.1mt +++| SHN 14 23005 M01S13834.1mt +++| ADD T3 23006 M01S13835.1mt +++| SHN 1 * 10D 23007 M01S13836.1mt +++| STD T3 23008 M01S13837.1mt +++| SHN -14 23009 M01S13838.1mt +++| STD T2 23010 M01S13839.1mt +++| UJN DCV1 LOOP 23011 M01S13840.1mt +++| 23012 M01S13841.1mt +++| DCV3 LDD T4 23013 M01S13842.1mt +++| LMN 3 23014 M01S13843.1mt +++| NJN DCV4 IF NOT 3 CHARACTER POSITIONS 23015 M01S13844.1mt +++| LDD T2 STORE VALUE 23016 M01S13845.1mt +++| RJM SCH STORE CHARACTER 23017 M01S13846.1mt +++| UJN DCV5 STORE REMAINING CHARACTERS 23018 M01S13847.1mt +++| DCV4 LMN 2&3 23019 M01S13848.1mt +++| NJN DCV6 IF NOT 2 CHARACTER POSIITONS 23020 M01S13849.1mt +++| DCV5 LDD T3 STORE VALUE 23021 M01S13850.1mt +++| SHN -6 23022 M01S13851.1mt +++| RJM SCH STORE CHARACTER 23023 M01S13852.1mt +++| DCV6 LDD T3 23024 M01S13853.1mt +++| LPN 77 23025 M01S13854.1mt +++| RJM SCH STORE CHARACTER 23026 M01S13855.1mt +++| LJM DCVX RETURN 23027 M01S13856.1mt +++| FCH SPACE 4,15 23028 M01S13857.1mt +++|** FCH - FILL DESTINATION BUFFER WITH CHARACTER(S). 23029 M01S13858.1mt +++|* 23030 M01S13859.1mt +++|* ENTRY (A, 17- 12) = CHARACTER TO FILL WITH. 23031 M01S13860.1mt +++|* (A, 11 - 0) = NUMBER OF CHARACTERS TO FILL. 23032 M01S13861.1mt +++|* (T7) = CHARACTER POINTER IN DESTINATION BUFFER. 23033 M01S13862.1mt +++|* 23034 M01S13863.1mt +++|* EXIT (T7) = INCREMENTED. 23035 M01S13864.1mt +++|* 23036 M01S13865.1mt +++|* USES T4. 23037 M01S13866.1mt +++|* 23038 M01S13867.1mt +++|* CALLS SCH. 23039 M01S13868.1mt +++| 23040 M01S13869.1mt +++| 23041 M01S13870.1mt +++| FCH SUBR ENTRY/EXIT 23042 M01S13871.1mt +++| STD T5 SAVE COUNT 23043 M01S13872.1mt +++| SHN -14 23044 M01S13873.1mt +++| STD T4 SAVE FILL VALUE 23045 M01S13874.1mt +++| FCH1 LDD T4 STORE CHARACTER 23046 M01S13875.1mt +++| RJM SCH 23047 M01S13876.1mt +++| SOD T5 23048 M01S13877.1mt +++| NJN FCH1 IF MORE TO FILL 23049 M01S13878.1mt +++| UJN FCHX RETURN 23050 M01S13879.1mt +++| GCD SPACE 4,10 23051 M01S13880.1mt +++|** GCD - GET CHARACTER FROM DESTINATION BUFFER. 23052 M01S13881.1mt +++|* 23053 M01S13882.1mt +++|* ENTRY (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 23054 M01S13883.1mt +++|* 23055 M01S13884.1mt +++|* EXIT (A) = CHARACTER. 23056 M01S13885.1mt +++|* (T7) = INCREMENTED. 23057 M01S13886.1mt +++|* 23058 M01S13887.1mt +++|* USES T1. 23059 M01S13888.1mt +++| 23060 M01S13889.1mt +++| 23061 M01S13890.1mt +++| GCD1 LDM -1,T1 23062 M01S13891.1mt +++| LPN 77 23063 M01S13892.1mt +++| 23064 M01S13893.1mt +++| GCD SUBR ENTRY/EXIT 23065 M01S13894.1mt +++| AOD T7 23066 M01S13895.1mt +++| SBN 1 23067 M01S13896.1mt +++| SHN 21 23068 M01S13897.1mt +++| ADM DBUF 23069 M01S13898.1mt +++| STD T1 23070 M01S13899.1mt +++| SBM DBUF 23071 M01S13900.1mt +++| SHN -21 23072 M01S13901.1mt +++| ZJN GCD1 IF LOWER 6 BITS 23073 M01S13902.1mt +++| LDI T1 23074 M01S13903.1mt +++| SHN -6 23075 M01S13904.1mt +++| UJN GCDX RETURN 23076 M01S13905.1mt +++| GCH SPACE 4,10 23077 M01S13906.1mt +++|** GCH - GET CHARACTER FROM INPUT BUFFER. 23078 M01S13907.1mt +++|* 23079 M01S13908.1mt +++|* ENTRY (T6) = CHARACTER POSITION IN INPUT BUFFER. 23080 M01S13909.1mt +++|* 23081 M01S13910.1mt +++|* EXIT (A) = CHARACTER. 23082 M01S13911.1mt +++|* (T6) = INCREMENTED. 23083 M01S13912.1mt +++|* 23084 M01S13913.1mt +++|* USES T1. 23085 M01S13914.1mt +++| 23086 M01S13915.1mt +++| 23087 M01S13916.1mt +++| GCH1 LDM -1,T1 23088 M01S13917.1mt +++| LPN 77 23089 M01S13918.1mt +++| 23090 M01S13919.1mt +++| GCH SUBR ENTRY/EXIT 23091 M01S13920.1mt +++| AOD T6 23092 M01S13921.1mt +++| SBN 1 23093 M01S13922.1mt +++| SHN 21 23094 M01S13923.1mt +++| ADM IBUF 23095 M01S13924.1mt +++| STD T1 23096 M01S13925.1mt +++| SBM IBUF 23097 M01S13926.1mt +++| SHN -21 23098 M01S13927.1mt +++| ZJN GCH1 IF LOWER 6 BITS 23099 M01S13928.1mt +++| LDI T1 23100 M01S13929.1mt +++| SHN -6 23101 M01S13930.1mt +++| UJN GCHX RETURN 23102 M01S00057.ns2786 +++| SCB SPACE 4,10 23103 M01S00058.ns2786 +++|** SCB - SET CENTURY BIAS. 23104 M01S00059.ns2786 +++|* ADJUSTS BINARY YEAR TO NEXT CENTURY IF REQUIRED. 23105 M01S00060.ns2786 +++|* 23106 M01S00061.ns2786 +++|* ENTRY (A) = ADDRESS OF CELL CONTAINING YEAR. 23107 M01S00062.ns2786 +++|* 23108 M01S00063.ns2786 +++|* EXIT ((A)) ADJUSTED UPWARD BY 100D IF ORIGINALLY .LT. 70D. 23109 M01S00064.ns2786 +++|* 23110 M01S00065.ns2786 +++|* USES T0. 23111 M01S00066.ns2786 +++| 23112 M01S00067.ns2786 +++| 23113 M01S00068.ns2786 +++| SCB SUBR ENTRY/EXIT 23114 M01S00069.ns2786 +++| STD T0 SAVE ADDRESS OF YEAR 23115 M01S00070.ns2786 +++| LDI T0 23116 M01S00071.ns2786 +++| SBK 70D 23117 M01S00072.ns2786 +++| PJN SCBX IF YEAR .LE. 1999 23118 M01S00073.ns2786 +++| LDC 100D ADJUST YEAR TO NEXT CENTURY 23119 M01S00074.ns2786 +++| RAI T0 23120 M01S00075.ns2786 +++| UJN SCBX RETURN 23121 M01S00076.ns2786 +++| SCF SPACE 4,10 23122 M01S00077.ns2786 +++|** SCF - SET CENTURY FILL CHARACTER. 23123 M01S00078.ns2786 +++|* GENERATES THE *ISO* STANDARD CENTURY CHARACTER, BASED ON THE 23124 M01S00079.ns2786 +++|* YEAR IN THE INPUT BUFFER, AND PLACES IT IN THE OUTPUT BUFFER. 23125 M01S00080.ns2786 +++|* 23126 M01S00081.ns2786 +++|* ENTRY (T6) = CHARACTER POSITION OF YEAR IN INPUT BUFFER. 23127 M01S00082.ns2786 +++|* (T7) = CHARACTER POSITION IN OUTPUT BUFFER. 23128 M01S00083.ns2786 +++|* 23129 M01S00084.ns2786 +++|* EXIT FILL CHARACTER PLACED IN OUTPUT BUFFER, 23130 M01S00085.ns2786 +++|* (* * FOR 19XX YEARS, *0* FOR 20XX YEARS). 23131 M01S00086.ns2786 +++|* (T6) = (A) = ORIGINAL (T6). 23132 M01S00087.ns2786 +++|* (T7) INCREMENTED. 23133 M01S00088.ns2786 +++|* 23134 M01S00089.ns2786 +++|* CALLS GCH, SCH. 23135 M01S00090.ns2786 +++|* 23136 M01S00091.ns2786 +++|* USES T6. 23137 M01S00092.ns2786 +++| 23138 M01S00093.ns2786 +++| 23139 M01S00094.ns2786 +++| SCF1 LDN 1R SPACE FILL 23140 M01S00095.ns2786 +++| SCF2 RJM SCH 23141 M01S00096.ns2786 +++| SOD T6 23142 M01S00097.ns2786 +++| 23143 M01S00098.ns2786 +++| SCF SUBR ENTRY/EXIT 23144 M01S00099.ns2786 +++| RJM GCH GET TENS DIGIT OF YEAR 23145 M01S00100.ns2786 +++| SBN 1R7 23146 M01S00101.ns2786 +++| PJN SCF1 IF YEAR .LE. 1999 23147 M01S00102.ns2786 +++| LDN 1R0 ZERO FILL FOR NEXT CENTURY 23148 M01S00103.ns2786 +++| UJN SCF2 STORE CHARACTER AND RETURN 23149 M01S13931.1mt +++| SCH SPACE 4,10 23150 M01S13932.1mt +++|** SCH - STORE CHARACTER IN DESTINATION BUFFER. 23151 M01S13933.1mt +++|* 23152 M01S13934.1mt +++|* ENTRY (A) = CHARACTER. 23153 M01S13935.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 23154 M01S13936.1mt +++|* 23155 M01S13937.1mt +++|* EXIT (T7) = INCREMENTED. 23156 M01S13938.1mt +++|* 23157 M01S13939.1mt +++|* USES T1. 23158 M01S13940.1mt +++| 23159 M01S13941.1mt +++| 23160 M01S13942.1mt +++| SCH1 LDM -1,T1 23161 M01S13943.1mt +++| SCN 77 23162 M01S13944.1mt +++| LMD T0 23163 M01S13945.1mt +++| SCH2 STM -1,T1 23164 M01S13946.1mt +++| 23165 M01S13947.1mt +++| SCH SUBR ENTRY/EXIT 23166 M01S13948.1mt +++| LPN 77 23167 M01S13949.1mt +++| STD T0 SAVE CHARACTER 23168 M01S13950.1mt +++| AOD T7 INCREMENT POSITION 23169 M01S13951.1mt +++| SHN 21 SET BYTE ADDRESS 23170 M01S13952.1mt +++| ADM DBUF 23171 M01S13953.1mt +++| STD T1 23172 M01S13954.1mt +++| SBM DBUF 23173 M01S13955.1mt +++| SHN -21 23174 M01S13956.1mt +++| NJN SCH1 IF EVEN CHARACTER 23175 M01S13957.1mt +++| LDM -1,T1 23176 M01S13958.1mt +++| LPN 77 23177 M01S13959.1mt +++| SHN 14 23178 M01S13960.1mt +++| LMD T0 23179 M01S13961.1mt +++| SHN 6 23180 M01S13962.1mt +++| UJN SCH2 STORE CHARACTER 23181 M01S13963.1mt +++| UDA SPACE 4,10 23182 M01S13964.1mt +++|** UDA - UDT ADDRESS OF LABEL PARAMETERS (UUFN) 23183 M01S13965.1mt +++|* 23184 M01S13966.1mt +++|* EXIT (T1) = WORD COUNT TO WRITE. 23185 M01S13967.1mt +++|* 23186 M01S13968.1mt +++|* CALLS UAD. 23187 M01S13969.1mt +++| 23188 M01S13970.1mt +++| 23189 M01S13971.1mt +++| UDA SUBR ENTRY/EXIT 23190 M01S13972.1mt +++| LDN /MTX/UUDTL 23191 M01S13973.1mt +++| STD T1 23192 M01S13974.1mt +++| RJM UAD 23193 M01S13975.1mt +++| ADN /MTX/UUFN 23194 M01S13976.1mt +++| UJN UDAX RETURN 23195 M01S13977.1mt +++| WUD SPACE 4,10 23196 M01S13978.1mt +++|** WUD - WRITE UNIT DESCRIPTOR TABLE. 23197 M01S13979.1mt +++|* OPERATION ONLY PERFORMED IF AT MAGNET CP. 23198 M01S13980.1mt +++|* 23199 M01S13981.1mt +++|* CALLS CEC, UDA. 23200 M01S13982.1mt +++| 23201 M01S13983.1mt +++| 23202 M01S13984.1mt +++| WUD SUBR ENTRY/EXIT 23203 M01S13985.1mt +++| LDM CECB 23204 M01S13986.1mt +++| LPN 77 23205 M01S13987.1mt +++| ZJN WUD1 IF AT MAGNET CP 23206 M01S13988.1mt +++| LDN 0 CHNAGE TO MAGNET CP 23207 M01S13989.1mt +++| RJM CEC 23208 M01S13990.1mt +++| WUD1 RJM UDA GET UDT LABEL ADDRESS ADDRESS 23209 M01S13991.1mt +++| CWM UDTB,T1 23210 M01S13992.1mt +++| UJN WUDX RETURN 23211 M01S13993.1mt +++| SPACE 4,10 23212 M01S13994.1mt +++|** ADDRESS RELOCATION. 23213 M01S13995.1mt +++| 23214 M01S13996.1mt +++| 23215 M01S13997.1mt +++| TADD TSAD ADDRESS RELOCATION TABLE 23216 M01S13998.1mt +++| 23217 M01S13999.1mt +++| PRS SPACE 4,10 23218 M01S14000.1mt +++|** PRS - PRESET. 23219 M01S14001.1mt +++|* 23220 M01S14002.1mt +++|* CALLS MCH, UDA. 23221 M01S14003.1mt +++| 23222 M01S14004.1mt +++| 23223 M01S14005.1mt +++| PRS LDC PRSA MODIFY CHANNELS 23224 M01S14006.1mt +++| RJM MCH 23225 M01S14007.1mt +++| LDC /SRU/ITCL*100 SET SRU INCREMENT 23226 M01S14008.1mt +++| STM //CECA
| Line S14009 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 23227 M02S14009.274l797 ---| LDN 40 23228 M01S05095.274l797 +++| LDN F0040 23229 M01S14010.1mt +++| STM //ITMA 23230 M01S14011.1mt +++| LDC TADD SET UP FOR ADDRESS RELOCATION 23231 M01S14012.1mt +++| STD CN 23232 M01S14013.1mt +++| RJM UDA 23233 M01S14014.1mt +++| CRM UDTB,T1 23234 M01S14015.1mt +++| SBN /MTX/UUFN+/MTX/UUDTL-/MTX/UCIA 23235 M01S14016.1mt +++| CRD T1 GET FET LENGTH - 5 23236 M01S14017.1mt +++| LDD T1+1 23237 M01S14018.1mt +++| SHN -6 23238 M01S14019.1mt +++| RAM OPFA 23239 M01S14020.1mt +++| LJM PRSX RETURN 23240 M01S14021.1mt +++| 23241 M01S14022.1mt +++| 23242 M01S14023.1mt +++| PRSA CHTB CHANNEL TABLE 23243 M01S14024.1mt +++| SPACE 4,10 23244 M01S14025.1mt +++| ERROVL 23245 M01S14026.1mt +++| SPACE 4,10 23246 M01S14027.1mt +++|** BUFFERS. 23247 M01S14028.1mt +++| 23248 M01S14029.1mt +++| 23249 M01S14030.1mt +++| UDTB EQU PRSA 23250 M01S14031.1mt +++| UDTBL EQU UDTB+/MTX/UUDTL*5 23251 M01S14032.1mt +++| BUF EQU UDTBL
| Line S14033 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 1mt41 |
Seq # *Modification Id* Act ----------------------------+ 23252 M02S14033.1mt41 ---| OVERLAY (TAPE POSITIONING OPERATIONS.),(/READ/OVLS+5) 23253 M01S00014.1mt41 +++| OVERLAY (TAPE POSITIONING OPERATIONS.),(/READ/OVLS+5),,SKP 23254 M01S14034.1mt +++| SKP SPACE 4,10 23255 M01S14035.1mt +++|** SKP - SKIP. 23256 M01S05096.274l797 +++|* THIS ROUTINE SKIPS BLOCKS IN A FORWARD DIRECTION. *SKP* IS 23257 M01S05097.274l797 +++|* OVERLAYED BY *SKR* FOR SKIP REVERSE. 23258 M01S14036.1mt +++|*
| Line S14037 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 23259 M02S14037.274l797 ---|* CALLS DBF, UAD. 23260 M01S05098.274l797 +++|* EXIT TO *RET1* OF NORMAL COMPLETION. 23261 M01S05099.274l797 +++|* TO *RET2* IF DROP OUT BLOCK COUNT REACHED. 23262 M01S05100.274l797 +++|* TO *RET3* IF TAPE MARK. 23263 M01S05101.274l797 +++|* 23264 M01S05102.274l797 +++|* CALLS DBF, SLL, /READ/RDF, UAD. 23265 M01S14038.1mt +++| 23266 M01S14039.1mt +++|
| Line S14040 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 23267 M02S14040.274l797 ---| ENTRY SKP 23268 M01S05103.274l797 +++| ENTRY SKP FROM *PRS* 23269 M01S14041.1mt +++| SKP BSS 0 23270 M01S14042.1mt +++| .OSKR EQU * 23271 M01S14043.1mt +++|
| Line S14044 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 23272 M02S14044.274l797 ---| SKP1 LJM /READ/RDF READ TAPE 23273 M01S05104.274l797 +++| SKP1 LDN 0
| Line S05105 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 1mt48 |
Seq # *Modification Id* Act ----------------------------+ 23274 M02S05105.1mt48 ---| STM SLBC CLEAR CHUNK COUNT FOR LI FORMAT 23275 M01S00061.1mt48 +++| STM IDFE CLEAR CHUNK COUNT FOR LI FORMAT 23276 M01S05106.274l797 +++| LJM /READ/RDF READ TAPE (RETURN AT *SKP2*) 23277 M01S14045.1mt +++|
| Line S14046 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 23278 M02S14046.274l797 ---| SKP2 UJN SKP3 NOT SI FORMAT, 9 TRACK 23279 M01S05107.274l797 +++| SKP2 UJN SKP3 NOT SI FORMAT, 9/18 TRACK 23280 M01S14047.1mt +++| SKPA EQU *-1
| Line S14048 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 23281 M02S14048.274l797 ---|* LDD ES (9 TRACK SI FORMAT) 23282 M01S05108.274l797 +++|* LDD ES (9/18 TRACK SI FORMAT) 23283 M01S14049.1mt +++| LPN 40 23284 M01S14050.1mt +++| ZJN SKP3 IF NO FILL STATUS 23285 M01S14051.1mt +++| SOD BY ADJUST BYTE COUNT 23286 M01S14052.1mt +++| SKP3 RJM DBF DETERMINE BLOCK TYPE FORWARD 23287 M01S14053.1mt +++| AOD BL+1 INCREMENT BLOCK COUNTER 23288 M01S14054.1mt +++| SHN -14 23289 M01S14055.1mt +++| RAD BL 23290 M01S14056.1mt +++| LDD T2 23291 M01S14057.1mt +++| LMN 14 23292 M01S14058.1mt +++| SKPB UJN SKP6 IF NOT TAPE MARK
| Line S14059 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 23293 M02S14059.274l797 ---|* NJN SKP6 (LABELED OR I/SI FORMAT) 23294 M01S05109.274l797 +++|* NJN SKP6 (LABELED OR I/SI/LI FORMAT) 23295 M01S14060.1mt +++| SOD BL+1 ADJUST BLOCK COUNT 23296 M01S14061.1mt +++| PJN SKP4 IF NO UNDERFLOW 23297 M01S14062.1mt +++| SOD BL 23298 M01S14063.1mt +++| AOD BL+1
| Line S14064 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 23299 M02S14064.ns21000 ---| SKP4 UJN SKP5 SET TAPE MARK ENCOUNTERED
| Line S14065 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 23300 M02S14065.ns21000 ---|* LDD PA (S,L FORMAT)
| Line S14066 Modification History | |
|---|---|
M01 (Added by) | 1mt |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 23301 M02S14066.ns21000 ---| SKPC EQU *-1
Proceed to Part 27
cdc/nos2.source/opl.opl871/deck/1mt.026.txt · Last modified: (external edit)