LDA #$01
              LDX #$90   ; "#"
              LDY #$01
              JSR $FFBD  ; Set length and FN address";
              JSR $FFC0  ; Open logical file"
              LDA #$0F
              LDX #$08
              LDY #$0F
              JSR $FFBA  ; Set LA, FA, SA";
              LDA #$0C
              LDX #$91   ; "U1 2 0 22 10"
              LDY #$01
              JSR $FFBD  ; Set length and FN address";
              JSR $FFC0  ; Open logical file";
              LDA #$08
              JSR $FFB4  ; Send TALK out serial bus or DMA disk";
              LDA #$6F
              JSR $FF96  ; Send SA after TALK";
              JSR $FFA5  ; Handshake serial bus or DMA disk byte in";
              ADC #$CE
              STA $D8    ; Load-Adr L
-             JSR $FFA5  ; Handshake serial bus or DMA disk byte in";
              ADC #$F4
              STA $D9    ; Load Adr H
              JSR $FFA5  ; Handshake serial bus or DMA disk byte in";
              CMP #$0D
              BNE -
              JSR $FFAB  ; Send UNTALK out serial bus or DMA disk";
              LDA #$08
              JSR $FFB4  ; Send TALK out serial bus or DMA disk";
              LDA #$62
              JSR $FF96  ; Send SA after TALK";
              LDY #$00
-             JSR $FFA5  ; Handshake serial bus or DMA disk byte in";
              EOR ($D8),Y
              STA ($D8),Y
              INY
              BNE -