Okay, didn't get around cleaning it up yet and not sure if this helps, but this is an example of what i did: ; scratch "TEMP" lda #FLOPPYMW - scratch ldx #<scratch ldy #>scratch jsr $ffbd; SETNAM lda #$6f; secondary address: command/error channel sta $b9 lda #$20; LISTEN jsr sendslow jsr $f3e6; send secondary address and filename lda #$3f; UNLISTEN jsr sendslow jsr $ee03; clear ATN [...] sendslow ora $ba sta $95 lda $dd00 and #%11001111 ora #%00001000 sta $dd00 - bit $dd00 bpl - sei jmp $ed5a; send byte
; scratch "TEMP" lda #FLOPPYMW - scratch ldx #<scratch ldy #>scratch jsr $ffbd; SETNAM lda #$6f; secondary address: command/error channel sta $b9 lda #$20; LISTEN jsr sendslow jsr $f3e6; send secondary address and filename lda #$3f; UNLISTEN jsr sendslow jsr $ee03; clear ATN [...] sendslow ora $ba sta $95 lda $dd00 and #%11001111 ora #%00001000 sta $dd00 - bit $dd00 bpl - sei jmp $ed5a; send byte
sendslow ora $ba sta $95 lda $dd00 and #%11001111 ora #%00001000 sta $dd00 - bit $dd00 bpl - ldx #$b8 - dex bne - sei jmp $ed5a; send byte
CLEAR_DATA_OUT_CLEAR_CLK_OUT_ASSERT_ATN : SET_FLAGS_N_DATA_V_CLK bpl :- ldx #$b8; delay : dex ; of bne :- ; ~1 ms lda FA sta DFLTO ora #SA_LISTEN sta BSOUR sei jsr NOEOI; send byte