Trailing-Edge
-
PDP-10 Archives
-
CFS_TSU04_19910205_1of1
-
update/ftnosr/extck2.mac
There is 1 other file named extck2.mac in the archive. Click here to see a list.
SEARCH MTHPRM,FORPRM,MACSYM
TV EXTCK2 Check whether running with extended addressing
SUBTTL CDM
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1986, 1987
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
HELLO (EXTCK2)
PUSH P,T2 ;Save me!
PUSH P,T3
MOVE T1,[.FHSLF,,100] ;Source section
MOVE T2,[.FHSLF,,1000] ;Destination section
MOVE T3,[PM%RD+PM%WR] ;Access bits, repetition count
PMAP% ;Process page
ERJMP BADPMAP ;Bad page number, must not be extended
SETO T0 ;True, must be KL with extended addressing
JRST RET
BADPMAP:
SETZ T0 ;False, must be be KS or something without...
RET: POP P,T3 ;Restore me!
POP P,T2
POPJ P, ;Return to caller
END