|
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: 2560 (0xa00)
Notes: MEMBER_P, Member_Text
Names: »PTF#IW2 «
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦81127d4bb⟧ »/DK3900(PTFMASTERVOL)« Bits:30009817 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 2 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦bc93475ba⟧ Bits:30009819 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 4 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦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
└─⟦870990c67⟧
└─⟦cf95f95e8⟧ Bits:30009821 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 6 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦e184f8357⟧ Bits:30009822 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 7 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦edfbb8ae1⟧ Bits:30009818 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 3 Created 19950301 Level 01 Seq 001 of 011
└─⟦870990c67⟧
└─⟦this⟧ ».PTF#IW2 «
// EVALUATE P15,2=?L'33,2'? // IF ?1?=COPY GOTO COPY // IF ?1?=APPLY GOTO APPLY // IF ?1?=DIRECT GOTO DIRECT // IF ?1?=REMOVE GOTO REMOVE // IF ?1?=SAVE GOTO SAVE // IF ?1?=RESTORE GOTO RESTORE // IF ?1?=DELETE GOTO DELETE // PAUSE 'PTF#IW2 ?1?,?2?,?3?,?4?' // RETURN // TAG COPY // IFF ?L'75,1'?=1 RETURN // IFF DATAF1-PTFIWY?15? GOTO COPY0A // * 'PTFIWY?15?' // #ERR 3341,03 // DELETE PTFIWY?15?,F1 // TAG COPY0A // RESTORE PTFIWY?15?,,,,,,?2?,?3? // RETURN // TAG APPLY // IFF ?L'75,1'?=1 GOTO APPLY2 // IF DATAF1-PTFIWY?15? GOTO APPLY1 // * 'PTFIWY?15?' // #ERR 3365,23 // GOTO APPLY2 // TAG APPLY1 // IFF DATAF1-PTFIWD?15? GOTO APPLY1A // * 'PTFIWD?15?' // #ERR 3341,03 // DELETE PTFIWD?15?,F1 // TAG APPLY1A // COPYDATA #IWPCLD4,,PTFIWD?15? // IF PROC-'#IWPTF4,#LIBRARY' GOTO APPLY1B // * '#IWPTF4,#LIBRARY' // #ERR 3351,23 // GOTO APPLY2 // TAG APPLY1B // INCLUDE #IWPTF4 PTFIWD?15? // IF DATAF1-PTBIWD?15? DELETE PTBIWD?15?,F1 // IF DATAF1-#IWPCLD4 RENAME #IWPCLD4,PTBIWD?15? // RENAME PTFIWD?15?,#IWPCLD4 // INCLUDE WSFMRG // TAG APPLY2 // IF PROC-'#IWPTF4,#LIBRARY' REMOVE #IWPTF4,PROC,#LIBRARY // IF DATAF1-PTFIWY?15? DELETE PTFIWY?15?,F1 // RETURN // TAG DIRECT // IFF ?2'OLD'?=OLD IFF ?2?=ALL RETURN // IFF PROC-'#IWPTF4,#LIBRARY' RETURN // IFF DATAF1-PTFIWY?15? GOTO DIRECT0A // * 'PTFIWY?15?' // #ERR 3341,03 // DELETE PTFIWY?15?,F1 // TAG DIRECT0A // RESTORE PTFIWY?15?,,,,,,?3?,?4? // IFF PROC-'#IWPTF4,#LIBRARY' GOTO DIRECT2 // INCLUDE #IWPTF4 #IWPCLD4 // INCLUDE WSFMRG // TAG DIRECT2 // IF PROC-'#IWPTF4,#LIBRARY' REMOVE #IWPTF4,PROC,#LIBRARY // IF DATAF1-PTFIWY?15? DELETE PTFIWY?15?,F1 // RETURN // TAG REMOVE // IFF ?L'75,1'?=1 GOTO REMOVE2 // IF DATAF1-PTBIWD?15? GOTO REMOVE1A // * 'PTBIWD?15?' // #ERR 3351,23 // GOTO REMOVE2 // TAG REMOVE1A // IF DATAF1-#IWPCLD4 DELETE #IWPCLD4,F1 // COPYDATA PTBIWD?15?,,#IWPCLD4 // TAG REMOVE2 // RETURN // TAG SAVE // IF DATAF1-PTBIWD?15? SAVE PTBIWD?15?,999,,?2?,?3'S1'?,?4'AUTO'? // RETURN // TAG DELETE // IF ?2'F1'?=I1 GOTO DELETE2 // IF DATAF1-PTBIWD?15? DELETE PTBIWD?15?,F1 // RETURN // TAG DELETE2 // IF DATAI1-'PTBIWD?15?,,?3'S1'?' DELETE PTBIWD?15?,I1,SCRATCH,,,?3? // RETURN // TAG RESTORE // IF DATAI1-'PTBIWD?15?,,?3'S1'?' RESTORE PTBIWD?15?,,,,,?2?,?3?,?4? // RETURN
0x000…001 0x9b
0x001…01c »// EVALUATE P15,2=?L'33,2'?«
0x01c…01d 0x35
0x01d…01e 0x8e
0x01e…02c »// IF ?1?=COPY«
0x02c…02d 0x04
0x02d…02e 0x89
0x02e…037 »GOTO COPY«
0x037…038 0x35
0x038…039 0x8f
0x039…048 »// IF ?1?=APPLY«
0x048…049 0x03
0x049…04a 0x8a
0x04a…054 »GOTO APPLY«
0x054…055 0x34
0x055…056 0x90
0x056…066 »// IF ?1?=DIRECT«
0x066…067 0x02
0x067…068 0x8b
0x068…073 »GOTO DIRECT«
0x073…074 0x33
0x074…075 0x90
0x075…085 »// IF ?1?=REMOVE«
0x085…086 0x02
0x086…087 0x8b
0x087…092 »GOTO REMOVE«
0x092…093 0x33
0x093…094 0x8e
0x094…0a2 »// IF ?1?=SAVE«
0x0a2…0a3 0x04
0x0a3…0a4 0x89
0x0a4…0ad »GOTO SAVE«
0x0ad…0ae 0x35
0x0ae…0af 0x9e
0x0af…0cd »// IF ?1?=RESTORE GOTO RESTORE«
0x0cd…0ce 0x32
0x0ce…0cf 0x90
0x0cf…0df »// IF ?1?=DELETE«
0x0df…0e0 0x02
0x0e0…0e1 0x8b
0x0e1…0ec »GOTO DELETE«
0x0ec…0ed 0x33
0x0ed…0ee 0xa2
0x0ee…110 »// PAUSE 'PTF#IW2 ?1?,?2?,?3?,?4?'«
0x110…111 0x2e
0x111…112 0x89
0x112…11b »// RETURN«
0x11b…11c 0x47
0x11c…11d 0x8b
0x11d…128 »// TAG COPY«
0x128…129 0x45
0x129…12a 0x99
0x12a…143 »// IFF ?L'75,1'?=1 RETURN«
0x143…144 0x37
0x144…145 0xa4
0x145…169 »// IFF DATAF1-PTFIWY?15? GOTO COPY0A«
0x169…16a 0x2c
0x16a…16b 0x91
0x16b…17c »// * 'PTFIWY?15?'«
0x17c…17d 0x3f
0x17d…17e 0x8f
0x17e…18d »// #ERR 3341,03«
0x18d…18e 0x41
0x18e…18f 0x97
0x18f…1a6 »// DELETE PTFIWY?15?,F1«
0x1a6…1a7 0x39
0x1a7…1a8 0x8d
0x1a8…1b5 »// TAG COPY0A«
0x1b5…1b6 0x43
0x1b6…1b7 0xa2
0x1b7…1d9 »// RESTORE PTFIWY?15?,,,,,,?2?,?3?«
0x1d9…1da 0x2e
0x1da…1db 0x89
0x1db…1e4 »// RETURN«
0x1e4…1e5 0x47
0x1e5…1e6 0x8c
0x1e6…1f2 »// TAG APPLY«
0x1f2…1f3 0x44
0x1f3…1f4 0x86
0x1f4…1fa »// IFF«
0x1fa…1fb 0x02
0x1fb…1fc 0x97
0x1fc…213 »?L'75,1'?=1 GOTO APPLY2«
0x213…214 0x31
0x214…215 0xa3
0x215…238 »// IF DATAF1-PTFIWY?15? GOTO APPLY1«
0x238…239 0x2d
0x239…23a 0x91
0x23a…24b »// * 'PTFIWY?15?'«
0x24b…24c 0x3f
0x24c…24d 0x8f
0x24d…25c »// #ERR 3365,23«
0x25c…25d 0x41
0x25d…25e 0x8e
0x25e…26c »// GOTO APPLY2«
0x26c…26d 0x42
0x26d…26e 0x8d
0x26e…27b »// TAG APPLY1«
0x27b…27c 0x43
0x27c…27d 0xa5
0x27d…2a2 »// IFF DATAF1-PTFIWD?15? GOTO APPLY1A«
0x2a2…2a3 0x2b
0x2a3…2a4 0x91
0x2a4…2b5 »// * 'PTFIWD?15?'«
0x2b5…2b6 0x3f
0x2b6…2b7 0x8f
0x2b7…2c6 »// #ERR 3341,03«
0x2c6…2c7 0x41
0x2c7…2c8 0x97
0x2c8…2df »// DELETE PTFIWD?15?,F1«
0x2df…2e0 0x39
0x2e0…2e1 0x8e
0x2e1…2ef »// TAG APPLY1A«
0x2ef…2f0 0x42
0x2f0…2f1 0xa0
0x2f1…311 »// COPYDATA #IWPCLD4,,PTFIWD?15?«
0x311…312 0x30
0x312…313 0xaa
0x313…33d »// IF PROC-'#IWPTF4,#LIBRARY' GOTO APPLY1B«
0x33d…33e 0x26
0x33e…33f 0x97
0x33f…356 »// * '#IWPTF4,#LIBRARY'«
0x356…357 0x39
0x357…358 0x8f
0x358…367 »// #ERR 3351,23«
0x367…368 0x41
0x368…369 0x8e
0x369…377 »// GOTO APPLY2«
0x377…378 0x42
0x378…379 0x8e
0x379…387 »// TAG APPLY1B«
0x387…388 0x42
0x388…389 0x9d
0x389…3a6 »// INCLUDE #IWPTF4 PTFIWD?15?«
0x3a6…3a7 0x33
0x3a7…3a8 0x85
0x3a8…3ad »// IF«
0x3ad…3ae 0x02
0x3ae…3af 0xa6
0x3af…3d5 »DATAF1-PTBIWD?15? DELETE PTBIWD?15?,F1«
0x3d5…3d6 0x23
0x3d6…3d7 0x85
0x3d7…3dc »// IF«
0x3dc…3dd 0x02
0x3dd…3de 0xaa
0x3de…408 »DATAF1-#IWPCLD4 RENAME #IWPCLD4,PTBIWD?15?«
0x408…409 0x1f
0x409…40a 0x9d
0x40a…427 »// RENAME PTFIWD?15?,#IWPCLD4«
0x427…428 0x33
0x428…429 0x91
0x429…43a »// INCLUDE WSFMRG«
0x43a…43b 0x3f
0x43b…43c 0x8d
0x43c…449 »// TAG APPLY2«
0x449…44a 0x43
0x44a…44b 0xba
0x44b…485 »// IF PROC-'#IWPTF4,#LIBRARY' REMOVE #IWPTF4,PROC,#LIBRARY«
0x485…486 0x16
0x486…487 0xac
0x487…4b3 »// IF DATAF1-PTFIWY?15? DELETE PTFIWY?15?,F1«
0x4b3…4b4 0x24
0x4b4…4b5 0x89
0x4b5…4be »// RETURN«
0x4be…4bf 0x47
0x4bf…4c0 0x8d
0x4c0…4cd »// TAG DIRECT«
0x4cd…4ce 0x43
0x4ce…4cf 0xa6
0x4cf…4f5 »// IFF ?2'OLD'?=OLD IFF ?2?=ALL RETURN«
0x4f5…4f6 0x2a
0x4f6…4f7 0xa5
0x4f7…51c »// IFF PROC-'#IWPTF4,#LIBRARY' RETURN«
0x51c…51d 0x2b
0x51d…51e 0xa6
0x51e…544 »// IFF DATAF1-PTFIWY?15? GOTO DIRECT0A«
0x544…545 0x2a
0x545…546 0x91
0x546…557 »// * 'PTFIWY?15?'«
0x557…558 0x3f
0x558…559 0x8f
0x559…568 »// #ERR 3341,03«
0x568…569 0x41
0x569…56a 0x97
0x56a…581 »// DELETE PTFIWY?15?,F1«
0x581…582 0x39
0x582…583 0x8f
0x583…592 »// TAG DIRECT0A«
0x592…593 0x41
0x593…594 0xa2
0x594…5b6 »// RESTORE PTFIWY?15?,,,,,,?3?,?4?«
0x5b6…5b7 0x2e
0x5b7…5b8 0xab
0x5b8…5e3 »// IFF PROC-'#IWPTF4,#LIBRARY' GOTO DIRECT2«
0x5e3…5e4 0x25
0x5e4…5e5 0x9b
0x5e5…600 »// INCLUDE #IWPTF4 #IWPCLD4«
0x600…601 0x35
0x601…602 0x91
0x602…613 »// INCLUDE WSFMRG«
0x613…614 0x3f
0x614…615 0x8e
0x615…623 »// TAG DIRECT2«
0x623…624 0x42
0x624…625 0xba
0x625…65f »// IF PROC-'#IWPTF4,#LIBRARY' REMOVE #IWPTF4,PROC,#LIBRARY«
0x65f…660 0x16
0x660…661 0xac
0x661…68d »// IF DATAF1-PTFIWY?15? DELETE PTFIWY?15?,F1«
0x68d…68e 0x24
0x68e…68f 0x89
0x68f…698 »// RETURN«
0x698…699 0x47
0x699…69a 0x8d
0x69a…6a7 »// TAG REMOVE«
0x6a7…6a8 0x43
0x6a8…6a9 0x9f
0x6a9…6c8 »// IFF ?L'75,1'?=1 GOTO REMOVE2«
0x6c8…6c9 0x31
0x6c9…6ca 0xa5
0x6ca…6ef »// IF DATAF1-PTBIWD?15? GOTO REMOVE1A«
0x6ef…6f0 0x2b
0x6f0…6f1 0x91
0x6f1…702 »// * 'PTBIWD?15?'«
0x702…703 0x3f
0x703…704 0x8f
0x704…713 »// #ERR 3351,23«
0x713…714 0x41
0x714…715 0x8f
0x715…724 »// GOTO REMOVE2«
0x724…725 0x41
0x725…726 0x8f
0x726…735 »// TAG REMOVE1A«
0x735…736 0x41
0x736…737 0x85
0x737…73c »// IF«
0x73c…73d 0x02
0x73d…73e 0xa2
0x73e…760 »DATAF1-#IWPCLD4 DELETE #IWPCLD4,F1«
0x760…761 0x27
0x761…762 0xa0
0x762…782 »// COPYDATA PTBIWD?15?,,#IWPCLD4«
0x782…783 0x30
0x783…784 0x8e
0x784…792 »// TAG REMOVE2«
0x792…793 0x42
0x793…794 0x89
0x794…79d »// RETURN«
0x79d…79e 0x47
0x79e…79f 0x8b
0x79f…7aa »// TAG SAVE«
0x7aa…7ab 0x45
0x7ab…7ac 0xc2
0x7ac…7ee »// IF DATAF1-PTBIWD?15? SAVE PTBIWD?15?,999,,?2?,?3'S1'?,?4'AUTO'?«
0x7ee…7ef 0x0e
0x7ef…7f0 0x89
0x7f0…7f9 »// RETURN«
0x7f9…7fa 0x47
0x7fa…7fb 0x8d
0x7fb…808 »// TAG DELETE«
0x808…809 0x43
0x809…80a 0x9d
0x80a…827 »// IF ?2'F1'?=I1 GOTO DELETE2«
0x827…828 0x33
0x828…829 0xac
0x829…855 »// IF DATAF1-PTBIWD?15? DELETE PTBIWD?15?,F1«
0x855…856 0x24
0x856…857 0x89
0x857…860 »// RETURN«
0x860…861 0x47
0x861…862 0x8e
0x862…870 »// TAG DELETE2«
0x870…871 0x42
0x871…872 0xc5
0x872…8b7 »// IF DATAI1-'PTBIWD?15?,,?3'S1'?' DELETE PTBIWD?15?,I1,SCRATCH,,,?3?«
0x8b7…8b8 0x0b
0x8b8…8b9 0x89
0x8b9…8c2 »// RETURN«
0x8c2…8c3 0x47
0x8c3…8c4 0x8e
0x8c4…8d2 »// TAG RESTORE«
0x8d2…8d3 0x42
0x8d3…8d4 0xc5
0x8d4…919 »// IF DATAI1-'PTBIWD?15?,,?3'S1'?' RESTORE PTBIWD?15?,,,,,?2?,?3?,?4?«
0x919…91a 0x0b
0x91a…91b 0x89
0x91b…924 »// RETURN«
0x924…925 0x47
0x925…926 0x00
0x926…940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x940…960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]