; SAVE#D3:TETLOAD.M65
      .OPT NO EJECT
;     .OPT NO LIST
;
      *=  $9BFF-$93
SOR   =   $E0
DES   =   $E2
END   =   $E4
EEND  =   $E6
;
START LDY #$00
L7  LDA SOR,Y
    STA (DES),Y
    INY 
    CPY #$02
    BNE L7
    LDY #$00
    JSR INCD
    JSR INCD
    LDA DES
    STA END
    LDA DES+1
    STA END+1
    JSR INCD
    JSR INCD
    LDX #$00
L1  LDA (SOR),Y
    BNE L2
    INX 
    CPX #$04
    BNE L4
    LDA DES
    SEC 
    SBC #$03
    STA DES
    LDA DES+1
    SBC #$00
    STA DES+1
    SEC 
    LDA SOR
    SBC #$04
    STA SOR
    LDA SOR+1
    SBC #$00
    STA SOR+1
L5  LDA SOR,Y
    STA (END),Y
    INY 
    CPY #$02
    BNE L5
    LDY #$00
L6  JSR INCS
    LDA (SOR),Y
    BEQ L6
    BNE START
L4  TYA 
    STA (DES),Y
;
L3  JSR CMPEND
    PHP 
    JSR INCS
    JSR INCD
    PLP 
    BCC L1
;
L2  STA (DES),Y
    LDX #$00
    BEQ L3
;
INCS INC SOR
    BNE L8
    INC SOR+1
L8  RTS 
;
INCD INC DES
    BNE L9
    INC DES+1
L9  RTS 
;
CMPEND LDA SOR
    CMP EEND
    BCC LA
    LDA SOR+1
    CMP EEND+1
    BCC LA
    PLA 
    PLA 
LA  CLC 
    RTS 
    JSR START
    .BYTE $00