home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / DataScope 2.0.3 / DataScope2l / TCPSource / usera5.a < prev    next >
Encoding:
Text File  |  1994-05-04  |  909 b   |  57 lines  |  [TEXT/MPS ]
  1. ;        MacTCP a5 world code
  2.  
  3.     blanks off
  4.     case on
  5.  
  6. NHApple    PROC    EXPORT
  7.  
  8. ;
  9. ;
  10. ;        PUBLIC    _BKGRtask,_initBKGR
  11.         EXPORT initMyWorld, myWorld, theirWorld, UDPstub, initUDPstub
  12. initMyWorld
  13.         LEA        A5ptr,A0
  14.         MOVE.L    A5,D0
  15.         MOVE.L    D0,0(A0)
  16.  
  17.         RTS
  18.  
  19.     
  20. myWorld
  21.         LEA        A5save,A0        ; Prepare to save current A5
  22.         MOVE.L    A5,D0            ; Move to valid spot
  23.         MOVE.L    D0,(a0)            ; store it 
  24.  
  25.         LEA        A5ptr,A0        ; Ready to get ours?
  26.         MOVEA.L    (a0),A5            ; Load 'er up!
  27.  
  28.         RTS
  29. theirWorld
  30.  
  31.         LEA        A5save,A0        ; Prepare to give control back
  32.         MOVEA.L    (a0),a5            ; Load 'er up!
  33.         RTS
  34.  
  35. initUDPstub
  36.         LEA        UDPaddr,A0
  37.         MOVE.L    4(SP),D0
  38.         MOVE.L    D0,0(A0)
  39.         RTS
  40.  
  41. UDPstub
  42.         MOVE.L    a1,-(sp)        ; Push ICMP
  43.         MOVE.L    d0,-(sp)        ; Push eventCode
  44.         MOVE.L    a0,-(sp)        ; Push StreamPtr
  45.         LEA        UDPaddr,A0
  46.         MOVEA.L    (a0),a0            ; Lets go there!
  47.         JSR        (a0)            ; Go to the JumpTo Address
  48.         ADDA.L    #12,sp
  49.         RTS
  50.         
  51. UDPaddr    DC.L    0
  52. A5ptr    DC.L    0
  53. A5save    DC.L    0
  54.     ENDPROC
  55.     
  56.     END
  57.