; Programa Para Visualizar Del 0 Al 9 En Un Display De 7 Segmentos
;
;
;  g f GND a b
;  | |  |  | |
;  ___________
; |   _   a   |
; |  |_| fgb  |
; |  |_|.edc  |
; |___________|
;
;  | |  |  | |
;  e d GND c . 
;
; Gilberto Stankiewicz
; http://www.stan.com.mx
; Abril 2008
; 6502 Macroassambler & Simulator
; http://home.pacbell.net/michal_k/
;
; Puerto         A       B
; Configuracion  $9003   $9002
; Valor          $9001   $9000
;
	.ORG $0400
START:	LDX #$00     ; X <- 0
NEXT:	LDA #$FF     ; configurar puerto
	STA $9003    ; configurar puerto
	LDA SEVEN,X  ; valor de salida del puerto (A <- (SEVEN + X))
	STA $9001    ; valor de salida del puerto
	INX          ; X <- X + 1
	CPX #$0A     ; si el registro X es 0x0A ..
	BEQ START    ; otra vez desde el cero
	JMP NEXT     ; repetir


DELAY:	LDX #$04
LOOPX:	LDY #$FF
LOOPY:	DEY
	BNE LOOPY
	DEX 
	BNE LOOPX
	RTS


SEVEN:	.DB $C0      ; la directiva .DB reserva un byte (8 bits)
	.DB $F9      ; la directiva .DW reserva una palabra (16 bits)
	.DB $A4
	.DB $B0
	.DB $99
	.DB $92
	.DB $82
	.DB $F8
	.DB $80
	.DB $98