cdc:nos2.source:opl.opl871:common:comptfm.001
Common COMPTFM Part 001
10 Modifications
Listing Sections
- Common COMPTFM Start
- Common COMPTFM Part 1 (Line 1667)
Source
Seq # *Modification Id* Act ----------------------------+ 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 M00S01473.comptfm +++| ISP$ EQU 1 DEFINE ISP - INITIALIZE SCRATCH PROCESSOR
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01677 M01S00039.274l797 +++| SSP$ EQU 1 DEFINE SSP - SET SCRATCH POOL ADDRESS
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01678 M01S00113.ns2763 +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH 01679 M00S01474.comptfm +++| RSP$ ENDIF 01680 M00S01475.comptfm +++| SCB$ IF DEF,SCB$ 01681 M00S01476.comptfm +++| SCB SPACE 4,10 01682 M00S01477.comptfm +++|** SCB - SEARCH CATALOG BUFFER. 01683 M00S01478.comptfm +++|* 01684 M00S01479.comptfm +++|* ENTRY (KA) = KEY ADDRESS (FILE NAME). 01685 M00S01480.comptfm +++|* = 0 IF SEARCHING FOR HOLE. 01686 M00S01481.comptfm +++|* (BA) = BUFFER ADDRESS. 01687 M00S01482.comptfm +++|* (RI - RI+1) = RANDOM ADDRESS TO FIRST BLOCK. 01688 M00S01483.comptfm +++|* 01689 M00S01484.comptfm +++|* EXIT (A) = 0 IF CATALOG NOT FOUND. 01690 M00S01485.comptfm +++|* = CATALOG INDEX IF FILE FOUND. 01691 M00S01486.comptfm +++|* = -0 IF DUPLICATE FILE NAME. 01692 M00S01487.comptfm +++|* (BA) = ADDRESS OF BUFFER CONTAINING CATALOG. 01693 M00S01488.comptfm +++|* (BP) = FWA OF CATALOG. 01694 M00S01489.comptfm +++|* (CI) = CATALOG INDEX. 01695 M00S01490.comptfm +++|* (HP) = ADDRESS OF BUFFER CONTAINING HOLE. 01696 M00S01491.comptfm +++|* (HP+1) = FWA OF HOLE. 01697 M00S01492.comptfm +++|* 01698 M00S01493.comptfm +++|* CALLS GIB, GNB, GNL, MBP, RRP. 01699 M00S01494.comptfm +++|* 01700 M00S01495.comptfm +++|* MACROS COMPARE, RESTP, SAVEP. 01701 M00S01496.comptfm +++| 01702 M00S01497.comptfm +++| 01703 M00S01498.comptfm +++| SCB SUBR ENTRY/EXIT 01704 M00S01499.comptfm +++| LDN ZERL INITIALIZE HOLE POINTER 01705 M00S01500.comptfm +++| CRM CPCB,ON 01706 M00S01501.comptfm +++| SBN 1 01707 M00S01502.comptfm +++| CRM CPHP,ON 01708 M00S01503.comptfm +++| RJM GIB GET INITIAL BLOCK 01709 M00S01504.comptfm +++| SCB1 LDM CWFE,BA SET FIRST CATALOG ENTRY 01710 M00S01505.comptfm +++| RJM MBP MOVE BUFFER POINTER 01711 M00S01506.comptfm +++| LDN 0 INITIALIZE CATALOG INDEX 01712 M00S01507.comptfm +++| STD CI 01713 M00S01508.comptfm +++| SCB2 AOD CI CHECK CATALOG 01714 M00S01509.comptfm +++| LDI BP 01715 M00S01510.comptfm +++| NJN SCB4 IF NOT HOLE 01716 M00S01511.comptfm +++| LDM CPHP 01717 M00S01512.comptfm +++| NJN SCB3 IF HOLE ALREADY FOUND 01718 M00S01513.comptfm +++| SAVEP CPHP SAVE HOLE POINTER 01719 M00S01514.comptfm +++| LDD KA 01720 M00S01515.comptfm +++| ZJP SCBX IF SEARCHING FOR HOLE 01721 M00S01516.comptfm +++| SCB3 UJN SCB5 CHECK FOR END OF BUFFER 01722 M00S01517.comptfm +++| 01723 M00S01518.comptfm +++| SCB4 LDD KA CHECK SEARCH TYPE 01724 M00S01519.comptfm +++| ZJN SCB5 IF SEARCHING FOR HOLES 01725 M00S01520.comptfm +++| LDM CBST,BP 01726 M00S01521.comptfm +++| LPN 4 01727 M00S01522.comptfm +++| ZJN SCB5 IF NOT SYMBOLIC ACCESS FILE 01728 M00S01523.comptfm +++| COMPARE CBLI,BP,,KA,FIKL 01729 M00S01524.comptfm +++| ZJN SCB6 IF FILE NAME 01730 M00S01525.comptfm +++| AMD$ IF DEF,AMD$ 01731 M00S01526.comptfm +++| COMPARE CBLI,BP,PNFI,,FIKL 01732 M00S01527.comptfm +++| ZJN SCB7 IF NEW FILENAME FOUND 01733 M00S01528.comptfm +++| AMD$ ENDIF 01734 M00S01529.comptfm +++| SCB5 LDN TCEL ADVANCE TO NEXT CATALOG 01735 M00S01530.comptfm +++| RJM MBP MOVE BUFFER POINTER 01736 M00S01531.comptfm +++| PJP SCB2 IF WITHIN CURRENT BUFFER 01737 M00S01532.comptfm +++| RJM GNL GET NEXT LINK 01738 M00S01533.comptfm +++| ZJN SCB8 IF BLOCK NOT LINKED 01739 M00S01534.comptfm +++| RJM GNB GET NEXT BLOCK 01740 M00S01535.comptfm +++| LJM SCB1 SEARCH LINKED BLOCK 01741 M00S01536.comptfm +++| 01742 M00S01537.comptfm +++| SCB6 SAVEP CPCB SAVE BUFFER POINTERS (CATALOG) 01743 M00S01538.comptfm +++| AMD$ IF DEF,AMD$ 01744 M00S01539.comptfm +++| LDM PNFI 01745 M00S01540.comptfm +++| NJN SCB5 IF NEW FILENAME SPECIFIED 01746 M00S01541.comptfm +++| UJN SCB9 RETURN 01747 M00S01542.comptfm +++| 01748 M00S01543.comptfm +++| SCB7 MMOVE PNFI,,POFI,,FIKL 01749 M00S01544.comptfm +++| LCN 0 FILE ALREADY RESERVED 01750 M00S01545.comptfm +++| UJN SCB10 RETURN 01751 M00S01546.comptfm +++| AMD$ ELSE 01752 M00S01547.comptfm +++| UJN SCB9 RETURN 01753 M00S01548.comptfm +++| AMD$ ENDIF 01754 M00S01549.comptfm +++| 01755 M00S01550.comptfm +++| SCB8 LDM CPCB RESET BUFFER POINTERS 01756 M00S01551.comptfm +++| ZJN SCB10 IF CATALOG NOT FOUND 01757 M00S01552.comptfm +++| RESTP CPCB RESTORE CATALOG POINTERS 01758 M00S01553.comptfm +++| RJM RRP READ RANDOM PRU 01759 M00S01554.comptfm +++| SCB9 LDD CI SET EXIT CONDITION 01760 M00S01555.comptfm +++| SCB10 LJM SCBX RETURN 01761 M00S01556.comptfm +++| 01762 M00S01557.comptfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK 01763 M00S01558.comptfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT LINK 01764 M00S01559.comptfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT 01765 M00S01560.comptfm +++| SCB$ ENDIF
| Line S01561 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01766 M01S01561.274l797 ---| TITLE ".Y."/COMPTFM - SUBORDINATE SUBROUTINES.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01767 M01S00040.274l797 +++| TITLE COMPTFM - SUBORDINATE SUBROUTINES. 01768 M00S01562.comptfm +++| ABC$ IF DEF,ABC$ 01769 M00S01563.comptfm +++| ABC SPACE 4,10 01770 M00S01564.comptfm +++|** ABC - ADD BLOCK TO CHAIN. 01771 M00S01565.comptfm +++|* 01772 M00S01566.comptfm +++|* ENTRY (A) = WORD IN PP BUFFER FOR BLOCK LINKAGE. 01773 M00S01567.comptfm +++|* (BA) = BUFFER ADDRESS. 01774 M00S01568.comptfm +++|* (RI - RI+1) = RANDOM INDEX FOR CURRENT BLOCK. 01775 M00S01569.comptfm +++| 01776 M00S01570.comptfm +++| 01777 M00S01571.comptfm +++| ABC SUBR ENTRY/EXIT 01778 M00S01572.comptfm +++| STM LNBC SET FWA FOR BLOCK LINKAGE 01779 M00S01573.comptfm +++| ADN 1 01780 M00S01574.comptfm +++| STM LNBB 01781 M00S01575.comptfm +++| LDD RI SET BACKWARD POINTER 01782 M00S01576.comptfm +++| LMC LDCI 01783 M00S01577.comptfm +++| STM LNBD 01784 M00S01578.comptfm +++| LDD RI+1 01785 M00S01579.comptfm +++| STM LNBD+1 01786 M00S01580.comptfm +++| LDM CWRI,BA SET FORWARD POINTER 01787 M00S01581.comptfm +++| LMC LDCI 01788 M00S01582.comptfm +++| STM LNBF 01789 M00S01583.comptfm +++| LDM CWRI+1,BA 01790 M00S01584.comptfm +++| STM LNBF+1 01791 M00S01585.comptfm +++| RJM LNB LINK NEXT BLOCK 01792 M00S01586.comptfm +++| UJN ABCX RETURN 01793 M00S01587.comptfm +++| ABC$ ENDIF
| Line S01588 Modification History | |
|---|---|
M01 (Removed by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 01794 M01S01588.t5519 ---| AIB$ IF DEF,AIB$ 01795 M01S01589.t5519 ---| AIB SPACE 4,10 01796 M01S01590.t5519 ---|** AIB - ADD INDEX TO BLOCK. 01797 M01S01591.t5519 ---|* 01798 M01S01592.t5519 ---|* ENTRY (AIBA) = LMNI + INDEX BLOCK TYPE. 01799 M01S01593.t5519 ---|* (AIBB) = LDNI + INDEX LENGTH. 01800 M01S01594.t5519 ---|* 01801 M01S01595.t5519 ---|* EXIT (A) = 0 IF NO INDEX BLOCK ADDED. 01802 M01S01596.t5519 ---|* (A) = 1 IF INDEX BLOCK ADDED. 01803 M01S01597.t5519 ---|* 01804 M01S01598.t5519 ---|* CALLS ABC, GIB, GNL, GPL, IDE, MBP, RIB, WRP. 01805 M01S01599.t5519 ---|* 01806 M01S01600.t5519 ---|* MACROS ERROR. 01807 M01S01601.t5519 ---| 01808 M01S01602.t5519 ---| 01809 M01S01603.t5519 ---| AIB SUBR ENTRY/EXIT 01810 M01S01604.t5519 ---| LDC LDNI+0 PRESET EXIT CONDITION 01811 M01S01605.t5519 ---| STM AIBC 01812 M01S01606.t5519 ---| LDD CO WRITE CURRENT BLOCK 01813 M01S01607.t5519 ---| RJM WRP WRITE RANDOM PRU 01814 M01S01608.t5519 ---| RJM GNL GET NEXT LINK 01815 M01S01609.t5519 ---| ZJN AIB2 IF BLOCK NOT LINKED 01816 M01S01610.t5519 ---| RJM GIB GET INDEX BLOCK 01817 M01S01611.t5519 ---| RJM RIB ROOM IN BLOCK 01818 M01S01612.t5519 ---| PJN AIB3 IF ROOM IN BLOCK 01819 M01S01613.t5519 ---| RJM GPL GET PREVIOUS LINK 01820 M01S01614.t5519 ---| NJN AIB1 IF NO ERROR 01821 M01S01615.t5519 ---| ERROR CLE *CATALOG LINKAGE ERROR.* 01822 M01S01616.t5519 ---| 01823 M01S01617.t5519 ---| AIB1 RJM GIB GET INITIAL BLOCK 01824 M01S01618.t5519 ---| AIB2 LDN CWRI 01825 M01S01619.t5519 ---| RJM ABC ADD BLOCK TO CHAIN 01826 M01S01620.t5519 ---| LDM CIEB 01827 M01S01621.t5519 ---| LMN 2 SECONDARY INDEX BLOCK 01828 M01S01622.t5519 ---|* LMN 1 (PRIMARY INDEX BLOCK) 01829 M01S01623.t5519 ---| AIBA EQU *-1 01830 M01S01624.t5519 ---| STM CWRT,BA 01831 M01S01625.t5519 ---| LDN TSVL VSN SECONDARY INDEX LENGTH 01832 M01S01626.t5519 ---|* LDN TSUL (USERNAME SECONDARY INDEX LENGTH) 01833 M01S01627.t5519 ---|* LDN TPIL (PRIMARY INDEX LENGTH) 01834 M01S01628.t5519 ---| AIBB EQU *-1 01835 M01S01629.t5519 ---| STM CWEL,BA 01836 M01S01630.t5519 ---| AOM AIBC FLAG INDEX BLOCK ADDED 01837 M01S01631.t5519 ---| AIB3 LDM CWFE,BA POINT TO FIRST ENTRY 01838 M01S01632.t5519 ---| RJM MBP MOVE BUFFER POINTER 01839 M01S01633.t5519 ---| RJM IDE INSERT DATA ENTRY 01840 M01S01634.t5519 ---| LDN 0 NO INDEX BLOCK CREATED 01841 M01S01635.t5519 ---|* LDN 1 (INDEX BLOCK CREATED) 01842 M01S01636.t5519 ---| AIBC EQU *-1 01843 M01S01637.t5519 ---| LJM AIBX RETURN 01844 M01S01638.t5519 ---| AIB$ ENDIF 01845 M00S01639.comptfm +++| BSE$ IF DEF,BSE$ 01846 M00S01640.comptfm +++| BSE SPACE 4,10 01847 M00S01641.comptfm +++|** BSE - BACKWARD SKIP ONE ENTRY. 01848 M00S01642.comptfm +++|* 01849 M00S01643.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 01850 M00S01644.comptfm +++|* (BP) = BUFFER POINTER. 01851 M00S01645.comptfm +++|* (CI) = CATALOG INDEX. 01852 M00S01646.comptfm +++|* 01853 M00S01647.comptfm +++|* EXIT (BA) = BUFFER ADDRESS (UNCHANGED). 01854 M00S01648.comptfm +++|* (BP) = BUFFER POINTER (UPDATED). 01855 M00S01649.comptfm +++|* (CI) = CATALOG INDEX (UPDATED). 01856 M00S01650.comptfm +++|* 01857 M00S01651.comptfm +++|* USES T1, CP, CI. 01858 M00S01652.comptfm +++| 01859 M00S01653.comptfm +++| 01860 M00S01654.comptfm +++| BSE SUBR ENTRY/EXIT 01861 M00S01655.comptfm +++| LDM CWFE,BA CHECK BUFFER FOR ENTRY 01862 M00S01656.comptfm +++| STD T1 01863 M00S01657.comptfm +++| SHN 2 01864 M00S01658.comptfm +++| RAD T1 01865 M00S01659.comptfm +++| ADN 2 01866 M00S01660.comptfm +++| ADD BA 01867 M00S01661.comptfm +++| SBD BP 01868 M00S01662.comptfm +++| ZJN BSEX IF POSITIONED AT FIRST ENTRY 01869 M00S01663.comptfm +++| LDM CWEL,BA DECREMENT BUFFER POINTER 01870 M00S01664.comptfm +++| STD T1 01871 M00S01665.comptfm +++| SHN 2 01872 M00S01666.comptfm +++| RAD T1 01873 M00S01667.comptfm +++| LMC -0 01874 M00S01668.comptfm +++| RAD BP 01875 M00S01669.comptfm +++| SOD CI 01876 M00S01670.comptfm +++| UJN BSEX RETURN 01877 M00S01671.comptfm +++| BSE$ ENDIF 01878 M00S01672.comptfm +++| CMV$ IF DEF,CMV$ 01879 M00S01673.comptfm +++| CMV SPACE 4,15 01880 M00S01674.comptfm +++|** CMV - COMPARE/MOVE CHARACTER STRING. 01881 M00S01675.comptfm +++|* 01882 M00S01676.comptfm +++|* ENTRY (A) = COMPARE LENGTH IN PP BYTES. 01883 M00S01677.comptfm +++|* (T1) = SOURCE ADDRESS FOR COMPARE. 01884 M00S01678.comptfm +++|* (T2) = OBJECT ADDRESS FOR COMPARE. 01885 M00S01679.comptfm +++|* (T3) = PRESET TO ZERO(OR FROM PREVIOUS *CMOVE*). 01886 M00S01680.comptfm +++|* 01887 M00S01681.comptfm +++|* EXIT (A) = (T3) = 0 IF NAME(T1) = NAME(T2). 01888 M00S01682.comptfm +++|* .NE. 0 IF NAME(T1) .NE. NAME(T2). 01889 M00S01683.comptfm +++|* 01890 M00S01684.comptfm +++|* USES T0 - T3. 01891 M00S01685.comptfm +++| 01892 M00S01686.comptfm +++| 01893 M00S01687.comptfm +++| CMV SUBR ENTRY/EXIT 01894 M00S01688.comptfm +++| STD T0 SAVE PP BYTE COUNT 01895 M00S01689.comptfm +++| CMV1 LDI T1 COMPARE BYTES 01896 M00S01690.comptfm +++| LMI T2 01897 M00S01691.comptfm +++| ZJN CMV2 IF BYTE(T1) .NE. BYTE(T2) 01898 M00S01692.comptfm +++| AOD T3 COUNT THE DIFFERENCES 01899 M00S01693.comptfm +++| CMV2 LDI T1 01900 M00S01694.comptfm +++| STI T2 01901 M00S01695.comptfm +++| AOD T1 INCREMENT TO NEXT BYTE 01902 M00S01696.comptfm +++| AOD T2 01903 M00S01697.comptfm +++| SOD T0 DECREMENT PP BYTE COUNT 01904 M00S01698.comptfm +++| NJN CMV1 IF NOT THROUGH WITH STRINGS 01905 M00S01699.comptfm +++| LDD T3 01906 M00S01700.comptfm +++| UJN CMVX RETURN 01907 M00S01701.comptfm +++| CMV$ ENDIF 01908 M00S01702.comptfm +++| CSN$ IF DEF,CSN$ 01909 M00S01703.comptfm +++| CSN SPACE 4,10 01910 M00S01704.comptfm +++|** CSN - CONVERT SEQUENCE NUMBER TO DISPLAY CODE. 01911 M00S01705.comptfm +++|* 01912 M00S01706.comptfm +++|* ENTRY (A) = SEQUENCE NUMBER. 01913 M00S01707.comptfm +++|* 01914 M00S01708.comptfm +++|* EXIT DISPLAY CODE OF SEQUENCE NUMBER STORE IN *IAMA*. 01915 M00S01709.comptfm +++|* 01916 M00S01710.comptfm +++|* USES T1. 01917 M00S01711.comptfm +++|* 01918 M00S01712.comptfm +++|* CALLS C2D. 01919 M00S01713.comptfm +++| 01920 M00S01714.comptfm +++| 01921 M00S01715.comptfm +++| CSN SUBR ENTRY/EXIT 01922 M00S01716.comptfm +++| STD T1 01923 M00S01717.comptfm +++| SHN -11 01924 M00S01718.comptfm +++| RJM C2D CONVERT 2 OCTAL DIGITS 01925 M00S01719.comptfm +++| STM IAMA+13 01926 M00S01720.comptfm +++| LDD T1 01927 M00S01721.comptfm +++| SHN -3 01928 M00S01722.comptfm +++| RJM C2D CONVERT 2 OCTAL DIGITS 01929 M00S01723.comptfm +++| STM IAMA+14 01930 M00S01724.comptfm +++| LDD T1 01931 M00S01725.comptfm +++| LPN 7 01932 M00S01726.comptfm +++| SHN 6 01933 M00S01727.comptfm +++| ADC 2R0/ 01934 M00S01728.comptfm +++| STM IAMA+15 01935 M00S01729.comptfm +++| UJN CSNX RETURN 01936 M00S01730.comptfm +++| CSN$ ENDIF 01937 M00S01731.comptfm +++| FAM$ IF DEF,FAM$ 01938 M00S01732.comptfm +++| FAM SPACE 4,10 01939 M00S01733.comptfm +++|** FAM - FORMAT ACCOUNT FILE MESSAGE. 01940 M00S01734.comptfm +++|* 01941 M00S01735.comptfm +++|* *FAM* FORMATS THE ACCOUNT FILE MESSAGES FOR *IAM* AND *IRM*. 01942 M00S01736.comptfm +++|*
| Line S01737 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01943 M01S01737.t5472 ---|* ENTRY (CM - CM+4) = C* YY/MM/DD.*, IF CONDITIONAL RELEASE.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01738.comptfm +++|* = 0, IF UNCONDITIONAL RELEASE. 01948 M00S01739.comptfm +++|* (CSNA - CSNA+2) = DISPLAY CODE FOR SEQUENCE NUMBER. 01949 M00S01740.comptfm +++|* (PBUN - PBUN+3) = TAPE OWNER USERNAME. 01950 M00S01741.comptfm +++|* (PFAM - PFAM+3) = TAPE OWNER FAMILY NAME. 01951 M00S01742.comptfm +++|* (PESN - PESN+2) = FIRST TAPE VSN. 01952 M00S01743.comptfm +++|* (PVSN - PVSN+2) = CURRENT TAPE VSN.
| Line S01744 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01953 M01S01744.t5472 ---|* (T4) = 0, IF RESERVE MESSAGE DESIRED. 01954 M01S01745.t5472 ---|* .NE. 0, IF RELEASE MESSAGE DESIRED. 01955 M00S01746.comptfm +++|* 01956 M00S01747.comptfm +++|* EXIT (A) = 0, IF MESSAGE ENDED ON PP WORD BOUNDARY. 01957 M00S01748.comptfm +++|* .NE. 0, IF TO USE LOWER SIX BITS FOR PERIOD. 01958 M00S01749.comptfm +++|* (T2) = POINTER TO LWA OF MESSAGE FORMATTED. 01959 M00S01750.comptfm +++|* 01960 M00S01751.comptfm +++|* USES T0 - T3. 01961 M00S01752.comptfm +++|* 01962 M00S01753.comptfm +++|* MACROS MMOVE. 01963 M00S01754.comptfm +++| 01964 M00S01755.comptfm +++| 01965 M00S01756.comptfm +++| FAM SUBR ENTRY/EXIT
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01966 M02S00015.ns2763 ---| STM FAMA SAVE RESERVE/RELEASE FLAG
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01967 M01S00114.ns2763 +++| STD T0 SAVE RESERVE/RELEASE FLAG 01968 M00S01757.comptfm +++| LDC IAMA+3 SET POINTER TO FAMILY NAME 01969 M00S01758.comptfm +++| STD T2 01970 M00S01759.comptfm +++| MMOVE PFAM,,,,7 01971 M00S01760.comptfm +++| AOD T2 01972 M00S01761.comptfm +++| MMOVE PBUN,,,,7 01973 M00S01762.comptfm +++| LDI T2 01974 M00S01763.comptfm +++| SCN 77 01975 M00S01764.comptfm +++| ADN 1R/ 01976 M00S01765.comptfm +++| STI T2 01977 M00S01766.comptfm +++| LDN 4 SKIP OVER SEQUENCE NUMBER 01978 M00S01767.comptfm +++| RAD T2 01979 M00S01768.comptfm +++| MMOVE PESN,,,,6 01980 M00S01769.comptfm +++| LDC 2R, 01981 M00S01770.comptfm +++| STI T2 01982 M00S01771.comptfm +++| AOD T2
| Line S01772 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01983 M01S01772.t5472 ---| LDD T4
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01984 M02S00016.ns2763 ---| LDC 0 CHECK IF RESERVE 01985 M02S00017.ns2763 ---|* LDC * (CHECK IF RELEASE) 01986 M02S00018.ns2763 ---| FAMA EQU *-1
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01987 M01S00115.ns2763 +++| LDD T0 CHECK IF RESERVE 01988 M00S01773.comptfm +++| ZJN FAM2 IF RESERVE 01989 M00S01774.comptfm +++| LDD CM
| Line S01775 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 01990 M01S01775.t2807 ---| ZJN FAM1 IF UNCONDITIONAL RELEASE 01991 M01S01776.t2807 ---| MMOVE CM,,,,12
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 01992 M01S00008.t2807 +++| ZJN FAM1.1 IF UNCONDITIONAL RELEASE 01993 M01S00009.t2807 +++| MMOVE CM,,,,11 01994 M00S01777.comptfm +++| FAM1 UJP FAMX RETURN
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01778.comptfm +++| 02001 M00S01779.comptfm +++| FAM2 MMOVE PVSN,,,,6 02002 M00S01780.comptfm +++| UJN FAM1 RETURN 02003 M00S01781.comptfm +++| FAM$ ENDIF 02004 M00S01782.comptfm +++| GEP$ IF DEF,GEP$ 02005 M00S01783.comptfm +++| GEP SPACE 4,10 02006 M00S01784.comptfm +++|** GEP - GENERATE EMPTY PRU. 02007 M00S01785.comptfm +++|* 02008 M00S01786.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02009 M00S01787.comptfm +++| 02010 M00S01788.comptfm +++| 02011 M00S01789.comptfm +++| GEP SUBR ENTRY/EXIT 02012 M00S01790.comptfm +++| LDD BA 02013 M00S01791.comptfm +++| ADN 2 02014 M00S01792.comptfm +++| STD BP 02015 M00S01793.comptfm +++| STD T1 02016 M00S01794.comptfm +++| CLEAR ,,64D*10D 02017 M00S01795.comptfm +++| LDD HN 02018 M00S01796.comptfm +++| STM CWWC,BA
| Line S01797 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02019 M01S01797.ns2763 ---| LDC RTSB*100 SET RECORD TYPE
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02020 M01S00116.ns2763 +++| LDK RTSB*100 SET RECORD TYPE 02021 M00S01798.comptfm +++| STM CWRT,BA 02022 M00S01799.comptfm +++| LDN 64D-4 SET UNUSED WORD COUNT 02023 M00S01800.comptfm +++| STM CWUW,BA 02024 M00S01801.comptfm +++| LDN 0 02025 M00S01802.comptfm +++| STM CWEL,BA 02026 M00S01803.comptfm +++| STM CWNE,BA 02027 M00S01804.comptfm +++| LDN TBHL SET FIRST DATA WORD 02028 M00S01805.comptfm +++| STM CWFE,BA 02029 M00S01806.comptfm +++| UJP GEPX RETURN 02030 M00S01807.comptfm +++| GEP$ ENDIF 02031 M00S01808.comptfm +++| GNB$ IF DEF,GNB$ 02032 M00S01809.comptfm +++| GNB SPACE 4,10 02033 M00S01810.comptfm +++|** GNB - GET NEXT BLOCK. 02034 M00S01811.comptfm +++|* 02035 M00S01812.comptfm +++|* ENTRY (CTSB, CTSB+1) = CATALOG FST ADDRESS. 02036 M00S01813.comptfm +++|* (BA) = BUFFER ADDRESS. 02037 M00S01814.comptfm +++|* (RI - RI+1) = RANDOM INDEX. 02038 M00S01815.comptfm +++|* (CPRI - CPRI) = CURRENT POSITION. 02039 M00S01816.comptfm +++|* 02040 M00S01817.comptfm +++|* EXIT (A) = RANDOM INDEX OF CURRENT BLOCK. 02041 M00S01818.comptfm +++|* (CPRI - CPRI+1) = CURRENT POSITION. 02042 M00S01819.comptfm +++|* 02043 M00S01820.comptfm +++|* USES CPRI - CPRI+1. 02044 M00S01821.comptfm +++|* 02045 M00S01822.comptfm +++|* CALLS RRP. 02046 M00S01823.comptfm +++|* 02047 M00S01824.comptfm +++|* MACROS ERROR. 02048 M00S01825.comptfm +++| 02049 M00S01826.comptfm +++| 02050 M00S01827.comptfm +++| GNB2 LDD RI SET CURRENT FILE POSITION 02051 M00S01828.comptfm +++| STM CPRI 02052 M00S01829.comptfm +++| SHN 14 02053 M00S01830.comptfm +++| LMD RI+1 02054 M00S01831.comptfm +++| STM CPRI+1 02055 M00S01832.comptfm +++| 02056 M00S01833.comptfm +++| GNB SUBR ENTRY/EXIT 02057 M00S01834.comptfm +++| RJM RRP READ RANDOM PRU 02058 M00S01835.comptfm +++| LDD BA 02059 M00S01836.comptfm +++| ADN 2 02060 M00S01837.comptfm +++| STD BP 02061 M00S01838.comptfm +++| LDM CWBI,BA 02062 M00S01839.comptfm +++| LMM CPRI
| Line S01840 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02063 M01S01840.nos252 ---| NJN GNB1 IF INVALID LINKAGE
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02064 M01S00029.nos252 +++| NJN GNB1 IF INCORRECT LINKAGE 02065 M00S01841.comptfm +++| LDM CWBI+1,BA 02066 M00S01842.comptfm +++| LMM CPRI+1 02067 M00S01843.comptfm +++| ZJN GNB2 IF VALID LINKAGE 02068 M00S01844.comptfm +++| GNB1 ERROR CLE *CATALOG LINKAGE ERROR.* 02069 M00S01845.comptfm +++| GNB$ ENDIF 02070 M00S01846.comptfm +++| GNL$ IF DEF,GNL$ 02071 M00S01847.comptfm +++| GNL SPACE 4,10 02072 M00S01848.comptfm +++|** GNL - GET NEXT LINK. 02073 M00S01849.comptfm +++|* 02074 M00S01850.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02075 M00S01851.comptfm +++|* 02076 M00S01852.comptfm +++|* EXIT (A) = 1 IF BLOCK LINKED. 02077 M00S01853.comptfm +++|* (A) = 0 IF BLOCK NOT LINKED. 02078 M00S01854.comptfm +++|* (RI - RI+1) = RANDOM INDEX OF NEXT BLOCK. 02079 M00S01855.comptfm +++|* 02080 M00S01856.comptfm +++|* USES RI - RI+1. 02081 M00S01857.comptfm +++| 02082 M00S01858.comptfm +++| 02083 M00S01859.comptfm +++| GNL SUBR ENTRY/EXIT 02084 M00S01860.comptfm +++| LDA CWRI,BA 02085 M00S01861.comptfm +++| ZJN GNLX IF BLOCK NOT LINKED 02086 M00S01862.comptfm +++| STD RI+1 02087 M00S01863.comptfm +++| SHN -14 02088 M00S01864.comptfm +++| STD RI 02089 M00S01865.comptfm +++| LDN 1 02090 M00S01866.comptfm +++| UJN GNLX RETURN 02091 M00S01867.comptfm +++| GNL$ ENDIF
| Line S01868 Modification History | |
|---|---|
M01 (Removed by) | t5519 |
Seq # *Modification Id* Act ----------------------------+ 02092 M01S01868.t5519 ---| GPB$ IF DEF,GPB$ 02093 M01S01869.t5519 ---| GPB SPACE 4,10 02094 M01S01870.t5519 ---|** GPB - GET PREVIOUS BLOCK. 02095 M01S01871.t5519 ---|* 02096 M01S01872.t5519 ---|* ENTRY (CO) = CATALOG FST ORDINAL. 02097 M01S01873.t5519 ---|* (BA) = BUFFER ADDRESS. 02098 M01S01874.t5519 ---|* (RI + RI+1) = RANDOM INDEX. 02099 M01S01875.t5519 ---|* 02100 M01S01876.t5519 ---|* EXIT (A) = RANDOM INDEX OF CURRENT BLOCK. 02101 M01S01877.t5519 ---|* (CPRI - CPRI+1) = CURRENT POSITION. 02102 M01S01878.t5519 ---| 02103 M01S01879.t5519 ---|* 02104 M01S01880.t5519 ---|* USES CPRI - CPRI+1. 02105 M01S01881.t5519 ---|* 02106 M01S01882.t5519 ---|* CALLS RRP. 02107 M01S01883.t5519 ---|* 02108 M01S01884.t5519 ---|* MACROS ERROR. 02109 M01S01885.t5519 ---| 02110 M01S01886.t5519 ---| GPB2 LDD RI SET CURRENT FILE POSITION 02111 M01S01887.t5519 ---| STM CPRI 02112 M01S01888.t5519 ---| SHN 14 02113 M01S01889.t5519 ---| LMD RI+1 02114 M01S01890.t5519 ---| STM CPRI+1 02115 M01S01891.t5519 ---| 02116 M01S01892.t5519 ---| GPB SUBR ENTRY/EXIT 02117 M01S01893.t5519 ---| RJM RRP READ RANDOM PRU 02118 M01S01894.t5519 ---| LDD BA 02119 M01S01895.t5519 ---| ADN 2 02120 M01S01896.t5519 ---| STD BP 02121 M01S01897.t5519 ---| LDM CWRI,BA 02122 M01S01898.t5519 ---| LMM CPRI 02123 M01S01899.t5519 ---| NJN GPB1 IF INVALID LINKAGE 02124 M01S01900.t5519 ---| LDM CWRI+1,BA 02125 M01S01901.t5519 ---| LMM CPRI+1 02126 M01S01902.t5519 ---| ZJN GPB2 IF VALID LINKAGE 02127 M01S01903.t5519 ---| GPB1 ERROR CLE *CATALOG LINKAGE ERROR.* 02128 M01S01904.t5519 ---| GPB$ ENDIF 02129 M00S01905.comptfm +++| GPL$ IF DEF,GPL$ 02130 M00S01906.comptfm +++| GPL SPACE 4,10 02131 M00S01907.comptfm +++|** GPL - GET PREVIOUS LINK. 02132 M00S01908.comptfm +++|* 02133 M00S01909.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02134 M00S01910.comptfm +++|* 02135 M00S01911.comptfm +++|* EXIT (A) = 1 IF BLOCK LINKED. 02136 M00S01912.comptfm +++|* (A) = 0 IF BLOCK NOT LINKED. 02137 M00S01913.comptfm +++|* (RI - RI+1) = RANDOM INDEX TO PREVIOUS BLOCK. 02138 M00S01914.comptfm +++|* 02139 M00S01915.comptfm +++|* USES RI - RI+1. 02140 M00S01916.comptfm +++| 02141 M00S01917.comptfm +++| 02142 M00S01918.comptfm +++| GPL SUBR ENTRY/EXIT 02143 M00S01919.comptfm +++| LDA CWBI,BA 02144 M00S01920.comptfm +++| ZJN GPLX IF BLOCK NOT LINKED 02145 M00S01921.comptfm +++| STD RI+1 02146 M00S01922.comptfm +++| SHN -14 02147 M00S01923.comptfm +++| STD RI 02148 M00S01924.comptfm +++| LDN 1 02149 M00S01925.comptfm +++| UJN GPLX RETURN 02150 M00S01926.comptfm +++| GPL$ ENDIF 02151 M00S01927.comptfm +++| IBC$ IF DEF,IBC$ 02152 M00S01928.comptfm +++| IBC SPACE 4,10 02153 M00S01929.comptfm +++|** IBC - INITIALIZE BLOCK CHAIN. 02154 M00S01930.comptfm +++|* 02155 M00S01931.comptfm +++| 02156 M00S01932.comptfm +++| 02157 M00S01933.comptfm +++| IBC SUBR ENTRY/EXIT 02158 M00S01934.comptfm +++| AOM LNBA BYPASS WRITE OF CURRENT BLOCK 02159 M00S01935.comptfm +++| LDC LDCI*100 02160 M00S01936.comptfm +++| STM LNBD+1 02161 M00S01937.comptfm +++| STM LNBF+1 02162 M00S01938.comptfm +++| SHN -6 02163 M00S01939.comptfm +++| STM LNBD 02164 M00S01940.comptfm +++| STM LNBF 02165 M00S01941.comptfm +++| RJM LNB LINK NEXT BLOCK 02166 M00S01942.comptfm +++| UJN IBCX RETURN 02167 M00S01943.comptfm +++| IBC$ ENDIF 02168 M00S01944.comptfm +++| IDE$ IF DEF,IDE$ 02169 M00S01945.comptfm +++| IDE SPACE 4,10 02170 M00S01946.comptfm +++|** IDE - INSERT DATA ENTRY. 02171 M00S01947.comptfm +++|* 02172 M00S01948.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02173 M00S01949.comptfm +++|* (BP) = BUFFER POINTER FOR INSERT. 02174 M00S01950.comptfm +++|* (PB) = PARAMETER BLOCK ADDRESS FOR DATA ENTRY. 02175 M00S01951.comptfm +++| 02176 M00S01952.comptfm +++| 02177 M00S01953.comptfm +++| IDE SUBR ENTRY/EXIT 02178 M00S01954.comptfm +++| LDI BP CHECK FOR EMPTY ENTRY 02179 M00S01955.comptfm +++| ZJN IDE1 IF EMPTY ENTRY 02180 M00S01956.comptfm +++| LDM CWEL,BA MOVE ENTRIES DOWN 02181 M00S01957.comptfm +++| SHN 14 02182 M00S01958.comptfm +++| LMM CWNE,BA 02183 M00S01959.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 02184 M00S01960.comptfm +++| ADM CWFE,BA 02185 M00S01961.comptfm +++| STD T1 CONVERT TO BYTES 02186 M00S01962.comptfm +++| SHN 2 02187 M00S01963.comptfm +++| RAD T1 02188 M00S01964.comptfm +++| AOD T1 02189 M00S01965.comptfm +++| LDD BA BIAS BY BUFFER ADDRESS 02190 M00S01966.comptfm +++| RAD T1 02191 M00S01967.comptfm +++| SBD BP SET BYTE COUNT FOR MOVE 02192 M00S01968.comptfm +++| ADN 1 02193 M00S01969.comptfm +++| IDE1 ZJN IDE3 IF BLOCK MOVE NOT NECESSARY 02194 M00S01970.comptfm +++| STD T0 02195 M00S01971.comptfm +++| LDM CWEL,BA SET FWA OF DESTINATION 02196 M00S01972.comptfm +++| STD T2 02197 M00S01973.comptfm +++| SHN 2 02198 M00S01974.comptfm +++| RAD T2 02199 M00S01975.comptfm +++| LDD T1 02200 M00S01976.comptfm +++| RAD T2 02201 M00S01977.comptfm +++| IDE2 LDI T1 MOVE BLOCK LOOP 02202 M00S01978.comptfm +++| STI T2 02203 M00S01979.comptfm +++| SOD T1 02204 M00S01980.comptfm +++| SOD T2 02205 M00S01981.comptfm +++| SOD T0 02206 M00S01982.comptfm +++| NJN IDE2 IF MORE TO MOVE 02207 M00S01983.comptfm +++| IDE3 LDD PB ENTER DATA 02208 M00S01984.comptfm +++| STD T1 02209 M00S01985.comptfm +++| LDD BP 02210 M00S01986.comptfm +++| STD T2 02211 M00S01987.comptfm +++| LDM CWEL,BA 02212 M00S01988.comptfm +++| STD T0 02213 M00S01989.comptfm +++| SHN 2 02214 M00S01990.comptfm +++| RAD T0 02215 M00S01991.comptfm +++| IDE4 LDI T1 MOVE DATA LOOP 02216 M00S01992.comptfm +++| STI T2 02217 M00S01993.comptfm +++| AOD T1 02218 M00S01994.comptfm +++| AOD T2 02219 M00S01995.comptfm +++| SOD T0 02220 M00S01996.comptfm +++| NJN IDE4 IF MORE TO MOVE 02221 M00S01997.comptfm +++| AOM CWNE,BA UPDATE BLOCK CONTROL WORDS 02222 M00S01998.comptfm +++| IF DEF,RIB$,2 02223 M00S01999.comptfm +++| RJM RIB ROOM IN BLOCK 02224 M00S02000.comptfm +++| SKIP 2 02225 M00S02001.comptfm +++| LDM CWUW,BA 02226 M00S02002.comptfm +++| SBM CWEL,BA 02227 M00S02003.comptfm +++| STM CWUW,BA 02228 M00S02004.comptfm +++| LJM IDEX RETURN 02229 M00S02005.comptfm +++| IDE$ ENDIF 02230 M00S02006.comptfm +++| IRS$ IF DEF,IRS$ 02231 M00S02007.comptfm +++| IRS SPACE 4,15 02232 M00S02008.comptfm +++|** IRS - ISSUE *TMS* RECOVERY MESSAGES SUBROUTINE. 02233 M00S02009.comptfm +++|* 02234 M00S02010.comptfm +++|* ENTRY (A) = 0, IF ON A WORD BOUNDARY. 02235 M00S02011.comptfm +++|* .NE. 0, IF TO USE LOWER SIX BITS FOR PERIOD. 02236 M00S02012.comptfm +++|* 02237 M00S02013.comptfm +++|* EXIT (T2) = RESET FOR NEXT MESSAGE BUILD. 02238 M00S02014.comptfm +++|* (IAMA+1) = INCREMENTED TO NEXT MESSAGE ID. 02239 M00S02015.comptfm +++|* MESSAGE ISSUED TO ACCOUNT FILE. 02240 M00S02016.comptfm +++|* 02241 M00S02017.comptfm +++|* USES T0 - T4. 02242 M00S02018.comptfm +++|* 02243 M00S02019.comptfm +++|* CALLS DFM, SCC. 02244 M00S02020.comptfm +++| 02245 M00S02021.comptfm +++| 02246 M00S02022.comptfm +++| IRS1 LDI T2 02247 M00S02023.comptfm +++| SCN 77 02248 M00S02024.comptfm +++| ADN 1R. 02249 M00S02025.comptfm +++| IRS2 STI T2 02250 M00S02026.comptfm +++| LDN 0 TERMINATE MESSAGE 02251 M00S02027.comptfm +++| STM 1,T2 02252 M00S02028.comptfm +++| LDN 1R 02253 M00S02029.comptfm +++| STD T3 02254 M00S02030.comptfm +++| LDC IAMA+1 02255 M00S02031.comptfm +++| STD T4 02256 M00S02032.comptfm +++| RJM SCC SPACE-FILL DAYFILE MESSAGE 02257 M00S02033.comptfm +++| LDC TMSG+IAMA ISSUE RECOVERY MESSAGES 02258 M00S02034.comptfm +++| IFNE TMSG,0,1 02259 M00S02035.comptfm +++| RJM DFM
| Line S02036 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02260 M01S02036.nos252 ---| LDD HN INCREMENT ACCOUNT MESSAGE IDENT
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02261 M02S00030.ns2763 ---| LDD ON INCREMENT ACCOUNT MESSAGE IDENT
| Line S02037 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02262 M01S02037.ns2763 ---| RAM IAMA+1
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S00117.ns2763 +++| AOM IAMA+1 INCREMENT ACCOUNT MESSAGE IDENT 02264 M00S02038.comptfm +++| LDC IAMA+7 SETUP FOR *MMOVE* MACRO 02265 M00S02039.comptfm +++| STD T2 02266 M00S02040.comptfm +++| 02267 M00S02041.comptfm +++| IRS SUBR ENTRY/EXIT 02268 M00S02042.comptfm +++| NJN IRS1 IF NOT ON A WORD BOUNDARY 02269 M00S02043.comptfm +++| LDC 5700 (.:) 02270 M00S02044.comptfm +++| UJN IRS2 FINISH PROCESSING 02271 M00S02045.comptfm +++| 02272 M00S02046.comptfm +++| SCC$ EQU 1 DEFINE SCC - SUBSTITUTE CHAR. FOR COLON 02273 M00S02047.comptfm +++| IRS$ ENDIF 02274 M00S02048.comptfm +++| SCC$ IF DEF,SCC$ 02275 M00S02049.comptfm +++| SCC SPACE 4,15 02276 M00S02050.comptfm +++|** SCC - SUBSTITUTE CHARACTER FOR COLON. 02277 M00S02051.comptfm +++|* 02278 M00S02052.comptfm +++|* ENTRY (T2) = LAST CHARACTER TO CHECK FOR SUBSTITUTION. 02279 M00S02053.comptfm +++|* (T3) = CHARACTER TO SUBSTITUTE FOR COLONS. 02280 M00S02054.comptfm +++|* (T4) = FWA OF STRING TO CHECK FOR COLONS. 02281 M00S02055.comptfm +++|* 02282 M00S02056.comptfm +++|* EXIT (A) = (T0) = 0, IF CHARACTER IN STRING MATCHES 02283 M00S02057.comptfm +++|* SUBSTITUTION CHARACTER. 02284 M00S02058.comptfm +++|* .NE. 0, IF NO MATCHES FOUND. 02285 M00S02059.comptfm +++|* 02286 M00S02060.comptfm +++|* USES T0, T2. 02287 M00S02061.comptfm +++| 02288 M00S02062.comptfm +++|
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02063.comptfm +++| SCC SUBR ENTRY/EXIT 02298 M00S02064.comptfm +++| LDN 1 SET T0 NON-ZERO 02299 M00S02065.comptfm +++| STD T0 02300 M00S02066.comptfm +++| SCC1 LDI T2 GET CHARACTER TO CHECK 02301 M00S02067.comptfm +++| SHN -6 02302 M00S02068.comptfm +++| NJN SCC4 IF CHARACTER IS NOT A COLON 02303 M00S02069.comptfm +++| LDD T3 02304 M00S02070.comptfm +++| SHN 6 02305 M00S02071.comptfm +++| RAI T2 02306 M00S02072.comptfm +++| SCC2 LDI T2 GET NEXT CHARACTER TO CHECK 02307 M00S02073.comptfm +++| LPN 77
| Line S02074 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02308 M01S02074.ns2763 ---| NJN SCC5 IF CHARACTER IS NOT A COLON
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02309 M01S00126.ns2763 +++| NJP SCC5 IF CHARACTER IS NOT A COLON 02310 M00S02075.comptfm +++| LDD T3 02311 M00S02076.comptfm +++| RAI T2
| Line S02077 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02312 M01S02077.ns2763 ---| SCC3 SOD T2 DECREMENT TO NEXT BYTE 02313 M01S02078.ns2763 ---| SBD T4 02314 M01S02079.ns2763 ---| PJN SCC1 IF NOT THROUGH CHECKING ALL CHARACTERS 02315 M01S02080.ns2763 ---| LDD T0 02316 M01S02081.ns2763 ---| UJP SCCX RETURN
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02317 M01S00127.ns2763 +++| UJP SCC6 CHECK NEXT BYTE 02318 M00S02082.comptfm +++| 02319 M00S02083.comptfm +++| SCC4 LMD T3 02320 M00S02084.comptfm +++| NJN SCC2 IF NO MATCH WITH SUBSTITUTION CHARACTER 02321 M00S02085.comptfm +++| STD T0 SET MATCH FLAG 02322 M00S02086.comptfm +++| UJP SCC2 CHECK NEXT CHARACTER
| Line S02087 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02323 M01S02087.ns2763 ---| 02324 M01S02088.ns2763 ---| SCC5 LMD T3 02325 M01S02089.ns2763 ---| NJN SCC3 IF NO MATCH WITH SUBSTITUTION CHARACTER 02326 M01S02090.ns2763 ---| STD T0 SET MATCH FLAG 02327 M01S02091.ns2763 ---| UJP SCC3 CHECK NEXT BYTE 02328 M00S02092.comptfm +++| 02329 M00S02093.comptfm +++| SCC$ ENDIF 02330 M00S02094.comptfm +++| ISK$ IF DEF,ISK$ 02331 M00S02095.comptfm +++| ISK SPACE 4,10 02332 M00S02096.comptfm +++|** ISK - INDEX SEARCH FOR KEY. 02333 M00S02097.comptfm +++|* 02334 M00S02098.comptfm +++|* ENTRY (KA) = KEY ADDRESS. 02335 M00S02099.comptfm +++|* (RI - RI+1) = RANDOM INDEX OF PRIMARY INDEX. 02336 M00S02100.comptfm +++|* 02337 M00S02101.comptfm +++|* EXIT (A) .EQ. 0 IF FOUND. 02338 M00S02102.comptfm +++|* .GT. 0 IF NOT FOUND. 02339 M00S02103.comptfm +++|* .EQ. -0 IF END OF INDEX. 02340 M00S02104.comptfm +++|* (CPPI) = BUFFER ADDRESS OF PRIMARY INDEX. 02341 M00S02105.comptfm +++|* (CPPI+4) = BUFFER POINTER OF PRIMARY INDEX. 02342 M00S02106.comptfm +++|* (CPSI) = BUFFER ADDRESS OF SECONDARY INDEX. 02343 M00S02107.comptfm +++|* (CPSI+4) = BUFFER POINTER OF SECONDARY INDEX. 02344 M00S02108.comptfm +++|* 02345 M00S02109.comptfm +++|* USES CPPI - CPPI+4, CPSI - CPSI+4, RI - RI+1. 02346 M00S02110.comptfm +++|* 02347 M00S02111.comptfm +++|* CALLS BSE, GIB, GNB, GNL, GPL, MBP, PLI, SIB, TBA. 02348 M00S02112.comptfm +++|* 02349 M00S02113.comptfm +++|* MACROS CLEAR, ERROR, SAVEP. 02350 M00S02114.comptfm +++| 02351 M00S02115.comptfm +++| 02352 M00S02116.comptfm +++| ISK6 STM ISKA+1 SAVE EXIT CONDITION 02353 M00S02117.comptfm +++| SHN -14 02354 M00S02118.comptfm +++| LMC LDCI 02355 M00S02119.comptfm +++| STM ISKA 02356 M00S02120.comptfm +++| SAVEP CPSI SAVE SECONDARY POINTERS 02357 M00S02121.comptfm +++| LDC ** 02358 M00S02122.comptfm +++| ISKA EQU *-2 (EXIT CONDITION) 02359 M00S02123.comptfm +++| 02360 M00S02124.comptfm +++| ISK SUBR ENTRY/EXIT 02361 M00S02125.comptfm +++| CLEAR CPPI,,2*10D 02362 M00S02126.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 02363 M00S02127.comptfm +++| RJM GIB GET INITIAL BLOCK 02364 M00S02128.comptfm +++| ISK1 LDM CWFE,BA 02365 M00S02129.comptfm +++| RJM MBP MOVE BUFFER POINTER 02366 M00S02130.comptfm +++| RJM SIB SEARCH INDEX BUFFER 02367 M00S02131.comptfm +++| ZJN ISK4 IF KEY FOUND IN PRIMARY INDEX 02368 M00S02132.comptfm +++| PJN ISK2 IF POSSIBLE MATCH 02369 M00S02133.comptfm +++| RJM GNL GET NEXT LINK 02370 M00S02134.comptfm +++| ZJN ISK2 IF BLOCK NOT LINKED 02371 M00S02135.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 02372 M00S02136.comptfm +++| RJM GNB GET NEXT BLOCK 02373 M00S02137.comptfm +++| UJN ISK1 SEARCH PRIMARY INDEX 02374 M00S02138.comptfm +++| 02375 M00S02139.comptfm +++| ISK2 RJM BSE BACK SPACE ONE ENTRY 02376 M00S02140.comptfm +++| NJN ISK4 IF NOT FIRST ENTRY 02377 M00S02141.comptfm +++| RJM GPL GET PREVIOUS LINK 02378 M00S02142.comptfm +++| NJN ISK3 IF BLOCK NOT LINKED 02379 M00S02143.comptfm +++| LCN 0 SET END OF INDEX 02380 M00S02144.comptfm +++| LJM ISKX RETURN 02381 M00S02145.comptfm +++| 02382 M00S02146.comptfm +++| ISK3 RJM TBA TOGGLE BUFFER ASSIGNMENT 02383 M00S02147.comptfm +++| RJM PLI POSITION TO LAST INDEX 02384 M00S02148.comptfm +++| ISK4 SAVEP CPPI SAVE PRIMARY POINTERS 02385 M00S02149.comptfm +++| LDM 3,BP SET SECONDARY INDEX R.I. 02386 M00S02150.comptfm +++| LPN 77 02387 M00S02151.comptfm +++| STD RI 02388 M00S02152.comptfm +++| SHN 14 02389 M00S02153.comptfm +++| LMM 4,BP 02390 M00S02154.comptfm +++| STD RI+1 02391 M00S02155.comptfm +++| NJN ISK5 IF SECONDARY INDEX 02392 M00S02156.comptfm +++| ERROR EID *ERROR IN INDEX DATA.* 02393 M00S02157.comptfm +++| 02394 M00S02158.comptfm +++| ISK5 RJM TBA TOGGLE BUFFER ASSIGNMENT 02395 M00S02159.comptfm +++| RJM GIB GET INITIAL BLOCK 02396 M00S02160.comptfm +++| LDM CWFE,BA 02397 M00S02161.comptfm +++| RJM MBP MOVE BUFFER POINTER 02398 M00S02162.comptfm +++| RJM SIB SEARCH INDEX BUFFER 02399 M00S02163.comptfm +++| LJM ISK6 RETURN 02400 M00S02164.comptfm +++| ISK$ ENDIF 02401 M00S02165.comptfm +++| ISP$ IF DEF,ISP$ 02402 M00S02166.comptfm +++| ISP SPACE 4,10 02403 M00S02167.comptfm +++|** ISP - INITIALIZE SCRATCH PROCESSOR. 02404 M00S02168.comptfm +++|*
| Line S02169 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02405 M01S02169.274l797 ---|* SETS THE CURRENT SCRATCH VSN AND SCRATCH COUNT IN 02406 M01S02170.274l797 ---|* MEMORY CELLS AVAILABLE TO ROUTINE *RSP* IN THIS OVERLAY.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02171.comptfm +++|* 02410 M00S02172.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (TMST). 02411 M00S02173.comptfm +++|* (BP) = BUFFER POINTER (TMST). 02412 M00S02174.comptfm +++|* BUFFER LOADED FROM PRESET. 02413 M00S02175.comptfm +++|*
| Line S02176 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02414 M01S02176.274l797 ---|* EXIT (RSPA - RSPA+2) = CURRENT SCRATCH VSN. 02415 M01S02177.274l797 ---|* (PVSN+3 - PVSN+4) = CURRENT SCRATCH COUNT.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02178.comptfm +++|* 02420 M00S02179.comptfm +++|* MACROS MMOVE. 02421 M00S02180.comptfm +++| 02422 M00S02181.comptfm +++| 02423 M00S02182.comptfm +++| ISP SUBR ENTRY/EXIT
| Line S02183 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02424 M01S02183.274l797 ---| MMOVE SBSV,BP,RSPA,,VSKL 02425 M01S02184.274l797 ---| LDM SBSC,BP SET SCRATCH COUNT 02426 M01S02185.274l797 ---| STM PVSN+3 02427 M01S02186.274l797 ---| LDM SBSC+1,BP 02428 M01S02187.274l797 ---| STM PVSN+4
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02188.comptfm +++| UJN ISPX RETURN 02433 M00S02189.comptfm +++| ISP$ ENDIF 02434 M00S02190.comptfm +++| LNB$ IF DEF,LNB$ 02435 M00S02191.comptfm +++| LNB SPACE 4,10 02436 M00S02192.comptfm +++|** LNB - LINK NEXT BLOCK. 02437 M00S02193.comptfm +++|* 02438 M00S02194.comptfm +++|* ENTRY (CO) = CATALOG FST ADDRESS. 02439 M00S02195.comptfm +++|* (BA) = BUFFER ADDRESS. 02440 M00S02196.comptfm +++|* (RI - RI+1) = RANDOM INDEX OF BLOCK TO LINK. 02441 M00S02197.comptfm +++|* 02442 M00S02198.comptfm +++|* EXIT BUFFER (BA) LOADED AND INITIALIZED. 02443 M00S02199.comptfm +++|* CONTROL WORDS UPDATED. 02444 M00S02200.comptfm +++|* 02445 M00S02201.comptfm +++|* USES FS - FS+4, RI - RI+1, T5 - T5+4. 02446 M00S02202.comptfm +++|* 02447 M00S02203.comptfm +++|* CALLS GEP, MBP, RRP, SEI, SRA, WES, WRP. 02448 M00S02204.comptfm +++|* 02449 M00S02205.comptfm +++|* MACROS LDA. 02450 M00S02206.comptfm +++| 02451 M00S02207.comptfm +++| 02452 M00S02208.comptfm +++| LNB SUBR ENTRY/EXIT 02453 M00S02209.comptfm +++| LDA CPEB,ABS GET EMPTY BLOCK POINTER 02454 M00S02210.comptfm +++| NJP LNB2 IF EXISTING EMPTY PRU 02455 M00S02211.comptfm +++| AOM LNBE SET WRITE EOI SECTOR 02456 M00S02212.comptfm +++| AOM LNBH SET NO HOLE POINTER UPDATE 02457 M00S02213.comptfm +++| LDD FO 02458 M00S02214.comptfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 02459 M00S02215.comptfm +++| CRD FS 02460 M00S02216.comptfm +++| LDD EQ
| Line S02217 Modification History | |
|---|---|
M01 (Removed by) | m1669 |
Seq # *Modification Id* Act ----------------------------+ 02461 M01S02217.m1669 ---| STD EQ 02462 M00S02218.comptfm +++| STD T5 02463 M00S02219.comptfm +++| LDD TK 02464 M00S02220.comptfm +++| STD T6 02465 M00S02221.comptfm +++| RJM SEI SEARCH FOR END OF INFORMATION 02466 M00S02222.comptfm +++| LDD T6 SAVE EOI TRACK 02467 M00S02223.comptfm +++| STD FS+3 02468 M00S02224.comptfm +++| LDD T7 SAVE EOI SECTOR 02469 M00S02225.comptfm +++| STD FS+4 02470 M00S02226.comptfm +++| LDD TK SET FIRST TRACK 02471 M00S02227.comptfm +++| RJM SRA SET RANDOM ADDRESS 02472 M00S02228.comptfm +++| ZJN LNB1 IF TRACK/SECTOR VALID 02473 M00S02229.comptfm +++| ERROR EOI *EOI NOT ON TRACK CHAIN.* 02474 M00S02230.comptfm +++| 02475 M00S02231.comptfm +++| LNB1 LDD RI LOAD EOR RANDOM INDEX TO (A) 02476 M00S02232.comptfm +++| SHN 14 02477 M00S02233.comptfm +++| LMD RI+1 02478 M00S02234.comptfm +++| SBN 1 02479 M00S02235.comptfm +++| LNB2 STM LNBG+1 SET NEXT BLOCK RANDOM ADDRESS 02480 M00S02236.comptfm +++| SHN -14 02481 M00S02237.comptfm +++| LMC LDCI 02482 M00S02238.comptfm +++| STM LNBG 02483 M00S02239.comptfm +++| LDN 0 02484 M00S02240.comptfm +++| LNBA EQU *-1 (BYPASS WRITE OF CURRENT BLOCK) 02485 M00S02241.comptfm +++| NJN LNB3 IF BYPASS WRITE OF CURRENT BLOCK 02486 M00S02242.comptfm +++| LDA LNBG,ABS SET NEXT BLOCK LINKAGE 02487 M00S02243.comptfm +++| STM **,BA 02488 M00S02244.comptfm +++| LNBB EQU *-1 (FWA+1 OF LINKAGE BYTE) 02489 M00S02245.comptfm +++| SHN -14 02490 M00S02246.comptfm +++| STM **,BA 02491 M00S02247.comptfm +++| LNBC EQU *-1 (FWA OF LINKAGE BYTE) 02492 M00S02248.comptfm +++| LDC ** REWRITE CURRENT BLOCK 02493 M00S02249.comptfm +++| LNBD EQU *-2 (RANDOM ADDRESS OF CURRENT BLOCK) 02494 M00S02250.comptfm +++| STD RI+1 02495 M00S02251.comptfm +++| SHN -14 02496 M00S02252.comptfm +++| STD RI 02497 M00S02253.comptfm +++| RJM WRP WRITE RANDOM PRU 02498 M00S02254.comptfm +++| LNB3 LDN 0 CHECK FOR EOI WRITE 02499 M00S02255.comptfm +++| LNBE EQU *-1 (WRITE EOI SECTOR) 02500 M00S02256.comptfm +++| ZJN LNB4 IF NOT EOI WRITE 02501 M00S02257.comptfm +++| RJM WES WRITE EOR/EOI SEQUENCE 02502 M00S02258.comptfm +++| LNB4 LDC ** UPDATE NEXT PRU 02503 M00S02259.comptfm +++| LNBF EQU *-2 (NEXT BLOCK RANDOM INDEX) 02504 M00S02260.comptfm +++| ZJN LNB5 IF ADDING TO END OF CHAIN 02505 M00S02261.comptfm +++| STD RI+1 02506 M00S02262.comptfm +++| SHN -14 02507 M00S02263.comptfm +++| STD RI 02508 M00S02264.comptfm +++| RJM GIB GET INITIAL BLOCK 02509 M00S02265.comptfm +++| LDC ** 02510 M00S02266.comptfm +++| LNBG EQU *-2 (EMPTY BLOCK RANDOM INDEX) 02511 M00S02267.comptfm +++| STM CWBI+1,BA 02512 M00S02268.comptfm +++| SHN -14 02513 M00S02269.comptfm +++| STM CWBI,BA 02514 M00S02270.comptfm +++| RJM WRP WRITE RANDOM PRU 02515 M00S02271.comptfm +++| LNB5 LDA LNBG,ABS GET EMPTY PRU 02516 M00S02272.comptfm +++| STD RI+1 02517 M00S02273.comptfm +++| SHN -14 02518 M00S02274.comptfm +++| STD RI 02519 M00S02275.comptfm +++| RJM GIB GET INITIAL BLOCK 02520 M00S02276.comptfm +++| LDN 0 CHECK HOLE POINTER UPDATE 02521 M00S02277.comptfm +++| LNBH EQU *-1 (NO HOLE POINTER UPDATE) 02522 M00S02278.comptfm +++| NJP LNB6 IF NOT UPDATING HOLE POINTER 02523 M00S02279.comptfm +++| LDM CWRI,BA SET EMPTY BLOCK ADDRESS 02524 M00S02280.comptfm +++| STM CPEB 02525 M00S02281.comptfm +++| LDM CWRI+1,BA 02526 M00S02282.comptfm +++| STM CPEB+1 02527 M00S02283.comptfm +++| LDN TMSB READ SYSTEM BLOCK 02528 M00S02284.comptfm +++| STD RI+1 02529 M00S02285.comptfm +++| SHN -14 02530 M00S02286.comptfm +++| STD RI 02531 M00S02287.comptfm +++| RJM GIB GET INITIAL BLOCK 02532 M00S02288.comptfm +++| LDM CWFE,BA 02533 M00S02289.comptfm +++| RJM MBP MOVE BUFFER POINTER 02534 M00S02290.comptfm +++| LDA CPEB,ABS 02535 M00S02291.comptfm +++| STM SBHP+1,BP 02536 M00S02292.comptfm +++| SHN -14 02537 M00S02293.comptfm +++| STM SBHP,BP 02538 M00S02294.comptfm +++| RJM WRP WRITE RANDOM PRU 02539 M00S02295.comptfm +++| LDA LNBG,ABS 02540 M00S02296.comptfm +++| STD RI+1 02541 M00S02297.comptfm +++| SHN -14 02542 M00S02298.comptfm +++| STD RI 02543 M00S02299.comptfm +++| RJM GIB GET INITIAL BLOCK 02544 M00S02300.comptfm +++| LNB6 RJM GEP GENERATE EMPTY PRU 02545 M00S02301.comptfm +++| LDA LNBD,ABS PREVIOUS BLOCK RANDOM INDEX 02546 M00S02302.comptfm +++| STM CWBI+1,BA 02547 M00S02303.comptfm +++| SHN -14 02548 M00S02304.comptfm +++| STM CWBI,BA 02549 M00S02305.comptfm +++| LDA LNBF,ABS 02550 M00S02306.comptfm +++| STM CWRI+1,BA 02551 M00S02307.comptfm +++| SHN -14 02552 M00S02308.comptfm +++| STM CWRI,BA 02553 M00S02309.comptfm +++| LDC LDNI 02554 M00S02310.comptfm +++| STM LNBA RESET WRITE CURRENT BLOCK 02555 M00S02311.comptfm +++| STM LNBE RESET NO EOR/EOI WRITE 02556 M00S02312.comptfm +++| STM LNBH RESET HOLE POINTER UPDATE 02557 M00S02313.comptfm +++| LJM LNBX RETURN 02558 M00S02314.comptfm +++| LNB$ ENDIF 02559 M00S02315.comptfm +++| PLI$ IF DEF,PLI$ 02560 M00S02316.comptfm +++| PLI SPACE 4,10 02561 M00S02317.comptfm +++|** PLI - POSITION TO LAST INDEX. 02562 M00S02318.comptfm +++|* 02563 M00S02319.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02564 M00S02320.comptfm +++|* 02565 M00S02321.comptfm +++|* EXIT (A) = BUFFER POINTER. 02566 M00S02322.comptfm +++|* (BA) = BUFFER ADDRESS (UNCHANGED). 02567 M00S02323.comptfm +++|* (BP) = BUFFER POINTER (UPDATED). 02568 M00S02324.comptfm +++|* 02569 M00S02325.comptfm +++|* USES BP. 02570 M00S02326.comptfm +++|* 02571 M00S02327.comptfm +++|* CALLS MBP, MLT. 02572 M00S02328.comptfm +++| 02573 M00S02329.comptfm +++| 02574 M00S02330.comptfm +++| PLI SUBR ENTRY/EXIT 02575 M00S02331.comptfm +++| LDD BA 02576 M00S02332.comptfm +++| ADN 2 02577 M00S02333.comptfm +++| STD BP 02578 M00S02334.comptfm +++| LDM CWFE,BA 02579 M00S02335.comptfm +++| RJM MBP MOVE BUFFER POINTER 02580 M00S02336.comptfm +++| LDM CWEL,BA 02581 M00S02337.comptfm +++| SHN 14 02582 M00S02338.comptfm +++| LMM CWNE,BA 02583 M00S02339.comptfm +++| SBN 1 02584 M00S02340.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 02585 M00S02341.comptfm +++| RJM MBP MOVE BUFFER POINTER 02586 M00S02342.comptfm +++| UJN PLIX RETURN 02587 M00S02343.comptfm +++| MLT$ EQU 1 DEFINE MLT - (A) REGISTER MULTIPLY 02588 M00S02344.comptfm +++| PLI$ ENDIF 02589 M00S02345.comptfm +++| MLT$ IF DEF,MLT$ 02590 M00S02346.comptfm +++| MLT SPACE 4,10 02591 M00S02347.comptfm +++|** MLT - (A) REGISTER MULTIPLY. 02592 M00S02348.comptfm +++|* 02593 M00S02349.comptfm +++|* ENTRY (A) = VALUES TO MULTIPLY IN THE FORMAT; 02594 M00S02350.comptfm +++|* 6/ M2,12/ M1 02595 M00S02351.comptfm +++|* 02596 M00S02352.comptfm +++|* EXIT (A) = PRODUCT. 02597 M00S02353.comptfm +++|* (T1) = PRODUCT. 02598 M00S02354.comptfm +++|* 02599 M00S02355.comptfm +++|* USES T0 - T2. 02600 M00S02356.comptfm +++| 02601 M00S02357.comptfm +++| 02602 M00S02358.comptfm +++| MLT3 LDD T1 (A) = PRODUCT 02603 M00S02359.comptfm +++| 02604 M00S02360.comptfm +++| MLT SUBR ENTRY/EXIT 02605 M00S02361.comptfm +++| STD T0 SAVE M1 02606 M00S02362.comptfm +++| LMD T0 CLEAR PRODUCT REGISTER 02607 M00S02363.comptfm +++| STD T1 02608 M00S02364.comptfm +++| LMC SHNI+0 INITIALIZE SHIFT COUNT 02609 M00S02365.comptfm +++| STM MLTA 02610 M00S02366.comptfm +++| SHN -14 02611 M00S02367.comptfm +++| MLT1 STD T2 SET M2 02612 M00S02368.comptfm +++| ZJN MLT3 IF COMPLETE 02613 M00S02369.comptfm +++| LPN 1 02614 M00S02370.comptfm +++| ZJN MLT2 IF NOT MULTIPLY 02615 M00S02371.comptfm +++| LDD T0 02616 M00S02372.comptfm +++| SHN ** (A) = M1**2(N) 02617 M00S02373.comptfm +++| MLTA EQU *-1 (SHIFT COUNT) 02618 M00S02374.comptfm +++| RAD T1 02619 M00S02375.comptfm +++| MLT2 AOM MLTA INCREMENT SHIFT COUNT 02620 M00S02376.comptfm +++| LDD T2 02621 M00S02377.comptfm +++| SHN -1 02622 M00S02378.comptfm +++| UJN MLT1 CONTINUE MULTIPLY 02623 M00S02379.comptfm +++| MLT$ ENDIF 02624 M00S02380.comptfm +++| RIB$ IF DEF,RIB$ 02625 M00S02381.comptfm +++| RIB SPACE 4,10 02626 M00S02382.comptfm +++|** RIB - ROOM IN BLOCK. 02627 M00S02383.comptfm +++|* 02628 M00S02384.comptfm +++|* ENTRY (CWUW + (BA)) = WORDS LEFT IN BLOCK. 02629 M00S02385.comptfm +++|* (CWEL + (BA)) = LENGTH OF ENTRY. 02630 M00S02386.comptfm +++|* 02631 M00S02387.comptfm +++|* EXIT (A) = ROOM LEFT IN BLOCK IF NEW ENTRY ADDED. 02632 M00S02388.comptfm +++|* (A) .LT. 0 IF NO ROOM FOR ENTRY. 02633 M00S02389.comptfm +++| 02634 M00S02390.comptfm +++| 02635 M00S02391.comptfm +++| RIB SUBR ENTRY/EXIT 02636 M00S02392.comptfm +++| LDM CWUW,BA SPACE REMAINING IN BLOCK 02637 M00S02393.comptfm +++| SBM CWEL,BA ENTRY LENGTH 02638 M00S02394.comptfm +++| UJN RIBX EXIT 02639 M00S02395.comptfm +++| RIB$ ENDIF 02640 M00S02396.comptfm +++| SIB$ IF DEF,SIB$ 02641 M00S02397.comptfm +++| SIB SPACE 4,10 02642 M00S02398.comptfm +++|** SIB - SEARCH INDEX/ADMIT BUFFER. 02643 M00S02399.comptfm +++|* 02644 M00S02400.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (BUFFER FULL). 02645 M00S02401.comptfm +++|* (BP) = (BA)+2. 02646 M00S02402.comptfm +++|* (KA) = KEY ADDRESS FOR COMPARISON. 02647 M00S02403.comptfm +++|* (KL) = KEY LENGTH IN CHARACTERS. 02648 M00S02404.comptfm +++|* 02649 M00S02405.comptfm +++|* EXIT (A).EQ.0 IF FOUND. 02650 M00S02406.comptfm +++|* (A).GT.0 IF NOT FOUND. 02651 M00S02407.comptfm +++|* (A).EQ.-0 IF END OF INDEX. 02652 M00S02408.comptfm +++|* (BP) = BUFFER POINTER. 02653 M00S02409.comptfm +++|* (CI) = CATALOG INDEX. 02654 M00S02410.comptfm +++| 02655 M00S02411.comptfm +++| 02656 M00S02412.comptfm +++| SIB2 LMC -0 SET END OF INDEX EXIT CONDITION 02657 M00S02413.comptfm +++| 02658 M00S02414.comptfm +++| SIB SUBR ENTRY/EXIT 02659 M00S02415.comptfm +++| LDN 0 02660 M00S02416.comptfm +++| STD CI 02661 M00S02417.comptfm +++| SIB1 AOD CI INCREMENT CATALOG INDEX 02662 M00S02418.comptfm +++| LDI BP 02663 M00S02419.comptfm +++| ZJN SIB2 IF NO INDEX 02664 M00S02420.comptfm +++| COMPARE ,KA,,BP,,KL 02665 M00S02421.comptfm +++| ZJN SIBX IF STRING(KA).EQ.STRING(BP) 02666 M00S02422.comptfm +++| MJN SIB2 IF STRING(KA).LT.STRING(BP) 02667 M00S02423.comptfm +++| LDM CWEL,BA 02668 M00S02424.comptfm +++| RJM MBP MOVE BUFFER POINTER 02669 M00S02425.comptfm +++| MJN SIBX IF MOVE OUTSIDE CURRENT BUFFER 02670 M00S02426.comptfm +++| UJN SIB1 CHECK NEXT INDEX 02671 M00S02427.comptfm +++| SIB$ ENDIF
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02428.comptfm +++| TBA$ IF DEF,TBA$ 02699 M00S02429.comptfm +++| TBA SPACE 4,10 02700 M00S02430.comptfm +++|** TBA - TOGGLE BUFFER ASSIGNMENT 02701 M00S02431.comptfm +++|* 02702 M00S02432.comptfm +++|* ENTRY (IOB1, IOB2) = ALLOCATED BUFFERS. 02703 M00S02433.comptfm +++|* 02704 M00S02434.comptfm +++|* EXIT (A) = BUFFER ADDRESS. 02705 M00S02435.comptfm +++|* (BA) = BUFFER ADDRESS. 02706 M00S02436.comptfm +++| 02707 M00S02437.comptfm +++| 02708 M00S02438.comptfm +++| TBA SUBR ENTRY/EXIT 02709 M00S02439.comptfm +++| LDN ** 02710 M00S02440.comptfm +++| TBAA EQU *-1 (LDNI + TOGGLE) 02711 M00S02441.comptfm +++| STD T1 02712 M00S02442.comptfm +++| LDN 1 02713 M00S02443.comptfm +++| LMM TBAA 02714 M00S02444.comptfm +++| STM TBAA 02715 M00S02445.comptfm +++| LDM ISBA,T1 02716 M00S02446.comptfm +++| STD BA 02717 M00S02447.comptfm +++| ADN 2 02718 M00S02448.comptfm +++| STD BP 02719 M00S02449.comptfm +++| UJN TBAX RETURN 02720 M00S02450.comptfm +++| TBA$ ENDIF 02721 M00S02451.comptfm +++| UDT$ IF DEF,UDT$ 02722 M00S02452.comptfm +++| UDT SPACE 4,30 02723 M00S02453.comptfm +++|** UDT - READ/WRITE UDT. 02724 M00S02454.comptfm +++|* 02725 M00S02455.comptfm +++|* ALL COMMUNICATION BETWEEN TFM AND MAGNET IS ACCOM- 02726 M00S02456.comptfm +++|* PLISHED THROUGH THE TDAM CPUMTR FUNCTION. TFM CAN 02727 M00S02457.comptfm +++|* EXECUTE AT THE USERS CONTROL POINT, AND ON CERTAIN 02728 M00S02458.comptfm +++|* REQUESTS WILL REQUIRE ACCESS TO THE UDT(S) IN MAGNETS 02729 M00S02459.comptfm +++|* FIELD LENGTH. WHEN WRITING TO THE UDT, TFM USES THE 02730 M00S02460.comptfm +++|* /MTX/RUU (REQUEST UDT UPDATE) WHICH IS RECOGNIZED AND 02731 M00S02461.comptfm +++|* PROCESSED BY MAGNET. READING THE UDT DOES NOT REQUIRE 02732 M00S02462.comptfm +++|* MAGNET PROCESSING. IN THIS WAY INTERCONTROL POINT 02733 M00S02463.comptfm +++|* COMMUNICATION IS MAINTAINED WITHOUT REGARD FOR 02734 M00S02464.comptfm +++|* STORAGE MOVES, OR MULTIPLE PPU CONSIDERATIONS. 02735 M00S02465.comptfm +++|* 02736 M00S02466.comptfm +++|* ENTRY (A) = 3/RW,3/WC,12/UDT WORD. 02737 M00S02467.comptfm +++|* (UD) = UDT ADDRESS. 02738 M00S02468.comptfm +++|* (T1) = 0 IF MESSAGE BUFFER CONTAINS UPDATES. 02739 M00S02469.comptfm +++|* (T1) = FWA OF PP BUFFER FOR UPDATES. 02740 M00S02470.comptfm +++|* (UDTA) = PRESET TO FWA OF UDT. 02741 M00S02471.comptfm +++|* 02742 M00S02472.comptfm +++|* EXIT (A) = ZERO IF NO ERRORS. 02743 M00S02473.comptfm +++|* (A) = NON-ZERO IF *MAGNET* NOT ACTIVE. 02744 M00S02474.comptfm +++|* 02745 M00S02475.comptfm +++|* USES CM - CM+4, T1, T2. 02746 M00S02476.comptfm +++|* 02747 M00S02477.comptfm +++|* CALLS PFR. 02748 M00S02478.comptfm +++|* 02749 M00S02479.comptfm +++|* MACROS ISTORE, MONITOR. 02750 M00S02480.comptfm +++| 02751 M00S02481.comptfm +++| 02752 M00S02482.comptfm +++| UDT SUBR ENTRY/EXIT 02753 M00S02483.comptfm +++| STM UDTE+2 SET UDT WORD OFFSET 02754 M00S02484.comptfm +++| LMM UDTE+2 SET READ/WRITE FLAG 02755 M00S02485.comptfm +++| SHN 3 02756 M00S02486.comptfm +++| STM UDTE+1 02757 M00S02487.comptfm +++| SHN -17 SET WORD COUNT 02758 M00S02488.comptfm +++| STD T2 02759 M00S02489.comptfm +++| SHN 6 02760 M00S02490.comptfm +++| STM UDTE+3 02761 M00S02491.comptfm +++| LDM UDTA ADD FWA OF UDT 02762 M00S02492.comptfm +++| STM UDTE+4 02763 M00S02493.comptfm +++| LDD MA SET REQUEST IN MESSAGE BUFFER 02764 M00S02494.comptfm +++| CWM UDTE,ON 02765 M00S02495.comptfm +++| LDM UDTE+1 02766 M00S02496.comptfm +++| ZJN UDT1 IF READ REQUEST 02767 M00S02497.comptfm +++| LDD T1 02768 M00S02498.comptfm +++| ZJN UDT4 IF NOT WRITE FROM BUFFER 02769 M00S02499.comptfm +++| STM UDTB 02770 M00S02500.comptfm +++| LDD MA 02771 M00S02501.comptfm +++| ADN 1 02772 M00S02502.comptfm +++| CWM **,T2 02773 M00S02503.comptfm +++| UDTB EQU *-1 (ADDRESS OF PP BUFFER) 02774 M00S02504.comptfm +++| UJN UDT3 ISSUE REQUEST 02775 M00S02505.comptfm +++| 02776 M00S02506.comptfm +++| UDT1 LDD T1 PROCESS READ REQUEST 02777 M00S02507.comptfm +++| ZJN UDT2 IF NOT READ TO BUFFER 02778 M00S02508.comptfm +++| STM UDTD 02779 M00S02509.comptfm +++| LDC ** 02780 M00S02510.comptfm +++| ORG *O-1 02781 M00S02511.comptfm +++| ZJN *+UDT6-UDTC IF FINISHED 02782 M00S02512.comptfm +++| STM UDTC 02783 M00S02513.comptfm +++| UJN UDT3 ISSUE REQUEST 02784 M00S02514.comptfm +++| 02785 M00S02515.comptfm +++| UDT2 BSS 0 REISSUE REQUEST 02786 M00S02516.comptfm +++|* LDN 0 (A) = 0 02787 M00S02517.comptfm +++| STM PFRA 02788 M00S02518.comptfm +++| RJM PFR PAUSE FOR RELOCATION 02789 M00S02519.comptfm +++| UDT3 LDD MA BUILD *TDAM* REQUEST 02790 M00S02520.comptfm +++| CRD CM 02791 M00S02521.comptfm +++| LDD CM+1 02792 M00S02522.comptfm +++| NJN UDT4 IF WRITE REQUEST 02793 M00S02523.comptfm +++| LDD CM+2 SET RELATIVE WORD ADDRESS 02794 M00S02524.comptfm +++| RAD CM+4 02795 M00S02525.comptfm +++| UJN UDT5 SET SUBSYSTEM PRIORITY 02796 M00S02526.comptfm +++| 02797 M00S02527.comptfm +++| UDT4 LDD HN INCREMENT WORD COUNT 02798 M00S02528.comptfm +++| RAD CM+3 02799 M00S02529.comptfm +++| LDN /MTX/RCAL SET RECEIVING BUFFER ADDRESS 02800 M00S02530.comptfm +++| STD CM+4 02801 M00S02531.comptfm +++| UDT5 LDC MTSI SET MAGNET SUBSYSTEM ID 02802 M00S02532.comptfm +++| STD CM+2 02803 M00S02533.comptfm +++| MONITOR TDAM 02804 M00S02534.comptfm +++| LDD CM+1 02805 M00S02535.comptfm +++| ZJN UDT7 IF OPERATION COMPLETE 02806 M00S02536.comptfm +++|* ZJN UDT6 (IF READ TO PP BUFFER) 02807 M00S02537.comptfm +++| UDTC EQU *-1 02808 M00S02538.comptfm +++| SCN 3 02809 M00S02539.comptfm +++| ZJN UDT2 IF *MAGNET* ACTIVE 02810 M00S02540.comptfm +++| UJN UDT7 RETURN WITH ERROR 02811 M00S02541.comptfm +++| 02812 M00S02542.comptfm +++| UDT6 LDD MA READ TO PP BUFFER 02813 M00S02543.comptfm +++| CRM **,T2 02814 M00S02544.comptfm +++| UDTD EQU *-1 (ADDRESS OF PP BUFFER) 02815 M00S02545.comptfm +++| ISTORE UDTC,(ZJN UDT7) IF COMPLETE RETURN 02816 M00S02546.comptfm +++| LDN 0 SET NO ERROR 02817 M00S02547.comptfm +++| UDT7 LJM UDTX RETURN 02818 M00S02548.comptfm +++| 02819 M00S02549.comptfm +++| UDTE VFD 12//MTX/RUU,12/**,12/**,12/**,12/** 02820 M00S02550.comptfm +++| UDT$ ENDIF 02821 M00S02551.comptfm +++| UIS$ IF DEF,UIS$ 02822 M00S02552.comptfm +++| UIS SPACE 4,10 02823 M00S02553.comptfm +++|** UIS - USERNAME INDEX SEARCH. 02824 M00S02554.comptfm +++|* 02825 M00S02555.comptfm +++|* ENTRY (KA) = KEY ADDRESS (USERNAME). 02826 M00S02556.comptfm +++|* 02827 M00S02557.comptfm +++|* EXIT (A) .EQ. 0 IF FOUND. 02828 M00S02558.comptfm +++|* .GT. 0 IF NOT FOUND. 02829 M00S02559.comptfm +++|* .EQ. -0 IF END OF INDEX. 02830 M00S02560.comptfm +++|* (KL) = KEY LENGTH IN CHARACTERS. 02831 M00S02561.comptfm +++|* (CPPI) = BUFFER ADDRESS OF PRIMARY INDEX. 02832 M00S02562.comptfm +++|* (CPPI+1) = BUFFER POINTER OF PRIMARY INDEX. 02833 M00S02563.comptfm +++|* (CPSI) = BUFFER ADDRESS OF SECONDARY INDEX. 02834 M00S02564.comptfm +++|* (CPSI+1) = BUFFER POINTER OF SECONDARY INDEX. 02835 M00S02565.comptfm +++| 02836 M00S02566.comptfm +++| 02837 M00S02567.comptfm +++| UIS SUBR ENTRY/EXIT 02838 M00S02568.comptfm +++| LDN UNKL SET KEY LENGTH 02839 M00S02569.comptfm +++| STD KL 02840 M00S02570.comptfm +++| LDN FPUI SET PRIMARY USERNAME INDEX 02841 M00S02571.comptfm +++| STD RI+1 02842 M00S02572.comptfm +++| SHN -14 02843 M00S02573.comptfm +++| STD RI 02844 M00S02574.comptfm +++| RJM ISK INDEXED SEARCH FOR KEY 02845 M00S02575.comptfm +++| UJN UISX RETURN 02846 M00S02576.comptfm +++| UIS$ ENDIF 02847 M00S02577.comptfm +++| VIS$ IF DEF,VIS$ 02848 M00S02578.comptfm +++| VIS SPACE 4,10 02849 M00S02579.comptfm +++|** VIS - VSN INDEX SEARCH. 02850 M00S02580.comptfm +++|* 02851 M00S02581.comptfm +++|* ENTRY (KA) = KEY ADDRESS (VSN) 02852 M00S02582.comptfm +++|* 02853 M00S02583.comptfm +++|* EXIT (A) .EQ. 0 IF FOUND. 02854 M00S02584.comptfm +++|* .GT. 0 IF NOT FOUND. 02855 M00S02585.comptfm +++|* .EQ. -0 IF END OF INDEX. 02856 M00S02586.comptfm +++|* (KL) = KEY LENGTH IN CHARACTERS. 02857 M00S02587.comptfm +++|* (CPPI) = BUFFER ADDRESS OF PRIMARY INDEX. 02858 M00S02588.comptfm +++|* (CPPI+1) = BUFFER POINTER OF PRIMARY INDEX. 02859 M00S02589.comptfm +++|* (CPSI) = BUFFER ADDRESS OF SECONDARY INDEX. 02860 M00S02590.comptfm +++|* (CPSI+1) = BUFFER POINTER OF SECONDARY INDEX. 02861 M00S02591.comptfm +++| 02862 M00S02592.comptfm +++| 02863 M00S02593.comptfm +++| VIS SUBR ENTRY/EXIT 02864 M00S02594.comptfm +++| LDN VSKL SET KEY LENGTH 02865 M00S02595.comptfm +++| STD KL 02866 M00S02596.comptfm +++| LDN FPVI SET PRIMARY VSN INDEX 02867 M00S02597.comptfm +++| STD RI+1 02868 M00S02598.comptfm +++| SHN -14 02869 M00S02599.comptfm +++| STD RI 02870 M00S02600.comptfm +++| RJM ISK INDEXED SEARCH FOR KEY 02871 M00S02601.comptfm +++| UJN VISX RETURN 02872 M00S02602.comptfm +++| VIS$ ENDIF 02873 M00S02603.comptfm +++| WES$ IF DEF,WES$ 02874 M00S02604.comptfm +++| WES SPACE 4,10 02875 M00S02605.comptfm +++|** WES - WRITE EOR/EOI SEQUENCE. 02876 M00S02606.comptfm +++|* 02877 M00S02607.comptfm +++|* ENTRY (CO) = CATALOG FST ADDRESS. 02878 M00S02608.comptfm +++|* (BA) = BUFFER ADDRESS. 02879 M00S02609.comptfm +++|* (EQ) = EQUIPMENT. 02880 M00S02610.comptfm +++|* (FS+3) = CURRENT EOI TRACK. 02881 M00S02611.comptfm +++|* (FS+4) = SECTORS USED THIS TRACK. 02882 M00S02612.comptfm +++|* 02883 M00S02613.comptfm +++|* EXIT EOR/EOI PRU(S) WRITTEN TO CATALOG. 02884 M00S02614.comptfm +++|* 02885 M00S02615.comptfm +++|* USES CM - CM+4, FA, FS - FS+4, T6, T7. 02886 M00S02616.comptfm +++|* 02887 M00S02617.comptfm +++|* CALLS WEI, WDS. 02888 M00S02618.comptfm +++|* 02889 M00S02619.comptfm +++|* MACROS CLEAR, ENDMS, MONITOR, SETMS. 02890 M00S02620.comptfm +++| 02891 M00S02621.comptfm +++|
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02622.comptfm +++| WES SUBR ENTRY/EXIT 02930 M00S02623.comptfm +++| CLEAR ,BA,502*2 CLEAR BUFFER 02931 M00S02624.comptfm +++| LDD FS+3 SET CURRENT EOI TRACK 02932 M00S02625.comptfm +++| STD FS+1 02933 M00S02626.comptfm +++| STD T6 02934 M00S02627.comptfm +++| LDD FS+4 INCREMENT CURRENT EOI SECTOR COUNT 02935 M00S02628.comptfm +++| ADN 1 02936 M00S02629.comptfm +++| STD FS+2 02937 M00S02630.comptfm +++| STD T7 02938 M00S02631.comptfm +++| SBM SLM
| Line S02632 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02939 M01S02632.ns2763 ---| NJN WES2 IF NOT SECTOR LIMIT
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02940 M01S00165.ns2763 +++| WES0 NJP WES5 IF NOT SECTOR LIMIT 02941 M00S02633.comptfm +++| STD FS+2 CLEAR SECTOR COUNT 02942 M00S02634.comptfm +++| STD T7 02943 M00S02635.comptfm +++| WES1 LDN ZERL BUILD *RTCM* REQUEST 02944 M00S02636.comptfm +++| CRD CM 02945 M00S02637.comptfm +++| LDD EQ SET EQUIPMENT 02946 M00S02638.comptfm +++| STD CM+1 02947 M00S02639.comptfm +++| LDD FS+3 SET CURRENT EOI TRACK 02948 M00S02640.comptfm +++| STD CM+2 02949 M00S02641.comptfm +++| MONITOR RTCM REQUEST TRACK CHAIN 02950 M00S02642.comptfm +++| LDD CM+4 02951 M00S02643.comptfm +++| STD FS+1 SET TRACK 02952 M00S02644.comptfm +++| STD T6
| Line S02645 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02953 M01S02645.ns2763 ---| WES2 NJP WES5 IF TRACK ASSIGNED
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02954 M01S00166.ns2763 +++| NJP WES0 IF TRACK ASSIGNED 02955 M00S02646.comptfm +++| LDD CP ISSUE CONSOLE MESSAGE 02956 M00S02647.comptfm +++| ADN MS2W 02957 M00S02648.comptfm +++| CWM WESA,TR 02958 M00S02649.comptfm +++| PAUSE 02959 M00S02650.comptfm +++| LDM TFMC 02960 M00S02651.comptfm +++| LPN 77 02961 M00S02652.comptfm +++| LMN /PFM/PTLM 02962 M00S02653.comptfm +++| NJN WES4 IF NOT LOCAL FILE MODE 02963 M00S02654.comptfm +++| LDD CM+1 02964 M00S02655.comptfm +++| LMN ODET 02965 M00S02656.comptfm +++| ZJN WES3 IF OPERATOR DROP 02966 M00S02657.comptfm +++| LMN OKET&ODET 02967 M00S02658.comptfm +++| ZJN WES3 IF OPERATOR KILL 02968 M00S02659.comptfm +++| LMN ORET&OKET 02969 M00S02660.comptfm +++| NJN WES4 IF NOT OPERATOR OVERRIDE 02970 M00S02661.comptfm +++| WES3 ERROR TKL *TRACK LIMIT.* 02971 M00S02662.comptfm +++| 02972 M00S02663.comptfm +++| WES4 LDN 0 02973 M00S02664.comptfm +++| SBN 1 02974 M00S02665.comptfm +++| NJN *-1 IF CONTINUING DELAY 02975 M00S02666.comptfm +++| STD CM CLEAR MS2W 02976 M00S02667.comptfm +++| LDD CP 02977 M00S02668.comptfm +++| ADN MS2W 02978 M00S02669.comptfm +++| CWD CM
| Line S02670 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02979 M01S02670.ns2763 ---| LJM WES1 REQUEST TRACK 02980 M01S02671.ns2763 ---|
| Line S02672 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02981 M02S02672.ns2763 ---| WES5 SETMS WRITE RESERVE CHANNEL
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02982 M02S00019.ns2763 ---| WES5 SETMS IO RESERVE CHANNEL
| Line S02673 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02983 M01S02673.ns2763 ---| LDD BA 02984 M01S02674.ns2763 ---| ADN FSEI 02985 M01S02675.ns2763 ---| STM WESB 02986 M01S02676.ns2763 ---| LDD FO 02987 M01S02677.ns2763 ---| RJM AFA GET ABSOLUTE FST ADDRESS 02988 M01S02678.ns2763 ---| CRM *,ON 02989 M01S02679.ns2763 ---| WESB EQU *-1 02990 M01S02680.ns2763 ---| LDD BA 02991 M01S02681.ns2763 ---| RJM WEI WRITE (EOI) SECTOR 02992 M01S02682.ns2763 ---| PJN WES6 IF NOT MASS STORAGE ERROR 02993 M01S02683.ns2763 ---| LDC LDCI+00002 SET WRITE ERROR FLAG 02994 M01S02684.ns2763 ---| STM TFMC-1 02995 M01S02685.ns2763 ---| WES6 LDD T7 SET EOI LINKAGE BYTE 02996 M01S02686.ns2763 ---| NJN WES7 IF NOT SECTOR LIMIT 02997 M01S02687.ns2763 ---| LDD T6 02998 M01S02688.ns2763 ---| WES7 STI BA 02999 M01S02689.ns2763 ---| LDD FS+3 LAST EOI TRACK = EOR TRACK 03000 M01S02690.ns2763 ---| STD T6 03001 M01S02691.ns2763 ---| LDD FS+4 LAST EOI SECTOR = EOR SECTOR 03002 M01S02692.ns2763 ---| STD T7 03003 M01S02693.ns2763 ---| LDD BA 03004 M01S02694.ns2763 ---| RJM WDS WRITE (EOR) SECTOR 03005 M01S02695.ns2763 ---| PJN WES8 IF NOT MASS STORAGE ERROR 03006 M01S02696.ns2763 ---| LDC LDCI+40 SET MASS STORAGE ERROR FLAG 03007 M01S02697.ns2763 ---| STM TFMC-1 03008 M01S02698.ns2763 ---| WES8 ENDMS DROP CHANNEL 03009 M01S02699.ns2763 ---| LDD EQ SET EQUIPMENT/CHECKPOINT 03010 M01S02700.ns2763 ---| LMC 4000 03011 M01S02701.ns2763 ---| STD CM+1 03012 M01S02702.ns2763 ---| LDD FS+1 SET TRACK 03013 M01S02703.ns2763 ---| LPC 3777 03014 M01S02704.ns2763 ---| STD CM+2 03015 M01S02705.ns2763 ---| LDD FS+2 SET SECTOR 03016 M01S02706.ns2763 ---| STD CM+3 03017 M01S02707.ns2763 ---| MONITOR DTKM DROP TRACK/SET EOI 03018 M01S02708.ns2763 ---| LJM WESX RETURN
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 03019 M01S00167.ns2763 +++| UJP WES1 REQUEST TRACK 03020 M00S02709.comptfm +++| 03021 M00S02710.comptfm +++| WESA DATA C*$TRACK LIMIT.* 03022 M00S02711.comptfm +++| WES$ ENDIF 03023 M00S02712.comptfm +++| SPACE 4,10 03024 M00S02713.comptfm +++| IF DEF,LST$,1 03025 M00S02714.comptfm +++| LIST * 03026 M00S02715.comptfm +++| ENDX
cdc/nos2.source/opl.opl871/common/comptfm.001.txt · Last modified: by 127.0.0.1