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

⟦f32cbec3c⟧ 

    Length: 512 (0x200)
    Notes: MEMBER_P, Member_Text
    Names: »OLLN    «

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⟧ ».OLLN    «

Text Member

* PROCEDURE TO CHECK WHICH LINE IS BEING TESTED AND STORE SRC VALUE IN LDA                                              
// LOAD PSPEXT                                   * ENABLE EXTERNAL INTERRUPTS                                           
// RUN                                                                                                                  
// IF ?L'221,1'?=1 LOCAL OFFSET-57,DATA-'4F68'   * STORE SRC VALUE IN LDA                                               
// ELSE IF ?L'221,1'?=2 LOCAL OFFSET-57,DATA-'4F6C'  * STORE SRC VALUE IN LDA                                           
// RESET PSP                                     * RESTART PD SCREEN DRIVER

OctetView - MemberText

0x000…001 0xca
0x001…04b »* PROCEDURE TO CHECK WHICH LINE IS BEING TESTED AND STORE SRC VALUE IN LDA«
0x04b…04c 0x2e
0x04c…04d 0x8e
0x04d…05b »// LOAD PSPEXT«
0x05b…05c 0x23
0x05c…05d 0x9c
0x05d…079 »* ENABLE EXTERNAL INTERRUPTS«
0x079…07a 0x2b
0x07a…07b 0x86
0x07b…081 »// RUN«
0x081…082 0x72
0x082…083 0xae
0x083…0b1 »// IF ?L'221,1'?=1 LOCAL OFFSET-57,DATA-'4F68'«
0x0b1…0b2 0x03
0x0b2…0b3 0x98
0x0b3…0cb »* STORE SRC VALUE IN LDA«
0x0cb…0cc 0x2f
0x0cc…0cd 0xb3
0x0cd…100 »// ELSE IF ?L'221,1'?=2 LOCAL OFFSET-57,DATA-'4F6C'«
0x100…101 0x02
0x101…102 0x98
0x102…11a »* STORE SRC VALUE IN LDA«
0x11a…11b 0x2b
0x11b…11c 0x8c
0x11c…128 »// RESET PSP«
0x128…129 0x25
0x129…12a 0x9a
0x12a…144 »* RESTART PD SCREEN DRIVER«
0x144…145 0x2d
0x145…146 0x00
0x146…160 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 00                     ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x160…180 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 00 00 00 00 00 00 00   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x4…]

Reduced view