|
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_06e8fd
└─⟦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 0438 | 8 | .CONST 0x0438 ; 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 03f3 | | Declare_Subprogram INIT_03f0,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 03fe | | Action Push_String_Extended,0x3fe ; "There are no history entries for the task or tasks" 001b 0092 03ff | | Action Push_String_Extended,0x3ff ; "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 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 0027 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0029 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 002b 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 002d 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 002f 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0031 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 0033 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0035 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 0037 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0039 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 003b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003c 00c7 | | Action Elaborate_Subprogram 003d 029d 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call 003f 029d 03e3 | | Declare_Subprogram INIT_03e0,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 683d |h= | Jump_Zero 0x110 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 7015 |p | Jump_Nonzero 0xfb 00e6 00da | | Load_Top At_Offset_2 00e7 e5fb | | Load 0x2,-0x5 00e8 017e | ~ | Execute Record,Not_Equal 00e9 7011 |p | Jump_Nonzero 0xfb 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 6809 |h | Jump_Zero 0xfb 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 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00f7 e5f9 | | Load 0x2,-0x7 00f8 8005 | | Call 0x0,0x5 00f9 027e | ~ | Execute Discrete,Not_Equal 00fa 6815 |h | Jump_Zero 0x110 00fb 00da | | Load_Top At_Offset_2 00fc e5fb | | Load 0x2,-0x5 00fd 017d | } | Execute Record,Structure_Write 00fe 00d9 | | Load_Top At_Offset_1 00ff a5fa | | Store_Unchecked 0x2,-0x6 0100 e402 | | Load 0x2,0x2 0101 e5ff | | Load 0x2,-0x1 0102 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0103 01d5 | | Execute Vector,Field_Reference 0104 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0105 800c | | Call 0x0,0xc 0106 a5f9 | | Store_Unchecked 0x2,-0x7 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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010c a5f8 | | Store_Unchecked 0x2,-0x8 010d e402 | | Load 0x2,0x2 010e a5f7 | | Store_Unchecked 0x2,-0x9 010f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0110 00c9 | | Action Pop_Auxiliary_Loop 0111 7fb2 | | Jump 0xc4 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0123 | # | .CONST 0x0123 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0006 | | .CONST 0x0006 ; Number of locals 011b INIT_0118: 011b 00db | | Load_Top At_Offset_3 011c e004 | | Load 0x0,0x4 011d 03f1 | | Declare_Variable Discrete,With_Value 011e 00e1 | | Load_Encached Boolean_Cache 011f 03e9 | | Declare_Variable Discrete,Duplicate 0120 e008 | | Load 0x0,0x8 0121 0322 | " | Declare_Variable Record 0122 e009 | | Load 0x0,0x9 0123 BODY_0118: 0123 00cf | | Action Mark_Auxiliary 0124 e402 | | Load 0x2,0x2 0125 e5fd | | Load 0x2,-0x3 0126 027f | | Execute Discrete,Equal 0127 6803 |h | Jump_Zero 0x12b 0128 4800 |H | Short_Literal 0x0 0129 a5f7 | | Store_Unchecked 0x2,-0x9 012a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 012b e402 | | Load 0x2,0x2 012c 820f | | Call 0x1,0xf 012d a402 | | Store_Unchecked 0x2,0x2 012e e402 | | Load 0x2,0x2 012f e5ff | | Load 0x2,-0x1 0130 e5fc | | Load 0x2,-0x4 0131 8213 | | Call 0x1,0x13 0132 683d |h= | Jump_Zero 0x170 0133 00e1 | | Load_Encached Boolean_Cache 0134 00e1 | | Load_Encached Boolean_Cache 0135 e009 | | Load 0x0,0x9 0136 e405 | | Load 0x2,0x5 0137 e402 | | Load 0x2,0x2 0138 e5ff | | Load 0x2,-0x1 0139 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 013a 01d5 | | Execute Vector,Field_Reference 013b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 013c 800a | | Call 0x0,0xa 013d 800b | | Call 0x0,0xb 013e 00d1 | | Pop_Control Pop_Count_1 013f c406 | | Store 0x2,0x6 0140 c403 | | Store 0x2,0x3 0141 c404 | | Store 0x2,0x4 0142 00d9 | | Load_Top At_Offset_1 0143 e5fa | | Load 0x2,-0x6 0144 027e | ~ | Execute Discrete,Not_Equal 0145 7015 |p | Jump_Nonzero 0x15b 0146 00da | | Load_Top At_Offset_2 0147 e5fb | | Load 0x2,-0x5 0148 017e | ~ | Execute Record,Not_Equal 0149 7011 |p | Jump_Nonzero 0x15b 014a e402 | | Load 0x2,0x2 014b e5ff | | Load 0x2,-0x1 014c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014d 01d5 | | Execute Vector,Field_Reference 014e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014f e5f8 | | Load 0x2,-0x8 0150 027f | | Execute Discrete,Equal 0151 6809 |h | Jump_Zero 0x15b 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 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0157 e5f9 | | Load 0x2,-0x7 0158 8005 | | Call 0x0,0x5 0159 027e | ~ | Execute Discrete,Not_Equal 015a 6815 |h | Jump_Zero 0x170 015b 00da | | Load_Top At_Offset_2 015c e5fb | | Load 0x2,-0x5 015d 017d | } | Execute Record,Structure_Write 015e 00d9 | | Load_Top At_Offset_1 015f a5fa | | Store_Unchecked 0x2,-0x6 0160 e402 | | Load 0x2,0x2 0161 e5ff | | Load 0x2,-0x1 0162 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0163 01d5 | | Execute Vector,Field_Reference 0164 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0165 800c | | Call 0x0,0xc 0166 a5f9 | | Store_Unchecked 0x2,-0x7 0167 e402 | | Load 0x2,0x2 0168 e5ff | | Load 0x2,-0x1 0169 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 016a 01d5 | | Execute Vector,Field_Reference 016b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016c a5f8 | | Store_Unchecked 0x2,-0x8 016d e402 | | Load 0x2,0x2 016e a5f7 | | Store_Unchecked 0x2,-0x9 016f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0170 00c9 | | Action Pop_Auxiliary_Loop 0171 7fb2 | | Jump 0x124 0172 0000 0000 | | .BLANK 0000[0x6] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017d | } | .CONST 0x017d ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b e004 | | Load 0x0,0x4 017c 0007 | | Action Break_Optional 017d BODY_0178: 017d 00db | | Load_Top At_Offset_3 017e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017f 820f | | Call 0x1,0xf 0180 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0181 00d8 | | Load_Top At_Offset_0 0182 a5fe | | Store_Unchecked 0x2,-0x2 0183 00d8 | | Load_Top At_Offset_0 0184 e5ff | | Load 0x2,-0x1 0185 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0186 027c | | | Execute Discrete,Less 0187 6803 |h | Jump_Zero 0x18b 0188 4801 |H | Short_Literal 0x1 0189 e5ff | | Load 0x2,-0x1 018a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 018b 00d8 | | Load_Top At_Offset_0 018c e5ff | | Load 0x2,-0x1 018d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0195 6804 |h | Jump_Zero 0x19a 0196 00da | | Load_Top At_Offset_2 0197 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0198 820f | | Call 0x1,0xf 0199 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019a 00da | | Load_Top At_Offset_2 019b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019c 7002 |p | Jump_Nonzero 0x19f 019d 4800 |H | Short_Literal 0x0 019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019f 4801 |H | Short_Literal 0x1 01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ae 0000 0000 | | .XXX[0x2] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bb | | .CONST 0x01bb ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0003 | | .CONST 0x0003 ; Number of locals 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 8218 | | Call 0x1,0x18 01b5 e004 | | Load 0x0,0x4 01b6 03f1 | | Declare_Variable Discrete,With_Value 01b7 00db | | Load_Top At_Offset_3 01b8 8217 | | Call 0x1,0x17 01b9 e004 | | Load 0x0,0x4 01ba 03f1 | | Declare_Variable Discrete,With_Value 01bb BODY_01b0: 01bb 00d9 | | Load_Top At_Offset_1 01bc 7002 |p | Jump_Nonzero 0x1bf 01bd 4800 |H | Short_Literal 0x0 01be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bf 00cf | | Action Mark_Auxiliary 01c0 00da | | Load_Top At_Offset_2 01c1 e5ff | | Load 0x2,-0x1 01c2 e5fe | | Load 0x2,-0x2 01c3 8213 | | Call 0x1,0x13 01c4 6802 |h | Jump_Zero 0x1c7 01c5 00da | | Load_Top At_Offset_2 01c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c7 00da | | Load_Top At_Offset_2 01c8 00da | | Load_Top At_Offset_2 01c9 027f | | Execute Discrete,Equal 01ca 6802 |h | Jump_Zero 0x1cd 01cb 4800 |H | Short_Literal 0x0 01cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cd 00da | | Load_Top At_Offset_2 01ce 820e | | Call 0x1,0xe 01cf 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01d0 00c9 | | Action Pop_Auxiliary_Loop 01d1 7fee | | Jump 0x1c0 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e3 | | .CONST 0x01e3 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 8217 | | Call 0x1,0x17 01dd e004 | | Load 0x0,0x4 01de 03f1 | | Declare_Variable Discrete,With_Value 01df 00db | | Load_Top At_Offset_3 01e0 8218 | | Call 0x1,0x18 01e1 e004 | | Load 0x0,0x4 01e2 03f1 | | Declare_Variable Discrete,With_Value 01e3 BODY_01d8: 01e3 00d9 | | Load_Top At_Offset_1 01e4 7002 |p | Jump_Nonzero 0x1e7 01e5 4800 |H | Short_Literal 0x0 01e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e7 00cf | | Action Mark_Auxiliary 01e8 00da | | Load_Top At_Offset_2 01e9 e5ff | | Load 0x2,-0x1 01ea e5fe | | Load 0x2,-0x2 01eb 8213 | | Call 0x1,0x13 01ec 6802 |h | Jump_Zero 0x1ef 01ed 00da | | Load_Top At_Offset_2 01ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ef 00da | | Load_Top At_Offset_2 01f0 00da | | Load_Top At_Offset_2 01f1 027f | | Execute Discrete,Equal 01f2 6802 |h | Jump_Zero 0x1f5 01f3 4800 |H | Short_Literal 0x0 01f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f5 00da | | Load_Top At_Offset_2 01f6 820f | | Call 0x1,0xf 01f7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01f8 00c9 | | Action Pop_Auxiliary_Loop 01f9 7fee | | Jump 0x1e8 01fa 0000 0000 | | .BLANK 0000[0x6] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 021a | | .CONST 0x021a ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 000a | | .CONST 0x000a ; Number of locals 0203 INIT_0200: 0203 e004 | | Load 0x0,0x4 0204 0007 | | Action Break_Optional 0205 00d8 | | Load_Top At_Offset_0 0206 0007 | | Action Break_Optional 0207 e5fe | | Load 0x2,-0x2 0208 e5ff | | Load 0x2,-0x1 0209 821a | | Call 0x1,0x1a 020a e004 | | Load 0x0,0x4 020b 03f1 | | Declare_Variable Discrete,With_Value 020c 00e3 | | Load_Encached Natural_Cache 020d 00e3 | | Load_Encached Natural_Cache 020e e008 | | Load 0x0,0x8 020f 0322 | " | Declare_Variable Record 0210 e00d | | Load 0x0,0xd 0211 00d9 | | Load_Top At_Offset_1 0212 017d | } | Execute Record,Structure_Write 0213 e009 | | Load 0x0,0x9 0214 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0215 e00e | | Load 0x0,0xe 0216 0007 | | Action Break_Optional 0217 e00f | | Load 0x0,0xf 0218 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0219 0604 | | Execute_Immediate Set_Value_Unchecked,0x4 021a BODY_0200: 021a e5fe | | Load 0x2,-0x2 021b e5ff | | Load 0x2,-0x1 021c 8219 | | Call 0x1,0x19 021d a402 | | Store_Unchecked 0x2,0x2 021e e402 | | Load 0x2,0x2 021f 7006 |p | Jump_Nonzero 0x226 0220 e5f8 | | Load 0x2,-0x8 0221 e211 | | Load 0x1,0x11 0222 e006 | | Load 0x0,0x6 0223 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0224 c5f8 | | Store 0x2,-0x8 0225 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0226 4800 |H | Short_Literal 0x0 0227 a5fa | | Store_Unchecked 0x2,-0x6 0228 4800 |H | Short_Literal 0x0 0229 a5f9 | | Store_Unchecked 0x2,-0x7 022a e402 | | Load 0x2,0x2 022b a403 | | Store_Unchecked 0x2,0x3 022c 00cf | | Action Mark_Auxiliary 022d e5fd | | Load 0x2,-0x3 022e 0aff | | Execute_Immediate Plus,-0x1 022f 00d8 | | Load_Top At_Offset_0 0230 00e2 | | Load_Encached Integer_Cache 0231 0260 | ` | Execute Discrete,In_Type 0232 7001 |p | Jump_Nonzero 0x234 0233 0801 | | Execute_Immediate Raise,0x1 0234 4801 |H | Short_Literal 0x1 0235 0263 | c | Execute Discrete,Above_Bound 0236 7033 |p3 | Jump_Nonzero 0x26a 0237 e004 | | Load 0x0,0x4 0238 e40a | | Load 0x2,0xa 0239 e409 | | Load 0x2,0x9 023a e408 | | Load 0x2,0x8 023b e407 | | Load 0x2,0x7 023c e5fe | | Load 0x2,-0x2 023d e404 | | Load 0x2,0x4 023e e403 | | Load 0x2,0x3 023f e5ff | | Load 0x2,-0x1 0240 8214 | | Call 0x1,0x14 0241 00d1 | | Pop_Control Pop_Count_1 0242 c408 | | Store 0x2,0x8 0243 c409 | | Store 0x2,0x9 0244 c40a | | Store 0x2,0xa 0245 c403 | | Store 0x2,0x3 0246 e403 | | Load 0x2,0x3 0247 7020 |p | Jump_Nonzero 0x268 0248 e5fb | | Load 0x2,-0x5 0249 6801 |h | Jump_Zero 0x24b 024a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 024b e5fd | | Load 0x2,-0x3 024c e5fc | | Load 0x2,-0x4 024d 027d | } | Execute Discrete,Greater 024e 6806 |h | Jump_Zero 0x255 024f e5fd | | Load 0x2,-0x3 0250 e5fc | | Load 0x2,-0x4 0251 0272 | r | Execute Discrete,Minus 0252 0a01 | | Execute_Immediate Plus,0x1 0253 c405 | | Store 0x2,0x5 0254 7802 |x | Jump 0x257 0255 4800 |H | Short_Literal 0x0 0256 a405 | | Store_Unchecked 0x2,0x5 0257 00d8 | | Load_Top At_Offset_0 0258 e405 | | Load 0x2,0x5 0259 027c | | | Execute Discrete,Less 025a 6801 |h | Jump_Zero 0x25c 025b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 025c e5fd | | Load 0x2,-0x3 025d 00d9 | | Load_Top At_Offset_1 025e 0272 | r | Execute Discrete,Minus 025f 0a01 | | Execute_Immediate Plus,0x1 0260 c406 | | Store 0x2,0x6 0261 e5fc | | Load 0x2,-0x4 0262 e406 | | Load 0x2,0x6 0263 0272 | r | Execute Discrete,Minus 0264 c5f9 | | Store 0x2,-0x7 0265 e404 | | Load 0x2,0x4 0266 a5fa | | Store_Unchecked 0x2,-0x6 0267 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0268 00c8 | | Action Pop_Auxiliary_Range 0269 3fcd |? | Loop_Increasing 0x237 026a 00ce | | Action Pop_Auxiliary 026b e403 | | Load 0x2,0x3 026c a5fa | | Store_Unchecked 0x2,-0x6 026d e5fc | | Load 0x2,-0x4 026e a5f9 | | Store_Unchecked 0x2,-0x7 026f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 028a | | .CONST 0x028a ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 000a | | .CONST 0x000a ; Number of locals 0273 INIT_0270: 0273 e004 | | Load 0x0,0x4 0274 0007 | | Action Break_Optional 0275 00d8 | | Load_Top At_Offset_0 0276 0007 | | Action Break_Optional 0277 e5fe | | Load 0x2,-0x2 0278 e5ff | | Load 0x2,-0x1 0279 8219 | | Call 0x1,0x19 027a e004 | | Load 0x0,0x4 027b 03f1 | | Declare_Variable Discrete,With_Value 027c 00e3 | | Load_Encached Natural_Cache 027d 00e3 | | Load_Encached Natural_Cache 027e e008 | | Load 0x0,0x8 027f 0322 | " | Declare_Variable Record 0280 e00d | | Load 0x0,0xd 0281 00d9 | | Load_Top At_Offset_1 0282 017d | } | Execute Record,Structure_Write 0283 e009 | | Load 0x0,0x9 0284 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0285 e00e | | Load 0x0,0xe 0286 0007 | | Action Break_Optional 0287 e00f | | Load 0x0,0xf 0288 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0289 0604 | | Execute_Immediate Set_Value_Unchecked,0x4 028a BODY_0270: 028a e5fe | | Load 0x2,-0x2 028b e5ff | | Load 0x2,-0x1 028c 821a | | Call 0x1,0x1a 028d a402 | | Store_Unchecked 0x2,0x2 028e e402 | | Load 0x2,0x2 028f 7006 |p | Jump_Nonzero 0x296 0290 e5f8 | | Load 0x2,-0x8 0291 e211 | | Load 0x1,0x11 0292 e006 | | Load 0x0,0x6 0293 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0294 c5f8 | | Store 0x2,-0x8 0295 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0296 4800 |H | Short_Literal 0x0 0297 a5fa | | Store_Unchecked 0x2,-0x6 0298 4800 |H | Short_Literal 0x0 0299 a5f9 | | Store_Unchecked 0x2,-0x7 029a e402 | | Load 0x2,0x2 029b a403 | | Store_Unchecked 0x2,0x3 029c 00cf | | Action Mark_Auxiliary 029d e5fd | | Load 0x2,-0x3 029e 0aff | | Execute_Immediate Plus,-0x1 029f 00d8 | | Load_Top At_Offset_0 02a0 00e2 | | Load_Encached Integer_Cache 02a1 0260 | ` | Execute Discrete,In_Type 02a2 7001 |p | Jump_Nonzero 0x2a4 02a3 0801 | | Execute_Immediate Raise,0x1 02a4 4801 |H | Short_Literal 0x1 02a5 0263 | c | Execute Discrete,Above_Bound 02a6 7039 |p9 | Jump_Nonzero 0x2e0 02a7 e004 | | Load 0x0,0x4 02a8 e40a | | Load 0x2,0xa 02a9 e409 | | Load 0x2,0x9 02aa e408 | | Load 0x2,0x8 02ab e407 | | Load 0x2,0x7 02ac e5fe | | Load 0x2,-0x2 02ad e404 | | Load 0x2,0x4 02ae e403 | | Load 0x2,0x3 02af e5ff | | Load 0x2,-0x1 02b0 8215 | | Call 0x1,0x15 02b1 00d1 | | Pop_Control Pop_Count_1 02b2 c408 | | Store 0x2,0x8 02b3 c409 | | Store 0x2,0x9 02b4 c40a | | Store 0x2,0xa 02b5 c403 | | Store 0x2,0x3 02b6 e403 | | Load 0x2,0x3 02b7 7026 |p& | Jump_Nonzero 0x2de 02b8 e5fb | | Load 0x2,-0x5 02b9 7001 |p | Jump_Nonzero 0x2bb 02ba 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02bb e5fd | | Load 0x2,-0x3 02bc e5fc | | Load 0x2,-0x4 02bd 027d | } | Execute Discrete,Greater 02be 6806 |h | Jump_Zero 0x2c5 02bf e5fd | | Load 0x2,-0x3 02c0 e5fc | | Load 0x2,-0x4 02c1 0272 | r | Execute Discrete,Minus 02c2 0a01 | | Execute_Immediate Plus,0x1 02c3 c405 | | Store 0x2,0x5 02c4 7802 |x | Jump 0x2c7 02c5 4800 |H | Short_Literal 0x0 02c6 a405 | | Store_Unchecked 0x2,0x5 02c7 00d8 | | Load_Top At_Offset_0 02c8 e405 | | Load 0x2,0x5 02c9 027c | | | Execute Discrete,Less 02ca 6801 |h | Jump_Zero 0x2cc 02cb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02cc e5fc | | Load 0x2,-0x4 02cd 00d9 | | Load_Top At_Offset_1 02ce 027d | } | Execute Discrete,Greater 02cf 6805 |h | Jump_Zero 0x2d5 02d0 e5fc | | Load 0x2,-0x4 02d1 00d9 | | Load_Top At_Offset_1 02d2 0272 | r | Execute Discrete,Minus 02d3 c406 | | Store 0x2,0x6 02d4 7802 |x | Jump 0x2d7 02d5 4800 |H | Short_Literal 0x0 02d6 a406 | | Store_Unchecked 0x2,0x6 02d7 e5fc | | Load 0x2,-0x4 02d8 e406 | | Load 0x2,0x6 02d9 0272 | r | Execute Discrete,Minus 02da c5f9 | | Store 0x2,-0x7 02db e402 | | Load 0x2,0x2 02dc a5fa | | Store_Unchecked 0x2,-0x6 02dd 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02de 00c8 | | Action Pop_Auxiliary_Range 02df 3fc7 |? | Loop_Increasing 0x2a7 02e0 00ce | | Action Pop_Auxiliary 02e1 e403 | | Load 0x2,0x3 02e2 a5fa | | Store_Unchecked 0x2,-0x6 02e3 e5fc | | Load 0x2,-0x4 02e4 a5f9 | | Store_Unchecked 0x2,-0x7 02e5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e5fd | | Load 0x2,-0x3 02ec 0c00 | | Execute_Immediate Greater_Equal,0x0 02ed 680d |h | Jump_Zero 0x2fb 02ee e5f8 | | Load 0x2,-0x8 02ef 00e3 | | Load_Encached Natural_Cache 02f0 e004 | | Load 0x0,0x4 02f1 e5fb | | Load 0x2,-0x5 02f2 e5fc | | Load 0x2,-0x4 02f3 e5fd | | Load 0x2,-0x3 02f4 e5fe | | Load 0x2,-0x2 02f5 e5ff | | Load 0x2,-0x1 02f6 821b | | Call 0x1,0x1b 02f7 c5fa | | Store 0x2,-0x6 02f8 c5f9 | | Store 0x2,-0x7 02f9 c5f8 | | Store 0x2,-0x8 02fa 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02fb e5f8 | | Load 0x2,-0x8 02fc 00e3 | | Load_Encached Natural_Cache 02fd e004 | | Load 0x0,0x4 02fe e5fb | | Load 0x2,-0x5 02ff e5fc | | Load 0x2,-0x4 0300 e5fd | | Load 0x2,-0x3 0301 0274 | t | Execute Discrete,Absolute_Value 0302 e5fe | | Load 0x2,-0x2 0303 e5ff | | Load 0x2,-0x1 0304 821c | | Call 0x1,0x1c 0305 c5fa | | Store 0x2,-0x6 0306 c5f9 | | Store 0x2,-0x7 0307 c5f8 | | Store 0x2,-0x8 0308 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0309 0000 0000 | | .BLANK 0000[0x7] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0334 | 4 | .CONST 0x0334 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0009 | | .CONST 0x0009 ; Number of locals 0313 INIT_0310: 0313 00db | | Load_Top At_Offset_3 0314 e004 | | Load 0x0,0x4 0315 03f1 | | Declare_Variable Discrete,With_Value 0316 e5fd | | Load 0x2,-0x3 0317 8217 | | Call 0x1,0x17 0318 e004 | | Load 0x0,0x4 0319 03f1 | | Declare_Variable Discrete,With_Value 031a 00e1 | | Load_Encached Boolean_Cache 031b 03e9 | | Declare_Variable Discrete,Duplicate 031c e008 | | Load 0x0,0x8 031d 0322 | " | Declare_Variable Record 031e e00d | | Load 0x0,0xd 031f 00d9 | | Load_Top At_Offset_1 0320 017d | } | Execute Record,Structure_Write 0321 e009 | | Load 0x0,0x9 0322 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0323 e5fe | | Load 0x2,-0x2 0324 e5fd | | Load 0x2,-0x3 0325 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0326 01d5 | | Execute Vector,Field_Reference 0327 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0328 e00f | | Load 0x0,0xf 0329 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032a 03f1 | | Declare_Variable Discrete,With_Value 032b e5fe | | Load 0x2,-0x2 032c e5fd | | Load 0x2,-0x3 032d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 032e 01d5 | | Execute Vector,Field_Reference 032f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0330 800c | | Call 0x0,0xc 0331 e010 | | Load 0x0,0x10 0332 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0333 03f1 | | Declare_Variable Discrete,With_Value 0334 BODY_0310: 0334 00e1 | | Load_Encached Boolean_Cache 0335 00e1 | | Load_Encached Boolean_Cache 0336 e009 | | Load 0x0,0x9 0337 e406 | | Load 0x2,0x6 0338 e5fe | | Load 0x2,-0x2 0339 e5fd | | Load 0x2,-0x3 033a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 033b 01d5 | | Execute Vector,Field_Reference 033c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 033d 800a | | Call 0x0,0xa 033e 800b | | Call 0x0,0xb 033f 00d1 | | Pop_Control Pop_Count_1 0340 c407 | | Store 0x2,0x7 0341 c404 | | Store 0x2,0x4 0342 c405 | | Store 0x2,0x5 0343 00cf | | Action Mark_Auxiliary 0344 e5fc | | Load 0x2,-0x4 0345 4801 |H | Short_Literal 0x1 0346 0263 | c | Execute Discrete,Above_Bound 0347 7021 |p! | Jump_Nonzero 0x369 0348 e402 | | 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 e5fb | | Load 0x2,-0x5 034d 01dd | | Execute Vector,First 034e 00da | | Load_Top At_Offset_2 034f 0273 | s | Execute Discrete,Plus 0350 0aff | | Execute_Immediate Plus,-0x1 0351 e5fb | | Load 0x2,-0x5 0352 01d6 | | Execute Vector,Field_Write 0353 e004 | | Load 0x0,0x4 0354 e408 | | Load 0x2,0x8 0355 e409 | | Load 0x2,0x9 0356 e407 | | Load 0x2,0x7 0357 e406 | | Load 0x2,0x6 0358 e5ff | | Load 0x2,-0x1 0359 e403 | | Load 0x2,0x3 035a e402 | | Load 0x2,0x2 035b e5fd | | Load 0x2,-0x3 035c 8214 | | Call 0x1,0x14 035d 00d1 | | Pop_Control Pop_Count_1 035e c407 | | Store 0x2,0x7 035f c409 | | Store 0x2,0x9 0360 c408 | | Store 0x2,0x8 0361 c402 | | Store 0x2,0x2 0362 e402 | | Load 0x2,0x2 0363 7003 |p | Jump_Nonzero 0x367 0364 00d8 | | Load_Top At_Offset_0 0365 a5fc | | Store_Unchecked 0x2,-0x4 0366 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0367 00c8 | | Action Pop_Auxiliary_Range 0368 3fdf |? | Loop_Increasing 0x348 0369 4504 |E | Exit_Suprogram New_Top_Offset 0x4 036a 0000 0000 | | .BLANK 0000[0x6] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0394 | | .CONST 0x0394 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0009 | | .CONST 0x0009 ; Number of locals 0373 INIT_0370: 0373 00db | | Load_Top At_Offset_3 0374 e004 | | Load 0x0,0x4 0375 03f1 | | Declare_Variable Discrete,With_Value 0376 e5fd | | Load 0x2,-0x3 0377 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0378 e004 | | Load 0x0,0x4 0379 03f1 | | Declare_Variable Discrete,With_Value 037a 00e1 | | Load_Encached Boolean_Cache 037b 03e9 | | Declare_Variable Discrete,Duplicate 037c e008 | | Load 0x0,0x8 037d 0322 | " | Declare_Variable Record 037e e00d | | Load 0x0,0xd 037f 00d9 | | Load_Top At_Offset_1 0380 017d | } | Execute Record,Structure_Write 0381 e009 | | Load 0x0,0x9 0382 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0383 e5fe | | Load 0x2,-0x2 0384 e5fd | | Load 0x2,-0x3 0385 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0386 01d5 | | Execute Vector,Field_Reference 0387 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0388 800c | | Call 0x0,0xc 0389 e010 | | Load 0x0,0x10 038a 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 038b 03f1 | | Declare_Variable Discrete,With_Value 038c e5fe | | Load 0x2,-0x2 038d e5fd | | Load 0x2,-0x3 038e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 038f 01d5 | | Execute Vector,Field_Reference 0390 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0391 e00f | | Load 0x0,0xf 0392 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0393 03f1 | | Declare_Variable Discrete,With_Value 0394 BODY_0370: 0394 00e1 | | Load_Encached Boolean_Cache 0395 00e1 | | Load_Encached Boolean_Cache 0396 e009 | | Load 0x0,0x9 0397 e406 | | Load 0x2,0x6 0398 e5fe | | Load 0x2,-0x2 0399 e5fd | | Load 0x2,-0x3 039a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 039b 01d5 | | Execute Vector,Field_Reference 039c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 039d 800a | | Call 0x0,0xa 039e 800b | | Call 0x0,0xb 039f 00d1 | | Pop_Control Pop_Count_1 03a0 c407 | | Store 0x2,0x7 03a1 c404 | | Store 0x2,0x4 03a2 c405 | | Store 0x2,0x5 03a3 00cf | | Action Mark_Auxiliary 03a4 e5fc | | Load 0x2,-0x4 03a5 4801 |H | Short_Literal 0x1 03a6 0263 | c | Execute Discrete,Above_Bound 03a7 7021 |p! | Jump_Nonzero 0x3c9 03a8 e402 | | 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 e5fb | | Load 0x2,-0x5 03ad 01dd | | Execute Vector,First 03ae 00da | | Load_Top At_Offset_2 03af 0273 | s | Execute Discrete,Plus 03b0 0aff | | Execute_Immediate Plus,-0x1 03b1 e5fb | | Load 0x2,-0x5 03b2 01d6 | | Execute Vector,Field_Write 03b3 e004 | | Load 0x0,0x4 03b4 e409 | | Load 0x2,0x9 03b5 e408 | | Load 0x2,0x8 03b6 e407 | | Load 0x2,0x7 03b7 e406 | | Load 0x2,0x6 03b8 e5ff | | Load 0x2,-0x1 03b9 e403 | | Load 0x2,0x3 03ba e402 | | Load 0x2,0x2 03bb e5fd | | Load 0x2,-0x3 03bc 8215 | | Call 0x1,0x15 03bd 00d1 | | Pop_Control Pop_Count_1 03be c407 | | Store 0x2,0x7 03bf c408 | | Store 0x2,0x8 03c0 c409 | | Store 0x2,0x9 03c1 c402 | | Store 0x2,0x2 03c2 e402 | | Load 0x2,0x2 03c3 7003 |p | Jump_Nonzero 0x3c7 03c4 00d8 | | Load_Top At_Offset_0 03c5 a5fc | | Store_Unchecked 0x2,-0x4 03c6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03c7 00c8 | | Action Pop_Auxiliary_Range 03c8 3fdf |? | Loop_Increasing 0x3a8 03c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ca 0000 0000 | | .BLANK 0000[0x6] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d5 | | .CONST 0x03d5 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0002 | | .CONST 0x0002 ; Number of locals 03d3 INIT_03d0: 03d3 e004 | | Load 0x0,0x4 03d4 0007 | | Action Break_Optional 03d5 BODY_03d0: 03d5 e004 | | Load 0x0,0x4 03d6 e5fe | | Load 0x2,-0x2 03d7 8216 | | Call 0x1,0x16 03d8 00d1 | | Pop_Control Pop_Count_1 03d9 0059 | Y | Store_Top Discrete,At_Offset_1 03da 00db | | Load_Top At_Offset_3 03db 00d9 | | Load_Top At_Offset_1 03dc e5fe | | Load 0x2,-0x2 03dd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03de 01d6 | | Execute Vector,Field_Write 03df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 4800 |H | Short_Literal 0x0 03e4 00db | | Load_Top At_Offset_3 03e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03e6 4800 |H | Short_Literal 0x0 03e7 00db | | Load_Top At_Offset_3 03e8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ea 0000 0000 | | .BLANK 0000[0x6] 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 4601 |F | Jump_Case 0x2 03f4 7801 |x | Jump 0x3f6 ; case 0x0 03f5 7804 |x | Jump 0x3fa ; case 0x1 03f6 00da | | Load_Top At_Offset_2 03f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03f8 1c00 | | Execute_Immediate Run_Utility,0x0 03f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03fa 00da | | Load_Top At_Offset_2 03fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03fc 1c01 | | Execute_Immediate Run_Utility,0x1 03fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03fe ; -------------------------------------------------------------------------------------- 03fe ; STRING TABLE 03fe ; -------------------------------------------------------------------------------------- 03fe 0006 | | .STRTAB 0x0006->0x0401 ; "There are no history entries for the task or tasks" 03ff 0036 | 6 | .STRTAB 0x0036->0x041a ; "There are no history entries for the age specified" 0400 0066 | f | .STREND 0x0066->0x0433 0401 5468 6572 |Ther| .STRTAB_STRINGS 0433 0000 0000 | | .BLANK 0000[0x5] 0438 ; -------------------------------------------------------------------------------------- 0438 ; Debug Table 0438 ; -------------------------------------------------------------------------------------- 0438 0004 0009 | | .DEBUG4 0x0004,0x0009,0x12a9,0x0000,0x0001,0x0000 043e 0000 13b2 | | .XXX[0xa] 0440 0001 0404 | | 0442 0800 0280 | | 0444 0000 0008 | | 0446 0000 0008 | | 0448 0000 0000 | | .BLANK 0000[0x7] 044f 00ff 0001 | | .XXX[0x11] 0451 0404 0000 | | 0453 0016 001d | | 0455 a009 0000 | | 0457 13b2 0001 | | 0459 0404 0800 | | 045b 0280 0000 | | 045d 0010 0000 | | 045f 0010 | | 0460 0000 0000 | | .BLANK 0000[0x7] 0467 ffff 0000 | | .XXX[0x5] 0469 0000 0000 | | 046b 0076 | v | 046c 0000 0000 | | .BLANK 0000[0x4] 0470 000c 2cfd | , | .XXX[0x36] 0472 8800 0780 | | 0474 0000 0018 | | 0476 0000 0018 | | 0478 0001 0804 | | 047a 0800 05ec | | 047c 000c 2cfd | , | 047e 0000 007f | | 0480 003d b280 | = | 0482 4041 f080 |@A | 0484 0000 01b4 | | 0486 7180 8004 |q | 0488 0002 0000 | | 048a 0000 3046 | 0F| 048c 0000 1000 | | 048e 0000 4801 | H | 0490 4000 0000 |@ | 0492 4000 0010 |@ | 0494 0000 0088 | | 0496 0000 0000 | | 0498 4000 0002 |@ | 049a 9000 0040 | @| 049c 30fc 5000 |0 P | 049e 0040 30fc | @0 | 04a0 9000 0040 | @| 04a2 30fc d000 |0 | 04a4 0040 30fd | @0 | 04a6 0000 0000 | | .BLANK 0000[0x12] 04b8 00c0 0007 | | .XXX[0x25] 04ba b7d0 0808 | | 04bc 3e60 0000 |>` | 04be 0036 8970 | 6 p| 04c0 1000 8000 | | 04c2 4000 0000 |@ | 04c4 0610 8000 | | 04c6 0200 0000 | | 04c8 0d00 2800 | ( | 04ca 0000 0800 | | 04cc 0002 0000 | | 04ce 0011 0000 | | 04d0 0000 0800 | | 04d2 0000 5200 | R | 04d4 0008 061f | | 04d6 b200 0008 | | 04d8 061f ba00 | | 04da 0008 061f | | 04dc c000 | | 04dd 0000 0000 | | .BLANK 0000[0x5] 04e2 0200 0008 | | .XXX[0xa] 04e4 061f ca00 | | 04e6 0008 061f | | 04e8 aa00 0008 | | 04ea 061f d000 | | 04ec 0000 0000 | | .BLANK 0000[0x5] 04f1 0008 0000 | | .XXX[0x3] 04f3 e6f0 | | 04f4 0000 0000 | | .BLANK 0000[0xd] 0501 0020 0500 | | .XXX[0xc] 0503 0000 0000 | | 0505 0000 4000 | @ | 0507 0002 2000 | | 0509 0000 0100 | | 050b 0000 0a00 | | 050d 0000 0000 | | .BLANK 0000[0x2d] 053a 0004 00a0 | | .XXX[0xc] 053c 0000 0000 | | 053e 0000 0800 | | 0540 0000 4400 | D | 0542 0000 0020 | | 0544 0000 0140 | @| 0546 0000 0000 | | .BLANK 0000[0x2e] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]