|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01b8 | | .CONST 0x01b8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x18b, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0015 00bf | | Action Accept_Activation 0016 4804 |H | Short_Literal 0x4 0017 48ff |H | Short_Literal 0xff 0018 00e1 | | Load_Encached Boolean_Cache 0019 02a0 | | Declare_Subprogram Null_Subprogram 001a 4801 |H | Short_Literal 0x1 001b 035d | ] | Declare_Type Array,Defined 001c 00d8 | | Load_Top At_Offset_0 001d 0337 | 7 | Declare_Variable Array 001e 00d8 | | Load_Top At_Offset_0 001f 0335 | 5 | Declare_Variable Array,Duplicate 0020 00cd | | Action Spare6_Action 0021 48ff |H | Short_Literal 0xff 0022 4804 |H | Short_Literal 0x4 0023 4800 |H | Short_Literal 0x0 0024 00d9 | | Load_Top At_Offset_1 0025 e214 | | Load 0x1,0x14 0026 01d6 | | Execute Vector,Field_Write 0027 3ffb |? | Loop_Increasing 0x23 0028 00d9 | | Load_Top At_Offset_1 0029 01d4 | | Execute Vector,Structure_Write 002a 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 002c 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call 002e e001 | | Load 0x0,0x1 002f e002 | | Load 0x0,0x2 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0031 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0032 e003 | | Load 0x0,0x3 0033 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0034 0387 | | Declare_Variable Package 0035 00d8 | | Load_Top At_Offset_0 0036 020f | | Execute Module,Activate 0037 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 0039 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003a 00c7 | | Action Elaborate_Subprogram 003b 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 003d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003e 00c7 | | Action Elaborate_Subprogram 003f 4800 |H | Short_Literal 0x0 0040 0093 017b | {| push_full_address INIT_0178 0042 00f5 | | Load_Encached Unused21 0043 037d | } | Declare_Type Task,Defined 0044 036f | o | Declare_Variable Task 0045 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0046 4801 |H | Short_Literal 0x1 0047 00da | | Load_Top At_Offset_2 0048 020e | | Execute Module,Augment_Imports 0049 0007 | | Action Break_Optional 004a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004b 00c7 | | Action Elaborate_Subprogram 004c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004d 00c7 | | Action Elaborate_Subprogram 004e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004f 00c7 | | Action Elaborate_Subprogram 0050 BODY_0008: 0050 BODY_0008: 0050 00be | | Action Activate_Tasks 0051 00bc | | Action Signal_Activated 0052 00bb | | Action Signal_Completion 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006d | m | .CONST 0x006d ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0006 | | .CONST 0x0006 ; Number of locals 005b INIT_0058: 005b e004 | | Load 0x0,0x4 005c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005d 02ff | | Declare_Variable Variant_Record 005e 00d8 | | Load_Top At_Offset_0 005f 1c00 | | Execute_Immediate Run_Utility,0x0 0060 e004 | | Load 0x0,0x4 0061 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0062 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0063 02c7 | | Declare_Variable Any 0064 00d8 | | Load_Top At_Offset_0 0065 1c00 | | Execute_Immediate Run_Utility,0x0 0066 e004 | | Load 0x0,0x4 0067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0069 e004 | | Load 0x0,0x4 006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006b 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 006d BODY_0058: 006d e004 | | Load 0x0,0x4 006e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0070 e403 | | Load 0x2,0x3 0071 604a |`J | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00004000} 0072 e005 | | Load 0x0,0x5 0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0074 e006 | | Load 0x0,0x6 0075 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0076 e007 | | Load 0x0,0x7 0077 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0078 4801 |H | Short_Literal 0x1 0079 4801 |H | Short_Literal 0x1 007a e006 | | Load 0x0,0x6 007b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007c e004 | | Load 0x0,0x4 007d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 007e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 007f e5ff | | Load 0x2,-0x1 0080 e004 | | Load 0x0,0x4 0081 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0082 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0083 c403 | | Store 0x2,0x3 0084 005b | [ | Store_Top Discrete,At_Offset_3 0085 00da | | Load_Top At_Offset_2 0086 680f |h | Jump_Zero 0x96 0087 e008 | | Load 0x0,0x8 0088 180e | | Execute Package,Field_Execute,Field_Number 0xe 0089 4802 |H | Short_Literal 0x2 008a e5ff | | Load 0x2,-0x1 008b e404 | | Load 0x2,0x4 008c e004 | | Load 0x0,0x4 008d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 008e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008f e009 | | Load 0x0,0x9 0090 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0091 6026 |`& | Indirect_Literal Discrete,0xb8,{0x00000000, 0x7fffffff} 0092 a5fe | | Store_Unchecked 0x2,-0x2 0093 6024 |`$ | Indirect_Literal Discrete,0xb8,{0x00000000, 0x7fffffff} 0094 a5fd | | Store_Unchecked 0x2,-0x3 0095 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0096 e004 | | Load 0x0,0x4 0097 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0098 e402 | | Load 0x2,0x2 0099 6022 |`" | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00004000} 009a e005 | | Load 0x0,0x5 009b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009c e403 | | Load 0x2,0x3 009d e004 | | Load 0x0,0x4 009e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 009f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00a0 00d1 | | Pop_Control Pop_Count_1 00a1 005a | Z | Store_Top Discrete,At_Offset_2 00a2 00d9 | | Load_Top At_Offset_1 00a3 6811 |h | Jump_Zero 0xb5 00a4 e008 | | Load 0x0,0x8 00a5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a6 4802 |H | Short_Literal 0x2 00a7 0092 01a1 | | Action Push_String_Extended,0x1a1 ; "Version of " 00a9 e5ff | | Load 0x2,-0x1 00aa 01cc | | Execute Vector,Catenate 00ab 0092 01a2 | | Action Push_String_Extended,0x1a2 ; " does not exist" 00ad 01cc | | Execute Vector,Catenate 00ae e009 | | Load 0x0,0x9 00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b0 6007 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x7fffffff} 00b1 a5fe | | Store_Unchecked 0x2,-0x2 00b2 6005 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x7fffffff} 00b3 a5fd | | Store_Unchecked 0x2,-0x3 00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b5 8406 | | Call 0x2,0x6 00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b7 0000 | | .XXX[0x1] 00b8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e00a | | Load 0x0,0xa 00c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c5 e213 | | Load 0x1,0x13 00c6 01d7 | | Execute Vector,Field_Read 00c7 6808 |h | Jump_Zero 0xd0 00c8 e5fd | | Load 0x2,-0x3 00c9 e5fe | | Load 0x2,-0x2 00ca e5ff | | Load 0x2,-0x1 00cb 4803 |H | Short_Literal 0x3 00cc e219 | | Load 0x1,0x19 00cd 170d | | Execute Task,Entry_Call,Field_Number 0xd 00ce c5fd | | Store 0x2,-0x3 00cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d0 e5fd | | Load 0x2,-0x3 00d1 e5fe | | Load 0x2,-0x2 00d2 e5ff | | Load 0x2,-0x1 00d3 8218 | | Call 0x1,0x18 00d4 c5fd | | Store 0x2,-0x3 00d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d6 0000 0000 | | .XXX[0x2] 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 e00b | | Load 0x0,0xb 00dd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00de c5ff | | Store 0x2,-0x1 00df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4801 |H | Short_Literal 0x1 00e4 e00a | | Load 0x0,0xa 00e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e6 e213 | | Load 0x1,0x13 00e7 01d6 | | Execute Vector,Field_Write 00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4800 |H | Short_Literal 0x0 00f4 e00a | | Load 0x0,0xa 00f5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f6 e213 | | Load 0x1,0x13 00f7 01d6 | | Execute Vector,Field_Write 00f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4800 |H | Short_Literal 0x0 010c 00db | | Load_Top At_Offset_3 010d e213 | | Load 0x1,0x13 010e 01d6 | | Execute Vector,Field_Write 010f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011b | | .CONST 0x011b ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0005 | | .CONST 0x0005 ; Number of locals 0113 INIT_0110: 0113 00e2 | | Load_Encached Integer_Cache 0114 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0115 e00c | | Load 0x0,0xc 0116 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0117 e00c | | Load 0x0,0xc 0118 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0119 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 011b BODY_0110: 011b 00cf | | Action Mark_Auxiliary 011c e5ff | | Load 0x2,-0x1 011d 01d9 | | Execute Vector,Reverse_Bounds 011e 0263 | c | Execute Discrete,Above_Bound 011f 7003 |p | Jump_Nonzero 0x123 0120 8405 | | Call 0x2,0x5 0121 00c8 | | Action Pop_Auxiliary_Range 0122 3ffd |? | Loop_Increasing 0x120 0123 00ce | | Action Pop_Auxiliary 0124 00db | | Load_Top At_Offset_3 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00db | | Load_Top At_Offset_3 012c 0f01 | | Execute_Immediate Equal,0x1 012d 7008 |p | Jump_Nonzero 0x136 012e e5fd | | Load 0x2,-0x3 012f 00ea | | Load_Encached Null_String_Cache 0130 e5ff | | Load 0x2,-0x1 0131 e5fe | | Load 0x2,-0x2 0132 e00b | | Load 0x0,0xb 0133 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0134 c5fd | | Store 0x2,-0x3 0135 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0136 e5fd | | Load 0x2,-0x3 0137 00ea | | Load_Encached Null_String_Cache 0138 e5ff | | Load 0x2,-0x1 0139 e00b | | Load 0x0,0xb 013a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013b c5fd | | Store 0x2,-0x3 013c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0147 | G | .CONST 0x0147 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e402 | | Load 0x2,0x2 0144 e00d | | Load 0x0,0xd 0145 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0146 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0147 BODY_0140: 0147 00d8 | | Load_Top At_Offset_0 0148 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0149 8217 | | Call 0x1,0x17 014a a5fe | | Store_Unchecked 0x2,-0x2 014b 00d8 | | Load_Top At_Offset_0 014c 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 014d 8217 | | Call 0x1,0x17 014e a5fd | | Store_Unchecked 0x2,-0x3 014f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0157 | W | .CONST 0x0157 ; Address of begin 0151 0168 | h | .CONST 0x0168 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 e408 | | Load 0x2,0x8 0154 e5ff | | Load 0x2,-0x1 0155 01d5 | | Execute Vector,Field_Reference 0156 0007 | | Action Break_Optional 0157 BODY_0150: 0157 00d8 | | Load_Top At_Offset_0 0158 e00d | | Load 0x0,0xd 0159 1810 | | Execute Package,Field_Execute,Field_Number 0x10 015a 680c |h | Jump_Zero 0x167 015b 00d8 | | Load_Top At_Offset_0 015c e00d | | Load 0x0,0xd 015d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 015e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015f a404 | | Store_Unchecked 0x2,0x4 0160 e404 | | Load 0x2,0x4 0161 e00c | | Load 0x0,0xc 0162 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0163 c403 | | Store 0x2,0x3 0164 e402 | | Load 0x2,0x2 0165 0a01 | | Execute_Immediate Plus,0x1 0166 c402 | | Store 0x2,0x2 0167 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0168 TRAP_0150: 0168 e003 | | Load 0x0,0x3 0169 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 016a 010f | | Execute Exception,Equal 016b 6801 |h | Jump_Zero 0x16d 016c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016d e402 | | Load 0x2,0x2 016e 0a01 | | Execute_Immediate Plus,0x1 016f c402 | | Store 0x2,0x2 0170 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0181 | | .CONST 0x0181 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 000e | | .CONST 0x000e ; Number of locals 017b INIT_0178: 017b 4803 |H | Short_Literal 0x3 017c 02cb | | Declare_Variable Entry 017d 00bf | | Action Accept_Activation 017e 029f 018b | | Declare_Subprogram INIT_0188,For_Call 0180 00bc | | Action Signal_Activated 0181 BODY_0178: 0181 00cf | | Action Mark_Auxiliary 0182 820e | | Call 0x1,0xe 0183 00c9 | | Action Pop_Auxiliary_Loop 0184 7ffd | | Jump 0x182 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0192 | | .CONST 0x0192 ; Address of begin 0189 0195 | | .CONST 0x0195 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b 480d 4833 |H H3| Declare_Variable Select 0x000, 0x001, 018d 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 018f 4800 4801 |H H | [0x00d]: 0x033 = 0x0198 0191 02cf | | 0192 BODY_0188: 0192 00d8 | | Load_Top At_Offset_0 0193 013f | ? | Execute Select,Rendezvous 0194 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0195 TRAP_0188: 0195 0007 | | Action Break_Optional 0196 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; See instruction 0x02cf at 0x18b, index=0xd 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b e7fc | | Load 0x3,-0x4 019c e7fd | | Load 0x3,-0x3 019d e7fe | | Load 0x3,-0x2 019e 8001 | | Call 0x0,0x1 019f c7fc | | Store 0x3,-0x4 01a0 4101 |A | End_Rendezvous 0x1 01a1 ; -------------------------------------------------------------------------------------- 01a1 ; STRING TABLE 01a1 ; -------------------------------------------------------------------------------------- 01a1 0006 | | .STRTAB 0x0006->0x01a4 ; "Version of " 01a2 000f | | .STRTAB 0x000f->0x01a9 ; " does not exist" 01a3 001c | | .STREND 0x001c->0x01b1 01a4 5665 7273 |Vers| .STRTAB_STRINGS 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; Debug Table 01b8 ; -------------------------------------------------------------------------------------- 01b8 0004 0009 | | .DEBUG4 0x0004,0x0009,0xf33e,0x0000,0x0001,0x0000 01be 0000 0000 | | .BLANK 0000[0x42]