;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
;³ DISASSEMBLED FILE - DONE WITH DISASM 1.0á ³
;³ Date: 16-01-1998  Time: 19:29             ³
;³ (c) 1996 Channex aka Lasse S. Tassing     ³
;³ Email: ltassing.ite.dk                    ³
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

; Ä[CODE]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
; LABEL INSTR.  PARAMETER(s)              ADR/OPCODE    ASCII


;BURNING
        CALL    INIT                    ; 4082 CD2741   .'A
ANF:    XOR     A                       ; 4085 AF       .
        LD      (COUNT),A               ; 4086 324441   2DA
ANF2:   CALL    BRENN                   ; 4089 CDC440   ..@
        CALL    VERGL                   ; 408C CD1D41   ..A
        JR      Z,NACHB                 ; 408F 280B     (.
        LD      A,(COUNT)               ; 4091 3A4441   :DA
        CP      $32                     ; 4094 FE32     .2
        JR      NZ,ANF2                 ; 4096 20F1      .
END:    LD      (ERROR),A               ; 4098 324241   2BA
        RET                             ; 409B C9       .

NACHB:  LD      A,(MODE)                ; 409C 3A4541   :EA
        CP      $00                     ; 409F FE00     ..
        JR      Z,MAXLD                 ; 40A1 2809     (.
        LD      A,(COUNT)               ; 40A3 3A4441   :DA
        RLCA                            ; 40A6 07       .
        RLCA                            ; 40A7 07       .
        CP      $32                     ; 40A8 FE32     .2
        JR      C,Lb6                   ; 40AA 3802     8.
MAXLD:  LD      A,$32                   ; 40AC 3E32     >2
Lb6:    LD      ($4143),A               ; 40AE 324341   2CA
LOOP:   CALL    BRENN                   ; 40B1 CDC440   ..@
        LD      HL,COUNT                ; 40B4 214441   !DA
        LD      A,(HL)                  ; 40B7 7E       ~
        DEC     HL                      ; 40B8 2B       +
        CP      (HL)                    ; 40B9 BE       .
        JR      NZ,LOOP                 ; 40BA 20F5      .
        CALL    NEXT                    ; 40BC CD1444   ..D
        JR      NZ,ANF                  ; 40BF 20C4      .
OKEND:  XOR     A                       ; 40C1 AF       .
        JR      END                     ; 40C2 18D4     ..
BRENN:  LD      HL,$E003                ; 40C4 2103E0   !..
        LD      (HL),$80                ; 40C7 3680     6.
        SET     6,B                     ; 40C9 CBF0     ..
        DEC     HL                      ; 40CB 2B
        LD      (HL),B                  ; 40CC 70       +
        DEC     HL                      ; 40CD 2B       +
        LD      (HL),C                  ; 40CE 71       q
        DEC     HL                      ; 40CF 2B       +
        LD      A,(DE)                  ; 40D0 1A       .
        LD      (HL),A                  ; 40D1 77       w
        INC     HL                      ; 40D2 23       #
        INC     HL                      ; 40D3 23       #
        SET     7,B                     ; 40D4 CBF8     ..
        LD      (HL),B                  ; 40D6 70       
        PUSH    HL                      ; 40D7 E5       .
        LD      HL,COUNT                ; 40D8 214441   !DA
        INC     (HL)                    ; 40DB 34       4
        POP     HL                      ; 40DC E1       .
        PUSH    BC                      ; 40DD C5       .
        LD      B,$BE                   ; 40DE 06BE     ..
Lb11:   NOP                             ; 40E0 00       .
        DJNZ    Lb11                    ; 40E1 10FD     ..
        POP     BC                      ; 40E3 C1       .
        RES     6,B                     ; 40E4 CBB0     ..
        RES     7,B                     ; 40E6 CBB8     ..
        RET                             ; 40E8 C9       .

;ERASECHECK
TEST:   LD      BC,$413E                ; 40E9 ED4B3E41 .K>A
Lb15:   LD      A,$FF                   ; 40ED 3EFF     >.
        LD      HL,$E002                ; 40EF 2102E0   !..
        CALL    VERGL                   ; 40F2 CD1D41   ..A
        JR      Z,NXT                   ; 40F5 2804     (.
        LD      A,$02                   ; 40F7 3E02     >.
        JR      END                     ; 40F9 189D     ..
NXT:    CALL    Lb13                    ; 40FB CD1441   ..A
        JR      Z,OKEND                 ; 40FE 28C1     (.
        JR      Lb15                    ; 4100 18EB     ..

;READING
        CALL    INIT                    ; 4102 CD2741   .'A
Lb16:   LD      HL,$E002                ; 4105 2102E0   !..
        CALL    VERGL                   ; 4108 CD1D41   ..A
        LD      A,(HL)                  ; 410B 7E       ~
        LD      (DE),A                  ; 410C 12       .
        CALL    Lb13                    ; 410D CD1441   ..A
        JR      NZ,Lb16                 ; 4110 20F3      .
        JR      OKEND                   ; 4112 18AD     ..
NEXT:   INC     BC                      ; 4114 03       .
        INC     DE                      ; 4115 13       .
        LD      HL,($4140)              ; 4116 2A4041   *@A
        AND     A                       ; 4119 A7       .
        SBC     HL,BC                   ; 411A ED42     .B
        RET                             ; 411C C9       .


VERGL:  INC     HL                      ; 411D 23       #
        LD      (HL),$90                ; 411E 3690     6.
        DEC     HL                      ; 4120 2B       +
        LD      (HL),B                  ; 4121 70
        DEC     HL                      ; 4122 2B       +
        LD      (HL),C                  ; 4123 71       q
        DEC     HL                      ; 4124 2B       +
        CP      (HL)                    ; 4125 BE       .
        RET                             ; 4126 C9       .

INIT:   LD      DE,($413C)              ; 4127 ED5B3C41 .[<A
        LD      BC,($413E)              ; 412B ED4B3E41 .K>A
        RET                             ; 412F C9       .