|
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 01d8 | | .CONST 0x01d8 ; 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 0035 | 5 | .CONST 0x0035 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0059,0x8a65,0x0000,0x000d
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
; Debug Table 0x0.0x7 = 0x17,0xfff8
0019 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x19,0xfff7
001b 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1b,0xfff6
001d 00bf | | Action Accept_Activation
001e e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001e,0x0250,0x8000,0x0000,0x0059,0x8d85,0x0000,0x0023
; Debug Table 0x1.0x0 = 0x1e,0xffff
; Debug Table 0x1.0x1 = 0x1e,0xfffe
001f 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0020 02c7 | | Declare_Variable Any
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x2 = 0x23,0xfffd
0024 00c7 | | Action Elaborate_Subprogram
0025 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x3 = 0x25,0xfffc
0026 00c7 | | Action Elaborate_Subprogram
0027 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x27,0xfffb
0028 00c7 | | Action Elaborate_Subprogram
0029 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0x29,0xfffa
002a 00c7 | | Action Elaborate_Subprogram
002b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x6 = 0x2b,0xfff9
002c 00c7 | | Action Elaborate_Subprogram
002d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x7 = 0x2d,0xfff8
002e 00c7 | | Action Elaborate_Subprogram
002f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x2f,0xfff7
0030 00c7 | | Action Elaborate_Subprogram
0031 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x31,0xfff6
0032 00c7 | | Action Elaborate_Subprogram
0033 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xa = 0x33,0xfff5
0034 00c7 | | Action Elaborate_Subprogram
0035 BODY_0008:
0035 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xb = 0x35,0x1
0036 0120 | | Execute Any,Is_Value
0037 6803 |h | Jump_Zero 0x3b
0038 e001 | | Load 0x0,0x1
0039 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
003a 7801 |x | Jump 0x3c
003b 00d8 | | Load_Top At_Offset_0
003c 00ea | | Load_Encached Null_String_Cache
003d 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "KEY_DIRECTORY"
003f e001 | | Load 0x0,0x1
0040 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0041 c216 | | Store 0x1,0x16
0042 00bc | | Action Signal_Activated
0043 00bb | | Action Signal_Completion
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0055 | U | .CONST 0x0055 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0004 | | .CONST 0x0004 ; Number of locals
004b INIT_0048:
004b e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x004b,0x026a,0x0001,0x0000,0x0059,0x8a65,0x0000,0x000e
; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004d e003 | | Load 0x0,0x3
004e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
004f e003 | | Load 0x0,0x3
0050 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0051 e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x1 = 0x51,0xfffe
0052 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0053 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x2 = 0x53,0xfffd
0054 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0055 BODY_0048:
0055 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x3 = 0x55,0x1
0056 e005 | | Load 0x0,0x5
0057 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0058 00d9 | | Load_Top At_Offset_1
0059 380d |8 | Execute Record,Field_Write,Field_Number 0xd
005a e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x4 = 0x5a,0x2
005b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005c e006 | | Load 0x0,0x6
005d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005e 00da | | Load_Top At_Offset_2
005f 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
0060 e004 | | Load 0x0,0x4
0061 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0062 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0063 005a | Z | Store_Top Discrete,At_Offset_2
0064 e006 | | Load 0x0,0x6 ; Debug Table 0x2.0x5 = 0x64,0x3
0065 180f | | Execute Package,Field_Execute,Field_Number 0xf
0066 e216 | | Load 0x1,0x16
0067 e001 | | Load 0x0,0x1
0068 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0069 00d9 | | Load_Top At_Offset_1
006a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
006b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x6 = 0x6b,0x4
006c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
006d e007 | | Load 0x0,0x7
006e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
006f 4865 |He | Short_Literal 0x65
0070 e5ff | | Load 0x2,-0x1
0071 e007 | | Load 0x0,0x7
0072 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0073 00d9 | | Load_Top At_Offset_1
0074 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0075 00d1 | | Pop_Control Pop_Count_1
0076 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x7 = 0x76,0x5
0077 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0078 00d8 | | Load_Top At_Offset_0
0079 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
007a e007 | | Load 0x0,0x7
007b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
007c 00d9 | | Load_Top At_Offset_1
007d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007e 00d1 | | Pop_Control Pop_Count_1
007f 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x8 = 0x7f,0x6
0080 00d9 | | Load_Top At_Offset_1
0081 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0082 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x9 = 0x82,0x7
0083 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0084 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0085 e008 | | Load 0x0,0x8
0086 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0087 e009 | | Load 0x0,0x9
0088 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0089 00d9 | | Load_Top At_Offset_1
008a 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
008b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
008c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xa = 0x8c,0x8
008d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
008e 00d8 | | Load_Top At_Offset_0
008f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0090 e5ff | | Load 0x2,-0x1
0091 00db | | Load_Top At_Offset_3
0092 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0093 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0094 e008 | | Load 0x0,0x8
0095 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0096 e00a | | Load 0x0,0xa
0097 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0098 e00a | | Load 0x0,0xa
0099 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009a 00d9 | | Load_Top At_Offset_1
009b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009c 00d1 | | Pop_Control Pop_Count_1
009d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xb = 0x9d,0x9
009e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
009f 00d9 | | Load_Top At_Offset_1
00a0 8214 | | Call 0x1,0x14
00a1 e00b | | Load 0x0,0xb
00a2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a3 00d1 | | Pop_Control Pop_Count_1
00a4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0xc = 0xa4,0xa
00a5 e5ff | | Load 0x2,-0x1
00a6 00da | | Load_Top At_Offset_2
00a7 8215 | | Call 0x1,0x15
00a8 e00b | | Load 0x0,0xb
00a9 180f | | Execute Package,Field_Execute,Field_Number 0xf
00aa 00d1 | | Pop_Control Pop_Count_1
00ab 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xd = 0xab,0xb
00ac 820e | | Call 0x1,0xe
00ad 00d1 | | Pop_Control Pop_Count_1
00ae 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xe = 0xae,0xc
00af 820e | | Call 0x1,0xe
00b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf | | .CONST 0x00bf ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0003 | | .CONST 0x0003 ; Number of locals
00bb INIT_00b8:
00bb e00c | | Load 0x0,0xc ; Debug Table 0x3 = .DEBUG 0x00bb,0x028a,0x0001,0x0000,0x0059,0x8a65,0x0000,0x001e
; Debug Table 0x3.0x0 = 0xbb,0xffff
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0xbd,0xfffe
00be 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00bf BODY_00b8:
00bf e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0xbf,0x1
00c0 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00c1 e5ff | | Load 0x2,-0x1
00c2 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
00c3 00cf | | Action Mark_Auxiliary
00c4 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x3 = 0xc4,0x2
; Debug Table 0x3.0x4 = 0xc4,0x3
00c5 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00c6 0a01 | | Execute_Immediate Plus,0x1
00c7 e5ff | | Load 0x2,-0x1
00c8 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00c9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x5 = 0xc9,0x4
00ca 00db | | Load_Top At_Offset_3
00cb e5ff | | Load 0x2,-0x1
00cc 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00cd e5ff | | Load 0x2,-0x1
00ce 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
00cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d0 e007 | | Load 0x0,0x7
00d1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d2 c402 | | Store 0x2,0x2
00d3 005a | Z | Store_Top Discrete,At_Offset_2
00d4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0xd4,0x5
00d5 6806 |h | Jump_Zero 0xdc
00d6 00da | | Load_Top At_Offset_2
00d7 e00c | | Load 0x0,0xc
00d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d9 6802 |h | Jump_Zero 0xdc
00da 00c9 | | Action Pop_Auxiliary_Loop
00db 7fe8 | | Jump 0xc4
00dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ea | | .CONST 0x00ea ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 e00c | | Load 0x0,0xc ; Debug Table 0x4 = .DEBUG 0x00e3,0x029a,0x0001,0x0000,0x0059,0x8a65,0x0000,0x0028
; Debug Table 0x4.0x0 = 0xe3,0xffff
00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e5 e00d | | Load 0x0,0xd ; Debug Table 0x4.0x1 = 0xe5,0xfffe
00e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00e7 0322 | " | Declare_Variable Record
00e8 00d8 | | Load_Top At_Offset_0
00e9 1c00 | | Execute_Immediate Run_Utility,0x0
00ea BODY_00e0:
00ea e00d | | Load 0x0,0xd ; Debug Table 0x4.0x2 = 0xea,0x1
00eb 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ec 0322 | " | Declare_Variable Record
00ed 4801 |H | Short_Literal 0x1
00ee 00d9 | | Load_Top At_Offset_1
00ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f0 e5fe | | Load 0x2,-0x2
00f1 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
00f2 e00e | | Load 0x0,0xe
00f3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f5 00d9 | | Load_Top At_Offset_1
00f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f7 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x3 = 0xf7,0x401
00f8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0xf8,0x1
00f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00fa 4800 |H | Short_Literal 0x0
00fb 00d9 | | Load_Top At_Offset_1
00fc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00fd 4800 |H | Short_Literal 0x0
00fe 00d9 | | Load_Top At_Offset_1
00ff 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0100 4800 |H | Short_Literal 0x0
0101 00d9 | | Load_Top At_Offset_1
0102 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0103 00d9 | | Load_Top At_Offset_1
0104 017d | } | Execute Record,Structure_Write
0105 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x5 = 0x105,0x2
0106 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0107 e5fe | | Load 0x2,-0x2
0108 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0109 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010a e007 | | Load 0x0,0x7
010b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
010d e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x6 = 0x10d,0x3
010e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
010f 00d8 | | Load_Top At_Offset_0
0110 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0111 00da | | Load_Top At_Offset_2
0112 e5ff | | Load 0x2,-0x1
0113 e00a | | Load 0x0,0xa
0114 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0115 00d9 | | Load_Top At_Offset_1
0116 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0117 00d1 | | Pop_Control Pop_Count_1
0118 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x7 = 0x118,0x4
0119 4801 |H | Short_Literal 0x1
011a e00c | | Load 0x0,0xc
011b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
011c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
011d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125 | % | .CONST 0x0125 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call ; Debug Table 0x5 = .DEBUG 0x0123,0x02ac,0x0001,0x0000,0x0059,0x8a65,0x0000,0x0038
0125 BODY_0120:
0125 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x0 = 0x125,0x1
0126 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0127 6801 |h | Jump_Zero 0x129
0128 8402 | | Call 0x2,0x2 ; Debug Table 0x5.0x1 = 0x128,0x2
0129 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6 = .DEBUG 0x0133,0x02b2,0x0001,0x0000,0x0059,0x8a65,0x0000,0x004e
; Debug Table 0x6.0x0 = 0x133,0x1
0134 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0135 681f |h | Jump_Zero 0x155
0136 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x1 = 0x136,0x2
0137 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0138 e5fe | | Load 0x2,-0x2
0139 e00d | | Load 0x0,0xd
013a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
013b 0322 | " | Declare_Variable Record
013c 4801 |H | Short_Literal 0x1
013d 00d9 | | Load_Top At_Offset_1
013e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013f e5ff | | Load 0x2,-0x1
0140 e00e | | Load 0x0,0xe
0141 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0142 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0143 00d9 | | Load_Top At_Offset_1
0144 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0145 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x2 = 0x145,0x401
0146 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x3 = 0x146,0x2
0147 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0148 4800 |H | Short_Literal 0x0
0149 00d9 | | Load_Top At_Offset_1
014a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
014b 4800 |H | Short_Literal 0x0
014c 00d9 | | Load_Top At_Offset_1
014d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
014e 4800 |H | Short_Literal 0x0
014f 00d9 | | Load_Top At_Offset_1
0150 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0151 e00c | | Load 0x0,0xc
0152 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0153 e5fd | | Load 0x2,-0x3
0154 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0155 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0156 0000 0000 | | .XXX[0x2]
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x7 = .DEBUG 0x015b,0x02bc,0x0001,0x0000,0x0059,0x8a65,0x0000,0x0064
; Debug Table 0x7.0x0 = 0x15b,0x1
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167 | g | .CONST 0x0167 ; 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 0x8 = .DEBUG 0x0163,0x02c0,0x0002,0x0000,0x0059,0x8a65,0x0000,0x0071
; Debug Table 0x8.0x0 = 0x163,0xffff
0164 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0165 e001 | | Load 0x0,0x1
0166 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0167 BODY_0160:
0167 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x1 = 0x167,0x1
0168 01db | | Execute Vector,Length
0169 7006 |p | Jump_Nonzero 0x170
016a 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x2 = 0x16a,0x2
016b 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
016c e004 | | Load 0x0,0x4
016d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x170,0x3
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 0000 0000 | | .BLANK 0000[0x6]
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 482e |H. | Short_Literal 0x2e ; Debug Table 0x9 = .DEBUG 0x017b,0x02ca,0x0002,0x0000,0x0059,0x8a65,0x0000,0x007c
; Debug Table 0x9.0x0 = 0x17b,0x1
017c 00db | | Load_Top At_Offset_3
017d 8213 | | Call 0x1,0x13
017e 01cb | | Execute Vector,Append
017f 00db | | Load_Top At_Offset_3
0180 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0181 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0182 e008 | | Load 0x0,0x8
0183 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0184 0092 01c1 | | Action Push_String_Extended,0x1c1 ; "_COMMANDS"
0186 01cc | | Execute Vector,Catenate
0187 e00f | | Load 0x0,0xf
0188 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0189 01cc | | Execute Vector,Catenate
018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 482e |H. | Short_Literal 0x2e ; Debug Table 0xa = .DEBUG 0x0193,0x02ce,0x0002,0x0000,0x0059,0x8a65,0x0000,0x0087
; Debug Table 0xa.0x0 = 0x193,0x1
0194 00db | | Load_Top At_Offset_3
0195 8213 | | Call 0x1,0x13
0196 01cb | | Execute Vector,Append
0197 00db | | Load_Top At_Offset_3
0198 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0199 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
019a e008 | | Load 0x0,0x8
019b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019c 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "_MACROS"
019e 01cc | | Execute Vector,Catenate
019f e00f | | Load 0x0,0xf
01a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a1 01cc | | Execute Vector,Catenate
01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b4 | | .CONST 0x01b4 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e5fd | | Load 0x2,-0x3 ; Debug Table 0xb = .DEBUG 0x01ab,0x02d2,0x0004,0x0000,0x0059,0x8d85,0x0000,0x020d
; Debug Table 0xb.0x0 = 0x1ab,0x1
01ac 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01ad e5fe | | Load 0x2,-0x2
01ae e5ff | | Load 0x2,-0x1
01af e00c | | Load 0x0,0xc
01b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b1 e5fd | | Load 0x2,-0x3
01b2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b4 TRAP_01a8:
01b4 0007 | | Action Break_Optional
01b5 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x1 = 0x1b5,0x2
01b6 e5fd | | Load 0x2,-0x3
01b7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b8 6003 |` | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x598a6501} ; Debug Table 0xb.0x2 = 0x1b8,0x3
01b9 0257 | W | Execute Discrete,Raise
01ba 0000 0000 | | .XXX[0x2]
01bc 0000 0000 | | .LITERAL {0x00000000, 0x598a6501}
01c0 ; --------------------------------------------------------------------------------------
01c0 ; STRING TABLE
01c0 ; --------------------------------------------------------------------------------------
01c0 0008 | | .STRTAB 0x0008->0x01c4 ; "KEY_DIRECTORY"
01c1 0013 | | .STRTAB 0x0013->0x01ca ; "_COMMANDS"
01c2 001a | | .STRTAB 0x001a->0x01cf ; "_MACROS"
01c3 001f | | .STREND 0x001f->0x01d2
01c4 4b45 595f |KEY_| .STRTAB_STRINGS
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0003 000c | | .CONST 0x0003,0x000c
01da 000b 023a | :| .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0059,0x8a65,0x0000,0x000d
01e2 001e 0250 | P| .DEBUG 0x001e,0x0250,0x8000,0x0000,0x0059,0x8d85,0x0000,0x0023
01ea 004b 026a | K j| .DEBUG 0x004b,0x026a,0x0001,0x0000,0x0059,0x8a65,0x0000,0x000e
01f2 00bb 028a | | .DEBUG 0x00bb,0x028a,0x0001,0x0000,0x0059,0x8a65,0x0000,0x001e
01fa 00e3 029a | | .DEBUG 0x00e3,0x029a,0x0001,0x0000,0x0059,0x8a65,0x0000,0x0028
0202 0123 02ac | # | .DEBUG 0x0123,0x02ac,0x0001,0x0000,0x0059,0x8a65,0x0000,0x0038
020a 0133 02b2 | 3 | .DEBUG 0x0133,0x02b2,0x0001,0x0000,0x0059,0x8a65,0x0000,0x004e
0212 015b 02bc | [ | .DEBUG 0x015b,0x02bc,0x0001,0x0000,0x0059,0x8a65,0x0000,0x0064
021a 0163 02c0 | c | .DEBUG 0x0163,0x02c0,0x0002,0x0000,0x0059,0x8a65,0x0000,0x0071
0222 017b 02ca | { | .DEBUG 0x017b,0x02ca,0x0002,0x0000,0x0059,0x8a65,0x0000,0x007c
022a 0193 02ce | | .DEBUG 0x0193,0x02ce,0x0002,0x0000,0x0059,0x8a65,0x0000,0x0087
0232 01ab 02d2 | | .DEBUG 0x01ab,0x02d2,0x0004,0x0000,0x0059,0x8d85,0x0000,0x020d
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x0
023a ; --------------------------------------------------------------------------------------
023a 000a 0000 | | .DBG3TAB 0x000a,0x0000
023c 000b ffff | | .CONST 0x000b,0xffff
023e 000d fffe | | .CONST 0x000d,0xfffe
0240 000f fffd | | .CONST 0x000f,0xfffd
0242 0011 fffc | | .CONST 0x0011,0xfffc
0244 0013 fffb | | .CONST 0x0013,0xfffb
0246 0015 fffa | | .CONST 0x0015,0xfffa
0248 0017 fff9 | | .CONST 0x0017,0xfff9
024a 0017 fff8 | | .CONST 0x0017,0xfff8
024c 0019 fff7 | | .CONST 0x0019,0xfff7
024e 001b fff6 | | .CONST 0x001b,0xfff6
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug3 Subtable 0x1
0250 ; --------------------------------------------------------------------------------------
0250 000b 0001 | | .DBG3TAB 0x000b,0x0001
0252 001e ffff | | .CONST 0x001e,0xffff
0254 001e fffe | | .CONST 0x001e,0xfffe
0256 0023 fffd | # | .CONST 0x0023,0xfffd
0258 0025 fffc | % | .CONST 0x0025,0xfffc
025a 0027 fffb | ' | .CONST 0x0027,0xfffb
025c 0029 fffa | ) | .CONST 0x0029,0xfffa
025e 002b fff9 | + | .CONST 0x002b,0xfff9
0260 002d fff8 | - | .CONST 0x002d,0xfff8
0262 002f fff7 | / | .CONST 0x002f,0xfff7
0264 0031 fff6 | 1 | .CONST 0x0031,0xfff6
0266 0033 fff5 | 3 | .CONST 0x0033,0xfff5
0268 0035 0001 | 5 | .CONST 0x0035,0x0001
026a ; --------------------------------------------------------------------------------------
026a ; Debug3 Subtable 0x2
026a ; --------------------------------------------------------------------------------------
026a 0003 000c | | .DBG3TAB 0x0003,0x000c
026c 004b ffff | K | .CONST 0x004b,0xffff
026e 0051 fffe | Q | .CONST 0x0051,0xfffe
0270 0053 fffd | S | .CONST 0x0053,0xfffd
0272 0055 0001 | U | .CONST 0x0055,0x0001
0274 005a 0002 | Z | .CONST 0x005a,0x0002
0276 0064 0003 | d | .CONST 0x0064,0x0003
0278 006b 0004 | k | .CONST 0x006b,0x0004
027a 0076 0005 | v | .CONST 0x0076,0x0005
027c 007f 0006 | | .CONST 0x007f,0x0006
027e 0082 0007 | | .CONST 0x0082,0x0007
0280 008c 0008 | | .CONST 0x008c,0x0008
0282 009d 0009 | | .CONST 0x009d,0x0009
0284 00a4 000a | | .CONST 0x00a4,0x000a
0286 00ab 000b | | .CONST 0x00ab,0x000b
0288 00ae 000c | | .CONST 0x00ae,0x000c
028a ; --------------------------------------------------------------------------------------
028a ; Debug3 Subtable 0x3
028a ; --------------------------------------------------------------------------------------
028a 0002 0005 | | .DBG3TAB 0x0002,0x0005
028c 00bb ffff | | .CONST 0x00bb,0xffff
028e 00bd fffe | | .CONST 0x00bd,0xfffe
0290 00bf 0001 | | .CONST 0x00bf,0x0001
0292 00c4 0002 | | .CONST 0x00c4,0x0002
0294 00c4 0003 | | .CONST 0x00c4,0x0003
0296 00c9 0004 | | .CONST 0x00c9,0x0004
0298 00d4 0005 | | .CONST 0x00d4,0x0005
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0x4
029a ; --------------------------------------------------------------------------------------
029a 0002 0006 | | .DBG3TAB 0x0002,0x0006
029c 00e3 ffff | | .CONST 0x00e3,0xffff
029e 00e5 fffe | | .CONST 0x00e5,0xfffe
02a0 00ea 0001 | | .CONST 0x00ea,0x0001
02a2 00f7 0401 | | .CONST 0x00f7,0x0401
02a4 00f8 0001 | | .CONST 0x00f8,0x0001
02a6 0105 0002 | | .CONST 0x0105,0x0002
02a8 010d 0003 | | .CONST 0x010d,0x0003
02aa 0118 0004 | | .CONST 0x0118,0x0004
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug3 Subtable 0x5
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0002 | | .DBG3TAB 0x0000,0x0002
02ae 0125 0001 | % | .CONST 0x0125,0x0001
02b0 0128 0002 | ( | .CONST 0x0128,0x0002
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug3 Subtable 0x6
02b2 ; --------------------------------------------------------------------------------------
02b2 0000 0004 | | .DBG3TAB 0x0000,0x0004
02b4 0133 0001 | 3 | .CONST 0x0133,0x0001
02b6 0136 0002 | 6 | .CONST 0x0136,0x0002
02b8 0145 0401 | E | .CONST 0x0145,0x0401
02ba 0146 0002 | F | .CONST 0x0146,0x0002
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug3 Subtable 0x7
02bc ; --------------------------------------------------------------------------------------
02bc 0000 0001 | | .DBG3TAB 0x0000,0x0001
02be 015b 0001 | [ | .CONST 0x015b,0x0001
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug3 Subtable 0x8
02c0 ; --------------------------------------------------------------------------------------
02c0 0001 0003 | | .DBG3TAB 0x0001,0x0003
02c2 0163 ffff | c | .CONST 0x0163,0xffff
02c4 0167 0001 | g | .CONST 0x0167,0x0001
02c6 016a 0002 | j | .CONST 0x016a,0x0002
02c8 0170 0003 | p | .CONST 0x0170,0x0003
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x9
02ca ; --------------------------------------------------------------------------------------
02ca 0000 0001 | | .DBG3TAB 0x0000,0x0001
02cc 017b 0001 | { | .CONST 0x017b,0x0001
02ce ; --------------------------------------------------------------------------------------
02ce ; Debug3 Subtable 0xa
02ce ; --------------------------------------------------------------------------------------
02ce 0000 0001 | | .DBG3TAB 0x0000,0x0001
02d0 0193 0001 | | .CONST 0x0193,0x0001
02d2 ; --------------------------------------------------------------------------------------
02d2 ; Debug3 Subtable 0xb
02d2 ; --------------------------------------------------------------------------------------
02d2 0000 0003 | | .DBG3TAB 0x0000,0x0003
02d4 01ab 0001 | | .CONST 0x01ab,0x0001
02d6 01b5 0002 | | .CONST 0x01b5,0x0002
02d8 01b8 0003 | | .CONST 0x01b8,0x0003
02da 0000 0000 | | .BLANK 0000[0x126]