Seq # *Modification Id* Act
----------------------------+
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
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 +++|
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