From bd987a416d42975ed98612345a9fd769556bdbfc Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 3 Jan 2019 11:35:55 +0100 Subject: [PATCH] Increase NAMDRG buffer size for TTYTYP. --- src/sysen2/namdrg.149 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/sysen2/namdrg.149 b/src/sysen2/namdrg.149 index 753678df..5847de28 100755 --- a/src/sysen2/namdrg.149 +++ b/src/sysen2/namdrg.149 @@ -90,6 +90,8 @@ mapmsk==574377776000 ;$t; in ddt types out 10-11 interface map entry ifndef maxtty,maxtty==100 ;max # tty's we can handle. ifndef nontty,nontty==40 ;max # lisp machines + +ifndef ttysiz,ttysiz=5000 ;max size of TTYTYP. loc 41 pushj p,uuoh @@ -1537,7 +1539,7 @@ gttys: .call [ setz [sixbit />/] setz ['syseng]] jsr die - move c,[-5000,,ttyfil] + move c,[-5*ttysiz,,ttyfil] .iot dkic,c skipl c jsr die ;syseng;ttytyp is too big! @@ -2131,7 +2133,7 @@ chsstm: block 10 ;time transaction started sptr: 0 ;byte ptr into output buffer screen: block 95.*37./5+1 ;space for output to be stored till block IOT -ttyfil: block 1000 +ttyfil: block ttysiz pictur: block 455.*18. ;area reserved for picture constants