Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
vmser.c13
There are no other files named vmser.c13 in the archive.
REP 35/97 ;13C1
; MOVEI T2,NUMBER OF BYTES
WIT
; MOVEI T2,NUMBER OF BYTES (SET SIGN BIT TO CHECK FOR WRITABILITY TOO)
INS 48/97 ;13C2
TLZ P2,400000 ;AND CLEAR FLAG IN COUNT
INS 58/97 ;13C3
JUMPGE T2,CHKBPN ;IF CHECKING FOR I/O LEGAL
TLZ M,-1 ;MAKE IT NOTHING BUT ADDRESS
CAIG M,JOBPFI## ;SEE IF IT'S IN PROTECTED JOBDAT
POPJ P, ;IT IS. NOT I/O LEGAL THEN.
REP 61/97 ;13C4
TRO M,777 ;POINT M AT THE LAST WORD IN THAT PAGE
WIT
JUMPGE T2,CHKBP1 ;WANT TO TEST FOR WRITABILITY TOO?
UMOVEM T1,(M) ;YES, TRY WRITING
ERJMP CPOPJ## ;DIDN'T WORK, NOT I/O LEGAL THEN
CHKBP1: TRO M,777 ;POINT M AT THE LAST WORD IN THAT PAGE
SUM 2127