;Chapter 3 100K loop Page 111
;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
	LDAA	#$FF
	STAA	DDRB	;Make Port B an Output
	LDAA	#$55
	STAA	PORTB	;Port names can change from PORTx to PTx (Dragon 12)
	LDAA	#CNT3	;Load A with CNT3 value
	STAA	R3	;Send CNT3 to Ram
LOP3	LDAA	#CNT2	
	STAA	R2
LOP2	LDAA	#CNT1	
	STAA	R1
LOP1	COM	PORTB	;Complement Port B (1's Complement)
	DEC	R1	;Decrement Counter R1
	BNE	LOP1	;Branch Not Equal-Uses Z-flag for Loop Count
	DEC	R2
	BNE	LOP2
	DEC	R3
	BNE	LOP3	
	END