;
; Sample source file for the Intel 8080
;
; (this program does not do anything, it is only an example)
;
	title	Sample source file
;
; Definitions
;
cr	equ	0dh	;carriage return
lf	equ	10	;line feed
RAM:	equ	2000h	;memory start
ppi0	equ	8000h	;ppi 0
crppi0	equ	ppi0+1	;control register
srppi0	equ	ppi0+2	;status register
flag	equ	123     ;flag bit
offset	set	0
;
; Variables
;
	org	RAM	;variables
key	ds	16	;key buffer
loop1:
offset	set	9
;
; Program
;
	mvi	a,'*'
	daa
	push	d
	lxi	bc,messg1+offset
	jc	loop1
	out	10
	lxi	d,messg1+offset
	call	delay
	jmp	loop1
;
; Delay routine
;
delay:	dcr	h
	jnz	delay
	ret
;
; Dummy data
;
routines dw 1234h,0f800h,0 ;routine addresses
messg1	db	cr,lf,'String no 1.',0
messg2	db	cr,lf,lf,'Press a key.',0
	end