|
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: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »#DSU «
└─⟦7674f3f85⟧ Bits:30009796 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 002 of 002
└─⟦d68e75ec6⟧
└─⟦this⟧ ».#DSU «
// MEMBER USER1-#ED#RXM1,USER2-#ED#M3,PROGRAM1-#ED#M1,PROGRAM2-#ED#M2, // LIBRARY-#DSULIB // IF JOBQ-YES #ERR 0015,23,DSU // IF EVOKED-YES #ERR 0015,23,DSU // IF ?CD?=1012 GOTO ENDPROC // IF ?1?=EDIT GOTO EDIT // IF ?1?/ GOTO PROCHELP // TAG LIBRARY // * 0002 // LOAD #EDIS,#DSULIB // WORKSTN RESTORE-YES,UNIT-?WS? // PRINTER NAME-#DSUPRNT // RUN // DSU FUNCTION-?1?,LIBRARY-?2'?CLIB?'?,TYPE-?3?,FORMAT-?4?,+ DSPSIZE-?8? // END // GOTO ENDPROC // TAG EDIT // * 0002 // LOAD #EDIS,#DSULIB // WORKSTN RESTORE-YES,UNIT-?WS? // PRINTER NAME-#DSUPRNT // RUN // DSU FUNCTION-?1?,NAME-?2?,TYPE-?3?,FORMAT-?4?,LENGTH-?5?,+ LIBRARY-?6'?CLIB?'?,DSFNAME-?7?,DSPSIZE-?8? // END // GOTO ENDPROC // TAG PROCHELP // HELP DSU ?1?,?2?,?3?,?4?,?5?,?6'?CLIB?'?,?7?,?8? // RETURN // TAG ENDPROC
0x000…001 0xc6
0x001…047 »// MEMBER USER1-#ED#RXM1,USER2-#ED#M3,PROGRAM1-#ED#M1,PROGRAM2-#ED#M2,«
0x047…048 0x0a
0x048…049 0x82
0x049…04b »//«
0x04b…04c 0x08
0x04c…04d 0x8f
0x04d…05c »LIBRARY-#DSULIB«
0x05c…05d 0x37
0x05d…05e 0x9f
0x05e…07d »// IF JOBQ-YES #ERR 0015,23,DSU«
0x07d…07e 0x31
0x07e…07f 0xa1
0x07f…0a0 »// IF EVOKED-YES #ERR 0015,23,DSU«
0x0a0…0a1 0x2f
0x0a1…0a2 0x9c
0x0a2…0be »// IF ?CD?=1012 GOTO ENDPROC«
0x0be…0bf 0x34
0x0bf…0c0 0x8e
0x0c0…0ce »// IF ?1?=EDIT«
0x0ce…0cf 0x04
0x0cf…0d0 0x89
0x0d0…0d9 »GOTO EDIT«
0x0d9…0da 0x35
0x0da…0db 0x8a
0x0db…0e5 »// IF ?1?/«
0x0e5…0e6 0x08
0x0e6…0e7 0x8d
0x0e7…0f4 »GOTO PROCHELP«
0x0f4…0f5 0x31
0x0f5…0f6 0x8e
0x0f6…104 »// TAG LIBRARY«
0x104…105 0x42
0x105…106 0x89
0x106…10f »// * 0002«
0x10f…110 0x47
0x110…111 0x95
0x111…126 »// LOAD #EDIS,#DSULIB«
0x126…127 0x3b
0x127…128 0xa0
0x128…148 »// WORKSTN RESTORE-YES,UNIT-?WS?«
0x148…149 0x30
0x149…14a 0x98
0x14a…162 »// PRINTER NAME-#DSUPRNT«
0x162…163 0x38
0x163…164 0x86
0x164…16a »// RUN«
0x16a…16b 0x4a
0x16b…16c 0xbd
0x16c…1a9 »// DSU FUNCTION-?1?,LIBRARY-?2'?CLIB?'?,TYPE-?3?,FORMAT-?4?,+«
0x1a9…1aa 0x13
0x1aa…1ab 0x8b
0x1ab…1b6 »DSPSIZE-?8?«
0x1b6…1b7 0x45
0x1b7…1b8 0x86
0x1b8…1be »// END«
0x1be…1bf 0x4a
0x1bf…1c0 0x8f
0x1c0…1cf »// GOTO ENDPROC«
0x1cf…1d0 0x41
0x1d0…1d1 0x8b
0x1d1…1dc »// TAG EDIT«
0x1dc…1dd 0x45
0x1dd…1de 0x89
0x1de…1e7 »// * 0002«
0x1e7…1e8 0x47
0x1e8…1e9 0x95
0x1e9…1fe »// LOAD #EDIS,#DSULIB«
0x1fe…1ff 0x3b
0x1ff…200 0xa0
0x200…220 »// WORKSTN RESTORE-YES,UNIT-?WS?«
0x220…221 0x30
0x221…222 0x98
0x222…23a »// PRINTER NAME-#DSUPRNT«
0x23a…23b 0x38
0x23b…23c 0x86
0x23c…242 »// RUN«
0x242…243 0x4a
0x243…244 0xbd
0x244…281 »// DSU FUNCTION-?1?,NAME-?2?,TYPE-?3?,FORMAT-?4?,LENGTH-?5?,+«
0x281…282 0x13
0x282…283 0xab
0x283…2ae »LIBRARY-?6'?CLIB?'?,DSFNAME-?7?,DSPSIZE-?8?«
0x2ae…2af 0x25
0x2af…2b0 0x86
0x2b0…2b6 »// END«
0x2b6…2b7 0x4a
0x2b7…2b8 0x8f
0x2b8…2c7 »// GOTO ENDPROC«
0x2c7…2c8 0x41
0x2c8…2c9 0x8f
0x2c9…2d8 »// TAG PROCHELP«
0x2d8…2d9 0x41
0x2d9…2da 0xb3
0x2da…30d »// HELP DSU ?1?,?2?,?3?,?4?,?5?,?6'?CLIB?'?,?7?,?8?«
0x30d…30e 0x1d
0x30e…30f 0x89
0x30f…318 »// RETURN«
0x318…319 0x47
0x319…31a 0x8e
0x31a…328 »// TAG ENDPROC«
0x328…329 0x42
0x329…32a 0x00
0x32a…340 00 00 00 00 00 00 00 00 00 d9 e2 e4 c2 d9 5b c3 40 40 00 20 1a 01 ┆␣␣␣␣␣␣␣␣␣RSUBR$C ␣ ┆
0x340…360 00 00 00 00 00 02 c0 00 02 00 51 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣ {␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x360…380 00 00 00 00 00 00 d9 e2 e4 c2 d9 5b c9 40 40 00 20 1d 01 00 00 00 00 00 03 c0 00 02 00 51 00 05 ┆␣␣␣␣␣␣RSUBR$I ␣ ␣␣␣␣␣ {␣ ␣é␣ ┆
0x380…3a0 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d9 e2 e4 c2 d9 5b d1 ┆ ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣RSUBR$J┆
0x3a0…3c0 40 40 00 20 22 01 00 00 00 00 00 01 c0 00 02 00 51 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ␣ ␣␣␣␣␣ {␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆
0x3c0…3e0 00 00 00 00 00 00 00 00 00 00 00 00 d9 e2 e4 c2 d9 5b d9 40 40 00 20 24 01 00 00 00 00 00 0e c0 ┆␣␣␣␣␣␣␣␣␣␣␣␣RSUBR$R ␣ ␣␣␣␣␣ {┆
0x3e0…400 00 02 00 51 00 11 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆␣ ␣é␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ┆