home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / INCOMSRC.ZIP / GUSPORT.INC < prev    next >
Text File  |  1995-04-19  |  1KB  |  69 lines
  1. ;
  2. ; get gusport base adress, and return in bx
  3. ;
  4.  
  5. assume ds:code
  6.  
  7. gusport:
  8. push ds cs
  9. pop ds
  10. ;
  11. mov dx,offset gustext1
  12. mov ah,9
  13. int 21h
  14. cik1_gusport:
  15. xor ax,ax
  16. int 16h
  17. cmp al,'Y'
  18. je ecik1_gusport
  19. cmp al,'y'
  20. jne cik1_gusport
  21. ecik1_gusport:
  22. ;
  23. mov dx,offset gustext2
  24. mov ah,9
  25. int 21h
  26. mov cx,8
  27. cik2_gusport:
  28. push cx
  29. mov ah,9
  30. mov dx,offset gustext3
  31. int 21h
  32. inc byte ptr ds:modify1gus
  33. inc byte ptr ds:modify2gus
  34. pop cx
  35. loop cik2_gusport
  36. mov dx,offset gustext4
  37. mov ah,9
  38. int 21h
  39. ;
  40. cik3_gusport:
  41. xor ax,ax
  42. int 16h
  43. cmp al,'0'
  44. jb cik3_gusport
  45. cmp al,'7'
  46. ja cik3_gusport
  47. sub al,'0'
  48. shl al,4
  49. xor ah,ah
  50. mov bx,200h
  51. add bx,ax
  52. mov ah,2
  53. mov dl,0dh
  54. int 21h
  55. mov dl,0ah
  56. int 21h
  57. pop ds
  58. retn
  59.  
  60. gustext1 db 13,10,'have you got a GUS anywhere [y/y] ?? $'
  61. gustext2 db 13,10,'and where do you have it ??$' 
  62. gustext3 db 13,10,' '
  63. modify2gus db '0 - baseport 2'
  64. modify1gus db '00h$'
  65. gustext4 db 13,10,' 8 - on the shelf:)'
  66.          db 13,10,'please select: $'
  67.  
  68.             
  69. assume ds:data1