;********************************************************
                ;*  This code will execute as a nop on the Decision 1	*
                ;*  system running either CP/M 2.2 or MICRONIX.	On any	* 		
                ;*  other type of machine, the program will halt execu- *
                ;*  tion as soon as it reaches the subroutine "test".	*
                ;*  This code was cooked up for Stan Reynolds at Neword *
                ;*  for protecting neword in the Decision 1 environment *
                ;*  by Bob Groppo.			-5-18-84-	*
                ;********************************************************
                
 1000           	org	1000h
                
                
                
                ; code must reside in memory above 1000h (registers a,hl and status
                ; are corrupted upon return)
                
                dec1est:	
 1000 CD0510    	call	test
 1003 14        	db	20			; UNIX get pid system call
 1004 C9        	ret
                
                
                
 1005 76        test:	hlt
 1006 76        	hlt
 1007 211510    	lxi	h,return
 100A 221500    	shld	015H			;retore pc for return
 100D 3E1A              mvi     a,01ah
 100F 322100            sta     021h                    ;set run bit
 1012 C31808    	jmp	818h		
                
                
 1015 C9        return: ret
                
 1016           	end