|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1016 (0x3f8)
Types: s3xseg
Names: »S$EOCE«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EOCE«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 2 * 00030000
.* * 00040000
.* NAME: $EOCE * 00050000
.* * 00060000
.* FUNCTION: DEFINE GENERAL EQUATES NEEDED BY OPEN AND CLOSE * 00070000
.* TRANSIENTS. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.********************************************************************** 00110000
$EOCE 00120000
TEXT 00130000
*********************************************************************** 00140000
* OPEN/CLOSE COMMON EQUATES * 00150000
*********************************************************************** 00160000
SPACE 00170000
*------ DISK DEVICE TYPE 5444 - 3340 ---------------------------------* 00180000
DEV33 EQU BIT1 DISK DTF IS FOR 3340 DEVICE 00190000
SPACE 00200000
*------ BITS SET IN DTFARR BY OPEN/CLOSE -----------------------------* 00210000
* DTFARR - OPEN/CLOSE ACTIVITY BITS 00260000
OCACT EQU BIT0 THIS DTF TO BE OPENED/CLOSED 00270000
ODISK EQU BIT1 THIS IS A DISK DTF 00280000
SPACE 00300000
*------ OPEN/CLOSE 'TAXPRM' ROUTING BITS -----------------------------* 00350000
OLD1 EQU BIT1 CALL $CC4O1 00355000
OLD2 EQU BIT2 CALL $CC4O2 00360000
OLD3 EQU BIT3 CALL $CC4O3 00370000
OLD4 EQU BIT4 CALL $CC4O4 00380000
MEND 00480000