Import from SrcFiler

Version

@@ -4,8 +4,8 @@
         GBLS    VString
         GBLS    Date
 
-Version SETA    024
-VString SETS    "0.24"
-Date    SETS    "31 Oct 1994"
+Version SETA    025
+VString SETS    "0.25"
+Date    SETS    "22 May 1996"
 
         END

s/Buffers

@@ -88,6 +88,7 @@
 ; 03-Jun-93 0.23 SMC Added new direct call interface.  InsV and RemV can still be used
 ;                      but the new interface is much faster.
 ;
+; 22-May-96 0.25 RWB Clear buffer NotDormant flag on removal of last byte/block from buffer.
 
                 GET     Hdr:ListOpts
                 GET     Hdr:Macros
@@ -108,6 +109,7 @@
                 GBLL    debug
                 GBLL    stopdeath
                 GBLL    international
+		GBLL	dormant_on_last_byte
 
  [ :LNOT: :DEF: standalonemessages
                 GBLL    standalonemessages
@@ -118,6 +120,7 @@ hostvdu         SETL    true
 debug           SETL    false
 stopdeath       SETL    true
 international   SETL    true
+dormant_on_last_byte SETL true
 
 init            SETD    false
 final           SETD    false
@@ -1725,6 +1728,11 @@ RemExByteCommon
         TEQ     r7, r8                          ; if ins<>rem
         BNE     %FT30                           ; then not empty
 
+ [ dormant_on_last_byte
+        BICEQ   r4, r4, #b_NotDormant
+        STREQ   r4, [r11, #buffer_Flags]        ; then mark as dormant
+ ]
+
         TST     r4, #b_GenerateOutputEmpty      ; if buffer empty events disabled
         BEQ     %FT30                           ; then skip
 
@@ -1833,6 +1841,10 @@ RemExBlockCommon
         TEQ     r7, r8                          ; if ins^<>rem^ (buffer not empty)
         BNE     %FT90                           ; then exit
 
+ [ dormant_on_last_byte
+        BICEQ   r4, r4, #b_NotDormant
+        STREQ   r4, [r11, #buffer_Flags]        ; then mark as dormant
+ ]
         TST     r4, #b_GenerateOutputEmpty      ; if output empty events disabled
         BEQ     %FT80                           ; then exit
 
@@ -2024,6 +2036,12 @@ s_PurgeBuffer   ROUT                            ; r11 and return address already
         CMP     lr, r5                          ; if space >= threshold
         BLHI    SendEmptyingUpCall              ; then issue UpCall
 10
+
+ [ dormant_on_last_byte
+        BIC	r4, r4, #b_NotDormant
+        STR	r4, [r11, #buffer_Flags]        ; then mark as dormant
+ ]
+
         TEQP    r6, #0                          ; restore old IRQ state
         Pull    "r4-r6,r11,pc"