home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 262.lha / FastPort / DumpPorts.Asm < prev    next >
Assembly Source File  |  1989-07-07  |  801b  |  47 lines
  1. ;$$TABS=12 $$MAKE="casm -A %s.asm -O%s -CCQS"
  2. ; dump port list, showing hashing
  3.  
  4.     exeobj
  5.     include    "lvo.asm"
  6.     include    "strucdef.asm"
  7.  
  8. start:    move.l    4,a6
  9.     lea    dosname(pc),a1
  10.     moveq    #0,d0
  11.     jsr    _LVOOpenLibrary(a6)
  12.     move.l    eb_PortList(a6),a5
  13.     move.l    d0,a6
  14.     jsr    _LVOOutput(a6)
  15.     move.l    d0,d7
  16. dumper:    cmp.l    #$31415927,(a5)
  17.     beq.s    done_dump
  18.     move.l    d7,d1
  19.     move.l    #sep,d2
  20.     move.l    #10,d3
  21.     jsr    _LVOWrite(a6)
  22.     move.l    a5,a2
  23.     lea    16(a5),a5
  24.     move.l    (a2),d6
  25. scanloop:    move.l    d6,a2
  26.     move.l    (a2),d6
  27.     beq.s    dumper
  28.     move.l    ln_Name(a2),a0
  29.     move.l    a0,d2
  30.     move.l    d7,d1
  31.     moveq    #-1,d3
  32. count:    addq.l    #1,d3
  33.     tst.b    (a0)+
  34.     bne.s    count
  35.     jsr    _LVOWrite(a6)
  36.     move.l    #newlin,d2
  37.     moveq    #1,d3
  38.     move.l    d7,d1
  39.     jsr    _LVOWrite(a6)
  40.     bra.s    scanloop
  41. done_dump    moveq    #0,d0
  42.     rts
  43.  
  44. newlin    dc.b    10
  45. sep    dc.b    '---------',10
  46. dosname    dc.b    'dos.library',0
  47.