Google
 

Trailing-Edge - PDP-10 Archives - BB-L289B-RK - atl.ddt
There are 2 other files named atl.ddt in the archive. Click here to see a list.
""ATL - A COMMAND FILE TO DUMP THE ACTIVE TASK LIST"
""DAN DEUFEL"
""LAST EDITED: 16-DEC-81"

""The following define the TASK STATUS:"

""	TS.LRQ==02	- TASK LOAD REQUEST QUEUED"
""	TS.TKN==04	- TASK WAITING FOR TERMINATION NOTIFICATION"
""	TS.LRF==06	- TASK LOAD REQUEST FAILED"
""	TS.RUN==10	- TASK IS RUNNING"
""	TS.SUS==12	- TASK IS SUSPENDED"
""	TS.WF0==14	- TASK IS WAITING FOR AN EVENT FLAG 1-16"
""	TS.WF1==16	- TASK IS WAITING FOR AN EVENT FLAG 17-32"
""	TS.WF2==20	- TASK IS WAITING FOR AN EVENT FLAG 33-48"
""	TS.WF3==22	- TASK IS WAITING FOR AN EVENT FLAG 49-64"
""	TS.WF4==24	- TASK IS WAITING FOR AN EVENT FLAG 1-64"
""	TS.EXT==26	- TASK EXITED"

A
""ACTIVE TASK LIST"


""TASK NAME::".ATLLH/Q<AA:""TASK STACK POINTER::"AA+4/
%GOTO %LOOP1
%LOOP:


""TASK NAME::"AA/Q<AA:""TASK STACK POINTER::"AA+4/
%LOOP1:

""FORWARD LINKAGE::"AA/Q<BB:K""BACKWARD LINKAGE::"AA+2/
""TASK PARTITION ADDRESS::"AA+6/""TASK PRIORITY::"1BAA+10/
""TASK STATUS::"1BAA+14/""TASK FLAGS::"1BAA+15/
""TASK EVENT FLAGS::"2CAA+20/
""TASK EVENT FLAGS MASKS::"4CAA+24/


BB-.ATLLH<ZZ:
%IF NE ZZ %LOOP


""END OF ACTIVE TASK LIST"