|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 04f0 | | .CONST 0x04f0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008a | | .CONST 0x008a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0013 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0015 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0021 c21a | | Store 0x1,0x1a
0022 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0024 c213 | | Store 0x1,0x13
0025 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0027 c214 | | Store 0x1,0x14
0028 00e2 | | Load_Encached Integer_Cache
0029 0129 | ) | Execute Any,Make_Visible
002a c215 | | Store 0x1,0x15
002b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002d c216 | | Store 0x1,0x16
002e 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0030 c217 | | Store 0x1,0x17
0031 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0033 c218 | | Store 0x1,0x18
0034 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0036 c219 | | Store 0x1,0x19
0037 00bf | | Action Accept_Activation
0038 00e3 | | Load_Encached Natural_Cache
0039 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003a 00e7 | | Load_Encached Duration_Cache
003b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003c 00e7 | | Load_Encached Duration_Cache
003d 00e7 | | Load_Encached Duration_Cache
003e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003f 00e7 | | Load_Encached Duration_Cache
0040 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0041 00e3 | | Load_Encached Natural_Cache
0042 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0043 481e |H | Short_Literal 0x1e
0044 e001 | | Load 0x0,0x1
0045 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0046 1c08 | | Execute_Immediate Run_Utility,0x8
0047 00d8 | | Load_Top At_Offset_0
0048 1c00 | | Execute_Immediate Run_Utility,0x0
0049 4be8 |K | Short_Literal 0x3e8
004a e001 | | Load 0x0,0x1
004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004c 1c08 | | Execute_Immediate Run_Utility,0x8
004d 00d8 | | Load_Top At_Offset_0
004e 1c00 | | Execute_Immediate Run_Utility,0x0
004f 029b 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Unelaborated
0051 e002 | | Load 0x0,0x2
0052 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0053 e002 | | Load 0x0,0x2
0054 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0055 e003 | | Load 0x0,0x3
0056 e004 | | Load 0x0,0x4
0057 4861 |Ha | Short_Literal 0x61
0058 00e4 | | Load_Encached Positive_Cache
0059 e225 | % | Load 0x1,0x25
005a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
005b e005 | | Load 0x0,0x5
005c 0387 | | Declare_Variable Package
005d 00d8 | | Load_Top At_Offset_0
005e 020f | | Execute Module,Activate
005f 00d8 | | Load_Top At_Offset_0
0060 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0061 e006 | | Load 0x0,0x6
0062 e007 | | Load 0x0,0x7
0063 4804 |H | Short_Literal 0x4
0064 0092 0399 | | Action Push_String_Extended,0x399 ; " "
0066 e008 | | Load 0x0,0x8
0067 0387 | | Declare_Variable Package
0068 00d8 | | Load_Top At_Offset_0
0069 020f | | Execute Module,Activate
006a 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
006c 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
006e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
006f 00c7 | | Action Elaborate_Subprogram
0070 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0071 00c7 | | Action Elaborate_Subprogram
0072 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0073 00c7 | | Action Elaborate_Subprogram
0074 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0077 00c7 | | Action Elaborate_Subprogram
0078 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0079 00c7 | | Action Elaborate_Subprogram
007a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007b 00c7 | | Action Elaborate_Subprogram
007c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
007d 00c7 | | Action Elaborate_Subprogram
007e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
007f 00c7 | | Action Elaborate_Subprogram
0080 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0081 00c7 | | Action Elaborate_Subprogram
0082 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0083 00c7 | | Action Elaborate_Subprogram
0084 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0085 00c7 | | Action Elaborate_Subprogram
0086 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0087 00c7 | | Action Elaborate_Subprogram
0088 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0089 00c7 | | Action Elaborate_Subprogram
008a BODY_0008:
008a 820d | | Call 0x1,0xd
008b 00bc | | Action Signal_Activated
008c 00bb | | Action Signal_Completion
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e226 | & | Load 0x1,0x26
0094 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0095 4861 |Ha | Short_Literal 0x61
0096 e226 | & | Load 0x1,0x26
0097 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0098 c227 | ' | Store 0x1,0x27
0099 820e | | Call 0x1,0xe
009a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009b 0000 0000 | | .BLANK 0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4800 |H | Short_Literal 0x0
00a4 a21b | | Store_Unchecked 0x1,0x1b
00a5 4800 |H | Short_Literal 0x0
00a6 a21c | | Store_Unchecked 0x1,0x1c
00a7 4800 |H | Short_Literal 0x0
00a8 a21e | | Store_Unchecked 0x1,0x1e
00a9 4800 |H | Short_Literal 0x0
00aa a21f | | Store_Unchecked 0x1,0x1f
00ab 4801 |H | Short_Literal 0x1
00ac a220 | | Store_Unchecked 0x1,0x20
00ad e221 | ! | Load 0x1,0x21
00ae 4820 |H | Short_Literal 0x20
00af 4800 |H | Short_Literal 0x0
00b0 e001 | | Load 0x0,0x1
00b1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00b2 00d1 | | Pop_Control Pop_Count_1
00b3 e222 | " | Load 0x1,0x22
00b4 4820 |H | Short_Literal 0x20
00b5 4800 |H | Short_Literal 0x0
00b6 e001 | | Load 0x0,0x1
00b7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b9 0000 0000 | | .BLANK 0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00dc | | .CONST 0x00dc ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e002 | | Load 0x0,0x2
00c4 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
00c5 0322 | " | Declare_Variable Record
00c6 e5ff | | Load 0x2,-0x1
00c7 e402 | | Load 0x2,0x2
00c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c9 e5fe | | Load 0x2,-0x2
00ca e402 | | Load 0x2,0x2
00cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cc e221 | ! | Load 0x1,0x21
00cd e001 | | Load 0x0,0x1
00ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cf e002 | | Load 0x0,0x2
00d0 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
00d1 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00d2 e402 | | Load 0x2,0x2
00d3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00d4 e222 | " | Load 0x1,0x22
00d5 e001 | | Load 0x0,0x1
00d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d7 e002 | | Load 0x0,0x2
00d8 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
00d9 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00da e402 | | Load 0x2,0x2
00db 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00dc BODY_00c0:
00dc e227 | ' | Load 0x1,0x27
00dd 4800 |H | Short_Literal 0x0
00de e402 | | Load 0x2,0x2
00df e220 | | Load 0x1,0x20
00e0 00d8 | | Load_Top At_Offset_0
00e1 00e4 | | Load_Encached Positive_Cache
00e2 0260 | ` | Execute Discrete,In_Type
00e3 7001 |p | Jump_Nonzero 0xe5
00e4 0801 | | Execute_Immediate Raise,0x1
00e5 e226 | & | Load 0x1,0x26
00e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e7 c227 | ' | Store 0x1,0x27
00e8 e220 | | Load 0x1,0x20
00e9 0a01 | | Execute_Immediate Plus,0x1
00ea c220 | | Store 0x1,0x20
00eb e21b | | Load 0x1,0x1b
00ec 0a01 | | Execute_Immediate Plus,0x1
00ed c21b | | Store 0x1,0x1b
00ee e21c | | Load 0x1,0x1c
00ef e5fe | | Load 0x2,-0x2
00f0 0273 | s | Execute Discrete,Plus
00f1 c21c | | Store 0x1,0x1c
00f2 e221 | ! | Load 0x1,0x21
00f3 4820 |H | Short_Literal 0x20
00f4 4800 |H | Short_Literal 0x0
00f5 e001 | | Load 0x0,0x1
00f6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00f7 00d1 | | Pop_Control Pop_Count_1
00f8 e222 | " | Load 0x1,0x22
00f9 4820 |H | Short_Literal 0x20
00fa 4800 |H | Short_Literal 0x0
00fb e001 | | Load 0x0,0x1
00fc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e221 | ! | Load 0x1,0x21
0104 e001 | | Load 0x0,0x1
0105 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0106 6806 |h | Jump_Zero 0x10d
0107 e222 | " | Load 0x1,0x22
0108 4820 |H | Short_Literal 0x20
0109 4800 |H | Short_Literal 0x0
010a e001 | | Load 0x0,0x1
010b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
010c 00d1 | | Pop_Control Pop_Count_1
010d e221 | ! | Load 0x1,0x21
010e e5ff | | Load 0x2,-0x1
010f e001 | | Load 0x0,0x1
0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0111 00d1 | | Pop_Control Pop_Count_1
0112 e222 | " | Load 0x1,0x22
0113 e5fe | | Load 0x2,-0x2
0114 0092 0399 | | Action Push_String_Extended,0x399 ; " "
0116 01cc | | Execute Vector,Catenate
0117 e001 | | Load 0x0,0x1
0118 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0119 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e222 | " | Load 0x1,0x22
0124 e001 | | Load 0x0,0x1
0125 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0126 e5ff | | Load 0x2,-0x1
0127 01db | | Execute Vector,Length
0128 0273 | s | Execute Discrete,Plus
0129 e222 | " | Load 0x1,0x22
012a e001 | | Load 0x0,0x1
012b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
012c 027a | z | Execute Discrete,Less_Equal
012d 6809 |h | Jump_Zero 0x137
012e e222 | " | Load 0x1,0x22
012f e5ff | | Load 0x2,-0x1
0130 0092 0399 | | Action Push_String_Extended,0x399 ; " "
0132 01cc | | Execute Vector,Catenate
0133 e001 | | Load 0x0,0x1
0134 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0135 00d1 | | Pop_Control Pop_Count_1
0136 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0137 e009 | | Load 0x0,0x9
0138 180e | | Execute Package,Field_Execute,Field_Number 0xe
0139 4807 |H | Short_Literal 0x7
013a 0092 039a | | Action Push_String_Extended,0x39a ; "Crash/Shutdown explanation too long: "
013c e5ff | | Load 0x2,-0x1
013d 01cc | | Execute Vector,Catenate
013e e00a | | Load 0x0,0xa
013f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0140 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014e | N | .CONST 0x014e ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b e225 | % | Load 0x1,0x25
014c 0322 | " | Declare_Variable Record
014d 00e1 | | Load_Encached Boolean_Cache
014e BODY_0148:
014e e220 | | Load 0x1,0x20
014f 0c02 | | Execute_Immediate Greater_Equal,0x2
0150 685c |h\ | Jump_Zero 0x1ad
0151 00e1 | | Load_Encached Boolean_Cache
0152 e402 | | Load 0x2,0x2
0153 e220 | | Load 0x1,0x20
0154 0aff | | Execute_Immediate Plus,-0x1
0155 00d8 | | Load_Top At_Offset_0
0156 00e4 | | Load_Encached Positive_Cache
0157 0260 | ` | Execute Discrete,In_Type
0158 7001 |p | Jump_Nonzero 0x15a
0159 0801 | | Execute_Immediate Raise,0x1
015a e227 | ' | Load 0x1,0x27
015b e226 | & | Load 0x1,0x26
015c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
015d 00d1 | | Pop_Control Pop_Count_1
015e c403 | | Store 0x2,0x3
015f 00d8 | | Load_Top At_Offset_0
0160 7002 |p | Jump_Nonzero 0x163
0161 e00b | | Load 0x0,0xb
0162 0257 | W | Execute Discrete,Raise
0163 e5fd | | Load 0x2,-0x3
0164 0f1b | | Execute_Immediate Equal,0x1b
0165 6824 |h$ | Jump_Zero 0x18a
0166 e402 | | Load 0x2,0x2
0167 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0168 6805 |h | Jump_Zero 0x16e
0169 e402 | | Load 0x2,0x2
016a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016b 0227 | ' | Execute Access,All_Reference
016c 01db | | Execute Vector,Length
016d 7007 |p | Jump_Nonzero 0x175
016e e5ff | | Load 0x2,-0x1
016f e002 | | Load 0x0,0x2
0170 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0171 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0172 e402 | | Load 0x2,0x2
0173 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0174 7815 |x | Jump 0x18a
0175 4801 |H | Short_Literal 0x1
0176 e402 | | Load 0x2,0x2
0177 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0178 0227 | ' | Execute Access,All_Reference
0179 e5ff | | Load 0x2,-0x1
017a e00c | | Load 0x0,0xc
017b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
017c 700d |p | Jump_Nonzero 0x18a
017d e402 | | Load 0x2,0x2
017e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
017f 0227 | ' | Execute Access,All_Reference
0180 0092 039b | | Action Push_String_Extended,0x39b ; "; "
0182 01cc | | Execute Vector,Catenate
0183 e5ff | | Load 0x2,-0x1
0184 01cc | | Execute Vector,Catenate
0185 e002 | | Load 0x0,0x2
0186 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0187 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0188 e402 | | Load 0x2,0x2
0189 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018a e402 | | Load 0x2,0x2
018b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
018c 7007 |p | Jump_Nonzero 0x194
018d e5fe | | Load 0x2,-0x2
018e e002 | | Load 0x0,0x2
018f 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0190 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0191 e402 | | Load 0x2,0x2
0192 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0193 780c |x | Jump 0x1a0
0194 4820 |H | Short_Literal 0x20
0195 e402 | | Load 0x2,0x2
0196 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0197 0227 | ' | Execute Access,All_Reference
0198 01cb | | Execute Vector,Append
0199 e5fe | | Load 0x2,-0x2
019a 01cc | | Execute Vector,Catenate
019b e002 | | Load 0x0,0x2
019c 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
019d 03b6 | | Declare_Variable Access,By_Allocation,With_Value
019e e402 | | Load 0x2,0x2
019f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01a0 e227 | ' | Load 0x1,0x27
01a1 4800 |H | Short_Literal 0x0
01a2 e402 | | Load 0x2,0x2
01a3 e220 | | Load 0x1,0x20
01a4 0aff | | Execute_Immediate Plus,-0x1
01a5 00d8 | | Load_Top At_Offset_0
01a6 00e4 | | Load_Encached Positive_Cache
01a7 0260 | ` | Execute Discrete,In_Type
01a8 7001 |p | Jump_Nonzero 0x1aa
01a9 0801 | | Execute_Immediate Raise,0x1
01aa e226 | & | Load 0x1,0x26
01ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ac c227 | ' | Store 0x1,0x27
01ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e221 | ! | Load 0x1,0x21
01b4 4820 |H | Short_Literal 0x20
01b5 4800 |H | Short_Literal 0x0
01b6 e001 | | Load 0x0,0x1
01b7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01b8 00d1 | | Pop_Control Pop_Count_1
01b9 e222 | " | Load 0x1,0x22
01ba 4820 |H | Short_Literal 0x20
01bb 4800 |H | Short_Literal 0x0
01bc e001 | | Load 0x0,0x1
01bd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4802 |H | Short_Literal 0x2
01c4 e00d | | Load 0x0,0xd
01c5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01c6 0092 039c | | Action Push_String_Extended,0x39c ; "System Outages"
01c8 e00d | | Load 0x0,0xd
01c9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ca 4802 |H | Short_Literal 0x2
01cb e00d | | Load 0x0,0xd
01cc 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01cd 0092 039d | | Action Push_String_Extended,0x39d ; "Each system outage is listed, including the length"
01cf e00d | | Load 0x0,0xd
01d0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d1 0092 039e | | Action Push_String_Extended,0x39e ; "of the outage measured from the last successful"
01d3 e00d | | Load 0x0,0xd
01d4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d5 0092 039f | | Action Push_String_Extended,0x39f ; "snapshot to the elaboration of the environment."
01d7 e00d | | Load 0x0,0xd
01d8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d9 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "The entered cause or system diagnosed cause and any"
01db e00d | | Load 0x0,0xd
01dc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01dd 0092 03a1 | | Action Push_String_Extended,0x3a1 ; "comments entered in Shutdown or Explain_Crash are shown."
01df e00d | | Load 0x0,0xd
01e0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e1 4802 |H | Short_Literal 0x2
01e2 e00d | | Load 0x0,0xd
01e3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01e4 4802 |H | Short_Literal 0x2
01e5 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "Time"
01e7 e228 | ( | Load 0x1,0x28
01e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e9 4802 |H | Short_Literal 0x2
01ea 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "Length"
01ec e228 | ( | Load 0x1,0x28
01ed 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ee 4802 |H | Short_Literal 0x2
01ef 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "Cause"
01f1 e228 | ( | Load 0x1,0x28
01f2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f3 4800 |H | Short_Literal 0x0
01f4 0092 03a5 | | Action Push_String_Extended,0x3a5 ; "Comments"
01f6 e228 | ( | Load 0x1,0x28
01f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f8 00cf | | Action Mark_Auxiliary
01f9 e220 | | Load 0x1,0x20
01fa 0aff | | Execute_Immediate Plus,-0x1
01fb 4801 |H | Short_Literal 0x1
01fc 0263 | c | Execute Discrete,Above_Bound
01fd 7007 |p | Jump_Nonzero 0x205
01fe 00d8 | | Load_Top At_Offset_0
01ff e227 | ' | Load 0x1,0x27
0200 e226 | & | Load 0x1,0x26
0201 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0202 822a | * | Call 0x1,0x2a
0203 00c8 | | Action Pop_Auxiliary_Range
0204 3ff9 |? | Loop_Increasing 0x1fe
0205 00ce | | Action Pop_Auxiliary
0206 e00d | | Load 0x0,0xd
0207 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0208 e228 | ( | Load 0x1,0x28
0209 1816 | | Execute Package,Field_Execute,Field_Number 0x16
020a e5ff | | Load 0x2,-0x1
020b 8214 | | Call 0x1,0x14
020c 0092 03a6 | | Action Push_String_Extended,0x3a6 ; "\x0c"
020e e00d | | Load 0x0,0xd
020f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0210 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021d | | .CONST 0x021d ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
021d BODY_0218:
021d 4802 |H | Short_Literal 0x2
021e e00d | | Load 0x0,0xd
021f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0220 0092 03a7 | | Action Push_String_Extended,0x3a7 ; "System Availability Statistics"
0222 e00d | | Load 0x0,0xd
0223 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0224 8402 | | Call 0x2,0x2
0225 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 4801 |H | Short_Literal 0x1
022c a5ff | | Store_Unchecked 0x2,-0x1
022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e5ff | | Load 0x2,-0x1
0234 0a01 | | Execute_Immediate Plus,0x1
0235 c5ff | | Store 0x2,-0x1
0236 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e5ff | | Load 0x2,-0x1
023c e220 | | Load 0x1,0x20
023d 027b | { | Execute Discrete,Greater_Equal
023e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e5ff | | Load 0x2,-0x1
0244 00d8 | | Load_Top At_Offset_0
0245 00e4 | | Load_Encached Positive_Cache
0246 0260 | ` | Execute Discrete,In_Type
0247 7001 |p | Jump_Nonzero 0x249
0248 0801 | | Execute_Immediate Raise,0x1
0249 e227 | ' | Load 0x1,0x27
024a e226 | & | Load 0x1,0x26
024b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e5ff | | Load 0x2,-0x1
0254 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e5ff | | Load 0x2,-0x1
025c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
025d 7003 |p | Jump_Nonzero 0x261
025e 4801 |H | Short_Literal 0x1
025f a5fe | | Store_Unchecked 0x2,-0x2
0260 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0261 e5ff | | Load 0x2,-0x1
0262 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0263 0227 | ' | Execute Access,All_Reference
0264 01db | | Execute Vector,Length
0265 7003 |p | Jump_Nonzero 0x269
0266 4801 |H | Short_Literal 0x1
0267 a5fe | | Store_Unchecked 0x2,-0x2
0268 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0269 4801 |H | Short_Literal 0x1
026a e5ff | | Load 0x2,-0x1
026b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
026c 0227 | ' | Execute Access,All_Reference
026d 0092 03a8 | | Action Push_String_Extended,0x3a8 ; "cops"
026f e00c | | Load 0x0,0xc
0270 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0271 6803 |h | Jump_Zero 0x275
0272 4801 |H | Short_Literal 0x1
0273 a5fe | | Store_Unchecked 0x2,-0x2
0274 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0275 4800 |H | Short_Literal 0x0
0276 a5fe | | Store_Unchecked 0x2,-0x2
0277 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e | ~ | .CONST 0x027e ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 00e1 | | Load_Encached Boolean_Cache
027c 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
027e BODY_0278:
027e 00e1 | | Load_Encached Boolean_Cache
027f e5ff | | Load 0x2,-0x1
0280 8229 | ) | Call 0x1,0x29
0281 c402 | | Store 0x2,0x2
0282 e402 | | Load 0x2,0x2
0283 6806 |h | Jump_Zero 0x28a
0284 e21f | | Load 0x1,0x1f
0285 e5ff | | Load 0x2,-0x1
0286 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0287 0273 | s | Execute Discrete,Plus
0288 c21f | | Store 0x1,0x1f
0289 7805 |x | Jump 0x28f
028a e21e | | Load 0x1,0x1e
028b e5ff | | Load 0x2,-0x1
028c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028d 0273 | s | Execute Discrete,Plus
028e c21e | | Store 0x1,0x1e
028f e5ff | | Load 0x2,-0x1
0290 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0291 e00e | | Load 0x0,0xe
0292 180d | | Execute Package,Field_Execute,Field_Number 0xd
0293 e228 | ( | Load 0x1,0x28
0294 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0295 e5ff | | Load 0x2,-0x1
0296 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0297 e00e | | Load 0x0,0xe
0298 180e | | Execute Package,Field_Execute,Field_Number 0xe
0299 e228 | ( | Load 0x1,0x28
029a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029b e5ff | | Load 0x2,-0x1
029c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
029d 0227 | ' | Execute Access,All_Reference
029e 01db | | Execute Vector,Length
029f 7005 |p | Jump_Nonzero 0x2a5
02a0 0092 03a9 | | Action Push_String_Extended,0x3a9 ; "None"
02a2 e228 | ( | Load 0x1,0x28
02a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a4 7805 |x | Jump 0x2aa
02a5 e5ff | | Load 0x2,-0x1
02a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a7 0227 | ' | Execute Access,All_Reference
02a8 e228 | ( | Load 0x1,0x28
02a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02aa e5ff | | Load 0x2,-0x1
02ab 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02ac 0227 | ' | Execute Access,All_Reference
02ad 8403 | | Call 0x2,0x3
02ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02af 0000 | | .XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02c0 | | .CONST 0x02c0 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0003 | | .CONST 0x0003 ; Number of locals
02b3 INIT_02b0:
02b3 e00f | | Load 0x0,0xf
02b4 e010 | | Load 0x0,0x10
02b5 00e6 | | Load_Encached Float_Cache
02b6 e00d | | Load 0x0,0xd
02b7 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
02b8 0387 | | Declare_Variable Package
02b9 00d8 | | Load_Top At_Offset_0
02ba 020f | | Execute Module,Activate
02bb 4801 |H | Short_Literal 0x1
02bc 4806 |H | Short_Literal 0x6
02bd 00e9 | | Load_Encached String_Cache
02be 035b | [ | Declare_Type Array,Constrained
02bf 0337 | 7 | Declare_Variable Array
02c0 BODY_02b0:
02c0 0092 03aa | | Action Push_String_Extended,0x3aa ; "Total Outages = "
02c2 e21b | | Load 0x1,0x1b
02c3 00e0 | | Load_Encached Standard_Cache
02c4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c5 01cc | | Execute Vector,Catenate
02c6 e00d | | Load 0x0,0xd
02c7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02c8 0092 03ab | | Action Push_String_Extended,0x3ab ; "Total Downtime = "
02ca e21c | | Load 0x1,0x1c
02cb e00e | | Load 0x0,0xe
02cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cd 01cc | | Execute Vector,Catenate
02ce e00d | | Load 0x0,0xd
02cf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02d0 0092 03ac | | Action Push_String_Extended,0x3ac ; "Total report time = "
02d2 e5ff | | Load 0x2,-0x1
02d3 e00e | | Load 0x0,0xe
02d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d5 01cc | | Execute Vector,Catenate
02d6 e00d | | Load 0x0,0xd
02d7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02d8 0092 03ad | | Action Push_String_Extended,0x3ad ; "Downtime due to system problems = "
02da e21e | | Load 0x1,0x1e
02db e00e | | Load 0x0,0xe
02dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02dd 01cc | | Execute Vector,Catenate
02de e00d | | Load 0x0,0xd
02df 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e0 0092 03ae | | Action Push_String_Extended,0x3ae ; "Downtime due to planned operations = "
02e2 e21f | | Load 0x1,0x1f
02e3 e00e | | Load 0x0,0xe
02e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e5 01cc | | Execute Vector,Catenate
02e6 e00d | | Load 0x0,0xd
02e7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e8 e5ff | | Load 0x2,-0x1
02e9 6837 |h7 | Jump_Zero 0x321
02ea 00d8 | | Load_Top At_Offset_0
02eb 4800 |H | Short_Literal 0x0
02ec 4800 |H | Short_Literal 0x0
02ed 583e |X> | Indirect_Literal Float,0x32c,100.0
02ee 5839 |X9 | Indirect_Literal Float,0x328,1.0
02ef e21c | | Load 0x1,0x1c
02f0 0237 | 7 | Execute Float,Convert_From_Discrete
02f1 5832 |X2 | Indirect_Literal Float,0x324,3.0517578125e-05
02f2 023b | ; | Execute Float,Times
02f3 e5ff | | Load 0x2,-0x1
02f4 0237 | 7 | Execute Float,Convert_From_Discrete
02f5 582e |X. | Indirect_Literal Float,0x324,3.0517578125e-05
02f6 023b | ; | Execute Float,Times
02f7 023a | : | Execute Float,Divide
02f8 023c | < | Execute Float,Minus
02f9 023b | ; | Execute Float,Times
02fa e602 | | Load 0x3,0x2
02fb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02fc 00d1 | | Pop_Control Pop_Count_1
02fd 0092 03af | | Action Push_String_Extended,0x3af ; "Total up time fraction = "
02ff e603 | | Load 0x3,0x3
0300 01cc | | Execute Vector,Catenate
0301 e00d | | Load 0x0,0xd
0302 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0303 00d8 | | Load_Top At_Offset_0
0304 4800 |H | Short_Literal 0x0
0305 4800 |H | Short_Literal 0x0
0306 5825 |X% | Indirect_Literal Float,0x32c,100.0
0307 5820 |X | Indirect_Literal Float,0x328,1.0
0308 e21e | | Load 0x1,0x1e
0309 0237 | 7 | Execute Float,Convert_From_Discrete
030a 5819 |X | Indirect_Literal Float,0x324,3.0517578125e-05
030b 023b | ; | Execute Float,Times
030c e5ff | | Load 0x2,-0x1
030d 0237 | 7 | Execute Float,Convert_From_Discrete
030e 5815 |X | Indirect_Literal Float,0x324,3.0517578125e-05
030f 023b | ; | Execute Float,Times
0310 023a | : | Execute Float,Divide
0311 00d8 | | Load_Top At_Offset_0
0312 00e6 | | Load_Encached Float_Cache
0313 0234 | 4 | Execute Float,In_Type
0314 7001 |p | Jump_Nonzero 0x316
0315 0801 | | Execute_Immediate Raise,0x1
0316 023c | < | Execute Float,Minus
0317 023b | ; | Execute Float,Times
0318 e602 | | Load 0x3,0x2
0319 1818 | | Execute Package,Field_Execute,Field_Number 0x18
031a 00d1 | | Pop_Control Pop_Count_1
031b 0092 03b0 | | Action Push_String_Extended,0x3b0 ; "System availability fraction = "
031d e603 | | Load 0x3,0x3
031e 01cc | | Execute Vector,Catenate
031f e00d | | Load 0x0,0xd
0320 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0321 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0322 0000 0000 | | .XXX[0x2]
0324 3f00 0000 |? | .DBL 3.0517578125e-05
0326 0000 0000 | |
0328 3ff0 0000 |? | .DBL 1.0
032a 0000 0000 | |
032c 4059 0000 |@Y | .DBL 100.0
032e 0000 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0346 | F | .CONST 0x0346 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0006 | | .CONST 0x0006 ; Number of locals
0333 INIT_0330:
0333 e7ff | | Load 0x3,-0x1
0334 01da | | Execute Vector,Bounds
0335 00e9 | | Load_Encached String_Cache
0336 035b | [ | Declare_Type Array,Constrained
0337 0337 | 7 | Declare_Variable Array
0338 e7ff | | Load 0x3,-0x1
0339 e602 | | Load 0x3,0x2
033a 01d4 | | Execute Vector,Structure_Write
033b 00d8 | | Load_Top At_Offset_0
033c 01dd | | Execute Vector,First
033d 00e2 | | Load_Encached Integer_Cache
033e 03f1 | | Declare_Variable Discrete,With_Value
033f e602 | | Load 0x3,0x2
0340 01dc | | Execute Vector,Last
0341 00e2 | | Load_Encached Integer_Cache
0342 03f1 | | Declare_Variable Discrete,With_Value
0343 00e3 | | Load_Encached Natural_Cache
0344 00e3 | | Load_Encached Natural_Cache
0345 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0346 BODY_0330:
0346 00cf | | Action Mark_Auxiliary
0347 e602 | | Load 0x3,0x2
0348 01d9 | | Execute Vector,Reverse_Bounds
0349 0263 | c | Execute Discrete,Above_Bound
034a 700b |p | Jump_Nonzero 0x356
034b 00d8 | | Load_Top At_Offset_0
034c e602 | | Load 0x3,0x2
034d 01d7 | | Execute Vector,Field_Read
034e 0f0a | | Execute_Immediate Equal,0xa
034f 6804 |h | Jump_Zero 0x354
0350 4820 |H | Short_Literal 0x20
0351 e609 | | Load 0x3,0x9
0352 e602 | | Load 0x3,0x2
0353 01d6 | | Execute Vector,Field_Write
0354 00c8 | | Action Pop_Auxiliary_Range
0355 3ff5 |? | Loop_Increasing 0x34b
0356 00c9 | | Action Pop_Auxiliary_Loop
0357 e604 | | Load 0x3,0x4
0358 e603 | | Load 0x3,0x3
0359 0272 | r | Execute Discrete,Minus
035a 0d23 | # | Execute_Immediate Less,0x23
035b 6803 |h | Jump_Zero 0x35f
035c e604 | | Load 0x3,0x4
035d c605 | | Store 0x3,0x5
035e 7815 |x | Jump 0x374
035f 4800 |H | Short_Literal 0x0
0360 e603 | | Load 0x3,0x3
0361 00d8 | | Load_Top At_Offset_0
0362 0a22 | " | Execute_Immediate Plus,0x22
0363 00d8 | | Load_Top At_Offset_0
0364 00e2 | | Load_Encached Integer_Cache
0365 0260 | ` | Execute Discrete,In_Type
0366 7001 |p | Jump_Nonzero 0x368
0367 0801 | | Execute_Immediate Raise,0x1
0368 e602 | | Load 0x3,0x2
0369 01cf | | Execute Vector,Slice_Read
036a 0092 0399 | | Action Push_String_Extended,0x399 ; " "
036c e00c | | Load 0x0,0xc
036d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
036e a605 | | Store_Unchecked 0x3,0x5
036f e605 | | Load 0x3,0x5
0370 7003 |p | Jump_Nonzero 0x374
0371 e603 | | Load 0x3,0x3
0372 0a22 | " | Execute_Immediate Plus,0x22
0373 c605 | | Store 0x3,0x5
0374 e603 | | Load 0x3,0x3
0375 e605 | | Load 0x3,0x5
0376 e602 | | Load 0x3,0x2
0377 01cf | | Execute Vector,Slice_Read
0378 e228 | ( | Load 0x1,0x28
0379 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037a e605 | | Load 0x3,0x5
037b e604 | | Load 0x3,0x4
037c 027c | | | Execute Discrete,Less
037d 681a |h | Jump_Zero 0x398
037e 00ea | | Load_Encached Null_String_Cache
037f e228 | ( | Load 0x1,0x28
0380 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0381 00ea | | Load_Encached Null_String_Cache
0382 e228 | ( | Load 0x1,0x28
0383 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0384 00ea | | Load_Encached Null_String_Cache
0385 e228 | ( | Load 0x1,0x28
0386 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0387 7800 |x | Jump 0x388
0388 e606 | | Load 0x3,0x6
0389 0a01 | | Execute_Immediate Plus,0x1
038a c606 | | Store 0x3,0x6
038b e606 | | Load 0x3,0x6
038c 0c10 | | Execute_Immediate Greater_Equal,0x10
038d 6805 |h | Jump_Zero 0x393
038e 0092 03b1 | | Action Push_String_Extended,0x3b1 ; "..."
0390 e228 | ( | Load 0x1,0x28
0391 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0392 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0393 e605 | | Load 0x3,0x5
0394 0a01 | | Execute_Immediate Plus,0x1
0395 c603 | | Store 0x3,0x3
0396 00c9 | | Action Pop_Auxiliary_Loop
0397 7fbf | | Jump 0x357
0398 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0399 ; --------------------------------------------------------------------------------------
0399 ; STRING TABLE
0399 ; --------------------------------------------------------------------------------------
0399 0034 | 4 | .STRTAB 0x0034->0x03b3 ; " "
039a 0033 | 3 | .STRTAB 0x0033->0x03b3 ; "Crash/Shutdown explanation too long: "
039b 0056 | V | .STRTAB 0x0056->0x03c6 ; "; "
039c 0056 | V | .STRTAB 0x0056->0x03c7 ; "System Outages"
039d 0062 | b | .STRTAB 0x0062->0x03ce ; "Each system outage is listed, including the length"
039e 0092 | | .STRTAB 0x0092->0x03e7 ; "of the outage measured from the last successful"
039f 00bf | | .STRTAB 0x00bf->0x03fe ; "snapshot to the elaboration of the environment."
03a0 00ec | | .STRTAB 0x00ec->0x0416 ; "The entered cause or system diagnosed cause and any"
03a1 011d | | .STRTAB 0x011d->0x042f ; "comments entered in Shutdown or Explain_Crash are shown."
03a2 0153 | S | .STRTAB 0x0153->0x044b ; "Time"
03a3 0155 | U | .STRTAB 0x0155->0x044d ; "Length"
03a4 0159 | Y | .STRTAB 0x0159->0x0450 ; "Cause"
03a5 015c | \ | .STRTAB 0x015c->0x0453 ; "Comments"
03a6 0162 | b | .STRTAB 0x0162->0x0457 ; "\x0c"
03a7 0161 | a | .STRTAB 0x0161->0x0457 ; "System Availability Statistics"
03a8 017d | } | .STRTAB 0x017d->0x0466 ; "cops"
03a9 017f | | .STRTAB 0x017f->0x0468 ; "None"
03aa 0181 | | .STRTAB 0x0181->0x046a ; "Total Outages = "
03ab 01a4 | | .STRTAB 0x01a4->0x047d ; "Total Downtime = "
03ac 01c7 | | .STRTAB 0x01c7->0x048f ; "Total report time = "
03ad 01ea | | .STRTAB 0x01ea->0x04a2 ; "Downtime due to system problems = "
03ae 020d | | .STRTAB 0x020d->0x04b4 ; "Downtime due to planned operations = "
03af 0230 | 0 | .STRTAB 0x0230->0x04c7 ; "Total up time fraction = "
03b0 0253 | S | .STRTAB 0x0253->0x04d9 ; "System availability fraction = "
03b1 0276 | v | .STRTAB 0x0276->0x04ec ; "..."
03b2 0277 | w | .STREND 0x0277->0x04ed
03b3 2043 7261 | Cra| .STRTAB_STRINGS
04ee 0000 0000 | | .XXX[0x2]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug Table
04f0 ; --------------------------------------------------------------------------------------
04f0 0004 000d | | .DEBUG4 0x0004,0x000d,0x401a,0x0000,0x0001,0x0000
04f6 0c9c 2800 | ( | .XXX[0x3]
04f8 0010 | |
04f9 0000 0000 | | .BLANK 0000[0x5]
04fe 0008 0000 | | .XXX[0x9]
0500 0000 0000 | |
0502 0018 0001 | |
0504 7f40 0153 | @ S|
0506 5cf0 |\ |
0507 0000 0000 | | .BLANK 0000[0x4]
050b 00a9 c3c4 | | .XXX[0xe]
050d 0000 1219 | |
050f 9fca e452 | R|
0511 6000 0000 |` |
0513 0410 2b8d | + |
0515 2781 df00 |' |
0517 0002 0400 | |
0519 0000 0000 | | .BLANK 0000[0x4]
051d 2dd4 8500 |- | .XXX[0xa]
051f 0000 4000 | @ |
0521 2dd6 8500 |- |
0523 0000 4000 | @ |
0525 0600 9800 | |
0527 0000 0000 | | .BLANK 0000[0x4]
052b 0b75 a140 | u @| .XXX[0x8]
052d 0000 1007 | |
052f f2b9 1498 | |
0531 0000 0001 | |
0533 0000 0000 | | .BLANK 0000[0x6]
0539 2000 0000 | | .XXX[0x4]
053b 0001 8026 | &|
053d 0000 0000 | | .BLANK 0000[0x8]
0545 0205 718b | q | .XXX[0x5]
0547 fd5c b000 | \ |
0549 0040 | @ |
054a 0000 0000 | | .BLANK 0000[0x5]
054f 0008 0000 | | .XXX[0x1b]
0551 0000 0000 | |
0553 0018 0002 | |
0555 1ce8 0153 | S|
0557 8570 0153 | p S|
0559 8068 0153 | h S|
055b f9ec 00a9 | |
055d d804 0000 | |
055f a5dd a036 | 6|
0561 577e e000 |W~ |
0563 0000 0150 | P|
0565 1b2b bf70 | + p|
0567 0000 0000 | |
0569 a000 | |
056a 0000 0000 | | .BLANK 0000[0x4]
056e 9616 8500 | | .XXX[0x9]
0570 0000 4000 | @ |
0572 9618 8500 | |
0574 0000 4000 | @ |
0576 2600 |& |
0577 0000 0000 | | .BLANK 0000[0x5]
057c 2586 2140 |% !@| .XXX[0x9]
057e 0000 1008 | |
0580 0d95 dfb8 | |
0582 0000 0000 | |
0584 5000 |P |
0585 0000 0000 | | .BLANK 0000[0x5]
058a 2000 0000 | | .XXX[0x4]
058c 0009 8000 | |
058e 0000 0000 | | .BLANK 0000[0x8]
0596 0206 5e0a | ^ | .XXX[0x5]
0598 d1d0 4800 | H |
059a 0014 | |
059b 0000 0000 | | .BLANK 0000[0x5]
05a0 0008 0000 | | .XXX[0x9]
05a2 0000 0000 | |
05a4 0018 0002 | |
05a6 7b80 0153 |{ S|
05a8 adf0 | |
05a9 0000 0000 | | .BLANK 0000[0x4]
05ad 00a9 ec44 | D| .XXX[0xe]
05af 0000 b4f5 | |
05b1 2036 5402 | 6T |
05b3 4000 0000 |@ |
05b5 0150 1b2a | P *|
05b7 0120 0000 | |
05b9 0000 a000 | |
05bb 0000 0000 | | .BLANK 0000[0x4]
05bf 9bd0 8500 | | .XXX[0x9]
05c1 0000 4000 | @ |
05c3 9bd2 8500 | |
05c5 0000 4000 | @ |
05c7 2600 |& |
05c8 0000 0000 | | .BLANK 0000[0x5]
05cd 26f4 a140 |& @| .XXX[0x9]
05cf 0000 1008 | |
05d1 0d95 0090 | |
05d3 0000 0000 | |
05d5 5000 |P |
05d6 0000 0000 | | .BLANK 0000[0x5]
05db 2000 0000 | | .XXX[0x4]
05dd 0009 8000 | |
05df 0000 0000 | | .BLANK 0000[0x8]
05e7 0206 5e1e | ^ | .XXX[0x5]
05e9 685d ac00 |h] |
05eb 0014 | |
05ec 0000 0000 | | .BLANK 0000[0x5]
05f1 0008 0000 | | .XXX[0xf]
05f3 0000 0000 | |
05f5 0018 0002 | |
05f7 9b08 0153 | S|
05f9 d670 0153 | p S|
05fb d168 0154 | h T|
05fd 2268 00aa |"h |
05ff 0084 | |