|
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: 1280 (0x500)
Notes: MEMBER_P, Member_Text
Names: »SDA15 «
└─⟦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⟧ ».SDA15 «
// LOCAL AREA-SYSTEM // IFF ?L'60,1'?/Y GOTO COMPILE // LOAD $MAINT // RUN // IFF ?L'11,1'?/1 GOTO DLETSMBR // IF LOAD-'?L'113,6'?##,?L'105,8'?' DELETE LIBRARY-O,+ LIBRNAME-?L'105,8'?,NAME-?L'113,6'?## // IF LOAD-'?L'113,8'?,?L'105,8'?' DELETE LIBRARY-O,+ LIBRNAME-?L'105,8'?,NAME-?L'113,8'? // IF SOURCE-'?L'113,6'?##,?L'105,8'?' DELETE LIBRARY-S,+ LIBRNAME-?L'105,8'?,NAME-?L'113,6'?## // IF ?L'104,1'?/Y IF SOURCE-'?L'113,6'?DT,?L'105,8'?' + DELETE LIBRARY-S,LIBRNAME-?L'105,8'?,NAME-?L'113,6'?DT // TAG DLETSMBR // IF SOURCE-'?L'113,8'?,?L'105,8'?' DELETE LIBRARY-S,+ LIBRNAME-?L'105,8'?,NAME-?L'113,8'? // END // GOTO DNCMPILE // TAG COMPILE // IFF ?L'11,1'?/1 GOTO NO34DTDL // IF ?L'11,1'?/1 IF ?L'104,1'?/Y + IF SOURCE-'?L'113,6'?DT,?L'105,8'?' GOTO DLET34DT // GOTO NO34DTDL // TAG DLET34DT // LOAD $MAINT // RUN // DELETE LIBRARY-S,LIBRNAME-?L'105,8'?,NAME-?L'113,6'?DT // END // TAG NO34DTDL // IF ?L'58,1'?/Y EVOKE SDA20 ?WS?,?L'105,8'?,?L'113,8'?,+ ?L'81,8'?,?L'89,8'?,?L'99,3'? // TAG DNCMPILE // LOCAL OFFSET-60,DATA-'N',AREA-SYSTEM // LOCAL OFFSET-58,DATA-'N',AREA-SYSTEM // LOCAL OFFSET-104,DATA-'N',AREA-SYSTEM
0x000…001 0x94 0x001…015 »// LOCAL AREA-SYSTEM« 0x015…016 0x3c 0x016…017 0x92 0x017…029 »// IFF ?L'60,1'?/Y« 0x029…02a 0x02 0x02a…02b 0x8c 0x02b…037 »GOTO COMPILE« 0x037…038 0x30 0x038…039 0x8e 0x039…047 »// LOAD $MAINT« 0x047…048 0x42 0x048…049 0x86 0x049…04f »// RUN« 0x04f…050 0x4a 0x050…051 0x92 0x051…063 »// IFF ?L'11,1'?/1« 0x063…064 0x03 0x064…065 0x8d 0x065…072 »GOTO DLETSMBR« 0x072…073 0x2e 0x073…074 0xa4 0x074…098 »// IF LOAD-'?L'113,6'?##,?L'105,8'?'« 0x098…099 0x02 0x099…09a 0x92 0x09a…0ac »DELETE LIBRARY-O,+« 0x0ac…0ad 0x18 0x0ad…0ae 0xa5 0x0ae…0d3 »LIBRNAME-?L'105,8'?,NAME-?L'113,6'?##« 0x0d3…0d4 0x2b 0x0d4…0d5 0xa2 0x0d5…0f7 »// IF LOAD-'?L'113,8'?,?L'105,8'?'« 0x0f7…0f8 0x02 0x0f8…0f9 0x92 0x0f9…10b »DELETE LIBRARY-O,+« 0x10b…10c 0x1a 0x10c…10d 0xa3 0x10d…130 »LIBRNAME-?L'105,8'?,NAME-?L'113,8'?« 0x130…131 0x2d 0x131…132 0xb9 0x132…16b »// IF SOURCE-'?L'113,6'?##,?L'105,8'?' DELETE LIBRARY-S,+« 0x16b…16c 0x17 0x16c…16d 0xa5 0x16d…192 »LIBRNAME-?L'105,8'?,NAME-?L'113,6'?##« 0x192…193 0x2b 0x193…194 0x92 0x194…1a6 »// IF ?L'104,1'?/Y« 0x1a6…1a7 0x02 0x1a7…1a8 0xa5 0x1a8…1cd »IF SOURCE-'?L'113,6'?DT,?L'105,8'?' +« 0x1cd…1ce 0x17 0x1ce…1cf 0xb6 0x1cf…205 »DELETE LIBRARY-S,LIBRNAME-?L'105,8'?,NAME-?L'113,6'?DT« 0x205…206 0x1a 0x206…207 0x8f 0x207…216 »// TAG DLETSMBR« 0x216…217 0x41 0x217…218 0xb7 0x218…24f »// IF SOURCE-'?L'113,8'?,?L'105,8'?' DELETE LIBRARY-S,+« 0x24f…250 0x19 0x250…251 0xa3 0x251…274 »LIBRNAME-?L'105,8'?,NAME-?L'113,8'?« 0x274…275 0x2d 0x275…276 0x86 0x276…27c »// END« 0x27c…27d 0x4a 0x27d…27e 0x90 0x27e…28e »// GOTO DNCMPILE« 0x28e…28f 0x40 0x28f…290 0x8e 0x290…29e »// TAG COMPILE« 0x29e…29f 0x42 0x29f…2a0 0x92 0x2a0…2b2 »// IFF ?L'11,1'?/1« 0x2b2…2b3 0x02 0x2b3…2b4 0x8d 0x2b4…2c1 »GOTO NO34DTDL« 0x2c1…2c2 0x2f 0x2c2…2c3 0x91 0x2c3…2d4 »// IF ?L'11,1'?/1« 0x2d4…2d5 0x02 0x2d5…2d6 0x8f 0x2d6…2e5 »IF ?L'104,1'?/Y« 0x2e5…2e6 0x02 0x2e6…2e7 0x81 0x2e7…2e8 »+« 0x2e8…2e9 0x2b 0x2e9…2ea 0xb1 0x2ea…31b »IF SOURCE-'?L'113,6'?DT,?L'105,8'?' GOTO DLET34DT« 0x31b…31c 0x1f 0x31c…31d 0x90 0x31d…32d »// GOTO NO34DTDL« 0x32d…32e 0x40 0x32e…32f 0x8f 0x32f…33e »// TAG DLET34DT« 0x33e…33f 0x41 0x33f…340 0x8e 0x340…34e »// LOAD $MAINT« 0x34e…34f 0x42 0x34f…350 0x86 0x350…356 »// RUN« 0x356…357 0x4a 0x357…358 0xb9 0x358…391 »// DELETE LIBRARY-S,LIBRNAME-?L'105,8'?,NAME-?L'113,6'?DT« 0x391…392 0x17 0x392…393 0x86 0x393…399 »// END« 0x399…39a 0x4a 0x39a…39b 0x8f 0x39b…3aa »// TAG NO34DTDL« 0x3aa…3ab 0x41 0x3ab…3ac 0x91 0x3ac…3bd »// IF ?L'58,1'?/Y« 0x3bd…3be 0x02 0x3be…3bf 0xa8 0x3bf…3e7 »EVOKE SDA20 ?WS?,?L'105,8'?,?L'113,8'?,+« 0x3e7…3e8 0x15 0x3e8…3e9 0x9d 0x3e9…406 »?L'81,8'?,?L'89,8'?,?L'99,3'?« 0x406…407 0x33 0x407…408 0x8f 0x408…417 »// TAG DNCMPILE« 0x417…418 0x41 0x418…419 0xa7 0x419…440 »// LOCAL OFFSET-60,DATA-'N',AREA-SYSTEM« 0x440…441 0x29 0x441…442 0xa7 0x442…469 »// LOCAL OFFSET-58,DATA-'N',AREA-SYSTEM« 0x469…46a 0x29 0x46a…46b 0xa8 0x46b…493 »// LOCAL OFFSET-104,DATA-'N',AREA-SYSTEM« 0x493…494 0x28 0x494…495 0x00 0x495…4a0 7d 6f 7d 02 92 c4 c5 d3 c5 e3 c5 ┆'?' kDELETE┆ 0x4a0…4c0 40 d3 c9 c2 d9 c1 d9 e8 60 d6 6b 4e 18 a5 d3 c9 c2 d9 d5 c1 d4 c5 60 6f d3 7d f1 f0 f5 6b f8 7d ┆ LIBRARY-O,+ vLIBRNAME-?L'105,8'┆ 0x4c0…4e0 6f 6b d5 c1 d4 c5 60 6f d3 7d f1 f1 f3 6b f6 7d 6f 7b 7b 2b a2 61 61 40 c9 c6 40 d3 d6 c1 c4 60 ┆?,NAME-?L'113,6'?## s// IF LOAD-┆ 0x4e0…500 7d 6f d3 7d f1 f1 f3 6b f8 7d 6f 6b 6f d3 7d f1 f0 f5 6b f8 7d 6f 7d 02 92 c4 c5 d3 c5 e3 c5 40 ┆'?L'113,8'?,?L'105,8'?' kDELETE ┆