cdc:nos2.source:opl.opl871:deck:tfm.002
Deck TFM Part 002
23 Modifications
Listing Sections
- Deck TFM Start
- Deck TFM Part 1 (Line 1886)
- Deck TFM Part 2 (Line 3675)
- Deck TFM Part 3 (Line 5157)
- Deck TFM Part 4 (Line 6921)
- Deck TFM Part 5 (Line 8637)
- Deck TFM Part 6 (Line 10236)
- Deck TFM Part 7 (Line 11922)
Source
Seq # *Modification Id* Act ----------------------------+ 03675 M01S00047.282l826 +++| LDD CP CHECK PP ASSIGNMENT 03676 M00S03443.tfm +++| ADN JCIW 03677 M00S03444.tfm +++| CRD CM 03678 M00S03445.tfm +++| LDD CM+2 03679 M00S03446.tfm +++| LMC MTSI 03680 M00S03447.tfm +++| ZJP IME6 IF *MAGNET* CONTROL POINT 03681 M00S03448.tfm +++| IEM2 LDI HB CHECK FOR CP DAYFILE MESSAGE 03682 M00S03449.tfm +++| SHN 21-0 03683 M00S03450.tfm +++| PJN IEM3 IF NOT FOR CONTROL POINT DAYFILE 03684 M00S03451.tfm +++| LDN CPON/10000 03685 M00S03452.tfm +++| RJM IDM ISSUE DAYFILE MESSAGE 03686 M00S03453.tfm +++| IEM3 LDI HB CHECK FOR SYSTEM DAYFILE MESSAGE 03687 M00S03454.tfm +++| SHN 21-1 03688 M00S03455.tfm +++| PJN IEM4 IF NOT FOR SYSTEM DAYFILE 03689 M00S03456.tfm +++| LDN 0 03690 M00S03457.tfm +++| RJM IDM ISSUE DAYFILE MESSAGE 03691 M00S03458.tfm +++| IEM4 LDI HB CHECK FOR ERROR LOG MESSAGE 03692 M00S03459.tfm +++| SHN 21-2 03693 M00S03460.tfm +++| PJN IEM5 IF NOT FOR ERROR LOG 03694 M00S03461.tfm +++| LDN ERLN/10000 03695 M00S03462.tfm +++| RJM IDM ISSUE DAYFILE MESSAGE 03696 M00S03463.tfm +++| IEM5 LDI HB CHECK FOR ACCOUNT DAYFILE MESSAGE 03697 M00S03464.tfm +++| SHN 21-3 03698 M00S03465.tfm +++| PJN IME6 IF NOT FOR ACCOUNT DAYFILE 03699 M00S03466.tfm +++| LDN ACFN/10000 03700 M00S03467.tfm +++| RJM IDM ISSUE DAYFILE MESSAGE 03701 M00S03468.tfm +++| IME6 LDI HB CHECK FOR CATALOG BUFFER MESSAGE 03702 M00S03469.tfm +++| SHN 21-5 03703 M00S03470.tfm +++| PJP IEMX IF NOT FOR CATALOG BUFFER 03704 M00S03471.tfm +++| LDD FO 03705 M00S03472.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 03706 M00S03473.tfm +++| CRD T5 03707 M00S03474.tfm +++| SBN 1 03708 M00S03475.tfm +++| CRD FN 03709 M00S03476.tfm +++| LDD T5 SET ABSOLUTE TRACK/SECTOR 03710 M00S03477.tfm +++| LPC 777 03711 M00S03478.tfm +++| STD T5 03712 M00S03479.tfm +++| LDN 1 03713 M00S03480.tfm +++| STD T7 03714 M00S03481.tfm +++| LDC BUF0 SET BUFFER ADDRESS/POINTER 03715 M00S03482.tfm +++| STD BA 03716 M00S03483.tfm +++| ADN 2 03717 M00S03484.tfm +++| STD BP
| Line S03485 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03718 M01S03485.t5472 ---| SETMS WRITE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | t5679 |
Seq # *Modification Id* Act ----------------------------+ 03719 M02S00004.t5679 ---| SETMS IO
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | t5679 |
Seq # *Modification Id* Act ----------------------------+ 03720 M01S00002.t5679 +++| SETMS IO,RW 03721 M00S03486.tfm +++| LDD BA 03722 M00S03487.tfm +++| RJM RDS READ SECTOR
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03723 M01S00005.t5472 +++| MJN IME8 IF MASS STORAGE ERROR OCCURRED 03724 M00S03488.tfm +++| LDM CWFE,BA 03725 M00S03489.tfm +++| RJM MBP MOVE BUFFER POINTER 03726 M00S03490.tfm +++| LDM SBST+1,BP SET ERROR, SUSPEND ACTIVITY FLAGS 03727 M00S03491.tfm +++| SCN FETS 03728 M00S03492.tfm +++| LMN FETS 03729 M00S03493.tfm +++| STM SBST+1,BP 03730 M00S03494.tfm +++| LDN TMMB 03731 M00S03495.tfm +++| RJM MBP MOVE BUFFER POINTER 03732 M00S03496.tfm +++| MMOVE MBUF,,,BP,MBML*10D 03733 M00S03497.tfm +++| LDD BA 03734 M00S03498.tfm +++| RJM WDS WRITE SECTOR
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03735 M01S00006.t5472 +++| MJN IME8 IF MASS STORAGE ERROR OCCURRED
| Line S03499 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03736 M01S03499.t5472 ---| ENDMS
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03737 M01S00007.t5472 +++| IME7 ENDMS RELEASE CHANNEL 03738 M00S03500.tfm +++| LJM IEMX RETURN 03739 M00S03501.tfm +++|
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03740 M01S00008.t5472 +++| IME8 RJM ISM ISSUE SYSTEM CONTROL POINT MESSAGE 03741 M01S00009.t5472 +++| UJN IME7 EXIT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03742 M02S00010.282l826 ---|
| Line S03502 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03743 M02S03502.282l826 ---| IEMA DATA 10H$ CHECK
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03744 M02S00039.282l826 ---| IEMA DATA C+$CHECK *TMSDIS,PRE.*+ 03745 M02S00040.282l826 ---| ERRNG 3*5-*+IEMA MESSAGE TOO LONG 03746 M00S03503.tfm +++| IOE SPACE 4,20 03747 M00S03504.tfm +++|** IOE - INFORM OPERATOR OF ERROR. 03748 M00S03505.tfm +++|*
| Line S03506 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03749 M01S03506.nos252 ---|* ENTRY (EC) = ERROR CODE. 03750 M01S03507.nos252 ---|* 03751 M01S03508.nos252 ---|* EXIT (A) = 0 IF MESSAGE SENT TO *A,OPERATOR* DISPLAY. 03752 M01S03509.nos252 ---|* .NE. 0 IF DISPLAY IS INTERLOCKED. 03753 M01S03510.nos252 ---|* THE MESSAGE ISSUED FOR NO SCRATCH TAPES IS - 03754 M01S03511.nos252 ---|* 03755 M01S03512.nos252 ---|* ENTER *LDISTAP,FAM.* NO SCRATCH TAPES 03756 M01S03513.nos252 ---|* 03757 M01S03514.nos252 ---|* OTHERWISE THE MESSAGE IS - 03758 M01S03515.nos252 ---|* 03759 M01S03516.nos252 ---|* ENTER *LDISTAP,FAM.* TMS CATALOG ERROR 03760 M01S03517.nos252 ---|* 03761 M01S03518.nos252 ---|* USES T1, CM - CM+4.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03762 M01S00041.nos252 +++|* EXIT (A) = 0 IF TAPE CATALOG ERROR EVENT ISSUED. 03763 M01S00042.nos252 +++|* .NE. 0 IF UNABLE TO ISSUE EVENT. 03764 M01S00043.nos252 +++|* *CHECK TMSDIS,FAM* MESSAGE IN A,OPERATOR IF 03765 M01S00044.nos252 +++|* EVENT IS ISSUED. 03766 M01S00045.nos252 +++|* 03767 M01S00046.nos252 +++|* USES CM - CM+4. 03768 M00S03519.tfm +++|* 03769 M00S03520.tfm +++|* MACROS MONITOR. 03770 M00S03521.tfm +++| 03771 M00S03522.tfm +++| 03772 M00S03523.tfm +++| IOE SUBR ENTRY/EXIT
| Line S03524 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03773 M01S03524.nos252 ---| LDC LDSP GET OPERATOR DISPLAY BUFFER ADDRESS 03774 M01S03525.nos252 ---| CRD CM 03775 M01S03526.nos252 ---| LDD CM+2 03776 M01S03527.nos252 ---| SHN 14 03777 M01S03528.nos252 ---| LMD CM+3 03778 M01S03529.nos252 ---| SBN LODS 03779 M01S03530.nos252 ---| STD CM+4 03780 M01S03531.nos252 ---| STM IOEA+1 03781 M01S03532.nos252 ---| SHN -14 03782 M01S03533.nos252 ---| STD CM+3 03783 M01S03534.nos252 ---| LMC LDCI 03784 M01S03535.nos252 ---| STM IOEA 03785 M01S03536.nos252 ---| LDN 0 FLAG SET INTERLOCK 03786 M01S03537.nos252 ---| STD CM+1 03787 M01S03538.nos252 ---| STD CM+2 03788 M01S03539.nos252 ---| MONITOR UTEM UPDATE TABLE 03789 M01S03540.nos252 ---| LDD CM+1 03790 M01S03541.nos252 ---| NJP IOEX IF INTERLOCK NOT ACCEPTED 03791 M01S03542.nos252 ---| LDD EC CHECK ERROR TYPE 03792 M01S03543.nos252 ---| SBN /EMSG/WSA 03793 M01S03544.nos252 ---| ZJN IOE1 IF NO SCRATCH 03794 M01S03545.nos252 ---| LDN IOEE-IOED 03795 M01S03546.nos252 ---| IOE1 ADC IOED 03796 M01S03547.nos252 ---| STM IOEB 03797 M01S03548.nos252 ---| LDN 2 03798 M01S03549.nos252 ---| STD T1 03799 M01S03550.nos252 ---| IOEA LDC ** SET JSN AND START OF MESSAGE IN BUFFER 03800 M01S03551.nos252 ---| CWM IOEC,TR 03801 M01S03552.nos252 ---| CWM IOED,T1 SET NO SCRATCH MESSAGE IN BUFFER 03802 M01S03553.nos252 ---|* CWM IOEE,T1 (SET CATALOG ERROR MESSAGE IN BUFFER) 03803 M01S03554.nos252 ---| IOEB EQU *-1 03804 M01S03555.nos252 ---| LDC OPRL SET OPERATOR DISPLAY FLAG 03805 M01S03556.nos252 ---| STD CM+4 03806 M01S03557.nos252 ---| LDN 1 03807 M01S03558.nos252 ---| STD CM+1 03808 M01S03559.nos252 ---| LDN 0 03809 M01S03560.nos252 ---| STD CM+2 03810 M01S03561.nos252 ---| STD CM+3 03811 M01S03562.nos252 ---| LDD MA 03812 M01S03563.nos252 ---| CWM IOEF,ON 03813 M01S03564.nos252 ---| MONITOR UTEM UPDATE TABLE 03814 M01S03565.nos252 ---| LDN 0 03815 M01S03566.nos252 ---| LJM IOEX RETURN 03816 M01S03567.nos252 ---| 03817 M01S03568.nos252 ---| IOEC BSS 0 03818 M01S03569.nos252 ---| VFD 24/4HSYS ,35/0,1/1 DUMMY JOB SEQUENCE NUMBER 03819 M01S03570.nos252 ---| DATA 20HENTER *LDISTAP,FAM.* FIRST PART OF MESSAGE 03820 M01S03571.nos252 ---| IOED DATA 18L NO SCRATCH TAPES MESSAGE FOR NO SCRATCH 03821 M01S03572.nos252 ---| CON 0 03822 M01S03573.nos252 ---| IOEE DATA 18L TMS CATALOG ERROR MESSAGE FOR CATALOG ERROR 03823 M01S03574.nos252 ---| CON 0 03824 M01S03575.nos252 ---| IOEF VFD 1/0,5/0,6/1,6/59D,42/1 SET OPERATOR DISPLAY
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03825 M01S00047.nos252 +++| LDN ZERL BUILD EVENT 03826 M01S00048.nos252 +++| CRD CM 03827 M01S00049.nos252 +++| LDN /EVT/TCSE 03828 M01S00050.nos252 +++| STD CM+4 03829 M01S00051.nos252 +++| MONITOR EATM ISSUE EVENT 03830 M01S00052.nos252 +++| LDD CM+0 03831 M01S00053.nos252 +++| UJN IOEX RETURN
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03832 M01S00011.t5472 +++| ISM SPACE 4,10 03833 M01S00012.t5472 +++|** ISM - ISSUE MESSAGE TO SYSTEM CONTROL POINT. 03834 M01S00013.t5472 +++|* 03835 M01S00014.t5472 +++|* ENTRY (EC) = ERROR CODE. 03836 M01S00015.t5472 +++|* 03837 M01S00016.t5472 +++|* EXIT MESSAGE POSTED ON LINE 2 OF B DISPLAY FOR 03838 M01S00017.t5472 +++|* SYSTEM CONTROL POINT. *GO,SYS.* REQUIRED TO CLEAR IT. 03839 M01S00018.t5472 +++|* 03840 M01S00019.t5472 +++|* USES CM - CM+4. 03841 M01S00020.t5472 +++| 03842 M01S00021.t5472 +++| 03843 M01S00022.t5472 +++| ISM SUBR ENTRY/EXIT 03844 M01S00023.t5472 +++| LDD EC 03845 M01S00024.t5472 +++| RJM C2D 03846 M01S00025.t5472 +++| STM ISMA+4 03847 M01S00026.t5472 +++| LDK ISMA+7 03848 M01S00027.t5472 +++| STD AP 03849 M01S00028.t5472 +++| LDN 0 03850 M01S00029.t5472 +++| STD HB 03851 M01S00030.t5472 +++| RJM FMM INSERT FAMILY NAME IN MSG 03852 M01S00031.t5472 +++| LDD HB RE-DIRECT MESSAGE POINTER 03853 M01S00032.t5472 +++| SBN 1 03854 M01S00033.t5472 +++| RAD AP 03855 M01S00034.t5472 +++| LDD HB TERMINATE MESSAGE WITH *.* 03856 M01S00035.t5472 +++| ZJN ISM1 IF SPACE IN LOWER 6 BITS 03857 M01S00036.t5472 +++| LDC 1R.*100-1R *100-1R.+1R 03858 M01S00037.t5472 +++| ISM1 ADN 1R.-1R 03859 M01S00038.t5472 +++| RAI AP 03860 M01S00039.t5472 +++| LDK NCPL 03861 M01S00040.t5472 +++| CRD CM 03862 M01S00041.t5472 +++| LDD CM+1 03863 M01S00042.t5472 +++| ADN 1 03864 M01S00043.t5472 +++| SHN 7 03865 M01S00044.t5472 +++| ADK MS2W MESSAGE 2 AREA FOR SYSTEM CONTROL POINT 03866 M01S00045.t5472 +++| CWM ISMA,TR 03867 M01S00046.t5472 +++| UJN ISMX RETURN 03868 M01S00047.t5472 +++| 03869 M01S00048.t5472 +++| ISMA DATA C* TMS ERRXX ON FAM.* 03870 M01S00049.t5472 +++| BSSZ 3 SPACE FOR 7 CHARACTER FAMILY NAMES 03871 M00S03576.tfm +++| LFM SPACE 4,10 03872 M00S03577.tfm +++|** LFM - BUILD LOCAL FILE NAME MESSAGE. 03873 M00S03578.tfm +++|* 03874 M00S03579.tfm +++|* SETS THE LOCAL FILE NAME IN THE MESSAGE. 03875 M00S03580.tfm +++|* 03876 M00S03581.tfm +++|* ENTRY (FN - FN+3) = LOCAL FILE NAME. 03877 M00S03582.tfm +++|* 03878 M00S03583.tfm +++|* CALLS MVM. 03879 M00S03584.tfm +++| 03880 M00S03585.tfm +++| 03881 M00S03586.tfm +++| LFM SUBR ENTRY/EXIT 03882 M00S03587.tfm +++| LDD FN+3 INSURE END OF LFN 03883 M00S03588.tfm +++| SCN 77 03884 M00S03589.tfm +++| STD FN+3 03885 M00S03590.tfm +++| LDN FN 03886 M00S03591.tfm +++| RJM MVM MOVE VARIABLE MESSAGE 03887 M00S03592.tfm +++| UJN LFMX RETURN 03888 M00S03593.tfm +++| MMC SPACE 4,10 03889 M00S03594.tfm +++|* MMC - MOVE TO MAGNET CONTROL POINT. 03890 M00S03595.tfm +++|* 03891 M00S03596.tfm +++|* ENTRY (FC) = FUNCTION CODE. 03892 M00S03597.tfm +++|* (UTMS) = REQUEST SUBFUNCTION. 03893 M00S03598.tfm +++|* 03894 M00S03599.tfm +++|* EXIT CONTROL POINT ASSIGNMENT CHANGE TO MAGNET IF THIS IS 03895 M00S03600.tfm +++|* A *VMFS* MAGNET REQUEST. 03896 M00S03601.tfm +++|*
| Line S03602 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03897 M01S03602.282l826 ---|* USES CP, T1, CM - CM+4.
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03898 M01S00048.282l826 +++|* USES CM+1. 03899 M00S03603.tfm +++|*
| Line S03604 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03900 M01S03604.282l826 ---|* MACROS MONITOR, PAUSE.
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03901 M01S00049.282l826 +++|* MACROS MONITOR. 03902 M00S03605.tfm +++| 03903 M00S03606.tfm +++| 03904 M00S03607.tfm +++| MMC SUBR ENTRY/EXIT 03905 M00S03608.tfm +++| LDD FC 03906 M00S03609.tfm +++| LMN MAGF 03907 M00S03610.tfm +++| NJN MMCX IF NOT MAGNET REQUEST 03908 M00S03611.tfm +++| LDM UTMS 03909 M00S03612.tfm +++| LMN VMFS 03910 M00S03613.tfm +++| NJN MMCX IF NOT *VMFS*
| Line S03614 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03911 M01S03614.282l826 ---| LDD MC MAGNET CONTROL POINTER NUMBER 03912 M01S03615.282l826 ---| ZJN MMCX IF MAGNET NOT ACTIVE
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03913 M01S00050.282l826 +++| LDK /COMSCPS/ALCS SET RETURN TO CALLING CP 03914 M00S03616.tfm +++| STD CM+1
| Line S03617 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03915 M01S03617.282l826 ---| SHN 7 CALCULATE CONTROL POINT ADDRESS 03916 M01S03618.282l826 ---| SCN 1 03917 M01S03619.282l826 ---| STD T1 03918 M01S03620.282l826 ---| MONITOR CCAM 03919 M01S03621.282l826 ---| LDD T1 SET CONTROL POINT ADDRESS 03920 M01S03622.282l826 ---| STD CP 03921 M01S03623.282l826 ---| PAUSE -STSW RESET RA AND FL
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03922 M01S00051.282l826 +++| MONITOR CCAM RETURN TO MAGNET CP 03923 M00S03624.tfm +++| UJN MMCX RETURN 03924 M00S03625.tfm +++| MVM SPACE 4,10 03925 M00S03626.tfm +++|** MVM - MERGE VARIABLE MESSAGE. 03926 M00S03627.tfm +++|* 03927 M00S03628.tfm +++|* *MVM* WILL MERGE VARIABLE LENGTH MESSAGES 03928 M00S03629.tfm +++|* TO A ASSEMBLY BUFFER INSURING THAT THERE 03929 M00S03630.tfm +++|* WILL BE A SPACE (BLANK) BETWEEN EACH 03930 M00S03631.tfm +++|* MERGED MESSAGE. THIS ROUTINE IS USED TO 03931 M00S03632.tfm +++|* COMBINE SEVERAL DISJOINTED MESSAGES INTO 03932 M00S03633.tfm +++|* ONE COHERENT MESSAGE WHICH IS THEN ISSUED 03933 M00S03634.tfm +++|* ACCORDING THE DISPOSITION CODE. 03934 M00S03635.tfm +++|* 03935 M00S03636.tfm +++|* ENTRY (A) = ADDRESS OF CHARACTER STRING. 03936 M00S03637.tfm +++|* (AP) = ASSEMBLY POINTER. 03937 M00S03638.tfm +++|* (HB) = HALF BYTE FLAG. 03938 M00S03639.tfm +++|* 03939 M00S03640.tfm +++|* USES T1. 03940 M00S03641.tfm +++|* 03941 M00S03642.tfm +++| 03942 M00S03643.tfm +++| 03943 M00S03644.tfm +++| MVM SUBR ENTRY/EXIT 03944 M00S03645.tfm +++| STD T1 03945 M00S03646.tfm +++| LDD HB 03946 M00S03647.tfm +++| NJN MVM2 IF NOT FULL WORD 03947 M00S03648.tfm +++| MVM1 LDI T1 MOVE FULL BYTE 03948 M00S03649.tfm +++| ZJN MVM4 IF END OF MESSAGE 03949 M00S03650.tfm +++| STI AP 03950 M00S03651.tfm +++| LPN 77 03951 M00S03652.tfm +++| ZJN MVM3 IF END OF MESSAGE 03952 M00S03653.tfm +++| AOD T1 ADVANCE TO NEXT BYTE 03953 M00S03654.tfm +++| AOD AP ADVANCE ASSEMBLY POINTER 03954 M00S03655.tfm +++| UJN MVM1 MOVE NEXT BYTE 03955 M00S03656.tfm +++| 03956 M00S03657.tfm +++| MVM2 LDI T1 MOVE LOWER CHARACTER 03957 M00S03658.tfm +++| SHN -6 03958 M00S03659.tfm +++| ZJN MVM3 IF END OF MESSAGE 03959 M00S03660.tfm +++| RAI AP 03960 M00S03661.tfm +++| AOD AP ADVANCE ASSEMBLY POINTER 03961 M00S03662.tfm +++| LDI T1 MOVE UPPER CHARACTER 03962 M00S03663.tfm +++| LPN 77 03963 M00S03664.tfm +++| ZJN MVM4 IF END OF MESSAGE 03964 M00S03665.tfm +++| SHN 6 03965 M00S03666.tfm +++| STI AP 03966 M00S03667.tfm +++| AOD T1 03967 M00S03668.tfm +++| UJN MVM2 MOVE NEXT BYTE 03968 M00S03669.tfm +++| 03969 M00S03670.tfm +++| MVM3 LDN 1R INSERT SPACE IN LOWER BYTE 03970 M00S03671.tfm +++| RAI AP 03971 M00S03672.tfm +++| AOD AP 03972 M00S03673.tfm +++| LDN 0 03973 M00S03674.tfm +++| UJN MVM5 TOGGLE HALF BYTE 03974 M00S03675.tfm +++| 03975 M00S03676.tfm +++| MVM4 LDC 1R *100 INSERT SPACE IN UPPER BYTE 03976 M00S03677.tfm +++| STI AP 03977 M00S03678.tfm +++| LDN 1 03978 M00S03679.tfm +++| MVM5 STD HB TOGGLE HALF BYTE 03979 M00S03680.tfm +++| LJM MVMX RETURN 03980 M00S03681.tfm +++| RAM SPACE 4,10 03981 M00S03682.tfm +++|** RAM - BUILD RANDOM ADDRESS MESSAGE. 03982 M00S03683.tfm +++|* 03983 M00S03684.tfm +++|* CONVERTS THE RANDOM ADDRESS TO DISPLAY CODE 03984 M00S03685.tfm +++|* AND MOVES IT TO THE ASSEMBLY BUFFER. 03985 M00S03686.tfm +++|* 03986 M00S03687.tfm +++|* ENTRY (CTSA - CTSA+1) = RANDOM ADDRESS. 03987 M00S03688.tfm +++|* 03988 M00S03689.tfm +++|* CALLS C2D, MVM. 03989 M00S03690.tfm +++| 03990 M00S03691.tfm +++| 03991 M00S03692.tfm +++| RAM SUBR ENTRY/EXIT 03992 M00S03693.tfm +++| LDM CTSA 03993 M00S03694.tfm +++| SHN -6 03994 M00S03695.tfm +++| RJM C2D CONVERT TWO DIGITS 03995 M00S03696.tfm +++| STM RAMA 03996 M00S03697.tfm +++| LDM CTSA 03997 M00S03698.tfm +++| LPN 77 03998 M00S03699.tfm +++| RJM C2D CONVERT TWO DIGITS 03999 M00S03700.tfm +++| STM RAMA+1 04000 M00S03701.tfm +++| LDM CTSA+1 04001 M00S03702.tfm +++| SHN -6 04002 M00S03703.tfm +++| RJM C2D CONVERT TWO DIGITS 04003 M00S03704.tfm +++| STM RAMA+2 04004 M00S03705.tfm +++| LDM CTSA+1 04005 M00S03706.tfm +++| LPN 77 04006 M00S03707.tfm +++| RJM C2D CONVERT TWO DIGITS 04007 M00S03708.tfm +++| STM RAMA+3 04008 M00S03709.tfm +++| LDC RAMA 04009 M00S03710.tfm +++| RJM MVM MOVE VARIABLE MESSAGE 04010 M00S03711.tfm +++| LJM RAMX RETURN 04011 M00S03712.tfm +++| 04012 M00S03713.tfm +++| RAMA DATA C*00000000* 04013 M00S03714.tfm +++| SSE SPACE 4,10 04014 M00S03715.tfm +++|** SSE - SET SYSTEM EVENT. 04015 M00S03716.tfm +++|* 04016 M00S03717.tfm +++|* ENTRY (EC) = ERROR CODE. 04017 M00S03718.tfm +++|* 04018 M00S03719.tfm +++|* EXIT CONTROL POINT EVENT WORD UPDATED. 04019 M00S03720.tfm +++|* 04020 M00S03721.tfm +++|* USES CN - CN+4. 04021 M00S03722.tfm +++| 04022 M00S03723.tfm +++| 04023 M00S03724.tfm +++| SSE SUBR ENTRY/EXIT 04024 M00S03725.tfm +++| LDD CP 04025 M00S03726.tfm +++| ADN TERW 04026 M00S03727.tfm +++| CRD CN 04027 M00S03728.tfm +++| LDD EC 04028 M00S03729.tfm +++| LMN /EMSG/TUA 04029 M00S03730.tfm +++| ZJN SSE1 IF TMS UTILITY ACTIVE 04030 M00S03731.tfm +++| LMN /EMSG/CNF&/EMSG/TUA 04031 M00S03732.tfm +++| NJN SSE2 IF NOT CATALOG NOT FOUND ERROR 04032 M00S03733.tfm +++| SSE1 LDN ESUA 04033 M00S03734.tfm +++| UJN SSE3 SET EVENT IN CONTROL POINT 04034 M00S03735.tfm +++| 04035 M00S03736.tfm +++| SSE2 LDN ESVB VSN BUSY OR WAIT SCRATCH 04036 M00S03737.tfm +++| SSE3 STD CN+4 SET EVENT IN CONTROL POINT 04037 M00S03738.tfm +++| SHN -14 04038 M00S03739.tfm +++| ADC FBRT*1000 04039 M00S03740.tfm +++| STD CN+3 04040 M00S03741.tfm +++| LDD CN+2 04041 M00S03742.tfm +++| SCN 77 04042 M00S03743.tfm +++| ADN FBRT/10 SET ROLLOUT TIME 04043 M00S03744.tfm +++| STD CN+2 04044 M00S03745.tfm +++| LDD CP 04045 M00S03746.tfm +++| ADN TERW 04046 M00S03747.tfm +++| CWD CN 04047 M00S03748.tfm +++| LJM SSEX RETURN 04048 M00S03749.tfm +++| UEP SPACE 4,10 04049 M00S03750.tfm +++|** UEP - USER ERROR PROCESSING. 04050 M00S03751.tfm +++|* 04051 M00S03752.tfm +++|* IF THE USER IS PROCESSING ERRORS, THE ERROR 04052 M00S03753.tfm +++|* CODE IS SET IN THE FET. IF THE ERROR IS ONE 04053 M00S03754.tfm +++|* THAT THE USER HAS A ROLLOUT OPTION ON, THE 04054 M00S03755.tfm +++|* ROLLOUT FLAG IS SET IN FET+0 BIT 17 AND 04055 M00S03756.tfm +++|* THE EVENT IS BUILT A ND SET IN *TERW*. IF 04056 M00S03757.tfm +++|* THE USER HAS SPECIFIED A ERROR MESSAGE 04057 M00S03758.tfm +++|* RETURN BUFFER, THE DETAILED MESSAGE IS 04058 M00S03759.tfm +++|* WRITTEN TO THAT BUFFER. 04059 M00S03760.tfm +++|* 04060 M00S03761.tfm +++|* ENTRY (EC) = ERROR CODE. 04061 M00S03762.tfm +++|* (MBUF) = ASSEMBLED ERROR MESSAGE. 04062 M00S03763.tfm +++|* 04063 M00S03764.tfm +++|* USES CM - CM+4, CN - CN+4, T1 - T3. 04064 M00S03765.tfm +++| 04065 M00S03766.tfm +++| 04066 M00S03767.tfm +++| UEP SUBR ENTRY/EXIT 04067 M00S03768.tfm +++| LDA IR+3,REL SET ERROR CODE IN FET 04068 M00S03769.tfm +++| CRD CM 04069 M00S03770.tfm +++| LDD CM+3 04070 M00S03771.tfm +++| SCN 77 04071 M00S03772.tfm +++| STD CM+3 04072 M00S03773.tfm +++| LDD CM+4 04073 M00S03774.tfm +++| LPC 777 04074 M00S03775.tfm +++| STD CM+4 04075 M00S03776.tfm +++| LDD EC 04076 M00S03777.tfm +++| SHN 21-2 04077 M00S03778.tfm +++| RAD CM+3 04078 M00S03779.tfm +++| SHN -6 04079 M00S03780.tfm +++| LPC 7000 04080 M00S03781.tfm +++| RAD CM+4 04081 M00S03782.tfm +++| LDI EA CHECK IF ROLLABLE ERROR 04082 M00S03783.tfm +++| SHN 21-3 04083 M00S03784.tfm +++| PJN UEP1 IF NON-ROLLABLE ERROR 04084 M00S03785.tfm +++| RJM SSE SET SYSTEM EVENT 04085 M00S03786.tfm +++| LDD CM+3 SET ROLLOUT EVENT FLAG 04086 M00S03787.tfm +++| LMN 40 04087 M00S03788.tfm +++| STD CM+3 04088 M00S03789.tfm +++| UEP1 LDA IR+3,REL REWRITE FET+0 04089 M00S03790.tfm +++| CWD CM 04090 M00S03791.tfm +++| ADN TFEA 04091 M00S03792.tfm +++| CRD CM 04092 M00S03793.tfm +++| LDA CM+3,ABS 04093 M00S03794.tfm +++| ZJP UEPX IF NO USER MESSAGE BUFFER 04094 M00S03795.tfm +++| LDC MBUF COPY ERROR MESSAGE 04095 M00S03796.tfm +++| STD T1 04096 M00S03797.tfm +++| LDN 5 SET BYTES PER WORD 04097 M00S03798.tfm +++| STD T2 04098 M00S03799.tfm +++| LDN 1 04099 M00S03800.tfm +++| STD T3 INITIALIZE CM WORD COUNT 04100 M00S03801.tfm +++| UEP2 LDI T1 SEARCH FOR END OF MESSAGE 04101 M00S03802.tfm +++| ZJN UEP3 IF ZERO BYTE FOUND 04102 M00S03803.tfm +++| AOD T1 04103 M00S03804.tfm +++| SOD T2 04104 M00S03805.tfm +++| NJN UEP2 IF NOT FULL CM WORD 04105 M00S03806.tfm +++| AOD T3 04106 M00S03807.tfm +++| LDN 5 04107 M00S03808.tfm +++| STD T2 RESET BYTES PER WORD 04108 M00S03809.tfm +++| UJN UEP2 CONTINUE TO END OF MESSAGE 04109 M00S03810.tfm +++| 04110 M00S03811.tfm +++| UEP3 AOD T1 CLEAR REMAINDER OF MESSAGE TO FULL WORD 04111 M00S03812.tfm +++| SOD T2 04112 M00S03813.tfm +++| ZJN UEP4 IF FULL CM WORD 04113 M00S03814.tfm +++| LDN 0 04114 M00S03815.tfm +++| STI T1 CLEAR MESSAGE TAIL 04115 M00S03816.tfm +++| UJN UEP3 LOOP FOR FULL CM WORD 04116 M00S03817.tfm +++| 04117 M00S03818.tfm +++| UEP4 LDA IR+3,REL WRITE TO USERS MESSAGE BUFFER 04118 M00S03819.tfm +++| ADN TFEA 04119 M00S03820.tfm +++| CRD CM 04120 M00S03821.tfm +++| LDA CM+3,REL 04121 M00S03822.tfm +++| CWM MBUF,T3 SEND MESSAGE TO CENTRAL 04122 M00S03823.tfm +++| LJM UEPX RETURN 04123 M00S03824.tfm +++| UNM SPACE 4,10 04124 M00S03825.tfm +++|** UNM - BUILD USERNAME MESSAGE. 04125 M00S03826.tfm +++|* 04126 M00S03827.tfm +++|* SETS THE USERNAME IN THE MESSAGE. 04127 M00S03828.tfm +++|* 04128 M00S03829.tfm +++|* ENTRY PBUN - PBUN+3) = USERNAME. 04129 M00S03830.tfm +++|* 04130 M00S03831.tfm +++|* CALLS MVM. 04131 M00S03832.tfm +++| 04132 M00S03833.tfm +++| 04133 M00S03834.tfm +++| UNM SUBR ENTRY/EXIT 04134 M00S03835.tfm +++| LDM PBUN+3 INSURE END OF USERNAME 04135 M00S03836.tfm +++| SCN 77 04136 M00S03837.tfm +++| STM PBUN+3 04137 M00S03838.tfm +++| LDC PBUN 04138 M00S03839.tfm +++| RJM MVM MOVE VARIABLE MESSAGE 04139 M00S03840.tfm +++| UJN UNMX RETURN 04140 M00S03841.tfm +++| VSM SPACE 4,10 04141 M00S03842.tfm +++|** VSM - BUILD VSN MESSAGE. 04142 M00S03843.tfm +++|* 04143 M00S03844.tfm +++|* SETS THE VSN IN THE MESSAGE. 04144 M00S03845.tfm +++|* 04145 M00S03846.tfm +++|* ENTRY (PESN - PESN+2) = EXTERNAL VSN. 04146 M00S03847.tfm +++|* 04147 M00S03848.tfm +++|* CALLS MVM. 04148 M00S03849.tfm +++| 04149 M00S03850.tfm +++| 04150 M00S03851.tfm +++| VSM SUBR ENTRY/EXIT 04151 M00S03852.tfm +++| MMOVE PESN,,VSMA+2,,VSKL 04152 M00S03853.tfm +++| LDC VSMA 04153 M00S03854.tfm +++| RJM MVM MOVE VARIABLE MESSAGE 04154 M00S03855.tfm +++| UJN VSMX RETURN 04155 M00S03856.tfm +++| 04156 M00S03857.tfm +++| VSMA DATA C*VSN XXXXXX* 04157 M00S03858.tfm +++| SPACE 4,10 04158 M00S03859.tfm +++|** COMMON DECKS. 04159 M00S03860.tfm +++| 04160 M00S03861.tfm +++| 04161 M00S03862.tfm +++| MVM$ EQU 1 DEFINE MVM - MOVE VARIABLE MESSAGE 04162 M00S03863.tfm +++| RCL$ EQU 1 DEFINE RCL - PP RECALL 04163 M00S03864.tfm +++|*CALL COMPTFM 04164 M00S03865.tfm +++|*CALL COMPC2D
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04165 M01S00024.274l797 +++| TITLE ERROR MESSAGES. 04166 M00S03866.tfm +++| EMSG SPACE 4,15 04167 M00S03867.tfm +++|** ERROR MESSAGES. 04168 M00S03868.tfm +++|* 04169 M00S03869.tfm +++|* FORMAT (BYTE 0), ERROR DISPOSITION FLAGS. 04170 M00S03870.tfm +++|* (BYTE 1), MESSAGE TYPE AND DESTINATION FLAGS. 04171 M00S03871.tfm +++|* (BYTE 2), FIRST WORD ADDRESS OF MESSAGE. 04172 M00S03872.tfm +++|* 04173 M00S03873.tfm +++|* MESSAGE DISPOSITION FLAGS. 04174 M00S03874.tfm +++|* 0001 = HANG PPU. 04175 M00S03875.tfm +++|* 0002 = CALL TFSP TO A CONTROL POINT. 04176 M00S03876.tfm +++|* 0004 = UNCONDITIONAL ABORT OF USER CONTROL POINT. 04177 M00S03877.tfm +++|* 0010 = ROLLOUT USER CONTROL POINT. 04178 M00S03878.tfm +++|* 0020 = RESERVED. 04179 M00S03879.tfm +++|* 0040 = RANDOM ADDRESS MESSAGE. 04180 M00S03880.tfm +++|* 0100 = USERNAME MESSAGE. 04181 M00S03881.tfm +++|* 0200 = VSN MESSAGE. 04182 M00S03882.tfm +++|* 0400 = LOCAL FILE NAME MESSAGE. 04183 M00S03883.tfm +++|* 1000 = FILE NAME MESSAGE. 04184 M00S03884.tfm +++|* 2000 = FAMILY NAME MESSAGE. 04185 M00S03885.tfm +++|* 4000 = EQUIPMENT MESSAGE. 04186 M00S03886.tfm +++|* 04187 M00S03887.tfm +++|* MESSAGE DESTINATION CODES. 04188 M00S03888.tfm +++|* 0001 = SEND TO CONTROL POINT DAYFILE. 04189 M00S03889.tfm +++|* 0002 = SEND TO SYSTEM DAYFILE. 04190 M00S03890.tfm +++|* 0004 = SEND TO SYSTEM ERROR LOG. 04191 M00S03891.tfm +++|* 0010 = SEND TO ACCOUNT DAYFILE. 04192 M00S03892.tfm +++|* 0020 = SEND TO E,P DISPLAY IF UNIT ASSIGNED. 04193 M00S03893.tfm +++|* 0040 = SEND TO CATALOG MESSAGE BUFFER. 04194 M00S03894.tfm +++|* 0100 = RESERVED. 04195 M00S03895.tfm +++|* 0200 = RESERVED. 04196 M00S03896.tfm +++|* 0400 = RESERVED. 04197 M00S03897.tfm +++|* 1000 = RESERVED. 04198 M00S03898.tfm +++|* 2000 = RESERVED. 04199 M00S03899.tfm +++|* 4000 = RESERVED. 04200 M00S03900.tfm +++| 04201 M00S03901.tfm +++| 04202 M00S03902.tfm +++| EMSG EMSG BEGIN 04203 M00S03903.tfm +++| 04204 M00S03904.tfm +++| VBS EMSG 0210,0001,(BUSY.) 04205 M00S03905.tfm +++| LNF EMSG 0400,0001,(NOT FOUND.) 04206 M00S03906.tfm +++| FNF EMSG 1000,0001,(NOT FOUND.) 04207 M00S03907.tfm +++| VNF EMSG 0200,0001,(NOT FOUND.) 04208 M00S03908.tfm +++| UNF EMSG 0100,0001,(NOT FOUND.) 04209 M00S03909.tfm +++| NMT EMSG 0400,0001,(NOT ON MAGNETIC TAPE.) 04210 M00S03910.tfm +++| VSR EMSG 0200,0001,(RESERVED.) 04211 M00S03911.tfm +++| VSD EMSG 0200,0000,(DUPLICATE.) 04212 M00S03912.tfm +++| FAR EMSG 1000,0001,(ALREADY RESERVED.) 04213 M00S03913.tfm +++| VAR EMSG 0200,0001,(ALREADY RESERVED.) 04214 M00S03914.tfm +++| DLK EMSG 0200,0006,(DEADLOCK.)
| Line S03915 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 04215 M01S03915.nos252 ---| ILR EMSG 0000,0001,(TFM INVALID REQUEST.)
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 04216 M01S00054.nos252 +++| ILR EMSG 0000,0001,(TFM INCORRECT REQUEST.) 04217 M00S03916.tfm +++| TMD EMSG 0000,0001,(TMS DISABLED.) 04218 M00S03917.tfm +++| MNA EMSG 0000,0001,(MAGNET NOT ACTIVE.) 04219 M00S03918.tfm +++| EBP EMSG 2006,0047,(ERRONEOUS BUFFER POINTER.) 04220 M00S03919.tfm +++| TUA EMSG 0010,0001,(TMS UTILITY ACTIVE.) 04221 M00S03920.tfm +++| BAE EMSG 0000,0001,(BUFFER ARGUMENT ERROR.) 04222 M00S03921.tfm +++| EID EMSG 0000,0001,(ERROR IN INDEX DATA.) 04223 M00S03922.tfm +++| ECD EMSG 0000,0001,(ERROR IN CATALOG DATA.) 04224 M00S03923.tfm +++| EAD EMSG 0000,0001,(ERROR IN ADMIT DATA.) 04225 M00S03924.tfm +++| RAE EMSG 0046,0041,(RANDOM ADDRESS ERROR.) 04226 M00S03925.tfm +++| TKL EMSG 4000,0006,(TRACK LIMIT.) 04227 M00S03926.tfm +++| MSE EMSG 4004,0046,(MASS STORAGE ERROR.) 04228 M00S03927.tfm +++| CNF EMSG 2010,0007,(TAPE CATALOG NOT FOUND.) 04229 M00S03928.tfm +++| ECF EMSG 0000,0001,(EMPTY CATALOG.) 04230 M00S03929.tfm +++| CLE EMSG 2006,0047,(CATALOG LINKAGE ERROR.) 04231 M00S03930.tfm +++| IOS EMSG 0004,0001,(I/O SEQUENCE ERROR ON CATALOG.) 04232 M00S03931.tfm +++| EOI EMSG 0001,0007,(EOI NOT ON TRACK CHAIN.) 04233 M00S03932.tfm +++| NAE EMSG 0000,0001,(NO ADMITS.) 04234 M00S03933.tfm +++| TPI EMSG 0000,0001,(TMS PROCESSING INHIBITED.) 04235 M00S03934.tfm +++| SFA EMSG 2010,0001,(ACTIVITY SUSPENDED.) 04236 M00S03935.tfm +++| FCE EMSG 2004,0001,(TAPE CATALOG ERROR.) 04237 M00S03936.tfm +++| WSA EMSG 0012,0001,(WAIT SCRATCH ASSIGNMENT.) 04238 M00S03937.tfm +++| NEU EMSG 0004,0001,(NO EXTEND ON USER OWNED FILE.) 04239 M00S03938.tfm +++| WRF EMSG 0000,0001,(WRITE REQUEST ON READ-ONLY FILE.) 04240 M00S03939.tfm +++| MPE EMSG 0000,0001,(MULTI-FILE PROCESSING ERROR.) 04241 M00S03940.tfm +++| FCI EMSG 0000,0001,(FILE CREATION NOT ALLOWED.) 04242 M00S03941.tfm +++| EFD EMSG 0000,0001,(ERROR IN FILE DATA.) 04243 M00S03942.tfm +++| CNA EMSG 0000,2010,(LINKED CATALOG NOT ACCESSIBLE.) 04244 M00S03943.tfm +++| 04245 M00S03944.tfm +++| EMSG EMSG END 04246 M00S03945.tfm +++| 04247 M00S03946.tfm +++| 04248 M00S03947.tfm +++| CBUF SPACE 4,10 04249 M00S03948.tfm +++|*** BUFFERS. 04250 M00S03949.tfm +++| 04251 M00S03950.tfm +++| 04252 M00S03951.tfm +++| MBUF BSS 40 04253 M00S03952.tfm +++| SPACE 4,10 04254 M00S03953.tfm +++| USE // FORCE LITERALS 04255 M00S03954.tfm +++| 04256 M00S03955.tfm +++| 04257 M00S03956.tfm +++| ERRNG BUF0-* BYTES LEFT BEFORE BUFFER OVERFLOW
| Line S03957 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04258 M01S03957.274l797 ---| OVERLAY (SUBFUNCTION ISFS.),OVL1
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04259 M01S00025.274l797 +++| OVERLAY (INITIALIZE FAMILY TAPE CATALOG.),OVL1 04260 M00S03958.tfm +++| SPACE 4 04261 M00S03959.tfm +++|*** LOCAL DIRECT CELL LOCATIONS. 04262 M00S03960.tfm +++| 04263 M00S03961.tfm +++|
| Line S03962 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04264 M01S03962.274l797 ---| IL EQU S1 CLEAR INTERLOCK FLAG
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04265 M01S00026.274l797 +++| TT EQU S1 TAPE TYPE (0=MT/NT, 1=CT, 3=AT) 04266 M00S03963.tfm +++| NV EQU S1+1 - S1+3 NEXT VOLUME 04267 M00S03964.tfm +++| IC EQU S1+1 INITIAL CATALOG FLAG 04268 M00S03965.tfm +++| RC EQU S1+2 REEL COUNT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04269 M01S00010.ns2763 +++| SV EQU S1+4 SYSTEM VSN FLAG 04270 M00S03966.tfm +++| CV EQU S2 CURRENT VSN POINTER 04271 M00S03967.tfm +++| PV EQU S3 PREVIOUS SCRATCH VSN POINTER
| Line S03968 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04272 M01S03968.274l797 ---| ISFS SPACE 4,10
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04273 M01S00027.274l797 +++| SPACE 4,10 04274 M01S00028.274l797 +++|*** BUFFER ALLOCATION. 04275 M01S00029.274l797 +++|* 04276 M01S00030.274l797 +++|* THE FOLLOWING BUFFER IS CREATED BY THIS OVERLAY, AND IS 04277 M01S00031.274l797 +++|* USED BY THE *ISFS* POSTPROCESSOR OVERLAY. 04278 M01S00032.274l797 +++| 04279 M01S00033.274l797 +++| 04280 M01S00034.274l797 +++| TSPW BSS 0 TABLE OF SCRATCH POOL WORDS 04281 M01S00035.274l797 +++|* (INDEXED BY TAPE TYPE) 04282 M01S00036.274l797 +++| VFD 36/-0,24/0 04283 M01S00037.274l797 +++| VFD 36/-0,24/0 04284 M01S00038.274l797 +++| VFD 36/-0,24/0 04285 M01S00039.274l797 +++| VFD 36/-0,24/0 04286 M01S00040.274l797 +++| 04287 M01S00041.274l797 +++| OVL2 EQU *+2 LOAD ADDRESS FOR *ISFS* POSTPROCESSOR 04288 M01S00042.274l797 +++| ISFS SPACE 4,30 04289 M00S03969.tfm +++|*** ISFS - INITIALIZE FAMILY TAPE CATALOG. 04290 M00S03970.tfm +++|* 04291 M00S03971.tfm +++|* ENTRY (IR - IR+3) = FET ADDRESS - 04292 M00S03972.tfm +++|* 04293 M00S03973.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure FET+0
04294 M00S03974.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ 0
Figure +1
04295 M00S03975.tfm +++|*T, +2 60/ 0
Figure +2
04296 M00S03976.tfm +++|*T, +3 60/ 0
Figure +3
04297 M00S03977.tfm +++|*T, +4 12/ FNT,30/ 0,18/ 0
Figure +4
04298 M00S03978.tfm +++|*T, +5 42/ 0,18/ EADD
Figure +5
04299 M00S03979.tfm +++|*T, +6 60/ 0
Figure +6
04300 M00S03980.tfm +++|*T, +7 46/ 0,2/ OP,12/ 0
Figure +7
04301 M00S03981.tfm +++|* 04302 M00S03982.tfm +++|* OP = PROCESSING OPTION. 04303 M00S03983.tfm +++|* 0 = REORDER SCRATCH ONLY (*TFSP* *ISV* DIRECTIVE). 04304 M00S03984.tfm +++|* 1 = REORDER SCRATCH AND CLEAR ALL INTERLOCKS (FIRST 04305 M00S03985.tfm +++|* *ISF* ON DEVICE). 04306 M00S03986.tfm +++|* 2 = REORDER SCRATCH AND CLEAR CURRENT AND INACTIVE 04307 M00S03987.tfm +++|* MACHINE INTERLOCKS (*ISF* LINK TO SHARED DEVICE). 04308 M00S03988.tfm +++|* 3 = REORDER SCRATCH AND CLEAR INACTIVE MACHINE 04309 M00S03989.tfm +++|* INTERLOCKS (*TFSPR* COMMAND). 04310 M00S03990.tfm +++|*
| Line S03991 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04311 M01S03991.274l797 ---|* USES CM - CM+4.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04312 M01S00043.274l797 +++|* USES TT, T2, CV - CV+4, PV - PV+4. 04313 M00S03992.tfm +++|*
| Line S03993 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04314 M01S03993.274l797 ---|* CALLS CFB, GNB, GNL, MBP, PRS, RRP, SEI, TBA, WRP.
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04315 M01S00044.274l797 +++|* CALLS CFB, GNB, GNL, MBP, PRS, RVB, TBA, WRP. 04316 M00S03994.tfm +++|*
| Line S03995 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04317 M01S03995.274l797 ---|* MACROS CLEAR, MMOVE, MONITOR, RESTP.
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04318 M01S00045.274l797 +++|* MACROS EXOVL, MMOVE. 04319 M00S03996.tfm +++| 04320 M00S03997.tfm +++| 04321 M00S03998.tfm +++| ISF ENTRY ENTRY/EXIT 04322 M00S03999.tfm +++| RJM PRS PRESET
| Line S04000 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04323 M01S04000.274l797 ---| LDI BP
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04324 M01S00046.274l797 +++| ISF0 LDI BP 04325 M00S04001.tfm +++| ZJN ISF2 IF NO ENTRIES IN FIRST VSN BLOCK 04326 M00S04002.tfm +++| ISF1 RJM CFB CHECK FILE BUSY 04327 M00S04003.tfm +++| LDM CWEL,BA POSITION TO NEXT INDEX 04328 M00S04004.tfm +++| RJM MBP MOVE BUFFER POINTER 04329 M00S04005.tfm +++| MJN ISF2 IF MOVE OUTSIDE BUFFER 04330 M00S04006.tfm +++| LDI BP 04331 M00S04007.tfm +++| NJN ISF1 IF NOT END OF INDEX 04332 M00S04008.tfm +++| ISF2 LDC 0 NO BUFFER REWRITE 04333 M00S04009.tfm +++|* LDC 1 (IF BUFFER REWRITE) 04334 M00S04010.tfm +++| ISFA EQU *-1 04335 M00S04011.tfm +++| ZJN ISF3 IF NO BUFFER REWRITE 04336 M00S04012.tfm +++| RJM WRP WRITE RANDOM PRU 04337 M00S04013.tfm +++| LDN 0 CLEAR BUFFER REWRITE NEEDED 04338 M00S04014.tfm +++| STM ISFA 04339 M00S04015.tfm +++| ISF3 RJM GNL GET NEXT LINK 04340 M00S04016.tfm +++| ZJN ISF5 IF BLOCK NOT LINKED 04341 M00S04017.tfm +++| LDC 0 NO BUFFER SWITCH 04342 M00S04018.tfm +++|* LDC 1 (BUFFER SWITCH) 04343 M00S04019.tfm +++| ISFB EQU *-1 04344 M00S04020.tfm +++| ZJN ISF4 IF NO BUFFER SWITCH 04345 M00S04021.tfm +++| LDN 0 CLEAR BUFFER SWITCH NEEDED 04346 M00S04022.tfm +++| STM ISFB 04347 M00S04023.tfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 04348 M00S04024.tfm +++| ISF4 RJM GNB GET NEXT BLOCK 04349 M00S04025.tfm +++| LDM CWFE,BA SKIP BLOCK CONTROL WORDS 04350 M00S04026.tfm +++| RJM MBP MOVE BUFFER POINTER 04351 M00S04027.tfm +++| LJM ISF1 SEARCH INDEX BUFFER 04352 M00S04028.tfm +++|
| Line S04029 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04353 M01S04029.274l797 ---| ISF5 RESTP CPSB REREAD SYSTEM BLOCK
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04354 M01S00047.274l797 +++| ISF5 LDD TT 04355 M01S00048.274l797 +++| SHN 21-13 04356 M01S00049.274l797 +++| MJP ISF7 IF NO VSN ENTRIES OF ANY TYPE FOUND 04357 M01S00050.274l797 +++| LDD TT SAVE SCRATCH POOL WORD FOR THIS TAPE TYPE 04358 M01S00051.274l797 +++| SHN 2 04359 M01S00052.274l797 +++| ADD TT 04360 M01S00053.274l797 +++| ADC TSPW 04361 M01S00054.274l797 +++| STD T2 04362 M01S00055.274l797 +++| MMOVE PESN,,,,10D 04363 M01S00056.274l797 +++| LCN 0 CLEAR *VSN ENTRY FOUND* FLAG FOR TAPE TYPE 04364 M01S00057.274l797 +++| STM ISFC,TT 04365 M01S00058.274l797 +++| LDN 4 CHECK FOR OTHER TAPE TYPES TO PROCESS 04366 M01S00059.274l797 +++| STD TT 04367 M01S00060.274l797 +++| ISF6 SOD TT CHECK NEXT TAPE TYPE 04368 M01S00061.274l797 +++| MJP ISF7 IF NO MORE TAPE TYPES 04369 M01S00062.274l797 +++| LDM ISFC,TT 04370 M01S00063.274l797 +++| ZJN ISF6 IF NO VSN ENTRIES FOUND FOR THIS TAPE TYPE 04371 M01S00064.274l797 +++| SHN 21-13
| Line S04030 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04372 M01S04030.274l797 ---| RJM RRP READ RANDOM PRU 04373 M01S04031.274l797 ---| RJM SEI SET EOI SECTOR LOCATION 04374 M01S04032.274l797 ---| STM SBTC,BP SET TRACK COUNT 04375 M01S04033.274l797 ---| LDA T2,ABS SET SECTOR COUNT 04376 M01S04034.274l797 ---| STM SBPC+1,BP 04377 M01S04035.274l797 ---| SHN -14 04378 M01S04036.274l797 ---| STM SBPC,BP 04379 M01S04037.274l797 ---| MMOVE PESN,,SBSV,BP,10D SET SCRATCH VSN POINTER 04380 M01S04038.274l797 ---| LDD IL 04381 M01S04039.274l797 ---| ZJN ISF6 IF NOT CLEARING INTERLOCKS 04382 M01S04040.274l797 ---| CLEAR CWUN,BA,10D CLEAR *TFSP* USER NAME INTERLOCK 04383 M01S04041.274l797 ---| LDM SBST+1,BP CLEAR UTILITY ACIVE AND SUSPEND FLAGS 04384 M01S04042.274l797 ---| SCN UITS+SATS 04385 M01S04043.274l797 ---| STM SBST+1,BP 04386 M01S04044.274l797 ---| LDM SBST,BP 04387 M01S04045.274l797 ---| SCN FFTS/10000 04388 M01S04046.274l797 ---| STM SBST,BP 04389 M01S04047.274l797 ---| LDM SBID,BP CHECK MACHINE ID 04390 M01S04048.274l797 ---| LMM MFID 04391 M01S04049.274l797 ---| ZJN ISF6 IF HOME MAINFRAME 04392 M01S04050.274l797 ---| LDM SBST,BP 04393 M01S04051.274l797 ---| SCN GFTS/10000 CLEAR GLOBAL SCRATCH STATUS 04394 M01S04052.274l797 ---| LMN FFTS/10000 SET FOREIGN MAINFRAME 04395 M01S04053.274l797 ---| STM SBST,BP 04396 M01S04054.274l797 ---| ISF6 RJM WRP WRITE SYSTEM BLOCK 04397 M01S04055.274l797 ---| LDN ZERL POST UTILITY ACTIVE EVENT 04398 M01S04056.274l797 ---| CRD CM 04399 M01S04057.274l797 ---| LDN ESUA 04400 M01S04058.274l797 ---| STD CM+4 04401 M01S04059.274l797 ---| MONITOR EATM ENTER EVENT 04402 M01S04060.274l797 ---| LDA PESN+3 CHECK FOR AVAILABLE SCRATCH 04403 M01S04061.274l797 ---| ZJN ISF7 IF NO SCRATCH 04404 M01S04062.274l797 ---| LDN ZERL 04405 M01S04063.274l797 ---| CRD CM 04406 M01S04064.274l797 ---| LDN ESVB 04407 M01S04065.274l797 ---| STD CM+4 04408 M01S04066.274l797 ---| MONITOR EATM ENTER EVENT 04409 M01S04067.274l797 ---| ISF7 LJM ISFX RETURN 04410 M01S04068.274l797 ---| TITLE ".Y." SUBROUTINES. 04411 M01S04069.274l797 ---| CFB SPACE 4,10 04412 M01S04070.274l797 ---|** CFB - CHECK FILE BUSY
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04413 M01S00065.274l797 +++| MJN ISF6 IF TAPE TYPE ALREADY PROCESSED 04414 M01S00066.274l797 +++| LDD MA RESTORE POINTERS FOR FIRST VSN BLOCK 04415 M01S00067.274l797 +++| CWM ISFD,ON 04416 M01S00068.274l797 +++| SBN 1 04417 M01S00069.274l797 +++| CRD CV 04418 M01S00070.274l797 +++| CWM ISFE,ON PRESET PREVIOUS VSN 04419 M01S00071.274l797 +++| SBN 1 04420 M01S00072.274l797 +++| CRM PESN,ON 04421 M01S00073.274l797 +++| LDN ZERL CLEAR PREVIOUS VSN BUFFER POINTERS 04422 M01S00074.274l797 +++| CRD PV 04423 M01S00075.274l797 +++| RJM RVB RESTORE VSN BUFFERS 04424 M01S00076.274l797 +++| LJM ISF0 SCAN FOR NEXT VSN TYPE 04425 M01S00077.274l797 +++| 04426 M01S00078.274l797 +++| ISF7 EXOVL ISP EXECUTE *ISFS* POSTPROCESSOR 04427 M01S00079.274l797 +++| 04428 M01S00080.274l797 +++| 04429 M01S00081.274l797 +++| ISFC BSSZ 4 TABLE OF *VSN ENTRY FOUND* FLAGS 04430 M01S00082.274l797 +++|* (INDEXED BY TAPE TYPE) 04431 M01S00083.274l797 +++| 04432 M01S00084.274l797 +++| ISFD BSS 5 POINTERS TO FIRST LEVEL-2 VSN BLOCK 04433 M01S00085.274l797 +++| 04434 M01S00086.274l797 +++| ISFE VFD 36/-0,24/0 DEFAULT VALUE FOR SCRATCH POOL WORD 04435 M01S00087.274l797 +++| TITLE SUBROUTINES. 04436 M01S00088.274l797 +++| CFB SPACE 4,20 04437 M01S00089.274l797 +++|** CFB - CHECK FILE BUSY. 04438 M00S04071.tfm +++|*
| Line S04072 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04439 M01S04072.274l797 ---|* ENTRY (BA) = BUFFER ADDRESS (VSN INDEX) 04440 M01S04073.274l797 ---|* (BP) = BUFFER POINTER (VSN INDEX) 04441 M01S04074.274l797 ---|* (IL) = CLEAR INTERLOCK STATUS.
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04442 M01S00090.274l797 +++|* ENTRY (BA) = BUFFER ADDRESS (VSN INDEX). 04443 M01S00091.274l797 +++|* (BP) = BUFFER POINTER (VSN INDEX). 04444 M01S00092.274l797 +++|* (TT) = TAPE TYPE (0=MT/NT, 1=CT, 3=AT). 04445 M01S00093.274l797 +++|* (TT) = 4000, IF NO VSN ENTRY OF ANY TYPE FOUND YET. 04446 M00S04075.tfm +++|* 04447 M00S04076.tfm +++|* EXIT (BA) = UNCHANGED. 04448 M00S04077.tfm +++|* (BP) = UNCHANGED.
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04449 M01S00094.274l797 +++|* (TT) = TAPE TYPE, IF THIS VSN IS THE FIRST VSN ENTRY 04450 M01S00095.274l797 +++|* OF ANY TYPE FOUND. 04451 M01S00096.274l797 +++|* (ISFC) WORD FOR THE VSN-S TAPE TYPE SET NONZERO, IF 04452 M01S00097.274l797 +++|* THE VSN IS NOT THE CORRECT TAPE TYPE. 04453 M00S04078.tfm +++|*
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04454 M01S00098.274l797 +++|* USES TT, T1. 04455 M01S00099.274l797 +++|* 04456 M00S04079.tfm +++|* CALLS CSV, RLV, RSV, SCP. 04457 M00S04080.tfm +++| 04458 M00S04081.tfm +++|
| Line S04082 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04459 M01S04082.274l797 ---| CFB5 RJM CSV CHECK FOR SCRATCH VOLUME
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04460 M01S00100.274l797 +++| CFB8 RJM CSV CHECK FOR SCRATCH VOLUME 04461 M00S04083.tfm +++| 04462 M00S04084.tfm +++| CFB SUBR ENTRY/EXIT
| Line S04085 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04463 M01S04085.274l797 ---| LDD IL 04464 M01S04086.274l797 ---| ZJN CFB5 IF NOT CLEARING INTERLOCKS 04465 M01S04087.274l797 ---| LDM VBST+1,BP
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04466 M01S00101.274l797 +++| LDM VBST+1,BP DETERMINE TAPE TYPE 04467 M01S00102.274l797 +++| SHN -5 04468 M01S00103.274l797 +++| LPN ACVS/40+CTVS/40 04469 M01S00104.274l797 +++| STD T1 04470 M01S00105.274l797 +++| LMD TT 04471 M01S00106.274l797 +++| ZJN CFB3 IF SAME TYPE AS CURRENT SCAN TYPE 04472 M01S00107.274l797 +++| SHN 21-13 04473 M01S00108.274l797 +++| PJN CFB1 IF NOT FIRST TAPE VSN FOUND OF ANY TYPE 04474 M01S00109.274l797 +++| LDD T1 04475 M01S00110.274l797 +++| STD TT SET TAPE TYPE FOR THIS SCAN 04476 M01S00111.274l797 +++| UJN CFB3 PROCESS VSN ENTRY 04477 M01S00112.274l797 +++| 04478 M01S00113.274l797 +++| CFB1 LDM ISFC,T1 04479 M01S00114.274l797 +++| NJN CFB2 IF NOT FIRST VSN OF THIS TAPE TYPE 04480 M01S00115.274l797 +++| AOM ISFC,T1 INDICATE THAT VSN OF THIS TYPE FOUND 04481 M01S00116.274l797 +++| CFB2 UJN CFBX RETURN 04482 M01S00117.274l797 +++| 04483 M01S00118.274l797 +++| CFB3 LDM VBST+1,BP 04484 M01S00119.274l797 +++|* UJN CFB8 (IF NOT CLEARING INTERLOCKS) 04485 M01S00120.274l797 +++| CFBA EQU *-2 04486 M00S04088.tfm +++| LPN VIVS
| Line S04089 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04487 M01S04089.274l797 ---| NJN CFB1 IF VOLUME BUSY
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04488 M01S00121.274l797 +++| NJN CFB4 IF VOLUME BUSY 04489 M00S04090.tfm +++| LDM VBJS,BP
| Line S04091 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04490 M01S04091.274l797 ---| ZJN CFB5 IF VOLUME NOT ASSIGNED 04491 M01S04092.274l797 ---| CFB1 LDM VBMX,BP SET MACHINE INDEX HOLDING VSN BUSY
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04492 M01S00122.274l797 +++| ZJN CFB8 IF VOLUME NOT ASSIGNED 04493 M01S00123.274l797 +++| CFB4 LDM VBMX,BP SET MACHINE INDEX HOLDING VSN BUSY 04494 M00S04093.tfm +++| LPN 17 04495 M00S04094.tfm +++| STD T1 04496 M00S04095.tfm +++| LDM TACM,T1
| Line S04096 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04497 M01S04096.274l797 ---| NJN CFBX IF NOT PROCESSING THIS MACHINE
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04498 M01S00124.274l797 +++| NJP CFBX IF NOT PROCESSING THIS MACHINE 04499 M00S04097.tfm +++| LDM VBRC,BP CHECK REEL NUMBER 04500 M00S04098.tfm +++| SHN -6 04501 M00S04099.tfm +++| SBN 2
| Line S04100 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04502 M01S04100.274l797 ---| PJN CFB5 IF NOT FIRST REEL
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04503 M01S00125.274l797 +++| PJP CFB8 IF NOT FIRST REEL 04504 M00S04101.tfm +++| RJM SCP SET CATALOG BUFFER POINTERS 04505 M00S04102.tfm +++| LDD BA CHECK FOR CATALOG ENTRY
| Line S04103 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04506 M01S04103.274l797 ---| ZJN CFB2 IF NO CATALOG ENTRY
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04507 M01S00126.274l797 +++| ZJN CFB5 IF NO CATALOG ENTRY 04508 M00S04104.tfm +++| LDM CBST,BP CHECK FOR INITIAL ASSIGNMENT 04509 M00S04105.tfm +++| SHN 21-11
| Line S04106 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04510 M01S04106.274l797 ---| PJN CFB4 IF NOT INITIAL ASSIGNMENT 04511 M01S04107.274l797 ---| CFB2 RJM RLV RELEASE CATALOG ENTRIES AND VSNS 04512 M01S04108.274l797 ---| CFB3 LJM CFBX RETURN
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04513 M01S00127.274l797 +++| PJN CFB7 IF NOT INITIAL ASSIGNMENT 04514 M01S00128.274l797 +++| CFB5 RJM RLV RELEASE CATALOG ENTRIES AND VSNS 04515 M01S00129.274l797 +++| CFB6 LJM CFBX RETURN 04516 M00S04109.tfm +++|
| Line S04110 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04517 M01S04110.274l797 ---| CFB4 RJM RSV RESERVE CATALOG ENTRIES AND VSNS 04518 M01S04111.274l797 ---| UJN CFB3 RETURN 04519 M01S04112.274l797 ---| 04520 M01S04113.274l797 ---| CSV SPACE 4,10
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04521 M01S00130.274l797 +++| CFB7 RJM RSV RESERVE CATALOG ENTRIES AND VSNS 04522 M01S00131.274l797 +++| UJN CFB6 RETURN 04523 M01S00132.274l797 +++| CSV SPACE 4,20 04524 M00S04114.tfm +++|** CSV - CHECK SCRATCH VOLUME. 04525 M00S04115.tfm +++|* 04526 M00S04116.tfm +++|* ENTRY (BA) = BUFFER ADDRESS (VSN INDEX). 04527 M00S04117.tfm +++|* (BP) = BUFFER POINTER (VSN INDEX). 04528 M00S04118.tfm +++|* (PV - PV+4) = PREVIOUS SCRATCH VSN POINTERS. 04529 M00S04119.tfm +++|* 04530 M00S04120.tfm +++|* EXIT (BA) = UNCHANGED. 04531 M00S04121.tfm +++|* (BP) = UNCHANGED.
| Line S04122 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04532 M01S04122.274l797 ---|* VSN ADDED TO THE SCRATCH STRING IF THE VSN 04533 M01S04123.274l797 ---|* STATUS IS SCRATCH.
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04534 M01S00133.274l797 +++|* VSN ADDED TO THE SCRATCH STRING, IF THE VSN STATUS 04535 M01S00134.274l797 +++|* IS SCRATCH. 04536 M00S04124.tfm +++|*
| Line S04125 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04537 M01S04125.274l797 ---|* USES CV - CV+4, PV - PV+4.
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04538 M01S00135.274l797 +++|* USES CV - CV+4, PV - PV+4. 04539 M00S04126.tfm +++|* 04540 M00S04127.tfm +++|* CALLS CRD, RLV, SCP, WRP. 04541 M00S04128.tfm +++|* 04542 M00S04129.tfm +++|* MACROS CLEAR, LDA, MMOVE, RESTP, SAVEP.
| Line S04130 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04543 M01S04130.274l797 ---|* 04544 M00S04131.tfm +++| 04545 M00S04132.tfm +++|
| Line S04133 Modification History | |
|---|---|
M01 (Removed by) | t5160 |
Seq # *Modification Id* Act ----------------------------+ 04546 M01S04133.t5160 ---| CSV4 MJN CSVX IF NOT RESERVED
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5160 |
Seq # *Modification Id* Act ----------------------------+ 04547 M01S00001.t5160 +++| CSV4 PJN CSVX IF NOT RESERVED 04548 M00S04134.tfm +++| ERRNZ RTVS-400000 *CODE MUST BE CHANGED* 04549 M00S04135.tfm +++| LDM VBRC,BP CHECK REEL NUMBER 04550 M00S04136.tfm +++| SHN -6 04551 M00S04137.tfm +++| SBN 2 04552 M00S04138.tfm +++| PJN CSVX IF NOT FIRST REEL 04553 M00S04139.tfm +++| RJM CRD CHECK RELEASE DATE 04554 M00S04140.tfm +++| ZJN CSVX IF NOT TO BE RELEASED 04555 M00S04141.tfm +++| RJM SCP SET CATALOG BUFFER POINTERS 04556 M00S04142.tfm +++| RJM RLV RELEASE CATALOG ENTRIES AND VSNS 04557 M00S04143.tfm +++| UJN CSVX RETURN 04558 M00S04144.tfm +++|
| Line S04145 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04559 M01S04145.ns2763 ---| CSV9 LDM VBST,BP CLEAR TEMPORARY SCRATCH 04560 M01S04146.ns2763 ---| SCN TSVS/1S12
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04561 M01S00011.ns2763 +++| CSV9 LMM VBST,BP CLEAR TEMPORARY SCRATCH 04562 M00S04147.tfm +++| STM VBST,BP 04563 M00S04148.tfm +++| AOM ISFA REWRITE BUFFER 04564 M00S04149.tfm +++| 04565 M00S04150.tfm +++| CSV SUBR ENTRY/EXIT 04566 M00S04151.tfm +++| LDM VBJS,BP 04567 M00S04152.tfm +++| NJN CSVX IF VOLUME ASSIGNED 04568 M00S04153.tfm +++| LDM VBST,BP CHECK FOR TEMPORARY SCRATCH 04569 M00S04154.tfm +++| LPN TSVS/1S12 04570 M00S04155.tfm +++| NJN CSV9 IF TEMPORARY SCRATCH 04571 M00S04156.tfm +++| LDA VBST,BP
| Line S04157 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04572 M01S04157.274l797 ---| LPC RTVS&HMVS&UOVS&TVVS&MVVS&ERVS
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04573 M02S00136.ns2763 ---| LPC RTVS+HMVS+UOVS+TVVS+MVVS+ERVS
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04574 M01S00012.ns2763 +++| LPC RTVS+HMVS+UOVS+SVVS+TVVS+MVVS+ERVS 04575 M00S04158.tfm +++| ZJN CSV1 IF AVAILABLE SCRATCH 04576 M00S04159.tfm +++| LJM CSV4 CHECK CONDITIONAL RELEASE 04577 M00S04160.tfm +++|
| Line S04161 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04578 M01S04161.274l797 ---| CSV1 BSS 0 SET AVAILABLE SCRATCH 04579 M01S04162.274l797 ---|* LDN 0
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04580 M01S00137.274l797 +++| CSV1 LDM VBST+1,BP SET AVAILABLE SCRATCH 04581 M01S00138.274l797 +++| LPC CTVS+ACVS 04582 M00S04163.tfm +++| STM VBST+1,BP 04583 M00S04164.tfm +++| LDN ASVS/1S12 04584 M00S04165.tfm +++| STM VBST,BP 04585 M00S04166.tfm +++| AOM PESN+4 INCREMENT SCRATCH COUNT 04586 M00S04167.tfm +++| SHN -14 04587 M00S04168.tfm +++| RAM PESN+3 04588 M00S04169.tfm +++| LDD PV 04589 M00S04170.tfm +++| NJN CSV2 IF PREVIOUS SCRATCH FOUND 04590 M00S04171.tfm +++| MMOVE VBES,BP,PESN,,VSKL 04591 M00S04172.tfm +++| UJN CSV3 SAVE SCRATCH POINTERS 04592 M00S04173.tfm +++| 04593 M00S04174.tfm +++| CSV2 MMOVE VBES,BP,VBNV,PV+1,VSKL 04594 M00S04175.tfm +++| LDD PV 04595 M00S04176.tfm +++| LMD BA 04596 M00S04177.tfm +++| ZJN CSV3 IF SAME BUFFER 04597 M00S04178.tfm +++| SAVEP CV 04598 M00S04179.tfm +++| RESTP PV 04599 M00S04180.tfm +++| RJM WRP WRITE RANDOM PRU 04600 M00S04181.tfm +++| RESTP CV 04601 M00S04182.tfm +++| CSV3 AOM ISFA 04602 M00S04183.tfm +++| AOM ISFB 04603 M00S04184.tfm +++| SAVEP PV 04604 M00S04185.tfm +++| CLEAR VBFV,BP,2*10D 04605 M00S04186.tfm +++| STM VBCI,BP 04606 M00S04187.tfm +++| STM VBCI+1,BP 04607 M00S04188.tfm +++| LCN 0 SET END OF SCRATCH DELIMITER 04608 M00S04189.tfm +++| STM VBNV,BP 04609 M00S04190.tfm +++| STM VBNV+1,BP 04610 M00S04191.tfm +++| STM VBNV+2,BP 04611 M00S04192.tfm +++| LJM CSVX RETURN
| Line S04193 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04612 M01S04193.274l797 ---| RLV SPACE 4,10
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04613 M01S00139.274l797 +++| RLV SPACE 4,20 04614 M00S04194.tfm +++|** RLV - RELEASE CATALOG ENTRIES AND VSNS. 04615 M00S04195.tfm +++|* 04616 M00S04196.tfm +++|* ENTRY (CV - CV+4) = CURRENT VSN POINTERS. 04617 M00S04197.tfm +++|* (PV - PV+4) = PREVIOUS SCRATCH POINTERS. 04618 M00S04198.tfm +++|* (CPCB - CPCB+4) = CATALOG BUFFER POINTERS. 04619 M00S04199.tfm +++|* 04620 M00S04200.tfm +++|* EXIT CATALOGS RELEASED. 04621 M00S04201.tfm +++|* VSNS RELEASED.
| Line S04202 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04622 M01S04202.ns2763 ---|* (BA) = UNCHANGED. 04623 M01S04203.ns2763 ---|* (BP) = UNCHANGED. 04624 M00S04204.tfm +++|* (PV - PV+4) = LAST SCRATCH VSN POINTERS 04625 M00S04205.tfm +++|*
| Line S04206 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04626 M01S04206.ns2763 ---|* USES BP, KA, CV - CV+4, NV - NV+2, PV - PV+4.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04627 M01S00013.ns2763 +++|* USES KA, SV, CM - CM+4, CV - CV+4, NV - NV+2, PV - PV+4. 04628 M00S04207.tfm +++|*
| Line S04208 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04629 M01S04208.ns2763 ---|* CALLS CSN, IAM, PCE, RRP, RVB, VIS, WRP.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04630 M01S00014.ns2763 +++|* CALLS CSN, IAM, PCE, RVB, VIS, WRP. 04631 M00S04209.tfm +++|*
| Line S04210 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04632 M01S04210.ns2763 ---|* MACROS CLEAR, COMPARE, ERROR, LDA, MMOVE, RESTP, SAVEP.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04633 M01S00015.ns2763 +++|* MACROS CLEAR, COMPARE, ERROR, MMOVE, RESTP, SAVEP. 04634 M00S04211.tfm +++| 04635 M00S04212.tfm +++| 04636 M00S04213.tfm +++| RLV SUBR ENTRY/EXIT 04637 M00S04214.tfm +++| RESTP CV RESTORE CURRENT POINTERS
| Line S04215 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04638 M01S04215.ns2763 ---| MMOVE VBES,BP,RLVA,,VSKL SAVE FIRST VSN
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04639 M01S00016.ns2763 +++| CRM RLVB,ON SAVE (CV) 04640 M01S00017.ns2763 +++| SBN 1 SAVE FIRST SCRATCH VSN AND COUNT 04641 M01S00018.ns2763 +++| CWM PESN,ON 04642 M01S00019.ns2763 +++| SBN 1 04643 M01S00020.ns2763 +++| CRM RLVA,ON 04644 M01S00021.ns2763 +++| MMOVE VBES,BP,PESN,,VSKL SAVE FIRST VSN FOR MESSAGE/COMPARE 04645 M01S00022.ns2763 +++| LDN 0 04646 M01S00023.ns2763 +++| RLV0 STD NV SET/CLEAR PRECEDING SYSTEM VSN FLAG 04647 M01S00024.ns2763 +++| LDM VBST+1,BP CHECK SYSTEM VSN FLAG 04648 M01S00025.ns2763 +++| LPC SVVS 04649 M01S00026.ns2763 +++| STD SV SET PROCESSING SYSTEM VSN FLAG 04650 M01S00027.ns2763 +++| NJN RLV0.1 IF PROCESSING SYSTEM VSN 04651 M00S04216.tfm +++| LDD PV 04652 M00S04217.tfm +++| NJN RLV1 IF PREVIOUS SCRATCH FOUND
| Line S04218 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04653 M01S04218.ns2763 ---| MMOVE VBES,BP,PESN,,VSKL SET FIRST SCRATCH VSN 04654 M01S04219.ns2763 ---| UJN RLV2 SKIP TO LAST VSN
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04655 M01S00028.ns2763 +++| MMOVE VBES,BP,RLVA,,VSKL SET FIRST SCRATCH VSN 04656 M01S00029.ns2763 +++| RLV0.1 UJP RLV2 SKIP TO LAST VSN 04657 M00S04220.tfm +++|
| Line S04221 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04658 M01S04221.ns2763 ---| RLV1 MMOVE VBES,BP,VBNV,PV+1,VSKL SET NEXT IN CHAIN TO FIRST VSN
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04659 M01S00030.ns2763 +++| RLV1 LDD NV 04660 M01S00031.ns2763 +++| ZJN RLV1.1 IF NO PRECEDING SYSTEM VSN 04661 M01S00032.ns2763 +++| SAVEP CV MAKE THIS VSN CURRENT TEMPORARILY 04662 M01S00033.ns2763 +++| RJM RVB RESTORE VSN BUFFERS 04663 M01S00034.ns2763 +++| RLV1.1 MMOVE VBES,BP,VBNV,PV+1,VSKL SET NEXT IN CHAIN TO FIRST VSN 04664 M00S04222.tfm +++| LDD PV 04665 M00S04223.tfm +++| LMD BA
| Line S04224 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04666 M01S04224.ns2763 ---| ZJN RLV2 IF SAME BUFFER
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04667 M01S00035.ns2763 +++| ZJN RLV1.2 IF SAME BUFFER 04668 M00S04225.tfm +++| RESTP PV RESTORE PREVIOUS SCRATCH VSN POINTERS 04669 M00S04226.tfm +++| RJM WRP WRITE RANDOM PRU 04670 M00S04227.tfm +++| RESTP CV RESTORE CURRENT SCRATCH VSN POINTERS
| Line S04228 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04671 M01S04228.ns2763 ---| RLV2 AOM PESN+4 INCREMENT SCRATCH COUNT
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04672 M01S00036.ns2763 +++| RLV1.2 LDD MA RESTORE ORIGINAL (CV) 04673 M01S00037.ns2763 +++| CWM RLVB,ON 04674 M01S00038.ns2763 +++| SBN 1 04675 M01S00039.ns2763 +++| CRD CV 04676 M01S00040.ns2763 +++| RLV2 LDN NV SET NEXT VOLUME 04677 M01S00041.ns2763 +++| STD KA 04678 M01S00042.ns2763 +++| MMOVE VBNV,BP,NV,,VSKL SAVE NEXT VSN 04679 M01S00043.ns2763 +++| CLEAR VBFV,BP,2*10D CLEAR VSN BLOCK 04680 M01S00044.ns2763 +++| STM VBCI,BP CLEAR CATALOG POINTERS 04681 M01S00045.ns2763 +++| STM VBCI+1,BP 04682 M01S00046.ns2763 +++| LDM VBST+1,BP CLEAR EXTRANEOUS STATUS FLAGS 04683 M01S00047.ns2763 +++| LPK SVVS+TVVS+MVVS+ERVS+CTVS+ACVS 04684 M01S00048.ns2763 +++| STM VBST+1,BP
| Line S04229 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04685 M01S04229.ns2763 ---| SHN -14
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04686 M01S00049.ns2763 +++| LDM VBST,BP 04687 M01S00050.ns2763 +++| LPK HMVS/1S12+UOVS/1S12
| Line S04230 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04688 M01S04230.ns2763 ---| RAM PESN+3 04689 M01S04231.ns2763 ---| LDA VBST,BP SET/CLEAR STATUS FLAGS
| Line S04232 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04690 M02S04232.ns2763 ---| LPC HMVS&UOVS&TVVS&MVVS&ERVS
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04691 M02S00140.ns2763 ---| LPC HMVS+UOVS+TVVS+MVVS+ERVS+CTVS+ACVS
| Line S04233 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04692 M01S04233.ns2763 ---| STM VBST+1,BP
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04693 M01S00051.ns2763 +++| STM VBST,BP 04694 M01S00052.ns2763 +++| LDD SV 04695 M01S00053.ns2763 +++| NJN RLV3 IF SYSTEM VSN 04696 M01S00054.ns2763 +++| MMOVE NV,,VBNV,BP,VSKL RESTORE NEXT VSN 04697 M01S00055.ns2763 +++| AOM RLVA+4 INCREMENT SCRATCH COUNT 04698 M00S04234.tfm +++| SHN -14
| Line S04235 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04699 M01S04235.ns2763 ---| LMN ASVS/1S12 04700 M01S04236.ns2763 ---| STM VBST,BP 04701 M01S04237.ns2763 ---| COMPARE RLVA,,VBES,BP,VSKL
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04702 M01S00056.ns2763 +++| RAM RLVA+3 04703 M01S00057.ns2763 +++| LDN ASVS/1S12 SET AVAILABLE SCRATCH 04704 M01S00058.ns2763 +++| RAM VBST,BP 04705 M01S00059.ns2763 +++| COMPARE PESN,,VBES,BP,VSKL 04706 M00S04238.tfm +++| PJN RLV3 IF VSN IN BUFFER ALREADY PROCESSED 04707 M00S04239.tfm +++| LDN TSVS/1S12 FLAG TEMPORARY SCRATCH 04708 M00S04240.tfm +++| RAM VBST,BP
| Line S04241 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04709 M01S04241.ns2763 ---| RLV3 LDN NV SET NEXT VOLUME 04710 M01S04242.ns2763 ---| STD KA 04711 M01S04243.ns2763 ---| MMOVE VBNV,BP,NV,,VSKL SAVE NEXT VSN 04712 M01S04244.ns2763 ---| CLEAR VBFV,BP,2*10D CLEAR VSN BLOCK 04713 M01S04245.ns2763 ---| STM VBCI,BP CLEAR CATALOG POINTERS 04714 M01S04246.ns2763 ---| STM VBCI+1,BP 04715 M01S04247.ns2763 ---| MMOVE NV,,VBNV,BP,VSKL RESTORE NEXT VSN 04716 M01S04248.ns2763 ---| LDD NV
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04717 M01S00060.ns2763 +++| RLV3 LDD NV 04718 M00S04249.tfm +++| ZJN RLV4 IF LAST VOLUME 04719 M00S04250.tfm +++| RJM WRP WRITE RANDOM PRU 04720 M00S04251.tfm +++| RJM VIS VSN INDEXED SEARCH
| Line S04252 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04721 M01S04252.ns2763 ---| ZJP RLV2 IF VSN FOUND
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04722 M01S00061.ns2763 +++| ZJN RLV3.1 IF VSN FOUND 04723 M00S04253.tfm +++| ERROR EID *ERROR IN INDEX DATA.* 04724 M00S04254.tfm +++|
| Line S04255 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04725 M01S04255.ns2763 ---| RLV4 LCN 0 SET END OF SCRATCH VOLUMES
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04726 M01S00062.ns2763 +++| RLV3.1 LDD SV 04727 M01S00063.ns2763 +++| ZJP RLV2 IF NOT PRECEDED BY SYSTEM VSN 04728 M01S00064.ns2763 +++| LJM RLV0 SET FLAG AND CHECK NEXT SCRATCH VSN 04729 M01S00065.ns2763 +++| 04730 M01S00066.ns2763 +++| RLV4 STM ISFA CLEAR BUFFER REWRITE FLAG 04731 M01S00067.ns2763 +++| STM ISFB CLEAR BUFFER TOGGLE FLAG 04732 M01S00068.ns2763 +++| LDD SV 04733 M01S00069.ns2763 +++| NJN RLV4.1 IF ONLY SYSTEM VSN(S) PROCESSED 04734 M01S00070.ns2763 +++| LCN 0 SET END OF SCRATCH VOLUMES 04735 M00S04256.tfm +++| STM VBNV,BP 04736 M00S04257.tfm +++| STM VBNV+1,BP 04737 M00S04258.tfm +++| STM VBNV+2,BP
| Line S04259 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04738 M01S04259.ns2763 ---| LDN 0 04739 M01S04260.ns2763 ---| STM ISFA CLEAR BUFFER REWRITE FLAG 04740 M01S04261.ns2763 ---| STM ISFB CLEAR BUFFER TOGGLE FLAG 04741 M00S04262.tfm +++| SAVEP PV SAVE LAST SCRATCH POINTERS
| Line S04263 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04742 M01S04263.ns2763 ---| RJM WRP WRITE LAST SCRATCH
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04743 M01S00071.ns2763 +++| RLV4.1 RJM WRP WRITE LAST SCRATCH 04744 M00S04264.tfm +++| LDM CPCB
| Line S04265 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04745 M01S04265.ns2763 ---| ZJP RLV6 IF NO CATALOG ENTRY
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04746 M01S00072.ns2763 +++| ZJN RLV6 IF NO CATALOG ENTRY 04747 M00S04266.tfm +++| MMOVE CWUN,CPCB,PBUN,,UNKL SET USERNAME TO TAPE FILE 04748 M00S04267.tfm +++| LDM CPCB+1 GET FILE STATUS 04749 M00S04268.tfm +++| STD CM 04750 M00S04269.tfm +++| LDM CBST,CM 04751 M00S04270.tfm +++| SHN 21-11
| Line S04271 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04752 M01S04271.ns2763 ---| MJP RLV5 IF INITIAL CATALOG
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04753 M01S00073.ns2763 +++| MJN RLV5 IF INITIAL CATALOG 04754 M00S04272.tfm +++| LDN 1 04755 M00S04273.tfm +++| RJM CSN CONVERT SEQUENCE NUMBER TO DISPLAY CODE
| Line S04274 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04756 M01S04274.ns2763 ---| MMOVE PESN,,RLVB,,VSKL SAVE FIRST SCRATCH 04757 M01S04275.ns2763 ---| MMOVE RLVA,,PESN,,VSKL SET FIRST VSN FOR MESSAGE 04758 M00S04276.tfm +++| LDN ZERL SET UNCONDITIONAL RELEASE 04759 M00S04277.tfm +++| CRD CM 04760 M00S04278.tfm +++| LDN 1 FLAG RELEASE 04761 M00S04279.tfm +++| RJM IAM ISSUE ACCOUNT FILE MESSAGE
| Line S04280 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04762 M01S04280.ns2763 ---| MMOVE RLVB,,PESN,,VSKL 04763 M00S04281.tfm +++| RLV5 RJM PCE PURGE CATALOG ENTRIES 04764 M00S04282.tfm +++| RLV6 RJM RVB RESTORE VSN BUFFERS
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04765 M01S00074.ns2763 +++| LDD MA SET/RESTORE FIRST SCRATCH VSN AND COUNTS 04766 M01S00075.ns2763 +++| CWM RLVA,ON 04767 M01S00076.ns2763 +++| SBN 1 04768 M01S00077.ns2763 +++| CRM PESN,ON 04769 M00S04283.tfm +++| LJM RLVX RETURN 04770 M00S04284.tfm +++|
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04771 M01S00078.ns2763 +++|
| Line S04285 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04772 M01S04285.ns2763 ---| RLVA BSS VSKL/2 04773 M01S04286.ns2763 ---| RLVB BSS VSKL/2
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04774 M01S00079.ns2763 +++| RLVA BSS 5 FIRST SCRATCH VSN 04775 M01S00080.ns2763 +++| RLVB BSS 5 CURRENT VSN POINTERS 04776 M00S04287.tfm +++| RSV SPACE 4,10 04777 M00S04288.tfm +++|** RSV - RESERVE CATALOG ENTRIES AND VSNS. 04778 M00S04289.tfm +++|* 04779 M00S04290.tfm +++|* ENTRY (CV - CV+4) = CURRENT VSN POINTERS. 04780 M00S04291.tfm +++|* (PV - PV+4) = PREVIOUS SCRATCH POINTERS. 04781 M00S04292.tfm +++|* (CPCB - CPCB+4) = CATALOG BUFFER POINTERS. 04782 M00S04293.tfm +++|* 04783 M00S04294.tfm +++|* EXIT CATALOG ENTRIES AND VSNS RESERVED. 04784 M00S04295.tfm +++|* (BA) = UNCHANGED 04785 M00S04296.tfm +++|* (BP) = UNCHANGED 04786 M00S04297.tfm +++|* 04787 M00S04298.tfm +++|* USES CM, IC, KA, RC. 04788 M00S04299.tfm +++|* 04789 M00S04300.tfm +++|* CALLS CSN, IAM, IRM, RRP, RVB, VIS, VSP, WRP. 04790 M00S04301.tfm +++|* 04791 M00S04302.tfm +++|* MACROS ERROR, LDA, MMOVE, RESTP, SAVEP. 04792 M00S04303.tfm +++| 04793 M00S04304.tfm +++| 04794 M00S04305.tfm +++| RSV SUBR ENTRY/EXIT 04795 M00S04306.tfm +++| LDD MA SAVE SCRATCH POINTERS AND COUNT 04796 M00S04307.tfm +++| CWM PESN,ON 04797 M00S04308.tfm +++| SBN 1 04798 M00S04309.tfm +++| CRM RLVA,ON
| Line S04310 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04799 M01S04310.ns2763 ---| ERRNG VSKL-5 *CODE NEEDS TO BE CHANGED* 04800 M00S04311.tfm +++| RESTP CV RESTORE CURRENT VSN POINTERS 04801 M00S04312.tfm +++| MMOVE VBES,BP,PESN,,VSKL SET FIRST VSN AND CURRENT VSN 04802 M00S04313.tfm +++| LDC PVSN 04803 M00S04314.tfm +++| STD KA 04804 M00S04315.tfm +++| MMOVE PESN,,,KA,VSKL 04805 M00S04316.tfm +++| SAVEP CPSI SAVE SECONDARY VSN POINTERS 04806 M00S04317.tfm +++| RESTP CPCB 04807 M00S04318.tfm +++| MMOVE CWUN,BA,PBUN,,UNKL 04808 M00S04319.tfm +++| RSV1 LDA CBQN,BP SET SEQUENCE NUMBER 04809 M00S04320.tfm +++| RJM CSN 04810 M00S04321.tfm +++| LDM CBST,BP GET INITIAL CATALOG STATUS 04811 M00S04322.tfm +++| STD T0 04812 M00S04323.tfm +++| LPC 1000 04813 M00S04324.tfm +++| STD IC 04814 M00S04325.tfm +++| LMD T0 CLEAR INITIAL CATALOG STATUS 04815 M00S04326.tfm +++| SCN 1 CLEAR BUSY 04816 M00S04327.tfm +++| STM CBST,BP 04817 M00S04328.tfm +++| LDM CBRC,BP 04818 M00S04329.tfm +++| STD RC 04819 M00S04330.tfm +++| RESTP CPSI RESTORE SECONDARY VSN POINTERS 04820 M00S04331.tfm +++| RSV2 LDD IC 04821 M00S04332.tfm +++| NJN RSV3 IF INITIAL CATALOG 04822 M00S04333.tfm +++| LDM VBST,BP CHECK RESERVED STATUS 04823 M00S04334.tfm +++| LPN RTVS/1S12 04824 M00S04335.tfm +++| NJN RSV4 IF RESERVED 04825 M00S04336.tfm +++| RSV3 LDN 0 SET RESERVE MESSAGE
| Line S04337 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04826 M01S04337.ns2763 ---| RJM IAM ISSUE ACCOUTING MESSAGE
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04827 M01S00081.ns2763 +++| RJM IAM ISSUE ACCOUNTING MESSAGE 04828 M00S04338.tfm +++| RSV4 LDM VBST,BP CLEAR EOI AND SCRATCH STATUS 04829 M00S04339.tfm +++| SCN EOIV/1S12+RTVS/1S12+ASVS/1S12 04830 M00S04340.tfm +++| LMN RTVS/1S12 SET RESERVED STATUS 04831 M00S04341.tfm +++| STM VBST,BP 04832 M00S04342.tfm +++| LDM VBST+1,BP CLEAR VSN BUSY STATUS 04833 M00S04343.tfm +++| SCN VIVS 04834 M00S04344.tfm +++| STM VBST+1,BP 04835 M00S04345.tfm +++| LDN 0 04836 M00S04346.tfm +++| STM VBJS,BP
| Line S04347 Modification History | |
|---|---|
M01 (Removed by) | m1629 |
Seq # *Modification Id* Act ----------------------------+ 04837 M01S04347.m1629 ---| STM VBJS+1,BP 04838 M00S04348.tfm +++| SOD RC 04839 M00S04349.tfm +++| ZJN RSV7 IF NO MORE REELS 04840 M00S04350.tfm +++| RJM WRP WRITE RANDOM PRU 04841 M00S04351.tfm +++| MMOVE VBNV,BP,,KA,VSKL 04842 M00S04352.tfm +++| LDI KA 04843 M00S04353.tfm +++| NJN RSV6 IF NEXT REEL EXISTS 04844 M00S04354.tfm +++| RSV5 ERROR EID *ERROR IN INDEXED DATA.* 04845 M00S04355.tfm +++| 04846 M00S04356.tfm +++| RSV6 RJM VIS VSN INDEXED SEARCH 04847 M00S04357.tfm +++| NJN RSV5 IF NOT FOUND 04848 M00S04358.tfm +++| LJM RSV2 UPDATE NEXT VSN 04849 M00S04359.tfm +++| 04850 M00S04360.tfm +++| RSV7 RESTP CPCB RESTORE CATALOG BUFFER POINTERS 04851 M00S04361.tfm +++| LDM CBST,BP 04852 M00S04362.tfm +++| SHN 21-10 04853 M00S04363.tfm +++| PJN RSV8 IF NO RECOVERY MESSAGES TO ISSUE 04854 M00S04364.tfm +++| RJM IRM ISSUE *TMS* RECOVERY MESSAGES 04855 M00S04365.tfm +++| RSV8 LDM CBNC,BP 04856 M00S04366.tfm +++| SHN 14 04857 M00S04367.tfm +++| STD CI 04858 M00S04368.tfm +++| SHN -14 04859 M00S04369.tfm +++| LMD RI 04860 M00S04370.tfm +++| NJN RSV9 IF DIFFERENT CATALOG BLOCK 04861 M00S04371.tfm +++| LDM CBNC+1,BP 04862 M00S04372.tfm +++| LMD RI+1 04863 M00S04373.tfm +++| ZJN RSV10 IF DIFFERENT CATALOG BLOCK 04864 M00S04374.tfm +++| RSV9 RJM WRP WRITE RANDOM PRU 04865 M00S04375.tfm +++| LDM CBNC,BP CHECK FOR NEXT CATALOG 04866 M00S04376.tfm +++| LPN 77 04867 M00S04377.tfm +++| STD RI 04868 M00S04378.tfm +++| LDM CBNC+1,BP 04869 M00S04379.tfm +++| STD RI+1 04870 M00S04380.tfm +++| ADD RI 04871 M00S04381.tfm +++| ZJN RSV12 IF LAST CATALOG 04872 M00S04382.tfm +++| RJM RRP READ RANDOM PRU 04873 M00S04383.tfm +++| RSV10 RJM VSP VERIFY/SET CATALOG POINTERS 04874 M00S04384.tfm +++| PJN RSV11 IF POINTER VALID 04875 M00S04385.tfm +++| ERROR ECD *ERROR IN CATALOG DATA.* 04876 M00S04386.tfm +++| 04877 M00S04387.tfm +++| RSV11 SAVEP CPCB SAVE CATALOG BUFFERS 04878 M00S04388.tfm +++| LJM RSV1 PROCESS NEXT CATALOG 04879 M00S04389.tfm +++| 04880 M00S04390.tfm +++| RSV12 LDM CPSI+1 CHECK FOR EXCESS VOLUMES 04881 M00S04391.tfm +++| STD CM 04882 M00S04392.tfm +++| LDM VBNV,CM 04883 M00S04393.tfm +++| ZJN RSV13 IF NO EXCESS VOLUMES 04884 M00S04394.tfm +++| AOD RC FAKE REEL COUNT 04885 M00S04395.tfm +++| RESTP CPCB RESTORE CATALOG BUFFERS 04886 M00S04396.tfm +++| LJM RSV2 SET VSN STATUS, ISSUE ACCOUNT FILE MESSAGE 04887 M00S04397.tfm +++| 04888 M00S04398.tfm +++| RSV13 RESTP CPSI RESTORE VSN POINTERS 04889 M00S04399.tfm +++| RJM WRP WRITE RANDOM PRU 04890 M00S04400.tfm +++| RJM RVB RESTORE VSN BUFFERS 04891 M00S04401.tfm +++| LDD MA RESTORE SCRATCH POINTERS 04892 M00S04402.tfm +++| CWM RLVA,ON
| Line S04403 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04893 M01S04403.ns2763 ---| ERRNG VSKL-5 *CODE NEEDS TO BE CHANGED* 04894 M00S04404.tfm +++| SBN 1 04895 M00S04405.tfm +++| CRM PESN,ON 04896 M00S04406.tfm +++| LJM RSVX RETURN 04897 M00S04407.tfm +++| RVB SPACE 4,15 04898 M00S04408.tfm +++|** RVB - RESTORE VSN BUFFERS. 04899 M00S04409.tfm +++|* 04900 M00S04410.tfm +++|* ENTRY (CV - CV+4) = CURRENT SCRATCH BUFFER POINTERS. 04901 M00S04411.tfm +++|* (PV - PV+4) = PREVIOUS SCRATCH BUFFER POINTERS. 04902 M00S04412.tfm +++|* 04903 M00S04413.tfm +++|* EXIT (BA - RI+1) = CURRENT SCRATCH BUFFER POINTERS. 04904 M00S04414.tfm +++|* BUFFERS RELOADED. 04905 M00S04415.tfm +++|*
| Line S04416 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04906 M01S04416.ns2763 ---|* CALLS RRP.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 04907 M01S00082.ns2763 +++|* CALLS RRP, TBA. 04908 M00S04417.tfm +++|* 04909 M00S04418.tfm +++|* MACROS RESTP. 04910 M00S04419.tfm +++| 04911 M00S04420.tfm +++| 04912 M00S04421.tfm +++| RVB SUBR ENTRY/EXIT 04913 M00S04422.tfm +++| LDN 0 04914 M00S04423.tfm +++| STM ISFA NO WRITE NECESSARY 04915 M00S04424.tfm +++| STM ISFB NO BUFFER TOGGLE NECESSARY 04916 M00S04425.tfm +++| RESTP PV READ LAST SCRATCH BUFFER 04917 M00S04426.tfm +++| LDD BA 04918 M00S04427.tfm +++| ZJN RVB1 IF NO PREVIOUS SCRATCH 04919 M00S04428.tfm +++| RJM TBA TOGGLE BUFFER ALLOCATION 04920 M00S04429.tfm +++| RJM RRP READ RANDOM PRU 04921 M00S04430.tfm +++| LDD PV+1 RESET PREVIOUS SCRATCH BUFFER POINTER 04922 M00S04431.tfm +++| SBD PV 04923 M00S04432.tfm +++| ADD BA 04924 M00S04433.tfm +++| STD PV+1 04925 M00S04434.tfm +++| STD BP 04926 M00S04435.tfm +++| LDD BA RESET PREVIOUS SCRATCH BUFFER ADDRESS 04927 M00S04436.tfm +++| STD PV 04928 M00S04437.tfm +++| LDD RI COMPARE RANDOM INDICES 04929 M00S04438.tfm +++| LMD CV+3 04930 M00S04439.tfm +++| NJN RVB1 IF DIFFERENT 04931 M00S04440.tfm +++| LDD RI+1 04932 M00S04441.tfm +++| LMD CV+4 04933 M00S04442.tfm +++| NJN RVB1 IF DIFFERENT 04934 M00S04443.tfm +++| AOM ISFB BUFFER TOGGLE REQUIRED FOR NEXT VSN BLOCK 04935 M00S04444.tfm +++| UJN RVB2 SET CURRENT VSN POINTERS 04936 M00S04445.tfm +++| 04937 M00S04446.tfm +++| RVB1 RESTP CV RESTORE CURRENT VSN POINTERS 04938 M00S04447.tfm +++| RJM TBA TOGGLE BUFFER ALLOCATION 04939 M00S04448.tfm +++| RJM RRP READ RANDOM PRU 04940 M00S04449.tfm +++| RVB2 LDD CV+1 RESET CURRENT VSN BUFFER POINTER 04941 M00S04450.tfm +++| SBD CV 04942 M00S04451.tfm +++| ADD BA 04943 M00S04452.tfm +++| STD CV+1 04944 M00S04453.tfm +++| STD BP 04945 M00S04454.tfm +++| LDD BA RESET CURRENT VSN BUFFER ADDRESS 04946 M00S04455.tfm +++| STD CV 04947 M00S04456.tfm +++| LDD RI RESET CURRENT POSITION RANDOM INDEX 04948 M00S04457.tfm +++| STM CPRI 04949 M00S04458.tfm +++| LDD RI+1 04950 M00S04459.tfm +++| STM CPRI+1 04951 M00S04460.tfm +++| LJM RVBX RETURN 04952 M00S04461.tfm +++| SCP SPACE 4,15 04953 M00S04462.tfm +++|** SCP - SET CATALOG BUFFER POINTERS 04954 M00S04463.tfm +++|* 04955 M00S04464.tfm +++|* ENTRY (BA - RI+1) = SECONDARY VSN BUFFER POINTERS. 04956 M00S04465.tfm +++|* 04957 M00S04466.tfm +++|* EXIT (CV - CV+4) = SECONDARY VSN BUFFER POINTERS. 04958 M00S04467.tfm +++|* (CPCB - CPCB+4) = CATALOG ENTRY BUFFER POINTERS. 04959 M00S04468.tfm +++|* (BA - RI+1) = CATALOG ENTRY BUFFER POINTERS. 04960 M00S04469.tfm +++|* 04961 M00S04470.tfm +++|* USES BA, BP, CI, CV - CV+4, RI - RI+1. 04962 M00S04471.tfm +++|* 04963 M00S04472.tfm +++|* CALLS RRP, VSP. 04964 M00S04473.tfm +++|* 04965 M00S04474.tfm +++|* MACROS SAVEP. 04966 M00S04475.tfm +++| 04967 M00S04476.tfm +++| 04968 M00S04477.tfm +++| SCP2 LDI BP 04969 M00S04478.tfm +++| ZJN SCP1 IF HOLE FOUND 04970 M00S04479.tfm +++| SCP3 SAVEP CPCB SAVE CATALOG POINTERS 04971 M00S04480.tfm +++| 04972 M00S04481.tfm +++| SCP SUBR ENTRY/EXIT 04973 M00S04482.tfm +++| SAVEP CV SAVE CURRENT POINTERS 04974 M00S04483.tfm +++| LDM VBCI,BP 04975 M00S04484.tfm +++| SHN 14 04976 M00S04485.tfm +++| STD CI 04977 M00S04486.tfm +++| SCN 77 04978 M00S04487.tfm +++| LMM VBCI+1,BP 04979 M00S04488.tfm +++| ZJN SCP1 IF NO CATALOG INDEX 04980 M00S04489.tfm +++| STD RI+1 04981 M00S04490.tfm +++| SHN -14 04982 M00S04491.tfm +++| STD RI 04983 M00S04492.tfm +++| LDC BUF2 DEFINE CATALOG BUFFER 04984 M00S04493.tfm +++| SCP1 STD BA 04985 M00S04494.tfm +++| ZJN SCP3 IF NO CATALOG INDEX 04986 M00S04495.tfm +++| RJM RRP READ RANDOM PRU (CATALOG) 04987 M00S04496.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS 04988 M00S04497.tfm +++| PJN SCP2 IF VALID CATALOG 04989 M00S04498.tfm +++| LDN 0 04990 M00S04499.tfm +++| UJN SCP1 SET NO CATALOG 04991 M00S04500.tfm +++| CRD SPACE 4,10 04992 M00S04501.tfm +++|** CRD - CHECK RELEASE DATE. 04993 M00S04502.tfm +++|* 04994 M00S04503.tfm +++|* ENTRY (BA) = BUFFER ADDRESS (VSN INDEX). 04995 M00S04504.tfm +++|* (BP) = BUFFER POINTER (VSN INDEX). 04996 M00S04505.tfm +++|* (PV - PV+4) = PREVIOUS SCRATCH VSN POINTERS. 04997 M00S04506.tfm +++|*
| Line S04507 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 04998 M01S04507.t2807 ---|* EXIT (A) = 0 IF NOT CONDITIONAL RELEASE OR CONDITIONAL 04999 M01S04508.t2807 ---|* RELEASE WITHIN THE RELEASE PERIOD. 05000 M01S04509.t2807 ---|* (A) = 1 IF CONDITIONAL RELEASE AND EXCEED RELEASE 05001 M01S04510.t2807 ---|* PERIOD.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05002 M01S00013.t2807 +++|* EXIT (A) = 0 IF RELEASE DATE OLD FORMAT, NO RELEASE DATE, 05003 M01S00014.t2807 +++|* OR IF RELEASE DATE NOT YET REACHED. 05004 M01S00015.t2807 +++|* (A) .NE. 0 IF RELEASE DATE NEW FORMAT AND EXPIRED.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5236 |
Seq # *Modification Id* Act ----------------------------+ 05005 M01S00001.t5236 +++|*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | t5236 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 05006 M02S00002.ns2763 ---|* MACROS MONITOR
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 05007 M01S00083.ns2763 +++|* USES CM - CM+4.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | t5236 |
Seq # *Modification Id* Act ----------------------------+ 05008 M01S00003.t5236 +++|*
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 05009 M01S00084.ns2763 +++|* MACROS MONITOR. 05010 M00S04511.tfm +++| 05011 M00S04512.tfm +++| 05012 M00S04513.tfm +++| CRD SUBR ENTRY/EXIT
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05013 M01S00016.t2807 +++| LDM VBST+1,BP VSN STATUS
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | t2807 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 05014 M02S00017.ns2763 ---| LPN 20B
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 05015 M01S00085.ns2763 +++| LPN RDVS
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05016 M01S00018.t2807 +++| ZJN CRDX IF RELEASE DATE OLD FORMAT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | t5236 |
Seq # *Modification Id* Act ----------------------------+ 05017 M01S00004.t5236 +++| LDM VBRD+1,BP RELEASE DATE 05018 M01S00005.t5236 +++| ZJN CRDX IF NO RELEASE DATE 05019 M01S00006.t5236 +++| STD CM+4 05020 M01S00007.t5236 +++| LDM VBRD,BP RELEASE DATE YEAR 05021 M01S00008.t5236 +++| LPN 77 05022 M01S00009.t5236 +++| STD CM+3
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | t5236 |
M02 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05023 M02S00010.t2807 ---| LDN VEDS CHECK RELEASE DATE REACHED
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05024 M01S00019.t2807 +++| LDN /COMSCPS/VEDS CHECK RELEASE DATE REACHED
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | t5236 |
Seq # *Modification Id* Act ----------------------------+ 05025 M01S00011.t5236 +++| STD CM+1 05026 M01S00012.t5236 +++| MONITOR VSAM VALIDATE SECURITY ACCESS FUNCTIONS 05027 M01S00013.t5236 +++| LDD CM+1
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | t5236 |
M02 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05028 M02S00014.t2807 ---| ZJN CRDX IF DATE BEYOND CURRENT DATE
| Line S04514 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05029 M01S04514.t2807 ---| LDN PDTL READ CURRENT PACKED DATE 05030 M01S04515.t2807 ---| CRD CM 05031 M01S04516.t2807 ---| LDM VBRD+1,BP RELEASE DATE
| Line S04517 Modification History | |
|---|---|
M01 (Removed by) | t5236 |
M02 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05032 M02S04517.t2807 ---| ZJN CRDX IF NO RELEASE DATE
| Line S04518 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05033 M01S04518.t2807 ---| STD CM+4 05034 M01S04519.t2807 ---| SHN -6 05035 M01S04520.t2807 ---| STD CM MONTH 05036 M01S04521.t2807 ---| LDD CM+4 CONVERT RELEASE DATE 05037 M01S04522.t2807 ---| LPN 77 05038 M01S04523.t2807 ---| ADM CRDA-1,CM 05039 M01S04524.t2807 ---| STD CM+1 MONTH+DAY 05040 M01S04525.t2807 ---| LDD CM+2 CONVERT CURRENT DATE 05041 M01S04526.t2807 ---| LPN 77 05042 M01S04527.t2807 ---| STD CM+2 MONTH 05043 M01S04528.t2807 ---| LDD CM+3 05044 M01S04529.t2807 ---| SHN -6 05045 M01S04530.t2807 ---| ADM CRDA-1,CM+2 MONTH+DAY 05046 M01S04531.t2807 ---| SBD CM+1 SUBTRACT RELEASE DATE 05047 M01S04532.t2807 ---| PJN CRD1 IF NO UNDERFLOW 05048 M01S04533.t2807 ---| ADC 365D ADD 1 YEAR 05049 M01S04534.t2807 ---| CRD1 SBK CRDP IF CONDITIONAL RELEASE PERIOD 05050 M01S04535.t2807 ---| MJN CRD2 IF CONDITIONAL RELEASE 05051 M01S04536.t2807 ---| LDM VBRD,BP CLEAR RELEASE DATE 05052 M01S04537.t2807 ---| SCN 77 05053 M01S04538.t2807 ---| STM VBRD,BP 05054 M01S04539.t2807 ---| LDN 0 05055 M01S04540.t2807 ---| STM VBRD+1,BP 05056 M01S04541.t2807 ---| LDN 1 ACCESSED RELEASE PERIOD 05057 M01S04542.t2807 ---| UJN CRD3 RETURN 05058 M01S04543.t2807 ---| 05059 M01S04544.t2807 ---| CRD2 LDN 0 WITHIN RELEASE PERIOD 05060 M01S04545.t2807 ---| CRD3 LJM CRDX RETURN 05061 M01S04546.t2807 ---| 05062 M01S04547.t2807 ---| BASE D 05063 M01S04548.t2807 ---| CRDA BSS 0 MONTH/DAY TABEL 05064 M01S04549.t2807 ---| CON 0 JAN 05065 M01S04550.t2807 ---| CON 31 FEB 05066 M01S04551.t2807 ---| CON 59 MAR 05067 M01S04552.t2807 ---| CON 90 APR 05068 M01S04553.t2807 ---| CON 120 MAY 05069 M01S04554.t2807 ---| CON 151 JUN 05070 M01S04555.t2807 ---| CON 181 JUL 05071 M01S04556.t2807 ---| CON 212 AUG 05072 M01S04557.t2807 ---| CON 243 SEP 05073 M01S04558.t2807 ---| CON 273 OCT 05074 M01S04559.t2807 ---| CON 304 NOV 05075 M01S04560.t2807 ---| CON 334 DEC 05076 M01S04561.t2807 ---| BASE *
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 05077 M01S00020.t2807 +++| UJN CRDX RETURN 05078 M00S04562.tfm +++| TACM SPACE 4,10 05079 M00S04563.tfm +++|* TACM - TABLE OF ACTIVE MACHINES. 05080 M00S04564.tfm +++|* 05081 M00S04565.tfm +++|* INDEXED BY MACHINE INDEX-1. NONZERO ENTRY FLAGS MACHINE 05082 M00S04566.tfm +++|* ACTIVE. 05083 M00S04567.tfm +++| 05084 M00S04568.tfm +++| 05085 M00S04569.tfm +++| TACM EQU OVL1-20 05086 M00S04570.tfm +++| SPACE 4 05087 M00S04571.tfm +++|** LOCAL COMMON DECKS. 05088 M00S04572.tfm +++| 05089 M00S04573.tfm +++|*CALL COMPC2D 05090 M00S04574.tfm +++| 05091 M00S04575.tfm +++| 05092 M00S04576.tfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY 05093 M00S04577.tfm +++| DDE$ EQU 1 DEFINE DDE - DELETE DATA BLOCK 05094 M00S04578.tfm +++| DLB$ EQU 1 DEFINE DLB - DELINK BLOCK 05095 M00S04579.tfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK 05096 M00S04580.tfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT LINK 05097 M00S04581.tfm +++| GPL$ EQU 1 DEFINE GPL - GET PREVIOUS LINK 05098 M00S04582.tfm +++| IAM$ EQU 1 DEFINE IAM - ISSUE ACCOUNT FILE MESSAGE 05099 M00S04583.tfm +++| IRM$ EQU 1 DEFINE IRM - ISSUE RECOVERY MESSAGES. 05100 M00S04584.tfm +++| ISK$ EQU 1 DEFINE ISK - INDEXED SEARCH BY KEY 05101 M00S04585.tfm +++| PCE$ EQU 1 DEFINE PCE - PURGE CATALOG ENTRIES 05102 M00S04586.tfm +++| PLI$ EQU 1 DEFINE PLI - POSITION TO LAST INDEX 05103 M00S04587.tfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BUFFER 05104 M00S04588.tfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT 05105 M00S04589.tfm +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH 05106 M00S04590.tfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS 05107 M00S04591.tfm +++|*CALL COMPTFM 05108 M00S04592.tfm +++| SPACE 4 05109 M00S04593.tfm +++| ERRNG BUF2-* BYTES LEFT BEFORE BUFFER OVERFLOW
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05110 M01S00141.274l797 +++| TITLE PRESET. 05111 M00S04594.tfm +++| PRS SPACE 4,15 05112 M00S04595.tfm +++|** PRS - PRESET FOR *ISF*. 05113 M00S04596.tfm +++|* 05114 M00S04597.tfm +++|* ENTRY (CPSB - CPSB+4) = SYSTEM BUFFER POINTERS. 05115 M00S04598.tfm +++|*
| Line S04599 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05116 M01S04599.274l797 ---|* EXIT (IL) = INTERLOCK FLAG.
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05117 M01S00142.274l797 +++|* EXIT (TT) = 7777. 05118 M00S04600.tfm +++|* (BA - RI+1) = FIRST VSN TO CHECK FOR SCRATCH.
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05119 M01S00143.274l797 +++|* (ISFD - ISFD+4) = (BA - RI+1). 05120 M00S04601.tfm +++|*
| Line S04602 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05121 M01S04602.274l797 ---|* USES BA, BP, CI, CM - CM+4, PV - PV+4, RI - RI+1.
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05122 M01S00144.274l797 +++|* USES TT, T1, PV - PV+4, RI - RI+1. 05123 M00S04603.tfm +++|*
| Line S04604 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05124 M01S04604.274l797 ---|* CALLS GIB, MBP, RRP, TBA.
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05125 M01S00145.274l797 +++|* CALLS GIB, MBP, RRP, SAM, TBA. 05126 M00S04605.tfm +++|*
| Line S04606 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05127 M01S04606.274l797 ---|* MACROS COMPARE, ERROR, RESTP.
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05128 M01S00146.274l797 +++|* MACROS COMPARE, ERROR, ISTORE, RESTP, SAVEP. 05129 M00S04607.tfm +++| 05130 M00S04608.tfm +++| 05131 M00S04609.tfm +++| PRS SUBR ENTRY/EXIT 05132 M00S04610.tfm +++| LDM PFLG 05133 M00S04611.tfm +++| LPN 3
| Line S04612 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05134 M01S04612.274l797 ---| STD IL 05135 M01S04613.274l797 ---| SBN 2
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 05136 M01S00147.274l797 +++| NJN PRS0 IF CLEARING INTERLOCKS 05137 M01S00148.274l797 +++| ISTORE CFBA,(UJN CFB8) BYPASS INTERLOCK CLEARING 05138 M01S00149.274l797 +++| LDN 0 05139 M01S00150.274l797 +++| PRS0 SBN 2 05140 M00S04614.tfm +++| MJN PRS1 IF CLEARING NO OR ALL INTERLOCKS 05141 M00S04615.tfm +++| RJM SAM SEARCH FOR ACTIVE MACHINES 05142 M00S04616.tfm +++| PRS1 LDN ZERL 05143 M00S04617.tfm +++| CRD PV CLEAR PREVIOUS SCRATCH POINTERS 05144 M00S04618.tfm +++| CRM PESN,ON CLEAR SCRATCH COUNT 05145 M00S04619.tfm +++| LCN 0 SET END OF SCRATCH 05146 M00S04620.tfm +++| STM PESN 05147 M00S04621.tfm +++| STM PESN+1 05148 M00S04622.tfm +++| STM PESN+2 05149 M00S04623.tfm +++| RESTP CPSB RESTORE BUFFER POINTERS 05150 M00S04624.tfm +++| RJM RRP READ RANDOM PRU (TMST) 05151 M00S04625.tfm +++| LDM CWRT,BA 05152 M00S04626.tfm +++| LMC RTSB*100B 05153 M00S04627.tfm +++| NJN PRS2 IF NOT TMST 05154 M00S04628.tfm +++| COMPARE PFAM,,,BP,PFKL 05155 M00S04629.tfm +++| ZJN PRS3 IF FAMILY CATALOG 05156 M00S04630.tfm +++| PRS2 ERROR CNF *(FAMILY) CATALOG NOT FOUND.*
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/tfm.002.txt · Last modified: by 127.0.0.1