|
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_6060f0
└─⟦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 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 000e | | .DEBUG4 0x0004,0x000e,0xf437,0x0000,0x0001,0x0000
0226 0000 00a4 | | .XXX[0x8]
0228 0000 100d | |
022a 1444 0000 | D |
022c 100d 1450 | P|
022e 0000 0000 | | .BLANK 0000[0x1a]
0248 102c 0037 | , 7| .XXX[0x1c]
024a d400 0000 | |
024c 0da0 0404 | |
024e 0020 0001 | |
0250 c000 0000 | |
0252 4080 0000 |@ |
0254 8000 0000 | |
0256 c00a 0000 | |
0258 0002 0000 | |
025a 0080 0000 | |
025c 0440 0000 | @ |
025e 0002 0000 | |
0260 0014 8000 | |
0262 0201 a28c | |
0264 0000 0000 | | .BLANK 0000[0x1d]
0281 0205 8006 | | .XXX[0x23]
0283 fb80 0000 | |
0285 01b4 0080 | |
0287 8004 0000 | |
0289 3800 0000 |8 |
028b 0806 0000 | |
028d 1000 0000 | |
028f 3801 4000 |8 @ |
0291 0000 4000 | @ |
0293 0010 0000 | |
0295 0088 0000 | |
0297 0000 4000 | @ |
0299 0002 9000 | |
029b 0040 344c | @4L|
029d 5000 0040 |P @|
029f 344c 9000 |4L |
02a1 0040 344c | @4L|
02a3 c000 | |
02a4 0000 0000 | | .BLANK 0000[0x16]
02ba 0040 b000 | @ | .XXX[0x23]
02bc df90 0000 | |
02be 0036 8010 | 6 |
02c0 1000 8000 | |
02c2 0700 0000 | |
02c4 0104 8000 | |
02c6 0200 0000 | |
02c8 0700 2800 | ( |
02ca 0000 0800 | |
02cc 0002 0000 | |
02ce 0011 0000 | |
02d0 0000 0800 | |
02d2 0000 5200 | R |
02d4 0008 068a | |
02d6 8a00 0008 | |
02d8 068a 9200 | |
02da 0008 068a | |
02dc 9800 | |
02dd 0000 0000 | | .BLANK 0000[0x16]
02f3 0008 | | .XXX[0x1]
02f4 0000 0000 | | .BLANK 0000[0xd]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]