|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0220 | | .CONST 0x0220 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a1 | | .CONST 0x00a1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000d 0129 | ) | Execute Any,Make_Visible
000e e002 | | Load 0x0,0x2
000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0010 0129 | ) | Execute Any,Make_Visible
0011 e002 | | Load 0x0,0x2
0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0013 0129 | ) | Execute Any,Make_Visible
0014 e003 | | Load 0x0,0x3
0015 e004 | | Load 0x0,0x4
0016 00db | | Load_Top At_Offset_3
0017 e002 | | Load 0x0,0x2
0018 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0019 e002 | | Load 0x0,0x2
001a 191a | | Execute Package,Field_Reference,Field_Number 0x1a
001b e005 | | Load 0x0,0x5
001c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
001d 0386 | | Declare_Variable Package,Visible
001e 00d8 | | Load_Top At_Offset_0
001f 020f | | Execute Module,Activate
0020 4800 |H | Short_Literal 0x0
0021 e006 | | Load 0x0,0x6
0022 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0023 1c07 | | Execute_Immediate Run_Utility,0x7
0024 0129 | ) | Execute Any,Make_Visible
0025 4801 |H | Short_Literal 0x1
0026 e006 | | Load 0x0,0x6
0027 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0028 1c07 | | Execute_Immediate Run_Utility,0x7
0029 0129 | ) | Execute Any,Make_Visible
002a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0037 c21c | | Store 0x1,0x1c
0038 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
003a c215 | | Store 0x1,0x15
003b e002 | | Load 0x0,0x2
003c 1911 | | Execute Package,Field_Reference,Field_Number 0x11
003d 0129 | ) | Execute Any,Make_Visible
003e c216 | | Store 0x1,0x16
003f e002 | | Load 0x0,0x2
0040 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0041 0129 | ) | Execute Any,Make_Visible
0042 c217 | | Store 0x1,0x17
0043 e002 | | Load 0x0,0x2
0044 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0045 0129 | ) | Execute Any,Make_Visible
0046 c218 | | Store 0x1,0x18
0047 e002 | | Load 0x0,0x2
0048 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0049 0129 | ) | Execute Any,Make_Visible
004a c219 | | Store 0x1,0x19
004b 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
004d c21a | | Store 0x1,0x1a
004e e002 | | Load 0x0,0x2
004f 1918 | | Execute Package,Field_Reference,Field_Number 0x18
0050 0129 | ) | Execute Any,Make_Visible
0051 c21b | | Store 0x1,0x1b
0052 00bf | | Action Accept_Activation
0053 e210 | | Load 0x1,0x10
0054 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0055 0007 | | Action Break_Optional
0056 e210 | | Load 0x1,0x10
0057 192a | * | Execute Package,Field_Reference,Field_Number 0x2a
0058 0007 | | Action Break_Optional
0059 e007 | | Load 0x0,0x7
005a e008 | | Load 0x0,0x8
005b e006 | | Load 0x0,0x6
005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005d e210 | | Load 0x1,0x10
005e 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
005f 0387 | | Declare_Variable Package
0060 00d8 | | Load_Top At_Offset_0
0061 020f | | Execute Module,Activate
0062 e009 | | Load 0x0,0x9
0063 e00a | | Load 0x0,0xa
0064 e006 | | Load 0x0,0x6
0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0066 e210 | | Load 0x1,0x10
0067 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0068 0387 | | Declare_Variable Package
0069 00d8 | | Load_Top At_Offset_0
006a 020f | | Execute Module,Activate
006b e00b | | Load 0x0,0xb
006c e00c | | Load 0x0,0xc
006d e006 | | Load 0x0,0x6
006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006f e210 | | Load 0x1,0x10
0070 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0071 0387 | | Declare_Variable Package
0072 00d8 | | Load_Top At_Offset_0
0073 020f | | Execute Module,Activate
0074 e00d | | Load 0x0,0xd
0075 e00e | | Load 0x0,0xe
0076 e006 | | Load 0x0,0x6
0077 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0078 e210 | | Load 0x1,0x10
0079 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
007a 0387 | | Declare_Variable Package
007b 00d8 | | Load_Top At_Offset_0
007c 020f | | Execute Module,Activate
007d e00f | | Load 0x0,0xf
007e e010 | | Load 0x0,0x10
007f e006 | | Load 0x0,0x6
0080 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0081 e210 | | Load 0x1,0x10
0082 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0083 0387 | | Declare_Variable Package
0084 00d8 | | Load_Top At_Offset_0
0085 020f | | Execute Module,Activate
0086 e011 | | Load 0x0,0x11
0087 e012 | | Load 0x0,0x12
0088 e006 | | Load 0x0,0x6
0089 1b12 | | Execute Package,Field_Read,Field_Number 0x12
008a e210 | | Load 0x1,0x10
008b 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
008c 0387 | | Declare_Variable Package
008d 00d8 | | Load_Top At_Offset_0
008e 020f | | Execute Module,Activate
008f 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0091 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
0093 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0095 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
0097 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
0099 1d13 | | Execute_Immediate Reference_Lex_1,0x13
009a 00c7 | | Action Elaborate_Subprogram
009b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
009c 00c7 | | Action Elaborate_Subprogram
009d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
009e 00c7 | | Action Elaborate_Subprogram
009f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a0 00c7 | | Action Elaborate_Subprogram
00a1 BODY_0008:
00a1 00bc | | Action Signal_Activated
00a2 00bb | | Action Signal_Completion
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00db | | Load_Top At_Offset_3
00ac 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ad 00db | | Load_Top At_Offset_3
00ae 821d | | Call 0x1,0x1d
00af 00db | | Load_Top At_Offset_3
00b0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00b1 00db | | Load_Top At_Offset_3
00b2 e21f | | Load 0x1,0x1f
00b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b4 00db | | Load_Top At_Offset_3
00b5 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b7 00db | | Load_Top At_Offset_3
00b8 821d | | Call 0x1,0x1d
00b9 00db | | Load_Top At_Offset_3
00ba 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00bc 00db | | Load_Top At_Offset_3
00bd 821d | | Call 0x1,0x1d
00be 00db | | Load_Top At_Offset_3
00bf 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c1 00db | | Load_Top At_Offset_3
00c2 821d | | Call 0x1,0x1d
00c3 00db | | Load_Top At_Offset_3
00c4 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00c5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00c6 00db | | Load_Top At_Offset_3
00c7 821d | | Call 0x1,0x1d
00c8 00db | | Load_Top At_Offset_3
00c9 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00ca 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
00cb 00db | | Load_Top At_Offset_3
00cc 8225 | % | Call 0x1,0x25
00cd 00db | | Load_Top At_Offset_3
00ce 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00cf 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
00d0 00db | | Load_Top At_Offset_3
00d1 8225 | % | Call 0x1,0x25
00d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e1 | | .CONST 0x00e1 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0004 | | .CONST 0x0004 ; Number of locals
00db INIT_00d8:
00db e006 | | Load 0x0,0x6
00dc 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00dd e006 | | Load 0x0,0x6
00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00df e006 | | Load 0x0,0x6
00e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e1 BODY_00d8:
00e1 e005 | | Load 0x0,0x5
00e2 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00e3 e5fe | | Load 0x2,-0x2
00e4 e5ff | | Load 0x2,-0x1
00e5 821e | | Call 0x1,0x1e
00e6 005b | [ | Store_Top Discrete,At_Offset_3
00e7 e21f | | Load 0x1,0x1f
00e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e9 e5fe | | Load 0x2,-0x2
00ea e5ff | | Load 0x2,-0x1
00eb e21f | | Load 0x1,0x1f
00ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ed 005a | Z | Store_Top Discrete,At_Offset_2
00ee 00d9 | | Load_Top At_Offset_1
00ef 0f01 | | Execute_Immediate Equal,0x1
00f0 7003 |p | Jump_Nonzero 0xf4
00f1 e005 | | Load 0x0,0x5
00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f3 0257 | W | Execute Discrete,Raise
00f4 e220 | | Load 0x1,0x20
00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f6 e5fe | | Load 0x2,-0x2
00f7 e5ff | | Load 0x2,-0x1
00f8 e220 | | Load 0x1,0x20
00f9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fa 0059 | Y | Store_Top Discrete,At_Offset_1
00fb 00d8 | | Load_Top At_Offset_0
00fc 6815 |h | Jump_Zero 0x112
00fd 4801 |H | Short_Literal 0x1
00fe e006 | | Load 0x0,0x6
00ff 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0100 1c08 | | Execute_Immediate Run_Utility,0x8
0101 00db | | Load_Top At_Offset_3
0102 00d9 | | Load_Top At_Offset_1
0103 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0104 4801 |H | Short_Literal 0x1
0105 e006 | | Load 0x0,0x6
0106 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0107 1c08 | | Execute_Immediate Run_Utility,0x8
0108 e5fe | | Load 0x2,-0x2
0109 e5ff | | Load 0x2,-0x1
010a 8229 | ) | Call 0x1,0x29
010b 00d9 | | Load_Top At_Offset_1
010c 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
010d 00d9 | | Load_Top At_Offset_1
010e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
010f e212 | | Load 0x1,0x12
0110 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0111 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0112 4801 |H | Short_Literal 0x1
0113 e006 | | Load 0x0,0x6
0114 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0115 1c08 | | Execute_Immediate Run_Utility,0x8
0116 00db | | Load_Top At_Offset_3
0117 00d9 | | Load_Top At_Offset_1
0118 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0119 4800 |H | Short_Literal 0x0
011a e006 | | Load 0x0,0x6
011b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
011c 1c08 | | Execute_Immediate Run_Utility,0x8
011d e5fe | | Load 0x2,-0x2
011e e5ff | | Load 0x2,-0x1
011f 8228 | ( | Call 0x1,0x28
0120 00d9 | | Load_Top At_Offset_1
0121 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0122 00d9 | | Load_Top At_Offset_1
0123 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0124 e212 | | Load 0x1,0x12
0125 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0126 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d | - | .CONST 0x012d ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e002 | | Load 0x0,0x2
012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012d BODY_0128:
012d e5fd | | Load 0x2,-0x3
012e 4602 |F | Jump_Case 0x3
012f 7803 |x | Jump 0x133 ; case 0x0
0130 7805 |x | Jump 0x136 ; case 0x1
0131 7800 |x | Jump 0x132 ; case 0x2
0132 08e2 | | Execute_Immediate Raise,0xe2
0133 4801 |H | Short_Literal 0x1
0134 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0135 7802 |x | Jump 0x138
0136 4800 |H | Short_Literal 0x0
0137 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0138 00e1 | | Load_Encached Boolean_Cache
0139 e002 | | Load 0x0,0x2
013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013b e5fc | | Load 0x2,-0x4
013c 00db | | Load_Top At_Offset_3
013d e5fe | | Load 0x2,-0x2
013e e5ff | | Load 0x2,-0x1
013f e002 | | Load 0x0,0x2
0140 180f | | Execute Package,Field_Execute,Field_Number 0xf
0141 c5fb | | Store 0x2,-0x5
0142 c5fa | | Store 0x2,-0x6
0143 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0154 | T | .CONST 0x0154 ; 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 e002 | | Load 0x0,0x2
014d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
014e 0f01 | | Execute_Immediate Equal,0x1
014f 7002 |p | Jump_Nonzero 0x152
0150 4801 |H | Short_Literal 0x1
0151 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0152 4800 |H | Short_Literal 0x0
0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0154 TRAP_0148:
0154 0007 | | Action Break_Optional
0155 4802 |H | Short_Literal 0x2
0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015d 00db | | Load_Top At_Offset_3
015e e223 | # | Load 0x1,0x23
015f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0160 00db | | Load_Top At_Offset_3
0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0162 00db | | Load_Top At_Offset_3
0163 e210 | | Load 0x1,0x10
0164 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0165 4801 |H | Short_Literal 0x1
0166 e5fe | | Load 0x2,-0x2
0167 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0168 00d8 | | Load_Top At_Offset_0
0169 00e3 | | Load_Encached Natural_Cache
016a 0260 | ` | Execute Discrete,In_Type
016b 7001 |p | Jump_Nonzero 0x16d
016c 0801 | | Execute_Immediate Raise,0x1
016d e5fe | | Load 0x2,-0x2
016e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
016f 01cf | | Execute Vector,Slice_Read
0170 00db | | Load_Top At_Offset_3
0171 e210 | | Load 0x1,0x10
0172 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0173 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e223 | # | Load 0x1,0x23
017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017d 4801 |H | Short_Literal 0x1
017e e5ff | | Load 0x2,-0x1
017f e223 | # | Load 0x1,0x23
0180 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0181 e5fd | | Load 0x2,-0x3
0182 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0183 e005 | | Load 0x0,0x5
0184 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0185 e5fe | | Load 0x2,-0x2
0186 e5ff | | Load 0x2,-0x1
0187 e210 | | Load 0x1,0x10
0188 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0189 e5fd | | Load 0x2,-0x3
018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018b e5fd | | Load 0x2,-0x3
018c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
018d 4801 |H | Short_Literal 0x1
018e e5fd | | Load 0x2,-0x3
018f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0190 00d8 | | Load_Top At_Offset_0
0191 00e3 | | Load_Encached Natural_Cache
0192 0260 | ` | Execute Discrete,In_Type
0193 7001 |p | Jump_Nonzero 0x195
0194 0801 | | Execute_Immediate Raise,0x1
0195 00da | | Load_Top At_Offset_2
0196 035b | [ | Declare_Type Array,Constrained
0197 00d0 | | Action Swap_Control
0198 01cd | | Execute Vector,Slice_Reference
0199 00d8 | | Load_Top At_Offset_0
019a e5fe | | Load 0x2,-0x2
019b e5ff | | Load 0x2,-0x1
019c e210 | | Load 0x1,0x10
019d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
019e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a6 | | .CONST 0x01a6 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e006 | | Load 0x0,0x6
01a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01a5 0322 | " | Declare_Variable Record
01a6 BODY_01a0:
01a6 e005 | | Load 0x0,0x5
01a7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01a8 e5fe | | Load 0x2,-0x2
01a9 e5ff | | Load 0x2,-0x1
01aa 821e | | Call 0x1,0x1e
01ab 00d9 | | Load_Top At_Offset_1
01ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ad e005 | | Load 0x0,0x5
01ae 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01af e5fe | | Load 0x2,-0x2
01b0 e5ff | | Load 0x2,-0x1
01b1 821e | | Call 0x1,0x1e
01b2 00d9 | | Load_Top At_Offset_1
01b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b4 00d8 | | Load_Top At_Offset_0
01b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c4 | | .CONST 0x01c4 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0004 | | .CONST 0x0004 ; Number of locals
01bb INIT_01b8:
01bb e006 | | Load 0x0,0x6
01bc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01bd 0322 | " | Declare_Variable Record
01be 00d8 | | Load_Top At_Offset_0
01bf 1c00 | | Execute_Immediate Run_Utility,0x0
01c0 e006 | | Load 0x0,0x6
01c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c2 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
01c4 BODY_01b8:
01c4 00da | | Load_Top At_Offset_2
01c5 e5fe | | Load 0x2,-0x2
01c6 e5ff | | Load 0x2,-0x1
01c7 8226 | & | Call 0x1,0x26
01c8 00d1 | | Pop_Control Pop_Count_1
01c9 e221 | ! | Load 0x1,0x21
01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cb e5fe | | Load 0x2,-0x2
01cc e5ff | | Load 0x2,-0x1
01cd e221 | ! | Load 0x1,0x21
01ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01cf 005a | Z | Store_Top Discrete,At_Offset_2
01d0 8404 | | Call 0x2,0x4
01d1 0831 | 1 | Execute_Immediate Raise,0x31
01d2 0000 0000 | | .BLANK 0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01df | | .CONST 0x01df ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db e006 | | Load 0x0,0x6
01dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01dd 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
01df BODY_01d8:
01df e222 | " | Load 0x1,0x22
01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e1 e5fe | | Load 0x2,-0x2
01e2 e5ff | | Load 0x2,-0x1
01e3 e222 | " | Load 0x1,0x22
01e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e5 005a | Z | Store_Top Discrete,At_Offset_2
01e6 8403 | | Call 0x2,0x3
01e7 0831 | 1 | Execute_Immediate Raise,0x31
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f1 | | .CONST 0x01f1 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb e403 | | Load 0x2,0x3
01ec e006 | | Load 0x0,0x6
01ed 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
01ee 1c08 | | Execute_Immediate Run_Utility,0x8
01ef 00d8 | | Load_Top At_Offset_0
01f0 1c00 | | Execute_Immediate Run_Utility,0x0
01f1 BODY_01e8:
01f1 e402 | | Load 0x2,0x2
01f2 00d9 | | Load_Top At_Offset_1
01f3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f4 e403 | | Load 0x2,0x3
01f5 0f02 | | Execute_Immediate Equal,0x2
01f6 7001 |p | Jump_Nonzero 0x1f8
01f7 7805 |x | Jump 0x1fd
01f8 e5fe | | Load 0x2,-0x2
01f9 e5ff | | Load 0x2,-0x1
01fa 8227 | ' | Call 0x1,0x27
01fb 00d9 | | Load_Top At_Offset_1
01fc 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01fd 00d8 | | Load_Top At_Offset_0
01fe 00cb | | Action Pop_Block_With_Result
01ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e402 | | Load 0x2,0x2
0204 e006 | | Load 0x0,0x6
0205 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0206 1c08 | | Execute_Immediate Run_Utility,0x8
0207 BODY_0200:
0207 e402 | | Load 0x2,0x2
0208 680c |h | Jump_Zero 0x215
0209 e224 | $ | Load 0x1,0x24
020a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020b 00d9 | | Load_Top At_Offset_1
020c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
020d 00d1 | | Pop_Control Pop_Count_1
020e e5fe | | Load 0x2,-0x2
020f e5ff | | Load 0x2,-0x1
0210 e224 | $ | Load 0x1,0x24
0211 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0212 00d9 | | Load_Top At_Offset_1
0213 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0214 7805 |x | Jump 0x21a
0215 e5fe | | Load 0x2,-0x2
0216 e5ff | | Load 0x2,-0x1
0217 8227 | ' | Call 0x1,0x27
0218 00d9 | | Load_Top At_Offset_1
0219 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
021a 00d8 | | Load_Top At_Offset_0
021b 00cb | | Action Pop_Block_With_Result
021c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug Table
0220 ; --------------------------------------------------------------------------------------
0220 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc883,0x0000,0x0001,0x0000
0226 0001 3ab0 | : | .XXX[0xbc]
0228 0001 4290 | B |
022a 0001 4a70 | Jp|
022c 0001 5250 | RP|
022e 0001 5a30 | Z0|
0230 0001 6210 | b |
0232 0001 69f0 | i |
0234 0001 71d0 | q |
0236 0001 79b0 | y |
0238 0001 8190 | |
023a 0001 8970 | p|
023c 0001 9150 | P|
023e 0001 9930 | 0|
0240 0001 a110 | |
0242 0001 a8f0 | |
0244 0001 b0d0 | |
0246 0001 b8b0 | |
0248 0001 c090 | |
024a 0001 c870 | p|
024c 0001 d050 | P|
024e 0001 d830 | 0|
0250 0001 e010 | |
0252 0001 e7f0 | |
0254 0001 efd0 | |
0256 0001 f7b0 | |
0258 0001 ff90 | |
025a 0002 0770 | p|
025c 0002 0f50 | P|
025e 0002 1730 | 0|
0260 0002 1f10 | |
0262 0002 26f0 | & |
0264 0002 2ed0 | . |
0266 0002 36b0 | 6 |
0268 0002 3e90 | > |
026a 0002 4670 | Fp|
026c 0002 4e50 | NP|
026e 0002 5630 | V0|
0270 0002 5e10 | ^ |
0272 0002 65f0 | e |
0274 0002 6dd0 | m |
0276 0002 75b0 | u |
0278 0002 7d90 | } |
027a 0002 8570 | p|
027c 0002 8d50 | P|
027e 0002 9530 | 0|
0280 0002 9d10 | |
0282 0002 a4f0 | |
0284 0002 acd0 | |
0286 0002 b4b0 | |
0288 0002 bc90 | |
028a 0002 c470 | p|
028c 0002 cc50 | P|
028e 0002 d430 | 0|
0290 0002 dc10 | |
0292 0002 e3f0 | |
0294 0002 ebd0 | |
0296 0002 f3b0 | |
0298 0002 fb90 | |
029a 0003 0370 | p|
029c 0003 0b50 | P|
029e 0003 1330 | 0|
02a0 0003 1b10 | |
02a2 0003 22f0 | " |
02a4 0003 2ad0 | * |
02a6 0003 32b0 | 2 |
02a8 0003 3a90 | : |
02aa 0003 4270 | Bp|
02ac 0003 4a50 | JP|
02ae 0003 5230 | R0|
02b0 0003 5a10 | Z |
02b2 0003 61f0 | a |
02b4 0003 69d0 | i |
02b6 0003 71b0 | q |
02b8 0003 7990 | y |
02ba 0003 8170 | p|
02bc 0003 8950 | P|
02be 0003 9130 | 0|
02c0 0003 9910 | |
02c2 0003 a0f0 | |
02c4 0003 a8d0 | |
02c6 0003 b0b0 | |
02c8 0003 b890 | |
02ca 0003 c070 | p|
02cc 0003 c850 | P|
02ce 0003 d030 | 0|
02d0 0003 d810 | |
02d2 0003 dff0 | |
02d4 0000 0000 | |
02d6 0003 e7d0 | |
02d8 0003 efb0 | |
02da 0003 f790 | |
02dc 0003 ff70 | p|
02de 0004 0750 | P|
02e0 0004 0f30 | 0|
02e2 0000 0000 | | .BLANK 0000[0x33]
0315 0020 | | .XXX[0x1]
0316 0000 0000 | | .BLANK 0000[0x5]
031b 1bc0 0000 | | .XXX[0xe5]
031d 0100 0000 | |
031f 0100 0100 | |
0321 0000 0000 | |
0323 0d00 0000 | |
0325 0600 0000 | |
0327 0400 0400 | |
0329 0000 0000 | |
032b 3800 0000 |8 |
032d 2000 0000 | |
032f 1000 1000 | |
0331 0000 0000 | |
0333 f000 0000 | |
0335 c000 0000 | |
0337 4000 4000 |@ @ |
0339 0000 0004 | |
033b 0000 0003 | |
033d 8000 0001 | |
033f 0001 0000 | |
0341 0000 0011 | |
0343 0000 0010 | |
0345 0000 0004 | |
0347 0004 0000 | |
0349 0000 0048 | H|
034b 0000 0048 | H|
034d 0000 0010 | |
034f 0010 0000 | |
0351 0000 0130 | 0|
0353 0000 0140 | @|
0355 0000 0040 | @|
0357 0040 0000 | @ |
0359 0000 0500 | |
035b 0000 0580 | |
035d 0000 0100 | |
035f 0100 0000 | |
0361 0000 1500 | |
0363 0000 1800 | |
0365 0000 0400 | |
0367 0400 0000 | |
0369 0000 5800 | X |
036b 0000 6800 | h |
036d 0000 1000 | |
036f 1000 0000 | |
0371 0001 7000 | p |
0373 0001 c000 | |
0375 0000 4000 | @ |
0377 4000 0000 |@ |
0379 0006 0000 | |
037b 0007 8000 | |
037d 0001 0001 | |
037f 0000 0000 | |
0381 0019 0000 | |
0383 0020 0000 | |
0385 0004 0004 | |
0387 0000 0000 | |
0389 0068 0000 | h |
038b 0088 0000 | |
038d 0010 0010 | |
038f 0000 0000 | |
0391 01b0 0000 | |
0393 0240 0000 | @ |
0395 0040 0040 | @ @|
0397 0000 0000 | |
0399 0700 0000 | |
039b 0980 0000 | |
039d 0100 0100 | |
039f 0000 0000 | |
03a1 1d00 0000 | |
03a3 2800 0000 |( |
03a5 0400 0400 | |
03a7 0000 0000 | |
03a9 7800 0000 |x |
03ab a800 0000 | |
03ad 1000 1000 | |
03af 0000 0001 | |
03b1 f000 0002 | |
03b3 c000 0000 | |
03b5 4000 4000 |@ @ |
03b7 0000 0008 | |
03b9 0000 000b | |
03bb 8000 0001 | |
03bd 0001 0000 | |
03bf 0000 0021 | !|
03c1 0000 0030 | 0|
03c3 0000 0004 | |
03c5 0004 0000 | |
03c7 0000 0088 | |
03c9 0000 00c8 | |
03cb 0000 0010 | |
03cd 0010 0000 | |
03cf 0000 0230 | 0|
03d1 0000 0340 | @|
03d3 0000 0040 | @|
03d5 0040 0000 | @ |
03d7 0000 0900 | |
03d9 0000 0d80 | |
03db 0000 0100 | |
03dd 0100 0000 | |
03df 0000 2500 | % |
03e1 0000 3800 | 8 |
03e3 0000 0400 | |
03e5 0400 0000 | |
03e7 0000 9800 | |
03e9 0000 e800 | |
03eb 0000 1000 | |
03ed 1000 0000 | |
03ef 0002 7000 | p |
03f1 0003 c000 | |
03f3 0000 4000 | @ |
03f5 4000 0000 |@ |
03f7 000a 0000 | |
03f9 000f 8000 | |
03fb 0001 0001 | |
03fd 0000 0000 | |
03ff 0029 | ) |