Subversion Repositories NedoOS

Rev

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

  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.     ENDIF
  70.  
  71.     call TextMode.init
  72.         ld hl, initing : call TextMode.printZ
  73.         call Wifi.init
  74.  
  75.    jp History.home
  76.  
  77.     IFDEF NEDOOS
  78. outputBuffer:  
  79.         ENDIF
  80.  
  81. initing db "Initing Wifi...", CRLF, 0
  82. logo    db "browser/logo.scr", 0
  83. creds   db "browser/auth.pwd", 0
  84.  
  85.     display "ENDS: ", $
  86.     display "Buff size", #ffff - $
  87.     IFDEF NEDOOS
  88.         savebin "moon.com", asmOrg, $ - asmOrg
  89.     ELSE
  90.                 IFDEF TRDOS
  91.                         SAVETRD "MOONR.TRD",|"moon.C",asmOrg, $ - asmOrg
  92.                 ELSE
  93.                         savebin "moon.bin", asmOrg, $ - asmOrg
  94.                 ENDIF        
  95.     ENDIF
  96. outputBuffer2:
  97.     db  "ATE0", 0