;;
;; Official Kernal routine, described in:
;;
;; - [RG64] C64 Programmer's Reference Guide   - page 281
;; - [CM64] Compute's Mapping the Commodore 64 - page 230
;;
;; CPU registers that has to be preserved (see [RG64]): .Y
;;


clall:

	;; Store .Y register
	tya
	pha

	;; Original routine probably just sets LDTND to 0, but this is not really safe,
	;; so we actually close all the channels; at least IDE64 does the same for
	;; it's channels, see CLALL description in the IDE64 User's Guide
*
	ldy LDTND
	beq +
	dey
	lda LAT, y
	jsr close ; XXX jump through ICLOSE?
	jmp -
*
	;; Restore .Y register
	pla
	tay

	;; 'C64 Programmers Reference Guide', page 281, claims it calls CLRCHN too
	jsr clrchn
	
	;; Not sure whether original Kernal does so, but it seems sane to also clear possible errors
	jmp kernalstatus_reset