Commit ac9bf3db authored by Neil Turton's avatar Neil Turton
Browse files

Import from SrcFiler

parent 20b095ff
......@@ -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
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment