|
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, 5813_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e0 | | .CONST 0x01e0 ; 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 0052 | R | .CONST 0x0052 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0x8000,0x0000,0x005a,0x6ce5,0x0000,0x000d
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0010 0129 | ) | Execute Any,Make_Visible
0011 4808 |H | Short_Literal 0x8 ; Debug Table 0x0.0x4 = 0x11,0xfffb
0012 6169 |ai | Indirect_Literal Discrete,0x17c,{0x0080400e, 0x00001830}
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0015 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1d,0xfff6
001f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1f,0xfff5
0021 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x21,0xfff4
0023 00bf | | Action Accept_Activation ; Debug Table 0x0.0xc = 0x23,0xfff3
0024 0092 01a6 | | Action Push_String_Extended,0x1a6 ; "Editor_Coupler."
; Debug Table 0x1 = .DEBUG 0x0024,0x0266,0x8000,0x0000,0x005a,0x9415,0x0000,0x0013
; Debug Table 0x1.0x0 = 0x24,0xffff
0026 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x1 = 0x26,0xfffe
0027 e20d | | Load 0x1,0xd
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 4802 |H | Short_Literal 0x2
002a 032d | - | Declare_Type Record,Defined
002b 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x2 = 0x2b,0xfffd
002c 48ff |H | Short_Literal 0xff
002d 00da | | Load_Top At_Offset_2
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f 4801 |H | Short_Literal 0x1
0030 035d | ] | Declare_Type Array,Defined
0031 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x3 = 0x31,0xfffc
0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0033 e20d | | Load 0x1,0xd ; Debug Table 0x1.0x4 = 0x33,0xfffb
0034 0007 | | Action Break_Optional
0035 00da | | Load_Top At_Offset_2 ; Debug Table 0x1.0x5 = 0x35,0xfffa
0036 0337 | 7 | Declare_Variable Array
0037 0007 | | Action Break_Optional ; Debug Table 0x1.0x6 = 0x37,0xfff8
0038 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x7 = 0x38,0xfff7
0039 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
003a 00da | | Load_Top At_Offset_2
003b e217 | | Load 0x1,0x17
003c 4804 |H | Short_Literal 0x4
003d e20e | | Load 0x1,0xe
003e 020e | | Execute Module,Augment_Imports
003f e20e | | Load 0x1,0xe
0040 020d | | Execute Module,Elaborate
0041 0007 | | Action Break_Optional
0042 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call ; Debug Table 0x1.0x8 = 0x42,0xfff6
0044 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x9 = 0x44,0xfff5
0045 00c7 | | Action Elaborate_Subprogram
0046 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xa = 0x46,0xfff4
0047 00c7 | | Action Elaborate_Subprogram
0048 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xb = 0x48,0xfff3
0049 00c7 | | Action Elaborate_Subprogram
004a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xc = 0x4a,0xfff2
004b 00c7 | | Action Elaborate_Subprogram
004c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xd = 0x4c,0xfff1
004d 00c7 | | Action Elaborate_Subprogram
004e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xe = 0x4e,0xfff0
004f 00c7 | | Action Elaborate_Subprogram
0050 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xf = 0x50,0xffef
0051 00c7 | | Action Elaborate_Subprogram
0052 BODY_0008:
0052 00bc | | Action Signal_Activated
0053 00bb | | Action Signal_Completion
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0075 | u | .CONST 0x0075 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x005b,0x0288,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x008f
; Debug Table 0x2.0x0 = 0x5b,0x1
005c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005e e5fb | | Load 0x2,-0x5
005f e5fc | | Load 0x2,-0x4
0060 00ec | | Load_Encached Diana_Tree_Cache
0061 e5fe | | Load 0x2,-0x2
0062 e5ff | | Load 0x2,-0x1
0063 e5fe | | Load 0x2,-0x2
0064 e003 | | Load 0x0,0x3
0065 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0066 821c | | Call 0x1,0x1c
0067 e004 | | Load 0x0,0x4
0068 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0069 00d8 | | Load_Top At_Offset_0
006a e004 | | Load 0x0,0x4
006b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
006c 7003 |p | Jump_Nonzero 0x70
006d e001 | | Load 0x0,0x1
006e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
006f 0257 | W | Execute Discrete,Raise
0070 180f | | Execute Package,Field_Execute,Field_Number 0xf
0071 c5fd | | Store 0x2,-0x3
0072 00d2 | | Pop_Control Pop_Count_2
0073 c5fa | | Store 0x2,-0x6
0074 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0075 TRAP_0058:
0075 e001 | | Load 0x0,0x1
0076 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0077 010f | | Execute Exception,Equal
0078 681b |h | Jump_Zero 0x94
0079 0007 | | Action Break_Optional ; Debug Table 0x2.0x1 = 0x79,0x2
007a 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x2 = 0x7a,0x401
007b a5fd | | Store_Unchecked 0x2,-0x3 ; Debug Table 0x2.0x3 = 0x7b,0x2
007c 0007 | | Action Break_Optional ; Debug Table 0x2.0x4 = 0x7c,0x3
007d e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x5 = 0x7d,0x801
007e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
007f e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x6 = 0x7f,0x3
0080 016d | m | Execute Variant_Record,Structure_Write
0081 0007 | | Action Break_Optional ; Debug Table 0x2.0x7 = 0x81,0x4
0082 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x8 = 0x82,0xc01
0083 1b57 | W | Execute Package,Field_Read,Field_Number 0x57
0084 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x9 = 0x84,0x4
0085 016d | m | Execute Variant_Record,Structure_Write
0086 480d |H | Short_Literal 0xd ; Debug Table 0x2.0xa = 0x86,0x5
0087 a5fa | | Store_Unchecked 0x2,-0x6
0088 e216 | | Load 0x1,0x16 ; Debug Table 0x2.0xb = 0x88,0x6
0089 0092 01a7 | | Action Push_String_Extended,0x1a7 ; "Resolve"
008b 01cc | | Execute Vector,Catenate
008c 0092 01a8 | | Action Push_String_Extended,0x1a8 ; "The object-editors have not been elaborated?!"
008e 480d |H | Short_Literal 0xd
008f e005 | | Load 0x0,0x5
0090 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0091 e005 | | Load 0x0,0x5
0092 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0093 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0094 0007 | | Action Break_Optional ; Debug Table 0x2.0xc = 0x94,0x7
0095 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0xd = 0x95,0x1001
0096 a5fd | | Store_Unchecked 0x2,-0x3 ; Debug Table 0x2.0xe = 0x96,0x7
0097 0007 | | Action Break_Optional ; Debug Table 0x2.0xf = 0x97,0x8
0098 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x10 = 0x98,0x1401
0099 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
009a e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x11 = 0x9a,0x8
009b 016d | m | Execute Variant_Record,Structure_Write
009c 0007 | | Action Break_Optional ; Debug Table 0x2.0x12 = 0x9c,0x9
009d e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x13 = 0x9d,0x1801
009e 1b57 | W | Execute Package,Field_Read,Field_Number 0x57
009f e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x14 = 0x9f,0x9
00a0 016d | m | Execute Variant_Record,Structure_Write
00a1 480d |H | Short_Literal 0xd ; Debug Table 0x2.0x15 = 0xa1,0xa
00a2 a5fa | | Store_Unchecked 0x2,-0x6
00a3 e216 | | Load 0x1,0x16 ; Debug Table 0x2.0x16 = 0xa3,0xb
00a4 0092 01a7 | | Action Push_String_Extended,0x1a7 ; "Resolve"
00a6 01cc | | Execute Vector,Catenate
00a7 0092 01a9 | | Action Push_String_Extended,0x1a9 ; "Object Editor returned an exception"
00a9 480d |H | Short_Literal 0xd
00aa e005 | | Load 0x0,0x5
00ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ac e005 | | Load 0x0,0x5
00ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 00c3 | | .CONST 0x00c3 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00b3,0x02b8,0x0002,0x0000,0x005a,0x6ce5,0x0000,0x00ba
; Debug Table 0x3.0x0 = 0xb3,0x1
00b4 00db | | Load_Top At_Offset_3
00b5 e003 | | Load 0x0,0x3
00b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b7 821c | | Call 0x1,0x1c
00b8 e004 | | Load 0x0,0x4
00b9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00ba 00d8 | | Load_Top At_Offset_0
00bb e004 | | Load 0x0,0x4
00bc 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00bd 7003 |p | Jump_Nonzero 0xc1
00be e001 | | Load 0x0,0x1
00bf 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00c0 0257 | W | Execute Discrete,Raise
00c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c3 TRAP_00b0:
00c3 e001 | | Load 0x0,0x1
00c4 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00c5 010f | | Execute Exception,Equal
00c6 6803 |h | Jump_Zero 0xca
00c7 e006 | | Load 0x0,0x6 ; Debug Table 0x3.0x1 = 0xc7,0x2
00c8 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00c9 0257 | W | Execute Discrete,Raise
00ca 0100 | | Execute Exception,Raise
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 00e4 | | .CONST 0x00e4 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00d3,0x02be,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00c8
; Debug Table 0x4.0x0 = 0xd3,0x1
00d4 e007 | | Load 0x0,0x7
00d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d6 e003 | | Load 0x0,0x3
00d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d8 821c | | Call 0x1,0x1c
00d9 e004 | | Load 0x0,0x4
00da 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00db 00d8 | | Load_Top At_Offset_0
00dc e004 | | Load 0x0,0x4
00dd 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00de 7003 |p | Jump_Nonzero 0xe2
00df e001 | | Load 0x0,0x1
00e0 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00e1 0257 | W | Execute Discrete,Raise
00e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e4 TRAP_00d0:
00e4 e001 | | Load 0x0,0x1
00e5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00e6 010f | | Execute Exception,Equal
00e7 6801 |h | Jump_Zero 0xe9
00e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x4.0x1 = 0xe8,0x2
00e9 0100 | | Execute Exception,Raise
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0104 | | .CONST 0x0104 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00f3,0x02c4,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00d2
; Debug Table 0x5.0x0 = 0xf3,0x1
00f4 e007 | | Load 0x0,0x7
00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f6 e003 | | Load 0x0,0x3
00f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f8 821c | | Call 0x1,0x1c
00f9 e004 | | Load 0x0,0x4
00fa 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00fb 00d8 | | Load_Top At_Offset_0
00fc e004 | | Load 0x0,0x4
00fd 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00fe 7003 |p | Jump_Nonzero 0x102
00ff e001 | | Load 0x0,0x1
0100 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0101 0257 | W | Execute Discrete,Raise
0102 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0104 TRAP_00f0:
0104 e001 | | Load 0x0,0x1
0105 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0106 010f | | Execute Exception,Equal
0107 6801 |h | Jump_Zero 0x109
0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x1 = 0x108,0x2
0109 0100 | | Execute Exception,Raise
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0124 | $ | .CONST 0x0124 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0113,0x02ca,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00dc
; Debug Table 0x6.0x0 = 0x113,0x1
0114 e007 | | Load 0x0,0x7
0115 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0116 e003 | | Load 0x0,0x3
0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0118 821c | | Call 0x1,0x1c
0119 e004 | | Load 0x0,0x4
011a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
011b 00d8 | | Load_Top At_Offset_0
011c e004 | | Load 0x0,0x4
011d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
011e 7003 |p | Jump_Nonzero 0x122
011f e001 | | Load 0x0,0x1
0120 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0121 0257 | W | Execute Discrete,Raise
0122 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0124 TRAP_0110:
0124 e001 | | Load 0x0,0x1
0125 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0126 010f | | Execute Exception,Equal
0127 6801 |h | Jump_Zero 0x129
0128 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x6.0x1 = 0x128,0x2
0129 0100 | | Execute Exception,Raise
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0144 | D | .CONST 0x0144 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0133,0x02d0,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00e6
; Debug Table 0x7.0x0 = 0x133,0x1
0134 e007 | | Load 0x0,0x7
0135 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0136 e003 | | Load 0x0,0x3
0137 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0138 821c | | Call 0x1,0x1c
0139 e004 | | Load 0x0,0x4
013a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
013b 00d8 | | Load_Top At_Offset_0
013c e004 | | Load 0x0,0x4
013d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
013e 7003 |p | Jump_Nonzero 0x142
013f e001 | | Load 0x0,0x1
0140 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0141 0257 | W | Execute Discrete,Raise
0142 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0143 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0144 TRAP_0130:
0144 e001 | | Load 0x0,0x1
0145 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0146 010f | | Execute Exception,Equal
0147 6801 |h | Jump_Zero 0x149
0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x7.0x1 = 0x148,0x2
0149 0100 | | Execute Exception,Raise
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158 | X | .CONST 0x0158 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x0153,0x02d6,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00f0
; Debug Table 0x8.0x0 = 0x153,0xffff
0154 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0155 e21b | | Load 0x1,0x1b
0156 01d5 | | Execute Vector,Field_Reference
0157 0007 | | Action Break_Optional
0158 BODY_0150:
0158 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x1 = 0x158,0x1
0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015a 00d9 | | Load_Top At_Offset_1
015b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015c 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x2 = 0x15c,0x2
015d 00d9 | | Load_Top At_Offset_1
015e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
015f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168 | h | .CONST 0x0168 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0163,0x02de,0x0002,0x0000,0x005a,0x9415,0x0000,0x00e6
; Debug Table 0x9.0x0 = 0x163,0xffff
0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0165 e21b | | Load 0x1,0x1b
0166 01d5 | | Execute Vector,Field_Reference
0167 0007 | | Action Break_Optional
0168 BODY_0160:
0168 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0x168,0x1
0169 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016a e5ff | | Load 0x2,-0x1
016b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016c 027f | | Execute Discrete,Equal
016d 6803 |h | Jump_Zero 0x171
016e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x16e,0x2
016f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0171 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x3 = 0x171,0x3
0172 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0173 00d9 | | Load_Top At_Offset_1
0174 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0175 e21a | | Load 0x1,0x1a ; Debug Table 0x9.0x4 = 0x175,0x4
0176 00d9 | | Load_Top At_Offset_1
0177 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0178 e21a | | Load 0x1,0x1a ; Debug Table 0x9.0x5 = 0x178,0x5
0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017a 0000 0000 | | .XXX[0x2]
017c 0080 400e | @ | .LITERAL {0x0080400e, 0x00001830}
0180 0186 0004 | | .XXX[0x3]
0182 0015 | |
0183 029c 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible ; Debug Table 0xa = .DEBUG 0x0183,0x02ec,0x4000,0x0000,0x005a,0x6ce5,0x0000,0x001f
; Debug Table 0xa.0x0 = 0x183,0xffff
0185 00bf | | Action Accept_Activation ; Debug Table 0xa.0x1 = 0x185,0xfffe
0186 e001 | | Load 0x0,0x1 ; Debug Table 0xb = .DEBUG 0x0186,0x02f2,0x4000,0x0000,0x005a,0x9415,0x0000,0x00c4
; Debug Table 0xb.0x0 = 0x186,0x1
0187 7016 |p | Jump_Nonzero 0x19e
0188 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x1 = 0x188,0x2
0189 c001 | | Store 0x0,0x1
018a 8215 | | Call 0x1,0x15 ; Debug Table 0xb.0x2 = 0x18a,0x3
018b c002 | | Store 0x0,0x2
018c 00cf | | Action Mark_Auxiliary
018d e003 | | Load 0x0,0x3 ; Debug Table 0xb.0x3 = 0x18d,0x4
018e 01d9 | | Execute Vector,Reverse_Bounds
018f 0007 | | Action Break_Optional
0190 e004 | | Load 0x0,0x4 ; Debug Table 0xb.0x4 = 0x190,0x5
0191 0322 | " | Declare_Variable Record
0192 4800 |H | Short_Literal 0x0
0193 00d9 | | Load_Top At_Offset_1
0194 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0195 e002 | | Load 0x0,0x2
0196 00d9 | | Load_Top At_Offset_1
0197 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0198 00d9 | | Load_Top At_Offset_1
0199 e003 | | Load 0x0,0x3
019a 01d6 | | Execute Vector,Field_Write
019b 00c8 | | Action Pop_Auxiliary_Range
019c 3ff3 |? | Loop_Increasing 0x190
019d 00ce | | Action Pop_Auxiliary
019e 00bc | | Action Signal_Activated
019f 00bb | | Action Signal_Completion
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 00b6 | | Action Make_Scope ; Debug Table 0xc = .DEBUG 0x01a3,0x02fe,0x1002,0x0000,0x005a,0x6ce5,0x0000,0x0082
01a4 020a | | Execute Module,Get_Name
01a5 00ca | | Action Exit_Nullary_Function
01a6 ; --------------------------------------------------------------------------------------
01a6 ; STRING TABLE
01a6 ; --------------------------------------------------------------------------------------
01a6 000a | | .STRTAB 0x000a->0x01ab ; "Editor_Coupler."
01a7 0017 | | .STRTAB 0x0017->0x01b2 ; "Resolve"
01a8 001c | | .STRTAB 0x001c->0x01b6 ; "The object-editors have not been elaborated?!"
01a9 0047 | G | .STRTAB 0x0047->0x01cc ; "Object Editor returned an exception"
01aa 0068 | h | .STREND 0x0068->0x01de
01ab 4564 6974 |Edit| .STRTAB_STRINGS
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0003 000d | | .CONST 0x0003,0x000d
01e2 000b 024a | J| .DEBUG 0x000b,0x024a,0x8000,0x0000,0x005a,0x6ce5,0x0000,0x000d
01ea 0024 0266 | $ f| .DEBUG 0x0024,0x0266,0x8000,0x0000,0x005a,0x9415,0x0000,0x0013
01f2 005b 0288 | [ | .DEBUG 0x005b,0x0288,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x008f
01fa 00b3 02b8 | | .DEBUG 0x00b3,0x02b8,0x0002,0x0000,0x005a,0x6ce5,0x0000,0x00ba
0202 00d3 02be | | .DEBUG 0x00d3,0x02be,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00c8
020a 00f3 02c4 | | .DEBUG 0x00f3,0x02c4,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00d2
0212 0113 02ca | | .DEBUG 0x0113,0x02ca,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00dc
021a 0133 02d0 | 3 | .DEBUG 0x0133,0x02d0,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00e6
0222 0153 02d6 | S | .DEBUG 0x0153,0x02d6,0x0001,0x0000,0x005a,0x6ce5,0x0000,0x00f0
022a 0163 02de | c | .DEBUG 0x0163,0x02de,0x0002,0x0000,0x005a,0x9415,0x0000,0x00e6
0232 0183 02ec | | .DEBUG 0x0183,0x02ec,0x4000,0x0000,0x005a,0x6ce5,0x0000,0x001f
023a 0186 02f2 | | .DEBUG 0x0186,0x02f2,0x4000,0x0000,0x005a,0x9415,0x0000,0x00c4
0242 01a3 02fe | | .DEBUG 0x01a3,0x02fe,0x1002,0x0000,0x005a,0x6ce5,0x0000,0x0082
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x0
024a ; --------------------------------------------------------------------------------------
024a 000d 0000 | | .DBG3TAB 0x000d,0x0000
024c 000b ffff | | .CONST 0x000b,0xffff
024e 000c fffe | | .CONST 0x000c,0xfffe
0250 000d fffd | | .CONST 0x000d,0xfffd
0252 000e fffc | | .CONST 0x000e,0xfffc
0254 0011 fffb | | .CONST 0x0011,0xfffb
0256 0015 fffa | | .CONST 0x0015,0xfffa
0258 0017 fff9 | | .CONST 0x0017,0xfff9
025a 0019 fff8 | | .CONST 0x0019,0xfff8
025c 001b fff7 | | .CONST 0x001b,0xfff7
025e 001d fff6 | | .CONST 0x001d,0xfff6
0260 001f fff5 | | .CONST 0x001f,0xfff5
0262 0021 fff4 | ! | .CONST 0x0021,0xfff4
0264 0023 fff3 | # | .CONST 0x0023,0xfff3
0266 ; --------------------------------------------------------------------------------------
0266 ; Debug3 Subtable 0x1
0266 ; --------------------------------------------------------------------------------------
0266 0010 0000 | | .DBG3TAB 0x0010,0x0000
0268 0024 ffff | $ | .CONST 0x0024,0xffff
026a 0026 fffe | & | .CONST 0x0026,0xfffe
026c 002b fffd | + | .CONST 0x002b,0xfffd
026e 0031 fffc | 1 | .CONST 0x0031,0xfffc
0270 0033 fffb | 3 | .CONST 0x0033,0xfffb
0272 0035 fffa | 5 | .CONST 0x0035,0xfffa
0274 0037 fff8 | 7 | .CONST 0x0037,0xfff8
0276 0038 fff7 | 8 | .CONST 0x0038,0xfff7
0278 0042 fff6 | B | .CONST 0x0042,0xfff6
027a 0044 fff5 | D | .CONST 0x0044,0xfff5
027c 0046 fff4 | F | .CONST 0x0046,0xfff4
027e 0048 fff3 | H | .CONST 0x0048,0xfff3
0280 004a fff2 | J | .CONST 0x004a,0xfff2
0282 004c fff1 | L | .CONST 0x004c,0xfff1
0284 004e fff0 | N | .CONST 0x004e,0xfff0
0286 0050 ffef | P | .CONST 0x0050,0xffef
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug3 Subtable 0x2
0288 ; --------------------------------------------------------------------------------------
0288 0000 0017 | | .DBG3TAB 0x0000,0x0017
028a 005b 0001 | [ | .CONST 0x005b,0x0001
028c 0079 0002 | y | .CONST 0x0079,0x0002
028e 007a 0401 | z | .CONST 0x007a,0x0401
0290 007b 0002 | { | .CONST 0x007b,0x0002
0292 007c 0003 | | | .CONST 0x007c,0x0003
0294 007d 0801 | } | .CONST 0x007d,0x0801
0296 007f 0003 | | .CONST 0x007f,0x0003
0298 0081 0004 | | .CONST 0x0081,0x0004
029a 0082 0c01 | | .CONST 0x0082,0x0c01
029c 0084 0004 | | .CONST 0x0084,0x0004
029e 0086 0005 | | .CONST 0x0086,0x0005
02a0 0088 0006 | | .CONST 0x0088,0x0006
02a2 0094 0007 | | .CONST 0x0094,0x0007
02a4 0095 1001 | | .CONST 0x0095,0x1001
02a6 0096 0007 | | .CONST 0x0096,0x0007
02a8 0097 0008 | | .CONST 0x0097,0x0008
02aa 0098 1401 | | .CONST 0x0098,0x1401
02ac 009a 0008 | | .CONST 0x009a,0x0008
02ae 009c 0009 | | .CONST 0x009c,0x0009
02b0 009d 1801 | | .CONST 0x009d,0x1801
02b2 009f 0009 | | .CONST 0x009f,0x0009
02b4 00a1 000a | | .CONST 0x00a1,0x000a
02b6 00a3 000b | | .CONST 0x00a3,0x000b
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0x3
02b8 ; --------------------------------------------------------------------------------------
02b8 0000 0002 | | .DBG3TAB 0x0000,0x0002
02ba 00b3 0001 | | .CONST 0x00b3,0x0001
02bc 00c7 0002 | | .CONST 0x00c7,0x0002
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0x4
02be ; --------------------------------------------------------------------------------------
02be 0000 0002 | | .DBG3TAB 0x0000,0x0002
02c0 00d3 0001 | | .CONST 0x00d3,0x0001
02c2 00e8 0002 | | .CONST 0x00e8,0x0002
02c4 ; --------------------------------------------------------------------------------------
02c4 ; Debug3 Subtable 0x5
02c4 ; --------------------------------------------------------------------------------------
02c4 0000 0002 | | .DBG3TAB 0x0000,0x0002
02c6 00f3 0001 | | .CONST 0x00f3,0x0001
02c8 0108 0002 | | .CONST 0x0108,0x0002
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x6
02ca ; --------------------------------------------------------------------------------------
02ca 0000 0002 | | .DBG3TAB 0x0000,0x0002
02cc 0113 0001 | | .CONST 0x0113,0x0001
02ce 0128 0002 | ( | .CONST 0x0128,0x0002
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug3 Subtable 0x7
02d0 ; --------------------------------------------------------------------------------------
02d0 0000 0002 | | .DBG3TAB 0x0000,0x0002
02d2 0133 0001 | 3 | .CONST 0x0133,0x0001
02d4 0148 0002 | H | .CONST 0x0148,0x0002
02d6 ; --------------------------------------------------------------------------------------
02d6 ; Debug3 Subtable 0x8
02d6 ; --------------------------------------------------------------------------------------
02d6 0001 0002 | | .DBG3TAB 0x0001,0x0002
02d8 0153 ffff | S | .CONST 0x0153,0xffff
02da 0158 0001 | X | .CONST 0x0158,0x0001
02dc 015c 0002 | \ | .CONST 0x015c,0x0002
02de ; --------------------------------------------------------------------------------------
02de ; Debug3 Subtable 0x9
02de ; --------------------------------------------------------------------------------------
02de 0001 0005 | | .DBG3TAB 0x0001,0x0005
02e0 0163 ffff | c | .CONST 0x0163,0xffff
02e2 0168 0001 | h | .CONST 0x0168,0x0001
02e4 016e 0002 | n | .CONST 0x016e,0x0002
02e6 0171 0003 | q | .CONST 0x0171,0x0003
02e8 0175 0004 | u | .CONST 0x0175,0x0004
02ea 0178 0005 | x | .CONST 0x0178,0x0005
02ec ; --------------------------------------------------------------------------------------
02ec ; Debug3 Subtable 0xa
02ec ; --------------------------------------------------------------------------------------
02ec 0002 0000 | | .DBG3TAB 0x0002,0x0000
02ee 0183 ffff | | .CONST 0x0183,0xffff
02f0 0185 fffe | | .CONST 0x0185,0xfffe
02f2 ; --------------------------------------------------------------------------------------
02f2 ; Debug3 Subtable 0xb
02f2 ; --------------------------------------------------------------------------------------
02f2 0000 0005 | | .DBG3TAB 0x0000,0x0005
02f4 0186 0001 | | .CONST 0x0186,0x0001
02f6 0188 0002 | | .CONST 0x0188,0x0002
02f8 018a 0003 | | .CONST 0x018a,0x0003
02fa 018d 0004 | | .CONST 0x018d,0x0004
02fc 0190 0005 | | .CONST 0x0190,0x0005
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug3 Subtable 0xc
02fe ; --------------------------------------------------------------------------------------
02fe 0000 0000 | | .DBG3TAB 0x0000,0x0000
0300 0000 0000 | | .BLANK 0000[0x100]