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

⟦03a53f3d8⟧ 

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

Derivation

└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
    └─⟦2c22cec32⟧ 
        └─⟦this⟧ ».FAKIN1FM«

Text Member

* Rettelse af denne procedure skal ske fra MENU PROG - aldrig SEU direkte. ***                                          
MPFIRMA                                                                                                                 
// SWITCH 00000000                                                                                                      
// LOCAL OFFSET-01,DATA-'?L'491,2'?'                                                                                    
// LOCAL OFFSET-03,DATA-'000000000000000' ,          RETTET 15/7 88 PS                                                  
// FAK100?L'491,2'?                                                                                                     
// IF ?L'18,1'?/R  LOCAL OFFSET-19,DATA-'R'                                                                             
// IF ?L'17,1'?/N  ERR 1207,0                                                                                           
// IF ?L'17,1'?/N  GOTO EJORD                                                                                           
// IF ?L'17,1'?/0  ERR 1003,3                                                                                           
// IF ?L'17,1'?/P  EVOKE FAK108                                                                                         
// IF ?L'17,1'?/P  RESET FAKIN1?L'491,2'?                                                                               
// IF ?L'17,1'?/D  SWITCH 00010000                                                                                      
// IF ACTIVE-'FAK120?L'491,2'?,FAK140?L'491,2'?' ERR 1200,3                                                             
// FAK120?L'491,2'?                                                                                                     
// FAK140?L'491,2'?                                                                                                     
// FAK150                                                                                                               
// TAG EJORD                                                                                                            
// IF ACTIVE-'FAKINP?L'491,2'?,FAKIN1?L'491,2'?' RETURN                                                                 
// IF ?L'19,1'?/R  FAK160                                                                                               
******// FAKOR3?L'491,2'?    FLYTTET TIL MPSAVE  15/7 88 PS

Full view