|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Notes: MEMBER_P, Member_Text
Names: »SDA25 «
└─⟦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
└─⟦93ec53657⟧
└─⟦this⟧ ».SDA25 «
// LOCAL AREA-SYSTEM // IF ?L'11,1'?/1 GOTO MENUBLD // LOAD $SFGR // RUN // LOADMBR NAME-?5?,REPLACE-?6? // INOUT INLIB-?2?,OUTLIB-?4?,HALT-NO,PRINT-?7? // CREATE SOURCE-?3?,NUMBER-?8? // END // IF ?CD?/1008 GOTO FAILURE // IFF ?L'11,1'?/1 GOTO SUCCESS // TAG MENUBLD BLDMENU ?3?,?3?,?2?,?4?,REPLACE,KEEP,,,NOHALT // IF ?CD?/2034 GOTO FAILURE // TAG SUCCESS // MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1 // MSG ?1?,'?3? ?M0850?' // GOTO DONE25 // TAG FAILURE // MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1 // MSG ?1?,'?3? ?M0851?' // TAG DONE25
0x000…001 0x94 0x001…015 »// LOCAL AREA-SYSTEM« 0x015…016 0x3c 0x016…017 0x91 0x017…028 »// IF ?L'11,1'?/1« 0x028…029 0x02 0x029…02a 0x8c 0x02a…036 »GOTO MENUBLD« 0x036…037 0x31 0x037…038 0x8d 0x038…045 »// LOAD $SFGR« 0x045…046 0x43 0x046…047 0x86 0x047…04d »// RUN« 0x04d…04e 0x4a 0x04e…04f 0x9f 0x04f…06e »// LOADMBR NAME-?5?,REPLACE-?6?« 0x06e…06f 0x31 0x06f…070 0xaf 0x070…09f »// INOUT INLIB-?2?,OUTLIB-?4?,HALT-NO,PRINT-?7?« 0x09f…0a0 0x21 0x0a0…0a1 0x9f 0x0a1…0c0 »// CREATE SOURCE-?3?,NUMBER-?8?« 0x0c0…0c1 0x31 0x0c1…0c2 0x86 0x0c2…0c8 »// END« 0x0c8…0c9 0x4a 0x0c9…0ca 0x8f 0x0ca…0d9 »// IF ?CD?/1008« 0x0d9…0da 0x02 0x0da…0db 0x8c 0x0db…0e7 »GOTO FAILURE« 0x0e7…0e8 0x33 0x0e8…0e9 0x92 0x0e9…0fb »// IFF ?L'11,1'?/1« 0x0fb…0fc 0x02 0x0fc…0fd 0x8c 0x0fd…109 »GOTO SUCCESS« 0x109…10a 0x30 0x10a…10b 0x8e 0x10b…119 »// TAG MENUBLD« 0x119…11a 0x42 0x11a…11b 0xad 0x11b…148 »BLDMENU ?3?,?3?,?2?,?4?,REPLACE,KEEP,,,NOHALT« 0x148…149 0x23 0x149…14a 0x8f 0x14a…159 »// IF ?CD?/2034« 0x159…15a 0x02 0x15a…15b 0x8c 0x15b…167 »GOTO FAILURE« 0x167…168 0x33 0x168…169 0x8e 0x169…177 »// TAG SUCCESS« 0x177…178 0x42 0x178…179 0xa6 0x179…19f »// MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1« 0x19f…1a0 0x2a 0x1a0…1a1 0x98 0x1a1…1b9 »// MSG ?1?,'?3? ?M0850?'« 0x1b9…1ba 0x38 0x1ba…1bb 0x8e 0x1bb…1c9 »// GOTO DONE25« 0x1c9…1ca 0x42 0x1ca…1cb 0x8e 0x1cb…1d9 »// TAG FAILURE« 0x1d9…1da 0x42 0x1da…1db 0xa6 0x1db…201 »// MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1« 0x201…202 0x2a 0x202…203 0x98 0x203…21b »// MSG ?1?,'?3? ?M0851?'« 0x21b…21c 0x38 0x21c…21d 0x8d 0x21d…22a »// TAG DONE25« 0x22a…22b 0x43 0x22b…22c 0x00 0x22c…240 00 00 00 00 00 00 00 d7 e2 c4 c1 f6 f0 40 40 40 00 0f 70 50 ┆␣␣␣␣␣␣␣PSDA60 ␣ ø&┆ 0x240…260 00 11 00 00 00 00 40 00 02 00 04 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 99 00 00 ┆␣ ␣␣␣␣ ␣ ␣ ␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø r␣␣┆ 0x260…280 00 00 00 00 00 00 d7 e2 c4 c1 f7 40 40 40 40 00 0f 73 50 00 0c 00 00 00 00 40 00 02 00 03 00 02 ┆␣␣␣␣␣␣PSDA7 ␣ Ë&␣ ␣␣␣␣ ␣ ␣ ␣ ┆ 0x280…2a0 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 33 00 00 00 00 00 00 00 00 d7 e2 c4 c1 f8 40 40 ┆ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ␣␣␣␣␣␣␣␣PSDA8 ┆ 0x2a0…2c0 40 40 00 0f 75 50 00 0e 00 00 00 00 40 00 02 00 02 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ␣ Í&␣ ␣␣␣␣ ␣ ␣ ␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆ 0x2c0…2e0 00 80 3d 99 00 00 00 00 00 00 00 00 d7 e2 c4 c1 f9 40 40 40 40 00 0f 77 50 00 0f 00 00 00 00 40 ┆␣Ø r␣␣␣␣␣␣␣␣PSDA9 ␣ Ï&␣ ␣␣␣␣ ┆ 0x2e0…300 00 02 00 02 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3d cc 00 00 00 00 00 00 00 00 ff ┆␣ ␣ ␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣␣␣␣␣␣␣ ┆