|
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 0250 | P | .CONST 0x0250 ; 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 0052 | R | .CONST 0x0052 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; 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 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 4800 |H | Short_Literal 0x0 0014 4808 |H | Short_Literal 0x8 0015 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0017 03fe | | Declare_Type Discrete,Defined,Visible 0018 c214 | | Store 0x1,0x14 0019 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 001b c210 | | Store 0x1,0x10 001c 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001e c212 | | Store 0x1,0x12 001f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0021 c20e | | Store 0x1,0xe 0022 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0024 c211 | | Store 0x1,0x11 0025 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0027 c213 | | Store 0x1,0x13 0028 00bf | | Action Accept_Activation 0029 00e3 | | Load_Encached Natural_Cache 002a 00e3 | | Load_Encached Natural_Cache 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c 4802 |H | Short_Literal 0x2 002d 032d | - | Declare_Type Record,Defined 002e 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 0030 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0032 a001 | | Store_Unchecked 0x0,0x1 0033 00c6 | | Action Check_Subprogram_Elaborated 0034 00e1 | | Load_Encached Boolean_Cache 0035 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0036 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0037 e002 | | Load 0x0,0x2 0038 e003 | | Load 0x0,0x3 0039 4800 |H | Short_Literal 0x0 003a 0007 | | Action Break_Optional 003b 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 003d 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 003f a001 | | Store_Unchecked 0x0,0x1 0040 00c6 | | Action Check_Subprogram_Elaborated 0041 e215 | | Load 0x1,0x15 0042 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0043 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0044 e004 | | Load 0x0,0x4 0045 e005 | | Load 0x0,0x5 0046 4800 |H | Short_Literal 0x0 0047 0007 | | Action Break_Optional 0048 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0049 00c7 | | Action Elaborate_Subprogram 004a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004b 00c7 | | Action Elaborate_Subprogram 004c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004d 00c7 | | Action Elaborate_Subprogram 004e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004f 00c7 | | Action Elaborate_Subprogram 0050 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0051 00c7 | | Action Elaborate_Subprogram 0052 BODY_0008: 0052 00bc | | Action Signal_Activated 0053 00bb | | Action Signal_Completion 0054 0000 0000 | | .BLANK 0000[0x4] 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 4607 |F | Jump_Case 0x8 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7806 |x | Jump 0x64 ; case 0x1 005e 7809 |x | Jump 0x68 ; case 0x2 005f 780d |x | Jump 0x6d ; case 0x3 0060 7810 |x | Jump 0x71 ; case 0x4 0061 7811 |x | Jump 0x73 ; case 0x5 0062 7812 |x | Jump 0x75 ; case 0x6 0063 7815 |x | Jump 0x79 ; case 0x7 0064 00da | | Load_Top At_Offset_2 0065 0091 0202 | | Action Push_String_Extended_Indexed,0x202 ; "IF_STATEMENT" 0067 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0068 00db | | Load_Top At_Offset_3 0069 00db | | Load_Top At_Offset_3 006a 00e0 | | Load_Encached Standard_Cache 006b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006d 00da | | Load_Top At_Offset_2 006e 00e0 | | Load_Encached Standard_Cache 006f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0071 00db | | Load_Top At_Offset_3 0072 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0073 00db | | Load_Top At_Offset_3 0074 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0075 e214 | | Load 0x1,0x14 0076 00dc | | Load_Top At_Offset_4 0077 0267 | g | Execute Discrete,Predecessor 0078 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0079 e214 | | Load 0x1,0x14 007a 00dc | | Load_Top At_Offset_4 007b 0268 | h | Execute Discrete,Successor 007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0090 | | .CONST 0x0090 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0006 | | .CONST 0x0006 ; Number of locals 0083 INIT_0080: 0083 00e1 | | Load_Encached Boolean_Cache 0084 00e5 | | Load_Encached Long_Integer_Cache 0085 03e9 | | Declare_Variable Discrete,Duplicate 0086 e006 | | Load 0x0,0x6 0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0088 02c7 | | Declare_Variable Any 0089 00d8 | | Load_Top At_Offset_0 008a 1c00 | | Execute_Immediate Run_Utility,0x0 008b e006 | | Load 0x0,0x6 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 02c7 | | Declare_Variable Any 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 BODY_0080: 0090 e5ff | | Load 0x2,-0x1 0091 e007 | | Load 0x0,0x7 0092 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0093 4613 |F | Jump_Case 0x14 0094 7856 |xV | Jump 0xeb ; case 0x0 0095 7855 |xU | Jump 0xeb ; case 0x1 0096 7854 |xT | Jump 0xeb ; case 0x2 0097 7817 |x | Jump 0xaf ; case 0x3 0098 7850 |xP | Jump 0xe9 ; case 0x4 0099 7851 |xQ | Jump 0xeb ; case 0x5 009a 7850 |xP | Jump 0xeb ; case 0x6 009b 784f |xO | Jump 0xeb ; case 0x7 009c 784e |xN | Jump 0xeb ; case 0x8 009d 7849 |xI | Jump 0xe7 ; case 0x9 009e 784c |xL | Jump 0xeb ; case 0xa 009f 780d |x | Jump 0xad ; case 0xb 00a0 780a |x | Jump 0xab ; case 0xc 00a1 7817 |x | Jump 0xb9 ; case 0xd 00a2 7848 |xH | Jump 0xeb ; case 0xe 00a3 7847 |xG | Jump 0xeb ; case 0xf 00a4 7840 |x@ | Jump 0xe5 ; case 0x10 00a5 7845 |xE | Jump 0xeb ; case 0x11 00a6 7844 |xD | Jump 0xeb ; case 0x12 00a7 7800 |x | Jump 0xa8 ; case 0x13 00a8 e006 | | Load 0x0,0x6 00a9 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 00aa 0257 | W | Execute Discrete,Raise 00ab 4801 |H | Short_Literal 0x1 00ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ad 4800 |H | Short_Literal 0x0 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af e5ff | | Load 0x2,-0x1 00b0 e007 | | Load 0x0,0x7 00b1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00b2 e006 | | Load 0x0,0x6 00b3 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b4 7002 |p | Jump_Nonzero 0xb7 00b5 4804 |H | Short_Literal 0x4 00b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b7 4808 |H | Short_Literal 0x8 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 e5ff | | Load 0x2,-0x1 00ba e007 | | Load 0x0,0x7 00bb 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00bc 4602 |F | Jump_Case 0x3 00bd 7806 |x | Jump 0xc4 ; case 0x0 00be 7803 |x | Jump 0xc2 ; case 0x1 00bf 7800 |x | Jump 0xc0 ; case 0x2 00c0 4808 |H | Short_Literal 0x8 00c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c2 4802 |H | Short_Literal 0x2 00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c4 00d9 | | Load_Top At_Offset_1 00c5 0120 | | Execute Any,Is_Value 00c6 6803 |h | Jump_Zero 0xca 00c7 e008 | | Load 0x0,0x8 00c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c9 7801 |x | Jump 0xcb 00ca 00d9 | | Load_Top At_Offset_1 00cb 00d9 | | Load_Top At_Offset_1 00cc 0120 | | Execute Any,Is_Value 00cd 6803 |h | Jump_Zero 0xd1 00ce e008 | | Load 0x0,0x8 00cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d0 7801 |x | Jump 0xd2 00d1 00d9 | | Load_Top At_Offset_1 00d2 00e1 | | Load_Encached Boolean_Cache 00d3 e403 | | Load 0x2,0x3 00d4 e404 | | Load 0x2,0x4 00d5 e5ff | | Load 0x2,-0x1 00d6 e007 | | Load 0x0,0x7 00d7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00d8 e009 | | Load 0x0,0x9 00d9 180d | | Execute Package,Field_Execute,Field_Number 0xd 00da c404 | | Store 0x2,0x4 00db c403 | | Store 0x2,0x3 00dc c402 | | Store 0x2,0x2 00dd c406 | | Store 0x2,0x6 00de c405 | | Store 0x2,0x5 00df e402 | | Load 0x2,0x2 00e0 7002 |p | Jump_Nonzero 0xe3 00e1 4803 |H | Short_Literal 0x3 00e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e3 4808 |H | Short_Literal 0x8 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e5 4805 |H | Short_Literal 0x5 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 4807 |H | Short_Literal 0x7 00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e9 4806 |H | Short_Literal 0x6 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb 4808 |H | Short_Literal 0x8 00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fd | | .CONST 0x00fd ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0004 | | .CONST 0x0004 ; Number of locals 00f3 INIT_00f0: 00f3 e006 | | Load 0x0,0x6 00f4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f5 02c7 | | Declare_Variable Any 00f6 00db | | Load_Top At_Offset_3 00f7 a402 | | Store_Unchecked 0x2,0x2 00f8 00e1 | | Load_Encached Boolean_Cache 00f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00fa e006 | | Load 0x0,0x6 00fb 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00fc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00fd BODY_00f0: 00fd 00cf | | Action Mark_Auxiliary 00fe 7815 |x | Jump 0x114 00ff 00d9 | | Load_Top At_Offset_1 0100 00db | | Load_Top At_Offset_3 0101 e402 | | Load 0x2,0x2 0102 e006 | | Load 0x0,0x6 0103 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0104 e218 | | Load 0x1,0x18 0105 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0106 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0107 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0108 8001 | | Call 0x0,0x1 0109 c403 | | Store 0x2,0x3 010a 005a | Z | Store_Top Discrete,At_Offset_2 010b 00da | | Load_Top At_Offset_2 010c 6802 |h | Jump_Zero 0x10f 010d 4800 |H | Short_Literal 0x0 010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010f 00db | | Load_Top At_Offset_3 0110 e006 | | Load 0x0,0x6 0111 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0112 c402 | | Store 0x2,0x2 0113 00c9 | | Action Pop_Auxiliary_Loop 0114 00db | | Load_Top At_Offset_3 0115 e006 | | Load 0x0,0x6 0116 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0117 6fe7 |o | Jump_Zero 0xff 0118 00ce | | Action Pop_Auxiliary 0119 4801 |H | Short_Literal 0x1 011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012e | . | .CONST 0x012e ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 e215 | | Load 0x1,0x15 0124 0322 | " | Declare_Variable Record 0125 4800 |H | Short_Literal 0x0 0126 00d9 | | Load_Top At_Offset_1 0127 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0128 4800 |H | Short_Literal 0x0 0129 00d9 | | Load_Top At_Offset_1 012a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012b e006 | | Load 0x0,0x6 012c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 012d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 012e BODY_0120: 012e 00d8 | | Load_Top At_Offset_0 012f 00da | | Load_Top At_Offset_2 0130 e5ff | | Load 0x2,-0x1 0131 e220 | | Load 0x1,0x20 0132 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0133 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0134 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0135 8001 | | Call 0x0,0x1 0136 00d1 | | Pop_Control Pop_Count_1 0137 0059 | Y | Store_Top Discrete,At_Offset_1 0138 00d9 | | Load_Top At_Offset_1 0139 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014a | J | .CONST 0x014a ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e006 | | Load 0x0,0x6 0144 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0145 02c7 | | Declare_Variable Any 0146 00db | | Load_Top At_Offset_3 0147 e007 | | Load 0x0,0x7 0148 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0149 a402 | | Store_Unchecked 0x2,0x2 014a BODY_0140: 014a 00cf | | Action Mark_Auxiliary 014b 780d |x | Jump 0x159 014c 00d9 | | Load_Top At_Offset_1 014d e006 | | Load 0x0,0x6 014e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 014f e007 | | Load 0x0,0x7 0150 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0151 6802 |h | Jump_Zero 0x154 0152 4800 |H | Short_Literal 0x0 0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0154 00d9 | | Load_Top At_Offset_1 0155 e006 | | Load 0x0,0x6 0156 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0157 c402 | | Store 0x2,0x2 0158 00c9 | | Action Pop_Auxiliary_Loop 0159 00d9 | | Load_Top At_Offset_1 015a e006 | | Load 0x0,0x6 015b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 015c 6fef |o | Jump_Zero 0x14c 015d 00ce | | Action Pop_Auxiliary 015e 4801 |H | Short_Literal 0x1 015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016c | l | .CONST 0x016c ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 8210 | | Call 0x1,0x10 0165 e214 | | Load 0x1,0x14 0166 03f1 | | Declare_Variable Discrete,With_Value 0167 e006 | | Load 0x0,0x6 0168 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0169 02c7 | | Declare_Variable Any 016a 00d8 | | Load_Top At_Offset_0 016b 1c00 | | Execute_Immediate Run_Utility,0x0 016c BODY_0160: 016c 00d9 | | Load_Top At_Offset_1 016d 4608 |F | Jump_Case 0x9 016e 780a |x | Jump 0x179 ; case 0x0 016f 7816 |x | Jump 0x186 ; case 0x1 0170 7822 |x" | Jump 0x193 ; case 0x2 0171 7821 |x! | Jump 0x193 ; case 0x3 0172 7820 |x | Jump 0x193 ; case 0x4 0173 7821 |x! | Jump 0x195 ; case 0x5 0174 782d |x- | Jump 0x1a2 ; case 0x6 0175 782c |x, | Jump 0x1a2 ; case 0x7 0176 7800 |x | Jump 0x177 ; case 0x8 0177 4801 |H | Short_Literal 0x1 0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0179 e5ff | | Load 0x2,-0x1 017a e007 | | Load 0x0,0x7 017b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 017c c403 | | Store 0x2,0x3 017d 00d8 | | Load_Top At_Offset_0 017e e00a | | Load 0x0,0xa 017f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0180 00d8 | | Load_Top At_Offset_0 0181 00e4 | | Load_Encached Positive_Cache 0182 0260 | ` | Execute Discrete,In_Type 0183 7001 |p | Jump_Nonzero 0x185 0184 0801 | | Execute_Immediate Raise,0x1 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 e5ff | | Load 0x2,-0x1 0187 e007 | | Load 0x0,0x7 0188 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0189 c403 | | Store 0x2,0x3 018a 00d8 | | Load_Top At_Offset_0 018b e00a | | Load 0x0,0xa 018c 180d | | Execute Package,Field_Execute,Field_Number 0xd 018d 00d8 | | Load_Top At_Offset_0 018e 00e4 | | Load_Encached Positive_Cache 018f 0260 | ` | Execute Discrete,In_Type 0190 7001 |p | Jump_Nonzero 0x192 0191 0801 | | Execute_Immediate Raise,0x1 0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0193 4802 |H | Short_Literal 0x2 0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0195 e5ff | | Load 0x2,-0x1 0196 e007 | | Load 0x0,0x7 0197 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0198 c403 | | Store 0x2,0x3 0199 00d8 | | Load_Top At_Offset_0 019a e00a | | Load 0x0,0xa 019b 180d | | Execute Package,Field_Execute,Field_Number 0xd 019c 00d8 | | Load_Top At_Offset_0 019d 00e4 | | Load_Encached Positive_Cache 019e 0260 | ` | Execute Discrete,In_Type 019f 7001 |p | Jump_Nonzero 0x1a1 01a0 0801 | | Execute_Immediate Raise,0x1 01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a2 4801 |H | Short_Literal 0x1 01a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a4 0000 0000 | | .BLANK 0000[0x4] 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 8210 | | Call 0x1,0x10 01ad 0f08 | | Execute_Immediate Equal,0x8 01ae 7007 |p | Jump_Nonzero 0x1b6 01af 4801 |H | Short_Literal 0x1 01b0 a5fe | | Store_Unchecked 0x2,-0x2 01b1 4803 |H | Short_Literal 0x3 01b2 a5fd | | Store_Unchecked 0x2,-0x3 01b3 4800 |H | Short_Literal 0x0 01b4 a5fd | | Store_Unchecked 0x2,-0x3 01b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b6 4800 |H | Short_Literal 0x0 01b7 a5fd | | Store_Unchecked 0x2,-0x3 01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b9 0000 0000 | | .BLANK 0000[0x7] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4800 |H | Short_Literal 0x0 01c4 a5fd | | Store_Unchecked 0x2,-0x3 01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 8210 | | Call 0x1,0x10 01cd 0f08 | | Execute_Immediate Equal,0x8 01ce 7005 |p | Jump_Nonzero 0x1d4 01cf 00db | | Load_Top At_Offset_3 01d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d1 0a01 | | Execute_Immediate Plus,0x1 01d2 e5fe | | Load 0x2,-0x2 01d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01d4 00da | | Load_Top At_Offset_2 01d5 8210 | | Call 0x1,0x10 01d6 4806 |H | Short_Literal 0x6 01d7 4807 |H | Short_Literal 0x7 01d8 0262 | b | Execute Discrete,In_Range 01d9 7003 |p | Jump_Nonzero 0x1dd 01da 4800 |H | Short_Literal 0x0 01db a5fd | | Store_Unchecked 0x2,-0x3 01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dd 4802 |H | Short_Literal 0x2 01de a5fd | | Store_Unchecked 0x2,-0x3 01df 4502 |E | Exit_Suprogram New_Top_Offset 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 00da | | Load_Top At_Offset_2 01e4 8210 | | Call 0x1,0x10 01e5 0f08 | | Execute_Immediate Equal,0x8 01e6 700f |p | Jump_Nonzero 0x1f6 01e7 00db | | Load_Top At_Offset_3 01e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e9 e5fe | | Load 0x2,-0x2 01ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01eb 027d | } | Execute Discrete,Greater 01ec 6804 |h | Jump_Zero 0x1f1 01ed 00db | | Load_Top At_Offset_3 01ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ef e5fe | | Load 0x2,-0x2 01f0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f1 00db | | Load_Top At_Offset_3 01f2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f3 0aff | | Execute_Immediate Plus,-0x1 01f4 e5fe | | Load 0x2,-0x2 01f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f6 00da | | Load_Top At_Offset_2 01f7 8210 | | Call 0x1,0x10 01f8 4806 |H | Short_Literal 0x6 01f9 4807 |H | Short_Literal 0x7 01fa 0262 | b | Execute Discrete,In_Range 01fb 7003 |p | Jump_Nonzero 0x1ff 01fc 4800 |H | Short_Literal 0x0 01fd a5fd | | Store_Unchecked 0x2,-0x3 01fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ff 4802 |H | Short_Literal 0x2 0200 a5fd | | Store_Unchecked 0x2,-0x3 0201 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0202 ; -------------------------------------------------------------------------------------- 0202 ; STRING TABLE 0202 ; -------------------------------------------------------------------------------------- 0202 0014 | | .STRTAB 0x0014->0x020c ; "IF_STATEMENT" 0203 001e | | .STRTAB 0x001e->0x0212 ; "CASE_STATEMENT" 0204 002a | * | .STRTAB 0x002a->0x0219 ; "WHILE_LOOP" 0205 0032 | 2 | .STRTAB 0x0032->0x021e ; "NON_STATIC_FOR_LOOP" 0206 0043 | C | .STRTAB 0x0043->0x0227 ; "EXIT_WHEN" 0207 004a | J | .STRTAB 0x004a->0x022c ; "SELECT_STATEMENT" 0208 0058 | X | .STRTAB 0x0058->0x0234 ; "RETURN_STATEMENT" 0209 0066 | f | .STRTAB 0x0066->0x023c ; "RAISE_STATEMENT" 020a 0073 | s | .STRTAB 0x0073->0x0243 ; "NOT_A_BRANCH" 020b 007d | } | .STREND 0x007d->0x0249 020c 4946 5f53 |IF_S| .STRTAB_STRINGS 024a 0000 0000 | | .BLANK 0000[0x6] 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2e82,0x0000,0x0001,0x000c 0256 000b 0286 | | .DBG4T 0x000b,0x0286,0x8000,0x0000 025a 0029 028e | ) | .DBG4T 0x0029,0x028e,0x8000,0x0000 025e 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000 0262 0083 029c | | .DBG4T 0x0083,0x029c,0x0002,0x4000 0266 00f3 02c5 | | .DBG4T 0x00f3,0x02c5,0x0002,0x4000 026a 0123 02d6 | # | .DBG4T 0x0123,0x02d6,0x0002,0x0000 026e 0143 02dc | C | .DBG4T 0x0143,0x02dc,0x0002,0x4000 0272 0163 02e9 | c | .DBG4T 0x0163,0x02e9,0x0002,0x4000 0276 01ab 0301 | | .DBG4T 0x01ab,0x0301,0x0001,0x4000 027a 01c3 030d | | .DBG4T 0x01c3,0x030d,0x0001,0x0000 027e 01cb 0310 | | .DBG4T 0x01cb,0x0310,0x0001,0x4000 0282 01e3 031c | | .DBG4T 0x01e3,0x031c,0x0001,0x4000 0286 ; -------------------------------------------------------------------------------------- 0286 ; Debug chain 0286 ; -------------------------------------------------------------------------------------- 0286 0006 0000 | | .DBGLEN 0x0006,0x0000 0288 0013 0019 | | .DBGLNO 0x0013,0x0019,0x001c,0x001f,0x0022,0x0025 028e ; -------------------------------------------------------------------------------------- 028e ; Debug chain 028e ; -------------------------------------------------------------------------------------- 028e 000c 0000 | | .DBGLEN 0x000c,0x0000 0290 0029 002e | ) .| .DBGLNO 0x0029,0x002e,0x0030,0x0032,0x003b,0x003d,0x003f,0x0048,0x004a,0x004c,0x004e,0x0050 029c ; -------------------------------------------------------------------------------------- 029c ; Debug chain 029c ; -------------------------------------------------------------------------------------- 029c 0003 0012 | | .DBGLEN 0x0003,0x0012 029e 0083 0084 | | .DBGLNO 0x0083,0x0084,0x0086,0x0090,0x00a8,0x00ab,0x00ad,0x00af,0x00b5,0x00b7,0x00b9,0x00c0,0x00c2,0x00c4,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb 02b3 0001 0011 | | .XXX[0x12] 02b5 0002 0003 | | 02b7 0004 0005 | | 02b9 0006 0007 | | 02bb 000d 0008 | | 02bd 0009 000a | | 02bf 000b 000c | | 02c1 000e 000f | | 02c3 0010 0012 | | 02c5 ; -------------------------------------------------------------------------------------- 02c5 ; Debug chain 02c5 ; -------------------------------------------------------------------------------------- 02c5 0003 0006 | | .DBGLEN 0x0003,0x0006 02c7 00f3 00f8 | | .DBGLNO 0x00f3,0x00f8,0x00fa,0x00ff,0x010b,0x010d,0x010f,0x0114,0x0119 02d0 0002 0003 | | .XXX[0x6] 02d2 0004 0005 | | 02d4 0001 0006 | | 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; Debug chain 02d6 ; -------------------------------------------------------------------------------------- 02d6 0002 0002 | | .DBGLEN 0x0002,0x0002 02d8 0123 012b | # +| .DBGLNO 0x0123,0x012b,0x012e,0x0138 02dc ; -------------------------------------------------------------------------------------- 02dc ; Debug chain 02dc ; -------------------------------------------------------------------------------------- 02dc 0001 0005 | | .DBGLEN 0x0001,0x0005 02de 0143 014c | C L| .DBGLNO 0x0143,0x014c,0x0152,0x0154,0x0159,0x015e 02e4 0002 0003 | | .XXX[0x5] 02e6 0004 0001 | | 02e8 0005 | | 02e9 ; -------------------------------------------------------------------------------------- 02e9 ; Debug chain 02e9 ; -------------------------------------------------------------------------------------- 02e9 0002 000a | | .DBGLEN 0x0002,0x000a 02eb 0163 0167 | c g| .DBGLNO 0x0163,0x0167,0x016c,0x0177,0x0179,0x017d,0x0186,0x018a,0x0193,0x0195,0x0199,0x01a2 02f7 0001 000a | | .XXX[0xa] 02f9 0002 0003 | | 02fb 0004 0005 | | 02fd 0006 0007 | | 02ff 0008 0009 | | 0301 ; -------------------------------------------------------------------------------------- 0301 ; Debug chain 0301 ; -------------------------------------------------------------------------------------- 0301 0000 0005 | | .DBGLEN 0x0000,0x0005 0303 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b1,0x01b3,0x01b6 0308 0001 0003 | | .XXX[0x5] 030a 0004 0005 | | 030c 0002 | | 030d ; -------------------------------------------------------------------------------------- 030d ; Debug chain 030d ; -------------------------------------------------------------------------------------- 030d 0000 0001 | | .DBGLEN 0x0000,0x0001 030f 01c3 | | .DBGLNO 0x01c3 0310 ; -------------------------------------------------------------------------------------- 0310 ; Debug chain 0310 ; -------------------------------------------------------------------------------------- 0310 0000 0005 | | .DBGLEN 0x0000,0x0005 0312 01cb 01cf | | .DBGLNO 0x01cb,0x01cf,0x01d4,0x01da,0x01dd 0317 0001 0003 | | .XXX[0x5] 0319 0004 0006 | | 031b 0005 | | 031c ; -------------------------------------------------------------------------------------- 031c ; Debug chain 031c ; -------------------------------------------------------------------------------------- 031c 0000 0007 | | .DBGLEN 0x0000,0x0007 031e 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7,0x01ed,0x01f1,0x01f6,0x01fc,0x01ff 0325 0001 0003 | | .XXX[0x7] 0327 0004 0005 | | 0329 0006 0008 | | 032b 0007 | | 032c 0000 0000 | | .BLANK 0000[0xd4]