; SAVE#D3:CRC.M65
;   .OPT NO LIST
;
      .OPT NO EJECT
;
;    CRC CHECKER WILLIAMS
STADD =   $3800
INADD =   $3800
CTEND =   $C000
CTADD = $BF00
CTDST = $3B00
BUILD = $6000
OFFSET = CTADD-CTDST-BUILD
;
    .SET 6,$2400
    *=  $3B00
;
START2
    LDX #$03
?B  DEC $E1
    DEC $E3
?C  LDA ($E0),Y
    STA ($E2),Y
    INY 
    BNE ?C
    DEX 
    BNE ?B
    LDA $0A
    STA $02
    LDA $0B
    STA $03
    LDA #$02
    STA $09
    STA $08
    LDA #$80
    STY $D508
    STA $02E4
    STA $02E6
    STA $6A
    CLC 
    TYA 
    STA $03FA
    STY $42
    RTS 
;
    .SET 6,$A000
    *=  $BFFA-$3B
INIT STX $03E9  ;CKEY=0
    STX $03EA   ;CASSBT=0
    DEX 
    STX $D301   ;KILL BASIC HARD
    LDA #$01
    STA $09     ;SAY BOOTED
    STA $42
    STA $03F8   ;KILL BASIC SOFT
    LDA # <STADD
    STA $0A     ;DOSVEC WITH
    LDA # >STADD
    STA $0B     ;DOSVEC+1
    LDA # <INADD
    STA $0C     ;DOSVEC WITH
    LDA # >INADD
    STA $0D     ;DOSVEC+1
    LDY #$00
    LDA # >CTADD
    STA $E1
    LDA # >CTDST
    STA $E3
    STY $E0
    STY $E2
?A  LDA ($E0),Y
    STA ($E2),Y
    INY 
    BNE ?A
    JMP START2
;
XTLEN = *-INIT
    *=  $BFFA
    .BYTE "FU"
    .BYTE $00   ;MUST BE 0
    .BYTE $00   ;DOS=5,NODOS=4
    .WORD INIT
;ORIGIN AT 150