|
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: 4572 (0x11dc)
Types: s3xseg
Names: »S$DTFU«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTFU«
MACRO 00010000
&LABEL $DTFU &DEV-,&FTYP-,&UP-,&DIO-,&HUC-,&RECL-,&CHN-,&RCAD-, C00620000
&PUA1-,&RDA2-,&PTA1-,&OVFL-,&PG-,&CHK-,&RTN-, C00630000
&RDA1-,&MSKP-,&REQK-,&FILL-,&SPACE-,&REPLY- 00640000
TABLE &DEV 00650000
D1442 TABDF 50 00660000
PRNTR2 TABDF 'E8' 00670000
PRNTR1 TABDF 'E0' 00680000
PRNTR TABDF 'E0' 00690000
MFCU2 TABDF 'F8' 00700000
MFCU1 TABDF 'F0' 00710000
MFCU TABDF 'F0' 00720000
CONSOL TABDF '10' 00730000
TABDF '''DEV' 00740000
TABLE &UP 00750000
'' TABDF 0 00760000
TABLE &MSKP 00770000
'' TABDF 'X''0''' 00780000
TABLE &DIO 00790000
'' TABDF 'X''0''' 00800000
Y TABDF 'X''8''' 00810000
N TABDF 'X''0''' 00820000
TABLE &HUC 00830000
'' TABDF 'X''0''' 00840000
Y TABDF 'X''2''' 00850000
N TABDF 'X''0''' 00860000
TABLE &FTYP 00870000
I TABDF 'X''80''' 00880000
P TABDF 'X''40''' 00890000
C TABDF 'X''C0''' 00900000
P1 TABDF 'X''40''' 00910000
P2 TABDF 'X''08''' 00920000
P3 TABDF 'X''48''' 00930000
C1 TABDF 'X''C0''' 00940000
C2 TABDF 'X''88''' 00950000
C3 TABDF 'X''C8''' 00960000
TABDF '''FTYP' 00970000
TABLE &RECL 00980000
'' TABDF 0 00990000
TABLE &CHN 01000000
'' TABDF 'X''FFFF''' 01010000
TABLE &RCAD 01020000
'' TABDF 'X''FFFF''' 01030000
TABLE &OVFL 01040000
'' TABDF 0 01050000
TABLE &PG 01060000
'' TABDF 66 01070000
TABLE &RDA1 01080000
'' TABDF 'X''FFFF''' 01090000
TABLE &RDA2 01100000
'' TABDF 'X''FFFF''' 01110000
TABLE &PUA1 01120000
'' TABDF 'X''FFFF''' 01130000
TABLE &PTA1 01140000
'' TABDF 'X''FFFF''' 01150000
TABLE &REQK 01160000
Y TABDF 'X''10''' 01170000
N TABDF 'X''00''' 01180000
'' TABDF 'X''00''' 01190000
TABLE &FILL 01200000
Y TABDF 'X''02''' 01210000
N TABDF 'X''00''' 01220000
'' TABDF 'X''00''' 01230000
TABLE &SPACE 01240000
'' TABDF '0' 01250000
TABLE &REPLY 01260000
'' TABDF 'X''00''' 01270000
TABLE &CHK 01270001
Y TABDF 'X''08''' 01270002
N TABDF 'X''00''' 01270003
'' TABDF 'X''00''' 01270004
TABLE &RTN 01270005
Y TABDF 'X''04''' 01270006
N TABDF 'X''00''' 01270007
'' TABDF 'X''00''' 01270008
TEXT 01280000
* DEFINE THE FILE FOR UNIT RECORD DEVICES RELEASE-7 01280001
AIF (T'&LABEL EQ 'O').A 01290000
&LABEL EQU * GENERATE USER LABEL 01300000
.A DC XL1'&DEV' DEVICE ADDRESS 01310000
DC BL1'&UP' UPSI MASK 01320000
DC AL1(&FTYP) ATTRIBUTE BYTE 1 -- FILE TYPE 01330000
DC AL1(&DIO+&HUC) ATTRIBUTE BYTE 2 01340000
DC AL2(&RECL) LOGICAL RECORD LENGTH 01350000
DC AL2(&CHN) DTF CHAINING ADDRESS 01360000
DC XL4'00' REGISTER SAVE AREA 01370000
DC AL2(&RCAD) LOGICAL RECORD ADDRESS 01380000
AIF (&DEV EQ 'E0').B 01390000
AIF (&DEV EQ 'E8').B 01400000
AIF (&DEV EQ '10').B1 01410000
DC AL2(*+28) ADDRESS OF 2ND READ IOB 01420000
DC AL2(&RDA2) ADDRESS OF 2ND READ BUFFER 01430000
DC AL2(*+19) FOR POST OPEN DTF USE 01440000
DC AL2(0) RESERVED FOR POST OPEN DTF 01450000
DC XL1'00' RESERVED FOR POST OPEN DTF 01460000
DC AL2(*+24) ADDRESS OF IOS/ERP SAVE AREA 01470000
DC AL2(*+12) ADDRESS OF 1ST READ IOB 01480000
DC AL2(&RDA1) ADDRESS OF 1ST READ BUFFER 01490000
DC AL2(*+13) ADDRESS OF 1ST PUNCH IOB 01500000
DC AL2(&PUA1) ADDRESS OF 1ST PUNCH BUFFER 01510000
DC AL2(&PTA1) ADDRESS OF MFCU PRINT BUFFER) 01520000
DC XL2'00' RESERVED FOR POST OPEN DTF 01530000
DC XL5'00' RESERVED FOR POST OPEN DTF 01540000
DC XL5'00' RESERVED FOR POST OPEN DTF 01550000
DC XL15'00' RESERVED FOR POST OPEN DTF 01560000
AGO .C 01570000
.B DC AL2(0) RESERVED FOR POST OPEN DTF 01580000
DC AL2(*+26) FOR POST OPEN DTF USE 01590000
DC XL6'00' RESERVED FOR POST OPEN DTF 01600000
DC AL1(&MSKP) MAXIMUM SKIP LINE NUMBER 01610000
DC XL3'00' RESERVED FOR POST OPEN DTF 01620000
DC AL2(*+9) ADDRESS OF 1ST PRINT IOB 01630000
DC AL2(&PTA1) ADDRESS OF 1ST PRINT BUFFER 01640000
DC XL1'00' RESERVED FOR POST OPEN DTF 01650000
DC AL1(&OVFL) OVERFLOW LINE VALUE 01660000
DC AL1(&PG) TOTAL NO. LINES PER PAGE 01670000
DC AL2(*+12) ADDRESS ERP-SAVE AREA 01680000
DC XL5'00' RESERVED FOR POST OPEN DTF 01690000
DC XL5'00' RESERVED FOR POST OPEN DTF 01700000
DC XL6'00' RESERVED FOR POST OPEN DTF 01710000
AGO .C 01720000
.B1 DC XL1'00' COMPLETION CODE BYTE 01730000
DC AL1(X'E0'+&REQK+&FILL) OPERATION CODE 01740000
DC AL1(&RECL) RECORD LENGTH 01750000
DC AL1(&REPLY) LENGTH OF OPERATOR REPLY 01760000
DC XL1'&SPACE' SPACE BEFORE/AFTER BYTE 01770000
DC AL2(&RCAD) RECORD ADDRESS 01780000
DC AL1(&FTYP+&CHK+&RTN) SECOND OPERATION CODE 01780001
.C ANOP 01790000
MEND 01810000
10000 940000 C2 TABDF '