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

⟦4ff64bbbd⟧ 

    Length: 1792 (0x700)
    Notes: MEMBER_P, Member_Text
    Names: »ANLZSRC «

Derivation

└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
    └─⟦9d4f33051⟧ 
        └─⟦this⟧ ».ANLZSRC «

Text Member

// LIBRARY NAME-#MYLIB                                                          
// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,LIBRARY-#MYLIB                       
// MEMBER USER2-#MY#2MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB                       
// IF ?1?/ BADPARM ANALYZE,1                                                    
// IFF DATAF1-?1?  #ERR 3832,3,MIGR,?1?                                         
// IF ?2?/ GOTO SKIP1                                                           
// IFF DATAF1-?2?  #ERR 3832,3,MIGR,?2?                                         
// TAG SKIP1                                                                    
// IF ?4?/ GOTO SKIP2                                                           
// IFF DATAF1-?4?  #ERR 3832,3,MIGR,?4?                                         
// TAG SKIP2                                                                    
// IF ?5?/ GOTO SKIP3                                                           
// IFF DATAF1-?5?  #ERR 3832,3,MIGR,?5?                                         
// TAG SKIP3                                                                    
// IF ?6?/ GOTO SKIP4                                                           
// IFF DATAF1-?6?  #ERR 3832,3,MIGR,?6?                                         
// TAG SKIP4                                                                    
// IF ?7?/ GOTO SKIP5                                                           
// IFF DATAF1-?7?  #ERR 3832,3,MIGR,?7?                                         
// TAG SKIP5                                                                    
// IF ?8?/ GOTO SKIP6                                                           
// IFF DATAF1-?8?  #ERR 3832,3,MIGR,?8?                                         
// TAG SKIP6                                                                    
// IF ?9?/ GOTO SKIP7                                                           
// IFF DATAF1-?9?  #ERR 3832,3,MIGR,?9?                                         
// TAG SKIP7                                                                    
// IF ?10?/ GOTO SKIP8                                                          
// IFF DATAF1-?10?  #ERR 3832,3,MIGR,?10?                                       
// TAG SKIP8                                                                    
// IF ?11?/ GOTO SKIP9                                                          
// IFF DATAF1-?11?  #ERR 3832,3,MIGR,?11?                                       
// TAG SKIP9                                                                    
// LOCAL AREA-SYSTEM,OFFSET-010,DATA-'?1?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-018,DATA-'?2?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-026,DATA-'?4?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-034,DATA-'?5?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-042,DATA-'?6?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-050,DATA-'?7?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-058,DATA-'?8?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-066,DATA-'?9?',BLANK-8                              
// LOCAL AREA-SYSTEM,OFFSET-074,DATA-'?10?',BLANK-8                             
// LOCAL AREA-SYSTEM,OFFSET-082,DATA-'?11?',BLANK-8                             
// LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8                           
// LOAD #MYAN                                                                   
// RUN                                                                          
UPDATEAF ?1?,SOURCE,?3?                                                         
// RETURN

OctetView - MemberText

0x000…001 0x96
0x001…017 »// LIBRARY NAME-#MYLIB«
0x017…018 0x3a
0x018…019 0xb9
0x019…052 »// MEMBER USER1-#MY#1MSG,PROGRAM1-#MY#1MSG,LIBRARY-#MYLIB«
0x052…053 0x17
0x053…054 0xb9
0x054…08d »// MEMBER USER2-#MY#2MSG,PROGRAM2-#MY#2MSG,LIBRARY-#MYLIB«
0x08d…08e 0x17
0x08e…08f 0x9c
0x08f…0ab »// IF ?1?/ BADPARM ANALYZE,1«
0x0ab…0ac 0x34
0x0ac…0ad 0x91
0x0ad…0be »// IFF DATAF1-?1?«
0x0be…0bf 0x02
0x0bf…0c0 0x94
0x0c0…0d4 »#ERR 3832,3,MIGR,?1?«
0x0d4…0d5 0x29
0x0d5…0d6 0x95
0x0d6…0eb »// IF ?2?/ GOTO SKIP1«
0x0eb…0ec 0x3b
0x0ec…0ed 0x91
0x0ed…0fe »// IFF DATAF1-?2?«
0x0fe…0ff 0x02
0x0ff…100 0x94
0x100…114 »#ERR 3832,3,MIGR,?2?«
0x114…115 0x29
0x115…116 0x8c
0x116…122 »// TAG SKIP1«
0x122…123 0x44
0x123…124 0x95
0x124…139 »// IF ?4?/ GOTO SKIP2«
0x139…13a 0x3b
0x13a…13b 0x91
0x13b…14c »// IFF DATAF1-?4?«
0x14c…14d 0x02
0x14d…14e 0x94
0x14e…162 »#ERR 3832,3,MIGR,?4?«
0x162…163 0x29
0x163…164 0x8c
0x164…170 »// TAG SKIP2«
0x170…171 0x44
0x171…172 0x95
0x172…187 »// IF ?5?/ GOTO SKIP3«
0x187…188 0x3b
0x188…189 0x91
0x189…19a »// IFF DATAF1-?5?«
0x19a…19b 0x02
0x19b…19c 0x94
0x19c…1b0 »#ERR 3832,3,MIGR,?5?«
0x1b0…1b1 0x29
0x1b1…1b2 0x8c
0x1b2…1be »// TAG SKIP3«
0x1be…1bf 0x44
0x1bf…1c0 0x95
0x1c0…1d5 »// IF ?6?/ GOTO SKIP4«
0x1d5…1d6 0x3b
0x1d6…1d7 0x91
0x1d7…1e8 »// IFF DATAF1-?6?«
0x1e8…1e9 0x02
0x1e9…1ea 0x94
0x1ea…1fe »#ERR 3832,3,MIGR,?6?«
0x1fe…1ff 0x29
0x1ff…200 0x8c
0x200…20c »// TAG SKIP4«
0x20c…20d 0x44
0x20d…20e 0x95
0x20e…223 »// IF ?7?/ GOTO SKIP5«
0x223…224 0x3b
0x224…225 0x91
0x225…236 »// IFF DATAF1-?7?«
0x236…237 0x02
0x237…238 0x94
0x238…24c »#ERR 3832,3,MIGR,?7?«
0x24c…24d 0x29
0x24d…24e 0x8c
0x24e…25a »// TAG SKIP5«
0x25a…25b 0x44
0x25b…25c 0x95
0x25c…271 »// IF ?8?/ GOTO SKIP6«
0x271…272 0x3b
0x272…273 0x91
0x273…284 »// IFF DATAF1-?8?«
0x284…285 0x02
0x285…286 0x94
0x286…29a »#ERR 3832,3,MIGR,?8?«
0x29a…29b 0x29
0x29b…29c 0x8c
0x29c…2a8 »// TAG SKIP6«
0x2a8…2a9 0x44
0x2a9…2aa 0x95
0x2aa…2bf »// IF ?9?/ GOTO SKIP7«
0x2bf…2c0 0x3b
0x2c0…2c1 0x91
0x2c1…2d2 »// IFF DATAF1-?9?«
0x2d2…2d3 0x02
0x2d3…2d4 0x94
0x2d4…2e8 »#ERR 3832,3,MIGR,?9?«
0x2e8…2e9 0x29
0x2e9…2ea 0x8c
0x2ea…2f6 »// TAG SKIP7«
0x2f6…2f7 0x44
0x2f7…2f8 0x96
0x2f8…30e »// IF ?10?/ GOTO SKIP8«
0x30e…30f 0x3a
0x30f…310 0x92
0x310…322 »// IFF DATAF1-?10?«
0x322…323 0x02
0x323…324 0x95
0x324…339 »#ERR 3832,3,MIGR,?10?«
0x339…33a 0x27
0x33a…33b 0x8c
0x33b…347 »// TAG SKIP8«
0x347…348 0x44
0x348…349 0x96
0x349…35f »// IF ?11?/ GOTO SKIP9«
0x35f…360 0x3a
0x360…361 0x92
0x361…373 »// IFF DATAF1-?11?«
0x373…374 0x02
0x374…375 0x95
0x375…38a »#ERR 3832,3,MIGR,?11?«
0x38a…38b 0x27
0x38b…38c 0x8c
0x38c…398 »// TAG SKIP9«
0x398…399 0x44
0x399…39a 0xb2
0x39a…3cc »// LOCAL AREA-SYSTEM,OFFSET-010,DATA-'?1?',BLANK-8«
0x3cc…3cd 0x1e
0x3cd…3ce 0xb2
0x3ce…400 »// LOCAL AREA-SYSTEM,OFFSET-018,DATA-'?2?',BLANK-8«
0x400…401 0x1e
0x401…402 0xb2
0x402…434 »// LOCAL AREA-SYSTEM,OFFSET-026,DATA-'?4?',BLANK-8«
0x434…435 0x1e
0x435…436 0xb2
0x436…468 »// LOCAL AREA-SYSTEM,OFFSET-034,DATA-'?5?',BLANK-8«
0x468…469 0x1e
0x469…46a 0xb2
0x46a…49c »// LOCAL AREA-SYSTEM,OFFSET-042,DATA-'?6?',BLANK-8«
0x49c…49d 0x1e
0x49d…49e 0xb2
0x49e…4d0 »// LOCAL AREA-SYSTEM,OFFSET-050,DATA-'?7?',BLANK-8«
0x4d0…4d1 0x1e
0x4d1…4d2 0xb2
0x4d2…504 »// LOCAL AREA-SYSTEM,OFFSET-058,DATA-'?8?',BLANK-8«
0x504…505 0x1e
0x505…506 0xb2
0x506…538 »// LOCAL AREA-SYSTEM,OFFSET-066,DATA-'?9?',BLANK-8«
0x538…539 0x1e
0x539…53a 0xb3
0x53a…56d »// LOCAL AREA-SYSTEM,OFFSET-074,DATA-'?10?',BLANK-8«
0x56d…56e 0x1d
0x56e…56f 0xb3
0x56f…5a2 »// LOCAL AREA-SYSTEM,OFFSET-082,DATA-'?11?',BLANK-8«
0x5a2…5a3 0x1d
0x5a3…5a4 0xb5
0x5a4…5d9 »// LOCAL AREA-SYSTEM,OFFSET-327,DATA-'?USER?',BLANK-8«
0x5d9…5da 0x1b
0x5da…5db 0x8d
0x5db…5e8 »// LOAD #MYAN«
0x5e8…5e9 0x43
0x5e9…5ea 0x86
0x5ea…5f0 »// RUN«
0x5f0…5f1 0x4a
0x5f1…5f2 0x97
0x5f2…609 »UPDATEAF ?1?,SOURCE,?3?«
0x609…60a 0x39
0x60a…60b 0x89
0x60b…614 »// RETURN«
0x614…615 0x47
0x615…616 0x00
0x616…620 6f 61 40 c7 d6 e3 d6 40 e2 d2                                                                     ┆?/ GOTO SK┆
0x620…640 c9 d7 f5 3b 91 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 6f f7 6f 02 94 7b c5 d9 d9 40 f3 f8 f3   ┆IP5 j// IFF DATAF1-?7? m#ERR 383┆
0x640…660 f2 6b f3 6b d4 c9 c7 d9 6b 6f f7 6f 29 8c 61 61 40 e3 c1 c7 40 e2 d2 c9 d7 f5 44 95 61 61 40 c9   ┆2,3,MIGR,?7? ð// TAG SKIP5àn// I┆
0x660…680 c6 40 6f f8 6f 61 40 c7 d6 e3 d6 40 e2 d2 c9 d7 f6 3b 91 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1   ┆F ?8?/ GOTO SKIP6 j// IFF DATAF1┆
0x680…6a0 60 6f f8 6f 02 94 7b c5 d9 d9 40 f3 f8 f3 f2 6b f3 6b d4 c9 c7 d9 6b 6f f8 6f 29 8c 61 61 40 e3   ┆-?8? m#ERR 3832,3,MIGR,?8? ð// T┆
0x6a0…6c0 c1 c7 40 e2 d2 c9 d7 f6 44 95 61 61 40 c9 c6 40 6f f9 6f 61 40 c7 d6 e3 d6 40 e2 d2 c9 d7 f7 3b   ┆AG SKIP6àn// IF ?9?/ GOTO SKIP7 ┆
0x6c0…6e0 91 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 6f f9 6f 02 94 7b c5 d9 d9 40 f3 f8 f3 f2 6b f3 6b   ┆j// IFF DATAF1-?9? m#ERR 3832,3,┆
0x6e0…700 d4 c9 c7 d9 6b 6f f9 6f 29 8c 61 61 40 e3 c1 c7 40 e2 d2 c9 d7 f7 44 96 61 61 40 c9 c6 40 6f f1   ┆MIGR,?9? ð// TAG SKIP7ào// IF ?1┆

Reduced view