|
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: »INQUIRY «
└─⟦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⟧ ».INQUIRY «
**************************************************** CHANGED 10/12/83 * * INQUIRY FILENAME, PROGRAM NAME, FILE DEFINITION, , * * FILL CHARACTER, SOURCE PROCESSING, * * DFU SOURCE NAME, , USER LIB, DSP FORMAT SOURCE, * * LABEL ON DISK * * * * REQUIRED PARAMETERS * * * * 1 - FILE NAME * * 2 - PROGRAM NAME * * 3 - FILE DEFINITION SOURCE MEMBER * * * *********************************************************************** // IFF INQUIRY/?64? IFF JOBQ-YES IFF EVOKED-YES IF ?1?/ GOTO CALLHELP // ELSE IFF INQUIRY/?64? IFF JOBQ-YES IFF EVOKED-YES IF ?2?/ GOTO CALLHELP // IFF ?9'?CLIB?'?/ LIBRARY NAME-#DFULIB // EVALUATE P13=?11? #INQUIRY *ALL // RETURN // TAG CALLHELP HELP INQUIRY,?1?,?2?,?3?,,?5?,?6?,?7?,,?9'?CLIB?'?,?10?,?11?
0x000…001 0xc7 0x001…048 »**************************************************** CHANGED 10/12/83 *« 0x048…049 0x09 0x049…04a 0xb4 0x04a…07e »* INQUIRY FILENAME, PROGRAM NAME, FILE DEFINITION, ,« 0x07e…07f 0x12 0x07f…080 0x81 0x080…081 »*« 0x081…082 0x09 0x082…083 0x81 0x083…084 »*« 0x084…085 0x09 0x085…086 0xa2 0x086…0a8 »FILL CHARACTER, SOURCE PROCESSING,« 0x0a8…0a9 0x1a 0x0a9…0aa 0x81 0x0aa…0ab »*« 0x0ab…0ac 0x09 0x0ac…0ad 0x81 0x0ad…0ae »*« 0x0ae…0af 0x09 0x0af…0b0 0xaf 0x0b0…0df »DFU SOURCE NAME, , USER LIB, DSP FORMAT SOURCE,« 0x0df…0e0 0x0d 0x0e0…0e1 0x81 0x0e1…0e2 »*« 0x0e2…0e3 0x09 0x0e3…0e4 0x81 0x0e4…0e5 »*« 0x0e5…0e6 0x09 0x0e6…0e7 0x8d 0x0e7…0f4 »LABEL ON DISK« 0x0f4…0f5 0x2f 0x0f5…0f6 0x81 0x0f6…0f7 »*« 0x0f7…0f8 0x09 0x0f8…0f9 0x81 0x0f9…0fa »*« 0x0fa…0fb 0x45 0x0fb…0fc 0x81 0x0fc…0fd »*« 0x0fd…0fe 0x09 0x0fe…0ff 0x95 0x0ff…114 »* REQUIRED PARAMETERS« 0x114…115 0x31 0x115…116 0x81 0x116…117 »*« 0x117…118 0x09 0x118…119 0x81 0x119…11a »*« 0x11a…11b 0x45 0x11b…11c 0x81 0x11c…11d »*« 0x11d…11e 0x09 0x11e…11f 0x81 0x11f…120 »*« 0x120…121 0x03 0x121…122 0x8d 0x122…12f »1 - FILE NAME« 0x12f…130 0x35 0x130…131 0x81 0x131…132 »*« 0x132…133 0x09 0x133…134 0x81 0x134…135 »*« 0x135…136 0x03 0x136…137 0x90 0x137…147 »2 - PROGRAM NAME« 0x147…148 0x32 0x148…149 0x81 0x149…14a »*« 0x14a…14b 0x09 0x14b…14c 0x81 0x14c…14d »*« 0x14d…14e 0x03 0x14e…14f 0xa1 0x14f…170 »3 - FILE DEFINITION SOURCE MEMBER« 0x170…171 0x21 0x171…172 0x81 0x172…173 »*« 0x173…174 0x09 0x174…175 0x81 0x175…176 »*« 0x176…177 0x45 0x177…178 0x81 0x178…179 »*« 0x179…17a 0x09 0x17a…17b 0xc7 0x17b…1c2 »***********************************************************************« 0x1c2…1c3 0x09 0x1c3…1c4 0xc5 0x1c4…209 »// IFF INQUIRY/?64? IFF JOBQ-YES IFF EVOKED-YES IF ?1?/ GOTO CALLHELP« 0x209…20a 0x0b 0x20a…20b 0xca 0x20b…255 »// ELSE IFF INQUIRY/?64? IFF JOBQ-YES IFF EVOKED-YES IF ?2?/ GOTO CALLHELP« 0x255…256 0x06 0x256…257 0xa8 0x257…27f »// IFF ?9'?CLIB?'?/ LIBRARY NAME-#DFULIB« 0x27f…280 0x28 0x280…281 0x94 0x281…295 »// EVALUATE P13=?11?« 0x295…296 0x3c 0x296…297 0x8d 0x297…2a4 »#INQUIRY *ALL« 0x2a4…2a5 0x43 0x2a5…2a6 0x89 0x2a6…2af »// RETURN« 0x2af…2b0 0x47 0x2b0…2b1 0x8f 0x2b1…2c0 »// TAG CALLHELP« 0x2c0…2c1 0x41 0x2c1…2c2 0xbc 0x2c2…2fe »HELP INQUIRY,?1?,?2?,?3?,,?5?,?6?,?7?,,?9'?CLIB?'?,?10?,?11?« 0x2fe…2ff 0x14 0x2ff…300 0x00