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     «

Text Member

** 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

Full view