Subversion Repositories NedoOS

Rev

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

Rev 1764 Rev 1990
Line 19... Line 19...
19
 
19
 
20
fetchFromFS:
20
fetchFromFS:
21
    call UrlEncoder.extractPath
21
    call UrlEncoder.extractPath
22
loadFile
22
loadFile
23
        IFDEF MSX
23
        IFDEF MSX
24
    ld de, nameBuffer, a, FMODE_NO_WRITE
24
    ld de, Gopher.requestbuffer, a, FMODE_NO_WRITE
25
    call Dos.fopen
25
    call Dos.fopen
26
    ld a, b, (.fp), a
26
    ld a, b, (.fp), a
27
    ld de, outputBuffer, hl, (ramtop)
27
    ld de, outputBuffer, hl, (ramtop)
28
    call Dos.fread
28
    call Dos.fread
29
    ld a, (.fp), b, a
29
    ld a, (.fp), b, a
30
    call Dos.fclose
30
    call Dos.fclose
31
    jp MediaProcessor.processResource
31
    jp MediaProcessor.processResource
32
.fp db 0
32
.fp db 0
33
        ELSE
33
        ELSE
34
    ld hl, nameBuffer
34
    ld hl, Gopher.requestbuffer
35
    call Dos.loadBuffer
35
    call Dos.loadBuffer
36
    jp MediaProcessor.processResource
36
    jp MediaProcessor.processResource
37
        ENDIF
37
        ENDIF
38
    ENDMODULE
38
    ENDMODULE
39
39