|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0230 | 0 | .CONST 0x0230 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0013 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0019 00c7 | | Action Elaborate_Subprogram 001a 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 001c 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001f 00c7 | | Action Elaborate_Subprogram 0020 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0023 00c7 | | Action Elaborate_Subprogram 0024 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0025 00c7 | | Action Elaborate_Subprogram 0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0027 00c7 | | Action Elaborate_Subprogram 0028 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0029 00c7 | | Action Elaborate_Subprogram 002a BODY_0008: 002a 00bc | | Action Signal_Activated 002b 00bb | | Action Signal_Completion 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0037 | 7 | .CONST 0x0037 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0002 | | .CONST 0x0002 ; Number of locals 0033 INIT_0030: 0033 00da | | Load_Top At_Offset_2 0034 e5fe | | Load 0x2,-0x2 0035 00e5 | | Load_Encached Long_Integer_Cache 0036 03f8 | | Declare_Type Discrete,Constrained 0037 BODY_0030: 0037 00d8 | | Load_Top At_Offset_0 0038 012c | , | Execute Any,Size 0039 00d8 | | Load_Top At_Offset_0 003a 00e3 | | Load_Encached Natural_Cache 003b 0260 | ` | Execute Discrete,In_Type 003c 7001 |p | Jump_Nonzero 0x3e 003d 0801 | | Execute_Immediate Raise,0x1 003e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 003f 0000 | | .XXX[0x1] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0044 | D | .CONST 0x0044 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 00e5 | | Load_Encached Long_Integer_Cache 0044 BODY_0040: 0044 00db | | Load_Top At_Offset_3 0045 e001 | | Load 0x0,0x1 0046 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0047 0b03 | | Execute_Immediate Case_Compare,0x3 0048 7003 |p | Jump_Nonzero 0x4c 0049 0f04 | | Execute_Immediate Equal,0x4 004a 701b |p | Jump_Nonzero 0x66 004b 08e2 | | Execute_Immediate Raise,0xe2 004c 00d1 | | Pop_Control Pop_Count_1 004d 00db | | Load_Top At_Offset_3 004e e001 | | Load 0x0,0x1 004f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0050 e002 | | Load 0x0,0x2 0051 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0052 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0053 00d8 | | Load_Top At_Offset_0 0054 0d00 | | Execute_Immediate Less,0x0 0055 6808 |h | Jump_Zero 0x5e 0056 4820 |H | Short_Literal 0x20 0057 4800 |H | Short_Literal 0x0 0058 480a |H | Short_Literal 0xa 0059 4800 |H | Short_Literal 0x0 005a e402 | | Load 0x2,0x2 005b 820d | | Call 0x1,0xd 005c 8003 | | Call 0x0,0x3 005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005e 4820 |H | Short_Literal 0x20 005f 4800 |H | Short_Literal 0x0 0060 480a |H | Short_Literal 0xa 0061 00db | | Load_Top At_Offset_3 0062 4800 |H | Short_Literal 0x0 0063 820d | | Call 0x1,0xd 0064 8003 | | Call 0x0,0x3 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 0092 0229 | )| Action Push_String_Extended,0x229 ; "64" 0068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0085 | | .CONST 0x0085 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0006 | | .CONST 0x0006 ; Number of locals 0073 INIT_0070: 0073 e004 | | Load 0x0,0x4 0074 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0075 02c7 | | Declare_Variable Any 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 e004 | | Load 0x0,0x4 0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007a 02c7 | | Declare_Variable Any 007b 00d8 | | Load_Top At_Offset_0 007c 1c00 | | Execute_Immediate Run_Utility,0x0 007d e004 | | Load 0x0,0x4 007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007f 02c7 | | Declare_Variable Any 0080 00d8 | | Load_Top At_Offset_0 0081 1c00 | | Execute_Immediate Run_Utility,0x0 0082 00e3 | | Load_Encached Natural_Cache 0083 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0084 03e9 | | Declare_Variable Discrete,Duplicate 0085 BODY_0070: 0085 e5ff | | Load 0x2,-0x1 0086 e005 | | Load 0x0,0x5 0087 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0088 c402 | | Store 0x2,0x2 0089 00cf | | Action Mark_Auxiliary 008a 7828 |x( | Jump 0xb3 008b e402 | | Load 0x2,0x2 008c e004 | | Load 0x0,0x4 008d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008e c403 | | Store 0x2,0x3 008f e403 | | Load 0x2,0x3 0090 e001 | | Load 0x0,0x1 0091 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0092 4824 |H$ | Short_Literal 0x24 0093 4825 |H% | Short_Literal 0x25 0094 0262 | b | Execute Discrete,In_Range 0095 7003 |p | Jump_Nonzero 0x99 0096 4800 |H | Short_Literal 0x0 0097 a5fc | | Store_Unchecked 0x2,-0x4 0098 7815 |x | Jump 0xae 0099 e403 | | Load 0x2,0x3 009a e001 | | Load 0x0,0x1 009b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 009c c404 | | Store 0x2,0x4 009d e5fc | | Load 0x2,-0x4 009e 00e3 | | Load_Encached Natural_Cache 009f e5fe | | Load 0x2,-0x2 00a0 e404 | | Load 0x2,0x4 00a1 8006 | | Call 0x0,0x6 00a2 c405 | | Store 0x2,0x5 00a3 c5fc | | Store 0x2,-0x4 00a4 e5fc | | Load 0x2,-0x4 00a5 6805 |h | Jump_Zero 0xab 00a6 00d9 | | Load_Top At_Offset_1 00a7 00db | | Load_Top At_Offset_3 00a8 0273 | s | Execute Discrete,Plus 00a9 005a | Z | Store_Top Discrete,At_Offset_2 00aa 7803 |x | Jump 0xae 00ab 4800 |H | Short_Literal 0x0 00ac a5fd | | Store_Unchecked 0x2,-0x3 00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ae e402 | | Load 0x2,0x2 00af e004 | | Load 0x0,0x4 00b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b1 c402 | | Store 0x2,0x2 00b2 00c9 | | Action Pop_Auxiliary_Loop 00b3 e402 | | Load 0x2,0x2 00b4 e004 | | Load 0x0,0x4 00b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b6 6fd4 |o | Jump_Zero 0x8b 00b7 00ce | | Action Pop_Auxiliary 00b8 00d8 | | Load_Top At_Offset_0 00b9 a5fd | | Store_Unchecked 0x2,-0x3 00ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c8 | | .CONST 0x00c8 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 e002 | | Load 0x0,0x2 00c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c5 02c7 | | Declare_Variable Any 00c6 00d8 | | Load_Top At_Offset_0 00c7 1c00 | | Execute_Immediate Run_Utility,0x0 00c8 BODY_00c0: 00c8 00db | | Load_Top At_Offset_3 00c9 e007 | | Load 0x0,0x7 00ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00cb c402 | | Store 0x2,0x2 00cc 00d8 | | Load_Top At_Offset_0 00cd e004 | | Load 0x0,0x4 00ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 00cf 6805 |h | Jump_Zero 0xd5 00d0 4818 |H | Short_Literal 0x18 00d1 a5fd | | Store_Unchecked 0x2,-0x3 00d2 4801 |H | Short_Literal 0x1 00d3 a5fc | | Store_Unchecked 0x2,-0x4 00d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d5 00d8 | | Load_Top At_Offset_0 00d6 e002 | | Load 0x0,0x2 00d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d8 7005 |p | Jump_Nonzero 0xde 00d9 4800 |H | Short_Literal 0x0 00da a5fd | | Store_Unchecked 0x2,-0x3 00db 4800 |H | Short_Literal 0x0 00dc a5fc | | Store_Unchecked 0x2,-0x4 00dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00de 00d8 | | Load_Top At_Offset_0 00df e002 | | Load 0x0,0x2 00e0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e1 8213 | | Call 0x1,0x13 00e2 a5fd | | Store_Unchecked 0x2,-0x3 00e3 4801 |H | Short_Literal 0x1 00e4 a5fc | | Store_Unchecked 0x2,-0x4 00e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f2 | | .CONST 0x00f2 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb 00e3 | | Load_Encached Natural_Cache 00ec e005 | | Load 0x0,0x5 00ed 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ee 02c7 | | Declare_Variable Any 00ef 00d8 | | Load_Top At_Offset_0 00f0 1c00 | | Execute_Immediate Run_Utility,0x0 00f1 00e3 | | Load_Encached Natural_Cache 00f2 BODY_00e8: 00f2 4800 |H | Short_Literal 0x0 00f3 a5fc | | Store_Unchecked 0x2,-0x4 00f4 e5ff | | Load 0x2,-0x1 00f5 e005 | | Load 0x0,0x5 00f6 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 00f7 c403 | | Store 0x2,0x3 00f8 e5fb | | Load 0x2,-0x5 00f9 00e3 | | Load_Encached Natural_Cache 00fa e5fd | | Load 0x2,-0x3 00fb e403 | | Load 0x2,0x3 00fc 8006 | | Call 0x0,0x6 00fd 005a | Z | Store_Top Discrete,At_Offset_2 00fe c5fb | | Store 0x2,-0x5 00ff e5fb | | Load 0x2,-0x5 0100 680c |h | Jump_Zero 0x10d 0101 e5fb | | Load 0x2,-0x5 0102 00e3 | | Load_Encached Natural_Cache 0103 e5fe | | Load 0x2,-0x2 0104 8215 | | Call 0x1,0x15 0105 c402 | | Store 0x2,0x2 0106 c5fb | | Store 0x2,-0x5 0107 e5fb | | Load 0x2,-0x5 0108 6804 |h | Jump_Zero 0x10d 0109 00da | | Load_Top At_Offset_2 010a 00d9 | | Load_Top At_Offset_1 010b 0271 | q | Execute Discrete,Times 010c c5fc | | Store 0x2,-0x4 010d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0126 | & | .CONST 0x0126 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0006 | | .CONST 0x0006 ; Number of locals 0113 INIT_0110: 0113 e005 | | Load 0x0,0x5 0114 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0115 02c7 | | Declare_Variable Any 0116 e5fe | | Load 0x2,-0x2 0117 e005 | | Load 0x0,0x5 0118 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0119 a402 | | Store_Unchecked 0x2,0x2 011a e005 | | Load 0x0,0x5 011b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 011c 02c7 | | Declare_Variable Any 011d 00d8 | | Load_Top At_Offset_0 011e 1c00 | | Execute_Immediate Run_Utility,0x0 011f e005 | | Load 0x0,0x5 0120 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0121 02c7 | | Declare_Variable Any 0122 00d8 | | Load_Top At_Offset_0 0123 1c00 | | Execute_Immediate Run_Utility,0x0 0124 00e5 | | Load_Encached Long_Integer_Cache 0125 03e9 | | Declare_Variable Discrete,Duplicate 0126 BODY_0110: 0126 e402 | | Load 0x2,0x2 0127 e005 | | Load 0x0,0x5 0128 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0129 460c |F | Jump_Case 0xd 012a 780c |x | Jump 0x137 ; case 0x0 012b 7810 |x | Jump 0x13c ; case 0x1 012c 7822 |x" | Jump 0x14f ; case 0x2 012d 785c |x\ | Jump 0x18a ; case 0x3 012e 7833 |x3 | Jump 0x162 ; case 0x4 012f 785f |x_ | Jump 0x18f ; case 0x5 0130 7869 |xi | Jump 0x19a ; case 0x6 0131 7805 |x | Jump 0x137 ; case 0x7 0132 7804 |x | Jump 0x137 ; case 0x8 0133 7803 |x | Jump 0x137 ; case 0x9 0134 7802 |x | Jump 0x137 ; case 0xa 0135 7801 |x | Jump 0x137 ; case 0xb 0136 7800 |x | Jump 0x137 ; case 0xc 0137 4800 |H | Short_Literal 0x0 0138 a5fb | | Store_Unchecked 0x2,-0x5 0139 4800 |H | Short_Literal 0x0 013a a5fa | | Store_Unchecked 0x2,-0x6 013b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 013c 00e1 | | Load_Encached Boolean_Cache 013d 00d9 | | Load_Top At_Offset_1 013e 00db | | Load_Top At_Offset_3 013f e5fd | | Load 0x2,-0x3 0140 e008 | | Load 0x0,0x8 0141 180f | | Execute Package,Field_Execute,Field_Number 0xf 0142 c405 | | Store 0x2,0x5 0143 005a | Z | Store_Top Discrete,At_Offset_2 0144 c5fa | | Store 0x2,-0x6 0145 e5fa | | Load 0x2,-0x6 0146 6805 |h | Jump_Zero 0x14c 0147 00d8 | | Load_Top At_Offset_0 0148 00da | | Load_Top At_Offset_2 0149 820d | | Call 0x1,0xd 014a a5fb | | Store_Unchecked 0x2,-0x5 014b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 014c 4800 |H | Short_Literal 0x0 014d a5fb | | Store_Unchecked 0x2,-0x5 014e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 014f 00e1 | | Load_Encached Boolean_Cache 0150 00d9 | | Load_Top At_Offset_1 0151 00db | | Load_Top At_Offset_3 0152 e5fd | | Load 0x2,-0x3 0153 e008 | | Load 0x0,0x8 0154 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0155 c405 | | Store 0x2,0x5 0156 005a | Z | Store_Top Discrete,At_Offset_2 0157 c5fa | | Store 0x2,-0x6 0158 e5fa | | Load 0x2,-0x6 0159 6805 |h | Jump_Zero 0x15f 015a 00d8 | | Load_Top At_Offset_0 015b 00da | | Load_Top At_Offset_2 015c 820d | | Call 0x1,0xd 015d a5fb | | Store_Unchecked 0x2,-0x5 015e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 015f 4800 |H | Short_Literal 0x0 0160 a5fb | | Store_Unchecked 0x2,-0x5 0161 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0162 00da | | Load_Top At_Offset_2 0163 0120 | | Execute Any,Is_Value 0164 6803 |h | Jump_Zero 0x168 0165 e005 | | Load 0x0,0x5 0166 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0167 7801 |x | Jump 0x169 0168 00da | | Load_Top At_Offset_2 0169 e403 | | Load 0x2,0x3 016a 0120 | | Execute Any,Is_Value 016b 6803 |h | Jump_Zero 0x16f 016c e005 | | Load 0x0,0x5 016d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 016e 7801 |x | Jump 0x170 016f e403 | | Load 0x2,0x3 0170 e5fd | | Load 0x2,-0x3 0171 00d8 | | Load_Top At_Offset_0 0172 e5ff | | Load 0x2,-0x1 0173 8009 | | Call 0x0,0x9 0174 c403 | | Store 0x2,0x3 0175 c404 | | Store 0x2,0x4 0176 00e1 | | Load_Encached Boolean_Cache 0177 00d9 | | Load_Top At_Offset_1 0178 00db | | Load_Top At_Offset_3 0179 e403 | | Load 0x2,0x3 017a e404 | | Load 0x2,0x4 017b e008 | | Load 0x0,0x8 017c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017d c405 | | Store 0x2,0x5 017e 005a | Z | Store_Top Discrete,At_Offset_2 017f c5fa | | Store 0x2,-0x6 0180 e5fa | | Load 0x2,-0x6 0181 6805 |h | Jump_Zero 0x187 0182 00d8 | | Load_Top At_Offset_0 0183 00da | | Load_Top At_Offset_2 0184 820d | | Call 0x1,0xd 0185 a5fb | | Store_Unchecked 0x2,-0x5 0186 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0187 4800 |H | Short_Literal 0x0 0188 a5fb | | Store_Unchecked 0x2,-0x5 0189 4505 |E | Exit_Suprogram New_Top_Offset 0x5 018a 4840 |H@ | Short_Literal 0x40 018b a5fb | | Store_Unchecked 0x2,-0x5 018c 4801 |H | Short_Literal 0x1 018d a5fa | | Store_Unchecked 0x2,-0x6 018e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 018f e5fa | | Load 0x2,-0x6 0190 00e3 | | Load_Encached Natural_Cache 0191 e5fc | | Load 0x2,-0x4 0192 e5fd | | Load 0x2,-0x3 0193 e005 | | Load 0x0,0x5 0194 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0195 e402 | | Load 0x2,0x2 0196 8211 | | Call 0x1,0x11 0197 c5fb | | Store 0x2,-0x5 0198 c5fa | | Store 0x2,-0x6 0199 4505 |E | Exit_Suprogram New_Top_Offset 0x5 019a e5fa | | Load 0x2,-0x6 019b 00e3 | | Load_Encached Natural_Cache 019c e5fc | | Load 0x2,-0x4 019d e402 | | Load 0x2,0x2 019e 820f | | Call 0x1,0xf 019f c5fb | | Store 0x2,-0x5 01a0 c5fa | | Store 0x2,-0x6 01a1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a2 0000 0000 | | .BLANK 0000[0x6] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b7 | | .CONST 0x01b7 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab 4800 |H | Short_Literal 0x0 01ac 00db | | Load_Top At_Offset_3 01ad 00d8 | | Load_Top At_Offset_0 01ae 00e3 | | Load_Encached Natural_Cache 01af 0260 | ` | Execute Discrete,In_Type 01b0 7001 |p | Jump_Nonzero 0x1b2 01b1 0801 | | Execute_Immediate Raise,0x1 01b2 0aff | | Execute_Immediate Plus,-0x1 01b3 00e3 | | Load_Encached Natural_Cache 01b4 03f8 | | Declare_Type Discrete,Constrained 01b5 00d8 | | Load_Top At_Offset_0 01b6 0007 | | Action Break_Optional 01b7 BODY_01a8: 01b7 00d9 | | Load_Top At_Offset_1 01b8 012c | , | Execute Any,Size 01b9 00d8 | | Load_Top At_Offset_0 01ba 00e3 | | Load_Encached Natural_Cache 01bb 0260 | ` | Execute Discrete,In_Type 01bc 7001 |p | Jump_Nonzero 0x1be 01bd 0801 | | Execute_Immediate Raise,0x1 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c4 | | .CONST 0x01c4 ; Address of begin 01c1 01d0 | | .CONST 0x01d0 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 00e3 | | Load_Encached Natural_Cache 01c4 BODY_01c0: 01c4 e5fe | | Load 0x2,-0x2 01c5 e5ff | | Load 0x2,-0x1 01c6 0272 | r | Execute Discrete,Minus 01c7 0a01 | | Execute_Immediate Plus,0x1 01c8 00d8 | | Load_Top At_Offset_0 01c9 00e3 | | Load_Encached Natural_Cache 01ca 0260 | ` | Execute Discrete,In_Type 01cb 7001 |p | Jump_Nonzero 0x1cd 01cc 0801 | | Execute_Immediate Raise,0x1 01cd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01ce 00d8 | | Load_Top At_Offset_0 01cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d0 TRAP_01c0: 01d0 010e | | Execute Exception,Is_Constraint_Error 01d1 6802 |h | Jump_Zero 0x1d4 01d2 4800 |H | Short_Literal 0x0 01d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d4 0100 | | Execute Exception,Raise 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01f3 | | .CONST 0x01f3 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0008 | | .CONST 0x0008 ; Number of locals 01db INIT_01d8: 01db e004 | | Load 0x0,0x4 01dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01dd 02c7 | | Declare_Variable Any 01de 00db | | Load_Top At_Offset_3 01df a402 | | Store_Unchecked 0x2,0x2 01e0 e005 | | Load 0x0,0x5 01e1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01e2 02c7 | | Declare_Variable Any 01e3 00d8 | | Load_Top At_Offset_0 01e4 1c00 | | Execute_Immediate Run_Utility,0x0 01e5 e005 | | Load 0x0,0x5 01e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e7 02c7 | | Declare_Variable Any 01e8 00d8 | | Load_Top At_Offset_0 01e9 1c00 | | Execute_Immediate Run_Utility,0x0 01ea e005 | | Load 0x0,0x5 01eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ec 02c7 | | Declare_Variable Any 01ed 00d8 | | Load_Top At_Offset_0 01ee 1c00 | | Execute_Immediate Run_Utility,0x0 01ef 00e5 | | Load_Encached Long_Integer_Cache 01f0 03e9 | | Declare_Variable Discrete,Duplicate 01f1 00e3 | | Load_Encached Natural_Cache 01f2 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01f3 BODY_01d8: 01f3 4801 |H | Short_Literal 0x1 01f4 a5fd | | Store_Unchecked 0x2,-0x3 01f5 00cf | | Action Mark_Auxiliary 01f6 782a |x* | Jump 0x221 01f7 e402 | | Load 0x2,0x2 01f8 e004 | | Load 0x0,0x4 01f9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01fa c403 | | Store 0x2,0x3 01fb e405 | | Load 0x2,0x5 01fc 0120 | | Execute Any,Is_Value 01fd 6803 |h | Jump_Zero 0x201 01fe e002 | | Load 0x0,0x2 01ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0200 7801 |x | Jump 0x202 0201 e405 | | Load 0x2,0x5 0202 e404 | | Load 0x2,0x4 0203 0120 | | Execute Any,Is_Value 0204 6803 |h | Jump_Zero 0x208 0205 e002 | | Load 0x0,0x2 0206 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0207 7801 |x | Jump 0x209 0208 e404 | | Load 0x2,0x4 0209 e5fd | | Load 0x2,-0x3 020a e407 | | Load 0x2,0x7 020b e406 | | Load 0x2,0x6 020c e403 | | Load 0x2,0x3 020d e008 | | Load 0x0,0x8 020e 180d | | Execute Package,Field_Execute,Field_Number 0xd 020f c406 | | Store 0x2,0x6 0210 c407 | | Store 0x2,0x7 0211 c5fd | | Store 0x2,-0x3 0212 c404 | | Store 0x2,0x4 0213 c405 | | Store 0x2,0x5 0214 e5fd | | Load 0x2,-0x3 0215 680f |h | Jump_Zero 0x225 0216 00d9 | | Load_Top At_Offset_1 0217 00db | | Load_Top At_Offset_3 0218 e406 | | Load 0x2,0x6 0219 8214 | | Call 0x1,0x14 021a 0271 | q | Execute Discrete,Times 021b 005a | Z | Store_Top Discrete,At_Offset_2 021c e402 | | Load 0x2,0x2 021d e004 | | Load 0x0,0x4 021e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021f c402 | | Store 0x2,0x2 0220 00c9 | | Action Pop_Auxiliary_Loop 0221 e402 | | Load 0x2,0x2 0222 e004 | | Load 0x0,0x4 0223 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0224 6fd2 |o | Jump_Zero 0x1f7 0225 00ce | | Action Pop_Auxiliary 0226 00d8 | | Load_Top At_Offset_0 0227 a5fe | | Store_Unchecked 0x2,-0x2 0228 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0229 ; -------------------------------------------------------------------------------------- 0229 ; STRING TABLE 0229 ; -------------------------------------------------------------------------------------- 0229 0004 | | .STRTAB 0x0004->0x022b ; "64" 022a 0004 | | .STREND 0x0004->0x022c 022b 3634 |64 | .STRTAB_STRINGS 022c 0000 0000 | | .BLANK 0000[0x4] 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug Table 0230 ; -------------------------------------------------------------------------------------- 0230 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcde,0x0000,0x0001,0x0000 0236 e972 2ac5 | r* | .XXX[0x1ca] 0238 9466 32c4 | f2 | 023a dc92 3ac7 | : | 023c 608e 8e4e |` N| 023e 9f53 748d | St | 0240 424e 56c7 |BNV | 0242 848c 0436 | 6| 0244 b751 f1d9 | Q | 0246 8c26 f203 | & | 0248 b2a0 4576 | Ev| 024a 09d9 7eb8 | ~ | 024c 5575 76b2 |Uuv | 024e 92c7 8053 | S| 0250 a133 bd0b | 3 | 0252 3709 9a4e |7 N| 0254 3a78 8575 |:x u| 0256 3207 0352 |2 R| 0258 227b 014b |"{ K| 025a e275 9059 | u Y| 025c d337 fa37 | 7 7| 025e 2352 f0f2 |#R | 0260 e2fa d607 | | 0262 3352 7fa3 |3R | 0264 3b52 653c |;Re<| 0266 250c d033 |% 3| 0268 c469 fa4f | i O| 026a d05b 0ec4 | [ | 026c 9866 a9da | f | 026e b9db 6752 | gR| 0270 1e4c b3ca | L | 0272 264c 0b1e |&L | 0274 f823 7b51 | #{Q| 0276 29b6 ddda |) | 0278 4dcc 7c93 |M | | 027a 370a eddb |7 | 027c 52c5 c64d |R M| 027e 29a7 62c7 |) b | 0280 0fbf af50 | P| 0282 2f53 19da |/S | 0284 7a4e 8f53 |zN S| 0286 c750 7084 | Pp | 0288 13c8 1827 | '| 028a 96c7 db53 | S| 028c 41db e353 |A S| 028e 49db aac7 |I | 0290 50bb b2c7 |P | 0292 fb51 3490 | Q4 | 0294 0355 290c | U) | 0296 0b56 ce4c | V L| 0298 1356 de4f | V O| 029a dac4 1f56 | V| 029c ee4d 8092 | M | 029e a376 0574 | v t| 02a0 cab5 b473 | s| 02a2 0e4e 1977 | N w| 02a4 164d 8d0c | M | 02a6 5355 d093 |SU | 02a8 d5d8 2b78 | +x| 02aa 2aca 1bbc |* | 02ac 6f55 47b8 |oUG | 02ae 5092 5977 |P Yw| 02b0 b7b8 7f56 | V| 02b2 0444 8756 | D V| 02b4 a380 11dc | | 02b6 2934 19de |)4 | 02b8 c380 21dc | ! | 02ba 6acb 901f |j | 02bc 7e4d 16b4 |~M | 02be b756 f5bc | V | 02c0 e8f0 c356 | V| 02c2 b777 dea5 | w | 02c4 15fb e154 | T| 02c6 96c8 c8f7 | | 02c8 a7a4 61dc | a | 02ca 8881 16b4 | | 02cc aec8 6860 | h`| 02ce 79de ff0a |y | 02d0 524f 0709 |RO | 02d2 cc8f 3bc5 | ; | 02d4 4c2e f779 |L. y| 02d6 82b1 2728 | '(| 02d8 0280 d9d9 | | 02da 802c 0e80 | , | 02dc ae03 3f09 | ? | 02de d000 ba01 | | 02e0 1533 b2b7 | 3 | 02e2 a060 3283 | `2 | 02e4 76ba 3110 |v 1 | 02e6 de03 cd9a | | 02e8 c22a fab6 | * | 02ea 70a0 787e |p x~| 02ec f76a a0b6 | j | 02ee bf32 2bc8 | 2+ | 02f0 848f 4249 | BI| 02f2 b526 9ab5 | & | 02f4 0256 0808 | V | 02f6 936b 2862 | k(b| 02f8 6b38 0f29 |k8 )| 02fa b098 6c21 | l!| 02fc 29f9 3b31 |) ;1| 02fe 840a 736d | sm| 0300 8b30 324c | 02L| 0302 333b da4c |3; L| 0304 2f37 b119 |/7 | 0306 5f33 17ca |_3 | 0308 011e 6b39 | k9| 030a 0734 a6b9 | 4 | 030c 12c0 1cb9 | | 030e 7f32 d40b | 2 | 0310 1bc9 6d86 | m | 0312 6b3a 1ba9 |k: | 0314 b09b b2b8 | | 0316 240d a332 |$ 2| 0318 f3c9 3410 | 4 | 031a b76f 1fcb | o | 031c 5a4b 1e27 |ZK '| 031e ceb4 beaf | | 0320 dcb0 408d | @ | 0322 cb30 1404 | 0 | 0324 ea4a 5a88 | JZ | 0326 f9dd e5b8 | | 0328 102d e733 | - 3| 032a a7c8 50b4 | P | 032c 324c 399f |2L9 | 032e 4248 c560 |BH `| 0330 2ee2 4ede |. N | 0332 9733 5a4a | 3ZJ| 0334 050b d7c9 | | 0336 12c0 7ec2 | ~ | 0338 2333 35a7 |#35 | 033a e7c9 6abf | j | 033c 6bc8 fe50 |k P| 033e be53 6ca8 | Sl | 0340 4c75 5f6a |Lu_j| 0342 d7cb d725 | %| 0344 633c 9f34 |c< 4| 0346 d240 75e0 | @u | 0348 3651 4e6d |6QNm| 034a 7f6a 4b33 | jK3| 034c 9a4d b073 | M s| 034e 424b 05d4 |BK | 0350 95e2 1f31 | 1| 0352 9b68 0404 | h | 0354 07cd e198 | | 0356 e334 249c | 4$ | 0358 2f34 28a6 |/4( | 035a af31 bb68 | 1 h| 035c 7f44 6fcd | Do | 035e 773c 57cd |w<W | 0360 12c0 8e57 | W| 0362 0332 2416 | 2$ | 0364 e730 324c | 02L| 0366 4148 57cc |AHW | 0368 8aae 6843 | hC| 036a 8f31 fb6b | 1 k| 036c f814 4fcf | O | 036e df31 9116 | 1 | 0370 1648 ced9 | H | 0372 1733 2f31 | 3/1| 0374 1af4 324d | 2M| 0376 4f32 92b7 |O2 | 0378 0bc8 a818 | | 037a a368 ebcc | h | 037c 49de 390f |I 9 | 037e 4249 56bf |BIV | 0380 fb6f 6f32 | oo2| 0382 4b6b 8454 |Kk T| 0384 ea49 9549 | I I| 0386 17cd 12c2 | | 0388 78b8 c7cf |x | 038a 9733 9a4d | 3 M| 038c 25a5 17cc |% | 038e 8aaf adf0 | | 0390 f336 96f7 | 6 | 0392 4b40 d7cc |K@ | 0394 76c2 164b |v K| 0396 e1f3 d333 | 3| 0398 5010 49dd |P I | 039a f733 aeab | 3 | 039c 0bca 0330 | 0| 039e 1734 e007 | 4 | 03a0 abc8 324e | 2N| 03a2 1333 1a70 | 3 p| 03a4 2f37 10ad |/7 | 03a6 97cd 2804 | ( | 03a8 1f36 c332 | 6 2| 03aa 80d8 4ec4 | N | 03ac 074b 46a2 | KF | 03ae db6a d3c9 | j | 03b0 9bcc 4736 | G6| 03b2 5333 aea8 |S3 | 03b4 8aad fcf8 | | 03b6 5f34 3b37 |_4;7| 03b8 fb65 dfcd | e | 03ba 83cd 6bcd | k | 03bc d430 beac | 0 | 03be ec9c 8735 | 5| 03c0 c004 9334 | 4| 03c2 8aca 9f33 | 3| 03c4 2672 a0fb |&r | 03c6 2ee2 9804 |. | 03c8 af36 1fcf | 6 | 03ca 74f1 3ec5 |t > | 03cc 0b96 b885 | | 03ce e181 cac6 | | 03d0 7116 468b |q F | 03d2 6368 2774 |ch't| 03d4 c752 ef32 | R 2| 03d6 2fce ec73 |/ s| 03d8 cae1 0242 | B| 03da 67cd 59a5 |g Y | 03dc 9f48 0fcd | H | 03de 76c6 5bce |v [ | 03e0 eadd 3b36 | ;6| 03e2 7006 8491 |p | 03e4 86c6 53cf | S | 03e6 aaf4 4ee5 | N | 03e8 3737 8b68 |77 h| 03ea af29 3ec7 | )> | 03ec f3ad 76f8 | v | 03ee 4481 6f70 |D op| 03f0 c8ea 8ec4 | | 03f2 4470 3b3a |Dp;:| 03f4 7b36 6816 |{6h | 03f6 c2c5 98f0 | | 03f8 fc01 2cce | , | 03fa 0b36 ebce | 6 | 03fc ab36 f3cf | 6 | 03fe e44d 9f36 | M 6|