cdc:nos2.source:opl.opl871:common:comptfm.001
Common COMPTFM Part 001
10 Modifications
Listing Sections
- Common COMPTFM Start
- Common COMPTFM Part 1 (Line 1508)
- Common COMPTFM Part 2 (Line 2975)
Source
Seq # *Modification Id* Act ----------------------------+ 01508 M01S01369.comptfm +++| STM PCEC+1 01509 M01S01370.comptfm +++| LDM CWRI,BA 01510 M01S01371.comptfm +++| LPN 77 01511 M01S01372.comptfm +++| LMC LDCI 01512 M01S01373.comptfm +++| STM PCED 01513 M01S01374.comptfm +++| LDM CWRI+1,BA 01514 M01S01375.comptfm +++| STM PCED+1 01515 M01S01376.comptfm +++| RJM DLB DELINK BLOCK 01516 M01S01377.comptfm +++| LDC ** 01517 M01S01378.comptfm +++| PCEC EQU *-2 01518 M01S01379.comptfm +++| NJP PCE4 IF NOT FIRST BLOCK OF CHAIN 01519 M01S01380.comptfm +++| LDC PBUN SET KEY ADDRESS 01520 M01S01381.comptfm +++| STD KA 01521 M01S01382.comptfm +++| RJM UIS USERNAME INDEX SEARCH 01522 M01S01383.comptfm +++| ZJN PCE7 IF USERNAME FOUND 01523 M01S01384.comptfm +++| ERROR EID *ERROR IN INDEX DATA.* 01524 M01S01385.comptfm +++| 01525 M01S01386.comptfm +++| PCE7 LDM UBCI,BP CLEAR CATALOG POINTER 01526 M01S01387.comptfm +++| SCN 77 01527 M01S01388.comptfm +++| STM UBCI,BP 01528 M01S01389.comptfm +++| LDN 0 01529 M01S01390.comptfm +++| STM UBCI+1,BP 01530 M01S01391.comptfm +++| LDC ** CHECK FOR INDEX UPDATE 01531 M01S01392.comptfm +++| PCED EQU *-2 (RANDOM INDEX TO NEXT CATALOG BLOCK) 01532 M01S01393.comptfm +++| ZJN PCE9 IF LAST CATALOG BLOCK 01533 M01S01394.comptfm +++| STM UBCI+1,BP 01534 M01S01395.comptfm +++| SHN -14 01535 M01S01396.comptfm +++| RAM UBCI,BP 01536 M01S01397.comptfm +++| PCE8 RJM WRP WRITE RANDOM PRU 01537 M01S01398.comptfm +++| LJM PCE4 CHECK FOR MULTI-FILE 01538 M01S01399.comptfm +++| 01539 M01S01400.comptfm +++| PCE9 RJM DDE DELETE DATA ENTRY 01540 M01S01401.comptfm +++| LDM CWNE,BA 01541 M01S01402.comptfm +++| NJN PCE8 IF SECONDARY INDEX NOT EMPTY 01542 M01S01403.comptfm +++| RJM DLB DELINK BLOCK 01543 M01S01404.comptfm +++| RESTP CPPI SWAP TO PRIMARY INDEX BUFFER 01544 M01S01405.comptfm +++| RJM DDE DELETE DATA ENTRY 01545 M01S01406.comptfm +++| LDM CWNE,BA 01546 M01S01407.comptfm +++| NJN PCE8 IF PRIMARY INDEX NOT EMPTY 01547 M01S01408.comptfm +++| RJM DLB DELETE DATA BLOCK 01548 M01S01409.comptfm +++| LJM PCEX RETURN 01549 M01S01410.comptfm +++| DDE$ EQU 1 DEFINE DDE - DELETE DATA ENTRY 01550 M01S01411.comptfm +++| DLB$ EQU 1 DEFINE DLB - DELINK BLOCK 01551 M01S01412.comptfm +++| UIS$ EQU 1 DEFINE UIS - USERNAME INDEX SEARCH 01552 M01S01413.comptfm +++| PCE$ ENDIF 01553 M01S01414.comptfm +++| RSP$ IF DEF,RSP$ 01554 M01S01415.comptfm +++| RSP SPACE 4,10 01555 M01S01416.comptfm +++|** RSP - RELEASE VSN(S) TO SCRATCH POOL. 01556 M01S01417.comptfm +++|* 01557 M01S01418.comptfm +++|* ENTRY (CPSB - CPSB+4) = *TMST* POINTERS. 01558 M01S01419.comptfm +++|* (CPSI - CPSI+4) = VSN INDEX BUFFER POINTERS. 01559 M01S01420.comptfm +++|* 01560 M01S01421.comptfm +++|* USES KA, RI - RI+1. 01561 M01S01422.comptfm +++|*
| Line S01423 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01562 M02S01423.274l797 ---|* CALLS MBP, RRP, VIS, VSP, WRP.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01563 M02S00008.ns2763 ---|* CALLS MBP, RRP, SSP, VIS, VSP, WRP. 01564 M01S00081.ns2763 +++|* CALLS RRP, SSP, VIS, WRP. 01565 M01S01424.comptfm +++|*
| Line S01425 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01566 M02S01425.ns2763 ---|* MACROS ERROR, LDA, MMOVE, RESTP, SAVEP. 01567 M01S00082.ns2763 +++|* MACROS CLEAR, ERROR, MMOVE, MONITOR, RESTP, SAVEP. 01568 M01S01426.comptfm +++| 01569 M01S01427.comptfm +++| 01570 M01S01428.comptfm +++| RSP SUBR ENTRY/EXIT 01571 M01S01429.comptfm +++| RESTP CPSI RESTORE BUFFER POINTERS (VSN INDEX)
| Line S01430 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01572 M02S01430.ns2763 ---| MMOVE ,BP,PVSN,,VSKL 01573 M01S00009.274l797 +++| LDM VBST+1,BP GET STATUS 01574 M01S00010.274l797 +++| SHN -5 01575 M01S00011.274l797 +++| LPN ACVS/40+CTVS/40 DETERMINE TAPE TYPE 01576 M01S00012.274l797 +++| RJM SSP SET SCRATCH POOL ADDRESS 01577 M01S00013.274l797 +++| LDM RSPB,T3 SET ADDRESS OF COPY OF SCRATCH POOL WORD 01578 M01S00014.274l797 +++| STM RSPA 01579 M01S00015.274l797 +++| STD T2 01580 M01S00016.274l797 +++| LDM 3,T2 SAVE SCRATCH COUNT 01581 M01S00017.274l797 +++| STM PVSN+3 01582 M01S00018.274l797 +++| LDM 4,T2 01583 M01S00019.274l797 +++| STM PVSN+4
| Line S01431 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01584 M02S01431.ns2763 ---| RSP1 AOM PVSN+4 INCREMENT SCRATCH COUNT
| Line S01432 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01585 M02S01432.ns2763 ---| SHN -14
| Line S01433 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01586 M02S01433.ns2763 ---| RAM PVSN+3
| Line S01434 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01587 M02S01434.ns2763 ---| LDC PESN 01588 M01S00083.ns2763 +++| RSP0 LDM VBST+1,BP 01589 M01S00084.ns2763 +++| LPC SVVS 01590 M01S00085.ns2763 +++| STM RSPF 01591 M01S00086.ns2763 +++| MMOVE VBES,BP,PVSN,,VSKL 01592 M01S00087.ns2763 +++| RSP1 LDC PESN 01593 M01S01435.comptfm +++| STD KA
| Line S01436 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01594 M02S01436.ns2763 ---| MMOVE VBNV,BP,,KA,VSKL 01595 M01S00088.ns2763 +++| MMOVE VBNV,BP,,KA,VSKL SAVE NEXT VSN 01596 M01S01437.comptfm +++| LDN 0 RELEASE VSN(S) 01597 M01S01438.comptfm +++| STM VBCI,BP 01598 M01S01439.comptfm +++| STM VBCI+1,BP
| Line S01440 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01599 M02S01440.ns2763 ---| CLEAR VBFV,BP,10D 01600 M01S00089.ns2763 +++| CLEAR VBFV,BP,2*10D 01601 M01S01441.comptfm +++| LDA VBST,BP 01602 M01S01442.comptfm +++| LPC 777777&RTVS&ASVS&EOIV&VIVS
| Line S01443 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01603 M02S01443.ns2763 ---| LMC ASVS 01604 M01S01444.comptfm +++| STM VBST+1,BP 01605 M01S01445.comptfm +++| SHN -14 01606 M01S01446.comptfm +++| STM VBST,BP 01607 M01S01447.comptfm +++| LDM VBRD,BP CLEAR RELEASE DATE 01608 M01S01448.comptfm +++| SCN 77 01609 M01S01449.comptfm +++| STM VBRD,BP
| Line S01450 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01610 M02S01450.t5472 ---| LDC 0 01611 M01S00011.t5472 +++| LDN 0 01612 M01S01451.comptfm +++| STM VBRD+1,BP
| Line S01452 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01613 M02S01452.ns2763 ---| LDI KA 01614 M01S00090.ns2763 +++| LDC ** 01615 M01S00091.ns2763 +++| RSPF EQU *-1 (SYSTEM TAPE FLAG) 01616 M01S00092.ns2763 +++| NJN RSP1.1 IF SYSTEM TAPE 01617 M01S00093.ns2763 +++| MMOVE ,KA,VBNV,BP,VSKL RESTORE NEXT VSN 01618 M01S00094.ns2763 +++| LDN ASVS/1S12 SET AVAILABLE SCRATCH 01619 M01S00095.ns2763 +++| RAM VBST,BP 01620 M01S00096.ns2763 +++| AOM PVSN+4 INCREMENT SCRATCH COUNT 01621 M01S00097.ns2763 +++| SHN -14 01622 M01S00098.ns2763 +++| RAM PVSN+3 01623 M01S00099.ns2763 +++| RSP1.1 LDI KA 01624 M01S01453.comptfm +++| ZJN RSP2 IF END OF SET 01625 M01S01454.comptfm +++| RJM WRP WRITE RANDOM PRU 01626 M01S01455.comptfm +++| RJM VIS VSN INDEXED SEARCH
| Line S01456 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01627 M02S01456.ns2763 ---| ZJP RSP1 IF VSN FOUND
| Line S01457 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01628 M02S01457.ns2763 ---| ERROR EID *ERROR IN INDEX DATA.* 01629 M01S00100.ns2763 +++| NJN RSP1.2 IF VSN NOT FOUND 01630 M01S00101.ns2763 +++| LDM RSPF 01631 M01S00102.ns2763 +++| ZJP RSP1 IF SCRATCH TAPE PROCESSED 01632 M01S00103.ns2763 +++| UJP RSP0 SET SYSTEM/SCRATCH FLAG 01633 M01S01458.comptfm +++|
| Line S01459 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01634 M02S01459.274l797 ---| RSP2 MMOVE RSPA,,VBNV,BP,VSKL
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01635 M02S00020.ns2763 ---| RSP2 LDC ** ADDRESS OF FIRST SCRATCH VSN FOR TAPE TYPE 01636 M01S00104.ns2763 +++| RSP1.2 ERROR EID *ERROR IN INDEX DATA.* 01637 M01S00105.ns2763 +++| 01638 M01S00106.ns2763 +++| RSP2 LDM RSPF 01639 M01S00107.ns2763 +++| NJN RSP2.1 IF SYSTEM TAPE ONLY - NO SCRATCH 01640 M01S00108.ns2763 +++| LDC ** ADDRESS OF FIRST SCRATCH VSN FOR TAPE TYPE 01641 M01S00021.274l797 +++| RSPA EQU *-1 01642 M01S00022.274l797 +++| STD T1 01643 M01S00023.274l797 +++| MMOVE ,,VBNV,BP,VSKL
| Line S01460 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01644 M02S01460.ns2763 ---| RJM WRP WRITE RANDOM PRU 01645 M01S00109.ns2763 +++| RSP2.1 RJM WRP WRITE RANDOM PRU 01646 M01S01461.comptfm +++| RESTP CPSB RESTORE *TMST* POINTERS 01647 M01S01462.comptfm +++| RJM RRP READ RANDOM PRU (TMST) 01648 M01S00110.ns2763 +++| LDM RSPF 01649 M01S00111.ns2763 +++| NJN RSP3 IF SYSTEM TAPE ONLY
| Line S01463 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01650 M02S01463.274l797 ---| MMOVE PVSN,,SBSV,BP,10D 01651 M01S00024.274l797 +++| LDM SCRP ADDRESS OF TMST SCRATCH WORD FOR TAPE TYPE 01652 M01S00025.274l797 +++| ADD BP 01653 M01S00026.274l797 +++| STD T2 01654 M01S00027.274l797 +++| MMOVE PVSN,,,,10D 01655 M01S01464.comptfm +++| RJM WRP WRITE RANDOM PRU 01656 M01S01465.comptfm +++| LDN ZERL ENTER TMS EVENT (SCRATCH) 01657 M01S01466.comptfm +++| CRD CM 01658 M01S01467.comptfm +++| LDN ESVB 01659 M01S01468.comptfm +++| STD CM+4 01660 M01S01469.comptfm +++| MONITOR EATM
| Line S01470 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01661 M02S01470.ns2763 ---| LJM RSPX RETURN 01662 M01S00112.ns2763 +++| RSP3 LJM RSPX RETURN 01663 M01S01471.comptfm +++|
| Line S01472 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01664 M02S01472.274l797 ---| RSPA BSSZ VSKL/2 LINK VSN FOR SCRATCH CHAIN 01665 M01S00028.274l797 +++| 01666 M01S00029.274l797 +++| RSPB BSS 0 ADDRESSES OF COPIES OF SCRATCH POOL WORDS 01667 M01S00030.274l797 +++| CON RSPC *MT*/*NT* SCRATCH POOL WORD 01668 M01S00031.274l797 +++| CON RSPD *CT* SCRATCH POOL WORD 01669 M01S00032.274l797 +++| CON 0 01670 M01S00033.274l797 +++| CON RSPE *AT* SCRATCH POOL WORD 01671 M01S00034.274l797 +++| 01672 M01S00035.274l797 +++| RSPC BSS 5 *MT*/*NT* FIRST SCRATCH VSN, SCRATCH COUNT 01673 M01S00036.274l797 +++| RSPD BSS 5 *CT* FIRST SCRATCH VSN, SCRATCH COUNT 01674 M01S00037.274l797 +++| RSPE BSS 5 *AT* FIRST SCRATCH VSN, SCRATCH COUNT 01675 M01S00038.274l797 +++| 01676 M01S01473.comptfm +++| ISP$ EQU 1 DEFINE ISP - INITIALIZE SCRATCH PROCESSOR 01677 M01S00039.274l797 +++| SSP$ EQU 1 DEFINE SSP - SET SCRATCH POOL ADDRESS 01678 M01S00113.ns2763 +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH 01679 M01S01474.comptfm +++| RSP$ ENDIF 01680 M01S01475.comptfm +++| SCB$ IF DEF,SCB$ 01681 M01S01476.comptfm +++| SCB SPACE 4,10 01682 M01S01477.comptfm +++|** SCB - SEARCH CATALOG BUFFER. 01683 M01S01478.comptfm +++|* 01684 M01S01479.comptfm +++|* ENTRY (KA) = KEY ADDRESS (FILE NAME). 01685 M01S01480.comptfm +++|* = 0 IF SEARCHING FOR HOLE. 01686 M01S01481.comptfm +++|* (BA) = BUFFER ADDRESS. 01687 M01S01482.comptfm +++|* (RI - RI+1) = RANDOM ADDRESS TO FIRST BLOCK. 01688 M01S01483.comptfm +++|* 01689 M01S01484.comptfm +++|* EXIT (A) = 0 IF CATALOG NOT FOUND. 01690 M01S01485.comptfm +++|* = CATALOG INDEX IF FILE FOUND. 01691 M01S01486.comptfm +++|* = -0 IF DUPLICATE FILE NAME. 01692 M01S01487.comptfm +++|* (BA) = ADDRESS OF BUFFER CONTAINING CATALOG. 01693 M01S01488.comptfm +++|* (BP) = FWA OF CATALOG. 01694 M01S01489.comptfm +++|* (CI) = CATALOG INDEX. 01695 M01S01490.comptfm +++|* (HP) = ADDRESS OF BUFFER CONTAINING HOLE. 01696 M01S01491.comptfm +++|* (HP+1) = FWA OF HOLE. 01697 M01S01492.comptfm +++|* 01698 M01S01493.comptfm +++|* CALLS GIB, GNB, GNL, MBP, RRP. 01699 M01S01494.comptfm +++|* 01700 M01S01495.comptfm +++|* MACROS COMPARE, RESTP, SAVEP. 01701 M01S01496.comptfm +++| 01702 M01S01497.comptfm +++| 01703 M01S01498.comptfm +++| SCB SUBR ENTRY/EXIT 01704 M01S01499.comptfm +++| LDN ZERL INITIALIZE HOLE POINTER 01705 M01S01500.comptfm +++| CRM CPCB,ON 01706 M01S01501.comptfm +++| SBN 1 01707 M01S01502.comptfm +++| CRM CPHP,ON 01708 M01S01503.comptfm +++| RJM GIB GET INITIAL BLOCK 01709 M01S01504.comptfm +++| SCB1 LDM CWFE,BA SET FIRST CATALOG ENTRY 01710 M01S01505.comptfm +++| RJM MBP MOVE BUFFER POINTER 01711 M01S01506.comptfm +++| LDN 0 INITIALIZE CATALOG INDEX 01712 M01S01507.comptfm +++| STD CI 01713 M01S01508.comptfm +++| SCB2 AOD CI CHECK CATALOG 01714 M01S01509.comptfm +++| LDI BP 01715 M01S01510.comptfm +++| NJN SCB4 IF NOT HOLE 01716 M01S01511.comptfm +++| LDM CPHP 01717 M01S01512.comptfm +++| NJN SCB3 IF HOLE ALREADY FOUND 01718 M01S01513.comptfm +++| SAVEP CPHP SAVE HOLE POINTER 01719 M01S01514.comptfm +++| LDD KA 01720 M01S01515.comptfm +++| ZJP SCBX IF SEARCHING FOR HOLE 01721 M01S01516.comptfm +++| SCB3 UJN SCB5 CHECK FOR END OF BUFFER 01722 M01S01517.comptfm +++| 01723 M01S01518.comptfm +++| SCB4 LDD KA CHECK SEARCH TYPE 01724 M01S01519.comptfm +++| ZJN SCB5 IF SEARCHING FOR HOLES 01725 M01S01520.comptfm +++| LDM CBST,BP 01726 M01S01521.comptfm +++| LPN 4 01727 M01S01522.comptfm +++| ZJN SCB5 IF NOT SYMBOLIC ACCESS FILE 01728 M01S01523.comptfm +++| COMPARE CBLI,BP,,KA,FIKL 01729 M01S01524.comptfm +++| ZJN SCB6 IF FILE NAME 01730 M01S01525.comptfm +++| AMD$ IF DEF,AMD$ 01731 M01S01526.comptfm +++| COMPARE CBLI,BP,PNFI,,FIKL 01732 M01S01527.comptfm +++| ZJN SCB7 IF NEW FILENAME FOUND 01733 M01S01528.comptfm +++| AMD$ ENDIF 01734 M01S01529.comptfm +++| SCB5 LDN TCEL ADVANCE TO NEXT CATALOG 01735 M01S01530.comptfm +++| RJM MBP MOVE BUFFER POINTER 01736 M01S01531.comptfm +++| PJP SCB2 IF WITHIN CURRENT BUFFER 01737 M01S01532.comptfm +++| RJM GNL GET NEXT LINK 01738 M01S01533.comptfm +++| ZJN SCB8 IF BLOCK NOT LINKED 01739 M01S01534.comptfm +++| RJM GNB GET NEXT BLOCK 01740 M01S01535.comptfm +++| LJM SCB1 SEARCH LINKED BLOCK 01741 M01S01536.comptfm +++| 01742 M01S01537.comptfm +++| SCB6 SAVEP CPCB SAVE BUFFER POINTERS (CATALOG) 01743 M01S01538.comptfm +++| AMD$ IF DEF,AMD$ 01744 M01S01539.comptfm +++| LDM PNFI 01745 M01S01540.comptfm +++| NJN SCB5 IF NEW FILENAME SPECIFIED 01746 M01S01541.comptfm +++| UJN SCB9 RETURN 01747 M01S01542.comptfm +++| 01748 M01S01543.comptfm +++| SCB7 MMOVE PNFI,,POFI,,FIKL 01749 M01S01544.comptfm +++| LCN 0 FILE ALREADY RESERVED 01750 M01S01545.comptfm +++| UJN SCB10 RETURN 01751 M01S01546.comptfm +++| AMD$ ELSE 01752 M01S01547.comptfm +++| UJN SCB9 RETURN 01753 M01S01548.comptfm +++| AMD$ ENDIF 01754 M01S01549.comptfm +++| 01755 M01S01550.comptfm +++| SCB8 LDM CPCB RESET BUFFER POINTERS 01756 M01S01551.comptfm +++| ZJN SCB10 IF CATALOG NOT FOUND 01757 M01S01552.comptfm +++| RESTP CPCB RESTORE CATALOG POINTERS 01758 M01S01553.comptfm +++| RJM RRP READ RANDOM PRU 01759 M01S01554.comptfm +++| SCB9 LDD CI SET EXIT CONDITION 01760 M01S01555.comptfm +++| SCB10 LJM SCBX RETURN 01761 M01S01556.comptfm +++| 01762 M01S01557.comptfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK 01763 M01S01558.comptfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT LINK 01764 M01S01559.comptfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT 01765 M01S01560.comptfm +++| SCB$ ENDIF
| Line S01561 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01766 M02S01561.274l797 ---| TITLE ".Y."/COMPTFM - SUBORDINATE SUBROUTINES. 01767 M01S00040.274l797 +++| TITLE COMPTFM - SUBORDINATE SUBROUTINES. 01768 M01S01562.comptfm +++| ABC$ IF DEF,ABC$ 01769 M01S01563.comptfm +++| ABC SPACE 4,10 01770 M01S01564.comptfm +++|** ABC - ADD BLOCK TO CHAIN. 01771 M01S01565.comptfm +++|* 01772 M01S01566.comptfm +++|* ENTRY (A) = WORD IN PP BUFFER FOR BLOCK LINKAGE. 01773 M01S01567.comptfm +++|* (BA) = BUFFER ADDRESS. 01774 M01S01568.comptfm +++|* (RI - RI+1) = RANDOM INDEX FOR CURRENT BLOCK. 01775 M01S01569.comptfm +++| 01776 M01S01570.comptfm +++| 01777 M01S01571.comptfm +++| ABC SUBR ENTRY/EXIT 01778 M01S01572.comptfm +++| STM LNBC SET FWA FOR BLOCK LINKAGE 01779 M01S01573.comptfm +++| ADN 1 01780 M01S01574.comptfm +++| STM LNBB 01781 M01S01575.comptfm +++| LDD RI SET BACKWARD POINTER 01782 M01S01576.comptfm +++| LMC LDCI 01783 M01S01577.comptfm +++| STM LNBD 01784 M01S01578.comptfm +++| LDD RI+1 01785 M01S01579.comptfm +++| STM LNBD+1 01786 M01S01580.comptfm +++| LDM CWRI,BA SET FORWARD POINTER 01787 M01S01581.comptfm +++| LMC LDCI 01788 M01S01582.comptfm +++| STM LNBF 01789 M01S01583.comptfm +++| LDM CWRI+1,BA 01790 M01S01584.comptfm +++| STM LNBF+1 01791 M01S01585.comptfm +++| RJM LNB LINK NEXT BLOCK 01792 M01S01586.comptfm +++| UJN ABCX RETURN 01793 M01S01587.comptfm +++| ABC$ ENDIF
| Line S01588 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01794 M02S01588.t5519 ---| AIB$ IF DEF,AIB$
| Line S01589 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01795 M02S01589.t5519 ---| AIB SPACE 4,10
| Line S01590 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01796 M02S01590.t5519 ---|** AIB - ADD INDEX TO BLOCK.
| Line S01591 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01797 M02S01591.t5519 ---|*
| Line S01592 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01798 M02S01592.t5519 ---|* ENTRY (AIBA) = LMNI + INDEX BLOCK TYPE.
| Line S01593 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01799 M02S01593.t5519 ---|* (AIBB) = LDNI + INDEX LENGTH.
| Line S01594 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01800 M02S01594.t5519 ---|*
| Line S01595 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01801 M02S01595.t5519 ---|* EXIT (A) = 0 IF NO INDEX BLOCK ADDED.
| Line S01596 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01802 M02S01596.t5519 ---|* (A) = 1 IF INDEX BLOCK ADDED.
| Line S01597 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01803 M02S01597.t5519 ---|*
| Line S01598 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01804 M02S01598.t5519 ---|* CALLS ABC, GIB, GNL, GPL, IDE, MBP, RIB, WRP.
| Line S01599 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01805 M02S01599.t5519 ---|*
| Line S01600 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01806 M02S01600.t5519 ---|* MACROS ERROR.
| Line S01601 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01807 M02S01601.t5519 ---|
| Line S01602 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01808 M02S01602.t5519 ---|
| Line S01603 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01809 M02S01603.t5519 ---| AIB SUBR ENTRY/EXIT
| Line S01604 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01810 M02S01604.t5519 ---| LDC LDNI+0 PRESET EXIT CONDITION
| Line S01605 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01811 M02S01605.t5519 ---| STM AIBC
| Line S01606 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01812 M02S01606.t5519 ---| LDD CO WRITE CURRENT BLOCK
| Line S01607 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01813 M02S01607.t5519 ---| RJM WRP WRITE RANDOM PRU
| Line S01608 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01814 M02S01608.t5519 ---| RJM GNL GET NEXT LINK
| Line S01609 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01815 M02S01609.t5519 ---| ZJN AIB2 IF BLOCK NOT LINKED
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01816 M02S01610.t5519 ---| RJM GIB GET INDEX BLOCK
| Line S01611 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01817 M02S01611.t5519 ---| RJM RIB ROOM IN BLOCK
| Line S01612 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01818 M02S01612.t5519 ---| PJN AIB3 IF ROOM IN BLOCK
| Line S01613 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01819 M02S01613.t5519 ---| RJM GPL GET PREVIOUS LINK
| Line S01614 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01820 M02S01614.t5519 ---| NJN AIB1 IF NO ERROR
| Line S01615 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01821 M02S01615.t5519 ---| ERROR CLE *CATALOG LINKAGE ERROR.*
| Line S01616 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01822 M02S01616.t5519 ---|
| Line S01617 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01823 M02S01617.t5519 ---| AIB1 RJM GIB GET INITIAL BLOCK
| Line S01618 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01824 M02S01618.t5519 ---| AIB2 LDN CWRI
| Line S01619 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01825 M02S01619.t5519 ---| RJM ABC ADD BLOCK TO CHAIN
| Line S01620 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01826 M02S01620.t5519 ---| LDM CIEB
| Line S01621 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01827 M02S01621.t5519 ---| LMN 2 SECONDARY INDEX BLOCK
| Line S01622 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01828 M02S01622.t5519 ---|* LMN 1 (PRIMARY INDEX BLOCK)
| Line S01623 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01829 M02S01623.t5519 ---| AIBA EQU *-1
| Line S01624 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01830 M02S01624.t5519 ---| STM CWRT,BA
| Line S01625 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01831 M02S01625.t5519 ---| LDN TSVL VSN SECONDARY INDEX LENGTH
| Line S01626 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01832 M02S01626.t5519 ---|* LDN TSUL (USERNAME SECONDARY INDEX LENGTH)
| Line S01627 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01833 M02S01627.t5519 ---|* LDN TPIL (PRIMARY INDEX LENGTH)
| Line S01628 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01834 M02S01628.t5519 ---| AIBB EQU *-1
| Line S01629 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01835 M02S01629.t5519 ---| STM CWEL,BA
| Line S01630 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01836 M02S01630.t5519 ---| AOM AIBC FLAG INDEX BLOCK ADDED
| Line S01631 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01837 M02S01631.t5519 ---| AIB3 LDM CWFE,BA POINT TO FIRST ENTRY
| Line S01632 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01838 M02S01632.t5519 ---| RJM MBP MOVE BUFFER POINTER
| Line S01633 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01839 M02S01633.t5519 ---| RJM IDE INSERT DATA ENTRY
| Line S01634 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01840 M02S01634.t5519 ---| LDN 0 NO INDEX BLOCK CREATED
| Line S01635 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01841 M02S01635.t5519 ---|* LDN 1 (INDEX BLOCK CREATED)
| Line S01636 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01842 M02S01636.t5519 ---| AIBC EQU *-1
| Line S01637 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01843 M02S01637.t5519 ---| LJM AIBX RETURN
| Line S01638 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01844 M02S01638.t5519 ---| AIB$ ENDIF 01845 M01S01639.comptfm +++| BSE$ IF DEF,BSE$ 01846 M01S01640.comptfm +++| BSE SPACE 4,10 01847 M01S01641.comptfm +++|** BSE - BACKWARD SKIP ONE ENTRY. 01848 M01S01642.comptfm +++|* 01849 M01S01643.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 01850 M01S01644.comptfm +++|* (BP) = BUFFER POINTER. 01851 M01S01645.comptfm +++|* (CI) = CATALOG INDEX. 01852 M01S01646.comptfm +++|* 01853 M01S01647.comptfm +++|* EXIT (BA) = BUFFER ADDRESS (UNCHANGED). 01854 M01S01648.comptfm +++|* (BP) = BUFFER POINTER (UPDATED). 01855 M01S01649.comptfm +++|* (CI) = CATALOG INDEX (UPDATED). 01856 M01S01650.comptfm +++|* 01857 M01S01651.comptfm +++|* USES T1, CP, CI. 01858 M01S01652.comptfm +++| 01859 M01S01653.comptfm +++| 01860 M01S01654.comptfm +++| BSE SUBR ENTRY/EXIT 01861 M01S01655.comptfm +++| LDM CWFE,BA CHECK BUFFER FOR ENTRY 01862 M01S01656.comptfm +++| STD T1 01863 M01S01657.comptfm +++| SHN 2 01864 M01S01658.comptfm +++| RAD T1 01865 M01S01659.comptfm +++| ADN 2 01866 M01S01660.comptfm +++| ADD BA 01867 M01S01661.comptfm +++| SBD BP 01868 M01S01662.comptfm +++| ZJN BSEX IF POSITIONED AT FIRST ENTRY 01869 M01S01663.comptfm +++| LDM CWEL,BA DECREMENT BUFFER POINTER 01870 M01S01664.comptfm +++| STD T1 01871 M01S01665.comptfm +++| SHN 2 01872 M01S01666.comptfm +++| RAD T1 01873 M01S01667.comptfm +++| LMC -0 01874 M01S01668.comptfm +++| RAD BP 01875 M01S01669.comptfm +++| SOD CI 01876 M01S01670.comptfm +++| UJN BSEX RETURN 01877 M01S01671.comptfm +++| BSE$ ENDIF 01878 M01S01672.comptfm +++| CMV$ IF DEF,CMV$ 01879 M01S01673.comptfm +++| CMV SPACE 4,15 01880 M01S01674.comptfm +++|** CMV - COMPARE/MOVE CHARACTER STRING. 01881 M01S01675.comptfm +++|* 01882 M01S01676.comptfm +++|* ENTRY (A) = COMPARE LENGTH IN PP BYTES. 01883 M01S01677.comptfm +++|* (T1) = SOURCE ADDRESS FOR COMPARE. 01884 M01S01678.comptfm +++|* (T2) = OBJECT ADDRESS FOR COMPARE. 01885 M01S01679.comptfm +++|* (T3) = PRESET TO ZERO(OR FROM PREVIOUS *CMOVE*). 01886 M01S01680.comptfm +++|* 01887 M01S01681.comptfm +++|* EXIT (A) = (T3) = 0 IF NAME(T1) = NAME(T2). 01888 M01S01682.comptfm +++|* .NE. 0 IF NAME(T1) .NE. NAME(T2). 01889 M01S01683.comptfm +++|* 01890 M01S01684.comptfm +++|* USES T0 - T3. 01891 M01S01685.comptfm +++| 01892 M01S01686.comptfm +++| 01893 M01S01687.comptfm +++| CMV SUBR ENTRY/EXIT 01894 M01S01688.comptfm +++| STD T0 SAVE PP BYTE COUNT 01895 M01S01689.comptfm +++| CMV1 LDI T1 COMPARE BYTES 01896 M01S01690.comptfm +++| LMI T2 01897 M01S01691.comptfm +++| ZJN CMV2 IF BYTE(T1) .NE. BYTE(T2) 01898 M01S01692.comptfm +++| AOD T3 COUNT THE DIFFERENCES 01899 M01S01693.comptfm +++| CMV2 LDI T1 01900 M01S01694.comptfm +++| STI T2 01901 M01S01695.comptfm +++| AOD T1 INCREMENT TO NEXT BYTE 01902 M01S01696.comptfm +++| AOD T2 01903 M01S01697.comptfm +++| SOD T0 DECREMENT PP BYTE COUNT 01904 M01S01698.comptfm +++| NJN CMV1 IF NOT THROUGH WITH STRINGS 01905 M01S01699.comptfm +++| LDD T3 01906 M01S01700.comptfm +++| UJN CMVX RETURN 01907 M01S01701.comptfm +++| CMV$ ENDIF 01908 M01S01702.comptfm +++| CSN$ IF DEF,CSN$ 01909 M01S01703.comptfm +++| CSN SPACE 4,10 01910 M01S01704.comptfm +++|** CSN - CONVERT SEQUENCE NUMBER TO DISPLAY CODE. 01911 M01S01705.comptfm +++|* 01912 M01S01706.comptfm +++|* ENTRY (A) = SEQUENCE NUMBER. 01913 M01S01707.comptfm +++|* 01914 M01S01708.comptfm +++|* EXIT DISPLAY CODE OF SEQUENCE NUMBER STORE IN *IAMA*. 01915 M01S01709.comptfm +++|* 01916 M01S01710.comptfm +++|* USES T1. 01917 M01S01711.comptfm +++|* 01918 M01S01712.comptfm +++|* CALLS C2D. 01919 M01S01713.comptfm +++| 01920 M01S01714.comptfm +++| 01921 M01S01715.comptfm +++| CSN SUBR ENTRY/EXIT 01922 M01S01716.comptfm +++| STD T1 01923 M01S01717.comptfm +++| SHN -11 01924 M01S01718.comptfm +++| RJM C2D CONVERT 2 OCTAL DIGITS 01925 M01S01719.comptfm +++| STM IAMA+13 01926 M01S01720.comptfm +++| LDD T1 01927 M01S01721.comptfm +++| SHN -3 01928 M01S01722.comptfm +++| RJM C2D CONVERT 2 OCTAL DIGITS 01929 M01S01723.comptfm +++| STM IAMA+14 01930 M01S01724.comptfm +++| LDD T1 01931 M01S01725.comptfm +++| LPN 7 01932 M01S01726.comptfm +++| SHN 6 01933 M01S01727.comptfm +++| ADC 2R0/ 01934 M01S01728.comptfm +++| STM IAMA+15 01935 M01S01729.comptfm +++| UJN CSNX RETURN 01936 M01S01730.comptfm +++| CSN$ ENDIF 01937 M01S01731.comptfm +++| FAM$ IF DEF,FAM$ 01938 M01S01732.comptfm +++| FAM SPACE 4,10 01939 M01S01733.comptfm +++|** FAM - FORMAT ACCOUNT FILE MESSAGE. 01940 M01S01734.comptfm +++|* 01941 M01S01735.comptfm +++|* *FAM* FORMATS THE ACCOUNT FILE MESSAGES FOR *IAM* AND *IRM*. 01942 M01S01736.comptfm +++|*
| Line S01737 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01943 M02S01737.t5472 ---|* ENTRY (CM - CM+4) = C* YY/MM/DD.*, IF CONDITIONAL RELEASE. 01944 M01S00012.t5472 +++|* ENTRY (A) = 0 IF RESERVE MESSAGE TO BE ISSUED. 01945 M01S00013.t5472 +++|* .NE. 0 IF RELEASE MESSAGE TO BE ISSUED. 01946 M01S00014.t5472 +++|* (CM - CM+4) = * YY/MM/DD.* IF CONDITIONAL RELEASE. 01947 M01S01738.comptfm +++|* = 0, IF UNCONDITIONAL RELEASE. 01948 M01S01739.comptfm +++|* (CSNA - CSNA+2) = DISPLAY CODE FOR SEQUENCE NUMBER. 01949 M01S01740.comptfm +++|* (PBUN - PBUN+3) = TAPE OWNER USERNAME. 01950 M01S01741.comptfm +++|* (PFAM - PFAM+3) = TAPE OWNER FAMILY NAME. 01951 M01S01742.comptfm +++|* (PESN - PESN+2) = FIRST TAPE VSN. 01952 M01S01743.comptfm +++|* (PVSN - PVSN+2) = CURRENT TAPE VSN.
| Line S01744 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01953 M02S01744.t5472 ---|* (T4) = 0, IF RESERVE MESSAGE DESIRED.
| Line S01745 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01954 M02S01745.t5472 ---|* .NE. 0, IF RELEASE MESSAGE DESIRED. 01955 M01S01746.comptfm +++|* 01956 M01S01747.comptfm +++|* EXIT (A) = 0, IF MESSAGE ENDED ON PP WORD BOUNDARY. 01957 M01S01748.comptfm +++|* .NE. 0, IF TO USE LOWER SIX BITS FOR PERIOD. 01958 M01S01749.comptfm +++|* (T2) = POINTER TO LWA OF MESSAGE FORMATTED. 01959 M01S01750.comptfm +++|* 01960 M01S01751.comptfm +++|* USES T0 - T3. 01961 M01S01752.comptfm +++|* 01962 M01S01753.comptfm +++|* MACROS MMOVE. 01963 M01S01754.comptfm +++| 01964 M01S01755.comptfm +++| 01965 M01S01756.comptfm +++| FAM SUBR ENTRY/EXIT
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01966 M02S00015.ns2763 ---| STM FAMA SAVE RESERVE/RELEASE FLAG 01967 M01S00114.ns2763 +++| STD T0 SAVE RESERVE/RELEASE FLAG 01968 M01S01757.comptfm +++| LDC IAMA+3 SET POINTER TO FAMILY NAME 01969 M01S01758.comptfm +++| STD T2 01970 M01S01759.comptfm +++| MMOVE PFAM,,,,7 01971 M01S01760.comptfm +++| AOD T2 01972 M01S01761.comptfm +++| MMOVE PBUN,,,,7 01973 M01S01762.comptfm +++| LDI T2 01974 M01S01763.comptfm +++| SCN 77 01975 M01S01764.comptfm +++| ADN 1R/ 01976 M01S01765.comptfm +++| STI T2 01977 M01S01766.comptfm +++| LDN 4 SKIP OVER SEQUENCE NUMBER 01978 M01S01767.comptfm +++| RAD T2 01979 M01S01768.comptfm +++| MMOVE PESN,,,,6 01980 M01S01769.comptfm +++| LDC 2R, 01981 M01S01770.comptfm +++| STI T2 01982 M01S01771.comptfm +++| AOD T2
| Line S01772 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01983 M02S01772.t5472 ---| LDD T4
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01984 M02S00016.ns2763 ---| LDC 0 CHECK IF RESERVE
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01985 M02S00017.ns2763 ---|* LDC * (CHECK IF RELEASE)
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01986 M02S00018.ns2763 ---| FAMA EQU *-1 01987 M01S00115.ns2763 +++| LDD T0 CHECK IF RESERVE 01988 M01S01773.comptfm +++| ZJN FAM2 IF RESERVE 01989 M01S01774.comptfm +++| LDD CM
| Line S01775 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 01990 M02S01775.t2807 ---| ZJN FAM1 IF UNCONDITIONAL RELEASE
| Line S01776 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 01991 M02S01776.t2807 ---| MMOVE CM,,,,12 01992 M01S00008.t2807 +++| ZJN FAM1.1 IF UNCONDITIONAL RELEASE 01993 M01S00009.t2807 +++| MMOVE CM,,,,11 01994 M01S01777.comptfm +++| FAM1 UJP FAMX RETURN 01995 M01S00010.t2807 +++| 01996 M01S00011.t2807 +++| FAM1.1 SOD T2 SET NO PARAMETER AT END OF MESSAGE 01997 M01S00012.t2807 +++| LDN 0 01998 M01S00013.t2807 +++| STI T2 01999 M01S00014.t2807 +++| UJN FAM1 RETURN 02000 M01S01778.comptfm +++| 02001 M01S01779.comptfm +++| FAM2 MMOVE PVSN,,,,6 02002 M01S01780.comptfm +++| UJN FAM1 RETURN 02003 M01S01781.comptfm +++| FAM$ ENDIF 02004 M01S01782.comptfm +++| GEP$ IF DEF,GEP$ 02005 M01S01783.comptfm +++| GEP SPACE 4,10 02006 M01S01784.comptfm +++|** GEP - GENERATE EMPTY PRU. 02007 M01S01785.comptfm +++|* 02008 M01S01786.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02009 M01S01787.comptfm +++| 02010 M01S01788.comptfm +++| 02011 M01S01789.comptfm +++| GEP SUBR ENTRY/EXIT 02012 M01S01790.comptfm +++| LDD BA 02013 M01S01791.comptfm +++| ADN 2 02014 M01S01792.comptfm +++| STD BP 02015 M01S01793.comptfm +++| STD T1 02016 M01S01794.comptfm +++| CLEAR ,,64D*10D 02017 M01S01795.comptfm +++| LDD HN 02018 M01S01796.comptfm +++| STM CWWC,BA
| Line S01797 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02019 M02S01797.ns2763 ---| LDC RTSB*100 SET RECORD TYPE 02020 M01S00116.ns2763 +++| LDK RTSB*100 SET RECORD TYPE 02021 M01S01798.comptfm +++| STM CWRT,BA 02022 M01S01799.comptfm +++| LDN 64D-4 SET UNUSED WORD COUNT 02023 M01S01800.comptfm +++| STM CWUW,BA 02024 M01S01801.comptfm +++| LDN 0 02025 M01S01802.comptfm +++| STM CWEL,BA 02026 M01S01803.comptfm +++| STM CWNE,BA 02027 M01S01804.comptfm +++| LDN TBHL SET FIRST DATA WORD 02028 M01S01805.comptfm +++| STM CWFE,BA 02029 M01S01806.comptfm +++| UJP GEPX RETURN 02030 M01S01807.comptfm +++| GEP$ ENDIF 02031 M01S01808.comptfm +++| GNB$ IF DEF,GNB$ 02032 M01S01809.comptfm +++| GNB SPACE 4,10 02033 M01S01810.comptfm +++|** GNB - GET NEXT BLOCK. 02034 M01S01811.comptfm +++|* 02035 M01S01812.comptfm +++|* ENTRY (CTSB, CTSB+1) = CATALOG FST ADDRESS. 02036 M01S01813.comptfm +++|* (BA) = BUFFER ADDRESS. 02037 M01S01814.comptfm +++|* (RI - RI+1) = RANDOM INDEX. 02038 M01S01815.comptfm +++|* (CPRI - CPRI) = CURRENT POSITION. 02039 M01S01816.comptfm +++|* 02040 M01S01817.comptfm +++|* EXIT (A) = RANDOM INDEX OF CURRENT BLOCK. 02041 M01S01818.comptfm +++|* (CPRI - CPRI+1) = CURRENT POSITION. 02042 M01S01819.comptfm +++|* 02043 M01S01820.comptfm +++|* USES CPRI - CPRI+1. 02044 M01S01821.comptfm +++|* 02045 M01S01822.comptfm +++|* CALLS RRP. 02046 M01S01823.comptfm +++|* 02047 M01S01824.comptfm +++|* MACROS ERROR. 02048 M01S01825.comptfm +++| 02049 M01S01826.comptfm +++| 02050 M01S01827.comptfm +++| GNB2 LDD RI SET CURRENT FILE POSITION 02051 M01S01828.comptfm +++| STM CPRI 02052 M01S01829.comptfm +++| SHN 14 02053 M01S01830.comptfm +++| LMD RI+1 02054 M01S01831.comptfm +++| STM CPRI+1 02055 M01S01832.comptfm +++| 02056 M01S01833.comptfm +++| GNB SUBR ENTRY/EXIT 02057 M01S01834.comptfm +++| RJM RRP READ RANDOM PRU 02058 M01S01835.comptfm +++| LDD BA 02059 M01S01836.comptfm +++| ADN 2 02060 M01S01837.comptfm +++| STD BP 02061 M01S01838.comptfm +++| LDM CWBI,BA 02062 M01S01839.comptfm +++| LMM CPRI
| Line S01840 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02063 M02S01840.nos252 ---| NJN GNB1 IF INVALID LINKAGE 02064 M01S00029.nos252 +++| NJN GNB1 IF INCORRECT LINKAGE 02065 M01S01841.comptfm +++| LDM CWBI+1,BA 02066 M01S01842.comptfm +++| LMM CPRI+1 02067 M01S01843.comptfm +++| ZJN GNB2 IF VALID LINKAGE 02068 M01S01844.comptfm +++| GNB1 ERROR CLE *CATALOG LINKAGE ERROR.* 02069 M01S01845.comptfm +++| GNB$ ENDIF 02070 M01S01846.comptfm +++| GNL$ IF DEF,GNL$ 02071 M01S01847.comptfm +++| GNL SPACE 4,10 02072 M01S01848.comptfm +++|** GNL - GET NEXT LINK. 02073 M01S01849.comptfm +++|* 02074 M01S01850.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02075 M01S01851.comptfm +++|* 02076 M01S01852.comptfm +++|* EXIT (A) = 1 IF BLOCK LINKED. 02077 M01S01853.comptfm +++|* (A) = 0 IF BLOCK NOT LINKED. 02078 M01S01854.comptfm +++|* (RI - RI+1) = RANDOM INDEX OF NEXT BLOCK. 02079 M01S01855.comptfm +++|* 02080 M01S01856.comptfm +++|* USES RI - RI+1. 02081 M01S01857.comptfm +++| 02082 M01S01858.comptfm +++| 02083 M01S01859.comptfm +++| GNL SUBR ENTRY/EXIT 02084 M01S01860.comptfm +++| LDA CWRI,BA 02085 M01S01861.comptfm +++| ZJN GNLX IF BLOCK NOT LINKED 02086 M01S01862.comptfm +++| STD RI+1 02087 M01S01863.comptfm +++| SHN -14 02088 M01S01864.comptfm +++| STD RI 02089 M01S01865.comptfm +++| LDN 1 02090 M01S01866.comptfm +++| UJN GNLX RETURN 02091 M01S01867.comptfm +++| GNL$ ENDIF
| Line S01868 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02092 M02S01868.t5519 ---| GPB$ IF DEF,GPB$
| Line S01869 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02093 M02S01869.t5519 ---| GPB SPACE 4,10
| Line S01870 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02094 M02S01870.t5519 ---|** GPB - GET PREVIOUS BLOCK.
| Line S01871 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02095 M02S01871.t5519 ---|*
| Line S01872 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02096 M02S01872.t5519 ---|* ENTRY (CO) = CATALOG FST ORDINAL.
| Line S01873 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02097 M02S01873.t5519 ---|* (BA) = BUFFER ADDRESS.
| Line S01874 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02098 M02S01874.t5519 ---|* (RI + RI+1) = RANDOM INDEX.
| Line S01875 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02099 M02S01875.t5519 ---|*
| Line S01876 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02100 M02S01876.t5519 ---|* EXIT (A) = RANDOM INDEX OF CURRENT BLOCK.
| Line S01877 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02101 M02S01877.t5519 ---|* (CPRI - CPRI+1) = CURRENT POSITION.
| Line S01878 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02102 M02S01878.t5519 ---|
| Line S01879 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02103 M02S01879.t5519 ---|*
| Line S01880 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02104 M02S01880.t5519 ---|* USES CPRI - CPRI+1.
| Line S01881 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02105 M02S01881.t5519 ---|*
| Line S01882 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02106 M02S01882.t5519 ---|* CALLS RRP.
| Line S01883 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02107 M02S01883.t5519 ---|*
| Line S01884 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02108 M02S01884.t5519 ---|* MACROS ERROR.
| Line S01885 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02109 M02S01885.t5519 ---|
| Line S01886 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02110 M02S01886.t5519 ---| GPB2 LDD RI SET CURRENT FILE POSITION
| Line S01887 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02111 M02S01887.t5519 ---| STM CPRI
| Line S01888 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02112 M02S01888.t5519 ---| SHN 14
| Line S01889 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02113 M02S01889.t5519 ---| LMD RI+1
| Line S01890 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02114 M02S01890.t5519 ---| STM CPRI+1
| Line S01891 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02115 M02S01891.t5519 ---|
| Line S01892 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02116 M02S01892.t5519 ---| GPB SUBR ENTRY/EXIT
| Line S01893 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02117 M02S01893.t5519 ---| RJM RRP READ RANDOM PRU
| Line S01894 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02118 M02S01894.t5519 ---| LDD BA
| Line S01895 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02119 M02S01895.t5519 ---| ADN 2
| Line S01896 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02120 M02S01896.t5519 ---| STD BP
| Line S01897 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02121 M02S01897.t5519 ---| LDM CWRI,BA
| Line S01898 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02122 M02S01898.t5519 ---| LMM CPRI
| Line S01899 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02123 M02S01899.t5519 ---| NJN GPB1 IF INVALID LINKAGE
| Line S01900 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02124 M02S01900.t5519 ---| LDM CWRI+1,BA
| Line S01901 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02125 M02S01901.t5519 ---| LMM CPRI+1
| Line S01902 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02126 M02S01902.t5519 ---| ZJN GPB2 IF VALID LINKAGE
| Line S01903 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02127 M02S01903.t5519 ---| GPB1 ERROR CLE *CATALOG LINKAGE ERROR.*
| Line S01904 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02128 M02S01904.t5519 ---| GPB$ ENDIF 02129 M01S01905.comptfm +++| GPL$ IF DEF,GPL$ 02130 M01S01906.comptfm +++| GPL SPACE 4,10 02131 M01S01907.comptfm +++|** GPL - GET PREVIOUS LINK. 02132 M01S01908.comptfm +++|* 02133 M01S01909.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02134 M01S01910.comptfm +++|* 02135 M01S01911.comptfm +++|* EXIT (A) = 1 IF BLOCK LINKED. 02136 M01S01912.comptfm +++|* (A) = 0 IF BLOCK NOT LINKED. 02137 M01S01913.comptfm +++|* (RI - RI+1) = RANDOM INDEX TO PREVIOUS BLOCK. 02138 M01S01914.comptfm +++|* 02139 M01S01915.comptfm +++|* USES RI - RI+1. 02140 M01S01916.comptfm +++| 02141 M01S01917.comptfm +++| 02142 M01S01918.comptfm +++| GPL SUBR ENTRY/EXIT 02143 M01S01919.comptfm +++| LDA CWBI,BA 02144 M01S01920.comptfm +++| ZJN GPLX IF BLOCK NOT LINKED 02145 M01S01921.comptfm +++| STD RI+1 02146 M01S01922.comptfm +++| SHN -14 02147 M01S01923.comptfm +++| STD RI 02148 M01S01924.comptfm +++| LDN 1 02149 M01S01925.comptfm +++| UJN GPLX RETURN 02150 M01S01926.comptfm +++| GPL$ ENDIF 02151 M01S01927.comptfm +++| IBC$ IF DEF,IBC$ 02152 M01S01928.comptfm +++| IBC SPACE 4,10 02153 M01S01929.comptfm +++|** IBC - INITIALIZE BLOCK CHAIN. 02154 M01S01930.comptfm +++|* 02155 M01S01931.comptfm +++| 02156 M01S01932.comptfm +++| 02157 M01S01933.comptfm +++| IBC SUBR ENTRY/EXIT 02158 M01S01934.comptfm +++| AOM LNBA BYPASS WRITE OF CURRENT BLOCK 02159 M01S01935.comptfm +++| LDC LDCI*100 02160 M01S01936.comptfm +++| STM LNBD+1 02161 M01S01937.comptfm +++| STM LNBF+1 02162 M01S01938.comptfm +++| SHN -6 02163 M01S01939.comptfm +++| STM LNBD 02164 M01S01940.comptfm +++| STM LNBF 02165 M01S01941.comptfm +++| RJM LNB LINK NEXT BLOCK 02166 M01S01942.comptfm +++| UJN IBCX RETURN 02167 M01S01943.comptfm +++| IBC$ ENDIF 02168 M01S01944.comptfm +++| IDE$ IF DEF,IDE$ 02169 M01S01945.comptfm +++| IDE SPACE 4,10 02170 M01S01946.comptfm +++|** IDE - INSERT DATA ENTRY. 02171 M01S01947.comptfm +++|* 02172 M01S01948.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02173 M01S01949.comptfm +++|* (BP) = BUFFER POINTER FOR INSERT. 02174 M01S01950.comptfm +++|* (PB) = PARAMETER BLOCK ADDRESS FOR DATA ENTRY. 02175 M01S01951.comptfm +++| 02176 M01S01952.comptfm +++| 02177 M01S01953.comptfm +++| IDE SUBR ENTRY/EXIT 02178 M01S01954.comptfm +++| LDI BP CHECK FOR EMPTY ENTRY 02179 M01S01955.comptfm +++| ZJN IDE1 IF EMPTY ENTRY 02180 M01S01956.comptfm +++| LDM CWEL,BA MOVE ENTRIES DOWN 02181 M01S01957.comptfm +++| SHN 14 02182 M01S01958.comptfm +++| LMM CWNE,BA 02183 M01S01959.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 02184 M01S01960.comptfm +++| ADM CWFE,BA 02185 M01S01961.comptfm +++| STD T1 CONVERT TO BYTES 02186 M01S01962.comptfm +++| SHN 2 02187 M01S01963.comptfm +++| RAD T1 02188 M01S01964.comptfm +++| AOD T1 02189 M01S01965.comptfm +++| LDD BA BIAS BY BUFFER ADDRESS 02190 M01S01966.comptfm +++| RAD T1 02191 M01S01967.comptfm +++| SBD BP SET BYTE COUNT FOR MOVE 02192 M01S01968.comptfm +++| ADN 1 02193 M01S01969.comptfm +++| IDE1 ZJN IDE3 IF BLOCK MOVE NOT NECESSARY 02194 M01S01970.comptfm +++| STD T0 02195 M01S01971.comptfm +++| LDM CWEL,BA SET FWA OF DESTINATION 02196 M01S01972.comptfm +++| STD T2 02197 M01S01973.comptfm +++| SHN 2 02198 M01S01974.comptfm +++| RAD T2 02199 M01S01975.comptfm +++| LDD T1 02200 M01S01976.comptfm +++| RAD T2 02201 M01S01977.comptfm +++| IDE2 LDI T1 MOVE BLOCK LOOP 02202 M01S01978.comptfm +++| STI T2 02203 M01S01979.comptfm +++| SOD T1 02204 M01S01980.comptfm +++| SOD T2 02205 M01S01981.comptfm +++| SOD T0 02206 M01S01982.comptfm +++| NJN IDE2 IF MORE TO MOVE 02207 M01S01983.comptfm +++| IDE3 LDD PB ENTER DATA 02208 M01S01984.comptfm +++| STD T1 02209 M01S01985.comptfm +++| LDD BP 02210 M01S01986.comptfm +++| STD T2 02211 M01S01987.comptfm +++| LDM CWEL,BA 02212 M01S01988.comptfm +++| STD T0 02213 M01S01989.comptfm +++| SHN 2 02214 M01S01990.comptfm +++| RAD T0 02215 M01S01991.comptfm +++| IDE4 LDI T1 MOVE DATA LOOP 02216 M01S01992.comptfm +++| STI T2 02217 M01S01993.comptfm +++| AOD T1 02218 M01S01994.comptfm +++| AOD T2 02219 M01S01995.comptfm +++| SOD T0 02220 M01S01996.comptfm +++| NJN IDE4 IF MORE TO MOVE 02221 M01S01997.comptfm +++| AOM CWNE,BA UPDATE BLOCK CONTROL WORDS 02222 M01S01998.comptfm +++| IF DEF,RIB$,2 02223 M01S01999.comptfm +++| RJM RIB ROOM IN BLOCK 02224 M01S02000.comptfm +++| SKIP 2 02225 M01S02001.comptfm +++| LDM CWUW,BA 02226 M01S02002.comptfm +++| SBM CWEL,BA 02227 M01S02003.comptfm +++| STM CWUW,BA 02228 M01S02004.comptfm +++| LJM IDEX RETURN 02229 M01S02005.comptfm +++| IDE$ ENDIF 02230 M01S02006.comptfm +++| IRS$ IF DEF,IRS$ 02231 M01S02007.comptfm +++| IRS SPACE 4,15 02232 M01S02008.comptfm +++|** IRS - ISSUE *TMS* RECOVERY MESSAGES SUBROUTINE. 02233 M01S02009.comptfm +++|* 02234 M01S02010.comptfm +++|* ENTRY (A) = 0, IF ON A WORD BOUNDARY. 02235 M01S02011.comptfm +++|* .NE. 0, IF TO USE LOWER SIX BITS FOR PERIOD. 02236 M01S02012.comptfm +++|* 02237 M01S02013.comptfm +++|* EXIT (T2) = RESET FOR NEXT MESSAGE BUILD. 02238 M01S02014.comptfm +++|* (IAMA+1) = INCREMENTED TO NEXT MESSAGE ID. 02239 M01S02015.comptfm +++|* MESSAGE ISSUED TO ACCOUNT FILE. 02240 M01S02016.comptfm +++|* 02241 M01S02017.comptfm +++|* USES T0 - T4. 02242 M01S02018.comptfm +++|* 02243 M01S02019.comptfm +++|* CALLS DFM, SCC. 02244 M01S02020.comptfm +++| 02245 M01S02021.comptfm +++| 02246 M01S02022.comptfm +++| IRS1 LDI T2 02247 M01S02023.comptfm +++| SCN 77 02248 M01S02024.comptfm +++| ADN 1R. 02249 M01S02025.comptfm +++| IRS2 STI T2 02250 M01S02026.comptfm +++| LDN 0 TERMINATE MESSAGE 02251 M01S02027.comptfm +++| STM 1,T2 02252 M01S02028.comptfm +++| LDN 1R 02253 M01S02029.comptfm +++| STD T3 02254 M01S02030.comptfm +++| LDC IAMA+1 02255 M01S02031.comptfm +++| STD T4 02256 M01S02032.comptfm +++| RJM SCC SPACE-FILL DAYFILE MESSAGE 02257 M01S02033.comptfm +++| LDC TMSG+IAMA ISSUE RECOVERY MESSAGES 02258 M01S02034.comptfm +++| IFNE TMSG,0,1 02259 M01S02035.comptfm +++| RJM DFM
| Line S02036 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02260 M02S02036.nos252 ---| LDD HN INCREMENT ACCOUNT MESSAGE IDENT
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02261 M02S00030.ns2763 ---| LDD ON INCREMENT ACCOUNT MESSAGE IDENT
| Line S02037 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02262 M02S02037.ns2763 ---| RAM IAMA+1 02263 M01S00117.ns2763 +++| AOM IAMA+1 INCREMENT ACCOUNT MESSAGE IDENT 02264 M01S02038.comptfm +++| LDC IAMA+7 SETUP FOR *MMOVE* MACRO 02265 M01S02039.comptfm +++| STD T2 02266 M01S02040.comptfm +++| 02267 M01S02041.comptfm +++| IRS SUBR ENTRY/EXIT 02268 M01S02042.comptfm +++| NJN IRS1 IF NOT ON A WORD BOUNDARY 02269 M01S02043.comptfm +++| LDC 5700 (.:) 02270 M01S02044.comptfm +++| UJN IRS2 FINISH PROCESSING 02271 M01S02045.comptfm +++| 02272 M01S02046.comptfm +++| SCC$ EQU 1 DEFINE SCC - SUBSTITUTE CHAR. FOR COLON 02273 M01S02047.comptfm +++| IRS$ ENDIF 02274 M01S02048.comptfm +++| SCC$ IF DEF,SCC$ 02275 M01S02049.comptfm +++| SCC SPACE 4,15 02276 M01S02050.comptfm +++|** SCC - SUBSTITUTE CHARACTER FOR COLON. 02277 M01S02051.comptfm +++|* 02278 M01S02052.comptfm +++|* ENTRY (T2) = LAST CHARACTER TO CHECK FOR SUBSTITUTION. 02279 M01S02053.comptfm +++|* (T3) = CHARACTER TO SUBSTITUTE FOR COLONS. 02280 M01S02054.comptfm +++|* (T4) = FWA OF STRING TO CHECK FOR COLONS. 02281 M01S02055.comptfm +++|* 02282 M01S02056.comptfm +++|* EXIT (A) = (T0) = 0, IF CHARACTER IN STRING MATCHES 02283 M01S02057.comptfm +++|* SUBSTITUTION CHARACTER. 02284 M01S02058.comptfm +++|* .NE. 0, IF NO MATCHES FOUND. 02285 M01S02059.comptfm +++|* 02286 M01S02060.comptfm +++|* USES T0, T2. 02287 M01S02061.comptfm +++| 02288 M01S02062.comptfm +++| 02289 M01S00118.ns2763 +++| SCC5 LMD T3 02290 M01S00119.ns2763 +++| NJN SCC6 IF NO MATCH WITH SUBSTITUTION CHARACTER 02291 M01S00120.ns2763 +++| STD T0 SET MATCH FLAG 02292 M01S00121.ns2763 +++| SCC6 SOD T2 DECREMENT TO NEXT BYTE 02293 M01S00122.ns2763 +++| SBD T4 02294 M01S00123.ns2763 +++| PJN SCC1 IF NOT THROUGH CHECKING ALL CHARACTERS 02295 M01S00124.ns2763 +++| LDD T0 02296 M01S00125.ns2763 +++| 02297 M01S02063.comptfm +++| SCC SUBR ENTRY/EXIT 02298 M01S02064.comptfm +++| LDN 1 SET T0 NON-ZERO 02299 M01S02065.comptfm +++| STD T0 02300 M01S02066.comptfm +++| SCC1 LDI T2 GET CHARACTER TO CHECK 02301 M01S02067.comptfm +++| SHN -6 02302 M01S02068.comptfm +++| NJN SCC4 IF CHARACTER IS NOT A COLON 02303 M01S02069.comptfm +++| LDD T3 02304 M01S02070.comptfm +++| SHN 6 02305 M01S02071.comptfm +++| RAI T2 02306 M01S02072.comptfm +++| SCC2 LDI T2 GET NEXT CHARACTER TO CHECK 02307 M01S02073.comptfm +++| LPN 77
| Line S02074 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02308 M02S02074.ns2763 ---| NJN SCC5 IF CHARACTER IS NOT A COLON 02309 M01S00126.ns2763 +++| NJP SCC5 IF CHARACTER IS NOT A COLON 02310 M01S02075.comptfm +++| LDD T3 02311 M01S02076.comptfm +++| RAI T2
| Line S02077 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02312 M02S02077.ns2763 ---| SCC3 SOD T2 DECREMENT TO NEXT BYTE
| Line S02078 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02313 M02S02078.ns2763 ---| SBD T4
| Line S02079 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02314 M02S02079.ns2763 ---| PJN SCC1 IF NOT THROUGH CHECKING ALL CHARACTERS
| Line S02080 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02315 M02S02080.ns2763 ---| LDD T0
| Line S02081 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02316 M02S02081.ns2763 ---| UJP SCCX RETURN 02317 M01S00127.ns2763 +++| UJP SCC6 CHECK NEXT BYTE 02318 M01S02082.comptfm +++| 02319 M01S02083.comptfm +++| SCC4 LMD T3 02320 M01S02084.comptfm +++| NJN SCC2 IF NO MATCH WITH SUBSTITUTION CHARACTER 02321 M01S02085.comptfm +++| STD T0 SET MATCH FLAG 02322 M01S02086.comptfm +++| UJP SCC2 CHECK NEXT CHARACTER
| Line S02087 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02323 M02S02087.ns2763 ---|
| Line S02088 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02324 M02S02088.ns2763 ---| SCC5 LMD T3
| Line S02089 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02325 M02S02089.ns2763 ---| NJN SCC3 IF NO MATCH WITH SUBSTITUTION CHARACTER
| Line S02090 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02326 M02S02090.ns2763 ---| STD T0 SET MATCH FLAG
| Line S02091 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02327 M02S02091.ns2763 ---| UJP SCC3 CHECK NEXT BYTE 02328 M01S02092.comptfm +++| 02329 M01S02093.comptfm +++| SCC$ ENDIF 02330 M01S02094.comptfm +++| ISK$ IF DEF,ISK$ 02331 M01S02095.comptfm +++| ISK SPACE 4,10 02332 M01S02096.comptfm +++|** ISK - INDEX SEARCH FOR KEY. 02333 M01S02097.comptfm +++|* 02334 M01S02098.comptfm +++|* ENTRY (KA) = KEY ADDRESS. 02335 M01S02099.comptfm +++|* (RI - RI+1) = RANDOM INDEX OF PRIMARY INDEX. 02336 M01S02100.comptfm +++|* 02337 M01S02101.comptfm +++|* EXIT (A) .EQ. 0 IF FOUND. 02338 M01S02102.comptfm +++|* .GT. 0 IF NOT FOUND. 02339 M01S02103.comptfm +++|* .EQ. -0 IF END OF INDEX. 02340 M01S02104.comptfm +++|* (CPPI) = BUFFER ADDRESS OF PRIMARY INDEX. 02341 M01S02105.comptfm +++|* (CPPI+4) = BUFFER POINTER OF PRIMARY INDEX. 02342 M01S02106.comptfm +++|* (CPSI) = BUFFER ADDRESS OF SECONDARY INDEX. 02343 M01S02107.comptfm +++|* (CPSI+4) = BUFFER POINTER OF SECONDARY INDEX. 02344 M01S02108.comptfm +++|* 02345 M01S02109.comptfm +++|* USES CPPI - CPPI+4, CPSI - CPSI+4, RI - RI+1. 02346 M01S02110.comptfm +++|* 02347 M01S02111.comptfm +++|* CALLS BSE, GIB, GNB, GNL, GPL, MBP, PLI, SIB, TBA. 02348 M01S02112.comptfm +++|* 02349 M01S02113.comptfm +++|* MACROS CLEAR, ERROR, SAVEP. 02350 M01S02114.comptfm +++| 02351 M01S02115.comptfm +++| 02352 M01S02116.comptfm +++| ISK6 STM ISKA+1 SAVE EXIT CONDITION 02353 M01S02117.comptfm +++| SHN -14 02354 M01S02118.comptfm +++| LMC LDCI 02355 M01S02119.comptfm +++| STM ISKA 02356 M01S02120.comptfm +++| SAVEP CPSI SAVE SECONDARY POINTERS 02357 M01S02121.comptfm +++| LDC ** 02358 M01S02122.comptfm +++| ISKA EQU *-2 (EXIT CONDITION) 02359 M01S02123.comptfm +++| 02360 M01S02124.comptfm +++| ISK SUBR ENTRY/EXIT 02361 M01S02125.comptfm +++| CLEAR CPPI,,2*10D 02362 M01S02126.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 02363 M01S02127.comptfm +++| RJM GIB GET INITIAL BLOCK 02364 M01S02128.comptfm +++| ISK1 LDM CWFE,BA 02365 M01S02129.comptfm +++| RJM MBP MOVE BUFFER POINTER 02366 M01S02130.comptfm +++| RJM SIB SEARCH INDEX BUFFER 02367 M01S02131.comptfm +++| ZJN ISK4 IF KEY FOUND IN PRIMARY INDEX 02368 M01S02132.comptfm +++| PJN ISK2 IF POSSIBLE MATCH 02369 M01S02133.comptfm +++| RJM GNL GET NEXT LINK 02370 M01S02134.comptfm +++| ZJN ISK2 IF BLOCK NOT LINKED 02371 M01S02135.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 02372 M01S02136.comptfm +++| RJM GNB GET NEXT BLOCK 02373 M01S02137.comptfm +++| UJN ISK1 SEARCH PRIMARY INDEX 02374 M01S02138.comptfm +++| 02375 M01S02139.comptfm +++| ISK2 RJM BSE BACK SPACE ONE ENTRY 02376 M01S02140.comptfm +++| NJN ISK4 IF NOT FIRST ENTRY 02377 M01S02141.comptfm +++| RJM GPL GET PREVIOUS LINK 02378 M01S02142.comptfm +++| NJN ISK3 IF BLOCK NOT LINKED 02379 M01S02143.comptfm +++| LCN 0 SET END OF INDEX 02380 M01S02144.comptfm +++| LJM ISKX RETURN 02381 M01S02145.comptfm +++| 02382 M01S02146.comptfm +++| ISK3 RJM TBA TOGGLE BUFFER ASSIGNMENT 02383 M01S02147.comptfm +++| RJM PLI POSITION TO LAST INDEX 02384 M01S02148.comptfm +++| ISK4 SAVEP CPPI SAVE PRIMARY POINTERS 02385 M01S02149.comptfm +++| LDM 3,BP SET SECONDARY INDEX R.I. 02386 M01S02150.comptfm +++| LPN 77 02387 M01S02151.comptfm +++| STD RI 02388 M01S02152.comptfm +++| SHN 14 02389 M01S02153.comptfm +++| LMM 4,BP 02390 M01S02154.comptfm +++| STD RI+1 02391 M01S02155.comptfm +++| NJN ISK5 IF SECONDARY INDEX 02392 M01S02156.comptfm +++| ERROR EID *ERROR IN INDEX DATA.* 02393 M01S02157.comptfm +++| 02394 M01S02158.comptfm +++| ISK5 RJM TBA TOGGLE BUFFER ASSIGNMENT 02395 M01S02159.comptfm +++| RJM GIB GET INITIAL BLOCK 02396 M01S02160.comptfm +++| LDM CWFE,BA 02397 M01S02161.comptfm +++| RJM MBP MOVE BUFFER POINTER 02398 M01S02162.comptfm +++| RJM SIB SEARCH INDEX BUFFER 02399 M01S02163.comptfm +++| LJM ISK6 RETURN 02400 M01S02164.comptfm +++| ISK$ ENDIF 02401 M01S02165.comptfm +++| ISP$ IF DEF,ISP$ 02402 M01S02166.comptfm +++| ISP SPACE 4,10 02403 M01S02167.comptfm +++|** ISP - INITIALIZE SCRATCH PROCESSOR. 02404 M01S02168.comptfm +++|*
| Line S02169 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02405 M02S02169.274l797 ---|* SETS THE CURRENT SCRATCH VSN AND SCRATCH COUNT IN
| Line S02170 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02406 M02S02170.274l797 ---|* MEMORY CELLS AVAILABLE TO ROUTINE *RSP* IN THIS OVERLAY. 02407 M01S00041.274l797 +++|* SETS THE CURRENT SCRATCH VSN AND SCRATCH COUNT FOR EACH TAPE 02408 M01S00042.274l797 +++|* TYPE IN CELLS AVAILABLE TO ROUTINE *RSP* IN THIS OVERLAY. 02409 M01S02171.comptfm +++|* 02410 M01S02172.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (TMST). 02411 M01S02173.comptfm +++|* (BP) = BUFFER POINTER (TMST). 02412 M01S02174.comptfm +++|* BUFFER LOADED FROM PRESET. 02413 M01S02175.comptfm +++|*
| Line S02176 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02414 M02S02176.274l797 ---|* EXIT (RSPA - RSPA+2) = CURRENT SCRATCH VSN.
| Line S02177 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02415 M02S02177.274l797 ---|* (PVSN+3 - PVSN+4) = CURRENT SCRATCH COUNT. 02416 M01S00043.274l797 +++|* EXIT (RSPC - RSPC+4) = *MT*/*NT* FIRST SCRATCH VSN, COUNT 02417 M01S00044.274l797 +++|* (RSPD - RSPD+4) = *CT* FIRST SCRATCH VSN, COUNT 02418 M01S00045.274l797 +++|* (RSPE - RSPE+4) = *AT* FIRST SCRATCH VSN, COUNT 02419 M01S02178.comptfm +++|* 02420 M01S02179.comptfm +++|* MACROS MMOVE. 02421 M01S02180.comptfm +++| 02422 M01S02181.comptfm +++| 02423 M01S02182.comptfm +++| ISP SUBR ENTRY/EXIT
| Line S02183 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02424 M02S02183.274l797 ---| MMOVE SBSV,BP,RSPA,,VSKL
| Line S02184 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02425 M02S02184.274l797 ---| LDM SBSC,BP SET SCRATCH COUNT
| Line S02185 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02426 M02S02185.274l797 ---| STM PVSN+3
| Line S02186 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02427 M02S02186.274l797 ---| LDM SBSC+1,BP
| Line S02187 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02428 M02S02187.274l797 ---| STM PVSN+4 02429 M01S00046.274l797 +++| MMOVE SBSM,BP,RSPC,,10D 02430 M01S00047.274l797 +++| MMOVE SBSC,BP,RSPD,,10D 02431 M01S00048.274l797 +++| MMOVE SBSA,BP,RSPE,,10D 02432 M01S02188.comptfm +++| UJN ISPX RETURN 02433 M01S02189.comptfm +++| ISP$ ENDIF 02434 M01S02190.comptfm +++| LNB$ IF DEF,LNB$ 02435 M01S02191.comptfm +++| LNB SPACE 4,10 02436 M01S02192.comptfm +++|** LNB - LINK NEXT BLOCK. 02437 M01S02193.comptfm +++|* 02438 M01S02194.comptfm +++|* ENTRY (CO) = CATALOG FST ADDRESS. 02439 M01S02195.comptfm +++|* (BA) = BUFFER ADDRESS. 02440 M01S02196.comptfm +++|* (RI - RI+1) = RANDOM INDEX OF BLOCK TO LINK. 02441 M01S02197.comptfm +++|* 02442 M01S02198.comptfm +++|* EXIT BUFFER (BA) LOADED AND INITIALIZED. 02443 M01S02199.comptfm +++|* CONTROL WORDS UPDATED. 02444 M01S02200.comptfm +++|* 02445 M01S02201.comptfm +++|* USES FS - FS+4, RI - RI+1, T5 - T5+4. 02446 M01S02202.comptfm +++|* 02447 M01S02203.comptfm +++|* CALLS GEP, MBP, RRP, SEI, SRA, WES, WRP. 02448 M01S02204.comptfm +++|* 02449 M01S02205.comptfm +++|* MACROS LDA. 02450 M01S02206.comptfm +++| 02451 M01S02207.comptfm +++| 02452 M01S02208.comptfm +++| LNB SUBR ENTRY/EXIT 02453 M01S02209.comptfm +++| LDA CPEB,ABS GET EMPTY BLOCK POINTER 02454 M01S02210.comptfm +++| NJP LNB2 IF EXISTING EMPTY PRU 02455 M01S02211.comptfm +++| AOM LNBE SET WRITE EOI SECTOR 02456 M01S02212.comptfm +++| AOM LNBH SET NO HOLE POINTER UPDATE 02457 M01S02213.comptfm +++| LDD FO 02458 M01S02214.comptfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 02459 M01S02215.comptfm +++| CRD FS 02460 M01S02216.comptfm +++| LDD EQ
| Line S02217 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | m1669 |
Seq # *Modification Id* Act ----------------------------+ 02461 M02S02217.m1669 ---| STD EQ 02462 M01S02218.comptfm +++| STD T5 02463 M01S02219.comptfm +++| LDD TK 02464 M01S02220.comptfm +++| STD T6 02465 M01S02221.comptfm +++| RJM SEI SEARCH FOR END OF INFORMATION 02466 M01S02222.comptfm +++| LDD T6 SAVE EOI TRACK 02467 M01S02223.comptfm +++| STD FS+3 02468 M01S02224.comptfm +++| LDD T7 SAVE EOI SECTOR 02469 M01S02225.comptfm +++| STD FS+4 02470 M01S02226.comptfm +++| LDD TK SET FIRST TRACK 02471 M01S02227.comptfm +++| RJM SRA SET RANDOM ADDRESS 02472 M01S02228.comptfm +++| ZJN LNB1 IF TRACK/SECTOR VALID 02473 M01S02229.comptfm +++| ERROR EOI *EOI NOT ON TRACK CHAIN.* 02474 M01S02230.comptfm +++| 02475 M01S02231.comptfm +++| LNB1 LDD RI LOAD EOR RANDOM INDEX TO (A) 02476 M01S02232.comptfm +++| SHN 14 02477 M01S02233.comptfm +++| LMD RI+1 02478 M01S02234.comptfm +++| SBN 1 02479 M01S02235.comptfm +++| LNB2 STM LNBG+1 SET NEXT BLOCK RANDOM ADDRESS 02480 M01S02236.comptfm +++| SHN -14 02481 M01S02237.comptfm +++| LMC LDCI 02482 M01S02238.comptfm +++| STM LNBG 02483 M01S02239.comptfm +++| LDN 0 02484 M01S02240.comptfm +++| LNBA EQU *-1 (BYPASS WRITE OF CURRENT BLOCK) 02485 M01S02241.comptfm +++| NJN LNB3 IF BYPASS WRITE OF CURRENT BLOCK 02486 M01S02242.comptfm +++| LDA LNBG,ABS SET NEXT BLOCK LINKAGE 02487 M01S02243.comptfm +++| STM **,BA 02488 M01S02244.comptfm +++| LNBB EQU *-1 (FWA+1 OF LINKAGE BYTE) 02489 M01S02245.comptfm +++| SHN -14 02490 M01S02246.comptfm +++| STM **,BA 02491 M01S02247.comptfm +++| LNBC EQU *-1 (FWA OF LINKAGE BYTE) 02492 M01S02248.comptfm +++| LDC ** REWRITE CURRENT BLOCK 02493 M01S02249.comptfm +++| LNBD EQU *-2 (RANDOM ADDRESS OF CURRENT BLOCK) 02494 M01S02250.comptfm +++| STD RI+1 02495 M01S02251.comptfm +++| SHN -14 02496 M01S02252.comptfm +++| STD RI 02497 M01S02253.comptfm +++| RJM WRP WRITE RANDOM PRU 02498 M01S02254.comptfm +++| LNB3 LDN 0 CHECK FOR EOI WRITE 02499 M01S02255.comptfm +++| LNBE EQU *-1 (WRITE EOI SECTOR) 02500 M01S02256.comptfm +++| ZJN LNB4 IF NOT EOI WRITE 02501 M01S02257.comptfm +++| RJM WES WRITE EOR/EOI SEQUENCE 02502 M01S02258.comptfm +++| LNB4 LDC ** UPDATE NEXT PRU 02503 M01S02259.comptfm +++| LNBF EQU *-2 (NEXT BLOCK RANDOM INDEX) 02504 M01S02260.comptfm +++| ZJN LNB5 IF ADDING TO END OF CHAIN 02505 M01S02261.comptfm +++| STD RI+1 02506 M01S02262.comptfm +++| SHN -14 02507 M01S02263.comptfm +++| STD RI 02508 M01S02264.comptfm +++| RJM GIB GET INITIAL BLOCK 02509 M01S02265.comptfm +++| LDC ** 02510 M01S02266.comptfm +++| LNBG EQU *-2 (EMPTY BLOCK RANDOM INDEX) 02511 M01S02267.comptfm +++| STM CWBI+1,BA 02512 M01S02268.comptfm +++| SHN -14 02513 M01S02269.comptfm +++| STM CWBI,BA 02514 M01S02270.comptfm +++| RJM WRP WRITE RANDOM PRU 02515 M01S02271.comptfm +++| LNB5 LDA LNBG,ABS GET EMPTY PRU 02516 M01S02272.comptfm +++| STD RI+1 02517 M01S02273.comptfm +++| SHN -14 02518 M01S02274.comptfm +++| STD RI 02519 M01S02275.comptfm +++| RJM GIB GET INITIAL BLOCK 02520 M01S02276.comptfm +++| LDN 0 CHECK HOLE POINTER UPDATE 02521 M01S02277.comptfm +++| LNBH EQU *-1 (NO HOLE POINTER UPDATE) 02522 M01S02278.comptfm +++| NJP LNB6 IF NOT UPDATING HOLE POINTER 02523 M01S02279.comptfm +++| LDM CWRI,BA SET EMPTY BLOCK ADDRESS 02524 M01S02280.comptfm +++| STM CPEB 02525 M01S02281.comptfm +++| LDM CWRI+1,BA 02526 M01S02282.comptfm +++| STM CPEB+1 02527 M01S02283.comptfm +++| LDN TMSB READ SYSTEM BLOCK 02528 M01S02284.comptfm +++| STD RI+1 02529 M01S02285.comptfm +++| SHN -14 02530 M01S02286.comptfm +++| STD RI 02531 M01S02287.comptfm +++| RJM GIB GET INITIAL BLOCK 02532 M01S02288.comptfm +++| LDM CWFE,BA 02533 M01S02289.comptfm +++| RJM MBP MOVE BUFFER POINTER 02534 M01S02290.comptfm +++| LDA CPEB,ABS 02535 M01S02291.comptfm +++| STM SBHP+1,BP 02536 M01S02292.comptfm +++| SHN -14 02537 M01S02293.comptfm +++| STM SBHP,BP 02538 M01S02294.comptfm +++| RJM WRP WRITE RANDOM PRU 02539 M01S02295.comptfm +++| LDA LNBG,ABS 02540 M01S02296.comptfm +++| STD RI+1 02541 M01S02297.comptfm +++| SHN -14 02542 M01S02298.comptfm +++| STD RI 02543 M01S02299.comptfm +++| RJM GIB GET INITIAL BLOCK 02544 M01S02300.comptfm +++| LNB6 RJM GEP GENERATE EMPTY PRU 02545 M01S02301.comptfm +++| LDA LNBD,ABS PREVIOUS BLOCK RANDOM INDEX 02546 M01S02302.comptfm +++| STM CWBI+1,BA 02547 M01S02303.comptfm +++| SHN -14 02548 M01S02304.comptfm +++| STM CWBI,BA 02549 M01S02305.comptfm +++| LDA LNBF,ABS 02550 M01S02306.comptfm +++| STM CWRI+1,BA 02551 M01S02307.comptfm +++| SHN -14 02552 M01S02308.comptfm +++| STM CWRI,BA 02553 M01S02309.comptfm +++| LDC LDNI 02554 M01S02310.comptfm +++| STM LNBA RESET WRITE CURRENT BLOCK 02555 M01S02311.comptfm +++| STM LNBE RESET NO EOR/EOI WRITE 02556 M01S02312.comptfm +++| STM LNBH RESET HOLE POINTER UPDATE 02557 M01S02313.comptfm +++| LJM LNBX RETURN 02558 M01S02314.comptfm +++| LNB$ ENDIF 02559 M01S02315.comptfm +++| PLI$ IF DEF,PLI$ 02560 M01S02316.comptfm +++| PLI SPACE 4,10 02561 M01S02317.comptfm +++|** PLI - POSITION TO LAST INDEX. 02562 M01S02318.comptfm +++|* 02563 M01S02319.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02564 M01S02320.comptfm +++|* 02565 M01S02321.comptfm +++|* EXIT (A) = BUFFER POINTER. 02566 M01S02322.comptfm +++|* (BA) = BUFFER ADDRESS (UNCHANGED). 02567 M01S02323.comptfm +++|* (BP) = BUFFER POINTER (UPDATED). 02568 M01S02324.comptfm +++|* 02569 M01S02325.comptfm +++|* USES BP. 02570 M01S02326.comptfm +++|* 02571 M01S02327.comptfm +++|* CALLS MBP, MLT. 02572 M01S02328.comptfm +++| 02573 M01S02329.comptfm +++| 02574 M01S02330.comptfm +++| PLI SUBR ENTRY/EXIT 02575 M01S02331.comptfm +++| LDD BA 02576 M01S02332.comptfm +++| ADN 2 02577 M01S02333.comptfm +++| STD BP 02578 M01S02334.comptfm +++| LDM CWFE,BA 02579 M01S02335.comptfm +++| RJM MBP MOVE BUFFER POINTER 02580 M01S02336.comptfm +++| LDM CWEL,BA 02581 M01S02337.comptfm +++| SHN 14 02582 M01S02338.comptfm +++| LMM CWNE,BA 02583 M01S02339.comptfm +++| SBN 1 02584 M01S02340.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 02585 M01S02341.comptfm +++| RJM MBP MOVE BUFFER POINTER 02586 M01S02342.comptfm +++| UJN PLIX RETURN 02587 M01S02343.comptfm +++| MLT$ EQU 1 DEFINE MLT - (A) REGISTER MULTIPLY 02588 M01S02344.comptfm +++| PLI$ ENDIF 02589 M01S02345.comptfm +++| MLT$ IF DEF,MLT$ 02590 M01S02346.comptfm +++| MLT SPACE 4,10 02591 M01S02347.comptfm +++|** MLT - (A) REGISTER MULTIPLY. 02592 M01S02348.comptfm +++|* 02593 M01S02349.comptfm +++|* ENTRY (A) = VALUES TO MULTIPLY IN THE FORMAT; 02594 M01S02350.comptfm +++|* 6/ M2,12/ M1 02595 M01S02351.comptfm +++|* 02596 M01S02352.comptfm +++|* EXIT (A) = PRODUCT. 02597 M01S02353.comptfm +++|* (T1) = PRODUCT. 02598 M01S02354.comptfm +++|* 02599 M01S02355.comptfm +++|* USES T0 - T2. 02600 M01S02356.comptfm +++| 02601 M01S02357.comptfm +++| 02602 M01S02358.comptfm +++| MLT3 LDD T1 (A) = PRODUCT 02603 M01S02359.comptfm +++| 02604 M01S02360.comptfm +++| MLT SUBR ENTRY/EXIT 02605 M01S02361.comptfm +++| STD T0 SAVE M1 02606 M01S02362.comptfm +++| LMD T0 CLEAR PRODUCT REGISTER 02607 M01S02363.comptfm +++| STD T1 02608 M01S02364.comptfm +++| LMC SHNI+0 INITIALIZE SHIFT COUNT 02609 M01S02365.comptfm +++| STM MLTA 02610 M01S02366.comptfm +++| SHN -14 02611 M01S02367.comptfm +++| MLT1 STD T2 SET M2 02612 M01S02368.comptfm +++| ZJN MLT3 IF COMPLETE 02613 M01S02369.comptfm +++| LPN 1 02614 M01S02370.comptfm +++| ZJN MLT2 IF NOT MULTIPLY 02615 M01S02371.comptfm +++| LDD T0 02616 M01S02372.comptfm +++| SHN ** (A) = M1**2(N) 02617 M01S02373.comptfm +++| MLTA EQU *-1 (SHIFT COUNT) 02618 M01S02374.comptfm +++| RAD T1 02619 M01S02375.comptfm +++| MLT2 AOM MLTA INCREMENT SHIFT COUNT 02620 M01S02376.comptfm +++| LDD T2 02621 M01S02377.comptfm +++| SHN -1 02622 M01S02378.comptfm +++| UJN MLT1 CONTINUE MULTIPLY 02623 M01S02379.comptfm +++| MLT$ ENDIF 02624 M01S02380.comptfm +++| RIB$ IF DEF,RIB$ 02625 M01S02381.comptfm +++| RIB SPACE 4,10 02626 M01S02382.comptfm +++|** RIB - ROOM IN BLOCK. 02627 M01S02383.comptfm +++|* 02628 M01S02384.comptfm +++|* ENTRY (CWUW + (BA)) = WORDS LEFT IN BLOCK. 02629 M01S02385.comptfm +++|* (CWEL + (BA)) = LENGTH OF ENTRY. 02630 M01S02386.comptfm +++|* 02631 M01S02387.comptfm +++|* EXIT (A) = ROOM LEFT IN BLOCK IF NEW ENTRY ADDED. 02632 M01S02388.comptfm +++|* (A) .LT. 0 IF NO ROOM FOR ENTRY. 02633 M01S02389.comptfm +++| 02634 M01S02390.comptfm +++| 02635 M01S02391.comptfm +++| RIB SUBR ENTRY/EXIT 02636 M01S02392.comptfm +++| LDM CWUW,BA SPACE REMAINING IN BLOCK 02637 M01S02393.comptfm +++| SBM CWEL,BA ENTRY LENGTH 02638 M01S02394.comptfm +++| UJN RIBX EXIT 02639 M01S02395.comptfm +++| RIB$ ENDIF 02640 M01S02396.comptfm +++| SIB$ IF DEF,SIB$ 02641 M01S02397.comptfm +++| SIB SPACE 4,10 02642 M01S02398.comptfm +++|** SIB - SEARCH INDEX/ADMIT BUFFER. 02643 M01S02399.comptfm +++|* 02644 M01S02400.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (BUFFER FULL). 02645 M01S02401.comptfm +++|* (BP) = (BA)+2. 02646 M01S02402.comptfm +++|* (KA) = KEY ADDRESS FOR COMPARISON. 02647 M01S02403.comptfm +++|* (KL) = KEY LENGTH IN CHARACTERS. 02648 M01S02404.comptfm +++|* 02649 M01S02405.comptfm +++|* EXIT (A).EQ.0 IF FOUND. 02650 M01S02406.comptfm +++|* (A).GT.0 IF NOT FOUND. 02651 M01S02407.comptfm +++|* (A).EQ.-0 IF END OF INDEX. 02652 M01S02408.comptfm +++|* (BP) = BUFFER POINTER. 02653 M01S02409.comptfm +++|* (CI) = CATALOG INDEX. 02654 M01S02410.comptfm +++| 02655 M01S02411.comptfm +++| 02656 M01S02412.comptfm +++| SIB2 LMC -0 SET END OF INDEX EXIT CONDITION 02657 M01S02413.comptfm +++| 02658 M01S02414.comptfm +++| SIB SUBR ENTRY/EXIT 02659 M01S02415.comptfm +++| LDN 0 02660 M01S02416.comptfm +++| STD CI 02661 M01S02417.comptfm +++| SIB1 AOD CI INCREMENT CATALOG INDEX 02662 M01S02418.comptfm +++| LDI BP 02663 M01S02419.comptfm +++| ZJN SIB2 IF NO INDEX 02664 M01S02420.comptfm +++| COMPARE ,KA,,BP,,KL 02665 M01S02421.comptfm +++| ZJN SIBX IF STRING(KA).EQ.STRING(BP) 02666 M01S02422.comptfm +++| MJN SIB2 IF STRING(KA).LT.STRING(BP) 02667 M01S02423.comptfm +++| LDM CWEL,BA 02668 M01S02424.comptfm +++| RJM MBP MOVE BUFFER POINTER 02669 M01S02425.comptfm +++| MJN SIBX IF MOVE OUTSIDE CURRENT BUFFER 02670 M01S02426.comptfm +++| UJN SIB1 CHECK NEXT INDEX 02671 M01S02427.comptfm +++| SIB$ ENDIF 02672 M01S00049.274l797 +++| SSP$ IF DEF,SSP$ 02673 M01S00050.274l797 +++| SSP SPACE 4,10 02674 M01S00051.274l797 +++|** SSP - SET SCRATCH POOL ADDRESS. 02675 M01S00052.274l797 +++|* 02676 M01S00053.274l797 +++|* SAVES THE *TMST* SCRATCH POOL WORD ADDRESS FOR THE SPECIFIED 02677 M01S00054.274l797 +++|* TAPE TYPE IN A GLOBAL MEMORY CELL. 02678 M01S00055.274l797 +++|* 02679 M01S00056.274l797 +++|* ENTRY (A) = TAPE TYPE (0=MT OR NT, 1=CT, 2=NT, 3=AT). 02680 M01S00057.274l797 +++|* 02681 M01S00058.274l797 +++|* EXIT (T3) = TAPE TYPE. 02682 M01S00059.274l797 +++|* (SCRP) = SCRATCH POOL POINTER ADDRESS IN *TMST*. 02683 M01S00060.274l797 +++| 02684 M01S00061.274l797 +++| 02685 M01S00062.274l797 +++| SSP SUBR ENTRY/EXIT 02686 M01S00063.274l797 +++| STD T3 SAVE TAPE TYPE 02687 M01S00064.274l797 +++| LDM SSPA,T3 02688 M01S00065.274l797 +++| STM SCRP SAVE SCRATCH POOL POINTER 02689 M01S00066.274l797 +++| UJN SSPX RETURN 02690 M01S00067.274l797 +++| 02691 M01S00068.274l797 +++| 02692 M01S00069.274l797 +++| SSPA BSS 0 ADDRESSES OF SCRATCH POOL WORDS IN *TMST* 02693 M01S00070.274l797 +++| CON SBSM *MT*/*NT* SCRATCH POOL WORD 02694 M01S00071.274l797 +++| CON SBSC *CT* SCRATCH POOL WORD 02695 M01S00072.274l797 +++| CON SBSM *MT*/*NT* SCRATCH POOL WORD 02696 M01S00073.274l797 +++| CON SBSA *AT* SCRATCH POOL WORD 02697 M01S00074.274l797 +++| SSP$ ENDIF 02698 M01S02428.comptfm +++| TBA$ IF DEF,TBA$ 02699 M01S02429.comptfm +++| TBA SPACE 4,10 02700 M01S02430.comptfm +++|** TBA - TOGGLE BUFFER ASSIGNMENT 02701 M01S02431.comptfm +++|* 02702 M01S02432.comptfm +++|* ENTRY (IOB1, IOB2) = ALLOCATED BUFFERS. 02703 M01S02433.comptfm +++|* 02704 M01S02434.comptfm +++|* EXIT (A) = BUFFER ADDRESS. 02705 M01S02435.comptfm +++|* (BA) = BUFFER ADDRESS. 02706 M01S02436.comptfm +++| 02707 M01S02437.comptfm +++| 02708 M01S02438.comptfm +++| TBA SUBR ENTRY/EXIT 02709 M01S02439.comptfm +++| LDN ** 02710 M01S02440.comptfm +++| TBAA EQU *-1 (LDNI + TOGGLE) 02711 M01S02441.comptfm +++| STD T1 02712 M01S02442.comptfm +++| LDN 1 02713 M01S02443.comptfm +++| LMM TBAA 02714 M01S02444.comptfm +++| STM TBAA 02715 M01S02445.comptfm +++| LDM ISBA,T1 02716 M01S02446.comptfm +++| STD BA 02717 M01S02447.comptfm +++| ADN 2 02718 M01S02448.comptfm +++| STD BP 02719 M01S02449.comptfm +++| UJN TBAX RETURN 02720 M01S02450.comptfm +++| TBA$ ENDIF 02721 M01S02451.comptfm +++| UDT$ IF DEF,UDT$ 02722 M01S02452.comptfm +++| UDT SPACE 4,30 02723 M01S02453.comptfm +++|** UDT - READ/WRITE UDT. 02724 M01S02454.comptfm +++|* 02725 M01S02455.comptfm +++|* ALL COMMUNICATION BETWEEN TFM AND MAGNET IS ACCOM- 02726 M01S02456.comptfm +++|* PLISHED THROUGH THE TDAM CPUMTR FUNCTION. TFM CAN 02727 M01S02457.comptfm +++|* EXECUTE AT THE USERS CONTROL POINT, AND ON CERTAIN 02728 M01S02458.comptfm +++|* REQUESTS WILL REQUIRE ACCESS TO THE UDT(S) IN MAGNETS 02729 M01S02459.comptfm +++|* FIELD LENGTH. WHEN WRITING TO THE UDT, TFM USES THE 02730 M01S02460.comptfm +++|* /MTX/RUU (REQUEST UDT UPDATE) WHICH IS RECOGNIZED AND 02731 M01S02461.comptfm +++|* PROCESSED BY MAGNET. READING THE UDT DOES NOT REQUIRE 02732 M01S02462.comptfm +++|* MAGNET PROCESSING. IN THIS WAY INTERCONTROL POINT 02733 M01S02463.comptfm +++|* COMMUNICATION IS MAINTAINED WITHOUT REGARD FOR 02734 M01S02464.comptfm +++|* STORAGE MOVES, OR MULTIPLE PPU CONSIDERATIONS. 02735 M01S02465.comptfm +++|* 02736 M01S02466.comptfm +++|* ENTRY (A) = 3/RW,3/WC,12/UDT WORD. 02737 M01S02467.comptfm +++|* (UD) = UDT ADDRESS. 02738 M01S02468.comptfm +++|* (T1) = 0 IF MESSAGE BUFFER CONTAINS UPDATES. 02739 M01S02469.comptfm +++|* (T1) = FWA OF PP BUFFER FOR UPDATES. 02740 M01S02470.comptfm +++|* (UDTA) = PRESET TO FWA OF UDT. 02741 M01S02471.comptfm +++|* 02742 M01S02472.comptfm +++|* EXIT (A) = ZERO IF NO ERRORS. 02743 M01S02473.comptfm +++|* (A) = NON-ZERO IF *MAGNET* NOT ACTIVE. 02744 M01S02474.comptfm +++|* 02745 M01S02475.comptfm +++|* USES CM - CM+4, T1, T2. 02746 M01S02476.comptfm +++|* 02747 M01S02477.comptfm +++|* CALLS PFR. 02748 M01S02478.comptfm +++|* 02749 M01S02479.comptfm +++|* MACROS ISTORE, MONITOR. 02750 M01S02480.comptfm +++| 02751 M01S02481.comptfm +++| 02752 M01S02482.comptfm +++| UDT SUBR ENTRY/EXIT 02753 M01S02483.comptfm +++| STM UDTE+2 SET UDT WORD OFFSET 02754 M01S02484.comptfm +++| LMM UDTE+2 SET READ/WRITE FLAG 02755 M01S02485.comptfm +++| SHN 3 02756 M01S02486.comptfm +++| STM UDTE+1 02757 M01S02487.comptfm +++| SHN -17 SET WORD COUNT 02758 M01S02488.comptfm +++| STD T2 02759 M01S02489.comptfm +++| SHN 6 02760 M01S02490.comptfm +++| STM UDTE+3 02761 M01S02491.comptfm +++| LDM UDTA ADD FWA OF UDT 02762 M01S02492.comptfm +++| STM UDTE+4 02763 M01S02493.comptfm +++| LDD MA SET REQUEST IN MESSAGE BUFFER 02764 M01S02494.comptfm +++| CWM UDTE,ON 02765 M01S02495.comptfm +++| LDM UDTE+1 02766 M01S02496.comptfm +++| ZJN UDT1 IF READ REQUEST 02767 M01S02497.comptfm +++| LDD T1 02768 M01S02498.comptfm +++| ZJN UDT4 IF NOT WRITE FROM BUFFER 02769 M01S02499.comptfm +++| STM UDTB 02770 M01S02500.comptfm +++| LDD MA 02771 M01S02501.comptfm +++| ADN 1 02772 M01S02502.comptfm +++| CWM **,T2 02773 M01S02503.comptfm +++| UDTB EQU *-1 (ADDRESS OF PP BUFFER) 02774 M01S02504.comptfm +++| UJN UDT3 ISSUE REQUEST 02775 M01S02505.comptfm +++| 02776 M01S02506.comptfm +++| UDT1 LDD T1 PROCESS READ REQUEST 02777 M01S02507.comptfm +++| ZJN UDT2 IF NOT READ TO BUFFER 02778 M01S02508.comptfm +++| STM UDTD 02779 M01S02509.comptfm +++| LDC ** 02780 M01S02510.comptfm +++| ORG *O-1 02781 M01S02511.comptfm +++| ZJN *+UDT6-UDTC IF FINISHED 02782 M01S02512.comptfm +++| STM UDTC 02783 M01S02513.comptfm +++| UJN UDT3 ISSUE REQUEST 02784 M01S02514.comptfm +++| 02785 M01S02515.comptfm +++| UDT2 BSS 0 REISSUE REQUEST 02786 M01S02516.comptfm +++|* LDN 0 (A) = 0 02787 M01S02517.comptfm +++| STM PFRA 02788 M01S02518.comptfm +++| RJM PFR PAUSE FOR RELOCATION 02789 M01S02519.comptfm +++| UDT3 LDD MA BUILD *TDAM* REQUEST 02790 M01S02520.comptfm +++| CRD CM 02791 M01S02521.comptfm +++| LDD CM+1 02792 M01S02522.comptfm +++| NJN UDT4 IF WRITE REQUEST 02793 M01S02523.comptfm +++| LDD CM+2 SET RELATIVE WORD ADDRESS 02794 M01S02524.comptfm +++| RAD CM+4 02795 M01S02525.comptfm +++| UJN UDT5 SET SUBSYSTEM PRIORITY 02796 M01S02526.comptfm +++| 02797 M01S02527.comptfm +++| UDT4 LDD HN INCREMENT WORD COUNT 02798 M01S02528.comptfm +++| RAD CM+3 02799 M01S02529.comptfm +++| LDN /MTX/RCAL SET RECEIVING BUFFER ADDRESS 02800 M01S02530.comptfm +++| STD CM+4 02801 M01S02531.comptfm +++| UDT5 LDC MTSI SET MAGNET SUBSYSTEM ID 02802 M01S02532.comptfm +++| STD CM+2 02803 M01S02533.comptfm +++| MONITOR TDAM 02804 M01S02534.comptfm +++| LDD CM+1 02805 M01S02535.comptfm +++| ZJN UDT7 IF OPERATION COMPLETE 02806 M01S02536.comptfm +++|* ZJN UDT6 (IF READ TO PP BUFFER) 02807 M01S02537.comptfm +++| UDTC EQU *-1 02808 M01S02538.comptfm +++| SCN 3 02809 M01S02539.comptfm +++| ZJN UDT2 IF *MAGNET* ACTIVE 02810 M01S02540.comptfm +++| UJN UDT7 RETURN WITH ERROR 02811 M01S02541.comptfm +++| 02812 M01S02542.comptfm +++| UDT6 LDD MA READ TO PP BUFFER 02813 M01S02543.comptfm +++| CRM **,T2 02814 M01S02544.comptfm +++| UDTD EQU *-1 (ADDRESS OF PP BUFFER) 02815 M01S02545.comptfm +++| ISTORE UDTC,(ZJN UDT7) IF COMPLETE RETURN 02816 M01S02546.comptfm +++| LDN 0 SET NO ERROR 02817 M01S02547.comptfm +++| UDT7 LJM UDTX RETURN 02818 M01S02548.comptfm +++| 02819 M01S02549.comptfm +++| UDTE VFD 12//MTX/RUU,12/**,12/**,12/**,12/** 02820 M01S02550.comptfm +++| UDT$ ENDIF 02821 M01S02551.comptfm +++| UIS$ IF DEF,UIS$ 02822 M01S02552.comptfm +++| UIS SPACE 4,10 02823 M01S02553.comptfm +++|** UIS - USERNAME INDEX SEARCH. 02824 M01S02554.comptfm +++|* 02825 M01S02555.comptfm +++|* ENTRY (KA) = KEY ADDRESS (USERNAME). 02826 M01S02556.comptfm +++|* 02827 M01S02557.comptfm +++|* EXIT (A) .EQ. 0 IF FOUND. 02828 M01S02558.comptfm +++|* .GT. 0 IF NOT FOUND. 02829 M01S02559.comptfm +++|* .EQ. -0 IF END OF INDEX. 02830 M01S02560.comptfm +++|* (KL) = KEY LENGTH IN CHARACTERS. 02831 M01S02561.comptfm +++|* (CPPI) = BUFFER ADDRESS OF PRIMARY INDEX. 02832 M01S02562.comptfm +++|* (CPPI+1) = BUFFER POINTER OF PRIMARY INDEX. 02833 M01S02563.comptfm +++|* (CPSI) = BUFFER ADDRESS OF SECONDARY INDEX. 02834 M01S02564.comptfm +++|* (CPSI+1) = BUFFER POINTER OF SECONDARY INDEX. 02835 M01S02565.comptfm +++| 02836 M01S02566.comptfm +++| 02837 M01S02567.comptfm +++| UIS SUBR ENTRY/EXIT 02838 M01S02568.comptfm +++| LDN UNKL SET KEY LENGTH 02839 M01S02569.comptfm +++| STD KL 02840 M01S02570.comptfm +++| LDN FPUI SET PRIMARY USERNAME INDEX 02841 M01S02571.comptfm +++| STD RI+1 02842 M01S02572.comptfm +++| SHN -14 02843 M01S02573.comptfm +++| STD RI 02844 M01S02574.comptfm +++| RJM ISK INDEXED SEARCH FOR KEY 02845 M01S02575.comptfm +++| UJN UISX RETURN 02846 M01S02576.comptfm +++| UIS$ ENDIF 02847 M01S02577.comptfm +++| VIS$ IF DEF,VIS$ 02848 M01S02578.comptfm +++| VIS SPACE 4,10 02849 M01S02579.comptfm +++|** VIS - VSN INDEX SEARCH. 02850 M01S02580.comptfm +++|* 02851 M01S02581.comptfm +++|* ENTRY (KA) = KEY ADDRESS (VSN) 02852 M01S02582.comptfm +++|* 02853 M01S02583.comptfm +++|* EXIT (A) .EQ. 0 IF FOUND. 02854 M01S02584.comptfm +++|* .GT. 0 IF NOT FOUND. 02855 M01S02585.comptfm +++|* .EQ. -0 IF END OF INDEX. 02856 M01S02586.comptfm +++|* (KL) = KEY LENGTH IN CHARACTERS. 02857 M01S02587.comptfm +++|* (CPPI) = BUFFER ADDRESS OF PRIMARY INDEX. 02858 M01S02588.comptfm +++|* (CPPI+1) = BUFFER POINTER OF PRIMARY INDEX. 02859 M01S02589.comptfm +++|* (CPSI) = BUFFER ADDRESS OF SECONDARY INDEX. 02860 M01S02590.comptfm +++|* (CPSI+1) = BUFFER POINTER OF SECONDARY INDEX. 02861 M01S02591.comptfm +++| 02862 M01S02592.comptfm +++| 02863 M01S02593.comptfm +++| VIS SUBR ENTRY/EXIT 02864 M01S02594.comptfm +++| LDN VSKL SET KEY LENGTH 02865 M01S02595.comptfm +++| STD KL 02866 M01S02596.comptfm +++| LDN FPVI SET PRIMARY VSN INDEX 02867 M01S02597.comptfm +++| STD RI+1 02868 M01S02598.comptfm +++| SHN -14 02869 M01S02599.comptfm +++| STD RI 02870 M01S02600.comptfm +++| RJM ISK INDEXED SEARCH FOR KEY 02871 M01S02601.comptfm +++| UJN VISX RETURN 02872 M01S02602.comptfm +++| VIS$ ENDIF 02873 M01S02603.comptfm +++| WES$ IF DEF,WES$ 02874 M01S02604.comptfm +++| WES SPACE 4,10 02875 M01S02605.comptfm +++|** WES - WRITE EOR/EOI SEQUENCE. 02876 M01S02606.comptfm +++|* 02877 M01S02607.comptfm +++|* ENTRY (CO) = CATALOG FST ADDRESS. 02878 M01S02608.comptfm +++|* (BA) = BUFFER ADDRESS. 02879 M01S02609.comptfm +++|* (EQ) = EQUIPMENT. 02880 M01S02610.comptfm +++|* (FS+3) = CURRENT EOI TRACK. 02881 M01S02611.comptfm +++|* (FS+4) = SECTORS USED THIS TRACK. 02882 M01S02612.comptfm +++|* 02883 M01S02613.comptfm +++|* EXIT EOR/EOI PRU(S) WRITTEN TO CATALOG. 02884 M01S02614.comptfm +++|* 02885 M01S02615.comptfm +++|* USES CM - CM+4, FA, FS - FS+4, T6, T7. 02886 M01S02616.comptfm +++|* 02887 M01S02617.comptfm +++|* CALLS WEI, WDS. 02888 M01S02618.comptfm +++|* 02889 M01S02619.comptfm +++|* MACROS CLEAR, ENDMS, MONITOR, SETMS. 02890 M01S02620.comptfm +++| 02891 M01S02621.comptfm +++| 02892 M01S00128.ns2763 +++| WES5 SETMS IO RESERVE CHANNEL 02893 M01S00129.ns2763 +++| LDD BA 02894 M01S00130.ns2763 +++| ADN FSEI 02895 M01S00131.ns2763 +++| STM WESB 02896 M01S00132.ns2763 +++| LDD FO 02897 M01S00133.ns2763 +++| RJM AFA GET ABSOLUTE FST ADDRESS 02898 M01S00134.ns2763 +++| CRM *,ON 02899 M01S00135.ns2763 +++| WESB EQU *-1 02900 M01S00136.ns2763 +++| LDD BA 02901 M01S00137.ns2763 +++| RJM WEI WRITE (EOI) SECTOR 02902 M01S00138.ns2763 +++| PJN WES6 IF NOT MASS STORAGE ERROR 02903 M01S00139.ns2763 +++| LDC LDCI+00002 SET WRITE ERROR FLAG 02904 M01S00140.ns2763 +++| STM TFMC-1 02905 M01S00141.ns2763 +++| WES6 LDD T7 SET EOI LINKAGE BYTE 02906 M01S00142.ns2763 +++| NJN WES7 IF NOT SECTOR LIMIT 02907 M01S00143.ns2763 +++| LDD T6 02908 M01S00144.ns2763 +++| WES7 STI BA 02909 M01S00145.ns2763 +++| LDD FS+3 LAST EOI TRACK = EOR TRACK 02910 M01S00146.ns2763 +++| STD T6 02911 M01S00147.ns2763 +++| LDD FS+4 LAST EOI SECTOR = EOR SECTOR 02912 M01S00148.ns2763 +++| STD T7 02913 M01S00149.ns2763 +++| LDD BA 02914 M01S00150.ns2763 +++| RJM WDS WRITE (EOR) SECTOR 02915 M01S00151.ns2763 +++| PJN WES8 IF NOT MASS STORAGE ERROR 02916 M01S00152.ns2763 +++| LDC LDCI+40 SET MASS STORAGE ERROR FLAG 02917 M01S00153.ns2763 +++| STM TFMC-1 02918 M01S00154.ns2763 +++| WES8 ENDMS DROP CHANNEL 02919 M01S00155.ns2763 +++| LDD EQ SET EQUIPMENT/CHECKPOINT 02920 M01S00156.ns2763 +++| LMC 4000 02921 M01S00157.ns2763 +++| STD CM+1 02922 M01S00158.ns2763 +++| LDD FS+1 SET TRACK 02923 M01S00159.ns2763 +++| LPC 3777 02924 M01S00160.ns2763 +++| STD CM+2 02925 M01S00161.ns2763 +++| LDD FS+2 SET SECTOR 02926 M01S00162.ns2763 +++| STD CM+3 02927 M01S00163.ns2763 +++| MONITOR DTKM DROP TRACK/SET EOI 02928 M01S00164.ns2763 +++| 02929 M01S02622.comptfm +++| WES SUBR ENTRY/EXIT 02930 M01S02623.comptfm +++| CLEAR ,BA,502*2 CLEAR BUFFER 02931 M01S02624.comptfm +++| LDD FS+3 SET CURRENT EOI TRACK 02932 M01S02625.comptfm +++| STD FS+1 02933 M01S02626.comptfm +++| STD T6 02934 M01S02627.comptfm +++| LDD FS+4 INCREMENT CURRENT EOI SECTOR COUNT 02935 M01S02628.comptfm +++| ADN 1 02936 M01S02629.comptfm +++| STD FS+2 02937 M01S02630.comptfm +++| STD T7 02938 M01S02631.comptfm +++| SBM SLM
| Line S02632 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02939 M02S02632.ns2763 ---| NJN WES2 IF NOT SECTOR LIMIT 02940 M01S00165.ns2763 +++| WES0 NJP WES5 IF NOT SECTOR LIMIT 02941 M01S02633.comptfm +++| STD FS+2 CLEAR SECTOR COUNT 02942 M01S02634.comptfm +++| STD T7 02943 M01S02635.comptfm +++| WES1 LDN ZERL BUILD *RTCM* REQUEST 02944 M01S02636.comptfm +++| CRD CM 02945 M01S02637.comptfm +++| LDD EQ SET EQUIPMENT 02946 M01S02638.comptfm +++| STD CM+1 02947 M01S02639.comptfm +++| LDD FS+3 SET CURRENT EOI TRACK 02948 M01S02640.comptfm +++| STD CM+2 02949 M01S02641.comptfm +++| MONITOR RTCM REQUEST TRACK CHAIN 02950 M01S02642.comptfm +++| LDD CM+4 02951 M01S02643.comptfm +++| STD FS+1 SET TRACK 02952 M01S02644.comptfm +++| STD T6
| Line S02645 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02953 M02S02645.ns2763 ---| WES2 NJP WES5 IF TRACK ASSIGNED 02954 M01S00166.ns2763 +++| NJP WES0 IF TRACK ASSIGNED 02955 M01S02646.comptfm +++| LDD CP ISSUE CONSOLE MESSAGE 02956 M01S02647.comptfm +++| ADN MS2W 02957 M01S02648.comptfm +++| CWM WESA,TR 02958 M01S02649.comptfm +++| PAUSE 02959 M01S02650.comptfm +++| LDM TFMC 02960 M01S02651.comptfm +++| LPN 77 02961 M01S02652.comptfm +++| LMN /PFM/PTLM 02962 M01S02653.comptfm +++| NJN WES4 IF NOT LOCAL FILE MODE 02963 M01S02654.comptfm +++| LDD CM+1 02964 M01S02655.comptfm +++| LMN ODET 02965 M01S02656.comptfm +++| ZJN WES3 IF OPERATOR DROP 02966 M01S02657.comptfm +++| LMN OKET&ODET 02967 M01S02658.comptfm +++| ZJN WES3 IF OPERATOR KILL 02968 M01S02659.comptfm +++| LMN ORET&OKET 02969 M01S02660.comptfm +++| NJN WES4 IF NOT OPERATOR OVERRIDE 02970 M01S02661.comptfm +++| WES3 ERROR TKL *TRACK LIMIT.* 02971 M01S02662.comptfm +++| 02972 M01S02663.comptfm +++| WES4 LDN 0 02973 M01S02664.comptfm +++| SBN 1 02974 M01S02665.comptfm +++| NJN *-1 IF CONTINUING DELAY
Proceed to Part 2
cdc/nos2.source/opl.opl871/common/comptfm.001.txt · Last modified: by 127.0.0.1