Subversion Repositories NedoOS

Rev

Rev 1828 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 1828 Rev 1898
Line 145... Line 145...
145
depack_gz_pp
145
depack_gz_pp
146
        LD (exit_sp),SP
146
        LD (exit_sp),SP
147
        call INFLATING
147
        call INFLATING
148
        jp SKIP ;call SAVECLOSE
148
        jp SKIP ;call SAVECLOSE
149
       
149
       
150
copyname83
150
copyname83
151
;hl->de
151
;hl->de
152
copyname83_element
152
copyname83_element
153
        ld b,8
153
        ld b,64;8
154
copyname83_0
154
copyname83_0
155
        ld a,(hl)
155
        ld a,(hl)
Line 171... Line 171...
171
        jr z,copyname83_q
171
        jr z,copyname83_q
172
        cp '/'
172
        cp '/'
173
        jr z,copyname83_endelement
173
        jr z,copyname83_endelement
174
        cp '.'
174
        cp '.'
175
        jr nz,copyname83_skipname0
175
        jr nz,copyname83_skipname0
176
copyname83_ext
176
copyname83_ext
177
        ld (de),a ;'.'
177
        ld (de),a ;'.'
178
        inc de
178
        inc de
179
        ld b,3
179
        ld b,64;3
180
copyname83_ext0
180
copyname83_ext0
181
        ld a,(hl)
181
        ld a,(hl)