DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦cf980f728⟧ TextFile

    Length: 3163 (0xc5b)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦a4e1f2066⟧ 
            └─⟦this⟧ 

TextFile

# Assembly file for Ada unit: lib/button
# Ada source file: /home/aconit/projects/umps/Ada_C/button_7_s.ada
# Assembly file creation date:  19 MARCH  1993,  14: 26: 24
# 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 = ""
#   opt_level = ""
#   Compiler invocation line:
# "+enable_traceback +object +ass -opt -profile -moni +virt=3000 -cg_opt +listing +list_name=/home/aconit/projects/umps/Ada_C/button_7_s.lst /home/aconit/projects/umps/Ada_C/button_7_s.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:  button:Spec_Elab
#  Storage check NOT suppressed
#  Lexical_level:  0
#  Subprogram kind: TYPE3_SUBPROGRAM
#  Parameter block size:  0
#  Frame size:  0
#  Has calls: FALSE
#  Has nested: FALSE
#  Has handlers: FALSE
#  Number of bblocks:  2
#  Makes dynamic storage: FALSE
#
#  No parameters
#  
         .align 3
         .csect    .A1GQ3B6V_{pr},3    # button:Spec_Elab
#
         .globl    .A1GQ3B6V_{pr}
# New bblk, id =  0, frequency =  64, offset = 0000
#  Line:  1
         l         r18,T000000000(r02) # button:MP_L0001D001 (ZZGQ3B6V_)
         cal       r17, 0(r00)
         stb       r17, 8(r18)
# New bblk, id =  1, frequency =  64, offset = 000C
T000000001:
         br     
         .long      0
         .long      262140
         .short     256
         .short     3
         .byte     'b,'u,'t,'t,'o,'n,':,'S,'p,'e,'c,'_,'E,'l,'a,'b,0
         .byte     '@,'(,'#,'),'b,'u,'t,'t,'o,'n,'_,'7,'_,'s,'.,'a,'d,'a
         .byte     '1,'6,'0,'2,'1,'4,0,0
#
#======================================
#
# Static data area:
         .comm     ZZGQ3B6V_, 16
#
# Compilation unit literal pool
#
         .csect    ZYGQ3B6V_{ro},3
         .globl    ZYGQ3B6V_{ro}
         .byte     0

#
#======================================
#
# TOC Compilation unit pool
         .toc
T000000000:
         .tc       ZZGQ3B6V_TC{tc},ZZGQ3B6V_    
#
# End of assembly file, Failed = FALSE