|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0260 | ` | .CONST 0x0260 ; 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 003e | > | .CONST 0x003e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 6166 |af | Indirect_Literal Discrete,0x174,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 0012 00bf | | Action Accept_Activation 0013 0093 0000 | | push_full_address 0x0 0015 615a |aZ | Indirect_Literal Discrete,0x170,{0x80000000, 0x00020000} 0016 0273 | s | Execute Discrete,Plus 0017 0007 | | Action Break_Optional 0018 0093 0000 | | push_full_address 0x0 001a 6151 |aQ | Indirect_Literal Discrete,0x16c,{0x80000000, 0x00030000} 001b 0273 | s | Execute Discrete,Plus 001c 0007 | | Action Break_Optional 001d 0093 0000 | | push_full_address 0x0 001f 6148 |aH | Indirect_Literal Discrete,0x168,{0x80000000, 0x00040000} 0020 0273 | s | Execute Discrete,Plus 0021 0007 | | Action Break_Optional 0022 0093 0000 | | push_full_address 0x0 0024 613f |a? | Indirect_Literal Discrete,0x164,{0x80000000, 0x00050000} 0025 0273 | s | Execute Discrete,Plus 0026 0007 | | Action Break_Optional 0027 0093 0000 | | push_full_address 0x0 0029 6136 |a6 | Indirect_Literal Discrete,0x160,{0x80000000, 0x00060000} 002a 0273 | s | Execute Discrete,Plus 002b 0007 | | Action Break_Optional 002c 4800 |H | Short_Literal 0x0 002d 0093 023b | ;| push_full_address INIT_0238 002f 02a0 | | Declare_Subprogram Null_Subprogram 0030 038e | | Declare_Type Package,Defined 0031 0387 | | Declare_Variable Package 0032 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0034 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 0036 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call 0038 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003b 00c7 | | Action Elaborate_Subprogram 003c e214 | | Load 0x1,0x14 003d 020f | | Execute Module,Activate 003e BODY_0008: 003e 00bc | | Action Signal_Activated 003f 00bb | | Action Signal_Completion 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0055 | U | .CONST 0x0055 ; Address of begin 0041 0153 | S | .CONST 0x0153 ; Address of exception handler 0042 000b | | .CONST 0x000b ; Number of locals 0043 INIT_0040: 0043 e002 | | Load 0x0,0x2 0044 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0045 e002 | | Load 0x0,0x2 0046 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0047 e002 | | Load 0x0,0x2 0048 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0049 e002 | | Load 0x0,0x2 004a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004b e002 | | Load 0x0,0x2 004c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004d e002 | | Load 0x0,0x2 004e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004f e002 | | Load 0x0,0x2 0050 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0051 00e3 | | Load_Encached Natural_Cache 0052 00e3 | | Load_Encached Natural_Cache 0053 e002 | | Load 0x0,0x2 0054 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0055 BODY_0040: 0055 4800 |H | Short_Literal 0x0 0056 a5fe | | Store_Unchecked 0x2,-0x2 0057 4800 |H | Short_Literal 0x0 0058 a5fd | | Store_Unchecked 0x2,-0x3 0059 4800 |H | Short_Literal 0x0 005a a5fc | | Store_Unchecked 0x2,-0x4 005b 4800 |H | Short_Literal 0x0 005c a5fb | | Store_Unchecked 0x2,-0x5 005d e5ff | | Load 0x2,-0x1 005e e002 | | Load 0x0,0x2 005f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0060 a402 | | Store_Unchecked 0x2,0x2 0061 e5ff | | Load 0x2,-0x1 0062 e002 | | Load 0x0,0x2 0063 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0064 a403 | | Store_Unchecked 0x2,0x3 0065 4803 |H | Short_Literal 0x3 0066 e402 | | Load 0x2,0x2 0067 e002 | | Load 0x0,0x2 0068 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0069 a404 | | Store_Unchecked 0x2,0x4 006a e404 | | Load 0x2,0x4 006b 7001 |p | Jump_Nonzero 0x6d 006c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006d e404 | | Load 0x2,0x4 006e e002 | | Load 0x0,0x2 006f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0070 00d9 | | Load_Top At_Offset_1 0071 00d0 | | Action Swap_Control 0072 0260 | ` | Execute Discrete,In_Type 0073 7001 |p | Jump_Nonzero 0x75 0074 0801 | | Execute_Immediate Raise,0x1 0075 e402 | | Load 0x2,0x2 0076 e002 | | Load 0x0,0x2 0077 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0078 a40b | | Store_Unchecked 0x2,0xb 0079 00d8 | | Load_Top At_Offset_0 007a 0e03 | | Execute_Immediate Not_Equal,0x3 007b 6804 |h | Jump_Zero 0x80 007c 00d8 | | Load_Top At_Offset_0 007d 0e02 | | Execute_Immediate Not_Equal,0x2 007e 6801 |h | Jump_Zero 0x80 007f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0080 e404 | | Load 0x2,0x4 0081 0a01 | | Execute_Immediate Plus,0x1 0082 c405 | | Store 0x2,0x5 0083 e002 | | Load 0x0,0x2 0084 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0085 e403 | | Load 0x2,0x3 0086 4800 |H | Short_Literal 0x0 0087 4808 |H | Short_Literal 0x8 0088 e405 | | Load 0x2,0x5 0089 0a01 | | Execute_Immediate Plus,0x1 008a e002 | | Load 0x0,0x2 008b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008c 00d9 | | Load_Top At_Offset_1 008d 00d0 | | Action Swap_Control 008e 0260 | ` | Execute Discrete,In_Type 008f 7001 |p | Jump_Nonzero 0x91 0090 0801 | | Execute_Immediate Raise,0x1 0091 e405 | | Load 0x2,0x5 0092 e002 | | Load 0x0,0x2 0093 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0094 00d9 | | Load_Top At_Offset_1 0095 00d0 | | Action Swap_Control 0096 0260 | ` | Execute Discrete,In_Type 0097 7001 |p | Jump_Nonzero 0x99 0098 0801 | | Execute_Immediate Raise,0x1 0099 e402 | | Load 0x2,0x2 009a e002 | | Load 0x0,0x2 009b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009c e402 | | Load 0x2,0x2 009d 8216 | | Call 0x1,0x16 009e c406 | | Store 0x2,0x6 009f e406 | | Load 0x2,0x6 00a0 7001 |p | Jump_Nonzero 0xa2 00a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a2 e406 | | Load 0x2,0x6 00a3 0a04 | | Execute_Immediate Plus,0x4 00a4 e002 | | Load 0x0,0x2 00a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a6 00d9 | | Load_Top At_Offset_1 00a7 00d0 | | Action Swap_Control 00a8 0260 | ` | Execute Discrete,In_Type 00a9 7001 |p | Jump_Nonzero 0xab 00aa 0801 | | Execute_Immediate Raise,0x1 00ab e402 | | Load 0x2,0x2 00ac e002 | | Load 0x0,0x2 00ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ae 0910 | | Execute_Immediate Binary_Scale,0x10 00af e406 | | Load 0x2,0x6 00b0 0a05 | | Execute_Immediate Plus,0x5 00b1 e002 | | Load 0x0,0x2 00b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b3 00d9 | | Load_Top At_Offset_1 00b4 00d0 | | Action Swap_Control 00b5 0260 | ` | Execute Discrete,In_Type 00b6 7001 |p | Jump_Nonzero 0xb8 00b7 0801 | | Execute_Immediate Raise,0x1 00b8 e402 | | Load 0x2,0x2 00b9 e002 | | Load 0x0,0x2 00ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00bb 0273 | s | Execute Discrete,Plus 00bc c5fe | | Store 0x2,-0x2 00bd e406 | | Load 0x2,0x6 00be 0a06 | | Execute_Immediate Plus,0x6 00bf e002 | | Load 0x0,0x2 00c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c1 00d9 | | Load_Top At_Offset_1 00c2 00d0 | | Action Swap_Control 00c3 0260 | ` | Execute Discrete,In_Type 00c4 7001 |p | Jump_Nonzero 0xc6 00c5 0801 | | Execute_Immediate Raise,0x1 00c6 e402 | | Load 0x2,0x2 00c7 e002 | | Load 0x0,0x2 00c8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c9 0910 | | Execute_Immediate Binary_Scale,0x10 00ca e406 | | Load 0x2,0x6 00cb 0a07 | | Execute_Immediate Plus,0x7 00cc e002 | | Load 0x0,0x2 00cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ce 00d9 | | Load_Top At_Offset_1 00cf 00d0 | | Action Swap_Control 00d0 0260 | ` | Execute Discrete,In_Type 00d1 7001 |p | Jump_Nonzero 0xd3 00d2 0801 | | Execute_Immediate Raise,0x1 00d3 e402 | | Load 0x2,0x2 00d4 e002 | | Load 0x0,0x2 00d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d6 0273 | s | Execute Discrete,Plus 00d7 c5fd | | Store 0x2,-0x3 00d8 4801 |H | Short_Literal 0x1 00d9 a5fb | | Store_Unchecked 0x2,-0x5 00da e406 | | Load 0x2,0x6 00db 0a01 | | Execute_Immediate Plus,0x1 00dc e002 | | Load 0x0,0x2 00dd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00de 00d9 | | Load_Top At_Offset_1 00df 00d0 | | Action Swap_Control 00e0 0260 | ` | Execute Discrete,In_Type 00e1 7001 |p | Jump_Nonzero 0xe3 00e2 0801 | | Execute_Immediate Raise,0x1 00e3 e402 | | Load 0x2,0x2 00e4 e002 | | Load 0x0,0x2 00e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e6 a407 | | Store_Unchecked 0x2,0x7 00e7 e407 | | Load 0x2,0x7 00e8 7001 |p | Jump_Nonzero 0xea 00e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ea e407 | | Load 0x2,0x7 00eb e002 | | Load 0x0,0x2 00ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ed 00d9 | | Load_Top At_Offset_1 00ee 00d0 | | Action Swap_Control 00ef 0260 | ` | Execute Discrete,In_Type 00f0 7001 |p | Jump_Nonzero 0xf2 00f1 0801 | | Execute_Immediate Raise,0x1 00f2 e402 | | Load 0x2,0x2 00f3 e002 | | Load 0x0,0x2 00f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f5 a40a | | Store_Unchecked 0x2,0xa 00f6 e407 | | Load 0x2,0x7 00f7 0a01 | | Execute_Immediate Plus,0x1 00f8 e002 | | Load 0x0,0x2 00f9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00fa 00d9 | | Load_Top At_Offset_1 00fb 00d0 | | Action Swap_Control 00fc 0260 | ` | Execute Discrete,In_Type 00fd 7001 |p | Jump_Nonzero 0xff 00fe 0801 | | Execute_Immediate Raise,0x1 00ff e402 | | Load 0x2,0x2 0100 e002 | | Load 0x0,0x2 0101 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0102 a409 | | Store_Unchecked 0x2,0x9 0103 e002 | | Load 0x0,0x2 0104 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0105 e403 | | Load 0x2,0x3 0106 4800 |H | Short_Literal 0x0 0107 4802 |H | Short_Literal 0x2 0108 e407 | | Load 0x2,0x7 0109 0a02 | | Execute_Immediate Plus,0x2 010a e002 | | Load 0x0,0x2 010b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 010c 00d9 | | Load_Top At_Offset_1 010d 00d0 | | Action Swap_Control 010e 0260 | ` | Execute Discrete,In_Type 010f 7001 |p | Jump_Nonzero 0x111 0110 0801 | | Execute_Immediate Raise,0x1 0111 e40a | | Load 0x2,0xa 0112 e409 | | Load 0x2,0x9 0113 0273 | s | Execute Discrete,Plus 0114 00d8 | | Load_Top At_Offset_0 0115 00e3 | | Load_Encached Natural_Cache 0116 0260 | ` | Execute Discrete,In_Type 0117 7001 |p | Jump_Nonzero 0x119 0118 0801 | | Execute_Immediate Raise,0x1 0119 e402 | | Load 0x2,0x2 011a 8216 | | Call 0x1,0x16 011b c408 | | Store 0x2,0x8 011c e408 | | Load 0x2,0x8 011d 7001 |p | Jump_Nonzero 0x11f 011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011f 00d8 | | Load_Top At_Offset_0 0120 0f03 | | Execute_Immediate Equal,0x3 0121 6816 |h | Jump_Zero 0x138 0122 e408 | | Load 0x2,0x8 0123 0a01 | | Execute_Immediate Plus,0x1 0124 e002 | | Load 0x0,0x2 0125 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0126 00d9 | | Load_Top At_Offset_1 0127 00d0 | | Action Swap_Control 0128 0260 | ` | Execute Discrete,In_Type 0129 7001 |p | Jump_Nonzero 0x12b 012a 0801 | | Execute_Immediate Raise,0x1 012b e402 | | Load 0x2,0x2 012c e002 | | Load 0x0,0x2 012d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 012e a5fc | | Store_Unchecked 0x2,-0x4 012f e5fc | | Load 0x2,-0x4 0130 602b |`+ | Indirect_Literal Discrete,0x15c,{0x00000000, 0x00008000} 0131 027b | { | Execute Discrete,Greater_Equal 0132 6804 |h | Jump_Zero 0x137 0133 e5fc | | Load 0x2,-0x4 0134 6023 |`# | Indirect_Literal Discrete,0x158,{0xffffffff, 0xffff0000} 0135 0273 | s | Execute Discrete,Plus 0136 c5fc | | Store 0x2,-0x4 0137 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0138 e408 | | Load 0x2,0x8 0139 e407 | | Load 0x2,0x7 013a 0272 | r | Execute Discrete,Minus 013b e40a | | Load 0x2,0xa 013c 00d8 | | Load_Top At_Offset_0 013d e002 | | Load 0x0,0x2 013e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013f 0260 | ` | Execute Discrete,In_Type 0140 7001 |p | Jump_Nonzero 0x142 0141 0801 | | Execute_Immediate Raise,0x1 0142 0272 | r | Execute Discrete,Minus 0143 0afe | | Execute_Immediate Plus,-0x2 0144 a5fc | | Store_Unchecked 0x2,-0x4 0145 e5fc | | Load 0x2,-0x4 0146 0c00 | | Execute_Immediate Greater_Equal,0x0 0147 6804 |h | Jump_Zero 0x14c 0148 e5fc | | Load 0x2,-0x4 0149 0a01 | | Execute_Immediate Plus,0x1 014a c5fc | | Store 0x2,-0x4 014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014c e5fc | | Load 0x2,-0x4 014d 0a01 | | Execute_Immediate Plus,0x1 014e e40a | | Load 0x2,0xa 014f 0273 | s | Execute Discrete,Plus 0150 0275 | u | Execute Discrete,Unary_Minus 0151 c5fc | | Store 0x2,-0x4 0152 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0153 TRAP_0040: 0153 0007 | | Action Break_Optional 0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ffff ffff | | .LITERAL {0xffffffff, 0xffff0000} 015c 0000 0000 | | .LITERAL {0x00000000, 0x00008000} 0160 8000 0000 | | .LITERAL {0x80000000, 0x00060000} 0164 8000 0000 | | .LITERAL {0x80000000, 0x00050000} 0168 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 016c 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0170 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0174 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0181 | | .CONST 0x0181 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0005 | | .CONST 0x0005 ; Number of locals 017b INIT_0178: 017b e002 | | Load 0x0,0x2 017c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 017d 03e9 | | Declare_Variable Discrete,Duplicate 017e 03e9 | | Declare_Variable Discrete,Duplicate 017f e002 | | Load 0x0,0x2 0180 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0181 BODY_0178: 0181 e5fe | | Load 0x2,-0x2 0182 a402 | | Store_Unchecked 0x2,0x2 0183 e5fd | | Load 0x2,-0x3 0184 a403 | | Store_Unchecked 0x2,0x3 0185 00cf | | Action Mark_Auxiliary 0186 e402 | | Load 0x2,0x2 0187 e403 | | Load 0x2,0x3 0188 e402 | | Load 0x2,0x2 0189 0272 | r | Execute Discrete,Minus 018a e5fc | | Load 0x2,-0x4 018b 00d8 | | Load_Top At_Offset_0 018c e002 | | Load 0x0,0x2 018d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 018e 0260 | ` | Execute Discrete,In_Type 018f 7001 |p | Jump_Nonzero 0x191 0190 0801 | | Execute_Immediate Raise,0x1 0191 0270 | p | Execute Discrete,Divide 0192 09ff | | Execute_Immediate Binary_Scale,-0x1 0193 e5fc | | Load 0x2,-0x4 0194 00d8 | | Load_Top At_Offset_0 0195 e002 | | Load 0x0,0x2 0196 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0197 0260 | ` | Execute Discrete,In_Type 0198 7001 |p | Jump_Nonzero 0x19a 0199 0801 | | Execute_Immediate Raise,0x1 019a 0271 | q | Execute Discrete,Times 019b 0273 | s | Execute Discrete,Plus 019c c404 | | Store 0x2,0x4 019d e404 | | Load 0x2,0x4 019e e5fb | | Load 0x2,-0x5 019f 0273 | s | Execute Discrete,Plus 01a0 e002 | | Load 0x0,0x2 01a1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a2 00d9 | | Load_Top At_Offset_1 01a3 00d0 | | Action Swap_Control 01a4 0260 | ` | Execute Discrete,In_Type 01a5 7001 |p | Jump_Nonzero 0x1a7 01a6 0801 | | Execute_Immediate Raise,0x1 01a7 e5ff | | Load 0x2,-0x1 01a8 e002 | | Load 0x0,0x2 01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01aa a405 | | Store_Unchecked 0x2,0x5 01ab e5fa | | Load 0x2,-0x6 01ac e405 | | Load 0x2,0x5 01ad 027f | | Execute Discrete,Equal 01ae 7020 |p | Jump_Nonzero 0x1cf 01af e5fa | | Load 0x2,-0x6 01b0 e405 | | Load 0x2,0x5 01b1 027d | } | Execute Discrete,Greater 01b2 681e |h | Jump_Zero 0x1d1 01b3 e404 | | Load 0x2,0x4 01b4 e5fd | | Load 0x2,-0x3 01b5 027f | | Execute Discrete,Equal 01b6 7018 |p | Jump_Nonzero 0x1cf 01b7 e5fa | | Load 0x2,-0x6 01b8 e404 | | Load 0x2,0x4 01b9 e5fc | | Load 0x2,-0x4 01ba 00d8 | | Load_Top At_Offset_0 01bb e002 | | Load 0x0,0x2 01bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01bd 0260 | ` | Execute Discrete,In_Type 01be 7001 |p | Jump_Nonzero 0x1c0 01bf 0801 | | Execute_Immediate Raise,0x1 01c0 0273 | s | Execute Discrete,Plus 01c1 e5fb | | Load 0x2,-0x5 01c2 0273 | s | Execute Discrete,Plus 01c3 e002 | | Load 0x0,0x2 01c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01c5 00d9 | | Load_Top At_Offset_1 01c6 00d0 | | Action Swap_Control 01c7 0260 | ` | Execute Discrete,In_Type 01c8 7001 |p | Jump_Nonzero 0x1ca 01c9 0801 | | Execute_Immediate Raise,0x1 01ca e5ff | | Load 0x2,-0x1 01cb e002 | | Load 0x0,0x2 01cc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01cd 027c | | | Execute Discrete,Less 01ce 6802 |h | Jump_Zero 0x1d1 01cf e404 | | Load 0x2,0x4 01d0 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 01d1 e402 | | Load 0x2,0x2 01d2 e403 | | Load 0x2,0x3 01d3 027f | | Execute Discrete,Equal 01d4 6802 |h | Jump_Zero 0x1d7 01d5 e213 | | Load 0x1,0x13 01d6 0257 | W | Execute Discrete,Raise 01d7 e5fa | | Load 0x2,-0x6 01d8 e405 | | Load 0x2,0x5 01d9 027d | } | Execute Discrete,Greater 01da 680b |h | Jump_Zero 0x1e6 01db e404 | | Load 0x2,0x4 01dc e5fc | | Load 0x2,-0x4 01dd 00d8 | | Load_Top At_Offset_0 01de e002 | | Load 0x0,0x2 01df 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e0 0260 | ` | Execute Discrete,In_Type 01e1 7001 |p | Jump_Nonzero 0x1e3 01e2 0801 | | Execute_Immediate Raise,0x1 01e3 0273 | s | Execute Discrete,Plus 01e4 c402 | | Store 0x2,0x2 01e5 7802 |x | Jump 0x1e8 01e6 e404 | | Load 0x2,0x4 01e7 a403 | | Store_Unchecked 0x2,0x3 01e8 00c9 | | Action Pop_Auxiliary_Loop 01e9 7f9c | | Jump 0x186 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0212 | | .CONST 0x0212 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 e5fe | | Load 0x2,-0x2 01f4 7002 |p | Jump_Nonzero 0x1f7 01f5 e213 | | Load 0x1,0x13 01f6 0257 | W | Execute Discrete,Raise 01f7 e5fa | | Load 0x2,-0x6 01f8 e5fb | | Load 0x2,-0x5 01f9 e5fc | | Load 0x2,-0x4 01fa e5fd | | Load 0x2,-0x3 01fb e5fe | | Load 0x2,-0x2 01fc 0aff | | Execute_Immediate Plus,-0x1 01fd e5fc | | Load 0x2,-0x4 01fe 0271 | q | Execute Discrete,Times 01ff 00d8 | | Load_Top At_Offset_0 0200 e002 | | Load 0x0,0x2 0201 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0202 0260 | ` | Execute Discrete,In_Type 0203 7001 |p | Jump_Nonzero 0x205 0204 0801 | | Execute_Immediate Raise,0x1 0205 0273 | s | Execute Discrete,Plus 0206 e002 | | Load 0x0,0x2 0207 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0208 00d9 | | Load_Top At_Offset_1 0209 00d0 | | Action Swap_Control 020a 0260 | ` | Execute Discrete,In_Type 020b 7001 |p | Jump_Nonzero 0x20d 020c 0801 | | Execute_Immediate Raise,0x1 020d e5fd | | Load 0x2,-0x3 020e e5ff | | Load 0x2,-0x1 020f 8215 | | Call 0x1,0x15 0210 a5f9 | | Store_Unchecked 0x2,-0x7 0211 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0212 TRAP_01f0: 0212 e213 | | Load 0x1,0x13 0213 010f | | Execute Exception,Equal 0214 6803 |h | Jump_Zero 0x218 0215 4800 |H | Short_Literal 0x0 0216 a5f9 | | Store_Unchecked 0x2,-0x7 0217 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0218 0100 | | Execute Exception,Raise 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e5ff | | Load 0x2,-0x1 0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e5ff | | Load 0x2,-0x1 022c e5fe | | Load 0x2,-0x2 022d 0270 | p | Execute Discrete,Divide 022e 4801 |H | Short_Literal 0x1 022f 0279 | y | Execute Discrete,And 0230 0e00 | | Execute_Immediate Not_Equal,0x0 0231 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0232 0000 0000 | | .BLANK 0000[0x6] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 024c | L | .CONST 0x024c ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 000e | | .CONST 0x000e ; Number of locals 023b INIT_0238: 023b 4800 |H | Short_Literal 0x0 023c 0093 025b | [| push_full_address INIT_0258 023e 02a0 | | Declare_Subprogram Null_Subprogram 023f 038f | | Declare_Type Package,Defined,Visible 0240 0386 | | Declare_Variable Package,Visible 0241 4800 |H | Short_Literal 0x0 0242 0093 0253 | S| push_full_address INIT_0250 0244 02a0 | | Declare_Subprogram Null_Subprogram 0245 038f | | Declare_Type Package,Defined,Visible 0246 0386 | | Declare_Variable Package,Visible 0247 00bf | | Action Accept_Activation 0248 e20d | | Load 0x1,0xd 0249 020f | | Execute Module,Activate 024a 00d8 | | Load_Top At_Offset_0 024b 020f | | Execute Module,Activate 024c BODY_0238: 024c 00bc | | Action Signal_Activated 024d 00bb | | Action Signal_Completion 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0254 | T | .CONST 0x0254 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 000c | | .CONST 0x000c ; Number of locals 0253 INIT_0250: 0253 00bf | | Action Accept_Activation 0254 BODY_0250: 0254 00bc | | Action Signal_Activated 0255 00bb | | Action Signal_Completion 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025c | \ | .CONST 0x025c ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 000c | | .CONST 0x000c ; Number of locals 025b INIT_0258: 025b 00bf | | Action Accept_Activation 025c BODY_0258: 025c 00bc | | Action Signal_Activated 025d 00bb | | Action Signal_Completion 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0010 | | .DEBUG4 0x0004,0x0010,0x0986,0x0000,0x0001,0x0000 0266 f010 | | .XXX[0x1] 0267 0000 0000 | | .BLANK 0000[0xb] 0272 0004 0000 | | .XXX[0x10] 0274 404c 4030 |@L@0| 0276 0000 0000 | | 0278 0004 0000 | | 027a 404c 53a4 |@LS | 027c 0000 404b | @K| 027e f044 0000 | D | 0280 404c 16d0 |@L | 0282 0000 0000 | | .BLANK 0000[0x8] 028a 0004 0000 | | .XXX[0xd] 028c 404c 3cc4 |@L< | 028e 0000 404c | @L| 0290 3cf4 0000 |< | 0292 404c 3c94 |@L< | 0294 0000 404b | @K| 0296 f020 | | 0297 0000 0000 | | .BLANK 0000[0x14] 02ab 0004 0000 | | .XXX[0x4] 02ad 404b f030 |@K 0| 02af 0000 0000 | | .BLANK 0000[0xe] 02bd 0004 0000 | | .XXX[0xa] 02bf 404c 5390 |@LS | 02c1 0000 0000 | | 02c3 0004 0000 | | 02c5 404c 3c20 |@L< | 02c7 0000 0000 | | .BLANK 0000[0x139]