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

⟦66f623e0c⟧

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

Derivation

└─⟦631246a38⟧ Bits:30009808 REF.NO PWG83 PGM 5727-QU6 FEAT9074 QUERY/36 DA Z250-0037-2 REL/LEV 05.01 SEQ. 1/3 DISKET 2S 96TPI INTERNAL 88.01.08 31
    └─⟦758c30d4d⟧ 
        └─⟦this⟧ ».#QDBLD  « 

// EVALUATE P4=#QD?WS?                                                          
// EVALUATE P5=?4?RP?2? P6=?4?DF?2? P7=?4?LB?2? P8=?4?PG?2?                     
// IF ?1?=2 GOTO SFGR                                                           
// IFF DATAF1-?7? GOTO BLDLIB                                                   
// LOAD $DELET                                                                  
// RUN                                                                          
// REMOVE LABEL-?7?,UNIT-F1,USERLIBS-YES                                        
// END                                                                          
// TAG BLDLIB                                                                   
// LOAD $MAINT                                                                  
// RUN                                                                          
// ALLOCATE LIBRNAME-?7?,LIBRSIZE-?3?,STATUS-CREATE,DIRSIZE-5                   
// END                                                                          
// LOCAL DATA-'?5??6??7??8?',OFFSET-15,BLANK-32,AREA-SYSTEM                     
// RETURN                                                                       
// TAG SFGR                                                                     
// LOAD $SFGR                                                                   
// RUN                                                                          
// LOADMBR NAME-?8?,REPLACE-YES                                                 
// INOUT PRINT-NO,INLIB-?7?,OUTLIB-?7?,HALT-NO                                  
// CREATE SOURCE-?8?,NUMBER-?3?                                                 
// END                                                                          
// RETURN                                                                       

0x000…001 0x96
0x001…017 »// EVALUATE P4=#QD?WS?«
0x017…018 0x3a
0x018…019 0xbb
0x019…054 »// EVALUATE P5=?4?RP?2? P6=?4?DF?2? P7=?4?LB?2? P8=?4?PG?2?«
0x054…055 0x15
0x055…056 0x95
0x056…06b »// IF ?1?=2 GOTO SFGR«
0x06b…06c 0x3b
0x06c…06d 0x9d
0x06d…08a »// IFF DATAF1-?7? GOTO BLDLIB«
0x08a…08b 0x33
0x08b…08c 0x8e
0x08c…09a »// LOAD $DELET«
0x09a…09b 0x42
0x09b…09c 0x86
0x09c…0a2 »// RUN«
0x0a2…0a3 0x4a
0x0a3…0a4 0xa8
0x0a4…0cc »// REMOVE LABEL-?7?,UNIT-F1,USERLIBS-YES«
0x0cc…0cd 0x28
0x0cd…0ce 0x86
0x0ce…0d4 »// END«
0x0d4…0d5 0x4a
0x0d5…0d6 0x8d
0x0d6…0e3 »// TAG BLDLIB«
0x0e3…0e4 0x43
0x0e4…0e5 0x8e
0x0e5…0f3 »// LOAD $MAINT«
0x0f3…0f4 0x42
0x0f4…0f5 0x86
0x0f5…0fb »// RUN«
0x0fb…0fc 0x4a
0x0fc…0fd 0xbd
0x0fd…13a »// ALLOCATE LIBRNAME-?7?,LIBRSIZE-?3?,STATUS-CREATE,DIRSIZE-5«
0x13a…13b 0x13
0x13b…13c 0x86
0x13c…142 »// END«
0x142…143 0x4a
0x143…144 0xbb
0x144…17f »// LOCAL DATA-'?5??6??7??8?',OFFSET-15,BLANK-32,AREA-SYSTEM«
0x17f…180 0x15
0x180…181 0x89
0x181…18a »// RETURN«
0x18a…18b 0x47
0x18b…18c 0x8b
0x18c…197 »// TAG SFGR«
0x197…198 0x45
0x198…199 0x8d
0x199…1a6 »// LOAD $SFGR«
0x1a6…1a7 0x43
0x1a7…1a8 0x86
0x1a8…1ae »// RUN«
0x1ae…1af 0x4a
0x1af…1b0 0x9f
0x1b0…1cf »// LOADMBR NAME-?8?,REPLACE-YES«
0x1cf…1d0 0x31
0x1d0…1d1 0xae
0x1d1…1ff »// INOUT PRINT-NO,INLIB-?7?,OUTLIB-?7?,HALT-NO«
0x1ff…200 0x22
0x200…201 0x9f
0x201…220 »// CREATE SOURCE-?8?,NUMBER-?3?«
0x220…221 0x31
0x221…222 0x86
0x222…228 »// END«
0x228…229 0x4a
0x229…22a 0x89
0x22a…233 »// RETURN«
0x233…234 0x47
0x234…235 0x00
0x235…240 00 00 00 00 00 00 00 00 00 00 00                                                                  ┆␣␣␣␣␣␣␣␣␣␣␣┆
0x240…260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x5…]

Reduced view