$F11E/61726:   Find and allocate free block

F11E: 20 3E DE  JSR $DE3E
F121: A9 03     LDA #$03
F123: 85 6F     STA $6F
F125: A9 01     LDA #$01
F127: 0D F9 02  ORA $02F9
F12A: 8D F9 02  STA $02F9
F12D: A5 6F     LDA $6F
F12F: 48        PHA
F130: 20 11 F0  JSR $F011
F133: 68        PLA
F134: 85 6F     STA $6F
F136: B1 6D     LDA ($6D),Y
F138: D0 39     BNE $F173
F13A: A5 80     LDA $80
F13C: CD 85 FE  CMP $FE85
F13F: F0 19     BEQ $F15A
F141: 90 1C     BCC $F15F
F143: E6 80     INC $80
F145: A5 80     LDA $80
F147: CD D7 FE  CMP $FED7
F14A: D0 E1     BNE $F12D
F14C: AE 85 FE  LDX $FE85
F14F: CA        DEX
F150: 86 80     STX $80
F152: A9 00     LDA #$00
F154: 85 81     STA $81
F156: C6 6F     DEC $6F
F158: D0 D3     BNE $F12D
F15A: A9 72     LDA #$72
F15C: 20 C8 C1  JSR $C1C8
F15F: C6 80     DEC $80
F161: D0 CA     BNE $F12D
F163: AE 85 FE  LDX $FE85
F166: E8        INX
F167: 86 80     STX $80
F169: A9 00     LDA #$00
F16B: 85 81     STA $81
F16D: C6 6F     DEC $6F
F16F: D0 BC     BNE $F12D
F171: F0 E7     BEQ $F15A
F173: A5 81     LDA $81
F175: 18        CLC
F176: 65 69     ADC $69
F178: 85 81     STA $81
F17A: A5 80     LDA $80
F17C: 20 4B F2  JSR $F24B
F17F: 8D 4E 02  STA $024E
F182: 8D 4D 02  STA $024D
F185: C5 81     CMP $81
F187: B0 0C     BCS $F195
F189: 38        SEC
F18A: A5 81     LDA $81
F18C: ED 4E 02  SBC $024E
F18F: 85 81     STA $81
F191: F0 02     BEQ $F195
F193: C6 81     DEC $81
F195: 20 FA F1  JSR $F1FA
F198: F0 03     BEQ $F19D
F19A: 4C 90 EF  JMP $EF90
F19D: A9 00     LDA #$00
F19F: 85 81     STA $81
F1A1: 20 FA F1  JSR $F1FA
F1A4: D0 F4     BNE $F19A
F1A6: 4C F5 F1  JMP $F1F5

    Previous Page / Next Page