DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ D T

⟦59dae5e4a⟧ TextFile

    Length: 7859 (0x1eb3)
    Types: TextFile
    Names: »D1«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

# Assembly file for Ada unit: sec/encode
# Ada source file: /u/pam/adac/encode_24_b.ada
# Assembly file creation date:  5 MARCH  1992,  14: 22: 8
# Code generator switch settings:
#   glb.version = ""
#   glb.cg_debug = FALSE
#   glb.object = TRUE
#   glb.bind_only = FALSE
#   glb.debug_info = FALSE
#   glb.suppress = FALSE
#   glb.profiling = FALSE
#   glb.brief_assembly = FALSE
#   glb.source_info = TRUE
#   glb.standard = FALSE
#   info_file_name = "TK2.INF"
#   opt_level = ""
#   Compiler invocation line:
# "+varc=put +object +cg_debug +ass -opt +listing +list_name=/u/pam/adac/encode_24_b.lst -profile -moni +virt=3000 -cg_opt /u/pam/adac/encode_24_b.ada"
#--------------------------------------
.set mqr, 0
.set xer, 1
.set lkr, 8
.set ctr, 9
 
.set cs0, 0
.set cs1, 1
.set cs2, 2
.set cs3, 3
.set cs4, 4
.set cs5, 5
.set cs6, 6
.set cs7, 7
 
.set r00, 0
.set r01, 1
.set r02, 2
.set r03, 3
.set r04, 4
.set r05, 5
.set r06, 6
.set r07, 7
.set r08, 8
.set r09, 9
.set r10, 10
.set r11, 11
.set r12, 12
.set r13, 13
.set r14, 14
.set r15, 15
.set r16, 16
.set r17, 17
.set r18, 18
.set r19, 19
.set r20, 20
.set r21, 21
.set r22, 22
.set r23, 23
.set r24, 24
.set r25, 25
.set r26, 26
.set r27, 27
.set r28, 28
.set r29, 29
.set r30, 30
.set r31, 31
 
.set f00, 0
.set f01, 1
.set f02, 2
.set f03, 3
.set f04, 4
.set f05, 5
.set f06, 6
.set f07, 7
.set f08, 8
.set f09, 9
.set f10, 10
.set f11, 11
.set f12, 12
.set f13, 13
.set f14, 14
.set f15, 15
.set f16, 16
.set f17, 17
.set f18, 18
.set f19, 19
.set f20, 20
.set f21, 21
.set f22, 22
.set f23, 23
.set f24, 24
.set f25, 25
.set f26, 26
.set f27, 27
.set f28, 28
.set f29, 29
.set f30, 30
.set f31, 31
#======================================
# Code for subprogram:  encode:Spec_Elab
#  Storage check NOT suppressed
#  Lexical_level:  0
#  Subprogram kind: TYPE1_SUBPROGRAM
#  Parameter block size:  0
#  Frame size:  0
#  Has calls: FALSE
#  Has nested: TRUE
#  Has handlers: FALSE
#  Number of bblocks:  3
#  Makes dynamic storage: FALSE
#
#  No parameters
#  
         .csect    .A169M4BL{pr},3     # encode:Spec_Elab
#
         .globl    .A169M4BL{pr}
# New bblk, id =  0, frequency =  64, offset = 0000
         mfspr     r30,lkr
         cal       r19,-136(r01)
         cmp       cs0,r19,r20
         stm       r27,-20(r01)
         cal       r31, 0(r01)
         bltl      cs0,T0000000        # Offset: 0014
         cal       r01, 0(r19)
#  Line:  1
# New bblk, id =  4096, frequency =  64, offset = 001C
         l         r28,T0000001(r02)   # encode.MP_L1D1 (ZZ69M4BL)
         cal       r27, 0(r00)
         sth       r27, 0(r28)
# New bblk, id =  4097, frequency =  64, offset = 0028
T0000002:
         l         r30,-8(r31)
         cal       r01, 0(r31)
         mtspr     lkr,r30
         lm        r27,-20(r01)
         br     
T0000000:
         mfspr     r03,lkr
         bl        .xreasonj{pr}
T0000003:
#   Propagate thunk:
         l         r04,-8(r31)
         cal       r03, 0(r04)
         cal       r01, 0(r31)
         mtspr     lkr,r04
         lm        r27,-20(r01)
         b         xreraise{pr}
         .long      0
         .long      23
         .short     0
         .short     1
         .short     7
         .short     9
         .short     0
         .short     17
         .short     0
         .short     0
         .short     0
         .short     0
         .short     1
         .short     7
         .short     1
         .short     65535
         .byte     'e,'n,'c,'o,'d,'e,':,'S,'p,'e,'c,'_,'E,'l,'a,'b,0
#
#======================================
#
# Code for subprogram:  encode:Body_Elab
#  Storage check NOT suppressed
#  Lexical_level:  0
#  Subprogram kind: TYPE1_SUBPROGRAM
#  Parameter block size:  0
#  Frame size:  0
#  Has calls: FALSE
#  Has nested: FALSE
#  Has handlers: FALSE
#  Number of bblocks:  3
#  Makes dynamic storage: FALSE
#
#  No parameters
#  
         .csect    .A269M4BL{pr},3     # encode:Body_Elab
#
         .globl    .A269M4BL{pr}
# New bblk, id =  0, frequency =  64, offset = 0000
         mfspr     r30,lkr
         cal       r19,-136(r01)
         cmp       cs0,r19,r20
         stm       r27,-20(r01)
         cal       r31, 0(r01)
         bltl      cs0,T0000004        # Offset: 0014
         cal       r01, 0(r19)
#  Line:  1
# New bblk, id =  4096, frequency =  64, offset = 001C
         l         r28,T0000001(r02)   # encode.MP_L1D1 (ZZ69M4BL)
         cal       r27, 1(r00)
         sth       r27, 0(r28)
# New bblk, id =  4097, frequency =  64, offset = 0028
T0000005:
         l         r30,-8(r31)
         cal       r01, 0(r31)
         mtspr     lkr,r30
         lm        r27,-20(r01)
         br     
T0000004:
         mfspr     r03,lkr
         bl        .xreasonj{pr}
T0000006:
#   Propagate thunk:
         l         r04,-8(r31)
         cal       r03, 0(r04)
         cal       r01, 0(r31)
         mtspr     lkr,r04
         lm        r27,-20(r01)
         b         xreraise{pr}
         .long      0
         .long      23
         .short     0
         .short     1
         .short     7
         .short     9
         .short     0
         .short     17
         .short     0
         .short     0
         .short     0
         .short     0
         .short     1
         .short     7
         .short     1
         .short     65535
         .byte     'e,'n,'c,'o,'d,'e,':,'B,'o,'d,'y,'_,'E,'l,'a,'b,0
#
#======================================
#
# Code for subprogram:  encode:encode
#  Storage check NOT suppressed
#  Lexical_level:  0
#  Subprogram kind: TYPE1_SUBPROGRAM
#  Parameter block size:  0
#  Frame size:  8
#  Has calls: FALSE
#  Has nested: FALSE
#  Has handlers: FALSE
#  Number of bblocks:  4
#  Makes dynamic storage: FALSE
#
#  No parameters
#  
         .csect    .A369M4BL{pr},3     # encode:encode
#
         .globl    .A369M4BL{pr}
# New bblk, id =  0, frequency =  64, offset = 0000
         mfspr     r30,lkr
         cal       r19,-144(r01)
         cmp       cs0,r19,r20
         stm       r28,-16(r01)
         cal       r31, 0(r01)
         bltl      cs0,T0000007        # Offset: 0014
         cal       r01, 0(r19)
#  Line:  1
# New bblk, id =  4096, frequency =  64, offset = 001C
#  Line:  2
         cal       r28, 2(r00)
         st        r28,-144(r31)       # encode:encode.a
# New bblk, id =  8192, frequency =  64, offset = 0024
#  Line:  5
# New bblk, id =  8193, frequency =  64, offset = 0024
T0000008:
         l         r30,-8(r31)
         cal       r01, 0(r31)
         mtspr     lkr,r30
         lm        r28,-16(r01)
         br     
T0000007:
         mfspr     r03,lkr
         bl        .xreasonj{pr}
T0000009:
#   Propagate thunk:
         l         r04,-8(r31)
         cal       r03, 0(r04)
         cal       r01, 0(r31)
         mtspr     lkr,r04
         lm        r28,-16(r01)
         b         xreraise{pr}
         .long      0
         .long      22
         .short     0
         .short     1
         .short     7
         .short     11
         .short     0
         .short     16
         .short     0
         .short     0
         .short     0
         .short     0
         .short     1
         .short     7
         .short     2
         .short     7
         .short     5
         .short     9
         .short     5
         .short     65535
         .byte     'e,'n,'c,'o,'d,'e,':,'e,'n,'c,'o,'d,'e,0
#
#======================================
#
# Static data area:
         .comm     ZZ69M4BL, 8
#
# Compilation unit literal pool
#
         .csect    ZY69M4BL{ro},3
         .globl    ZY69M4BL{ro}

#
#======================================
#
# TOC Compilation unit pool
         .toc
T0000001:.tc       ZZ69M4BLTC{tc},ZZ69M4BL    
#
#======================================
#
# External definitions:
#
         .extern .xreasonj{pr}
         .extern xreraise{pr}
#
# End of assembly file, Failed = FALSE