; Programa per a comprovar el funcionament del PSP i dels registres
; i veure com primer de tot el ES apunta a el PSP i s'ha
; de guardar si es vol accedir al primer, veure la forma d'indexar
; els registres de segment (es,(ds,cs,ss ??))
;i veure com passem contingut (@) de es a ds per fer be la interrupcio




DosCall	MACRO 	Serv
	MOV	AH,Serv
	INT	21h
ENDM
;
;
; Macro para inicializar DS apuntando al segmento data
InitDS	MACRO
		MOV	AX,data
		MOV	DS,AX
	; establece direccionamiento segmento de datos
		ASSUME DS:data
ENDM
;
pila	SEGMENT para stack 'STACK'
		DB	256 DUP(0)
pila	ENDS
;
data	SEGMENT word public 'DATA'
data	ENDS
;
code	SEGMENT byte public 'CODE'
	ASSUME CS:code
main	PROC	far
	;
	; Prólogo estándar del programa
	;
	InitDS
	mov di,80h
	mov cl,es:[di]
	inc di
	mov dx,di
	mov ax,es
	mov ds,ax
	mov ch,0
	add di,cx
	mov byte ptr es:[di],10
	inc di
	mov byte ptr es:[di],13
	inc di
	mov byte ptr es:[di],'$'
	add cx,2
	

	mov bx,1
	mov al,0
	DosCall 40h

	DosCall 4Ch

main 	ENDP
code	ENDS
	END	main