?login_element?

Subversion Repositories NedoOS

Rev

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

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