|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0230 | 0 | .CONST 0x0230 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 005f | _ | .CONST 0x005f ; Address of begin 0019 0082 | | .CONST 0x0082 ; Address of exception handler 001a 0018 | | .CONST 0x0018 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 029e 008b | | Declare_Subprogram INIT_0088,For_Call,Unelaborated 0022 029e 009b | | Declare_Subprogram INIT_0098,For_Call,Unelaborated 0024 e001 | | Load 0x0,0x1 0025 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0026 00c6 | | Action Check_Subprogram_Elaborated 0027 4804 |H | Short_Literal 0x4 0028 4802 |H | Short_Literal 0x2 0029 0099 | | Action Reference_Dynamic 002a e002 | | Load 0x0,0x2 002b e003 | | Load 0x0,0x3 002c 4808 |H | Short_Literal 0x8 002d 0007 | | Action Break_Optional 002e 029e 00db | | Declare_Subprogram INIT_00d8,For_Call,Unelaborated 0030 a004 | | Store_Unchecked 0x0,0x4 0031 00c6 | | Action Check_Subprogram_Elaborated 0032 e001 | | Load 0x0,0x1 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 e001 | | Load 0x0,0x1 0035 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0036 e001 | | Load 0x0,0x1 0037 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0038 e001 | | Load 0x0,0x1 0039 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 003a e001 | | Load 0x0,0x1 003b 1923 | # | Execute Package,Field_Reference,Field_Number 0x23 003c e001 | | Load 0x0,0x1 003d 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24 003e e001 | | Load 0x0,0x1 003f 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 0040 e001 | | Load 0x0,0x1 0041 191d | | Execute Package,Field_Reference,Field_Number 0x1d 0042 4809 |H | Short_Literal 0x9 0043 4802 |H | Short_Literal 0x2 0044 0099 | | Action Reference_Dynamic 0045 e005 | | Load 0x0,0x5 0046 e006 | | Load 0x0,0x6 0047 4815 |H | Short_Literal 0x15 0048 0007 | | Action Break_Optional 0049 029e 00fb | | Declare_Subprogram INIT_00f8,For_Call,Unelaborated 004b 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 004d 4816 |H | Short_Literal 0x16 004e 4802 |H | Short_Literal 0x2 004f 0099 | | Action Reference_Dynamic 0050 00c7 | | Action Elaborate_Subprogram 0051 4809 |H | Short_Literal 0x9 0052 4802 |H | Short_Literal 0x2 0053 0099 | | Action Reference_Dynamic 0054 00c7 | | Action Elaborate_Subprogram 0055 4804 |H | Short_Literal 0x4 0056 4802 |H | Short_Literal 0x2 0057 0099 | | Action Reference_Dynamic 0058 00c7 | | Action Elaborate_Subprogram 0059 4803 |H | Short_Literal 0x3 005a 4802 |H | Short_Literal 0x2 005b 0099 | | Action Reference_Dynamic 005c 00c7 | | Action Elaborate_Subprogram 005d 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 005f BODY_0018: 005f 8418 | | Call 0x2,0x18 0060 e402 | | Load 0x2,0x2 0061 e001 | | Load 0x0,0x1 0062 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0063 4606 |F | Jump_Case 0x7 0064 780a |x | Jump 0x6f ; case 0x0 0065 7805 |x | Jump 0x6b ; case 0x1 0066 7818 |x | Jump 0x7f ; case 0x2 0067 7803 |x | Jump 0x6b ; case 0x3 0068 7802 |x | Jump 0x6b ; case 0x4 0069 7801 |x | Jump 0x6b ; case 0x5 006a 7800 |x | Jump 0x6b ; case 0x6 006b 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Cannot have a look at that" 006d 8403 | | Call 0x2,0x3 006e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 006f e402 | | Load 0x2,0x2 0070 e007 | | Load 0x0,0x7 0071 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0072 c402 | | Store 0x2,0x2 0073 e402 | | Load 0x2,0x2 0074 e008 | | Load 0x0,0x8 0075 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0076 6805 |h | Jump_Zero 0x7c 0077 e402 | | Load 0x2,0x2 0078 8417 | | Call 0x2,0x17 0079 e402 | | Load 0x2,0x2 007a 8416 | | Call 0x2,0x16 007b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 007c e402 | | Load 0x2,0x2 007d 8417 | | Call 0x2,0x17 007e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 007f e402 | | Load 0x2,0x2 0080 8417 | | Call 0x2,0x17 0081 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0082 TRAP_0018: 0082 e009 | | Load 0x0,0x9 0083 010f | | Execute Exception,Equal 0084 6801 |h | Jump_Zero 0x86 0085 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0086 00d8 | | Load_Top At_Offset_0 0087 0101 | | Execute Exception,Reraise 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 00da | | Load_Top At_Offset_2 008c e00a | | Load 0x0,0xa 008d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 008e e00a | | Load 0x0,0xa 008f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0090 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c e001 | | Load 0x0,0x1 009d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 009e 0f02 | | Execute_Immediate Equal,0x2 009f 6830 |h0 | Jump_Zero 0xd0 00a0 e5fa | | Load 0x2,-0x6 00a1 01db | | Execute Vector,Length 00a2 680a |h | Jump_Zero 0xad 00a3 4801 |H | Short_Literal 0x1 00a4 00db | | Load_Top At_Offset_3 00a5 e008 | | Load 0x0,0x8 00a6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00a7 e5fa | | Load 0x2,-0x6 00a8 e00b | | Load 0x0,0xb 00a9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00aa 7002 |p | Jump_Nonzero 0xad 00ab 4801 |H | Short_Literal 0x1 00ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ad 00da | | Load_Top At_Offset_2 00ae e008 | | Load 0x0,0x8 00af 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b0 00d8 | | Load_Top At_Offset_0 00b1 0c0e | | Execute_Immediate Greater_Equal,0xe 00b2 7012 |p | Jump_Nonzero 0xc5 00b3 460d |F | Jump_Case 0xe 00b4 7813 |x | Jump 0xc8 ; case 0x0 00b5 7812 |x | Jump 0xc8 ; case 0x1 00b6 7811 |x | Jump 0xc8 ; case 0x2 00b7 7810 |x | Jump 0xc8 ; case 0x3 00b8 780f |x | Jump 0xc8 ; case 0x4 00b9 7811 |x | Jump 0xcb ; case 0x5 00ba 7810 |x | Jump 0xcb ; case 0x6 00bb 780f |x | Jump 0xcb ; case 0x7 00bc 7811 |x | Jump 0xce ; case 0x8 00bd 7810 |x | Jump 0xce ; case 0x9 00be 7803 |x | Jump 0xc2 ; case 0xa 00bf 7806 |x | Jump 0xc6 ; case 0xb 00c0 7805 |x | Jump 0xc6 ; case 0xc 00c1 7800 |x | Jump 0xc2 ; case 0xd 00c2 e5fd | | Load 0x2,-0x3 00c3 0f00 | | Execute_Immediate Equal,0x0 00c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c5 00d1 | | Pop_Control Pop_Count_1 00c6 4801 |H | Short_Literal 0x1 00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c8 e5fb | | Load 0x2,-0x5 00c9 0f00 | | Execute_Immediate Equal,0x0 00ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cb e5fc | | Load 0x2,-0x4 00cc 0f00 | | Execute_Immediate Equal,0x0 00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ce 4800 |H | Short_Literal 0x0 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 4801 |H | Short_Literal 0x1 00d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00dc e008 | | Load 0x0,0x8 00dd 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00de e7fe | | Load 0x3,-0x2 00df e008 | | Load 0x0,0x8 00e0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00e1 0277 | w | Execute Discrete,Xor 00e2 6804 |h | Jump_Zero 0xe7 00e3 00db | | Load_Top At_Offset_3 00e4 e008 | | Load 0x0,0x8 00e5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e7 4801 |H | Short_Literal 0x1 00e8 e7fe | | Load 0x3,-0x2 00e9 e008 | | Load 0x0,0x8 00ea 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00eb e7ff | | Load 0x3,-0x1 00ec e008 | | Load 0x0,0x8 00ed 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00ee e00b | | Load 0x0,0xb 00ef 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f1 0000 0000 | | .BLANK 0000[0x7] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0107 | | .CONST 0x0107 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb e001 | | Load 0x0,0x1 00fc 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00fd 02c7 | | Declare_Variable Any 00fe e001 | | Load 0x0,0x1 00ff 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0100 a602 | | Store_Unchecked 0x3,0x2 0101 e001 | | Load 0x0,0x1 0102 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0103 02c7 | | Declare_Variable Any 0104 e001 | | Load 0x0,0x1 0105 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0106 a603 | | Store_Unchecked 0x3,0x3 0107 BODY_00f8: 0107 e7ff | | Load 0x3,-0x1 0108 e008 | | Load 0x0,0x8 0109 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 010a 6812 |h | Jump_Zero 0x11d 010b 00d8 | | Load_Top At_Offset_0 010c 0120 | | Execute Any,Is_Value 010d 6803 |h | Jump_Zero 0x111 010e e001 | | Load 0x0,0x1 010f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0110 7801 |x | Jump 0x112 0111 00d8 | | Load_Top At_Offset_0 0112 e7ff | | Load 0x3,-0x1 0113 e008 | | Load 0x0,0x8 0114 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0115 e001 | | Load 0x0,0x1 0116 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0117 c603 | | Store 0x3,0x3 0118 00d9 | | Load_Top At_Offset_1 0119 00d9 | | Load_Top At_Offset_1 011a e001 | | Load 0x0,0x1 011b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 011c c602 | | Store 0x3,0x2 011d e001 | | Load 0x0,0x1 011e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 011f c603 | | Store 0x3,0x3 0120 e7ff | | Load 0x3,-0x1 0121 e008 | | Load 0x0,0x8 0122 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0123 6814 |h | Jump_Zero 0x138 0124 e7ff | | Load 0x3,-0x1 0125 e008 | | Load 0x0,0x8 0126 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0127 7010 |p | Jump_Nonzero 0x138 0128 00d8 | | Load_Top At_Offset_0 0129 0120 | | Execute Any,Is_Value 012a 6803 |h | Jump_Zero 0x12e 012b e001 | | Load 0x0,0x1 012c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 012d 7801 |x | Jump 0x12f 012e 00d8 | | Load_Top At_Offset_0 012f e7ff | | Load 0x3,-0x1 0130 e008 | | Load 0x0,0x8 0131 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0132 e00c | | Load 0x0,0xc 0133 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0134 e001 | | Load 0x0,0x1 0135 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0136 c603 | | Store 0x3,0x3 0137 7815 |x | Jump 0x14d 0138 e7ff | | Load 0x3,-0x1 0139 e008 | | Load 0x0,0x8 013a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 013b 6804 |h | Jump_Zero 0x140 013c 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "problem now with generic. wait for next release of LRM_interface" 013e 8403 | | Call 0x2,0x3 013f 780d |x | Jump 0x14d 0140 00d8 | | Load_Top At_Offset_0 0141 0120 | | Execute Any,Is_Value 0142 6803 |h | Jump_Zero 0x146 0143 e001 | | Load 0x0,0x1 0144 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0145 7801 |x | Jump 0x147 0146 00d8 | | Load_Top At_Offset_0 0147 e7ff | | Load 0x3,-0x1 0148 e008 | | Load 0x0,0x8 0149 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 014a e001 | | Load 0x0,0x1 014b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 014c c603 | | Store 0x3,0x3 014d 00d9 | | Load_Top At_Offset_1 014e 00d9 | | Load_Top At_Offset_1 014f e001 | | Load 0x0,0x1 0150 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0151 c602 | | Store 0x3,0x2 0152 e001 | | Load 0x0,0x1 0153 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0154 c603 | | Store 0x3,0x3 0155 00d8 | | Load_Top At_Offset_0 0156 0120 | | Execute Any,Is_Value 0157 6803 |h | Jump_Zero 0x15b 0158 e001 | | Load 0x0,0x1 0159 1b19 | | Execute Package,Field_Read,Field_Number 0x19 015a 7801 |x | Jump 0x15c 015b 00d8 | | Load_Top At_Offset_0 015c 00da | | Load_Top At_Offset_2 015d 4805 |H | Short_Literal 0x5 015e 4802 |H | Short_Literal 0x2 015f 0099 | | Action Reference_Dynamic 0160 4806 |H | Short_Literal 0x6 0161 4802 |H | Short_Literal 0x2 0162 0099 | | Action Reference_Dynamic 0163 e001 | | Load 0x0,0x1 0164 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0165 c603 | | Store 0x3,0x3 0166 e5f9 | | Load 0x2,-0x7 0167 681b |h | Jump_Zero 0x183 0168 00d8 | | Load_Top At_Offset_0 0169 e40a | | Load 0x2,0xa 016a e40b | | Load 0x2,0xb 016b e40c | | Load 0x2,0xc 016c 480d |H | Short_Literal 0xd 016d 4802 |H | Short_Literal 0x2 016e 0099 | | Action Reference_Dynamic 016f 480e |H | Short_Literal 0xe 0170 4802 |H | Short_Literal 0x2 0171 0099 | | Action Reference_Dynamic 0172 480f |H | Short_Literal 0xf 0173 4802 |H | Short_Literal 0x2 0174 0099 | | Action Reference_Dynamic 0175 4810 |H | Short_Literal 0x10 0176 4802 |H | Short_Literal 0x2 0177 0099 | | Action Reference_Dynamic 0178 4811 |H | Short_Literal 0x11 0179 4802 |H | Short_Literal 0x2 017a 0099 | | Action Reference_Dynamic 017b 4812 |H | Short_Literal 0x12 017c 4802 |H | Short_Literal 0x2 017d 0099 | | Action Reference_Dynamic 017e 4813 |H | Short_Literal 0x13 017f 4802 |H | Short_Literal 0x2 0180 0099 | | Action Reference_Dynamic 0181 8004 | | Call 0x0,0x4 0182 c603 | | Store 0x3,0x3 0183 00d9 | | Load_Top At_Offset_1 0184 0120 | | Execute Any,Is_Value 0185 6803 |h | Jump_Zero 0x189 0186 e001 | | Load 0x0,0x1 0187 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0188 7801 |x | Jump 0x18a 0189 00d9 | | Load_Top At_Offset_1 018a 00d9 | | Load_Top At_Offset_1 018b e001 | | Load 0x0,0x1 018c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 018d c602 | | Store 0x3,0x2 018e 00cf | | Action Mark_Auxiliary 018f 7809 |x | Jump 0x199 0190 00da | | Load_Top At_Offset_2 0191 e001 | | Load 0x0,0x1 0192 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0193 8417 | | Call 0x2,0x17 0194 00da | | Load_Top At_Offset_2 0195 e001 | | Load 0x0,0x1 0196 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0197 c602 | | Store 0x3,0x2 0198 00c9 | | Action Pop_Auxiliary_Loop 0199 00da | | Load_Top At_Offset_2 019a e001 | | Load 0x0,0x1 019b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 019c 6ff3 |o | Jump_Zero 0x190 019d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019e 0000 0000 | | .XXX[0x2] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01aa | | .CONST 0x01aa ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e001 | | Load 0x0,0x1 01a4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 01a5 02c7 | | Declare_Variable Any 01a6 00db | | Load_Top At_Offset_3 01a7 e001 | | Load 0x0,0x1 01a8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01a9 a602 | | Store_Unchecked 0x3,0x2 01aa BODY_01a0: 01aa 00cf | | Action Mark_Auxiliary 01ab 7805 |x | Jump 0x1b1 01ac 00d9 | | Load_Top At_Offset_1 01ad e001 | | Load 0x0,0x1 01ae 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01af c602 | | Store 0x3,0x2 01b0 00c9 | | Action Pop_Auxiliary_Loop 01b1 4820 |H | Short_Literal 0x20 01b2 00da | | Load_Top At_Offset_2 01b3 e001 | | Load 0x0,0x1 01b4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01b5 e00b | | Load 0x0,0xb 01b6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01b7 01db | | Execute Vector,Length 01b8 6ff3 |o | Jump_Zero 0x1ac 01b9 00ce | | Action Pop_Auxiliary 01ba 00db | | Load_Top At_Offset_3 01bb e008 | | Load 0x0,0x8 01bc 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01bd 6808 |h | Jump_Zero 0x1c6 01be 00d8 | | Load_Top At_Offset_0 01bf e001 | | Load 0x0,0x1 01c0 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01c1 e00a | | Load 0x0,0xa 01c2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01c3 00db | | Load_Top At_Offset_3 01c4 8416 | | Call 0x2,0x16 01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c6 e5fe | | Load 0x2,-0x2 01c7 6812 |h | Jump_Zero 0x1da 01c8 00cf | | Action Mark_Auxiliary 01c9 780a |x | Jump 0x1d4 01ca 00d9 | | Load_Top At_Offset_1 01cb e001 | | Load 0x0,0x1 01cc 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01cd e00a | | Load 0x0,0xa 01ce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01cf 00d9 | | Load_Top At_Offset_1 01d0 e001 | | Load 0x0,0x1 01d1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01d2 c602 | | Store 0x3,0x2 01d3 00c9 | | Action Pop_Auxiliary_Loop 01d4 00d9 | | Load_Top At_Offset_1 01d5 e001 | | Load 0x0,0x1 01d6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01d7 6ff2 |o | Jump_Zero 0x1ca 01d8 00ce | | Action Pop_Auxiliary 01d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01da 00d8 | | Load_Top At_Offset_0 01db e001 | | Load 0x0,0x1 01dc 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01dd e00a | | Load 0x0,0xa 01de 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 01eb | | .CONST 0x01eb ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e5ff | | Load 0x2,-0x1 01e4 e001 | | Load 0x0,0x1 01e5 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 01e6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e7 e007 | | Load 0x0,0x7 01e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e9 c402 | | Store 0x2,0x2 01ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01eb TRAP_01e0: 01eb 0007 | | Action Break_Optional 01ec 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "unable to resolve: " 01ee e5ff | | Load 0x2,-0x1 01ef 01cc | | Execute Vector,Catenate 01f0 8403 | | Call 0x2,0x3 01f1 e009 | | Load 0x0,0x9 01f2 0257 | W | Execute Discrete,Raise 01f3 ; -------------------------------------------------------------------------------------- 01f3 ; STRING TABLE 01f3 ; -------------------------------------------------------------------------------------- 01f3 0008 | | .STRTAB 0x0008->0x01f7 ; "Cannot have a look at that" 01f4 0020 | | .STRTAB 0x0020->0x0204 ; "problem now with generic. wait for next release of LRM_interface" 01f5 005e | ^ | .STRTAB 0x005e->0x0224 ; "unable to resolve: " 01f6 006f | o | .STREND 0x006f->0x022d 01f7 4361 6e6e |Cann| .STRTAB_STRINGS 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug Table 0230 ; -------------------------------------------------------------------------------------- 0230 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f8a,0x0000,0x0001,0x0008 0236 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 023a 001b 0256 | V| .DBG4T 0x001b,0x0256,0x8001,0xc000 023e 008b 0286 | | .DBG4T 0x008b,0x0286,0x0001,0x0000 0242 009b 0289 | | .DBG4T 0x009b,0x0289,0x0002,0x4000 0246 00db 02a1 | | .DBG4T 0x00db,0x02a1,0x0002,0x0000 024a 00fb 02a6 | | .DBG4T 0x00fb,0x02a6,0x0001,0x4000 024e 01a3 02ce | | .DBG4T 0x01a3,0x02ce,0x0001,0x4000 0252 01e3 02e5 | | .DBG4T 0x01e3,0x02e5,0x0004,0x0000 0256 ; -------------------------------------------------------------------------------------- 0256 ; Debug chain 0256 ; -------------------------------------------------------------------------------------- 0256 000c 000b | | .DBGLEN 0x000c,0x000b 0258 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0022,0x0024,0x002e,0x0030,0x0049,0x004b,0x004d,0x0051,0x0055,0x0059,0x005f,0x0060,0x006b,0x006f,0x0073,0x0077,0x0079,0x007c,0x007f,0x0085,0x0086 026f 0004 0006 | | .XXX[0x17] 0271 0007 0008 | | 0273 0009 000a | | 0275 000b 000c | | 0277 000d 000e | | 0279 000f 0010 | | 027b 0001 0002 | | 027d 0009 0003 | | 027f 0004 0005 | | 0281 0006 0007 | | 0283 0008 000a | | 0285 000b | | 0286 ; -------------------------------------------------------------------------------------- 0286 ; Debug chain 0286 ; -------------------------------------------------------------------------------------- 0286 0000 0001 | | .DBGLEN 0x0000,0x0001 0288 008b | | .DBGLNO 0x008b 0289 ; -------------------------------------------------------------------------------------- 0289 ; Debug chain 0289 ; -------------------------------------------------------------------------------------- 0289 0000 000b | | .DBGLEN 0x0000,0x000b 028b 009b 00a0 | | .DBGLNO 0x009b,0x00a0,0x00a3,0x00ab,0x00ad,0x00c2,0x00c6,0x00c8,0x00cb,0x00ce,0x00d0 0296 0001 0002 | | .XXX[0xb] 0298 0003 0004 | | 029a 0005 0008 | | 029c 000a 0006 | | 029e 0007 0009 | | 02a0 000b | | 02a1 ; -------------------------------------------------------------------------------------- 02a1 ; Debug chain 02a1 ; -------------------------------------------------------------------------------------- 02a1 0000 0003 | | .DBGLEN 0x0000,0x0003 02a3 00db 00e3 | | .DBGLNO 0x00db,0x00e3,0x00e7 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 0002 0012 | | .DBGLEN 0x0002,0x0012 02a8 00fb 0101 | | .DBGLNO 0x00fb,0x0101,0x0107,0x010b,0x0118,0x011d,0x0120,0x0128,0x0138,0x013c,0x0140,0x014d,0x0152,0x0155,0x0166,0x0168,0x0183,0x0190,0x0194,0x0199 02bc 0001 0002 | | .XXX[0x12] 02be 0003 0004 | | 02c0 0005 0006 | | 02c2 0007 0008 | | 02c4 0009 000a | | 02c6 000b 000c | | 02c8 000d 000e | | 02ca 000f 0011 | | 02cc 0012 0010 | | 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0001 000a | | .DBGLEN 0x0001,0x000a 02d0 01a3 01ac | | .DBGLNO 0x01a3,0x01ac,0x01b1,0x01ba,0x01be,0x01c3,0x01c6,0x01ca,0x01cf,0x01d4,0x01da 02db 0002 0001 | | .XXX[0xa] 02dd 0003 0004 | | 02df 0005 0006 | | 02e1 0008 0009 | | 02e3 0007 000a | | 02e5 ; -------------------------------------------------------------------------------------- 02e5 ; Debug chain 02e5 ; -------------------------------------------------------------------------------------- 02e5 0000 0003 | | .DBGLEN 0x0000,0x0003 02e7 01e3 01ec | | .DBGLNO 0x01e3,0x01ec,0x01f1 02ea 0000 0000 | | .BLANK 0000[0x116]