ack/mach/i80/libem/nop.s

.define .nop
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text

.nop:	push b
	lhld hol0+4
	mov d,h
	mov e,l
	call prstring
	lxi d,lin
	call prstring
	lhld hol0
	call prdec
	lxi d,stpr
	call prstring
	lxi h,0
	dad sp
	call prdec
	lxi d,newline
	call prstring
	pop b
	ret


lin:	.asciz "   lin:"
stpr:	.asciz "   sp:"
newline:.asciz "\n"
* empty log message * 1985-03-18 12:46:51 +00:00			`.define .nop`
adapted to new assembler 1987-01-28 18:57:04 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`
* empty log message * 1985-03-18 12:46:51 +00:00
			`.nop: push b`
			`lhld hol0+4`
			`mov d,h`
			`mov e,l`
			`call prstring`
			`lxi d,lin`
			`call prstring`
			`lhld hol0`
			`call prdec`
			`lxi d,stpr`
			`call prstring`
			`lxi h,0`
			`dad sp`
			`call prdec`
			`lxi d,newline`
			`call prstring`
			`pop b`
			`ret`


			`lin: .asciz " lin:"`
			`stpr: .asciz " sp:"`
			`newline:.asciz "\n"`