Subversion Repositories NedoOS

Rev

Rev 1764 | Rev 1856 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1.     DEFINE TCP_BUF_SIZE 1024
  2. ; Generate version string
  3.     LUA ALLPASS
  4.     v = tostring(sj.get_define("V"))
  5.     maj = string.sub(v, 1,1)
  6.     min = string.sub(v, 2,2)
  7.     sj.insert_define("VERSION_STRING", "\"" .. maj .. "." .. min .. "\"")
  8.  
  9.     b = tostring(sj.get_define("BLD"))
  10.     sj.insert_define("BUILD_STRING", "\"" .. b .. "\"")
  11.     ENDLUA
  12.  
  13.     IFNDEF MSX
  14.     device      zxspectrum128
  15.     IFDEF NEDOOS
  16.         DEFINE CRLF "\r\n"
  17.         MODULE nos
  18.             include "../_sdk/sysdefs.asm"
  19.         ENDMODULE
  20.         org nos.PROGSTART
  21.         ELSE
  22.         DEFINE CRLF "\r"
  23.         org 24576
  24.     ENDIF
  25. asmOrg:
  26.     align 256
  27.     jp start
  28.     include "vdp/index.asm"
  29.     include "utils/index.asm"
  30.     include "gopher/render/index.asm"
  31.     include "dos/index.asm"
  32.     include "gopher/engine/history/index.asm"
  33.     include "gopher/engine/urlencoder.asm"
  34.     include "gopher/engine/fetcher.asm"
  35.     include "gopher/engine/media-processor.asm"
  36.     include "gopher/gopher.asm"
  37.     include "drivers/index.asm"
  38.     IFNDEF NEDOOS
  39.     include "player/vortex-processor.asm"
  40.     include "screen/screen.asm"
  41.         ELSE
  42.     include "screen/nedoscreen.asm"
  43.     include "player/vortexnedoos.asm"
  44.     ENDIF
  45. start:
  46.         IFNDEF NEDOOS
  47. outputBuffer:
  48.     di
  49.     xor a : ld (#5c6a), a  ; Thank you, Mario Prato, for feedback
  50.     ld (#5c00),a
  51.     ld sp, asmOrg
  52.     call Memory.init
  53.     xor a : out (#fe),a
  54.     ei
  55.    
  56.     ld a, 7 : call Memory.setPage
  57.     ;; Logo
  58.     ld hl, logo, b, Dos.FMODE_READ : call Dos.fopen
  59.     push af
  60.     ld hl, #c000, bc, 6912 : call Dos.fread
  61.     pop af
  62.     call Dos.fclose
  63.  
  64.     ld b, 50
  65. 1   halt
  66.     djnz 1b
  67.     ;; End of logo :-)
  68.  
  69.     ELSE
  70.         ld sp, 0x4000
  71.         ld c,nos.CMD_SETSYSDRV
  72.         ex af,af'  
  73.             call nos.BDOS
  74.    ENDIF
  75.  
  76.    call TextMode.init
  77.         ld hl, initing : call TextMode.printZ
  78.         call Wifi.init
  79.  
  80.   jp History.home
  81.  
  82.    IFDEF NEDOOS
  83. outputBuffer:  
  84.         ENDIF
  85.  
  86. initing db "Initing Wifi...", CRLF, 0
  87. logo    db "browser/logo.scr", 0
  88. creds   db "browser/auth.pwd", 0
  89.  
  90.    display "ENDS: ", $
  91.    display "Buff size", #ffff - $
  92.    IFDEF NEDOOS
  93.        savebin "moon.com", asmOrg, $ - asmOrg
  94.    ELSE
  95.                 IFDEF TRDOS
  96.                         SAVETRD "MOONR.TRD",|"moon.C",asmOrg, $ - asmOrg
  97.                 ELSE
  98.                         savebin "moon.bin", asmOrg, $ - asmOrg
  99.                 ENDIF        
  100.    ENDIF
  101. outputBuffer2:
  102.    db  "ATE0", 0
  103.  
  104.    ELSE
  105. ;****************************** MSX ***********************************************
  106.    output "moonr.com"
  107.    org 100h
  108.    jp start
  109.    include "vdp/vdpdriver.asm"
  110.    include "utils/index.asm"
  111.    include "gopher/render/index.asm"
  112.    include "dos/msxdos.asm"
  113.    include "gopher/engine/history/index.asm"
  114.    include "gopher/engine/urlencoder.asm"
  115.    include "gopher/engine/fetcher.asm"
  116.    include "gopher/engine/media-processor.asm"
  117.    include "drivers/unapi/unapi.asm"
  118.    include "drivers/unapi/tcp.asm"
  119.    include "gopher/msxgopher.asm"
  120.    include "screen/msxscreen.asm"
  121.    include "player/vortex-processor.asm"
  122. fontName db "font.bin",0
  123. start:
  124.    ld hl,(0x0006)
  125.    ld bc,outputBuffer
  126.    sbc hl,bc
  127.    ld bc, 0x100
  128.    sbc hl,bc
  129.    ld (ramtop),hl
  130.  
  131.    call TcpIP.init : jp nc, noTcpIP ; No TCP/IP - no browser! Anyway you can use "useless tcp/ip driver"
  132.    ; Loading font
  133.    ;ld de, fontName, a, FMODE_NO_WRITE : call Dos.fopen
  134.    ;push bc
  135.    ;ld de, font, hl, 2048 :call Dos.fread
  136.    ;pop bc
  137.    ;call Dos.fclose
  138.    call TextMode.loadFont
  139.    call TextMode.init
  140.    call History.home
  141.    jp exit
  142. noTcpIP:
  143.    ld hl, .err
  144.    call Console.putStringZ
  145.    rst 0
  146. .err db 13,10,"No TCP/IP implementation found!",13,10,0
  147. ramtop:
  148.    db 0x00, 0xD0
  149. outputBuffer:
  150. font:
  151.    display "ENDS: ", $
  152.    ENDIF