home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / util / libs / DigNet_1_0.lha / dignet / demo / sources / WriteDIGNET.asm < prev   
Encoding:
Assembly Source File  |  1997-02-25  |  2.0 KB  |  89 lines
  1. *>b:WriteDIGNET
  2.  
  3.     *«««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««*
  4.     *   Copyright © 1997 by Kenneth C. Nilsen.  E-Mail: kennecni@IDGonline.no              *
  5.     *   Source viewed in 800x600 with Thin711.font (11) in CED                      *
  6.     *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
  7.     *
  8.     *   Name
  9.     *    WritetDIGNET 1.0
  10.     *
  11.     *   Function
  12.     *       Sends ARG to duart.device 1. Have NComm open on duart.device unit 0 to receive
  13.     *
  14.     *   Inputs
  15.     *    TestDIGNET <string>
  16.     *
  17.     *   Notes
  18.     *    
  19.     *   Bugs
  20.     *    
  21.     *   Created    : 23.2.97
  22.     *   Changes    : 23.2.97
  23.     *««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««*
  24.  
  25.  
  26. StartSkip    =    0
  27.  
  28. ;DODUMP        SET    1
  29.  
  30.  
  31.         Incdir    ""
  32.  
  33.         include    lvo:exec_lib.i
  34.         include    lvo:dfunc_lib.i
  35.         include    lvo:dignet_lib.i
  36.  
  37.         Incdir    inc:
  38.  
  39.         include    digital.macs
  40.         include    startup.asm
  41.  
  42.         Incdir    ""
  43.  
  44.         dc.b    "$VER: WriteDIGNET 1.0 (23.2.97)",10
  45.         dc.b    "Copyright © 1997 Digital Surface. All rights reserved. ",0
  46.         even
  47. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
  48. Init        TaskName    "Write DIGNET"
  49.         DefLib    dfunc,38
  50.         DefLib    dignet,1
  51.         DefEnd
  52.  
  53. Start    NextArg
  54.     beq    Close
  55.     move.l    d0,a0
  56.     lea    Buffer(pc),a1
  57. .copy    move.b    (a0)+,(a1)+
  58.     bne.b    .copy
  59.  
  60.     move.b    #10,-1(a1)
  61.  
  62.     LibBase    dignet
  63.  
  64.     lea    DevN(pc),a0
  65.     moveq.l    #1,d0
  66.     Call    AllocNet
  67.     move.l    d0,Net
  68.     beq    Close
  69.  
  70.     move.l    d0,a0
  71.     lea    Buffer(pc),a1
  72.     move.l    a1,a2
  73.     moveq.l    #0,d0
  74. .count    addq.l    #1,d0
  75.     tst.b    (a2)+
  76.     bne.b    .count
  77.  
  78.     Call    WriteNet
  79.  
  80.     move.l    Net(pc),a0
  81.     Call    FreeNet
  82. *------------------------------------------------------------------------------------------------------------*
  83. Close        Return    0
  84. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
  85. Net        dc.l    0
  86. DevN        dc.b    "duart.device",0
  87. Buffer        dcb.b    2048,0
  88. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
  89.