|
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 01c8 | | .CONST 0x01c8 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0202,0x0000,0x0000,0x0057,0x29a5,0x0000,0x0faf ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 00bf | | Action Accept_Activation 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0014,0x020c,0x0000,0x0000,0x0059,0x7435,0x0000,0x0004 ; Debug Table 0x1.0x0 = 0x14,0xffff 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x16,0xfffe 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x18,0xfffd 0019 00c7 | | Action Elaborate_Subprogram 001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x1a,0xfffc 001b 00c7 | | Action Elaborate_Subprogram 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0030 | 0 | .CONST 0x0030 ; Address of begin 0021 0078 | x | .CONST 0x0078 ; Address of exception handler 0022 0006 | | .CONST 0x0006 ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0023,0x0216,0x0001,0x0000,0x0057,0x29a5,0x0000,0x0fb0 ; Debug Table 0x2.0x0 = 0x23,0xffff 0024 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0025 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0026 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x26,0xfffe 0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0028 02c7 | | Declare_Variable Any 0029 00d8 | | Load_Top At_Offset_0 002a 1c00 | | Execute_Immediate Run_Utility,0x0 002b e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x2b,0xfffd 002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002d e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x3 = 0x2d,0xfffc 002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x4 = 0x2f,0xfffb 0030 BODY_0020: 0030 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x5 = 0x30,0x1 0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0032 e5fb | | Load 0x2,-0x5 0033 e002 | | Load 0x0,0x2 0034 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0035 c403 | | Store 0x2,0x3 0036 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x6 = 0x36,0x2 0037 4800 |H | Short_Literal 0x0 0038 4801 |H | Short_Literal 0x1 0039 e5f9 | | Load 0x2,-0x7 003a e403 | | Load 0x2,0x3 003b e5fc | | Load 0x2,-0x4 003c e001 | | Load 0x0,0x1 003d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 003e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 003f a402 | | Store_Unchecked 0x2,0x2 0040 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x7 = 0x40,0x3 0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0042 4801 |H | Short_Literal 0x1 0043 e5ff | | Load 0x2,-0x1 0044 e402 | | Load 0x2,0x2 0045 e004 | | Load 0x0,0x4 0046 180e | | Execute Package,Field_Execute,Field_Number 0xe 0047 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0048 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x8 = 0x48,0x4 0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004a 4800 |H | Short_Literal 0x0 004b e5fe | | Load 0x2,-0x2 004c e402 | | Load 0x2,0x2 004d e004 | | Load 0x0,0x4 004e 180d | | Execute Package,Field_Execute,Field_Number 0xd 004f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0050 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x9 = 0x50,0x5 0051 e001 | | Load 0x0,0x1 0052 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0053 021f | | Execute Heap_Access,Equal 0054 700b |p | Jump_Nonzero 0x60 0055 00d9 | | Load_Top At_Offset_1 0056 e001 | | Load 0x0,0x1 0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0058 021f | | Execute Heap_Access,Equal 0059 7006 |p | Jump_Nonzero 0x60 005a e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0xa = 0x5a,0x6 005b 00da | | Load_Top At_Offset_2 005c e404 | | Load 0x2,0x4 005d e402 | | Load 0x2,0x2 005e e004 | | Load 0x0,0x4 005f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0060 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xb = 0x60,0x7 0061 e001 | | Load 0x0,0x1 0062 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0063 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0064 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xc = 0x64,0x8 0065 e001 | | Load 0x0,0x1 0066 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0068 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0069 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0xd = 0x69,0x9 006a 4801 |H | Short_Literal 0x1 006b 00da | | Load_Top At_Offset_2 006c e5fb | | Load 0x2,-0x5 006d e002 | | Load 0x0,0x2 006e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 006f c403 | | Store 0x2,0x3 0070 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xe = 0x70,0xa 0071 e001 | | Load 0x0,0x1 0072 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0073 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0074 c5f9 | | Store 0x2,-0x7 0075 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xf = 0x75,0xb 0076 a5fa | | Store_Unchecked 0x2,-0x6 0077 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0078 TRAP_0020: 0078 0007 | | Action Break_Optional 0079 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x10 = 0x79,0xc 007a e402 | | Load 0x2,0x2 007b 8005 | | Call 0x0,0x5 007c e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x11 = 0x7c,0xd 007d e001 | | Load 0x0,0x1 007e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 007f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0080 c5f9 | | Store 0x2,-0x7 0081 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x12 = 0x81,0xe 0082 a5fa | | Store_Unchecked 0x2,-0x6 0083 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0098 | | .CONST 0x0098 ; Address of begin 0089 00df | | .CONST 0x00df ; Address of exception handler 008a 0006 | | .CONST 0x0006 ; Number of locals 008b INIT_0088: 008b e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x008b,0x023e,0x0001,0x0000,0x0057,0x29a5,0x0000,0x0fe2 ; Debug Table 0x3.0x0 = 0x8b,0xffff 008c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 008d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 008e e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x8e,0xfffe 008f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0090 02c7 | | Declare_Variable Any 0091 00d8 | | Load_Top At_Offset_0 0092 1c00 | | Execute_Immediate Run_Utility,0x0 0093 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0x93,0xfffd 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x3 = 0x95,0xfffc 0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0097 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x4 = 0x97,0xfffb 0098 BODY_0088: 0098 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x5 = 0x98,0x1 0099 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009a e5fc | | Load 0x2,-0x4 009b e002 | | Load 0x0,0x2 009c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 009d c403 | | Store 0x2,0x3 009e 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x6 = 0x9e,0x2 009f 4800 |H | Short_Literal 0x0 00a0 4801 |H | Short_Literal 0x1 00a1 e5fa | | Load 0x2,-0x6 00a2 e403 | | Load 0x2,0x3 00a3 e5fd | | Load 0x2,-0x3 00a4 e001 | | Load 0x0,0x1 00a5 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00a6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a7 a402 | | Store_Unchecked 0x2,0x2 00a8 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x7 = 0xa8,0x3 00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00aa 4801 |H | Short_Literal 0x1 00ab e5ff | | Load 0x2,-0x1 00ac e402 | | Load 0x2,0x2 00ad e004 | | Load 0x0,0x4 00ae 180e | | Execute Package,Field_Execute,Field_Number 0xe 00af 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00b0 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x8 = 0xb0,0x4 00b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b2 4801 |H | Short_Literal 0x1 00b3 e5fe | | Load 0x2,-0x2 00b4 e402 | | Load 0x2,0x2 00b5 e004 | | Load 0x0,0x4 00b6 180d | | Execute Package,Field_Execute,Field_Number 0xd 00b7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00b8 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x9 = 0xb8,0x5 00b9 e001 | | Load 0x0,0x1 00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bb 021f | | Execute Heap_Access,Equal 00bc 700a |p | Jump_Nonzero 0xc7 00bd 00d9 | | Load_Top At_Offset_1 00be e001 | | Load 0x0,0x1 00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c0 021f | | Execute Heap_Access,Equal 00c1 7005 |p | Jump_Nonzero 0xc7 00c2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xa = 0xc2,0x6 00c3 00db | | Load_Top At_Offset_3 00c4 e402 | | Load 0x2,0x2 00c5 e004 | | Load 0x0,0x4 00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c7 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xb = 0xc7,0x7 00c8 e001 | | Load 0x0,0x1 00c9 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 00ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00cb e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xc = 0xcb,0x8 00cc e001 | | Load 0x0,0x1 00cd 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00cf 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00d0 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xd = 0xd0,0x9 00d1 4801 |H | Short_Literal 0x1 00d2 00da | | Load_Top At_Offset_2 00d3 e5fc | | Load 0x2,-0x4 00d4 e002 | | Load 0x0,0x2 00d5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d6 c403 | | Store 0x2,0x3 00d7 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xe = 0xd7,0xa 00d8 e001 | | Load 0x0,0x1 00d9 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00da 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00db c5fa | | Store 0x2,-0x6 00dc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xf = 0xdc,0xb 00dd a5fb | | Store_Unchecked 0x2,-0x5 00de 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00df TRAP_0088: 00df 0007 | | Action Break_Optional 00e0 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x10 = 0xe0,0xc 00e1 e402 | | Load 0x2,0x2 00e2 8005 | | Call 0x0,0x5 00e3 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x11 = 0xe3,0xd 00e4 e001 | | Load 0x0,0x1 00e5 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00e6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e7 c5fa | | Store 0x2,-0x6 00e8 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x12 = 0xe8,0xe 00e9 a5fb | | Store_Unchecked 0x2,-0x5 00ea 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0100 | | .CONST 0x0100 ; Address of begin 00f1 0147 | G | .CONST 0x0147 ; Address of exception handler 00f2 0006 | | .CONST 0x0006 ; Number of locals 00f3 INIT_00f0: 00f3 e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x00f3,0x0266,0x0001,0x0000,0x0057,0x29a5,0x0000,0x100e ; Debug Table 0x4.0x0 = 0xf3,0xffff 00f4 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f6 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1 = 0xf6,0xfffe 00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f8 02c7 | | Declare_Variable Any 00f9 00d8 | | Load_Top At_Offset_0 00fa 1c00 | | Execute_Immediate Run_Utility,0x0 00fb e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x2 = 0xfb,0xfffd 00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fd e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x3 = 0xfd,0xfffc 00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ff 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x4 = 0xff,0xfffb 0100 BODY_00f0: 0100 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x5 = 0x100,0x1 0101 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0102 e5fc | | Load 0x2,-0x4 0103 e002 | | Load 0x0,0x2 0104 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0105 c403 | | Store 0x2,0x3 0106 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x6 = 0x106,0x2 0107 4800 |H | Short_Literal 0x0 0108 4801 |H | Short_Literal 0x1 0109 e5fa | | Load 0x2,-0x6 010a e403 | | Load 0x2,0x3 010b e5fd | | Load 0x2,-0x3 010c e001 | | Load 0x0,0x1 010d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 010e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010f a402 | | Store_Unchecked 0x2,0x2 0110 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x7 = 0x110,0x3 0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0112 4801 |H | Short_Literal 0x1 0113 e5ff | | Load 0x2,-0x1 0114 e402 | | Load 0x2,0x2 0115 e004 | | Load 0x0,0x4 0116 180e | | Execute Package,Field_Execute,Field_Number 0xe 0117 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0118 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x8 = 0x118,0x4 0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011a 4801 |H | Short_Literal 0x1 011b e5fe | | Load 0x2,-0x2 011c e402 | | Load 0x2,0x2 011d e004 | | Load 0x0,0x4 011e 180d | | Execute Package,Field_Execute,Field_Number 0xd 011f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0120 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x9 = 0x120,0x5 0121 e001 | | Load 0x0,0x1 0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0123 021f | | Execute Heap_Access,Equal 0124 700a |p | Jump_Nonzero 0x12f 0125 00d9 | | Load_Top At_Offset_1 0126 e001 | | Load 0x0,0x1 0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0128 021f | | Execute Heap_Access,Equal 0129 7005 |p | Jump_Nonzero 0x12f 012a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0xa = 0x12a,0x6 012b 00db | | Load_Top At_Offset_3 012c e402 | | Load 0x2,0x2 012d e004 | | Load 0x0,0x4 012e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 012f e402 | | Load 0x2,0x2 ; Debug Table 0x4.0xb = 0x12f,0x7 0130 e001 | | Load 0x0,0x1 0131 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 0132 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0133 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0xc = 0x133,0x8 0134 e001 | | Load 0x0,0x1 0135 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0136 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0137 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0138 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0xd = 0x138,0x9 0139 4801 |H | Short_Literal 0x1 013a 00da | | Load_Top At_Offset_2 013b e5fc | | Load 0x2,-0x4 013c e002 | | Load 0x0,0x2 013d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 013e c403 | | Store 0x2,0x3 013f e402 | | Load 0x2,0x2 ; Debug Table 0x4.0xe = 0x13f,0xa 0140 e001 | | Load 0x0,0x1 0141 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0142 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0143 c5fa | | Store 0x2,-0x6 0144 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xf = 0x144,0xb 0145 a5fb | | Store_Unchecked 0x2,-0x5 0146 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0147 TRAP_00f0: 0147 0007 | | Action Break_Optional 0148 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x10 = 0x148,0xc 0149 e402 | | Load 0x2,0x2 014a 8005 | | Call 0x0,0x5 014b e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x11 = 0x14b,0xd 014c e001 | | Load 0x0,0x1 014d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 014e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 014f c5fa | | Store 0x2,-0x6 0150 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x12 = 0x150,0xe 0151 a5fb | | Store_Unchecked 0x2,-0x5 0152 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0169 | i | .CONST 0x0169 ; Address of begin 0159 016b | k | .CONST 0x016b ; Address of exception handler 015a 0007 | | .CONST 0x0007 ; Number of locals 015b INIT_0158: 015b e001 | | Load 0x0,0x1 ; Debug Table 0x5 = .DEBUG 0x015b,0x028e,0x2801,0x0002,0x0057,0x29a5,0x0000,0x103a ; Debug Table 0x5.0x0 = 0x15b,0xffff 015c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 015d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 015e e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x1 = 0x15e,0xfffe 015f 190f | | Execute Package,Field_Reference,Field_Number 0xf 0160 00c6 | | Action Check_Subprogram_Elaborated 0161 4ffe |O | Short_Literal -0x2 0162 4802 |H | Short_Literal 0x2 0163 0099 | | Action Reference_Dynamic 0164 605f |`_ | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x00597435} 0165 4a9c |J | Short_Literal 0x29c 0166 4806 |H | Short_Literal 0x6 0167 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0169 BODY_0158: 0169 8407 | | Call 0x2,0x7 ; Debug Table 0x5.0x2 = 0x169,0x1 016a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 016b TRAP_0158: 016b 0007 | | Action Break_Optional 016c e5fb | | Load 0x2,-0x5 ; Debug Table 0x5.0x3 = 0x16c,0x2 016d e402 | | Load 0x2,0x2 016e 8005 | | Call 0x0,0x5 016f e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x4 = 0x16f,0x3 0170 e001 | | Load 0x0,0x1 0171 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0172 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0173 c5f9 | | Store 0x2,-0x7 0174 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x5 = 0x174,0x4 0175 a5fa | | Store_Unchecked 0x2,-0x6 0176 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0183 | | .CONST 0x0183 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0004 | | .CONST 0x0004 ; Number of locals 017b INIT_0178: 017b e002 | | Load 0x0,0x2 ; Debug Table 0x6 = .DEBUG 0x017b,0x029c,0x0804,0x0002,0x0059,0x7435,0x0000,0x0317 ; Debug Table 0x6.0x0 = 0x17b,0xffff 017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017d 02c7 | | Declare_Variable Any 017e 00d8 | | Load_Top At_Offset_0 017f 1c00 | | Execute_Immediate Run_Utility,0x0 0180 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x1 = 0x180,0xfffe 0181 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0182 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x2 = 0x182,0xfffd 0183 BODY_0178: 0183 e003 | | Load 0x0,0x3 ; Debug Table 0x6.0x3 = 0x183,0x1 0184 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0185 e5fb | | Load 0x2,-0x5 0186 e002 | | Load 0x0,0x2 0187 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0188 c602 | | Store 0x3,0x2 0189 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x4 = 0x189,0x2 018a 4800 |H | Short_Literal 0x0 018b 4801 |H | Short_Literal 0x1 018c e5f9 | | Load 0x2,-0x7 018d e602 | | Load 0x3,0x2 018e e5fc | | Load 0x2,-0x4 018f e001 | | Load 0x0,0x1 0190 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0191 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0192 a402 | | Store_Unchecked 0x2,0x2 0193 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x5 = 0x193,0x3 0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0195 4802 |H | Short_Literal 0x2 0196 e5fd | | Load 0x2,-0x3 0197 e402 | | Load 0x2,0x2 0198 e004 | | Load 0x0,0x4 0199 180e | | Execute Package,Field_Execute,Field_Number 0xe 019a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 019b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x6 = 0x19b,0x4 019c e001 | | Load 0x0,0x1 019d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019e 021f | | Execute Heap_Access,Equal 019f 700a |p | Jump_Nonzero 0x1aa 01a0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x7 = 0x1a0,0x5 01a1 e402 | | Load 0x2,0x2 01a2 4803 |H | Short_Literal 0x3 01a3 4802 |H | Short_Literal 0x2 01a4 0099 | | Action Reference_Dynamic 01a5 4804 |H | Short_Literal 0x4 01a6 4802 |H | Short_Literal 0x2 01a7 0099 | | Action Reference_Dynamic 01a8 e004 | | Load 0x0,0x4 01a9 180f | | Execute Package,Field_Execute,Field_Number 0xf 01aa e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x8 = 0x1aa,0x6 01ab e001 | | Load 0x0,0x1 01ac 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a 01ad 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01ae e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x9 = 0x1ae,0x7 01af e001 | | Load 0x0,0x1 01b0 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xa = 0x1b3,0x8 01b4 4801 |H | Short_Literal 0x1 01b5 00da | | Load_Top At_Offset_2 01b6 e5fb | | Load 0x2,-0x5 01b7 e002 | | Load 0x0,0x2 01b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01b9 c602 | | Store 0x3,0x2 01ba e402 | | Load 0x2,0x2 ; Debug Table 0x6.0xb = 0x1ba,0x9 01bb e001 | | Load 0x0,0x1 01bc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01be c5f9 | | Store 0x2,-0x7 01bf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xc = 0x1bf,0xa 01c0 a5fa | | Store_Unchecked 0x2,-0x6 01c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c2 0000 0000 | | .XXX[0x2] 01c4 0000 0000 | | .LITERAL {0x00000000, 0x00597435} 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0003 0007 | | .CONST 0x0003,0x0007 01ca 000b 0202 | | .DEBUG 0x000b,0x0202,0x0000,0x0000,0x0057,0x29a5,0x0000,0x0faf 01d2 0014 020c | | .DEBUG 0x0014,0x020c,0x0000,0x0000,0x0059,0x7435,0x0000,0x0004 01da 0023 0216 | # | .DEBUG 0x0023,0x0216,0x0001,0x0000,0x0057,0x29a5,0x0000,0x0fb0 01e2 008b 023e | >| .DEBUG 0x008b,0x023e,0x0001,0x0000,0x0057,0x29a5,0x0000,0x0fe2 01ea 00f3 0266 | f| .DEBUG 0x00f3,0x0266,0x0001,0x0000,0x0057,0x29a5,0x0000,0x100e 01f2 015b 028e | [ | .DEBUG 0x015b,0x028e,0x2801,0x0002,0x0057,0x29a5,0x0000,0x103a 01fa 017b 029c | { | .DEBUG 0x017b,0x029c,0x0804,0x0002,0x0059,0x7435,0x0000,0x0317 0202 ; -------------------------------------------------------------------------------------- 0202 ; Debug3 Subtable 0x0 0202 ; -------------------------------------------------------------------------------------- 0202 0004 0000 | | .DBG3TAB 0x0004,0x0000 0204 000b ffff | | .CONST 0x000b,0xffff 0206 000d fffe | | .CONST 0x000d,0xfffe 0208 000f fffd | | .CONST 0x000f,0xfffd 020a 0011 fffc | | .CONST 0x0011,0xfffc 020c ; -------------------------------------------------------------------------------------- 020c ; Debug3 Subtable 0x1 020c ; -------------------------------------------------------------------------------------- 020c 0004 0000 | | .DBG3TAB 0x0004,0x0000 020e 0014 ffff | | .CONST 0x0014,0xffff 0210 0016 fffe | | .CONST 0x0016,0xfffe 0212 0018 fffd | | .CONST 0x0018,0xfffd 0214 001a fffc | | .CONST 0x001a,0xfffc 0216 ; -------------------------------------------------------------------------------------- 0216 ; Debug3 Subtable 0x2 0216 ; -------------------------------------------------------------------------------------- 0216 0005 000e | | .DBG3TAB 0x0005,0x000e 0218 0023 ffff | # | .CONST 0x0023,0xffff 021a 0026 fffe | & | .CONST 0x0026,0xfffe 021c 002b fffd | + | .CONST 0x002b,0xfffd 021e 002d fffc | - | .CONST 0x002d,0xfffc 0220 002f fffb | / | .CONST 0x002f,0xfffb 0222 0030 0001 | 0 | .CONST 0x0030,0x0001 0224 0036 0002 | 6 | .CONST 0x0036,0x0002 0226 0040 0003 | @ | .CONST 0x0040,0x0003 0228 0048 0004 | H | .CONST 0x0048,0x0004 022a 0050 0005 | P | .CONST 0x0050,0x0005 022c 005a 0006 | Z | .CONST 0x005a,0x0006 022e 0060 0007 | ` | .CONST 0x0060,0x0007 0230 0064 0008 | d | .CONST 0x0064,0x0008 0232 0069 0009 | i | .CONST 0x0069,0x0009 0234 0070 000a | p | .CONST 0x0070,0x000a 0236 0075 000b | u | .CONST 0x0075,0x000b 0238 0079 000c | y | .CONST 0x0079,0x000c 023a 007c 000d | | | .CONST 0x007c,0x000d 023c 0081 000e | | .CONST 0x0081,0x000e 023e ; -------------------------------------------------------------------------------------- 023e ; Debug3 Subtable 0x3 023e ; -------------------------------------------------------------------------------------- 023e 0005 000e | | .DBG3TAB 0x0005,0x000e 0240 008b ffff | | .CONST 0x008b,0xffff 0242 008e fffe | | .CONST 0x008e,0xfffe 0244 0093 fffd | | .CONST 0x0093,0xfffd 0246 0095 fffc | | .CONST 0x0095,0xfffc 0248 0097 fffb | | .CONST 0x0097,0xfffb 024a 0098 0001 | | .CONST 0x0098,0x0001 024c 009e 0002 | | .CONST 0x009e,0x0002 024e 00a8 0003 | | .CONST 0x00a8,0x0003 0250 00b0 0004 | | .CONST 0x00b0,0x0004 0252 00b8 0005 | | .CONST 0x00b8,0x0005 0254 00c2 0006 | | .CONST 0x00c2,0x0006 0256 00c7 0007 | | .CONST 0x00c7,0x0007 0258 00cb 0008 | | .CONST 0x00cb,0x0008 025a 00d0 0009 | | .CONST 0x00d0,0x0009 025c 00d7 000a | | .CONST 0x00d7,0x000a 025e 00dc 000b | | .CONST 0x00dc,0x000b 0260 00e0 000c | | .CONST 0x00e0,0x000c 0262 00e3 000d | | .CONST 0x00e3,0x000d 0264 00e8 000e | | .CONST 0x00e8,0x000e 0266 ; -------------------------------------------------------------------------------------- 0266 ; Debug3 Subtable 0x4 0266 ; -------------------------------------------------------------------------------------- 0266 0005 000e | | .DBG3TAB 0x0005,0x000e 0268 00f3 ffff | | .CONST 0x00f3,0xffff 026a 00f6 fffe | | .CONST 0x00f6,0xfffe 026c 00fb fffd | | .CONST 0x00fb,0xfffd 026e 00fd fffc | | .CONST 0x00fd,0xfffc 0270 00ff fffb | | .CONST 0x00ff,0xfffb 0272 0100 0001 | | .CONST 0x0100,0x0001 0274 0106 0002 | | .CONST 0x0106,0x0002 0276 0110 0003 | | .CONST 0x0110,0x0003 0278 0118 0004 | | .CONST 0x0118,0x0004 027a 0120 0005 | | .CONST 0x0120,0x0005 027c 012a 0006 | * | .CONST 0x012a,0x0006 027e 012f 0007 | / | .CONST 0x012f,0x0007 0280 0133 0008 | 3 | .CONST 0x0133,0x0008 0282 0138 0009 | 8 | .CONST 0x0138,0x0009 0284 013f 000a | ? | .CONST 0x013f,0x000a 0286 0144 000b | D | .CONST 0x0144,0x000b 0288 0148 000c | H | .CONST 0x0148,0x000c 028a 014b 000d | K | .CONST 0x014b,0x000d 028c 0150 000e | P | .CONST 0x0150,0x000e 028e ; -------------------------------------------------------------------------------------- 028e ; Debug3 Subtable 0x5 028e ; -------------------------------------------------------------------------------------- 028e 0002 0004 | | .DBG3TAB 0x0002,0x0004 0290 015b ffff | [ | .CONST 0x015b,0xffff 0292 015e fffe | ^ | .CONST 0x015e,0xfffe 0294 0169 0001 | i | .CONST 0x0169,0x0001 0296 016c 0002 | l | .CONST 0x016c,0x0002 0298 016f 0003 | o | .CONST 0x016f,0x0003 029a 0174 0004 | t | .CONST 0x0174,0x0004 029c ; -------------------------------------------------------------------------------------- 029c ; Debug3 Subtable 0x6 029c ; -------------------------------------------------------------------------------------- 029c 0003 000a | | .DBG3TAB 0x0003,0x000a 029e 017b ffff | { | .CONST 0x017b,0xffff 02a0 0180 fffe | | .CONST 0x0180,0xfffe 02a2 0182 fffd | | .CONST 0x0182,0xfffd 02a4 0183 0001 | | .CONST 0x0183,0x0001 02a6 0189 0002 | | .CONST 0x0189,0x0002 02a8 0193 0003 | | .CONST 0x0193,0x0003 02aa 019b 0004 | | .CONST 0x019b,0x0004 02ac 01a0 0005 | | .CONST 0x01a0,0x0005 02ae 01aa 0006 | | .CONST 0x01aa,0x0006 02b0 01ae 0007 | | .CONST 0x01ae,0x0007 02b2 01b3 0008 | | .CONST 0x01b3,0x0008 02b4 01ba 0009 | | .CONST 0x01ba,0x0009 02b6 01bf 000a | | .CONST 0x01bf,0x000a 02b8 0000 0000 | | .BLANK 0000[0x148]