10 IFE ITS,.INSRT STENEX >
13 .GLOBAL P.CORE,P.TOP,PHIBOT,PURBOT,FRETOP,SQKIL,GCFLG,KILBUF
16 ; .CORE AND .SUSET [.RMEMT,,---] FOR PAGED ENVIRONMENT
30 CAMLE A,PURBOT ; A CAML HERE IS OBSERVED TO LOSE
31 FATAL BAD ARG TO GET CORE
32 MOVE A,-4(P) ; RESTORE A
33 HRRZ B,P.TOP ; GET FIRST ADDRESS ABOVE TOP
34 ASH B,-10. ; TO BLOCKS
35 CAIG A,(B) ; SKIP IF GROWING
37 SUBM B,A ; A/ -NUMBER OF BLOCKS TO GET
38 HRLI B,(A) ; AOBJN TO BLOCKS
43 P.COR2: ASH B,10. ; TO WORDS
44 MOVEM B,P.TOP ; NEW TOP
45 POPBJ1: AOS -6(P) ; SKIP RETURN ON SUCCESS
57 JUMPE B,POPBJ1 ; SUCCESS, YOU ALREADY HAVE WHAT YOU WANT
85 FATAL BAD ARG TO GET CORE
92 HRRZ B,P.TOP ; GET P.TOP
95 SOJA B,P.CORD ; CORING DOWN
96 HRLI B,MFORK ; SET UP FORK POINTER
98 CAML D,(P) ; SEE IF DONE
102 JRST P.COR2 ; LOOP BACK
103 P.COR1: POP P,A ; RESTORE NEW P.TOP
115 P.CORD: HRLI B,400000