|
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_0500e0
└─⟦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 0085 | | .CONST 0x0085 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0058,0x75b5,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
; Debug Table 0x0.0x3 = 0xb,0xfffc
; Debug Table 0x0.0x4 = 0xb,0xfffb
000c 483f |H? | Short_Literal 0x3f
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0xf,0xfffa
0010 4803 |H | Short_Literal 0x3
0011 00da | | Load_Top At_Offset_2
0012 03f9 | | Declare_Type Discrete,Constrained,Visible
0013 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0x6 = 0x13,0xfff9
; Debug Table 0x0.0x7 = 0x13,0xfff8
; Debug Table 0x0.0x8 = 0x13,0xfff7
; Debug Table 0x0.0x9 = 0x13,0xfff6
0014 483f |H? | Short_Literal 0x3f
0015 00db | | Load_Top At_Offset_3
0016 03f9 | | Declare_Type Discrete,Constrained,Visible
0017 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x10 = 0x17,0xffef
; Debug Table 0x0.0x11 = 0x17,0xffee
; Debug Table 0x0.0x12 = 0x17,0xffed
; Debug Table 0x0.0x13 = 0x17,0xffec
; Debug Table 0x0.0x14 = 0x17,0xffeb
; Debug Table 0x0.0xa = 0x17,0xfff5
; Debug Table 0x0.0xb = 0x17,0xfff4
; Debug Table 0x0.0xc = 0x17,0xfff3
; Debug Table 0x0.0xd = 0x17,0xfff2
; Debug Table 0x0.0xe = 0x17,0xfff1
; Debug Table 0x0.0xf = 0x17,0xfff0
0018 4801 |H | Short_Literal 0x1
0019 029f 008b | | Declare_Subprogram INIT_0088,For_Call
001b 03fe | | Declare_Type Discrete,Defined,Visible
001c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x15 = 0x1c,0xffea
; Debug Table 0x0.0x16 = 0x1c,0xffe9
001d 49ff |I | Short_Literal 0x1ff
001e 00e3 | | Load_Encached Natural_Cache
001f 03f9 | | Declare_Type Discrete,Constrained,Visible
0020 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x17 = 0x20,0xffe8
0021 00d9 | | Load_Top At_Offset_1
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4802 |H | Short_Literal 0x2
0024 032e | . | Declare_Type Record,Defined,Visible
0025 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x18 = 0x25,0xffe7
0026 4802 |H | Short_Literal 0x2
0027 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0029 03fe | | Declare_Type Discrete,Defined,Visible
002a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x19 = 0x2a,0xffe6
002b 00da | | Load_Top At_Offset_2
002c 00ec | | Load_Encached Diana_Tree_Cache
002d e210 | | Load 0x1,0x10
002e 00e2 | | Load_Encached Integer_Cache
002f e213 | | Load 0x1,0x13
0030 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0032 4806 |H | Short_Literal 0x6
0033 032e | . | Declare_Type Record,Defined,Visible
0034 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x1a = 0x34,0xffe5
0035 0322 | " | Declare_Variable Record
0036 483f |H? | Short_Literal 0x3f
0037 00d9 | | Load_Top At_Offset_1
0038 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0039 49ff |I | Short_Literal 0x1ff
003a 00d9 | | Load_Top At_Offset_1
003b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
003c 0129 | ) | Execute Any,Make_Visible
003d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x1b = 0x3d,0xffe4
003e 0322 | " | Declare_Variable Record
003f 4800 |H | Short_Literal 0x0
0040 00d9 | | Load_Top At_Offset_1
0041 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0042 00d9 | | Load_Top At_Offset_1
0043 00d9 | | Load_Top At_Offset_1
0044 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0045 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x0.0x1c = 0x45,0x401
0046 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x1d = 0x46,0xffe4
0047 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0048 4801 |H | Short_Literal 0x1
0049 00d9 | | Load_Top At_Offset_1
004a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
004b 616c |al | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x7fffffff}
004c 00d9 | | Load_Top At_Offset_1
004d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
004e 4800 |H | Short_Literal 0x0
004f 00d9 | | Load_Top At_Offset_1
0050 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0051 0129 | ) | Execute Any,Make_Visible
0052 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1e = 0x52,0xffe3
0054 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1f = 0x54,0xffe2
0056 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x20 = 0x56,0xffe1
0058 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x21 = 0x58,0xffe0
005a 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x22 = 0x5a,0xffdf
005c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x23 = 0x5c,0xffde
005e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x24 = 0x5e,0xffdd
005f 6154 |aT | Indirect_Literal Discrete,0x1b4,{0x0055b40e, 0x000000b0}
0060 02a0 | | Declare_Subprogram Null_Subprogram
0061 038f | | Declare_Type Package,Defined,Visible
0062 0386 | | Declare_Variable Package,Visible
0063 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x25 = 0x63,0xffdc
0065 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x26 = 0x65,0xffdb
0067 00bf | | Action Accept_Activation
0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1 = .DEBUG 0x0068,0x029a,0x8000,0x0000,0x0058,0x75d5,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x68,0xffff
; Debug Table 0x1.0x1 = 0x68,0xfffe
0069 00c7 | | Action Elaborate_Subprogram
006a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x2 = 0x6a,0xfffd
006b 00c7 | | Action Elaborate_Subprogram
006c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x3 = 0x6c,0xfffc
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x4 = 0x6e,0xfffb
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x5 = 0x70,0xfffa
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x6 = 0x72,0xfff9
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x7 = 0x74,0xfff8
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x8 = 0x76,0xfff7
0077 00c7 | | Action Elaborate_Subprogram
0078 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x9 = 0x78,0xfff6
0079 e002 | | Load 0x0,0x2
007a e003 | | Load 0x0,0x3
007b e004 | | Load 0x0,0x4
007c e005 | | Load 0x0,0x5
007d e006 | | Load 0x0,0x6
007e e007 | | Load 0x0,0x7
007f e008 | | Load 0x0,0x8
0080 4808 |H | Short_Literal 0x8
0081 e21d | | Load 0x1,0x1d
0082 020e | | Execute Module,Augment_Imports
0083 00da | | Load_Top At_Offset_2
0084 020f | | Execute Module,Activate
0085 BODY_0008:
0085 00bc | | Action Signal_Activated
0086 00bb | | Action Signal_Completion
0087 0000 | | .XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x008b,0x02b0,0x0005,0x0000,0x0058,0x75b5,0x0000,0x0086
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7802 |x | Jump 0x90 ; case 0x1
008e 7805 |x | Jump 0x94 ; case 0x2
008f 7809 |x | Jump 0x99 ; case 0x3
0090 00da | | Load_Top At_Offset_2
0091 0091 01bc | | Action Push_String_Extended_Indexed,0x1bc ; "EXECUTE"
0093 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0094 00db | | Load_Top At_Offset_3
0095 00db | | Load_Top At_Offset_3
0096 00e0 | | Load_Encached Standard_Cache
0097 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0098 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0099 00da | | Load_Top At_Offset_2
009a 00e0 | | Load_Encached Standard_Cache
009b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
009c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x00a3,0x02b2,0x0005,0x0000,0x0058,0x75b5,0x0000,0x00ad
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7802 |x | Jump 0xa8 ; case 0x1
00a6 7805 |x | Jump 0xac ; case 0x2
00a7 7809 |x | Jump 0xb1 ; case 0x3
00a8 00da | | Load_Top At_Offset_2
00a9 0091 01be | | Action Push_String_Extended_Indexed,0x1be ; "NO_ARGUMENT"
00ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ac 00db | | Load_Top At_Offset_3
00ad 00db | | Load_Top At_Offset_3
00ae 00e0 | | Load_Encached Standard_Cache
00af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b1 00da | | Load_Top At_Offset_2
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4608 |F | Jump_Case 0x9 ; Debug Table 0x4 = .DEBUG 0x00bb,0x02b4,0x0005,0x0000,0x0058,0x75b5,0x0000,0x00b4
00bc 7808 |x | Jump 0xc5 ; case 0x0
00bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00be 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00bf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00c0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00c2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00c3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00c5 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x0 = 0xc5,0x401
00c6 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0xc6,0xfff6
00c7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c8 4800 |H | Short_Literal 0x0
00c9 00db | | Load_Top At_Offset_3
00ca 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00cb 4800 |H | Short_Literal 0x0
00cc 00db | | Load_Top At_Offset_3
00cd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ce 4800 |H | Short_Literal 0x0
00cf 00db | | Load_Top At_Offset_3
00d0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00db,0x02ba,0x0002,0x0000,0x0058,0x75b5,0x0000,0x00fc
; Debug Table 0x5.0x0 = 0xdb,0x1
00dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00dd 0909 | | Execute_Immediate Binary_Scale,0x9
00de 00db | | Load_Top At_Offset_3
00df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e0 0273 | s | Execute Discrete,Plus
00e1 0248 | H | Execute Discrete,Check_In_Integer
00e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e3 0000 0000 | | .BLANK 0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00eb,0x02be,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0105
; Debug Table 0x6.0x0 = 0xeb,0x1
00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ed 6804 |h | Jump_Zero 0xf2
00ee 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1 = 0xee,0x2
00ef 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f0 8217 | | Call 0x1,0x17
00f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f2 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0xf2,0x3
00f3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00f4 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x3 = 0xf4,0x401
00f5 0146 | F | Execute Heap_Access,Hash ; Debug Table 0x6.0x4 = 0xf5,0x402
00f6 00d0 | | Action Swap_Control ; Debug Table 0x6.0x5 = 0xf6,0x403
; Debug Table 0x6.0x6 = 0xf6,0x404
00f7 00d1 | | Pop_Control Pop_Count_1
00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 ; Debug Table 0x6.0x7 = 0xf8,0x3
00f9 0000 0000 | | .BLANK 0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0103,0x02d0,0x0002,0x0000,0x0058,0x75b5,0x0000,0x010e
; Debug Table 0x7.0x0 = 0x103,0x1
0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d | | .CONST 0x010d ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8 = .DEBUG 0x010b,0x02d4,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0117
; Debug Table 0x8.0x0 = 0x10b,0xffff
010c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0x1 = 0x10c,0xfffe
010d BODY_0108:
010d e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x2 = 0x10d,0x1
010e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010f 6809 |h | Jump_Zero 0x119
0110 e5fe | | Load 0x2,-0x2
0111 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0112 6806 |h | Jump_Zero 0x119
0113 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x3 = 0x113,0x2
0114 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0115 e5fe | | Load 0x2,-0x2
0116 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0117 017f | | Execute Record,Equal
0118 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0119 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x4 = 0x119,0x3
011a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011b 6806 |h | Jump_Zero 0x122
011c e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x5 = 0x11c,0x4
011d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
011e e002 | | Load 0x0,0x2
011f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0120 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0121 7803 |x | Jump 0x125
0122 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x6 = 0x122,0x5
0123 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0124 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0125 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x7 = 0x125,0x6
0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0127 6806 |h | Jump_Zero 0x12e
0128 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x8 = 0x128,0x7
0129 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012a e002 | | Load 0x0,0x2
012b 180d | | Execute Package,Field_Execute,Field_Number 0xd
012c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
012d 7803 |x | Jump 0x131
012e e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x9 = 0x12e,0x8
012f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0130 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0131 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xa = 0x131,0x9
0132 00da | | Load_Top At_Offset_2
0133 e002 | | Load 0x0,0x2
0134 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0135 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0136 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x013b,0x02ec,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0121
; Debug Table 0x9.0x0 = 0x13b,0x1
013c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013d 6808 |h | Jump_Zero 0x146
013e 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x1 = 0x13e,0x2
013f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0140 e002 | | Load 0x0,0x2
0141 180d | | Execute Package,Field_Execute,Field_Number 0xd
0142 e002 | | Load 0x0,0x2
0143 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0144 180f | | Execute Package,Field_Execute,Field_Number 0xf
0145 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0146 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x2 = 0x146,0x3
0147 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0148 e002 | | Load 0x0,0x2
0149 1b19 | | Execute Package,Field_Read,Field_Number 0x19
014a 180f | | Execute Package,Field_Execute,Field_Number 0xf
014b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015c | \ | .CONST 0x015c ; Address of begin
0151 0171 | q | .CONST 0x0171 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xa = .DEBUG 0x0153,0x02f4,0x0002,0x0000,0x0058,0x75b5,0x0000,0x012a
; Debug Table 0xa.0x0 = 0x153,0xffff
0154 e002 | | Load 0x0,0x2
0155 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0156 180e | | Execute Package,Field_Execute,Field_Number 0xe
0157 e5ff | | Load 0x2,-0x1
0158 e002 | | Load 0x0,0x2
0159 1b19 | | Execute Package,Field_Read,Field_Number 0x19
015a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
015b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
015c BODY_0150:
015c e214 | | Load 0x1,0x14 ; Debug Table 0xa.0x1 = 0x15c,0x1
015d 0322 | " | Declare_Variable Record
015e 4801 |H | Short_Literal 0x1
015f 00d9 | | Load_Top At_Offset_1
0160 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0161 00d9 | | Load_Top At_Offset_1
0162 00d9 | | Load_Top At_Offset_1
0163 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0164 e215 | | Load 0x1,0x15
0165 00d9 | | Load_Top At_Offset_1
0166 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0167 e5fe | | Load 0x2,-0x2
0168 00d9 | | Load_Top At_Offset_1
0169 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
016a e5fd | | Load 0x2,-0x3
016b 00d9 | | Load_Top At_Offset_1
016c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
016d e5fc | | Load 0x2,-0x4
016e 00d9 | | Load_Top At_Offset_1
016f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0170 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0171 TRAP_0150:
0171 0007 | | Action Break_Optional
0172 e214 | | Load 0x1,0x14 ; Debug Table 0xa.0x2 = 0x172,0x2
0173 0322 | " | Declare_Variable Record
0174 4800 |H | Short_Literal 0x0
0175 00d9 | | Load_Top At_Offset_1
0176 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0177 00da | | Load_Top At_Offset_2
0178 00d9 | | Load_Top At_Offset_1
0179 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
017a e215 | | Load 0x1,0x15
017b 00d9 | | Load_Top At_Offset_1
017c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017d e5fe | | Load 0x2,-0x2
017e 00d9 | | Load_Top At_Offset_1
017f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0180 e5fd | | Load 0x2,-0x3
0181 00d9 | | Load_Top At_Offset_1
0182 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0183 e5fc | | Load 0x2,-0x4
0184 00d9 | | Load_Top At_Offset_1
0185 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0186 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0187 0000 | | .XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x018b,0x02fc,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0200
; Debug Table 0xb.0x0 = 0x18b,0x1
018c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018d 6808 |h | Jump_Zero 0x196
018e 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x1 = 0x18e,0x2
018f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0190 e002 | | Load 0x0,0x2
0191 180d | | Execute Package,Field_Execute,Field_Number 0xd
0192 e002 | | Load 0x0,0x2
0193 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0194 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0196 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x2 = 0x196,0x3
0197 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0198 e002 | | Load 0x0,0x2
0199 1b19 | | Execute Package,Field_Read,Field_Number 0x19
019a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
019b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x01a3,0x0304,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0209
; Debug Table 0xc.0x0 = 0x1a3,0x1
01a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a5 6808 |h | Jump_Zero 0x1ae
01a6 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x1 = 0x1a6,0x2
01a7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01a8 e002 | | Load 0x0,0x2
01a9 180d | | Execute Package,Field_Execute,Field_Number 0xd
01aa e002 | | Load 0x0,0x2
01ab 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01ac 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ae 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x2 = 0x1ae,0x3
01af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b0 e002 | | Load 0x0,0x2
01b1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b4 0055 b40e | U | .LITERAL {0x0055b40e, 0x000000b0}
01b8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01bc ; --------------------------------------------------------------------------------------
01bc ; STRING TABLE
01bc ; --------------------------------------------------------------------------------------
01bc 000c | | .STRTAB 0x000c->0x01c2 ; "EXECUTE"
01bd 0011 | | .STRTAB 0x0011->0x01c5 ; "PROMPT"
01be 0015 | | .STRTAB 0x0015->0x01c8 ; "NO_ARGUMENT"
01bf 001e | | .STRTAB 0x001e->0x01ce ; "EXPLICIT_ARGUMENT"
01c0 002d | - | .STRTAB 0x002d->0x01d6 ; "IMPLICIT_ARGUMENT"
01c1 003c | < | .STREND 0x003c->0x01df
01c2 4558 4543 |EXEC| .STRTAB_STRINGS
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0003 000d | | .CONST 0x0003,0x000d
01e2 000b 024a | J| .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0058,0x75b5,0x0000,0x0007
01ea 0068 029a | h | .DEBUG 0x0068,0x029a,0x8000,0x0000,0x0058,0x75d5,0x0000,0x0005
01f2 008b 02b0 | | .DEBUG 0x008b,0x02b0,0x0005,0x0000,0x0058,0x75b5,0x0000,0x0086
01fa 00a3 02b2 | | .DEBUG 0x00a3,0x02b2,0x0005,0x0000,0x0058,0x75b5,0x0000,0x00ad
0202 00bb 02b4 | | .DEBUG 0x00bb,0x02b4,0x0005,0x0000,0x0058,0x75b5,0x0000,0x00b4
020a 00db 02ba | | .DEBUG 0x00db,0x02ba,0x0002,0x0000,0x0058,0x75b5,0x0000,0x00fc
0212 00eb 02be | | .DEBUG 0x00eb,0x02be,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0105
021a 0103 02d0 | | .DEBUG 0x0103,0x02d0,0x0002,0x0000,0x0058,0x75b5,0x0000,0x010e
0222 010b 02d4 | | .DEBUG 0x010b,0x02d4,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0117
022a 013b 02ec | ; | .DEBUG 0x013b,0x02ec,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0121
0232 0153 02f4 | S | .DEBUG 0x0153,0x02f4,0x0002,0x0000,0x0058,0x75b5,0x0000,0x012a
023a 018b 02fc | | .DEBUG 0x018b,0x02fc,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0200
0242 01a3 0304 | | .DEBUG 0x01a3,0x0304,0x0002,0x0000,0x0058,0x75b5,0x0000,0x0209
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x0
024a ; --------------------------------------------------------------------------------------
024a 0026 0001 | & | .DBG3TAB 0x0026,0x0001
024c 000b ffff | | .CONST 0x000b,0xffff
024e 000b fffe | | .CONST 0x000b,0xfffe
0250 000b fffd | | .CONST 0x000b,0xfffd
0252 000b fffc | | .CONST 0x000b,0xfffc
0254 000b fffb | | .CONST 0x000b,0xfffb
0256 000f fffa | | .CONST 0x000f,0xfffa
0258 0013 fff9 | | .CONST 0x0013,0xfff9
025a 0013 fff8 | | .CONST 0x0013,0xfff8
025c 0013 fff7 | | .CONST 0x0013,0xfff7
025e 0013 fff6 | | .CONST 0x0013,0xfff6
0260 0017 fff5 | | .CONST 0x0017,0xfff5
0262 0017 fff4 | | .CONST 0x0017,0xfff4
0264 0017 fff3 | | .CONST 0x0017,0xfff3
0266 0017 fff2 | | .CONST 0x0017,0xfff2
0268 0017 fff1 | | .CONST 0x0017,0xfff1
026a 0017 fff0 | | .CONST 0x0017,0xfff0
026c 0017 ffef | | .CONST 0x0017,0xffef
026e 0017 ffee | | .CONST 0x0017,0xffee
0270 0017 ffed | | .CONST 0x0017,0xffed
0272 0017 ffec | | .CONST 0x0017,0xffec
0274 0017 ffeb | | .CONST 0x0017,0xffeb
0276 001c ffea | | .CONST 0x001c,0xffea
0278 001c ffe9 | | .CONST 0x001c,0xffe9
027a 0020 ffe8 | | .CONST 0x0020,0xffe8
027c 0025 ffe7 | % | .CONST 0x0025,0xffe7
027e 002a ffe6 | * | .CONST 0x002a,0xffe6
0280 0034 ffe5 | 4 | .CONST 0x0034,0xffe5
0282 003d ffe4 | = | .CONST 0x003d,0xffe4
0284 0045 0401 | E | .CONST 0x0045,0x0401
0286 0046 ffe4 | F | .CONST 0x0046,0xffe4
0288 0052 ffe3 | R | .CONST 0x0052,0xffe3
028a 0054 ffe2 | T | .CONST 0x0054,0xffe2
028c 0056 ffe1 | V | .CONST 0x0056,0xffe1
028e 0058 ffe0 | X | .CONST 0x0058,0xffe0
0290 005a ffdf | Z | .CONST 0x005a,0xffdf
0292 005c ffde | \ | .CONST 0x005c,0xffde
0294 005e ffdd | ^ | .CONST 0x005e,0xffdd
0296 0063 ffdc | c | .CONST 0x0063,0xffdc
0298 0065 ffdb | e | .CONST 0x0065,0xffdb
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0x1
029a ; --------------------------------------------------------------------------------------
029a 000a 0000 | | .DBG3TAB 0x000a,0x0000
029c 0068 ffff | h | .CONST 0x0068,0xffff
029e 0068 fffe | h | .CONST 0x0068,0xfffe
02a0 006a fffd | j | .CONST 0x006a,0xfffd
02a2 006c fffc | l | .CONST 0x006c,0xfffc
02a4 006e fffb | n | .CONST 0x006e,0xfffb
02a6 0070 fffa | p | .CONST 0x0070,0xfffa
02a8 0072 fff9 | r | .CONST 0x0072,0xfff9
02aa 0074 fff8 | t | .CONST 0x0074,0xfff8
02ac 0076 fff7 | v | .CONST 0x0076,0xfff7
02ae 0078 fff6 | x | .CONST 0x0078,0xfff6
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug3 Subtable 0x2
02b0 ; --------------------------------------------------------------------------------------
02b0 0000 0000 | | .DBG3TAB 0x0000,0x0000
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug3 Subtable 0x3
02b2 ; --------------------------------------------------------------------------------------
02b2 0000 0000 | | .DBG3TAB 0x0000,0x0000
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug3 Subtable 0x4
02b4 ; --------------------------------------------------------------------------------------
02b4 0001 0001 | | .DBG3TAB 0x0001,0x0001
02b6 00c5 0401 | | .CONST 0x00c5,0x0401
02b8 00c6 fff6 | | .CONST 0x00c6,0xfff6
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug3 Subtable 0x5
02ba ; --------------------------------------------------------------------------------------
02ba 0000 0001 | | .DBG3TAB 0x0000,0x0001
02bc 00db 0001 | | .CONST 0x00db,0x0001
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0x6
02be ; --------------------------------------------------------------------------------------
02be 0000 0008 | | .DBG3TAB 0x0000,0x0008
02c0 00eb 0001 | | .CONST 0x00eb,0x0001
02c2 00ee 0002 | | .CONST 0x00ee,0x0002
02c4 00f2 0003 | | .CONST 0x00f2,0x0003
02c6 00f4 0401 | | .CONST 0x00f4,0x0401
02c8 00f5 0402 | | .CONST 0x00f5,0x0402
02ca 00f6 0403 | | .CONST 0x00f6,0x0403
02cc 00f6 0404 | | .CONST 0x00f6,0x0404
02ce 00f8 0003 | | .CONST 0x00f8,0x0003
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug3 Subtable 0x7
02d0 ; --------------------------------------------------------------------------------------
02d0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02d2 0103 0001 | | .CONST 0x0103,0x0001
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug3 Subtable 0x8
02d4 ; --------------------------------------------------------------------------------------
02d4 0002 0009 | | .DBG3TAB 0x0002,0x0009
02d6 010b ffff | | .CONST 0x010b,0xffff
02d8 010c fffe | | .CONST 0x010c,0xfffe
02da 010d 0001 | | .CONST 0x010d,0x0001
02dc 0113 0002 | | .CONST 0x0113,0x0002
02de 0119 0003 | | .CONST 0x0119,0x0003
02e0 011c 0004 | | .CONST 0x011c,0x0004
02e2 0122 0005 | " | .CONST 0x0122,0x0005
02e4 0125 0006 | % | .CONST 0x0125,0x0006
02e6 0128 0007 | ( | .CONST 0x0128,0x0007
02e8 012e 0008 | . | .CONST 0x012e,0x0008
02ea 0131 0009 | 1 | .CONST 0x0131,0x0009
02ec ; --------------------------------------------------------------------------------------
02ec ; Debug3 Subtable 0x9
02ec ; --------------------------------------------------------------------------------------
02ec 0000 0003 | | .DBG3TAB 0x0000,0x0003
02ee 013b 0001 | ; | .CONST 0x013b,0x0001
02f0 013e 0002 | > | .CONST 0x013e,0x0002
02f2 0146 0003 | F | .CONST 0x0146,0x0003
02f4 ; --------------------------------------------------------------------------------------
02f4 ; Debug3 Subtable 0xa
02f4 ; --------------------------------------------------------------------------------------
02f4 0001 0002 | | .DBG3TAB 0x0001,0x0002
02f6 0153 ffff | S | .CONST 0x0153,0xffff
02f8 015c 0001 | \ | .CONST 0x015c,0x0001
02fa 0172 0002 | r | .CONST 0x0172,0x0002
02fc ; --------------------------------------------------------------------------------------
02fc ; Debug3 Subtable 0xb
02fc ; --------------------------------------------------------------------------------------
02fc 0000 0003 | | .DBG3TAB 0x0000,0x0003
02fe 018b 0001 | | .CONST 0x018b,0x0001
0300 018e 0002 | | .CONST 0x018e,0x0002
0302 0196 0003 | | .CONST 0x0196,0x0003
0304 ; --------------------------------------------------------------------------------------
0304 ; Debug3 Subtable 0xc
0304 ; --------------------------------------------------------------------------------------
0304 0000 0003 | | .DBG3TAB 0x0000,0x0003
0306 01a3 0001 | | .CONST 0x01a3,0x0001
0308 01a6 0002 | | .CONST 0x01a6,0x0002
030a 01ae 0003 | | .CONST 0x01ae,0x0003
030c 0000 0000 | | .BLANK 0000[0xf4]