|
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: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »PTFAPPLY«
└─⟦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⟧ ».PTFAPPLY«
// IF ?11?= RETURN // IFF ?L'69,1'?=1 IF PROC-LDMARES LDMARES // IFF ?L'68,1'?=1 IF PROC-PTFIWUPD PTFIWUPD // LOCAL OFFSET-69,DATA-'1',AREA-SYSTEM // IF ?9?/ #ERR 3357,C // IF ?11?/ALLPTF IFF DATAF1-?2? RETURN // IF DATAF1-?2? GOTO AP1 // * '?2?' // #ERR 3365,C PTF LIBRARY NOT FOUND // TAG AP1 // IF PROC-'PTFPROC,?2?' REMOVE PTFPROC,PROC,?2? // IF LOAD-'$FECHK,PTFSS1?L'33,2'?' LOAD $FECHK,PTFSS1?L'33,2'? // ELSE LOAD $FECHK // RUN // APPLY ?2?,?9? // IFF PROC-'PTFPROC,?2?' GOTO APEND // IFF DATAF1-?L'80,8'? GOTO AP6 // * '?L'80,8'?' // * 2038 // PAUSE // DELETE ?L'80,8'?,F1,,,LIBR // TAG AP6 // LOAD $MAINT // INCLUDE PTFPROC,?2? // END // IFF ?CD?=0000 RETURN // IF ?9?=#LIBRARY LOCAL OFFSET-8,DATA-'1',AREA-SYSTEM // DELETE ?2?,F1,,,LIBR // IF ?2?=PTFIW1?L'33,2'? INCLUDE PTF#IW1 APPLY // IF ?2?=PTFIW2?L'33,2'? INCLUDE PTF#IW2 APPLY // IF ?2?=PTFSS1?L'33,2'? IF LOAD-#EPPTF INCLUDE PTF#EP1 APPLY // RETURN // TAG APEND // IFF ?11?/ALLPTF #ERR 3361,03 // RETURN
0x000…001 0x92 0x001…013 »// IF ?11?= RETURN« 0x013…014 0x3e 0x014…015 0xaa 0x015…03f »// IFF ?L'69,1'?=1 IF PROC-LDMARES LDMARES« 0x03f…040 0x26 0x040…041 0xac 0x041…06d »// IFF ?L'68,1'?=1 IF PROC-PTFIWUPD PTFIWUPD« 0x06d…06e 0x24 0x06e…06f 0xa7 0x06f…096 »// LOCAL OFFSET-69,DATA-'1',AREA-SYSTEM« 0x096…097 0x29 0x097…098 0x96 0x098…0ae »// IF ?9?/ #ERR 3357,C« 0x0ae…0af 0x3a 0x0af…0b0 0xa7 0x0b0…0d7 »// IF ?11?/ALLPTF IFF DATAF1-?2? RETURN« 0x0d7…0d8 0x29 0x0d8…0d9 0x99 0x0d9…0f2 »// IF DATAF1-?2? GOTO AP1« 0x0f2…0f3 0x37 0x0f3…0f4 0x8a 0x0f4…0fe »// * '?2?'« 0x0fe…0ff 0x46 0x0ff…100 0x8e 0x100…10e »// #ERR 3365,C« 0x10e…10f 0x08 0x10f…110 0x95 0x110…125 »PTF LIBRARY NOT FOUND« 0x125…126 0x25 0x126…127 0x8a 0x127…131 »// TAG AP1« 0x131…132 0x46 0x132…133 0xb0 0x133…163 »// IF PROC-'PTFPROC,?2?' REMOVE PTFPROC,PROC,?2?« 0x163…164 0x20 0x164…165 0xbf 0x165…1a4 »// IF LOAD-'$FECHK,PTFSS1?L'33,2'?' LOAD $FECHK,PTFSS1?L'33,2'?« 0x1a4…1a5 0x11 0x1a5…1a6 0x93 0x1a6…1b9 »// ELSE LOAD $FECHK« 0x1b9…1ba 0x3d 0x1ba…1bb 0x86 0x1bb…1c1 »// RUN« 0x1c1…1c2 0x4a 0x1c2…1c3 0x90 0x1c3…1d3 »// APPLY ?2?,?9?« 0x1d3…1d4 0x40 0x1d4…1d5 0xa4 0x1d5…1f9 »// IFF PROC-'PTFPROC,?2?' GOTO APEND« 0x1f9…1fa 0x2c 0x1fa…1fb 0xa0 0x1fb…21b »// IFF DATAF1-?L'80,8'? GOTO AP6« 0x21b…21c 0x30 0x21c…21d 0x90 0x21d…22d »// * '?L'80,8'?'« 0x22d…22e 0x40 0x22e…22f 0x89 0x22f…238 »// * 2038« 0x238…239 0x47 0x239…23a 0x88 0x23a…242 »// PAUSE« 0x242…243 0x48 0x243…244 0x9d 0x244…261 »// DELETE ?L'80,8'?,F1,,,LIBR« 0x261…262 0x33 0x262…263 0x8a 0x263…26d »// TAG AP6« 0x26d…26e 0x46 0x26e…26f 0x8e 0x26f…27d »// LOAD $MAINT« 0x27d…27e 0x42 0x27e…27f 0x96 0x27f…295 »// INCLUDE PTFPROC,?2?« 0x295…296 0x3a 0x296…297 0x86 0x297…29d »// END« 0x29d…29e 0x4a 0x29e…29f 0x97 0x29f…2b6 »// IFF ?CD?=0000 RETURN« 0x2b6…2b7 0x39 0x2b7…2b8 0xb6 0x2b8…2ee »// IF ?9?=#LIBRARY LOCAL OFFSET-8,DATA-'1',AREA-SYSTEM« 0x2ee…2ef 0x1a 0x2ef…2f0 0x97 0x2f0…307 »// DELETE ?2?,F1,,,LIBR« 0x307…308 0x39 0x308…309 0xaf 0x309…338 »// IF ?2?=PTFIW1?L'33,2'? INCLUDE PTF#IW1 APPLY« 0x338…339 0x21 0x339…33a 0xaf 0x33a…369 »// IF ?2?=PTFIW2?L'33,2'? INCLUDE PTF#IW2 APPLY« 0x369…36a 0x21 0x36a…36b 0xbe 0x36b…3a9 »// IF ?2?=PTFSS1?L'33,2'? IF LOAD-#EPPTF INCLUDE PTF#EP1 APPLY« 0x3a9…3aa 0x12 0x3aa…3ab 0x89 0x3ab…3b4 »// RETURN« 0x3b4…3b5 0x47 0x3b5…3b6 0x8c 0x3b6…3c2 »// TAG APEND« 0x3c2…3c3 0x44 0x3c3…3c4 0x9f 0x3c4…3e3 »// IFF ?11?/ALLPTF #ERR 3361,03« 0x3e3…3e4 0x31 0x3e4…3e5 0x89 0x3e5…3ee »// RETURN« 0x3ee…3ef 0x47 0x3ef…3f0 0x00 0x3f0…400 0b bb 0c 0b f2 90 62 b8 80 0a f2 90 5c b8 80 09 ┆ ] 2°Â½Ø 2°*½Ø ┆