|
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: »SCAN «
└─⟦27db88c4d⟧ Bits:30009807 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0323-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 011 of 011
└─⟦5f03407d3⟧
└─⟦this⟧ ».SCAN «
// LIBRARY NAME-0 // MEMBER PROGRAM2-##MSGFE2 // LOAD $FEAIDS // RUN // I1DIAG TEST-SCAN,OLPD-YES // END // IF ?CD?=7070 LOCAL OFFSET-115,DATA-'50' // ELSE IF ?CD?=7071 LOCAL OFFSET-115,DATA-'51' // ELSE IF ?CD?=7072 LOCAL OFFSET-115,DATA-'52' // ELSE IF ?CD?=7073 LOCAL OFFSET-115,DATA-'53' // ELSE IF ?CD?=7074 LOCAL OFFSET-115,DATA-'54' // ELSE IF ?CD?=7075 LOCAL OFFSET-115,DATA-'55' // ELSE IF ?CD?=4175 LOCAL OFFSET-115,DATA-'56' // ELSE IF ?CD?=7076 LOCAL OFFSET-115,DATA-'56' // ELSE IF ?CD?=7077 LOCAL OFFSET-115,DATA-'57' // LIBRARY NAME-#ONLPD // RESET PSP
0x000…001 0x91 0x001…012 »// LIBRARY NAME-0« 0x012…013 0x67 0x013…014 0x9b 0x014…02f »// MEMBER PROGRAM2-##MSGFE2« 0x02f…030 0x5d 0x030…031 0x8f 0x031…040 »// LOAD $FEAIDS« 0x040…041 0x69 0x041…042 0x86 0x042…048 »// RUN« 0x048…049 0x72 0x049…04a 0x9c 0x04a…066 »// I1DIAG TEST-SCAN,OLPD-YES« 0x066…067 0x5c 0x067…068 0x86 0x068…06e »// END« 0x06e…06f 0x72 0x06f…070 0xaa 0x070…09a »// IF ?CD?=7070 LOCAL OFFSET-115,DATA-'50'« 0x09a…09b 0x4e 0x09b…09c 0xaf 0x09c…0cb »// ELSE IF ?CD?=7071 LOCAL OFFSET-115,DATA-'51'« 0x0cb…0cc 0x49 0x0cc…0cd 0xaf 0x0cd…0fc »// ELSE IF ?CD?=7072 LOCAL OFFSET-115,DATA-'52'« 0x0fc…0fd 0x49 0x0fd…0fe 0xaf 0x0fe…12d »// ELSE IF ?CD?=7073 LOCAL OFFSET-115,DATA-'53'« 0x12d…12e 0x49 0x12e…12f 0xaf 0x12f…15e »// ELSE IF ?CD?=7074 LOCAL OFFSET-115,DATA-'54'« 0x15e…15f 0x49 0x15f…160 0xaf 0x160…18f »// ELSE IF ?CD?=7075 LOCAL OFFSET-115,DATA-'55'« 0x18f…190 0x49 0x190…191 0xaf 0x191…1c0 »// ELSE IF ?CD?=4175 LOCAL OFFSET-115,DATA-'56'« 0x1c0…1c1 0x49 0x1c1…1c2 0xaf 0x1c2…1f1 »// ELSE IF ?CD?=7076 LOCAL OFFSET-115,DATA-'56'« 0x1f1…1f2 0x49 0x1f2…1f3 0xaf 0x1f3…222 »// ELSE IF ?CD?=7077 LOCAL OFFSET-115,DATA-'57'« 0x222…223 0x49 0x223…224 0x96 0x224…23a »// LIBRARY NAME-#ONLPD« 0x23a…23b 0x62 0x23b…23c 0x8c 0x23c…248 »// RESET PSP« 0x248…249 0x6c 0x249…24a 0x00 0x24a…260 61 61 40 c9 f1 c4 c9 c1 c7 40 e3 c5 e2 e3 60 e2 c3 c1 d5 6b d6 d3 ┆// I1DIAG TEST-SCAN,OL┆ 0x260…280 d7 c4 60 e8 c5 e2 5c 86 61 61 40 c5 d5 c4 72 aa 61 61 40 c9 c6 40 6f c3 c4 6f 7e f7 f0 f7 f0 40 ┆PD-YES*f// ENDÊ¡// IF ?CD?=7070 ┆ 0x280…2a0 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f1 f1 f5 6b c4 c1 e3 c1 60 7d f5 f0 7d 4e af 61 61 40 c5 ┆LOCAL OFFSET-115,DATA-'50'+®// E┆ 0x2a0…2c0 d3 e2 c5 40 c9 c6 40 6f c3 c4 6f 7e f7 f0 f7 f1 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f1 f1 ┆LSE IF ?CD?=7071 LOCAL OFFSET-11┆ 0x2c0…2e0 f5 6b c4 c1 e3 c1 60 7d f5 f1 7d 49 af 61 61 40 c5 d3 e2 c5 40 c9 c6 40 6f c3 c4 6f 7e f7 f0 f7 ┆5,DATA-'51'ñ®// ELSE IF ?CD?=707┆ 0x2e0…300 f2 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f1 f1 f5 6b c4 c1 e3 c1 60 7d f5 f2 7d 49 af 61 61 ┆2 LOCAL OFFSET-115,DATA-'52'ñ®//┆