home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / util / libs / DigNet_1_0.lha / dignet / demo / sources / ReadDIGNET.asm < prev    next >
Encoding:
Assembly Source File  |  1997-02-25  |  2.2 KB  |  109 lines
  1. *>b:ReadDIGNET
  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.     *    ReadDIGNET 1.0
  10.     *
  11.     *   Function
  12.     *       Reads the port and outputs the data to CONsole.
  13.     *
  14.     *   Inputs
  15.     *    ReadDIGNET
  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:dos_lib.i
  35.         include    lvo:intuition_lib.i
  36.         include    lvo:graphics_lib.i
  37.         include    lvo:dfunc_lib.i
  38.         include    lvo:dignet_lib.i
  39.  
  40.         Incdir    inc:
  41.  
  42.         include    digital.macs
  43.         include    digital.i
  44.         include    dfunc/dfunc.i
  45.  
  46.         include    startup.asm
  47.  
  48.         Incdir    ""
  49.  
  50.         dc.b    "$VER: ReadDIGNET 1.0 (23.2.97)",10
  51.         dc.b    "Copyright © 1997 Digital Surface. All rights reserved. ",0
  52.         even
  53. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
  54. Init        TaskName    "Read DIGNET"
  55.         DefLib    dfunc,38
  56.         DefLib    dignet,1
  57.         DefLib    dos,39
  58.         DefEnd
  59.  
  60. Start    LibBase    dignet
  61.  
  62.     lea    DevN(pc),a0
  63.     moveq.l    #0,d0
  64.     Call    AllocNet
  65.     move.l    d0,Net
  66.     beq    Close
  67.  
  68. .loop    LibBase    dos
  69.     moveq.l    #8,d1
  70.     Call    Delay
  71.  
  72.     btst    #2,$dff016        ;press RMB to exit (this is a hack!)
  73.     beq    .exit
  74.  
  75.     LibBase    dignet
  76.     move.l    Net(pc),a0
  77.     Call    QueryNet
  78.     tst.l    d0
  79.     beq    .loop
  80.  
  81.     move.l    d0,d7
  82.  
  83. .readlp    LibBase    dignet
  84.     move.l    Net(pc),a0
  85.     lea    Buffer(pc),a1
  86.     moveq.l    #1,d0
  87.     Call    ReadNet
  88.  
  89.     LibBase    dfunc
  90.     lea    Buffer(pc),a0
  91.     DCall    WriteStd
  92.  
  93.     subq.l    #1,d7
  94.     bne.b    .readlp
  95.  
  96.     bra    .loop
  97.  
  98. .exit    LibBase    dignet
  99.  
  100.     move.l    Net(pc),a0
  101.     Call    FreeNet
  102. *------------------------------------------------------------------------------------------------------------*
  103. Close        Return    0
  104. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
  105. Net        dc.l    0
  106. DevN        dc.b    "duart.device",0
  107. Buffer        dcb.b    2,0
  108. *»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
  109.