|
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: 1270 (0x4f6)
Types: s3xseg
Names: »S$DTFK«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTFK«
MACRO 00010000
&LABEL $DTFK &NAME-,&AC-,&BUFNO-,&CHN-,&RCAD-,&RECL-,&UP-,&IO- 00020000
TABLE &AC 00510000
I TABDF 48 00520000
O TABDF 44 00530000
'' TABDF 48 00540000
TABLE &RCAD 00550000
'' TABDF X'FFFF' 00560000
TABLE &BUFNO 00570000
1 TABDF 00 00580000
2 TABDF 08 00590000
'' TABDF 00 00600000
TABLE &CHN 00610000
'' TABDF X'FFFF' 00620000
TABLE &UP 00630000
'' TABDF 0 00640000
TEXT 00650000
AIF (T'&LABEL EQ 'O').A 00660000
&LABEL EQU * 00670000
.A ANOP 00680000
DC XL1'40' DEVICE ADDRESS - 3741 00690000
DC BL1'&UP' EXTERNAL INDICATOR 00700000
DC XL1'&AC' ATTRIBUTE BYTE 1 00710000
DC XL1'&BUFNO' ATTRIBUTE BYTE 2 00720000
DC AL2(&RECL) BACKWARD CHAIN ADDR - POST OPEN 00730000
* RECORD LENGTH - PRE OPEN 00740000
DC AL2(&CHN) ADDRESS NEXT DTF 00750000
DC XL4'00' REGISTER SAVE AREA 00760000
DC AL2(&RCAD) LOGICAL RECORD ADDRESS 00770000
DC XL2'00' COMPLETION + OPERATION CODE 00780000
DC AL2(&IO) ADDRESS OF I/O AREA 00790000
DC XL2'00' 00800000
DC AL2(&RECL) DEFAULT BLOCK LENGTH 00810000
DC AL2(&RECL) RECORD LENGTH - POST OPEN 00820000
DC XL7'0' 00830000
DC CL8'&NAME' FILE NAME 00840000
MEND 00850000