There are 2 other files named forerr.c17 in the archive. Click here to see a list.
REP 2/1 ;17C1
TV FORERR ERROR HANDLER,11(5025)
TV FORERR ERROR HANDLER,11(5030)
INS 481/1 ;17C2
***** 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 ;17C3
; If address of string and FOROTS are in section 0 then use
; a local byte pointer instead of a One Word Global (OWGBP).
TLNE T2,000037 ;Is address in Non-Zero section?
JRST SIXLOP ;It's non-zero! use a OWGBP
;String is in Sect 0 where's OTS
XMOVEI T1,. ;What section are we running in?
TLNN T1,000037 ;Is it section zero also?
HLL T2,[POINT 6] ;Yes, use a local BP
;No,then use the OWGBP