; Produce patterns on the HP48SX display.

 swap.a c,d0		; Save d0, d1
 push.a	c
 swap.a c,d1
 push.a c


; Now we can manipulate the screen
 move.p5	0x7097c,a
 move.p5	2176,c
 add.a		a,c
 move.a		c,r1		; r1 is stopping address
 move.p2	0xff, a
 move.w		a,r2		; r2 is value to store
 move.p5	256,a
 move.a		a,r3		; r3 is global count

outer:				; Outer loop
 move.p5	0x7097c,a
 move.a		a,r0		; r0 is current address
 
lupe:
 move.a		r0,a		; Store value
 move.a		a,d0
 move.a		r2,a
 move.2		a,@d0

; Increment address
 move.a		r0,a
 move.a		r1,c
 inc.a		a
 inc.a		a
 move.a		a,r0

; Loop
 brgt.a		c,a,lupe

; Change pattern
 move.b		r2,a
 dec.b		a
 move.b		a,r2

; Outer loop
 move.a		r3,a
 dec.a		a
 move.a		a,r3
 brnz.a		a,outer

; return to the next RPL Instruction
 pop.a	c
 swap.a	c,d1
 pop.a	c
 swap.a	c,d0
 move.a @d0,a
 add.a	5,d0
 jump	@a