; Programa Para Desplegar Del 00 Al 99 Con El Siguiente Arreglo.
; Se Hace Uso De Un Solo Puerto.
;
;        74LS48     Display
;         _____      _____ 
;        |     |====|  _  |
;        |   a |====| |_| |
;        |   b |====| |_| |
; ____   | D c |====|_____|
;     |  | C d |
; PA7 |  | B e |
; PA6 |==| A f |
; PA5 |==|   g |
; PA4 |  |_____|
; PA3 |   _____      _____ 
; PA2 |  |     |====|  _  |
; PA1 |==|   a |====| |_| |
; PA0 |==| D b |====| |_| |
; ____|  | C c |====|_____|
;        | B d |
;        | A e |
;        |   f |
;        |   g |
;        |_____|
;
; 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
	SED          ; establecer el micro en modo decimal
	LDA #$FF     ; configurar puerto
	STA $9003    ; configurar puerto
	LDA #$00     ; valor de salida del puerto
NEXT:	STA $9001    ; valor de salida del puerto
	JSR DELAY    ; delay
	ADC #$01     ; A <- A + 1
	JMP NEXT     ; repetir


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