home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / mn894.ha / PRAVIKO.TXT < prev    next >
Text File  |  1994-09-28  |  2KB  |  77 lines
  1. Åα¿¼Ñα 1
  2.  
  3. ; Åα«µÑñπαá «»αÑñѽѡ¿∩ áñαÑßá «íαáí«Γτ¿¬á
  4. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  5. ; éδσ«ñ: dx:ax - áñαÑß «íαáí«Γτ¿¬á Int 21h
  6. ;
  7. PROC Get_address
  8.      mov  ax,352Ah            ; æτ¿ΓδóáѼ áñαÑß
  9.      int  21h                 ; «íαáí«Γτ¿¬á 21h »αÑαδóá¡¿∩.
  10.      push es bx
  11.      mov  ah,25h
  12.      mov  dx,OFFSET Int2A     ; ôßΓá¡áó½¿óáѼ
  13.      int  21h                 ; ßó«⌐ «íαáí«Γτ¿¬
  14.      pop  dx ds               ; é«ßßΓá¡áó½¿óáѼ
  15.      int  21h                 ; ßΓá¡ñáαΓ¡δ⌐ «íαáí«Γτ¿¬
  16.      les  di,cs:Vector        ; ÄΓßεñá óδºó὿ Int 2Ah
  17.      mov  al,0EBh             ; è«ñ ¬«¼á¡ñδ jmp short
  18.      mov  cx,di
  19.      std
  20.      repne scasb              ; êΘѼ ¡áτὫ
  21.      repne scasb              ; «íαáí«Γτ¿¬á Int 21h
  22.      lea  ax,[di+3]
  23.      mov  dx,es
  24.      ret
  25.  
  26. Int2Ah:
  27.      push bp
  28.      mov  bp,sp
  29.      push es
  30.      les  bp,[bp+2]
  31.      mov  WORD PTR cs:Vector,bp
  32.      mov  WORD PTR cs:Vector+2,es
  33.      pop  es,bp
  34.      iret
  35. ENDP
  36.      
  37. Vector    DD ?
  38.  
  39. Åα¿¼Ñα 1
  40.  
  41. ; Åα«µÑñπαá «»αÑñѽѡ¿∩ áñαÑßá «íαáí«Γτ¿¬á
  42. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  43. ; éδσ«ñ: dx:ax - áñαÑß «íαáí«Γτ¿¬á Int 21h
  44. ;
  45. PROC Get_address
  46.      mov  ax,352Ah            ; æτ¿ΓδóáѼ áñαÑß
  47.      int  21h                 ; «íαáí«Γτ¿¬á 21h »αÑαδóá¡¿∩.
  48.      push es bx
  49.      mov  ah,25h
  50.      mov  dx,OFFSET Int2A     ; ôßΓá¡áó½¿óáѼ
  51.      int  21h                 ; ßó«⌐ «íαáí«Γτ¿¬
  52.      pop  dx ds               ; é«ßßΓá¡áó½¿óáѼ
  53.      int  21h                 ; ßΓá¡ñáαΓ¡δ⌐ «íαáí«Γτ¿¬
  54.      les  di,cs:Vector        ; ÄΓßεñá óδºó὿ Int 2Ah
  55.      mov  al,0EBh             ; è«ñ ¬«¼á¡ñδ jmp short
  56.      mov  cx,di
  57.      std
  58.      repne scasb              ; êΘѼ ¡áτὫ
  59.      repne scasb              ; «íαáí«Γτ¿¬á Int 21h
  60.      lea  ax,[di+3]
  61.      mov  dx,es
  62.      ret
  63.  
  64. Int2Ah:
  65.      push bp
  66.      mov  bp,sp
  67.      push es
  68.      les  bp,[bp+2]
  69.      mov  WORD PTR cs:Vector,bp
  70.      mov  WORD PTR cs:Vector+2,es
  71.      pop  es,bp
  72.      iret
  73. ENDP
  74.      
  75. Vector    DD ?
  76.  
  77.