ibm:vm370-lib:rscs:taske.copy_src
Table of Contents
TASKE Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- TASKE.COPY.txt
- *COPY TASKE 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').TAS01 00001400
- PRINT OFF,NOGEN 00001600
- .TAS01 ANOP 00001800
- TASKE DSECT 00002000
- SPACE 1 00003000
- *** TASKE - TASK ELEMENT 00004000
- * 00005000
- * 0 +-----------------------------------------------+ 00006000
- * | TASKNEXT | 00007000
- * 4 +-----------------------------------------------+ 00008000
- * | TASKSAVE | 00009000
- * 8 +-----------------------------------------------+ 00010000
- * | TASKNAME | 00011000
- * C +-----------------------+-----------+-----------+ 00012000
- * | | TASKSTAT | TASKID | 00013000
- * 10 +-----------------------+-----------+-----------+ 00014000
- * 00015000
- *** TASKE - TASK ELEMENT 00016000
- SPACE 1 00017000
- TASKNEXT DS 1F NEXT TASK ELEMENT 00018000
- TASKSAVE DS 1F TASK'S SYSTEM SAVE AREA 00019000
- TASKNAME DS CL4 TASK NAME 00020000
- TASKSPAR DS AL2 SPARE 00021000
- TASKSTAT DS 1X STATUS FLAGS 00022000
- TASKID DS 1X SUPERVISOR SPECIFIED ID 00023000
- SPACE 1 00024000
- * BITS DEFINED IN TASKSTAT 00025000
- WAITING EQU X'80' TASK IS NON-DISPATCHABLE 00026000
- LOCKLIST EQU X'40' WAITING ON SYNCH LOCK LIST 00027000
- LIMBO EQU X'01' TASK IS BEING TERMINATED 00028000
- EJECT 00029000
- POP PRINT 00030000
- SPACE 00031000
ibm/vm370-lib/rscs/taske.copy_src.txt · Last modified: 2023/08/06 13:39 by Site Administrator