?login_element?

Subversion Repositories NedoOS

Rev

Rev 1636 | Rev 1765 | 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.  
  22.     b = tostring(sj.get_define("BLD"))
  23.     sj.insert_define("BUILD_STRING", "\"" .. b .. "\"")
  24.     ENDLUA
  25.  
  26.     include "vdp/index.asm"
  27.     include "utils/index.asm"
  28.     include "gopher/render/index.asm"
  29.     include "dos/index.asm"
  30.     include "gopher/engine/history/index.asm"
  31.     include "gopher/engine/urlencoder.asm"
  32.     include "gopher/engine/fetcher.asm"
  33.     include "gopher/engine/media-processor.asm"
  34.     include "gopher/gopher.asm"
  35.     include "drivers/index.asm"
  36.     IFNDEF NEDOOS
  37.     include "player/vortex-processor.asm"
  38.     include "screen/screen.asm"
  39.         ELSE
  40.     include "screen/nedoscreen.asm"
  41.     include "player/vortexnedoos.asm"
  42.     ENDIF
  43. start:
  44.         IFNDEF NEDOOS
  45. outputBuffer:
  46.     di
  47.     xor a : ld (#5c6a), a  ; Thank you, Mario Prato, for feedback
  48.     ld (#5c00),a
  49.     ld sp, asmOrg
  50.     call Memory.init
  51.     xor a : out (#fe),a
  52.     ei
  53.    
  54.     ld a, 7 : call Memory.setPage
  55.     ;; Logo
  56.     ld hl, logo, b, Dos.FMODE_READ : call Dos.fopen
  57.     push af
  58.     ld hl, #c000, bc, 6912 : call Dos.fread
  59.     pop af
  60.     call Dos.fclose
  61.  
  62.     ld b, 50
  63. 1   halt
  64.     djnz 1b
  65.     ;; End of logo :-)
  66.  
  67.     ELSE
  68.         ld sp, 0x4000
  69.         ld c,nos.CMD_SETSYSDRV
  70.         ex af,af'  
  71.             call nos.BDOS
  72.    ENDIF
  73.  
  74.    call TextMode.init
  75.         ld hl, initing : call TextMode.printZ
  76.         call Wifi.init
  77.  
  78.   jp History.home
  79.  
  80.    IFDEF NEDOOS
  81. outputBuffer:  
  82.         ENDIF
  83.  
  84. initing db "Initing Wifi...", CRLF, 0
  85. logo    db "browser/logo.scr", 0
  86. creds   db "browser/auth.pwd", 0
  87.  
  88.    display "ENDS: ", $
  89.    display "Buff size", #ffff - $
  90.    IFDEF NEDOOS
  91.        savebin "moon.com", asmOrg, $ - asmOrg
  92.    ELSE
  93.                 IFDEF TRDOS
  94.                         SAVETRD "MOONR.TRD",|"moon.C",asmOrg, $ - asmOrg
  95.                 ELSE
  96.                         savebin "moon.bin", asmOrg, $ - asmOrg
  97.                 ENDIF        
  98.    ENDIF
  99. outputBuffer2:
  100.    db  "ATE0", 0