;
; Sample source file for the Intel 8096
;
; (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
;
; Registers
;
	org	1ch
ax	dsw	1
dx	dsw	1
bx	dsw	1
cx	dsw	1
al	equ	ax
ah	equ	ax+1
;
offset	set	0
;
; Variables
;
	org	RAM	;variables
key	dsb	16	;key buffer
routi   dsw	2	;routines address space
loop1:
offset	set	9
;
; Program
;
	ldb	al,#'*'
	ld	bx,[cx]
	addb	ah,al,[bx]+
	mulb	ax,12[ax]
	jle	loop1
	nop
	lcall	delay
	sjmp	loop1
;
; Delay routine
;
delay:	djnz	ah,delay
	ret
;
; Dummy data
;
routines dcw 1234h,0f800h,0 ;routine addresses
messg1	dcb	cr,lf,'String no 1.',0
messg2	dcb	cr,lf,lf,'Press a key.',0
	end