|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦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 0044 | D | .CONST 0x0044 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0048
000d 029a 006b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0068
000f 029a 0073 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0070
0011 029a 0083 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0080
0013 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
0015 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
0017 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0019 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
001b 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
001d 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
001f 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0021 029a 01d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d0
0023 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8
0025 00bf | | Action Accept_Activation
0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0027 00c7 | | Action Elaborate_Subprogram
0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b 00c7 | | Action Elaborate_Subprogram
002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002d 00c7 | | Action Elaborate_Subprogram
002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002f 00c7 | | Action Elaborate_Subprogram
0030 029d 0233 | 3| Declare_Subprogram For_Outer_Call,INIT_0230
0032 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0033 00c7 | | Action Elaborate_Subprogram
0034 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0035 00c7 | | Action Elaborate_Subprogram
0036 029d 024b | K| Declare_Subprogram For_Outer_Call,INIT_0248
0038 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0039 00c7 | | Action Elaborate_Subprogram
003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003b 00c7 | | Action Elaborate_Subprogram
003c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003d 00c7 | | Action Elaborate_Subprogram
003e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003f 00c7 | | Action Elaborate_Subprogram
0040 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0041 00c7 | | Action Elaborate_Subprogram
0042 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0043 00c7 | | Action Elaborate_Subprogram
0044 BODY_0008:
0044 00bc | | Action Signal_Activated
0045 00bb | | Action Signal_Completion
0046 0000 0000 | | .XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004d | M | .CONST 0x004d ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b INIT_0048:
004b 0007 | | Action Break_Optional
004c 0007 | | Action Break_Optional
004d BODY_0048:
004d 00da | | Load_Top At_Offset_2
004e 01db | | Execute Vector,Length
004f 7002 |p | Jump_Nonzero 0x52
0050 4801 |H | Short_Literal 0x1
0051 4401 |D | Exit_Subprogram With_Result,0x1
0052 00cf | | Action Mark_Auxiliary
0053 00db | | Load_Top At_Offset_3
0054 01d9 | | Execute Vector,Reverse_Bounds
0055 0263 | c | Execute Discrete,Above_Bound
0056 700c |p | Jump_Nonzero 0x63
0057 00d8 | | Load_Top At_Offset_0
0058 e5ff | | Load 0x2,-0x1
0059 01d7 | | Execute Vector,Field_Read
005a 0b20 | | Execute_Immediate Case_Compare,0x20
005b 7004 |p | Jump_Nonzero 0x60
005c 0b09 | | Execute_Immediate Case_Compare,0x9
005d 7002 |p | Jump_Nonzero 0x60
005e 4800 |H | Short_Literal 0x0
005f 4401 |D | Exit_Subprogram With_Result,0x1
0060 00d1 | | Pop_Control Pop_Count_1
0061 00c8 | | Action Pop_Auxiliary_Range
0062 3ff4 |? | Loop_Increasing 0x57
0063 00ce | | Action Pop_Auxiliary
0064 4801 |H | Short_Literal 0x1
0065 4401 |D | Exit_Subprogram With_Result,0x1
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c 820f | | Call 0x1,0xf
006d 00db | | Load_Top At_Offset_3
006e 01df | | Execute Vector,Equal
006f 4401 |D | Exit_Subprogram With_Result,0x1
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0074 | t | .CONST 0x0074 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 INIT_0070:
0073 0007 | | Action Break_Optional
0074 BODY_0070:
0074 4801 |H | Short_Literal 0x1
0075 4800 |H | Short_Literal 0x0
0076 4820 |H | Short_Literal 0x20
0077 4801 |H | Short_Literal 0x1
0078 4800 |H | Short_Literal 0x0
0079 4809 |H | Short_Literal 0x9
007a e5ff | | Load 0x2,-0x1
007b 8213 | | Call 0x1,0x13
007c 8213 | | Call 0x1,0x13
007d 4401 |D | Exit_Subprogram With_Result,0x1
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4820 |H | Short_Literal 0x20
0084 00db | | Load_Top At_Offset_3
0085 e001 | | Load 0x0,0x1
0086 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0087 00db | | Load_Top At_Offset_3
0088 01de | | Execute Vector,Not_Equal
0089 7007 |p | Jump_Nonzero 0x91
008a 4820 |H | Short_Literal 0x20
008b 00db | | Load_Top At_Offset_3
008c e001 | | Load 0x0,0x1
008d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008e 00db | | Load_Top At_Offset_3
008f 01de | | Execute Vector,Not_Equal
0090 4401 |D | Exit_Subprogram With_Result,0x1
0091 4801 |H | Short_Literal 0x1
0092 4401 |D | Exit_Subprogram With_Result,0x1
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a3 | | .CONST 0x00a3 ; Address of begin
0099 00bc | | .CONST 0x00bc ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b 4801 |H | Short_Literal 0x1
009c e5fe | | Load 0x2,-0x2
009d 01db | | Execute Vector,Length
009e 00e9 | | Load_Encached String_Cache
009f 0334 | 4 | Declare_Variable Array,With_Constraint
00a0 e5fe | | Load 0x2,-0x2
00a1 00d9 | | Load_Top At_Offset_1
00a2 01d4 | | Execute Vector,Structure_Write
00a3 BODY_0098:
00a3 00cf | | Action Mark_Auxiliary
00a4 00d9 | | Load_Top At_Offset_1
00a5 01dc | | Execute Vector,Last
00a6 e5fc | | Load 0x2,-0x4
00a7 0263 | c | Execute Discrete,Above_Bound
00a8 7010 |p | Jump_Nonzero 0xb9
00a9 e5fd | | Load 0x2,-0x3
00aa 00d9 | | Load_Top At_Offset_1
00ab 00da | | Load_Top At_Offset_2
00ac e5ff | | Load 0x2,-0x1
00ad 01db | | Execute Vector,Length
00ae 0aff | | Execute_Immediate Plus,-0x1
00af 0273 | s | Execute Discrete,Plus
00b0 e402 | | Load 0x2,0x2
00b1 01cf | | Execute Vector,Slice_Read
00b2 e5ff | | Load 0x2,-0x1
00b3 821b | | Call 0x1,0x1b
00b4 6802 |h | Jump_Zero 0xb7
00b5 00d8 | | Load_Top At_Offset_0
00b6 4404 |D | Exit_Subprogram With_Result,0x4
00b7 00c8 | | Action Pop_Auxiliary_Range
00b8 3ff0 |? | Loop_Increasing 0xa9
00b9 00ce | | Action Pop_Auxiliary
00ba 4800 |H | Short_Literal 0x0
00bb 4404 |D | Exit_Subprogram With_Result,0x4
00bc TRAP_0098:
00bc 0007 | | Action Break_Optional
00bd 4800 |H | Short_Literal 0x0
00be 4404 |D | Exit_Subprogram With_Result,0x4
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00e1 | | .CONST 0x00e1 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0005 | | .CONST 0x0005 ; Number of locals
00c3 INIT_00c0:
00c3 00db | | Load_Top At_Offset_3
00c4 01dd | | Execute Vector,First
00c5 00db | | Load_Top At_Offset_3
00c6 0aff | | Execute_Immediate Plus,-0x1
00c7 e5fe | | Load 0x2,-0x2
00c8 01cf | | Execute Vector,Slice_Read
00c9 0335 | 5 | Declare_Variable Array,Duplicate
00ca 00d0 | | Action Swap_Control
00cb 00d1 | | Pop_Control Pop_Count_1
00cc 00db | | Load_Top At_Offset_3
00cd 0a01 | | Execute_Immediate Plus,0x1
00ce e5fe | | Load 0x2,-0x2
00cf 01dc | | Execute Vector,Last
00d0 e5fe | | Load 0x2,-0x2
00d1 01cf | | Execute Vector,Slice_Read
00d2 0335 | 5 | Declare_Variable Array,Duplicate
00d3 00d0 | | Action Swap_Control
00d4 00d1 | | Pop_Control Pop_Count_1
00d5 00d9 | | Load_Top At_Offset_1
00d6 00d9 | | Load_Top At_Offset_1
00d7 01cc | | Execute Vector,Catenate
00d8 0007 | | Action Break_Optional
00d9 4801 |H | Short_Literal 0x1
00da 00d9 | | Load_Top At_Offset_1
00db 01db | | Execute Vector,Length
00dc 00e9 | | Load_Encached String_Cache
00dd 0334 | 4 | Declare_Variable Array,With_Constraint
00de 00d9 | | Load_Top At_Offset_1
00df 00d9 | | Load_Top At_Offset_1
00e0 01d4 | | Execute Vector,Structure_Write
00e1 BODY_00c0:
00e1 00d8 | | Load_Top At_Offset_0
00e2 4402 |D | Exit_Subprogram With_Result,0x2
00e3 0000 0000 | | .BLANK 0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f3 | | .CONST 0x00f3 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec 00db | | Load_Top At_Offset_3
00ed 01db | | Execute Vector,Length
00ee 00e9 | | Load_Encached String_Cache
00ef 0334 | 4 | Declare_Variable Array,With_Constraint
00f0 00db | | Load_Top At_Offset_3
00f1 00d9 | | Load_Top At_Offset_1
00f2 01d4 | | Execute Vector,Structure_Write
00f3 BODY_00e8:
00f3 00d8 | | Load_Top At_Offset_0
00f4 01db | | Execute Vector,Length
00f5 7002 |p | Jump_Nonzero 0xf8
00f6 00d8 | | Load_Top At_Offset_0
00f7 4404 |D | Exit_Subprogram With_Result,0x4
00f8 00cf | | Action Mark_Auxiliary
00f9 00d9 | | Load_Top At_Offset_1
00fa 01d9 | | Execute Vector,Reverse_Bounds
00fb 0263 | c | Execute Discrete,Above_Bound
00fc 7014 |p | Jump_Nonzero 0x111
00fd e5fd | | Load 0x2,-0x3
00fe e5fe | | Load 0x2,-0x2
00ff 00da | | Load_Top At_Offset_2
0100 e402 | | Load 0x2,0x2
0101 01d7 | | Execute Vector,Field_Read
0102 821a | | Call 0x1,0x1a
0103 680b |h | Jump_Zero 0x10f
0104 00d8 | | Load_Top At_Offset_0
0105 0a01 | | Execute_Immediate Plus,0x1
0106 00e4 | | Load_Encached Positive_Cache
0107 025b | [ | Execute Discrete,Check_In_Type
0108 e5fd | | Load 0x2,-0x3
0109 e5fe | | Load 0x2,-0x2
010a e402 | | Load 0x2,0x2
010b e405 | | Load 0x2,0x5
010c 8212 | | Call 0x1,0x12
010d 8213 | | Call 0x1,0x13
010e 4404 |D | Exit_Subprogram With_Result,0x4
010f 00c8 | | Action Pop_Auxiliary_Range
0110 3fec |? | Loop_Increasing 0xfd
0111 00ce | | Action Pop_Auxiliary
0112 00d8 | | Load_Top At_Offset_0
0113 4404 |D | Exit_Subprogram With_Result,0x4
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0139 | 9 | .CONST 0x0139 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0005 | | .CONST 0x0005 ; Number of locals
011b INIT_0118:
011b e5fd | | Load 0x2,-0x3
011c 01dd | | Execute Vector,First
011d 00db | | Load_Top At_Offset_3
011e 0aff | | Execute_Immediate Plus,-0x1
011f e5fd | | Load 0x2,-0x3
0120 01cf | | Execute Vector,Slice_Read
0121 0335 | 5 | Declare_Variable Array,Duplicate
0122 00d0 | | Action Swap_Control
0123 00d1 | | Pop_Control Pop_Count_1
0124 e5fe | | Load 0x2,-0x2
0125 0a01 | | Execute_Immediate Plus,0x1
0126 e5fd | | Load 0x2,-0x3
0127 01dc | | Execute Vector,Last
0128 e5fd | | Load 0x2,-0x3
0129 01cf | | Execute Vector,Slice_Read
012a 0335 | 5 | Declare_Variable Array,Duplicate
012b 00d0 | | Action Swap_Control
012c 00d1 | | Pop_Control Pop_Count_1
012d 00d9 | | Load_Top At_Offset_1
012e 00d9 | | Load_Top At_Offset_1
012f 01cc | | Execute Vector,Catenate
0130 0007 | | Action Break_Optional
0131 4801 |H | Short_Literal 0x1
0132 00d9 | | Load_Top At_Offset_1
0133 01db | | Execute Vector,Length
0134 00e9 | | Load_Encached String_Cache
0135 0334 | 4 | Declare_Variable Array,With_Constraint
0136 00d9 | | Load_Top At_Offset_1
0137 00d9 | | Load_Top At_Offset_1
0138 01d4 | | Execute Vector,Structure_Write
0139 BODY_0118:
0139 00d8 | | Load_Top At_Offset_0
013a 4403 |D | Exit_Subprogram With_Result,0x3
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014d | M | .CONST 0x014d ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 4801 |H | Short_Literal 0x1
0144 00db | | Load_Top At_Offset_3
0145 01db | | Execute Vector,Length
0146 00e9 | | Load_Encached String_Cache
0147 0334 | 4 | Declare_Variable Array,With_Constraint
0148 00db | | Load_Top At_Offset_3
0149 00d9 | | Load_Top At_Offset_1
014a 01d4 | | Execute Vector,Structure_Write
014b 00e3 | | Load_Encached Natural_Cache
014c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
014d BODY_0140:
014d e5ff | | Load 0x2,-0x1
014e 01db | | Execute Vector,Length
014f 6803 |h | Jump_Zero 0x153
0150 e5fe | | Load 0x2,-0x2
0151 01db | | Execute Vector,Length
0152 7003 |p | Jump_Nonzero 0x156
0153 e5ff | | Load 0x2,-0x1
0154 0335 | 5 | Declare_Variable Array,Duplicate
0155 4404 |D | Exit_Subprogram With_Result,0x4
0156 00cf | | Action Mark_Auxiliary
0157 0007 | | Action Break_Optional
0158 e5fc | | Load 0x2,-0x4
0159 e5fd | | Load 0x2,-0x3
015a e402 | | Load 0x2,0x2
015b e5fe | | Load 0x2,-0x2
015c 8211 | | Call 0x1,0x11
015d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
015e 00d9 | | Load_Top At_Offset_1
015f 6813 |h | Jump_Zero 0x173
0160 00d9 | | Load_Top At_Offset_1
0161 e5fe | | Load 0x2,-0x2
0162 01db | | Execute Vector,Length
0163 0273 | s | Execute Discrete,Plus
0164 00e4 | | Load_Encached Positive_Cache
0165 025b | [ | Execute Discrete,Check_In_Type
0166 e5fd | | Load 0x2,-0x3
0167 e5fe | | Load 0x2,-0x2
0168 e402 | | Load 0x2,0x2
0169 e403 | | Load 0x2,0x3
016a e5fe | | Load 0x2,-0x2
016b 01db | | Execute Vector,Length
016c 0aff | | Execute_Immediate Plus,-0x1
016d 0273 | s | Execute Discrete,Plus
016e 0248 | H | Execute Discrete,Check_In_Integer
016f e403 | | Load 0x2,0x3
0170 8214 | | Call 0x1,0x14
0171 8215 | | Call 0x1,0x15
0172 4404 |D | Exit_Subprogram With_Result,0x4
0173 00da | | Load_Top At_Offset_2
0174 4404 |D | Exit_Subprogram With_Result,0x4
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 019b | | .CONST 0x019b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0005 | | .CONST 0x0005 ; Number of locals
017b INIT_0178:
017b e5fd | | Load 0x2,-0x3
017c 01dd | | Execute Vector,First
017d 00db | | Load_Top At_Offset_3
017e 0aff | | Execute_Immediate Plus,-0x1
017f e5fd | | Load 0x2,-0x3
0180 01cf | | Execute Vector,Slice_Read
0181 0335 | 5 | Declare_Variable Array,Duplicate
0182 00d0 | | Action Swap_Control
0183 00d1 | | Pop_Control Pop_Count_1
0184 00db | | Load_Top At_Offset_3
0185 0a01 | | Execute_Immediate Plus,0x1
0186 e5fd | | Load 0x2,-0x3
0187 01dc | | Execute Vector,Last
0188 e5fd | | Load 0x2,-0x3
0189 01cf | | Execute Vector,Slice_Read
018a 0335 | 5 | Declare_Variable Array,Duplicate
018b 00d0 | | Action Swap_Control
018c 00d1 | | Pop_Control Pop_Count_1
018d e5fe | | Load 0x2,-0x2
018e 00da | | Load_Top At_Offset_2
018f 01cb | | Execute Vector,Append
0190 00d9 | | Load_Top At_Offset_1
0191 01cc | | Execute Vector,Catenate
0192 0007 | | Action Break_Optional
0193 4801 |H | Short_Literal 0x1
0194 00d9 | | Load_Top At_Offset_1
0195 01db | | Execute Vector,Length
0196 00e9 | | Load_Encached String_Cache
0197 0334 | 4 | Declare_Variable Array,With_Constraint
0198 00d9 | | Load_Top At_Offset_1
0199 00d9 | | Load_Top At_Offset_1
019a 01d4 | | Execute Vector,Structure_Write
019b BODY_0178:
019b 00d8 | | Load_Top At_Offset_0
019c 4403 |D | Exit_Subprogram With_Result,0x3
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ab | | .CONST 0x01ab ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 4801 |H | Short_Literal 0x1
01a4 00db | | Load_Top At_Offset_3
01a5 01db | | Execute Vector,Length
01a6 00e9 | | Load_Encached String_Cache
01a7 0334 | 4 | Declare_Variable Array,With_Constraint
01a8 00db | | Load_Top At_Offset_3
01a9 00d9 | | Load_Top At_Offset_1
01aa 01d4 | | Execute Vector,Structure_Write
01ab BODY_01a0:
01ab 00d8 | | Load_Top At_Offset_0
01ac 01db | | Execute Vector,Length
01ad 7002 |p | Jump_Nonzero 0x1b0
01ae 00d8 | | Load_Top At_Offset_0
01af 4405 |D | Exit_Subprogram With_Result,0x5
01b0 00cf | | Action Mark_Auxiliary
01b1 00d9 | | Load_Top At_Offset_1
01b2 01d9 | | Execute Vector,Reverse_Bounds
01b3 0263 | c | Execute Discrete,Above_Bound
01b4 7016 |p | Jump_Nonzero 0x1cb
01b5 e5fc | | Load 0x2,-0x4
01b6 e5fe | | Load 0x2,-0x2
01b7 00da | | Load_Top At_Offset_2
01b8 e402 | | Load 0x2,0x2
01b9 01d7 | | Execute Vector,Field_Read
01ba 821a | | Call 0x1,0x1a
01bb 680d |h | Jump_Zero 0x1c9
01bc 00d8 | | Load_Top At_Offset_0
01bd 0a01 | | Execute_Immediate Plus,0x1
01be 00e4 | | Load_Encached Positive_Cache
01bf 025b | [ | Execute Discrete,Check_In_Type
01c0 e5fc | | Load 0x2,-0x4
01c1 e5fd | | Load 0x2,-0x3
01c2 e5fe | | Load 0x2,-0x2
01c3 e402 | | Load 0x2,0x2
01c4 e5fd | | Load 0x2,-0x3
01c5 e405 | | Load 0x2,0x5
01c6 8216 | | Call 0x1,0x16
01c7 8217 | | Call 0x1,0x17
01c8 4405 |D | Exit_Subprogram With_Result,0x5
01c9 00c8 | | Action Pop_Auxiliary_Range
01ca 3fea |? | Loop_Increasing 0x1b5
01cb 00ce | | Action Pop_Auxiliary
01cc 00d8 | | Load_Top At_Offset_0
01cd 4405 |D | Exit_Subprogram With_Result,0x5
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01f3 | | .CONST 0x01f3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0005 | | .CONST 0x0005 ; Number of locals
01d3 INIT_01d0:
01d3 e5fc | | Load 0x2,-0x4
01d4 01dd | | Execute Vector,First
01d5 00db | | Load_Top At_Offset_3
01d6 0aff | | Execute_Immediate Plus,-0x1
01d7 e5fc | | Load 0x2,-0x4
01d8 01cf | | Execute Vector,Slice_Read
01d9 0335 | 5 | Declare_Variable Array,Duplicate
01da 00d0 | | Action Swap_Control
01db 00d1 | | Pop_Control Pop_Count_1
01dc e5fe | | Load 0x2,-0x2
01dd 0a01 | | Execute_Immediate Plus,0x1
01de e5fc | | Load 0x2,-0x4
01df 01dc | | Execute Vector,Last
01e0 e5fc | | Load 0x2,-0x4
01e1 01cf | | Execute Vector,Slice_Read
01e2 0335 | 5 | Declare_Variable Array,Duplicate
01e3 00d0 | | Action Swap_Control
01e4 00d1 | | Pop_Control Pop_Count_1
01e5 00d9 | | Load_Top At_Offset_1
01e6 e5fd | | Load 0x2,-0x3
01e7 01cc | | Execute Vector,Catenate
01e8 00d9 | | Load_Top At_Offset_1
01e9 01cc | | Execute Vector,Catenate
01ea 0007 | | Action Break_Optional
01eb 4801 |H | Short_Literal 0x1
01ec 00d9 | | Load_Top At_Offset_1
01ed 01db | | Execute Vector,Length
01ee 00e9 | | Load_Encached String_Cache
01ef 0334 | 4 | Declare_Variable Array,With_Constraint
01f0 00d9 | | Load_Top At_Offset_1
01f1 00d9 | | Load_Top At_Offset_1
01f2 01d4 | | Execute Vector,Structure_Write
01f3 BODY_01d0:
01f3 00d8 | | Load_Top At_Offset_0
01f4 4404 |D | Exit_Subprogram With_Result,0x4
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0205 | | .CONST 0x0205 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb 4801 |H | Short_Literal 0x1
01fc 00db | | Load_Top At_Offset_3
01fd 01db | | Execute Vector,Length
01fe 00e9 | | Load_Encached String_Cache
01ff 0334 | 4 | Declare_Variable Array,With_Constraint
0200 00db | | Load_Top At_Offset_3
0201 00d9 | | Load_Top At_Offset_1
0202 01d4 | | Execute Vector,Structure_Write
0203 00e3 | | Load_Encached Natural_Cache
0204 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0205 BODY_01f8:
0205 e5ff | | Load 0x2,-0x1
0206 01db | | Execute Vector,Length
0207 6803 |h | Jump_Zero 0x20b
0208 e5fe | | Load 0x2,-0x2
0209 01db | | Execute Vector,Length
020a 7003 |p | Jump_Nonzero 0x20e
020b e5ff | | Load 0x2,-0x1
020c 0335 | 5 | Declare_Variable Array,Duplicate
020d 4405 |D | Exit_Subprogram With_Result,0x5
020e 00cf | | Action Mark_Auxiliary
020f 0007 | | Action Break_Optional
0210 e5fb | | Load 0x2,-0x5
0211 e5fc | | Load 0x2,-0x4
0212 e402 | | Load 0x2,0x2
0213 e5fe | | Load 0x2,-0x2
0214 8211 | | Call 0x1,0x11
0215 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0216 00d9 | | Load_Top At_Offset_1
0217 6815 |h | Jump_Zero 0x22d
0218 00d9 | | Load_Top At_Offset_1
0219 e5fd | | Load 0x2,-0x3
021a 01db | | Execute Vector,Length
021b 0273 | s | Execute Discrete,Plus
021c 00e4 | | Load_Encached Positive_Cache
021d 025b | [ | Execute Discrete,Check_In_Type
021e e5fc | | Load 0x2,-0x4
021f e5fd | | Load 0x2,-0x3
0220 e5fe | | Load 0x2,-0x2
0221 e402 | | Load 0x2,0x2
0222 e5fd | | Load 0x2,-0x3
0223 e403 | | Load 0x2,0x3
0224 e5fe | | Load 0x2,-0x2
0225 01db | | Execute Vector,Length
0226 0aff | | Execute_Immediate Plus,-0x1
0227 0273 | s | Execute Discrete,Plus
0228 0248 | H | Execute Discrete,Check_In_Integer
0229 e403 | | Load 0x2,0x3
022a 8218 | | Call 0x1,0x18
022b 8219 | | Call 0x1,0x19
022c 4405 |D | Exit_Subprogram With_Result,0x5
022d 00da | | Load_Top At_Offset_2
022e 4405 |D | Exit_Subprogram With_Result,0x5
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e5fd | | Load 0x2,-0x3
0234 6808 |h | Jump_Zero 0x23d
0235 00da | | Load_Top At_Offset_2
0236 e001 | | Load 0x0,0x1
0237 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0238 e5fe | | Load 0x2,-0x2
0239 e001 | | Load 0x0,0x1
023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023b 027f | | Execute Discrete,Equal
023c 4403 |D | Exit_Subprogram With_Result,0x3
023d 00da | | Load_Top At_Offset_2
023e e5fe | | Load 0x2,-0x2
023f 027f | | Execute Discrete,Equal
0240 4403 |D | Exit_Subprogram With_Result,0x3
0241 0000 0000 | | .BLANK 0000[0x7]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e5fd | | Load 0x2,-0x3
024c 6808 |h | Jump_Zero 0x255
024d 00da | | Load_Top At_Offset_2
024e e001 | | Load 0x0,0x1
024f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0250 e5fe | | Load 0x2,-0x2
0251 e001 | | Load 0x0,0x1
0252 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0253 01df | | Execute Vector,Equal
0254 4403 |D | Exit_Subprogram With_Result,0x3
0255 00da | | Load_Top At_Offset_2
0256 e5fe | | Load 0x2,-0x2
0257 01df | | Execute Vector,Equal
0258 4403 |D | Exit_Subprogram With_Result,0x3
0259 0000 0000 | | .BLANK 0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 000c | | .DEBUG4 0x0004,0x000c,0x70eb,0x0000,0x0001,0x0000
0266 0000 0000 | | .BLANK 0000[0x19a]