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

⟦01eda11c5⟧

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »PSP     «

Derivation

└─⟦27db88c4d⟧ Bits:30009807 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0323-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 011 of 011
    └─⟦5f03407d3⟧ 
        └─⟦this⟧ ».PSP     « 

** THIS PROCEDURE IS THE SCREEN DRIVER FOR PRESENTATION PROGRAM                                 
// LOAD PSP                                      * LOAD PD SCREEN DRIVER PROG.                  
// FILE NAME-SCRNTEXT,UNIT-F1,DISP-SHR,LABEL-?L'43,8'?   * ADRESSES OF SCREENS                  
// FILE NAME-SCRNTXT,UNIT-F1,DISP-SHR,LABEL-?L'62,8'?    * COMPRESSED SCREENS                   
// FILE NAME-CTRLREC4,UNIT-F1,LABEL-?L'70,8'?,DISP-SHR   * CONTROL-RECORDS                      
// FILE NAME-M40,UNIT-F1,DISP-SHR,LABEL-#PSPTITL         * TITLE ARRAY                          
// FILE NAME-TRACEFIL,DISP-SHR,LABEL-TRACEF?WS?          * SEQUENCE FILE                        
// RUN                                           * RUN PROGRAM                                  
// IF ?L'137,5'?/START GOTO END                  * END IF LDA OUTPUT = START                    
?L'105,4'?                                                                                      
// TAG END                                       *    BY CONTROL RECORD (LDA).                  
// DELETE TRACEF?WS?,F1                          * DELETE TRACE FILE                            

0x000…001 0xbf
0x001…040 »** THIS PROCEDURE IS THE SCREEN DRIVER FOR PRESENTATION PROGRAM«
0x040…041 0x21
0x041…042 0x8b
0x042…04d »// LOAD PSP«
0x04d…04e 0x26
0x04e…04f 0x9d
0x04f…06c »* LOAD PD SCREEN DRIVER PROG.«
0x06c…06d 0x12
0x06d…06e 0xb6
0x06e…0a4 »// FILE NAME-SCRNTEXT,UNIT-F1,DISP-SHR,LABEL-?L'43,8'?«
0x0a4…0a5 0x03
0x0a5…0a6 0x95
0x0a6…0bb »* ADRESSES OF SCREENS«
0x0bb…0bc 0x12
0x0bc…0bd 0xb5
0x0bd…0f2 »// FILE NAME-SCRNTXT,UNIT-F1,DISP-SHR,LABEL-?L'62,8'?«
0x0f2…0f3 0x04
0x0f3…0f4 0x94
0x0f4…108 »* COMPRESSED SCREENS«
0x108…109 0x13
0x109…10a 0xb6
0x10a…140 »// FILE NAME-CTRLREC4,UNIT-F1,LABEL-?L'70,8'?,DISP-SHR«
0x140…141 0x03
0x141…142 0x91
0x142…153 »* CONTROL-RECORDS«
0x153…154 0x16
0x154…155 0xb0
0x155…185 »// FILE NAME-M40,UNIT-F1,DISP-SHR,LABEL-#PSPTITL«
0x185…186 0x09
0x186…187 0x8d
0x187…194 »* TITLE ARRAY«
0x194…195 0x1a
0x195…196 0xaf
0x196…1c5 »// FILE NAME-TRACEFIL,DISP-SHR,LABEL-TRACEF?WS?«
0x1c5…1c6 0x0a
0x1c6…1c7 0x8f
0x1c7…1d6 »* SEQUENCE FILE«
0x1d6…1d7 0x18
0x1d7…1d8 0x86
0x1d8…1de »// RUN«
0x1de…1df 0x2b
0x1df…1e0 0x8d
0x1e0…1ed »* RUN PROGRAM«
0x1ed…1ee 0x22
0x1ee…1ef 0x9f
0x1ef…20e »// IF ?L'137,5'?/START GOTO END«
0x20e…20f 0x12
0x20f…210 0x9b
0x210…22b »* END IF LDA OUTPUT = START«
0x22b…22c 0x14
0x22c…22d 0x8a
0x22d…237 »?L'105,4'?«
0x237…238 0x56
0x238…239 0x8a
0x239…243 »// TAG END«
0x243…244 0x27
0x244…245 0x81
0x245…246 »*«
0x246…247 0x04
0x247…248 0x98
0x248…260 »BY CONTROL RECORD (LDA).«
0x260…261 0x12
0x261…262 0x97
0x262…279 »// DELETE TRACEF?WS?,F1«
0x279…27a 0x1a
0x27a…27b 0x93
0x27b…28e »* DELETE TRACE FILE«
0x28e…28f 0x1c
0x28f…290 0x00
0x290…2a0 40 40 40 40 e2 c9 c6 00 00 00 00 40 20 00 00 a3                                                   ┆    SIF␣␣␣␣  ␣␣t┆
0x2a0…2c0 00 00 80 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 ff 00 ff 00   ┆␣␣Ø␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ␣ ␣┆
0x2c0…2e0 00 00 00 00 00 db 40 00 20 01 d4 c1 d3 c6 25 96 01 00 00 00 00 08 80 5b 21 00 00 00 00 00 00 00   ┆␣␣␣␣␣û ␣  MALF o ␣␣␣␣ Ø$ ␣␣␣␣␣␣␣┆
0x2e0…300 00 00 00 00 00 cb 40 00 20 01 d4 c1 d3 c6 24 83 00 00 00 00 00 08 80 5b 21 00 00 00 00 00 00 00   ┆␣␣␣␣␣ô ␣  MALF c␣␣␣␣␣ Ø$ ␣␣␣␣␣␣␣┆

Reduced view