         /part 2
/test hlt, jmp, szs

0/

	2	/program number
stt,	hlt	/only test for hlt
	jmp 3000	/start of jump test
	hlt	/if jmp fails

ss,

define ztest a
	szs i a
	szs a
	hlt
terminate

	ztest 10	/test szs and szs i
	ztest 20	/with all switches off
	ztest 30
	ztest 40
	ztest 50
	ztest 60
	ztest 70	/all switches

	jmp stt 1	/resume jump test

define ntest a
	szs a
	szs i a
	hlt
terminate

a,

	ntest 10	/test szs and szs i
	ntest 20	/with all switches on
	ntest 30
	ntest 40
	ntest 50
	ntest 60
	ntest 70	/all switches

	jmp a	/iterate test

3000/

	jmp 4777	/part of jump test
	hlt	/if jmp fails

4777/

	jmp 6000	/diddle program counter
	hlt	/if jmp fails

6000/








                        	jmp ss	/leave jump test, test switches
	hlt	/if jmp fails

foo,

start stt
                                                                            
                                                                   
