|
|
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: »DFUDROP «
└─⟦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
└─⟦41ed29fcc⟧
└─⟦this⟧ ».DFUDROP «
// MEMBER USER1-##MSG2 // IF JOBQ-NO IF EVOKED-NO * ' DFUDROP?M5500?' // IF DATAF1-#DFULIB DELETE #DFULIB,F1,REMOVE,,LIBR // LOAD $MAINT // RUN // DELETE LIBRARY-P,NAME-ENTER,RETAIN-S // DELETE LIBRARY-P,NAME-UPDATE,RETAIN-S // DELETE LIBRARY-P,NAME-INQUIRY,RETAIN-S // DELETE LIBRARY-P,NAME-LIST,RETAIN-S // DELETE LIBRARY-P,NAME-ENTER#,RETAIN-S // DELETE LIBRARY-P,NAME-UPDATE#,RETAIN-S // DELETE LIBRARY-P,NAME-INQUIRY#,RETAIN-S // DELETE LIBRARY-P,NAME-LIST#,RETAIN-S // DELETE LIBRARY-P,NAME-DFU.ALL,RETAIN-S // IF LOAD-'#DFSPD01,#LIBRARY' + DELETE LIBRARY-O,NAME-#DFSPD.ALL,RETAIN-S // END // IFF ?CD?/0000 RETURN LOGPLD DROP,DFU // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'DFUDROP 40' // LOAD $CNDRP // RUN
0x000…001 0x96 0x001…017 »// MEMBER USER1-##MSG2« 0x017…018 0x3a 0x018…019 0xae 0x019…047 »// IF JOBQ-NO IF EVOKED-NO * ' DFUDROP?M5500?'« 0x047…048 0x22 0x048…049 0xb3 0x049…07c »// IF DATAF1-#DFULIB DELETE #DFULIB,F1,REMOVE,,LIBR« 0x07c…07d 0x1d 0x07d…07e 0x8e 0x07e…08c »// LOAD $MAINT« 0x08c…08d 0x42 0x08d…08e 0x86 0x08e…094 »// RUN« 0x094…095 0x4a 0x095…096 0xa7 0x096…0bd »// DELETE LIBRARY-P,NAME-ENTER,RETAIN-S« 0x0bd…0be 0x29 0x0be…0bf 0xa8 0x0bf…0e7 »// DELETE LIBRARY-P,NAME-UPDATE,RETAIN-S« 0x0e7…0e8 0x28 0x0e8…0e9 0xa9 0x0e9…112 »// DELETE LIBRARY-P,NAME-INQUIRY,RETAIN-S« 0x112…113 0x27 0x113…114 0xa6 0x114…13a »// DELETE LIBRARY-P,NAME-LIST,RETAIN-S« 0x13a…13b 0x2a 0x13b…13c 0xa8 0x13c…164 »// DELETE LIBRARY-P,NAME-ENTER#,RETAIN-S« 0x164…165 0x28 0x165…166 0xa9 0x166…18f »// DELETE LIBRARY-P,NAME-UPDATE#,RETAIN-S« 0x18f…190 0x27 0x190…191 0xaa 0x191…1bb »// DELETE LIBRARY-P,NAME-INQUIRY#,RETAIN-S« 0x1bb…1bc 0x26 0x1bc…1bd 0xa7 0x1bd…1e4 »// DELETE LIBRARY-P,NAME-LIST#,RETAIN-S« 0x1e4…1e5 0x29 0x1e5…1e6 0xa9 0x1e6…20f »// DELETE LIBRARY-P,NAME-DFU.ALL,RETAIN-S« 0x20f…210 0x27 0x210…211 0xa0 0x211…231 »// IF LOAD-'#DFSPD01,#LIBRARY' +« 0x231…232 0x30 0x232…233 0xa9 0x233…25c »DELETE LIBRARY-O,NAME-#DFSPD.ALL,RETAIN-S« 0x25c…25d 0x27 0x25d…25e 0x86 0x25e…264 »// END« 0x264…265 0x4a 0x265…266 0x97 0x266…27d »// IFF ?CD?/0000 RETURN« 0x27d…27e 0x39 0x27e…27f 0x8f 0x27f…28e »LOGPLD DROP,DFU« 0x28e…28f 0x41 0x28f…290 0xaf 0x290…2bf »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'DFUDROP 40'« 0x2bf…2c0 0x21 0x2c0…2c1 0x8e 0x2c1…2cf »// LOAD $CNDRP« 0x2cf…2d0 0x42 0x2d0…2d1 0x86 0x2d1…2d7 »// RUN« 0x2d7…2d8 0x4a 0x2d8…2d9 0x00 0x2d9…2e0 ff ff ff ff ff ff ff ┆ ┆ 0x2e0…300 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 ┆ ┆