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

OctetView - MemberText

0x000…001 0xce
0x001…04f »* Rettelse af denne procedure skal ske fra MENU PROG - aldrig SEU direkte. ***«
0x04f…050 0x2a
0x050…051 0x87
0x051…058 »MPFIRMA«
0x058…059 0x71
0x059…05a 0x92
0x05a…06c »// SWITCH 00000000«
0x06c…06d 0x66
0x06d…06e 0xa4
0x06e…092 »// LOCAL OFFSET-01,DATA-'?L'491,2'?'«
0x092…093 0x54
0x093…094 0xab
0x094…0bf »// LOCAL OFFSET-03,DATA-'000000000000000' ,«
0x0bf…0c0 0x0a
0x0c0…0c1 0x91
0x0c1…0d2 »RETTET 15/7 88 PS«
0x0d2…0d3 0x32
0x0d3…0d4 0x93
0x0d4…0e7 »// FAK100?L'491,2'?«
0x0e7…0e8 0x65
0x0e8…0e9 0x91
0x0e9…0fa »// IF ?L'18,1'?/R«
0x0fa…0fb 0x02
0x0fb…0fc 0x98
0x0fc…114 »LOCAL OFFSET-19,DATA-'R'«
0x114…115 0x4d
0x115…116 0x91
0x116…127 »// IF ?L'17,1'?/N«
0x127…128 0x02
0x128…129 0x8a
0x129…133 »ERR 1207,0«
0x133…134 0x5b
0x134…135 0x91
0x135…146 »// IF ?L'17,1'?/N«
0x146…147 0x02
0x147…148 0x8a
0x148…152 »GOTO EJORD«
0x152…153 0x5b
0x153…154 0x91
0x154…165 »// IF ?L'17,1'?/0«
0x165…166 0x02
0x166…167 0x8a
0x167…171 »ERR 1003,3«
0x171…172 0x5b
0x172…173 0x91
0x173…184 »// IF ?L'17,1'?/P«
0x184…185 0x02
0x185…186 0x8c
0x186…192 »EVOKE FAK108«
0x192…193 0x59
0x193…194 0x91
0x194…1a5 »// IF ?L'17,1'?/P«
0x1a5…1a6 0x02
0x1a6…1a7 0x96
0x1a7…1bd »RESET FAKIN1?L'491,2'?«
0x1bd…1be 0x4f
0x1be…1bf 0x91
0x1bf…1d0 »// IF ?L'17,1'?/D«
0x1d0…1d1 0x02
0x1d1…1d2 0x8f
0x1d2…1e1 »SWITCH 00010000«
0x1e1…1e2 0x56
0x1e2…1e3 0xbb
0x1e3…21e »// IF ACTIVE-'FAK120?L'491,2'?,FAK140?L'491,2'?' ERR 1200,3«
0x21e…21f 0x3d
0x21f…220 0x93
0x220…233 »// FAK120?L'491,2'?«
0x233…234 0x65
0x234…235 0x93
0x235…248 »// FAK140?L'491,2'?«
0x248…249 0x65
0x249…24a 0x89
0x24a…253 »// FAK150«
0x253…254 0x6f
0x254…255 0x8c
0x255…261 »// TAG EJORD«
0x261…262 0x6c
0x262…263 0xb7
0x263…29a »// IF ACTIVE-'FAKINP?L'491,2'?,FAKIN1?L'491,2'?' RETURN«
0x29a…29b 0x41
0x29b…29c 0x91
0x29c…2ad »// IF ?L'19,1'?/R«
0x2ad…2ae 0x02
0x2ae…2af 0x86
0x2af…2b5 »FAK160«
0x2b5…2b6 0x5f
0x2b6…2b7 0x99
0x2b7…2d0 »******// FAKOR3?L'491,2'?«
0x2d0…2d1 0x04
0x2d1…2d2 0x92
0x2d2…2e4 »FLYTTET TIL MPSAVE«
0x2e4…2e5 0x02
0x2e5…2e6 0x8a
0x2e6…2f0 »15/7 88 PS«
0x2f0…2f1 0x3d
0x2f1…2f2 0x00
0x2f2…300 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                                         ┆              ┆

Reduced view