|
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: 2794 (0xaea)
Types: s3xseg
Names: »S$DTFT«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTFT«
MACRO 00010000
&LABEL $DTFT &AC-,&BASIC-,&RECFM-,&END-,&MBUFF-,&MODE-,&RECL-, X00020000
&CHN-,&RCAD-,&IO-,&LIOA-,&BLKL-,&NAME-, X00030000
&SPAN-,&CODE-,&OSET-,&UP- 00040000
TABLE &AC 00270000
IN TABDF X'48' 00280000
OUT TABDF X'44' 00290000
TABLE &BASIC 00300000
Y TABDF X'02' 00310000
N TABDF X'00' 00320000
'' TABDF X'00' 00330000
TABLE &RECFM 00340000
F TABDF X'A0' 00350000
FB TABDF X'90' 00360000
V TABDF X'60' 00370000
VB TABDF X'50' 00380000
D TABDF X'64' 00390000
DB TABDF X'54' 00400000
'' TABDF X'A0' 00410000
TABLE &END 00420000
UNLOAD TABDF X'80' 00430000
LEAVE TABDF X'40' 00440000
REWIND TABDF X'C0' 00450000
'' TABDF X'C0' 00460000
TABLE &MBUFF 00470000
Y TABDF X'08' 00480000
N TABDF X'00' 00490000
'' TABDF X'00' 00500000
TABLE &MODE 00510000
LOCATE TABDF X'10' 00520000
MOVE TABDF X'00' 00530000
'' TABDF X'00' 00540000
TABLE &CODE 00550000
A TABDF X'02' 00560000
E TABDF X'00' 00570000
'' TABDF X'00' 00580000
TABLE &CHN 00590000
'' TABDF X'FFFF' 00600000
TABLE &RCAD 00610000
'' TABDF 0 00620000
TABLE &RECL 00630000
'' TABDF 0 00640000
TABLE &BLKL 00650000
'' TABDF 0 00660000
TABLE &LIOA 00670000
'' TABDF 0 00680000
TABLE &SPAN 00690000
Y TABDF X'08' 00700000
N TABDF X'00' 00710000
'' TABDF X'00' 00720000
TABLE &OSET 00730000
B TABDF X'80' 00740000
'' TABDF X'00' 00750000
TABLE &UP 00760000
'' TABDF 0 00770000
TEXT 00780000
* DEFINE THE FILE FOR TAPE RELEASE-7 00790000
AIF (T'&LABEL EQ 'O').A 00800000
&LABEL EQU * 00810000
.A DC XL1'60' DEVICE Q CODE 00820000
DC BL1'&UP' EXTERNAL INDICATOR 00830000
DC AL1(&AC+&BASIC) ATTRIBUTE BYTE 0 00840000
DC AL1(&END+&MODE+&MBUFF) ATTRIBUTE BYTE1 00850000
DC AL2(&RECL) RECORD LENGTH PRE-OPEN 00860000
* DTF CHAIN ADDRESS 00870000
DC AL2(&CHN) DTF CHAIN ADDRESS 00880000
DC XL4'00' REGISTER SAVE AREA 00890000
DC AL2(&RCAD) ADDR OF LOGICAL RECORD 00900000
DC XL2'00' COMPLETION AND OPERATION CODE 00910000
DC AL2(&IO) ADDR OF CURRENT I/O IOB 00920000
DC AL2(&LIOA) ADDR OF CURRENT PROCESS IOB 00930000
* LENGTH OF I/O AREA PRE-OPEN 00940000
DC AL2(&BLKL) BLOCK LENGTH 00950000
DC XL6'00' MAXIMUM RECORD LENGTH 00960000
* BLOCK INDEX 00970000
* CURRENT RECORD LENGTH 00980000
DC AL1(&RECFM+&SPAN+&CODE) ATTRIBUTE BYTE 2 00990000
DC XL2'00' ERROR CODE / SWA FORMAT 1 NO. 01000000
DC CL8'&NAME' FILE NAME 01010000
AIF (T'&CODE EQ 'O').B 01020000
DC AL1(&OSET) BUFFER OFFSET PRE-OPEN 01030000
AGO .X 01040000
.B DC XL1'00' INDICATOR BITS 01050000
.X ANOP 01060000
MEND 01070000
ggggggggggggg' 2aaaaaaaaaBBBBBBBBBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBôôôôôôôôôôôôôôôôôôôôôôôôôôôô
ôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}}}}}}}}}
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}ØØØØØØØØØØØØØØØØØØØØØ
ØØØØØØØØØØØØØØl@ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ}').A10 IF AC-CG BRANCH TO .A10
01690000 AIF (&AC EQ '16896').A10 IF AC-CU BRANCH TO .A10
01700000 AIF (&AC EQ '34848').A10 IF AC-IR BRANCH TO .A10
0