     $CDD2/52690:   Open channel

    Jump from $CDBD, $CDF2:

    CDD2: A6 D3     LDX $D3
    CDD4: E6 D3     INC $D3
    CDD6: BD 85 02  LDA $0285,X     ; buffer number
    CDD9: A8        TAY
    CDDA: 88        DEY
    CDDB: 88        DEY
    CDDC: C0 0C     CPY #$0C        ; buffer number smaller than 14?
    CDDE: 90 05     BCC $CDE5       ; yes

    Jump from $CDEA:

    CDE0: A9 70     LDA #$70
    CDE2: 4C C8 C1  JMP $C1C8       ; 70, 'no channel'

    Jump from $CDDE:

    CDE5: 85 83     STA $83         ; secondary address
    CDE7: 20 EB D0  JSR $D0EB       ; open channel
    CDEA: B0 F4     BCS $CDE0       ; already allocated, 'no channel'
    CDEC: 20 93 DF  JSR $DF93       ; buffer number
    CDEF: 85 F9     STA $F9         ; set
    CDF1: 60        RTS

        Previous Page / Next Page