|
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: 1792 (0x700)
Notes: MEMBER_P, Member_Text
Names: »ES3270 «
└─⟦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⟧ ».ES3270 «
// LIBRARY NAME-#LIBRARY // MEMBER USER1-#ES#M1,PROGRAM1-#ES#M1 // * 1000 // IF ?4?/Y EVALUATE P4='YES' // IF ?4?/N EVALUATE P4='NO' // IF ?5?/Y EVALUATE P5='YES' // IF ?5?/N EVALUATE P5='NO' // LOCAL OFFSET-236,DATA-' ',AREA-SYSTEM // IFF ?2'ON'?/ON EVALUATE P9='OP' // IF ?4?/NO EVALUATE P9='OP' // IF ?9?/ EVALUATE P9='OP' // IF ?9?/OP GOTO NINEOK // IF ?9?/BR GOTO NINEOK // IF ?9?>99 INCLUDE #ERR 2012,C,ESU // IF 01>?9? INCLUDE #ERR 2012,C,ESU // TAG NINEOK // LOCAL OFFSET-236,DATA-'?9?',AREA-SYSTEM // IF ?8?/ LOCAL OFFSET-238,DATA-' ',AREA-SYSTEM // ELSE LOCAL OFFSET-238,DATA-'?8?',AREA-SYSTEM // IF ?7?/ LOCAL OFFSET-241,DATA-' ',AREA-SYSTEM // ELSE LOCAL OFFSET-241,DATA-'?7?',AREA-SYSTEM // IF ?4?/ LOCAL OFFSET-244,DATA-' ',AREA-SYSTEM // ELSE IF ?4?/YES LOCAL OFFSET-244,DATA-' ',AREA-SYSTEM // ELSE IF ?4?/NO LOCAL OFFSET-244,DATA-' ',AREA-SYSTEM // ELSE LOCAL OFFSET-244,DATA-'?4?',AREA-SYSTEM // LOCAL OFFSET-246,DATA-' ',AREA-SYSTEM // IF ?3?/ LOCAL OFFSET-246,DATA-' ',AREA-SYSTEM // ELSE LOCAL OFFSET-246,DATA-'?3?',AREA-SYSTEM // IF ?2?/ON LOCAL OFFSET-254,DATA-'1',AREA-SYSTEM // ELSE IF ?2?/OFF LOCAL OFFSET-254,DATA-'0',AREA-SYSTEM // ELSE IF ?2?/CLO LOCAL OFFSET-254,DATA-'3',AREA-SYSTEM // ELSE INCLUDE #ERR 2010,C,ESU // IF ?1?/ LOCAL OFFSET-255,DATA-'?WS?',AREA-SYSTEM // ELSE LOCAL OFFSET-255,DATA-'?1?',AREA-SYSTEM // LOAD #ESFP // RUN // IF ?L'254,1'?/0 RETURN // IF ?L'254,1'?/3 RETURN // IF ?L'255,2'?/?WS? LOCAL OFFSET-254,DATA-'1',AREA-SYSTEM // ELSE LOCAL OFFSET-254,DATA-'0',AREA-SYSTEM // IF ?L'252,1'?/W INCLUDE #ES3277 // ELSE GOTO PRINT // RETURN // TAG PRINT // IF ?4?/NO LOCAL OFFSET-252,DATA-'P',AREA-SYSTEM // INCLUDE #ES3288 ?4'YES'?,?5'YES'?,?6'1'?
0x000…001 0x98 0x001…019 »// LIBRARY NAME-#LIBRARY« 0x019…01a 0x2e 0x01a…01b 0xa6 0x01b…041 »// MEMBER USER1-#ES#M1,PROGRAM1-#ES#M1« 0x041…042 0x20 0x042…043 0x89 0x043…04c »// * 1000« 0x04c…04d 0x3d 0x04d…04e 0x8b 0x04e…059 »// IF ?4?/Y« 0x059…05a 0x02 0x05a…05b 0x91 0x05b…06c »EVALUATE P4='YES'« 0x06c…06d 0x28 0x06d…06e 0x8b 0x06e…079 »// IF ?4?/N« 0x079…07a 0x02 0x07a…07b 0x90 0x07b…08b »EVALUATE P4='NO'« 0x08b…08c 0x29 0x08c…08d 0x8b 0x08d…098 »// IF ?5?/Y« 0x098…099 0x02 0x099…09a 0x91 0x09a…0ab »EVALUATE P5='YES'« 0x0ab…0ac 0x28 0x0ac…0ad 0x8b 0x0ad…0b8 »// IF ?5?/N« 0x0b8…0b9 0x02 0x0b9…0ba 0x90 0x0ba…0ca »EVALUATE P5='NO'« 0x0ca…0cb 0x29 0x0cb…0cc 0x9a 0x0cc…0e6 »// LOCAL OFFSET-236,DATA-'« 0x0e6…0e7 0x0a 0x0e7…0e8 0x8d 0x0e8…0f5 »',AREA-SYSTEM« 0x0f5…0f6 0x15 0x0f6…0f7 0x91 0x0f7…108 »// IFF ?2'ON'?/ON« 0x108…109 0x02 0x109…10a 0x90 0x10a…11a »EVALUATE P9='OP'« 0x11a…11b 0x23 0x11b…11c 0x8c 0x11c…128 »// IF ?4?/NO« 0x128…129 0x03 0x129…12a 0x90 0x12a…13a »EVALUATE P9='OP'« 0x13a…13b 0x27 0x13b…13c 0x8a 0x13c…146 »// IF ?9?/« 0x146…147 0x05 0x147…148 0x90 0x148…158 »EVALUATE P9='OP'« 0x158…159 0x27 0x159…15a 0x98 0x15a…172 »// IF ?9?/OP GOTO NINEOK« 0x172…173 0x2e 0x173…174 0x98 0x174…18c »// IF ?9?/BR GOTO NINEOK« 0x18c…18d 0x2e 0x18d…18e 0xa4 0x18e…1b2 »// IF ?9?>99 INCLUDE #ERR 2012,C,ESU« 0x1b2…1b3 0x22 0x1b3…1b4 0xa4 0x1b4…1d8 »// IF 01>?9? INCLUDE #ERR 2012,C,ESU« 0x1d8…1d9 0x22 0x1d9…1da 0x8d 0x1da…1e7 »// TAG NINEOK« 0x1e7…1e8 0x39 0x1e8…1e9 0xaa 0x1e9…213 »// LOCAL OFFSET-236,DATA-'?9?',AREA-SYSTEM« 0x213…214 0x1c 0x214…215 0xa2 0x215…237 »// IF ?8?/ LOCAL OFFSET-238,DATA-'« 0x237…238 0x03 0x238…239 0x8d 0x239…246 »',AREA-SYSTEM« 0x246…247 0x14 0x247…248 0x87 0x248…24f »// ELSE« 0x24f…250 0x04 0x250…251 0xa7 0x251…278 »LOCAL OFFSET-238,DATA-'?8?',AREA-SYSTEM« 0x278…279 0x14 0x279…27a 0xa2 0x27a…29c »// IF ?7?/ LOCAL OFFSET-241,DATA-'« 0x29c…29d 0x03 0x29d…29e 0x8d 0x29e…2ab »',AREA-SYSTEM« 0x2ab…2ac 0x14 0x2ac…2ad 0x87 0x2ad…2b4 »// ELSE« 0x2b4…2b5 0x04 0x2b5…2b6 0xa7 0x2b6…2dd »LOCAL OFFSET-241,DATA-'?7?',AREA-SYSTEM« 0x2dd…2de 0x14 0x2de…2df 0xa2 0x2df…301 »// IF ?4?/ LOCAL OFFSET-244,DATA-'« 0x301…302 0x02 0x302…303 0x8d 0x303…310 »',AREA-SYSTEM« 0x310…311 0x15 0x311…312 0xaa 0x312…33c »// ELSE IF ?4?/YES LOCAL OFFSET-244,DATA-'« 0x33c…33d 0x02 0x33d…33e 0x8d 0x33e…34b »',AREA-SYSTEM« 0x34b…34c 0x0d 0x34c…34d 0x91 0x34d…35e »// ELSE IF ?4?/NO« 0x35e…35f 0x02 0x35f…360 0x97 0x360…377 »LOCAL OFFSET-244,DATA-'« 0x377…378 0x02 0x378…379 0x8d 0x379…386 »',AREA-SYSTEM« 0x386…387 0x0d 0x387…388 0x87 0x388…38f »// ELSE« 0x38f…390 0x0c 0x390…391 0xa7 0x391…3b8 »LOCAL OFFSET-244,DATA-'?4?',AREA-SYSTEM« 0x3b8…3b9 0x0c 0x3b9…3ba 0x9a 0x3ba…3d4 »// LOCAL OFFSET-246,DATA-'« 0x3d4…3d5 0x08 0x3d5…3d6 0x8d 0x3d6…3e3 »',AREA-SYSTEM« 0x3e3…3e4 0x17 0x3e4…3e5 0x85 0x3e5…3ea »// IF« 0x3ea…3eb 0x06 0x3eb…3ec 0x84 0x3ec…3f0 »?3?/« 0x3f0…3f1 0x02 0x3f1…3f2 0x97 0x3f2…409 »LOCAL OFFSET-246,DATA-'« 0x409…40a 0x08 0x40a…40b 0x8d 0x40b…418 »',AREA-SYSTEM« 0x418…419 0x09 0x419…41a 0x87 0x41a…421 »// ELSE« 0x421…422 0x0a 0x422…423 0xa7 0x423…44a »LOCAL OFFSET-246,DATA-'?3?',AREA-SYSTEM« 0x44a…44b 0x0e 0x44b…44c 0x8c 0x44c…458 »// IF ?2?/ON« 0x458…459 0x05 0x459…45a 0xa5 0x45a…47f »LOCAL OFFSET-254,DATA-'1',AREA-SYSTEM« 0x47f…480 0x10 0x480…481 0x92 0x481…493 »// ELSE IF ?2?/OFF« 0x493…494 0x03 0x494…495 0xa5 0x495…4ba »LOCAL OFFSET-254,DATA-'0',AREA-SYSTEM« 0x4ba…4bb 0x0c 0x4bb…4bc 0x92 0x4bc…4ce »// ELSE IF ?2?/CLO« 0x4ce…4cf 0x03 0x4cf…4d0 0xa5 0x4d0…4f5 »LOCAL OFFSET-254,DATA-'3',AREA-SYSTEM« 0x4f5…4f6 0x0c 0x4f6…4f7 0x9f 0x4f7…516 »// ELSE INCLUDE #ERR 2010,C,ESU« 0x516…517 0x27 0x517…518 0xb3 0x518…54b »// IF ?1?/ LOCAL OFFSET-255,DATA-'?WS?',AREA-SYSTEM« 0x54b…54c 0x13 0x54c…54d 0x87 0x54d…554 »// ELSE« 0x554…555 0x04 0x555…556 0xa7 0x556…57d »LOCAL OFFSET-255,DATA-'?1?',AREA-SYSTEM« 0x57d…57e 0x14 0x57e…57f 0x8d 0x57f…58c »// LOAD #ESFP« 0x58c…58d 0x39 0x58d…58e 0x86 0x58e…594 »// RUN« 0x594…595 0x40 0x595…596 0x99 0x596…5af »// IF ?L'254,1'?/0 RETURN« 0x5af…5b0 0x2d 0x5b0…5b1 0x99 0x5b1…5ca »// IF ?L'254,1'?/3 RETURN« 0x5ca…5cb 0x2d 0x5cb…5cc 0x95 0x5cc…5e1 »// IF ?L'255,2'?/?WS?« 0x5e1…5e2 0x02 0x5e2…5e3 0xa5 0x5e3…608 »LOCAL OFFSET-254,DATA-'1',AREA-SYSTEM« 0x608…609 0x0a 0x609…60a 0x87 0x60a…611 »// ELSE« 0x611…612 0x10 0x612…613 0xa5 0x613…638 »LOCAL OFFSET-254,DATA-'0',AREA-SYSTEM« 0x638…639 0x0a 0x639…63a 0x82 0x63a…63c »//« 0x63c…63d 0x06 0x63d…63e 0x8f 0x63e…64d »IF ?L'252,1'?/W« 0x64d…64e 0x03 0x64e…64f 0x8f 0x64f…65e »INCLUDE #ES3277« 0x65e…65f 0x1d 0x65f…660 0x92 0x660…672 »// ELSE GOTO PRINT« 0x672…673 0x34 0x673…674 0x89 0x674…67d »// RETURN« 0x67d…67e 0x3d 0x67e…67f 0x8c 0x67f…68b »// TAG PRINT« 0x68b…68c 0x3a 0x68c…68d 0x8c 0x68d…699 »// IF ?4?/NO« 0x699…69a 0x04 0x69a…69b 0xa5 0x69b…6c0 »LOCAL OFFSET-252,DATA-'P',AREA-SYSTEM« 0x6c0…6c1 0x11 0x6c1…6c2 0xab 0x6c2…6ed »// INCLUDE #ES3288 ?4'YES'?,?5'YES'?,?6'1'?« 0x6ed…6ee 0x1b 0x6ee…6ef 0x00 0x6ef…700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆