|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 02a8 | | .CONST 0x02a8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 0012 c214 | | Store 0x1,0x14 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 c215 | | Store 0x1,0x15 0016 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0018 c213 | | Store 0x1,0x13 0019 00bf | | Action Accept_Activation 001a 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 001c 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call 001e 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call 0020 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 0022 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0023 00c7 | | Action Elaborate_Subprogram 0024 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 0026 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 0028 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0029 00c7 | | Action Elaborate_Subprogram 002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 003c | < | .CONST 0x003c ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0004 | | .CONST 0x0004 ; Number of locals 0033 INIT_0030: 0033 e001 | | Load 0x0,0x1 0034 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0035 02c7 | | Declare_Variable Any 0036 00db | | Load_Top At_Offset_3 0037 e002 | | Load 0x0,0x2 0038 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0039 a402 | | Store_Unchecked 0x2,0x2 003a 00e2 | | Load_Encached Integer_Cache 003b 03e9 | | Declare_Variable Discrete,Duplicate 003c BODY_0030: 003c e5fc | | Load 0x2,-0x4 003d 684a |hJ | Jump_Zero 0x88 003e 00da | | Load_Top At_Offset_2 003f e001 | | Load 0x0,0x1 0040 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0041 460c |F | Jump_Case 0xd 0042 780c |x | Jump 0x4f ; case 0x0 0043 780b |x | Jump 0x4f ; case 0x1 0044 780a |x | Jump 0x4f ; case 0x2 0045 7809 |x | Jump 0x4f ; case 0x3 0046 7808 |x | Jump 0x4f ; case 0x4 0047 780c |x | Jump 0x54 ; case 0x5 0048 781b |x | Jump 0x64 ; case 0x6 0049 7820 |x | Jump 0x6a ; case 0x7 004a 7828 |x( | Jump 0x73 ; case 0x8 004b 7803 |x | Jump 0x4f ; case 0x9 004c 7802 |x | Jump 0x4f ; case 0xa 004d 7801 |x | Jump 0x4f ; case 0xb 004e 7800 |x | Jump 0x4f ; case 0xc 004f e5ff | | Load 0x2,-0x1 0050 e002 | | Load 0x0,0x2 0051 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0052 8216 | | Call 0x1,0x16 0053 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0054 00e2 | | Load_Encached Integer_Cache 0055 00e2 | | Load_Encached Integer_Cache 0056 e5fd | | Load 0x2,-0x3 0057 e5ff | | Load 0x2,-0x1 0058 e002 | | Load 0x0,0x2 0059 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 005a 8218 | | Call 0x1,0x18 005b 005b | [ | Store_Top Discrete,At_Offset_3 005c 0059 | Y | Store_Top Discrete,At_Offset_1 005d e5fc | | Load 0x2,-0x4 005e e5fe | | Load 0x2,-0x2 005f 00da | | Load_Top At_Offset_2 0060 e403 | | Load 0x2,0x3 0061 e5ff | | Load 0x2,-0x1 0062 8213 | | Call 0x1,0x13 0063 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0064 e5fc | | Load 0x2,-0x4 0065 e5fd | | Load 0x2,-0x3 0066 e5fe | | Load 0x2,-0x2 0067 e5ff | | Load 0x2,-0x1 0068 8215 | | Call 0x1,0x15 0069 4505 |E | Exit_Suprogram New_Top_Offset 0x5 006a e5fc | | Load 0x2,-0x4 006b 4801 |H | Short_Literal 0x1 006c e402 | | Load 0x2,0x2 006d e001 | | Load 0x0,0x1 006e 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 006f e003 | | Load 0x0,0x3 0070 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0071 8219 | | Call 0x1,0x19 0072 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0073 e5ff | | Load 0x2,-0x1 0074 e004 | | Load 0x0,0x4 0075 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0076 0092 0279 | y| Action Push_String_Extended,0x279 ; "(" 0078 01cc | | Execute Vector,Catenate 0079 820f | | Call 0x1,0xf 007a e5fc | | Load 0x2,-0x4 007b e5fd | | Load 0x2,-0x3 007c e5fe | | Load 0x2,-0x2 007d 4801 |H | Short_Literal 0x1 007e e402 | | Load 0x2,0x2 007f e001 | | Load 0x0,0x1 0080 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0081 e003 | | Load 0x0,0x3 0082 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0083 8214 | | Call 0x1,0x14 0084 0092 027a | z| Action Push_String_Extended,0x27a ; ")" 0086 820f | | Call 0x1,0xf 0087 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0088 e5ff | | Load 0x2,-0x1 0089 e002 | | Load 0x0,0x2 008a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 008b 8216 | | Call 0x1,0x16 008c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00b7 | | .CONST 0x00b7 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0007 | | .CONST 0x0007 ; Number of locals 0093 INIT_0090: 0093 e003 | | Load 0x0,0x3 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 02c7 | | Declare_Variable Any 0096 00db | | Load_Top At_Offset_3 0097 e002 | | Load 0x0,0x2 0098 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0099 a402 | | Store_Unchecked 0x2,0x2 009a e003 | | Load 0x0,0x3 009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009c 02c7 | | Declare_Variable Any 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f e003 | | Load 0x0,0x3 00a0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00a1 02c7 | | Declare_Variable Any 00a2 00da | | Load_Top At_Offset_2 00a3 e001 | | Load 0x0,0x1 00a4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00a5 a404 | | Store_Unchecked 0x2,0x4 00a6 e003 | | Load 0x0,0x3 00a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a8 02c7 | | Declare_Variable Any 00a9 00d8 | | Load_Top At_Offset_0 00aa 1c00 | | Execute_Immediate Run_Utility,0x0 00ab e003 | | Load 0x0,0x3 00ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ad 02c7 | | Declare_Variable Any 00ae e402 | | Load 0x2,0x2 00af e001 | | Load 0x0,0x1 00b0 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00b1 a406 | | Store_Unchecked 0x2,0x6 00b2 e003 | | Load 0x0,0x3 00b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b4 02c7 | | Declare_Variable Any 00b5 00d8 | | Load_Top At_Offset_0 00b6 1c00 | | Execute_Immediate Run_Utility,0x0 00b7 BODY_0090: 00b7 0092 0279 | y| Action Push_String_Extended,0x279 ; "(" 00b9 820f | | Call 0x1,0xf 00ba 00cf | | Action Mark_Auxiliary 00bb 7816 |x | Jump 0xd2 00bc 00da | | Load_Top At_Offset_2 00bd e003 | | Load 0x0,0x3 00be 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00bf c407 | | Store 0x2,0x7 00c0 00d9 | | Load_Top At_Offset_1 00c1 e002 | | Load 0x0,0x2 00c2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00c3 0092 027b | {| Action Push_String_Extended,0x27b ; " => " 00c5 01cc | | Execute Vector,Catenate 00c6 820f | | Call 0x1,0xf 00c7 00ea | | Load_Encached Null_String_Cache 00c8 8216 | | Call 0x1,0x16 00c9 00da | | Load_Top At_Offset_2 00ca e003 | | Load 0x0,0x3 00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00cc c406 | | Store 0x2,0x6 00cd 0092 027c | || Action Push_String_Extended,0x27c ; ", " 00cf 820f | | Call 0x1,0xf 00d0 8210 | | Call 0x1,0x10 00d1 00c9 | | Action Pop_Auxiliary_Loop 00d2 00da | | Load_Top At_Offset_2 00d3 e003 | | Load 0x0,0x3 00d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d5 6fe6 |o | Jump_Zero 0xbc 00d6 00c9 | | Action Pop_Auxiliary_Loop 00d7 7828 |x( | Jump 0x100 00d8 e404 | | Load 0x2,0x4 00d9 e003 | | Load 0x0,0x3 00da 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00db c405 | | Store 0x2,0x5 00dc 00db | | Load_Top At_Offset_3 00dd e001 | | Load 0x0,0x1 00de 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 00df 4603 |F | Jump_Case 0x4 00e0 7812 |x | Jump 0xf3 ; case 0x0 00e1 7809 |x | Jump 0xeb ; case 0x1 00e2 7801 |x | Jump 0xe4 ; case 0x2 00e3 780f |x | Jump 0xf3 ; case 0x3 00e4 0092 027d | }| Action Push_String_Extended,0x27d ; "-- variant_component here" 00e6 820f | | Call 0x1,0xf 00e7 8210 | | Call 0x1,0x10 00e8 00ea | | Load_Encached Null_String_Cache 00e9 8216 | | Call 0x1,0x16 00ea 7808 |x | Jump 0xf3 00eb e5fc | | Load 0x2,-0x4 00ec e405 | | Load 0x2,0x5 00ed e002 | | Load 0x0,0x2 00ee 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 00ef e5fd | | Load 0x2,-0x3 00f0 e5fe | | Load 0x2,-0x2 00f1 e405 | | Load 0x2,0x5 00f2 821b | | Call 0x1,0x1b 00f3 e404 | | Load 0x2,0x4 00f4 e003 | | Load 0x0,0x3 00f5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f6 c404 | | Store 0x2,0x4 00f7 e404 | | Load 0x2,0x4 00f8 e003 | | Load 0x0,0x3 00f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00fa 7004 |p | Jump_Nonzero 0xff 00fb 0092 027c | || Action Push_String_Extended,0x27c ; ", " 00fd 820f | | Call 0x1,0xf 00fe 8210 | | Call 0x1,0x10 00ff 00c9 | | Action Pop_Auxiliary_Loop 0100 e404 | | Load 0x2,0x4 0101 e003 | | Load 0x0,0x3 0102 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0103 6fd4 |o | Jump_Zero 0xd8 0104 00ce | | Action Pop_Auxiliary 0105 0092 027a | z| Action Push_String_Extended,0x27a ; ")" 0107 820f | | Call 0x1,0xf 0108 8210 | | Call 0x1,0x10 0109 4505 |E | Exit_Suprogram New_Top_Offset 0x5 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0126 | & | .CONST 0x0126 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e001 | | Load 0x0,0x1 0114 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0115 02c7 | | Declare_Variable Any 0116 00db | | Load_Top At_Offset_3 0117 e002 | | Load 0x0,0x2 0118 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0119 e001 | | Load 0x0,0x1 011a 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 011b a402 | | Store_Unchecked 0x2,0x2 011c e003 | | Load 0x0,0x3 011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011e 02c7 | | Declare_Variable Any 011f 4801 |H | Short_Literal 0x1 0120 00da | | Load_Top At_Offset_2 0121 e003 | | Load 0x0,0x3 0122 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0123 e003 | | Load 0x0,0x3 0124 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0125 a403 | | Store_Unchecked 0x2,0x3 0126 BODY_0110: 0126 0092 0279 | y| Action Push_String_Extended,0x279 ; "(" 0128 820f | | Call 0x1,0xf 0129 00cf | | Action Mark_Auxiliary 012a e5fd | | Load 0x2,-0x3 012b e5fe | | Load 0x2,-0x2 012c 0263 | c | Execute Discrete,Above_Bound 012d 7023 |p# | Jump_Nonzero 0x151 012e e5fc | | Load 0x2,-0x4 012f 680a |h | Jump_Zero 0x13a 0130 4820 |H | Short_Literal 0x20 0131 00d9 | | Load_Top At_Offset_1 0132 00e0 | | Load_Encached Standard_Cache 0133 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0134 e005 | | Load 0x0,0x5 0135 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0136 820f | | Call 0x1,0xf 0137 0092 027b | {| Action Push_String_Extended,0x27b ; " => " 0139 820f | | Call 0x1,0xf 013a e5fb | | Load 0x2,-0x5 013b e5fd | | Load 0x2,-0x3 013c e5fe | | Load 0x2,-0x2 013d 0272 | r | Execute Discrete,Minus 013e 0a01 | | Execute_Immediate Plus,0x1 013f 00d8 | | Load_Top At_Offset_0 0140 00e4 | | Load_Encached Positive_Cache 0141 0260 | ` | Execute Discrete,In_Type 0142 7001 |p | Jump_Nonzero 0x144 0143 0801 | | Execute_Immediate Raise,0x1 0144 e5fc | | Load 0x2,-0x4 0145 e403 | | Load 0x2,0x3 0146 8214 | | Call 0x1,0x14 0147 00d8 | | Load_Top At_Offset_0 0148 e5fd | | Load 0x2,-0x3 0149 027c | | | Execute Discrete,Less 014a 6804 |h | Jump_Zero 0x14f 014b 0092 027c | || Action Push_String_Extended,0x27c ; ", " 014d 820f | | Call 0x1,0xf 014e 8210 | | Call 0x1,0x10 014f 00c8 | | Action Pop_Auxiliary_Range 0150 3fdd |? | Loop_Increasing 0x12e 0151 00ce | | Action Pop_Auxiliary 0152 0092 027a | z| Action Push_String_Extended,0x27a ; ")" 0154 820f | | Call 0x1,0xf 0155 8210 | | Call 0x1,0x10 0156 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c 01db | | Execute Vector,Length 015d 7004 |p | Jump_Nonzero 0x162 015e 0092 027e | ~| Action Push_String_Extended,0x27e ; "[expression]" 0160 820f | | Call 0x1,0xf 0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0162 0092 027f | | Action Push_String_Extended,0x27f ; "[" 0164 00db | | Load_Top At_Offset_3 0165 01cc | | Execute Vector,Catenate 0166 0092 0280 | | Action Push_String_Extended,0x280 ; "-expression]" 0168 01cc | | Execute Vector,Catenate 0169 820f | | Call 0x1,0xf 016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017a | z | .CONST 0x017a ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e003 | | Load 0x0,0x3 0174 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0175 02c7 | | Declare_Variable Any 0176 00db | | Load_Top At_Offset_3 0177 e001 | | Load 0x0,0x1 0178 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0179 a402 | | Store_Unchecked 0x2,0x2 017a BODY_0170: 017a 00d8 | | Load_Top At_Offset_0 017b e004 | | Load 0x0,0x4 017c 180d | | Execute Package,Field_Execute,Field_Number 0xd 017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 019e | | .CONST 0x019e ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0008 | | .CONST 0x0008 ; Number of locals 0183 INIT_0180: 0183 e003 | | Load 0x0,0x3 0184 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0185 02c7 | | Declare_Variable Any 0186 00db | | Load_Top At_Offset_3 0187 e001 | | Load 0x0,0x1 0188 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0189 a402 | | Store_Unchecked 0x2,0x2 018a e003 | | Load 0x0,0x3 018b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018c 02c7 | | Declare_Variable Any 018d 00d9 | | Load_Top At_Offset_1 018e e003 | | Load 0x0,0x3 018f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0190 a403 | | Store_Unchecked 0x2,0x3 0191 00e5 | | Load_Encached Long_Integer_Cache 0192 03e9 | | Declare_Variable Discrete,Duplicate 0193 00e1 | | Load_Encached Boolean_Cache 0194 e003 | | Load 0x0,0x3 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 02c7 | | Declare_Variable Any 0197 00d8 | | Load_Top At_Offset_0 0198 1c00 | | Execute_Immediate Run_Utility,0x0 0199 e003 | | Load 0x0,0x3 019a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019b 02c7 | | Declare_Variable Any 019c 00d8 | | Load_Top At_Offset_0 019d 1c00 | | Execute_Immediate Run_Utility,0x0 019e BODY_0180: 019e 00d8 | | Load_Top At_Offset_0 019f 0120 | | Execute Any,Is_Value 01a0 6803 |h | Jump_Zero 0x1a4 01a1 e006 | | Load 0x0,0x6 01a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a3 7801 |x | Jump 0x1a5 01a4 00d8 | | Load_Top At_Offset_0 01a5 00da | | Load_Top At_Offset_2 01a6 0120 | | Execute Any,Is_Value 01a7 6803 |h | Jump_Zero 0x1ab 01a8 e006 | | Load 0x0,0x6 01a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01aa 7801 |x | Jump 0x1ac 01ab 00da | | Load_Top At_Offset_2 01ac 00e1 | | Load_Encached Boolean_Cache 01ad e405 | | Load 0x2,0x5 01ae e404 | | Load 0x2,0x4 01af e403 | | Load 0x2,0x3 01b0 e007 | | Load 0x0,0x7 01b1 180d | | Execute Package,Field_Execute,Field_Number 0xd 01b2 c404 | | Store 0x2,0x4 01b3 c405 | | Store 0x2,0x5 01b4 c406 | | Store 0x2,0x6 01b5 c407 | | Store 0x2,0x7 01b6 c408 | | Store 0x2,0x8 01b7 00da | | Load_Top At_Offset_2 01b8 6820 |h | Jump_Zero 0x1d9 01b9 e404 | | Load 0x2,0x4 01ba 00d8 | | Load_Top At_Offset_0 01bb 00e2 | | Load_Encached Integer_Cache 01bc 0260 | ` | Execute Discrete,In_Type 01bd 7001 |p | Jump_Nonzero 0x1bf 01be 0801 | | Execute_Immediate Raise,0x1 01bf a5fd | | Store_Unchecked 0x2,-0x3 01c0 00db | | Load_Top At_Offset_3 01c1 e404 | | Load 0x2,0x4 01c2 0272 | r | Execute Discrete,Minus 01c3 e5fe | | Load 0x2,-0x2 01c4 027a | z | Execute Discrete,Less_Equal 01c5 6808 |h | Jump_Zero 0x1ce 01c6 00db | | Load_Top At_Offset_3 01c7 00d8 | | Load_Top At_Offset_0 01c8 00e2 | | Load_Encached Integer_Cache 01c9 0260 | ` | Execute Discrete,In_Type 01ca 7001 |p | Jump_Nonzero 0x1cc 01cb 0801 | | Execute_Immediate Raise,0x1 01cc a5fc | | Store_Unchecked 0x2,-0x4 01cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ce e404 | | Load 0x2,0x4 01cf 00d8 | | Load_Top At_Offset_0 01d0 00e2 | | Load_Encached Integer_Cache 01d1 0260 | ` | Execute Discrete,In_Type 01d2 7001 |p | Jump_Nonzero 0x1d4 01d3 0801 | | Execute_Immediate Raise,0x1 01d4 e5fe | | Load 0x2,-0x2 01d5 0273 | s | Execute Discrete,Plus 01d6 0aff | | Execute_Immediate Plus,-0x1 01d7 c5fc | | Store 0x2,-0x4 01d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d9 4801 |H | Short_Literal 0x1 01da a5fd | | Store_Unchecked 0x2,-0x3 01db 4801 |H | Short_Literal 0x1 01dc a5fc | | Store_Unchecked 0x2,-0x4 01dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 0092 0281 | | Action Push_String_Extended,0x281 ; "new " 01e5 00db | | Load_Top At_Offset_3 01e6 e004 | | Load 0x0,0x4 01e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e8 01cc | | Execute Vector,Catenate 01e9 0092 0282 | | Action Push_String_Extended,0x282 ; "'" 01eb 01cc | | Execute Vector,Catenate 01ec 820f | | Call 0x1,0xf 01ed 00db | | Load_Top At_Offset_3 01ee 4801 |H | Short_Literal 0x1 01ef 4800 |H | Short_Literal 0x0 01f0 e5ff | | Load 0x2,-0x1 01f1 8214 | | Call 0x1,0x14 01f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 020a | | .CONST 0x020a ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb e003 | | Load 0x0,0x3 01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fd 02c7 | | Declare_Variable Any 01fe 00d8 | | Load_Top At_Offset_0 01ff 1c00 | | Execute_Immediate Run_Utility,0x0 0200 e003 | | Load 0x0,0x3 0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0202 02c7 | | Declare_Variable Any 0203 4801 |H | Short_Literal 0x1 0204 e5ff | | Load 0x2,-0x1 0205 e002 | | Load 0x0,0x2 0206 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0207 e003 | | Load 0x0,0x3 0208 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0209 a403 | | Store_Unchecked 0x2,0x3 020a BODY_01f8: 020a e5ff | | Load 0x2,-0x1 020b e002 | | Load 0x0,0x2 020c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 020d c402 | | Store 0x2,0x2 020e 00d9 | | Load_Top At_Offset_1 020f e003 | | Load 0x0,0x3 0210 180f | | Execute Package,Field_Execute,Field_Number 0xf 0211 680b |h | Jump_Zero 0x21d 0212 e5fe | | Load 0x2,-0x2 0213 6804 |h | Jump_Zero 0x218 0214 0092 0283 | | Action Push_String_Extended,0x283 ; "\x22\x22" 0216 820f | | Call 0x1,0xf 0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0218 00d8 | | Load_Top At_Offset_0 0219 e002 | | Load 0x0,0x2 021a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 021b 8216 | | Call 0x1,0x16 021c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 021d 00d9 | | Load_Top At_Offset_1 021e e003 | | Load 0x0,0x3 021f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0220 820f | | Call 0x1,0xf 0221 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 023b | ; | .CONST 0x023b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0005 | | .CONST 0x0005 ; Number of locals 022b INIT_0228: 022b e003 | | Load 0x0,0x3 022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022d 02c7 | | Declare_Variable Any 022e e5fc | | Load 0x2,-0x4 022f e001 | | Load 0x0,0x1 0230 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0231 a402 | | Store_Unchecked 0x2,0x2 0232 e003 | | Load 0x0,0x3 0233 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0234 02c7 | | Declare_Variable Any 0235 00d9 | | Load_Top At_Offset_1 0236 e002 | | Load 0x0,0x2 0237 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0238 a403 | | Store_Unchecked 0x2,0x3 0239 00e2 | | Load_Encached Integer_Cache 023a 03e9 | | Declare_Variable Discrete,Duplicate 023b BODY_0228: 023b e5ff | | Load 0x2,-0x1 023c e002 | | Load 0x0,0x2 023d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 023e 820f | | Call 0x1,0xf 023f 0092 027b | {| Action Push_String_Extended,0x27b ; " => " 0241 820f | | Call 0x1,0xf 0242 e5fb | | Load 0x2,-0x5 0243 6831 |h1 | Jump_Zero 0x275 0244 00da | | Load_Top At_Offset_2 0245 e001 | | Load 0x0,0x1 0246 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0247 460c |F | Jump_Case 0xd 0248 780c |x | Jump 0x255 ; case 0x0 0249 780b |x | Jump 0x255 ; case 0x1 024a 780a |x | Jump 0x255 ; case 0x2 024b 7809 |x | Jump 0x255 ; case 0x3 024c 7808 |x | Jump 0x255 ; case 0x4 024d 780b |x | Jump 0x259 ; case 0x5 024e 7820 |x | Jump 0x26f ; case 0x6 024f 7805 |x | Jump 0x255 ; case 0x7 0250 7804 |x | Jump 0x255 ; case 0x8 0251 7803 |x | Jump 0x255 ; case 0x9 0252 7802 |x | Jump 0x255 ; case 0xa 0253 7801 |x | Jump 0x255 ; case 0xb 0254 7800 |x | Jump 0x255 ; case 0xc 0255 4800 |H | Short_Literal 0x0 0256 e5ff | | Load 0x2,-0x1 0257 821a | | Call 0x1,0x1a 0258 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0259 00da | | Load_Top At_Offset_2 025a e001 | | Load 0x0,0x1 025b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 025c 6804 |h | Jump_Zero 0x261 025d 4801 |H | Short_Literal 0x1 025e e5ff | | Load 0x2,-0x1 025f 821a | | Call 0x1,0x1a 0260 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0261 00e2 | | Load_Encached Integer_Cache 0262 00e2 | | Load_Encached Integer_Cache 0263 e5fd | | Load 0x2,-0x3 0264 e403 | | Load 0x2,0x3 0265 8218 | | Call 0x1,0x18 0266 005b | [ | Store_Top Discrete,At_Offset_3 0267 0059 | Y | Store_Top Discrete,At_Offset_1 0268 e5fb | | Load 0x2,-0x5 0269 4800 |H | Short_Literal 0x0 026a 00da | | Load_Top At_Offset_2 026b e404 | | Load 0x2,0x4 026c e402 | | Load 0x2,0x2 026d 8213 | | Call 0x1,0x13 026e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 026f e5fb | | Load 0x2,-0x5 0270 e5fd | | Load 0x2,-0x3 0271 e5fe | | Load 0x2,-0x2 0272 e402 | | Load 0x2,0x2 0273 8215 | | Call 0x1,0x15 0274 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0275 4800 |H | Short_Literal 0x0 0276 e5ff | | Load 0x2,-0x1 0277 821a | | Call 0x1,0x1a 0278 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0279 ; -------------------------------------------------------------------------------------- 0279 ; STRING TABLE 0279 ; -------------------------------------------------------------------------------------- 0279 0018 | | .STRTAB 0x0018->0x0285 ; "(" 027a 0017 | | .STRTAB 0x0017->0x0285 ; ")" 027b 0016 | | .STRTAB 0x0016->0x0286 ; " => " 027c 0018 | | .STRTAB 0x0018->0x0288 ; ", " 027d 0019 | | .STRTAB 0x0019->0x0289 ; "-- variant_component here" 027e 0030 | 0 | .STRTAB 0x0030->0x0296 ; "[expression]" 027f 003a | : | .STRTAB 0x003a->0x029c ; "[" 0280 0039 | 9 | .STRTAB 0x0039->0x029c ; "-expression]" 0281 0043 | C | .STRTAB 0x0043->0x02a2 ; "new " 0282 0045 | E | .STRTAB 0x0045->0x02a4 ; "'" 0283 0044 | D | .STRTAB 0x0044->0x02a5 ; "\x22\x22" 0284 0044 | D | .STREND 0x0044->0x02a6 0285 2829 203d |() =| .STRTAB_STRINGS 02a6 0000 0000 | | .XXX[0x2] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug Table 02a8 ; -------------------------------------------------------------------------------------- 02a8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2fa6,0x0000,0x0001,0x000b 02ae 000b 02da | | .DBG4T 0x000b,0x02da,0xc000,0x0000 02b2 001a 02df | | .DBG4T 0x001a,0x02df,0xc000,0x0000 02b6 0033 02ea | 3 | .DBG4T 0x0033,0x02ea,0x1001,0x4000 02ba 0093 0304 | | .DBG4T 0x0093,0x0304,0x1001,0x4000 02be 0113 0336 | 6| .DBG4T 0x0113,0x0336,0x1001,0x0000 02c2 015b 0345 | [ E| .DBG4T 0x015b,0x0345,0x1001,0x0000 02c6 0173 034a | s J| .DBG4T 0x0173,0x034a,0x1002,0x0000 02ca 0183 034e | N| .DBG4T 0x0183,0x034e,0x1001,0x0000 02ce 01e3 035d | ]| .DBG4T 0x01e3,0x035d,0x1001,0x0000 02d2 01fb 0361 | a| .DBG4T 0x01fb,0x0361,0x1001,0x0000 02d6 022b 036b | + k| .DBG4T 0x022b,0x036b,0x1001,0x4000 02da ; -------------------------------------------------------------------------------------- 02da ; Debug chain 02da ; -------------------------------------------------------------------------------------- 02da 0003 0000 | | .DBGLEN 0x0003,0x0000 02dc 0010 0013 | | .DBGLNO 0x0010,0x0013,0x0016 02df ; -------------------------------------------------------------------------------------- 02df ; Debug chain 02df ; -------------------------------------------------------------------------------------- 02df 0009 0000 | | .DBGLEN 0x0009,0x0000 02e1 001a 001c | | .DBGLNO 0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a 02ea ; -------------------------------------------------------------------------------------- 02ea ; Debug chain 02ea ; -------------------------------------------------------------------------------------- 02ea 0002 000b | | .DBGLEN 0x0002,0x000b 02ec 0033 003a | 3 :| .DBGLNO 0x0033,0x003a,0x003c,0x003e,0x004f,0x0054,0x005d,0x0064,0x006a,0x0073,0x007a,0x0084,0x0088 02f9 0001 0002 | | .XXX[0xb] 02fb 000a 0003 | | 02fd 0004 0005 | | 02ff 0006 0007 | | 0301 0008 0009 | | 0303 000b | | 0304 ; -------------------------------------------------------------------------------------- 0304 ; Debug chain 0304 ; -------------------------------------------------------------------------------------- 0304 0006 0015 | | .DBGLEN 0x0006,0x0015 0306 0093 009a | | .DBGLNO 0x0093,0x009a,0x009f,0x00a6,0x00ab,0x00b2,0x00b7,0x00bc,0x00c0,0x00c7,0x00c9,0x00cd,0x00d0,0x00d2,0x00d8,0x00dc,0x00e4,0x00e7,0x00e8,0x00eb,0x00f3,0x00f7,0x00fb,0x00fe,0x0100,0x0105,0x0108 0321 0001 0003 | | .XXX[0x15] 0323 0004 0005 | | 0325 0006 0007 | | 0327 0008 0002 | | 0329 000a 000b | | 032b 000d 000e | | 032d 000f 0010 | | 032f 0011 0012 | | 0331 0013 0014 | | 0333 0009 0015 | | 0335 0016 | | 0336 ; -------------------------------------------------------------------------------------- 0336 ; Debug chain 0336 ; -------------------------------------------------------------------------------------- 0336 0002 000b | | .DBGLEN 0x0002,0x000b 0338 0113 011c | | .DBGLNO 0x0113,0x011c,0x0126,0x012a,0x012e,0x0130,0x0137,0x013a,0x0147,0x014b,0x014e,0x0152,0x0155 0345 ; -------------------------------------------------------------------------------------- 0345 ; Debug chain 0345 ; -------------------------------------------------------------------------------------- 0345 0000 0003 | | .DBGLEN 0x0000,0x0003 0347 015b 015e | [ ^| .DBGLNO 0x015b,0x015e,0x0162 034a ; -------------------------------------------------------------------------------------- 034a ; Debug chain 034a ; -------------------------------------------------------------------------------------- 034a 0001 0001 | | .DBGLEN 0x0001,0x0001 034c 0173 017a | s z| .DBGLNO 0x0173,0x017a 034e ; -------------------------------------------------------------------------------------- 034e ; Debug chain 034e ; -------------------------------------------------------------------------------------- 034e 0005 0008 | | .DBGLEN 0x0005,0x0008 0350 0183 018a | | .DBGLNO 0x0183,0x018a,0x0191,0x0193,0x0194,0x019e,0x01b7,0x01b9,0x01c0,0x01c6,0x01ce,0x01d9,0x01db 035d ; -------------------------------------------------------------------------------------- 035d ; Debug chain 035d ; -------------------------------------------------------------------------------------- 035d 0000 0002 | | .DBGLEN 0x0000,0x0002 035f 01e3 01ed | | .DBGLNO 0x01e3,0x01ed 0361 ; -------------------------------------------------------------------------------------- 0361 ; Debug chain 0361 ; -------------------------------------------------------------------------------------- 0361 0002 0006 | | .DBGLEN 0x0002,0x0006 0363 01fb 0200 | | .DBGLNO 0x01fb,0x0200,0x020a,0x020e,0x0212,0x0214,0x0218,0x021d 036b ; -------------------------------------------------------------------------------------- 036b ; Debug chain 036b ; -------------------------------------------------------------------------------------- 036b 0003 000b | | .DBGLEN 0x0003,0x000b 036d 022b 0232 | + 2| .DBGLNO 0x022b,0x0232,0x0239,0x023b,0x023f,0x0242,0x0244,0x0255,0x0259,0x025d,0x0261,0x0268,0x026f,0x0275 037b 0001 0002 | | .XXX[0xb] 037d 0003 0004 | | 037f 000a 0005 | | 0381 0006 0007 | | 0383 0008 0009 | | 0385 000b | | 0386 0000 0000 | | .BLANK 0000[0x7a]