ORG   $9000
*********************************
*                               *
*    INTERPRETEUR D'IMAGES      *
*                               *
*  LAURENT RUEIL & ALDO RESET   *
*                               *
*  (C) 1983  CLEAN CRACK BAND   *
*                               *
*********************************
*
*
         LDA   #$00
         STA   $3C
         LDA   #$60
         STA   $3D
         LDA   $E6
         CMP   #$40
         BEQ   *+4
         LDA   #$20
         STA   $E6
         LDY   #$00
         LDA   ($3C),Y
         STA   $FC
         STA   $02
         INC   $3C
         BNE   *+4
         INC   $3D
         LDA   ($3C),Y
         STA   $FD
         TAX
         INX
         STX   $04
         LDA   $92C0,X
         STA   $26
         LDA   $9200,X
         ORA   $E6
         STA   $27
         INC   $3C
         BNE   *+4
         INC   $3D
         LDA   ($3C),Y
         CLC
         ADC   #$01
         STA   $FE
         INC   $3C
         BNE   *+4
         INC   $3D
         LDA   ($3C),Y
         CLC
         ADC   #$01
         STA   $FF
         INC   $3C
         BNE   *+4
         INC   $3D
         STY   $06
A77E     LDA   ($3C),Y
         BNE   A79A
         INC   $3C
         BNE   A788
         INC   $3D
A788     LDA   ($3C),Y
         STA   $06
         INC   $3C
         BNE   A792
         INC   $3D
A792     LDA   ($3C),Y
         STA   $05
A796     LDA   $05
         DEC   $06
A79A     LDY   $02
         STA   ($26),Y
         INX
         INX
         CPX   $FF
         BCC   A7B6
         INC   $02
         LDY   $02
         CPY   $FE
         BCC   A7B4
         DEC   $04
         LDY   $04
         CPY   $FD
         BNE   A7CC
         LDY   $FC
         STY   $02
A7B4     LDX   $04
A7B6     LDA   $92C0,X
         STA   $26
         LDA   $9200,X
         ORA   $E6
         STA   $27
         LDY   $06
         BNE   A796
         INC   $3C
         BNE   A77E
         INC   $3D
         BNE   A77E
A7CC     RTS