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 -
Letzte Änderung: 2019-01-04 12:58:39