|
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: 4826 (0x12da)
Types: s3xseg
Names: »S$GETD«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$GETD«
MACRO 00010000
&LABEL $GETD &DTF-,&ERR-,&EOF-,&AC-,&NRF-,&LSTV-,&NOKY- 00170000
TABLE &AC * ACCESS METHOD TABLE 00180000
CU TABDF CSUP CONSECUTIVE UPDATE 00190000
DO TABDF DAUD DIRECT OUTPUT 00200000
DOM TABDF DAUM DIRECT OUTPUT MULTIVOLUME 00210000
DOA TABDF DAUB DIRECT OUTPUT AND ADD 00220000
DOAM TABDF DAUT DIRECT OUTPUT AND ADD MULTIVOLUME00230000
ISL TABDF ISIL INDEXED SEQ. GET WITHIN LIMITS 00240000
ISM TABDF ISIM INDEXED SEQUENTIAL GET MULTIVOL. 00250000
ISUL TABDF ISUL INDEXED SEQ. UPDATE WITHIN LIMITS00260000
ISUM TABDF ISUM INDEXED SEQ. UPDATE MULTIVOLUME 00270000
ISAM TABDF ISAM INDEXED SEQ ADD MULTIVOLUME 00280000
ISUA TABDF ISUA INDEXED SEQ UPDATE AND ADD 00290000
ISBM TABDF ISBM INDEXED SEQ UPDATE AND ADD MVF 00300000
IRM TABDF IRIM INDEXED RANDOM INPUT MVF 00310000
IRUM TABDF IRUM INDEXED RANDOM UPDATE MVF 00320000
IRAM TABDF IRAM INDEXED RANDOM ADD MVF 00330000
IRUA TABDF IRUA INDEXED RANDOM UPDATE AND ADD 00340000
IRBM TABDF IRBM INDEXED RANDOM UPDATE, ADD MVF 00350000
DUAM TABDF DAUT DIRECT UPDATE AND ADD MVF 00360000
DGAM TABDF DAIT DIRECT GET ADDROUT MVF 00370000
DGM TABDF DAIM DIRECT GET MVF 00380000
IRU TABDF IRUP INDEXED RANDOM UPDATE 00390000
ISA TABDF ISAD INDEXED SEQUENTIAL ADD 00400000
IRA TABDF IRAD INDEXED RANDOM ADD 00410000
DUA TABDF DAUB DIRECT UPDATE AND ADD 00420000
DGA TABDF DAIB DIRECT GET ADDROUT 00430000
DU TABDF DAUD DIRECT UPDATE 00440000
DG TABDF DAID DIRECT GET 00450000
DUM TABDF DAUM DIRECT UPDATE MULTIVOLUME 00460000
CGM TABDF CSIM CONSECUTIVE GET MVF 00470000
CUM TABDF CSUM CONSECUTIVE UPDATE MVF 00480000
CG TABDF CSIP CONSECUTIVE GET 00490000
IR TABDF IRIP INDEXED RANDOM RETRIEVE 00500000
ISU TABDF ISUP INDEXED SEQUENTIAL UPDATE 00510000
IS TABDF ISIP INDEXED SEQUENTIAL INPUT 00520000
CU5 TABDF CFUP CONSECUTIVE UPDATE 5445 00530000
DO5 TABDF DFUD DIRECT OUTPUT 5445 00540000
DOM5 TABDF DFUM DIRECT OUTPUT MVF 5445 00550000
DOA5 TABDF DFUB DIRECT OUTPUT & ADD 5445 00560000
DOAM5 TABDF DFUT DIRECT OUTPUT & ADD MVF 5445 00570000
ISL5 TABDF IHIL INDEXED SEQ GET WITH LIMITS 5445 00580000
ISM5 TABDF IHIM INDEXED SEQ GET MVF 5445 00590000
ISUL5 TABDF IHUL INDEXED SEQ UPDATE WITH LIMITS 4500600000
ISUM5 TABDF IHUM INDEXED SEQ UPDATE MVF 5445 00610000
ISAM5 TABDF IHAM INDEXED SEQ ADD MVF 5445 00620000
ISUA5 TABDF IHUA INDEXED SEQ UPDATE & ADD 5445 00630000
ISBM5 TABDF IHBM INDEXED SEQ UPDATE & ADD MVF 544500640000
IRM5 TABDF IGIM INDEXED RANDOM INPUT MVF 5445 00650000
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 4500690000
DUAM5 TABDF DFUT DIRECT UPDATE & ADD MVF 5445 00700000
DGAM5 TABDF DFIT DIRECT GET ADDROUT MVF 5445 00710000
DGM5 TABDF DFIM DIRECT GET MVF 5445 00720000
IRU5 TABDF IGUP INDEXED RANDOM UPDATE 5445 00730000
ISA5 TABDF IHAD INDEXED SEQ ADD 5445 00740000
IRA5 TABDF IGAD INDEXED RANDOM ADD 5445 00750000
DUA5 TABDF DFUB DIRECT UPDATE & ADD 5445 00760000
DGA5 TABDF DFIB DIRECT GET ADDROUT 5445 00770000
DU5 TABDF DFUD DIRECT UPDATE 5445 00780000
DG5 TABDF DFID DIRECT GET 5445 00790000
DUM5 TABDF DFUM DIRECT UPDATE MVF 5445 00800000
CGM5 TABDF CFIM CONSECUTIVE GET MVF 5445 00810000
CUM5 TABDF CFUM CONSECUTIVE UPDATE MVF 5445 00820000
CG5 TABDF CFIP CONSECUTIVE GET 5445 00830000
IR5 TABDF IGIP INDEXED RANDOM RETRIEVE 5445 00840000
ISU5 TABDF IHUP INDEXED SEQ UPDATE 5445 00850000
IS5 TABDF IHIP INDEXED SEQ INPUT 5445 00860000
TEXT 00870000
* DISK GET LINKAGE RELEASE-7 00870001
AIF (T'&LABEL EQ 'O').A 00880000
&LABEL EQU * 00890000
.A AIF (T'&DTF EQ 'O').B 00900000
LA &DTF,$DTF SET DTF IN REGISTER 00910000
.B MVI $DFOPC(,$DTF),X'80' INDICATE -GET- IN DTF 00920000
BC $$&AC,X'FF' CALL DISK DATA MANAGEMENT 00930000
AIF (T'&ERR EQ 'O').C 00940000
CLI $DFCMP(,$DTF),X'41' WAS THERE A PERMANENT ERROR 00950000
BE &ERR YES, GO TO ERROR ADDRESS 00960000
.C AIF (T'&EOF EQ 'O').D 00970000
CLI $DFCMP(,$DTF),X'42' WAS END OF FILE REACHED 00980000
BE &EOF YES GOTO END OF FILE ADDRESS 00990000
AGO .L3 01000000
.D AIF (T'&NRF EQ 'O').L1 01010000
CLI $DFCMP(,$DTF),X'44' WAS RECORD FOUND? 01020000
BE &NRF NO. GO TO NRF LOGIC 01030000
.L1 AIF (T'&LSTV EQ 'O').L2 01040000
CLI $DFCMP(,$DTF),X'72' WAS END OF LAST VOLUME REACHED? 01050000
BE &LSTV YES. GO TO LAST VOLUME ROUTINE 01060000
.L2 AIF (T'&NOKY EQ 'O').L3 01070000
CLI $DFCMP(,$DTF),X'64' WAS KEY TOO HI OR TOO LOW? 01080000
BE &NOKY YES GO TO BAD KEY LOGIC 01090000
.L3 ANOP 01100000
MEND 01120000