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

⟦fc720e3a6⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

Derivation

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

Disassembly

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 04e0       |    |		.CONST	0x04e0								; 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 0074       | t  |		.CONST	0x0074								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0015 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0017 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0019 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
001b 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
001d 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
001f 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0021 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0023 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0025 00bf       |    |		Action	Accept_Activation
0026 00e3       |    |		Load_Encached	Natural_Cache
0027 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0028 00e7       |    |		Load_Encached	Duration_Cache
0029 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002a 00e7       |    |		Load_Encached	Duration_Cache
002b 00e7       |    |		Load_Encached	Duration_Cache
002c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002d 00e7       |    |		Load_Encached	Duration_Cache
002e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002f 00e3       |    |		Load_Encached	Natural_Cache
0030 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0031 481e       |H   |		Short_Literal	0x1e
0032 e002       |    |		Load	0x0,0x2
0033 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0034 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0035 00d8       |    |		Load_Top	At_Offset_0
0036 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0037 4be8       |K   |		Short_Literal	0x3e8
0038 e002       |    |		Load	0x0,0x2
0039 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
003b 00d8       |    |		Load_Top	At_Offset_0
003c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003d 029b 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call,Unelaborated
003f e003       |    |		Load	0x0,0x3
0040 e004       |    |		Load	0x0,0x4
0041 4861       |Ha  |		Short_Literal	0x61
0042 00e4       |    |		Load_Encached	Positive_Cache
0043 e005       |    |		Load	0x0,0x5
0044 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0045 e006       |    |		Load	0x0,0x6
0046 0387       |    |		Declare_Variable	Package
0047 00d8       |    |		Load_Top	At_Offset_0
0048 020f       |    |		Execute	Module,Activate
0049 00d8       |    |		Load_Top	At_Offset_0
004a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
004b e007       |    |		Load	0x0,0x7
004c e008       |    |		Load	0x0,0x8
004d 4804       |H   |		Short_Literal	0x4
004e 0092 0389  |    |		Action	Push_String_Extended,0x389					; " "
0050 e009       |    |		Load	0x0,0x9
0051 0387       |    |		Declare_Variable	Package
0052 00d8       |    |		Load_Top	At_Offset_0
0053 020f       |    |		Execute	Module,Activate
0054 029d 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call
0056 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
0058 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0073 00c7       |    |		Action	Elaborate_Subprogram
0074			BODY_0008:
0074 820d       |    |		Call	0x1,0xd
0075 00bc       |    |		Action	Signal_Activated
0076 00bb       |    |		Action	Signal_Completion
0077 0000       |    |		.XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e223       | #  |		Load	0x1,0x23
007c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
007d 4861       |Ha  |		Short_Literal	0x61
007e e223       | #  |		Load	0x1,0x23
007f 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0080 c224       | $  |		Store	0x1,0x24
0081 820e       |    |		Call	0x1,0xe
0082 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0083 0000 0000  |    |		.BLANK	0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 4800       |H   |		Short_Literal	0x0
008c a21a       |    |		Store_Unchecked	0x1,0x1a
008d 4800       |H   |		Short_Literal	0x0
008e a21b       |    |		Store_Unchecked	0x1,0x1b
008f 4800       |H   |		Short_Literal	0x0
0090 a21d       |    |		Store_Unchecked	0x1,0x1d
0091 4800       |H   |		Short_Literal	0x0
0092 a21e       |    |		Store_Unchecked	0x1,0x1e
0093 4801       |H   |		Short_Literal	0x1
0094 a21f       |    |		Store_Unchecked	0x1,0x1f
0095 e220       |    |		Load	0x1,0x20
0096 4820       |H   |		Short_Literal	0x20
0097 4800       |H   |		Short_Literal	0x0
0098 e002       |    |		Load	0x0,0x2
0099 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
009a 00d1       |    |		Pop_Control	Pop_Count_1
009b e221       | !  |		Load	0x1,0x21
009c 4820       |H   |		Short_Literal	0x20
009d 4800       |H   |		Short_Literal	0x0
009e e002       |    |		Load	0x0,0x2
009f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00a0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00c3       |    |		.CONST	0x00c3								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab e005       |    |		Load	0x0,0x5
00ac 0322       | "  |		Declare_Variable	Record
00ad e5ff       |    |		Load	0x2,-0x1
00ae e402       |    |		Load	0x2,0x2
00af 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b0 e5fe       |    |		Load	0x2,-0x2
00b1 e402       |    |		Load	0x2,0x2
00b2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00b3 e220       |    |		Load	0x1,0x20
00b4 e002       |    |		Load	0x0,0x2
00b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b6 e00a       |    |		Load	0x0,0xa
00b7 e00b       |    |		Load	0x0,0xb
00b8 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
00b9 e402       |    |		Load	0x2,0x2
00ba 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00bb e221       | !  |		Load	0x1,0x21
00bc e002       |    |		Load	0x0,0x2
00bd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00be e00a       |    |		Load	0x0,0xa
00bf e00b       |    |		Load	0x0,0xb
00c0 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
00c1 e402       |    |		Load	0x2,0x2
00c2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00c3			BODY_00a8:
00c3 e224       | $  |		Load	0x1,0x24
00c4 4800       |H   |		Short_Literal	0x0
00c5 e402       |    |		Load	0x2,0x2
00c6 e21f       |    |		Load	0x1,0x1f
00c7 00d8       |    |		Load_Top	At_Offset_0
00c8 00e4       |    |		Load_Encached	Positive_Cache
00c9 0260       | `  |		Execute	Discrete,In_Type
00ca 7001       |p   |		Jump_Nonzero	0xcc
00cb 0801       |    |		Execute_Immediate	Raise,0x1
00cc e223       | #  |		Load	0x1,0x23
00cd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ce c224       | $  |		Store	0x1,0x24
00cf e21f       |    |		Load	0x1,0x1f
00d0 0a01       |    |		Execute_Immediate	Plus,0x1
00d1 c21f       |    |		Store	0x1,0x1f
00d2 e21a       |    |		Load	0x1,0x1a
00d3 0a01       |    |		Execute_Immediate	Plus,0x1
00d4 c21a       |    |		Store	0x1,0x1a
00d5 e21b       |    |		Load	0x1,0x1b
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 0273       | s  |		Execute	Discrete,Plus
00d8 c21b       |    |		Store	0x1,0x1b
00d9 e220       |    |		Load	0x1,0x20
00da 4820       |H   |		Short_Literal	0x20
00db 4800       |H   |		Short_Literal	0x0
00dc e002       |    |		Load	0x0,0x2
00dd 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00de 00d1       |    |		Pop_Control	Pop_Count_1
00df e221       | !  |		Load	0x1,0x21
00e0 4820       |H   |		Short_Literal	0x20
00e1 4800       |H   |		Short_Literal	0x0
00e2 e002       |    |		Load	0x0,0x2
00e3 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00e4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e220       |    |		Load	0x1,0x20
00ec e002       |    |		Load	0x0,0x2
00ed 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00ee 6806       |h   |		Jump_Zero	0xf5
00ef e221       | !  |		Load	0x1,0x21
00f0 4820       |H   |		Short_Literal	0x20
00f1 4800       |H   |		Short_Literal	0x0
00f2 e002       |    |		Load	0x0,0x2
00f3 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00f4 00d1       |    |		Pop_Control	Pop_Count_1
00f5 e220       |    |		Load	0x1,0x20
00f6 e5ff       |    |		Load	0x2,-0x1
00f7 e002       |    |		Load	0x0,0x2
00f8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00f9 00d1       |    |		Pop_Control	Pop_Count_1
00fa e221       | !  |		Load	0x1,0x21
00fb e5fe       |    |		Load	0x2,-0x2
00fc 0092 0389  |    |		Action	Push_String_Extended,0x389					; " "
00fe 01cc       |    |		Execute	Vector,Catenate
00ff e002       |    |		Load	0x0,0x2
0100 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0101 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0102 0000 0000  |    |		.BLANK	0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e221       | !  |		Load	0x1,0x21
010c e002       |    |		Load	0x0,0x2
010d 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
010e e5ff       |    |		Load	0x2,-0x1
010f 01db       |    |		Execute	Vector,Length
0110 0273       | s  |		Execute	Discrete,Plus
0111 e221       | !  |		Load	0x1,0x21
0112 e002       |    |		Load	0x0,0x2
0113 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0114 027a       | z  |		Execute	Discrete,Less_Equal
0115 6809       |h   |		Jump_Zero	0x11f
0116 e221       | !  |		Load	0x1,0x21
0117 e5ff       |    |		Load	0x2,-0x1
0118 0092 0389  |    |		Action	Push_String_Extended,0x389					; " "
011a 01cc       |    |		Execute	Vector,Catenate
011b e002       |    |		Load	0x0,0x2
011c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
011d 00d1       |    |		Pop_Control	Pop_Count_1
011e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011f e00c       |    |		Load	0x0,0xc
0120 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0121 4807       |H   |		Short_Literal	0x7
0122 0092 038a  |    |		Action	Push_String_Extended,0x38a					; "Crash/Shutdown explanation too long: "
0124 e5ff       |    |		Load	0x2,-0x1
0125 01cc       |    |		Execute	Vector,Catenate
0126 e00d       |    |		Load	0x0,0xd
0127 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0128 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0129 0000 0000  |    |		.BLANK	0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013b       | ;  |		.CONST	0x013b								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0004       |    |		.CONST	0x0004								; Number of locals
0133			INIT_0130:
0133 e005       |    |		Load	0x0,0x5
0134 0322       | "  |		Declare_Variable	Record
0135 00e1       |    |		Load_Encached	Boolean_Cache
0136 0093 0000  |    |		push_full_address	0x0
0138 6063       |`c  |		Indirect_Literal	Discrete,0x19c,{0x80000000, 0x00010000}
0139 0273       | s  |		Execute	Discrete,Plus
013a 0007       |    |		Action	Break_Optional
013b			BODY_0130:
013b e21f       |    |		Load	0x1,0x1f
013c 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
013d 685c       |h\  |		Jump_Zero	0x19a
013e 00e1       |    |		Load_Encached	Boolean_Cache
013f e402       |    |		Load	0x2,0x2
0140 e21f       |    |		Load	0x1,0x1f
0141 0aff       |    |		Execute_Immediate	Plus,-0x1
0142 00d8       |    |		Load_Top	At_Offset_0
0143 00e4       |    |		Load_Encached	Positive_Cache
0144 0260       | `  |		Execute	Discrete,In_Type
0145 7001       |p   |		Jump_Nonzero	0x147
0146 0801       |    |		Execute_Immediate	Raise,0x1
0147 e224       | $  |		Load	0x1,0x24
0148 e223       | #  |		Load	0x1,0x23
0149 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
014a 00d1       |    |		Pop_Control	Pop_Count_1
014b c403       |    |		Store	0x2,0x3
014c e403       |    |		Load	0x2,0x3
014d 7002       |p   |		Jump_Nonzero	0x150
014e 00d8       |    |		Load_Top	At_Offset_0
014f 0257       | W  |		Execute	Discrete,Raise
0150 e5fd       |    |		Load	0x2,-0x3
0151 0f1b       |    |		Execute_Immediate	Equal,0x1b
0152 6824       |h$  |		Jump_Zero	0x177
0153 e402       |    |		Load	0x2,0x2
0154 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0155 6805       |h   |		Jump_Zero	0x15b
0156 e402       |    |		Load	0x2,0x2
0157 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0158 0217       |    |		Execute	Heap_Access,All_Reference
0159 01db       |    |		Execute	Vector,Length
015a 7007       |p   |		Jump_Nonzero	0x162
015b e5ff       |    |		Load	0x2,-0x1
015c e00a       |    |		Load	0x0,0xa
015d e00b       |    |		Load	0x0,0xb
015e 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
015f e402       |    |		Load	0x2,0x2
0160 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0161 7815       |x   |		Jump	0x177
0162 4801       |H   |		Short_Literal	0x1
0163 e402       |    |		Load	0x2,0x2
0164 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0165 0217       |    |		Execute	Heap_Access,All_Reference
0166 e5ff       |    |		Load	0x2,-0x1
0167 e00e       |    |		Load	0x0,0xe
0168 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0169 700d       |p   |		Jump_Nonzero	0x177
016a e402       |    |		Load	0x2,0x2
016b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
016c 0217       |    |		Execute	Heap_Access,All_Reference
016d 0092 038b  |    |		Action	Push_String_Extended,0x38b					; "; "
016f 01cc       |    |		Execute	Vector,Catenate
0170 e5ff       |    |		Load	0x2,-0x1
0171 01cc       |    |		Execute	Vector,Catenate
0172 e00a       |    |		Load	0x0,0xa
0173 e00b       |    |		Load	0x0,0xb
0174 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
0175 e402       |    |		Load	0x2,0x2
0176 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0177 e402       |    |		Load	0x2,0x2
0178 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0179 7007       |p   |		Jump_Nonzero	0x181
017a e5fe       |    |		Load	0x2,-0x2
017b e00a       |    |		Load	0x0,0xa
017c e00b       |    |		Load	0x0,0xb
017d 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
017e e402       |    |		Load	0x2,0x2
017f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0180 780c       |x   |		Jump	0x18d
0181 4820       |H   |		Short_Literal	0x20
0182 e402       |    |		Load	0x2,0x2
0183 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0184 0217       |    |		Execute	Heap_Access,All_Reference
0185 01cb       |    |		Execute	Vector,Append
0186 e5fe       |    |		Load	0x2,-0x2
0187 01cc       |    |		Execute	Vector,Catenate
0188 e00a       |    |		Load	0x0,0xa
0189 e00b       |    |		Load	0x0,0xb
018a 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
018b e402       |    |		Load	0x2,0x2
018c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
018d e224       | $  |		Load	0x1,0x24
018e 4800       |H   |		Short_Literal	0x0
018f e402       |    |		Load	0x2,0x2
0190 e21f       |    |		Load	0x1,0x1f
0191 0aff       |    |		Execute_Immediate	Plus,-0x1
0192 00d8       |    |		Load_Top	At_Offset_0
0193 00e4       |    |		Load_Encached	Positive_Cache
0194 0260       | `  |		Execute	Discrete,In_Type
0195 7001       |p   |		Jump_Nonzero	0x197
0196 0801       |    |		Execute_Immediate	Raise,0x1
0197 e223       | #  |		Load	0x1,0x23
0198 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0199 c224       | $  |		Store	0x1,0x24
019a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
019b 0000       |    |		.XXX[0x1]
019c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 e220       |    |		Load	0x1,0x20
01a4 4820       |H   |		Short_Literal	0x20
01a5 4800       |H   |		Short_Literal	0x0
01a6 e002       |    |		Load	0x0,0x2
01a7 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
01a8 00d1       |    |		Pop_Control	Pop_Count_1
01a9 e221       | !  |		Load	0x1,0x21
01aa 4820       |H   |		Short_Literal	0x20
01ab 4800       |H   |		Short_Literal	0x0
01ac e002       |    |		Load	0x0,0x2
01ad 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
01ae 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01af 0000       |    |		.XXX[0x1]
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 4802       |H   |		Short_Literal	0x2
01b4 e00f       |    |		Load	0x0,0xf
01b5 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
01b6 0092 038c  |    |		Action	Push_String_Extended,0x38c					; "System Outages"
01b8 e00f       |    |		Load	0x0,0xf
01b9 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01ba 4802       |H   |		Short_Literal	0x2
01bb e00f       |    |		Load	0x0,0xf
01bc 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
01bd 0092 038d  |    |		Action	Push_String_Extended,0x38d					; "Each system outage is listed, including the length"
01bf e00f       |    |		Load	0x0,0xf
01c0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01c1 0092 038e  |    |		Action	Push_String_Extended,0x38e					; "of the outage measured from the last successful"
01c3 e00f       |    |		Load	0x0,0xf
01c4 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01c5 0092 038f  |    |		Action	Push_String_Extended,0x38f					; "snapshot to the elaboration of the environment."
01c7 e00f       |    |		Load	0x0,0xf
01c8 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01c9 0092 0390  |    |		Action	Push_String_Extended,0x390					; "The entered cause or system diagnosed cause and any"
01cb e00f       |    |		Load	0x0,0xf
01cc 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01cd 0092 0391  |    |		Action	Push_String_Extended,0x391					; "comments entered in Shutdown or Explain_Crash are shown."
01cf e00f       |    |		Load	0x0,0xf
01d0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01d1 4802       |H   |		Short_Literal	0x2
01d2 e00f       |    |		Load	0x0,0xf
01d3 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
01d4 4802       |H   |		Short_Literal	0x2
01d5 0092 0392  |    |		Action	Push_String_Extended,0x392					; "Time"
01d7 e225       | %  |		Load	0x1,0x25
01d8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01d9 4802       |H   |		Short_Literal	0x2
01da 0092 0393  |    |		Action	Push_String_Extended,0x393					; "Length"
01dc e225       | %  |		Load	0x1,0x25
01dd 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01de 4802       |H   |		Short_Literal	0x2
01df 0092 0394  |    |		Action	Push_String_Extended,0x394					; "Cause"
01e1 e225       | %  |		Load	0x1,0x25
01e2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01e3 4800       |H   |		Short_Literal	0x0
01e4 0092 0395  |    |		Action	Push_String_Extended,0x395					; "Comments"
01e6 e225       | %  |		Load	0x1,0x25
01e7 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01e8 00cf       |    |		Action	Mark_Auxiliary
01e9 e21f       |    |		Load	0x1,0x1f
01ea 0aff       |    |		Execute_Immediate	Plus,-0x1
01eb 4801       |H   |		Short_Literal	0x1
01ec 0263       | c  |		Execute	Discrete,Above_Bound
01ed 7007       |p   |		Jump_Nonzero	0x1f5
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef e224       | $  |		Load	0x1,0x24
01f0 e223       | #  |		Load	0x1,0x23
01f1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01f2 8227       | '  |		Call	0x1,0x27
01f3 00c8       |    |		Action	Pop_Auxiliary_Range
01f4 3ff9       |?   |		Loop_Increasing	0x1ee
01f5 00ce       |    |		Action	Pop_Auxiliary
01f6 e00f       |    |		Load	0x0,0xf
01f7 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
01f8 e225       | %  |		Load	0x1,0x25
01f9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01fa e5ff       |    |		Load	0x2,-0x1
01fb 8215       |    |		Call	0x1,0x15
01fc 0092 0396  |    |		Action	Push_String_Extended,0x396					; "\x0c"
01fe e00f       |    |		Load	0x0,0xf
01ff 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0200 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0201 0000 0000  |    |		.BLANK	0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d       |    |		.CONST	0x020d								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
020d			BODY_0208:
020d 4802       |H   |		Short_Literal	0x2
020e e00f       |    |		Load	0x0,0xf
020f 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0210 0092 0397  |    |		Action	Push_String_Extended,0x397					; "System Availability Statistics"
0212 e00f       |    |		Load	0x0,0xf
0213 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0214 8402       |    |		Call	0x2,0x2
0215 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 4801       |H   |		Short_Literal	0x1
021c a5ff       |    |		Store_Unchecked	0x2,-0x1
021d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
021e 0000 0000  |    |		.XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e5ff       |    |		Load	0x2,-0x1
0224 0a01       |    |		Execute_Immediate	Plus,0x1
0225 c5ff       |    |		Store	0x2,-0x1
0226 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0227 0000       |    |		.XXX[0x1]
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 e5ff       |    |		Load	0x2,-0x1
022c e21f       |    |		Load	0x1,0x1f
022d 027b       | {  |		Execute	Discrete,Greater_Equal
022e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022f 0000       |    |		.XXX[0x1]
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 00d8       |    |		Load_Top	At_Offset_0
0235 00e4       |    |		Load_Encached	Positive_Cache
0236 0260       | `  |		Execute	Discrete,In_Type
0237 7001       |p   |		Jump_Nonzero	0x239
0238 0801       |    |		Execute_Immediate	Raise,0x1
0239 e224       | $  |		Load	0x1,0x24
023a e223       | #  |		Load	0x1,0x23
023b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
023c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023d 0000 0000  |    |		.XXX[0x3]
023f 0000       |    |
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 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b e5ff       |    |		Load	0x2,-0x1
024c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
024d 7003       |p   |		Jump_Nonzero	0x251
024e 4801       |H   |		Short_Literal	0x1
024f a5fe       |    |		Store_Unchecked	0x2,-0x2
0250 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0251 e5ff       |    |		Load	0x2,-0x1
0252 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0253 0217       |    |		Execute	Heap_Access,All_Reference
0254 01db       |    |		Execute	Vector,Length
0255 7003       |p   |		Jump_Nonzero	0x259
0256 4801       |H   |		Short_Literal	0x1
0257 a5fe       |    |		Store_Unchecked	0x2,-0x2
0258 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0259 4801       |H   |		Short_Literal	0x1
025a e5ff       |    |		Load	0x2,-0x1
025b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
025c 0217       |    |		Execute	Heap_Access,All_Reference
025d 0092 0398  |    |		Action	Push_String_Extended,0x398					; "cops"
025f e00e       |    |		Load	0x0,0xe
0260 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0261 6803       |h   |		Jump_Zero	0x265
0262 4801       |H   |		Short_Literal	0x1
0263 a5fe       |    |		Store_Unchecked	0x2,-0x2
0264 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0265 4800       |H   |		Short_Literal	0x0
0266 a5fe       |    |		Store_Unchecked	0x2,-0x2
0267 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026e       | n  |		.CONST	0x026e								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0003       |    |		.CONST	0x0003								; Number of locals
026b			INIT_0268:
026b 00e1       |    |		Load_Encached	Boolean_Cache
026c 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
026e			BODY_0268:
026e 00e1       |    |		Load_Encached	Boolean_Cache
026f e5ff       |    |		Load	0x2,-0x1
0270 8226       | &  |		Call	0x1,0x26
0271 c402       |    |		Store	0x2,0x2
0272 e402       |    |		Load	0x2,0x2
0273 6806       |h   |		Jump_Zero	0x27a
0274 e21e       |    |		Load	0x1,0x1e
0275 e5ff       |    |		Load	0x2,-0x1
0276 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0277 0273       | s  |		Execute	Discrete,Plus
0278 c21e       |    |		Store	0x1,0x1e
0279 7805       |x   |		Jump	0x27f
027a e21d       |    |		Load	0x1,0x1d
027b e5ff       |    |		Load	0x2,-0x1
027c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
027d 0273       | s  |		Execute	Discrete,Plus
027e c21d       |    |		Store	0x1,0x1d
027f e5ff       |    |		Load	0x2,-0x1
0280 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0281 8010       |    |		Call	0x0,0x10
0282 e225       | %  |		Load	0x1,0x25
0283 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0284 e5ff       |    |		Load	0x2,-0x1
0285 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0286 8011       |    |		Call	0x0,0x11
0287 e225       | %  |		Load	0x1,0x25
0288 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0289 e5ff       |    |		Load	0x2,-0x1
028a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
028b 0217       |    |		Execute	Heap_Access,All_Reference
028c 01db       |    |		Execute	Vector,Length
028d 7005       |p   |		Jump_Nonzero	0x293
028e 0092 0399  |    |		Action	Push_String_Extended,0x399					; "None"
0290 e225       | %  |		Load	0x1,0x25
0291 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0292 7805       |x   |		Jump	0x298
0293 e5ff       |    |		Load	0x2,-0x1
0294 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0295 0217       |    |		Execute	Heap_Access,All_Reference
0296 e225       | %  |		Load	0x1,0x25
0297 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0298 e5ff       |    |		Load	0x2,-0x1
0299 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
029a 0217       |    |		Execute	Heap_Access,All_Reference
029b 8403       |    |		Call	0x2,0x3
029c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02b0       |    |		.CONST	0x02b0								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0003       |    |		.CONST	0x0003								; Number of locals
02a3			INIT_02a0:
02a3 e012       |    |		Load	0x0,0x12
02a4 e013       |    |		Load	0x0,0x13
02a5 00e6       |    |		Load_Encached	Float_Cache
02a6 e00f       |    |		Load	0x0,0xf
02a7 1b79       | y  |		Execute	Package,Field_Read,Field_Number 0x79
02a8 0387       |    |		Declare_Variable	Package
02a9 00d8       |    |		Load_Top	At_Offset_0
02aa 020f       |    |		Execute	Module,Activate
02ab 4801       |H   |		Short_Literal	0x1
02ac 4806       |H   |		Short_Literal	0x6
02ad 00e9       |    |		Load_Encached	String_Cache
02ae 035b       | [  |		Declare_Type	Array,Constrained
02af 0337       | 7  |		Declare_Variable	Array
02b0			BODY_02a0:
02b0 0092 039a  |    |		Action	Push_String_Extended,0x39a					; "Total Outages                      = "
02b2 e21a       |    |		Load	0x1,0x1a
02b3 00e0       |    |		Load_Encached	Standard_Cache
02b4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02b5 01cc       |    |		Execute	Vector,Catenate
02b6 e00f       |    |		Load	0x0,0xf
02b7 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02b8 0092 039b  |    |		Action	Push_String_Extended,0x39b					; "Total Downtime                     = "
02ba e21b       |    |		Load	0x1,0x1b
02bb 8011       |    |		Call	0x0,0x11
02bc 01cc       |    |		Execute	Vector,Catenate
02bd e00f       |    |		Load	0x0,0xf
02be 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02bf 0092 039c  |    |		Action	Push_String_Extended,0x39c					; "Total report time                  = "
02c1 e5ff       |    |		Load	0x2,-0x1
02c2 8011       |    |		Call	0x0,0x11
02c3 01cc       |    |		Execute	Vector,Catenate
02c4 e00f       |    |		Load	0x0,0xf
02c5 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02c6 0092 039d  |    |		Action	Push_String_Extended,0x39d					; "Downtime due to system problems    = "
02c8 e21d       |    |		Load	0x1,0x1d
02c9 8011       |    |		Call	0x0,0x11
02ca 01cc       |    |		Execute	Vector,Catenate
02cb e00f       |    |		Load	0x0,0xf
02cc 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02cd 0092 039e  |    |		Action	Push_String_Extended,0x39e					; "Downtime due to planned operations = "
02cf e21e       |    |		Load	0x1,0x1e
02d0 8011       |    |		Call	0x0,0x11
02d1 01cc       |    |		Execute	Vector,Catenate
02d2 e00f       |    |		Load	0x0,0xf
02d3 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02d4 e5ff       |    |		Load	0x2,-0x1
02d5 6837       |h7  |		Jump_Zero	0x30d
02d6 00d8       |    |		Load_Top	At_Offset_0
02d7 4800       |H   |		Short_Literal	0x0
02d8 4800       |H   |		Short_Literal	0x0
02d9 583e       |X>  |		Indirect_Literal	Float,0x318,100.0
02da 5839       |X9  |		Indirect_Literal	Float,0x314,1.0
02db e21b       |    |		Load	0x1,0x1b
02dc 0237       | 7  |		Execute	Float,Convert_From_Discrete
02dd 5832       |X2  |		Indirect_Literal	Float,0x310,3.0517578125e-05
02de 023b       | ;  |		Execute	Float,Times
02df e5ff       |    |		Load	0x2,-0x1
02e0 0237       | 7  |		Execute	Float,Convert_From_Discrete
02e1 582e       |X.  |		Indirect_Literal	Float,0x310,3.0517578125e-05
02e2 023b       | ;  |		Execute	Float,Times
02e3 023a       | :  |		Execute	Float,Divide
02e4 023c       | <  |		Execute	Float,Minus
02e5 023b       | ;  |		Execute	Float,Times
02e6 e602       |    |		Load	0x3,0x2
02e7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02e8 00d1       |    |		Pop_Control	Pop_Count_1
02e9 0092 039f  |    |		Action	Push_String_Extended,0x39f					; "Total up time fraction             = "
02eb e603       |    |		Load	0x3,0x3
02ec 01cc       |    |		Execute	Vector,Catenate
02ed e00f       |    |		Load	0x0,0xf
02ee 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02ef 00d8       |    |		Load_Top	At_Offset_0
02f0 4800       |H   |		Short_Literal	0x0
02f1 4800       |H   |		Short_Literal	0x0
02f2 5825       |X%  |		Indirect_Literal	Float,0x318,100.0
02f3 5820       |X   |		Indirect_Literal	Float,0x314,1.0
02f4 e21d       |    |		Load	0x1,0x1d
02f5 0237       | 7  |		Execute	Float,Convert_From_Discrete
02f6 5819       |X   |		Indirect_Literal	Float,0x310,3.0517578125e-05
02f7 023b       | ;  |		Execute	Float,Times
02f8 e5ff       |    |		Load	0x2,-0x1
02f9 0237       | 7  |		Execute	Float,Convert_From_Discrete
02fa 5815       |X   |		Indirect_Literal	Float,0x310,3.0517578125e-05
02fb 023b       | ;  |		Execute	Float,Times
02fc 023a       | :  |		Execute	Float,Divide
02fd 00d8       |    |		Load_Top	At_Offset_0
02fe 00e6       |    |		Load_Encached	Float_Cache
02ff 0234       | 4  |		Execute	Float,In_Type
0300 7001       |p   |		Jump_Nonzero	0x302
0301 0801       |    |		Execute_Immediate	Raise,0x1
0302 023c       | <  |		Execute	Float,Minus
0303 023b       | ;  |		Execute	Float,Times
0304 e602       |    |		Load	0x3,0x2
0305 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0306 00d1       |    |		Pop_Control	Pop_Count_1
0307 0092 03a0  |    |		Action	Push_String_Extended,0x3a0					; "System availability fraction       = "
0309 e603       |    |		Load	0x3,0x3
030a 01cc       |    |		Execute	Vector,Catenate
030b e00f       |    |		Load	0x0,0xf
030c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
030d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
030e 0000 0000  |    |		.XXX[0x2]
0310 3f00 0000  |?   |		.DBL	3.0517578125e-05
0312 0000 0000  |    |
0314 3ff0 0000  |?   |		.DBL	1.0
0316 0000 0000  |    |
0318 4059 0000  |@Y  |		.DBL	100.0
031a 0000 0000  |    |
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0336       | 6  |		.CONST	0x0336								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0006       |    |		.CONST	0x0006								; Number of locals
0323			INIT_0320:
0323 e7ff       |    |		Load	0x3,-0x1
0324 01da       |    |		Execute	Vector,Bounds
0325 00e9       |    |		Load_Encached	String_Cache
0326 035b       | [  |		Declare_Type	Array,Constrained
0327 0337       | 7  |		Declare_Variable	Array
0328 e7ff       |    |		Load	0x3,-0x1
0329 e602       |    |		Load	0x3,0x2
032a 01d4       |    |		Execute	Vector,Structure_Write
032b 00d8       |    |		Load_Top	At_Offset_0
032c 01dd       |    |		Execute	Vector,First
032d 00e2       |    |		Load_Encached	Integer_Cache
032e 03f1       |    |		Declare_Variable	Discrete,With_Value
032f e602       |    |		Load	0x3,0x2
0330 01dc       |    |		Execute	Vector,Last
0331 00e2       |    |		Load_Encached	Integer_Cache
0332 03f1       |    |		Declare_Variable	Discrete,With_Value
0333 00e3       |    |		Load_Encached	Natural_Cache
0334 00e3       |    |		Load_Encached	Natural_Cache
0335 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0336			BODY_0320:
0336 00cf       |    |		Action	Mark_Auxiliary
0337 e602       |    |		Load	0x3,0x2
0338 01d9       |    |		Execute	Vector,Reverse_Bounds
0339 0263       | c  |		Execute	Discrete,Above_Bound
033a 700b       |p   |		Jump_Nonzero	0x346
033b 00d8       |    |		Load_Top	At_Offset_0
033c e602       |    |		Load	0x3,0x2
033d 01d7       |    |		Execute	Vector,Field_Read
033e 0f0a       |    |		Execute_Immediate	Equal,0xa
033f 6804       |h   |		Jump_Zero	0x344
0340 4820       |H   |		Short_Literal	0x20
0341 e609       |    |		Load	0x3,0x9
0342 e602       |    |		Load	0x3,0x2
0343 01d6       |    |		Execute	Vector,Field_Write
0344 00c8       |    |		Action	Pop_Auxiliary_Range
0345 3ff5       |?   |		Loop_Increasing	0x33b
0346 00c9       |    |		Action	Pop_Auxiliary_Loop
0347 e604       |    |		Load	0x3,0x4
0348 e603       |    |		Load	0x3,0x3
0349 0272       | r  |		Execute	Discrete,Minus
034a 0d23       | #  |		Execute_Immediate	Less,0x23
034b 6803       |h   |		Jump_Zero	0x34f
034c e604       |    |		Load	0x3,0x4
034d c605       |    |		Store	0x3,0x5
034e 7815       |x   |		Jump	0x364
034f 4800       |H   |		Short_Literal	0x0
0350 e603       |    |		Load	0x3,0x3
0351 00d8       |    |		Load_Top	At_Offset_0
0352 0a22       | "  |		Execute_Immediate	Plus,0x22
0353 00d8       |    |		Load_Top	At_Offset_0
0354 00e2       |    |		Load_Encached	Integer_Cache
0355 0260       | `  |		Execute	Discrete,In_Type
0356 7001       |p   |		Jump_Nonzero	0x358
0357 0801       |    |		Execute_Immediate	Raise,0x1
0358 e602       |    |		Load	0x3,0x2
0359 01cf       |    |		Execute	Vector,Slice_Read
035a 0092 0389  |    |		Action	Push_String_Extended,0x389					; " "
035c e00e       |    |		Load	0x0,0xe
035d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
035e a605       |    |		Store_Unchecked	0x3,0x5
035f e605       |    |		Load	0x3,0x5
0360 7003       |p   |		Jump_Nonzero	0x364
0361 e603       |    |		Load	0x3,0x3
0362 0a22       | "  |		Execute_Immediate	Plus,0x22
0363 c605       |    |		Store	0x3,0x5
0364 e603       |    |		Load	0x3,0x3
0365 e605       |    |		Load	0x3,0x5
0366 e602       |    |		Load	0x3,0x2
0367 01cf       |    |		Execute	Vector,Slice_Read
0368 e225       | %  |		Load	0x1,0x25
0369 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
036a e605       |    |		Load	0x3,0x5
036b e604       |    |		Load	0x3,0x4
036c 027c       | |  |		Execute	Discrete,Less
036d 681a       |h   |		Jump_Zero	0x388
036e 00ea       |    |		Load_Encached	Null_String_Cache
036f e225       | %  |		Load	0x1,0x25
0370 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0371 00ea       |    |		Load_Encached	Null_String_Cache
0372 e225       | %  |		Load	0x1,0x25
0373 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0374 00ea       |    |		Load_Encached	Null_String_Cache
0375 e225       | %  |		Load	0x1,0x25
0376 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0377 7800       |x   |		Jump	0x378
0378 e606       |    |		Load	0x3,0x6
0379 0a01       |    |		Execute_Immediate	Plus,0x1
037a c606       |    |		Store	0x3,0x6
037b e606       |    |		Load	0x3,0x6
037c 0c10       |    |		Execute_Immediate	Greater_Equal,0x10
037d 6805       |h   |		Jump_Zero	0x383
037e 0092 03a1  |    |		Action	Push_String_Extended,0x3a1					; "..."
0380 e225       | %  |		Load	0x1,0x25
0381 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0382 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0383 e605       |    |		Load	0x3,0x5
0384 0a01       |    |		Execute_Immediate	Plus,0x1
0385 c603       |    |		Store	0x3,0x3
0386 00c9       |    |		Action	Pop_Auxiliary_Loop
0387 7fbf       |    |		Jump	0x347
0388 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0389 ; --------------------------------------------------------------------------------------
0389 ; STRING TABLE
0389 ; --------------------------------------------------------------------------------------
0389 0034       | 4  |		.STRTAB	0x0034->0x03a3							; " "
038a 0033       | 3  |		.STRTAB	0x0033->0x03a3							; "Crash/Shutdown explanation too long: "
038b 0056       | V  |		.STRTAB	0x0056->0x03b6							; "; "
038c 0056       | V  |		.STRTAB	0x0056->0x03b7							; "System Outages"
038d 0062       | b  |		.STRTAB	0x0062->0x03be							; "Each system outage is listed, including the length"
038e 0092       |    |		.STRTAB	0x0092->0x03d7							; "of the outage measured from the last successful"
038f 00bf       |    |		.STRTAB	0x00bf->0x03ee							; "snapshot to the elaboration of the environment."
0390 00ec       |    |		.STRTAB	0x00ec->0x0406							; "The entered cause or system diagnosed cause and any"
0391 011d       |    |		.STRTAB	0x011d->0x041f							; "comments entered in Shutdown or Explain_Crash are shown."
0392 0153       | S  |		.STRTAB	0x0153->0x043b							; "Time"
0393 0155       | U  |		.STRTAB	0x0155->0x043d							; "Length"
0394 0159       | Y  |		.STRTAB	0x0159->0x0440							; "Cause"
0395 015c       | \  |		.STRTAB	0x015c->0x0443							; "Comments"
0396 0162       | b  |		.STRTAB	0x0162->0x0447							; "\x0c"
0397 0161       | a  |		.STRTAB	0x0161->0x0447							; "System Availability Statistics"
0398 017d       | }  |		.STRTAB	0x017d->0x0456							; "cops"
0399 017f       |    |		.STRTAB	0x017f->0x0458							; "None"
039a 0181       |    |		.STRTAB	0x0181->0x045a							; "Total Outages                      = "
039b 01a4       |    |		.STRTAB	0x01a4->0x046d							; "Total Downtime                     = "
039c 01c7       |    |		.STRTAB	0x01c7->0x047f							; "Total report time                  = "
039d 01ea       |    |		.STRTAB	0x01ea->0x0492							; "Downtime due to system problems    = "
039e 020d       |    |		.STRTAB	0x020d->0x04a4							; "Downtime due to planned operations = "
039f 0230       | 0  |		.STRTAB	0x0230->0x04b7							; "Total up time fraction             = "
03a0 0253       | S  |		.STRTAB	0x0253->0x04c9							; "System availability fraction       = "
03a1 0276       | v  |		.STRTAB	0x0276->0x04dc							; "..."
03a2 0277       | w  |		.STREND 0x0277->0x04dd
03a3 2043 7261  | Cra|		.STRTAB_STRINGS
04de 0000 0000  |    |		.XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug Table
04e0 ; --------------------------------------------------------------------------------------
04e0 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x235f,0x0000,0x0001,0x0000
04e6 0000 0000  |    |		.XXX[0x45]
04e8 02f0 0004  |    |
04ea 0002 e20e  |    |
04ec e001 1813  |    |
04ee 8244 0031  | D 1|
04f0 00db 00d9  |    |
04f2 0217 3803  |  8 |
04f4 00db 00d9  |    |
04f6 0217 3804  |  8 |
04f8 4801 00d9  |H   |
04fa 0217 3802  |  8 |
04fc 4801 00d9  |H   |
04fe 0217 3805  |  8 |
0500 0007 e5ff  |    |
0502 0007 0145  |   E|
0504 0007 0007  |    |
0506 0f22 6816  | "h |
0508 00db e006  |    |
050a 1811 7012  |  p |
050c 00db e007  |    |
050e 180d 0a0d  |    |
0510 00d9 0217  |    |
0512 3800 00d8  |8   |
0514 0217 3c00  |  < |
0516 e5ff e006  |    |
0518 1824 0273  | $ s|
051a 00d9 0217  |    |
051c 3800 7804  |8 x |
051e 480d 00d9  |H   |
0520 0217 3800  |  8 |
0522 4800 00d9  |H   |
0524 0217 380b  |  8 |
0526 4800 00d9  |H   |
0528 0217 3801  |  8 |
052a 4502       |E   |
052b 0000 0000  |    |		.BLANK	0000[0x5]
0530 0338 0004  | 8  |		.XXX[0x3b]
0532 0002 e20e  |    |
0534 e001 1813  |    |
0536 8244 0031  | D 1|
0538 4802 00d9  |H   |
053a 0217 3800  |  8 |
053c e5fe 00d9  |    |
053e 0217 3802  |  8 |
0540 00db 00d9  |    |
0542 0217 3804  |  8 |
0544 00db e003  |    |
0546 1841 00d9  | A  |
0548 0217 3808  |  8 |
054a 00db e003  |    |
054c 1845 680e  | Eh |
054e 00d8 0217  |    |
0550 3c08 e5ff  |<   |
0552 e003 1846  |   F|
0554 4975 00eb  |Iu  |
0556 0098 1824  |   $|
0558 0273 00d9  | s  |
055a 0217 3808  |  8 |
055c 00db e003  |    |
055e 1843 00d9  | C  |
0560 0217 3809  |  8 |
0562 4800 00d9  |H   |
0564 0217 380b  |  8 |
0566 4800 00d9  |H   |
0568 0217 3801  |  8 |
056a 4503       |E   |
056b 0000 0000  |    |		.BLANK	0000[0x5]
0570 0378 0004  | x  |		.XXX[0x62]
0572 0002 e20e  |    |
0574 e001 1813  |    |
0576 8244 0031  | D 1|
0578 4800 00d9  |H   |
057a 0217 3805  |  8 |
057c 4501 0000  |E   |
057e 0000 0000  |    |
0580 0388 0004  |    |
0582 0002 e20e  |    |
0584 e001 1813  |    |
0586 8244 0031  | D 1|
0588 4801 821e  |H   |
058a 00d8 0219  |    |
058c 3c07 00d8  |<   |
058e 821c 4501  |  E |
0590 0398 0004  |    |
0592 0002 e20e  |    |
0594 e001 1813  |    |
0596 8244 0031  | D 1|
0598 4801 00d9  |H   |
059a 0217 3806  |  8 |
059c 4501 0000  |E   |
059e 0000 0000  |    |
05a0 03a8 0004  |    |
05a2 0002 e20e  |    |
05a4 e001 1813  |    |
05a6 8244 0031  | D 1|
05a8 4800 00d9  |H   |
05aa 0217 3806  |  8 |
05ac 4501 0000  |E   |
05ae 0000 0000  |    |
05b0 03bc 03ca  |    |
05b2 0003 e20e  |    |
05b4 e001 1813  |    |
05b6 8244 0031  | D 1|
05b8 00d8 0217  |    |
05ba 340d 0007  |4   |
05bc 00d8 0a01  |    |
05be c403 e242  |   B|
05c0 0322 e5ff  | "  |
05c2 00d9 3800  |  8 |
05c4 00d9 00db  |    |
05c6 0217 340c  |  4 |
05c8 01d6 4502  |  E |
05ca 010e 6805  |  h |
05cc 0092 06f5  |    |
05ce e002 181e  |    |
05d0 4502 0100  |E   |
05d2 0000 0000  |    |		.BLANK	0000[0x6]
05d8 03e4 03f3  |    |		.XXX[0x23]
05da 0003 e20e  |    |
05dc e001 1813  |    |
05de 8244 0031  | D 1|
05e0 00d8 0217  |    |
05e2 340d 0007  |4   |
05e4 00d8 00da  |    |
05e6 0217 340c  |  4 |
05e8 01d5 3c00  |  < |
05ea e5ff 021f  |    |
05ec 7002 48e0  |p H |
05ee 0257 00d8  | W  |
05f0 0aff c403  |    |
05f2 4502 010e  |E   |
05f4 6805 0092  |h   |
05f6 06f6 e002  |    |
05f8 181e 4502  |  E |
05fa 0100       |    |
05fb 0000 0000  |    |		.BLANK	0000[0x5]