|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_04c4c9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0398 | | .CONST 0x0398 ; 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 00d0 | | .CONST 0x00d0 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0038 | 8 | .CONST 0x0038 ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 60ea |` | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 0093 0000 | | push_full_address 0x0 0012 60e1 |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00020000} 0013 0273 | s | Execute Discrete,Plus 0014 0129 | ) | Execute Any,Make_Visible 0015 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 001d 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0021 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0023 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0025 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0027 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0029 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 002b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 002d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 002f 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0031 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0033 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0035 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0037 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0039 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 003b 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 003d 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 003f 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0041 4820 |H | Short_Literal 0x20 0042 e002 | | Load 0x0,0x2 0043 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0044 1c07 | | Execute_Immediate Run_Utility,0x7 0045 0129 | ) | Execute Any,Make_Visible 0046 e003 | | Load 0x0,0x3 0047 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call 0049 4802 |H | Short_Literal 0x2 004a 032e | . | Declare_Type Record,Defined,Visible 004b 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 004d 0093 0000 | | push_full_address 0x0 004f 60a0 |` | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00010000} 0050 0273 | s | Execute Discrete,Plus 0051 e004 | | Load 0x0,0x4 0052 0273 | s | Execute Discrete,Plus 0053 e005 | | Load 0x0,0x5 0054 0273 | s | Execute Discrete,Plus 0055 00da | | Load_Top At_Offset_2 0056 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0057 e006 | | Load 0x0,0x6 0058 0386 | | Declare_Variable Package,Visible 0059 00d8 | | Load_Top At_Offset_0 005a 020f | | Execute Module,Activate 005b e007 | | Load 0x0,0x7 005c 00d9 | | Load_Top At_Offset_1 005d 0098 | | Execute Package,Field_Read_Dynamic 005e 02a0 | | Declare_Subprogram Null_Subprogram 005f 4801 |H | Short_Literal 0x1 0060 032e | . | Declare_Type Record,Defined,Visible 0061 e008 | | Load 0x0,0x8 0062 00da | | Load_Top At_Offset_2 0063 0098 | | Execute Package,Field_Read_Dynamic 0064 02a0 | | Declare_Subprogram Null_Subprogram 0065 4801 |H | Short_Literal 0x1 0066 032e | . | Declare_Type Record,Defined,Visible 0067 00bf | | Action Accept_Activation 0068 e225 | % | Load 0x1,0x25 0069 0322 | " | Declare_Variable Record 006a 00d8 | | Load_Top At_Offset_0 006b 1c00 | | Execute_Immediate Run_Utility,0x0 006c 00e1 | | Load_Encached Boolean_Cache 006d 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 006f 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0070 00c7 | | Action Elaborate_Subprogram 0071 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0073 e009 | | Load 0x0,0x9 0074 e227 | ' | Load 0x1,0x27 0075 0095 | | Execute Package,Field_Reference_Dynamic 0076 00c6 | | Action Check_Subprogram_Elaborated 0077 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0078 0093 0000 | | push_full_address 0x0 007a 6071 |`q | Indirect_Literal Discrete,0xec,{0x80000000, 0x00040000} 007b 0273 | s | Execute Discrete,Plus 007c e004 | | Load 0x0,0x4 007d 0273 | s | Execute Discrete,Plus 007e e00a | | Load 0x0,0xa 007f 0273 | s | Execute Discrete,Plus 0080 4800 |H | Short_Literal 0x0 0081 0007 | | Action Break_Optional 0082 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 0084 e00b | | Load 0x0,0xb 0085 e227 | ' | Load 0x1,0x27 0086 0095 | | Execute Package,Field_Reference_Dynamic 0087 00c6 | | Action Check_Subprogram_Elaborated 0088 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0089 0093 0000 | | push_full_address 0x0 008b 605c |`\ | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00030000} 008c 0273 | s | Execute Discrete,Plus 008d e004 | | Load 0x0,0x4 008e 0273 | s | Execute Discrete,Plus 008f e00c | | Load 0x0,0xc 0090 0273 | s | Execute Discrete,Plus 0091 4800 |H | Short_Literal 0x0 0092 0007 | | Action Break_Optional 0093 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call 0095 e00d | | Load 0x0,0xd 0096 e227 | ' | Load 0x1,0x27 0097 0095 | | Execute Package,Field_Reference_Dynamic 0098 00c6 | | Action Check_Subprogram_Elaborated 0099 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 009a 0093 0000 | | push_full_address 0x0 009c 6047 |`G | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00020000} 009d 0273 | s | Execute Discrete,Plus 009e e004 | | Load 0x0,0x4 009f 0273 | s | Execute Discrete,Plus 00a0 e00e | | Load 0x0,0xe 00a1 0273 | s | Execute Discrete,Plus 00a2 4800 |H | Short_Literal 0x0 00a3 0007 | | Action Break_Optional 00a4 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00cf 00c7 | | Action Elaborate_Subprogram 00d0 BODY_0008: 00d0 00bc | | Action Signal_Activated 00d1 00bb | | Action Signal_Completion 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e00f | | Load 0x0,0xf 00dc e227 | ' | Load 0x1,0x27 00dd 0096 | | Execute Package,Entry 00de 00db | | Load_Top At_Offset_3 00df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e1 0000 0000 | | .XXX[0x3] 00e3 0000 | | 00e4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00e8 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 00ec 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 00f0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00f4 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0107 | | .CONST 0x0107 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e225 | % | Load 0x1,0x25 0104 0322 | " | Declare_Variable Record 0105 00d8 | | Load_Top At_Offset_0 0106 1c00 | | Execute_Immediate Run_Utility,0x0 0107 BODY_0100: 0107 e010 | | Load 0x0,0x10 0108 e5fe | | Load 0x2,-0x2 0109 822c | , | Call 0x1,0x2c 010a 00d9 | | Load_Top At_Offset_1 010b 017d | } | Execute Record,Structure_Write 010c 00db | | Load_Top At_Offset_3 010d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010e 00d9 | | Load_Top At_Offset_1 010f e011 | | Load 0x0,0x11 0110 e227 | ' | Load 0x1,0x27 0111 0096 | | Execute Package,Entry 0112 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0121 | ! | .CONST 0x0121 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b 00e1 | | Load_Encached Boolean_Cache 011c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 011d e225 | % | Load 0x1,0x25 011e 0322 | " | Declare_Variable Record 011f 00d8 | | Load_Top At_Offset_0 0120 1c00 | | Execute_Immediate Run_Utility,0x0 0121 BODY_0118: 0121 e5fd | | Load 0x2,-0x3 0122 e5fe | | Load 0x2,-0x2 0123 822c | , | Call 0x1,0x2c 0124 00d9 | | Load_Top At_Offset_1 0125 017d | } | Execute Record,Structure_Write 0126 00d8 | | Load_Top At_Offset_0 0127 00e1 | | Load_Encached Boolean_Cache 0128 e5ff | | Load 0x2,-0x1 0129 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012a 00db | | Load_Top At_Offset_3 012b e012 | | Load 0x0,0x12 012c e227 | ' | Load 0x1,0x27 012d 0096 | | Execute Package,Entry 012e 005b | [ | Store_Top Discrete,At_Offset_3 012f 00d1 | | Pop_Control Pop_Count_1 0130 e5fd | | Load 0x2,-0x3 0131 8013 | | Call 0x0,0x13 0132 00d1 | | Pop_Control Pop_Count_1 0133 e5fd | | Load 0x2,-0x3 0134 00d9 | | Load_Top At_Offset_1 0135 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0136 8014 | | Call 0x0,0x14 0137 00d1 | | Pop_Control Pop_Count_1 0138 00d9 | | Load_Top At_Offset_1 0139 7003 |p | Jump_Nonzero 0x13d 013a e5fd | | Load 0x2,-0x3 013b 8015 | | Call 0x0,0x15 013c 00d1 | | Pop_Control Pop_Count_1 013d 00d8 | | Load_Top At_Offset_0 013e 822d | - | Call 0x1,0x2d 013f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 0092 0364 | d| Action Push_String_Extended,0x364 ; "Number of Attribute:" 0145 00db | | Load_Top At_Offset_3 0146 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0147 e016 | | Load 0x0,0x16 0148 e227 | ' | Load 0x1,0x27 0149 0096 | | Execute Package,Entry 014a 00e0 | | Load_Encached Standard_Cache 014b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014c 01cc | | Execute Vector,Catenate 014d e017 | | Load 0x0,0x17 014e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4801 |H | Short_Literal 0x1 0154 00db | | Load_Top At_Offset_3 0155 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0156 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0157 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0158 e00d | | Load 0x0,0xd 0159 e227 | ' | Load 0x1,0x27 015a 0096 | | Execute Package,Entry 015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 0092 0365 | e| Action Push_String_Extended,0x365 ; "Function not yet implemented" 0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 0092 0366 | f| Action Push_String_Extended,0x366 ; "function not yet implemented" 016d e017 | | Load 0x0,0x17 016e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 016f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017f | | .CONST 0x017f ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0005 | | .CONST 0x0005 ; Number of locals 0173 INIT_0170: 0173 e229 | ) | Load 0x1,0x29 0174 0322 | " | Declare_Variable Record 0175 e003 | | Load 0x0,0x3 0176 02ff | | Declare_Variable Variant_Record 0177 00d8 | | Load_Top At_Offset_0 0178 1c00 | | Execute_Immediate Run_Utility,0x0 0179 e003 | | Load 0x0,0x3 017a 02ff | | Declare_Variable Variant_Record 017b 00d8 | | Load_Top At_Offset_0 017c 1c00 | | Execute_Immediate Run_Utility,0x0 017d e22b | + | Load 0x1,0x2b 017e 0007 | | Action Break_Optional 017f BODY_0170: 017f e5ff | | Load 0x2,-0x1 0180 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0181 e016 | | Load 0x0,0x16 0182 e227 | ' | Load 0x1,0x27 0183 0096 | | Execute Package,Entry 0184 e5fe | | Load 0x2,-0x2 0185 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0186 e016 | | Load 0x0,0x16 0187 e227 | ' | Load 0x1,0x27 0188 0096 | | Execute Package,Entry 0189 027e | ~ | Execute Discrete,Not_Equal 018a 6802 |h | Jump_Zero 0x18d 018b 4800 |H | Short_Literal 0x0 018c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018d 00db | | Load_Top At_Offset_3 018e e5ff | | Load 0x2,-0x1 018f 8220 | | Call 0x1,0x20 0190 00d1 | | Pop_Control Pop_Count_1 0191 00cf | | Action Mark_Auxiliary 0192 781f |x | Jump 0x1b2 0193 e402 | | Load 0x2,0x2 0194 8222 | " | Call 0x1,0x22 0195 e5fe | | Load 0x2,-0x2 0196 8210 | | Call 0x1,0x10 0197 6812 |h | Jump_Zero 0x1aa 0198 00db | | Load_Top At_Offset_3 0199 e402 | | Load 0x2,0x2 019a 8222 | " | Call 0x1,0x22 019b e5fe | | Load 0x2,-0x2 019c 8211 | | Call 0x1,0x11 019d 00d1 | | Pop_Control Pop_Count_1 019e 00da | | Load_Top At_Offset_2 019f e402 | | Load 0x2,0x2 01a0 8223 | # | Call 0x1,0x23 01a1 00d1 | | Pop_Control Pop_Count_1 01a2 00db | | Load_Top At_Offset_3 01a3 00db | | Load_Top At_Offset_3 01a4 8018 | | Call 0x0,0x18 01a5 7008 |p | Jump_Nonzero 0x1ae 01a6 00d9 | | Load_Top At_Offset_1 01a7 a22b | + | Store_Unchecked 0x1,0x2b 01a8 4800 |H | Short_Literal 0x0 01a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01aa 00d9 | | Load_Top At_Offset_1 01ab a22b | + | Store_Unchecked 0x1,0x2b 01ac 4800 |H | Short_Literal 0x0 01ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ae e402 | | Load 0x2,0x2 01af 8221 | ! | Call 0x1,0x21 01b0 00d1 | | Pop_Control Pop_Count_1 01b1 00c9 | | Action Pop_Auxiliary_Loop 01b2 e402 | | Load 0x2,0x2 01b3 8224 | $ | Call 0x1,0x24 01b4 6fde |o | Jump_Zero 0x193 01b5 00ce | | Action Pop_Auxiliary 01b6 00d8 | | Load_Top At_Offset_0 01b7 a22b | + | Store_Unchecked 0x1,0x2b 01b8 4801 |H | Short_Literal 0x1 01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ba 0000 0000 | | .BLANK 0000[0x6] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c9 | | .CONST 0x01c9 ; Address of begin 01c1 01db | | .CONST 0x01db ; Address of exception handler 01c2 0003 | | .CONST 0x0003 ; Number of locals 01c3 INIT_01c0: 01c3 00e1 | | Load_Encached Boolean_Cache 01c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c5 e225 | % | Load 0x1,0x25 01c6 0322 | " | Declare_Variable Record 01c7 00d8 | | Load_Top At_Offset_0 01c8 1c00 | | Execute_Immediate Run_Utility,0x0 01c9 BODY_01c0: 01c9 00d8 | | Load_Top At_Offset_0 01ca 00e1 | | Load_Encached Boolean_Cache 01cb e5fd | | Load 0x2,-0x3 01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cd e5fe | | Load 0x2,-0x2 01ce e5ff | | Load 0x2,-0x1 01cf 822c | , | Call 0x1,0x2c 01d0 e019 | | Load 0x0,0x19 01d1 e227 | ' | Load 0x1,0x27 01d2 0096 | | Execute Package,Entry 01d3 005b | [ | Store_Top Discrete,At_Offset_3 01d4 00d1 | | Pop_Control Pop_Count_1 01d5 00d9 | | Load_Top At_Offset_1 01d6 6803 |h | Jump_Zero 0x1da 01d7 00d8 | | Load_Top At_Offset_0 01d8 822d | - | Call 0x1,0x2d 01d9 00d1 | | Pop_Control Pop_Count_1 01da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01db TRAP_01c0: 01db 0007 | | Action Break_Optional 01dc e20d | | Load 0x1,0xd 01dd 0257 | W | Execute Discrete,Raise 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e7 | | .CONST 0x01e7 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e003 | | Load 0x0,0x3 01e4 02ff | | Declare_Variable Variant_Record 01e5 00d8 | | Load_Top At_Offset_0 01e6 1c00 | | Execute_Immediate Run_Utility,0x0 01e7 BODY_01e0: 01e7 00d8 | | Load_Top At_Offset_0 01e8 8013 | | Call 0x0,0x13 01e9 00d1 | | Pop_Control Pop_Count_1 01ea 00d8 | | Load_Top At_Offset_0 01eb e5fe | | Load 0x2,-0x2 01ec 801a | | Call 0x0,0x1a 01ed 00d1 | | Pop_Control Pop_Count_1 01ee e5fd | | Load 0x2,-0x3 01ef 00d9 | | Load_Top At_Offset_1 01f0 e5ff | | Load 0x2,-0x1 01f1 8217 | | Call 0x1,0x17 01f2 00d1 | | Pop_Control Pop_Count_1 01f3 00d8 | | Load_Top At_Offset_0 01f4 801b | | Call 0x0,0x1b 01f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f6 0000 0000 | | .XXX[0x2] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01ff | | .CONST 0x01ff ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e003 | | Load 0x0,0x3 01fc 02ff | | Declare_Variable Variant_Record 01fd 00d8 | | Load_Top At_Offset_0 01fe 1c00 | | Execute_Immediate Run_Utility,0x0 01ff BODY_01f8: 01ff 00d8 | | Load_Top At_Offset_0 0200 8013 | | Call 0x0,0x13 0201 00d1 | | Pop_Control Pop_Count_1 0202 00d8 | | Load_Top At_Offset_0 0203 e5fe | | Load 0x2,-0x2 0204 801c | | Call 0x0,0x1c 0205 00d1 | | Pop_Control Pop_Count_1 0206 e5fd | | Load 0x2,-0x3 0207 00d9 | | Load_Top At_Offset_1 0208 e5ff | | Load 0x2,-0x1 0209 8217 | | Call 0x1,0x17 020a 00d1 | | Pop_Control Pop_Count_1 020b 00d8 | | Load_Top At_Offset_0 020c 801b | | Call 0x0,0x1b 020d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 020e 0000 0000 | | .XXX[0x2] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0217 | | .CONST 0x0217 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 e003 | | Load 0x0,0x3 0214 02ff | | Declare_Variable Variant_Record 0215 00d8 | | Load_Top At_Offset_0 0216 1c00 | | Execute_Immediate Run_Utility,0x0 0217 BODY_0210: 0217 00d8 | | Load_Top At_Offset_0 0218 8013 | | Call 0x0,0x13 0219 00d1 | | Pop_Control Pop_Count_1 021a 00d8 | | Load_Top At_Offset_0 021b e5fe | | Load 0x2,-0x2 021c 801d | | Call 0x0,0x1d 021d 00d1 | | Pop_Control Pop_Count_1 021e e5fd | | Load 0x2,-0x3 021f 00d9 | | Load_Top At_Offset_1 0220 e5ff | | Load 0x2,-0x1 0221 8217 | | Call 0x1,0x17 0222 00d1 | | Pop_Control Pop_Count_1 0223 00d8 | | Load_Top At_Offset_0 0224 801b | | Call 0x0,0x1b 0225 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 0092 0366 | f| Action Push_String_Extended,0x366 ; "function not yet implemented" 022d e017 | | Load 0x0,0x17 022e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 022f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 0092 0366 | f| Action Push_String_Extended,0x366 ; "function not yet implemented" 0235 e017 | | Load 0x0,0x17 0236 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0237 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023d 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 023e 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 023f e00b | | Load 0x0,0xb 0240 e227 | ' | Load 0x1,0x27 0241 0096 | | Execute Package,Entry 0242 e5fe | | Load 0x2,-0x2 0243 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0244 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 024d e5fe | | Load 0x2,-0x2 024e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 024f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0255 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0256 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0257 e009 | | Load 0x0,0x9 0258 e227 | ' | Load 0x1,0x27 0259 0096 | | Execute Package,Entry 025a 00db | | Load_Top At_Offset_3 025b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 025c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025d 0000 0000 | | .XXX[0x3] 025f 0000 | | 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0265 e01e | | Load 0x0,0x1e 0266 e227 | ' | Load 0x1,0x27 0267 0096 | | Execute Package,Entry 0268 e5fe | | Load 0x2,-0x2 0269 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 026a 4800 |H | Short_Literal 0x0 026b a22b | + | Store_Unchecked 0x1,0x2b 026c 00db | | Load_Top At_Offset_3 026d 8221 | ! | Call 0x1,0x21 026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 026f 0000 | | .XXX[0x1] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 e22b | + | Load 0x1,0x2b 0274 7012 |p | Jump_Nonzero 0x287 0275 00da | | Load_Top At_Offset_2 0276 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0277 e01f | | Load 0x0,0x1f 0278 e227 | ' | Load 0x1,0x27 0279 0096 | | Execute Package,Entry 027a 680a |h | Jump_Zero 0x285 027b e22a | * | Load 0x1,0x2a 027c 00db | | Load_Top At_Offset_3 027d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 027e e020 | | Load 0x0,0x20 027f e227 | ' | Load 0x1,0x27 0280 0096 | | Execute Package,Entry 0281 e5ff | | Load 0x2,-0x1 0282 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0283 00d1 | | Pop_Control Pop_Count_1 0284 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0285 e20e | | Load 0x1,0xe 0286 0257 | W | Execute Discrete,Raise 0287 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0290 | | .CONST 0x0290 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b e22a | * | Load 0x1,0x2a 028c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 028d e002 | | Load 0x0,0x2 028e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 028f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0290 TRAP_0288: 0290 0007 | | Action Break_Optional 0291 e20e | | Load 0x1,0xe 0292 0257 | W | Execute Discrete,Raise 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02a0 | | .CONST 0x02a0 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c e22a | * | Load 0x1,0x2a 029d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 029e 8014 | | Call 0x0,0x14 029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a0 TRAP_0298: 02a0 0007 | | Action Break_Optional 02a1 e20e | | Load 0x1,0xe 02a2 0257 | W | Execute Discrete,Raise 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ad | | .CONST 0x02ad ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab 00e1 | | Load_Encached Boolean_Cache 02ac 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02ad BODY_02a8: 02ad 00db | | Load_Top At_Offset_3 02ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02af e01f | | Load 0x0,0x1f 02b0 e227 | ' | Load 0x1,0x27 02b1 0096 | | Execute Package,Entry 02b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02b3 00d8 | | Load_Top At_Offset_0 02b4 6802 |h | Jump_Zero 0x2b7 02b5 4800 |H | Short_Literal 0x0 02b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b7 00d8 | | Load_Top At_Offset_0 02b8 0f00 | | Execute_Immediate Equal,0x0 02b9 e22b | + | Load 0x1,0x2b 02ba 0f00 | | Execute_Immediate Equal,0x0 02bb 0279 | y | Execute Discrete,And 02bc 6804 |h | Jump_Zero 0x2c1 02bd 4801 |H | Short_Literal 0x1 02be a22b | + | Store_Unchecked 0x1,0x2b 02bf 4800 |H | Short_Literal 0x0 02c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c1 00d8 | | Load_Top At_Offset_0 02c2 0f00 | | Execute_Immediate Equal,0x0 02c3 e22b | + | Load 0x1,0x2b 02c4 0279 | y | Execute Discrete,And 02c5 6802 |h | Jump_Zero 0x2c8 02c6 4801 |H | Short_Literal 0x1 02c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c8 0831 | 1 | Execute_Immediate Raise,0x31 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d5 | | .CONST 0x02d5 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0002 | | .CONST 0x0002 ; Number of locals 02d3 INIT_02d0: 02d3 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call 02d5 BODY_02d0: 02d5 8402 | | Call 0x2,0x2 02d6 0831 | 1 | Execute_Immediate Raise,0x31 02d7 0000 | | .XXX[0x1] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02df | | .CONST 0x02df ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db e225 | % | Load 0x1,0x25 02dc 0322 | " | Declare_Variable Record 02dd 00d8 | | Load_Top At_Offset_0 02de 1c00 | | Execute_Immediate Run_Utility,0x0 02df BODY_02d8: 02df 00d8 | | Load_Top At_Offset_0 02e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e1 e002 | | Load 0x0,0x2 02e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02e3 00d1 | | Pop_Control Pop_Count_1 02e4 00d8 | | Load_Top At_Offset_0 02e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e6 e5ff | | Load 0x2,-0x1 02e7 e002 | | Load 0x0,0x2 02e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02e9 00d1 | | Pop_Control Pop_Count_1 02ea 00d8 | | Load_Top At_Offset_0 02eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ec 8013 | | Call 0x0,0x13 02ed 00d1 | | Pop_Control Pop_Count_1 02ee 00d8 | | Load_Top At_Offset_0 02ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f0 e5fe | | Load 0x2,-0x2 02f1 8014 | | Call 0x0,0x14 02f2 00d1 | | Pop_Control Pop_Count_1 02f3 00d8 | | Load_Top At_Offset_0 02f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f5 0000 0000 | | .XXX[0x3] 02f7 0000 | | 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00da | | Load_Top At_Offset_2 02fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fd 801b | | Call 0x0,0x1b 02fe 00d1 | | Pop_Control Pop_Count_1 02ff 00da | | Load_Top At_Offset_2 0300 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0301 e002 | | Load 0x0,0x2 0302 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0303 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 030d 00db | | Load_Top At_Offset_3 030e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 030f e002 | | Load 0x0,0x2 0310 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0311 822c | , | Call 0x1,0x2c 0312 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0313 0000 0000 | | .BLANK 0000[0x5] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 00da | | Load_Top At_Offset_2 031c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 031d e002 | | Load 0x0,0x2 031e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 031f 0092 0367 | g| Action Push_String_Extended,0x367 ; " : " 0321 01cc | | Execute Vector,Catenate 0322 00db | | Load_Top At_Offset_3 0323 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0324 8021 | ! | Call 0x0,0x21 0325 01cc | | Execute Vector,Catenate 0326 e017 | | Load 0x0,0x17 0327 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0328 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0329 0000 0000 | | .BLANK 0000[0x7] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 e5ff | | Load 0x2,-0x1 0334 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0335 e002 | | Load 0x0,0x2 0336 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0337 e5fe | | Load 0x2,-0x2 0338 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0339 e002 | | Load 0x0,0x2 033a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 033b 01c1 | | Execute Vector,Less 033c 6803 |h | Jump_Zero 0x340 033d 4fff |O | Short_Literal -0x1 033e 00cb | | Action Pop_Block_With_Result 033f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0340 e5ff | | Load 0x2,-0x1 0341 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0342 e002 | | Load 0x0,0x2 0343 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0344 e5fe | | Load 0x2,-0x2 0345 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0346 e002 | | Load 0x0,0x2 0347 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0348 01df | | Execute Vector,Equal 0349 6803 |h | Jump_Zero 0x34d 034a 4800 |H | Short_Literal 0x0 034b 00cb | | Action Pop_Block_With_Result 034c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 034d 4801 |H | Short_Literal 0x1 034e 00cb | | Action Pop_Block_With_Result 034f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 4601 |F | Jump_Case 0x2 0354 7801 |x | Jump 0x356 ; case 0x0 0355 780a |x | Jump 0x360 ; case 0x1 0356 00da | | Load_Top At_Offset_2 0357 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0358 0125 | % | Execute Any,Set_Constraint 0359 00da | | Load_Top At_Offset_2 035a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 035b 1c00 | | Execute_Immediate Run_Utility,0x0 035c 00da | | Load_Top At_Offset_2 035d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 035e 1c00 | | Execute_Immediate Run_Utility,0x0 035f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0360 00da | | Load_Top At_Offset_2 0361 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0362 0125 | % | Execute Any,Set_Constraint 0363 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0364 ; -------------------------------------------------------------------------------------- 0364 ; STRING TABLE 0364 ; -------------------------------------------------------------------------------------- 0364 000a | | .STRTAB 0x000a->0x0369 ; "Number of Attribute:" 0365 001c | | .STRTAB 0x001c->0x0373 ; "Function not yet implemented" 0366 0036 | 6 | .STRTAB 0x0036->0x0381 ; "function not yet implemented" 0367 0050 | P | .STRTAB 0x0050->0x038f ; " : " 0368 0051 | Q | .STREND 0x0051->0x0390 0369 4e75 6d62 |Numb| .STRTAB_STRINGS 0391 0000 0000 | | .BLANK 0000[0x7] 0398 ; -------------------------------------------------------------------------------------- 0398 ; Debug Table 0398 ; -------------------------------------------------------------------------------------- 0398 0004 0007 | | .DEBUG4 0x0004,0x0007,0xd09b,0x0000,0x0001,0x001f 039e 000b 041a | | .DBG4T 0x000b,0x041a,0x8000,0x8000 03a2 0068 0456 | h V| .DBG4T 0x0068,0x0456,0x8000,0x8000 03a6 00db 0498 | | .DBG4T 0x00db,0x0498,0x0001,0x0000 03aa 0103 049b | | .DBG4T 0x0103,0x049b,0x0002,0x0000 03ae 011b 04a0 | | .DBG4T 0x011b,0x04a0,0x0001,0x0000 03b2 0143 04ab | C | .DBG4T 0x0143,0x04ab,0x0001,0x0000 03b6 0153 04ae | S | .DBG4T 0x0153,0x04ae,0x0001,0x0000 03ba 0163 04b1 | c | .DBG4T 0x0163,0x04b1,0x0002,0x0000 03be 016b 04b4 | k | .DBG4T 0x016b,0x04b4,0x0001,0x0000 03c2 0173 04b7 | s | .DBG4T 0x0173,0x04b7,0x0002,0x4000 03c6 01c3 04dd | | .DBG4T 0x01c3,0x04dd,0x0001,0x0000 03ca 01e3 04e5 | | .DBG4T 0x01e3,0x04e5,0x0001,0x0000 03ce 01fb 04ec | | .DBG4T 0x01fb,0x04ec,0x0001,0x0000 03d2 0213 04f3 | | .DBG4T 0x0213,0x04f3,0x0001,0x0000 03d6 022b 04fa | + | .DBG4T 0x022b,0x04fa,0x0001,0x0000 03da 0233 04fd | 3 | .DBG4T 0x0233,0x04fd,0x0001,0x0000 03de 023b 0500 | ; | .DBG4T 0x023b,0x0500,0x0001,0x0000 03e2 024b 0503 | K | .DBG4T 0x024b,0x0503,0x0001,0x0000 03e6 0253 0506 | S | .DBG4T 0x0253,0x0506,0x0001,0x0000 03ea 0263 0509 | c | .DBG4T 0x0263,0x0509,0x0001,0x0000 03ee 0273 050e | s | .DBG4T 0x0273,0x050e,0x0001,0x0000 03f2 028b 0514 | | .DBG4T 0x028b,0x0514,0x0002,0x0000 03f6 029b 0518 | | .DBG4T 0x029b,0x0518,0x0001,0x0000 03fa 02ab 051c | | .DBG4T 0x02ab,0x051c,0x0002,0x0000 03fe 02d3 0527 | '| .DBG4T 0x02d3,0x0527,0x0002,0x0000 0402 02db 052a | *| .DBG4T 0x02db,0x052a,0x0002,0x0000 0406 02fb 0532 | 2| .DBG4T 0x02fb,0x0532,0x0001,0x0000 040a 030b 0536 | 6| .DBG4T 0x030b,0x0536,0x0002,0x0000 040e 031b 0539 | 9| .DBG4T 0x031b,0x0539,0x0001,0x0000 0412 0333 053c | 3 <| .DBG4T 0x0333,0x053c,0x0004,0x0000 0416 0353 0000 | S | .DBG4T 0x0353,0x0000,0x0005,0x0000 041a ; -------------------------------------------------------------------------------------- 041a ; Debug chain 041a ; -------------------------------------------------------------------------------------- 041a 001d 0000 | | .DBGLEN 0x001d,0x0000 041c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x004b,0x004d,0x005b,0x0061 0439 0001 0002 | | .XXX[0x1d] 043b 0007 0008 | | 043d 0009 000a | | 043f 000b 000c | | 0441 000d 000e | | 0443 000f 0010 | | 0445 0011 0012 | | 0447 0013 0014 | | 0449 0015 0016 | | 044b 0017 0018 | | 044d 0019 001a | | 044f 001b 001c | | 0451 001d 001e | | 0453 001f 0020 | | 0455 0021 | ! | 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug chain 0456 ; -------------------------------------------------------------------------------------- 0456 0020 0000 | | .DBGLEN 0x0020,0x0000 0458 0068 006c | h l| .DBGLNO 0x0068,0x006c,0x006d,0x006f,0x0071,0x0073,0x0082,0x0084,0x0093,0x0095,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc,0x00ce 0478 0004 0005 | | .XXX[0x20] 047a 0006 0007 | | 047c 0008 0009 | | 047e 000a 000b | | 0480 000c 000d | | 0482 000e 000f | | 0484 0010 0011 | | 0486 0012 0013 | | 0488 0014 0015 | | 048a 0016 0017 | | 048c 0018 0019 | | 048e 001a 001b | | 0490 001c 001d | | 0492 001e 001f | | 0494 0020 0021 | !| 0496 0022 0023 | " #| 0498 ; -------------------------------------------------------------------------------------- 0498 ; Debug chain 0498 ; -------------------------------------------------------------------------------------- 0498 0000 0001 | | .DBGLEN 0x0000,0x0001 049a 00db | | .DBGLNO 0x00db 049b ; -------------------------------------------------------------------------------------- 049b ; Debug chain 049b ; -------------------------------------------------------------------------------------- 049b 0001 0002 | | .DBGLEN 0x0001,0x0002 049d 0103 0107 | | .DBGLNO 0x0103,0x0107,0x010c 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; Debug chain 04a0 ; -------------------------------------------------------------------------------------- 04a0 0002 0007 | | .DBGLEN 0x0002,0x0007 04a2 011b 011d | | .DBGLNO 0x011b,0x011d,0x0121,0x0126,0x0130,0x0133,0x0138,0x013a,0x013d 04ab ; -------------------------------------------------------------------------------------- 04ab ; Debug chain 04ab ; -------------------------------------------------------------------------------------- 04ab 0000 0001 | | .DBGLEN 0x0000,0x0001 04ad 0143 | C | .DBGLNO 0x0143 04ae ; -------------------------------------------------------------------------------------- 04ae ; Debug chain 04ae ; -------------------------------------------------------------------------------------- 04ae 0000 0001 | | .DBGLEN 0x0000,0x0001 04b0 0153 | S | .DBGLNO 0x0153 04b1 ; -------------------------------------------------------------------------------------- 04b1 ; Debug chain 04b1 ; -------------------------------------------------------------------------------------- 04b1 0000 0001 | | .DBGLEN 0x0000,0x0001 04b3 0163 | c | .DBGLNO 0x0163 04b4 ; -------------------------------------------------------------------------------------- 04b4 ; Debug chain 04b4 ; -------------------------------------------------------------------------------------- 04b4 0000 0001 | | .DBGLEN 0x0000,0x0001 04b6 016b | k | .DBGLNO 0x016b 04b7 ; -------------------------------------------------------------------------------------- 04b7 ; Debug chain 04b7 ; -------------------------------------------------------------------------------------- 04b7 0004 0010 | | .DBGLEN 0x0004,0x0010 04b9 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0179,0x017d,0x017f,0x018b,0x018d,0x0191,0x0193,0x0198,0x019e,0x01a2,0x01a6,0x01a8,0x01aa,0x01ac,0x01ae,0x01b2,0x01b6,0x01b8 04cd 0001 0002 | | .XXX[0x10] 04cf 0003 0004 | | 04d1 0005 0006 | | 04d3 0007 0008 | | 04d5 0009 000a | | 04d7 000b 000c | | 04d9 000d 0004 | | 04db 000e 000f | | 04dd ; -------------------------------------------------------------------------------------- 04dd ; Debug chain 04dd ; -------------------------------------------------------------------------------------- 04dd 0002 0004 | | .DBGLEN 0x0002,0x0004 04df 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01c9,0x01d5,0x01d7,0x01dc 04e5 ; -------------------------------------------------------------------------------------- 04e5 ; Debug chain 04e5 ; -------------------------------------------------------------------------------------- 04e5 0001 0004 | | .DBGLEN 0x0001,0x0004 04e7 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7,0x01ea,0x01ee,0x01f3 04ec ; -------------------------------------------------------------------------------------- 04ec ; Debug chain 04ec ; -------------------------------------------------------------------------------------- 04ec 0001 0004 | | .DBGLEN 0x0001,0x0004 04ee 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0202,0x0206,0x020b 04f3 ; -------------------------------------------------------------------------------------- 04f3 ; Debug chain 04f3 ; -------------------------------------------------------------------------------------- 04f3 0001 0004 | | .DBGLEN 0x0001,0x0004 04f5 0213 0217 | | .DBGLNO 0x0213,0x0217,0x021a,0x021e,0x0223 04fa ; -------------------------------------------------------------------------------------- 04fa ; Debug chain 04fa ; -------------------------------------------------------------------------------------- 04fa 0000 0001 | | .DBGLEN 0x0000,0x0001 04fc 022b | + | .DBGLNO 0x022b 04fd ; -------------------------------------------------------------------------------------- 04fd ; Debug chain 04fd ; -------------------------------------------------------------------------------------- 04fd 0000 0001 | | .DBGLEN 0x0000,0x0001 04ff 0233 | 3 | .DBGLNO 0x0233 0500 ; -------------------------------------------------------------------------------------- 0500 ; Debug chain 0500 ; -------------------------------------------------------------------------------------- 0500 0000 0001 | | .DBGLEN 0x0000,0x0001 0502 023b | ; | .DBGLNO 0x023b 0503 ; -------------------------------------------------------------------------------------- 0503 ; Debug chain 0503 ; -------------------------------------------------------------------------------------- 0503 0000 0001 | | .DBGLEN 0x0000,0x0001 0505 024b | K | .DBGLNO 0x024b 0506 ; -------------------------------------------------------------------------------------- 0506 ; Debug chain 0506 ; -------------------------------------------------------------------------------------- 0506 0000 0001 | | .DBGLEN 0x0000,0x0001 0508 0253 | S | .DBGLNO 0x0253 0509 ; -------------------------------------------------------------------------------------- 0509 ; Debug chain 0509 ; -------------------------------------------------------------------------------------- 0509 0000 0003 | | .DBGLEN 0x0000,0x0003 050b 0263 026a | c j| .DBGLNO 0x0263,0x026a,0x026c 050e ; -------------------------------------------------------------------------------------- 050e ; Debug chain 050e ; -------------------------------------------------------------------------------------- 050e 0000 0004 | | .DBGLEN 0x0000,0x0004 0510 0273 0275 | s u| .DBGLNO 0x0273,0x0275,0x027b,0x0285 0514 ; -------------------------------------------------------------------------------------- 0514 ; Debug chain 0514 ; -------------------------------------------------------------------------------------- 0514 0000 0002 | | .DBGLEN 0x0000,0x0002 0516 028b 0291 | | .DBGLNO 0x028b,0x0291 0518 ; -------------------------------------------------------------------------------------- 0518 ; Debug chain 0518 ; -------------------------------------------------------------------------------------- 0518 0000 0002 | | .DBGLEN 0x0000,0x0002 051a 029b 02a1 | | .DBGLNO 0x029b,0x02a1 051c ; -------------------------------------------------------------------------------------- 051c ; Debug chain 051c ; -------------------------------------------------------------------------------------- 051c 0001 0008 | | .DBGLEN 0x0001,0x0008 051e 02ab 02ad | | .DBGLNO 0x02ab,0x02ad,0x02b3,0x02b5,0x02b7,0x02bd,0x02bf,0x02c1,0x02c6 0527 ; -------------------------------------------------------------------------------------- 0527 ; Debug chain 0527 ; -------------------------------------------------------------------------------------- 0527 0000 0001 | | .DBGLEN 0x0000,0x0001 0529 02d5 | | .DBGLNO 0x02d5 052a ; -------------------------------------------------------------------------------------- 052a ; Debug chain 052a ; -------------------------------------------------------------------------------------- 052a 0001 0005 | | .DBGLEN 0x0001,0x0005 052c 02db 02df | | .DBGLNO 0x02db,0x02df,0x02e4,0x02ea,0x02ee,0x02f3 0532 ; -------------------------------------------------------------------------------------- 0532 ; Debug chain 0532 ; -------------------------------------------------------------------------------------- 0532 0000 0002 | | .DBGLEN 0x0000,0x0002 0534 02fb 02ff | | .DBGLNO 0x02fb,0x02ff 0536 ; -------------------------------------------------------------------------------------- 0536 ; Debug chain 0536 ; -------------------------------------------------------------------------------------- 0536 0000 0001 | | .DBGLEN 0x0000,0x0001 0538 030b | | .DBGLNO 0x030b 0539 ; -------------------------------------------------------------------------------------- 0539 ; Debug chain 0539 ; -------------------------------------------------------------------------------------- 0539 0000 0001 | | .DBGLEN 0x0000,0x0001 053b 031b | | .DBGLNO 0x031b 053c ; -------------------------------------------------------------------------------------- 053c ; Debug chain 053c ; -------------------------------------------------------------------------------------- 053c 0000 0005 | | .DBGLEN 0x0000,0x0005 053e 0333 033d | 3 =| .DBGLNO 0x0333,0x033d,0x0340,0x034a,0x034d 0543 0000 0000 | | .BLANK 0000[0xbd]