Common COMPSFB

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compsfb +++|          CTEXT  COMPSFB - SET FILE BUSY.
00002  M01S00002.compsfb +++| SFB      SPACE  4
00003  M01S00003.compsfb +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compsfb +++|          QUAL   COMPSFB

Line S00005 Modification History
`M01` (Added by)	`compsfb`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compsfb +++| SFB      SPACE  4
00008  M01S00007.compsfb +++|***       SFB - SET FILE BUSY.
00009  M01S00008.compsfb +++|*         G. R. MANSFIELD.  70/08/30.
00010  M01S00009.compsfb +++| SFB      SPACE  4
00011  M01S00010.compsfb +++|***              *SFB* SETS THE SPECIFIED LOCAL FILE TO BUSY STATUS.
00012  M01S00011.compsfb +++|*
00013  M01S00012.compsfb +++|*         ENTRY  (FA) = RELATIVE ADDRESS OF FNT ENTRY IN NFL.
00014  M01S00013.compsfb +++|*                (FS - FS+4) = FNT ENTRY.
00015  M01S00014.compsfb +++|*
00016  M01S00015.compsfb +++|*         EXIT   (FS - FS+4) = FST ENTRY.
00017  M01S00016.compsfb +++|*                (CM - CM+4) = FNT ENTRY.
00018  M01S00017.compsfb +++|*                (A) = 1 IF FILE INTERLOCK REJECT.
00019  M01S00018.compsfb +++|*                (A) = 2 IF FILE COMPARE FAILURE.
00020  M01S00019.compsfb +++|*
00021  M01S00020.compsfb +++|*         USES   CM - CM+4, FS - FS+4.
00022  M01S00021.compsfb +++|*
00023  M01S00022.compsfb +++|*         MACROS MONITOR, NFA.
00024  M01S00023.compsfb +++|
00025  M01S00024.compsfb +++|
00026  M01S00025.compsfb +++| SFB2     NFA    FA,R        READ FNT WORD
00027  M01S00026.compsfb +++|          CRD    CM
00028  M01S00027.compsfb +++|          ADN    FSTL        READ FST WORD
00029  M01S00028.compsfb +++|          CRD    FS
00030  M01S00029.compsfb +++|          LDN    0           SET NO REJECT EXIT
00031  M01S00030.compsfb +++|
00032  M01S00031.compsfb +++| SFB      SUBR               ENTRY/EXIT
00033  M01S00032.compsfb +++|          LDD    MA          WRITE FNT ENTRY
00034  M01S00033.compsfb +++|          CWD    FS
00035  M01S00001.ns22000 +++|          LDN    ZERL
00036  M01S00002.ns22000 +++|          CRD    CM
00037  M01S00034.compsfb +++|
00038  M01S00035.compsfb +++|          LDD    FA          SET FILE BUSY
00039  M01S00036.compsfb +++|          STD    CM+4

Line S00037 Modification History
`M01` (Added by)	`compsfb`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00037.ns22000 ---|          LDN    0

Line S00038 Modification History
`M01` (Added by)	`compsfb`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00038.ns22000 ---|          STD    CM+3
00042  M01S00039.compsfb +++|          MONITOR SFBM
00043  M01S00040.compsfb +++|          LDD    CM+1
00044  M01S00041.compsfb +++|          ZJN    SFB2        IF FILE MADE BUSY
00045  M01S00042.compsfb +++|          UJN    SFBX
00046  M01S00043.compsfb +++|          SPACE  4
00047  M01S00044.compsfb +++| QUAL$    IF     -DEF,QUAL$
00048  M01S00045.compsfb +++|          QUAL   *
00049  M01S00046.compsfb +++| SFB      EQU    /COMPSFB/SFB
00050  M01S00047.compsfb +++| QUAL$    ENDIF
00051  M01S00048.compsfb +++|          ENDX