?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     device      zxspectrum128
  2.     IFDEF NEDOOS
  3.         DEFINE CRLF "\r\n"
  4.         MODULE nos
  5.             include "../_sdk/sysdefs.asm"
  6.         ENDMODULE
  7.         org nos.PROGSTART
  8.     ELSE
  9.         DEFINE CRLF "\r"
  10.         org 24576
  11.     ENDIF
  12. asmOrg:
  13.     align 256 ;временно
  14.     jp start
  15. ; Generate version string
  16.     LUA ALLPASS
  17.     v = tostring(sj.get_define("V"))
  18.     maj = string.sub(v, 1,1)
  19.     min = string.sub(v, 2,2)
  20.     sj.insert_define("VERSION_STRING", "\"" .. maj .. "." .. min .. "\"")
  21.     ENDLUA
  22.  
  23.     include "vdp/index.asm"
  24.     include "utils/index.asm"
  25.     include "gopher/render/index.asm"
  26.     include "dos/index.asm"
  27.     include "gopher/engine/history/index.asm"
  28.     include "gopher/engine/urlencoder.asm"
  29.     include "gopher/engine/fetcher.asm"
  30.     include "gopher/engine/media-processor.asm"
  31.     include "gopher/gopher.asm"
  32.     include "drivers/index.asm"
  33.     IFNDEF NEDOOS
  34.     include "player/vortex-processor.asm"
  35.     include "screen/screen.asm"
  36.         ELSE
  37.     include "screen/nedoscreen.asm"
  38.     include "player/vortexnedoos.asm"
  39.     ENDIF
  40. start:
  41.         IFNDEF NEDOOS
  42. outputBuffer:
  43.     di
  44.     xor a : ld (#5c6a), a  ; Thank you, Mario Prato, for feedback
  45.     ld (#5c00),a
  46.     ld sp, asmOrg
  47.     call Memory.init
  48.     xor a : out (#fe),a
  49.     ei
  50.    
  51.     ld a, 7 : call Memory.setPage
  52.     ;; Logo
  53.     ld hl, logo, b, Dos.FMODE_READ : call Dos.fopen
  54.     push af
  55.     ld hl, #c000, bc, 6912 : call Dos.fread
  56.     pop af
  57.     call Dos.fclose
  58.  
  59.     ld b, 50
  60. 1   halt
  61.     djnz 1b
  62.     ;; End of logo :-)
  63.  
  64.     ELSE
  65.         ld sp, 0x4000
  66.     ENDIF
  67.  
  68.     call TextMode.init
  69.         ld hl, initing : call TextMode.printZ
  70.         call Wifi.init
  71.  
  72.    jp History.home
  73.  
  74.     IFDEF NEDOOS
  75. outputBuffer:  
  76.         ENDIF
  77.  
  78. initing db "Initing Wifi...", CRLF, 0
  79. logo    db "browser/logo.scr", 0
  80. creds   db "browser/auth.pwd", 0
  81.  
  82.     display "ENDS: ", $
  83.     display "Buff size", #ffff - $
  84.     IFDEF NEDOOS
  85.         savebin "moon.com", asmOrg, $ - asmOrg
  86.     ELSE
  87.                 IFDEF TRDOS
  88.                         SAVETRD "MOONR.TRD",|"moon.C",asmOrg, $ - asmOrg
  89.                 ELSE
  90.                         savebin "moon.bin", asmOrg, $ - asmOrg
  91.                 ENDIF        
  92.     ENDIF
  93. outputBuffer2:
  94.     db  "ATE0", 0