Some infinite loops for the MC6800:

	BRA $FE				HERE:	JMP #HERE

0100:	CLRA				0100:	LDS #SBASE
	PSHA					SWI
	INCA				FFFA:	01
	PSHA				FFFB:	00
	RTS
					0100:	CLRA
0100:	LDS #SBASE				PSHA
	JSR $0100				INCA
						PSHA
0100:	LDS #SBASE				PSHA
	WAI					PSHA
FFF8:	01					PSHA
FFF9:	00					PSHA
FFFC:	01					PSHA
FFFD:	00					RTI


A New WAI:

to call it: 		CLC
			BCC $FE
interrupt subroutine:	PULA
			TAP
			SEC
			TPA
			PSHA
			RTI