Trailing-Edge
-
PDP-10 Archives
-
bb-jr93f-bb
-
7,6/ap016/forerr.c16
There are 8 other files named forerr.c16 in the archive. Click here to see a list.
REP 2/1 ;16C1
TV FORERR ERROR HANDLER,11(5025)
WIT
TV FORERR ERROR HANDLER,11(5030)
INS 481/1 ;16C2
***** End V10 Development *****
5030 MRB 21-Jan-87
Change routine SIXPTR not to use OWGBP all the time. When
the address of the string and FOROTS are both in section
zero then use a local BP (in case we're running on a KS).
INS 109/6 ;16C3
;[5030] If address of string and FOROTS are in section 0 then use
;[5030] a local byte pointer instead of a One Word Global (OWGBP).
TLNE T2,000037 ;[5030]Is address in Non-Zero section?
JRST SIXLOP ;[5030]It's non-zero! use a OWGBP
;[5030]String is in Sect 0 where's OTS
XMOVEI T1,. ;[5030]What section are we running in?
TLNN T1,000037 ;[5030]Is it section zero also?
HLL T2,[POINT 6] ;[5030]Yes, use a local BP
;[5030]No,then use the OWGBP
SUM 70589