; Function defined on pp272-273 of C64 Programmers Reference Guide
	;; See also http://www.zimmers.net/anonftp/pub/cbm/programming/serial-bus.pdf

;; XXX rework this, according to pagetable.com

open:

	;; LAT / FAT / SAT support implemented according to
	;; 'Compute's Mapping the Commodore 64', page 52

	;; Check if we have space in tables

	ldy LDTND
	cpy #$0A
	bcs +
	bmi open_has_space
*
	;; Table is full - according to https://codebase64.org/doku.php?id=base:kernalreference
	;; C flag set means error occured
	sec
	rts

open_has_space:

	;; Update the tables

	lda current_logical_filenum
	sta LAT, y
	lda current_device_number
	sta FAT, y
	lda current_secondary_address
	sta SAT, y

	iny
	sty LDTND

	;; Kernal API is shared between several types of devices - we have
	;; to dispatch the call to appropriate subroutine

	lda current_device_number
	beq open_keyboard
	cmp #$01
	beq open_tape
	cmp #$02
	beq open_rs232
	cmp #$03
	beq open_screen
	cmp #$1F
	bcs +
	bmi open_iec
*
	;; Device numbers over 30 are not allowed on IEC bus

	;; FALLTHROUGH to error routine

open_keyboard:
open_tape:
open_screen:

	;; XXX implement support for these devices
	lda #$05 ; device not present
	sta IOSTATUS
	rts
	
open_rs232:

	;; XXX implement support for RS-232
	lda #$FF ; set every single error bit to discourage using RS-232
	sta RSSTAT
	rts

open_iec:

	;; Part implemented according to https://www.pagetable.com/?p=1031, https://github.com/mist64/cbmbus_doc
	;; XXX note: this is only a temporary test implementation, real 'open' does not send anything to IEC,
	;; see http://www.zimmers.net/anonftp/pub/cbm/programming/serial-bus.pdf

	;; Disable IRQs, since timing matters!
	sei

	;; Begin sending under attention
	;; XXX jsr iec_assert_atn

	;; Request device to talk
	lda current_device_number
	jsr talk
	bcs open_iec_error

	;; Send secondary address
	lda current_secondary_address
	jsr second
	bcs open_iec_error

	;; Turnaround
	jsr iec_turnaround_to_listen
	bcs open_iec_error

	jsr printf
	.byte "DBG: TURNAROUND SUCCEEDED", $0D, 0
	
	;; Indicate success
	lda #$00
	clc

open_iec_error:
	;; Re-enable interrupts and return
	;; (iec_tx_byte will have set/cleared C flag and put result code
	;; in A if it was an error).
	cli
	rts