$F1A9/61865:   Find free sector and allocate

F1A9: A9 01     LDA #$01
F1AB: 0D F9 02  ORA $02F9
F1AE: 8D F9 02  STA $02F9
F1B1: A5 86     LDA $86
F1B3: 48        PHA
F1B4: A9 01     LDA #$01
F1B6: 85 86     STA $86
F1B8: AD 85 FE  LDA $FE85
F1BB: 38        SEC
F1BC: E5 86     SBC $86
F1BE: 85 80     STA $80
F1C0: 90 09     BCC $F1CB
F1C2: F0 07     BEQ $F1CB
F1C4: 20 11 F0  JSR $F011
F1C7: B1 6D     LDA ($6D),Y
F1C9: D0 1B     BNE $F1E6
F1CB: AD 85 FE  LDA $FE85
F1CE: 18        CLC
F1CF: 65 86     ADC $86
F1D1: 85 80     STA $80
F1D3: E6 86     INC $86
F1D5: CD D7 FE  CMP $FED7
F1D8: 90 05     BCC $F1DF
F1DA: A9 67     LDA #$67
F1DC: 20 45 E6  JSR $E645
F1DF: 20 11 F0  JSR $F011
F1E2: B1 6D     LDA ($6D),Y
F1E4: F0 D2     BEQ $F1B8
F1E6: 68        PLA
F1E7: 85 86     STA $86
F1E9: A9 00     LDA #$00
F1EB: 85 81     STA $81
F1ED: 20 FA F1  JSR $F1FA
F1F0: F0 03     BEQ $F1F5
F1F2: 4C 90 EF  JMP $EF90
F1F5: A9 71     LDA #$71
F1F7: 20 45 E6  JSR $E645

    Previous Page / Next Page