|
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: 1536 (0x600)
Notes: MEMBER_P, Member_Text
Names: »SEULOAD «
└─⟦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
└─⟦10fd7efe5⟧
└─⟦this⟧ ».SEULOAD «
*********************************************************** * * * SEULOAD * * * * THIS PROCEDURE COPIES THE SEU PROGRAM PRODUCT FROM * * DISKETTE TO FIXED DISK. * * * * THE ITEMS COPIED ARE: * * * * - SEU EXECUTABLE MODULES, MESSAGE AND SCREEN FORMAT * * MEMBERS ON DISKETTE TO #SEULIB ON DISK * * - THE SCREEN FORMAT MEMBER: #SE@XTRA IS COPIED * * TO #LIBRARY * * * * PARAMETER 1 - DISK PREFERENCE * * PARAMETER 2 - MEDIUM TO COPY FROM * * PARAMETER 3 - LOAD SEU FORMAT SOURCE MEMBERS * * * *********************************************************** * // MEMBER USER1-##MSGC ************ * * * COPY SEU * * * ************ * // IF JOBQ-NO IF EVOKED-NO * ' SEULOAD?M3500?' // TAG CHKDISK // IF DATAI1-'SEUMODS,,?2'S1'?' GOTO CALPROC // * 3290 // #ERR 3291,13,CNFG // GOTO CHKDISK // TAG CALPROC SEUILOD ?2?,?1? // IFF LOAD-'#SE#M1,#SEULIB' GOTO MRI // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEULOAD 43' // LOAD $CNAD // RUN // GOTO MRI1 // TAG MRI // PAUSE '?M'3502,1,60'? PPUTIL' **************** * * * COPY SEU MRI * * * **************** * SEUMRI ?2?,?1? // TAG MRI1 // IF ?3?/N GOTO ALLDONE // IF ?3?/Y GOTO ADDSEUF // * '?M3505?' // IF ?R'3507'?/N GOTO ALLDONE // TAG ADDSEUF ********************************** * * * COPY SEU FORMAT SOURCE MEMBERS * * * ********************************** * SEUFMRI ?2?,?1?,SEULOAD // TAG ALLDONE
0x000…001 0xbb 0x001…03c »***********************************************************« 0x03c…03d 0x15 0x03d…03e 0x81 0x03e…03f »*« 0x03f…040 0x39 0x040…041 0x81 0x041…042 »*« 0x042…043 0x15 0x043…044 0x81 0x044…045 »*« 0x045…046 0x03 0x046…047 0x87 0x047…04e »SEULOAD« 0x04e…04f 0x2f 0x04f…050 0x81 0x050…051 »*« 0x051…052 0x15 0x052…053 0x81 0x053…054 »*« 0x054…055 0x39 0x055…056 0x81 0x056…057 »*« 0x057…058 0x15 0x058…059 0x81 0x059…05a »*« 0x05a…05b 0x03 0x05b…05c 0xb2 0x05c…08e »THIS PROCEDURE COPIES THE SEU PROGRAM PRODUCT FROM« 0x08e…08f 0x04 0x08f…090 0x81 0x090…091 »*« 0x091…092 0x15 0x092…093 0x81 0x093…094 »*« 0x094…095 0x03 0x095…096 0x97 0x096…0ad »DISKETTE TO FIXED DISK.« 0x0ad…0ae 0x1f 0x0ae…0af 0x81 0x0af…0b0 »*« 0x0b0…0b1 0x15 0x0b1…0b2 0x81 0x0b2…0b3 »*« 0x0b3…0b4 0x39 0x0b4…0b5 0x81 0x0b5…0b6 »*« 0x0b6…0b7 0x15 0x0b7…0b8 0x81 0x0b8…0b9 »*« 0x0b9…0ba 0x03 0x0ba…0bb 0x95 0x0bb…0d0 »THE ITEMS COPIED ARE:« 0x0d0…0d1 0x21 0x0d1…0d2 0x81 0x0d2…0d3 »*« 0x0d3…0d4 0x15 0x0d4…0d5 0x81 0x0d5…0d6 »*« 0x0d6…0d7 0x39 0x0d7…0d8 0x81 0x0d8…0d9 »*« 0x0d9…0da 0x15 0x0da…0db 0x81 0x0db…0dc »*« 0x0dc…0dd 0x05 0x0dd…0de 0xb5 0x0de…113 »- SEU EXECUTABLE MODULES, MESSAGE AND SCREEN FORMAT *« 0x113…114 0x15 0x114…115 0x81 0x115…116 »*« 0x116…117 0x07 0x117…118 0xa6 0x118…13e »MEMBERS ON DISKETTE TO #SEULIB ON DISK« 0x13e…13f 0x0c 0x13f…140 0x81 0x140…141 »*« 0x141…142 0x15 0x142…143 0x81 0x143…144 »*« 0x144…145 0x05 0x145…146 0xae 0x146…174 »- THE SCREEN FORMAT MEMBER: #SE@XTRA IS COPIED« 0x174…175 0x06 0x175…176 0x81 0x176…177 »*« 0x177…178 0x15 0x178…179 0x81 0x179…17a »*« 0x17a…17b 0x07 0x17b…17c 0x8b 0x17c…187 »TO #LIBRARY« 0x187…188 0x27 0x188…189 0x81 0x189…18a »*« 0x18a…18b 0x15 0x18b…18c 0x81 0x18c…18d »*« 0x18d…18e 0x39 0x18e…18f 0x81 0x18f…190 »*« 0x190…191 0x15 0x191…192 0x81 0x192…193 »*« 0x193…194 0x03 0x194…195 0x9d 0x195…1b2 »PARAMETER 1 - DISK PREFERENCE« 0x1b2…1b3 0x19 0x1b3…1b4 0x81 0x1b4…1b5 »*« 0x1b5…1b6 0x15 0x1b6…1b7 0x81 0x1b7…1b8 »*« 0x1b8…1b9 0x03 0x1b9…1ba 0xa1 0x1ba…1db »PARAMETER 2 - MEDIUM TO COPY FROM« 0x1db…1dc 0x15 0x1dc…1dd 0x81 0x1dd…1de »*« 0x1de…1df 0x15 0x1df…1e0 0x81 0x1e0…1e1 »*« 0x1e1…1e2 0x03 0x1e2…1e3 0xac 0x1e3…20f »PARAMETER 3 - LOAD SEU FORMAT SOURCE MEMBERS« 0x20f…210 0x0a 0x210…211 0x81 0x211…212 »*« 0x212…213 0x15 0x213…214 0x81 0x214…215 »*« 0x215…216 0x39 0x216…217 0x81 0x217…218 »*« 0x218…219 0x15 0x219…21a 0xbb 0x21a…255 »***********************************************************« 0x255…256 0x15 0x256…257 0x81 0x257…258 »*« 0x258…259 0x4f 0x259…25a 0x96 0x25a…270 »// MEMBER USER1-##MSGC« 0x270…271 0x3a 0x271…272 0x8c 0x272…27e »************« 0x27e…27f 0x44 0x27f…280 0x81 0x280…281 »*« 0x281…282 0x0a 0x282…283 0x81 0x283…284 »*« 0x284…285 0x44 0x285…286 0x8c 0x286…292 »* COPY SEU *« 0x292…293 0x44 0x293…294 0x81 0x294…295 »*« 0x295…296 0x0a 0x296…297 0x81 0x297…298 »*« 0x298…299 0x44 0x299…29a 0x8c 0x29a…2a6 »************« 0x2a6…2a7 0x44 0x2a7…2a8 0x81 0x2a8…2a9 »*« 0x2a9…2aa 0x4f 0x2aa…2ab 0xae 0x2ab…2d9 »// IF JOBQ-NO IF EVOKED-NO * ' SEULOAD?M3500?'« 0x2d9…2da 0x22 0x2da…2db 0x8e 0x2db…2e9 »// TAG CHKDISK« 0x2e9…2ea 0x42 0x2ea…2eb 0xac 0x2eb…317 »// IF DATAI1-'SEUMODS,,?2'S1'?' GOTO CALPROC« 0x317…318 0x24 0x318…319 0x89 0x319…322 »// * 3290« 0x322…323 0x47 0x323…324 0x94 0x324…338 »// #ERR 3291,13,CNFG« 0x338…339 0x3c 0x339…33a 0x8f 0x33a…349 »// GOTO CHKDISK« 0x349…34a 0x41 0x34a…34b 0x8e 0x34b…359 »// TAG CALPROC« 0x359…35a 0x42 0x35a…35b 0x8f 0x35b…36a »SEUILOD ?2?,?1?« 0x36a…36b 0x41 0x36b…36c 0xa5 0x36c…391 »// IFF LOAD-'#SE#M1,#SEULIB' GOTO MRI« 0x391…392 0x2b 0x392…393 0xaf 0x393…3c2 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEULOAD 43'« 0x3c2…3c3 0x21 0x3c3…3c4 0x8d 0x3c4…3d1 »// LOAD $CNAD« 0x3d1…3d2 0x43 0x3d2…3d3 0x86 0x3d3…3d9 »// RUN« 0x3d9…3da 0x4a 0x3da…3db 0x8c 0x3db…3e7 »// GOTO MRI1« 0x3e7…3e8 0x44 0x3e8…3e9 0x8a 0x3e9…3f3 »// TAG MRI« 0x3f3…3f4 0x46 0x3f4…3f5 0xa0 0x3f5…415 »// PAUSE '?M'3502,1,60'? PPUTIL'« 0x415…416 0x30 0x416…417 0x90 0x417…427 »****************« 0x427…428 0x40 0x428…429 0x81 0x429…42a »*« 0x42a…42b 0x0e 0x42b…42c 0x81 0x42c…42d »*« 0x42d…42e 0x40 0x42e…42f 0x90 0x42f…43f »* COPY SEU MRI *« 0x43f…440 0x40 0x440…441 0x81 0x441…442 »*« 0x442…443 0x0e 0x443…444 0x81 0x444…445 »*« 0x445…446 0x40 0x446…447 0x90 0x447…457 »****************« 0x457…458 0x40 0x458…459 0x81 0x459…45a »*« 0x45a…45b 0x4f 0x45b…45c 0x8e 0x45c…46a »SEUMRI ?2?,?1?« 0x46a…46b 0x42 0x46b…46c 0x8b 0x46c…477 »// TAG MRI1« 0x477…478 0x45 0x478…479 0x98 0x479…491 »// IF ?3?/N GOTO ALLDONE« 0x491…492 0x38 0x492…493 0x98 0x493…4ab »// IF ?3?/Y GOTO ADDSEUF« 0x4ab…4ac 0x38 0x4ac…4ad 0x8e 0x4ad…4bb »// * '?M3505?'« 0x4bb…4bc 0x42 0x4bc…4bd 0x9e 0x4bd…4db »// IF ?R'3507'?/N GOTO ALLDONE« 0x4db…4dc 0x32 0x4dc…4dd 0x8e 0x4dd…4eb »// TAG ADDSEUF« 0x4eb…4ec 0x42 0x4ec…4ed 0xa2 0x4ed…50f »**********************************« 0x50f…510 0x2e 0x510…511 0x81 0x511…512 »*« 0x512…513 0x20 0x513…514 0x81 0x514…515 »*« 0x515…516 0x2e 0x516…517 0xa2 0x517…539 »* COPY SEU FORMAT SOURCE MEMBERS *« 0x539…53a 0x2e 0x53a…53b 0x81 0x53b…53c »*« 0x53c…53d 0x20 0x53d…53e 0x81 0x53e…53f »*« 0x53f…540 0x2e 0x540…541 0xa2 0x541…563 »**********************************« 0x563…564 0x2e 0x564…565 0x81 0x565…566 »*« 0x566…567 0x4f 0x567…568 0x97 0x568…57f »SEUFMRI ?2?,?1?,SEULOAD« 0x57f…580 0x39 0x580…581 0x8e 0x581…58f »// TAG ALLDONE« 0x58f…590 0x42 0x590…591 0x00 0x591…5a0 81 5c 03 9d d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f1 ┆a* ¸PARAMETER 1┆ 0x5a0…5c0 40 60 40 c4 c9 e2 d2 40 d7 d9 c5 c6 c5 d9 c5 d5 c3 c5 19 81 5c 15 81 5c 03 a1 d7 c1 d9 c1 d4 c5 ┆ - DISK PREFERENCE a* a* ~PARAME┆ 0x5c0…5e0 e3 c5 d9 40 f2 40 60 40 d4 c5 c4 c9 e4 d4 40 e3 d6 40 c3 d6 d7 e8 40 c6 d9 d6 d4 15 81 5c 15 81 ┆TER 2 - MEDIUM TO COPY FROM a* a┆ 0x5e0…600 5c 03 ac d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f3 40 60 40 d3 d6 c1 c4 40 e2 c5 e4 40 c6 d6 d9 d4 c1 e3 ┆* ÐPARAMETER 3 - LOAD SEU FORMAT┆