|
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_03c0fe
└─⟦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 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 0011 | | .DEBUG4 0x0004,0x0011,0x9753,0x0000,0x0001,0x0000
0266 0000 0000 | | .BLANK 0000[0x19a]