;Chapter 3 100K loop Page 111 (MOVB Format)
;Modified and Tested by David Munguia
#include "C:\Reg9s12.H"	;Needed for many Programs

R1	EQU	$1201
R2	EQU	$1202
R3	EQU	$1203
CNT1	EQU	100
CNT2	EQU	100
CNT3	EQU	10

	ORG 	$2000
	MOVB	#$55,DDRB	;Makes Port B an Output
	MOVB	#$55,PORTB	;MOVB assigns a value and location
	MOVB	#CNT3,R3
LOP3	MOVB	#CNT2,R2
LOP2	MOVB	#CNT1,R1
LOP1	COM	PORTB		;Complement PORT B (1's Complement)
	DEC	R1		;Decrement Count R1
	BNE	LOP1		;Uses Z Flag for looping
	DEC	R2
	BNE	LOP2
	DEC	R3
	BNE	LOP3
	END