# 1 "sek0.S"

 
 



.globl _main
_main:
	mov ax,#0x7c0
	mov ds,ax
	mov ax,#0
	cli
	mov ss,ax
	mov sp,#0xffff  
 	sti
	mov ax,#0x1000  
	mov es,ax
	mov bx,#tekst1
	call pisz_tekst
	mov cx,#48 
	push cx
	mov cx,#0
	push cx
	mov cx,#2
	push cx
	mov cx,#0
	push cx
petla:
	pop ax
	mov dh,al
	pop cx
	pop bx
	push bx
	push cx
	push ax
	mov al,#0x01
	mov ah,#0x02
	mov dl,#0
	int #0x13
	jnc dall
	mov bx,#tekst2
	call pisz_tekst

 dall:
	pop ax
	pop cx
	pop bx
	pop dx
	dec dx
	jz etap2
	push dx
	add bx,#0x200
	push bx
	inc cl
	cmp cl,#19
	jne dalej
	mov cl,#1
	xor ax,#1
	jne dalej
	inc ch
 dalej:
	push cx
	push ax
	jmp petla
 etap2: 
	mov ax,#0x600
	mov bh,#7   

	mov cx,#0
	mov dh,#24
	mov dl,#79
	int #0x10
	mov ax,#0x1100
	mov bh,#16
	mov bl,#0
	mov cx,#256
	mov dx,#0
	mov bp,#0
	int #0x10
	mov bx,#tekst3
	call pisz_tekst
	.byte 0xea
	.word 0x1000
	.word 0x1000
 pisz_tekst: 
	mov al,(bx)
	cmp al,#0
	jnz jeszcze
	ret
 jeszcze:
	push bx
	mov bx,#0x70
	mov ah,#0xe
	int #0x10
	pop bx
	inc bx
	jmp pisz_tekst

 tekst1: 
	.ascii "No, startujemy!"
	.byte 10
	.byte 13
	.byte 0
 tekst2: 
	 .ascii "Blad odczytu"
	.byte 10
	.byte 13
	.byte 0
 tekst3:
	.ascii "Już po polsku!"
	.byte 10
	.byte 13
	.byte 0
.org 510
.word 0xaa55
