|
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: 5334 (0x14d6)
Types: s3xseg
Names: »S$PUTD«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$PUTD«
MACRO 00010000
&LABEL $PUTD &AC-,&DTF-,&EOX-,&ERR-,&DUP-,&KERR-,&UPD-, X00230000
&SERR-,&LSTV-,&HKER-,&NOKY- 00240000
TABLE &AC * ACCESS METHOD TABLE 00250000
DOM TABDF DAUM DIRECT OUTPUT MULTIVOLUME 00260000
DOAM TABDF DAUT DIRECT OUTPUT & ADD MULTIVOLUME 00270000
IOM TABDF IOUM INDEXED OUTPUT MULTIVOLUME 00280000
IAM TABDF IOAM INDEXED ADD MULTIVOLUME 00290000
ISUM TABDF ISUM INDEXED SEQUENTIAL UPDATE MVF 00300000
ISUL TABDF ISUL INDEXED SEQUENTIAL WITHIN LIMITS 00310000
ISAM TABDF ISAM INDEXED SEQUENTIAL ADD MVF 00320000
ISUA TABDF ISUA INDEXED SEQUENTIAL UPDATE & ADD 00330000
ISBM TABDF ISBM INDEXED SEQ UPDATE & ADD MVF 00340000
IRUM TABDF IRUM INDEXED RANDOM UPDATE MVF 00350000
IRAM TABDF IRAM INDEXED RANDOM ADD MVF 00360000
IRUA TABDF IRUA INDEXED RANDOM UPDATE & ADD 00370000
IRBM TABDF IRBM INDEXED RANDOM UPDATE & ADD MVF 00380000
CO TABDF CSOP CONSECUTIVE OUTPUT 00390000
COM TABDF CSOM CONSECUTIVE OUTPUT MVF 00400000
CUM TABDF CSUM CONSECUTIVE UPDATE MVF 00410000
CAM TABDF CSOM CONSECUTIVE ADD MVF 00420000
CU TABDF CSUP CONSECUTIVE UPDATE 00430000
CA TABDF CSOP CONSECUTIVE ADD 00440000
DO TABDF DAUD DIRECT OUTPUT 00450000
DUM TABDF DAUM DIRECT UPDATE MVF 00460000
DUAM TABDF DAUT DIRECT UPDATE ADDROUT MVF 00470000
DU TABDF DAUD DIRECT UPDATE 00480000
DOA TABDF DAUB DIRECT OUTPUT ADDROUT 00490000
DUA TABDF DAUB DIRECT UPDATE ADDROUT 00500000
IO TABDF IOUT INDEXED OUTPUT 00510000
IA TABDF IOAD INDEXED ADD 00520000
ISU TABDF ISUP INDEXED SEQUENTIAL UPDATE 00530000
ISA TABDF ISAD INDEXED SEQUENTIAL ADD 00540000
IRU TABDF IRUP INDEXED RANDOM UPDATE 00550000
IRA TABDF IRAD INDEXED RANDOM ADD 00560000
DOM5 TABDF DFUM DIRECT OUTPUT MVF 5445 00570000
DOAM5 TABDF DFUT DIRECT OUTPUT & ADD MVF 5445 00580000
IOM5 TABDF IFUM INDEXED OUTPUT MVF 5445 00590000
IAM5 TABDF IFAM INDEXED ADD MVF 5445 00600000
ISUM5 TABDF IHUM INDEXED SEQ UPDATE MVF 5445 00610000
ISUL5 TABDF IHUL INDEXED SEQ WITHIN LIMITS 5445 00620000
ISAM5 TABDF IHAM INDEXED SEQ ADD MVF 5445 00630000
ISUA5 TABDF IHUA INDEXED SEQ UPDATE & ADD 5445 00640000
ISBM5 TABDF IHBM INDEXED SEQ UPDATE & ADD MVF 544500650000
IRUM5 TABDF IGUM INDEXED RANDOM UPDATE MVF 5445 00660000
IRAM5 TABDF IGAM INDEXED RANDOM ADD MVF 5445 00670000
IRUA5 TABDF IGUA INDEXED RANDOM UPDATE & ADD 5445 00680000
IRBM5 TABDF IGBM INDEXED RANDOM UPDATE & ADD MVF 00690000
CO5 TABDF CFOP CONSECUTIVE OUTPUT 5445 00700000
COM5 TABDF CFOM CONSECUTIVE OUTPUT MVF 5445 00710000
CUM5 TABDF CFUM CONSECUTIVE UPDATE MVF 5445 00720000
CAM5 TABDF CFOM CONSECUTIVE ADD MVF 5445 00730000
CU5 TABDF CFUP CONSECUTIVE UPDATE 5445 00740000
CA5 TABDF CFOP CONSECUTIVE ADD 5445 00750000
DO5 TABDF DFUD DIRECT OUTPUT 5445 00760000
DUM5 TABDF DFUM DIRCET UPDATE MVF 5445 00770000
DUAM5 TABDF DFUT DIRECT UPDATE ADDROUT MVF 5445 00780000
DU5 TABDF DFUD DIRECT UPDATE 5445 00790000
DOA5 TABDF DFUB DIRECT OUTPUT ADDROUT 5445 00800000
DUA5 TABDF DFUB DIRECT UPDATE ADDROUT 5445 00810000
IO5 TABDF IFUT INDEXED OUTPUT 5445 00820000
IA5 TABDF IFAD INDEXED ADD 5445 00830000
ISU5 TABDF IHUP INDEXED SEQ UPDATE 5445 00840000
ISA5 TABDF IHAD INDEXED SEQ ADD 5445 00850000
IRU5 TABDF IGUP INDEXED RANDOM UPDATE 5445 00860000
IRA5 TABDF IGAD INDEXED RANDOM ADD 5445 00870000
TABDF '''AC''' DEFAULT ON REQUIRED PARAMETER 00880000
TABLE &UPD * UPDATE? 00890000
'' TABDF 'X''40''' DEFAULT NO UPDATE 00900000
Y TABDF 'X''20''' UPDATE OF LOAD/ADD 00910000
N TABDF 'X''40''' NOT UPDATE OR LOAD/ADD 00920000
TEXT 00930000
* DISK PUT LINKAGE RELEASE-8 00930001
AIF (T'&LABEL EQ 'O').A 00940000
&LABEL EQU * USER SPECIFIED LABEL 00950000
.A AIF (T'&DTF EQ 'O').AA 00950001
LA &DTF,$DTF LOAD DTF ADDRESS 00960000
.AA MVI $DFOPC(,$DTF),&UPD SET OPERATION BIT IN DTF 00970000
BC $$&AC,X'FF' CALL DM MAINLINE 00980000
AIF (T'&ERR EQ 'O').B 00990000
CLI $DFCMP(,$DTF),X'41' WAS THERE AN I/O ERROR 01000000
BE &ERR YES GOTO ERR ADDRESS 01010000
.B AIF (&UPD EQ 'X''40''').C 01020000
AIF (T'&KERR EQ 'O').D 01030000
CLI $DFCMP(,$DTF),X'50' WAS KEY CLOBBERED 01040000
BE &KERR YES GOTO KEY ERROR LOGIC 01050000
AGO .D 01060000
.C AIF (T'&DUP EQ 'O').E 01070000
CLI $DFCMP(,$DTF),X'60' WAS THERE A DUPLICATE ADD 01080000
BE &DUP YES GOTO DUP ADD LOGIC 01090000
.E AIF (T'&SERR EQ 'O').F 01100000
CLI $DFCMP(,$DTF),X'62' WAS THERE A SEQUENCE ERROR 01110000
BE &SERR BRANCH TO SEQUENCE ERROR ROUTINE 01120000
.F AIF (T'&EOX EQ 'O').FF 01120001
CLI $DFCMP(,$DTF),X'70' WAS END OF EXTENT REACHED 01130000
BE &EOX BRANCH TO END OF EXTEND ROUTINE 01140000
.FF AIF (T'&LSTV EQ 'O').L1 01150000
CLI $DFCMP(,$DTF),X'72' WAS END OF LAST VOLUME REACHED 01160000
BE &LSTV YES, GOTO LAST VOL LOGIC 01170000
.L1 AIF (T'&HKER EQ 'O').L2 01180000
CLI $DFCMP(,$DTF),X'68' WAS HI KEY MISSING FROM PREV VOL 01180001
BE &HKER YES GO TO HIGH KEY LOGIC 01200000
.L2 AIF (T'&NOKY EQ 'O').L3 01210000
CLI $DFCMP(,$DTF),X'64' WAS KEY TOO HIGH OR TO LOW 01220001
BE &NOKY GO TO BAD KEY LOGIC 01230000
.L3 ANOP 01240000
.D ANOP 01250000
MEND 01270000