|
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: »#DFMP «
└─⟦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
└─⟦f96c804d0⟧
└─⟦this⟧ ».#DFMP «
* #DFMP FILENAME,FORMAT,RPGNAME,SORT/NOSORT/DISPLAY SOURCE,CATL,LIBNAME, * MASTERNAME,USERLIB,UTILTYPE,DEFAULT NAME,FILL CHAR,,DISK FILE LABEL // IFF ?9?/L IFF ?2?/ IF LOAD-'?2?,?8?' #ERR 0276,C,DFU // IFF ?9?/L IFF ?4?/ IF SOURCE-'?4?,?8?' #ERR 0277,C,DFU // IF ?5?/ GOTO NOCHECK // IFF ?5'NN'?/NN IFF ?5?/NY IFF ?5?/YN IFF ?5?/YY IFF ?5?/GO #ERR 0205,C,DFU // IFF ?5?/NN IF ?6?/ #ERR 0214,C,DFU // IFF ?5?/NN IFF ?5?/NY IFF SOURCE-'?6?,?8?' #ERR 0206,C,DFU // IF ?5?/NY IF SOURCE-'?6?,?8?' #ERR 0204,C,DFU // TAG NOCHECK // IF ?5?/ IFF ?6?/ IFF ?5'Y'?/ IFF SOURCE-'?6?,?8?' EVALUATE P5='' // IFF ?9?/L IFF ?4?/ IF ?4?/?6? #ERR 0275,C,DFU // IFF SOURCE-'?3R'0215'?,?8?' #ERR 0216,C,DFU // LOAD #DFMP // IF JOBQ-NO IF EVOKED-NO WORKSTN RESTORE-YES,UNIT-?WS? // PRINTER NAME-#DFPRINT // RUN // DFU FL-?1?,FT-?2?,RG-?3?,DS-?4?,SP-?5?,SN-?6?,MF-?7?,LB-?8?,+ UT-?9??11?,DF-?10?,LL-?13? // END // IF ?9?/L RETURN // IF ?L'12,1'?/S RETURN // LOAD $SFGR // RUN // IF ?2?/ LOADMBR NAME-?10?,REPLACE-YES // ELSE LOADMBR NAME-?2? // INOUT PRINT-NO,INLIB-?8?,OUTLIB-?8?,HALT-NO // IF ?4?/ CREATE SOURCE-?10?,NUMBER-?L'9,3'? // ELSE CREATE SOURCE-?4?,NUMBER-?L'9,3'? // END // IFF ?4?/ RETURN // LOAD $MAINT // RUN // DELETE NAME-?10?,LIBRARY-S,LIBRNAME-?8? // END
0x000…001 0xc8 0x001…049 »* #DFMP FILENAME,FORMAT,RPGNAME,SORT/NOSORT/DISPLAY SOURCE,CATL,LIBNAME,« 0x049…04a 0x08 0x04a…04b 0x81 0x04b…04c »*« 0x04c…04d 0x02 0x04d…04e 0xc3 0x04e…091 »MASTERNAME,USERLIB,UTILTYPE,DEFAULT NAME,FILL CHAR,,DISK FILE LABEL« 0x091…092 0x0a 0x092…093 0xb7 0x093…0ca »// IFF ?9?/L IFF ?2?/ IF LOAD-'?2?,?8?' #ERR 0276,C,DFU« 0x0ca…0cb 0x19 0x0cb…0cc 0xb9 0x0cc…105 »// IFF ?9?/L IFF ?4?/ IF SOURCE-'?4?,?8?' #ERR 0277,C,DFU« 0x105…106 0x17 0x106…107 0x97 0x107…11e »// IF ?5?/ GOTO NOCHECK« 0x11e…11f 0x39 0x11f…120 0xcd 0x120…16d »// IFF ?5'NN'?/NN IFF ?5?/NY IFF ?5?/YN IFF ?5?/YY IFF ?5?/GO #ERR 0205,C,DFU« 0x16d…16e 0x03 0x16e…16f 0xa5 0x16f…194 »// IFF ?5?/NN IF ?6?/ #ERR 0214,C,DFU« 0x194…195 0x2b 0x195…196 0xbd 0x196…1d3 »// IFF ?5?/NN IFF ?5?/NY IFF SOURCE-'?6?,?8?' #ERR 0206,C,DFU« 0x1d3…1d4 0x13 0x1d4…1d5 0xb0 0x1d5…205 »// IF ?5?/NY IF SOURCE-'?6?,?8?' #ERR 0204,C,DFU« 0x205…206 0x20 0x206…207 0x8e 0x207…215 »// TAG NOCHECK« 0x215…216 0x42 0x216…217 0xc3 0x217…25a »// IF ?5?/ IFF ?6?/ IFF ?5'Y'?/ IFF SOURCE-'?6?,?8?' EVALUATE P5=''« 0x25a…25b 0x0d 0x25b…25c 0xb0 0x25c…28c »// IFF ?9?/L IFF ?4?/ IF ?4?/?6? #ERR 0275,C,DFU« 0x28c…28d 0x20 0x28d…28e 0xae 0x28e…2bc »// IFF SOURCE-'?3R'0215'?,?8?' #ERR 0216,C,DFU« 0x2bc…2bd 0x22 0x2bd…2be 0x8d 0x2be…2cb »// LOAD #DFMP« 0x2cb…2cc 0x43 0x2cc…2cd 0xb8 0x2cd…305 »// IF JOBQ-NO IF EVOKED-NO WORKSTN RESTORE-YES,UNIT-?WS?« 0x305…306 0x18 0x306…307 0x98 0x307…31f »// PRINTER NAME-#DFPRINT« 0x31f…320 0x38 0x320…321 0x86 0x321…327 »// RUN« 0x327…328 0x4a 0x328…329 0xc0 0x329…369 »// DFU FL-?1?,FT-?2?,RG-?3?,DS-?4?,SP-?5?,SN-?6?,MF-?7?,LB-?8?,+« 0x369…36a 0x10 0x36a…36b 0x9a 0x36b…385 »UT-?9??11?,DF-?10?,LL-?13?« 0x385…386 0x36 0x386…387 0x86 0x387…38d »// END« 0x38d…38e 0x4a 0x38e…38f 0x92 0x38f…3a1 »// IF ?9?/L RETURN« 0x3a1…3a2 0x3e 0x3a2…3a3 0x98 0x3a3…3bb »// IF ?L'12,1'?/S RETURN« 0x3bb…3bc 0x38 0x3bc…3bd 0x8d 0x3bd…3ca »// LOAD $SFGR« 0x3ca…3cb 0x43 0x3cb…3cc 0x86 0x3cc…3d2 »// RUN« 0x3d2…3d3 0x4a 0x3d3…3d4 0xa8 0x3d4…3fc »// IF ?2?/ LOADMBR NAME-?10?,REPLACE-YES« 0x3fc…3fd 0x28 0x3fd…3fe 0x98 0x3fe…416 »// ELSE LOADMBR NAME-?2?« 0x416…417 0x38 0x417…418 0xae 0x418…446 »// INOUT PRINT-NO,INLIB-?8?,OUTLIB-?8?,HALT-NO« 0x446…447 0x22 0x447…448 0xad 0x448…475 »// IF ?4?/ CREATE SOURCE-?10?,NUMBER-?L'9,3'?« 0x475…476 0x23 0x476…477 0xa9 0x477…4a0 »// ELSE CREATE SOURCE-?4?,NUMBER-?L'9,3'?« 0x4a0…4a1 0x27 0x4a1…4a2 0x86 0x4a2…4a8 »// END« 0x4a8…4a9 0x4a 0x4a9…4aa 0x92 0x4aa…4bc »// IFF ?4?/ RETURN« 0x4bc…4bd 0x3e 0x4bd…4be 0x8e 0x4be…4cc »// LOAD $MAINT« 0x4cc…4cd 0x42 0x4cd…4ce 0x86 0x4ce…4d4 »// RUN« 0x4d4…4d5 0x4a 0x4d5…4d6 0xaa 0x4d6…500 »// DELETE NAME-?10?,LIBRARY-S,LIBRNAME-?8?« 0x500…501 0x26 0x501…502 0x86 0x502…508 »// END« 0x508…509 0x4a 0x509…50a 0x00 0x50a…520 c9 c6 40 6f f5 6f 61 40 c7 d6 e3 d6 40 d5 d6 c3 c8 c5 c3 d2 39 cd ┆IF ?5?/ GOTO NOCHECK ò┆ 0x520…540 61 61 40 c9 c6 c6 40 6f f5 7d d5 d5 7d 6f 61 d5 d5 40 c9 c6 c6 40 6f f5 6f 61 d5 e8 40 c9 c6 c6 ┆// IFF ?5'NN'?/NN IFF ?5?/NY IFF┆ 0x540…560 40 6f f5 6f 61 e8 d5 40 c9 c6 c6 40 6f f5 6f 61 e8 e8 40 c9 c6 c6 40 6f f5 6f 61 c7 d6 40 7b c5 ┆ ?5?/YN IFF ?5?/YY IFF ?5?/GO #E┆ 0x560…580 d9 d9 40 f0 f2 f0 f5 6b c3 6b c4 c6 e4 03 a5 61 61 40 c9 c6 c6 40 6f f5 6f 61 d5 d5 40 c9 c6 40 ┆RR 0205,C,DFU v// IFF ?5?/NN IF ┆ 0x580…5a0 6f f6 6f 61 40 7b c5 d9 d9 40 f0 f2 f1 f4 6b c3 6b c4 c6 e4 2b bd 61 61 40 c9 c6 c6 40 6f f5 6f ┆?6?/ #ERR 0214,C,DFU ¨// IFF ?5?┆ 0x5a0…5c0 61 d5 d5 40 c9 c6 c6 40 6f f5 6f 61 d5 e8 40 c9 c6 c6 40 e2 d6 e4 d9 c3 c5 60 7d 6f f6 6f 6b 6f ┆/NN IFF ?5?/NY IFF SOURCE-'?6?,?┆ 0x5c0…5e0 f8 6f 7d 40 7b c5 d9 d9 40 f0 f2 f0 f6 6b c3 6b c4 c6 e4 13 b0 61 61 40 c9 c6 40 6f f5 6f 61 d5 ┆8?' #ERR 0206,C,DFU ^// IF ?5?/N┆ 0x5e0…600 e8 40 c9 c6 40 e2 d6 e4 d9 c3 c5 60 7d 6f f6 6f 6b 6f f8 6f 7d 40 7b c5 d9 d9 40 f0 f2 f0 f4 6b ┆Y IF SOURCE-'?6?,?8?' #ERR 0204,┆