|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7858 (0x1eb2)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦a8371e1cd⟧
└─⟦this⟧
# 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