|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0230eb
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0340 | @ | .CONST 0x0340 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007e | ~ | .CONST 0x007e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4814 |H | Short_Literal 0x14
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 029a 0083 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0080
0011 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
0013 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
0015 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0017 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0019 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
001b 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
001d 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
001f 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
0021 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0023 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0025 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0027 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
0029 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
002b 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8
002d 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
002f 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0031 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230
0033 029a 0243 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0240
0035 0093 0000 | | PushFullAddress InMicrocode
0037 6054 |`T | Indirect_Literal Discrete,0x8c,{0x80000000, 0x00010000}
0038 0273 | s | Execute Discrete,Plus
0039 0129 | ) | Execute Any,Make_Visible
003a 0093 0000 | | PushFullAddress InMicrocode
003c 604b |`K | Indirect_Literal Discrete,0x88,{0x80000000, 0x00020000}
003d 0273 | s | Execute Discrete,Plus
003e 0129 | ) | Execute Any,Make_Visible
003f e20d | | Load 0x1,0xd
0040 0266 | f | Execute Discrete,Bounds
0041 e002 | | Load 0x0,0x2
0042 029f 02cb | | Declare_Subprogram For_Call,INIT_02c8
0044 4801 |H | Short_Literal 0x1
0045 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0046 e20d | | Load 0x1,0xd
0047 4801 |H | Short_Literal 0x1
0048 4814 |H | Short_Literal 0x14
0049 00db | | Load_Top At_Offset_3
004a 035c | \ | Declare_Type Array,Constrained,Visible
004b 029f 0323 | #| Declare_Subprogram For_Call,INIT_0320
004d 4802 |H | Short_Literal 0x2
004e 032e | . | Declare_Type Record,Defined,Visible
004f 4800 |H | Short_Literal 0x0
0050 4815 |H | Short_Literal 0x15
0051 00e3 | | Load_Encached Natural_Cache
0052 03f9 | | Declare_Type Discrete,Constrained,Visible
0053 00bf | | Action Accept_Activation
0054 0092 0331 | 1| Action Push_String_Extended,0x331 ; "number=>"
0056 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0057 00c7 | | Action Elaborate_Subprogram
0058 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0059 00c7 | | Action Elaborate_Subprogram
005a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005b 00c7 | | Action Elaborate_Subprogram
005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005d 00c7 | | Action Elaborate_Subprogram
005e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005f 00c7 | | Action Elaborate_Subprogram
0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0061 00c7 | | Action Elaborate_Subprogram
0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0063 00c7 | | Action Elaborate_Subprogram
0064 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0065 00c7 | | Action Elaborate_Subprogram
0066 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0067 00c7 | | Action Elaborate_Subprogram
0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0069 00c7 | | Action Elaborate_Subprogram
006a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006b 00c7 | | Action Elaborate_Subprogram
006c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0075 00c7 | | Action Elaborate_Subprogram
0076 029d 02f3 | | Declare_Subprogram For_Outer_Call,INIT_02f0
0078 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007b 00c7 | | Action Elaborate_Subprogram
007c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007d 00c7 | | Action Elaborate_Subprogram
007e BODY_0008:
007e 00bc | | Action Signal_Activated
007f 00bb | | Action Signal_Completion
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 00da | | Load_Top At_Offset_2
0084 e5fe | | Load 0x2,-0x2
0085 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0086 4502 |E | Exit_Subprogram 0x2
0087 0000 | | .XXX[0x1]
0088 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
008c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097 | | .CONST 0x0097 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e002 | | Load 0x0,0x2
0094 0322 | " | Declare_Variable Record
0095 00d8 | | Load_Top At_Offset_0
0096 1c00 | | Execute_Immediate Run_Utility,0x0
0097 BODY_0090:
0097 4801 |H | Short_Literal 0x1
0098 e5fd | | Load 0x2,-0x3
0099 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009a e5fe | | Load 0x2,-0x2
009b e5ff | | Load 0x2,-0x1
009c 8003 | | Call 0x0,0x3
009d 00d9 | | Load_Top At_Offset_1
009e 017d | } | Execute Record,Structure_Write
009f 00d8 | | Load_Top At_Offset_0
00a0 4801 |H | Short_Literal 0x1
00a1 e5fd | | Load 0x2,-0x3
00a2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00a3 01d6 | | Execute Vector,Field_Write
00a4 4503 |E | Exit_Subprogram 0x3
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b3 | | .CONST 0x00b3 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab e002 | | Load 0x0,0x2
00ac 0322 | " | Declare_Variable Record
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af e002 | | Load 0x0,0x2
00b0 0322 | " | Declare_Variable Record
00b1 00d8 | | Load_Top At_Offset_0
00b2 1c00 | | Execute_Immediate Run_Utility,0x0
00b3 BODY_00a8:
00b3 4802 |H | Short_Literal 0x2
00b4 e5fb | | Load 0x2,-0x5
00b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b6 e5fe | | Load 0x2,-0x2
00b7 e5ff | | Load 0x2,-0x1
00b8 8003 | | Call 0x0,0x3
00b9 00da | | Load_Top At_Offset_2
00ba 017d | } | Execute Record,Structure_Write
00bb 00d9 | | Load_Top At_Offset_1
00bc 4801 |H | Short_Literal 0x1
00bd e5fb | | Load 0x2,-0x5
00be 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00bf 01d6 | | Execute Vector,Field_Write
00c0 e5fc | | Load 0x2,-0x4
00c1 e5fd | | Load 0x2,-0x3
00c2 8003 | | Call 0x0,0x3
00c3 00d9 | | Load_Top At_Offset_1
00c4 017d | } | Execute Record,Structure_Write
00c5 00d8 | | Load_Top At_Offset_0
00c6 4802 |H | Short_Literal 0x2
00c7 e5fb | | Load 0x2,-0x5
00c8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00c9 01d6 | | Execute Vector,Field_Write
00ca 4505 |E | Exit_Subprogram 0x5
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00df | | .CONST 0x00df ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 e002 | | Load 0x0,0x2
00d4 0322 | " | Declare_Variable Record
00d5 00d8 | | Load_Top At_Offset_0
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 e002 | | Load 0x0,0x2
00d8 0322 | " | Declare_Variable Record
00d9 00d8 | | Load_Top At_Offset_0
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db e002 | | Load 0x0,0x2
00dc 0322 | " | Declare_Variable Record
00dd 00d8 | | Load_Top At_Offset_0
00de 1c00 | | Execute_Immediate Run_Utility,0x0
00df BODY_00d0:
00df 4803 |H | Short_Literal 0x3
00e0 e5f9 | | Load 0x2,-0x7
00e1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e2 e5fe | | Load 0x2,-0x2
00e3 e5ff | | Load 0x2,-0x1
00e4 8003 | | Call 0x0,0x3
00e5 00db | | Load_Top At_Offset_3
00e6 017d | } | Execute Record,Structure_Write
00e7 00da | | Load_Top At_Offset_2
00e8 4801 |H | Short_Literal 0x1
00e9 e5f9 | | Load 0x2,-0x7
00ea 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00eb 01d6 | | Execute Vector,Field_Write
00ec e5fc | | Load 0x2,-0x4
00ed e5fd | | Load 0x2,-0x3
00ee 8003 | | Call 0x0,0x3
00ef 00da | | Load_Top At_Offset_2
00f0 017d | } | Execute Record,Structure_Write
00f1 00d9 | | Load_Top At_Offset_1
00f2 4802 |H | Short_Literal 0x2
00f3 e5f9 | | Load 0x2,-0x7
00f4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f5 01d6 | | Execute Vector,Field_Write
00f6 e5fa | | Load 0x2,-0x6
00f7 e5fb | | Load 0x2,-0x5
00f8 8003 | | Call 0x0,0x3
00f9 00d9 | | Load_Top At_Offset_1
00fa 017d | } | Execute Record,Structure_Write
00fb 00d8 | | Load_Top At_Offset_0
00fc 4803 |H | Short_Literal 0x3
00fd e5f9 | | Load 0x2,-0x7
00fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00ff 01d6 | | Execute Vector,Field_Write
0100 4507 |E | Exit_Subprogram 0x7
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010f | | .CONST 0x010f ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e224 | $ | Load 0x1,0x24
010c 0322 | " | Declare_Variable Record
010d 00d8 | | Load_Top At_Offset_0
010e 1c00 | | Execute_Immediate Run_Utility,0x0
010f BODY_0108:
010f 00db | | Load_Top At_Offset_3
0110 00d9 | | Load_Top At_Offset_1
0111 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0112 00d8 | | Load_Top At_Offset_0
0113 4401 |D | Exit_Subprogram With_Result,0x1
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123 | # | .CONST 0x0123 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b e224 | $ | Load 0x1,0x24
011c 0322 | " | Declare_Variable Record
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f e002 | | Load 0x0,0x2
0120 0322 | " | Declare_Variable Record
0121 00d8 | | Load_Top At_Offset_0
0122 1c00 | | Execute_Immediate Run_Utility,0x0
0123 BODY_0118:
0123 4801 |H | Short_Literal 0x1
0124 00da | | Load_Top At_Offset_2
0125 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0126 e5fe | | Load 0x2,-0x2
0127 e5ff | | Load 0x2,-0x1
0128 8003 | | Call 0x0,0x3
0129 00d9 | | Load_Top At_Offset_1
012a 017d | } | Execute Record,Structure_Write
012b 00d8 | | Load_Top At_Offset_0
012c 4801 |H | Short_Literal 0x1
012d 00db | | Load_Top At_Offset_3
012e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012f 01d6 | | Execute Vector,Field_Write
0130 00d9 | | Load_Top At_Offset_1
0131 4402 |D | Exit_Subprogram With_Result,0x2
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0147 | G | .CONST 0x0147 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0004 | | .CONST 0x0004 ; Number of locals
013b INIT_0138:
013b e224 | $ | Load 0x1,0x24
013c 0322 | " | Declare_Variable Record
013d 00d8 | | Load_Top At_Offset_0
013e 1c00 | | Execute_Immediate Run_Utility,0x0
013f e002 | | Load 0x0,0x2
0140 0322 | " | Declare_Variable Record
0141 00d8 | | Load_Top At_Offset_0
0142 1c00 | | Execute_Immediate Run_Utility,0x0
0143 e002 | | Load 0x0,0x2
0144 0322 | " | Declare_Variable Record
0145 00d8 | | Load_Top At_Offset_0
0146 1c00 | | Execute_Immediate Run_Utility,0x0
0147 BODY_0138:
0147 4802 |H | Short_Literal 0x2
0148 00db | | Load_Top At_Offset_3
0149 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014a e5fe | | Load 0x2,-0x2
014b e5ff | | Load 0x2,-0x1
014c 8003 | | Call 0x0,0x3
014d 00da | | Load_Top At_Offset_2
014e 017d | } | Execute Record,Structure_Write
014f 00d9 | | Load_Top At_Offset_1
0150 4801 |H | Short_Literal 0x1
0151 e402 | | Load 0x2,0x2
0152 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0153 01d6 | | Execute Vector,Field_Write
0154 e5fc | | Load 0x2,-0x4
0155 e5fd | | Load 0x2,-0x3
0156 8003 | | Call 0x0,0x3
0157 00d9 | | Load_Top At_Offset_1
0158 017d | } | Execute Record,Structure_Write
0159 00d8 | | Load_Top At_Offset_0
015a 4802 |H | Short_Literal 0x2
015b e402 | | Load 0x2,0x2
015c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
015d 01d6 | | Execute Vector,Field_Write
015e 00da | | Load_Top At_Offset_2
015f 4404 |D | Exit_Subprogram With_Result,0x4
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0173 | s | .CONST 0x0173 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0005 | | .CONST 0x0005 ; Number of locals
0163 INIT_0160:
0163 e224 | $ | Load 0x1,0x24
0164 0322 | " | Declare_Variable Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 e002 | | Load 0x0,0x2
0168 0322 | " | Declare_Variable Record
0169 00d8 | | Load_Top At_Offset_0
016a 1c00 | | Execute_Immediate Run_Utility,0x0
016b e002 | | Load 0x0,0x2
016c 0322 | " | Declare_Variable Record
016d 00d8 | | Load_Top At_Offset_0
016e 1c00 | | Execute_Immediate Run_Utility,0x0
016f e002 | | Load 0x0,0x2
0170 0322 | " | Declare_Variable Record
0171 00d8 | | Load_Top At_Offset_0
0172 1c00 | | Execute_Immediate Run_Utility,0x0
0173 BODY_0160:
0173 4803 |H | Short_Literal 0x3
0174 e402 | | Load 0x2,0x2
0175 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0176 e5fe | | Load 0x2,-0x2
0177 e5ff | | Load 0x2,-0x1
0178 8003 | | Call 0x0,0x3
0179 00db | | Load_Top At_Offset_3
017a 017d | } | Execute Record,Structure_Write
017b 00da | | Load_Top At_Offset_2
017c 4801 |H | Short_Literal 0x1
017d e402 | | Load 0x2,0x2
017e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017f 01d6 | | Execute Vector,Field_Write
0180 e5fc | | Load 0x2,-0x4
0181 e5fd | | Load 0x2,-0x3
0182 8003 | | Call 0x0,0x3
0183 00da | | Load_Top At_Offset_2
0184 017d | } | Execute Record,Structure_Write
0185 00d9 | | Load_Top At_Offset_1
0186 4802 |H | Short_Literal 0x2
0187 e402 | | Load 0x2,0x2
0188 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0189 01d6 | | Execute Vector,Field_Write
018a e5fa | | Load 0x2,-0x6
018b e5fb | | Load 0x2,-0x5
018c 8003 | | Call 0x0,0x3
018d 00d9 | | Load_Top At_Offset_1
018e 017d | } | Execute Record,Structure_Write
018f 00d8 | | Load_Top At_Offset_0
0190 4803 |H | Short_Literal 0x3
0191 e402 | | Load 0x2,0x2
0192 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0193 01d6 | | Execute Vector,Field_Write
0194 00db | | Load_Top At_Offset_3
0195 4406 |D | Exit_Subprogram With_Result,0x6
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e5fe | | Load 0x2,-0x2
019d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019e 4502 |E | Exit_Subprogram 0x2
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00db | | Load_Top At_Offset_3
01a4 0d01 | | Execute_Immediate Less,0x1
01a5 e5fe | | Load 0x2,-0x2
01a6 e5fd | | Load 0x2,-0x3
01a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a8 027d | } | Execute Discrete,Greater
01a9 0278 | x | Execute Discrete,Or
01aa 6802 |h | Jump_Zero 0x1ad
01ab e222 | " | Load 0x1,0x22
01ac 0257 | W | Execute Discrete,Raise
01ad 00da | | Load_Top At_Offset_2
01ae e5fe | | Load 0x2,-0x2
01af e5fd | | Load 0x2,-0x3
01b0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b1 01d6 | | Execute Vector,Field_Write
01b2 4503 |E | Exit_Subprogram 0x3
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01bd 4401 |D | Exit_Subprogram With_Result,0x1
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00db | | Load_Top At_Offset_3
01c4 0d01 | | Execute_Immediate Less,0x1
01c5 e5fe | | Load 0x2,-0x2
01c6 e5ff | | Load 0x2,-0x1
01c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c8 027d | } | Execute Discrete,Greater
01c9 0278 | x | Execute Discrete,Or
01ca 6802 |h | Jump_Zero 0x1cd
01cb e222 | " | Load 0x1,0x22
01cc 0257 | W | Execute Discrete,Raise
01cd 00db | | Load_Top At_Offset_3
01ce 00db | | Load_Top At_Offset_3
01cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d0 01d5 | | Execute Vector,Field_Reference
01d1 0320 | | Declare_Variable Record,Duplicate
01d2 00cd | | Action Spare6_Action
01d3 4402 |D | Exit_Subprogram With_Result,0x2
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4801 |H | Short_Literal 0x1
01dc 4401 |D | Exit_Subprogram With_Result,0x1
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00db | | Load_Top At_Offset_3
01e4 00db | | Load_Top At_Offset_3
01e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e6 027d | } | Execute Discrete,Greater
01e7 6802 |h | Jump_Zero 0x1ea
01e8 e222 | " | Load 0x1,0x22
01e9 0257 | W | Execute Discrete,Raise
01ea 00e2 | | Load_Encached Integer_Cache
01eb e5fe | | Load 0x2,-0x2
01ec 0268 | h | Execute Discrete,Successor
01ed 00d8 | | Load_Top At_Offset_0
01ee e225 | % | Load 0x1,0x25
01ef 0260 | ` | Execute Discrete,In_Type
01f0 7001 |p | Jump_Nonzero 0x1f2
01f1 0801 | | Execute_Immediate Raise,0x1
01f2 4402 |D | Exit_Subprogram With_Result,0x2
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00db | | Load_Top At_Offset_3
01fc 00db | | Load_Top At_Offset_3
01fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01fe 027d | } | Execute Discrete,Greater
01ff 4402 |D | Exit_Subprogram With_Result,0x2
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00db | | Load_Top At_Offset_3
0204 00db | | Load_Top At_Offset_3
0205 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0206 027d | } | Execute Discrete,Greater
0207 6802 |h | Jump_Zero 0x20a
0208 e222 | " | Load 0x1,0x22
0209 0257 | W | Execute Discrete,Raise
020a 00db | | Load_Top At_Offset_3
020b 00d8 | | Load_Top At_Offset_0
020c e20d | | Load 0x1,0xd
020d 0260 | ` | Execute Discrete,In_Type
020e 7001 |p | Jump_Nonzero 0x210
020f 0801 | | Execute_Immediate Raise,0x1
0210 00db | | Load_Top At_Offset_3
0211 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0212 01d5 | | Execute Vector,Field_Reference
0213 0320 | | Declare_Variable Record,Duplicate
0214 00cd | | Action Spare6_Action
0215 4402 |D | Exit_Subprogram With_Result,0x2
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4829 |H) | Short_Literal 0x29
021c 0092 0332 | 2| Action Push_String_Extended,0x332 ; "(number=>"
021e e5ff | | Load 0x2,-0x1
021f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0220 00e0 | | Load_Encached Standard_Cache
0221 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0222 01cc | | Execute Vector,Catenate
0223 4801 |H | Short_Literal 0x1
0224 e5ff | | Load 0x2,-0x1
0225 8227 | ' | Call 0x1,0x27
0226 01cc | | Execute Vector,Catenate
0227 01cb | | Execute Vector,Append
0228 4401 |D | Exit_Subprogram With_Result,0x1
0229 0000 0000 | | .BLANK 0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238 | 8 | .CONST 0x0238 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 e224 | $ | Load 0x1,0x24
0234 0322 | " | Declare_Variable Record
0235 00d8 | | Load_Top At_Offset_0
0236 1c00 | | Execute_Immediate Run_Utility,0x0
0237 00e3 | | Load_Encached Natural_Cache
0238 BODY_0230:
0238 00d8 | | Load_Top At_Offset_0
0239 00da | | Load_Top At_Offset_2
023a e5ff | | Load 0x2,-0x1
023b 8220 | | Call 0x1,0x20
023c 00d1 | | Pop_Control Pop_Count_1
023d 0059 | Y | Store_Top Discrete,At_Offset_1
023e 00d9 | | Load_Top At_Offset_1
023f 4401 |D | Exit_Subprogram With_Result,0x1
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024b | K | .CONST 0x024b ; Address of begin
0241 02c1 | | .CONST 0x02c1 ; Address of exception handler
0242 0006 | | .CONST 0x0006 ; Number of locals
0243 INIT_0240:
0243 00e3 | | Load_Encached Natural_Cache
0244 00e3 | | Load_Encached Natural_Cache
0245 00e3 | | Load_Encached Natural_Cache
0246 00e3 | | Load_Encached Natural_Cache
0247 e002 | | Load 0x0,0x2
0248 0322 | " | Declare_Variable Record
0249 00d8 | | Load_Top At_Offset_0
024a 1c00 | | Execute_Immediate Run_Utility,0x0
024b BODY_0240:
024b e5ff | | Load 0x2,-0x1
024c 01dd | | Execute Vector,First
024d e5ff | | Load 0x2,-0x1
024e 01d7 | | Execute Vector,Field_Read
024f 0e28 | ( | Execute_Immediate Not_Equal,0x28
0250 6802 |h | Jump_Zero 0x253
0251 e221 | ! | Load 0x1,0x21
0252 0257 | W | Execute Discrete,Raise
0253 4801 |H | Short_Literal 0x1
0254 e5ff | | Load 0x2,-0x1
0255 e226 | & | Load 0x1,0x26
0256 8004 | | Call 0x0,0x4
0257 a402 | | Store_Unchecked 0x2,0x2
0258 e402 | | Load 0x2,0x2
0259 0f00 | | Execute_Immediate Equal,0x0
025a e402 | | Load 0x2,0x2
025b e5ff | | Load 0x2,-0x1
025c 01dd | | Execute Vector,First
025d 0a01 | | Execute_Immediate Plus,0x1
025e 027e | ~ | Execute Discrete,Not_Equal
025f 0278 | x | Execute Discrete,Or
0260 6802 |h | Jump_Zero 0x263
0261 e221 | ! | Load 0x1,0x21
0262 0257 | W | Execute Discrete,Raise
0263 e402 | | Load 0x2,0x2
0264 0a08 | | Execute_Immediate Plus,0x8
0265 c403 | | Store 0x2,0x3
0266 00cf | | Action Mark_Auxiliary
0267 7804 |x | Jump 0x26c
0268 e402 | | Load 0x2,0x2
0269 0a01 | | Execute_Immediate Plus,0x1
026a c402 | | Store 0x2,0x2
026b 00c9 | | Action Pop_Auxiliary_Loop
026c e402 | | Load 0x2,0x2
026d e5ff | | Load 0x2,-0x1
026e 01d7 | | Execute Vector,Field_Read
026f 0e2c | , | Execute_Immediate Not_Equal,0x2c
0270 e402 | | Load 0x2,0x2
0271 e5ff | | Load 0x2,-0x1
0272 01d7 | | Execute Vector,Field_Read
0273 0e29 | ) | Execute_Immediate Not_Equal,0x29
0274 0279 | y | Execute Discrete,And
0275 77f2 |w | Jump_Nonzero 0x268
0276 00ce | | Action Pop_Auxiliary
0277 e402 | | Load 0x2,0x2
0278 0aff | | Execute_Immediate Plus,-0x1
0279 005b | [ | Store_Top Discrete,At_Offset_3
027a 00db | | Load_Top At_Offset_3
027b 00db | | Load_Top At_Offset_3
027c e5ff | | Load 0x2,-0x1
027d 01cf | | Execute Vector,Slice_Read
027e 00e2 | | Load_Encached Integer_Cache
027f 00e0 | | Load_Encached Standard_Cache
0280 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0281 005a | Z | Store_Top Discrete,At_Offset_2
0282 e5fe | | Load 0x2,-0x2
0283 00da | | Load_Top At_Offset_2
0284 00d8 | | Load_Top At_Offset_0
0285 e20d | | Load 0x1,0xd
0286 0260 | ` | Execute Discrete,In_Type
0287 7001 |p | Jump_Nonzero 0x289
0288 0801 | | Execute_Immediate Raise,0x1
0289 820e | | Call 0x1,0xe
028a 00d1 | | Pop_Control Pop_Count_1
028b 00cf | | Action Mark_Auxiliary
028c 00da | | Load_Top At_Offset_2
028d 4801 |H | Short_Literal 0x1
028e 0263 | c | Execute Discrete,Above_Bound
028f 7026 |p& | Jump_Nonzero 0x2b6
0290 e402 | | Load 0x2,0x2
0291 e5ff | | Load 0x2,-0x1
0292 01d7 | | Execute Vector,Field_Read
0293 0e2c | , | Execute_Immediate Not_Equal,0x2c
0294 6802 |h | Jump_Zero 0x297
0295 e221 | ! | Load 0x1,0x21
0296 0257 | W | Execute Discrete,Raise
0297 00e3 | | Load_Encached Natural_Cache
0298 e406 | | Load 0x2,0x6
0299 e402 | | Load 0x2,0x2
029a 0a01 | | Execute_Immediate Plus,0x1
029b 00d8 | | Load_Top At_Offset_0
029c 00e2 | | Load_Encached Integer_Cache
029d 0260 | ` | Execute Discrete,In_Type
029e 7001 |p | Jump_Nonzero 0x2a0
029f 0801 | | Execute_Immediate Raise,0x1
02a0 e5ff | | Load 0x2,-0x1
02a1 01dc | | Execute Vector,Last
02a2 e5ff | | Load 0x2,-0x1
02a3 01cf | | Execute Vector,Slice_Read
02a4 8005 | | Call 0x0,0x5
02a5 00d1 | | Pop_Control Pop_Count_1
02a6 c402 | | Store 0x2,0x2
02a7 e5fe | | Load 0x2,-0x2
02a8 00d9 | | Load_Top At_Offset_1
02a9 00d8 | | Load_Top At_Offset_0
02aa e20d | | Load 0x1,0xd
02ab 0260 | ` | Execute Discrete,In_Type
02ac 7001 |p | Jump_Nonzero 0x2ae
02ad 0801 | | Execute_Immediate Raise,0x1
02ae e406 | | Load 0x2,0x6
02af 8217 | | Call 0x1,0x17
02b0 00d1 | | Pop_Control Pop_Count_1
02b1 e402 | | Load 0x2,0x2
02b2 0a01 | | Execute_Immediate Plus,0x1
02b3 c402 | | Store 0x2,0x2
02b4 00c8 | | Action Pop_Auxiliary_Range
02b5 3fda |? | Loop_Increasing 0x290
02b6 00ce | | Action Pop_Auxiliary
02b7 e402 | | Load 0x2,0x2
02b8 e5ff | | Load 0x2,-0x1
02b9 01d7 | | Execute Vector,Field_Read
02ba 0e29 | ) | Execute_Immediate Not_Equal,0x29
02bb 6802 |h | Jump_Zero 0x2be
02bc e221 | ! | Load 0x1,0x21
02bd 0257 | W | Execute Discrete,Raise
02be e402 | | Load 0x2,0x2
02bf a5fd | | Store_Unchecked 0x2,-0x3
02c0 4502 |E | Exit_Subprogram 0x2
02c1 TRAP_0240:
02c1 0007 | | Action Break_Optional
02c2 e221 | ! | Load 0x1,0x21
02c3 0257 | W | Execute Discrete,Raise
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 4605 |F | Jump_Case 0x5
02cc 7804 |x | Jump 0x2d1 ; case 0x0
02cd 7810 |x | Jump 0x2de ; case 0x1
02ce 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
02cf 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
02d0 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
02d1 00da | | Load_Top At_Offset_2 ; case 0x5
02d2 01dc | | Execute Vector,Last
02d3 00db | | Load_Top At_Offset_3
02d4 01dd | | Execute Vector,First
02d5 0263 | c | Execute Discrete,Above_Bound
02d6 7006 |p | Jump_Nonzero 0x2dd
02d7 00d8 | | Load_Top At_Offset_0
02d8 e5ff | | Load 0x2,-0x1
02d9 01d5 | | Execute Vector,Field_Reference
02da 1c00 | | Execute_Immediate Run_Utility,0x0
02db 0a01 | | Execute_Immediate Plus,0x1
02dc 7ff8 | | Jump 0x2d5
02dd 4302 |C | Exit_Subprogram From_Utility,0x2
02de 00da | | Load_Top At_Offset_2
02df 01dc | | Execute Vector,Last
02e0 00db | | Load_Top At_Offset_3
02e1 01dd | | Execute Vector,First
02e2 0263 | c | Execute Discrete,Above_Bound
02e3 7006 |p | Jump_Nonzero 0x2ea
02e4 00d8 | | Load_Top At_Offset_0
02e5 e5ff | | Load 0x2,-0x1
02e6 01d7 | | Execute Vector,Field_Read
02e7 1c01 | | Execute_Immediate Run_Utility,0x1
02e8 0a01 | | Execute_Immediate Plus,0x1
02e9 7ff8 | | Jump 0x2e2
02ea 4302 |C | Exit_Subprogram From_Utility,0x2
02eb 0000 0000 | | .BLANK 0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00db | | Load_Top At_Offset_3
02f4 00db | | Load_Top At_Offset_3
02f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f6 027d | } | Execute Discrete,Greater
02f7 6802 |h | Jump_Zero 0x2fa
02f8 00ea | | Load_Encached Null_String_Cache
02f9 4402 |D | Exit_Subprogram With_Result,0x2
02fa 00db | | Load_Top At_Offset_3
02fb 00db | | Load_Top At_Offset_3
02fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02fd 027f | | Execute Discrete,Equal
02fe 6808 |h | Jump_Zero 0x307
02ff 482c |H, | Short_Literal 0x2c
0300 e5fe | | Load 0x2,-0x2
0301 e5ff | | Load 0x2,-0x1
0302 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0303 01d5 | | Execute Vector,Field_Reference
0304 8006 | | Call 0x0,0x6
0305 01ca | | Execute Vector,Prepend
0306 4402 |D | Exit_Subprogram With_Result,0x2
0307 482c |H, | Short_Literal 0x2c
0308 e5fe | | Load 0x2,-0x2
0309 e5ff | | Load 0x2,-0x1
030a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
030b 01d5 | | Execute Vector,Field_Reference
030c 8006 | | Call 0x0,0x6
030d 01ca | | Execute Vector,Prepend
030e e5fe | | Load 0x2,-0x2
030f 0a01 | | Execute_Immediate Plus,0x1
0310 00d8 | | Load_Top At_Offset_0
0311 e20d | | Load 0x1,0xd
0312 0260 | ` | Execute Discrete,In_Type
0313 7001 |p | Jump_Nonzero 0x315
0314 0801 | | Execute_Immediate Raise,0x1
0315 e5ff | | Load 0x2,-0x1
0316 8227 | ' | Call 0x1,0x27
0317 01cc | | Execute Vector,Catenate
0318 4402 |D | Exit_Subprogram With_Result,0x2
0319 0000 0000 | | .BLANK 0000[0x7]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 4601 |F | Jump_Case 0x1
0324 7801 |x | Jump 0x326 ; case 0x0
0325 7807 |x | Jump 0x32d ; case 0x1
0326 4800 |H | Short_Literal 0x0
0327 00db | | Load_Top At_Offset_3
0328 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0329 00da | | Load_Top At_Offset_2
032a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
032b 1c00 | | Execute_Immediate Run_Utility,0x0
032c 4302 |C | Exit_Subprogram From_Utility,0x2
032d 00da | | Load_Top At_Offset_2
032e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
032f 1c01 | | Execute_Immediate Run_Utility,0x1
0330 4302 |C | Exit_Subprogram From_Utility,0x2
0331 ; --------------------------------------------------------------------------------------
0331 ; STRING TABLE
0331 ; --------------------------------------------------------------------------------------
0331 0006 | | .STRTAB 0x0006->0x0334 ; "number=>"
0332 000c | | .STRTAB 0x000c->0x0338 ; "(number=>"
0333 0013 | | .STREND 0x0013->0x033c
0334 6e75 6d62 |numb| .STRTAB_STRINGS
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug Table
0340 ; --------------------------------------------------------------------------------------
0340 0004 0002 | | .DEBUG4 0x0004,0x0002,0xcb99,0x0000,0x0001,0x0000
0346 0000 0000 | | .BLANK 0000[0xba]