|
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_6a18da
└─⟦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 0270 | p | .CONST 0x0270 ; 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 0067 | g | .CONST 0x0067 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0013 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0015 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0019 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 001b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 001d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 001f 00bf | | Action Accept_Activation 0020 4800 |H | Short_Literal 0x0 0021 e20f | | Load 0x1,0xf 0022 012c | , | Execute Any,Size 0023 0aff | | Execute_Immediate Plus,-0x1 0024 00d8 | | Load_Top At_Offset_0 0025 00e2 | | Load_Encached Integer_Cache 0026 0260 | ` | Execute Discrete,In_Type 0027 7001 |p | Jump_Nonzero 0x29 0028 0801 | | Execute_Immediate Raise,0x1 0029 00e2 | | Load_Encached Integer_Cache 002a 025d | ] | Execute Discrete,Bounds_Check 002b 00e1 | | Load_Encached Boolean_Cache 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d 4801 |H | Short_Literal 0x1 002e 035d | ] | Declare_Type Array,Defined 002f e20f | | Load 0x1,0xf 0030 0269 | i | Execute Discrete,Last 0031 09ff | | Execute_Immediate Binary_Scale,-0x1 0032 e20f | | Load 0x1,0xf 0033 026a | j | Execute Discrete,First 0034 09ff | | Execute_Immediate Binary_Scale,-0x1 0035 0272 | r | Execute Discrete,Minus 0036 e20f | | Load 0x1,0xf 0037 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0038 00d8 | | Load_Top At_Offset_0 0039 00d9 | | Load_Top At_Offset_1 003a 09ff | | Execute_Immediate Binary_Scale,-0x1 003b 0272 | r | Execute Discrete,Minus 003c e20f | | Load 0x1,0xf 003d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 003e 00e2 | | Load_Encached Integer_Cache 003f a001 | | Store_Unchecked 0x0,0x1 0040 00c6 | | Action Check_Subprogram_Elaborated 0041 e20f | | Load 0x1,0xf 0042 e21a | | Load 0x1,0x1a 0043 e002 | | Load 0x0,0x2 0044 e003 | | Load 0x0,0x3 0045 4800 |H | Short_Literal 0x0 0046 0007 | | Action Break_Optional 0047 a001 | | Store_Unchecked 0x0,0x1 0048 00c6 | | Action Check_Subprogram_Elaborated 0049 e21a | | Load 0x1,0x1a 004a e20f | | Load 0x1,0xf 004b e004 | | Load 0x0,0x4 004c e005 | | Load 0x0,0x5 004d 4800 |H | Short_Literal 0x0 004e 0007 | | Action Break_Optional 004f 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 0051 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 0053 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0054 00c7 | | Action Elaborate_Subprogram 0055 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0056 00c7 | | Action Elaborate_Subprogram 0057 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0058 00c7 | | Action Elaborate_Subprogram 0059 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005a 00c7 | | Action Elaborate_Subprogram 005b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005c 00c7 | | Action Elaborate_Subprogram 005d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 005e 00c7 | | Action Elaborate_Subprogram 005f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0060 00c7 | | Action Elaborate_Subprogram 0061 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0062 00c7 | | Action Elaborate_Subprogram 0063 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0064 00c7 | | Action Elaborate_Subprogram 0065 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0066 00c7 | | Action Elaborate_Subprogram 0067 BODY_0008: 0067 8228 | ( | Call 0x1,0x28 0068 a21d | | Store_Unchecked 0x1,0x1d 0069 00bc | | Action Signal_Activated 006a 00bb | | Action Signal_Completion 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 00d8 | | Load_Top At_Offset_0 0075 e20f | | Load 0x1,0xf 0076 0260 | ` | Execute Discrete,In_Type 0077 7001 |p | Jump_Nonzero 0x79 0078 0801 | | Execute_Immediate Raise,0x1 0079 e21e | | Load 0x1,0x1e 007a e21f | | Load 0x1,0x1f 007b 1d20 | | Execute_Immediate Reference_Lex_1,0x20 007c 8001 | | Call 0x0,0x1 007d e5fd | | Load 0x2,-0x3 007e e5fe | | Load 0x2,-0x2 007f 8229 | ) | Call 0x1,0x29 0080 01d3 | | Execute Vector,And 0081 e21a | | Load 0x1,0x1a 0082 01c3 | | Execute Vector,Check_In_Type 0083 e223 | # | Load 0x1,0x23 0084 e224 | $ | Load 0x1,0x24 0085 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0086 8001 | | Call 0x0,0x1 0087 00d8 | | Load_Top At_Offset_0 0088 e20f | | Load 0x1,0xf 0089 0260 | ` | Execute Discrete,In_Type 008a 7001 |p | Jump_Nonzero 0x8c 008b 0801 | | Execute_Immediate Raise,0x1 008c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00db | | Load_Top At_Offset_3 0094 e21d | | Load 0x1,0x1d 0095 0273 | s | Execute Discrete,Plus 0096 00db | | Load_Top At_Offset_3 0097 00d8 | | Load_Top At_Offset_0 0098 e20f | | Load 0x1,0xf 0099 0260 | ` | Execute Discrete,In_Type 009a 7001 |p | Jump_Nonzero 0x9c 009b 0801 | | Execute_Immediate Raise,0x1 009c e21e | | Load 0x1,0x1e 009d e21f | | Load 0x1,0x1f 009e 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009f 8001 | | Call 0x0,0x1 00a0 01d7 | | Execute Vector,Field_Read 00a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00db | | Load_Top At_Offset_3 00ac 00d8 | | Load_Top At_Offset_0 00ad e20f | | Load 0x1,0xf 00ae 0260 | ` | Execute Discrete,In_Type 00af 7001 |p | Jump_Nonzero 0xb1 00b0 0801 | | Execute_Immediate Raise,0x1 00b1 e21e | | Load 0x1,0x1e 00b2 e21f | | Load 0x1,0x1f 00b3 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00b4 8001 | | Call 0x0,0x1 00b5 e5fc | | Load 0x2,-0x4 00b6 e5fd | | Load 0x2,-0x3 00b7 8229 | ) | Call 0x1,0x29 00b8 01d0 | | Execute Vector,Complement 00b9 01d3 | | Execute Vector,And 00ba e21a | | Load 0x1,0x1a 00bb 01dc | | Execute Vector,Last 00bc e5fc | | Load 0x2,-0x4 00bd 0272 | r | Execute Discrete,Minus 00be 0a01 | | Execute_Immediate Plus,0x1 00bf e5fd | | Load 0x2,-0x3 00c0 0272 | r | Execute Discrete,Minus 00c1 00d8 | | Load_Top At_Offset_0 00c2 00e2 | | Load_Encached Integer_Cache 00c3 0260 | ` | Execute Discrete,In_Type 00c4 7001 |p | Jump_Nonzero 0xc6 00c5 0801 | | Execute_Immediate Raise,0x1 00c6 e5fc | | Load 0x2,-0x4 00c7 e21a | | Load 0x1,0x1a 00c8 01dc | | Execute Vector,Last 00c9 e5fc | | Load 0x2,-0x4 00ca 0272 | r | Execute Discrete,Minus 00cb 0a01 | | Execute_Immediate Plus,0x1 00cc 00d8 | | Load_Top At_Offset_0 00cd 00e3 | | Load_Encached Natural_Cache 00ce 0260 | ` | Execute Discrete,In_Type 00cf 7001 |p | Jump_Nonzero 0xd1 00d0 0801 | | Execute_Immediate Raise,0x1 00d1 e5ff | | Load 0x2,-0x1 00d2 00d8 | | Load_Top At_Offset_0 00d3 e20f | | Load 0x1,0xf 00d4 0260 | ` | Execute Discrete,In_Type 00d5 7001 |p | Jump_Nonzero 0xd7 00d6 0801 | | Execute_Immediate Raise,0x1 00d7 8210 | | Call 0x1,0x10 00d8 00d8 | | Load_Top At_Offset_0 00d9 e20f | | Load 0x1,0xf 00da 0260 | ` | Execute Discrete,In_Type 00db 7001 |p | Jump_Nonzero 0xdd 00dc 0801 | | Execute_Immediate Raise,0x1 00dd 8219 | | Call 0x1,0x19 00de 00d8 | | Load_Top At_Offset_0 00df e20f | | Load 0x1,0xf 00e0 0260 | ` | Execute Discrete,In_Type 00e1 7001 |p | Jump_Nonzero 0xe3 00e2 0801 | | Execute_Immediate Raise,0x1 00e3 e21e | | Load 0x1,0x1e 00e4 e21f | | Load 0x1,0x1f 00e5 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00e6 8001 | | Call 0x0,0x1 00e7 01d2 | | Execute Vector,Or 00e8 e21a | | Load 0x1,0x1a 00e9 01c3 | | Execute Vector,Check_In_Type 00ea e223 | # | Load 0x1,0x23 00eb e224 | $ | Load 0x1,0x24 00ec 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00ed 8001 | | Call 0x0,0x1 00ee 00d8 | | Load_Top At_Offset_0 00ef e20f | | Load 0x1,0xf 00f0 0260 | ` | Execute Discrete,In_Type 00f1 7001 |p | Jump_Nonzero 0xf3 00f2 0801 | | Execute_Immediate Raise,0x1 00f3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0109 | | .CONST 0x0109 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e21a | | Load 0x1,0x1a 00fc 0337 | 7 | Declare_Variable Array 00fd e5fe | | Load 0x2,-0x2 00fe 00d8 | | Load_Top At_Offset_0 00ff e20f | | Load 0x1,0xf 0100 0260 | ` | Execute Discrete,In_Type 0101 7001 |p | Jump_Nonzero 0x103 0102 0801 | | Execute_Immediate Raise,0x1 0103 e21e | | Load 0x1,0x1e 0104 e21f | | Load 0x1,0x1f 0105 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0106 8001 | | Call 0x0,0x1 0107 00d9 | | Load_Top At_Offset_1 0108 01d4 | | Execute Vector,Structure_Write 0109 BODY_00f8: 0109 4801 |H | Short_Literal 0x1 010a e5ff | | Load 0x2,-0x1 010b e21d | | Load 0x1,0x1d 010c 0273 | s | Execute Discrete,Plus 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 00d8 | | Load_Top At_Offset_0 0110 e223 | # | Load 0x1,0x23 0111 e224 | $ | Load 0x1,0x24 0112 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0113 8001 | | Call 0x0,0x1 0114 c5fe | | Store 0x2,-0x2 0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0129 | ) | .CONST 0x0129 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e21a | | Load 0x1,0x1a 011c 0337 | 7 | Declare_Variable Array 011d e5fe | | Load 0x2,-0x2 011e 00d8 | | Load_Top At_Offset_0 011f e20f | | Load 0x1,0xf 0120 0260 | ` | Execute Discrete,In_Type 0121 7001 |p | Jump_Nonzero 0x123 0122 0801 | | Execute_Immediate Raise,0x1 0123 e21e | | Load 0x1,0x1e 0124 e21f | | Load 0x1,0x1f 0125 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0126 8001 | | Call 0x0,0x1 0127 00d9 | | Load_Top At_Offset_1 0128 01d4 | | Execute Vector,Structure_Write 0129 BODY_0118: 0129 4800 |H | Short_Literal 0x0 012a e5ff | | Load 0x2,-0x1 012b e21d | | Load 0x1,0x1d 012c 0273 | s | Execute Discrete,Plus 012d 00da | | Load_Top At_Offset_2 012e 01d6 | | Execute Vector,Field_Write 012f 00d8 | | Load_Top At_Offset_0 0130 e223 | # | Load 0x1,0x23 0131 e224 | $ | Load 0x1,0x24 0132 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0133 8001 | | Call 0x0,0x1 0134 c5fe | | Store 0x2,-0x2 0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 00d8 | | Load_Top At_Offset_0 013d e20f | | Load 0x1,0xf 013e 0260 | ` | Execute Discrete,In_Type 013f 7001 |p | Jump_Nonzero 0x141 0140 0801 | | Execute_Immediate Raise,0x1 0141 e21e | | Load 0x1,0x1e 0142 e21f | | Load 0x1,0x1f 0143 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0144 8001 | | Call 0x0,0x1 0145 e5fe | | Load 0x2,-0x2 0146 00d8 | | Load_Top At_Offset_0 0147 e20f | | Load 0x1,0xf 0148 0260 | ` | Execute Discrete,In_Type 0149 7001 |p | Jump_Nonzero 0x14b 014a 0801 | | Execute_Immediate Raise,0x1 014b e21e | | Load 0x1,0x1e 014c e21f | | Load 0x1,0x1f 014d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 014e 8001 | | Call 0x0,0x1 014f 01d3 | | Execute Vector,And 0150 e21a | | Load 0x1,0x1a 0151 01c3 | | Execute Vector,Check_In_Type 0152 e223 | # | Load 0x1,0x23 0153 e224 | $ | Load 0x1,0x24 0154 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0155 8001 | | Call 0x0,0x1 0156 00d8 | | Load_Top At_Offset_0 0157 e20f | | Load 0x1,0xf 0158 0260 | ` | Execute Discrete,In_Type 0159 7001 |p | Jump_Nonzero 0x15b 015a 0801 | | Execute_Immediate Raise,0x1 015b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 00d8 | | Load_Top At_Offset_0 0165 e20f | | Load 0x1,0xf 0166 0260 | ` | Execute Discrete,In_Type 0167 7001 |p | Jump_Nonzero 0x169 0168 0801 | | Execute_Immediate Raise,0x1 0169 e21e | | Load 0x1,0x1e 016a e21f | | Load 0x1,0x1f 016b 1d20 | | Execute_Immediate Reference_Lex_1,0x20 016c 8001 | | Call 0x0,0x1 016d e5fe | | Load 0x2,-0x2 016e 00d8 | | Load_Top At_Offset_0 016f e20f | | Load 0x1,0xf 0170 0260 | ` | Execute Discrete,In_Type 0171 7001 |p | Jump_Nonzero 0x173 0172 0801 | | Execute_Immediate Raise,0x1 0173 e21e | | Load 0x1,0x1e 0174 e21f | | Load 0x1,0x1f 0175 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0176 8001 | | Call 0x0,0x1 0177 01d2 | | Execute Vector,Or 0178 e21a | | Load 0x1,0x1a 0179 01c3 | | Execute Vector,Check_In_Type 017a e223 | # | Load 0x1,0x23 017b e224 | $ | Load 0x1,0x24 017c 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 017d 8001 | | Call 0x0,0x1 017e 00d8 | | Load_Top At_Offset_0 017f e20f | | Load 0x1,0xf 0180 0260 | ` | Execute Discrete,In_Type 0181 7001 |p | Jump_Nonzero 0x183 0182 0801 | | Execute_Immediate Raise,0x1 0183 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 00d8 | | Load_Top At_Offset_0 018d e20f | | Load 0x1,0xf 018e 0260 | ` | Execute Discrete,In_Type 018f 7001 |p | Jump_Nonzero 0x191 0190 0801 | | Execute_Immediate Raise,0x1 0191 e21e | | Load 0x1,0x1e 0192 e21f | | Load 0x1,0x1f 0193 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0194 8001 | | Call 0x0,0x1 0195 e5fe | | Load 0x2,-0x2 0196 00d8 | | Load_Top At_Offset_0 0197 e20f | | Load 0x1,0xf 0198 0260 | ` | Execute Discrete,In_Type 0199 7001 |p | Jump_Nonzero 0x19b 019a 0801 | | Execute_Immediate Raise,0x1 019b e21e | | Load 0x1,0x1e 019c e21f | | Load 0x1,0x1f 019d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 019e 8001 | | Call 0x0,0x1 019f 01d1 | | Execute Vector,Xor 01a0 e21a | | Load 0x1,0x1a 01a1 01c3 | | Execute Vector,Check_In_Type 01a2 e223 | # | Load 0x1,0x23 01a3 e224 | $ | Load 0x1,0x24 01a4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 01a5 8001 | | Call 0x0,0x1 01a6 00d8 | | Load_Top At_Offset_0 01a7 e20f | | Load 0x1,0xf 01a8 0260 | ` | Execute Discrete,In_Type 01a9 7001 |p | Jump_Nonzero 0x1ab 01aa 0801 | | Execute_Immediate Raise,0x1 01ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 00d8 | | Load_Top At_Offset_0 01b5 e20f | | Load 0x1,0xf 01b6 0260 | ` | Execute Discrete,In_Type 01b7 7001 |p | Jump_Nonzero 0x1b9 01b8 0801 | | Execute_Immediate Raise,0x1 01b9 e21e | | Load 0x1,0x1e 01ba e21f | | Load 0x1,0x1f 01bb 1d20 | | Execute_Immediate Reference_Lex_1,0x20 01bc 8001 | | Call 0x0,0x1 01bd 01d0 | | Execute Vector,Complement 01be e21a | | Load 0x1,0x1a 01bf 01c3 | | Execute Vector,Check_In_Type 01c0 e223 | # | Load 0x1,0x23 01c1 e224 | $ | Load 0x1,0x24 01c2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 01c3 8001 | | Call 0x0,0x1 01c4 00d8 | | Load_Top At_Offset_0 01c5 e20f | | Load 0x1,0xf 01c6 0260 | ` | Execute Discrete,In_Type 01c7 7001 |p | Jump_Nonzero 0x1c9 01c8 0801 | | Execute_Immediate Raise,0x1 01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d9 | | .CONST 0x01d9 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 e20f | | Load 0x1,0xf 01d5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01d6 e5fe | | Load 0x2,-0x2 01d7 00e2 | | Load_Encached Integer_Cache 01d8 03f1 | | Declare_Variable Discrete,With_Value 01d9 BODY_01d0: 01d9 00d8 | | Load_Top At_Offset_0 01da 0c01 | | Execute_Immediate Greater_Equal,0x1 01db 680c |h | Jump_Zero 0x1e8 01dc 00cf | | Action Mark_Auxiliary 01dd 00d9 | | Load_Top At_Offset_1 01de 4801 |H | Short_Literal 0x1 01df 0263 | c | Execute Discrete,Above_Bound 01e0 7005 |p | Jump_Nonzero 0x1e6 01e1 e402 | | Load 0x2,0x2 01e2 0901 | | Execute_Immediate Binary_Scale,0x1 01e3 c402 | | Store 0x2,0x2 01e4 00c8 | | Action Pop_Auxiliary_Range 01e5 3ffb |? | Loop_Increasing 0x1e1 01e6 00ce | | Action Pop_Auxiliary 01e7 7833 |x3 | Jump 0x21b 01e8 00d8 | | Load_Top At_Offset_0 01e9 0d00 | | Execute_Immediate Less,0x0 01ea 6830 |h0 | Jump_Zero 0x21b 01eb 00d9 | | Load_Top At_Offset_1 01ec 0d00 | | Execute_Immediate Less,0x0 01ed 681e |h | Jump_Zero 0x20c 01ee e21c | | Load 0x1,0x1c 01ef 00d8 | | Load_Top At_Offset_0 01f0 e20f | | Load 0x1,0xf 01f1 0260 | ` | Execute Discrete,In_Type 01f2 7001 |p | Jump_Nonzero 0x1f4 01f3 0801 | | Execute_Immediate Raise,0x1 01f4 e21b | | Load 0x1,0x1b 01f5 00d8 | | Load_Top At_Offset_0 01f6 e20f | | Load 0x1,0xf 01f7 0260 | ` | Execute Discrete,In_Type 01f8 7001 |p | Jump_Nonzero 0x1fa 01f9 0801 | | Execute_Immediate Raise,0x1 01fa 00db | | Load_Top At_Offset_3 01fb 00d8 | | Load_Top At_Offset_0 01fc e20f | | Load 0x1,0xf 01fd 0260 | ` | Execute Discrete,In_Type 01fe 7001 |p | Jump_Nonzero 0x200 01ff 0801 | | Execute_Immediate Raise,0x1 0200 8215 | | Call 0x1,0x15 0201 09ff | | Execute_Immediate Binary_Scale,-0x1 0202 00d8 | | Load_Top At_Offset_0 0203 e20f | | Load 0x1,0xf 0204 0260 | ` | Execute Discrete,In_Type 0205 7001 |p | Jump_Nonzero 0x207 0206 0801 | | Execute_Immediate Raise,0x1 0207 8216 | | Call 0x1,0x16 0208 005a | Z | Store_Top Discrete,At_Offset_2 0209 00d8 | | Load_Top At_Offset_0 020a 0a01 | | Execute_Immediate Plus,0x1 020b 0059 | Y | Store_Top Discrete,At_Offset_1 020c 00d8 | | Load_Top At_Offset_0 020d 0d00 | | Execute_Immediate Less,0x0 020e 680c |h | Jump_Zero 0x21b 020f 00cf | | Action Mark_Auxiliary 0210 00d9 | | Load_Top At_Offset_1 0211 0275 | u | Execute Discrete,Unary_Minus 0212 4801 |H | Short_Literal 0x1 0213 0263 | c | Execute Discrete,Above_Bound 0214 7005 |p | Jump_Nonzero 0x21a 0215 e402 | | Load 0x2,0x2 0216 09ff | | Execute_Immediate Binary_Scale,-0x1 0217 c402 | | Store 0x2,0x2 0218 00c8 | | Action Pop_Auxiliary_Range 0219 3ffb |? | Loop_Increasing 0x215 021a 00ce | | Action Pop_Auxiliary 021b 00d9 | | Load_Top At_Offset_1 021c 00d8 | | Load_Top At_Offset_0 021d e20f | | Load 0x1,0xf 021e 0260 | ` | Execute Discrete,In_Type 021f 7001 |p | Jump_Nonzero 0x221 0220 0801 | | Execute_Immediate Raise,0x1 0221 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0222 0000 0000 | | .BLANK 0000[0x6] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0231 | 1 | .CONST 0x0231 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0004 | | .CONST 0x0004 ; Number of locals 022b INIT_0228: 022b 00e2 | | Load_Encached Integer_Cache 022c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 022d e21b | | Load 0x1,0x1b 022e 0007 | | Action Break_Optional 022f 00e2 | | Load_Encached Integer_Cache 0230 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0231 BODY_0228: 0231 00cf | | Action Mark_Auxiliary 0232 7807 |x | Jump 0x23a 0233 00da | | Load_Top At_Offset_2 0234 09ff | | Execute_Immediate Binary_Scale,-0x1 0235 005b | [ | Store_Top Discrete,At_Offset_3 0236 00db | | Load_Top At_Offset_3 0237 0a01 | | Execute_Immediate Plus,0x1 0238 c402 | | Store 0x2,0x2 0239 00c9 | | Action Pop_Auxiliary_Loop 023a 00da | | Load_Top At_Offset_2 023b 77f7 |w | Jump_Nonzero 0x233 023c 00ce | | Action Pop_Auxiliary 023d e20f | | Load 0x1,0xf 023e 012c | , | Execute Any,Size 023f 00db | | Load_Top At_Offset_3 0240 0272 | r | Execute Discrete,Minus 0241 0aff | | Execute_Immediate Plus,-0x1 0242 0059 | Y | Store_Top Discrete,At_Offset_1 0243 00d8 | | Load_Top At_Offset_0 0244 00ca | | Action Exit_Nullary_Function 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 025b | [ | .CONST 0x025b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b e21a | | Load 0x1,0x1a 024c 0337 | 7 | Declare_Variable Array 024d 00d8 | | Load_Top At_Offset_0 024e 0335 | 5 | Declare_Variable Array,Duplicate 024f 00cd | | Action Spare6_Action 0250 00d9 | | Load_Top At_Offset_1 0251 01d9 | | Execute Vector,Reverse_Bounds 0252 0263 | c | Execute Discrete,Above_Bound 0253 7005 |p | Jump_Nonzero 0x259 0254 4800 |H | Short_Literal 0x0 0255 00d9 | | Load_Top At_Offset_1 0256 e403 | | Load 0x2,0x3 0257 01d6 | | Execute Vector,Field_Write 0258 3ffb |? | Loop_Increasing 0x254 0259 00d9 | | Load_Top At_Offset_1 025a 01d4 | | Execute Vector,Structure_Write 025b BODY_0248: 025b 00cf | | Action Mark_Auxiliary 025c e5fe | | Load 0x2,-0x2 025d 0aff | | Execute_Immediate Plus,-0x1 025e 4800 |H | Short_Literal 0x0 025f 0263 | c | Execute Discrete,Above_Bound 0260 700a |p | Jump_Nonzero 0x26b 0261 4801 |H | Short_Literal 0x1 0262 00d9 | | Load_Top At_Offset_1 0263 e5ff | | Load 0x2,-0x1 0264 0273 | s | Execute Discrete,Plus 0265 e21d | | Load 0x1,0x1d 0266 0273 | s | Execute Discrete,Plus 0267 e402 | | Load 0x2,0x2 0268 01d6 | | Execute Vector,Field_Write 0269 00c8 | | Action Pop_Auxiliary_Range 026a 3ff6 |? | Loop_Increasing 0x261 026b 00ce | | Action Pop_Auxiliary 026c 00d8 | | Load_Top At_Offset_0 026d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 026e 0000 0000 | | .XXX[0x2] 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug Table 0270 ; -------------------------------------------------------------------------------------- 0270 0004 0001 | | .DEBUG4 0x0004,0x0001,0x2e78,0x0000,0x0001,0x000e 0276 000b 02ae | | .DBG4T 0x000b,0x02ae,0xc000,0x0000 027a 0020 02ba | | .DBG4T 0x0020,0x02ba,0xc000,0x8000 027e 0073 02e1 | s | .DBG4T 0x0073,0x02e1,0x1002,0x0000 0282 0093 02e4 | | .DBG4T 0x0093,0x02e4,0x1002,0x0000 0286 00ab 02e7 | | .DBG4T 0x00ab,0x02e7,0x1002,0x0000 028a 00fb 02ea | | .DBG4T 0x00fb,0x02ea,0x1001,0x0000 028e 011b 02ef | | .DBG4T 0x011b,0x02ef,0x1001,0x0000 0292 013b 02f4 | ; | .DBG4T 0x013b,0x02f4,0x1002,0x0000 0296 0163 02f7 | c | .DBG4T 0x0163,0x02f7,0x1002,0x0000 029a 018b 02fa | | .DBG4T 0x018b,0x02fa,0x1002,0x0000 029e 01b3 02fd | | .DBG4T 0x01b3,0x02fd,0x1002,0x0000 02a2 01d3 0300 | | .DBG4T 0x01d3,0x0300,0x1002,0x0000 02a6 022b 030f | + | .DBG4T 0x022b,0x030f,0x1002,0x4000 02aa 024b 031e | K | .DBG4T 0x024b,0x031e,0x1002,0x0000 02ae ; -------------------------------------------------------------------------------------- 02ae ; Debug chain 02ae ; -------------------------------------------------------------------------------------- 02ae 000a 0000 | | .DBGLEN 0x000a,0x0000 02b0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d 02ba ; -------------------------------------------------------------------------------------- 02ba ; Debug chain 02ba ; -------------------------------------------------------------------------------------- 02ba 0012 0001 | | .DBGLEN 0x0012,0x0001 02bc 0020 002f | /| .DBGLNO 0x0020,0x002f,0x0038,0x003e,0x003f,0x0047,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067 02cf 0005 0007 | | .XXX[0x12] 02d1 0008 0009 | | 02d3 000a 000b | | 02d5 000c 000d | | 02d7 000e 000f | | 02d9 0010 0011 | | 02db 0012 0013 | | 02dd 0014 0015 | | 02df 0016 0017 | | 02e1 ; -------------------------------------------------------------------------------------- 02e1 ; Debug chain 02e1 ; -------------------------------------------------------------------------------------- 02e1 0000 0001 | | .DBGLEN 0x0000,0x0001 02e3 0073 | s | .DBGLNO 0x0073 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug chain 02e4 ; -------------------------------------------------------------------------------------- 02e4 0000 0001 | | .DBGLEN 0x0000,0x0001 02e6 0093 | | .DBGLNO 0x0093 02e7 ; -------------------------------------------------------------------------------------- 02e7 ; Debug chain 02e7 ; -------------------------------------------------------------------------------------- 02e7 0000 0001 | | .DBGLEN 0x0000,0x0001 02e9 00ab | | .DBGLNO 0x00ab 02ea ; -------------------------------------------------------------------------------------- 02ea ; Debug chain 02ea ; -------------------------------------------------------------------------------------- 02ea 0001 0002 | | .DBGLEN 0x0001,0x0002 02ec 00fb 0109 | | .DBGLNO 0x00fb,0x0109,0x010f 02ef ; -------------------------------------------------------------------------------------- 02ef ; Debug chain 02ef ; -------------------------------------------------------------------------------------- 02ef 0001 0002 | | .DBGLEN 0x0001,0x0002 02f1 011b 0129 | )| .DBGLNO 0x011b,0x0129,0x012f 02f4 ; -------------------------------------------------------------------------------------- 02f4 ; Debug chain 02f4 ; -------------------------------------------------------------------------------------- 02f4 0000 0001 | | .DBGLEN 0x0000,0x0001 02f6 013b | ; | .DBGLNO 0x013b 02f7 ; -------------------------------------------------------------------------------------- 02f7 ; Debug chain 02f7 ; -------------------------------------------------------------------------------------- 02f7 0000 0001 | | .DBGLEN 0x0000,0x0001 02f9 0163 | c | .DBGLNO 0x0163 02fa ; -------------------------------------------------------------------------------------- 02fa ; Debug chain 02fa ; -------------------------------------------------------------------------------------- 02fa 0000 0001 | | .DBGLEN 0x0000,0x0001 02fc 018b | | .DBGLNO 0x018b 02fd ; -------------------------------------------------------------------------------------- 02fd ; Debug chain 02fd ; -------------------------------------------------------------------------------------- 02fd 0000 0001 | | .DBGLEN 0x0000,0x0001 02ff 01b3 | | .DBGLNO 0x01b3 0300 ; -------------------------------------------------------------------------------------- 0300 ; Debug chain 0300 ; -------------------------------------------------------------------------------------- 0300 0002 000b | | .DBGLEN 0x0002,0x000b 0302 01d3 01d6 | | .DBGLNO 0x01d3,0x01d6,0x01d9,0x01dd,0x01e1,0x01e8,0x01eb,0x01ee,0x0209,0x020c,0x0210,0x0215,0x021b 030f ; -------------------------------------------------------------------------------------- 030f ; Debug chain 030f ; -------------------------------------------------------------------------------------- 030f 0003 0005 | | .DBGLEN 0x0003,0x0005 0311 022b 022d | + -| .DBGLNO 0x022b,0x022d,0x022f,0x0233,0x0236,0x023a,0x023d,0x0243 0319 0002 0003 | | .XXX[0x5] 031b 0001 0004 | | 031d 0005 | | 031e ; -------------------------------------------------------------------------------------- 031e ; Debug chain 031e ; -------------------------------------------------------------------------------------- 031e 0001 0003 | | .DBGLEN 0x0001,0x0003 0320 024b 025c | K \| .DBGLNO 0x024b,0x025c,0x0261,0x026c 0324 0000 0000 | | .BLANK 0000[0xdc]