|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Types: SEG Notes: 5807_R1K_CODE Names: »1244178.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »1244178.SEG« └─ ⟦this⟧ »1244178.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »1244178.SEG« └─ ⟦this⟧ »1244178.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »1244178.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »1244178.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »1244178.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5807 |X | .CONST 0x5807 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02f0 | | .CONST 0x02f0 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x036a,0x8000,0x0000,0x0010,0xb364,0x0000,0x0008 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xd,0xfffe 000e 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd 0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc 0012 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb 0014 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x14,0xfffa 0016 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x16,0xfff9 0018 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x18,0xfff8 001a 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1a,0xfff7 001c 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1c,0xfff6 001e 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1e,0xfff5 0020 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x20,0xfff4 0022 00bf | | Action Accept_Activation 0023 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0023,0x0384,0x8000,0x0000,0x0010,0xb394,0x0000,0x0015 ; Debug Table 0x1.0x0 = 0x23,0xffff 0024 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x24,0xfffe 0025 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x25,0xfffd 0026 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x26,0xfffc 0027 00c7 | | Action Elaborate_Subprogram 0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x4 = 0x28,0xfffb 0029 00c7 | | Action Elaborate_Subprogram 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x5 = 0x2a,0xfffa 002b 00c7 | | Action Elaborate_Subprogram 002c 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x6 = 0x2c,0xfff9 002d 00c7 | | Action Elaborate_Subprogram 002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x7 = 0x2e,0xfff8 002f 00c7 | | Action Elaborate_Subprogram 0030 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x30,0xfff7 0031 00c7 | | Action Elaborate_Subprogram 0032 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x32,0xfff6 0033 00c7 | | Action Elaborate_Subprogram 0034 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xa = 0x34,0xfff5 0035 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f 0036 00c6 | | Action Check_Subprogram_Elaborated 0037 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0038 62a3 |b | Indirect_Literal Discrete,0x2dc,{0x00000000, 0x0010b394} 0039 4b4f |KO | Short_Literal 0x34f 003a 4800 |H | Short_Literal 0x0 003b 0007 | | Action Break_Optional 003c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xb = 0x3c,0xfff4 003d 00c7 | | Action Elaborate_Subprogram 003e 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call ; Debug Table 0x1.0xc = 0x3e,0xfff3 0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xd = 0x40,0xfff2 0041 00c7 | | Action Elaborate_Subprogram 0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xe = 0x42,0xfff1 0043 00c7 | | Action Elaborate_Subprogram 0044 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xf = 0x44,0xfff0 0045 1940 | @ | Execute Package,Field_Reference,Field_Number 0x40 0046 00c6 | | Action Check_Subprogram_Elaborated 0047 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0048 6293 |b | Indirect_Literal Discrete,0x2dc,{0x00000000, 0x0010b394} 0049 628e |b | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00000438} 004a 4800 |H | Short_Literal 0x0 004b 0007 | | Action Break_Optional 004c 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call ; Debug Table 0x1.0x10 = 0x4c,0xffef 004e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x11 = 0x4e,0xffee 004f 00c7 | | Action Elaborate_Subprogram 0050 BODY_0008: 0050 00bc | | Action Signal_Activated 0051 00bb | | Action Signal_Completion 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005d | ] | .CONST 0x005d ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x005b,0x03aa,0x0001,0x0000,0x0010,0xb364,0x0000,0x0009 ; Debug Table 0x2.0x0 = 0x5b,0xffff 005c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005d BODY_0058: 005d e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x1 = 0x5d,0x1 005e 8213 | | Call 0x1,0x13 005f a402 | | Store_Unchecked 0x2,0x2 0060 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x2 = 0x60,0x2 0061 7005 |p | Jump_Nonzero 0x67 0062 e5ff | | Load 0x2,-0x1 0063 8211 | | Call 0x1,0x11 0064 6802 |h | Jump_Zero 0x67 0065 626e |bn | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x10b36401} ; Debug Table 0x2.0x3 = 0x65,0x3 0066 0257 | W | Execute Discrete,Raise 0067 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x4 = 0x67,0x4 0068 e5fe | | Load 0x2,-0x2 0069 e5ff | | Load 0x2,-0x1 006a e003 | | Load 0x0,0x3 006b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006c 00d1 | | Pop_Control Pop_Count_1 006d e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x5 = 0x6d,0x5 006e 6807 |h | Jump_Zero 0x76 006f e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x6 = 0x6f,0x6 0070 e5fc | | Load 0x2,-0x4 0071 e402 | | Load 0x2,0x2 0072 e001 | | Load 0x0,0x1 0073 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0074 00d1 | | Pop_Control Pop_Count_1 0075 c5fb | | Store 0x2,-0x5 0076 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 0084 | | .CONST 0x0084 ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0005 | | .CONST 0x0005 ; Number of locals 007b INIT_0078: 007b e002 | | Load 0x0,0x2 ; Debug Table 0x3 = .DEBUG 0x007b,0x03ba,0x0001,0x0000,0x0010,0xb364,0x0000,0x002e ; Debug Table 0x3.0x0 = 0x7b,0xffff 007c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007d e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x1 = 0x7d,0xfffe 007e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007f 0322 | " | Declare_Variable Record 0080 e403 | | Load 0x2,0x3 0081 1c00 | | Execute_Immediate Run_Utility,0x0 0082 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x2 = 0x82,0xfffd 0083 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x3 = 0x83,0xfffc 0084 BODY_0078: 0084 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x4 = 0x84,0x1 0085 e403 | | Load 0x2,0x3 0086 e5ff | | Load 0x2,-0x1 0087 e5fe | | Load 0x2,-0x2 0088 e003 | | Load 0x0,0x3 0089 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008a 00d1 | | Pop_Control Pop_Count_1 008b c404 | | Store 0x2,0x4 008c e404 | | Load 0x2,0x4 ; Debug Table 0x3.0x5 = 0x8c,0x2 008d 6813 |h | Jump_Zero 0xa1 008e e403 | | Load 0x2,0x3 ; Debug Table 0x3.0x6 = 0x8e,0x3 008f 8213 | | Call 0x1,0x13 0090 a402 | | Store_Unchecked 0x2,0x2 0091 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x7 = 0x91,0x4 0092 6809 |h | Jump_Zero 0x9c 0093 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x8 = 0x93,0x5 0094 e5fc | | Load 0x2,-0x4 0095 e5fd | | Load 0x2,-0x3 0096 e402 | | Load 0x2,0x2 0097 e001 | | Load 0x0,0x1 0098 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0099 00d1 | | Pop_Control Pop_Count_1 009a c5fc | | Store 0x2,-0x4 009b c405 | | Store 0x2,0x5 009c e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x9 = 0x9c,0x6 009d e5ff | | Load 0x2,-0x1 009e e003 | | Load 0x0,0x3 009f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a0 00d1 | | Pop_Control Pop_Count_1 00a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e5fd | | Load 0x2,-0x3 ; Debug Table 0x4 = .DEBUG 0x00ab,0x03d0,0x0001,0x0000,0x0010,0xb364,0x0000,0x0048 ; Debug Table 0x4.0x0 = 0xab,0x1 00ac e003 | | Load 0x0,0x3 00ad 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ae 00d1 | | Pop_Control Pop_Count_1 00af 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1 = 0xaf,0x2 00b0 a5fb | | Store_Unchecked 0x2,-0x5 00b1 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2 = 0xb1,0x3 00b2 4801 |H | Short_Literal 0x1 00b3 0263 | c | Execute Discrete,Above_Bound 00b4 700c |p | Jump_Nonzero 0xc1 00b5 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0x3 = 0xb5,0x4 00b6 e5fc | | Load 0x2,-0x4 00b7 e5fd | | Load 0x2,-0x3 00b8 4800 |H | Short_Literal 0x0 00b9 e403 | | Load 0x2,0x3 00ba e5ff | | Load 0x2,-0x1 00bb e003 | | Load 0x0,0x3 00bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bd 820d | | Call 0x1,0xd 00be 00d2 | | Pop_Control Pop_Count_2 00bf c5fb | | Store 0x2,-0x5 00c0 3ff4 |? | Loop_Increasing 0xb5 00c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cf | | .CONST 0x00cf ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb e002 | | Load 0x0,0x2 ; Debug Table 0x5 = .DEBUG 0x00cb,0x03da,0x0001,0x0000,0x0010,0xb364,0x0000,0x0066 ; Debug Table 0x5.0x0 = 0xcb,0xffff 00cc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00cd 0337 | 7 | Declare_Variable Array 00ce 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x1 = 0xce,0xfffe 00cf BODY_00c8: 00cf e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x2 = 0xcf,0x1 00d0 e402 | | Load 0x2,0x2 00d1 01d4 | | Execute Vector,Structure_Write 00d2 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x3 = 0xd2,0x2 00d3 e5ff | | Load 0x2,-0x1 00d4 8217 | | Call 0x1,0x17 00d5 01d2 | | Execute Vector,Or 00d6 e402 | | Load 0x2,0x2 00d7 01d4 | | Execute Vector,Structure_Write 00d8 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x4 = 0xd8,0x3 00d9 e5ff | | Load 0x2,-0x1 00da 821c | | Call 0x1,0x1c 00db e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x5 = 0xdb,0x4 00dc e5ff | | Load 0x2,-0x1 00dd 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00de 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00df e001 | | Load 0x0,0x1 00e0 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00e1 0279 | y | Execute Discrete,And 00e2 a403 | | Store_Unchecked 0x2,0x3 00e3 e403 | | Load 0x2,0x3 ; Debug Table 0x5.0x6 = 0xe3,0x5 00e4 e5ff | | Load 0x2,-0x1 00e5 8221 | ! | Call 0x1,0x21 00e6 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x7 = 0xe6,0x6 00e7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6 = .DEBUG 0x00f3,0x03ec,0x0002,0x0000,0x0010,0xb364,0x0000,0x007c ; Debug Table 0x6.0x0 = 0xf3,0x1 00f4 e004 | | Load 0x0,0x4 00f5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00f6 700e |p | Jump_Nonzero 0x105 00f7 e5ff | | Load 0x2,-0x1 00f8 e004 | | Load 0x0,0x4 00f9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00fa 680a |h | Jump_Zero 0x105 00fb e5ff | | Load 0x2,-0x1 00fc e004 | | Load 0x0,0x4 00fd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00fe 6806 |h | Jump_Zero 0x105 00ff e5ff | | Load 0x2,-0x1 0100 e004 | | Load 0x0,0x4 0101 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0102 6802 |h | Jump_Zero 0x105 0103 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x1 = 0x103,0x2 0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0105 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x2 = 0x105,0x3 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010c | | .CONST 0x010c ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x7 = .DEBUG 0x010b,0x03f4,0x0002,0x0000,0x0010,0xb364,0x0000,0x0087 ; Debug Table 0x7.0x0 = 0x10b,0xffff 010c BODY_0108: 010c 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x1 = 0x10c,0x1 010d a402 | | Store_Unchecked 0x2,0x2 010e e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x2 = 0x10e,0x2 010f e003 | | Load 0x0,0x3 0110 180f | | Execute Package,Field_Execute,Field_Number 0xf 0111 4801 |H | Short_Literal 0x1 0112 0263 | c | Execute Discrete,Above_Bound 0113 7009 |p | Jump_Nonzero 0x11d 0114 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x3 = 0x114,0x3 0115 e404 | | Load 0x2,0x4 0116 e5ff | | Load 0x2,-0x1 0117 e003 | | Load 0x0,0x3 0118 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0119 8211 | | Call 0x1,0x11 011a 0279 | y | Execute Discrete,And 011b a402 | | Store_Unchecked 0x2,0x2 011c 3ff7 |? | Loop_Increasing 0x114 011d e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x4 = 0x11d,0x4 011e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0125 | % | .CONST 0x0125 ; Address of begin 0121 0141 | A | .CONST 0x0141 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e002 | | Load 0x0,0x2 ; Debug Table 0x8 = .DEBUG 0x0123,0x0400,0x0002,0x0000,0x0010,0xb364,0x0000,0x0092 ; Debug Table 0x8.0x0 = 0x123,0xffff 0124 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0125 BODY_0120: 0125 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x1 = 0x125,0x1 0126 e004 | | Load 0x0,0x4 0127 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0128 7002 |p | Jump_Nonzero 0x12b 0129 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x2 = 0x129,0x2 012a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012b e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x3 = 0x12b,0x3 012c e004 | | Load 0x0,0x4 012d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 012e e5ff | | Load 0x2,-0x1 012f e004 | | Load 0x0,0x4 0130 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0131 e5ff | | Load 0x2,-0x1 0132 e004 | | Load 0x0,0x4 0133 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0134 e006 | | Load 0x0,0x6 0135 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0136 e5ff | | Load 0x2,-0x1 0137 e004 | | Load 0x0,0x4 0138 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0139 e007 | | Load 0x0,0x7 013a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 013b 025b | [ | Execute Discrete,Check_In_Type 013c e008 | | Load 0x0,0x8 013d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013e a402 | | Store_Unchecked 0x2,0x2 013f e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x4 = 0x13f,0x4 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 TRAP_0120: 0141 0007 | | Action Break_Optional 0142 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x5 = 0x142,0x5 0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e5ff | | Load 0x2,-0x1 ; Debug Table 0x9 = .DEBUG 0x014b,0x040e,0x0002,0x0000,0x0010,0xb364,0x0000,0x00a1 ; Debug Table 0x9.0x0 = 0x14b,0x1 014c e5fe | | Load 0x2,-0x2 014d 01d2 | | Execute Vector,Or 014e e002 | | Load 0x0,0x2 014f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0150 01c3 | | Execute Vector,Check_In_Type 0151 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e5ff | | Load 0x2,-0x1 ; Debug Table 0xa = .DEBUG 0x015b,0x0412,0x0002,0x0000,0x0010,0xb364,0x0000,0x00b3 ; Debug Table 0xa.0x0 = 0x15b,0x1 015c e004 | | Load 0x0,0x4 015d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 015e 4602 |F | Jump_Case 0x3 015f 7802 |x | Jump 0x162 ; case 0x0 0160 78d9 |x | Jump 0x23a ; case 0x1 0161 7910 |y | Jump 0x272 ; case 0x2 0162 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x1 = 0x162,0x2 0163 e004 | | Load 0x0,0x4 0164 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0165 4605 |F | Jump_Case 0x6 0166 7805 |x | Jump 0x16c ; case 0x0 0167 783a |x: | Jump 0x1a2 ; case 0x1 0168 7865 |xe | Jump 0x1ce ; case 0x2 0169 7838 |x8 | Jump 0x1a2 ; case 0x3 016a 7863 |xc | Jump 0x1ce ; case 0x4 016b 7898 |x | Jump 0x204 ; case 0x5 016c e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x2 = 0x16c,0x3 016d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 016e 0337 | 7 | Declare_Variable Array 016f 4801 |H | Short_Literal 0x1 0170 4801 |H | Short_Literal 0x1 0171 e402 | | Load 0x2,0x2 0172 01d6 | | Execute Vector,Field_Write 0173 4801 |H | Short_Literal 0x1 0174 4802 |H | Short_Literal 0x2 0175 e402 | | Load 0x2,0x2 0176 01d6 | | Execute Vector,Field_Write 0177 4801 |H | Short_Literal 0x1 0178 4803 |H | Short_Literal 0x3 0179 e402 | | Load 0x2,0x2 017a 01d6 | | Execute Vector,Field_Write 017b 4801 |H | Short_Literal 0x1 017c 4809 |H | Short_Literal 0x9 017d e402 | | Load 0x2,0x2 017e 01d6 | | Execute Vector,Field_Write 017f 4801 |H | Short_Literal 0x1 0180 4804 |H | Short_Literal 0x4 0181 e402 | | Load 0x2,0x2 0182 01d6 | | Execute Vector,Field_Write 0183 4801 |H | Short_Literal 0x1 0184 4805 |H | Short_Literal 0x5 0185 e402 | | Load 0x2,0x2 0186 01d6 | | Execute Vector,Field_Write 0187 4801 |H | Short_Literal 0x1 0188 4806 |H | Short_Literal 0x6 0189 e402 | | Load 0x2,0x2 018a 01d6 | | Execute Vector,Field_Write 018b 4801 |H | Short_Literal 0x1 018c 4807 |H | Short_Literal 0x7 018d e402 | | Load 0x2,0x2 018e 01d6 | | Execute Vector,Field_Write 018f 4800 |H | Short_Literal 0x0 0190 4800 |H | Short_Literal 0x0 0191 e402 | | Load 0x2,0x2 0192 01d6 | | Execute Vector,Field_Write 0193 4800 |H | Short_Literal 0x0 0194 4808 |H | Short_Literal 0x8 0195 e402 | | Load 0x2,0x2 0196 01d6 | | Execute Vector,Field_Write 0197 480f |H | Short_Literal 0xf 0198 480a |H | Short_Literal 0xa 0199 4800 |H | Short_Literal 0x0 019a e404 | | Load 0x2,0x4 019b e402 | | Load 0x2,0x2 019c 01d6 | | Execute Vector,Field_Write 019d 3ffb |? | Loop_Increasing 0x199 019e e002 | | Load 0x0,0x2 019f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01a0 01c3 | | Execute Vector,Check_In_Type 01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a2 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x3 = 0x1a2,0x4 01a3 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01a4 0337 | 7 | Declare_Variable Array 01a5 4801 |H | Short_Literal 0x1 01a6 4803 |H | Short_Literal 0x3 01a7 e402 | | Load 0x2,0x2 01a8 01d6 | | Execute Vector,Field_Write 01a9 4801 |H | Short_Literal 0x1 01aa 4809 |H | Short_Literal 0x9 01ab e402 | | Load 0x2,0x2 01ac 01d6 | | Execute Vector,Field_Write 01ad 4801 |H | Short_Literal 0x1 01ae 4805 |H | Short_Literal 0x5 01af e402 | | Load 0x2,0x2 01b0 01d6 | | Execute Vector,Field_Write 01b1 4802 |H | Short_Literal 0x2 01b2 4800 |H | Short_Literal 0x0 01b3 4800 |H | Short_Literal 0x0 01b4 e404 | | Load 0x2,0x4 01b5 e402 | | Load 0x2,0x2 01b6 01d6 | | Execute Vector,Field_Write 01b7 3ffb |? | Loop_Increasing 0x1b3 01b8 4800 |H | Short_Literal 0x0 01b9 4804 |H | Short_Literal 0x4 01ba e402 | | Load 0x2,0x2 01bb 01d6 | | Execute Vector,Field_Write 01bc 4808 |H | Short_Literal 0x8 01bd 4806 |H | Short_Literal 0x6 01be 4800 |H | Short_Literal 0x0 01bf e404 | | Load 0x2,0x4 01c0 e402 | | Load 0x2,0x2 01c1 01d6 | | Execute Vector,Field_Write 01c2 3ffb |? | Loop_Increasing 0x1be 01c3 480f |H | Short_Literal 0xf 01c4 480a |H | Short_Literal 0xa 01c5 4800 |H | Short_Literal 0x0 01c6 e404 | | Load 0x2,0x4 01c7 e402 | | Load 0x2,0x2 01c8 01d6 | | Execute Vector,Field_Write 01c9 3ffb |? | Loop_Increasing 0x1c5 01ca e002 | | Load 0x0,0x2 01cb 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01cc 01c3 | | Execute Vector,Check_In_Type 01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ce e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x4 = 0x1ce,0x5 01cf 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01d0 0337 | 7 | Declare_Variable Array 01d1 4801 |H | Short_Literal 0x1 01d2 4801 |H | Short_Literal 0x1 01d3 e402 | | Load 0x2,0x2 01d4 01d6 | | Execute Vector,Field_Write 01d5 4801 |H | Short_Literal 0x1 01d6 4802 |H | Short_Literal 0x2 01d7 e402 | | Load 0x2,0x2 01d8 01d6 | | Execute Vector,Field_Write 01d9 4801 |H | Short_Literal 0x1 01da 4803 |H | Short_Literal 0x3 01db e402 | | Load 0x2,0x2 01dc 01d6 | | Execute Vector,Field_Write 01dd 4801 |H | Short_Literal 0x1 01de 4809 |H | Short_Literal 0x9 01df e402 | | Load 0x2,0x2 01e0 01d6 | | Execute Vector,Field_Write 01e1 4801 |H | Short_Literal 0x1 01e2 4804 |H | Short_Literal 0x4 01e3 e402 | | Load 0x2,0x2 01e4 01d6 | | Execute Vector,Field_Write 01e5 4801 |H | Short_Literal 0x1 01e6 4805 |H | Short_Literal 0x5 01e7 e402 | | Load 0x2,0x2 01e8 01d6 | | Execute Vector,Field_Write 01e9 4801 |H | Short_Literal 0x1 01ea 4806 |H | Short_Literal 0x6 01eb e402 | | Load 0x2,0x2 01ec 01d6 | | Execute Vector,Field_Write 01ed 4800 |H | Short_Literal 0x0 01ee 4800 |H | Short_Literal 0x0 01ef e402 | | Load 0x2,0x2 01f0 01d6 | | Execute Vector,Field_Write 01f1 4800 |H | Short_Literal 0x0 01f2 4807 |H | Short_Literal 0x7 01f3 e402 | | Load 0x2,0x2 01f4 01d6 | | Execute Vector,Field_Write 01f5 4800 |H | Short_Literal 0x0 01f6 4808 |H | Short_Literal 0x8 01f7 e402 | | Load 0x2,0x2 01f8 01d6 | | Execute Vector,Field_Write 01f9 480f |H | Short_Literal 0xf 01fa 480a |H | Short_Literal 0xa 01fb 4800 |H | Short_Literal 0x0 01fc e404 | | Load 0x2,0x4 01fd e402 | | Load 0x2,0x2 01fe 01d6 | | Execute Vector,Field_Write 01ff 3ffb |? | Loop_Increasing 0x1fb 0200 e002 | | Load 0x0,0x2 0201 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0202 01c3 | | Execute Vector,Check_In_Type 0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0204 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x5 = 0x204,0x6 0205 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0206 0337 | 7 | Declare_Variable Array 0207 4801 |H | Short_Literal 0x1 0208 4801 |H | Short_Literal 0x1 0209 e402 | | Load 0x2,0x2 020a 01d6 | | Execute Vector,Field_Write 020b 4801 |H | Short_Literal 0x1 020c 4802 |H | Short_Literal 0x2 020d e402 | | Load 0x2,0x2 020e 01d6 | | Execute Vector,Field_Write 020f 4801 |H | Short_Literal 0x1 0210 4803 |H | Short_Literal 0x3 0211 e402 | | Load 0x2,0x2 0212 01d6 | | Execute Vector,Field_Write 0213 4801 |H | Short_Literal 0x1 0214 4809 |H | Short_Literal 0x9 0215 e402 | | Load 0x2,0x2 0216 01d6 | | Execute Vector,Field_Write 0217 4801 |H | Short_Literal 0x1 0218 4804 |H | Short_Literal 0x4 0219 e402 | | Load 0x2,0x2 021a 01d6 | | Execute Vector,Field_Write 021b 4801 |H | Short_Literal 0x1 021c 4805 |H | Short_Literal 0x5 021d e402 | | Load 0x2,0x2 021e 01d6 | | Execute Vector,Field_Write 021f 4801 |H | Short_Literal 0x1 0220 4806 |H | Short_Literal 0x6 0221 e402 | | Load 0x2,0x2 0222 01d6 | | Execute Vector,Field_Write 0223 4800 |H | Short_Literal 0x0 0224 4800 |H | Short_Literal 0x0 0225 e402 | | Load 0x2,0x2 0226 01d6 | | Execute Vector,Field_Write 0227 4800 |H | Short_Literal 0x0 0228 4807 |H | Short_Literal 0x7 0229 e402 | | Load 0x2,0x2 022a 01d6 | | Execute Vector,Field_Write 022b 4800 |H | Short_Literal 0x0 022c 4808 |H | Short_Literal 0x8 022d e402 | | Load 0x2,0x2 022e 01d6 | | Execute Vector,Field_Write 022f 480f |H | Short_Literal 0xf 0230 480a |H | Short_Literal 0xa 0231 4800 |H | Short_Literal 0x0 0232 e404 | | Load 0x2,0x4 0233 e402 | | Load 0x2,0x2 0234 01d6 | | Execute Vector,Field_Write 0235 3ffb |? | Loop_Increasing 0x231 0236 e002 | | Load 0x0,0x2 0237 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0238 01c3 | | Execute Vector,Check_In_Type 0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023a e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x6 = 0x23a,0x7 023b e004 | | Load 0x0,0x4 023c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 023d 681a |h | Jump_Zero 0x258 023e e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x7 = 0x23e,0x8 023f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0240 0337 | 7 | Declare_Variable Array 0241 4801 |H | Short_Literal 0x1 0242 480d |H | Short_Literal 0xd 0243 e402 | | Load 0x2,0x2 0244 01d6 | | Execute Vector,Field_Write 0245 480c |H | Short_Literal 0xc 0246 4800 |H | Short_Literal 0x0 0247 4800 |H | Short_Literal 0x0 0248 e404 | | Load 0x2,0x4 0249 e402 | | Load 0x2,0x2 024a 01d6 | | Execute Vector,Field_Write 024b 3ffb |? | Loop_Increasing 0x247 024c 4800 |H | Short_Literal 0x0 024d 480e |H | Short_Literal 0xe 024e e402 | | Load 0x2,0x2 024f 01d6 | | Execute Vector,Field_Write 0250 4800 |H | Short_Literal 0x0 0251 480f |H | Short_Literal 0xf 0252 e402 | | Load 0x2,0x2 0253 01d6 | | Execute Vector,Field_Write 0254 e002 | | Load 0x0,0x2 0255 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0256 01c3 | | Execute Vector,Check_In_Type 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0258 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x8 = 0x258,0x9 0259 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 025a 0337 | 7 | Declare_Variable Array 025b 4801 |H | Short_Literal 0x1 025c 480d |H | Short_Literal 0xd 025d e402 | | Load 0x2,0x2 025e 01d6 | | Execute Vector,Field_Write 025f 4801 |H | Short_Literal 0x1 0260 480e |H | Short_Literal 0xe 0261 e402 | | Load 0x2,0x2 0262 01d6 | | Execute Vector,Field_Write 0263 480c |H | Short_Literal 0xc 0264 4800 |H | Short_Literal 0x0 0265 4800 |H | Short_Literal 0x0 0266 e404 | | Load 0x2,0x4 0267 e402 | | Load 0x2,0x2 0268 01d6 | | Execute Vector,Field_Write 0269 3ffb |? | Loop_Increasing 0x265 026a 4800 |H | Short_Literal 0x0 026b 480f |H | Short_Literal 0xf 026c e402 | | Load 0x2,0x2 026d 01d6 | | Execute Vector,Field_Write 026e e002 | | Load 0x0,0x2 026f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0270 01c3 | | Execute Vector,Check_In_Type 0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0272 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x9 = 0x272,0xa 0273 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0274 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027e | ~ | .CONST 0x027e ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b e002 | | Load 0x0,0x2 ; Debug Table 0xb = .DEBUG 0x027b,0x0428,0x0002,0x0000,0x0010,0xb364,0x0000,0x00c2 ; Debug Table 0xb.0x0 = 0x27b,0xffff 027c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 027d 0337 | 7 | Declare_Variable Array 027e BODY_0278: 027e e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x1 = 0x27e,0x1 027f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0280 e402 | | Load 0x2,0x2 0281 01d4 | | Execute Vector,Structure_Write 0282 e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0x2 = 0x282,0x2 0283 e003 | | Load 0x0,0x3 0284 180f | | Execute Package,Field_Execute,Field_Number 0xf 0285 4801 |H | Short_Literal 0x1 0286 0263 | c | Execute Discrete,Above_Bound 0287 700a |p | Jump_Nonzero 0x292 0288 e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x3 = 0x288,0x3 0289 e5ff | | Load 0x2,-0x1 028a e003 | | Load 0x0,0x3 028b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 028c 8215 | | Call 0x1,0x15 028d e402 | | Load 0x2,0x2 028e 8214 | | Call 0x1,0x14 028f e402 | | Load 0x2,0x2 0290 01d4 | | Execute Vector,Structure_Write 0291 3ff6 |? | Loop_Increasing 0x288 0292 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x4 = 0x292,0x4 0293 e003 | | Load 0x0,0x3 0294 180f | | Execute Package,Field_Execute,Field_Number 0xf 0295 4801 |H | Short_Literal 0x1 0296 0263 | c | Execute Discrete,Above_Bound 0297 700a |p | Jump_Nonzero 0x2a2 0298 e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x5 = 0x298,0x5 0299 e5fe | | Load 0x2,-0x2 029a e003 | | Load 0x0,0x3 029b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 029c 8215 | | Call 0x1,0x15 029d e402 | | Load 0x2,0x2 029e 8214 | | Call 0x1,0x14 029f e402 | | Load 0x2,0x2 02a0 01d4 | | Execute Vector,Structure_Write 02a1 3ff6 |? | Loop_Increasing 0x298 02a2 e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x6 = 0x2a2,0x6 02a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a4 0000 0000 | | .BLANK 0000[0x4] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e5ff | | Load 0x2,-0x1 ; Debug Table 0xc = .DEBUG 0x02ab,0x0438,0x0002,0x0000,0x0010,0xb364,0x0000,0x00d7 ; Debug Table 0xc.0x0 = 0x2ab,0x1 02ac 1d18 | | Execute_Immediate Reference_Lex_1,0x18 02ad 1d19 | | Execute_Immediate Reference_Lex_1,0x19 02ae e001 | | Load 0x0,0x1 02af 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 02b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b1 0000 0000 | | .BLANK 0000[0x7] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 02cf | | .CONST 0x02cf ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb e5fe | | Load 0x2,-0x2 ; Debug Table 0xd = .DEBUG 0x02bb,0x043c,0x0001,0x0000,0x0010,0xb394,0x0000,0x0371 ; Debug Table 0xd.0x0 = 0x2bb,0x1 02bc e5ff | | Load 0x2,-0x1 02bd e001 | | Load 0x0,0x1 02be 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02bf e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x1 = 0x2bf,0x2 02c0 e001 | | Load 0x0,0x1 02c1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c2 4604 |F | Jump_Case 0x5 02c3 7804 |x | Jump 0x2c8 ; case 0x0 02c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1 02c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x2 02c6 7801 |x | Jump 0x2c8 ; case 0x3 02c7 7800 |x | Jump 0x2c8 ; case 0x4 02c8 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x2 = 0x2c8,0x4 02c9 e5ff | | Load 0x2,-0x1 02ca e009 | | Load 0x0,0x9 02cb 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02cc e002 | | Load 0x0,0x2 02cd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 02ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02cf TRAP_02b8: 02cf 0007 | | Action Break_Optional 02d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0xd.0x3 = 0x2d0,0x5 02d1 0000 0000 | | .XXX[0x3] 02d3 0000 | | 02d4 0000 0000 | | .LITERAL {0x00000000, 0x10b36401} 02d8 0000 0000 | | .LITERAL {0x00000000, 0x00000438} 02dc 0000 0000 | | .LITERAL {0x00000000, 0x0010b394} 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 e5fe | | Load 0x2,-0x2 ; Debug Table 0xe = .DEBUG 0x02e3,0x0446,0x0001,0x0000,0x0010,0xb394,0x0000,0x0442 ; Debug Table 0xe.0x0 = 0x2e3,0x1 02e4 e5ff | | Load 0x2,-0x1 02e5 e001 | | Load 0x0,0x1 02e6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02e7 e005 | | Load 0x0,0x5 02e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ea 0000 0000 | | .BLANK 0000[0x6] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug Table 02f0 ; -------------------------------------------------------------------------------------- 02f0 0003 000f | | .CONST 0x0003,0x000f 02f2 000b 036a | j| .DEBUG 0x000b,0x036a,0x8000,0x0000,0x0010,0xb364,0x0000,0x0008 02fa 0023 0384 | # | .DEBUG 0x0023,0x0384,0x8000,0x0000,0x0010,0xb394,0x0000,0x0015 0302 005b 03aa | [ | .DEBUG 0x005b,0x03aa,0x0001,0x0000,0x0010,0xb364,0x0000,0x0009 030a 007b 03ba | { | .DEBUG 0x007b,0x03ba,0x0001,0x0000,0x0010,0xb364,0x0000,0x002e 0312 00ab 03d0 | | .DEBUG 0x00ab,0x03d0,0x0001,0x0000,0x0010,0xb364,0x0000,0x0048 031a 00cb 03da | | .DEBUG 0x00cb,0x03da,0x0001,0x0000,0x0010,0xb364,0x0000,0x0066 0322 00f3 03ec | | .DEBUG 0x00f3,0x03ec,0x0002,0x0000,0x0010,0xb364,0x0000,0x007c 032a 010b 03f4 | | .DEBUG 0x010b,0x03f4,0x0002,0x0000,0x0010,0xb364,0x0000,0x0087 0332 0123 0400 | # | .DEBUG 0x0123,0x0400,0x0002,0x0000,0x0010,0xb364,0x0000,0x0092 033a 014b 040e | K | .DEBUG 0x014b,0x040e,0x0002,0x0000,0x0010,0xb364,0x0000,0x00a1 0342 015b 0412 | [ | .DEBUG 0x015b,0x0412,0x0002,0x0000,0x0010,0xb364,0x0000,0x00b3 034a 027b 0428 | { (| .DEBUG 0x027b,0x0428,0x0002,0x0000,0x0010,0xb364,0x0000,0x00c2 0352 02ab 0438 | 8| .DEBUG 0x02ab,0x0438,0x0002,0x0000,0x0010,0xb364,0x0000,0x00d7 035a 02bb 043c | <| .DEBUG 0x02bb,0x043c,0x0001,0x0000,0x0010,0xb394,0x0000,0x0371 0362 02e3 0446 | F| .DEBUG 0x02e3,0x0446,0x0001,0x0000,0x0010,0xb394,0x0000,0x0442 036a ; -------------------------------------------------------------------------------------- 036a ; Debug3 Subtable 0x0 036a ; -------------------------------------------------------------------------------------- 036a 000c 0000 | | .DBG3TAB 0x000c,0x0000 036c 000b ffff | | .CONST 0x000b,0xffff 036e 000d fffe | | .CONST 0x000d,0xfffe 0370 000e fffd | | .CONST 0x000e,0xfffd 0372 0010 fffc | | .CONST 0x0010,0xfffc 0374 0012 fffb | | .CONST 0x0012,0xfffb 0376 0014 fffa | | .CONST 0x0014,0xfffa 0378 0016 fff9 | | .CONST 0x0016,0xfff9 037a 0018 fff8 | | .CONST 0x0018,0xfff8 037c 001a fff7 | | .CONST 0x001a,0xfff7 037e 001c fff6 | | .CONST 0x001c,0xfff6 0380 001e fff5 | | .CONST 0x001e,0xfff5 0382 0020 fff4 | | .CONST 0x0020,0xfff4 0384 ; -------------------------------------------------------------------------------------- 0384 ; Debug3 Subtable 0x1 0384 ; -------------------------------------------------------------------------------------- 0384 0012 0000 | | .DBG3TAB 0x0012,0x0000 0386 0023 ffff | # | .CONST 0x0023,0xffff 0388 0024 fffe | $ | .CONST 0x0024,0xfffe 038a 0025 fffd | % | .CONST 0x0025,0xfffd 038c 0026 fffc | & | .CONST 0x0026,0xfffc 038e 0028 fffb | ( | .CONST 0x0028,0xfffb 0390 002a fffa | * | .CONST 0x002a,0xfffa 0392 002c fff9 | , | .CONST 0x002c,0xfff9 0394 002e fff8 | . | .CONST 0x002e,0xfff8 0396 0030 fff7 | 0 | .CONST 0x0030,0xfff7 0398 0032 fff6 | 2 | .CONST 0x0032,0xfff6 039a 0034 fff5 | 4 | .CONST 0x0034,0xfff5 039c 003c fff4 | < | .CONST 0x003c,0xfff4 039e 003e fff3 | > | .CONST 0x003e,0xfff3 03a0 0040 fff2 | @ | .CONST 0x0040,0xfff2 03a2 0042 fff1 | B | .CONST 0x0042,0xfff1 03a4 0044 fff0 | D | .CONST 0x0044,0xfff0 03a6 004c ffef | L | .CONST 0x004c,0xffef 03a8 004e ffee | N | .CONST 0x004e,0xffee 03aa ; -------------------------------------------------------------------------------------- 03aa ; Debug3 Subtable 0x2 03aa ; -------------------------------------------------------------------------------------- 03aa 0001 0006 | | .DBG3TAB 0x0001,0x0006 03ac 005b ffff | [ | .CONST 0x005b,0xffff 03ae 005d 0001 | ] | .CONST 0x005d,0x0001 03b0 0060 0002 | ` | .CONST 0x0060,0x0002 03b2 0065 0003 | e | .CONST 0x0065,0x0003 03b4 0067 0004 | g | .CONST 0x0067,0x0004 03b6 006d 0005 | m | .CONST 0x006d,0x0005 03b8 006f 0006 | o | .CONST 0x006f,0x0006 03ba ; -------------------------------------------------------------------------------------- 03ba ; Debug3 Subtable 0x3 03ba ; -------------------------------------------------------------------------------------- 03ba 0004 0006 | | .DBG3TAB 0x0004,0x0006 03bc 007b ffff | { | .CONST 0x007b,0xffff 03be 007d fffe | } | .CONST 0x007d,0xfffe 03c0 0082 fffd | | .CONST 0x0082,0xfffd 03c2 0083 fffc | | .CONST 0x0083,0xfffc 03c4 0084 0001 | | .CONST 0x0084,0x0001 03c6 008c 0002 | | .CONST 0x008c,0x0002 03c8 008e 0003 | | .CONST 0x008e,0x0003 03ca 0091 0004 | | .CONST 0x0091,0x0004 03cc 0093 0005 | | .CONST 0x0093,0x0005 03ce 009c 0006 | | .CONST 0x009c,0x0006 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug3 Subtable 0x4 03d0 ; -------------------------------------------------------------------------------------- 03d0 0000 0004 | | .DBG3TAB 0x0000,0x0004 03d2 00ab 0001 | | .CONST 0x00ab,0x0001 03d4 00af 0002 | | .CONST 0x00af,0x0002 03d6 00b1 0003 | | .CONST 0x00b1,0x0003 03d8 00b5 0004 | | .CONST 0x00b5,0x0004 03da ; -------------------------------------------------------------------------------------- 03da ; Debug3 Subtable 0x5 03da ; -------------------------------------------------------------------------------------- 03da 0002 0006 | | .DBG3TAB 0x0002,0x0006 03dc 00cb ffff | | .CONST 0x00cb,0xffff 03de 00ce fffe | | .CONST 0x00ce,0xfffe 03e0 00cf 0001 | | .CONST 0x00cf,0x0001 03e2 00d2 0002 | | .CONST 0x00d2,0x0002 03e4 00d8 0003 | | .CONST 0x00d8,0x0003 03e6 00db 0004 | | .CONST 0x00db,0x0004 03e8 00e3 0005 | | .CONST 0x00e3,0x0005 03ea 00e6 0006 | | .CONST 0x00e6,0x0006 03ec ; -------------------------------------------------------------------------------------- 03ec ; Debug3 Subtable 0x6 03ec ; -------------------------------------------------------------------------------------- 03ec 0000 0003 | | .DBG3TAB 0x0000,0x0003 03ee 00f3 0001 | | .CONST 0x00f3,0x0001 03f0 0103 0002 | | .CONST 0x0103,0x0002 03f2 0105 0003 | | .CONST 0x0105,0x0003 03f4 ; -------------------------------------------------------------------------------------- 03f4 ; Debug3 Subtable 0x7 03f4 ; -------------------------------------------------------------------------------------- 03f4 0001 0004 | | .DBG3TAB 0x0001,0x0004 03f6 010b ffff | | .CONST 0x010b,0xffff 03f8 010c 0001 | | .CONST 0x010c,0x0001 03fa 010e 0002 | | .CONST 0x010e,0x0002 03fc 0114 0003 | | .CONST 0x0114,0x0003 03fe 011d 0004 | | .CONST 0x011d,0x0004 0400 ; -------------------------------------------------------------------------------------- 0400 ; Debug3 Subtable 0x8 0400 ; -------------------------------------------------------------------------------------- 0400 0001 0005 | | .DBG3TAB 0x0001,0x0005 0402 0123 ffff | # | .CONST 0x0123,0xffff 0404 0125 0001 | % | .CONST 0x0125,0x0001 0406 0129 0002 | ) | .CONST 0x0129,0x0002 0408 012b 0003 | + | .CONST 0x012b,0x0003 040a 013f 0004 | ? | .CONST 0x013f,0x0004 040c 0142 0005 | B | .CONST 0x0142,0x0005 040e ; -------------------------------------------------------------------------------------- 040e ; Debug3 Subtable 0x9 040e ; -------------------------------------------------------------------------------------- 040e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0410 014b 0001 | K | .CONST 0x014b,0x0001 0412 ; -------------------------------------------------------------------------------------- 0412 ; Debug3 Subtable 0xa 0412 ; -------------------------------------------------------------------------------------- 0412 0000 000a | | .DBG3TAB 0x0000,0x000a 0414 015b 0001 | [ | .CONST 0x015b,0x0001 0416 0162 0002 | b | .CONST 0x0162,0x0002 0418 016c 0003 | l | .CONST 0x016c,0x0003 041a 01a2 0004 | | .CONST 0x01a2,0x0004 041c 01ce 0005 | | .CONST 0x01ce,0x0005 041e 0204 0006 | | .CONST 0x0204,0x0006 0420 023a 0007 | : | .CONST 0x023a,0x0007 0422 023e 0008 | > | .CONST 0x023e,0x0008 0424 0258 0009 | X | .CONST 0x0258,0x0009 0426 0272 000a | r | .CONST 0x0272,0x000a 0428 ; -------------------------------------------------------------------------------------- 0428 ; Debug3 Subtable 0xb 0428 ; -------------------------------------------------------------------------------------- 0428 0001 0006 | | .DBG3TAB 0x0001,0x0006 042a 027b ffff | { | .CONST 0x027b,0xffff 042c 027e 0001 | ~ | .CONST 0x027e,0x0001 042e 0282 0002 | | .CONST 0x0282,0x0002 0430 0288 0003 | | .CONST 0x0288,0x0003 0432 0292 0004 | | .CONST 0x0292,0x0004 0434 0298 0005 | | .CONST 0x0298,0x0005 0436 02a2 0006 | | .CONST 0x02a2,0x0006 0438 ; -------------------------------------------------------------------------------------- 0438 ; Debug3 Subtable 0xc 0438 ; -------------------------------------------------------------------------------------- 0438 0000 0001 | | .DBG3TAB 0x0000,0x0001 043a 02ab 0001 | | .CONST 0x02ab,0x0001 043c ; -------------------------------------------------------------------------------------- 043c ; Debug3 Subtable 0xd 043c ; -------------------------------------------------------------------------------------- 043c 0000 0004 | | .DBG3TAB 0x0000,0x0004 043e 02bb 0001 | | .CONST 0x02bb,0x0001 0440 02bf 0002 | | .CONST 0x02bf,0x0002 0442 02c8 0004 | | .CONST 0x02c8,0x0004 0444 02d0 0005 | | .CONST 0x02d0,0x0005 0446 ; -------------------------------------------------------------------------------------- 0446 ; Debug3 Subtable 0xe 0446 ; -------------------------------------------------------------------------------------- 0446 0000 0001 | | .DBG3TAB 0x0000,0x0001 0448 02e3 0001 | | .CONST 0x02e3,0x0001 044a 0000 0000 | | .BLANK 0000[0x1b6]