;
;	8080 assembler test instruction file
;
	org	100h	;test org pseudo op
label1	equ	$	;test equ pseudo op
	dw	label1	;test defw pseudo op
	db	03fh	;test defb pseudo op form 1
	db	'THIS IS A TEST' ;test defb pseudo op form 2
	ds	55	;test defs pseudo op
;
	ibm	'ASCII FIRST,0DFF,THEN HEX
;
	mov	a,b	;test load
	mvi	a,0ffh
	mov	a,m
	mov	b,c	;test load
	mvi	b,0ffh
	mov	b,m
	mov	m,b
	mov	m,m
	mvi	m,23
	stax	b
	stax	d
	sta	label1
	ldax	b
	ldax	d
	lda	label1

	lxi	b,label1
	lxi	d,label1
	lxi	h,label1
	lxi	sp,label1

	lhld	label1
	shld	label1

	sphl

	push	b
	push	d
	push	h
	push	psw

	pop	b
	pop	d
	pop	h
	pop	psw

	xchg
	xthl

	add	a
	adi	0ffh
	add	m
	adc	a
	aci	0ffh
	adc	m
	sub	a
	sui	0ffh
	sub	m
	sbb	a
	ana	a
	ani	0ffh
	ana	m
	ora	a
	xra	a
	cmp	a

	inr	a
	inr	m
	dcr	m

	dad	b

	inx	b
	inx	d
	inx	h
	inx	sp

	dcx	b
	dcx	d
	dcx	h
	dcx	sp

	rlc
	ral
	rrc
	rar

	daa
	cma
	cmc
	stc
	nop
	hlt
	di
	ei

	jmp	label1
	jnz	label1
	jz	label1
	jnc	label1
	jc	label1
	jpo	label1
	jpe	label1
	jp	label1
	jm	label1

	pchl

	call	label1
	cnz	label1
	cz	label1
	cpo	label1
	cpe	label1

	ret
	rnz
	rz
	rpo

	rst	7

	in	03h
	out	034h

label	jnz $+3 ; test !label2 jmp label ; comment ! lb3:rpo
********************************************************
;*******************************************************
;

file:	xTHL	; comment 17
	XCHg		; comment 25
			; comment 25
	longname		; comment 33
longname				; comment 41
longname::
	xra	a	; comment 25
longname::stc		; comment 25
longname::	stc
;
elab::	lhld	nnnnnnnnnnNnn	; comment 33
longname:stc
longname:	stc
short1::stc ;comment
short:	; comment 9
short	; comment 9
	; comment 9
label	stc!stc! stc	; comment 25
label	stc !stc !stc	; comment 25
label	stc ! stc ! stc	; comment 25
	daa	; comment 17
	end	; comment 17

	end	$
