?login_element?

Subversion Repositories NedoOS

Rev

Rev 1852 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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.     include "screen/rtc.asm"
  39.     IFNDEF NEDOOS
  40.     include "player/vortex-processor.asm"
  41.     include "player/mod-processor.asm"
  42.     include "screen/screen.asm"
  43.         ELSE
  44.     include "screen/nedoscreen.asm"
  45.     include "player/vortexnedoos.asm"
  46.     include "player/mod-processor.asm"
  47.     ENDIF
  48. start:
  49.         IFNDEF NEDOOS
  50. outputBuffer:
  51.     di
  52.     xor a : ld (#5c6a), a  ; Thank you, Mario Prato, for feedback
  53.     ld (#5c00),a
  54.     ld sp, asmOrg
  55.     call Memory.init
  56.     xor a : out (#fe),a
  57.     ei
  58.    
  59.     ld a, 7 : call Memory.setPage
  60.     ;; Logo
  61.     ld hl, logo, b, Dos.FMODE_READ : call Dos.fopen
  62.     push af
  63.     ld hl, #c000, bc, 6912 : call Dos.fread
  64.     pop af
  65.     call Dos.fclose
  66.  
  67.     ld b, 50
  68. 1   halt
  69.     djnz 1b
  70.     ;; End of logo :-)
  71.  
  72.     ELSE
  73.         ld sp, 0x4000
  74.         ld c,nos.CMD_SETSYSDRV
  75.         ex af,af'  
  76.             call nos.BDOS
  77.    ENDIF
  78.  
  79.    call TextMode.init
  80.         ld hl, initing : call TextMode.printZ
  81.         call Wifi.init
  82.  
  83.   jp History.home
  84.  
  85.    IFDEF NEDOOS
  86. outputBuffer:  
  87.         ENDIF
  88.  
  89. initing db "Initing Wifi...", CRLF, 0
  90. logo    db "browser/logo.scr", 0
  91. creds   db "browser/auth.pwd", 0
  92.  
  93.    display "ENDS: ", $
  94.    display "Buff size", #ffff - $
  95.    IFDEF NEDOOS
  96.        savebin "moon.com", asmOrg, $ - asmOrg
  97.    ELSE
  98.                 IFDEF TRDOS
  99.                         SAVETRD "MOONR.TRD",|"moon.C",asmOrg, $ - asmOrg
  100.                 ELSE
  101.                         savebin "moon.bin", asmOrg, $ - asmOrg
  102.                 ENDIF        
  103.    ENDIF
  104. outputBuffer2:
  105.    db  "ATE0", 0
  106.  
  107.    ELSE
  108. ;****************************** MSX ***********************************************
  109.    output "moonr.com"
  110.    org 100h
  111.    jp start
  112.    include "vdp/vdpdriver.asm"
  113.    include "utils/index.asm"
  114.    include "gopher/render/index.asm"
  115.    include "dos/msxdos.asm"
  116.    include "gopher/engine/history/index.asm"
  117.    include "gopher/engine/urlencoder.asm"
  118.    include "gopher/engine/fetcher.asm"
  119.    include "gopher/engine/media-processor.asm"
  120.    include "drivers/unapi/unapi.asm"
  121.    include "drivers/unapi/tcp.asm"
  122.    include "gopher/msxgopher.asm"
  123.    include "screen/msxscreen.asm"
  124.    include "player/vortex-processor.asm"
  125.    include "player/mod-processor.asm"
  126.    include "screen/rtc.asm"
  127. fontName db "font.bin",0
  128. start:
  129.    ld hl,(0x0006)
  130.    ld bc,outputBuffer
  131.    sbc hl,bc
  132.    ld bc, 0x100
  133.    sbc hl,bc
  134.    ld (ramtop),hl
  135.  
  136.    call TcpIP.init : jp nc, noTcpIP ; No TCP/IP - no browser! Anyway you can use "useless tcp/ip driver"
  137.    ; Loading font
  138.    ;ld de, fontName, a, FMODE_NO_WRITE : call Dos.fopen
  139.    ;push bc
  140.    ;ld de, font, hl, 2048 :call Dos.fread
  141.    ;pop bc
  142.    ;call Dos.fclose
  143.    call TextMode.loadFont
  144.    call TextMode.init
  145.    call History.home
  146.    jp exit
  147. noTcpIP:
  148.    ld hl, .err
  149.    call Console.putStringZ
  150.    rst 0
  151. .err db 13,10,"No TCP/IP implementation found!",13,10,0
  152. ramtop:
  153.    db 0x00, 0xD0
  154. outputBuffer:
  155. font:
  156.    display "ENDS: ", $
  157.    ENDIF