.nolist
#include "mallard.inc"
.list
.org userMem
	.db $D9,$00,"Duck"
	.dw Start
        .db "RomVer73",0
Start:
        ;identifie la version systeme

        ld a,($64)      ; 1xxxxx
        cp $31
        jp nz,fin

        ld a,($65)      ; 1.xxxx
        cp $2E
        jp nz,fin

        ld a,($67)      ; 1.x1xx
        cp $31
        jp z,rom1x1

        cp $35          ; 1.x5xx
        jp z,rom1x5

        cp $30          ; 1.x0xx
        jp nz,fin


        ld a,($66)      ; 1.90xx
        cp $39          
        jp z,rom190

        cp $38          ; 1.80xx
        jp z,rom180

        cp $36          ; 1.60xx
        jp z,rom160     

        cp $35          ; 1.50xx
        jp z,rom150     

        cp $34          ; 1.40xx
        jp z,rom140     

        cp $33          ; 1.30xx
        jp nz,fin

        ld a,($68)      ; 1.300x
        cp $30
        jp nz,fin

        ld a,($69)      ; 1.3004
        cp $34
        call z,$2202        

        jp fin

rom1x5:
        ld a,($66)      ; 1.85
        cp $38
        call z,$2297
        jp fin

rom1x1:
        ld a,($66)      ; 1.91
        cp $39
        call z,$22B0
        jp fin

rom190:
        call $22AA
        jp fin

rom180:
        call $2299
        jp fin

rom160:
rom150:
        call $2286
        jp fin

rom140:
        call $2281
        jp fin

fin:
        ret
.end