Trailing-Edge
-
PDP-10 Archives
-
bb-jr93i-bb
-
7,6/ap013/srtscn.c13
There are 10 other files named srtscn.c13 in the archive. Click here to see a list.
INS 26/32 ;13C1
;**;[532] At INIOUT+20. lines, insert 11 lines
IF DISK AND LARGE BUFFER FEATURE
MOVE T1,FILFLG(F) ;[532] GET FILE FLAGS
TXNN T1,FI.DSK ;[532] DISK?
JRST $F ;[532] NO
HRROI T1,.GTLBS ;[532] LARGE BUFFERS ALLOWED?
GETTAB T1, ;[532]
JRST $F ;[532] NO
THEN USE TWO LARGE BUFFERS
MOVEI T1,2 ;[532] 2 BUFFERS
MOVEM T1,OBUFNO ;[532] REMEMBER FOR LATER
FI;
SUM 65289