cdc:nos2.source:opl.opl871:deck:tfm.005
Deck TFM Part 005
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 ----------------------------+
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 08637 M01S00081.t2807 +++| LDN /COMSCPS/AFAS ATTACH DEMAND FILE 08638 M00S07728.tfm +++| RJM ARF 08639 M00S07729.tfm +++| LDD FN COMPARE FILE NAMES 08640 M00S07730.tfm +++| LMC 2RRS 08641 M00S07731.tfm +++| LMD FN+1 08642 M00S07732.tfm +++| LMC 2RXD 08643 M00S07733.tfm +++| LMD FN+2 08644 M00S07734.tfm +++| LMM MFID 08645 M00S07735.tfm +++| ZJN SFV10 IF *RSXDID* FILE
| Line S07736 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 08646 M01S07736.nos252 ---| ERROR ILR *TFM INVALID REQUEST*
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 08647 M01S00065.nos252 +++| ERROR ILR *TFM INCORRECT REQUEST* 08648 M00S07737.tfm +++| 08649 M00S07738.tfm +++| SFV10 STM UDTA CLEAR UDT ADDRESS 08650 M00S07739.tfm +++| LDD FS SET EQUIPMENT 08651 M00S07740.tfm +++| LPC 777 08652 M00S07741.tfm +++| STD DE 08653 M00S07742.tfm +++| STD T5 08654 M00S07743.tfm +++| LDD FS+1 SET FIRST TRACK 08655 M00S07744.tfm +++| STD T6 08656 M00S07745.tfm +++| LDN FSMS SET FIRST SECTOR 08657 M00S07746.tfm +++| STD T7
| Line S07747 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 08658 M01S07747.t5472 ---| SETMS
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 08659 M01S00051.t5472 +++| SETMS IO
| Line S07748 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08660 M01S07748.274l797 ---| SFV11 LDD T6 SAVE CURRENT TRACK
| Line S00339 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08661 M01S00339.274l797 +++| SFV11 RJM RND READ FIRST SECTOR OF DEMAND FILE ENTRY 08662 M01S00340.274l797 +++| LDM BUF0+2+.RJID+4 SAVE JOB EJT ORDINAL 08663 M01S00341.274l797 +++| STM SFVB 08664 M01S00342.274l797 +++| LDD T6 SAVE TRACK FOR SECOND SECTOR OF ENTRY 08665 M00S07749.tfm +++| STD DT
| Line S07750 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08666 M01S07750.274l797 ---| LDD T7 SAVE CURRENT SECTOR
| Line S00343 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08667 M01S00343.274l797 +++| LDD T7 SAVE SECTOR FOR SECOND SECTOR OF ENTRY 08668 M00S07751.tfm +++| STD DS
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08669 M01S00344.274l797 +++| RJM RND READ SECOND SECTOR OF DEMAND FILE ENTRY 08670 M01S00345.274l797 +++| LDM VBJS,PB CHECK JOB EJT ORDINAL 08671 M01S00346.274l797 +++| LMM SFVB 08672 M01S00347.274l797 +++| NJN SFV11 IF NOT THIS ENTRY
| Line S00348 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08673 M02S00348.282l826 ---| COMPARE VBES,PB,BUF0+2+.RQPF,,VSKL CHECK VSN 08674 M02S00349.282l826 ---| NJN SFV11 IF NOT THIS ENTRY
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08675 M01S00104.282l826 +++| LDM BUF0+2+.RREQ 08676 M01S00105.282l826 +++| ADM BUF0+2+.RREQ+1 08677 M01S00106.282l826 +++| ADM BUF0+2+.RREQ+2 08678 M01S00107.282l826 +++| ADM BUF0+2+.RREQ+3 08679 M01S00108.282l826 +++| ADM BUF0+2+.RREQ+4 08680 M01S00109.282l826 +++| NJN SFV11 IF NO REQUEST 08681 M01S00110.282l826 +++| COMPARE VBES,PB,BUF0+2+.RQPV+5*/RSX/PVSN,,VSKL CHECK VSN 08682 M01S00111.282l826 +++| NJN SFV15.1 IF NOT THIS ENTRY
| Line S00350 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08683 M01S00350.274l797 +++| LDN SFVAL GET LENGTH OF LIST 08684 M01S00351.274l797 +++| STD T1
| Line S00352 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08685 M02S00352.282l826 ---| LDM BUF0+2+.RQPD+3 GET RESOURCE TYPE 08686 M02S00353.282l826 ---| LPN 37 08687 M02S00354.282l826 ---| SHN 14 08688 M02S00355.282l826 ---| ADM BUF0+2+.RQPD+4 08689 M02S00356.282l826 ---| SHN -6 08690 M02S00357.282l826 ---| STD T2
| Line S00358 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08691 M01S00358.274l797 +++| SFV15 LDM SFVA,T1 CHECK FOR MATCHING RESOURCE
| Line S00359 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08692 M02S00359.282l826 ---| SBD T2
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08693 M01S00112.282l826 +++| LMM BUF0+2+.RQPV+5*/RSX/PRES+3
| Line S00360 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08694 M01S00360.274l797 +++| ZJP SFV17 IF FOUND 08695 M01S00361.274l797 +++| SOD T1 08696 M01S00362.274l797 +++| PJN SFV15 IF NOT END OF LIST
| Line S00363 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08697 M02S00363.282l826 ---| UJP SFV11 READ NEXT SECTOR
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08698 M01S00113.282l826 +++| SFV15.1 LJM SFV11 READ NEXT SECTOR
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08699 M01S00364.274l797 +++| 08700 M01S00365.274l797 +++| 08701 M01S00366.274l797 +++| SFVA BSS 0 RESOURCE TABLE 08702 M01S00367.274l797 +++| VFD 12/0RMT 7 TRACK TAPE 08703 M01S00368.274l797 +++| VFD 12/0RNT 9 TRACK TAPE 08704 M01S00369.274l797 +++| VFD 12/0RPE 1600 BPI 9 TRACK TAPE 08705 M01S00370.274l797 +++| VFD 12/0RHD 800 BPI 9 TRACK TAPE 08706 M01S00371.274l797 +++| VFD 12/0RGE 6250 BPI 9 TRACK TAPE 08707 M01S00372.274l797 +++| VFD 12/0RCT CTS CARTRIDGE TAPE 08708 M01S00373.274l797 +++| VFD 12/0RAT ACS CARTRIDGE TAPE 08709 M01S00374.274l797 +++| SFVAL EQU *-SFVA-1 LENGTH OF RESOURCE TABLE 08710 M01S00375.274l797 +++| 08711 M01S00376.274l797 +++| SFVB BSS 1 EJT ORDINAL FROM DEMAND FILE ENTRY 08712 M01S00377.274l797 +++| RND SPACE 4,15 08713 M01S00378.274l797 +++|** RND - READ NEXT DEMAND FILE SECTOR. 08714 M01S00379.274l797 +++|* 08715 M01S00380.274l797 +++|* ENTRY (T5 - T7) = EST ORDINAL, TRACK AND SECTOR. 08716 M01S00381.274l797 +++|* 08717 M01S00382.274l797 +++|* EXIT SPECIFIED SECTOR READ. 08718 M01S00383.274l797 +++|* (T6 - T7) ADVANCED TO NEXT SECTOR. 08719 M01S00384.274l797 +++|* 08720 M01S00385.274l797 +++|* ERROR TO *ERR* IF MASS STORAGE ERROR, OR IF EOI ENCOUNTERED. 08721 M01S00386.274l797 +++|* 08722 M01S00387.274l797 +++|* USES T3, T6, T7. 08723 M01S00388.274l797 +++|* 08724 M01S00389.274l797 +++|* CALLS RDS. 08725 M01S00390.274l797 +++|* 08726 M01S00391.274l797 +++|* MACROS ENDMS, ERROR. 08727 M01S00392.274l797 +++| 08728 M01S00393.274l797 +++| 08729 M01S00394.274l797 +++| RND SUBR ENTRY/EXIT 08730 M00S07752.tfm +++| LDC BUF0 08731 M00S07753.tfm +++| STD T3 08732 M00S07754.tfm +++| RJM RDS READ SECTOR
| Line S07755 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08733 M01S07755.274l797 ---| PJN SFV12 IF NOT READ ERROR 08734 M01S07756.274l797 ---| ENDMS
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08735 M01S00395.274l797 +++| PJN RND1 IF NOT READ ERROR 08736 M00S07757.tfm +++| ERROR MSE *EQXX, DNYY, MASS STORAGE ERROR* 08737 M00S07758.tfm +++|
| Line S07759 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08738 M01S07759.274l797 ---| SFV12 LDI T3 CHECK FIRST CONTROL BYTE 08739 M01S07760.274l797 ---| NJN SFV13 IF NOT EOF
| Line S00396 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08740 M01S00396.274l797 +++| RND1 LDI T3 CHECK FIRST CONTROL BYTE 08741 M01S00397.274l797 +++| NJN RND2 IF NOT EOF 08742 M00S07761.tfm +++| LDM 1,T3 CHECK NEXT CONTROL BYTE
| Line S07762 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08743 M01S07762.274l797 ---| NJN SFV13 IF NOT EOI
| Line S00398 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08744 M01S00398.274l797 +++| NJN RND2 IF NOT EOI 08745 M00S07763.tfm +++| ENDMS 08746 M00S07764.tfm +++| ERROR VNF *VSN NOT FOUND* 08747 M00S07765.tfm +++|
| Line S07766 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08748 M01S07766.274l797 ---| SFV13 STD T7 SET NEXT SECTOR
| Line S00399 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08749 M01S00399.274l797 +++| RND2 STD T7 SET NEXT SECTOR 08750 M00S07767.tfm +++| SHN 6
| Line S07768 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08751 M01S07768.274l797 ---| PJN SFV14 IF NOT NEW TRACK
| Line S00400 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08752 M01S00400.274l797 +++| PJN RNDX IF NOT NEW TRACK 08753 M00S07769.tfm +++| SHN -6 08754 M00S07770.tfm +++| STD T6 08755 M00S07771.tfm +++| LDN 0 CLEAR SECTOR 08756 M00S07772.tfm +++| STD T7
| Line S07773 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08757 M01S07773.274l797 ---| SFV14 COMPARE VBJS,PB,BUF0+2+/RSX/RJID*5+4,,2 08758 M01S07774.274l797 ---| NJP SFV11 IF NOT THIS ENTRY 08759 M01S07775.274l797 ---| COMPARE VBES,PB,BUF0+2+/RSX/RQCW*5,,VSKL CHECK VSN 08760 M01S07776.274l797 ---| NJP SFV11 IF NOT THIS ENTRY 08761 M01S07777.274l797 ---| LDN SFVAL GET LENGTH OF LIST 08762 M01S07778.274l797 ---| STD T1 08763 M01S07779.274l797 ---| LDM BUF0+2+/RSX/RQPD*5+3 GET RESOURCE TYPE 08764 M01S07780.274l797 ---| LPN 37 08765 M01S07781.274l797 ---| SHN 14 08766 M01S07782.274l797 ---| ADM BUF0+2+/RSX/RQPD*5+4 08767 M01S07783.274l797 ---| SHN -6 08768 M01S07784.274l797 ---| STD T2 08769 M01S07785.274l797 ---| SFV15 LDM SFVA,T1 CHECK FOR MATCHING RESOURCE 08770 M01S07786.274l797 ---| SBD T2 08771 M01S07787.274l797 ---| ZJP SFV17 IF FOUND 08772 M01S07788.274l797 ---| SOD T1 08773 M01S07789.274l797 ---| PJN SFV15 IF NOT END OF LIST 08774 M01S07790.274l797 ---| LJM SFV11 READ NEXT SECTOR 08775 M01S07791.274l797 ---| 08776 M01S07792.274l797 ---| SFVA BSS 0 RESOURCE TABLE 08777 M01S07793.274l797 ---| VFD 12/0RMT 7-TRACK 08778 M01S07794.274l797 ---| VFD 12/0RNT 9-TRACK 08779 M01S07795.274l797 ---| VFD 12/0RPE 1600 BPI 9-TRACK 08780 M01S07796.274l797 ---| VFD 12/0RHD 800 BPI 9-TRACK 08781 M01S07797.274l797 ---| VFD 12/0RGE 6250 BPI 9-TRACK 08782 M01S07798.274l797 ---| SFVAL EQU *-SFVA-1 LENGTH OF RESOURCE TABLE 08783 M01S07799.274l797 ---| 08784 M01S07800.274l797 ---|
| Line S00401 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08785 M01S00401.274l797 +++| UJN RNDX RETURN 08786 M01S00402.274l797 +++| SPACE 4,10 08787 M00S07801.tfm +++| OVERFLOW OVL1,BUF1 08788 M00S07802.tfm +++| OVERLAY (SEARCH GLOBAL SCRATCH POOL.),OVL1 08789 M00S07803.tfm +++| SPACE 4,10
| Line S07804 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08790 M01S07804.274l797 ---|** ' LOCAL DIRECT CELLS.
| Line S00403 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08791 M01S00403.274l797 +++|** LOCAL DIRECT CELLS. 08792 M00S07805.tfm +++| 08793 M00S07806.tfm +++| 08794 M00S07807.tfm +++| FP EQU S3 - S3+4 FNT SEARCH POINTERS (5 LOCATIONS) 08795 M00S07808.tfm +++| GSPS SPACE 4,10 08796 M00S07809.tfm +++|** GSP - SEARCH GLOBAL SCRATCH POOL(S). 08797 M00S07810.tfm +++|* 08798 M00S07811.tfm +++|* CALLED TO LOCATE A SCRATCH TAPE IN ANOTHER FAMILY-S 08799 M00S07812.tfm +++|* CATALOG. ONLY FAMILY-S DESIGNATED AS GLOBAL WILL BE 08800 M00S07813.tfm +++|* SEARCHED. IF A SCRATCH TAPE IS FOUND, IT IS DELETED 08801 M00S07814.tfm +++|* FROM THE FAMILY CATALOG AND RE-ENTERED INTO THE 08802 M00S07815.tfm +++|* REQUESTING FAMILY CATALOG TO HONOR USER JOB SCRATCH 08803 M00S07816.tfm +++|* REQUEST. 08804 M00S07817.tfm +++|* 08805 M00S07818.tfm +++|* ENTRY (FO) = FAMILY TAPE CATALOG FNT ORDINAL. 08806 M00S07819.tfm +++|* (PFAM - PFAM+3) = FAMILY NAME.
| Line S00404 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08807 M01S00404.274l797 +++|* (SCRP) = ADDRESS IN TMST OF CORRECT SCRATCH POOL WORD. 08808 M00S07820.tfm +++|* 08809 M00S07821.tfm +++|* EXIT (FO) = RESET. 08810 M00S07822.tfm +++|* (PFAM - PFAM+3) =RESET. 08811 M00S07823.tfm +++|* TO CSA - COMPLETE SCRATCH ASSIGNMENT. 08812 M00S07824.tfm +++|* 08813 M00S07825.tfm +++|* USES FP - FP+4, PB, T1, T2, KA. 08814 M00S07826.tfm +++|* 08815 M00S07827.tfm +++|* CALLS ARF, CIE, CSA, DDE, DLB, LSV, PRP, ROC, RRP, SAC, 08816 M00S07828.tfm +++|* VIS, WRP. 08817 M00S07829.tfm +++|* 08818 M00S07830.tfm +++|* MACROS ERROR, EXOVL, MMOVE, RESTP. 08819 M00S07831.tfm +++| 08820 M00S07832.tfm +++| 08821 M00S07833.tfm +++| GSP ENTRY ENTRY/EXIT 08822 M00S07834.tfm +++| LDN FNTP INITIALIZE FNT POINTERS 08823 M00S07835.tfm +++| CRD FP 08824 M00S07836.tfm +++| MMOVE PFAM,,GSPA,,PFKL 08825 M00S07837.tfm +++| LDD FO 08826 M00S07838.tfm +++| STD FP+3 08827 M00S07839.tfm +++| STM GSPA+4 08828 M00S07840.tfm +++| LDN 0 PRESET FNT ORDINAL 08829 M00S07841.tfm +++| STD FP 08830 M00S07842.tfm +++| UJP GSP2 ENTER SEARCH LOOP 08831 M00S07843.tfm +++| 08832 M00S07844.tfm +++| GSP1 RJM ROC RESET ORIGINAL CATALOG 08833 M00S07845.tfm +++| ERROR WSA *WAIT SCRATCH ASSIGNMENT.* 08834 M00S07846.tfm +++| 08835 M00S07847.tfm +++| GSP2 LDD FO SET FNT ORDINAL 08836 M00S07848.tfm +++| STD T1 08837 M00S07849.tfm +++| LDN /PFM/PTWR SET MODE 08838 M00S07850.tfm +++| STD T2 08839 M00S07851.tfm +++| LDN RFAS RETURN CATALOG 08840 M00S07852.tfm +++| RJM ARF 08841 M00S07853.tfm +++| RJM SAC SEARCH FOR ALTERNATE CATALOG 08842 M00S07854.tfm +++| ZJP GSP1 IF END OF SEARCH 08843 M00S07855.tfm +++| RESTP CPSB SWAP TO SYSTEM BLOCK BUFFER 08844 M00S07856.tfm +++| RJM RRP READ RANDOM PRU (TMST) 08845 M00S07857.tfm +++| LDM SBST,BP 08846 M00S07858.tfm +++| LPN GFTS/10000 08847 M00S07859.tfm +++| ZJN GSP2 IF NOT GLOBAL FAMILY 08848 M00S07860.tfm +++| LDM SBST+1,BP 08849 M00S07861.tfm +++| LPN FETS+SATS+UITS 08850 M00S07862.tfm +++| NJP GSP2 IF ERROR, SUSPEND OR UTILITY ACTIVE 08851 M00S07863.tfm +++| RJM LSV LOCATE SCRATCH VOLUME 08852 M00S07864.tfm +++| NJP GSP2 IF SCRATCH NOT FOUND OR ERROR 08853 M00S07865.tfm +++| MMOVE ,BP,BUFA,,TSVL*10D 08854 M00S07866.tfm +++| RJM DDE DELETE DATA ENTRY (SECONDARY INDEX) 08855 M00S07867.tfm +++| LDM CWNE,BA 08856 M00S07868.tfm +++| NJN GSP3 IF BLOCK NOT EMPTY 08857 M00S07869.tfm +++| RJM DLB DELINK BLOCK (SECONDARY INDEX) 08858 M00S07870.tfm +++| RESTP CPPI SWAP TO PRIMARY INDEX BUFFER 08859 M00S07871.tfm +++| RJM DDE DELETE DATA ENTRY (PRIMARY INDEX) 08860 M00S07872.tfm +++| LDM CWNE,BA 08861 M00S07873.tfm +++| ZJN GSP3 IF BLOCK NOT EMPTY 08862 M00S07874.tfm +++| RJM DLB DELINK BLOCK (PRIMARY INDEX) 08863 M00S07875.tfm +++| UJN GSP4 UPDATE SCRATCH VOLUME/COUNT 08864 M00S07876.tfm +++| 08865 M00S07877.tfm +++| GSP3 RJM WRP WRITE RANDOM PRU (PRIMARY VSN INDEX) 08866 M00S07878.tfm +++| GSP4 RESTP CPSB SWAP TO SYSTEM BLOCK
| Line S07879 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08867 M01S07879.274l797 ---| MMOVE BUFA+VBNV,,SBSV,BP,VSKL 08868 M01S07880.274l797 ---| LDA SBSC,BP DECREMENT SCRATCH COUNT
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08869 M01S00405.274l797 +++| LDM SCRP SET ADDRESS OF SCRATCH POOL WORD 08870 M01S00406.274l797 +++| ADD BP 08871 M01S00407.274l797 +++| STD T3 08872 M01S00408.274l797 +++| MMOVE BUFA+VBNV,,,T3,VSKL 08873 M01S00409.274l797 +++| LDA 3,T3 DECREMENT SCRATCH COUNT 08874 M00S07881.tfm +++| SBN 1
| Line S07882 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08875 M01S07882.274l797 ---| STM SBSC+1,BP
| Line S00410 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08876 M01S00410.274l797 +++| STM 4,T3 08877 M00S07883.tfm +++| SHN -14
| Line S07884 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08878 M01S07884.274l797 ---| STM SBSC,BP
| Line S00411 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08879 M01S00411.274l797 +++| STM 3,T3 08880 M00S07885.tfm +++| RJM WRP WRITE RANDOM PRU 08881 M00S07886.tfm +++| LDD FO SET FNT ORDINAL 08882 M00S07887.tfm +++| STD T1 08883 M00S07888.tfm +++| LDN /PFM/PTWR SET MODE 08884 M00S07889.tfm +++| STD T2 08885 M00S07890.tfm +++| LDN RFAS RETURN CATALOG 08886 M00S07891.tfm +++| RJM ARF 08887 M00S07892.tfm +++| RJM ROC RESET ORIGINAL CATALOG 08888 M00S07893.tfm +++| LDC BUFA 08889 M00S07894.tfm +++| STD PB 08890 M00S07895.tfm +++| STD KA 08891 M00S07896.tfm +++| MMOVE BUFA,,BUFC,,VSKL 08892 M00S07897.tfm +++| RJM VIS VSN INDEXED SEARCH 08893 M00S07898.tfm +++| ZJP GSP2 IF VSN FOUND 08894 M00S07899.tfm +++| RJM CIE CREATE INDEX ENTRY (VSN) 08895 M00S07900.tfm +++| LDC BUFC 08896 M00S07901.tfm +++| STD KA 08897 M00S07902.tfm +++| RJM VIS FIND NEWLY CREATED VSN INDEX 08898 M00S07903.tfm +++| NJN GSP5 IF NOT FOUND 08899 M00S07904.tfm +++| EXOVL CSA COMPLETE SCRATCH ASSIGNMENT (NO RETURN) 08900 M00S07905.tfm +++| 08901 M00S07906.tfm +++| GSP5 ERROR EID *ERROR IN INDEX DATA.* 08902 M00S07907.tfm +++| 08903 M00S07908.tfm +++| GSPA BSSZ 5 42/ FAMILY,6/ 0,12/ FNT ORDINAL
| Line S07909 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08904 M01S07909.274l797 ---| TITLE ".Y." SUBROUTINES.
| Line S00412 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08905 M01S00412.274l797 +++| TITLE SUBROUTINES. 08906 M00S07910.tfm +++| LSV SPACE 4,10 08907 M00S07911.tfm +++|** LSV - LOCATE SCRATCH VOLUME. 08908 M00S07912.tfm +++|* 08909 M00S07913.tfm +++|* ENTRY (PESN - PESN+3) = EXTERNAL VSN.
| Line S00413 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08910 M01S00413.274l797 +++|* (SCRP) = ADDRESS IN TMST OF CORRECT SCRATCH POOL WORD. 08911 M00S07914.tfm +++|* 08912 M00S07915.tfm +++|* EXIT (A) = 0 IF FOUND. 08913 M00S07916.tfm +++|* (A) = ERROR CODE IF NOT FOUND. 08914 M00S07917.tfm +++|* 08915 M00S07918.tfm +++|* USES KA, T2. 08916 M00S07919.tfm +++|* 08917 M00S07920.tfm +++|* CALLS VIS. 08918 M00S07921.tfm +++|* 08919 M00S07922.tfm +++|* MACROS MMOVE. 08920 M00S07923.tfm +++| 08921 M00S07924.tfm +++| 08922 M00S07925.tfm +++| LSV3 LDN 0 INDICATE SCRATCH FOUND 08923 M00S07926.tfm +++| 08924 M00S07927.tfm +++| LSV SUBR ENTRY/EXIT 08925 M00S07928.tfm +++| LDC PESN 08926 M00S07929.tfm +++| STD KA
| Line S07930 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08927 M01S07930.274l797 ---| LDM SBSV,BP
| Line S00414 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08928 M01S00414.274l797 +++| LDM SCRP GET ADDRESS OF SCRATCH POOL WORD 08929 M01S00415.274l797 +++| ADD BP 08930 M01S00416.274l797 +++| STD T3 08931 M01S00417.274l797 +++| LDI T3 CHECK SCRATCH POOL 08932 M00S07931.tfm +++| LMC 7777 08933 M00S07932.tfm +++| NJN LSV1 IF SCRATCH AVAILABLE 08934 M00S07933.tfm +++| LDN /EMSG/WSA *WAIT SCRATCH ASSIGNMENT.* 08935 M00S07934.tfm +++| UJN LSVX RETURN 08936 M00S07935.tfm +++|
| Line S07936 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08937 M01S07936.274l797 ---| LSV1 MMOVE SBSV,BP,,KA,VSKL
| Line S00418 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 08938 M01S00418.274l797 +++| LSV1 MMOVE ,T3,,KA,VSKL 08939 M00S07937.tfm +++| RJM VIS VSN INDEXED SEARCH 08940 M00S07938.tfm +++| NJN LSV2 IF NOT FOUND 08941 M00S07939.tfm +++| LDM VBST,BP 08942 M00S07940.tfm +++| LPN ASVS/10000 08943 M00S07941.tfm +++| NJN LSV3 INDICATE SCRATCH FOUND 08944 M00S07942.tfm +++| LSV2 LDN /EMSG/EID *ERROR IN INDEX DATA.* 08945 M00S07943.tfm +++| UJN LSVX RETURN 08946 M00S07944.tfm +++| PRP SPACE 4,10 08947 M00S07945.tfm +++|** PRP - PRESET RANDOM PROCESSORS. 08948 M00S07946.tfm +++|* 08949 M00S07947.tfm +++|* EXIT RANDOM PROCESSORS INITIALIZED 08950 M00S07948.tfm +++|* 08951 M00S07949.tfm +++|* USES T5 - T5+4. 08952 M00S07950.tfm +++|* 08953 M00S07951.tfm +++|* CALLS IRA. 08954 M00S07952.tfm +++| 08955 M00S07953.tfm +++| 08956 M00S07954.tfm +++| PRP SUBR ENTRY/EXIT 08957 M00S07955.tfm +++| LDD FO 08958 M00S07956.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 08959 M00S07957.tfm +++| CRD T5 08960 M00S07958.tfm +++| LDD T5 ISOLATE EQUIPMENT 08961 M00S07959.tfm +++| LPC 777 08962 M00S07960.tfm +++| STD T5 08963 M00S07961.tfm +++| RJM IRA INITIALIZE RANDOM PROCESSORS 08964 M00S07962.tfm +++| UJN PRPX RETURN 08965 M00S07963.tfm +++| ROC SPACE 4,10 08966 M00S07964.tfm +++|** ROC - RESET ORIGINAL CATALOG. 08967 M00S07965.tfm +++|* 08968 M00S07966.tfm +++|* ENTRY (GSPA - GSPA+3) = ORIGINAL FAMILY NAME. 08969 M00S07967.tfm +++|* (GSPA+4 = ORIGINAL CATALOG FNT ORDINAL. 08970 M00S07968.tfm +++|* 08971 M00S07969.tfm +++|* EXIT (PFAM - PFAM+3) = ORIGINAL FAMILY NAME. 08972 M00S07970.tfm +++|* (FO) = ORIGINAL FAMILY ORDINAL. 08973 M00S07971.tfm +++|* ORIGINAL CATALOG ATTACHED IN WRITE MODE AND RANDOM 08974 M00S07972.tfm +++|* PROCESSORS PRESET. 08975 M00S07973.tfm +++|* 08976 M00S07974.tfm +++|* USES T1, T2. 08977 M00S07975.tfm +++|* 08978 M00S07976.tfm +++|* CALLS ARF, PRP, UTR. 08979 M00S07977.tfm +++|* 08980 M00S07978.tfm +++|* MACROS MMOVE. 08981 M00S07979.tfm +++| 08982 M00S07980.tfm +++| 08983 M00S07981.tfm +++| ROC SUBR ENTRY/EXIT 08984 M00S07982.tfm +++| MMOVE GSPA,,PFAM,,PFKL RESET FAMILY NAME 08985 M00S07983.tfm +++| LDM GSPA+4 SET FNT ORDINAL 08986 M00S07984.tfm +++| STD FO 08987 M00S07985.tfm +++| STD T1 08988 M00S07986.tfm +++| LDN /PFM/PTWR SET WRITE MODE 08989 M00S07987.tfm +++| STD T2
| Line S07988 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 08990 M01S07988.t2807 ---| LDN AFAS ATTACH CATALOG
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 08991 M01S00082.t2807 +++| LDN /COMSCPS/AFAS ATTACH CATALOG 08992 M00S07989.tfm +++| RJM ARF 08993 M00S07990.tfm +++| RJM UTR UPDATE TRT 08994 M00S07991.tfm +++| RJM PRP PRESET RANDOM PROCESSORS 08995 M00S07992.tfm +++| UJN ROCX RETURN 08996 M00S07993.tfm +++| SAC SPACE 4,10 08997 M00S07994.tfm +++|** SAC - SEARCH FOR ALTERNATE CATALOG. 08998 M00S07995.tfm +++|* 08999 M00S07996.tfm +++|* ENTRY (FP) = LAST FNT ORDINAL CHECKED. 09000 M00S07997.tfm +++|* (FP+2) = MAXIMUM NUMBER OF FNT ENTRIES. 09001 M00S07998.tfm +++|* (FP+3) = FNT ORDINAL OF FAMILY ENTERED. 09002 M00S07999.tfm +++|* 09003 M00S08000.tfm +++|* EXIT (A) .NE. 0 IF CATALOG FOUND. 09004 M00S08001.tfm +++|* (A) = 0 IF CATALOG NOT FOUND. 09005 M00S08002.tfm +++|* (FN - FN+4) = FAMILY NAME. 09006 M00S08003.tfm +++|* (FO) = FNT ORDINAL. 09007 M00S08004.tfm +++|* (FP) = FNT ORDINAL. 09008 M00S08005.tfm +++|* 09009 M00S08006.tfm +++|* USES CM - CM+4, FN - FN+4, FO, FS - FS+4, T1, T2. 09010 M00S08007.tfm +++|* 09011 M00S08008.tfm +++|* CALLS AFA, ARF, UTR. 09012 M00S08009.tfm +++|* 09013 M00S08010.tfm +++|* MACROS COMPARE. 09014 M00S08011.tfm +++| 09015 M00S08012.tfm +++| 09016 M00S08013.tfm +++| SAC SUBR ENTRY/EXIT 09017 M00S08014.tfm +++| SAC1 AOD FP ADVANCE POINTER 09018 M00S08015.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 09019 M00S08016.tfm +++| SBN FSTG-FNTG 09020 M00S08017.tfm +++| CRD FN READ FNT ENTRY 09021 M00S08018.tfm +++| LDD FP 09022 M00S08019.tfm +++| LMD FP+2 09023 M00S08020.tfm +++| ZJN SACX IF END OF FNT 09024 M00S08021.tfm +++| LDD FN 09025 M00S08022.tfm +++| ZJN SAC1 IF EMPTY ENTRY 09026 M00S08023.tfm +++| LDD FN+4 CHECK FILE TYPE 09027 M00S08024.tfm +++| SHN -6 09028 M00S08025.tfm +++| LMN FAFT 09029 M00S08026.tfm +++| NJN SAC1 IF NOT CORRECT FILE TYPE 09030 M00S08027.tfm +++| COMPARE SACA,,FN,,PFKL 09031 M00S08028.tfm +++| NJN SAC1 IF NOT CATALOG 09032 M00S08029.tfm +++| LDD FP 09033 M00S08030.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 09034 M00S08031.tfm +++| CRD FS READ FST OF FAST ATTACH FILE 09035 M00S08032.tfm +++| LDD FP 09036 M00S08033.tfm +++| LMD FP+3 09037 M00S08034.tfm +++| ZJN SAC1 IF FAMILY ENTERED 09038 M00S08035.tfm +++| SFA EST,FS 09039 M00S08036.tfm +++| CRD FS READ EST ENTRY 09040 M00S08037.tfm +++| LDD FS 09041 M00S08038.tfm +++| SHN 21-13 09042 M00S08039.tfm +++| PJP SAC1 IF NOT MASS STORAGE DEVICE 09043 M00S08040.tfm +++| SHN 21-6-21+13 09044 M00S08041.tfm +++| MJP SAC1 IF DEVICE UNAVAILABLE 09045 M00S08042.tfm +++| LDD FS+3 09046 M00S08043.tfm +++| SHN 21-13 09047 M00S08044.tfm +++| MJP SAC1 IF ACCESS NOT ALLOWED 09048 M00S08045.tfm +++| LDD FS+4 09049 M00S08046.tfm +++| SHN 3 09050 M00S08047.tfm +++| ADN PFGL 09051 M00S08048.tfm +++| CRM PFAM,ON 09052 M00S08049.tfm +++| ADN STLL-PFGL-1 09053 M00S08050.tfm +++| CRD CM GET INITIALIZE REQUESTS 09054 M00S08051.tfm +++| LDD CM CHECK INITIALIZE AND UNLOAD REQUESTS 09055 M00S08052.tfm +++| LPC 1030 09056 M00S08053.tfm +++| NJP SAC1 IF REQUESTS PENDING 09057 M00S08054.tfm +++| LDD FP SET CATALOG FNT ORDINAL 09058 M00S08055.tfm +++| STD FO 09059 M00S08056.tfm +++| STD T1 09060 M00S08057.tfm +++| LDN /PFM/PTWR SET MODE 09061 M00S08058.tfm +++| STD T2
| Line S08059 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 09062 M01S08059.t2807 ---| LDN AFAS ATTACH CATALOG
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 09063 M01S00083.t2807 +++| LDN /COMSCPS/AFAS ATTACH CATALOG 09064 M00S08060.tfm +++| RJM ARF 09065 M00S08061.tfm +++| RJM UTR UPDATE TRT 09066 M00S08062.tfm +++| RJM PRP PRESET RANDOM PROCESSORS 09067 M00S08063.tfm +++| LDN 1 SET CATALOG FOUND 09068 M00S08064.tfm +++| LJM SACX RETURN 09069 M00S08065.tfm +++| 09070 M00S08066.tfm +++| SACA VFD 48D/0L"TMFC" TMS CATALOG NAME 09071 M00S08067.tfm +++| SPACE 4,10 09072 M00S08068.tfm +++|** LOCAL COMMON DECKS. 09073 M00S08069.tfm +++| 09074 M00S08070.tfm +++| 09075 M00S08071.tfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY 09076 M00S08072.tfm +++| CIE$ EQU 1 DEFINE CIE - CREATE INDEXED ENTRY 09077 M00S08073.tfm +++| DDE$ EQU 1 DEFINE DDE - DELETE DATA ENTRY 09078 M00S08074.tfm +++| DLB$ EQU 1 DEFINE DLB - DELINK DATA BLOCK 09079 M00S08075.tfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK 09080 M00S08076.tfm +++| ISK$ EQU 1 DEFINE ISK - INDEXED SEARCH FOR KEY 09081 M00S08077.tfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BUFFER 09082 M00S08078.tfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT 09083 M00S08079.tfm +++| UTR$ EQU 1 DEFUNE UTR - UPDATE TRT 09084 M00S08080.tfm +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH
| Line S08081 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09085 M01S08081.282l826 ---|*CALL COMPGFP 09086 M00S08082.tfm +++|*CALL COMPIRA 09087 M00S08083.tfm +++|*CALL COMPTFM 09088 M00S08084.tfm +++|*CALL COMPWEI 09089 M00S08085.tfm +++| SPACE 4,10 09090 M00S08086.tfm +++|** BUFFERS. 09091 M00S08087.tfm +++| 09092 M00S08088.tfm +++| 09093 M00S08089.tfm +++| BUFA BSS TSVL*5 09094 M00S08090.tfm +++| BUFB BSS TSVL*5 09095 M00S08091.tfm +++| BUFC BSS 4 09096 M00S08092.tfm +++| SPACE 4 09097 M00S08093.tfm +++| ERRNG BUF2-* BYTES LEFT BEFORE BUFFER OVERFLOW
| Line S08094 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09098 M01S08094.274l797 ---| OVERLAY (SUBFUNCTION ADMS.),OVL1
| Line S00419 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09099 M01S00419.274l797 +++| OVERLAY (ADMIT ALTERNATE USERS.),OVL1 09100 M00S08095.tfm +++| ADMS SPACE 4,10 09101 M00S08096.tfm +++|*** ADMS - ADMIT ALTERNATE USERS. 09102 M00S08097.tfm +++|* 09103 M00S08098.tfm +++|* THE ADMIT OVERLAY GRANTS PERMISSION FOR USERS OTHER
| Line S08099 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09104 M01S08099.ns2763 ---|* THEN THE FILE CREATOR TO ACCESS A PRIVATE FILE.
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09105 M01S00086.ns2763 +++|* THAN THE FILE CREATOR TO ACCESS A PRIVATE FILE. 09106 M00S08100.tfm +++|* THE TWO CM WORD ADMIT ENTRIES SPECIFY THE ALTERNATE
| Line S08101 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09107 M01S08101.ns2763 ---|* USERNAME AND THE MODE OF ACCESS THAT THAT USER CAN 09108 M01S08102.ns2763 ---|* HAVE TO THE FILE.
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09109 M01S00087.ns2763 +++|* USERNAME AND THE MODE OF ACCESS ALLOWED FOR THAT USER. 09110 M00S08103.tfm +++|* 09111 M00S08104.tfm +++|* THERE IS NO LIMIT TO THE NUMBER OF ADMIT ENTRIES 09112 M00S08105.tfm +++|* THAT CAN BE ASSOCIATED WITH A FILE AS ADDITIONAL 09113 M00S08106.tfm +++|* DATA BLOCKS WILL BE APPENDED TO THE FILE AS NEEDED. 09114 M00S08107.tfm +++|* 09115 M00S08108.tfm +++|* ENTRY (IR - IR+3) = FET ADDRESS - 09116 M00S08109.tfm +++|* 09117 M00S08110.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure FET+0
09118 M00S08111.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ 0
Figure +1
09119 M00S08112.tfm +++|*T, +2 60/ 0
Figure +2
09120 M00S08113.tfm +++|*T, +3 60/ 0
Figure +3
09121 M00S08114.tfm +++|*T, +4 12/ FNT,30/ 0,18/ 0
Figure +4
09122 M00S08115.tfm +++|*T, +5 42/ 0,18/ EADD
Figure +5
09123 M00S08116.tfm +++|*T, +6 60/ 0
Figure +6
09124 M00S08117.tfm +++|*T, +7 36/ VSN,24/ 0
Figure +7
09125 M00S08118.tfm +++|*T, +10 60/ 0
Figure +10
09126 M00S08119.tfm +++|*T, +11 60/ 0
Figure +11
09127 M00S08120.tfm +++|*T, +12 60/ FILE IDENTIFIER
Figure +12
09128 M00S08121.tfm +++|*T, +13 42/ FID (CONT.),18/ 0
Figure +13
09129 M00S08122.tfm +++|*T, +14 60/ 0
Figure +14
09130 M00S08123.tfm +++|*T, +15 60/ 0
Figure +15
09131 M00S08124.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure +16
09132 M00S08125.tfm +++|*
| Line S08126 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09133 M01S08126.ns2763 ---|* USES CI, KA, PB, RI - RI+1.
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09134 M01S00088.ns2763 +++|* USES T7, KA, PB, RI - RI+1. 09135 M00S08127.tfm +++|*
| Line S08128 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09136 M01S08128.ns2763 ---|* CALLS AUS, CAE, GIB, MBP, SCB, TBA, 09137 M01S08129.ns2763 ---|* UIS, VIS, VSP, WRP.
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 09138 M01S00089.ns2763 +++|* CALLS AUS, FTC, IBC, IIE, MBP, TBA, WRP. 09139 M00S08130.tfm +++|* 09140 M00S08131.tfm +++|* MACROS CLEAR, ERROR, LDA, MMOVE, SAVEP, RESTP. 09141 M00S08132.tfm +++| 09142 M00S08133.tfm +++| 09143 M00S08134.tfm +++| ADM ENTRY ADMIT ALTERNATE USERS 09144 M00S08135.tfm +++| LDC BUFA BUILD ADMIT ENTRY 09145 M00S08136.tfm +++| STD PB 09146 M00S08137.tfm +++| LDN PDTL 09147 M00S08138.tfm +++| CRM BUFA+5,ON 09148 M00S08139.tfm +++| CLEAR ,PB,TAEL*10D-7 09149 M00S08140.tfm +++| MMOVE PAUN,,,PB,UNKL 09150 M00S08141.tfm +++| LDM PAUN 09151 M00S08142.tfm +++| ZJP ADM3 IF NO ALTERNATE USERNAME 09152 M00S08143.tfm +++| LDM PPWD+4 09153 M00S08144.tfm +++| LPN 77 09154 M00S08145.tfm +++| STM ABAM,PB
| Line S08146 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09155 M01S08146.nos252 ---| ZJP ADM3 IF INVALID ACCESS MODE
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09156 M01S00066.nos252 +++| ZJP ADM3 IF INCORRECT ACCESS MODE 09157 M00S08147.tfm +++| SBN FMMX 09158 M00S08148.tfm +++| RJM FTC FIND TAPE CATALOG 09159 M00S08149.tfm +++| ZJN ADM2 IF CATALOG FOUND 09160 M00S08150.tfm +++| ADM1 ERROR 09161 M00S08151.tfm +++| 09162 M00S08152.tfm +++| ADM2 LDM PESN 09163 M00S08153.tfm +++| ZJN ADM5 IF SYMBOLIC FILE NAME 09164 M00S08154.tfm +++| RESTP CPSI RESTORE VSN INDEX POINTERS 09165 M00S08155.tfm +++| LDM VBRC,BP CHECK FOR FIRST REEL 09166 M00S08156.tfm +++| SHN -6 09167 M00S08157.tfm +++| ZJN ADM4 IF NO REEL COUNT, ASSUME FIRST 09168 M00S08158.tfm +++| SBN 1 09169 M00S08159.tfm +++| ZJN ADM4 IF FIRST OF SET
| Line S08160 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09170 M01S08160.nos252 ---| ADM3 LDN /EMSG/ILR *TFM INVALID REQUEST.*
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09171 M01S00067.nos252 +++| ADM3 LDN /EMSG/ILR *TFM INCORRECT REQUEST.* 09172 M00S08161.tfm +++| UJN ADM1 SET ERROR CODE 09173 M00S08162.tfm +++| 09174 M00S08163.tfm +++| ADM4 RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 09175 M00S08164.tfm +++| ADM5 LDM CBCT,BP CHECK FILE CATEGORY 09176 M00S08165.tfm +++| SHN -6 09177 M00S08166.tfm +++| LMN FCPU 09178 M00S08167.tfm +++| ZJN ADM3 IF PUBLIC FILE 09179 M00S08168.tfm +++| LDC PAUN 09180 M00S08169.tfm +++| STD KA 09181 M00S08170.tfm +++| LDM CBAE,BP 09182 M00S08171.tfm +++| LPN 77 09183 M00S08172.tfm +++| STD RI 09184 M00S08173.tfm +++| SHN 14 09185 M00S08174.tfm +++| LMM CBAE+1,BP 09186 M00S08175.tfm +++| STD RI+1 09187 M00S08176.tfm +++| ZJP ADM8 IF ADMIT BLOCK NOT ASSIGNED 09188 M00S08177.tfm +++| RJM AUS ALTERNATE USERNAME SEARCH 09189 M00S08178.tfm +++| NJN ADM6 IF ALTERNATE USERNAME NOT FOUND 09190 M00S08179.tfm +++| LDM ABAN,BP SAVE ACCESS COUNT 09191 M00S08180.tfm +++| STM ABAN,PB 09192 M00S08181.tfm +++| LDM ABAN+1,BP 09193 M00S08182.tfm +++| SCN 77 09194 M00S08183.tfm +++| RAM ABAN+1,PB 09195 M00S08184.tfm +++| MMOVE ,PB,,BP,TAEL*10D 09196 M00S08185.tfm +++| LDC WRP SET TO UPDATE 09197 M00S08186.tfm +++| STM ADMA 09198 M00S08187.tfm +++| UJN ADM7 REWRITE PRU 09199 M00S08188.tfm +++| 09200 M00S08189.tfm +++| ADM6 LDC BUFB DEFINE OVERFLOW BUFFER 09201 M00S08190.tfm +++| STD T7 09202 M00S08191.tfm +++| ADM7 RJM IIE INSERT INDEX ENTRY 09203 M00S08192.tfm +++| ADMA EQU *-1 (RJM TO *WRP* IF INDEX FOUND) 09204 M00S08193.tfm +++| LJM ADMX RETURN 09205 M00S08194.tfm +++| 09206 M00S08195.tfm +++| ADM8 RJM TBA TOGGLE BUFFER ASSIGNMENT 09207 M00S08196.tfm +++| RJM IBC INITIALIZE BLOCK CHAIN 09208 M00S08197.tfm +++| LDC RTAB*100 09209 M00S08198.tfm +++| STM CWRT,BA 09210 M00S08199.tfm +++| LDN TAEL 09211 M00S08200.tfm +++| STM CWEL,BA 09212 M00S08201.tfm +++| MMOVE PBUN,,CWUN,BA,UNKL 09213 M00S08202.tfm +++| LDM CWFE,BA 09214 M00S08203.tfm +++| RJM MBP MOVE BUFFER POINTER 09215 M00S08204.tfm +++| SAVEP CPAB SAVE ADMIT BUFFER POINTERS 09216 M00S08205.tfm +++| RESTP CPCB RESTORE CATALOG POINTERS 09217 M00S08206.tfm +++| LDM CPAB+3 SET ADMIT BUFFER POINTER 09218 M00S08207.tfm +++| STM CBAE,BP 09219 M00S08208.tfm +++| LDM CPAB+4 09220 M00S08209.tfm +++| STM CBAE+1,BP 09221 M00S08210.tfm +++| RJM WRP WRITE RANDOM PRU 09222 M00S08211.tfm +++| RESTP CPAB RESTORE ADMIT BUFFER POINTERS 09223 M00S08212.tfm +++| LJM ADM6 CREATE ADMIT INDEX
| Line S08213 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09224 M01S08213.274l797 ---| TITLE ".Y." SUBROUTINES.
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09225 M01S00420.274l797 +++| TITLE SUBROUTINES. 09226 M00S08214.tfm +++| SPACE 4 09227 M00S08215.tfm +++|*** COMMON DECKS. 09228 M00S08216.tfm +++| 09229 M00S08217.tfm +++| 09230 M00S08218.tfm +++| AUS$ EQU 1 DEFINE AUS - ALTERNATE USERNAME SEARCH 09231 M00S08219.tfm +++| IIE$ EQU 1 DEFINE IIE - INSERT INDEX ENTRY 09232 M00S08220.tfm +++| FTC$ EQU 1 DEFINE FTC - FIND TAPE CATALOG 09233 M00S08221.tfm +++| IBC$ EQU 1 DEFINE IBC - INITIALIZE BLOCK CHAIN 09234 M00S08222.tfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS 09235 M00S08223.tfm +++| VUB$ EQU 1 DEFINE VUB - VERIFY USER BLOCK 09236 M00S08224.tfm +++|*CALL COMPTFM 09237 M00S08225.tfm +++|*CALL COMPWEI 09238 M00S08226.tfm +++| SPACE 4 09239 M00S08227.tfm +++|*** BUFFERS. 09240 M00S08228.tfm +++| 09241 M00S08229.tfm +++| 09242 M00S08230.tfm +++| BUFA BSS TAEL*5 09243 M00S08231.tfm +++| BUFB BSS TAEL*5 09244 M00S08232.tfm +++| SPACE 4 09245 M00S08233.tfm +++| ERRNG BUF2-* BYTES LEFT BEFORE BUFFER OVERFLOW
| Line S08234 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09246 M01S08234.274l797 ---| OVERLAY (SUBFUNCTION AUDS.),OVL1
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09247 M01S00421.274l797 +++| OVERLAY (AUDIT TAPE FILE CATALOG.),OVL1 09248 M00S08235.tfm +++| SPACE 4,10 09249 M00S08236.tfm +++|** LOCAL DIRECT CELL LOCATIONS. 09250 M00S08237.tfm +++| 09251 M00S08238.tfm +++| 09252 M00S08239.tfm +++| CN EQU S1+0 - S1+4 SCRATCH WORD (5 LOCATIONS) 09253 M00S08240.tfm +++| AF EQU S2+0 AUDIT FUNCTION CODE 09254 M00S08241.tfm +++| RC EQU AF REEL COUNT (REDEFINES *AF*) 09255 M00S08242.tfm +++| WC EQU S2+1 WORD COUNT 09256 M00S08243.tfm +++| FT EQU S2+2 - S2+3 FET FIRST POINTER 09257 M00S08244.tfm +++| IN EQU S2+4 - S3+0 FET IN POINTER 09258 M00S08245.tfm +++| OT EQU S3+1 - S3+2 FET OUT POINTER 09259 M00S08246.tfm +++| LM EQU S3+3 - S3+4 FET LIMIT POINTER 09260 M00S08247.tfm +++| FA EQU S1+0 FNT ORDINAL 09261 M00S08248.tfm +++| CA EQU EC CONTINUATION ADDRESS 09262 M00S08249.tfm +++| AUDS SPACE 4,10 09263 M00S08250.tfm +++|*** AUDS - AUDIT TAPE FILE CATALOG. 09264 M00S08251.tfm +++|* 09265 M00S08252.tfm +++|* THE AUDIT OVERLAY ENABLES THE FILE CREATOR TO OBTAIN 09266 M00S08253.tfm +++|* INFORMATION ABOUT THE FILES THAT RESIDE IN THE 09267 M00S08254.tfm +++|* TAPE FILE CATALOG. IN ADDITION, ALTERNATE USERS 09268 M00S08255.tfm +++|* CAN OBTAIN AUDIT INFORMATION ABOUT SPECIFIC 09269 M00S08256.tfm +++|* FILES THAT THEY ARE PERMITTED TO ACCESS IN THE 09270 M00S08257.tfm +++|* FILE CREATORS CATALOG. 09271 M00S08258.tfm +++|* 09272 M00S08259.tfm +++|* THERE ARE FOUR MODES OF AUDIT ACCESS TO THE 09273 M00S08260.tfm +++|* TAPE FILE CATALOG- 09274 M00S08261.tfm +++|* 09275 M00S08262.tfm +++|* 1. A FULL CATALOG SEARCH. THE CATALOG IMAGE 09276 M00S08263.tfm +++|* AND ALL ASSOCIATED VSNS ARE RETURNED TO 09277 M00S08264.tfm +++|* THE REQUESTER FOR ALL FILES IN HIS/HER 09278 M00S08265.tfm +++|* CATALOG. 09279 M00S08266.tfm +++|* 09280 M00S08267.tfm +++|* 2. A SELECTIVE CATALOG SEARCH. THE CATALOG 09281 M00S08268.tfm +++|* IMAGE AND ALL ASSOCIATED VSNS ARE RETURNED 09282 M00S08269.tfm +++|* FOR A SPECIFIED FILE. 09283 M00S08270.tfm +++|* 09284 M00S08271.tfm +++|* 3. A FULL ADMIT SEARCH. THE ADMIT ENTRY IMAGE IS 09285 M00S08272.tfm +++|* RETURNED FOR ALL ADMITS ASSIGNED TO A 09286 M00S08273.tfm +++|* SPECIFIED FILE. 09287 M00S08274.tfm +++|* 09288 M00S08275.tfm +++|* 4. A SELECTIVE ADMIT SEARCH. ONLY THE ADMIT ENTRY 09289 M00S08276.tfm +++|* IMAGE FOR THE FILE AND USER SPECIFIED WILL BE 09290 M00S08277.tfm +++|* RETURNED TO THE REQUESTER. 09291 M00S08278.tfm +++|* 09292 M00S08279.tfm +++|* ENTRY (IR - IR+3) = FET ADDRESS - 09293 M00S08280.tfm +++|* 09294 M00S08281.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure FET+0
09295 M00S08282.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ FIRST
Figure +1
09296 M00S08283.tfm +++|*T, +2 42/ 0,18/ IN
Figure +2
09297 M00S08284.tfm +++|*T, +3 42/ 0,18/ OUT
Figure +3
09298 M00S08285.tfm +++|*T, +4 12/ FNT,30/ 0,18/ LIMIT
Figure +4
09299 M00S08286.tfm +++|*T, +5 42/ 0,18/ EADD
Figure +5
09300 M00S08287.tfm +++|*T, +6 30/ CURRENT R.I.,30/ RANDOM REQUEST
Figure +6
09301 M00S08288.tfm +++|*T, +7 36/ VSN,24/ 0
Figure +7
09302 M00S08289.tfm +++|*T, +10 60/ 0
Figure +10
09303 M00S08290.tfm +++|*T, +11 60/ 0
Figure +11
09304 M00S08291.tfm +++|*T, +12 60/ FILE IDENTIFIER
Figure +12
09305 M00S08292.tfm +++|*T, +13 42/ FID (CONT.),18/ 0.
Figure +13
09306 M00S08293.tfm +++|*T, +14 60/ 0
Figure +14
09307 M00S08294.tfm +++|*T, +15 60/ 0
Figure +15
09308 M00S08295.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure +16
09309 M00S08296.tfm +++|*T, +17 42/ PASSWORD,12/ 0,6/ MD
Figure +17
09310 M00S08297.tfm +++|* 09311 M00S08298.tfm +++|* EXIT TO MAIN LOOP IF NO ERROR. 09312 M00S08299.tfm +++|* 09313 M00S08300.tfm +++|* USES AF, BA, CA, CI, CN - CN+4, CM - CM+4, 09314 M00S08301.tfm +++|* RI - RI+1, WC. 09315 M00S08302.tfm +++|* 09316 M00S08303.tfm +++|* CALLS GIB, PRS, VRR, VSP. 09317 M00S08304.tfm +++|* 09318 M00S08305.tfm +++|* MACROS ENTRY, ERROR, LDA, SAVEP. 09319 M00S08306.tfm +++| 09320 M00S08307.tfm +++| AUD ENTRY AUDIT TAPE FILE CATALOG 09321 M00S08308.tfm +++| RJM PRS PRESET 09322 M00S08309.tfm +++| ADN TFRR 09323 M00S08310.tfm +++| CRD CN 09324 M00S08311.tfm +++| ADN TFPW-TFRR 09325 M00S08312.tfm +++| CRD CM 09326 M00S08313.tfm +++| LDD CM+4
| Line S08314 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09327 M01S08314.nos252 ---| ZJN AUD1 IF INVALID SEARCH TYPE
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09328 M01S00068.nos252 +++| ZJN AUD1 IF INCORRECT SEARCH TYPE 09329 M00S08315.tfm +++| STD AF 09330 M00S08316.tfm +++| SBN MXST 09331 M00S08317.tfm +++| MJN AUD2 IF VALID SEARCH TYPE
| Line S08318 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09332 M01S08318.nos252 ---| AUD1 ERROR ILR *TFM INVALID REQUEST.*
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09333 M01S00069.nos252 +++| AUD1 ERROR ILR *TFM INCORRECT REQUEST.* 09334 M00S08319.tfm +++| 09335 M00S08320.tfm +++| AUD2 LDD CN CHECK AUDIT CONTINUATION 09336 M00S08321.tfm +++| SHN 14 09337 M00S08322.tfm +++| STD CI 09338 M00S08323.tfm +++| SCN 77 09339 M00S08324.tfm +++| LMD CN+1 09340 M00S08325.tfm +++| NJN AUD3 IF AUDIT CONTINUATION 09341 M00S08326.tfm +++| STD CA CLEAR CONTINUATION ADDRESS 09342 M00S08327.tfm +++| LJM AUD7 BUILD PARAMETER BLOCK 09343 M00S08328.tfm +++| 09344 M00S08329.tfm +++| AUD3 STD RI+1 SET RANDOM ADDRESS (CATALOG) 09345 M00S08330.tfm +++| SHN -14 09346 M00S08331.tfm +++| STD RI 09347 M00S08332.tfm +++| LDC BUF2 SET CATALOG BUFFER ADDRESS 09348 M00S08333.tfm +++| STD BA 09349 M00S08334.tfm +++| RJM VRR VERIFY RANDOM REQUEST 09350 M00S08335.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS 09351 M00S08336.tfm +++| PJN AUD5 IF VALID CONTINUATION POINTERS 09352 M00S08337.tfm +++| AUD4 ERROR BAE *BUFFER ARGUMENT ERROR.* 09353 M00S08338.tfm +++| 09354 M00S08339.tfm +++| AUD5 SAVEP FCSA SAVE CATALOG POINTERS 09355 M00S08340.tfm +++| LDD AF CHECK SEARCH TYPE 09356 M00S08341.tfm +++| LMN FAST 09357 M00S08342.tfm +++| NJN AUD6 IF NOT CATALOG CONTINUATION 09358 M00S08343.tfm +++| LDC 60D/TAEL+1+SBNI 09359 M00S08344.tfm +++| STM VSPA 09360 M00S08345.tfm +++| LDC LDNI+TAEL 09361 M00S08346.tfm +++| STM VSPB 09362 M00S08347.tfm +++| AUD6 LDD CN+3 CHECK RANDOM REQUEST 09363 M00S08348.tfm +++| SHN 14 09364 M00S08349.tfm +++| STD CI 09365 M00S08350.tfm +++| SCN 77 09366 M00S08351.tfm +++| LMD CN+4 09367 M00S08352.tfm +++| STD RI+1 09368 M00S08353.tfm +++| SHN -14 09369 M00S08354.tfm +++| STD RI 09370 M00S08355.tfm +++| RJM VRR VERIFY RANDOM REQUEST 09371 M00S08356.tfm +++| RJM GIB GET INITIAL BLOCK 09372 M00S08357.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS 09373 M00S08358.tfm +++| STD CA SET CONTINUATION ADDRESS
| Line S08359 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09374 M01S08359.nos252 ---| MJP AUD4 IF CONTINUATION POINTERS INVALID
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09375 M01S00070.nos252 +++| MJP AUD4 IF CONTINUATION POINTERS INCORRECT 09376 M00S08360.tfm +++| AUD7 LDM AUDB,AF SET PROCESSOR ADDRESS 09377 M00S08361.tfm +++| STM AUDA 09378 M00S08362.tfm +++| RJM ** PROCESS FUNCTION 09379 M00S08363.tfm +++| AUDA EQU *-1 (PROCESSOR ADDRESS) 09380 M00S08364.tfm +++| LJM AUDX RETURN 09381 M00S08365.tfm +++| 09382 M00S08366.tfm +++| 09383 M00S08367.tfm +++| AUDB INDEX TABLE OF AUDIT PROCESSORS 09384 M00S08368.tfm +++| INDEX FCST,FCS FULL CATALOG SEARCH 09385 M00S08369.tfm +++| INDEX SCST,SCS SELECTIVE CATALOG SEARCH 09386 M00S08370.tfm +++| INDEX FAST,FAS FULL ADMIT SEARCH 09387 M00S08371.tfm +++| INDEX SAST,SAS SELECTIVE ADMIT SEARCH 09388 M00S08372.tfm +++| INDEX MXST 09389 M00S08373.tfm +++| GVSS SPACE 4,10 09390 M00S08374.tfm +++|*** GVSS - GET VOLUME SERIAL NUMBERS. 09391 M00S08375.tfm +++|* 09392 M00S08376.tfm +++|* *GVS* RETURNS A SNAPSHOT CATALOG IMAGE FOR 09393 M00S08377.tfm +++|* A ASSIGNED FILE. 09394 M00S08378.tfm +++|* 09395 M00S08379.tfm +++|* ENTRY (IR - IR+3) = FET ADDRESS - 09396 M00S08380.tfm +++|* 09397 M00S08381.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure FET+0
09398 M00S08382.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ FIRST
Figure +1
09399 M00S08383.tfm +++|*T, +2 42/ 0,18/ IN
Figure +2
09400 M00S08384.tfm +++|*T, +3 42/ 0,18/ OUT
Figure +3
09401 M00S08385.tfm +++|*T, +4 12/ FNT,30/ 0,18/ LIMIT
Figure +4
09402 M00S08386.tfm +++|*T, +5 42/ 0,18/ EADD
Figure +5
09403 M00S08387.tfm +++|*T, +6 30/ CURRENT R.I.,30/ RANDOM REQUEST
Figure +6
09404 M00S08388.tfm +++|*T, +7 36/ VSN,24/ 0
Figure +7
09405 M00S08389.tfm +++|*T, +10 60/ 0
Figure +10
09406 M00S08390.tfm +++|*T, +11 60/ 0
Figure +11
09407 M00S08391.tfm +++|*T, +12 60/ FILE IDENTIFIER
Figure +12
09408 M00S08392.tfm +++|*T, +13 42/ FID (CONT.),18/0.
Figure +13
09409 M00S08393.tfm +++|*T, +14 60/ 0
Figure +14
09410 M00S08394.tfm +++|*T, +15 60/ 0
Figure +15
09411 M00S08395.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure +16
09412 M00S08396.tfm +++|*T, +17 42/ PASSWORD,12/ 0,6/ MD
Figure +17
09413 M00S08397.tfm +++|* 09414 M00S08398.tfm +++|* EXIT TO MAIN LOOP IF NO ERROR. 09415 M00S08399.tfm +++|* 09416 M00S08400.tfm +++|* USES BA, CI, CM - CM+4, FN - FN+4, 09417 M00S08401.tfm +++|* RI - RI+1, T1 - T1+4, WC. 09418 M00S08402.tfm +++|* 09419 M00S08403.tfm +++|* CALLS GIB, PRS, PTC, RRP, SAF, VSP. 09420 M00S08404.tfm +++|* 09421 M00S08405.tfm +++|* MACROS ENTRY, ERROR, LDA. 09422 M00S08406.tfm +++| 09423 M00S08407.tfm +++| 09424 M00S08408.tfm +++| GVS ENTRY ENTRY/EXIT 09425 M00S08409.tfm +++| RJM PRS PRESET 09426 M00S08410.tfm +++| CRD FN 09427 M00S08411.tfm +++| LDN 0 NO INITIAL SEARCH ADDRESS 09428 M00S08412.tfm +++| RJM SAF SEARCH FOR ASSIGNED FILE 09429 M00S08413.tfm +++| NJN GVS1 IF FILE FOUND 09430 M00S08414.tfm +++| ERROR LNF *(LFN) NOT FOUND.* 09431 M00S08415.tfm +++| 09432 M00S08416.tfm +++| GVS1 NFA FA,R 09433 M00S08417.tfm +++| ADN FSTL 09434 M00S08418.tfm +++| CRD FS GET FST/EST ENTRIES 09435 M00S08419.tfm +++| SFA EST,FS 09436 M00S08420.tfm +++| CRD CM 09437 M00S08421.tfm +++| LDD CM+3 VALIDATE MT/NT EQUIPMENT
| Line S08422 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09438 M01S08422.274l797 ---| LPC 3777 09439 M00S08423.tfm +++| LMC 2RMT 09440 M00S08424.tfm +++| ZJN GVS2 IF 7 TRACK TAPE 09441 M00S08425.tfm +++| LMC 2RNT&2RMT 09442 M00S08426.tfm +++| ZJN GVS2 IF 9 TRACK TAPE
| Line S00422 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09443 M01S00422.274l797 +++| LMC 2RCT&2RNT 09444 M01S00423.274l797 +++| ZJN GVS2 IF CTS CARTRIDGE TAPE 09445 M01S00424.274l797 +++| LMC 2RAT&2RCT 09446 M01S00425.274l797 +++| ZJN GVS2 IF ACS CARTRIDGE TAPE 09447 M00S08427.tfm +++| ERROR NMT *(LFN) NOT ON MAGNETIC TAPE.* 09448 M00S08428.tfm +++| 09449 M00S08429.tfm +++| GVS2 LDD FS+1 SET UDT ADDRESS 09450 M00S08430.tfm +++| STM UDTA 09451 M00S08431.tfm +++| LDD CP VALIDATE JOB ASSIGNMENT 09452 M00S08432.tfm +++| ADN TFSW 09453 M00S08433.tfm +++| CRD CN
| Line S08434 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09454 M01S08434.282l826 ---| UDTRD CM,/MTX/UJID,1 09455 M01S08435.282l826 ---| LDD CM+4
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09456 M01S00114.282l826 +++| UDTRD CM,/MTX/UVRI,1 09457 M01S00115.282l826 +++| LDD CM 09458 M00S08436.tfm +++| LMD CN 09459 M00S08437.tfm +++| ZJN GVS3 IF ASSIGNED
| Line S08438 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09460 M01S08438.nos252 ---| UJN GVS4 *TFM INVALID REQUEST.*
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09461 M01S00071.nos252 +++| UJN GVS4 *TFM INCORRECT REQUEST.* 09462 M00S08439.tfm +++| 09463 M00S08440.tfm +++| GVS3 UDTRD CM,/MTX/UTMS,1 09464 M00S08441.tfm +++| LDD CM+4 09465 M00S08442.tfm +++| SHN 21-13 09466 M00S08443.tfm +++| PJN GVS4 IF NOT TMS CONTROLLED FILE 09467 M00S08444.tfm +++| UDTRD CM,/MTX/UTCI,1 09468 M00S08445.tfm +++| LDD CM+3 SET CATALOG ADDRESS 09469 M00S08446.tfm +++| SHN 14 09470 M00S08447.tfm +++| STD CI 09471 M00S08448.tfm +++| SCN 77 09472 M00S08449.tfm +++| LMD CM+4 09473 M00S08450.tfm +++| NJN GVS5 IF CATALOG ADDRESS
| Line S08451 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09474 M01S08451.nos252 ---| GVS4 ERROR ILR *TFM INVALID REQUEST.*
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09475 M01S00072.nos252 +++| GVS4 ERROR ILR *TFM INCORRECT REQUEST.* 09476 M00S08452.tfm +++| 09477 M00S08453.tfm +++| GVS5 STD RI+1 SET RANDOM ADDRESS 09478 M00S08454.tfm +++| SHN -14 09479 M00S08455.tfm +++| STD RI 09480 M00S08456.tfm +++| LDC BUF0 09481 M00S08457.tfm +++| STD BA 09482 M00S08458.tfm +++| RJM GIB GET INITIAL BLOCK (CATALOG) 09483 M00S08459.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
| Line S08460 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09484 M01S08460.nos252 ---| MJN GVS4 IF POINTERS INVALID
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 09485 M01S00073.nos252 +++| MJN GVS4 IF POINTERS INCORRECT 09486 M00S08461.tfm +++| RJM PTC PROCESS TAPE CATALOG 09487 M00S08462.tfm +++| LJM GVSX RETURN
| Line S08463 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09488 M01S08463.274l797 ---| TITLE ".Y." SUBROUTINES.
| Line S00426 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09489 M01S00426.274l797 +++| TITLE SUBROUTINES. 09490 M00S08464.tfm +++| CCA SPACE 4,15 09491 M00S08465.tfm +++|** CCA - CHECK CATALOG ADMISSION. 09492 M00S08466.tfm +++|* 09493 M00S08467.tfm +++|* FILE ACCESS PERMISSION IS CHECKED GRANTED IF- 09494 M00S08468.tfm +++|* 09495 M00S08469.tfm +++|* 1. THE FILE BELONGS TO THE CREATOR. 09496 M00S08470.tfm +++|* 2. THE FILE IS LISTABLE BY AN ALTERNATE USER, AND THE FILE 09497 M00S08471.tfm +++|* COULD BE ACCESSED BY THE ALTERNATE USER IF THE CORRECT 09498 M00S08472.tfm +++|* PASSWORD WAS SPECIFIED. 09499 M00S08473.tfm +++|* 09500 M00S08474.tfm +++|* ON ALL ALTERNATE USER REQUESTS THE PASSWORD 09501 M00S08475.tfm +++|* IS CLEARED. 09502 M00S08476.tfm +++|* 09503 M00S08477.tfm +++|* ENTRY (BA) = ADDRESS OF BUFFER CONTAINING CATALOG. 09504 M00S08478.tfm +++|* (BP) = ADDRESS OF CATALOG ENTRY. 09505 M00S08479.tfm +++|* (CI) = CATALOG INDEX. 09506 M00S08480.tfm +++|* 09507 M00S08481.tfm +++|* EXIT (A) = 0 IF USER ADMITTED TO FILE. 09508 M00S08482.tfm +++|* 09509 M00S08483.tfm +++|* USES RI - RI+1, T1 - T1+3 09510 M00S08484.tfm +++|* 09511 M00S08485.tfm +++|* CALLS AUS. 09512 M00S08486.tfm +++|* 09513 M00S08487.tfm +++|* MACROS CLEAR, RESTP. 09514 M00S08488.tfm +++| 09515 M00S08489.tfm +++| 09516 M00S08490.tfm +++| CCA7 LDN 1 USER NOT ADMITTED TO FILE 09517 M00S08491.tfm +++| 09518 M00S08492.tfm +++| CCA SUBR ENTRY/EXIT 09519 M00S08493.tfm +++| LDM PAUN 09520 M00S08494.tfm +++| ZJN CCAX IF NOT ALTERNATE USER SEARCH 09521 M00S08495.tfm +++| LDM CBST,BP CHECK ALTERNATE CATALOG LIST ATTRIBUTE 09522 M00S08496.tfm +++| SHN 21-13 09523 M00S08497.tfm +++| PJN CCA7 IF ALTERNATE USER AUDIT NOT ALLOWED 09524 M00S08498.tfm +++| LDM CBCT,BP 09525 M00S08499.tfm +++| SHN -6 09526 M00S08500.tfm +++| LMN FCPU 09527 M00S08501.tfm +++| ZJP CCA3 IF PUBLIC FILE 09528 M00S08502.tfm +++| LDM CBAE,BP SET ADMIT INDEX 09529 M00S08503.tfm +++| LPN 77 09530 M00S08504.tfm +++| STD RI 09531 M00S08505.tfm +++| SHN 14 09532 M00S08506.tfm +++| LMM CBAE+1,BP 09533 M00S08507.tfm +++| STD RI+1 09534 M00S08508.tfm +++| ZJN CCA1 IF NO PERMIT ENTRIES 09535 M00S08509.tfm +++| LDC PAUN 09536 M00S08510.tfm +++| STD KA 09537 M00S08511.tfm +++| RJM AUS SEARCH FOR ADMIT ENTRY 09538 M00S08512.tfm +++| ZJN CCA2 IF ENTRY FOUND 09539 M00S08513.tfm +++| RESTP CPCB RESTORE CATALOG BUFFER POINTERS 09540 M00S08514.tfm +++| CCA1 LDM CBCT,BP CHECK FOR SEMI-PRIVATE FILE 09541 M00S08515.tfm +++| SHN -6 09542 M00S08516.tfm +++| LMN FCSP 09543 M00S08517.tfm +++| ZJN CCA3 IF SEMI-PRIVATE FILE 09544 M00S08518.tfm +++| UJN CCA4 RETURN 09545 M00S08519.tfm +++| 09546 M00S08520.tfm +++| CCA2 LDM ABAM,BP GET ADMIT PERMISSION MODE 09547 M00S08521.tfm +++| LPN 77 09548 M00S08522.tfm +++| STD T1 09549 M00S08523.tfm +++| RESTP CPCB RESTORE CATALOG BUFFER POINTERS 09550 M00S08524.tfm +++| LDD T1 09551 M00S08525.tfm +++|* LMN FMIU 09552 M00S08526.tfm +++| ERRNZ FMIU 09553 M00S08527.tfm +++| ZJN CCA3 IF IMPLICIT ACCESS 09554 M00S08528.tfm +++| LDM CBAM,BP INSERT ADMIT PERMISSION 09555 M00S08529.tfm +++| SCN 77 09556 M00S08530.tfm +++| ADD T1 09557 M00S08531.tfm +++| STM CBAM,BP 09558 M00S08532.tfm +++| CCA3 LDM CBAM,BP CHECK FOR *NO ACCESS* 09559 M00S08533.tfm +++| LPN 77 09560 M00S08534.tfm +++| LMN FMNA 09561 M00S08535.tfm +++| NJN CCA5 IF ACCESS ALLOWED 09562 M00S08536.tfm +++| CCA4 LDN 1 09563 M00S08537.tfm +++| UJN CCA6 RETURN 09564 M00S08538.tfm +++| 09565 M00S08539.tfm +++| CCA5 CLEAR CBPW,BP,PWKL CLEAR PASSWORD 09566 M00S08540.tfm +++| CCA6 LJM CCAX RETURN 09567 M00S08541.tfm +++| FAS SPACE 4,10 09568 M00S08542.tfm +++|** FAS - FULL ADMIT SEARCH. 09569 M00S08543.tfm +++|* 09570 M00S08544.tfm +++|* RETURNS A BUFFER OF ADMIT ENTRIES. 09571 M00S08545.tfm +++|* 09572 M00S08546.tfm +++|* ENTRY (MD) = FAST. 09573 M00S08547.tfm +++|* (FT - FT+1) = FIRST. 09574 M00S08548.tfm +++|* (IN - IN+1) = IN. 09575 M00S08549.tfm +++|* (OT - OT+1) = OUT. 09576 M00S08550.tfm +++|* (LM - LM+1) = LIMIT. 09577 M00S08551.tfm +++|* 09578 M00S08552.tfm +++|* EXIT TO MAIN LOOP IF NO ERROR. 09579 M00S08553.tfm +++|* FET+2 UPDATED. 09580 M00S08554.tfm +++|* FET+TFRR UPDATED. 09581 M00S08555.tfm +++|* 09582 M00S08556.tfm +++|* USES CI, CM - CM+4, CN - CN+4, EC, RI - RI+1. 09583 M00S08557.tfm +++|* 09584 M00S08558.tfm +++|* CALLS CIB, EOI, ERR, FTC, GIB, GNB, GNL, 09585 M00S08559.tfm +++|* MBP, SCA, TBA, WDB. 09586 M00S08560.tfm +++|* 09587 M00S08561.tfm +++|* MACROS ERROR, LDA. 09588 M00S08562.tfm +++| 09589 M00S08563.tfm +++| 09590 M00S08564.tfm +++| FAS SUBR ENTRY/EXIT 09591 M00S08565.tfm +++| LDD CA 09592 M00S08566.tfm +++| ZJN FAS1 IF NOT AUDIT CONTINUATION 09593 M00S08567.tfm +++| RJM VUB VERIFY USERS ADMIT BLOCK 09594 M00S08568.tfm +++| ZJP FAS7 IF CORRECT USER 09595 M00S08569.tfm +++| LDN /EMSG/EID ERROR IN INDEX DATA 09596 M00S08570.tfm +++| UJN FAS2 ABORT WITH ERROR 09597 M00S08571.tfm +++| 09598 M00S08572.tfm +++| FAS1 RJM FTC FIND TAPE CATALOG 09599 M00S08573.tfm +++| ZJN FAS3 IF CATALOG FOUND 09600 M00S08574.tfm +++| FAS2 ERROR CALL ERROR PROCESSING (NO RETURN) 09601 M00S08575.tfm +++| 09602 M00S08576.tfm +++| FAS3 LDD CI SET CATALOG POSITION 09603 M00S08577.tfm +++| SHN 6 09604 M00S08578.tfm +++| LMD RI 09605 M00S08579.tfm +++| STM SCAA 09606 M00S08580.tfm +++| LDD RI+1 09607 M00S08581.tfm +++| STM SCAA+1 09608 M00S08582.tfm +++| LDM CBAE,BP SET FIRST ADMIT BLOCK ADDRESS 09609 M00S08583.tfm +++| LPN 77 09610 M00S08584.tfm +++| STD RI 09611 M00S08585.tfm +++| SHN 14 09612 M00S08586.tfm +++| LMM CBAE+1,BP 09613 M00S08587.tfm +++| STD RI+1 09614 M00S08588.tfm +++| NJN FAS4 IF ADMIT BLOCK ASSIGNED 09615 M00S08589.tfm +++| ERROR NAE *NO ADMITS.* 09616 M00S08590.tfm +++| 09617 M00S08591.tfm +++| FAS4 RJM TBA TOGGLE BUFFER ASSIGNMENT 09618 M00S08592.tfm +++| RJM GIB GET INITIAL BLOCK 09619 M00S08593.tfm +++| FAS5 LDN 0 SET FIRST ADMIT ENTRY 09620 M00S08594.tfm +++| STD CI 09621 M00S08595.tfm +++| LDM CWFE,BA 09622 M00S08596.tfm +++| FAS6 RJM MBP MOVE BUFFER POINTER 09623 M00S08597.tfm +++| MJN FAS8 IF MOVE OUTSIDE OF BUFFER 09624 M00S08598.tfm +++| LDI BP 09625 M00S08599.tfm +++| ZJN FAS8 IF END OF ADMIT BLOCK 09626 M00S08600.tfm +++| AOD CI 09627 M00S08601.tfm +++| FAS7 RJM CIB CHECK INPUT BUFFER 09628 M00S08602.tfm +++| SBN TAEL 09629 M00S08603.tfm +++| MJN FAS10 IF NO ROOM IN BUFFER 09630 M00S08604.tfm +++| RJM WDB WRITE DATA TO BUFFER 09631 M00S08605.tfm +++| LDM CWEL,BA 09632 M00S08606.tfm +++| UJN FAS6 ADVANCE TO NEXT ADMIT ENTRY 09633 M00S08607.tfm +++| 09634 M00S08608.tfm +++| FAS8 RJM GNL GET NEXT LINK 09635 M00S08609.tfm +++| ZJN FAS9 IF BLOCK NOT LINKED 09636 M00S08610.tfm +++| RJM GNB GET NEXT BLOCK 09637 M00S08611.tfm +++| UJN FAS5 PROCESS ADMIT BLOCK 09638 M00S08612.tfm +++| 09639 M00S08613.tfm +++| FAS9 RJM EOI SET END OF INFORMATION 09640 M00S08614.tfm +++| LDN ZERL CLEAR CONTINUATION ADDRESS 09641 M00S08615.tfm +++| CRD BA 09642 M00S08616.tfm +++| CRM SCAA,ON 09643 M00S08617.tfm +++| FAS10 RJM SCA SET CONTINUATION ADDRESS IN FET 09644 M00S08618.tfm +++| LDN ZERL 09645 M00S08619.tfm +++| CRD CM 09646 M00S08620.tfm +++| LDD IN CURRENT POSITION OF IN 09647 M00S08621.tfm +++| STD CM+3 09648 M00S08622.tfm +++| LDD IN+1 09649 M00S08623.tfm +++| STD CM+4 09650 M00S08624.tfm +++| LDA IR+3,REL UPDATE FET 09651 M00S08625.tfm +++| ADN 2 09652 M00S08626.tfm +++| CWD CM 09653 M00S08627.tfm +++| LJM FASX RETURN 09654 M00S08628.tfm +++| FCS SPACE 4,10 09655 M00S08629.tfm +++|** FCS - FULL CATALOG SEARCH. 09656 M00S08630.tfm +++|* 09657 M00S08631.tfm +++|* RETURNS THE CATALOG IMAGE FOLLOWED BY THE 09658 M00S08632.tfm +++|* IMAGE OF THE VSN INDICIES ASSIGNED TO THE 09659 M00S08633.tfm +++|* FILE. THE BUFFER SIZE MUST BE AT LEAST AS 09660 M00S08634.tfm +++|* LARGE AS ONE CATALOG PLUS 60D VSN(S). 09661 M00S08635.tfm +++|* 09662 M00S08636.tfm +++|* ENTRY (MD) = FCST. 09663 M00S08637.tfm +++|* (FT - FT+1) = FIRST. 09664 M00S08638.tfm +++|* (IN - IN+1) = IN. 09665 M00S08639.tfm +++|* (OT - OT+1) = OUT. 09666 M00S08640.tfm +++|* (LM - LM+1) = LIMIT. 09667 M00S08641.tfm +++|* (CA) = 0 IF NOT CONTINUATION OF A 09668 M00S08642.tfm +++|* PREVIOUS REQUEST. 09669 M00S08643.tfm +++|* 09670 M00S08644.tfm +++|* EXIT BUFFER FULL. 09671 M00S08645.tfm +++|* FET UPDATED. 09672 M00S08646.tfm +++|* 09673 M00S08647.tfm +++|* USES CA, CI, CM - CM+4, RI - RI+1. 09674 M00S08648.tfm +++|* 09675 M00S08649.tfm +++|* CALLS EOI, GIB, GNL, MBP, PTC, UIS, RRP, VIS 09676 M00S08650.tfm +++|* VUB, VSP. 09677 M00S08651.tfm +++|* 09678 M00S08652.tfm +++|* MACROS ERROR, RESTP, SAVEP. 09679 M00S08653.tfm +++| 09680 M00S08654.tfm +++| 09681 M00S08655.tfm +++| FCS SUBR ENTRY/EXIT 09682 M00S08656.tfm +++| LDD CA 09683 M00S08657.tfm +++| ZJP FCS5 IF NOT AUDIT CONTINUATION 09684 M00S08658.tfm +++| RJM VUB VERIFY USERS CATALOG BLOCK 09685 M00S08659.tfm +++| ZJN FCS2 IF CORRECT USER 09686 M00S08660.tfm +++| FCS1 ERROR EID *ERROR IN INDEX DATA.* 09687 M00S08661.tfm +++| 09688 M00S08662.tfm +++|* IF THIS IS A CONTINUATION FROM THE MIDDLE OF A MULTI-FILE 09689 M00S08663.tfm +++|* SET, FIND THE CATALOG POINTERS FOR THE FIRST CATALOG OF 09690 M00S08664.tfm +++|* THE SET, SO THAT THE NEXT CATALOG RETURNED WHEN THE MULTI 09691 M00S08665.tfm +++|* FILE SET IS COMPLETE IS THE ONE FOLLOWING THE FIRST CATALOG 09692 M00S08666.tfm +++|* OF THE MULTI-FILE SET. 09693 M00S08667.tfm +++| 09694 M00S08668.tfm +++| FCS2 LDA CBQN,BP 09695 M00S08669.tfm +++| SBN 2 09696 M00S08670.tfm +++| MJP FCS14 IF FIRST FILE OF SET 09697 M00S08671.tfm +++| LIA CBVS,BP READ FIRST VSN OF FILE 09698 M00S08672.tfm +++| STD KA 09699 M00S08673.tfm +++| RJM VIS VSN INDEXED SEARCH 09700 M00S08674.tfm +++| ZJN FCS3 IF VSN FOUND 09701 M00S08675.tfm +++| ERROR ECD *ERROR IN CATALOG DATA.* 09702 M00S08676.tfm +++| 09703 M00S08677.tfm +++| FCS3 COMPARE VBES,BP,VBFV,BP,VSKL 09704 M00S08678.tfm +++| ZJN FCS4 IF FIRST VOLUME 09705 M00S08679.tfm +++| LDN CN 09706 M00S08680.tfm +++| STD KA 09707 M00S08681.tfm +++| MMOVE VBFV,BP,,KA,VSKL 09708 M00S08682.tfm +++| RJM VIS VSN INDEXED SEARCH 09709 M00S08683.tfm +++| ZJN FCS4 IF VSN FOUND 09710 M00S08684.tfm +++| ERROR EID *ERROR IN INDEX DATA.* 09711 M00S08685.tfm +++| 09712 M00S08686.tfm +++| FCS4 LDM VBCI,BP SET INDEX OF FIRST CATALOG 09713 M00S08687.tfm +++| SHN 14 09714 M00S08688.tfm +++| STM FCSA+2 *FIRST CATALOG IN SET* CATALOG INDEX 09715 M00S08689.tfm +++| SHN -14 09716 M00S08690.tfm +++| STM FCSA+3 *FIRST CATALOG IN SET* RANDOM INDEX 09717 M00S08691.tfm +++| LDM VBCI+1,BP 09718 M00S08692.tfm +++| STM FCSA+4 09719 M00S08693.tfm +++| LDM FCSA RESTORE CATALOG BUFFER POINTERS 09720 M00S08694.tfm +++| STD BA 09721 M00S08695.tfm +++| LDM FCSA+1 09722 M00S08696.tfm +++| STD BP 09723 M00S08697.tfm +++| LJM FCS16 PROCESS TAPE CATALOG 09724 M00S08698.tfm +++| 09725 M00S08699.tfm +++| 09726 M00S08700.tfm +++| FCS5 LDC PBUN 09727 M00S08701.tfm +++| STD KA 09728 M00S08702.tfm +++| RJM UIS USERNAME INDEX SEARCH 09729 M00S08703.tfm +++| NJN FCS7 IF USERNAME NOT FOUND 09730 M00S08704.tfm +++| LDM 3,BP SET CATALOG INDEX 09731 M00S08705.tfm +++| LPN 77 09732 M00S08706.tfm +++| STD RI 09733 M00S08707.tfm +++| SHN 14 09734 M00S08708.tfm +++| LMM 4,BP 09735 M00S08709.tfm +++| STD RI+1 09736 M00S08710.tfm +++| NJN FCS6 IF CATALOG ADDRESS 09737 M00S08711.tfm +++| UJN FCS7 *EMPTY CATALOG.* 09738 M00S08712.tfm +++| 09739 M00S08713.tfm +++| FCS6 LDC BUF2 SET CATALOG BUFFER 09740 M00S08714.tfm +++| STD BA 09741 M00S08715.tfm +++| RJM GIB GET INITIAL BLOCK 09742 M00S08716.tfm +++| LDM CWNE,BA 09743 M00S08717.tfm +++| NJN FCS9 IF NOT EMPTY CATALOG 09744 M00S08718.tfm +++| FCS7 ERROR ECF *EMPTY CATALOG.* 09745 M00S08719.tfm +++| 09746 M00S08720.tfm +++| FCS8 RJM GIB GET INITIAL BLOCK 09747 M00S08721.tfm +++| FCS9 RJM VUB VERIFY USERS CATALOG BLOCK 09748 M00S08722.tfm +++| NJP FCS1 IF NOT CORRECT USER 09749 M00S08723.tfm +++| LDM CWFE,BA BYPASS HEADER 09750 M00S08724.tfm +++| RJM MBP MOVE BUFFER POINTER 09751 M00S08725.tfm +++| LDN 0 09752 M00S08726.tfm +++| STD CI 09753 M00S08727.tfm +++| FCS10 AOD CI CHECK CATALOG 09754 M00S08728.tfm +++| LDI BP 09755 M00S08729.tfm +++| NJN FCS12 IF NOT HOLE 09756 M00S08730.tfm +++| FCS11 LDN TCEL ADVANCE TO NEXT CATALOG 09757 M00S08731.tfm +++| RJM MBP MOVE BUFFER POINTER 09758 M00S08732.tfm +++| PJN FCS10 IF WITHIN CURRENT BUFFER 09759 M00S08733.tfm +++| RJM GNL GET NEXT LINK 09760 M00S08734.tfm +++| NJN FCS8 IF BLOCK LINKED 09761 M00S08735.tfm +++| RJM EOI SET BUFFER STATUS 09762 M00S08736.tfm +++| LDN ZERL CLEAR CONTINUATION WORD 09763 M00S08737.tfm +++| CRD CM 09764 M00S08738.tfm +++| LDA IR+3,REL 09765 M00S08739.tfm +++| ADN TFRR 09766 M00S08740.tfm +++| CWD CM 09767 M00S08741.tfm +++| LJM FCSX RETURN 09768 M00S08742.tfm +++| 09769 M00S08743.tfm +++| FCS12 LDA CBQN,BP CHECK FOR FIRST FILE OF SET 09770 M00S08744.tfm +++| SBN 1 09771 M00S08745.tfm +++| FCS13 NJN FCS11 IF NOT FIRST FILE 09772 M00S08746.tfm +++| SAVEP FCSA SAVE CATALOG POINTERS 09773 M00S08747.tfm +++| FCS14 LDD FC CHECK FOR *TFSP* CALL 09774 M00S08748.tfm +++| LMN SSJF 09775 M00S08749.tfm +++| ZJN FCS16 IF *TFSP* CALL 09776 M00S08750.tfm +++| LDM CBRC,BP CHECK END OF LIST 09777 M00S08751.tfm +++| ZJN FCS16 IF END OF LIST 09778 M00S08752.tfm +++| LIA CBES,BP 09779 M00S08753.tfm +++| STD KA 09780 M00S08754.tfm +++| RJM VIS VSN INDEXED SEARCH 09781 M00S08755.tfm +++| ZJN FCS15 IF VSN FOUND 09782 M00S08756.tfm +++| ERROR ECD * ERROR IN CATALOG DATA * 09783 M00S08757.tfm +++| 09784 M00S08758.tfm +++| FCS15 LDD BP 09785 M00S08759.tfm +++| STD CM 09786 M00S08760.tfm +++| RESTP FCSA RESTORE CATALOG POINTERS 09787 M00S08761.tfm +++| LDM VBRD+1,CM CHECK RELEASE DATE 09788 M00S08762.tfm +++| NJN FCS13 IF CONDITIONAL RELEASE 09789 M00S08763.tfm +++| FCS16 RJM PTC PROCESS TAPE CATALOG 09790 M00S08764.tfm +++| PJN FCS17 IF BUFFER NOT FULL 09791 M00S08765.tfm +++| LJM FCSX RETURN (BUFFER FULL) 09792 M00S08766.tfm +++| 09793 M00S08767.tfm +++| FCS17 LDM CBNC,BP CHECK FOR MULTI-FILE 09794 M00S08768.tfm +++| NJN FCS19 IF MULTI-FILE 09795 M00S08769.tfm +++| RESTP FCSA RESTORE CATALOG POINTERS 09796 M00S08770.tfm +++| LDM CPRI 09797 M00S08771.tfm +++| LMD RI 09798 M00S08772.tfm +++| LMM CPRI+1 09799 M00S08773.tfm +++| LMD RI+1 09800 M00S08774.tfm +++| ZJN FCS18 IF BUFFER LOADED 09801 M00S08775.tfm +++| RJM GIB GET INITIAL BLOCK (CATALOG) 09802 M00S08776.tfm +++| RJM VUB VERIFY USERS CATALOG BLOCK 09803 M00S08777.tfm +++| NJP FCS1 IF NOT CORRECT USER 09804 M00S08778.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS 09805 M00S08779.tfm +++| FCS18 LJM FCS11 ADVANCE TO NEXT CATALOG 09806 M00S08780.tfm +++| 09807 M00S08781.tfm +++| FCS19 SHN 14 PROCESS MULTI-FILE 09808 M00S08782.tfm +++| STD CI 09809 M00S08783.tfm +++| SCN 77 09810 M00S08784.tfm +++| LMM CBNC+1,BP 09811 M00S08785.tfm +++| STD RI+1 09812 M00S08786.tfm +++| SHN -14 09813 M00S08787.tfm +++| STD RI 09814 M00S08788.tfm +++| RJM GIB GET INITIAL BLOCK 09815 M00S08789.tfm +++| RJM VSP VERIFY/SET CATALOG POINTER 09816 M00S08790.tfm +++| LJM FCS16 PROCESS TAPE CATALOG 09817 M00S08791.tfm +++| 09818 M00S08792.tfm +++| FCSA BSS 5 CATALOG POINTERS (FIRST OF SET) 09819 M00S08793.tfm +++| SPACE 4 09820 M00S08794.tfm +++| 09821 M00S08795.tfm +++| PTC SPACE 4,10 09822 M00S08796.tfm +++|** PTC - PROCESS TAPE CATALOG. 09823 M00S08797.tfm +++|* 09824 M00S08798.tfm +++|* ENTRY (BA) = BUFFER ADDRESS CONTAINING CATALOG. 09825 M00S08799.tfm +++|* (BP) = BUFFER POINTER TO CATALOG. 09826 M00S08800.tfm +++|* 09827 M00S08801.tfm +++|* EXIT (A) = 0 IF COMPLETE. 09828 M00S08802.tfm +++|* (A) = 1 IF USER NOT ADMITTED TO FILE. 09829 M00S08803.tfm +++|* (A) = -0 IF BUFFER FULL ON WRITE. 09830 M00S08804.tfm +++|* (BA) = BUFFER ADDRESS (CATALOG). 09831 M00S08805.tfm +++|* (BA) = BUFFER POINTER (CATALOG). 09832 M00S08806.tfm +++|* (CI) = CATALOG INDEX. 09833 M00S08807.tfm +++|* 09834 M00S08808.tfm +++|* USES CM - CM+4, KA, RC, SCAA - SCAA+1, T1, WC. 09835 M00S08809.tfm +++|* 09836 M00S08810.tfm +++|* CALLS CCA, CIB, VIS, WBB, WDB. 09837 M00S08811.tfm +++|* 09838 M00S08812.tfm +++|* MACROS ERROR, LDA, MMOVE, MULT4, RESTP, SAVEP. 09839 M00S08813.tfm +++| 09840 M00S08814.tfm +++| 09841 M00S08815.tfm +++| PTC SUBR ENTRY/EXIT 09842 M00S08816.tfm +++| LDD CI SET CATALOG INDEX FOR CONTINUATION 09843 M00S08817.tfm +++| SHN 6 09844 M00S08818.tfm +++| LMD RI 09845 M00S08819.tfm +++| STM SCAA 09846 M00S08820.tfm +++| LDD RI+1 09847 M00S08821.tfm +++| STM SCAA+1 09848 M00S08822.tfm +++| PTC1 LDM CBRC,BP 09849 M00S08823.tfm +++| STD RC 09850 M00S08824.tfm +++| MULT4 MULTIPLY BY 4 09851 M00S08825.tfm +++| ADN TCEL+2 09852 M00S08826.tfm +++| STD WC 09853 M00S08827.tfm +++| RJM CIB CHECK INPUT BUFFER 09854 M00S08828.tfm +++| SBD WC 09855 M00S08829.tfm +++| PJN PTC3 IF ROOM IN BUFFER 09856 M00S08830.tfm +++| RJM SCA SET CONTINUATION ADDRESS 09857 M00S08831.tfm +++| LCN 0 09858 M00S08832.tfm +++| PTC2 UJP PTCX RETURN 09859 M00S08833.tfm +++| 09860 M00S08834.tfm +++| PTC3 SAVEP CPCB SAVE CATALOG POINTERS 09861 M00S08835.tfm +++| LDD FC 09862 M00S08836.tfm +++| LMN SSJF 09863 M00S08837.tfm +++| ZJN PTC5 IF CALLED BY *TFSP* 09864 M00S08838.tfm +++| RJM CCA CHECK CATALOG ADMISSION 09865 M00S08839.tfm +++| ZJN PTC5 IF USER ADMITTED TO FILE 09866 M00S08840.tfm +++| PTC4 RESTP CPCB RESTORE CATALOG POINTERS 09867 M00S08841.tfm +++| UJP PTC2 RETURN 09868 M00S08842.tfm +++| 09869 M00S08843.tfm +++| PTC5 RJM WDB WRITE DATA TO BUFFER 09870 M00S08844.tfm +++| LDN CBES SET FIRST VSN OF SET 09871 M00S08845.tfm +++| ADD BP 09872 M00S08846.tfm +++| STD T1 09873 M00S08847.tfm +++| PTC6 LDD RC CHECK END OF LIST 09874 M00S08848.tfm +++| ZJN PTC8 IF END OF LIST 09875 M00S08849.tfm +++| SOD RC 09876 M00S08850.tfm +++| LDI T1 09877 M00S08851.tfm +++| ZJN PTC8 IF END OF VSN LIST 09878 M00S08852.tfm +++| MMOVE ,,PESN,,VSKL 09879 M00S08853.tfm +++| LDC PESN LOCATE VSN 09880 M00S08854.tfm +++| STD KA 09881 M00S08855.tfm +++| RJM VIS VSN INDEX SEARCH 09882 M00S08856.tfm +++| ZJN PTC7 IF VSN FOUND 09883 M00S08857.tfm +++| ERROR ECD *ERROR IN CATALOG DATA.* 09884 M00S08858.tfm +++| 09885 M00S08859.tfm +++| PTC7 RJM WDB WRITE DATA TO BUFFER 09886 M00S08860.tfm +++| LDN 3*5 GET NEXT VSN 09887 M00S08861.tfm +++| ADD BP 09888 M00S08862.tfm +++| STD T1 09889 M00S08863.tfm +++| UJP PTC6 PROCESS NEXT VSN 09890 M00S08864.tfm +++| 09891 M00S08865.tfm +++| PTC8 LDM CPCB+2 TERMINATE CATALOG 09892 M00S08866.tfm +++| SHN 6 09893 M00S08867.tfm +++| LMM CPCB+3 09894 M00S08868.tfm +++| STM PTCA+3 09895 M00S08869.tfm +++| LDM CPCB+4 09896 M00S08870.tfm +++| STM PTCA+4 09897 M00S08871.tfm +++| LDN 1 09898 M00S08872.tfm +++| STD T1 09899 M00S08873.tfm +++| LDC PTCA 09900 M00S08874.tfm +++| RJM WBB WRITE BINARY BUFFER 09901 M00S08875.tfm +++| LDN ZERL 09902 M00S08876.tfm +++| CRD CM 09903 M00S08877.tfm +++| LDD IN CURRENT POSITION OF IN 09904 M00S08878.tfm +++| STD CM+3 09905 M00S08879.tfm +++| LDD IN+1 09906 M00S08880.tfm +++| STD CM+4 09907 M00S08881.tfm +++| LDA IR+3,REL UPDATE FET 09908 M00S08882.tfm +++| ADN 2 09909 M00S08883.tfm +++| CWD CM 09910 M00S08884.tfm +++| LDN 0 SET CATALOG COMPLETE 09911 M00S08885.tfm +++| LJM PTC4 RESTORE POINTERS AND RETURN 09912 M00S08886.tfm +++| 09913 M00S08887.tfm +++| PTCA VFD 60D/77777777777777777777B 09914 M00S08888.tfm +++| SCA SPACE 4,10 09915 M00S08889.tfm +++|** SCA - SET CONTINUATION ADDRESS. 09916 M00S08890.tfm +++|* 09917 M00S08891.tfm +++|* ENTRY (CI) = CATALOG INDEX. 09918 M00S08892.tfm +++|* (RI - RI+1) = CATALOG RANDOM ADDRESS. 09919 M00S08893.tfm +++|* 09920 M00S08894.tfm +++|* EXIT FET WORD TFRR UPDATED. 09921 M00S08895.tfm +++|* 09922 M00S08896.tfm +++|* USES SCAA+3 - SCAA+4. 09923 M00S08897.tfm +++|* 09924 M00S08898.tfm +++|* MACROS LDA. 09925 M00S08899.tfm +++| 09926 M00S08900.tfm +++| 09927 M00S08901.tfm +++| SCA SUBR ENTRY/EXIT 09928 M00S08902.tfm +++| LDD CI SET CURRENT POSITION 09929 M00S08903.tfm +++| SHN 6 09930 M00S08904.tfm +++| LMD RI 09931 M00S08905.tfm +++| STM SCAA+3 09932 M00S08906.tfm +++| LDD RI+1 09933 M00S08907.tfm +++| STM SCAA+4 09934 M00S08908.tfm +++| LDA IR+3,REL UPDATE FET 09935 M00S08909.tfm +++| ADN TFRR 09936 M00S08910.tfm +++| CWM SCAA,ON 09937 M00S08911.tfm +++| UJN SCAX RETURN 09938 M00S08912.tfm +++| 09939 M00S08913.tfm +++| SCAA VFD 60/0 CONTINUATION POINTERS 09940 M00S08914.tfm +++| SAS SPACE 4,10 09941 M00S08915.tfm +++|** SAS - SELECTIVE ADMIT SEARCH. 09942 M00S08916.tfm +++|* 09943 M00S08917.tfm +++|* ENTRY (MD) = SAST. 09944 M00S08918.tfm +++|* (FT - FT+1) = FIRST. 09945 M00S08919.tfm +++|* (IN - IN+1) = IN. 09946 M00S08920.tfm +++|* (OT - OT+1) = OUT. 09947 M00S08921.tfm +++|* (LM - LM+1) = LIMIT. 09948 M00S08922.tfm +++|* 09949 M00S08923.tfm +++|* EXIT ADMIT ENTRY WRITTEN TO BUFFER. 09950 M00S08924.tfm +++|* 09951 M00S08925.tfm +++|* USES CM - CM+4, EC, KA, RI - RI+1. 09952 M00S08926.tfm +++|* 09953 M00S08927.tfm +++|* CALLS AUS, EOI, ERR, WDB. 09954 M00S08928.tfm +++|* 09955 M00S08929.tfm +++|* MACROS ERROR, LDA, MMOVE. 09956 M00S08930.tfm +++| 09957 M00S08931.tfm +++| 09958 M00S08932.tfm +++| SAS SUBR ENTRY/EXIT 09959 M00S08933.tfm +++| LDM PAUN 09960 M00S08934.tfm +++| ZJN SAS1 IF USER = ALTERNATE USER 09961 M00S08935.tfm +++| LDD MA SWAP USERNAMES 09962 M00S08936.tfm +++| CWM PBUN,ON 09963 M00S08937.tfm +++| CWM PAUN,ON 09964 M00S08938.tfm +++| LDD MA 09965 M00S08939.tfm +++| CRM PAUN,ON 09966 M00S08940.tfm +++| CRM PBUN,ON 09967 M00S08941.tfm +++| SAS1 RJM FTC FIND TAPE CATALOG 09968 M00S08942.tfm +++| ZJN SAS2 IF CATALOG FOUND 09969 M00S08943.tfm +++| ERROR CALL ERROR PROCESSING (NO RETURN) 09970 M00S08944.tfm +++| 09971 M00S08945.tfm +++| SAS2 LDM CBAE,BP SET FIRST ADMIT BLOCK ADDRESS 09972 M00S08946.tfm +++| LPN 77 09973 M00S08947.tfm +++| STD RI 09974 M00S08948.tfm +++| SHN 14 09975 M00S08949.tfm +++| LMM CBAE+1,BP 09976 M00S08950.tfm +++| STD RI+1 09977 M00S08951.tfm +++| NJN SAS4 IF ADMIT BLOCK ASSIGNED 09978 M00S08952.tfm +++| SAS3 MMOVE PAUN,,PBUN,,UNKL 09979 M00S08953.tfm +++| ERROR UNF *(USERNAME) NOT FOUND.* 09980 M00S08954.tfm +++| 09981 M00S08955.tfm +++| SAS4 LDC PAUN SET SEARCH KEY 09982 M00S08956.tfm +++| STD KA 09983 M00S08957.tfm +++| RJM AUS ALTERNATE USERNAME SEARCH 09984 M00S08958.tfm +++| NJN SAS3 IF ALTERNATE USER NOT FOUND 09985 M00S08959.tfm +++| RJM WDB WRITE DATA TO BUFFER 09986 M00S08960.tfm +++| RJM EOI SET END OF INFORMATION 09987 M00S08961.tfm +++| LDN ZERL 09988 M00S08962.tfm +++| CRD CM 09989 M00S08963.tfm +++| LDD IN CURRENT POSITION OF IN 09990 M00S08964.tfm +++| STD CM+3 09991 M00S08965.tfm +++| LDD IN+1 09992 M00S08966.tfm +++| STD CM+4 09993 M00S08967.tfm +++| LDA IR+3,REL UPDATE FET 09994 M00S08968.tfm +++| ADN 2 09995 M00S08969.tfm +++| CWD CM 09996 M00S08970.tfm +++| LJM SASX RETURN 09997 M00S08971.tfm +++| SCS SPACE 4,10 09998 M00S08972.tfm +++|** SCS - SELECTIVE CATALOG SEARCH. 09999 M00S08973.tfm +++|* 10000 M00S08974.tfm +++|* ENTRY (MD) = SCST. 10001 M00S08975.tfm +++|* (FT - FT+1) = FIRST. 10002 M00S08976.tfm +++|* (IN - IN+1) = IN. 10003 M00S08977.tfm +++|* (OT - OT+1) = OUT. 10004 M00S08978.tfm +++|* (LM - LM+1) = LIMIT. 10005 M00S08979.tfm +++|* 10006 M00S08980.tfm +++|* USES BA, CI, CM - CM+4, KA, RI - RI+1. 10007 M00S08981.tfm +++|* 10008 M00S08982.tfm +++|* CALLS EOI, GIB, PTC, SCB, UIS, VIS, VUB. 10009 M00S08983.tfm +++|* 10010 M00S08984.tfm +++|* MACROS ERROR, LDA. 10011 M00S08985.tfm +++| 10012 M00S08986.tfm +++| 10013 M00S08987.tfm +++| SCS SUBR ENTRY/EXIT 10014 M00S08988.tfm +++| LDC PESN 10015 M00S08989.tfm +++| STD KA 10016 M00S08990.tfm +++| LDI KA 10017 M00S08991.tfm +++| NJN SCS2 IF VSN SEARCH 10018 M00S08992.tfm +++| LJM SCS9 SEARCH BY USERNAME/FILE NAME 10019 M00S08993.tfm +++| 10020 M00S08994.tfm +++| SCS1 ERROR VNF *(VSN) NOT FOUND.* 10021 M00S08995.tfm +++| 10022 M00S08996.tfm +++| SCS2 LDD CA CHECK AUDIT CONTINUATION
| Line S08997 Modification History | |
|---|---|
M01 (Removed by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10023 M01S08997.t5146 ---| NJN SCS6 IF AUDIT CONTINUATION
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10024 M01S00001.t5146 +++| NJP SCS6 IF AUDIT CONTINUATION
| Line S08998 Modification History | |
|---|---|
M01 (Removed by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10025 M01S08998.t5146 ---| RJM VIS VSN INDEX SEARCH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10026 M01S00002.t5146 +++| SCS2.1 RJM VIS VSN INDEX SEARCH 10027 M00S08999.tfm +++| NJN SCS1 IF VSN NOT FOUND 10028 M00S09000.tfm +++| LDD FC 10029 M00S09001.tfm +++| LMN SSJF 10030 M00S09002.tfm +++| ZJN SCS4 IF *TFSP* CALL 10031 M00S09003.tfm +++| LDM VBRD+1,BP 10032 M00S09004.tfm +++| SCS3 NJN SCS1 IF CONDITIONALLY RELEASED
| Line S09005 Modification History | |
|---|---|
M01 (Removed by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10033 M01S09005.t5146 ---| SCS4 LDM VBCI,BP SET CATALOG ADDRESS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10034 M01S00003.t5146 +++| SCS4 LDM VBRC,BP CHECK REEL COUNT 10035 M01S00004.t5146 +++| SHN -6 10036 M01S00005.t5146 +++| SBN 1 10037 M01S00006.t5146 +++| ZJN SCS4.1 IF FIRST REEL
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | t5146 |
M02 (Removed by) | m1687 |
Seq # *Modification Id* Act ----------------------------+ 10038 M02S00007.m1687 ---| LDN VBFV SET FIRST VSN 10039 M02S00008.m1687 ---| ADD BP
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | m1687 |
Seq # *Modification Id* Act ----------------------------+ 10040 M01S00001.m1687 +++| MMOVE VBFV,BP,SCSA,,6 SET FIRST VSN FOR SEARCH 10041 M01S00002.m1687 +++| LDC SCSA
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10042 M01S00009.t5146 +++| STD KA 10043 M01S00010.t5146 +++| UJN SCS2.1 VSN INDEX SEARCH 10044 M01S00011.t5146 +++| 10045 M01S00012.t5146 +++| SCS4.1 LDM VBCI,BP SET CATALOG ADDRESS 10046 M00S09006.tfm +++| SHN 14 10047 M00S09007.tfm +++| STD CI 10048 M00S09008.tfm +++| SCN 77 10049 M00S09009.tfm +++| LMM VBCI+1,BP
| Line S09010 Modification History | |
|---|---|
M01 (Removed by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10050 M01S09010.t5146 ---| ZJN SCS1 IF NOT ASSIGNED
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | t5146 |
Seq # *Modification Id* Act ----------------------------+ 10051 M01S00013.t5146 +++| ZJP SCS1 IF NOT ASSIGNED 10052 M00S09011.tfm +++| SCS5 STD RI+1 SET RANDOM ADDRESS 10053 M00S09012.tfm +++| SHN -14 10054 M00S09013.tfm +++| STD RI 10055 M00S09014.tfm +++| LDC BUF2 SET CATALOG BUFFER 10056 M00S09015.tfm +++| STD BA 10057 M00S09016.tfm +++| RJM GIB GET INITIAL BLOCK 10058 M00S09017.tfm +++| RJM VUB VERIFY USERS DATA BLOCK
| Line S09018 Modification History | |
|---|---|
M01 (Removed by) | m1687 |
Seq # *Modification Id* Act ----------------------------+ 10059 M01S09018.m1687 ---| NJN SCS3 IF NOT USERS DATA BLOCK
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | m1687 |
Seq # *Modification Id* Act ----------------------------+ 10060 M01S00003.m1687 +++| NJP SCS3 IF NOT USERS DATA BLOCK 10061 M00S09019.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS 10062 M00S09020.tfm +++| SCS6 RJM PTC PROCESS TAPE CATALOG 10063 M00S09021.tfm +++| MJN SCS8 IF BUFFER FULL 10064 M00S09022.tfm +++| LDM CBNC,BP CHECK FOR MULTI-FILE 10065 M00S09023.tfm +++| ZJN SCS7 IF NOT MULTI-FILE 10066 M00S09024.tfm +++| SHN 14 10067 M00S09025.tfm +++| STD CI 10068 M00S09026.tfm +++| SCN 77 10069 M00S09027.tfm +++| LMM CBNC+1,BP 10070 M00S09028.tfm +++| NJN SCS5 IF NOT END OF SET 10071 M00S09029.tfm +++| SCS7 RJM EOI SET END OF INFORMATION 10072 M00S09030.tfm +++| LDN ZERL CLEAR CONTINUATION WORD 10073 M00S09031.tfm +++| CRD CM 10074 M00S09032.tfm +++| LDA IR+3,REL 10075 M00S09033.tfm +++| ADN TFRR 10076 M00S09034.tfm +++| CWD CM 10077 M00S09035.tfm +++| SCS8 LJM SCSX RETURN 10078 M00S09036.tfm +++| 10079 M00S09037.tfm +++| SCS9 LDC PBUN FILE IDENTIFIER SEARCH 10080 M00S09038.tfm +++| STD KA 10081 M00S09039.tfm +++| RJM UIS USERNAME INDEX SEARCH 10082 M00S09040.tfm +++| ZJN SCS11 IF USERNAME FOUND 10083 M00S09041.tfm +++| SCS10 ERROR FNF *(FILENAME) NOT FOUND.* 10084 M00S09042.tfm +++| 10085 M00S09043.tfm +++| SCS11 LDC BUF2 SET CATALOG BUFFER 10086 M00S09044.tfm +++| STD BA 10087 M00S09045.tfm +++| LDM UBCI,BP SET CATALOG RANDOM INDEX 10088 M00S09046.tfm +++| LPN 77 10089 M00S09047.tfm +++| STD RI 10090 M00S09048.tfm +++| SHN 14 10091 M00S09049.tfm +++| LMM UBCI+1,BP 10092 M00S09050.tfm +++| STD RI+1 10093 M00S09051.tfm +++| ZJN SCS10 IF NO RANDOM ADDRESS 10094 M00S09052.tfm +++| LDC POFI SET SEARCH KEY ADDRESS 10095 M00S09053.tfm +++| STD KA 10096 M00S09054.tfm +++| RJM SCB SEARCH CATALOG BUFFER 10097 M00S09055.tfm +++| ZJN SCS10 IF FILE NOT FOUND 10098 M00S09056.tfm +++| MJN SCS10 IF FILE NOT FOUND 10099 M00S09057.tfm +++| RJM VUB VALIDATE USERS CATALOG BLOCK 10100 M00S09058.tfm +++| ZJN SCS12 IF CORRECT USER 10101 M00S09059.tfm +++| ERROR EID *ERROR IN INDEX DATA.* 10102 M00S09060.tfm +++| 10103 M00S09061.tfm +++| SCS12 RJM PTC PROCESS TAPE CATALOG 10104 M00S09062.tfm +++| LJM SCS7 SET END OF INFORMATION
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | m1687 |
Seq # *Modification Id* Act ----------------------------+ 10105 M01S00004.m1687 +++| 10106 M01S00005.m1687 +++| SCSA BSSZ 5 FIRST VSN 10107 M00S09063.tfm +++| WDB SPACE 4,10 10108 M00S09064.tfm +++|** WDB - WRITE DATA TO BUFFER. 10109 M00S09065.tfm +++|* 10110 M00S09066.tfm +++|* ENTRY (BA) = BUFFER ADDRESS. 10111 M00S09067.tfm +++|* (BP) = BUFFER POINTER. 10112 M00S09068.tfm +++|* (CWEL+(BA)) = ENTRY LENGTH. 10113 M00S09069.tfm +++|* (IN - IN+1) = CURRENT BUFFER POSITION. 10114 M00S09070.tfm +++|* 10115 M00S09071.tfm +++|* EXIT (IN - IN+1) ADVANCED. 10116 M00S09072.tfm +++|* DATA WRITTEN TO CIRCULAR BUFFER AND 10117 M00S09073.tfm +++|* FET UPDATED. 10118 M00S09074.tfm +++|* 10119 M00S09075.tfm +++|* USES T1. 10120 M00S09076.tfm +++|* 10121 M00S09077.tfm +++|* CALLS WBB. 10122 M00S09078.tfm +++| 10123 M00S09079.tfm +++| 10124 M00S09080.tfm +++| WDB SUBR ENTRY/EXIT 10125 M00S09081.tfm +++| LDM CWEL,BA WRITE DATA TO BUFFER 10126 M00S09082.tfm +++| STD T1 10127 M00S09083.tfm +++| LDD BP 10128 M00S09084.tfm +++| RJM WBB WRITE BINARY BUFFER 10129 M00S09085.tfm +++| UJN WDBX RETURN 10130 M00S09086.tfm +++| 10131 M00S09087.tfm +++| SPACE 4 10132 M00S09088.tfm +++|*** COMMON DECKS. 10133 M00S09089.tfm +++| 10134 M00S09090.tfm +++| 10135 M00S09091.tfm +++| AUS$ EQU 1 DEFINE AUS - ALTERNATE USERNAME SEARCH 10136 M00S09092.tfm +++| EOI$ EQU 1 DEFINE EOI - SET END OF INFORMATION 10137 M00S09093.tfm +++| FTC$ EQU 1 DEFINE FTC - FIND TAPE CATALOG 10138 M00S09094.tfm +++| SBP$ EQU 1 DEFINE SBP - SET FET BUFFER POINTERS 10139 M00S09095.tfm +++| VRR$ EQU 1 DEFINE VRR - VERIFY RANDOM REQUEST 10140 M00S09096.tfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS 10141 M00S09097.tfm +++| VUB$ EQU 1 DEFINE VUB - VERIFY USERS CATALOG/ADMIT BLO 10142 M00S09098.tfm +++|*CALL COMPCIB 10143 M00S09099.tfm +++|*CALL COMPSAF 10144 M00S09100.tfm +++|*CALL COMPTFM 10145 M00S09101.tfm +++|*CALL COMPWBB 10146 M00S09102.tfm +++| SPACE 4 10147 M00S09103.tfm +++| ERRNG BUF2-* BYTES LEFT BEFORE BUFFER OVERFLOW
| Line S00427 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 10148 M01S00427.274l797 +++| TITLE PRESET. 10149 M00S09104.tfm +++| PRS SPACE 4,15 10150 M00S09105.tfm +++|** PRS - PRESET FOR *AUD* AND *GVS*. 10151 M00S09106.tfm +++|* 10152 M00S09107.tfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 10153 M00S09108.tfm +++|* 10154 M00S09109.tfm +++|* EXIT (A) = ABSOLUTE FET ADDRESS. 10155 M00S09110.tfm +++|* (WC) = WORD COUNT. 10156 M00S09111.tfm +++|* 10157 M00S09112.tfm +++|* USES WC. 10158 M00S09113.tfm +++|* 10159 M00S09114.tfm +++|* CALLS CIB, SBP. 10160 M00S09115.tfm +++|* 10161 M00S09116.tfm +++|* MACROS LDA, ERROR. 10162 M00S09117.tfm +++| 10163 M00S09118.tfm +++| 10164 M00S09119.tfm +++| PRS1 LDA IR+3,REL LOAD ABSOLUTE FET ADDRESS 10165 M00S09120.tfm +++| 10166 M00S09121.tfm +++| PRS SUBR ENTRY/EXIT 10167 M00S09122.tfm +++| RJM SBP SET FET BUFFER POINTERS 10168 M00S09123.tfm +++| RJM CIB CHECK INPUT BUFFER 10169 M00S09124.tfm +++| STD WC 10170 M00S09125.tfm +++| LDC TSVL*60D+TCEL+1 10171 M00S09126.tfm +++| SBD WC 10172 M00S09127.tfm +++| MJN PRS1 IF BUFFER SIZE VALID 10173 M00S09128.tfm +++| ZJN PRS1 IF BUFFER SIZE VALID 10174 M00S09129.tfm +++| ERROR BAE *BUFFER ARGUMENT ERROR.* 10175 M00S09130.tfm +++| SPACE 4 10176 M00S09131.tfm +++| ERRNG BUF1-* BYTES LEFT BEFORE BUFFER OVERFLOW
| Line S09132 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 10177 M01S09132.274l797 ---| OVERLAY (SUBFUNCTIONS AMDS, RSVS.),OVL1
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 10178 M01S00428.274l797 +++| OVERLAY (AMEND CATALOG ENTRY / RESERVE TAPE FILES.),OVL1 10179 M00S09133.tfm +++| SPACE 4 10180 M00S09134.tfm +++|** LOCAL DIRECT CELL LOCATIONS. 10181 M00S09135.tfm +++| 10182 M00S09136.tfm +++| 10183 M00S09137.tfm +++| JS EQU S2 - S2+4 JOB SEQUENCE WORD *UJID* (5 LOCATIONS) 10184 M00S09138.tfm +++| FA EQU S3 FNT ORDINAL 10185 M00S09139.tfm +++| AMDS SPACE 4,10 10186 M00S09140.tfm +++|*** AMDS - AMEND TAPE CATALOG ENTRY. 10187 M00S09141.tfm +++|* 10188 M00S09142.tfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS - 10189 M00S09143.tfm +++|* 10190 M00S09144.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure FET+0
10191 M00S09145.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ 0
Figure +1
10192 M00S09146.tfm +++|*T, +2 60/ 0
Figure +2
10193 M00S09147.tfm +++|*T, +3 60/ 0
Figure +3
10194 M00S09148.tfm +++|*T, +4 12/ FNT,30/ 0,18/ 0
Figure +4
10195 M00S09149.tfm +++|*T, +5 42/ 0,18/ EADD
Figure +5
10196 M00S09150.tfm +++|*T, +6 60/ 0
Figure +6
10197 M00S09151.tfm +++|*T, +7 36/ VSN,24/ 0
Figure +7
10198 M00S09152.tfm +++|*T, +10 60/ 0
Figure +10
10199 M00S09153.tfm +++|*T, +11 60/ 0
Figure +11
10200 M00S09154.tfm +++|*T, +12 60/ OLD FILE IDENTIFIER
Figure +12
10201 M00S09155.tfm +++|*T, +13 42/ FID (CONT.),18/0.
Figure +13
10202 M00S09156.tfm +++|*T, +14 60/ NEW FILE IDENTIFIER
Figure +14
10203 M00S09157.tfm +++|*T, +15 42/ NFI (CONT.),6/ 0,6/ CE,6/ AN
Figure +15
10204 M00S09158.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure +16
10205 M00S09159.tfm +++|*T, +17 42/ PASSWORD,6/ AC,6/ CT,6/ MD
Figure +17
10206 M00S09160.tfm +++|* 10207 M00S09161.tfm +++|* USES EC. 10208 M00S09162.tfm +++|* 10209 M00S09163.tfm +++|* CALLS CAC, CCT, CFM, CPN, ERR, FTC, IRM, 10210 M00S09164.tfm +++|* NFI, PWD, UCW, VUB, WRP. 10211 M00S09165.tfm +++|* 10212 M00S09166.tfm +++|* MACROS MMOVE, RESTP. 10213 M00S09167.tfm +++| 10214 M00S09168.tfm +++| 10215 M00S09169.tfm +++| AMD ENTRY AMEND TAPE CATALOG ENTRY 10216 M00S09170.tfm +++| RJM FTC FIND TAPE CATALOG 10217 M00S09171.tfm +++| ZJN AMD2 IF FILE FOUND 10218 M00S09172.tfm +++| AMD1 ERROR 10219 M00S09173.tfm +++| 10220 M00S09174.tfm +++| AMD2 LDM PESN 10221 M00S09175.tfm +++| ZJN AMD4 IF SYMBOLIC FILE 10222 M00S09176.tfm +++| RESTP CPSI CHECK FOR FIRST VSN 10223 M00S09177.tfm +++| LDM VBRC,BP CHECK FOR FIRST REEL 10224 M00S09178.tfm +++| SHN -6 10225 M00S09179.tfm +++| ZJN AMD3 IF NO REEL COUNT, ASSUME FIRST 10226 M00S09180.tfm +++| SBN 1 10227 M00S09181.tfm +++| ZJN AMD3 IF FIRST OF SET
| Line S09182 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 10228 M01S09182.nos252 ---| LDN /EMSG/ILR *TFM INVALID REQUEST.*
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 10229 M01S00074.nos252 +++| LDN /EMSG/ILR *TFM INCORRECT REQUEST.* 10230 M00S09183.tfm +++| UJN AMD1 SET ERROR CODE 10231 M00S09184.tfm +++| 10232 M00S09185.tfm +++| AMD3 RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 10233 M00S09186.tfm +++| AMD4 RJM CPN CHANGE CHARGE AND PROJECT 10234 M00S09187.tfm +++| RJM NFI CHANGE NEW FILENAME 10235 M00S09188.tfm +++| RJM CAC CHANGE ALTERNATE CATALOG LIST ATTRIBUTE
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/tfm.005.txt · Last modified: by 127.0.0.1