?login_element?

Subversion Repositories NedoOS

Rev

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

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