DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

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

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦2cec3f3c2⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »SEUFDROP«

Derivation

└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
    └─⟦10fd7efe5⟧ 
        └─⟦this⟧ ».SEUFDROP«

Text Member

// MEMBER USER1-##MSG2                                                          
// IF JOBQ-NO IF EVOKED-NO * ' SEUFDROP?M5500?'                                 
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE NAME-#SE.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S                      
// END                                                                          
// LOAD $CNKAN                                                                  
// RUN                                                                          
CONDENSE #SEULIB                                                                
// IFF ?L'230,1'?/1 GOTO CHKKANJI                                               
// ELSE ALOCLIBR #SEULIB,200,25                                                 
// GOTO ENDALOC                                                                 
// TAG CHKKANJI                                                                 
// IF ?L'67,1'?/1 ALOCLIBR #SEULIB,350,25                                       
// ELSE ALOCLIBR #SEULIB,200,10                                                 
// TAG ENDALOC                                                                  
// IFF ?CD?/0000 RETURN                                                         
LOGPLD DROP,SEUFMT                                                              
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFDROP41'                                 
// LOAD $CNDRP                                                                  
// RUN

OctetView - MemberText

0x000…001 0x96
0x001…017 »// MEMBER USER1-##MSG2«
0x017…018 0x3a
0x018…019 0xaf
0x019…048 »// IF JOBQ-NO IF EVOKED-NO * ' SEUFDROP?M5500?'«
0x048…049 0x21
0x049…04a 0x8e
0x04a…058 »// LOAD $MAINT«
0x058…059 0x42
0x059…05a 0x86
0x05a…060 »// RUN«
0x060…061 0x4a
0x061…062 0xba
0x062…09c »// DELETE NAME-#SE.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S«
0x09c…09d 0x16
0x09d…09e 0x86
0x09e…0a4 »// END«
0x0a4…0a5 0x4a
0x0a5…0a6 0x8e
0x0a6…0b4 »// LOAD $CNKAN«
0x0b4…0b5 0x42
0x0b5…0b6 0x86
0x0b6…0bc »// RUN«
0x0bc…0bd 0x4a
0x0bd…0be 0x90
0x0be…0ce »CONDENSE #SEULIB«
0x0ce…0cf 0x40
0x0cf…0d0 0xa1
0x0d0…0f1 »// IFF ?L'230,1'?/1 GOTO CHKKANJI«
0x0f1…0f2 0x2f
0x0f2…0f3 0x9f
0x0f3…112 »// ELSE ALOCLIBR #SEULIB,200,25«
0x112…113 0x31
0x113…114 0x8f
0x114…123 »// GOTO ENDALOC«
0x123…124 0x41
0x124…125 0x8f
0x125…134 »// TAG CHKKANJI«
0x134…135 0x41
0x135…136 0xa9
0x136…15f »// IF ?L'67,1'?/1 ALOCLIBR #SEULIB,350,25«
0x15f…160 0x27
0x160…161 0x9f
0x161…180 »// ELSE ALOCLIBR #SEULIB,200,10«
0x180…181 0x31
0x181…182 0x8e
0x182…190 »// TAG ENDALOC«
0x190…191 0x42
0x191…192 0x97
0x192…1a9 »// IFF ?CD?/0000 RETURN«
0x1a9…1aa 0x39
0x1aa…1ab 0x92
0x1ab…1bd »LOGPLD DROP,SEUFMT«
0x1bd…1be 0x3e
0x1be…1bf 0xaf
0x1bf…1ee »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFDROP41'«
0x1ee…1ef 0x21
0x1ef…1f0 0x8e
0x1f0…1fe »// LOAD $CNDRP«
0x1fe…1ff 0x42
0x1ff…200 0x86
0x200…206 »// RUN«
0x206…207 0x4a
0x207…208 0x00
0x208…220 d3 00 20 d0 50 00 c2 00 00 00 00 c0 00 02 00 05 00 08 30 00 00 00 00 00                           ┆L␣ }&␣B␣␣␣␣{␣ ␣ ␣  ␣␣␣␣␣┆
0x220…240 00 00 00 00 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆␣␣␣␣␣␣␣␣Ø Ã␣␣␣␣␣␣␣␣             ┆
0x240…260 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
          […0x5…]

Reduced view