;
; DASM performed 0 optimizations
;
; Cross reference:
;
;  Conditional branches (B) with more than one ref:
;   0379: 0386 0397 03A3 03AA 03C5 03CC 03DE 
;   037D: 036E 0372 
;
;  Subroutine calls (S):
;
;  Jumps (J):

	PROCESSOR 6502
	ORG $033C

; Cassette I/O Buffer - Header
T033C   DC.B $03,$A7,$02,$34,$03,$05,$93,$53,$55,$42,$20,$48,$55,$4E,$54,$45
T034C   DC.B $52,$20,$20,$20,$1F

        PHA           
        TYA           
        PHA           
        LDA $D020     
        EOR #$05      
        STA $D020     
        LDA $DC05     
        LDY #$19      
        STY $DC0E     
        EOR #$02      
        LSR           
        LSR           
        ROL $03       
        LDA $03       
        BCC *+4       
        BCS B037D     
        CMP #$40      
        BNE B037D     
        LDA #$16      
        STA $036D     
B0379   LDA #$FE      
        STA $03       
B037D   LDA $DC0D     
        PLA           
        TAY           
        PLA           
        RTI           

        CMP #$40      
        BEQ B0379     
        CMP #$5A      
        BEQ *+4       
        BNE B03D9     
        LDA #$2B      
        STA $036D     
        LDA #$00      
        STA $05       
        BEQ B0379     
        STA $07       
        INC $039A     
        LDA $039A     
        CMP #$0B      
        BNE B0379     
        LDA #$3E      
        STA $036D     
        BNE B0379     
        LDY #$00      
        STA ($07),Y   
        EOR $05       
        STA $05       
        INC $07       
        BNE *+7       
        INC $08       
        INC $D020     
        LDA $07       
        CMP $09       
        LDA $08       
        SBC $0A       
        BCC B0379     
        LDA #$60      
        STA $036D     
        BNE B0379     
        STA $06       
        LDA #$FF      
        STA $02       
        LDA #$07      
        STA $039A     
B03D9   LDA #$02      
        STA $036D     
        BNE B0379     
        CLI           
        LDA #$58      
        STA $02D3     
        LDA #$1B      
        STA $D011     
        LDA $02       
        BEQ *-2       
        LDA #$00      
        STA $02D5     
        LDA #$E0     
        STA $02D6     
        JMP $02A7