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

⟦bdd31ba5f⟧ s3xseg

    Length: 508 (0x1fc)
    Types: s3xseg
    Names: »S$CHK«

Derivation

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

TextSegment

       MACRO                                                            00010000                
&LABEL $CHK  &CKL-                                                      00020000                
       GBLB  &$BCKL                                                     00210000                
       TEXT                                                             00220000                
*     GENERATE A WAIT ON LIST CALL     RELEASE-7  A                     00230000                
       AIF   (T'&LABEL EQ '').A                                         00240000                
&LABEL EQU   *                                                          00250000                
.A     AIF   (T'&CKL EQ '').B                                           00260000                
       LA    &CKL,$PARM                LOAD ADDR OF WAIT LIST IN XR2.   00270000                
.B     B     $$BMCH                    CALL COMMON WAIT.                00280000                
       AIF   (&$BCKL).C                                                 00290000                
       SPACE                                                            00300000                
       EXTRN $$BMCH                    EXTRN FOR $$BMCH.                00310000                
&$BCKL SETB  1                                                          00320000                
.C     SPACE                                                            00330000                
       MEND                                                             00340000                
GENERATED CODE WILL TRANSFER CO