Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_ap115_bb-ju01b-bb
-
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