|
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: 3048 (0xbe8)
Types: s3xseg
Names: »S$DTOT«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTOT«
MACRO 00010000
$DTOT 00040000
TEXT 00050000
* OFFSETS FOR TAPE DTF RELEASE-7 00060000
$TDDEV EQU 0 DEVICE Q CODE 00070000
$TDERP EQU 1 EXTERNAL INDICATOR 00080000
$TDATR EQU 3 ATTRIBUTE BYTES 00090000
* *** BYTE ZERO *** 00100000
* BIT 1 CONSECTIVE (ALWAYS ON) 00110000
* BIT 3 MULTI-REEL FILE 00120000
* BIT 4 INPUT 00130000
* BIT 5 OUTPUT 00140000
* BIT 6 BASIC ACCESS METHOD 00150000
* *** BYTE ONE *** 00160000
* BIT 0 UNLOAD 00170000
* BIT 1 LEAVE 00180000
* BITS 0 AND 1 REWIND 00190000
* BIT 2 STANDARD LABELED FILE 00200000
* BIT 3 LOCATE MODE 00210000
* BIT 4 MULTIPLE BUFFERING 00220000
* BIT 5 DEFERRED OPEN 00230000
* BIT 6 FORCE EOV CALL TO CLOSE 00240000
* BIT 7 OPENED 00250000
$TDCHA EQU 5 DTF CHAIN PNTR A (BACKWARD) 00260000
$TDCHB EQU 7 DTF CHAIN PNTR B (FORWARD) 00270000
$TDARR EQU 9 ARR SAVE AREA (RETURN ADDR) 00280000
$TDXRS EQU 11 XR1 SAVE AREA (OBJECT PROG'S) 00290000
$TDWKB EQU 13 ADDR OF LOGICAL RECORD 00300000
$TDCMP EQU 14 COMPLETION CODE 00310000
* X'40' NORMAL COMPLETION 00320000
* X'41' CONTROLLED CANCEL TAKEN 00330000
* ON PERMANENT I/O ERROR 00340000
* X'42' END-OF-FILE (INPUT) 00350000
* X'70' END-OF-REEL (OUTPUT) 00360000
* X'90' WRONG LNGTH ON INPUT SHORT 00370000
* X'91' WRONG LNGTH ON INPUT LONG 00380000
$TDOPC EQU 15 OPERATION 00390000
* X'80' GET 00400000
* X'40' PUT 00410000
$TDIOB EQU 17 ADDR OF CURRENT I/O IOB 00420000
$TDPRB EQU 19 ADDR OF CURRENT PROCESS IOB 00430000
$TDLIO EQU 19 LNGTH OF I/O AREA (PRE-OPEN) 00440000
$TDBKL EQU 21 BLOCK LENGTH 00450000
$TDRCL EQU 23 MAXIMUM RECORD LENGTH 00460000
$TDPTR EQU 25 BLOCK INDEX 00470000
$TDCRL EQU 27 CURRENT RECORD LENGTH 00480000
$TDAT2 EQU 28 ATTRIBUTE BYTE TWO 00490000
* BIT 0 FIXED 00500000
* BIT 1 VARIABLE 00510000
* BIT 2 UNBLOCKED 00520000
* BIT 3 BLOCKED 00530000
* BIT 4 SPANNED 00540000
* BIT 5 ASCII FORMAT D 00550000
* BIT 6 ASCII D.M. PRESENT 00560000
* (PRE-OPEN ONLY) 00570000
* BIT 7 ASCII FILE BEING PREC. 00580000
* (POST-OPEN ONLY) 00590000
$TDHTC EQU 29 ERROR CODE FOR HALT TRANSIENT 00600000
$TDNUM EQU 30 SWA FORMAT 1 NUMBER 00610000
$TDWAA EQU 32 WORK AREA A (BLOCK LENGTH 00620000
* COUNTER FOR VARIABLE) 00630000
$TDWAB EQU 34 WORK AREA B (BUFFER OFFSET 00640000
* FOR ASCII) 00650000
$TDWAC EQU 36 WORK AREA C (BLOCK COUNT) 00660000
$TDWAD EQU 38 WORK AREA D (BLOCK LENGTH 00670000
* SAVE AREA) 00680000
$TDNAM EQU 38 FILE NAME (IN PRE-OPEN DTF) 00690000
$TDBO EQU 39 BUF. OFFSET (PRE-OPEN ONLY) 00700000
$TDIND EQU 39 INDICATOR BITS 00710000
* BIT 0 CPR IOB HAS NOT BEEN 00720000
* WAITED ON 00730000
* BIT 1 TRUNCATED BLOCK 00740000
* BIT 2 EMPTY VAR. LNGTH BLOCK 00750000
* BIT 3 EOV CALL TO CLOSE 00760000
* BIT 4 CDVE ENCOUNTERED ERROR 00770000
* READING TRAILER LABEL 00780000
MEND 00790000
HALT TRANSIENT 00600000 '
2aaaaaaaaaBBBBBBBBBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô
ôôôôôôôôôôôôôôôôôôôôôôôôôôôô2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}}}}}}}}}}}}}}}}}}}}}}}
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ
l@ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ}45G GBLB &
DSDIO TABLE &
D5445 NO '
00' D1 '
01' D1,D2 '
03' '
E' TEXT
AIF (
&DISKG).A MNOTE '
0,'IS' MEXIT
.A AIF