[BITS 16]
[section text]

org 100h

jmp _main

global _main
global _putc

%include "io.asm"



_main:
	push bp
	mov bp,sp
	push byte 0
	push byte 'A'
	push byte 0
	push byte 'A'
	cpop ah
	cpop al
	cmp al,ah
	je L1
	mov ax,word 0
	jmp L2
L1:	
	mov ax,word 1
L2:	
	cmp ax,word 0
	je L3
	push byte 0
	push byte 'A'
	call _putc
	add sp,word 2
	jmp L0
L3:	
L0:	
	mov ax,word 0
	leave
	ret



[section data]
