ibm:vm370-lib:rscs:freee.copy_src
Table of Contents
FREEE Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- FREEE.COPY.txt
- *COPY FREEE 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').FRE01 00001400
- PRINT OFF,NOGEN 00001600
- .FRE01 ANOP 00001800
- FREEE DSECT 00002000
- SPACE 1 00003000
- *** FREEE - FREE QUEUE ELEMENT 00004000
- * 00005000
- * 0 +-----------------------------------------------+ 00006000
- * | FREENEXT | 00007000
- * 4 +-----------------------------------------------+ 00008000
- * | | 00009000
- * | | 00010000
- * | | 00011000
- * C | +-----------+ 00012000
- * | | FREEID | 00013000
- * 10 +-----------------------------------------------+ 00014000
- * 00015000
- *** FREEE - FREE QUEUE ELEMENT 00016000
- SPACE 1 00017000
- FREENEXT DS 1F NEXT FREE ELEMENT 00018000
- FREESPAR DS CL11 SPARE 00019000
- FREEID DS 1X STANDARD TASK ID OFFSET 00020000
- * -- ID=X'00' => FREE ELMENT 00021000
- EJECT 00022000
- POP PRINT 00023000
- SPACE 00024000
ibm/vm370-lib/rscs/freee.copy_src.txt · Last modified: 2023/08/06 13:39 by Site Administrator