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

⟦014deab83⟧ s3xseg

    Length: 762 (0x2fa)
    Types: s3xseg
    Names: »S$WRTD«

Derivation

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

TextSegment

       MACRO                                                            00010000                
&LABEL $WRTD &IOB-,&CS-,&NSECT-,&DISK-                                  00100000                
       TABLE &DISK                                                      00110000                
5444   TABDF '4'                                                        00120000                
5445   TABDF '5'                                                        00130000                
''     TABDF '4'                                                        00140000                
       TEXT                                                             00150000                
*    DISK WRITE LINKAGE                RELEASE-7                        00150001                
       AIF   (T'&LABEL EQ 'O').A                                        00160000                
&LABEL EQU   *                         GENERATE USER LABEL              00170000                
.A     LA    &IOB,$IOB                 LOAD IOB ADDRESS                 00180000                
       AIF   (&DISK EQ '5').B                                           00190000                
       MVC   $DISB(2,$IOB),&CS         MOVE CS TO IOB                   00200000                
       MVI   $DINB(,$IOB),X'&NSECT'    MOVE NUMBER OF SECTORS -1        00210000                
       AGO   .C                                                         00220000                
.B     MVC   $DIR(3,$IOB),&CS          MOVE C/H/R TO IOB                00230000                
       MVI   $DIN(,$IOB),X'&NSECT'     MOVE NUMBER OF RECORDS MINUS 1   00240000                
.C     SBN   $DIQB(,$IOB),X'02'        WRITE OPERATION                  00250000                
       B     8                         BRANCH TO DISK I/O               00260000                
       MEND                                                             00280000                
                 LOAD IOB ADDRESS                 00