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

⟦51d47c494⟧

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »DSPMNU  «

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
    └─⟦cd453c591⟧ 
        └─⟦this⟧ ».DSPMNU  « 

// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB              04/24/92                   
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB                                         
// IFF JOBQ-YES IFF EVOKED-YES GOTO $DM05                                       
// #ERR 1214,23,VSP,'DSPMNU'                         Cannot be jobq/evoked      
// IF ?CD?=1012    RETURN                            Elected a "2"              
// TAG $DM05                                                                    
// IFF ?1?=  GOTO $DM10                                                         
// EVALUATE P1=?1'?MENU?'?  P2=?2'?CLIB?'?           Default help prompts       
HELP DSPMNU,?1?,?2?                                                             
// RETURN                                                                       
// TAG $DM10                                                                    
// EVALUATE P1=?1'?MENU?'?  P2=?2'?CLIB?'?           P33936 920418jjs           
// IFF LOAD-'?1?##,?2?' #ERR,#LIBRARY 1211,23,VSP,'?1?/?2?'                     
// IFF LOAD-'?1?##,?2?' IF ?CD?=1012  RETURN         Took a "2" to halt         
// MEMBER USER1-?1?##,LIBRARY-?2?                    Set menu as msg mbr        
// MEMBER USER2-##VSP1,LIBRARY-#VASPLIB              For 1213 message           
// LOCAL OFFSET-201,BLANK-16,DATA-'?2?'              Screen display             
// LOCAL OFFSET-211,DATA-'?1?'                                                  
// LOAD $VAPM,#VASPLIB                                                          
// RUN                                                                          

0x000…001 0xa7
0x001…028 »// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB«
0x028…029 0x0e
0x029…02a 0x88
0x02a…032 »04/24/92«
0x032…033 0x13
0x033…034 0xa7
0x034…05b »// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB«
0x05b…05c 0x29
0x05c…05d 0xa9
0x05d…086 »// IFF JOBQ-YES IFF EVOKED-YES GOTO $DM05«
0x086…087 0x27
0x087…088 0x9c
0x088…0a4 »// #ERR 1214,23,VSP,'DSPMNU'«
0x0a4…0a5 0x19
0x0a5…0a6 0x95
0x0a6…0bb »Cannot be jobq/evoked«
0x0bb…0bc 0x06
0x0bc…0bd 0x8f
0x0bd…0cc »// IF ?CD?=1012«
0x0cc…0cd 0x04
0x0cd…0ce 0x86
0x0ce…0d4 »RETURN«
0x0d4…0d5 0x1c
0x0d5…0d6 0x8d
0x0d6…0e3 »Elected a "2"«
0x0e3…0e4 0x0e
0x0e4…0e5 0x8c
0x0e5…0f1 »// TAG $DM05«
0x0f1…0f2 0x44
0x0f2…0f3 0x8b
0x0f3…0fe »// IFF ?1?=«
0x0fe…0ff 0x02
0x0ff…100 0x8a
0x100…10a »GOTO $DM10«
0x10a…10b 0x39
0x10b…10c 0x9a
0x10c…126 »// EVALUATE P1=?1'?MENU?'?«
0x126…127 0x02
0x127…128 0x8e
0x128…136 »P2=?2'?CLIB?'?«
0x136…137 0x0b
0x137…138 0x94
0x138…14c »Default help prompts«
0x14c…14d 0x07
0x14d…14e 0x93
0x14e…161 »HELP DSPMNU,?1?,?2?«
0x161…162 0x3d
0x162…163 0x89
0x163…16c »// RETURN«
0x16c…16d 0x47
0x16d…16e 0x8c
0x16e…17a »// TAG $DM10«
0x17a…17b 0x44
0x17b…17c 0x9a
0x17c…196 »// EVALUATE P1=?1'?MENU?'?«
0x196…197 0x02
0x197…198 0x8e
0x198…1a6 »P2=?2'?CLIB?'?«
0x1a6…1a7 0x0b
0x1a7…1a8 0x90
0x1a8…1b8 »P33936 920418jjs«
0x1b8…1b9 0x0b
0x1b9…1ba 0xbb
0x1ba…1f5 »// IFF LOAD-'?1?##,?2?' #ERR,#LIBRARY 1211,23,VSP,'?1?/?2?'«
0x1f5…1f6 0x15
0x1f6…1f7 0xa4
0x1f7…21b »// IFF LOAD-'?1?##,?2?' IF ?CD?=1012«
0x21b…21c 0x02
0x21c…21d 0x86
0x21d…223 »RETURN«
0x223…224 0x09
0x224…225 0x92
0x225…237 »Took a "2" to halt«
0x237…238 0x09
0x238…239 0xa1
0x239…25a »// MEMBER USER1-?1?##,LIBRARY-?2?«
0x25a…25b 0x14
0x25b…25c 0x93
0x25c…26f »Set menu as msg mbr«
0x26f…270 0x08
0x270…271 0xa7
0x271…298 »// MEMBER USER2-##VSP1,LIBRARY-#VASPLIB«
0x298…299 0x0e
0x299…29a 0x90
0x29a…2aa »For 1213 message«
0x2aa…2ab 0x0b
0x2ab…2ac 0xa7
0x2ac…2d3 »// LOCAL OFFSET-201,BLANK-16,DATA-'?2?'«
0x2d3…2d4 0x0e
0x2d4…2d5 0x8e
0x2d5…2e3 »Screen display«
0x2e3…2e4 0x0d
0x2e4…2e5 0x9e
0x2e5…303 »// LOCAL OFFSET-211,DATA-'?1?'«
0x303…304 0x32
0x304…305 0x96
0x305…31b »// LOAD $VAPM,#VASPLIB«
0x31b…31c 0x3a
0x31c…31d 0x86
0x31d…323 »// RUN«
0x323…324 0x4a
0x324…325 0x00
0x325…340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 e6 d9 d2 e4 e2 c5 d9 40 00 08 dc 50                  ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣PWRKUSER ␣ ü&┆
0x340…360 00 01 00 00 00 00 40 00 02 00 51 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f cc 00 00   ┆␣ ␣␣␣␣ ␣ ␣é␣  ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣┆
0x360…380 00 00 00 00 00 00 d9 7c c4 c1 e3 c1 40 40 40 00 0d ed 01 00 00 00 00 00 01 c0 00 02 00 51 00 02   ┆␣␣␣␣␣␣R@DATA   ␣ Ò ␣␣␣␣␣ {␣ ␣é␣ ┆
0x380…3a0 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d9 e2 e4 c2 d9 5b c3   ┆ ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣RSUBR$C┆
0x3a0…3c0 40 40 00 0d ef 01 00 00 00 00 00 01 c0 00 02 00 51 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00   ┆  ␣ Õ ␣␣␣␣␣ {␣ ␣é␣  ␣␣␣␣␣␣␣␣␣␣␣␣┆
0x3c0…3e0 00 00 00 00 00 00 00 00 00 00 00 00 d9 e2 e4 c2 d9 5b c6 40 40 00 0d f1 01 00 00 00 00 00 03 c0   ┆␣␣␣␣␣␣␣␣␣␣␣␣RSUBR$F  ␣ 1 ␣␣␣␣␣ {┆
0x3e0…400 00 02 00 51 00 04 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff   ┆␣ ␣é␣  ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ┆

Reduced view