TITLE	PROGRAMA DE EXPERIMENTO DE BUZON
 
ABRE		EQU	FF0D
ESCR		EQU	FF1D
LEE		EQU	FF4B
CIERRA		EQU	FF15
BUZON		EQU	6000
 
		ORG	1000
MENSAJE:	DEFM	"SOY LA PRUEBA"
		DEFB	0A,0D,0FF
LLEGADA:	DEFS	30
 
		ORG	0000
INICIO:		
		LDSP	5000
		CALL	ABRE
		LDX	MENSAJE
		CALL	ESCR
		CALL	LEE
		LDY	LLEGADA
		LD	#10
NO:		PUSH	A
		LD	X
		STO	Y
		INX
		INY
		POP	A
		SUB	#1
		JNZ	NO
 
		CALL	LEE
		CALL	ESCR
 
		CALL	CIERRA
		HALT		

    Source: geocities.com/v.iniestra/apuntes/arq_proc

               ( geocities.com/v.iniestra/apuntes)                   ( geocities.com/v.iniestra)