|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0448 | H | .CONST 0x0448 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0041 | A | .CONST 0x0041 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b e003 | | Load 0x0,0x3 000c e004 | | Load 0x0,0x4 000d 00e1 | | Load_Encached Boolean_Cache 000e 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 0010 4803 |H | Short_Literal 0x3 0011 032e | . | Declare_Type Record,Defined,Visible 0012 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0014 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0016 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0018 00bf | | Action Accept_Activation 0019 0092 040e | | Action Push_String_Extended,0x40e ; "There are no history entries for the task or tasks" 001b 0092 040f | | Action Push_String_Extended,0x40f ; "There are no history entries for the age specified" 001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001e 00c7 | | Action Elaborate_Subprogram 001f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0020 00c7 | | Action Elaborate_Subprogram 0021 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 0023 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call 0025 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 0027 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 0029 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 002b 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 002d 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 002f 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0031 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0033 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0035 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0037 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 0039 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 003b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003c 00c7 | | Action Elaborate_Subprogram 003d 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call 003f 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 0041 BODY_0008: 0041 00bc | | Action Signal_Activated 0042 00bb | | Action Signal_Completion 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c 0afe | | Execute_Immediate Plus,-0x2 004d 4be8 |K | Short_Literal 0x3e8 004e 026e | n | Execute Discrete,Modulo 004f 0a01 | | Execute_Immediate Plus,0x1 0050 00d8 | | Load_Top At_Offset_0 0051 e004 | | Load 0x0,0x4 0052 0260 | ` | Execute Discrete,In_Type 0053 7001 |p | Jump_Nonzero 0x55 0054 0801 | | Execute_Immediate Raise,0x1 0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 4be8 |K | Short_Literal 0x3e8 005d 026e | n | Execute Discrete,Modulo 005e 0a01 | | Execute_Immediate Plus,0x1 005f 00d8 | | Load_Top At_Offset_0 0060 e004 | | Load 0x0,0x4 0061 0260 | ` | Execute Discrete,In_Type 0062 7001 |p | Jump_Nonzero 0x64 0063 0801 | | Execute_Immediate Raise,0x1 0064 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0072 | r | .CONST 0x0072 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b e004 | | Load 0x0,0x4 006c 0007 | | Action Break_Optional 006d 00e3 | | Load_Encached Natural_Cache 006e e5fa | | Load 0x2,-0x6 006f 01db | | Execute Vector,Length 0070 00e3 | | Load_Encached Natural_Cache 0071 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0072 BODY_0068: 0072 4800 |H | Short_Literal 0x0 0073 a5fb | | Store_Unchecked 0x2,-0x5 0074 e5f9 | | Load 0x2,-0x7 0075 00e3 | | Load_Encached Natural_Cache 0076 e004 | | Load 0x0,0x4 0077 e5fe | | Load 0x2,-0x2 0078 e404 | | Load 0x2,0x4 0079 e5fd | | Load 0x2,-0x3 007a e5ff | | Load 0x2,-0x1 007b 8005 | | Call 0x0,0x5 007c e5fc | | Load 0x2,-0x4 007d 821d | | Call 0x1,0x1d 007e c402 | | Store 0x2,0x2 007f 005b | [ | Store_Top Discrete,At_Offset_3 0080 c5f9 | | Store 0x2,-0x7 0081 4802 |H | Short_Literal 0x2 0082 e5f9 | | Load 0x2,-0x7 0083 e006 | | Load 0x0,0x6 0084 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0085 6801 |h | Jump_Zero 0x87 0086 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0087 00da | | Load_Top At_Offset_2 0088 7006 |p | Jump_Nonzero 0x8f 0089 e5f9 | | Load 0x2,-0x7 008a e212 | | Load 0x1,0x12 008b e006 | | Load 0x0,0x6 008c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008d c5f9 | | Store 0x2,-0x7 008e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008f e5fe | | Load 0x2,-0x2 0090 680a |h | Jump_Zero 0x9b 0091 e5fa | | Load 0x2,-0x6 0092 00da | | Load_Top At_Offset_2 0093 e5fc | | Load 0x2,-0x4 0094 e402 | | Load 0x2,0x2 0095 e5ff | | Load 0x2,-0x1 0096 8005 | | Call 0x0,0x5 0097 821e | | Call 0x1,0x1e 0098 005b | [ | Store_Top Discrete,At_Offset_3 0099 00d1 | | Pop_Control Pop_Count_1 009a 7809 |x | Jump 0xa4 009b e5fa | | Load 0x2,-0x6 009c 00da | | Load_Top At_Offset_2 009d e5fc | | Load 0x2,-0x4 009e e402 | | Load 0x2,0x2 009f e5ff | | Load 0x2,-0x1 00a0 8005 | | Call 0x0,0x5 00a1 821f | | Call 0x1,0x1f 00a2 005b | [ | Store_Top Discrete,At_Offset_3 00a3 00d1 | | Pop_Control Pop_Count_1 00a4 00d9 | | Load_Top At_Offset_1 00a5 a5fb | | Store_Unchecked 0x2,-0x5 00a6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a7 0000 | | .XXX[0x1] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 8007 | | Call 0x0,0x7 00ad 7008 |p | Jump_Nonzero 0xb6 00ae 00da | | Load_Top At_Offset_2 00af e5fd | | Load 0x2,-0x3 00b0 e5fe | | Load 0x2,-0x2 00b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b2 01d5 | | Execute Vector,Field_Reference 00b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b4 027f | | Execute Discrete,Equal 00b5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b6 4801 |H | Short_Literal 0x1 00b7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c3 | | .CONST 0x00c3 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0006 | | .CONST 0x0006 ; Number of locals 00bb INIT_00b8: 00bb 00db | | Load_Top At_Offset_3 00bc e004 | | Load 0x0,0x4 00bd 03f1 | | Declare_Variable Discrete,With_Value 00be 00e1 | | Load_Encached Boolean_Cache 00bf 03e9 | | Declare_Variable Discrete,Duplicate 00c0 e008 | | Load 0x0,0x8 00c1 0322 | " | Declare_Variable Record 00c2 e009 | | Load 0x0,0x9 00c3 BODY_00b8: 00c3 00cf | | Action Mark_Auxiliary 00c4 e402 | | Load 0x2,0x2 00c5 e5fd | | Load 0x2,-0x3 00c6 027f | | Execute Discrete,Equal 00c7 6803 |h | Jump_Zero 0xcb 00c8 4800 |H | Short_Literal 0x0 00c9 a5f7 | | Store_Unchecked 0x2,-0x9 00ca 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00cb e402 | | Load 0x2,0x2 00cc 820e | | Call 0x1,0xe 00cd a402 | | Store_Unchecked 0x2,0x2 00ce e402 | | Load 0x2,0x2 00cf e5ff | | Load 0x2,-0x1 00d0 e5fc | | Load 0x2,-0x4 00d1 8213 | | Call 0x1,0x13 00d2 6844 |hD | Jump_Zero 0x117 00d3 00e1 | | Load_Encached Boolean_Cache 00d4 00e1 | | Load_Encached Boolean_Cache 00d5 e009 | | Load 0x0,0x9 00d6 e405 | | Load 0x2,0x5 00d7 e402 | | Load 0x2,0x2 00d8 e5ff | | Load 0x2,-0x1 00d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00da 01d5 | | Execute Vector,Field_Reference 00db 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00dc 800a | | Call 0x0,0xa 00dd 800b | | Call 0x0,0xb 00de 00d1 | | Pop_Control Pop_Count_1 00df c406 | | Store 0x2,0x6 00e0 c403 | | Store 0x2,0x3 00e1 c404 | | Store 0x2,0x4 00e2 00d9 | | Load_Top At_Offset_1 00e3 e5fa | | Load 0x2,-0x6 00e4 027e | ~ | Execute Discrete,Not_Equal 00e5 701c |p | Jump_Nonzero 0x102 00e6 00da | | Load_Top At_Offset_2 00e7 e5fb | | Load 0x2,-0x5 00e8 017e | ~ | Execute Record,Not_Equal 00e9 7018 |p | Jump_Nonzero 0x102 00ea e402 | | Load 0x2,0x2 00eb e5ff | | Load 0x2,-0x1 00ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ed 01d5 | | Execute Vector,Field_Reference 00ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ef e5f8 | | Load 0x2,-0x8 00f0 027f | | Execute Discrete,Equal 00f1 6810 |h | Jump_Zero 0x102 00f2 e402 | | Load 0x2,0x2 00f3 e5ff | | Load 0x2,-0x1 00f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f5 01d5 | | Execute Vector,Field_Reference 00f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f7 0f05 | | Execute_Immediate Equal,0x5 00f8 7009 |p | Jump_Nonzero 0x102 00f9 e402 | | Load 0x2,0x2 00fa e5ff | | Load 0x2,-0x1 00fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00fc 01d5 | | Execute Vector,Field_Reference 00fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00fe e5f9 | | Load 0x2,-0x7 00ff 8005 | | Call 0x0,0x5 0100 027e | ~ | Execute Discrete,Not_Equal 0101 6815 |h | Jump_Zero 0x117 0102 00da | | Load_Top At_Offset_2 0103 e5fb | | Load 0x2,-0x5 0104 017d | } | Execute Record,Structure_Write 0105 00d9 | | Load_Top At_Offset_1 0106 a5fa | | Store_Unchecked 0x2,-0x6 0107 e402 | | Load 0x2,0x2 0108 e5ff | | Load 0x2,-0x1 0109 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 010a 01d5 | | Execute Vector,Field_Reference 010b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 010c 800c | | Call 0x0,0xc 010d a5f9 | | Store_Unchecked 0x2,-0x7 010e e402 | | Load 0x2,0x2 010f e5ff | | Load 0x2,-0x1 0110 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0111 01d5 | | Execute Vector,Field_Reference 0112 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0113 a5f8 | | Store_Unchecked 0x2,-0x8 0114 e402 | | Load 0x2,0x2 0115 a5f7 | | Store_Unchecked 0x2,-0x9 0116 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0117 00c9 | | Action Pop_Auxiliary_Loop 0118 7fab | | Jump 0xc4 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012b | + | .CONST 0x012b ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0006 | | .CONST 0x0006 ; Number of locals 0123 INIT_0120: 0123 00db | | Load_Top At_Offset_3 0124 e004 | | Load 0x0,0x4 0125 03f1 | | Declare_Variable Discrete,With_Value 0126 00e1 | | Load_Encached Boolean_Cache 0127 03e9 | | Declare_Variable Discrete,Duplicate 0128 e008 | | Load 0x0,0x8 0129 0322 | " | Declare_Variable Record 012a e009 | | Load 0x0,0x9 012b BODY_0120: 012b 00cf | | Action Mark_Auxiliary 012c e402 | | Load 0x2,0x2 012d e5fd | | Load 0x2,-0x3 012e 027f | | Execute Discrete,Equal 012f 6803 |h | Jump_Zero 0x133 0130 4800 |H | Short_Literal 0x0 0131 a5f7 | | Store_Unchecked 0x2,-0x9 0132 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0133 e402 | | Load 0x2,0x2 0134 820f | | Call 0x1,0xf 0135 a402 | | Store_Unchecked 0x2,0x2 0136 e402 | | Load 0x2,0x2 0137 e5ff | | Load 0x2,-0x1 0138 e5fc | | Load 0x2,-0x4 0139 8213 | | Call 0x1,0x13 013a 6844 |hD | Jump_Zero 0x17f 013b 00e1 | | Load_Encached Boolean_Cache 013c 00e1 | | Load_Encached Boolean_Cache 013d e009 | | Load 0x0,0x9 013e e405 | | Load 0x2,0x5 013f e402 | | Load 0x2,0x2 0140 e5ff | | Load 0x2,-0x1 0141 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0142 01d5 | | Execute Vector,Field_Reference 0143 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0144 800a | | Call 0x0,0xa 0145 800b | | Call 0x0,0xb 0146 00d1 | | Pop_Control Pop_Count_1 0147 c406 | | Store 0x2,0x6 0148 c403 | | Store 0x2,0x3 0149 c404 | | Store 0x2,0x4 014a 00d9 | | Load_Top At_Offset_1 014b e5fa | | Load 0x2,-0x6 014c 027e | ~ | Execute Discrete,Not_Equal 014d 701c |p | Jump_Nonzero 0x16a 014e 00da | | Load_Top At_Offset_2 014f e5fb | | Load 0x2,-0x5 0150 017e | ~ | Execute Record,Not_Equal 0151 7018 |p | Jump_Nonzero 0x16a 0152 e402 | | Load 0x2,0x2 0153 e5ff | | Load 0x2,-0x1 0154 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0155 01d5 | | Execute Vector,Field_Reference 0156 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0157 e5f8 | | Load 0x2,-0x8 0158 027f | | Execute Discrete,Equal 0159 6810 |h | Jump_Zero 0x16a 015a e402 | | Load 0x2,0x2 015b e5ff | | Load 0x2,-0x1 015c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015d 01d5 | | Execute Vector,Field_Reference 015e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015f 0f05 | | Execute_Immediate Equal,0x5 0160 7009 |p | Jump_Nonzero 0x16a 0161 e402 | | Load 0x2,0x2 0162 e5ff | | Load 0x2,-0x1 0163 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0164 01d5 | | Execute Vector,Field_Reference 0165 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0166 e5f9 | | Load 0x2,-0x7 0167 8005 | | Call 0x0,0x5 0168 027e | ~ | Execute Discrete,Not_Equal 0169 6815 |h | Jump_Zero 0x17f 016a 00da | | Load_Top At_Offset_2 016b e5fb | | Load 0x2,-0x5 016c 017d | } | Execute Record,Structure_Write 016d 00d9 | | Load_Top At_Offset_1 016e a5fa | | Store_Unchecked 0x2,-0x6 016f e402 | | Load 0x2,0x2 0170 e5ff | | Load 0x2,-0x1 0171 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0172 01d5 | | Execute Vector,Field_Reference 0173 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0174 800c | | Call 0x0,0xc 0175 a5f9 | | Store_Unchecked 0x2,-0x7 0176 e402 | | Load 0x2,0x2 0177 e5ff | | Load 0x2,-0x1 0178 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0179 01d5 | | Execute Vector,Field_Reference 017a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017b a5f8 | | Store_Unchecked 0x2,-0x8 017c e402 | | Load 0x2,0x2 017d a5f7 | | Store_Unchecked 0x2,-0x9 017e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 017f 00c9 | | Action Pop_Auxiliary_Loop 0180 7fab | | Jump 0x12c 0181 0000 0000 | | .BLANK 0000[0x7] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018d | | .CONST 0x018d ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e004 | | Load 0x0,0x4 018c 0007 | | Action Break_Optional 018d BODY_0188: 018d 00db | | Load_Top At_Offset_3 018e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018f 820f | | Call 0x1,0xf 0190 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0191 00d8 | | Load_Top At_Offset_0 0192 a5fe | | Store_Unchecked 0x2,-0x2 0193 00d8 | | Load_Top At_Offset_0 0194 e5ff | | Load 0x2,-0x1 0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0196 027c | | | Execute Discrete,Less 0197 6803 |h | Jump_Zero 0x19b 0198 4801 |H | Short_Literal 0x1 0199 e5ff | | Load 0x2,-0x1 019a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 019b 00d8 | | Load_Top At_Offset_0 019c e5ff | | Load 0x2,-0x1 019d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 019e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a5 6804 |h | Jump_Zero 0x1aa 01a6 00da | | Load_Top At_Offset_2 01a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a8 820f | | Call 0x1,0xf 01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01aa 00da | | Load_Top At_Offset_2 01ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ac 7002 |p | Jump_Nonzero 0x1af 01ad 4800 |H | Short_Literal 0x0 01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01af 4801 |H | Short_Literal 0x1 01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01cb | | .CONST 0x01cb ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0003 | | .CONST 0x0003 ; Number of locals 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 8218 | | Call 0x1,0x18 01c5 e004 | | Load 0x0,0x4 01c6 03f1 | | Declare_Variable Discrete,With_Value 01c7 00db | | Load_Top At_Offset_3 01c8 8217 | | Call 0x1,0x17 01c9 e004 | | Load 0x0,0x4 01ca 03f1 | | Declare_Variable Discrete,With_Value 01cb BODY_01c0: 01cb 00d9 | | Load_Top At_Offset_1 01cc 7002 |p | Jump_Nonzero 0x1cf 01cd 4800 |H | Short_Literal 0x0 01ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cf 00cf | | Action Mark_Auxiliary 01d0 00da | | Load_Top At_Offset_2 01d1 e5ff | | Load 0x2,-0x1 01d2 e5fe | | Load 0x2,-0x2 01d3 8213 | | Call 0x1,0x13 01d4 6802 |h | Jump_Zero 0x1d7 01d5 00da | | Load_Top At_Offset_2 01d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d7 00da | | Load_Top At_Offset_2 01d8 00da | | Load_Top At_Offset_2 01d9 027f | | Execute Discrete,Equal 01da 6802 |h | Jump_Zero 0x1dd 01db 4800 |H | Short_Literal 0x0 01dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01dd 00da | | Load_Top At_Offset_2 01de 820e | | Call 0x1,0xe 01df 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01e0 00c9 | | Action Pop_Auxiliary_Loop 01e1 7fee | | Jump 0x1d0 01e2 0000 0000 | | .BLANK 0000[0x6] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f3 | | .CONST 0x01f3 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 8217 | | Call 0x1,0x17 01ed e004 | | Load 0x0,0x4 01ee 03f1 | | Declare_Variable Discrete,With_Value 01ef 00db | | Load_Top At_Offset_3 01f0 8218 | | Call 0x1,0x18 01f1 e004 | | Load 0x0,0x4 01f2 03f1 | | Declare_Variable Discrete,With_Value 01f3 BODY_01e8: 01f3 00d9 | | Load_Top At_Offset_1 01f4 7002 |p | Jump_Nonzero 0x1f7 01f5 4800 |H | Short_Literal 0x0 01f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f7 00cf | | Action Mark_Auxiliary 01f8 00da | | Load_Top At_Offset_2 01f9 e5ff | | Load 0x2,-0x1 01fa e5fe | | Load 0x2,-0x2 01fb 8213 | | Call 0x1,0x13 01fc 6802 |h | Jump_Zero 0x1ff 01fd 00da | | Load_Top At_Offset_2 01fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ff 00da | | Load_Top At_Offset_2 0200 00da | | Load_Top At_Offset_2 0201 027f | | Execute Discrete,Equal 0202 6802 |h | Jump_Zero 0x205 0203 4800 |H | Short_Literal 0x0 0204 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0205 00da | | Load_Top At_Offset_2 0206 820f | | Call 0x1,0xf 0207 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0208 00c9 | | Action Pop_Auxiliary_Loop 0209 7fee | | Jump 0x1f8 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 022a | * | .CONST 0x022a ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 000a | | .CONST 0x000a ; Number of locals 0213 INIT_0210: 0213 e004 | | Load 0x0,0x4 0214 0007 | | Action Break_Optional 0215 00d8 | | Load_Top At_Offset_0 0216 0007 | | Action Break_Optional 0217 e5fe | | Load 0x2,-0x2 0218 e5ff | | Load 0x2,-0x1 0219 821a | | Call 0x1,0x1a 021a e004 | | Load 0x0,0x4 021b 03f1 | | Declare_Variable Discrete,With_Value 021c 00e3 | | Load_Encached Natural_Cache 021d 00e3 | | Load_Encached Natural_Cache 021e e008 | | Load 0x0,0x8 021f 0322 | " | Declare_Variable Record 0220 e00d | | Load 0x0,0xd 0221 00d9 | | Load_Top At_Offset_1 0222 017d | } | Execute Record,Structure_Write 0223 e009 | | Load 0x0,0x9 0224 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0225 e00e | | Load 0x0,0xe 0226 0007 | | Action Break_Optional 0227 e00f | | Load 0x0,0xf 0228 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0229 0604 | | Execute_Immediate Set_Value_Unchecked,0x4 022a BODY_0210: 022a e5fe | | Load 0x2,-0x2 022b e5ff | | Load 0x2,-0x1 022c 8219 | | Call 0x1,0x19 022d a402 | | Store_Unchecked 0x2,0x2 022e e402 | | Load 0x2,0x2 022f 7006 |p | Jump_Nonzero 0x236 0230 e5f8 | | Load 0x2,-0x8 0231 e211 | | Load 0x1,0x11 0232 e006 | | Load 0x0,0x6 0233 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0234 c5f8 | | Store 0x2,-0x8 0235 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0236 4800 |H | Short_Literal 0x0 0237 a5fa | | Store_Unchecked 0x2,-0x6 0238 4800 |H | Short_Literal 0x0 0239 a5f9 | | Store_Unchecked 0x2,-0x7 023a e402 | | Load 0x2,0x2 023b a403 | | Store_Unchecked 0x2,0x3 023c 00cf | | Action Mark_Auxiliary 023d e5fd | | Load 0x2,-0x3 023e 0aff | | Execute_Immediate Plus,-0x1 023f 00d8 | | Load_Top At_Offset_0 0240 00e2 | | Load_Encached Integer_Cache 0241 0260 | ` | Execute Discrete,In_Type 0242 7001 |p | Jump_Nonzero 0x244 0243 0801 | | Execute_Immediate Raise,0x1 0244 4801 |H | Short_Literal 0x1 0245 0263 | c | Execute Discrete,Above_Bound 0246 7033 |p3 | Jump_Nonzero 0x27a 0247 e004 | | Load 0x0,0x4 0248 e40a | | Load 0x2,0xa 0249 e409 | | Load 0x2,0x9 024a e408 | | Load 0x2,0x8 024b e407 | | Load 0x2,0x7 024c e5fe | | Load 0x2,-0x2 024d e404 | | Load 0x2,0x4 024e e403 | | Load 0x2,0x3 024f e5ff | | Load 0x2,-0x1 0250 8214 | | Call 0x1,0x14 0251 00d1 | | Pop_Control Pop_Count_1 0252 c408 | | Store 0x2,0x8 0253 c409 | | Store 0x2,0x9 0254 c40a | | Store 0x2,0xa 0255 c403 | | Store 0x2,0x3 0256 e403 | | Load 0x2,0x3 0257 7020 |p | Jump_Nonzero 0x278 0258 e5fb | | Load 0x2,-0x5 0259 6801 |h | Jump_Zero 0x25b 025a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 025b e5fd | | Load 0x2,-0x3 025c e5fc | | Load 0x2,-0x4 025d 027d | } | Execute Discrete,Greater 025e 6806 |h | Jump_Zero 0x265 025f e5fd | | Load 0x2,-0x3 0260 e5fc | | Load 0x2,-0x4 0261 0272 | r | Execute Discrete,Minus 0262 0a01 | | Execute_Immediate Plus,0x1 0263 c405 | | Store 0x2,0x5 0264 7802 |x | Jump 0x267 0265 4800 |H | Short_Literal 0x0 0266 a405 | | Store_Unchecked 0x2,0x5 0267 00d8 | | Load_Top At_Offset_0 0268 e405 | | Load 0x2,0x5 0269 027c | | | Execute Discrete,Less 026a 6801 |h | Jump_Zero 0x26c 026b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 026c e5fd | | Load 0x2,-0x3 026d 00d9 | | Load_Top At_Offset_1 026e 0272 | r | Execute Discrete,Minus 026f 0a01 | | Execute_Immediate Plus,0x1 0270 c406 | | Store 0x2,0x6 0271 e5fc | | Load 0x2,-0x4 0272 e406 | | Load 0x2,0x6 0273 0272 | r | Execute Discrete,Minus 0274 c5f9 | | Store 0x2,-0x7 0275 e404 | | Load 0x2,0x4 0276 a5fa | | Store_Unchecked 0x2,-0x6 0277 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0278 00c8 | | Action Pop_Auxiliary_Range 0279 3fcd |? | Loop_Increasing 0x247 027a 00ce | | Action Pop_Auxiliary 027b e403 | | Load 0x2,0x3 027c a5fa | | Store_Unchecked 0x2,-0x6 027d e5fc | | Load 0x2,-0x4 027e a5f9 | | Store_Unchecked 0x2,-0x7 027f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 029a | | .CONST 0x029a ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 000a | | .CONST 0x000a ; Number of locals 0283 INIT_0280: 0283 e004 | | Load 0x0,0x4 0284 0007 | | Action Break_Optional 0285 00d8 | | Load_Top At_Offset_0 0286 0007 | | Action Break_Optional 0287 e5fe | | Load 0x2,-0x2 0288 e5ff | | Load 0x2,-0x1 0289 8219 | | Call 0x1,0x19 028a e004 | | Load 0x0,0x4 028b 03f1 | | Declare_Variable Discrete,With_Value 028c 00e3 | | Load_Encached Natural_Cache 028d 00e3 | | Load_Encached Natural_Cache 028e e008 | | Load 0x0,0x8 028f 0322 | " | Declare_Variable Record 0290 e00d | | Load 0x0,0xd 0291 00d9 | | Load_Top At_Offset_1 0292 017d | } | Execute Record,Structure_Write 0293 e009 | | Load 0x0,0x9 0294 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0295 e00e | | Load 0x0,0xe 0296 0007 | | Action Break_Optional 0297 e00f | | Load 0x0,0xf 0298 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0299 0604 | | Execute_Immediate Set_Value_Unchecked,0x4 029a BODY_0280: 029a e5fe | | Load 0x2,-0x2 029b e5ff | | Load 0x2,-0x1 029c 821a | | Call 0x1,0x1a 029d a402 | | Store_Unchecked 0x2,0x2 029e e402 | | Load 0x2,0x2 029f 7006 |p | Jump_Nonzero 0x2a6 02a0 e5f8 | | Load 0x2,-0x8 02a1 e211 | | Load 0x1,0x11 02a2 e006 | | Load 0x0,0x6 02a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02a4 c5f8 | | Store 0x2,-0x8 02a5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02a6 4800 |H | Short_Literal 0x0 02a7 a5fa | | Store_Unchecked 0x2,-0x6 02a8 4800 |H | Short_Literal 0x0 02a9 a5f9 | | Store_Unchecked 0x2,-0x7 02aa e402 | | Load 0x2,0x2 02ab a403 | | Store_Unchecked 0x2,0x3 02ac 00cf | | Action Mark_Auxiliary 02ad e5fd | | Load 0x2,-0x3 02ae 0aff | | Execute_Immediate Plus,-0x1 02af 00d8 | | Load_Top At_Offset_0 02b0 00e2 | | Load_Encached Integer_Cache 02b1 0260 | ` | Execute Discrete,In_Type 02b2 7001 |p | Jump_Nonzero 0x2b4 02b3 0801 | | Execute_Immediate Raise,0x1 02b4 4801 |H | Short_Literal 0x1 02b5 0263 | c | Execute Discrete,Above_Bound 02b6 7039 |p9 | Jump_Nonzero 0x2f0 02b7 e004 | | Load 0x0,0x4 02b8 e40a | | Load 0x2,0xa 02b9 e409 | | Load 0x2,0x9 02ba e408 | | Load 0x2,0x8 02bb e407 | | Load 0x2,0x7 02bc e5fe | | Load 0x2,-0x2 02bd e404 | | Load 0x2,0x4 02be e403 | | Load 0x2,0x3 02bf e5ff | | Load 0x2,-0x1 02c0 8215 | | Call 0x1,0x15 02c1 00d1 | | Pop_Control Pop_Count_1 02c2 c408 | | Store 0x2,0x8 02c3 c409 | | Store 0x2,0x9 02c4 c40a | | Store 0x2,0xa 02c5 c403 | | Store 0x2,0x3 02c6 e403 | | Load 0x2,0x3 02c7 7026 |p& | Jump_Nonzero 0x2ee 02c8 e5fb | | Load 0x2,-0x5 02c9 7001 |p | Jump_Nonzero 0x2cb 02ca 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02cb e5fd | | Load 0x2,-0x3 02cc e5fc | | Load 0x2,-0x4 02cd 027d | } | Execute Discrete,Greater 02ce 6806 |h | Jump_Zero 0x2d5 02cf e5fd | | Load 0x2,-0x3 02d0 e5fc | | Load 0x2,-0x4 02d1 0272 | r | Execute Discrete,Minus 02d2 0a01 | | Execute_Immediate Plus,0x1 02d3 c405 | | Store 0x2,0x5 02d4 7802 |x | Jump 0x2d7 02d5 4800 |H | Short_Literal 0x0 02d6 a405 | | Store_Unchecked 0x2,0x5 02d7 00d8 | | Load_Top At_Offset_0 02d8 e405 | | Load 0x2,0x5 02d9 027c | | | Execute Discrete,Less 02da 6801 |h | Jump_Zero 0x2dc 02db 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02dc e5fc | | Load 0x2,-0x4 02dd 00d9 | | Load_Top At_Offset_1 02de 027d | } | Execute Discrete,Greater 02df 6805 |h | Jump_Zero 0x2e5 02e0 e5fc | | Load 0x2,-0x4 02e1 00d9 | | Load_Top At_Offset_1 02e2 0272 | r | Execute Discrete,Minus 02e3 c406 | | Store 0x2,0x6 02e4 7802 |x | Jump 0x2e7 02e5 4800 |H | Short_Literal 0x0 02e6 a406 | | Store_Unchecked 0x2,0x6 02e7 e5fc | | Load 0x2,-0x4 02e8 e406 | | Load 0x2,0x6 02e9 0272 | r | Execute Discrete,Minus 02ea c5f9 | | Store 0x2,-0x7 02eb e402 | | Load 0x2,0x2 02ec a5fa | | Store_Unchecked 0x2,-0x6 02ed 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02ee 00c8 | | Action Pop_Auxiliary_Range 02ef 3fc7 |? | Loop_Increasing 0x2b7 02f0 00ce | | Action Pop_Auxiliary 02f1 e403 | | Load 0x2,0x3 02f2 a5fa | | Store_Unchecked 0x2,-0x6 02f3 e5fc | | Load 0x2,-0x4 02f4 a5f9 | | Store_Unchecked 0x2,-0x7 02f5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02f6 0000 0000 | | .XXX[0x2] 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 e5fd | | Load 0x2,-0x3 02fc 0c00 | | Execute_Immediate Greater_Equal,0x0 02fd 680d |h | Jump_Zero 0x30b 02fe e5f8 | | Load 0x2,-0x8 02ff 00e3 | | Load_Encached Natural_Cache 0300 e004 | | Load 0x0,0x4 0301 e5fb | | Load 0x2,-0x5 0302 e5fc | | Load 0x2,-0x4 0303 e5fd | | Load 0x2,-0x3 0304 e5fe | | Load 0x2,-0x2 0305 e5ff | | Load 0x2,-0x1 0306 821b | | Call 0x1,0x1b 0307 c5fa | | Store 0x2,-0x6 0308 c5f9 | | Store 0x2,-0x7 0309 c5f8 | | Store 0x2,-0x8 030a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 030b e5f8 | | Load 0x2,-0x8 030c 00e3 | | Load_Encached Natural_Cache 030d e004 | | Load 0x0,0x4 030e e5fb | | Load 0x2,-0x5 030f e5fc | | Load 0x2,-0x4 0310 e5fd | | Load 0x2,-0x3 0311 0274 | t | Execute Discrete,Absolute_Value 0312 e5fe | | Load 0x2,-0x2 0313 e5ff | | Load 0x2,-0x1 0314 821c | | Call 0x1,0x1c 0315 c5fa | | Store 0x2,-0x6 0316 c5f9 | | Store 0x2,-0x7 0317 c5f8 | | Store 0x2,-0x8 0318 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0319 0000 0000 | | .BLANK 0000[0x7] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0344 | D | .CONST 0x0344 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0009 | | .CONST 0x0009 ; Number of locals 0323 INIT_0320: 0323 00db | | Load_Top At_Offset_3 0324 e004 | | Load 0x0,0x4 0325 03f1 | | Declare_Variable Discrete,With_Value 0326 e5fd | | Load 0x2,-0x3 0327 8217 | | Call 0x1,0x17 0328 e004 | | Load 0x0,0x4 0329 03f1 | | Declare_Variable Discrete,With_Value 032a 00e1 | | Load_Encached Boolean_Cache 032b 03e9 | | Declare_Variable Discrete,Duplicate 032c e008 | | Load 0x0,0x8 032d 0322 | " | Declare_Variable Record 032e e00d | | Load 0x0,0xd 032f 00d9 | | Load_Top At_Offset_1 0330 017d | } | Execute Record,Structure_Write 0331 e009 | | Load 0x0,0x9 0332 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0333 e5fe | | Load 0x2,-0x2 0334 e5fd | | Load 0x2,-0x3 0335 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0336 01d5 | | Execute Vector,Field_Reference 0337 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0338 e00f | | Load 0x0,0xf 0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033a 03f1 | | Declare_Variable Discrete,With_Value 033b e5fe | | Load 0x2,-0x2 033c e5fd | | Load 0x2,-0x3 033d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 033e 01d5 | | Execute Vector,Field_Reference 033f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0340 800c | | Call 0x0,0xc 0341 e010 | | Load 0x0,0x10 0342 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0343 03f1 | | Declare_Variable Discrete,With_Value 0344 BODY_0320: 0344 00e1 | | Load_Encached Boolean_Cache 0345 00e1 | | Load_Encached Boolean_Cache 0346 e009 | | Load 0x0,0x9 0347 e406 | | Load 0x2,0x6 0348 e5fe | | Load 0x2,-0x2 0349 e5fd | | Load 0x2,-0x3 034a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 034b 01d5 | | Execute Vector,Field_Reference 034c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 034d 800a | | Call 0x0,0xa 034e 800b | | Call 0x0,0xb 034f 00d1 | | Pop_Control Pop_Count_1 0350 c407 | | Store 0x2,0x7 0351 c404 | | Store 0x2,0x4 0352 c405 | | Store 0x2,0x5 0353 00cf | | Action Mark_Auxiliary 0354 e5fc | | Load 0x2,-0x4 0355 4801 |H | Short_Literal 0x1 0356 0263 | c | Execute Discrete,Above_Bound 0357 7021 |p! | Jump_Nonzero 0x379 0358 e402 | | Load 0x2,0x2 0359 e5fd | | Load 0x2,-0x3 035a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 035b 01d5 | | Execute Vector,Field_Reference 035c e5fb | | Load 0x2,-0x5 035d 01dd | | Execute Vector,First 035e 00da | | Load_Top At_Offset_2 035f 0273 | s | Execute Discrete,Plus 0360 0aff | | Execute_Immediate Plus,-0x1 0361 e5fb | | Load 0x2,-0x5 0362 01d6 | | Execute Vector,Field_Write 0363 e004 | | Load 0x0,0x4 0364 e408 | | Load 0x2,0x8 0365 e409 | | Load 0x2,0x9 0366 e407 | | Load 0x2,0x7 0367 e406 | | Load 0x2,0x6 0368 e5ff | | Load 0x2,-0x1 0369 e403 | | Load 0x2,0x3 036a e402 | | Load 0x2,0x2 036b e5fd | | Load 0x2,-0x3 036c 8214 | | Call 0x1,0x14 036d 00d1 | | Pop_Control Pop_Count_1 036e c407 | | Store 0x2,0x7 036f c409 | | Store 0x2,0x9 0370 c408 | | Store 0x2,0x8 0371 c402 | | Store 0x2,0x2 0372 e402 | | Load 0x2,0x2 0373 7003 |p | Jump_Nonzero 0x377 0374 00d8 | | Load_Top At_Offset_0 0375 a5fc | | Store_Unchecked 0x2,-0x4 0376 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0377 00c8 | | Action Pop_Auxiliary_Range 0378 3fdf |? | Loop_Increasing 0x358 0379 4504 |E | Exit_Suprogram New_Top_Offset 0x4 037a 0000 0000 | | .BLANK 0000[0x6] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 03a4 | | .CONST 0x03a4 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0009 | | .CONST 0x0009 ; Number of locals 0383 INIT_0380: 0383 00db | | Load_Top At_Offset_3 0384 e004 | | Load 0x0,0x4 0385 03f1 | | Declare_Variable Discrete,With_Value 0386 e5fd | | Load 0x2,-0x3 0387 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0388 e004 | | Load 0x0,0x4 0389 03f1 | | Declare_Variable Discrete,With_Value 038a 00e1 | | Load_Encached Boolean_Cache 038b 03e9 | | Declare_Variable Discrete,Duplicate 038c e008 | | Load 0x0,0x8 038d 0322 | " | Declare_Variable Record 038e e00d | | Load 0x0,0xd 038f 00d9 | | Load_Top At_Offset_1 0390 017d | } | Execute Record,Structure_Write 0391 e009 | | Load 0x0,0x9 0392 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0393 e5fe | | Load 0x2,-0x2 0394 e5fd | | Load 0x2,-0x3 0395 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0396 01d5 | | Execute Vector,Field_Reference 0397 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0398 800c | | Call 0x0,0xc 0399 e010 | | Load 0x0,0x10 039a 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 039b 03f1 | | Declare_Variable Discrete,With_Value 039c e5fe | | Load 0x2,-0x2 039d e5fd | | Load 0x2,-0x3 039e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 039f 01d5 | | Execute Vector,Field_Reference 03a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03a1 e00f | | Load 0x0,0xf 03a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a3 03f1 | | Declare_Variable Discrete,With_Value 03a4 BODY_0380: 03a4 00e1 | | Load_Encached Boolean_Cache 03a5 00e1 | | Load_Encached Boolean_Cache 03a6 e009 | | Load 0x0,0x9 03a7 e406 | | Load 0x2,0x6 03a8 e5fe | | Load 0x2,-0x2 03a9 e5fd | | Load 0x2,-0x3 03aa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03ab 01d5 | | Execute Vector,Field_Reference 03ac 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03ad 800a | | Call 0x0,0xa 03ae 800b | | Call 0x0,0xb 03af 00d1 | | Pop_Control Pop_Count_1 03b0 c407 | | Store 0x2,0x7 03b1 c404 | | Store 0x2,0x4 03b2 c405 | | Store 0x2,0x5 03b3 00cf | | Action Mark_Auxiliary 03b4 e5fc | | Load 0x2,-0x4 03b5 4801 |H | Short_Literal 0x1 03b6 0263 | c | Execute Discrete,Above_Bound 03b7 7021 |p! | Jump_Nonzero 0x3d9 03b8 e402 | | Load 0x2,0x2 03b9 e5fd | | Load 0x2,-0x3 03ba 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03bb 01d5 | | Execute Vector,Field_Reference 03bc e5fb | | Load 0x2,-0x5 03bd 01dd | | Execute Vector,First 03be 00da | | Load_Top At_Offset_2 03bf 0273 | s | Execute Discrete,Plus 03c0 0aff | | Execute_Immediate Plus,-0x1 03c1 e5fb | | Load 0x2,-0x5 03c2 01d6 | | Execute Vector,Field_Write 03c3 e004 | | Load 0x0,0x4 03c4 e409 | | Load 0x2,0x9 03c5 e408 | | Load 0x2,0x8 03c6 e407 | | Load 0x2,0x7 03c7 e406 | | Load 0x2,0x6 03c8 e5ff | | Load 0x2,-0x1 03c9 e403 | | Load 0x2,0x3 03ca e402 | | Load 0x2,0x2 03cb e5fd | | Load 0x2,-0x3 03cc 8215 | | Call 0x1,0x15 03cd 00d1 | | Pop_Control Pop_Count_1 03ce c407 | | Store 0x2,0x7 03cf c408 | | Store 0x2,0x8 03d0 c409 | | Store 0x2,0x9 03d1 c402 | | Store 0x2,0x2 03d2 e402 | | Load 0x2,0x2 03d3 7003 |p | Jump_Nonzero 0x3d7 03d4 00d8 | | Load_Top At_Offset_0 03d5 a5fc | | Store_Unchecked 0x2,-0x4 03d6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03d7 00c8 | | Action Pop_Auxiliary_Range 03d8 3fdf |? | Loop_Increasing 0x3b8 03d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03da 0000 0000 | | .BLANK 0000[0x6] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e5 | | .CONST 0x03e5 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0002 | | .CONST 0x0002 ; Number of locals 03e3 INIT_03e0: 03e3 e004 | | Load 0x0,0x4 03e4 0007 | | Action Break_Optional 03e5 BODY_03e0: 03e5 e004 | | Load 0x0,0x4 03e6 e5fe | | Load 0x2,-0x2 03e7 8216 | | Call 0x1,0x16 03e8 00d1 | | Pop_Control Pop_Count_1 03e9 0059 | Y | Store_Top Discrete,At_Offset_1 03ea 00db | | Load_Top At_Offset_3 03eb 00d9 | | Load_Top At_Offset_1 03ec e5fe | | Load 0x2,-0x2 03ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03ee 01d6 | | Execute Vector,Field_Write 03ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 4800 |H | Short_Literal 0x0 03f4 00db | | Load_Top At_Offset_3 03f5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03f6 4800 |H | Short_Literal 0x0 03f7 00db | | Load_Top At_Offset_3 03f8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03fa 0000 0000 | | .BLANK 0000[0x6] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 4601 |F | Jump_Case 0x2 0404 7801 |x | Jump 0x406 ; case 0x0 0405 7804 |x | Jump 0x40a ; case 0x1 0406 00da | | Load_Top At_Offset_2 0407 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0408 1c00 | | Execute_Immediate Run_Utility,0x0 0409 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 040a 00da | | Load_Top At_Offset_2 040b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 040c 1c01 | | Execute_Immediate Run_Utility,0x1 040d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 040e ; -------------------------------------------------------------------------------------- 040e ; STRING TABLE 040e ; -------------------------------------------------------------------------------------- 040e 0006 | | .STRTAB 0x0006->0x0411 ; "There are no history entries for the task or tasks" 040f 0036 | 6 | .STRTAB 0x0036->0x042a ; "There are no history entries for the age specified" 0410 0066 | f | .STREND 0x0066->0x0443 0411 5468 6572 |Ther| .STRTAB_STRINGS 0443 0000 0000 | | .BLANK 0000[0x5] 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug Table 0448 ; -------------------------------------------------------------------------------------- 0448 0004 0012 | | .DEBUG4 0x0004,0x0012,0x8ab4,0x0000,0x0001,0x0000 044e 0000 0000 | | .BLANK 0000[0x1b2]