|
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: 1536 (0x600)
Notes: MEMBER_P, Member_Text
Names: »ANLZSECP«
└─⟦5475bb115⟧ Bits:30009795 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 001 of 002
└─⟦9d4f33051⟧
└─⟦this⟧ ».ANLZSECP«
// MEMBER USER2-#MY#2MSG // IFF DATAF1-$MYSC.U1 GOTO TAG01 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.U1 // END // TAG TAG01 // IFF DATAF1-$MYSC.R1 GOTO TAG02 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.R1 // END // TAG TAG02 // IFF DATAF1-$MYSC.R2 GOTO TAG03 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.R2 // END // TAG TAG03 // IFF DATAF1-$MYSC.R3 GOTO TAG04 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.R3 // END // TAG TAG04 // IFF DATAF1-$MYSC.O1 GOTO TAG05 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.O1 // END // TAG TAG05 // IFF DATAF1-$MYSC.O2 GOTO TAG06 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.O2 // END // TAG TAG06 // IFF DATAF1-$MYSC.O3 GOTO TAG07 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.O3 // END // TAG TAG07 // IFF DATAF1-$MYSC.O4 GOTO TAG08 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.O4 // END // TAG TAG08 // LOAD #RRMU // RUN // PRINTER CONTINUE-YES // LOCAL OFFSET-39,DATA-'0',AREA-SYSTEM // LOCAL OFFSET-40,DATA-' ',AREA-SYSTEM // LOCAL OFFSET-40,DATA-'?USER?',AREA-SYSTEM // LOCAL OFFSET-48,DATA-'?TIME?',AREA-SYSTEM // LOCAL OFFSET-54,DATA-'?DATE?',AREA-SYSTEM // IFF DATAF1-$MYSC.U1 GOTO TAG09 // LOAD #RRAU // FILE NAME-MYSCU1,LABEL-$MYSC.U1,DISP-OLD // RUN // TAG TAG09 // PRINTER CONTINUE-NO // IFF DATAF1-$MYSC.U1 GOTO TAG10 // LOAD $DELET // RUN // REMOVE UNIT-F1,LABEL-$MYSC.U1 // END // TAG TAG10 // UPDATEAF ,SEC
0x000…001 0x98 0x001…019 »// MEMBER USER2-#MY#2MSG« 0x019…01a 0x38 0x01a…01b 0xa1 0x01b…03c »// IFF DATAF1-$MYSC.U1 GOTO TAG01« 0x03c…03d 0x2f 0x03d…03e 0x8e 0x03e…04c »// LOAD $DELET« 0x04c…04d 0x42 0x04d…04e 0x86 0x04e…054 »// RUN« 0x054…055 0x4a 0x055…056 0xa0 0x056…076 »// REMOVE UNIT-F1,LABEL-$MYSC.U1« 0x076…077 0x30 0x077…078 0x86 0x078…07e »// END« 0x07e…07f 0x4a 0x07f…080 0x8c 0x080…08c »// TAG TAG01« 0x08c…08d 0x44 0x08d…08e 0xa1 0x08e…0af »// IFF DATAF1-$MYSC.R1 GOTO TAG02« 0x0af…0b0 0x2f 0x0b0…0b1 0x8e 0x0b1…0bf »// LOAD $DELET« 0x0bf…0c0 0x42 0x0c0…0c1 0x86 0x0c1…0c7 »// RUN« 0x0c7…0c8 0x4a 0x0c8…0c9 0xa0 0x0c9…0e9 »// REMOVE UNIT-F1,LABEL-$MYSC.R1« 0x0e9…0ea 0x30 0x0ea…0eb 0x86 0x0eb…0f1 »// END« 0x0f1…0f2 0x4a 0x0f2…0f3 0x8c 0x0f3…0ff »// TAG TAG02« 0x0ff…100 0x44 0x100…101 0xa1 0x101…122 »// IFF DATAF1-$MYSC.R2 GOTO TAG03« 0x122…123 0x2f 0x123…124 0x8e 0x124…132 »// LOAD $DELET« 0x132…133 0x42 0x133…134 0x86 0x134…13a »// RUN« 0x13a…13b 0x4a 0x13b…13c 0xa0 0x13c…15c »// REMOVE UNIT-F1,LABEL-$MYSC.R2« 0x15c…15d 0x30 0x15d…15e 0x86 0x15e…164 »// END« 0x164…165 0x4a 0x165…166 0x8c 0x166…172 »// TAG TAG03« 0x172…173 0x44 0x173…174 0xa1 0x174…195 »// IFF DATAF1-$MYSC.R3 GOTO TAG04« 0x195…196 0x2f 0x196…197 0x8e 0x197…1a5 »// LOAD $DELET« 0x1a5…1a6 0x42 0x1a6…1a7 0x86 0x1a7…1ad »// RUN« 0x1ad…1ae 0x4a 0x1ae…1af 0xa0 0x1af…1cf »// REMOVE UNIT-F1,LABEL-$MYSC.R3« 0x1cf…1d0 0x30 0x1d0…1d1 0x86 0x1d1…1d7 »// END« 0x1d7…1d8 0x4a 0x1d8…1d9 0x8c 0x1d9…1e5 »// TAG TAG04« 0x1e5…1e6 0x44 0x1e6…1e7 0xa1 0x1e7…208 »// IFF DATAF1-$MYSC.O1 GOTO TAG05« 0x208…209 0x2f 0x209…20a 0x8e 0x20a…218 »// LOAD $DELET« 0x218…219 0x42 0x219…21a 0x86 0x21a…220 »// RUN« 0x220…221 0x4a 0x221…222 0xa0 0x222…242 »// REMOVE UNIT-F1,LABEL-$MYSC.O1« 0x242…243 0x30 0x243…244 0x86 0x244…24a »// END« 0x24a…24b 0x4a 0x24b…24c 0x8c 0x24c…258 »// TAG TAG05« 0x258…259 0x44 0x259…25a 0xa1 0x25a…27b »// IFF DATAF1-$MYSC.O2 GOTO TAG06« 0x27b…27c 0x2f 0x27c…27d 0x8e 0x27d…28b »// LOAD $DELET« 0x28b…28c 0x42 0x28c…28d 0x86 0x28d…293 »// RUN« 0x293…294 0x4a 0x294…295 0xa0 0x295…2b5 »// REMOVE UNIT-F1,LABEL-$MYSC.O2« 0x2b5…2b6 0x30 0x2b6…2b7 0x86 0x2b7…2bd »// END« 0x2bd…2be 0x4a 0x2be…2bf 0x8c 0x2bf…2cb »// TAG TAG06« 0x2cb…2cc 0x44 0x2cc…2cd 0xa1 0x2cd…2ee »// IFF DATAF1-$MYSC.O3 GOTO TAG07« 0x2ee…2ef 0x2f 0x2ef…2f0 0x8e 0x2f0…2fe »// LOAD $DELET« 0x2fe…2ff 0x42 0x2ff…300 0x86 0x300…306 »// RUN« 0x306…307 0x4a 0x307…308 0xa0 0x308…328 »// REMOVE UNIT-F1,LABEL-$MYSC.O3« 0x328…329 0x30 0x329…32a 0x86 0x32a…330 »// END« 0x330…331 0x4a 0x331…332 0x8c 0x332…33e »// TAG TAG07« 0x33e…33f 0x44 0x33f…340 0xa1 0x340…361 »// IFF DATAF1-$MYSC.O4 GOTO TAG08« 0x361…362 0x2f 0x362…363 0x8e 0x363…371 »// LOAD $DELET« 0x371…372 0x42 0x372…373 0x86 0x373…379 »// RUN« 0x379…37a 0x4a 0x37a…37b 0xa0 0x37b…39b »// REMOVE UNIT-F1,LABEL-$MYSC.O4« 0x39b…39c 0x30 0x39c…39d 0x86 0x39d…3a3 »// END« 0x3a3…3a4 0x4a 0x3a4…3a5 0x8c 0x3a5…3b1 »// TAG TAG08« 0x3b1…3b2 0x44 0x3b2…3b3 0x8d 0x3b3…3c0 »// LOAD #RRMU« 0x3c0…3c1 0x43 0x3c1…3c2 0x86 0x3c2…3c8 »// RUN« 0x3c8…3c9 0x4a 0x3c9…3ca 0x97 0x3ca…3e1 »// PRINTER CONTINUE-YES« 0x3e1…3e2 0x39 0x3e2…3e3 0xa7 0x3e3…40a »// LOCAL OFFSET-39,DATA-'0',AREA-SYSTEM« 0x40a…40b 0x29 0x40b…40c 0x99 0x40c…425 »// LOCAL OFFSET-40,DATA-'« 0x425…426 0x08 0x426…427 0x8d 0x427…434 »',AREA-SYSTEM« 0x434…435 0x22 0x435…436 0xac 0x436…462 »// LOCAL OFFSET-40,DATA-'?USER?',AREA-SYSTEM« 0x462…463 0x24 0x463…464 0xac 0x464…490 »// LOCAL OFFSET-48,DATA-'?TIME?',AREA-SYSTEM« 0x490…491 0x24 0x491…492 0xac 0x492…4be »// LOCAL OFFSET-54,DATA-'?DATE?',AREA-SYSTEM« 0x4be…4bf 0x24 0x4bf…4c0 0xa1 0x4c0…4e1 »// IFF DATAF1-$MYSC.U1 GOTO TAG09« 0x4e1…4e2 0x2f 0x4e2…4e3 0x8d 0x4e3…4f0 »// LOAD #RRAU« 0x4f0…4f1 0x43 0x4f1…4f2 0xab 0x4f2…51d »// FILE NAME-MYSCU1,LABEL-$MYSC.U1,DISP-OLD« 0x51d…51e 0x25 0x51e…51f 0x86 0x51f…525 »// RUN« 0x525…526 0x4a 0x526…527 0x8c 0x527…533 »// TAG TAG09« 0x533…534 0x44 0x534…535 0x96 0x535…54b »// PRINTER CONTINUE-NO« 0x54b…54c 0x3a 0x54c…54d 0xa1 0x54d…56e »// IFF DATAF1-$MYSC.U1 GOTO TAG10« 0x56e…56f 0x2f 0x56f…570 0x8e 0x570…57e »// LOAD $DELET« 0x57e…57f 0x42 0x57f…580 0x86 0x580…586 »// RUN« 0x586…587 0x4a 0x587…588 0xa0 0x588…5a8 »// REMOVE UNIT-F1,LABEL-$MYSC.U1« 0x5a8…5a9 0x30 0x5a9…5aa 0x86 0x5aa…5b0 »// END« 0x5b0…5b1 0x4a 0x5b1…5b2 0x8c 0x5b2…5be »// TAG TAG10« 0x5be…5bf 0x44 0x5bf…5c0 0x8b 0x5c0…5cb »// UPDATEAF« 0x5cb…5cc 0x02 0x5cc…5cd 0x84 0x5cd…5d1 »,SEC« 0x5d1…5d2 0x3f 0x5d2…5d3 0x00 0x5d3…5e0 40 c5 d5 c4 4a 8c 61 61 40 e3 c1 c7 40 ┆ END¢ð// TAG ┆ 0x5e0…600 e3 c1 c7 f0 f4 44 a1 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 5b d4 e8 e2 c3 4b d6 f1 40 c7 d6 ┆TAG04à~// IFF DATAF1-$MYSC.O1 GO┆