|
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, 5812_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 5812 |X | .CONST 0x5812 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02d0 | | .CONST 0x02d0 ; 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 004c | L | .CONST 0x004c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x030a,0x8000,0x0000,0x004c,0x55b6,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x13,0xfffb 0014 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x14,0xfffa 0015 00bf | | Action Accept_Activation ; Debug Table 0x0.0x6 = 0x15,0xfff9 0016 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0016,0x031a,0x8000,0x0000,0x004c,0x5ae6,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x16,0xffff 0017 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x17,0xfffe 0018 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x19,0xfffd 001a 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x1a,0xfffc 001b e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x4 = 0x1b,0xfffb 001c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 001d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 001e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001f 0322 | " | Declare_Variable Record 0020 4803 |H | Short_Literal 0x3 0021 00d9 | | Load_Top At_Offset_1 0022 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0023 4800 |H | Short_Literal 0x0 0024 00d9 | | Load_Top At_Offset_1 0025 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0026 4801 |H | Short_Literal 0x1 0027 00d9 | | Load_Top At_Offset_1 0028 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0029 62a2 |b | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x7fffffff} 002a 00d9 | | Load_Top At_Offset_1 002b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 002c 629f |b | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x7fffffff} 002d 00d9 | | Load_Top At_Offset_1 002e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 002f 4800 |H | Short_Literal 0x0 0030 00d9 | | Load_Top At_Offset_1 0031 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0032 4800 |H | Short_Literal 0x0 0033 00d9 | | Load_Top At_Offset_1 0034 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0035 4800 |H | Short_Literal 0x0 0036 00d9 | | Load_Top At_Offset_1 0037 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0038 4800 |H | Short_Literal 0x0 0039 00d9 | | Load_Top At_Offset_1 003a 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 003b 4800 |H | Short_Literal 0x0 003c 00d9 | | Load_Top At_Offset_1 003d 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 003e 4800 |H | Short_Literal 0x0 003f 00d9 | | Load_Top At_Offset_1 0040 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0041 4800 |H | Short_Literal 0x0 0042 00d9 | | Load_Top At_Offset_1 0043 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0044 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x5 = 0x44,0xfffa 0045 00c7 | | Action Elaborate_Subprogram 0046 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0x46,0xfff9 0047 00c7 | | Action Elaborate_Subprogram 0048 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x7 = 0x48,0xfff8 0049 00c7 | | Action Elaborate_Subprogram 004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x8 = 0x4a,0xfff7 004b 00c7 | | Action Elaborate_Subprogram 004c BODY_0008: 004c 00bc | | Action Signal_Activated 004d 00bb | | Action Signal_Completion 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 006f | o | .CONST 0x006f ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0006 | | .CONST 0x0006 ; Number of locals 0053 INIT_0050: 0053 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0053,0x032e,0x0002,0x0000,0x004c,0x55b6,0x0000,0x0006 ; Debug Table 0x2.0x0 = 0x53,0xffff 0054 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0056 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x1 = 0x56,0xfffe 0057 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0058 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0059 02ff | | Declare_Variable Variant_Record 005a 00d8 | | Load_Top At_Offset_0 005b 1c00 | | Execute_Immediate Run_Utility,0x0 005c e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x5c,0xfffd 005d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 005f 02ff | | Declare_Variable Variant_Record 0060 00d8 | | Load_Top At_Offset_0 0061 1c00 | | Execute_Immediate Run_Utility,0x0 0062 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x3 = 0x62,0xfffc 0063 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0064 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0065 02ff | | Declare_Variable Variant_Record 0066 00d8 | | Load_Top At_Offset_0 0067 1c00 | | Execute_Immediate Run_Utility,0x0 0068 e211 | | Load 0x1,0x11 ; Debug Table 0x2.0x4 = 0x68,0xfffb 0069 e5ff | | Load 0x2,-0x1 006a e001 | | Load 0x0,0x1 006b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 006d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 006f BODY_0050: 006f e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x5 = 0x6f,0x1 0070 e001 | | Load 0x0,0x1 0071 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0072 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0073 180d | | Execute Package,Field_Execute,Field_Number 0xd 0074 a402 | | Store_Unchecked 0x2,0x2 0075 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x6 = 0x75,0x2 0076 0b10 | | Execute_Immediate Case_Compare,0x10 0077 7006 |p | Jump_Nonzero 0x7e 0078 0b16 | | Execute_Immediate Case_Compare,0x16 0079 7034 |p4 | Jump_Nonzero 0xae 007a 0b21 | ! | Execute_Immediate Case_Compare,0x21 007b 703e |p> | Jump_Nonzero 0xba 007c 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x7 = 0x7c,0xa 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x8 = 0x7e,0x3 007f e001 | | Load 0x0,0x1 0080 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0081 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0082 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0083 e403 | | Load 0x2,0x3 0084 016d | m | Execute Variant_Record,Structure_Write 0085 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x9 = 0x85,0x4 0086 e001 | | Load 0x0,0x1 0087 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0088 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0089 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 008a e404 | | Load 0x2,0x4 008b 016d | m | Execute Variant_Record,Structure_Write 008c 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0xa = 0x8c,0x5 008d e001 | | Load 0x0,0x1 008e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0090 016f | o | Execute Variant_Record,Equal 0091 7010 |p | Jump_Nonzero 0xa2 0092 00db | | Load_Top At_Offset_3 0093 e001 | | Load 0x0,0x1 0094 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0095 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0096 180d | | Execute Package,Field_Execute,Field_Number 0xd 0097 0c01 | | Execute_Immediate Greater_Equal,0x1 0098 6809 |h | Jump_Zero 0xa2 0099 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xb = 0x99,0x6 009a e404 | | Load 0x2,0x4 009b e001 | | Load 0x0,0x1 009c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 009d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 009e 180e | | Execute Package,Field_Execute,Field_Number 0xe 009f 00db | | Load_Top At_Offset_3 00a0 016d | m | Execute Variant_Record,Structure_Write 00a1 7830 |x0 | Jump 0xd2 00a2 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xc = 0xa2,0x7 00a3 e001 | | Load 0x0,0x1 00a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a5 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00a6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00a7 e001 | | Load 0x0,0x1 00a8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a9 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00aa 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ab 00db | | Load_Top At_Offset_3 00ac 016d | m | Execute Variant_Record,Structure_Write 00ad 7824 |x$ | Jump 0xd2 00ae e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0xd = 0xae,0x8 00af e001 | | Load 0x0,0x1 00b0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b1 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00b2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00b3 e001 | | Load 0x0,0x1 00b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b5 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00b6 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b7 00db | | Load_Top At_Offset_3 00b8 016d | m | Execute Variant_Record,Structure_Write 00b9 7818 |x | Jump 0xd2 00ba 00cf | | Action Mark_Auxiliary ; Debug Table 0x2.0xe = 0xba,0x9 00bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xf = 0xbb,0xfbff 00bc e212 | | Load 0x1,0x12 00bd e5ff | | Load 0x2,-0x1 00be e001 | | Load 0x0,0x1 00bf 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00c1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c2 e001 | | Load 0x0,0x1 00c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x10 = 0xc6,0x401 00c7 e002 | | Load 0x0,0x2 00c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00c9 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 00ca 6805 |h | Jump_Zero 0xd0 00cb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x11 = 0xcb,0x402 00cc e002 | | Load 0x0,0x2 00cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ce 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x12 = 0xd0,0x403 00d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d2 00d1 | | Pop_Control Pop_Count_1 00d3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x13 = 0xd3,0xb 00d4 e212 | | Load 0x1,0x12 00d5 00db | | Load_Top At_Offset_3 00d6 e001 | | Load 0x0,0x1 00d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d8 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00d9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 0111 | | .CONST 0x0111 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0009 | | .CONST 0x0009 ; Number of locals 00e3 INIT_00e0: 00e3 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x00e3,0x0358,0x0001,0x0000,0x004c,0x55b6,0x0000,0x0013 ; Debug Table 0x3.0x0 = 0xe3,0xffff 00e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e6 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x1 = 0xe6,0xfffe 00e7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e9 02ff | | Declare_Variable Variant_Record 00ea 00d8 | | Load_Top At_Offset_0 00eb 1c00 | | Execute_Immediate Run_Utility,0x0 00ec e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0xec,0xfffd 00ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ef 02ff | | Declare_Variable Variant_Record 00f0 00d8 | | Load_Top At_Offset_0 00f1 1c00 | | Execute_Immediate Run_Utility,0x0 00f2 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x3 = 0xf2,0xfffc 00f3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f5 02ff | | Declare_Variable Variant_Record 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x4 = 0xf8,0xfffb 00f9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fb 02ff | | Declare_Variable Variant_Record 00fc 00d8 | | Load_Top At_Offset_0 00fd 1c00 | | Execute_Immediate Run_Utility,0x0 00fe e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x5 = 0xfe,0xfffa 00ff 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0100 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0101 02ff | | Declare_Variable Variant_Record 0102 00d8 | | Load_Top At_Offset_0 0103 1c00 | | Execute_Immediate Run_Utility,0x0 0104 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x6 = 0x104,0xfff9 0105 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0106 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0107 02ff | | Declare_Variable Variant_Record 0108 00d8 | | Load_Top At_Offset_0 0109 1c00 | | Execute_Immediate Run_Utility,0x0 010a e211 | | Load 0x1,0x11 ; Debug Table 0x3.0x7 = 0x10a,0xfff8 010b e5fe | | Load 0x2,-0x2 010c e001 | | Load 0x0,0x1 010d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 010e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 010f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0110 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0111 BODY_00e0: 0111 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x8 = 0x111,0x1 0112 00d9 | | Load_Top At_Offset_1 0113 e5ff | | Load 0x2,-0x1 0114 480c |H | Short_Literal 0xc 0115 e001 | | Load 0x0,0x1 0116 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0117 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0118 180e | | Execute Package,Field_Execute,Field_Number 0xe 0119 00d1 | | Pop_Control Pop_Count_1 011a e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x9 = 0x11a,0x2 011b e001 | | Load 0x0,0x1 011c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 011d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 011e 180d | | Execute Package,Field_Execute,Field_Number 0xd 011f a402 | | Store_Unchecked 0x2,0x2 0120 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xa = 0x120,0x3 0121 0b10 | | Execute_Immediate Case_Compare,0x10 0122 7005 |p | Jump_Nonzero 0x128 0123 0b16 | | Execute_Immediate Case_Compare,0x16 0124 702e |p. | Jump_Nonzero 0x153 0125 0b0a | | Execute_Immediate Case_Compare,0xa 0126 706c |pl | Jump_Nonzero 0x193 0127 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x3.0xb = 0x127,0x17 0128 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0xc = 0x128,0x4 0129 e001 | | Load 0x0,0x1 012a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 012b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 012c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 012d e404 | | Load 0x2,0x4 012e 016d | m | Execute Variant_Record,Structure_Write 012f e404 | | Load 0x2,0x4 ; Debug Table 0x3.0xd = 0x12f,0x5 0130 e001 | | Load 0x0,0x1 0131 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0132 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0133 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0134 e406 | | Load 0x2,0x6 0135 016d | m | Execute Variant_Record,Structure_Write 0136 e406 | | Load 0x2,0x6 ; Debug Table 0x3.0xe = 0x136,0x6 0137 e001 | | Load 0x0,0x1 0138 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0139 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013a 016f | o | Execute Variant_Record,Equal 013b 680f |h | Jump_Zero 0x14b 013c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xf = 0x13c,0x7 013d 4813 |H | Short_Literal 0x13 013e e001 | | Load 0x0,0x1 013f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0140 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0141 180e | | Execute Package,Field_Execute,Field_Number 0xe 0142 e406 | | Load 0x2,0x6 0143 016d | m | Execute Variant_Record,Structure_Write 0144 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x10 = 0x144,0x8 0145 e406 | | Load 0x2,0x6 0146 e404 | | Load 0x2,0x4 0147 e001 | | Load 0x0,0x1 0148 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0149 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 014a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 014b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x11 = 0x14b,0x9 014c 4801 |H | Short_Literal 0x1 014d e406 | | Load 0x2,0x6 014e e001 | | Load 0x0,0x1 014f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0150 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0151 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0152 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0153 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x12 = 0x153,0xa 0154 4813 |H | Short_Literal 0x13 0155 e001 | | Load 0x0,0x1 0156 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0157 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0158 180e | | Execute Package,Field_Execute,Field_Number 0xe 0159 e406 | | Load 0x2,0x6 015a 016d | m | Execute Variant_Record,Structure_Write 015b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x13 = 0x15b,0xb 015c 4801 |H | Short_Literal 0x1 015d e406 | | Load 0x2,0x6 015e e001 | | Load 0x0,0x1 015f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0160 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0161 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0162 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x14 = 0x162,0xc 0163 4810 |H | Short_Literal 0x10 0164 e001 | | Load 0x0,0x1 0165 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0166 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0167 180e | | Execute Package,Field_Execute,Field_Number 0xe 0168 e405 | | Load 0x2,0x5 0169 016d | m | Execute Variant_Record,Structure_Write 016a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x15 = 0x16a,0xd 016b 481e |H | Short_Literal 0x1e 016c e001 | | Load 0x0,0x1 016d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 016e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 016f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0170 e404 | | Load 0x2,0x4 0171 016d | m | Execute Variant_Record,Structure_Write 0172 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x16 = 0x172,0xe 0173 e5fe | | Load 0x2,-0x2 0174 e001 | | Load 0x0,0x1 0175 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0176 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0177 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0178 e404 | | Load 0x2,0x4 0179 e001 | | Load 0x0,0x1 017a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 017b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 017c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 017d 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x17 = 0x17d,0xf 017e e406 | | Load 0x2,0x6 017f e404 | | Load 0x2,0x4 0180 e001 | | Load 0x0,0x1 0181 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0182 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0183 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0184 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x18 = 0x184,0x10 0185 e404 | | Load 0x2,0x4 0186 e5fe | | Load 0x2,-0x2 0187 e001 | | Load 0x0,0x1 0188 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0189 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 018a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 018b 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x19 = 0x18b,0x11 018c e405 | | Load 0x2,0x5 018d e5fe | | Load 0x2,-0x2 018e e001 | | Load 0x0,0x1 018f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0190 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0191 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0193 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x1a = 0x193,0x12 0194 4816 |H | Short_Literal 0x16 0195 e001 | | Load 0x0,0x1 0196 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0197 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0198 180e | | Execute Package,Field_Execute,Field_Number 0xe 0199 e403 | | Load 0x2,0x3 019a 016d | m | Execute Variant_Record,Structure_Write 019b 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1b = 0x19b,0x13 019c e407 | | Load 0x2,0x7 019d e403 | | Load 0x2,0x3 019e e001 | | Load 0x0,0x1 019f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a2 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x1c = 0x1a2,0x14 01a3 00da | | Load_Top At_Offset_2 01a4 00db | | Load_Top At_Offset_3 01a5 e001 | | Load 0x0,0x1 01a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a7 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01a8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a9 e5fe | | Load 0x2,-0x2 01aa e001 | | Load 0x0,0x1 01ab 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ac 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01ad 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01ae e001 | | Load 0x0,0x1 01af 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b0 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01b1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b2 480d |H | Short_Literal 0xd 01b3 e001 | | Load 0x0,0x1 01b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01b6 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b7 00d1 | | Pop_Control Pop_Count_1 01b8 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1d = 0x1b8,0x15 01b9 00db | | Load_Top At_Offset_3 01ba e403 | | Load 0x2,0x3 01bb e001 | | Load 0x0,0x1 01bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01bd 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01bf 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1e = 0x1bf,0x16 01c0 e403 | | Load 0x2,0x3 01c1 e5fe | | Load 0x2,-0x2 01c2 e001 | | Load 0x0,0x1 01c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01c4 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01c5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01ef | | .CONST 0x01ef ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0008 | | .CONST 0x0008 ; Number of locals 01cb INIT_01c8: 01cb e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x01cb,0x0398,0x0001,0x0000,0x004c,0x55b6,0x0000,0x0023 ; Debug Table 0x4.0x0 = 0x1cb,0xffff 01cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ce e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x1 = 0x1ce,0xfffe 01cf 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d1 02ff | | Declare_Variable Variant_Record 01d2 00d8 | | Load_Top At_Offset_0 01d3 1c00 | | Execute_Immediate Run_Utility,0x0 01d4 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x2 = 0x1d4,0xfffd 01d5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d7 02ff | | Declare_Variable Variant_Record 01d8 00d8 | | Load_Top At_Offset_0 01d9 1c00 | | Execute_Immediate Run_Utility,0x0 01da e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x3 = 0x1da,0xfffc 01db 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01dd 02ff | | Declare_Variable Variant_Record 01de 00d8 | | Load_Top At_Offset_0 01df 1c00 | | Execute_Immediate Run_Utility,0x0 01e0 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x4 = 0x1e0,0xfffb 01e1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e3 02ff | | Declare_Variable Variant_Record 01e4 00d8 | | Load_Top At_Offset_0 01e5 1c00 | | Execute_Immediate Run_Utility,0x0 01e6 e211 | | Load 0x1,0x11 ; Debug Table 0x4.0x5 = 0x1e6,0xfffa 01e7 e5ff | | Load 0x2,-0x1 01e8 e001 | | Load 0x0,0x1 01e9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ea 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ec 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01ed 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call 01ef BODY_01c8: 01ef e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x6 = 0x1ef,0x1 01f0 e001 | | Load 0x0,0x1 01f1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01f2 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 01f3 180d | | Execute Package,Field_Execute,Field_Number 0xd 01f4 a402 | | Store_Unchecked 0x2,0x2 01f5 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x7 = 0x1f5,0x2 01f6 0b10 | | Execute_Immediate Case_Compare,0x10 01f7 7005 |p | Jump_Nonzero 0x1fd 01f8 0b16 | | Execute_Immediate Case_Compare,0x16 01f9 705a |pZ | Jump_Nonzero 0x254 01fa 0b21 | ! | Execute_Immediate Case_Compare,0x21 01fb 708c |p | Jump_Nonzero 0x288 01fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x4.0x8 = 0x1fc,0x12 01fd e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x9 = 0x1fd,0x3 01fe e001 | | Load 0x0,0x1 01ff 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0200 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0201 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0202 e404 | | Load 0x2,0x4 0203 016d | m | Execute Variant_Record,Structure_Write 0204 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xa = 0x204,0x4 0205 e001 | | Load 0x0,0x1 0206 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0207 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0208 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0209 e405 | | Load 0x2,0x5 020a 016d | m | Execute Variant_Record,Structure_Write 020b e405 | | Load 0x2,0x5 ; Debug Table 0x4.0xb = 0x20b,0x5 020c e001 | | Load 0x0,0x1 020d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 020e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 020f 016f | o | Execute Variant_Record,Equal 0210 7006 |p | Jump_Nonzero 0x217 0211 e405 | | Load 0x2,0x5 0212 e001 | | Load 0x0,0x1 0213 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0214 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0215 180d | | Execute Package,Field_Execute,Field_Number 0xd 0216 7034 |p4 | Jump_Nonzero 0x24b 0217 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xc = 0x217,0x6 0218 e001 | | Load 0x0,0x1 0219 1b11 | | Execute Package,Field_Read,Field_Number 0x11 021a 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 021b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 021c e403 | | Load 0x2,0x3 021d 016d | m | Execute Variant_Record,Structure_Write 021e 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xd = 0x21e,0x7 021f e403 | | Load 0x2,0x3 0220 e001 | | Load 0x0,0x1 0221 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0222 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0223 180e | | Execute Package,Field_Execute,Field_Number 0xe 0224 e001 | | Load 0x0,0x1 0225 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0226 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0227 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0228 e406 | | Load 0x2,0x6 0229 016d | m | Execute Variant_Record,Structure_Write 022a e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xe = 0x22a,0x8 022b 4801 |H | Short_Literal 0x1 022c e001 | | Load 0x0,0x1 022d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 022e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 022f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0230 00d1 | | Pop_Control Pop_Count_1 0231 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xf = 0x231,0x9 0232 00db | | Load_Top At_Offset_3 0233 e407 | | Load 0x2,0x7 0234 e001 | | Load 0x0,0x1 0235 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0236 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0237 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0238 e406 | | Load 0x2,0x6 0239 e001 | | Load 0x0,0x1 023a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 023b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 023c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 023d 481b |H | Short_Literal 0x1b 023e e001 | | Load 0x0,0x1 023f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0240 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0241 180e | | Execute Package,Field_Execute,Field_Number 0xe 0242 00d1 | | Pop_Control Pop_Count_1 0243 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x10 = 0x243,0xa 0244 4801 |H | Short_Literal 0x1 0245 e001 | | Load 0x0,0x1 0246 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0247 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0248 180f | | Execute Package,Field_Execute,Field_Number 0xf 0249 00d1 | | Pop_Control Pop_Count_1 024a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024b 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x11 = 0x24b,0xb 024c 4801 |H | Short_Literal 0x1 024d 4801 |H | Short_Literal 0x1 024e e405 | | Load 0x2,0x5 024f e001 | | Load 0x0,0x1 0250 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0251 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0252 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0253 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0254 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x12 = 0x254,0xc 0255 e001 | | Load 0x0,0x1 0256 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0257 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0258 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0259 e403 | | Load 0x2,0x3 025a 016d | m | Execute Variant_Record,Structure_Write 025b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x13 = 0x25b,0xd 025c e403 | | Load 0x2,0x3 025d e001 | | Load 0x0,0x1 025e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 025f 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0260 180e | | Execute Package,Field_Execute,Field_Number 0xe 0261 e001 | | Load 0x0,0x1 0262 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0263 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0264 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0265 e406 | | Load 0x2,0x6 0266 016d | m | Execute Variant_Record,Structure_Write 0267 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x14 = 0x267,0xe 0268 4801 |H | Short_Literal 0x1 0269 e001 | | Load 0x0,0x1 026a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 026b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 026c 180f | | Execute Package,Field_Execute,Field_Number 0xf 026d 00d1 | | Pop_Control Pop_Count_1 026e e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x15 = 0x26e,0xf 026f 00db | | Load_Top At_Offset_3 0270 e407 | | Load 0x2,0x7 0271 e001 | | Load 0x0,0x1 0272 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0273 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0274 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0275 e406 | | Load 0x2,0x6 0276 e001 | | Load 0x0,0x1 0277 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0278 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0279 1815 | | Execute Package,Field_Execute,Field_Number 0x15 027a 481b |H | Short_Literal 0x1b 027b e001 | | Load 0x0,0x1 027c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 027d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 027e 180e | | Execute Package,Field_Execute,Field_Number 0xe 027f 00d1 | | Pop_Control Pop_Count_1 0280 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x16 = 0x280,0x10 0281 4801 |H | Short_Literal 0x1 0282 e001 | | Load 0x0,0x1 0283 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0284 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0285 180f | | Execute Package,Field_Execute,Field_Number 0xf 0286 00d1 | | Pop_Control Pop_Count_1 0287 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0288 8408 | | Call 0x2,0x8 ; Debug Table 0x4.0x17 = 0x288,0x11 0289 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028a 0000 0000 | | .BLANK 0000[0x6] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0295 | | .CONST 0x0295 ; Address of begin 0291 02a3 | | .CONST 0x02a3 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0293,0x03ca,0x0002,0x0000,0x004c,0x55b6,0x0000,0x002f ; Debug Table 0x5.0x0 = 0x293,0xffff 0294 820d | | Call 0x1,0xd 0295 BODY_0290: 0295 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x295,0x1 0296 e003 | | Load 0x0,0x3 0297 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0298 00d9 | | Load_Top At_Offset_1 0299 e003 | | Load 0x0,0x3 029a 180f | | Execute Package,Field_Execute,Field_Number 0xf 029b e004 | | Load 0x0,0x4 029c 180f | | Execute Package,Field_Execute,Field_Number 0xf 029d 01df | | Execute Vector,Equal 029e 6802 |h | Jump_Zero 0x2a1 029f 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x2 = 0x29f,0x2 02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a1 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x3 = 0x2a1,0x3 02a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a3 TRAP_0290: 02a3 0007 | | Action Break_Optional 02a4 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x4 = 0x2a4,0x4 02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a6 0000 0000 | | .XXX[0x2] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b6 | | .CONST 0x02b6 ; Address of begin 02a9 02c8 | | .CONST 0x02c8 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab e407 | | Load 0x2,0x7 ; Debug Table 0x6 = .DEBUG 0x02ab,0x03d6,0x0004,0x0000,0x004c,0x5ae6,0x0000,0x04df ; Debug Table 0x6.0x0 = 0x2ab,0xffff 02ac e212 | | Load 0x1,0x12 02ad e5ff | | Load 0x2,-0x1 02ae e001 | | Load 0x0,0x1 02af 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02b0 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 02b1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02b2 e001 | | Load 0x0,0x1 02b3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02b4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 02b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02b6 BODY_02a8: 02b6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x1 = 0x2b6,0x1 02b7 e002 | | Load 0x0,0x2 02b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02b9 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 02ba 680c |h | Jump_Zero 0x2c7 02bb e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x2 = 0x2bb,0x2 02bc e407 | | Load 0x2,0x7 02bd 00da | | Load_Top At_Offset_2 02be e002 | | Load 0x0,0x2 02bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c0 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 02c1 481b |H | Short_Literal 0x1b 02c2 e001 | | Load 0x0,0x1 02c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02c4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c6 00d1 | | Pop_Control Pop_Count_1 02c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c8 TRAP_02a8: 02c8 0007 | | Action Break_Optional 02c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x6.0x3 = 0x2c9,0x3 02ca 0000 0000 | | .XXX[0x2] 02cc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug Table 02d0 ; -------------------------------------------------------------------------------------- 02d0 0003 0007 | | .CONST 0x0003,0x0007 02d2 000b 030a | | .DEBUG 0x000b,0x030a,0x8000,0x0000,0x004c,0x55b6,0x0000,0x0005 02da 0016 031a | | .DEBUG 0x0016,0x031a,0x8000,0x0000,0x004c,0x5ae6,0x0000,0x000d 02e2 0053 032e | S .| .DEBUG 0x0053,0x032e,0x0002,0x0000,0x004c,0x55b6,0x0000,0x0006 02ea 00e3 0358 | X| .DEBUG 0x00e3,0x0358,0x0001,0x0000,0x004c,0x55b6,0x0000,0x0013 02f2 01cb 0398 | | .DEBUG 0x01cb,0x0398,0x0001,0x0000,0x004c,0x55b6,0x0000,0x0023 02fa 0293 03ca | | .DEBUG 0x0293,0x03ca,0x0002,0x0000,0x004c,0x55b6,0x0000,0x002f 0302 02ab 03d6 | | .DEBUG 0x02ab,0x03d6,0x0004,0x0000,0x004c,0x5ae6,0x0000,0x04df 030a ; -------------------------------------------------------------------------------------- 030a ; Debug3 Subtable 0x0 030a ; -------------------------------------------------------------------------------------- 030a 0007 0000 | | .DBG3TAB 0x0007,0x0000 030c 000b ffff | | .CONST 0x000b,0xffff 030e 000d fffe | | .CONST 0x000d,0xfffe 0310 000f fffd | | .CONST 0x000f,0xfffd 0312 0011 fffc | | .CONST 0x0011,0xfffc 0314 0013 fffb | | .CONST 0x0013,0xfffb 0316 0014 fffa | | .CONST 0x0014,0xfffa 0318 0015 fff9 | | .CONST 0x0015,0xfff9 031a ; -------------------------------------------------------------------------------------- 031a ; Debug3 Subtable 0x1 031a ; -------------------------------------------------------------------------------------- 031a 0009 0000 | | .DBG3TAB 0x0009,0x0000 031c 0016 ffff | | .CONST 0x0016,0xffff 031e 0017 fffe | | .CONST 0x0017,0xfffe 0320 0019 fffd | | .CONST 0x0019,0xfffd 0322 001a fffc | | .CONST 0x001a,0xfffc 0324 001b fffb | | .CONST 0x001b,0xfffb 0326 0044 fffa | D | .CONST 0x0044,0xfffa 0328 0046 fff9 | F | .CONST 0x0046,0xfff9 032a 0048 fff8 | H | .CONST 0x0048,0xfff8 032c 004a fff7 | J | .CONST 0x004a,0xfff7 032e ; -------------------------------------------------------------------------------------- 032e ; Debug3 Subtable 0x2 032e ; -------------------------------------------------------------------------------------- 032e 0006 000e | | .DBG3TAB 0x0006,0x000e 0330 0053 ffff | S | .CONST 0x0053,0xffff 0332 0056 fffe | V | .CONST 0x0056,0xfffe 0334 005c fffd | \ | .CONST 0x005c,0xfffd 0336 0062 fffc | b | .CONST 0x0062,0xfffc 0338 0068 fffb | h | .CONST 0x0068,0xfffb 033a 006f 0001 | o | .CONST 0x006f,0x0001 033c 0075 0002 | u | .CONST 0x0075,0x0002 033e 007c 000a | | | .CONST 0x007c,0x000a 0340 007e 0003 | ~ | .CONST 0x007e,0x0003 0342 0085 0004 | | .CONST 0x0085,0x0004 0344 008c 0005 | | .CONST 0x008c,0x0005 0346 0099 0006 | | .CONST 0x0099,0x0006 0348 00a2 0007 | | .CONST 0x00a2,0x0007 034a 00ae 0008 | | .CONST 0x00ae,0x0008 034c 00ba 0009 | | .CONST 0x00ba,0x0009 034e 00bb fbff | | .CONST 0x00bb,0xfbff 0350 00c6 0401 | | .CONST 0x00c6,0x0401 0352 00cb 0402 | | .CONST 0x00cb,0x0402 0354 00d0 0403 | | .CONST 0x00d0,0x0403 0356 00d3 000b | | .CONST 0x00d3,0x000b 0358 ; -------------------------------------------------------------------------------------- 0358 ; Debug3 Subtable 0x3 0358 ; -------------------------------------------------------------------------------------- 0358 0008 0017 | | .DBG3TAB 0x0008,0x0017 035a 00e3 ffff | | .CONST 0x00e3,0xffff 035c 00e6 fffe | | .CONST 0x00e6,0xfffe 035e 00ec fffd | | .CONST 0x00ec,0xfffd 0360 00f2 fffc | | .CONST 0x00f2,0xfffc 0362 00f8 fffb | | .CONST 0x00f8,0xfffb 0364 00fe fffa | | .CONST 0x00fe,0xfffa 0366 0104 fff9 | | .CONST 0x0104,0xfff9 0368 010a fff8 | | .CONST 0x010a,0xfff8 036a 0111 0001 | | .CONST 0x0111,0x0001 036c 011a 0002 | | .CONST 0x011a,0x0002 036e 0120 0003 | | .CONST 0x0120,0x0003 0370 0127 0017 | ' | .CONST 0x0127,0x0017 0372 0128 0004 | ( | .CONST 0x0128,0x0004 0374 012f 0005 | / | .CONST 0x012f,0x0005 0376 0136 0006 | 6 | .CONST 0x0136,0x0006 0378 013c 0007 | < | .CONST 0x013c,0x0007 037a 0144 0008 | D | .CONST 0x0144,0x0008 037c 014b 0009 | K | .CONST 0x014b,0x0009 037e 0153 000a | S | .CONST 0x0153,0x000a 0380 015b 000b | [ | .CONST 0x015b,0x000b 0382 0162 000c | b | .CONST 0x0162,0x000c 0384 016a 000d | j | .CONST 0x016a,0x000d 0386 0172 000e | r | .CONST 0x0172,0x000e 0388 017d 000f | } | .CONST 0x017d,0x000f 038a 0184 0010 | | .CONST 0x0184,0x0010 038c 018b 0011 | | .CONST 0x018b,0x0011 038e 0193 0012 | | .CONST 0x0193,0x0012 0390 019b 0013 | | .CONST 0x019b,0x0013 0392 01a2 0014 | | .CONST 0x01a2,0x0014 0394 01b8 0015 | | .CONST 0x01b8,0x0015 0396 01bf 0016 | | .CONST 0x01bf,0x0016 0398 ; -------------------------------------------------------------------------------------- 0398 ; Debug3 Subtable 0x4 0398 ; -------------------------------------------------------------------------------------- 0398 0006 0012 | | .DBG3TAB 0x0006,0x0012 039a 01cb ffff | | .CONST 0x01cb,0xffff 039c 01ce fffe | | .CONST 0x01ce,0xfffe 039e 01d4 fffd | | .CONST 0x01d4,0xfffd 03a0 01da fffc | | .CONST 0x01da,0xfffc 03a2 01e0 fffb | | .CONST 0x01e0,0xfffb 03a4 01e6 fffa | | .CONST 0x01e6,0xfffa 03a6 01ef 0001 | | .CONST 0x01ef,0x0001 03a8 01f5 0002 | | .CONST 0x01f5,0x0002 03aa 01fc 0012 | | .CONST 0x01fc,0x0012 03ac 01fd 0003 | | .CONST 0x01fd,0x0003 03ae 0204 0004 | | .CONST 0x0204,0x0004 03b0 020b 0005 | | .CONST 0x020b,0x0005 03b2 0217 0006 | | .CONST 0x0217,0x0006 03b4 021e 0007 | | .CONST 0x021e,0x0007 03b6 022a 0008 | * | .CONST 0x022a,0x0008 03b8 0231 0009 | 1 | .CONST 0x0231,0x0009 03ba 0243 000a | C | .CONST 0x0243,0x000a 03bc 024b 000b | K | .CONST 0x024b,0x000b 03be 0254 000c | T | .CONST 0x0254,0x000c 03c0 025b 000d | [ | .CONST 0x025b,0x000d 03c2 0267 000e | g | .CONST 0x0267,0x000e 03c4 026e 000f | n | .CONST 0x026e,0x000f 03c6 0280 0010 | | .CONST 0x0280,0x0010 03c8 0288 0011 | | .CONST 0x0288,0x0011 03ca ; -------------------------------------------------------------------------------------- 03ca ; Debug3 Subtable 0x5 03ca ; -------------------------------------------------------------------------------------- 03ca 0001 0004 | | .DBG3TAB 0x0001,0x0004 03cc 0293 ffff | | .CONST 0x0293,0xffff 03ce 0295 0001 | | .CONST 0x0295,0x0001 03d0 029f 0002 | | .CONST 0x029f,0x0002 03d2 02a1 0003 | | .CONST 0x02a1,0x0003 03d4 02a4 0004 | | .CONST 0x02a4,0x0004 03d6 ; -------------------------------------------------------------------------------------- 03d6 ; Debug3 Subtable 0x6 03d6 ; -------------------------------------------------------------------------------------- 03d6 0001 0003 | | .DBG3TAB 0x0001,0x0003 03d8 02ab ffff | | .CONST 0x02ab,0xffff 03da 02b6 0001 | | .CONST 0x02b6,0x0001 03dc 02bb 0002 | | .CONST 0x02bb,0x0002 03de 02c9 0003 | | .CONST 0x02c9,0x0003 03e0 0000 0000 | | .BLANK 0000[0x20]