DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/3

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/3

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f0a9249c3⟧ s3xseg

    Length: 1016 (0x3f8)
    Types: s3xseg
    Names: »S$CKL«

Derivation

└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
    └─⟦e1bdf435f⟧ 
        └─⟦this⟧ »S$CKL«

TextSegment

       MACRO                                                            00010000                
&ID    $CKL  &DTF-'''DTF',&SKIP-N,&REQK-N,&RTN-N,&LAST-N,&CONS-N        00020000                
       GBLB  &$BCOM                                                     00350000                
       TABLE &SKIP                                                      00360000                
Y      TABDF 128                                                        00370000                
N      TABDF 0                                                          00380000                
       TABDF '''SKIP'                                                   00390000                
       TABLE &REQK                                                      00410000                
Y      TABDF 64                                                         00420000                
N      TABDF 0                                                          00430000                
       TABDF '''REQK'                                                   00440000                
       TABLE &CONS                                                      00460000                
Y      TABDF 64                                                         00470000                
N      TABDF 0                                                          00480000                
       TABDF '''CONS'                                                   00490000                
       TABLE &RTN                                                       00510000                
Y      TABDF 16                                                         00520000                
N      TABDF 0                                                          00530000                
       TABDF '''RTN'                                                    00540000                
       TABLE &LAST                                                      00560000                
Y      TABDF 32                                                         00570000                
N      TABDF 0                                                          00580000                
       TABDF '''LAST'                                                   00590000                
       TEXT                                                             00610000                
       AIF   (&$BCOM).A                                                 00620000                
*      CHECK LIST FOR COMMON WAIT      RELEASE-7  B                     00630000                
&$BCOM SETB  1                                                          00640000                
.A     AIF   (&REQK NE '64').C                                          00650000                
&ID    DC    AL1(&SKIP+&REQK+&LAST+&RTN) ENTRY STATUS BYTE.             00660000                
       AGO   .E                                                         00670000                
.C     ANOP                                                             00680000                
&ID    DC    AL1(&SKIP+&REQK+&LAST+&RTN+&CONS) ENTRY STATUS BYTE.       00690000                
.E     DC    AL2(&DTF)                 DTF ADDRESS.                     00700000                
       SPACE                                                            00710000                
       MEND                                                             00720000