?login_element?

Subversion Repositories NedoOS

Rev

Rev 505 | Blame | Compare with Previous | Last modification | View Log | Download

  1. init
  2.         OS_HIDEFROMPARENT
  3.         ld e,2 ;MC hires mode
  4.         OS_SETGFX
  5.  
  6.         OS_GETMAINPAGES
  7. ;dehl=номера страниц в 0000,4000,8000,c000
  8.         ld a,e
  9.         ld (codepg4000),a
  10.         ld a,h
  11.         ld (codepg8000),a ;pgdiv
  12.         ld a,l
  13.         ld (codepg_svg),a
  14.  
  15.         OS_NEWPAGE
  16.         ld a,e
  17.         ld (curpgLZW),a
  18.  
  19. ;for JPEG:
  20.         OS_NEWPAGE
  21.         ld a,e
  22.         ld (tpgs+0),a ;mul
  23.         OS_NEWPAGE
  24.         ld a,e
  25.         ld (tpgs+1),a ;y
  26.         OS_NEWPAGE
  27.         ld a,e
  28.         ld (tpgs+2),a ;cb?
  29.         OS_NEWPAGE
  30.         ld a,e
  31.         ld (tpgs+5),a ;cr?
  32.  
  33.         OS_NEWPAGE
  34.         ld a,e
  35.         ld (temppg8000),a ;depack data, diskbuf
  36.  
  37.         OS_NEWPAGE
  38.         ld a,e
  39.         ld (histpg),a
  40.        
  41.         ld e,0;COLOR
  42.         OS_CLS
  43.  
  44.         ld de,zxpal
  45.         OS_SETPAL
  46.  
  47.         call swapimer
  48.         call yieldgetkeynolang ;get mouse coords
  49.  
  50.         ;call setpgcode4000
  51.         ;call setpgtemp8000
  52.        
  53. ;command line = "browser <file to load>"
  54.         ld hl,COMMANDLINE ;command line
  55.         call skipword
  56.         call skipspaces
  57.         ld a,(hl)
  58.         or a
  59.         jr nz,$+5
  60.          ld hl,defaultfilename
  61.         ld de,linkbuf
  62.         call strcopy
  63.  
  64. ;recode url in linkbuf to full path:
  65.         ld hl,linkbuf
  66.         ld de,curfulllink
  67.         push de
  68.         call strcopy
  69.         pop hl ;curfulllink
  70.         call isprotocolpresent
  71.         jr z,browser_recodefull_protocolpresent
  72. ;protocol absent
  73. ;1:/file... => file://1:/file...
  74. ;ser.ver... => http://ser.ver...
  75.         ld a,(linkbuf+1)
  76.         cp ':'
  77.         ld a,1
  78.         jr nz,$+3
  79.          xor a
  80.         call adddefaultprotocol
  81. browser_recodefull_protocolpresent
  82. ;curfulllink OK
  83. ;hl=after "//"
  84. ;a=protocol
  85.         jp addslashafterserver ;add / after http://ser.ver
  86.  
  87. defaultfilename
  88.         ;db "0:/hippiman.bmp",0
  89.         ;db "http://zxevo.ru/nos/",0
  90.         db "file://browser/nos.htm",0
  91.         ;db "https://rgb.yandex",0
  92.  
  93. zxpal
  94.         incbin "zxpal"
  95.