                              /part 25a
/test extend mode
/program for core 1

0/	25	/program number

100/	lac i e1	/initial entry from core 0
	sas t1	/if not same,
	hlt	/error
	lac i e2
	sas t2
	hlt	/error
	lac i e3
	sas t3
	hlt	/error
	add i e4	/777000+000777
	sza
	hlt	/error

	lem	/leave extend mode
	jmp i i1	/see that you stay in core 1
	hlt	/error if jump fails

/constants for core 0

200/

t1,	000000
t2,	777777
t3,	777000
t4,	000777

/extend mode pointers

e1,	201	/core 0
e2,	200
e3,	203
e4,	202
e5,	i 6000	/core 1
e6,	3000	/core 0

/indirect pointers for non-extend mode

i1,	i i2
i2,	i i3
i3,	i i4
i4,	4777	/in same core

3000/	hlt	/halt for incorrect jump

4777/	eem	/re-enter extend mode
	jmp i e5	/extended address in same core
	hlt	/in case jump fails

6000/	law 3000	/points to halt for incorrect jump
	jmp i e6	/return to core 0
	hlt	/in case of jump failure

/end of core 1 program
start 100
                                                  
                                                
