|
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, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 05a0 | | .CONST 0x05a0 ; 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 00fc | | .CONST 0x00fc ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003b | ; | .CONST 0x003b ; Number of locals
000b INIT_0008:
000b 4805 |H | Short_Literal 0x5
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0011 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0013 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0015 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
001d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
001f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0021 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0023 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0025 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0027 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0029 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
002b 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
002d 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
002f 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0031 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0033 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0035 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
0037 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0039 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
003b 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
003d 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
003f 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
0041 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
0043 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0045 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0047 e002 | | Load 0x0,0x2
0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0049 e20d | | Load 0x1,0xd
004a 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
004c 4802 |H | Short_Literal 0x2
004d 0328 | ( | Declare_Type Record,Defined_Incomplete,Visible
004e 00e4 | | Load_Encached Positive_Cache
004f 0266 | f | Execute Discrete,Bounds
0050 00da | | Load_Top At_Offset_2
0051 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call
0053 4801 |H | Short_Literal 0x1
0054 0349 | I | Declare_Type Array,Defined_Incomplete,Visible,Bounds_With_Object
0055 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
0057 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
0059 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
005b 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
005d 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
005f 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
0061 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
0063 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0065 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
0067 e003 | | Load 0x0,0x3
0068 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0069 00e5 | | Load_Encached Long_Integer_Cache
006a 00e1 | | Load_Encached Boolean_Cache
006b 00e6 | | Load_Encached Float_Cache
006c e004 | | Load 0x0,0x4
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e e20d | | Load 0x1,0xd
006f 0326 | & | Complete_Type Record,By_Defining
0070 e22b | + | Load 0x1,0x2b
0071 0324 | $ | Complete_Type Record,By_Component_Completion
0072 e22c | , | Load 0x1,0x2c
0073 0340 | @ | Complete_Type Array,By_Component_Completion
0074 e20d | | Load 0x1,0xd
0075 0322 | " | Declare_Variable Record
0076 4800 |H | Short_Literal 0x0
0077 00d9 | | Load_Top At_Offset_1
0078 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0079 4800 |H | Short_Literal 0x0
007a 00d9 | | Load_Top At_Offset_1
007b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007c 588f |X | Indirect_Literal Float,0x10c,0.0
007d 00d9 | | Load_Top At_Offset_1
007e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
007f e004 | | Load 0x0,0x4
0080 00d9 | | Load_Top At_Offset_1
0081 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0082 4800 |H | Short_Literal 0x0
0083 00d9 | | Load_Top At_Offset_1
0084 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0085 0129 | ) | Execute Any,Make_Visible
0086 e22b | + | Load 0x1,0x2b
0087 0322 | " | Declare_Variable Record
0088 0092 0575 | u| Action Push_String_Extended,0x575 ; "Uninitialized"
008a e002 | | Load 0x0,0x2
008b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008c e22b | + | Load 0x1,0x2b
008d 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
008e 0119 | | Execute Any,Check_In_Formal_Type
008f 00d9 | | Load_Top At_Offset_1
0090 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0091 00d9 | | Load_Top At_Offset_1
0092 00d9 | | Load_Top At_Offset_1
0093 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0094 0129 | ) | Execute Any,Make_Visible
0095 e005 | | Load 0x0,0x5
0096 e006 | | Load 0x0,0x6
0097 e22b | + | Load 0x1,0x2b
0098 e22c | , | Load 0x1,0x2c
0099 e237 | 7 | Load 0x1,0x37
009a 606d |`m | Indirect_Literal Discrete,0x108,{0x00000000, 0x7fffffff}
009b e007 | | Load 0x0,0x7
009c 0386 | | Declare_Variable Package,Visible
009d 00d8 | | Load_Top At_Offset_0
009e 020f | | Execute Module,Activate
009f 00e3 | | Load_Encached Natural_Cache
00a0 00d9 | | Load_Top At_Offset_1
00a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a2 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call
00a4 4800 |H | Short_Literal 0x0
00a5 4801 |H | Short_Literal 0x1
00a6 4800 |H | Short_Literal 0x0
00a7 4800 |H | Short_Literal 0x0
00a8 4801 |H | Short_Literal 0x1
00a9 4801 |H | Short_Literal 0x1
00aa 031e | | Declare_Type Variant_Record,Defined,Visible
00ab 00bf | | Action Accept_Activation
00ac 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call
00ae 029d 050b | | Declare_Subprogram INIT_0508,For_Outer_Call
00b0 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00f5 00c7 | | Action Elaborate_Subprogram
00f6 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00f7 00c7 | | Action Elaborate_Subprogram
00f8 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00f9 00c7 | | Action Elaborate_Subprogram
00fa 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00fb 00c7 | | Action Elaborate_Subprogram
00fc BODY_0008:
00fc 00bc | | Action Signal_Activated
00fd 00bb | | Action Signal_Completion
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 e236 | 6 | Load 0x1,0x36
0104 00ca | | Action Exit_Nullary_Function
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
010c 0000 0000 | | .DBL 0.0
010e 0000 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 821e | | Call 0x1,0x1e
0115 4606 |F | Jump_Case 0x7
0116 7809 |x | Jump 0x120 ; case 0x0
0117 7808 |x | Jump 0x120 ; case 0x1
0118 7804 |x | Jump 0x11d ; case 0x2
0119 7806 |x | Jump 0x120 ; case 0x3
011a 7805 |x | Jump 0x120 ; case 0x4
011b 7804 |x | Jump 0x120 ; case 0x5
011c 7800 |x | Jump 0x11d ; case 0x6
011d e003 | | Load 0x0,0x3
011e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
011f 0257 | W | Execute Discrete,Raise
0120 00da | | Load_Top At_Offset_2
0121 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0123 0000 0000 | | .BLANK 0000[0x5]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 821e | | Call 0x1,0x1e
012d 0f03 | | Execute_Immediate Equal,0x3
012e 7003 |p | Jump_Nonzero 0x132
012f e003 | | Load 0x0,0x3
0130 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0131 0257 | W | Execute Discrete,Raise
0132 00da | | Load_Top At_Offset_2
0133 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 821e | | Call 0x1,0x1e
013d 0f05 | | Execute_Immediate Equal,0x5
013e 7003 |p | Jump_Nonzero 0x142
013f e003 | | Load 0x0,0x3
0140 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0141 0257 | W | Execute Discrete,Raise
0142 00da | | Load_Top At_Offset_2
0143 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0144 8008 | | Call 0x0,0x8
0145 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 821e | | Call 0x1,0x1e
014d 4606 |F | Jump_Case 0x7
014e 7809 |x | Jump 0x158 ; case 0x0
014f 7805 |x | Jump 0x155 ; case 0x1
0150 7804 |x | Jump 0x155 ; case 0x2
0151 7803 |x | Jump 0x155 ; case 0x3
0152 7805 |x | Jump 0x158 ; case 0x4
0153 7801 |x | Jump 0x155 ; case 0x5
0154 7800 |x | Jump 0x155 ; case 0x6
0155 e003 | | Load 0x0,0x3
0156 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0157 0257 | W | Execute Discrete,Raise
0158 00da | | Load_Top At_Offset_2
0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 821e | | Call 0x1,0x1e
0165 0f02 | | Execute_Immediate Equal,0x2
0166 7003 |p | Jump_Nonzero 0x16a
0167 e003 | | Load 0x0,0x3
0168 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0169 0257 | W | Execute Discrete,Raise
016a 00da | | Load_Top At_Offset_2
016b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 821e | | Call 0x1,0x1e
0175 0f06 | | Execute_Immediate Equal,0x6
0176 7003 |p | Jump_Nonzero 0x17a
0177 e003 | | Load 0x0,0x3
0178 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0179 0257 | W | Execute Discrete,Raise
017a 00da | | Load_Top At_Offset_2
017b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0195 | | .CONST 0x0195 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 e20d | | Load 0x1,0xd
0184 0322 | " | Declare_Variable Record
0185 4800 |H | Short_Literal 0x0
0186 00d9 | | Load_Top At_Offset_1
0187 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0188 00db | | Load_Top At_Offset_3
0189 00d9 | | Load_Top At_Offset_1
018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018b 5810 |X | Indirect_Literal Float,0x19c,0.0
018c 00d9 | | Load_Top At_Offset_1
018d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
018e e004 | | Load 0x0,0x4
018f 00d9 | | Load_Top At_Offset_1
0190 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0191 4800 |H | Short_Literal 0x0
0192 00d9 | | Load_Top At_Offset_1
0193 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0195 TRAP_0180:
0195 0007 | | Action Break_Optional
0196 e003 | | Load 0x0,0x3
0197 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0198 0257 | W | Execute Discrete,Raise
0199 0000 0000 | | .XXX[0x3]
019b 0000 | |
019c 0000 0000 | | .DBL 0.0
019e 0000 0000 | |
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 e20d | | Load 0x1,0xd
01a4 0322 | " | Declare_Variable Record
01a5 4800 |H | Short_Literal 0x0
01a6 00d9 | | Load_Top At_Offset_1
01a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a8 00db | | Load_Top At_Offset_3
01a9 00d9 | | Load_Top At_Offset_1
01aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ab 5ff0 |_ | Indirect_Literal Float,0x19c,0.0
01ac 00d9 | | Load_Top At_Offset_1
01ad 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01ae e004 | | Load 0x0,0x4
01af 00d9 | | Load_Top At_Offset_1
01b0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01b1 4800 |H | Short_Literal 0x0
01b2 00d9 | | Load_Top At_Offset_1
01b3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e20d | | Load 0x1,0xd
01bc 0322 | " | Declare_Variable Record
01bd 4801 |H | Short_Literal 0x1
01be 00d9 | | Load_Top At_Offset_1
01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c0 00db | | Load_Top At_Offset_3
01c1 00d9 | | Load_Top At_Offset_1
01c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c3 580c |X | Indirect_Literal Float,0x1d0,0.0
01c4 00d9 | | Load_Top At_Offset_1
01c5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c6 e004 | | Load 0x0,0x4
01c7 00d9 | | Load_Top At_Offset_1
01c8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01c9 4800 |H | Short_Literal 0x0
01ca 00d9 | | Load_Top At_Offset_1
01cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 0000 0000 | | .DBL 0.0
01d2 0000 0000 | |
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 01ef | | .CONST 0x01ef ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e20d | | Load 0x1,0xd
01dc 0322 | " | Declare_Variable Record
01dd 4802 |H | Short_Literal 0x2
01de 00d9 | | Load_Top At_Offset_1
01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e0 4800 |H | Short_Literal 0x0
01e1 00d9 | | Load_Top At_Offset_1
01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e3 00db | | Load_Top At_Offset_3
01e4 e009 | | Load 0x0,0x9
01e5 180d | | Execute Package,Field_Execute,Field_Number 0xd
01e6 00d9 | | Load_Top At_Offset_1
01e7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01e8 e004 | | Load 0x0,0x4
01e9 00d9 | | Load_Top At_Offset_1
01ea 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01eb 4800 |H | Short_Literal 0x0
01ec 00d9 | | Load_Top At_Offset_1
01ed 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ef TRAP_01d8:
01ef 0007 | | Action Break_Optional
01f0 e003 | | Load 0x0,0x3
01f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01f2 0257 | W | Execute Discrete,Raise
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e20d | | Load 0x1,0xd
01fc 0322 | " | Declare_Variable Record
01fd 4802 |H | Short_Literal 0x2
01fe 00d9 | | Load_Top At_Offset_1
01ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0200 4800 |H | Short_Literal 0x0
0201 00d9 | | Load_Top At_Offset_1
0202 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0203 00db | | Load_Top At_Offset_3
0204 00d9 | | Load_Top At_Offset_1
0205 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0206 e004 | | Load 0x0,0x4
0207 00d9 | | Load_Top At_Offset_1
0208 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0209 4800 |H | Short_Literal 0x0
020a 00d9 | | Load_Top At_Offset_1
020b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
020c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e20d | | Load 0x1,0xd
0214 0322 | " | Declare_Variable Record
0215 4804 |H | Short_Literal 0x4
0216 00d9 | | Load_Top At_Offset_1
0217 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0218 00db | | Load_Top At_Offset_3
0219 00d9 | | Load_Top At_Offset_1
021a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
021b 580c |X | Indirect_Literal Float,0x228,0.0
021c 00d9 | | Load_Top At_Offset_1
021d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
021e e004 | | Load 0x0,0x4
021f 00d9 | | Load_Top At_Offset_1
0220 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0221 4800 |H | Short_Literal 0x0
0222 00d9 | | Load_Top At_Offset_1
0223 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 0000 0000 | | .DBL 0.0
022a 0000 0000 | |
022c 0000 0000 | | .BLANK 0000[0x4]
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 e20d | | Load 0x1,0xd
0234 0322 | " | Declare_Variable Record
0235 4803 |H | Short_Literal 0x3
0236 00d9 | | Load_Top At_Offset_1
0237 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0238 00db | | Load_Top At_Offset_3
0239 00d9 | | Load_Top At_Offset_1
023a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
023b 5fec |_ | Indirect_Literal Float,0x228,0.0
023c 00d9 | | Load_Top At_Offset_1
023d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
023e e004 | | Load 0x0,0x4
023f 00d9 | | Load_Top At_Offset_1
0240 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0241 4800 |H | Short_Literal 0x0
0242 00d9 | | Load_Top At_Offset_1
0243 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
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 e20d | | Load 0x1,0xd
024c 0322 | " | Declare_Variable Record
024d 4805 |H | Short_Literal 0x5
024e 00d9 | | Load_Top At_Offset_1
024f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0250 00db | | Load_Top At_Offset_3
0251 800a | | Call 0x0,0xa
0252 00d9 | | Load_Top At_Offset_1
0253 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0254 580b |X | Indirect_Literal Float,0x260,0.0
0255 00d9 | | Load_Top At_Offset_1
0256 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0257 e004 | | Load 0x0,0x4
0258 00d9 | | Load_Top At_Offset_1
0259 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
025a 4800 |H | Short_Literal 0x0
025b 00d9 | | Load_Top At_Offset_1
025c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 0000 0000 | | .XXX[0x2]
0260 0000 0000 | | .DBL 0.0
0262 0000 0000 | |
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e20d | | Load 0x1,0xd
026c 0322 | " | Declare_Variable Record
026d 4806 |H | Short_Literal 0x6
026e 00d9 | | Load_Top At_Offset_1
026f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0270 4800 |H | Short_Literal 0x0
0271 00d9 | | Load_Top At_Offset_1
0272 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0273 5fec |_ | Indirect_Literal Float,0x260,0.0
0274 00d9 | | Load_Top At_Offset_1
0275 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0276 00db | | Load_Top At_Offset_3
0277 00d9 | | Load_Top At_Offset_1
0278 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0279 4800 |H | Short_Literal 0x0
027a 00d9 | | Load_Top At_Offset_1
027b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027d 0000 0000 | | .XXX[0x3]
027f 0000 | |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 029f 051b | | Declare_Subprogram INIT_0518,For_Call
028d BODY_0288:
028d 00db | | Load_Top At_Offset_3
028e 821e | | Call 0x1,0x1e
028f 4606 |F | Jump_Case 0x7
0290 780c |x | Jump 0x29d ; case 0x0
0291 780b |x | Jump 0x29d ; case 0x1
0292 7817 |x | Jump 0x2aa ; case 0x2
0293 7809 |x | Jump 0x29d ; case 0x3
0294 7819 |x | Jump 0x2ae ; case 0x4
0295 780c |x | Jump 0x2a2 ; case 0x5
0296 7800 |x | Jump 0x297 ; case 0x6
0297 00db | | Load_Top At_Offset_3
0298 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0299 0217 | | Execute Heap_Access,All_Reference
029a 0335 | 5 | Declare_Variable Array,Duplicate
029b 00cd | | Action Spare6_Action
029c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029d 480a |H | Short_Literal 0xa
029e e5ff | | Load 0x2,-0x1
029f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a0 823b | ; | Call 0x1,0x3b
02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a2 e00b | | Load 0x0,0xb
02a3 180f | | Execute Package,Field_Execute,Field_Number 0xf
02a4 4810 |H | Short_Literal 0x10
02a5 e5ff | | Load 0x2,-0x1
02a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a7 823b | ; | Call 0x1,0x3b
02a8 01ca | | Execute Vector,Prepend
02a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02aa 8402 | | Call 0x2,0x2
02ab 0092 0576 | v| Action Push_String_Extended,0x576 ; "Unprintable floating point number"
02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ae 480a |H | Short_Literal 0xa
02af e5ff | | Load 0x2,-0x1
02b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b1 823b | ; | Call 0x1,0x3b
02b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b3 0000 0000 | | .BLANK 0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02be | | .CONST 0x02be ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0004 | | .CONST 0x0004 ; Number of locals
02bb INIT_02b8:
02bb 00e5 | | Load_Encached Long_Integer_Cache
02bc 00e5 | | Load_Encached Long_Integer_Cache
02bd 03e9 | | Declare_Variable Discrete,Duplicate
02be BODY_02b8:
02be e5ff | | Load 0x2,-0x1
02bf 821e | | Call 0x1,0x1e
02c0 0f03 | | Execute_Immediate Equal,0x3
02c1 681f |h | Jump_Zero 0x2e1
02c2 e5ff | | Load 0x2,-0x1
02c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02c5 00da | | Load_Top At_Offset_2
02c6 09e0 | | Execute_Immediate Binary_Scale,-0x20
02c7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02c8 00da | | Load_Top At_Offset_2
02c9 601a |` | Indirect_Literal Discrete,0x2e4,{0x00000001, 0x00000000}
02ca 026f | o | Execute Discrete,Remainder
02cb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02cc 00d9 | | Load_Top At_Offset_1
02cd 7005 |p | Jump_Nonzero 0x2d3
02ce 00d8 | | Load_Top At_Offset_0
02cf 7003 |p | Jump_Nonzero 0x2d3
02d0 0092 0577 | w| Action Push_String_Extended,0x577 ; "null"
02d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d3 0092 0578 | x| Action Push_String_Extended,0x578 ; "#"
02d5 4810 |H | Short_Literal 0x10
02d6 00db | | Load_Top At_Offset_3
02d7 823b | ; | Call 0x1,0x3b
02d8 01cc | | Execute Vector,Catenate
02d9 0092 0579 | y| Action Push_String_Extended,0x579 ; " #"
02db 01cc | | Execute Vector,Catenate
02dc 4810 |H | Short_Literal 0x10
02dd 00da | | Load_Top At_Offset_2
02de 823b | ; | Call 0x1,0x3b
02df 01cc | | Execute Vector,Catenate
02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e1 e003 | | Load 0x0,0x3
02e2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02e3 0257 | W | Execute Discrete,Raise
02e4 0000 0001 | | .LITERAL {0x00000001, 0x00000000}
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f6 | | .CONST 0x02f6 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ed 00d8 | | Load_Top At_Offset_0
02ee e00c | | Load 0x0,0xc
02ef 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02f0 0260 | ` | Execute Discrete,In_Type
02f1 7001 |p | Jump_Nonzero 0x2f3
02f2 0801 | | Execute_Immediate Raise,0x1
02f3 e00c | | Load 0x0,0xc
02f4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02f5 03f1 | | Declare_Variable Discrete,With_Value
02f6 BODY_02e8:
02f6 00db | | Load_Top At_Offset_3
02f7 821e | | Call 0x1,0x1e
02f8 0f05 | | Execute_Immediate Equal,0x5
02f9 6803 |h | Jump_Zero 0x2fd
02fa 00d8 | | Load_Top At_Offset_0
02fb 800d | | Call 0x0,0xd
02fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02fd e003 | | Load 0x0,0x3
02fe 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02ff 0257 | W | Execute Discrete,Raise
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 821f | | Call 0x1,0x1f
0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 821e | | Call 0x1,0x1e
030d 0f02 | | Execute_Immediate Equal,0x2
030e 7002 |p | Jump_Nonzero 0x311
030f 00ea | | Load_Encached Null_String_Cache
0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0311 0092 057a | z| Action Push_String_Extended,0x57a ; " ["
0313 00db | | Load_Top At_Offset_3
0314 8213 | | Call 0x1,0x13
0315 e009 | | Load 0x0,0x9
0316 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0317 01cc | | Execute Vector,Catenate
0318 0092 057b | {| Action Push_String_Extended,0x57b ; "]"
031a 01cc | | Execute Vector,Catenate
031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0325 | % | .CONST 0x0325 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0003 | | .CONST 0x0003 ; Number of locals
0323 INIT_0320:
0323 00e5 | | Load_Encached Long_Integer_Cache
0324 00e1 | | Load_Encached Boolean_Cache
0325 BODY_0320:
0325 e5fe | | Load 0x2,-0x2
0326 4606 |F | Jump_Case 0x7
0327 787f |x | Jump 0x3a7 ; case 0x0
0328 787e |x~ | Jump 0x3a7 ; case 0x1
0329 78c9 |x | Jump 0x3f3 ; case 0x2
032a 787c |x| | Jump 0x3a7 ; case 0x3
032b 78c7 |x | Jump 0x3f3 ; case 0x4
032c 7804 |x | Jump 0x331 ; case 0x5
032d 7800 |x | Jump 0x32e ; case 0x6
032e e003 | | Load 0x0,0x3
032f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0330 0257 | W | Execute Discrete,Raise
0331 e5ff | | Load 0x2,-0x1
0332 01db | | Execute Vector,Length
0333 6839 |h9 | Jump_Zero 0x36d
0334 e5ff | | Load 0x2,-0x1
0335 01dd | | Execute Vector,First
0336 e5ff | | Load 0x2,-0x1
0337 01d7 | | Execute Vector,Field_Read
0338 e00b | | Load 0x0,0xb
0339 180f | | Execute Package,Field_Execute,Field_Number 0xf
033a 027f | | Execute Discrete,Equal
033b 6831 |h1 | Jump_Zero 0x36d
033c e5ff | | Load 0x2,-0x1
033d 01db | | Execute Vector,Length
033e 0c02 | | Execute_Immediate Greater_Equal,0x2
033f 681a |h | Jump_Zero 0x35a
0340 e5ff | | Load 0x2,-0x1
0341 01dd | | Execute Vector,First
0342 0a01 | | Execute_Immediate Plus,0x1
0343 e5ff | | Load 0x2,-0x1
0344 01d7 | | Execute Vector,Field_Read
0345 0f23 | # | Execute_Immediate Equal,0x23
0346 6813 |h | Jump_Zero 0x35a
0347 00e1 | | Load_Encached Boolean_Cache
0348 00e5 | | Load_Encached Long_Integer_Cache
0349 4810 |H | Short_Literal 0x10
034a e5ff | | Load 0x2,-0x1
034b 01dd | | Execute Vector,First
034c 0a02 | | Execute_Immediate Plus,0x2
034d 00d8 | | Load_Top At_Offset_0
034e 00e2 | | Load_Encached Integer_Cache
034f 0260 | ` | Execute Discrete,In_Type
0350 7001 |p | Jump_Nonzero 0x352
0351 0801 | | Execute_Immediate Raise,0x1
0352 e5ff | | Load 0x2,-0x1
0353 01dc | | Execute Vector,Last
0354 e5ff | | Load 0x2,-0x1
0355 01cf | | Execute Vector,Slice_Read
0356 823a | : | Call 0x1,0x3a
0357 005b | [ | Store_Top Discrete,At_Offset_3
0358 0059 | Y | Store_Top Discrete,At_Offset_1
0359 7836 |x6 | Jump 0x390
035a 00e1 | | Load_Encached Boolean_Cache
035b 00e5 | | Load_Encached Long_Integer_Cache
035c 4810 |H | Short_Literal 0x10
035d e5ff | | Load 0x2,-0x1
035e 01dd | | Execute Vector,First
035f 0a01 | | Execute_Immediate Plus,0x1
0360 00d8 | | Load_Top At_Offset_0
0361 00e2 | | Load_Encached Integer_Cache
0362 0260 | ` | Execute Discrete,In_Type
0363 7001 |p | Jump_Nonzero 0x365
0364 0801 | | Execute_Immediate Raise,0x1
0365 e5ff | | Load 0x2,-0x1
0366 01dc | | Execute Vector,Last
0367 e5ff | | Load 0x2,-0x1
0368 01cf | | Execute Vector,Slice_Read
0369 823a | : | Call 0x1,0x3a
036a 005b | [ | Store_Top Discrete,At_Offset_3
036b 0059 | Y | Store_Top Discrete,At_Offset_1
036c 7823 |x# | Jump 0x390
036d e5ff | | Load 0x2,-0x1
036e 01db | | Execute Vector,Length
036f 6819 |h | Jump_Zero 0x389
0370 e5ff | | Load 0x2,-0x1
0371 01dd | | Execute Vector,First
0372 e5ff | | Load 0x2,-0x1
0373 01d7 | | Execute Vector,Field_Read
0374 0f23 | # | Execute_Immediate Equal,0x23
0375 6813 |h | Jump_Zero 0x389
0376 00e1 | | Load_Encached Boolean_Cache
0377 00e5 | | Load_Encached Long_Integer_Cache
0378 4810 |H | Short_Literal 0x10
0379 e5ff | | Load 0x2,-0x1
037a 01dd | | Execute Vector,First
037b 0a01 | | Execute_Immediate Plus,0x1
037c 00d8 | | Load_Top At_Offset_0
037d 00e2 | | Load_Encached Integer_Cache
037e 0260 | ` | Execute Discrete,In_Type
037f 7001 |p | Jump_Nonzero 0x381
0380 0801 | | Execute_Immediate Raise,0x1
0381 e5ff | | Load 0x2,-0x1
0382 01dc | | Execute Vector,Last
0383 e5ff | | Load 0x2,-0x1
0384 01cf | | Execute Vector,Slice_Read
0385 823a | : | Call 0x1,0x3a
0386 005b | [ | Store_Top Discrete,At_Offset_3
0387 0059 | Y | Store_Top Discrete,At_Offset_1
0388 7807 |x | Jump 0x390
0389 00e1 | | Load_Encached Boolean_Cache
038a 00e5 | | Load_Encached Long_Integer_Cache
038b 4810 |H | Short_Literal 0x10
038c e5ff | | Load 0x2,-0x1
038d 823a | : | Call 0x1,0x3a
038e 005b | [ | Store_Top Discrete,At_Offset_3
038f 0059 | Y | Store_Top Discrete,At_Offset_1
0390 00d8 | | Load_Top At_Offset_0
0391 7003 |p | Jump_Nonzero 0x395
0392 e003 | | Load 0x0,0x3
0393 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0394 0257 | W | Execute Discrete,Raise
0395 e20d | | Load 0x1,0xd
0396 0322 | " | Declare_Variable Record
0397 4800 |H | Short_Literal 0x0
0398 00d9 | | Load_Top At_Offset_1
0399 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
039a 00da | | Load_Top At_Offset_2
039b 00d9 | | Load_Top At_Offset_1
039c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
039d 585a |XZ | Indirect_Literal Float,0x3f8,0.0
039e 00d9 | | Load_Top At_Offset_1
039f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03a0 e004 | | Load 0x0,0x4
03a1 00d9 | | Load_Top At_Offset_1
03a2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03a3 4800 |H | Short_Literal 0x0
03a4 00d9 | | Load_Top At_Offset_1
03a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a7 00e1 | | Load_Encached Boolean_Cache
03a8 00e5 | | Load_Encached Long_Integer_Cache
03a9 480a |H | Short_Literal 0xa
03aa e5ff | | Load 0x2,-0x1
03ab 823a | : | Call 0x1,0x3a
03ac 005b | [ | Store_Top Discrete,At_Offset_3
03ad 0059 | Y | Store_Top Discrete,At_Offset_1
03ae 00d8 | | Load_Top At_Offset_0
03af 7003 |p | Jump_Nonzero 0x3b3
03b0 e003 | | Load 0x0,0x3
03b1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
03b2 0257 | W | Execute Discrete,Raise
03b3 e5fe | | Load 0x2,-0x2
03b4 4606 |F | Jump_Case 0x7
03b5 782b |x+ | Jump 0x3e1 ; case 0x0
03b6 7806 |x | Jump 0x3bd ; case 0x1
03b7 783e |x> | Jump 0x3f6 ; case 0x2
03b8 7816 |x | Jump 0x3cf ; case 0x3
03b9 783c |x< | Jump 0x3f6 ; case 0x4
03ba 783b |x; | Jump 0x3f6 ; case 0x5
03bb 783a |x: | Jump 0x3f6 ; case 0x6
03bc 7839 |x9 | .XXX[0x1]
03bd e20d | | Load 0x1,0xd
03be 0322 | " | Declare_Variable Record
03bf 4801 |H | Short_Literal 0x1
03c0 00d9 | | Load_Top At_Offset_1
03c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03c2 00da | | Load_Top At_Offset_2
03c3 00d9 | | Load_Top At_Offset_1
03c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03c5 5832 |X2 | Indirect_Literal Float,0x3f8,0.0
03c6 00d9 | | Load_Top At_Offset_1
03c7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03c8 e004 | | Load 0x0,0x4
03c9 00d9 | | Load_Top At_Offset_1
03ca 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03cb 4800 |H | Short_Literal 0x0
03cc 00d9 | | Load_Top At_Offset_1
03cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03cf e20d | | Load 0x1,0xd
03d0 0322 | " | Declare_Variable Record
03d1 4801 |H | Short_Literal 0x1
03d2 00d9 | | Load_Top At_Offset_1
03d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03d4 00da | | Load_Top At_Offset_2
03d5 00d9 | | Load_Top At_Offset_1
03d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03d7 5820 |X | Indirect_Literal Float,0x3f8,0.0
03d8 00d9 | | Load_Top At_Offset_1
03d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03da e004 | | Load 0x0,0x4
03db 00d9 | | Load_Top At_Offset_1
03dc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03dd 4800 |H | Short_Literal 0x0
03de 00d9 | | Load_Top At_Offset_1
03df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e1 e20d | | Load 0x1,0xd
03e2 0322 | " | Declare_Variable Record
03e3 4800 |H | Short_Literal 0x0
03e4 00d9 | | Load_Top At_Offset_1
03e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03e6 00da | | Load_Top At_Offset_2
03e7 00d9 | | Load_Top At_Offset_1
03e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03e9 580e |X | Indirect_Literal Float,0x3f8,0.0
03ea 00d9 | | Load_Top At_Offset_1
03eb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03ec e004 | | Load 0x0,0x4
03ed 00d9 | | Load_Top At_Offset_1
03ee 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03ef 4800 |H | Short_Literal 0x0
03f0 00d9 | | Load_Top At_Offset_1
03f1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f3 e5ff | | Load 0x2,-0x1
03f4 8218 | | Call 0x1,0x18
03f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f6 0831 | 1 | Execute_Immediate Raise,0x31
03f7 0000 | | .XXX[0x1]
03f8 0000 0000 | | .DBL 0.0
03fa 0000 0000 | |
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 e20d | | Load 0x1,0xd
0404 0322 | " | Declare_Variable Record
0405 4803 |H | Short_Literal 0x3
0406 00d9 | | Load_Top At_Offset_1
0407 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0408 4800 |H | Short_Literal 0x0
0409 00d9 | | Load_Top At_Offset_1
040a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
040b 5fec |_ | Indirect_Literal Float,0x3f8,0.0
040c 00d9 | | Load_Top At_Offset_1
040d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
040e e004 | | Load 0x0,0x4
040f 00d9 | | Load_Top At_Offset_1
0410 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0411 4800 |H | Short_Literal 0x0
0412 00d9 | | Load_Top At_Offset_1
0413 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0414 00ca | | Action Exit_Nullary_Function
0415 0000 0000 | | .XXX[0x3]
0417 0000 | |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e20d | | Load 0x1,0xd
041c 0322 | " | Declare_Variable Record
041d 4803 |H | Short_Literal 0x3
041e 00d9 | | Load_Top At_Offset_1
041f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0420 4800 |H | Short_Literal 0x0
0421 00d9 | | Load_Top At_Offset_1
0422 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0423 580c |X | Indirect_Literal Float,0x430,0.0
0424 00d9 | | Load_Top At_Offset_1
0425 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0426 e004 | | Load 0x0,0x4
0427 00d9 | | Load_Top At_Offset_1
0428 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0429 4801 |H | Short_Literal 0x1
042a 00d9 | | Load_Top At_Offset_1
042b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
042c 00ca | | Action Exit_Nullary_Function
042d 0000 0000 | | .XXX[0x3]
042f 0000 | |
0430 0000 0000 | | .DBL 0.0
0432 0000 0000 | |
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
043d 0f03 | | Execute_Immediate Equal,0x3
043e 6803 |h | Jump_Zero 0x442
043f 00da | | Load_Top At_Offset_2
0440 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0441 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0442 4800 |H | Short_Literal 0x0
0443 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
044d 0f03 | | Execute_Immediate Equal,0x3
044e 6804 |h | Jump_Zero 0x453
044f 00da | | Load_Top At_Offset_2
0450 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0451 0f00 | | Execute_Immediate Equal,0x0
0452 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0453 4800 |H | Short_Literal 0x0
0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0455 0000 0000 | | .XXX[0x3]
0457 0000 | |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c 8226 | & | Call 0x1,0x26
045d 017f | | Execute Record,Equal
045e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045f 0000 | | .XXX[0x1]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0465 0f05 | | Execute_Immediate Equal,0x5
0466 6804 |h | Jump_Zero 0x46b
0467 00da | | Load_Top At_Offset_2
0468 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0469 0f00 | | Execute_Immediate Equal,0x0
046a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046b 4800 |H | Short_Literal 0x0
046c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00d1 | | Pop_Control Pop_Count_1
0474 00da | | Load_Top At_Offset_2
0475 01dc | | Execute Vector,Last
0476 00db | | Load_Top At_Offset_3
0477 01dd | | Execute Vector,First
0478 0263 | c | Execute Discrete,Above_Bound
0479 7006 |p | Jump_Nonzero 0x480
047a 00d8 | | Load_Top At_Offset_0
047b e5ff | | Load 0x2,-0x1
047c 01d5 | | Execute Vector,Field_Reference
047d 1c00 | | Execute_Immediate Run_Utility,0x0
047e 0a01 | | Execute_Immediate Plus,0x1
047f 7ff8 | | Jump 0x478
0480 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0481 0000 0000 | | .BLANK 0000[0x7]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 00db | | Load_Top At_Offset_3
048c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
048d e238 | 8 | Load 0x1,0x38
048e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
048f e5ff | | Load 0x2,-0x1
0490 e238 | 8 | Load 0x1,0x38
0491 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0492 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0493 0000 0000 | | .BLANK 0000[0x5]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00db | | Load_Top At_Offset_3
049c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
049d 00db | | Load_Top At_Offset_3
049e e238 | 8 | Load 0x1,0x38
049f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04a1 0000 0000 | | .BLANK 0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00da | | Load_Top At_Offset_2
04ac 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04ad e238 | 8 | Load 0x1,0x38
04ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 00db | | Load_Top At_Offset_3
04b4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04b5 00db | | Load_Top At_Offset_3
04b6 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04b7 e238 | 8 | Load 0x1,0x38
04b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ba 0000 0000 | | .BLANK 0000[0x6]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 00da | | Load_Top At_Offset_2
04c4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04c5 e238 | 8 | Load 0x1,0x38
04c6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04cd e238 | 8 | Load 0x1,0x38
04ce 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
04cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 00db | | Load_Top At_Offset_3
04d4 00db | | Load_Top At_Offset_3
04d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04d6 e238 | 8 | Load 0x1,0x38
04d7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04d8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04da 0000 0000 | | .BLANK 0000[0x6]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 00db | | Load_Top At_Offset_3
04e4 00db | | Load_Top At_Offset_3
04e5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04e6 e238 | 8 | Load 0x1,0x38
04e7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ea 0000 0000 | | .BLANK 0000[0x6]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 e237 | 7 | Load 0x1,0x37
04f4 00ca | | Action Exit_Nullary_Function
04f5 0000 0000 | | .XXX[0x3]
04f7 0000 | |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb INIT_04f8:
04fb 00e1 | | Load_Encached Boolean_Cache
04fc 00e5 | | Load_Encached Long_Integer_Cache
04fd e5fe | | Load 0x2,-0x2
04fe e5ff | | Load 0x2,-0x1
04ff e00e | | Load 0x0,0xe
0500 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0501 c5fd | | Store 0x2,-0x3
0502 c5fc | | Store 0x2,-0x4
0503 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0504 0000 0000 | | .BLANK 0000[0x4]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 4820 |H | Short_Literal 0x20
050c 4800 |H | Short_Literal 0x0
050d e5fe | | Load 0x2,-0x2
050e e5ff | | Load 0x2,-0x1
050f e00e | | Load 0x0,0xe
0510 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0511 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0512 0000 0000 | | .BLANK 0000[0x6]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0525 | % | .CONST 0x0525 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 4805 |H | Short_Literal 0x5
051c e009 | | Load 0x0,0x9
051d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
051e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
051f e5ff | | Load 0x2,-0x1
0520 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0521 e009 | | Load 0x0,0x9
0522 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0523 00cb | | Action Pop_Block_With_Result
0524 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0525 TRAP_0518:
0525 e009 | | Load 0x0,0x9
0526 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0527 010f | | Execute Exception,Equal
0528 6804 |h | Jump_Zero 0x52d
0529 0092 0576 | v| Action Push_String_Extended,0x576 ; "Unprintable floating point number"
052b 00cb | | Action Pop_Block_With_Result
052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052d 0100 | | Execute Exception,Raise
052e 0000 0000 | | .XXX[0x2]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 4609 |F | Jump_Case 0xa
0534 7809 |x | Jump 0x53e ; case 0x0
0535 780e |x | Jump 0x544 ; case 0x1
0536 7810 |x | Jump 0x547 ; case 0x2
0537 7813 |x | Jump 0x54b ; case 0x3
0538 782b |x+ | Jump 0x564 ; case 0x4
0539 782a |x* | Jump 0x564 ; case 0x5
053a 7829 |x) | Jump 0x564 ; case 0x6
053b 7815 |x | Jump 0x551 ; case 0x7
053c 781d |x | Jump 0x55a ; case 0x8
053d 7826 |x& | Jump 0x564 ; case 0x9
053e 00da | | Load_Top At_Offset_2
053f 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0540 00da | | Load_Top At_Offset_2
0541 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0542 1c00 | | Execute_Immediate Run_Utility,0x0
0543 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0544 00da | | Load_Top At_Offset_2
0545 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0546 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0547 4801 |H | Short_Literal 0x1
0548 4802 |H | Short_Literal 0x2
0549 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
054a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
054b e5fd | | Load 0x2,-0x3
054c 00db | | Load_Top At_Offset_3
054d 1c07 | | Execute_Immediate Run_Utility,0x7
054e e5fe | | Load 0x2,-0x2
054f 0306 | | Complete_Type Variant_Record,By_Renaming
0550 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0551 00db | | Load_Top At_Offset_3
0552 e5fe | | Load 0x2,-0x2
0553 e238 | 8 | Load 0x1,0x38
0554 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0555 1c07 | | Execute_Immediate Run_Utility,0x7
0556 4801 |H | Short_Literal 0x1
0557 e5ff | | Load 0x2,-0x1
0558 031b | | Declare_Type Variant_Record,Constrained
0559 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
055a 00db | | Load_Top At_Offset_3
055b 00db | | Load_Top At_Offset_3
055c 02fc | | Declare_Variable Variant_Record,With_Constraint
055d e5fe | | Load 0x2,-0x2
055e e238 | 8 | Load 0x1,0x38
055f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0560 1c08 | | Execute_Immediate Run_Utility,0x8
0561 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0562 016a | j | QQ_execute Variant_Record,XXX
0563 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0564 0869 | i | Execute_Immediate Raise,0x69
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 4601 |F | Jump_Case 0x2
056c 7801 |x | Jump 0x56e ; case 0x0
056d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
056e 00da | | Load_Top At_Offset_2
056f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0570 0125 | % | Execute Any,Set_Constraint
0571 00da | | Load_Top At_Offset_2
0572 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0573 1c00 | | Execute_Immediate Run_Utility,0x0
0574 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0575 ; --------------------------------------------------------------------------------------
0575 ; STRING TABLE
0575 ; --------------------------------------------------------------------------------------
0575 0010 | | .STRTAB 0x0010->0x057d ; "Uninitialized"
0576 001b | | .STRTAB 0x001b->0x0583 ; "Unprintable floating point number"
0577 003a | : | .STRTAB 0x003a->0x0594 ; "null"
0578 003c | < | .STRTAB 0x003c->0x0596 ; "#"
0579 003b | ; | .STRTAB 0x003b->0x0596 ; " #"
057a 003b | ; | .STRTAB 0x003b->0x0597 ; " ["
057b 003c | < | .STRTAB 0x003c->0x0599 ; "]"
057c 003b | ; | .STREND 0x003b->0x0599
057d 556e 696e |Unin| .STRTAB_STRINGS
059a 0000 0000 | | .BLANK 0000[0x6]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; Debug Table
05a0 ; --------------------------------------------------------------------------------------
05a0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a40,0x0000,0x0001,0x0000
05a6 0000 0000 | | .BLANK 0000[0x5a]