?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ; A - row number
  2. ; HL - pointer to row
  3. renderRow:
  4.     add CURSOR_OFFSET
  5.     ld d, a, e, 0 : call TextMode.gotoXY
  6.     ld a, (hl)
  7.     push hl
  8.     call getIcon
  9.     call TextMode.putC
  10.     pop hl
  11.     inc hl
  12.     jp print70Goph
  13.  
  14. ; A - gopher id char
  15. getIcon:
  16.     cp 'i' : jp z, .info
  17.     cp '9' : jp z, .down
  18.     cp '1' : jp z, .page
  19.     cp '0' : jp z, .text
  20.     cp '7' : jp z, .input
  21.     ld a, ' '
  22.     ret
  23. .info
  24.     ld a, SPACE : ret
  25. .down
  26.     ld de, hl
  27.     ld bc, #ff, a, TAB : cpir
  28.     ld a, b : or c : jr z, .downExit
  29.     push de
  30. .nameLoop
  31.     ld a, (hl) : and a : jr z, .check
  32.     cp TAB : jr z, .check
  33.     cp CR : jr z, .check
  34.     push hl
  35.     call CompareBuff.push
  36.     pop hl
  37.     inc hl
  38.     jr .nameLoop
  39. .check
  40.     ld hl, scrExt1 : call CompareBuff.search : and a : jr nz, .image
  41.     ld hl, scrExt2 : call CompareBuff.search : and a : jr nz, .image
  42.     ld a, 3 : ld (VTPL.SETUP), a ; 0 bit - looping, 1 bit - pt2 file
  43.     ld hl, pt2Ext1 : call CompareBuff.search : and a : jr nz, .music
  44.     ld hl, pt2Ext2 : call CompareBuff.search : and a : jr nz, .music
  45.     ld a, 1 : ld (VTPL.SETUP), a
  46.     ld hl, pt3Ext1 : call CompareBuff.search : and a : jr nz, .music
  47.     ld hl, pt3Ext2 : call CompareBuff.search : and a : jr nz, .music
  48.    
  49.     ; General Sound support
  50.     ifdef GS
  51.     ld hl, modExt1 : call CompareBuff.search : and a : jr nz, .mod
  52.     ld hl, modExt2 : call CompareBuff.search : and a : jr nz, .mod
  53.     endif
  54. .checkExit
  55.     pop hl
  56. .downExit
  57.     ld a, MIME_DOWNLOAD : ret
  58. .page
  59.     ld a, MIME_LINK     : ret
  60. .text
  61.     ld a, MIME_TEXT     : ret
  62. .input
  63.     ld a, MIME_INPUT    : ret
  64. .image
  65.     pop hl : ld a, MIME_IMAGE    : ret
  66. .music
  67.     pop hl : ld a, MIME_MUSIC    : ret
  68. .mod
  69.     pop hl: ld a, MIME_MOD      : ret
  70.  
  71. scrExt1 db ".scr", 0
  72. scrExt2 db ".SCR", 0
  73.  
  74. pt3Ext1 db ".pt3", 0
  75. pt3Ext2 db ".PT3", 0
  76. pt2Ext1 db ".pt2", 0
  77. pt2Ext2 db ".PT2", 0
  78.  
  79. modExt1 db ".mod", 0
  80. modExt2 db ".MOD", 0