home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Archiver / DMS-Windows2,30.LHA / pslist / PSList.asm next >
Encoding:
Assembly Source File  |  1992-09-11  |  1.7 KB  |  110 lines
  1.     exeobj
  2.     objfile 'ram:pslist'
  3.     ;addsym
  4.     multipass
  5.     realtime
  6.  
  7. CALL    MACRO
  8.     jsr    (_LVO\1,a6)
  9.     ENDM
  10.  
  11.  
  12.     lea    (Dt),a4
  13.     OPTIMON BASEREG
  14.     BASEREG A4,Dt
  15.  
  16. OpenDos                
  17.     movea.l    (4).w,a6
  18.     lea    (dosname),a1
  19.     moveq    #37,d0        
  20.     CALL    OpenLibrary
  21.     move.l    d0,(dosbase)
  22.     bne    OpenInt        
  23.     moveq    #20,d0        
  24.     rts            
  25.                 
  26. OpenInt
  27.     lea    (intname),a1
  28.     moveq    #37,d0
  29.     CALL    OpenLibrary
  30.     move.l    d0,(intbase)    
  31.     bne    GetPubScreens    
  32.                 
  33.     move.l    (dosbase),a6    
  34.     move.l    #noint,d1
  35.     CALL    PutStr
  36.     moveq    #20,d3    
  37.     bra    closedos
  38.  
  39. GetPubScreens                
  40.  
  41.     move.l    (dosbase),a6
  42.     move.l    #listps,d1
  43.     CALL    PutStr
  44.  
  45.     movea.l    (intbase),a6
  46.     moveq    #0,d0
  47.     CALL    LockPubScreenList
  48.     tst.l    d0
  49.     beq    unlockps
  50.     move.l    d0,a2
  51.     cmp.l    #0,(a2)    ;No Pub screens!
  52.     beq    unlockps
  53.  
  54.  
  55.     move.l    (LH_HEAD,a2),a2    ; (a2),a2 really  ;Get PubScreenListNode
  56.  
  57. *A2 is now at 1st PubScreen List Node
  58. PSloop
  59.     move.l    (LN_NAME,a2),(arg1)           
  60.     cmp.w    #PSNF_PRIVATE,(psn_Flags,a2)   
  61.     bne    title
  62.     move.l    #Priv,(arg2)
  63.     bra    print
  64. title    move.l    (psn_Screen,a2),a1   ;Screen in A1
  65.     move.l    (sc_Title,a1),(arg2) 
  66. print    bsr    PSPrintF    ;print the results
  67.     move.l    (LN_SUCC,a2),a2 
  68.     cmp.l    #0,(a2)    ;does it point back to LH_TAIL yet
  69.     bne    PSloop
  70. unlockps    
  71.     CALL    UnlockPubScreenList
  72.         
  73.     moveq    #0,d3
  74.  
  75. closeint
  76.     move.l    (4).w,a6
  77.     move.l    (intbase),a1
  78.     CALL    CloseLibrary
  79. closedos
  80.     move.l    (4).w,a6
  81.     move.l    (dosbase),a1
  82.     CALL    CloseLibrary
  83.     move.l    d3,d0    ;return code
  84.     rts
  85.  
  86. PSPrintF
  87.     pushm.l a2/a6        
  88.     move.l    (dosbase),a6    
  89.     move.l    #args,d2    
  90.     move.l    #fv,d1        
  91.     CALL    VPrintf
  92.     popm.l a2/a6
  93.     rts
  94.     
  95. Dt
  96.  
  97. fv    db '%s (%s)',10,0
  98. dosname db 'dos.library',0
  99. Priv    db 'PRIVATE',0
  100. intname db 'intuition.library',0
  101. noint   db 'Failed to open Intuition!',10,0
  102. listps  db 'PSList... by C Bell',10,0
  103.     even
  104. dosbase dx.l 1
  105. intbase dx.l 1
  106. args
  107. arg1    dx.l    1    
  108. arg2    dx.l    1        
  109.     
  110.