Subversion Repositories NedoOS

    DEFINE TCP_BUF_SIZE 1024
; Generate version string
    LUA ALLPASS
    v = tostring(sj.get_define("V"))
    maj = string.sub(v, 1,1)
    min = string.sub(v, 2,2)
    sj.insert_define("VERSION_STRING", "\"" .. maj .. "." .. min .. "\"")

    b = tostring(sj.get_define("BLD"))
    sj.insert_define("BUILD_STRING", "\"" .. b .. "\"")
    ENDLUA

    IFNDEF MSX
    device      zxspectrum128
    IFDEF NEDOOS
        DEFINE CRLF "\r\n"
        MODULE nos
            include "../_sdk/sysdefs.asm"
        ENDMODULE
        org nos.PROGSTART
        ELSE
        DEFINE CRLF "\r"
        org 24576
    ENDIF
asmOrg:
    align 256
    jp start
    include "vdp/index.asm"
    include "utils/index.asm"
    include "gopher/render/index.asm"
    include "dos/index.asm"
    include "gopher/engine/history/index.asm"
    include "gopher/engine/urlencoder.asm"
    include "gopher/engine/fetcher.asm"
    include "gopher/engine/media-processor.asm"
    include "gopher/gopher.asm"
    include "drivers/index.asm"
    IFNDEF NEDOOS
    include "player/vortex-processor.asm"
    include "screen/screen.asm"
        ELSE
    include "screen/nedoscreen.asm"
    include "player/vortexnedoos.asm"
    ENDIF
start:
        IFNDEF NEDOOS
outputBuffer:
    di
    xor a : ld (#5c6a), a  ; Thank you, Mario Prato, for feedback
    ld (#5c00),a
    ld sp, asmOrg
    call Memory.init
    xor a : out (#fe),a
    ei
   
    ld a, 7 : call Memory.setPage
    ;; Logo
    ld hl, logo, b, Dos.FMODE_READ : call Dos.fopen
    push af
    ld hl, #c000, bc, 6912 : call Dos.fread
    pop af
    call Dos.fclose

    ld b, 50
1   halt
    djnz 1b
    ;; End of logo :-)

    ELSE
        ld sp, 0x4000
        ld c,nos.CMD_SETSYSDRV
        ex af,af'  
            call nos.BDOS
    ENDIF
 
    call TextMode.init
        ld hl, initing : call TextMode.printZ
        call Wifi.init

   jp History.home

    IFDEF NEDOOS
outputBuffer:  
        ENDIF

initing db "Initing Wifi...", CRLF, 0
logo    db "browser/logo.scr", 0
creds   db "browser/auth.pwd", 0

    display "ENDS: ", $
    display "Buff size", #ffff - $
    IFDEF NEDOOS
        savebin "moon.com", asmOrg, $ - asmOrg
    ELSE
                IFDEF TRDOS
                        SAVETRD "MOONR.TRD",|"moon.C",asmOrg, $ - asmOrg
                ELSE
                        savebin "moon.bin", asmOrg, $ - asmOrg
                ENDIF        
    ENDIF
outputBuffer2:
    db  "ATE0", 0

    ELSE
;****************************** MSX ***********************************************
    output "moonr.com"
    org 100h
    jp start
    include "vdp/vdpdriver.asm"
    include "utils/index.asm"
    include "gopher/render/index.asm"
    include "dos/msxdos.asm"
    include "gopher/engine/history/index.asm"
    include "gopher/engine/urlencoder.asm"
    include "gopher/engine/fetcher.asm"
    include "gopher/engine/media-processor.asm"
    include "drivers/unapi/unapi.asm"
    include "drivers/unapi/tcp.asm"
    include "gopher/msxgopher.asm"
    include "screen/msxscreen.asm"
    include "player/vortex-processor.asm"
fontName db "font.bin",0
start:
    ld hl,(0x0006)
    ld bc,outputBuffer
    sbc hl,bc
    ld bc, 0x100
    sbc hl,bc
    ld (ramtop),hl
 
    call TcpIP.init : jp nc, noTcpIP ; No TCP/IP - no browser! Anyway you can use "useless tcp/ip driver"
    ; Loading font
    ;ld de, fontName, a, FMODE_NO_WRITE : call Dos.fopen
    ;push bc
    ;ld de, font, hl, 2048 :call Dos.fread
    ;pop bc
    ;call Dos.fclose
    call TextMode.loadFont
    call TextMode.init
    call History.home
    jp exit
noTcpIP:
    ld hl, .err
    call Console.putStringZ
    rst 0
.err db 13,10,"No TCP/IP implementation found!",13,10,0
ramtop:
    db 0x00, 0xD0
outputBuffer:
font:
    display "ENDS: ", $
    ENDIF