File-Manager/CORE/DEBUG.ASM

PR:	push	iy
	push	ix
	push	hl
	push	de
	push	bc
	push	af
	;push	hl;
	ld	de,1D31h
	ld	c,84h
	rst	08h
	ld	hl,work_buffer+33;256
	ld	c,1Eh
	rst	ToDSS
	;ld	hl,work_buffer+256
	;xor	a
	;ld	c,a
	;ld	b,a
	;cpir
	;dec	hl
	;ex	de,hl
	;pop	hl;
	;call	copy_string
	;
	ld	hl,work_buffer+33;256
	ld	c,5Ch
	rst	ToDSS
	ld	a," "
	call	symb
	ld	a," "
	call	symb
	ld	a," "
	call	symb
	call	wait
	pop	af
	pop	bc
	pop	de
	pop	hl
	pop	ix
	pop	iy
	ret

PR1:	push	af
	ld	de,1D30h
	ld	c,84h
	rst	08h
	pop	af
	jp	HEX1
	;ld	a," "
	;call	symb
	;ld	a,(type_title_qview)
	;jp	HEX1


PR2:	push	iy
	push	ix
	push	hl
	push	de
	push	bc
	push	af
	push	af;
	push	hl;
	ld	de,1D01h
	ld	c,84h
	rst	08h
	pop	hl;
	;ld	c,5Ch
	;rst	ToDSS
	;ld	a," "
	;call	symb
	;ld	a," "
	;call	symb
	;ld	a," "
	;call	symb
	pop	af;
	ld	hl,input_line_copy+4	; áâàãªâãà  áâப¨ ~input line~
	ld	a,(hl)
	call	HEX1
	ld	a," "
	call	symb
	;call	wait
	pop	af
	pop	bc
	pop	de
	pop	hl
	pop	ix
	pop	iy
	ret

PR3:	push	iy
	push	ix
	push	hl
	push	de
	push	bc
	push	af
	ld	de,1D01h
	ld	c,84h
	rst	08h
	ld	a,(depth_tree)		; ­®¬¥à ⥪. ã஢­ï ¢«®¦¥­¨©
	call	HEX1
	pop	af
	pop	bc
	pop	de
	pop	hl
	pop	ix
	pop	iy
	ret





HEXHL:	ld	a,h
	push	hl
	call	HEX1
	pop	hl
	ld	a,l
HEX1:	push	af
	rra
	rra
	rra
	rra
	call	HEX2
	pop	af
HEX2:	and	0Fh
	add	a,90h
	daa
	adc	a,40h
	daa
symb:	ld	c,5Bh			; ¢ë¢®¤ ᨬ¢®«  ­  íªà ­
	jp	int10

newline:ld	a,0Dh
	call	symb			; ¢ë¢®¤ "a" ­  íªà ­
	ld	a,0Ah
	jp	symb


wait:	ld	a,2
	rst	20h
	jr	z,$-3			; ¦¤¥¬ ­ ¦ â¨ï ª« ¢¨è¨
	ret

wait1s:	ld	b,49
	halt
	djnz	$-1
	ret


delay:	push	iy
	push	ix
	push	hl
	push	de
	push	bc
	push	af
	call	wait
	pop	af
	pop	bc
	pop	de
	pop	hl
	pop	ix
	pop	iy
	ret

HEXAF:	push	iy
	push	ix
	push	hl
	push	de
	push	bc
	push	af
	push	af
	ld	de,1D17h
	ld	c,84h
	rst	08h
	pop	af
	call	HEX1
	pop	af
	pop	bc
	pop	de
	pop	hl
	pop	ix
	pop	iy
	ret