|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0288 | | .CONST 0x0288 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x02d2,0x8000,0x0000,0x002c,0xb634,0x0000,0x0015
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 005e | ^ | .CONST 0x005e ; Address of begin
0019 00c5 | | .CONST 0x00c5 ; Address of exception handler
001a 0016 | | .CONST 0x0016 ; Number of locals
001b INIT_0018:
001b 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x1 = .DEBUG 0x001b,0x02d4,0x8001,0x0000,0x002c,0xb634,0x0000,0x0015
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d 02a0 | | Declare_Subprogram Null_Subprogram
001e 03ad | | Declare_Type Heap_Access,Defined
001f 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1f,0xfffd
0020 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x3 = 0x20,0xfffc
0021 0007 | | Action Break_Optional
0022 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0x4 = 0x22,0xfffb
0023 0007 | | Action Break_Optional
0024 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x24,0xfffa
0025 0007 | | Action Break_Optional ; Debug Table 0x1.0x6 = 0x25,0xfff9
0026 0007 | | Action Break_Optional ; Debug Table 0x1.0x7 = 0x26,0xfff8
0027 0007 | | Action Break_Optional ; Debug Table 0x1.0x8 = 0x27,0xfff7
0028 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x9 = 0x28,0xfff6
0029 1b17 | | Execute Package,Field_Read,Field_Number 0x17
002a 0269 | i | Execute Discrete,Last
002b 09ff | | Execute_Immediate Binary_Scale,-0x1
002c e001 | | Load 0x0,0x1
002d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
002e 03f1 | | Declare_Variable Discrete,With_Value
002f 61ac |a | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x002cb634} ; Debug Table 0x1.0xa = 0x2f,0xfff5
0030 4885 |H | Short_Literal 0x85
0031 00e1 | | Load_Encached Boolean_Cache
0032 e403 | | Load 0x2,0x3
0033 e002 | | Load 0x0,0x2
0034 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0035 0387 | | Declare_Variable Package
0036 00d8 | | Load_Top At_Offset_0
0037 020f | | Execute Module,Activate
0038 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xb = 0x38,0xfff4
0039 1919 | | Execute Package,Field_Reference,Field_Number 0x19
003a 00c6 | | Action Check_Subprogram_Elaborated
003b 00e1 | | Load_Encached Boolean_Cache
003c e403 | | Load 0x2,0x3
003d 619e |a | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x002cb634}
003e 488e |H | Short_Literal 0x8e
003f 480c |H | Short_Literal 0xc
0040 0007 | | Action Break_Optional
0041 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0xc = 0x41,0xfff3
0042 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xd = 0x42,0xfff2
0043 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0044 02c7 | | Declare_Variable Any
0045 00d8 | | Load_Top At_Offset_0
0046 1c00 | | Execute_Immediate Run_Utility,0x0
0047 6194 |a | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x002cb634} ; Debug Table 0x1.0xe = 0x47,0xfff1
0048 48a7 |H | Short_Literal 0xa7
0049 e004 | | Load 0x0,0x4
004a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004b e003 | | Load 0x0,0x3
004c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
004d 0387 | | Declare_Variable Package
004e 00d8 | | Load_Top At_Offset_0
004f 020f | | Execute Module,Activate
0050 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call ; Debug Table 0x1.0xf = 0x50,0xfff0
0052 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call ; Debug Table 0x1.0x10 = 0x52,0xffef
0054 029f 010b | | Declare_Subprogram INIT_0108,For_Call ; Debug Table 0x1.0x11 = 0x54,0xffee
0056 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call ; Debug Table 0x1.0x12 = 0x56,0xffed
0058 029f 012b | +| Declare_Subprogram INIT_0128,For_Call ; Debug Table 0x1.0x13 = 0x58,0xffec
005a 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call ; Debug Table 0x1.0x14 = 0x5a,0xffeb
005c 029f 019b | | Declare_Subprogram INIT_0198,For_Call ; Debug Table 0x1.0x15 = 0x5c,0xffea
005e BODY_0018:
005e 0092 01e0 | | Action Push_String_Extended,0x1e0 ; "Object Package Conversion Routine Test"
; Debug Table 0x1.0x16 = 0x5e,0x1
0060 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "Convert"
0062 e005 | | Load 0x0,0x5
0063 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0064 8410 | | Call 0x2,0x10 ; Debug Table 0x1.0x17 = 0x64,0x2
0065 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x1.0x18 = 0x65,0x3
0066 48df |H | Short_Literal 0xdf
0067 e006 | | Load 0x0,0x6
0068 180d | | Execute Package,Field_Execute,Field_Number 0xd
0069 c402 | | Store 0x2,0x2
006a e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x19 = 0x6a,0x4
006b e402 | | Load 0x2,0x2
006c 039c | | Declare_Variable Heap_Access,By_Allocation
006d a404 | | Store_Unchecked 0x2,0x4
006e 0007 | | Action Break_Optional ; Debug Table 0x1.0x1a = 0x6e,0x5
006f e406 | | Load 0x2,0x6 ; Debug Table 0x1.0x1b = 0x6f,0x6
0070 e402 | | Load 0x2,0x2
0071 8413 | | Call 0x2,0x13
0072 e406 | | Load 0x2,0x6 ; Debug Table 0x1.0x1c = 0x72,0x7
0073 e402 | | Load 0x2,0x2
0074 e408 | | Load 0x2,0x8
0075 e409 | | Load 0x2,0x9
0076 480a |H | Short_Literal 0xa
0077 4802 |H | Short_Literal 0x2
0078 0099 | | Action Reference_Dynamic
0079 e002 | | Load 0x0,0x2
007a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007b a405 | | Store_Unchecked 0x2,0x5
007c 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "Testing Conversions to/from [Segment,Offset]"
; Debug Table 0x1.0x1d = 0x7c,0x8
007e e005 | | Load 0x0,0x5
007f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0080 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x1e = 0x80,0x9
0081 8414 | | Call 0x2,0x14
0082 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x1f = 0x82,0xa
0083 8414 | | Call 0x2,0x14
0084 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "Destroying Temp Heap and Retrying Conversions"
; Debug Table 0x1.0x20 = 0x84,0xb
0086 e005 | | Load 0x0,0x5
0087 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0088 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x21 = 0x88,0xc
0089 e006 | | Load 0x0,0x6
008a 180f | | Execute Package,Field_Execute,Field_Number 0xf
008b e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x22 = 0x8b,0xd
008c 8414 | | Call 0x2,0x14
008d e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x23 = 0x8d,0xe
008e 8414 | | Call 0x2,0x14
008f 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "Testing Conversions to/from Long_Integer"
; Debug Table 0x1.0x24 = 0x8f,0xf
0091 e005 | | Load 0x0,0x5
0092 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0093 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "Testing 0 .. 100"
; Debug Table 0x1.0x25 = 0x93,0x10
0095 e005 | | Load 0x0,0x5
0096 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0097 4864 |Hd | Short_Literal 0x64 ; Debug Table 0x1.0x26 = 0x97,0x11
0098 4800 |H | Short_Literal 0x0
0099 0007 | | Action Break_Optional
009a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x27 = 0x9a,0x12
009b 8415 | | Call 0x2,0x15
009c 3ffd |? | Loop_Increasing 0x9a
009d 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "Testing boundary conditions"
; Debug Table 0x1.0x28 = 0x9d,0x13
009f e005 | | Load 0x0,0x5
00a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a1 480b |H | Short_Literal 0xb ; Debug Table 0x1.0x29 = 0xa1,0x14
00a2 4801 |H | Short_Literal 0x1
00a3 0007 | | Action Break_Optional
00a4 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x2a = 0xa4,0x15
00a5 4820 |H | Short_Literal 0x20
00a6 026d | m | Execute Discrete,Exponentiate
00a7 00d9 | | Load_Top At_Offset_1
00a8 0271 | q | Execute Discrete,Times
00a9 8415 | | Call 0x2,0x15
00aa 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x2b = 0xaa,0x16
00ab 4820 |H | Short_Literal 0x20
00ac 026d | m | Execute Discrete,Exponentiate
00ad 00d9 | | Load_Top At_Offset_1
00ae 0271 | q | Execute Discrete,Times
00af e406 | | Load 0x2,0x6
00b0 0273 | s | Execute Discrete,Plus
00b1 8415 | | Call 0x2,0x15
00b2 3ff1 |? | Loop_Increasing 0xa4
00b3 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x2c = 0xb3,0x17
00b4 6123 |a# | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x0000ffff}
00b5 0910 | | Execute_Immediate Binary_Scale,0x10
00b6 611d |a | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x0000fffe}
00b7 0273 | s | Execute Discrete,Plus
00b8 8416 | | Call 0x2,0x16
00b9 8415 | | Call 0x2,0x15
00ba e406 | | Load 0x2,0x6 ; Debug Table 0x1.0x2d = 0xba,0x18
00bb 611c |a | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x0000ffff}
00bc 0910 | | Execute_Immediate Binary_Scale,0x10
00bd 6116 |a | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x0000fffe}
00be 0273 | s | Execute Discrete,Plus
00bf 8416 | | Call 0x2,0x16
00c0 8415 | | Call 0x2,0x15
00c1 8412 | | Call 0x2,0x12 ; Debug Table 0x1.0x2e = 0xc1,0x19
00c2 e005 | | Load 0x0,0x5 ; Debug Table 0x1.0x2f = 0xc2,0x1a
00c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c5 TRAP_0018:
00c5 0007 | | Action Break_Optional
00c6 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "Unhandled Exception: "
; Debug Table 0x1.0x30 = 0xc6,0x1b
00c8 e007 | | Load 0x0,0x7
00c9 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ca 01cc | | Execute Vector,Catenate
00cb e005 | | Load 0x0,0x5
00cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cd e005 | | Load 0x0,0x5 ; Debug Table 0x1.0x31 = 0xcd,0x1c
00ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5 | | .CONST 0x00d5 ; Address of begin
00d1 00df | | .CONST 0x00df ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "test_object_conversions.data"
; Debug Table 0x2 = .DEBUG 0x00d3,0x033a,0x0001,0x0000,0x002c,0xb634,0x0000,0x00b1
; Debug Table 0x2.0x0 = 0xd3,0xffff
00d5 BODY_00d0:
00d5 e40e | | Load 0x2,0xe ; Debug Table 0x2.0x1 = 0xd5,0x1
00d6 4865 |He | Short_Literal 0x65
00d7 00da | | Load_Top At_Offset_2
00d8 4800 |H | Short_Literal 0x0
00d9 e003 | | Load 0x0,0x3
00da 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00db c40e | | Store 0x2,0xe
00dc 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x2 = 0xdc,0x2
00dd a40d | | Store_Unchecked 0x2,0xd
00de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00df TRAP_00d0:
00df 00d8 | | Load_Top At_Offset_0
00e0 0107 | | Execute Exception,Get_Name
00e1 4920 |I | Short_Literal 0x120
00e2 492f |I/ | Short_Literal 0x12f
00e3 0262 | b | Execute Discrete,In_Range
00e4 680a |h | Jump_Zero 0xef
00e5 e40e | | Load 0x2,0xe ; Debug Table 0x2.0x3 = 0xe5,0x3
00e6 4865 |He | Short_Literal 0x65
00e7 00db | | Load_Top At_Offset_3
00e8 4801 |H | Short_Literal 0x1
00e9 e003 | | Load 0x0,0x3
00ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00eb c40e | | Store 0x2,0xe
00ec 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0xec,0x4
00ed a40d | | Store_Unchecked 0x2,0xd
00ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ef 0100 | | Execute Exception,Raise
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e40d | | Load 0x2,0xd ; Debug Table 0x3 = .DEBUG 0x00f3,0x0346,0x0001,0x0000,0x002c,0xb634,0x0000,0x00df
; Debug Table 0x3.0x0 = 0xf3,0x1
00f4 680a |h | Jump_Zero 0xff
00f5 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x1 = 0xf5,0x2
00f6 e40e | | Load 0x2,0xe
00f7 e40f | | Load 0x2,0xf
00f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f9 00db | | Load_Top At_Offset_3
00fa 016f | o | Execute Variant_Record,Equal
00fb 7002 |p | Jump_Nonzero 0xfe
00fc 4887 |H | Short_Literal 0x87
00fd 0257 | W | Execute Discrete,Raise
00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x3.0x2 = 0xfe,0x3
00ff 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0xff,0x4
0100 e40e | | Load 0x2,0xe
0101 e40f | | Load 0x2,0xf
0102 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e40d | | Load 0x2,0xd ; Debug Table 0x4 = .DEBUG 0x010b,0x0350,0x0001,0x0000,0x002c,0xb634,0x0000,0x0108
; Debug Table 0x4.0x0 = 0x10b,0x1
010c 6808 |h | Jump_Zero 0x115
010d 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1 = 0x10d,0x2
010e e40e | | Load 0x2,0xe
010f e003 | | Load 0x0,0x3
0110 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0111 7002 |p | Jump_Nonzero 0x114
0112 4887 |H | Short_Literal 0x87
0113 0257 | W | Execute Discrete,Raise
0114 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x4.0x2 = 0x114,0x3
0115 e40e | | Load 0x2,0xe ; Debug Table 0x4.0x3 = 0x115,0x4
0116 4801 |H | Short_Literal 0x1
0117 e003 | | Load 0x0,0x3
0118 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0119 c40e | | Store 0x2,0xe
011a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x0123,0x035a,0x0001,0x0000,0x002c,0xb634,0x0000,0x0126
; Debug Table 0x5.0x0 = 0x123,0x1
0124 00db | | Load_Top At_Offset_3
0125 e002 | | Load 0x0,0x2
0126 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0127 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0143 | C | .CONST 0x0143 ; Address of begin
0129 0160 | ` | .CONST 0x0160 ; Address of exception handler
012a 0006 | | .CONST 0x0006 ; Number of locals
012b INIT_0128:
012b e004 | | Load 0x0,0x4 ; Debug Table 0x6 = .DEBUG 0x012b,0x035e,0x0001,0x0000,0x002c,0xb634,0x0000,0x0143
; Debug Table 0x6.0x0 = 0x12b,0xffff
012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012d 02ff | | Declare_Variable Variant_Record
012e 00db | | Load_Top At_Offset_3
012f 0217 | | Execute Heap_Access,All_Reference
0130 012d | - | Execute Any,Address
0131 e004 | | Load 0x0,0x4
0132 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0133 00d9 | | Load_Top At_Offset_1
0134 016d | m | Execute Variant_Record,Structure_Write
0135 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x6.0x1 = 0x135,0xfffe
0136 e7ff | | Load 0x3,-0x1
0137 e407 | | Load 0x2,0x7
0138 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0139 0031 | 1 | Store_Top Heap_Access,At_Offset_1
013a e7ff | | Load 0x3,-0x1 ; Debug Table 0x6.0x2 = 0x13a,0xfffd
013b e407 | | Load 0x2,0x7
013c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
013d e001 | | Load 0x0,0x1
013e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
013f 03f1 | | Declare_Variable Discrete,With_Value
0140 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x6.0x3 = 0x140,0xfffc
0141 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x4 = 0x141,0xfffb
0142 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0143 BODY_0128:
0143 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x5 = 0x143,0x1
0144 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0145 00f0 | | Load_Encached Segment_Cache
0146 e602 | | Load 0x3,0x2
0147 e004 | | Load 0x0,0x4
0148 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0149 0033 | 3 | Store_Top Heap_Access,At_Offset_3
014a 0059 | Y | Store_Top Discrete,At_Offset_1
014b 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x6 = 0x14b,0x2
014c 00da | | Load_Top At_Offset_2
014d 021f | | Execute Heap_Access,Equal
014e 00db | | Load_Top At_Offset_3
014f 00da | | Load_Top At_Offset_2
0150 027f | | Execute Discrete,Equal
0151 0279 | y | Execute Discrete,And
0152 7002 |p | Jump_Nonzero 0x155
0153 4887 |H | Short_Literal 0x87
0154 0257 | W | Execute Discrete,Raise
0155 e602 | | Load 0x3,0x2 ; Debug Table 0x6.0x7 = 0x155,0x3
0156 e004 | | Load 0x0,0x4
0157 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0158 e004 | | Load 0x0,0x4
0159 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015a e602 | | Load 0x3,0x2
015b 016f | o | Execute Variant_Record,Equal
015c 7002 |p | Jump_Nonzero 0x15f
015d 4887 |H | Short_Literal 0x87
015e 0257 | W | Execute Discrete,Raise
015f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0160 TRAP_0128:
0160 0007 | | Action Break_Optional
0161 0092 01e9 | | Action Push_String_Extended,0x1e9 ; " Exception: "
; Debug Table 0x6.0x8 = 0x161,0x4
0163 e007 | | Load 0x0,0x7
0164 180d | | Execute Package,Field_Execute,Field_Number 0xd
0165 01cc | | Execute Vector,Catenate
0166 0092 01ea | | Action Push_String_Extended,0x1ea ; " during verification of "
0168 01cc | | Execute Vector,Catenate
0169 e602 | | Load 0x3,0x2
016a e004 | | Load 0x0,0x4
016b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016c 01cc | | Execute Vector,Catenate
016d e005 | | Load 0x0,0x5
016e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017b | { | .CONST 0x017b ; Address of begin
0171 0186 | | .CONST 0x0186 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e004 | | Load 0x0,0x4 ; Debug Table 0x7 = .DEBUG 0x0173,0x0372,0x0001,0x0000,0x002c,0xb634,0x0000,0x01d0
; Debug Table 0x7.0x0 = 0x173,0xffff
0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0175 02ff | | Declare_Variable Variant_Record
0176 00db | | Load_Top At_Offset_3
0177 e004 | | Load 0x0,0x4
0178 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0179 00d9 | | Load_Top At_Offset_1
017a 016d | m | Execute Variant_Record,Structure_Write
017b BODY_0170:
017b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0x17b,0x1
017c 8411 | | Call 0x2,0x11
017d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x17d,0x2
017e e004 | | Load 0x0,0x4
017f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0180 e7ff | | Load 0x3,-0x1
0181 027f | | Execute Discrete,Equal
0182 7002 |p | Jump_Nonzero 0x185
0183 4887 |H | Short_Literal 0x87
0184 0257 | W | Execute Discrete,Raise
0185 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0186 TRAP_0170:
0186 0007 | | Action Break_Optional
0187 0092 01e9 | | Action Push_String_Extended,0x1e9 ; " Exception: "
; Debug Table 0x7.0x3 = 0x187,0x3
0189 e007 | | Load 0x0,0x7
018a 180d | | Execute Package,Field_Execute,Field_Number 0xd
018b 01cc | | Execute Vector,Catenate
018c 0092 01ea | | Action Push_String_Extended,0x1ea ; " during verification of "
018e 01cc | | Execute Vector,Catenate
018f 00da | | Load_Top At_Offset_2
0190 e004 | | Load 0x0,0x4
0191 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0192 01cc | | Execute Vector,Catenate
0193 e005 | | Load 0x0,0x5
0194 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0195 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01c8 | | .CONST 0x01c8 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0008 | | .CONST 0x0008 ; Number of locals
019b INIT_0198:
019b 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x8 = .DEBUG 0x019b,0x037c,0x0002,0x0000,0x002c,0xb634,0x0000,0x0217
; Debug Table 0x8.0x0 = 0x19b,0xffff
019c 02a0 | | Declare_Subprogram Null_Subprogram
019d 4801 |H | Short_Literal 0x1
019e 032d | - | Declare_Type Record,Defined
019f 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x1 = 0x19f,0xfffe
01a0 4802 |H | Short_Literal 0x2
01a1 4820 |H | Short_Literal 0x20
01a2 026d | m | Execute Discrete,Exponentiate
01a3 0aff | | Execute_Immediate Plus,-0x1
01a4 00e5 | | Load_Encached Long_Integer_Cache
01a5 03f8 | | Declare_Type Discrete,Constrained
01a6 4800 |H | Short_Literal 0x0
01a7 4802 |H | Short_Literal 0x2
01a8 4820 |H | Short_Literal 0x20
01a9 026d | m | Execute Discrete,Exponentiate
01aa 0aff | | Execute_Immediate Plus,-0x1
01ab 00e5 | | Load_Encached Long_Integer_Cache
01ac 03f8 | | Declare_Type Discrete,Constrained
01ad 02a0 | | Declare_Subprogram Null_Subprogram
01ae 4802 |H | Short_Literal 0x2
01af 032d | - | Declare_Type Record,Defined
01b0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x2 = 0x1b0,0xfffd
01b1 012c | , | Execute Any,Size
01b2 00d9 | | Load_Top At_Offset_1
01b3 012c | , | Execute Any,Size
01b4 027f | | Execute Discrete,Equal
01b5 7002 |p | Jump_Nonzero 0x1b8
01b6 4887 |H | Short_Literal 0x87
01b7 0257 | W | Execute Discrete,Raise
01b8 e008 | | Load 0x0,0x8 ; Debug Table 0x8.0x3 = 0x1b8,0xfffc
01b9 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
01ba 00c6 | | Action Check_Subprogram_Elaborated
01bb 00d9 | | Load_Top At_Offset_1
01bc 601f |` | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x002cb634}
01bd 4a4a |JJ | Short_Literal 0x24a
01be 4807 |H | Short_Literal 0x7
01bf 0007 | | Action Break_Optional
01c0 e603 | | Load 0x3,0x3 ; Debug Table 0x8.0x4 = 0x1c0,0xfffb
01c1 0322 | " | Declare_Variable Record
01c2 e7ff | | Load 0x3,-0x1
01c3 00d9 | | Load_Top At_Offset_1
01c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c5 e7fe | | Load 0x3,-0x2
01c6 00d9 | | Load_Top At_Offset_1
01c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c8 BODY_0198:
01c8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x5 = 0x1c8,0x1
01c9 012d | - | Execute Any,Address
01ca e604 | | Load 0x3,0x4
01cb 4805 |H | Short_Literal 0x5
01cc 4803 |H | Short_Literal 0x3
01cd 0099 | | Action Reference_Dynamic
01ce e008 | | Load 0x0,0x8
01cf 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
01d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d2 0000 0000 | | .XXX[0x2]
01d4 0000 0000 | | .LITERAL {0x00000000, 0x0000fffe}
01d8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01dc 0000 0000 | | .LITERAL {0x00000000, 0x002cb634}
01e0 ; --------------------------------------------------------------------------------------
01e0 ; STRING TABLE
01e0 ; --------------------------------------------------------------------------------------
01e0 0018 | | .STRTAB 0x0018->0x01ec ; "Object Package Conversion Routine Test"
01e1 003c | < | .STRTAB 0x003c->0x01ff ; "Convert"
01e2 0041 | A | .STRTAB 0x0041->0x0202 ; "Testing Conversions to/from [Segment,Offset]"
01e3 006b | k | .STRTAB 0x006b->0x0218 ; "Destroying Temp Heap and Retrying Conversions"
01e4 0096 | | .STRTAB 0x0096->0x022f ; "Testing Conversions to/from Long_Integer"
01e5 00bc | | .STRTAB 0x00bc->0x0243 ; "Testing 0 .. 100"
01e6 00ca | | .STRTAB 0x00ca->0x024b ; "Testing boundary conditions"
01e7 00e3 | | .STRTAB 0x00e3->0x0258 ; "Unhandled Exception: "
01e8 00f6 | | .STRTAB 0x00f6->0x0263 ; "test_object_conversions.data"
01e9 0110 | | .STRTAB 0x0110->0x0271 ; " Exception: "
01ea 011d | | .STRTAB 0x011d->0x0278 ; " during verification of "
01eb 0133 | 3 | .STREND 0x0133->0x0284
01ec 4f62 6a65 |Obje| .STRTAB_STRINGS
0285 0000 0000 | | .XXX[0x3]
0287 0000 | |
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0003 0009 | | .CONST 0x0003,0x0009
028a 000b 02d2 | | .DEBUG 0x000b,0x02d2,0x8000,0x0000,0x002c,0xb634,0x0000,0x0015
0292 001b 02d4 | | .DEBUG 0x001b,0x02d4,0x8001,0x0000,0x002c,0xb634,0x0000,0x0015
029a 00d3 033a | :| .DEBUG 0x00d3,0x033a,0x0001,0x0000,0x002c,0xb634,0x0000,0x00b1
02a2 00f3 0346 | F| .DEBUG 0x00f3,0x0346,0x0001,0x0000,0x002c,0xb634,0x0000,0x00df
02aa 010b 0350 | P| .DEBUG 0x010b,0x0350,0x0001,0x0000,0x002c,0xb634,0x0000,0x0108
02b2 0123 035a | # Z| .DEBUG 0x0123,0x035a,0x0001,0x0000,0x002c,0xb634,0x0000,0x0126
02ba 012b 035e | + ^| .DEBUG 0x012b,0x035e,0x0001,0x0000,0x002c,0xb634,0x0000,0x0143
02c2 0173 0372 | s r| .DEBUG 0x0173,0x0372,0x0001,0x0000,0x002c,0xb634,0x0000,0x01d0
02ca 019b 037c | || .DEBUG 0x019b,0x037c,0x0002,0x0000,0x002c,0xb634,0x0000,0x0217
02d2 ; --------------------------------------------------------------------------------------
02d2 ; Debug3 Subtable 0x0
02d2 ; --------------------------------------------------------------------------------------
02d2 0000 0000 | | .DBG3TAB 0x0000,0x0000
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug3 Subtable 0x1
02d4 ; --------------------------------------------------------------------------------------
02d4 0016 001c | | .DBG3TAB 0x0016,0x001c
02d6 001b ffff | | .CONST 0x001b,0xffff
02d8 001c fffe | | .CONST 0x001c,0xfffe
02da 001f fffd | | .CONST 0x001f,0xfffd
02dc 0020 fffc | | .CONST 0x0020,0xfffc
02de 0022 fffb | " | .CONST 0x0022,0xfffb
02e0 0024 fffa | $ | .CONST 0x0024,0xfffa
02e2 0025 fff9 | % | .CONST 0x0025,0xfff9
02e4 0026 fff8 | & | .CONST 0x0026,0xfff8
02e6 0027 fff7 | ' | .CONST 0x0027,0xfff7
02e8 0028 fff6 | ( | .CONST 0x0028,0xfff6
02ea 002f fff5 | / | .CONST 0x002f,0xfff5
02ec 0038 fff4 | 8 | .CONST 0x0038,0xfff4
02ee 0041 fff3 | A | .CONST 0x0041,0xfff3
02f0 0042 fff2 | B | .CONST 0x0042,0xfff2
02f2 0047 fff1 | G | .CONST 0x0047,0xfff1
02f4 0050 fff0 | P | .CONST 0x0050,0xfff0
02f6 0052 ffef | R | .CONST 0x0052,0xffef
02f8 0054 ffee | T | .CONST 0x0054,0xffee
02fa 0056 ffed | V | .CONST 0x0056,0xffed
02fc 0058 ffec | X | .CONST 0x0058,0xffec
02fe 005a ffeb | Z | .CONST 0x005a,0xffeb
0300 005c ffea | \ | .CONST 0x005c,0xffea
0302 005e 0001 | ^ | .CONST 0x005e,0x0001
0304 0064 0002 | d | .CONST 0x0064,0x0002
0306 0065 0003 | e | .CONST 0x0065,0x0003
0308 006a 0004 | j | .CONST 0x006a,0x0004
030a 006e 0005 | n | .CONST 0x006e,0x0005
030c 006f 0006 | o | .CONST 0x006f,0x0006
030e 0072 0007 | r | .CONST 0x0072,0x0007
0310 007c 0008 | | | .CONST 0x007c,0x0008
0312 0080 0009 | | .CONST 0x0080,0x0009
0314 0082 000a | | .CONST 0x0082,0x000a
0316 0084 000b | | .CONST 0x0084,0x000b
0318 0088 000c | | .CONST 0x0088,0x000c
031a 008b 000d | | .CONST 0x008b,0x000d
031c 008d 000e | | .CONST 0x008d,0x000e
031e 008f 000f | | .CONST 0x008f,0x000f
0320 0093 0010 | | .CONST 0x0093,0x0010
0322 0097 0011 | | .CONST 0x0097,0x0011
0324 009a 0012 | | .CONST 0x009a,0x0012
0326 009d 0013 | | .CONST 0x009d,0x0013
0328 00a1 0014 | | .CONST 0x00a1,0x0014
032a 00a4 0015 | | .CONST 0x00a4,0x0015
032c 00aa 0016 | | .CONST 0x00aa,0x0016
032e 00b3 0017 | | .CONST 0x00b3,0x0017
0330 00ba 0018 | | .CONST 0x00ba,0x0018
0332 00c1 0019 | | .CONST 0x00c1,0x0019
0334 00c2 001a | | .CONST 0x00c2,0x001a
0336 00c6 001b | | .CONST 0x00c6,0x001b
0338 00cd 001c | | .CONST 0x00cd,0x001c
033a ; --------------------------------------------------------------------------------------
033a ; Debug3 Subtable 0x2
033a ; --------------------------------------------------------------------------------------
033a 0001 0004 | | .DBG3TAB 0x0001,0x0004
033c 00d3 ffff | | .CONST 0x00d3,0xffff
033e 00d5 0001 | | .CONST 0x00d5,0x0001
0340 00dc 0002 | | .CONST 0x00dc,0x0002
0342 00e5 0003 | | .CONST 0x00e5,0x0003
0344 00ec 0004 | | .CONST 0x00ec,0x0004
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug3 Subtable 0x3
0346 ; --------------------------------------------------------------------------------------
0346 0000 0004 | | .DBG3TAB 0x0000,0x0004
0348 00f3 0001 | | .CONST 0x00f3,0x0001
034a 00f5 0002 | | .CONST 0x00f5,0x0002
034c 00fe 0003 | | .CONST 0x00fe,0x0003
034e 00ff 0004 | | .CONST 0x00ff,0x0004
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0x4
0350 ; --------------------------------------------------------------------------------------
0350 0000 0004 | | .DBG3TAB 0x0000,0x0004
0352 010b 0001 | | .CONST 0x010b,0x0001
0354 010d 0002 | | .CONST 0x010d,0x0002
0356 0114 0003 | | .CONST 0x0114,0x0003
0358 0115 0004 | | .CONST 0x0115,0x0004
035a ; --------------------------------------------------------------------------------------
035a ; Debug3 Subtable 0x5
035a ; --------------------------------------------------------------------------------------
035a 0000 0001 | | .DBG3TAB 0x0000,0x0001
035c 0123 0001 | # | .CONST 0x0123,0x0001
035e ; --------------------------------------------------------------------------------------
035e ; Debug3 Subtable 0x6
035e ; --------------------------------------------------------------------------------------
035e 0005 0004 | | .DBG3TAB 0x0005,0x0004
0360 012b ffff | + | .CONST 0x012b,0xffff
0362 0135 fffe | 5 | .CONST 0x0135,0xfffe
0364 013a fffd | : | .CONST 0x013a,0xfffd
0366 0140 fffc | @ | .CONST 0x0140,0xfffc
0368 0141 fffb | A | .CONST 0x0141,0xfffb
036a 0143 0001 | C | .CONST 0x0143,0x0001
036c 014b 0002 | K | .CONST 0x014b,0x0002
036e 0155 0003 | U | .CONST 0x0155,0x0003
0370 0161 0004 | a | .CONST 0x0161,0x0004
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug3 Subtable 0x7
0372 ; --------------------------------------------------------------------------------------
0372 0001 0003 | | .DBG3TAB 0x0001,0x0003
0374 0173 ffff | s | .CONST 0x0173,0xffff
0376 017b 0001 | { | .CONST 0x017b,0x0001
0378 017d 0002 | } | .CONST 0x017d,0x0002
037a 0187 0003 | | .CONST 0x0187,0x0003
037c ; --------------------------------------------------------------------------------------
037c ; Debug3 Subtable 0x8
037c ; --------------------------------------------------------------------------------------
037c 0005 0001 | | .DBG3TAB 0x0005,0x0001
037e 019b ffff | | .CONST 0x019b,0xffff
0380 019f fffe | | .CONST 0x019f,0xfffe
0382 01b0 fffd | | .CONST 0x01b0,0xfffd
0384 01b8 fffc | | .CONST 0x01b8,0xfffc
0386 01c0 fffb | | .CONST 0x01c0,0xfffb
0388 01c8 0001 | | .CONST 0x01c8,0x0001
038a 0000 0000 | | .BLANK 0000[0x76]