; Examinar Los Contenidos Desde $0040 Hasta $0060
; Y Guardar El Valor Más Grande En $00FF
; Gilberto Stankiewicz
; http://www.stan.com.mx
; Marzo 2008
; 6502 Macroassambler & Simulator
; http://home.pacbell.net/michal_k/
;
	.ORG $0400
	; llenar algunas localidades entre $0040 y $0060
	LDA #$10
	STA $0040
	LDA #$03
	STA $0041
	LDA #$19
	STA $005F
	LDA #$87
	STA $0060
	
	; buscar el valor mas grande
	LDA $0040    ; A = *($0040)
	LDX #$01     ; X = 1
BUSCAR:	CMP $0040,X  ; C = (A > *($0040 + X) ? 1 : 0)
	BCS SALTAR   ; if (C == 1)
	LDA $0040,X  ; A = *($0040 + X)
SALTAR:	INX          ; X++
	CPX #$21     ; Z = (X == 0x21 ? 1 : 0)
	BNE BUSCAR   ; if (Z == 0)
	STA $00FF    ; $00FF = A
	RTS          ; return