|
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_11cacfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0328 | ( | .CONST 0x0328 ; 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 009d | | .CONST 0x009d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e e001 | | Load 0x0,0x1
001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0020 0129 | ) | Execute Any,Make_Visible
0021 c217 | | Store 0x1,0x17
0022 e002 | | Load 0x0,0x2
0023 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0024 0129 | ) | Execute Any,Make_Visible
0025 c218 | | Store 0x1,0x18
0026 e002 | | Load 0x0,0x2
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 0129 | ) | Execute Any,Make_Visible
0029 c219 | | Store 0x1,0x19
002a e002 | | Load 0x0,0x2
002b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002c 0129 | ) | Execute Any,Make_Visible
002d c21a | | Store 0x1,0x1a
002e 4800 |H | Short_Literal 0x0
002f 4801 |H | Short_Literal 0x1
0030 e003 | | Load 0x0,0x3
0031 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0032 035c | \ | Declare_Type Array,Constrained,Visible
0033 c211 | | Store 0x1,0x11
0034 e004 | | Load 0x0,0x4
0035 0129 | ) | Execute Any,Make_Visible
0036 c21c | | Store 0x1,0x1c
0037 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0039 c212 | | Store 0x1,0x12
003a 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
003c c213 | | Store 0x1,0x13
003d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
003f c214 | | Store 0x1,0x14
0040 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0042 c215 | | Store 0x1,0x15
0043 4805 |H | Short_Literal 0x5
0044 0093 0153 | S| push_full_address INIT_0150
0046 02a0 | | Declare_Subprogram Null_Subprogram
0047 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0048 c21f | | Store 0x1,0x1f
0049 00bf | | Action Accept_Activation
004a e003 | | Load 0x0,0x3
004b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
004c 4801 |H | Short_Literal 0x1
004d e005 | | Load 0x0,0x5
004e 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
004f 1c08 | | Execute_Immediate Run_Utility,0x8
0050 4800 |H | Short_Literal 0x0
0051 00d9 | | Load_Top At_Offset_1
0052 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0053 4800 |H | Short_Literal 0x0
0054 e005 | | Load 0x0,0x5
0055 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0056 1c08 | | Execute_Immediate Run_Utility,0x8
0057 4800 |H | Short_Literal 0x0
0058 e005 | | Load 0x0,0x5
0059 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
005a 1c08 | | Execute_Immediate Run_Utility,0x8
005b 4800 |H | Short_Literal 0x0
005c 00d9 | | Load_Top At_Offset_1
005d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
005e 00d9 | | Load_Top At_Offset_1
005f 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0060 00d9 | | Load_Top At_Offset_1
0061 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0062 4801 |H | Short_Literal 0x1
0063 e005 | | Load 0x0,0x5
0064 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0065 1c08 | | Execute_Immediate Run_Utility,0x8
0066 4800 |H | Short_Literal 0x0
0067 00d9 | | Load_Top At_Offset_1
0068 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0069 4801 |H | Short_Literal 0x1
006a e005 | | Load 0x0,0x5
006b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
006c 1c08 | | Execute_Immediate Run_Utility,0x8
006d 4800 |H | Short_Literal 0x0
006e e005 | | Load 0x0,0x5
006f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0070 1c08 | | Execute_Immediate Run_Utility,0x8
0071 00d8 | | Load_Top At_Offset_0
0072 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0073 4802 |H | Short_Literal 0x2
0074 00d9 | | Load_Top At_Offset_1
0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0076 4802 |H | Short_Literal 0x2
0077 00d0 | | Action Swap_Control
0078 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0079 00d9 | | Load_Top At_Offset_1
007a 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
007b 00d9 | | Load_Top At_Offset_1
007c 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
007d e005 | | Load 0x0,0x5
007e 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
007f 02ff | | Declare_Variable Variant_Record
0080 00d8 | | Load_Top At_Offset_0
0081 1c00 | | Execute_Immediate Run_Utility,0x0
0082 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
0084 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0085 00c7 | | Action Elaborate_Subprogram
0086 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0087 00c7 | | Action Elaborate_Subprogram
0088 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0089 00c7 | | Action Elaborate_Subprogram
008a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
008b 00c7 | | Action Elaborate_Subprogram
008c e003 | | Load 0x0,0x3
008d e006 | | Load 0x0,0x6
008e 00b6 | | Action Make_Scope
008f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0090 e007 | | Load 0x0,0x7
0091 e005 | | Load 0x0,0x5
0092 e002 | | Load 0x0,0x2
0093 e222 | " | Load 0x1,0x22
0094 e223 | # | Load 0x1,0x23
0095 e221 | ! | Load 0x1,0x21
0096 e001 | | Load 0x0,0x1
0097 e008 | | Load 0x0,0x8
0098 480c |H | Short_Literal 0xc
0099 e21f | | Load 0x1,0x1f
009a 020e | | Execute Module,Augment_Imports
009b e21f | | Load 0x1,0x1f
009c 020d | | Execute Module,Elaborate
009d BODY_0008:
009d 00bc | | Action Signal_Activated
009e 00bb | | Action Signal_Completion
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ab | | .CONST 0x00ab ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e5fa | | Load 0x2,-0x6
00a4 02c7 | | Declare_Variable Any
00a5 00d8 | | Load_Top At_Offset_0
00a6 1c00 | | Execute_Immediate Run_Utility,0x0
00a7 e5fb | | Load 0x2,-0x5
00a8 02c7 | | Declare_Variable Any
00a9 00d8 | | Load_Top At_Offset_0
00aa 1c00 | | Execute_Immediate Run_Utility,0x0
00ab BODY_00a0:
00ab 00d9 | | Load_Top At_Offset_1
00ac 0120 | | Execute Any,Is_Value
00ad 6802 |h | Jump_Zero 0xb0
00ae e5fa | | Load 0x2,-0x6
00af 7803 |x | Jump 0xb3
00b0 00d9 | | Load_Top At_Offset_1
00b1 e5fa | | Load 0x2,-0x6
00b2 0119 | | Execute Any,Check_In_Formal_Type
00b3 e5f9 | | Load 0x2,-0x7
00b4 85fc | | Call 0x2,-0x4
00b5 c402 | | Store 0x2,0x2
00b6 00d8 | | Load_Top At_Offset_0
00b7 0120 | | Execute Any,Is_Value
00b8 6802 |h | Jump_Zero 0xbb
00b9 e5fb | | Load 0x2,-0x5
00ba 7803 |x | Jump 0xbe
00bb 00d8 | | Load_Top At_Offset_0
00bc e5fb | | Load 0x2,-0x5
00bd 0119 | | Execute Any,Check_In_Formal_Type
00be 00da | | Load_Top At_Offset_2
00bf e5fa | | Load 0x2,-0x6
00c0 0119 | | Execute Any,Check_In_Formal_Type
00c1 85fe | | Call 0x2,-0x2
00c2 c403 | | Store 0x2,0x3
00c3 e223 | # | Load 0x1,0x23
00c4 e5f9 | | Load 0x2,-0x7
00c5 e005 | | Load 0x0,0x5
00c6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c7 00d8 | | Load_Top At_Offset_0
00c8 e5fb | | Load 0x2,-0x5
00c9 0119 | | Execute Any,Check_In_Formal_Type
00ca e5f9 | | Load 0x2,-0x7
00cb 85fd | | Call 0x2,-0x3
00cc e5f9 | | Load 0x2,-0x7
00cd e005 | | Load 0x0,0x5
00ce 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00cf 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7 | | .CONST 0x00d7 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 e5fb | | Load 0x2,-0x5
00d4 02c7 | | Declare_Variable Any
00d5 00d8 | | Load_Top At_Offset_0
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 BODY_00d0:
00d7 00d8 | | Load_Top At_Offset_0
00d8 0120 | | Execute Any,Is_Value
00d9 6802 |h | Jump_Zero 0xdc
00da e5fb | | Load 0x2,-0x5
00db 7803 |x | Jump 0xdf
00dc 00d8 | | Load_Top At_Offset_0
00dd e5fb | | Load 0x2,-0x5
00de 0119 | | Execute Any,Check_In_Formal_Type
00df e5f9 | | Load 0x2,-0x7
00e0 85fc | | Call 0x2,-0x4
00e1 e5fa | | Load 0x2,-0x6
00e2 0119 | | Execute Any,Check_In_Formal_Type
00e3 85fe | | Call 0x2,-0x2
00e4 c402 | | Store 0x2,0x2
00e5 e223 | # | Load 0x1,0x23
00e6 e5f9 | | Load 0x2,-0x7
00e7 e005 | | Load 0x0,0x5
00e8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00e9 00d8 | | Load_Top At_Offset_0
00ea e5fb | | Load 0x2,-0x5
00eb 0119 | | Execute Any,Check_In_Formal_Type
00ec e5f9 | | Load 0x2,-0x7
00ed 85fd | | Call 0x2,-0x3
00ee e5f9 | | Load 0x2,-0x7
00ef e005 | | Load 0x0,0x5
00f0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00f1 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff | | .CONST 0x00ff ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e5fa | | Load 0x2,-0x6
00fc 02c7 | | Declare_Variable Any
00fd 00d8 | | Load_Top At_Offset_0
00fe 1c00 | | Execute_Immediate Run_Utility,0x0
00ff BODY_00f8:
00ff 00d8 | | Load_Top At_Offset_0
0100 0120 | | Execute Any,Is_Value
0101 6802 |h | Jump_Zero 0x104
0102 e5fa | | Load 0x2,-0x6
0103 7803 |x | Jump 0x107
0104 00d8 | | Load_Top At_Offset_0
0105 e5fa | | Load 0x2,-0x6
0106 0119 | | Execute Any,Check_In_Formal_Type
0107 e5f9 | | Load 0x2,-0x7
0108 85fc | | Call 0x2,-0x4
0109 c402 | | Store 0x2,0x2
010a e223 | # | Load 0x1,0x23
010b e5f9 | | Load 0x2,-0x7
010c e005 | | Load 0x0,0x5
010d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
010e 00d8 | | Load_Top At_Offset_0
010f e5fa | | Load 0x2,-0x6
0110 0119 | | Execute Any,Check_In_Formal_Type
0111 85fe | | Call 0x2,-0x2
0112 e5fb | | Load 0x2,-0x5
0113 0119 | | Execute Any,Check_In_Formal_Type
0114 e5f9 | | Load 0x2,-0x7
0115 85fd | | Call 0x2,-0x3
0116 e5f9 | | Load 0x2,-0x7
0117 e005 | | Load 0x0,0x5
0118 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0119 4508 |E | Exit_Suprogram New_Top_Offset 0x8
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e223 | # | Load 0x1,0x23
0124 e5f9 | | Load 0x2,-0x7
0125 e005 | | Load 0x0,0x5
0126 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0127 e5f9 | | Load 0x2,-0x7
0128 85fc | | Call 0x2,-0x4
0129 e5fa | | Load 0x2,-0x6
012a 0119 | | Execute Any,Check_In_Formal_Type
012b 85fe | | Call 0x2,-0x2
012c e5fb | | Load 0x2,-0x5
012d 0119 | | Execute Any,Check_In_Formal_Type
012e e5f9 | | Load 0x2,-0x7
012f 85fd | | Call 0x2,-0x3
0130 e5f9 | | Load 0x2,-0x7
0131 e005 | | Load 0x0,0x5
0132 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0133 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 0f07 | | Execute_Immediate Equal,0x7
013d 6802 |h | Jump_Zero 0x140
013e e007 | | Load 0x0,0x7
013f 0257 | W | Execute Discrete,Raise
0140 00da | | Load_Top At_Offset_2
0141 680c |h | Jump_Zero 0x14e
0142 00da | | Load_Top At_Offset_2
0143 a220 | | Store_Unchecked 0x1,0x20
0144 e009 | | Load 0x0,0x9
0145 180e | | Execute Package,Field_Execute,Field_Number 0xe
0146 4802 |H | Short_Literal 0x2
0147 e5ff | | Load 0x2,-0x1
0148 e003 | | Load 0x0,0x3
0149 181a | | Execute Package,Field_Execute,Field_Number 0x1a
014a e00a | | Load 0x0,0xa
014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014c e21c | | Load 0x1,0x1c
014d 0257 | W | Execute Discrete,Raise
014e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0174 | t | .CONST 0x0174 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0017 | | .CONST 0x0017 ; Number of locals
0153 INIT_0150:
0153 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0155 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0157 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0159 00bf | | Action Accept_Activation
015a 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
015c 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
015e 4800 |H | Short_Literal 0x0
015f 0093 02a3 | | push_full_address INIT_02a0
0161 00f5 | | Load_Encached Unused21
0162 037d | } | Declare_Type Task,Defined
0163 036f | o | Declare_Variable Task
0164 e001 | | Load 0x0,0x1
0165 e002 | | Load 0x0,0x2
0166 e003 | | Load 0x0,0x3
0167 a004 | | Store_Unchecked 0x0,0x4
0168 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0169 e005 | | Load 0x0,0x5
016a 4806 |H | Short_Literal 0x6
016b e217 | | Load 0x1,0x17
016c 020e | | Execute Module,Augment_Imports
016d 0007 | | Action Break_Optional
016e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
016f 00c7 | | Action Elaborate_Subprogram
0170 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0171 00c7 | | Action Elaborate_Subprogram
0172 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0173 00c7 | | Action Elaborate_Subprogram
0174 BODY_0150:
0174 00be | | Action Activate_Tasks
0175 00bc | | Action Signal_Activated
0176 00bb | | Action Signal_Completion
0177 0000 | | .XXX[0x1]
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 e5fd | | Load 0x2,-0x3
017c e5fe | | Load 0x2,-0x2
017d e5ff | | Load 0x2,-0x1
017e 4803 |H | Short_Literal 0x3
017f e217 | | Load 0x1,0x17
0180 170d | | Execute Task,Entry_Call,Field_Number 0xd
0181 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4800 |H | Short_Literal 0x0
018c e217 | | Load 0x1,0x17
018d 170e | | Execute Task,Entry_Call,Field_Number 0xe
018e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4800 |H | Short_Literal 0x0
0194 e217 | | Load 0x1,0x17
0195 170f | | Execute Task,Entry_Call,Field_Number 0xf
0196 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a5 | | .CONST 0x01a5 ; Address of begin
0199 0221 | ! | .CONST 0x0221 ; Address of exception handler
019a 0005 | | .CONST 0x0005 ; Number of locals
019b INIT_0198:
019b e006 | | Load 0x0,0x6
019c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
019d 02ff | | Declare_Variable Variant_Record
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 e007 | | Load 0x0,0x7
01a1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01a2 00e1 | | Load_Encached Boolean_Cache
01a3 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
01a5 BODY_0198:
01a5 00cf | | Action Mark_Auxiliary
01a6 e402 | | Load 0x2,0x2
01a7 e5ff | | Load 0x2,-0x1
01a8 e006 | | Load 0x0,0x6
01a9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01aa 00d1 | | Pop_Control Pop_Count_1
01ab e402 | | Load 0x2,0x2
01ac e006 | | Load 0x0,0x6
01ad 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01ae e402 | | Load 0x2,0x2
01af 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b1 0d02 | | Execute_Immediate Less,0x2
01b2 e402 | | Load 0x2,0x2
01b3 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b5 0c03 | | Execute_Immediate Greater_Equal,0x3
01b6 0278 | x | Execute Discrete,Or
01b7 6806 |h | Jump_Zero 0x1be
01b8 e008 | | Load 0x0,0x8
01b9 e009 | | Load 0x0,0x9
01ba 016d | m | Execute Variant_Record,Structure_Write
01bb 4800 |H | Short_Literal 0x0
01bc 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01bd 7805 |x | Jump 0x1c3
01be e00a | | Load 0x0,0xa
01bf e009 | | Load 0x0,0x9
01c0 016d | m | Execute Variant_Record,Structure_Write
01c1 4801 |H | Short_Literal 0x1
01c2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01c3 e402 | | Load 0x2,0x2
01c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01c5 e009 | | Load 0x0,0x9
01c6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01c7 00da | | Load_Top At_Offset_2
01c8 6853 |hS | Jump_Zero 0x21c
01c9 8405 | | Call 0x2,0x5
01ca 00db | | Load_Top At_Offset_3
01cb 6850 |hP | Jump_Zero 0x21c
01cc e5ff | | Load 0x2,-0x1
01cd e00b | | Load 0x0,0xb
01ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01cf 00db | | Load_Top At_Offset_3
01d0 4604 |F | Jump_Case 0x5
01d1 7843 |xC | Jump 0x215 ; case 0x0
01d2 7811 |x | Jump 0x1e4 ; case 0x1
01d3 781e |x | Jump 0x1f2 ; case 0x2
01d4 7833 |x3 | Jump 0x208 ; case 0x3
01d5 7800 |x | Jump 0x1d6 ; case 0x4
01d6 4804 |H | Short_Literal 0x4
01d7 e006 | | Load 0x0,0x6
01d8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
01d9 1c08 | | Execute_Immediate Run_Utility,0x8
01da e009 | | Load 0x0,0x9
01db 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01dc 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01de 00d9 | | Load_Top At_Offset_1
01df 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e0 e009 | | Load 0x0,0x9
01e1 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01e2 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01e3 7831 |x1 | Jump 0x215
01e4 4801 |H | Short_Literal 0x1
01e5 e006 | | Load 0x0,0x6
01e6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
01e7 1c08 | | Execute_Immediate Run_Utility,0x8
01e8 e009 | | Load 0x0,0x9
01e9 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01ea 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01eb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ec 00d9 | | Load_Top At_Offset_1
01ed 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01ee e009 | | Load 0x0,0x9
01ef 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01f0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01f1 7823 |x# | Jump 0x215
01f2 4802 |H | Short_Literal 0x2
01f3 e006 | | Load 0x0,0x6
01f4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
01f5 1c08 | | Execute_Immediate Run_Utility,0x8
01f6 e009 | | Load 0x0,0x9
01f7 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01f8 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
01f9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01fa 00d9 | | Load_Top At_Offset_1
01fb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01fc 00d8 | | Load_Top At_Offset_0
01fd 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01fe e20f | | Load 0x1,0xf
01ff 00d9 | | Load_Top At_Offset_1
0200 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0201 e210 | | Load 0x1,0x10
0202 00d0 | | Action Swap_Control
0203 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0204 e009 | | Load 0x0,0x9
0205 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0206 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0207 780d |x | Jump 0x215
0208 4803 |H | Short_Literal 0x3
0209 e006 | | Load 0x0,0x6
020a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
020b 1c08 | | Execute_Immediate Run_Utility,0x8
020c e009 | | Load 0x0,0x9
020d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
020e 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
020f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0210 00d9 | | Load_Top At_Offset_1
0211 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0212 e009 | | Load 0x0,0x9
0213 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0214 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0215 e009 | | Load 0x0,0x9
0216 e5ff | | Load 0x2,-0x1
0217 e006 | | Load 0x0,0x6
0218 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0219 e5ff | | Load 0x2,-0x1
021a e006 | | Load 0x0,0x6
021b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
021c e009 | | Load 0x0,0x9
021d e006 | | Load 0x0,0x6
021e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
021f 00c9 | | Action Pop_Auxiliary_Loop
0220 7f85 | | Jump 0x1a6
0221 TRAP_0198:
0221 e00c | | Load 0x0,0xc
0222 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0223 010f | | Execute Exception,Equal
0224 6801 |h | Jump_Zero 0x226
0225 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0226 0100 | | Execute Exception,Raise
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0234 | 4 | .CONST 0x0234 ; Address of begin
0229 025b | [ | .CONST 0x025b ; Address of exception handler
022a 0004 | | .CONST 0x0004 ; Number of locals
022b INIT_0228:
022b e003 | | Load 0x0,0x3
022c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
022d e00c | | Load 0x0,0xc
022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022f 02c7 | | Declare_Variable Any
0230 00d8 | | Load_Top At_Offset_0
0231 1c00 | | Execute_Immediate Run_Utility,0x0
0232 e001 | | Load 0x0,0x1
0233 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0234 BODY_0228:
0234 e001 | | Load 0x0,0x1
0235 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0236 e5fe | | Load 0x2,-0x2
0237 e5ff | | Load 0x2,-0x1
0238 e002 | | Load 0x0,0x2
0239 181d | | Execute Package,Field_Execute,Field_Number 0x1d
023a 0059 | Y | Store_Top Discrete,At_Offset_1
023b 00d8 | | Load_Top At_Offset_0
023c 8004 | | Call 0x0,0x4
023d 00d9 | | Load_Top At_Offset_1
023e 0120 | | Execute Any,Is_Value
023f 6803 |h | Jump_Zero 0x243
0240 e00c | | Load 0x0,0xc
0241 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0242 7801 |x | Jump 0x244
0243 00d9 | | Load_Top At_Offset_1
0244 e5ff | | Load 0x2,-0x1
0245 e00c | | Load 0x0,0xc
0246 180e | | Execute Package,Field_Execute,Field_Number 0xe
0247 c403 | | Store 0x2,0x3
0248 e00b | | Load 0x0,0xb
0249 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024a 00da | | Load_Top At_Offset_2
024b e00b | | Load 0x0,0xb
024c 180f | | Execute Package,Field_Execute,Field_Number 0xf
024d 003b | ; | Store_Top Access,At_Offset_3
024e 00da | | Load_Top At_Offset_2
024f 8215 | | Call 0x1,0x15
0250 00da | | Load_Top At_Offset_2
0251 e00b | | Load 0x0,0xb
0252 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0253 003b | ; | Store_Top Access,At_Offset_3
0254 00d9 | | Load_Top At_Offset_1
0255 e00c | | Load 0x0,0xc
0256 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0257 e5ff | | Load 0x2,-0x1
0258 e002 | | Load 0x0,0x2
0259 181e | | Execute Package,Field_Execute,Field_Number 0x1e
025a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025b TRAP_0228:
025b e005 | | Load 0x0,0x5
025c 010f | | Execute Exception,Equal
025d 6802 |h | Jump_Zero 0x260
025e 00d8 | | Load_Top At_Offset_0
025f 0101 | | Execute Exception,Reraise
0260 e003 | | Load 0x0,0x3
0261 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0262 010f | | Execute Exception,Equal
0263 680c |h | Jump_Zero 0x270
0264 00db | | Load_Top At_Offset_3
0265 e00b | | Load 0x0,0xb
0266 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0267 c402 | | Store 0x2,0x2
0268 00da | | Load_Top At_Offset_2
0269 e00c | | Load 0x0,0xc
026a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
026b e5ff | | Load 0x2,-0x1
026c e002 | | Load 0x0,0x2
026d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
026e 00d8 | | Load_Top At_Offset_0
026f 0101 | | Execute Exception,Reraise
0270 0100 | | Execute Exception,Raise
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 028d | | .CONST 0x028d ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b e402 | | Load 0x2,0x2
027c 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
027d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
027e e402 | | Load 0x2,0x2
027f 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0280 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0281 e402 | | Load 0x2,0x2
0282 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0283 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0284 e5ff | | Load 0x2,-0x1
0285 8211 | | Call 0x1,0x11
0286 a403 | | Store_Unchecked 0x2,0x3
0287 e403 | | Load 0x2,0x3
0288 7003 |p | Jump_Nonzero 0x28c
0289 e5ff | | Load 0x2,-0x1
028a e006 | | Load 0x0,0x6
028b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
028c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028d TRAP_0278:
028d e00b | | Load 0x0,0xb
028e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028f 010f | | Execute Exception,Equal
0290 7004 |p | Jump_Nonzero 0x295
0291 e006 | | Load 0x0,0x6
0292 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0293 010f | | Execute Exception,Equal
0294 6803 |h | Jump_Zero 0x298
0295 4804 |H | Short_Literal 0x4
0296 a403 | | Store_Unchecked 0x2,0x3
0297 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0298 0100 | | Execute Exception,Raise
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02c5 | | .CONST 0x02c5 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0017 | | .CONST 0x0017 ; Number of locals
02a3 INIT_02a0:
02a3 4803 |H | Short_Literal 0x3
02a4 02cb | | Declare_Variable Entry
02a5 4800 |H | Short_Literal 0x0
02a6 02cb | | Declare_Variable Entry
02a7 4800 |H | Short_Literal 0x0
02a8 02cb | | Declare_Variable Entry
02a9 00bf | | Action Accept_Activation
02aa e001 | | Load 0x0,0x1
02ab 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02ac e002 | | Load 0x0,0x2
02ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ae 02c7 | | Declare_Variable Any
02af 00d8 | | Load_Top At_Offset_0
02b0 1c00 | | Execute_Immediate Run_Utility,0x0
02b1 e003 | | Load 0x0,0x3
02b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02b3 0337 | 7 | Declare_Variable Array
02b4 00e1 | | Load_Encached Boolean_Cache
02b5 480d |H | Short_Literal 0xd
02b6 0299 02e3 | | Declare_Subprogram INIT_02e0,For_Accept
02b8 480e 4861 |H Ha| Declare_Variable Select 0x000, 0x001,
02ba 4801 4800 |H H | [0x001]: 0x000 = 0x0000,
02bc 4800 4801 |H H | [0x00e]: 0x061 = 0x0308
02be 02cf | |
02bf 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
02c1 480f |H | Short_Literal 0xf
02c2 0299 0323 | #| Declare_Subprogram INIT_0320,For_Accept
02c4 00bc | | Action Signal_Activated
02c5 BODY_02a0:
02c5 1d14 | | Execute_Immediate Reference_Lex_1,0x14
02c6 1d0d | | Execute_Immediate Reference_Lex_1,0xd
02c7 0137 | 7 | Execute Entry,Rendezvous
02c8 00cf | | Action Mark_Auxiliary
02c9 00db | | Load_Top At_Offset_3
02ca 013f | ? | Execute Select,Rendezvous
02cb 4602 |F | Jump_Case 0x3
02cc 7807 |x | Jump 0x2d4 ; case 0x0
02cd 7801 |x | Jump 0x2cf ; case 0x1
02ce 7805 |x | Jump 0x2d4 ; case 0x2
02cf 8216 | | Call 0x1,0x16
02d0 e213 | | Load 0x1,0x13
02d1 6802 |h | Jump_Zero 0x2d4
02d2 00c9 | | Action Pop_Auxiliary_Loop
02d3 7ff5 | | Jump 0x2c9
02d4 00ce | | Action Pop_Auxiliary
02d5 e211 | | Load 0x1,0x11
02d6 e002 | | Load 0x0,0x2
02d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02d8 1d17 | | Execute_Immediate Reference_Lex_1,0x17
02d9 1d0f | | Execute_Immediate Reference_Lex_1,0xf
02da 0137 | 7 | Execute Entry,Rendezvous
02db 00bb | | Action Signal_Completion
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 e001 | | Load 0x0,0x1
02e4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02e5 e211 | | Load 0x1,0x11
02e6 0120 | | Execute Any,Is_Value
02e7 6803 |h | Jump_Zero 0x2eb
02e8 e002 | | Load 0x0,0x2
02e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ea 7801 |x | Jump 0x2ec
02eb e211 | | Load 0x1,0x11
02ec e001 | | Load 0x0,0x1
02ed 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02ee 4801 |H | Short_Literal 0x1
02ef 4806 |H | Short_Literal 0x6
02f0 00e9 | | Load_Encached String_Cache
02f1 0334 | 4 | Declare_Variable Array,With_Constraint
02f2 5011 |P | Indirect_Literal Any,0x304,{0x5443502f, 0x49502020}
02f3 e002 | | Load 0x0,0x2
02f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02f5 c211 | | Store 0x1,0x11
02f6 c210 | | Store 0x1,0x10
02f7 e210 | | Load 0x1,0x10
02f8 8004 | | Call 0x0,0x4
02f9 e211 | | Load 0x1,0x11
02fa e002 | | Load 0x0,0x2
02fb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02fc e212 | | Load 0x1,0x12
02fd 01d4 | | Execute Vector,Structure_Write
02fe e212 | | Load 0x1,0x12
02ff e5fc | | Load 0x2,-0x4
0300 01d4 | | Execute Vector,Structure_Write
0301 00db | | Load_Top At_Offset_3
0302 a213 | | Store_Unchecked 0x1,0x13
0303 4101 |A | End_Rendezvous 0x1
0304 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; See instruction 0x02cf at 0x2b8, index=0xe
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4100 |A | End_Rendezvous 0x0
030c 0000 0000 | | .BLANK 0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0317 | | .CONST 0x0317 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 6008 |` | Indirect_Literal Discrete,0x31c,{0x00000000, 0x01c20000}
0314 e211 | | Load 0x1,0x11
0315 8005 | | Call 0x0,0x5
0316 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0317 TRAP_0310:
0317 e006 | | Load 0x0,0x6
0318 010f | | Execute Exception,Equal
0319 6801 |h | Jump_Zero 0x31b
031a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
031b 0100 | | Execute Exception,Raise
031c 0000 0000 | | .LITERAL {0x00000000, 0x01c20000}
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 4100 |A | End_Rendezvous 0x0
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0004 0011 | | .DEBUG4 0x0004,0x0011,0x5e37,0x0000,0x0001,0x0000
032e 0000 0000 | | .BLANK 0000[0xd2]