|
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: 5805_R1K_CODE Names: »11035665.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »11035665.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »11035665.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »11035665.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »11035665.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »11035665.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02a0 | | .CONST 0x02a0 ; 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 0012 | | .CONST 0x0012 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b 4808 |H | Short_Literal 0x8 ; Debug Table 0x0 = .DEBUG 0x000b,0x0342,0x8000,0x0000,0x000e,0x7d74,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 6007 |` | Indirect_Literal Discrete,0x14,{0x00a86411, 0x000001b0} ; 0xa86411 = ARRAY_LIST_MANAGER 000d 02a0 | | Declare_Subprogram Null_Subprogram 000e 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 000f 00bf | | Action Accept_Activation 0010 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1 = .DEBUG 0x0010,0x0346,0x8000,0x0000,0x000e,0x8294,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x10,0xffff 0011 020d | | Execute Module,Elaborate 0012 BODY_0008: 0012 00bc | | Action Signal_Activated 0013 00bb | | Action Signal_Completion 0014 00a8 6411 | d | .LITERAL {0x00a86411, 0x000001b0} 0018 0066 0004 | f | .XXX[0x3] 001a 0023 | # | 001b 4803 |H | Short_Literal 0x3 ; Debug Table 0x2 = .DEBUG 0x001b,0x034a,0x4000,0x0000,0x000e,0x7d74,0x0000,0x0004 ; Debug Table 0x2.0x0 = 0x1b,0xffff 001c 032b | + | Declare_Type Record,Incomplete,Visible 001d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x1 = 0x1d,0xfffe 001f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x2 = 0x1f,0xfffd 0021 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x3 = 0x21,0xfffc 0023 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x4 = 0x23,0xfffb 0025 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x5 = 0x25,0xfffa 0027 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x6 = 0x27,0xfff9 0029 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x7 = 0x29,0xfff8 002b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x8 = 0x2b,0xfff7 002d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x9 = 0x2d,0xfff6 002f 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0xa = 0x2f,0xfff5 0031 4804 |H | Short_Literal 0x4 ; Debug Table 0x2.0xb = 0x31,0xfff4 0032 61bd |a | Indirect_Literal Discrete,0x1f0,{0x00a86411, 0x00001fb0} ; 0xa86411 = ARRAY_LIST_MANAGER 0033 02a0 | | Declare_Subprogram Null_Subprogram 0034 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0035 e210 | | Load 0x1,0x10 ; Debug Table 0x2.0xc = 0x35,0xfff3 0036 0269 | i | Execute Discrete,Last 0037 e210 | | Load 0x1,0x10 0038 026a | j | Execute Discrete,First 0039 0272 | r | Execute Discrete,Minus 003a 0248 | H | Execute Discrete,Check_In_Integer 003b 0a01 | | Execute_Immediate Plus,0x1 003c 00e3 | | Load_Encached Natural_Cache 003d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 003e 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xd = 0x3e,0xfff2 003f 00d9 | | Load_Top At_Offset_1 0040 00e3 | | Load_Encached Natural_Cache 0041 03f8 | | Declare_Type Discrete,Constrained 0042 e210 | | Load 0x1,0x10 ; Debug Table 0x2.0xe = 0x42,0xfff1 0043 e210 | | Load 0x1,0x10 0044 00da | | Load_Top At_Offset_2 0045 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 0047 e215 | | Load 0x1,0x15 0048 0326 | & | Complete_Type Record,By_Defining 0049 00bf | | Action Accept_Activation 004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x3 = .DEBUG 0x004a,0x036a,0x4000,0x0000,0x000e,0x8294,0x0000,0x0004 ; Debug Table 0x3.0x0 = 0x4a,0xffff 004b 00c7 | | Action Elaborate_Subprogram 004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x3.0x1 = 0x4c,0xfffe 004d 00c7 | | Action Elaborate_Subprogram 004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x3.0x2 = 0x4e,0xfffd 004f 00c7 | | Action Elaborate_Subprogram 0050 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x3.0x3 = 0x50,0xfffc 0051 00c7 | | Action Elaborate_Subprogram 0052 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call ; Debug Table 0x3.0x4 = 0x52,0xfffb 0054 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x3.0x5 = 0x54,0xfffa 0055 00c7 | | Action Elaborate_Subprogram 0056 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x3.0x6 = 0x56,0xfff9 0057 00c7 | | Action Elaborate_Subprogram 0058 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x3.0x7 = 0x58,0xfff8 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x3.0x8 = 0x5a,0xfff7 005b 00c7 | | Action Elaborate_Subprogram 005c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x3.0x9 = 0x5c,0xfff6 005d 00c7 | | Action Elaborate_Subprogram 005e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x3.0xa = 0x5e,0xfff5 005f 00c7 | | Action Elaborate_Subprogram 0060 00b6 | | Action Make_Scope ; Debug Table 0x3.0xb = 0x60,0xfff4 0061 4801 |H | Short_Literal 0x1 0062 e220 | | Load 0x1,0x20 0063 020e | | Execute Module,Augment_Imports 0064 00db | | Load_Top At_Offset_3 0065 020d | | Execute Module,Elaborate 0066 00bc | | Action Signal_Activated 0067 00bb | | Action Signal_Completion 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b e215 | | Load 0x1,0x15 ; Debug Table 0x4 = .DEBUG 0x006b,0x0384,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0036 ; Debug Table 0x4.0x0 = 0x6b,0x1 006c 0322 | " | Declare_Variable Record 006d e211 | | Load 0x1,0x11 006e 00d9 | | Load_Top At_Offset_1 006f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0070 e211 | | Load 0x1,0x11 0071 00d9 | | Load_Top At_Offset_1 0072 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0073 4800 |H | Short_Literal 0x0 0074 00d9 | | Load_Top At_Offset_1 0075 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0076 00db | | Load_Top At_Offset_3 0077 017d | } | Execute Record,Structure_Write 0078 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0087 | | .CONST 0x0087 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e215 | | Load 0x1,0x15 ; Debug Table 0x5 = .DEBUG 0x0083,0x0388,0x1002,0x0000,0x000e,0x7d74,0x0000,0x003e ; Debug Table 0x5.0x0 = 0x83,0xffff 0084 0322 | " | Declare_Variable Record 0085 00d8 | | Load_Top At_Offset_0 0086 1c00 | | Execute_Immediate Run_Utility,0x0 0087 BODY_0080: 0087 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x87,0x1 0088 8216 | | Call 0x1,0x16 0089 00d1 | | Pop_Control Pop_Count_1 008a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x8a,0x2 008b 00ca | | Action Exit_Nullary_Function 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0093,0x0390,0x1002,0x0000,0x000e,0x7d74,0x0000,0x0043 ; Debug Table 0x6.0x0 = 0x93,0x1 0094 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0095 e211 | | Load 0x1,0x11 0096 027f | | Execute Discrete,Equal 0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x009b,0x0394,0x1002,0x0000,0x000e,0x7d74,0x0000,0x004c ; Debug Table 0x7.0x0 = 0x9b,0x1 009c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 009d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 0007 | | Action Break_Optional ; Debug Table 0x8 = .DEBUG 0x00a3,0x0398,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0055 ; Debug Table 0x8.0x0 = 0xa3,0x1 00a4 e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x1 = 0xa4,0x2 00a5 00db | | Load_Top At_Offset_3 00a6 00d8 | | Load_Top At_Offset_0 00a7 00da | | Load_Top At_Offset_2 00a8 01d7 | | Execute Vector,Field_Read 00a9 e5fe | | Load 0x2,-0x2 00aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ab e210 | | Load 0x1,0x10 00ac 025b | [ | Execute Discrete,Check_In_Type 00ad 8213 | | Call 0x1,0x13 00ae 00d9 | | Load_Top At_Offset_1 00af 00db | | Load_Top At_Offset_3 00b0 01d6 | | Execute Vector,Field_Write 00b1 00d2 | | Pop_Control Pop_Count_2 00b2 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x2 = 0xb2,0x3 00b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b4 e211 | | Load 0x1,0x11 00b5 027f | | Execute Discrete,Equal 00b6 680f |h | Jump_Zero 0xc6 00b7 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x3 = 0xb7,0x4 00b8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b9 6802 |h | Jump_Zero 0xbc 00ba 4887 |H | Short_Literal 0x87 00bb 0257 | W | Execute Discrete,Raise 00bc 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x4 = 0xbc,0x5 00bd e5fe | | Load 0x2,-0x2 00be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00bf 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x5 = 0xbf,0x6 00c0 e5fe | | Load 0x2,-0x2 00c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c2 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x6 = 0xc2,0x7 00c3 e5fe | | Load 0x2,-0x2 00c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c6 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x7 = 0xc6,0x8 00c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c8 0c01 | | Execute_Immediate Greater_Equal,0x1 00c9 7002 |p | Jump_Nonzero 0xcc 00ca 4887 |H | Short_Literal 0x87 00cb 0257 | W | Execute Discrete,Raise 00cc 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x8 = 0xcc,0x9 00cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ce 0a01 | | Execute_Immediate Plus,0x1 00cf e5fe | | Load 0x2,-0x2 00d0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d1 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x9 = 0xd1,0xa 00d2 e5fe | | Load 0x2,-0x2 00d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 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 0007 | | Action Break_Optional ; Debug Table 0x9 = .DEBUG 0x00db,0x03ae,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0065 ; Debug Table 0x9.0x0 = 0xdb,0x1 00dc 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0xdc,0x2 00dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00de e211 | | Load 0x1,0x11 00df 027f | | Execute Discrete,Equal 00e0 680c |h | Jump_Zero 0xed 00e1 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2 = 0xe1,0x3 00e2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00e3 6802 |h | Jump_Zero 0xe6 00e4 4887 |H | Short_Literal 0x87 00e5 0257 | W | Execute Discrete,Raise 00e6 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x3 = 0xe6,0x4 00e7 e5fe | | Load 0x2,-0x2 00e8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e9 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x4 = 0xe9,0x5 00ea e5fe | | Load 0x2,-0x2 00eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ec 7819 |x | Jump 0x106 00ed 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x5 = 0xed,0x6 00ee 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ef 0c01 | | Execute_Immediate Greater_Equal,0x1 00f0 7002 |p | Jump_Nonzero 0xf3 00f1 4887 |H | Short_Literal 0x87 00f2 0257 | W | Execute Discrete,Raise 00f3 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x6 = 0xf3,0x7 00f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00f5 0a01 | | Execute_Immediate Plus,0x1 00f6 e5fe | | Load 0x2,-0x2 00f7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00f8 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x7 = 0xf8,0x8 00f9 e5fe | | Load 0x2,-0x2 00fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fb 00d8 | | Load_Top At_Offset_0 00fc 00da | | Load_Top At_Offset_2 00fd 01d7 | | Execute Vector,Field_Read 00fe e5ff | | Load 0x2,-0x1 00ff e210 | | Load 0x1,0x10 0100 025b | [ | Execute Discrete,Check_In_Type 0101 8213 | | Call 0x1,0x13 0102 00d9 | | Load_Top At_Offset_1 0103 00db | | Load_Top At_Offset_3 0104 01d6 | | Execute Vector,Field_Write 0105 00d2 | | Pop_Control Pop_Count_2 0106 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x8 = 0x106,0x9 0107 e5fe | | Load 0x2,-0x2 0108 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0109 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x9 = 0x109,0xa 010a 00db | | Load_Top At_Offset_3 010b 00d8 | | Load_Top At_Offset_0 010c 00da | | Load_Top At_Offset_2 010d 01d7 | | Execute Vector,Field_Read 010e e211 | | Load 0x1,0x11 010f e210 | | Load 0x1,0x10 0110 025b | [ | Execute Discrete,Check_In_Type 0111 8213 | | Call 0x1,0x13 0112 00d9 | | Load_Top At_Offset_1 0113 00db | | Load_Top At_Offset_3 0114 01d6 | | Execute Vector,Field_Write 0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x011b,0x03c4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0075 ; Debug Table 0xa.0x0 = 0x11b,0x1 011c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011d e211 | | Load 0x1,0x11 011e 027e | ~ | Execute Discrete,Not_Equal 011f 7002 |p | Jump_Nonzero 0x122 0120 4887 |H | Short_Literal 0x87 0121 0257 | W | Execute Discrete,Raise 0122 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x122,0x2 0123 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0124 0c01 | | Execute_Immediate Greater_Equal,0x1 0125 7002 |p | Jump_Nonzero 0x128 0126 4887 |H | Short_Literal 0x87 0127 0257 | W | Execute Discrete,Raise 0128 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x2 = 0x128,0x3 0129 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012a 0aff | | Execute_Immediate Plus,-0x1 012b 00db | | Load_Top At_Offset_3 012c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 012d 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x3 = 0x12d,0x4 012e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012f c5fe | | Store 0x2,-0x2 0130 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x4 = 0x130,0x5 0131 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0132 e5fd | | Load 0x2,-0x3 0133 01d7 | | Execute Vector,Field_Read 0134 e20f | | Load 0x1,0xf 0135 0119 | | Execute Any,Check_In_Formal_Type 0136 8214 | | Call 0x1,0x14 0137 00db | | Load_Top At_Offset_3 0138 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0139 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x0143,0x03d0,0x1002,0x0000,0x000e,0x7d74,0x0000,0x0085 ; Debug Table 0xb.0x0 = 0x143,0x1 0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0145 e210 | | Load 0x1,0x10 0146 025b | [ | Execute Discrete,Check_In_Type 0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014d | M | .CONST 0x014d ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e210 | | Load 0x1,0x10 ; Debug Table 0xc = .DEBUG 0x014b,0x03d4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x008e ; Debug Table 0xc.0x0 = 0x14b,0xffff 014c 0007 | | Action Break_Optional 014d BODY_0148: 014d 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x1 = 0x14d,0x1 014e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014f 0059 | Y | Store_Top Discrete,At_Offset_1 0150 00cf | | Action Mark_Auxiliary 0151 0007 | | Action Break_Optional ; Debug Table 0xc.0x2 = 0x151,0x2 0152 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x3 = 0x152,0x3 0153 e211 | | Load 0x1,0x11 0154 027f | | Execute Discrete,Equal 0155 6803 |h | Jump_Zero 0x159 0156 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x4 = 0x156,0x4 0157 a5fc | | Store_Unchecked 0x2,-0x4 0158 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0xc.0x5 = 0x158,0x5 0159 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x6 = 0x159,0x6 015a e5fe | | Load 0x2,-0x2 015b 027f | | Execute Discrete,Equal 015c 6803 |h | Jump_Zero 0x160 015d 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x7 = 0x15d,0x7 015e a5fc | | Store_Unchecked 0x2,-0x4 015f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0xc.0x8 = 0x15f,0x8 0160 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x9 = 0x160,0x9 0161 e5fd | | Load 0x2,-0x3 0162 01d7 | | Execute Vector,Field_Read 0163 e20f | | Load 0x1,0xf 0164 0119 | | Execute Any,Check_In_Formal_Type 0165 8214 | | Call 0x1,0x14 0166 005a | Z | Store_Top Discrete,At_Offset_2 0167 00c9 | | Action Pop_Auxiliary_Loop 0168 7fe9 | | Jump 0x152 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0175 | u | .CONST 0x0175 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e210 | | Load 0x1,0x10 ; Debug Table 0xd = .DEBUG 0x0173,0x03ea,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00a2 ; Debug Table 0xd.0x0 = 0x173,0xffff 0174 03e9 | | Declare_Variable Discrete,Duplicate 0175 BODY_0170: 0175 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x1 = 0x175,0x1 0176 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0177 0c01 | | Execute_Immediate Greater_Equal,0x1 0178 7002 |p | Jump_Nonzero 0x17b 0179 4887 |H | Short_Literal 0x87 017a 0257 | W | Execute Discrete,Raise 017b e211 | | Load 0x1,0x11 ; Debug Table 0xd.0x2 = 0x17b,0x2 017c 005a | Z | Store_Top Discrete,At_Offset_2 017d e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x3 = 0x17d,0x3 017e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017f 0059 | Y | Store_Top Discrete,At_Offset_1 0180 00cf | | Action Mark_Auxiliary 0181 0007 | | Action Break_Optional ; Debug Table 0xd.0x4 = 0x181,0x4 0182 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x5 = 0x182,0x5 0183 e211 | | Load 0x1,0x11 0184 027e | ~ | Execute Discrete,Not_Equal 0185 7002 |p | Jump_Nonzero 0x188 0186 4887 |H | Short_Literal 0x87 0187 0257 | W | Execute Discrete,Raise 0188 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x6 = 0x188,0x6 0189 e5ff | | Load 0x2,-0x1 018a 027f | | Execute Discrete,Equal 018b 682d |h- | Jump_Zero 0x1b9 018c 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x7 = 0x18c,0x7 018d e211 | | Load 0x1,0x11 018e 027f | | Execute Discrete,Equal 018f 6809 |h | Jump_Zero 0x199 0190 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x8 = 0x190,0x8 0191 e5fd | | Load 0x2,-0x3 0192 01d7 | | Execute Vector,Field_Read 0193 e20f | | Load 0x1,0xf 0194 0119 | | Execute Any,Check_In_Formal_Type 0195 8214 | | Call 0x1,0x14 0196 e5fe | | Load 0x2,-0x2 0197 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0198 781a |x | Jump 0x1b3 0199 e5fd | | Load 0x2,-0x3 ; Debug Table 0xd.0x9 = 0x199,0x9 019a 00db | | Load_Top At_Offset_3 019b 00d8 | | Load_Top At_Offset_0 019c 00da | | Load_Top At_Offset_2 019d 01d7 | | Execute Vector,Field_Read 019e e403 | | Load 0x2,0x3 019f e5fd | | Load 0x2,-0x3 01a0 01d7 | | Execute Vector,Field_Read 01a1 e20f | | Load 0x1,0xf 01a2 0119 | | Execute Any,Check_In_Formal_Type 01a3 8214 | | Call 0x1,0x14 01a4 e210 | | Load 0x1,0x10 01a5 025b | [ | Execute Discrete,Check_In_Type 01a6 8213 | | Call 0x1,0x13 01a7 00d9 | | Load_Top At_Offset_1 01a8 00db | | Load_Top At_Offset_3 01a9 01d6 | | Execute Vector,Field_Write 01aa 00d2 | | Pop_Control Pop_Count_2 01ab 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0xa = 0x1ab,0xa 01ac e5fe | | Load 0x2,-0x2 01ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ae 027f | | Execute Discrete,Equal 01af 6803 |h | Jump_Zero 0x1b3 01b0 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0xb = 0x1b0,0xb 01b1 e5fe | | Load 0x2,-0x2 01b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01b3 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0xc = 0x1b3,0xc 01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b5 0aff | | Execute_Immediate Plus,-0x1 01b6 e5fe | | Load 0x2,-0x2 01b7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xd.0xd = 0x1b8,0xd 01b9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0xe = 0x1b9,0xe 01ba 005b | [ | Store_Top Discrete,At_Offset_3 01bb 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0xf = 0x1bb,0xf 01bc e5fd | | Load 0x2,-0x3 01bd 01d7 | | Execute Vector,Field_Read 01be e20f | | Load 0x1,0xf 01bf 0119 | | Execute Any,Check_In_Formal_Type 01c0 8214 | | Call 0x1,0x14 01c1 005a | Z | Store_Top Discrete,At_Offset_2 01c2 00c9 | | Action Pop_Auxiliary_Loop 01c3 7fbe | | Jump 0x182 01c4 0000 0000 | | .BLANK 0000[0x4] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 4608 |F | Jump_Case 0x9 ; Debug Table 0xe = .DEBUG 0x01cb,0x040c,0x1005,0x0000,0x000e,0x7d74,0x0000,0x0114 01cc 7808 |x | Jump 0x1d5 ; case 0x0 01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ce 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 01cf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 01d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 01d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 01d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 01d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 01d5 e211 | | Load 0x1,0x11 01d6 00db | | Load_Top At_Offset_3 01d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01d8 e211 | | Load 0x1,0x11 01d9 00db | | Load_Top At_Offset_3 01da 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01db 4800 |H | Short_Literal 0x0 01dc 00db | | Load_Top At_Offset_3 01dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01de 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e4 | | .CONST 0x01e4 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xf = .DEBUG 0x01e3,0x040e,0x1002,0x0000,0x000e,0x8294,0x0000,0x005a ; Debug Table 0xf.0x0 = 0x1e3,0xffff 01e4 BODY_01e0: 01e4 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xf.0x1 = 0x1e4,0x1 01e5 e5fd | | Load 0x2,-0x3 01e6 e212 | | Load 0x1,0x12 01e7 01c3 | | Execute Vector,Check_In_Type 01e8 e5fe | | Load 0x2,-0x2 01e9 e210 | | Load 0x1,0x10 01ea 025b | [ | Execute Discrete,Check_In_Type 01eb e5ff | | Load 0x2,-0x1 01ec 821e | | Call 0x1,0x1e 01ed 0059 | Y | Store_Top Discrete,At_Offset_1 01ee 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x2 = 0x1ee,0x2 01ef 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01f0 00a8 6411 | d | .LITERAL {0x00a86411, 0x00001fb0} 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 0204 0004 | | .XXX[0x3] 01fa 0012 | | 01fb 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x10 = .DEBUG 0x01fb,0x0416,0x4000,0x0000,0x000e,0x7d74,0x0000,0x00b2 ; Debug Table 0x10.0x0 = 0x1fb,0xffff 01fd 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x10.0x1 = 0x1fd,0xfffe 01ff 00bf | | Action Accept_Activation 0200 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x11 = .DEBUG 0x0200,0x041c,0x4000,0x0000,0x000e,0x8294,0x0000,0x0293 ; Debug Table 0x11.0x0 = 0x200,0xffff 0201 00c7 | | Action Elaborate_Subprogram 0202 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x11.0x1 = 0x202,0xfffe 0203 00c7 | | Action Elaborate_Subprogram 0204 00bc | | Action Signal_Activated 0205 00bb | | Action Signal_Completion 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020d | | .CONST 0x020d ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b e001 | | Load 0x0,0x1 ; Debug Table 0x12 = .DEBUG 0x020b,0x0422,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00c2 ; Debug Table 0x12.0x0 = 0x20b,0xffff 020c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 020d BODY_0208: 020d 00db | | Load_Top At_Offset_3 ; Debug Table 0x12.0x1 = 0x20d,0x1 020e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 020f 0059 | Y | Store_Top Discrete,At_Offset_1 0210 00cf | | Action Mark_Auxiliary 0211 0007 | | Action Break_Optional ; Debug Table 0x12.0x2 = 0x211,0x2 0212 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x3 = 0x212,0x3 0213 e001 | | Load 0x0,0x1 0214 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0215 027f | | Execute Discrete,Equal 0216 6806 |h | Jump_Zero 0x21d 0217 4800 |H | Short_Literal 0x0 ; Debug Table 0x12.0x4 = 0x217,0x4 0218 a5fc | | Store_Unchecked 0x2,-0x4 0219 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x5 = 0x219,0x5 021a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 021b c5fb | | Store 0x2,-0x5 021c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x12.0x6 = 0x21c,0x6 021d e5fe | | Load 0x2,-0x2 ; Debug Table 0x12.0x7 = 0x21d,0x7 021e 00da | | Load_Top At_Offset_2 021f e5fd | | Load 0x2,-0x3 0220 01d7 | | Execute Vector,Field_Read 0221 e001 | | Load 0x0,0x1 0222 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0223 0119 | | Execute Any,Check_In_Formal_Type 0224 8210 | | Call 0x1,0x10 0225 012f | / | Execute Any,Equal 0226 6805 |h | Jump_Zero 0x22c 0227 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0x8 = 0x227,0x8 0228 a5fc | | Store_Unchecked 0x2,-0x4 0229 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x9 = 0x229,0x9 022a c5fb | | Store 0x2,-0x5 022b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x12.0xa = 0x22b,0xa 022c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0xb = 0x22c,0xb 022d e5fd | | Load 0x2,-0x3 022e 01d7 | | Execute Vector,Field_Read 022f e001 | | Load 0x0,0x1 0230 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0231 0119 | | Execute Any,Check_In_Formal_Type 0232 e001 | | Load 0x0,0x1 0233 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0234 005a | Z | Store_Top Discrete,At_Offset_2 0235 00c9 | | Action Pop_Auxiliary_Loop 0236 7fdb | | Jump 0x212 0237 0000 | | .XXX[0x1] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023e | > | .CONST 0x023e ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b e001 | | Load 0x0,0x1 ; Debug Table 0x13 = .DEBUG 0x023b,0x043c,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00da ; Debug Table 0x13.0x0 = 0x23b,0xffff 023c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 023d 03e9 | | Declare_Variable Discrete,Duplicate 023e BODY_0238: 023e e001 | | Load 0x0,0x1 ; Debug Table 0x13.0x1 = 0x23e,0x1 023f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0240 005a | Z | Store_Top Discrete,At_Offset_2 0241 e5fe | | Load 0x2,-0x2 ; Debug Table 0x13.0x2 = 0x241,0x2 0242 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0243 0059 | Y | Store_Top Discrete,At_Offset_1 0244 00cf | | Action Mark_Auxiliary 0245 0007 | | Action Break_Optional ; Debug Table 0x13.0x3 = 0x245,0x3 0246 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x4 = 0x246,0x4 0247 e001 | | Load 0x0,0x1 0248 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0249 027f | | Execute Discrete,Equal 024a 6803 |h | Jump_Zero 0x24e 024b 4800 |H | Short_Literal 0x0 ; Debug Table 0x13.0x5 = 0x24b,0x5 024c a5fd | | Store_Unchecked 0x2,-0x3 024d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x13.0x6 = 0x24d,0x6 024e e5ff | | Load 0x2,-0x1 ; Debug Table 0x13.0x7 = 0x24e,0x7 024f 00da | | Load_Top At_Offset_2 0250 e5fc | | Load 0x2,-0x4 0251 01d7 | | Execute Vector,Field_Read 0252 e001 | | Load 0x0,0x1 0253 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0254 0119 | | Execute Any,Check_In_Formal_Type 0255 8210 | | Call 0x1,0x10 0256 012f | / | Execute Any,Equal 0257 6836 |h6 | Jump_Zero 0x28e 0258 00da | | Load_Top At_Offset_2 ; Debug Table 0x13.0x8 = 0x258,0x8 0259 e001 | | Load 0x0,0x1 025a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 025b 027f | | Execute Discrete,Equal 025c 680b |h | Jump_Zero 0x268 025d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x9 = 0x25d,0x9 025e e5fc | | Load 0x2,-0x4 025f 01d7 | | Execute Vector,Field_Read 0260 e001 | | Load 0x0,0x1 0261 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0262 0119 | | Execute Any,Check_In_Formal_Type 0263 e001 | | Load 0x0,0x1 0264 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0265 e5fe | | Load 0x2,-0x2 0266 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0267 781e |x | Jump 0x286 0268 e5fc | | Load 0x2,-0x4 ; Debug Table 0x13.0xa = 0x268,0xa 0269 00db | | Load_Top At_Offset_3 026a 00d8 | | Load_Top At_Offset_0 026b 00da | | Load_Top At_Offset_2 026c 01d7 | | Execute Vector,Field_Read 026d e403 | | Load 0x2,0x3 026e e5fc | | Load 0x2,-0x4 026f 01d7 | | Execute Vector,Field_Read 0270 e001 | | Load 0x0,0x1 0271 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0272 0119 | | Execute Any,Check_In_Formal_Type 0273 e001 | | Load 0x0,0x1 0274 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0275 e001 | | Load 0x0,0x1 0276 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0277 025b | [ | Execute Discrete,Check_In_Type 0278 e001 | | Load 0x0,0x1 0279 1813 | | Execute Package,Field_Execute,Field_Number 0x13 027a 00d9 | | Load_Top At_Offset_1 027b 00db | | Load_Top At_Offset_3 027c 01d6 | | Execute Vector,Field_Write 027d 00d2 | | Pop_Control Pop_Count_2 027e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0xb = 0x27e,0xb 027f e5fe | | Load 0x2,-0x2 0280 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0281 027f | | Execute Discrete,Equal 0282 6803 |h | Jump_Zero 0x286 0283 00da | | Load_Top At_Offset_2 ; Debug Table 0x13.0xc = 0x283,0xc 0284 e5fe | | Load 0x2,-0x2 0285 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0286 4801 |H | Short_Literal 0x1 ; Debug Table 0x13.0xd = 0x286,0xd 0287 a5fd | | Store_Unchecked 0x2,-0x3 0288 e5fe | | Load 0x2,-0x2 ; Debug Table 0x13.0xe = 0x288,0xe 0289 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 028a 0aff | | Execute_Immediate Plus,-0x1 028b e5fe | | Load 0x2,-0x2 028c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 028d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x13.0xf = 0x28d,0xf 028e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x10 = 0x28e,0x10 028f 005b | [ | Store_Top Discrete,At_Offset_3 0290 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x11 = 0x290,0x11 0291 e5fc | | Load 0x2,-0x4 0292 01d7 | | Execute Vector,Field_Read 0293 e001 | | Load 0x0,0x1 0294 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0295 0119 | | Execute Any,Check_In_Formal_Type 0296 e001 | | Load 0x0,0x1 0297 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0298 005a | Z | Store_Top Discrete,At_Offset_2 0299 00c9 | | Action Pop_Auxiliary_Loop 029a 7fab | | Jump 0x246 029b 0000 0000 | | .BLANK 0000[0x5] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug Table 02a0 ; -------------------------------------------------------------------------------------- 02a0 0003 0014 | | .CONST 0x0003,0x0014 02a2 000b 0342 | B| .DEBUG 0x000b,0x0342,0x8000,0x0000,0x000e,0x7d74,0x0000,0x0003 02aa 0010 0346 | F| .DEBUG 0x0010,0x0346,0x8000,0x0000,0x000e,0x8294,0x0000,0x0003 02b2 001b 034a | J| .DEBUG 0x001b,0x034a,0x4000,0x0000,0x000e,0x7d74,0x0000,0x0004 02ba 004a 036a | J j| .DEBUG 0x004a,0x036a,0x4000,0x0000,0x000e,0x8294,0x0000,0x0004 02c2 006b 0384 | k | .DEBUG 0x006b,0x0384,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0036 02ca 0083 0388 | | .DEBUG 0x0083,0x0388,0x1002,0x0000,0x000e,0x7d74,0x0000,0x003e 02d2 0093 0390 | | .DEBUG 0x0093,0x0390,0x1002,0x0000,0x000e,0x7d74,0x0000,0x0043 02da 009b 0394 | | .DEBUG 0x009b,0x0394,0x1002,0x0000,0x000e,0x7d74,0x0000,0x004c 02e2 00a3 0398 | | .DEBUG 0x00a3,0x0398,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0055 02ea 00db 03ae | | .DEBUG 0x00db,0x03ae,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0065 02f2 011b 03c4 | | .DEBUG 0x011b,0x03c4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x0075 02fa 0143 03d0 | C | .DEBUG 0x0143,0x03d0,0x1002,0x0000,0x000e,0x7d74,0x0000,0x0085 0302 014b 03d4 | K | .DEBUG 0x014b,0x03d4,0x1001,0x0000,0x000e,0x7d74,0x0000,0x008e 030a 0173 03ea | s | .DEBUG 0x0173,0x03ea,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00a2 0312 01cb 040c | | .DEBUG 0x01cb,0x040c,0x1005,0x0000,0x000e,0x7d74,0x0000,0x0114 031a 01e3 040e | | .DEBUG 0x01e3,0x040e,0x1002,0x0000,0x000e,0x8294,0x0000,0x005a 0322 01fb 0416 | | .DEBUG 0x01fb,0x0416,0x4000,0x0000,0x000e,0x7d74,0x0000,0x00b2 032a 0200 041c | | .DEBUG 0x0200,0x041c,0x4000,0x0000,0x000e,0x8294,0x0000,0x0293 0332 020b 0422 | "| .DEBUG 0x020b,0x0422,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00c2 033a 023b 043c | ; <| .DEBUG 0x023b,0x043c,0x1001,0x0000,0x000e,0x7d74,0x0000,0x00da 0342 ; -------------------------------------------------------------------------------------- 0342 ; Debug3 Subtable 0x0 0342 ; -------------------------------------------------------------------------------------- 0342 0001 0000 | | .DBG3TAB 0x0001,0x0000 0344 000b ffff | | .CONST 0x000b,0xffff 0346 ; -------------------------------------------------------------------------------------- 0346 ; Debug3 Subtable 0x1 0346 ; -------------------------------------------------------------------------------------- 0346 0001 0000 | | .DBG3TAB 0x0001,0x0000 0348 0010 ffff | | .CONST 0x0010,0xffff 034a ; -------------------------------------------------------------------------------------- 034a ; Debug3 Subtable 0x2 034a ; -------------------------------------------------------------------------------------- 034a 000f 0000 | | .DBG3TAB 0x000f,0x0000 034c 001b ffff | | .CONST 0x001b,0xffff 034e 001d fffe | | .CONST 0x001d,0xfffe 0350 001f fffd | | .CONST 0x001f,0xfffd 0352 0021 fffc | ! | .CONST 0x0021,0xfffc 0354 0023 fffb | # | .CONST 0x0023,0xfffb 0356 0025 fffa | % | .CONST 0x0025,0xfffa 0358 0027 fff9 | ' | .CONST 0x0027,0xfff9 035a 0029 fff8 | ) | .CONST 0x0029,0xfff8 035c 002b fff7 | + | .CONST 0x002b,0xfff7 035e 002d fff6 | - | .CONST 0x002d,0xfff6 0360 002f fff5 | / | .CONST 0x002f,0xfff5 0362 0031 fff4 | 1 | .CONST 0x0031,0xfff4 0364 0035 fff3 | 5 | .CONST 0x0035,0xfff3 0366 003e fff2 | > | .CONST 0x003e,0xfff2 0368 0042 fff1 | B | .CONST 0x0042,0xfff1 036a ; -------------------------------------------------------------------------------------- 036a ; Debug3 Subtable 0x3 036a ; -------------------------------------------------------------------------------------- 036a 000c 0000 | | .DBG3TAB 0x000c,0x0000 036c 004a ffff | J | .CONST 0x004a,0xffff 036e 004c fffe | L | .CONST 0x004c,0xfffe 0370 004e fffd | N | .CONST 0x004e,0xfffd 0372 0050 fffc | P | .CONST 0x0050,0xfffc 0374 0052 fffb | R | .CONST 0x0052,0xfffb 0376 0054 fffa | T | .CONST 0x0054,0xfffa 0378 0056 fff9 | V | .CONST 0x0056,0xfff9 037a 0058 fff8 | X | .CONST 0x0058,0xfff8 037c 005a fff7 | Z | .CONST 0x005a,0xfff7 037e 005c fff6 | \ | .CONST 0x005c,0xfff6 0380 005e fff5 | ^ | .CONST 0x005e,0xfff5 0382 0060 fff4 | ` | .CONST 0x0060,0xfff4 0384 ; -------------------------------------------------------------------------------------- 0384 ; Debug3 Subtable 0x4 0384 ; -------------------------------------------------------------------------------------- 0384 0000 0001 | | .DBG3TAB 0x0000,0x0001 0386 006b 0001 | k | .CONST 0x006b,0x0001 0388 ; -------------------------------------------------------------------------------------- 0388 ; Debug3 Subtable 0x5 0388 ; -------------------------------------------------------------------------------------- 0388 0001 0002 | | .DBG3TAB 0x0001,0x0002 038a 0083 ffff | | .CONST 0x0083,0xffff 038c 0087 0001 | | .CONST 0x0087,0x0001 038e 008a 0002 | | .CONST 0x008a,0x0002 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug3 Subtable 0x6 0390 ; -------------------------------------------------------------------------------------- 0390 0000 0001 | | .DBG3TAB 0x0000,0x0001 0392 0093 0001 | | .CONST 0x0093,0x0001 0394 ; -------------------------------------------------------------------------------------- 0394 ; Debug3 Subtable 0x7 0394 ; -------------------------------------------------------------------------------------- 0394 0000 0001 | | .DBG3TAB 0x0000,0x0001 0396 009b 0001 | | .CONST 0x009b,0x0001 0398 ; -------------------------------------------------------------------------------------- 0398 ; Debug3 Subtable 0x8 0398 ; -------------------------------------------------------------------------------------- 0398 0000 000a | | .DBG3TAB 0x0000,0x000a 039a 00a3 0001 | | .CONST 0x00a3,0x0001 039c 00a4 0002 | | .CONST 0x00a4,0x0002 039e 00b2 0003 | | .CONST 0x00b2,0x0003 03a0 00b7 0004 | | .CONST 0x00b7,0x0004 03a2 00bc 0005 | | .CONST 0x00bc,0x0005 03a4 00bf 0006 | | .CONST 0x00bf,0x0006 03a6 00c2 0007 | | .CONST 0x00c2,0x0007 03a8 00c6 0008 | | .CONST 0x00c6,0x0008 03aa 00cc 0009 | | .CONST 0x00cc,0x0009 03ac 00d1 000a | | .CONST 0x00d1,0x000a 03ae ; -------------------------------------------------------------------------------------- 03ae ; Debug3 Subtable 0x9 03ae ; -------------------------------------------------------------------------------------- 03ae 0000 000a | | .DBG3TAB 0x0000,0x000a 03b0 00db 0001 | | .CONST 0x00db,0x0001 03b2 00dc 0002 | | .CONST 0x00dc,0x0002 03b4 00e1 0003 | | .CONST 0x00e1,0x0003 03b6 00e6 0004 | | .CONST 0x00e6,0x0004 03b8 00e9 0005 | | .CONST 0x00e9,0x0005 03ba 00ed 0006 | | .CONST 0x00ed,0x0006 03bc 00f3 0007 | | .CONST 0x00f3,0x0007 03be 00f8 0008 | | .CONST 0x00f8,0x0008 03c0 0106 0009 | | .CONST 0x0106,0x0009 03c2 0109 000a | | .CONST 0x0109,0x000a 03c4 ; -------------------------------------------------------------------------------------- 03c4 ; Debug3 Subtable 0xa 03c4 ; -------------------------------------------------------------------------------------- 03c4 0000 0005 | | .DBG3TAB 0x0000,0x0005 03c6 011b 0001 | | .CONST 0x011b,0x0001 03c8 0122 0002 | " | .CONST 0x0122,0x0002 03ca 0128 0003 | ( | .CONST 0x0128,0x0003 03cc 012d 0004 | - | .CONST 0x012d,0x0004 03ce 0130 0005 | 0 | .CONST 0x0130,0x0005 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug3 Subtable 0xb 03d0 ; -------------------------------------------------------------------------------------- 03d0 0000 0001 | | .DBG3TAB 0x0000,0x0001 03d2 0143 0001 | C | .CONST 0x0143,0x0001 03d4 ; -------------------------------------------------------------------------------------- 03d4 ; Debug3 Subtable 0xc 03d4 ; -------------------------------------------------------------------------------------- 03d4 0001 0009 | | .DBG3TAB 0x0001,0x0009 03d6 014b ffff | K | .CONST 0x014b,0xffff 03d8 014d 0001 | M | .CONST 0x014d,0x0001 03da 0151 0002 | Q | .CONST 0x0151,0x0002 03dc 0152 0003 | R | .CONST 0x0152,0x0003 03de 0156 0004 | V | .CONST 0x0156,0x0004 03e0 0158 0005 | X | .CONST 0x0158,0x0005 03e2 0159 0006 | Y | .CONST 0x0159,0x0006 03e4 015d 0007 | ] | .CONST 0x015d,0x0007 03e6 015f 0008 | _ | .CONST 0x015f,0x0008 03e8 0160 0009 | ` | .CONST 0x0160,0x0009 03ea ; -------------------------------------------------------------------------------------- 03ea ; Debug3 Subtable 0xd 03ea ; -------------------------------------------------------------------------------------- 03ea 0001 000f | | .DBG3TAB 0x0001,0x000f 03ec 0173 ffff | s | .CONST 0x0173,0xffff 03ee 0175 0001 | u | .CONST 0x0175,0x0001 03f0 017b 0002 | { | .CONST 0x017b,0x0002 03f2 017d 0003 | } | .CONST 0x017d,0x0003 03f4 0181 0004 | | .CONST 0x0181,0x0004 03f6 0182 0005 | | .CONST 0x0182,0x0005 03f8 0188 0006 | | .CONST 0x0188,0x0006 03fa 018c 0007 | | .CONST 0x018c,0x0007 03fc 0190 0008 | | .CONST 0x0190,0x0008 03fe 0199 0009 | | .CONST 0x0199,0x0009 0400 01ab 000a | | .CONST 0x01ab,0x000a 0402 01b0 000b | | .CONST 0x01b0,0x000b 0404 01b3 000c | | .CONST 0x01b3,0x000c 0406 01b8 000d | | .CONST 0x01b8,0x000d 0408 01b9 000e | | .CONST 0x01b9,0x000e 040a 01bb 000f | | .CONST 0x01bb,0x000f 040c ; -------------------------------------------------------------------------------------- 040c ; Debug3 Subtable 0xe 040c ; -------------------------------------------------------------------------------------- 040c 0000 0000 | | .DBG3TAB 0x0000,0x0000 040e ; -------------------------------------------------------------------------------------- 040e ; Debug3 Subtable 0xf 040e ; -------------------------------------------------------------------------------------- 040e 0001 0002 | | .DBG3TAB 0x0001,0x0002 0410 01e3 ffff | | .CONST 0x01e3,0xffff 0412 01e4 0001 | | .CONST 0x01e4,0x0001 0414 01ee 0002 | | .CONST 0x01ee,0x0002 0416 ; -------------------------------------------------------------------------------------- 0416 ; Debug3 Subtable 0x10 0416 ; -------------------------------------------------------------------------------------- 0416 0002 0000 | | .DBG3TAB 0x0002,0x0000 0418 01fb ffff | | .CONST 0x01fb,0xffff 041a 01fd fffe | | .CONST 0x01fd,0xfffe 041c ; -------------------------------------------------------------------------------------- 041c ; Debug3 Subtable 0x11 041c ; -------------------------------------------------------------------------------------- 041c 0002 0000 | | .DBG3TAB 0x0002,0x0000 041e 0200 ffff | | .CONST 0x0200,0xffff 0420 0202 fffe | | .CONST 0x0202,0xfffe 0422 ; -------------------------------------------------------------------------------------- 0422 ; Debug3 Subtable 0x12 0422 ; -------------------------------------------------------------------------------------- 0422 0001 000b | | .DBG3TAB 0x0001,0x000b 0424 020b ffff | | .CONST 0x020b,0xffff 0426 020d 0001 | | .CONST 0x020d,0x0001 0428 0211 0002 | | .CONST 0x0211,0x0002 042a 0212 0003 | | .CONST 0x0212,0x0003 042c 0217 0004 | | .CONST 0x0217,0x0004 042e 0219 0005 | | .CONST 0x0219,0x0005 0430 021c 0006 | | .CONST 0x021c,0x0006 0432 021d 0007 | | .CONST 0x021d,0x0007 0434 0227 0008 | ' | .CONST 0x0227,0x0008 0436 0229 0009 | ) | .CONST 0x0229,0x0009 0438 022b 000a | + | .CONST 0x022b,0x000a 043a 022c 000b | , | .CONST 0x022c,0x000b 043c ; -------------------------------------------------------------------------------------- 043c ; Debug3 Subtable 0x13 043c ; -------------------------------------------------------------------------------------- 043c 0001 0011 | | .DBG3TAB 0x0001,0x0011 043e 023b ffff | ; | .CONST 0x023b,0xffff 0440 023e 0001 | > | .CONST 0x023e,0x0001 0442 0241 0002 | A | .CONST 0x0241,0x0002 0444 0245 0003 | E | .CONST 0x0245,0x0003 0446 0246 0004 | F | .CONST 0x0246,0x0004 0448 024b 0005 | K | .CONST 0x024b,0x0005 044a 024d 0006 | M | .CONST 0x024d,0x0006 044c 024e 0007 | N | .CONST 0x024e,0x0007 044e 0258 0008 | X | .CONST 0x0258,0x0008 0450 025d 0009 | ] | .CONST 0x025d,0x0009 0452 0268 000a | h | .CONST 0x0268,0x000a 0454 027e 000b | ~ | .CONST 0x027e,0x000b 0456 0283 000c | | .CONST 0x0283,0x000c 0458 0286 000d | | .CONST 0x0286,0x000d 045a 0288 000e | | .CONST 0x0288,0x000e 045c 028d 000f | | .CONST 0x028d,0x000f 045e 028e 0010 | | .CONST 0x028e,0x0010 0460 0290 0011 | | .CONST 0x0290,0x0011 0462 0000 0000 | | .BLANK 0000[0x19e]