|
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_779ce4
└─⟦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 0248 | H | .CONST 0x0248 ; 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 0086 | | .CONST 0x0086 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 008b | | Declare_Subprogram INIT_0088,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0012 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0016 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0018 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001a 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001c 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001e 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0020 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0022 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0024 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0026 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0028 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
002a 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
002c 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
002e 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0030 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0032 0093 0000 | | push_full_address 0x0
0034 6087 |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00010000}
0035 0273 | s | Execute Discrete,Plus
0036 e20d | | Load 0x1,0xd
0037 6080 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
0038 0279 | y | Execute Discrete,And
0039 0273 | s | Execute Discrete,Plus
003a 0129 | ) | Execute Any,Make_Visible
003b 0093 0000 | | push_full_address 0x0
003d 6076 |`v | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00020000}
003e 0273 | s | Execute Discrete,Plus
003f e20d | | Load 0x1,0xd
0040 6077 |`w | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
0041 0279 | y | Execute Discrete,And
0042 0273 | s | Execute Discrete,Plus
0043 0129 | ) | Execute Any,Make_Visible
0044 0093 0000 | | push_full_address 0x0
0046 6069 |`i | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00030000}
0047 0273 | s | Execute Discrete,Plus
0048 e20d | | Load 0x1,0xd
0049 606e |`n | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
004a 0279 | y | Execute Discrete,And
004b 0273 | s | Execute Discrete,Plus
004c 0129 | ) | Execute Any,Make_Visible
004d 4802 |H | Short_Literal 0x2
004e 032b | + | Declare_Type Record,Incomplete,Visible
004f 00d8 | | Load_Top At_Offset_0
0050 02a0 | | Declare_Subprogram Null_Subprogram
0051 03ae | | Declare_Type Heap_Access,Defined,Visible
0052 00d8 | | Load_Top At_Offset_0
0053 00d9 | | Load_Top At_Offset_1
0054 e002 | | Load 0x0,0x2
0055 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 4803 |H | Short_Literal 0x3
0058 032e | . | Declare_Type Record,Defined,Visible
0059 00d8 | | Load_Top At_Offset_0
005a 0129 | ) | Execute Any,Make_Visible
005b 00bf | | Action Accept_Activation
005c e20e | | Load 0x1,0xe
005d 00db | | Load_Top At_Offset_3
005e 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0060 e228 | ( | Load 0x1,0x28
0061 0326 | & | Complete_Type Record,By_Defining
0062 00da | | Load_Top At_Offset_2
0063 03a0 | | Complete_Type Heap_Access,By_Component_Completion
0064 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0065 00c7 | | Action Elaborate_Subprogram
0066 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0067 00c7 | | Action Elaborate_Subprogram
0068 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0069 00c7 | | Action Elaborate_Subprogram
006a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006b 00c7 | | Action Elaborate_Subprogram
006c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006d 00c7 | | Action Elaborate_Subprogram
006e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0077 00c7 | | Action Elaborate_Subprogram
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 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007f 00c7 | | Action Elaborate_Subprogram
0080 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0081 00c7 | | Action Elaborate_Subprogram
0082 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0083 00c7 | | Action Elaborate_Subprogram
0084 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0085 00c7 | | Action Elaborate_Subprogram
0086 BODY_0008:
0086 00bc | | Action Signal_Activated
0087 00bb | | Action Signal_Completion
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4607 |F | Jump_Case 0x8
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7807 |x | Jump 0x95 ; case 0x1
008e 780a |x | Jump 0x99 ; case 0x2
008f 780e |x | Jump 0x9e ; case 0x3
0090 7811 |x | Jump 0xa2 ; case 0x4
0091 7812 |x | Jump 0xa4 ; case 0x5
0092 7813 |x | Jump 0xa6 ; case 0x6
0093 7816 |x | Jump 0xaa ; case 0x7
0094 4302 |C | .XXX[0x1]
0095 00da | | Load_Top At_Offset_2
0096 0091 023d | =| Action Push_String_Extended_Indexed,0x23d ; "FRONT"
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0099 00db | | Load_Top At_Offset_3
009a 00db | | Load_Top At_Offset_3
009b 00e0 | | Load_Encached Standard_Cache
009c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 00da | | Load_Top At_Offset_2
009f 00e0 | | Load_Encached Standard_Cache
00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a2 00db | | Load_Top At_Offset_3
00a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a4 00db | | Load_Top At_Offset_3
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 e213 | | Load 0x1,0x13
00a7 00dc | | Load_Top At_Offset_4
00a8 0267 | g | Execute Discrete,Predecessor
00a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00aa e213 | | Load 0x1,0x13
00ab 00dc | | Load_Top At_Offset_4
00ac 0268 | h | Execute Discrete,Successor
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae 0000 0000 | | .XXX[0x2]
00b0 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00b8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5 | | .CONST 0x00c5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e22a | * | Load 0x1,0x2a
00c4 0322 | " | Declare_Variable Record
00c5 BODY_00c0:
00c5 e229 | ) | Load 0x1,0x29
00c6 00d9 | | Load_Top At_Offset_1
00c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c8 e229 | ) | Load 0x1,0x29
00c9 00d9 | | Load_Top At_Offset_1
00ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cb 00db | | Load_Top At_Offset_3
00cc 00d9 | | Load_Top At_Offset_1
00cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ce 00d8 | | Load_Top At_Offset_0
00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 0833 | 3 | Execute_Immediate Raise,0x33
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e229 | ) | Load 0x1,0x29
00e4 00db | | Load_Top At_Offset_3
00e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e6 e229 | ) | Load 0x1,0x29
00e7 00db | | Load_Top At_Offset_3
00e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e5fd | | Load 0x2,-0x3
00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f5 7016 |p | Jump_Nonzero 0x10c
00f6 e228 | ( | Load 0x1,0x28
00f7 0322 | " | Declare_Variable Record
00f8 00db | | Load_Top At_Offset_3
00f9 e228 | ( | Load 0x1,0x28
00fa 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00fb 0119 | | Execute Any,Check_In_Formal_Type
00fc 00d9 | | Load_Top At_Offset_1
00fd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00fe e229 | ) | Load 0x1,0x29
00ff 00d9 | | Load_Top At_Offset_1
0100 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0101 e229 | ) | Load 0x1,0x29
0102 e5fd | | Load 0x2,-0x3
0103 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0104 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0105 e5fd | | Load 0x2,-0x3
0106 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0107 e5fd | | Load 0x2,-0x3
0108 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0109 e5fd | | Load 0x2,-0x3
010a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
010b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010c 00db | | Load_Top At_Offset_3
010d 7013 |p | Jump_Nonzero 0x121
010e e228 | ( | Load 0x1,0x28
010f 0322 | " | Declare_Variable Record
0110 00db | | Load_Top At_Offset_3
0111 e228 | ( | Load 0x1,0x28
0112 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0113 0119 | | Execute Any,Check_In_Formal_Type
0114 00d9 | | Load_Top At_Offset_1
0115 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0116 e5fd | | Load 0x2,-0x3
0117 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0118 00d9 | | Load_Top At_Offset_1
0119 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011a e229 | ) | Load 0x1,0x29
011b e5fd | | Load 0x2,-0x3
011c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011d 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
011e e5fd | | Load 0x2,-0x3
011f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0120 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0121 e228 | ( | Load 0x1,0x28
0122 0322 | " | Declare_Variable Record
0123 00db | | Load_Top At_Offset_3
0124 e228 | ( | Load 0x1,0x28
0125 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0126 0119 | | Execute Any,Check_In_Formal_Type
0127 00d9 | | Load_Top At_Offset_1
0128 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0129 e229 | ) | Load 0x1,0x29
012a 00d9 | | Load_Top At_Offset_1
012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012c e229 | ) | Load 0x1,0x29
012d e5fd | | Load 0x2,-0x3
012e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
012f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0130 e5fd | | Load 0x2,-0x3
0131 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0132 0217 | | Execute Heap_Access,All_Reference
0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0134 e5fd | | Load 0x2,-0x3
0135 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0136 0217 | | Execute Heap_Access,All_Reference
0137 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0138 e5fd | | Load 0x2,-0x3
0139 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0146 | F | .CONST 0x0146 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 00db | | Load_Top At_Offset_3
0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0145 0007 | | Action Break_Optional
0146 BODY_0140:
0146 00d8 | | Load_Top At_Offset_0
0147 0217 | | Execute Heap_Access,All_Reference
0148 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0149 7007 |p | Jump_Nonzero 0x151
014a e229 | ) | Load 0x1,0x29
014b e5fe | | Load 0x2,-0x2
014c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014d e229 | ) | Load 0x1,0x29
014e e5fe | | Load 0x2,-0x2
014f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0150 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0151 00db | | Load_Top At_Offset_3
0152 7007 |p | Jump_Nonzero 0x15a
0153 e5fe | | Load 0x2,-0x2
0154 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0155 0217 | | Execute Heap_Access,All_Reference
0156 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0157 e5fe | | Load 0x2,-0x2
0158 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015a 00cf | | Action Mark_Auxiliary
015b 7805 |x | Jump 0x161
015c 00d9 | | Load_Top At_Offset_1
015d 0217 | | Execute Heap_Access,All_Reference
015e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0160 00c9 | | Action Pop_Auxiliary_Loop
0161 00d9 | | Load_Top At_Offset_1
0162 0217 | | Execute Heap_Access,All_Reference
0163 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0164 e5fe | | Load 0x2,-0x2
0165 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0166 021e | | Execute Heap_Access,Maximum
0167 77f4 |w | Jump_Nonzero 0x15c
0168 00ce | | Action Pop_Auxiliary
0169 00d8 | | Load_Top At_Offset_0
016a e5fe | | Load 0x2,-0x2
016b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016c e229 | ) | Load 0x1,0x29
016d e5fe | | Load 0x2,-0x2
016e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016f 0217 | | Execute Heap_Access,All_Reference
0170 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 0833 | 3 | Execute_Immediate Raise,0x33
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0188 | | .CONST 0x0188 ; Address of begin
0181 01a3 | | .CONST 0x01a3 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0185 0007 | | Action Break_Optional
0186 e5fe | | Load 0x2,-0x2
0187 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0188 BODY_0180:
0188 00cf | | Action Mark_Auxiliary
0189 7813 |x | Jump 0x19d
018a 00da | | Load_Top At_Offset_2
018b 0217 | | Execute Heap_Access,All_Reference
018c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018d 00da | | Load_Top At_Offset_2
018e 0217 | | Execute Heap_Access,All_Reference
018f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0190 012e | . | Execute Any,Not_Equal
0191 6802 |h | Jump_Zero 0x194
0192 4800 |H | Short_Literal 0x0
0193 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0194 00da | | Load_Top At_Offset_2
0195 0217 | | Execute Heap_Access,All_Reference
0196 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0197 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0198 00d9 | | Load_Top At_Offset_1
0199 0217 | | Execute Heap_Access,All_Reference
019a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019b 0032 | 2 | Store_Top Heap_Access,At_Offset_2
019c 00c9 | | Action Pop_Auxiliary_Loop
019d 00da | | Load_Top At_Offset_2
019e 77eb |w | Jump_Nonzero 0x18a
019f 00ce | | Action Pop_Auxiliary
01a0 00d8 | | Load_Top At_Offset_0
01a1 021d | | Execute Heap_Access,Is_Null
01a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a3 TRAP_0180:
01a3 010e | | Execute Exception,Is_Constraint_Error
01a4 6802 |h | Jump_Zero 0x1a7
01a5 4800 |H | Short_Literal 0x0
01a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a7 0100 | | Execute Exception,Raise
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01af | | .CONST 0x01af ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab 00e3 | | Load_Encached Natural_Cache
01ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01ad 00db | | Load_Top At_Offset_3
01ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01af BODY_01a8:
01af 00cf | | Action Mark_Auxiliary
01b0 7808 |x | Jump 0x1b9
01b1 00da | | Load_Top At_Offset_2
01b2 0a01 | | Execute_Immediate Plus,0x1
01b3 005b | [ | Store_Top Discrete,At_Offset_3
01b4 00d9 | | Load_Top At_Offset_1
01b5 0217 | | Execute Heap_Access,All_Reference
01b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b7 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01b8 00c9 | | Action Pop_Auxiliary_Loop
01b9 00d9 | | Load_Top At_Offset_1
01ba 77f6 |w | Jump_Nonzero 0x1b1
01bb 00ce | | Action Pop_Auxiliary
01bc 00d9 | | Load_Top At_Offset_1
01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2
01c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c5 021d | | Execute Heap_Access,Is_Null
01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 01d7 | | .CONST 0x01d7 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cd 0217 | | Execute Heap_Access,All_Reference
01ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cf 00d8 | | Load_Top At_Offset_0
01d0 0120 | | Execute Any,Is_Value
01d1 7002 |p | Jump_Nonzero 0x1d4
01d2 00d8 | | Load_Top At_Offset_0
01d3 011e | | Execute Any,Convert
01d4 e20e | | Load 0x1,0xe
01d5 0119 | | Execute Any,Check_In_Formal_Type
01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d7 TRAP_01c8:
01d7 010e | | Execute Exception,Is_Constraint_Error
01d8 6802 |h | Jump_Zero 0x1db
01d9 e226 | & | Load 0x1,0x26
01da 0257 | W | Execute Discrete,Raise
01db 0100 | | Execute Exception,Raise
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 01ef | | .CONST 0x01ef ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e5 0217 | | Execute Heap_Access,All_Reference
01e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e7 00d8 | | Load_Top At_Offset_0
01e8 0120 | | Execute Any,Is_Value
01e9 7002 |p | Jump_Nonzero 0x1ec
01ea 00d8 | | Load_Top At_Offset_0
01eb 011e | | Execute Any,Convert
01ec e20e | | Load 0x1,0xe
01ed 0119 | | Execute Any,Check_In_Formal_Type
01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ef TRAP_01e0:
01ef 010e | | Execute Exception,Is_Constraint_Error
01f0 6802 |h | Jump_Zero 0x1f3
01f1 e226 | & | Load 0x1,0x26
01f2 0257 | W | Execute Discrete,Raise
01f3 0100 | | Execute Exception,Raise
01f4 0000 0000 | | .BLANK 0000[0x4]
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 0833 | 3 | Execute_Immediate Raise,0x33
01fc 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
0204 e5fe | | Load 0x2,-0x2
0205 017d | } | Execute Record,Structure_Write
0206 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
020d 0217 | | Execute Heap_Access,All_Reference
020e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
020f 00db | | Load_Top At_Offset_3
0210 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0211 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0212 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
021c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021d 0217 | | Execute Heap_Access,All_Reference
021e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021f 00d8 | | Load_Top At_Offset_0
0220 0120 | | Execute Any,Is_Value
0221 7002 |p | Jump_Nonzero 0x224
0222 00d8 | | Load_Top At_Offset_0
0223 011e | | Execute Any,Convert
0224 e20e | | Load 0x1,0xe
0225 0119 | | Execute Any,Check_In_Formal_Type
0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022d 021d | | Execute Heap_Access,Is_Null
022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4601 |F | Jump_Case 0x2
0234 7801 |x | Jump 0x236 ; case 0x0
0235 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0236 00da | | Load_Top At_Offset_2
0237 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0238 0125 | % | Execute Any,Set_Constraint
0239 00da | | Load_Top At_Offset_2
023a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023b 1c00 | | Execute_Immediate Run_Utility,0x0
023c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
023d ; --------------------------------------------------------------------------------------
023d ; STRING TABLE
023d ; --------------------------------------------------------------------------------------
023d 0006 | | .STRTAB 0x0006->0x0240 ; "FRONT"
023e 0009 | | .STRTAB 0x0009->0x0242 ; "BACK"
023f 000b | | .STREND 0x000b->0x0244
0240 4652 4f4e |FRON| .STRTAB_STRINGS
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5da7,0x0000,0x0001,0x0000
024e 0000 0000 | | .BLANK 0000[0x1b2]