Common COMPSFB

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsfb +++|          CTEXT  COMPSFB - SET FILE BUSY.
00002  M00S00002.compsfb +++| SFB      SPACE  4
00003  M00S00003.compsfb +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsfb +++|          QUAL   COMPSFB

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compsfb +++| SFB      SPACE  4
00008  M00S00007.compsfb +++|***       SFB - SET FILE BUSY.
00009  M00S00008.compsfb +++|*         G. R. MANSFIELD.  70/08/30.
00010  M00S00009.compsfb +++| SFB      SPACE  4
00011  M00S00010.compsfb +++|***              *SFB* SETS THE SPECIFIED LOCAL FILE TO BUSY STATUS.
00012  M00S00011.compsfb +++|*
00013  M00S00012.compsfb +++|*         ENTRY  (FA) = RELATIVE ADDRESS OF FNT ENTRY IN NFL.
00014  M00S00013.compsfb +++|*                (FS - FS+4) = FNT ENTRY.
00015  M00S00014.compsfb +++|*
00016  M00S00015.compsfb +++|*         EXIT   (FS - FS+4) = FST ENTRY.
00017  M00S00016.compsfb +++|*                (CM - CM+4) = FNT ENTRY.
00018  M00S00017.compsfb +++|*                (A) = 1 IF FILE INTERLOCK REJECT.
00019  M00S00018.compsfb +++|*                (A) = 2 IF FILE COMPARE FAILURE.
00020  M00S00019.compsfb +++|*
00021  M00S00020.compsfb +++|*         USES   CM - CM+4, FS - FS+4.
00022  M00S00021.compsfb +++|*
00023  M00S00022.compsfb +++|*         MACROS MONITOR, NFA.
00024  M00S00023.compsfb +++|
00025  M00S00024.compsfb +++|
00026  M00S00025.compsfb +++| SFB2     NFA    FA,R        READ FNT WORD
00027  M00S00026.compsfb +++|          CRD    CM
00028  M00S00027.compsfb +++|          ADN    FSTL        READ FST WORD
00029  M00S00028.compsfb +++|          CRD    FS
00030  M00S00029.compsfb +++|          LDN    0           SET NO REJECT EXIT
00031  M00S00030.compsfb +++|
00032  M00S00031.compsfb +++| SFB      SUBR               ENTRY/EXIT
00033  M00S00032.compsfb +++|          LDD    MA          WRITE FNT ENTRY
00034  M00S00033.compsfb +++|          CWD    FS

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.ns22000 +++|          LDN    ZERL
00036  M01S00002.ns22000 +++|          CRD    CM
00037  M00S00034.compsfb +++|
00038  M00S00035.compsfb +++|          LDD    FA          SET FILE BUSY
00039  M00S00036.compsfb +++|          STD    CM+4

Line S00037 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00037.ns22000 ---|          LDN    0
00041  M01S00038.ns22000 ---|          STD    CM+3
00042  M00S00039.compsfb +++|          MONITOR SFBM
00043  M00S00040.compsfb +++|          LDD    CM+1
00044  M00S00041.compsfb +++|          ZJN    SFB2        IF FILE MADE BUSY
00045  M00S00042.compsfb +++|          UJN    SFBX
00046  M00S00043.compsfb +++|          SPACE  4
00047  M00S00044.compsfb +++| QUAL$    IF     -DEF,QUAL$
00048  M00S00045.compsfb +++|          QUAL   *
00049  M00S00046.compsfb +++| SFB      EQU    /COMPSFB/SFB
00050  M00S00047.compsfb +++| QUAL$    ENDIF
00051  M00S00048.compsfb +++|          ENDX