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

⟦fa9844dfc⟧ s3xseg

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

Derivation

└─⟦d025fa538⟧ Bits:30009183 5702-sc1.V16.2
    └─⟦cfce0a73a⟧ 
        └─⟦this⟧ »S$DKBD« 
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
    └─⟦e1bdf435f⟧ 
        └─⟦this⟧ »S$DKBD« 

TextSegment

*                               DKYBD OPTIONS                                                   
       LINK                                                                                     
       $DKBD &KEYBD-                                                                            
       GBLB  &KEYBG,&KEY71,&OUTG                                                                
       TABLE &KEYBD                                                                             
NO           00                                                                                 
5475         81                                                                                 
5471         82                                                                                 
             'E'                                                                                
       TEXT                                                                                     
       AIF   (&OUTG).C                                                                          
       MNOTE '0,'IS'                                                                            
       MEXIT                                                                                    
.C     AIF   (&KEYBD NE 'E').A                                                                  
       MNOTE '0,'IR'                                                                            
       MEXIT                                                                                    
.A     ANOP                                                                                     
&OUTG  SETB  0                                                                                  
&KEYBG SETB  1                                                                                  
       AIF   (&KEYBD EQ '82').GO                                                                
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$STOC                                                
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$STIC                                                
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$STCI                                                
// DELETE FROM-F1,RETAIN-P,LIBRARY-O,NAME-$$DLG7                                                
.GO    ANOP                                                                                     
       AIF   (&KEYBD EQ '81').B                                                                 
       AIF   (&KEYBD EQ '82').G                                                                 
//     CONFG M,08,00                                                                            
       MEXIT                                                                                    
.G     ANOP                                                                                     
&KEY71 SETB  1                                                                                  
//     COPY FROM-R1,TO-F1,LIBRARY-R,RETAIN-P,NAME-$@CODM,NEWNAME-$$CODM                         
//     CONFG M,08,80                                                                            
       MEXIT                                                                                    
.B     ANOP                                                                                     
//     CONFG M,2C,80                                                                            
       MEND                                                                                     
        {ggggggggggggg'   2aaaaaaaaaBBBBBBBBBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBôôôôôôôôôôôôôôôôôôô
ôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ
ÅÅ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}ØØØØØØØØØØØØ
ØØØØØØØØØØØØØØØØØØØØØØØl@ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ}¯'\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff2aaaaaaaaaaaaaa'00000
000000002aaaaaaaaaaaaÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ2gggggÆÆÆÆÆÆÆ'\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff2aaaaaaaaaaaaaa'00000000000000
02aaaaaaaaaaaaÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ2gggggÆÆÆÆÆÆÆÆÆÆÆ{ggggggggggggggëë{9M6    AAAAAAALAAAAAATOOOOOOO
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO444444NS444444NOO$MAAMNNNNNNNNN ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~àààà
ààààààààààààààààààààààààààààààààààààààààààààààààààààààààÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊGGGGGGGGGGxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxþ0\xff\xff000CCCCCCSWCCCCCCSPAAAAAAWK0000000000SY444444MN