DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦78786b9be⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »LOADPD  «

Derivation

└─⟦c8ae05145⟧ Bits:30009820 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 5 Created 19950301 Level 01 Seq 001 of 011
    └─⟦ac51fb3f2⟧ 
        └─⟦this⟧ ».LOADPD  «

Text Member







OctetView - MemberText


0x000…001 0x80
0x001…020 13 99 00 00 00 00 00 00 00 00 c9 17 00 00 00 8e 61 61 40 d3 d6 c1 c4 40 5b c3 d5 d2 c1 d5 3a      ┆ r␣␣␣␣␣␣␣␣I ␣␣␣þ// LOAD $CNKAN ┆
0x020…040 88 f0 f0 f0 f0 f0 f1 f0 f2 86 61 61 40 d9 e4 d5 42 88 f0 f0 f0 f0 f0 f1 f0 f3 94 61 61 40 d3 d6   ┆h00000102f// RUNâh00000103m// LO┆
0x040…060 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 34 88 f0 f0 f0 f0 f0 f1 f0 f4 a1 61 61 40 c9 c6 40   ┆CAL AREA-SYSTEM h00000104~// IF ┆
0x060…080 6f d3 7d f2 f3 f0 6b f1 7d 6f 7e f1 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f4 7e f1 f2 27 88 f0 f0 f0   ┆?L'230,1'?=1 EVALUATE P4=12 h000┆
0x080…0a0 f0 f0 f1 f0 f5 a5 61 61 40 c5 d3 e2 c5 40 c9 c6 40 6f d3 7d f6 f7 6b f1 7d 6f 7e f1 40 c5 e5 c1   ┆00105v// ELSE IF ?L'67,1'?=1 EVA┆
0x0a0…0c0 d3 e4 c1 e3 c5 40 d7 f4 7e f1 f5 23 88 f0 f0 f0 f0 f0 f1 f0 f6 96 61 61 40 c5 d3 e2 c5 40 c5 e5   ┆LUATE P4=15 h00000106o// ELSE EV┆
0x0c0…0e0 c1 d3 e4 c1 e3 c5 40 d7 f4 7e f1 f1 32 88 f0 f0 f0 f0 f0 f1 f0 f7 8c 61 61 40 e3 c1 c7 40 e2 e3   ┆ALUATE P4=11 h00000107ð// TAG ST┆
0x0e0…100 c5 d7 c1 3c 88 f0 f0 f0 f0 f0 f1 f0 f8 96 7b c5 d9 d9 40 f8 f5 f1 f5 6b f0 f3 6b e2 e8 e2 6b 7d   ┆EPA h00000108o#ERR 8515,03,SYS,'┆
0x100…120 6f f4 6f 7d 32 88 f0 f0 f0 f0 f0 f1 f0 f9 a0 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 d7 c4 f1 4b   ┆?4?' h00000109µ// IF DATAI1-PD1.┆
0x120…140 e2 c3 d9 d5 40 c7 d6 e3 d6 40 e2 e3 c5 d7 c2 28 88 f0 f0 f0 f0 f0 f1 f1 f1 90 7b c5 d9 d9 40 f8   ┆SCRN GOTO STEPB h00000111°#ERR 8┆
0x140…160 f5 f1 f6 6b f1 f3 6b e2 e8 e2 38 88 f0 f0 f0 f0 f0 f1 f1 f2 8d 61 61 40 c7 d6 e3 d6 40 e2 e3 c5   ┆516,13,SYS h00000112ý// GOTO STE┆
0x160…180 d7 c1 3b 88 f0 f0 f0 f0 f0 f1 f1 f3 8c 61 61 40 e3 c1 c7 40 e2 e3 c5 d7 c2 3c 88 f0 f0 f0 f0 f0   ┆PA h00000113ð// TAG STEPB h00000┆
0x180…1a0 f1 f1 f4 b2 61 61 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 7b d6 d5 d3 d7 c4 40 c4 c5 d3 c5 e3 c5 40 7b   ┆114¥// IF DATAF1-#ONLPD DELETE #┆
0x1a0…1c0 d6 d5 d3 d7 c4 6b c6 f1 6b e2 c3 d9 c1 e3 c3 c8 6b 6b d3 c9 c2 d9 16 88 f0 f0 f0 f0 f0 f1 f1 f5   ┆ONLPD,F1,SCRATCH,,LIBR h00000115┆
0x1c0…1e0 9f c2 d3 c4 d3 c9 c2 d9 40 7b d6 d5 d3 d7 c4 6b f2 f0 f5 6b f4 f0 6b c1 f1 6b 7b d6 d5 d3 d7 c4   ┆¤BLDLIBR #ONLPD,205,40,A1,#ONLPD┆
0x1e0…200 29 88 f0 f0 f0 f0 f0 f1 f1 f6 af 61 61 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 d7 c4 f1 4b e2 c3 d9 d5   ┆ h00000116®// IF DATAF1-PD1.SCRN┆
0x200…220 40 c4 c5 d3 c5 e3 c5 40 d7 c4 f1 4b e2 c3 d9 d5 6b c6 f1 6b d9 c5 d4 d6 e5 c5 19 88 f0 f0 f0 f0   ┆ DELETE PD1.SCRN,F1,REMOVE h0000┆
0x220…240 f0 f1 f1 f7 af 61 61 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 d7 c4 f1 4b e2 c3 d9 f2 40 c4 c5 d3 c5 e3   ┆0117®// IF DATAF1-PD1.SCR2 DELET┆
0x240…260 c5 40 d7 c4 f1 4b e2 c3 d9 f2 6b c6 f1 6b d9 c5 d4 d6 e5 c5 19 88 f0 f0 f0 f0 f0 f1 f1 f8 af 61   ┆E PD1.SCR2,F1,REMOVE h00000118®/┆
0x260…280 61 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 d7 c4 f1 4b c3 e3 d9 d3 40 c4 c5 d3 c5 e3 c5 40 d7 c4 f1 4b   ┆/ IF DATAF1-PD1.CTRL DELETE PD1.┆
0x280…2a0 c3 e3 d9 d3 6b c6 f1 6b d9 c5 d4 d6 e5 c5 19 88 f0 f0 f0 f0 f0 f1 f1 f9 af 61 61 40 c9 c6 40 c4   ┆CTRL,F1,REMOVE h00000119®// IF D┆
0x2a0…2c0 c1 e3 c1 c6 f1 60 7b d7 e2 d7 e3 c9 e3 d3 40 c4 c5 d3 c5 e3 c5 40 7b d7 e2 d7 e3 c9 e3 d3 6b c6   ┆ATAF1-#PSPTITL DELETE #PSPTITL,F┆
0x2c0…2e0 f1 6b d9 c5 d4 d6 e5 c5 19 88 f0 f0 f0 f0 f0 f1 f2 f0 b4 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60   ┆1,REMOVE h00000120©// IF DATAI1-┆
0x2e0…300 d6 d3 d7 c4 d4 d9 c9 40 e3 d6 d3 c9 c2 d9 40 d6 d3 d7 c4 d4 d9 c9 6b 6b 6b d9 c5 d7 d3 c1 c3 c5   ┆OLPDMRI TOLIBR OLPDMRI,,,REPLACE┆
0x300…320 6b 7b d6 d5 d3 d7 c4 14 88 f0 f0 f0 f0 f0 f1 f2 f0 9a 61 61 40 d9 c5 e2 e3 d6 d9 c5 40 d7 c4 f1   ┆,#ONLPD h00000120ª// RESTORE PD1┆
0x320…340 4b e2 c3 d9 d5 6b 6b 6b 6b 6b c1 f1 2e 88 f0 f0 f0 f0 f0 f1 f2 f1 9a 61 61 40 d9 c5 e2 e3 d6 d9   ┆.SCRN,,,,,A1 h00000121ª// RESTOR┆
0x340…360 c5 40 d7 c4 f1 4b e2 c3 d9 f2 6b 6b 6b 6b 6b c1 f1 2e 88 f0 f0 f0 f0 f0 f1 f2 f2 9a 61 61 40 d9   ┆E PD1.SCR2,,,,,A1 h00000122ª// R┆
0x360…380 c5 e2 e3 d6 d9 c5 40 d7 c4 f1 4b c3 e3 d9 d3 6b 6b 6b 6b 6b c1 f1 2e 88 f0 f0 f0 f0 f0 f1 f2 f3   ┆ESTORE PD1.CTRL,,,,,A1 h00000123┆
0x380…3a0 9a 61 61 40 d9 c5 e2 e3 d6 d9 c5 40 7b d7 e2 d7 e3 c9 e3 d3 6b 6b 6b 6b 6b c1 f1 2e 88 f0 f0 f0   ┆ª// RESTORE #PSPTITL,,,,,A1 h000┆
0x3a0…3c0 f0 f0 f1 f2 f4 92 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e4 e2 c5 d9 36 88 f0 f0 f0 f0 f0 f1   ┆00124k// LOCAL AREA-USER h000001┆
0x3c0…3e0 f2 f5 00 20 00 00 00 01 83 01 27 09 16 40 00 00 00 80 35 cc 00 00 00 00 00 00 00 00 d7 d4 c1 d2   ┆25␣ ␣␣␣ c     ␣␣␣Ø ö␣␣␣␣␣␣␣␣PMAK┆
0x3e0…400 c5 c6 c9 d3 c5 01 53 b3 78 00 2d 00 00 00 00 40 00 00 00 02 00 09 20 00 00 00 01 83 05 11 08 32   ┆EFILE ë·Ì␣ ␣␣␣␣ ␣␣␣ ␣  ␣␣␣ c    ┆





Reduced view