|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 02a8 | | .CONST 0x02a8 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0011 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0013 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0015 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0017 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0019 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
001b 0093 0000 | | push_full_address 0x0
001d 6082 |` | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00010000}
001e 0273 | s | Execute Discrete,Plus
001f 0129 | ) | Execute Any,Make_Visible
0020 00bf | | Action Accept_Activation
0021 0092 0284 | | Action Push_String_Extended,0x284 ; "receiver"
0023 0092 0285 | | Action Push_String_Extended,0x285 ; "transmitter"
0025 0092 0286 | | Action Push_String_Extended,0x286 ; "Current_filter"
0027 0092 0287 | | Action Push_String_Extended,0x287 ; "receiver_transmitter"
0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002a 00c7 | | Action Elaborate_Subprogram
002b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002c 00c7 | | Action Elaborate_Subprogram
002d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002e 00c7 | | Action Elaborate_Subprogram
002f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0030 00c7 | | Action Elaborate_Subprogram
0031 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0032 00c7 | | Action Elaborate_Subprogram
0033 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0034 00c7 | | Action Elaborate_Subprogram
0035 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0036 00c7 | | Action Elaborate_Subprogram
0037 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0038 00c7 | | Action Elaborate_Subprogram
0039 BODY_0008:
0039 00bc | | Action Signal_Activated
003a 00bb | | Action Signal_Completion
003b 0000 0000 | | .BLANK 0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0055 | U | .CONST 0x0055 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0008 | | .CONST 0x0008 ; Number of locals
0043 INIT_0040:
0043 e002 | | Load 0x0,0x2
0044 0322 | " | Declare_Variable Record
0045 00d8 | | Load_Top At_Offset_0
0046 1c00 | | Execute_Immediate Run_Utility,0x0
0047 e003 | | Load 0x0,0x3
0048 0007 | | Action Break_Optional
0049 e004 | | Load 0x0,0x4
004a 0322 | " | Declare_Variable Record
004b 00d8 | | Load_Top At_Offset_0
004c 1c00 | | Execute_Immediate Run_Utility,0x0
004d 00e3 | | Load_Encached Natural_Cache
004e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
004f 00e3 | | Load_Encached Natural_Cache
0050 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0051 00e3 | | Load_Encached Natural_Cache
0052 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0053 00e3 | | Load_Encached Natural_Cache
0054 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0055 BODY_0040:
0055 e5ff | | Load 0x2,-0x1
0056 8005 | | Call 0x0,0x5
0057 e402 | | Load 0x2,0x2
0058 017d | } | Execute Record,Structure_Write
0059 e402 | | Load 0x2,0x2
005a 8006 | | Call 0x0,0x6
005b a403 | | Store_Unchecked 0x2,0x3
005c 00cf | | Action Mark_Auxiliary
005d 7831 |x1 | Jump 0x8f
005e e403 | | Load 0x2,0x3
005f e402 | | Load 0x2,0x2
0060 8007 | | Call 0x0,0x7
0061 e404 | | Load 0x2,0x4
0062 017d | } | Execute Record,Structure_Write
0063 4801 |H | Short_Literal 0x1
0064 e216 | | Load 0x1,0x16
0065 e404 | | Load 0x2,0x4
0066 8008 | | Call 0x0,0x8
0067 8009 | | Call 0x0,0x9
0068 6804 |h | Jump_Zero 0x6d
0069 e405 | | Load 0x2,0x5
006a 0a01 | | Execute_Immediate Plus,0x1
006b c405 | | Store 0x2,0x5
006c 781d |x | Jump 0x8a
006d 4801 |H | Short_Literal 0x1
006e e217 | | Load 0x1,0x17
006f e404 | | Load 0x2,0x4
0070 8008 | | Call 0x0,0x8
0071 8009 | | Call 0x0,0x9
0072 6804 |h | Jump_Zero 0x77
0073 00db | | Load_Top At_Offset_3
0074 0a01 | | Execute_Immediate Plus,0x1
0075 c406 | | Store 0x2,0x6
0076 7813 |x | Jump 0x8a
0077 4801 |H | Short_Literal 0x1
0078 e218 | | Load 0x1,0x18
0079 e404 | | Load 0x2,0x4
007a 8008 | | Call 0x0,0x8
007b 8009 | | Call 0x0,0x9
007c 6804 |h | Jump_Zero 0x81
007d 00da | | Load_Top At_Offset_2
007e 0a01 | | Execute_Immediate Plus,0x1
007f 005b | [ | Store_Top Discrete,At_Offset_3
0080 7809 |x | Jump 0x8a
0081 4801 |H | Short_Literal 0x1
0082 e219 | | Load 0x1,0x19
0083 e404 | | Load 0x2,0x4
0084 8008 | | Call 0x0,0x8
0085 8009 | | Call 0x0,0x9
0086 6803 |h | Jump_Zero 0x8a
0087 00d9 | | Load_Top At_Offset_1
0088 0a01 | | Execute_Immediate Plus,0x1
0089 005a | Z | Store_Top Discrete,At_Offset_2
008a e403 | | Load 0x2,0x3
008b e402 | | Load 0x2,0x2
008c 800a | | Call 0x0,0xa
008d a403 | | Store_Unchecked 0x2,0x3
008e 00c9 | | Action Pop_Auxiliary_Loop
008f e403 | | Load 0x2,0x3
0090 e402 | | Load 0x2,0x2
0091 800b | | Call 0x0,0xb
0092 6fcb |o | Jump_Zero 0x5e
0093 00ce | | Action Pop_Auxiliary
0094 00db | | Load_Top At_Offset_3
0095 0f01 | | Execute_Immediate Equal,0x1
0096 00db | | Load_Top At_Offset_3
0097 0f01 | | Execute_Immediate Equal,0x1
0098 0279 | y | Execute Discrete,And
0099 00da | | Load_Top At_Offset_2
009a 0f01 | | Execute_Immediate Equal,0x1
009b 0279 | y | Execute Discrete,And
009c 00d9 | | Load_Top At_Offset_1
009d 0f01 | | Execute_Immediate Equal,0x1
009e 0279 | y | Execute Discrete,And
009f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b4 | | .CONST 0x00b4 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0004 | | .CONST 0x0004 ; Number of locals
00ab INIT_00a8:
00ab e00c | | Load 0x0,0xc
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 00e3 | | Load_Encached Natural_Cache
00b4 BODY_00a8:
00b4 e5ff | | Load 0x2,-0x1
00b5 8005 | | Call 0x0,0x5
00b6 00da | | Load_Top At_Offset_2
00b7 017d | } | Execute Record,Structure_Write
00b8 00d9 | | Load_Top At_Offset_1
00b9 800d | | Call 0x0,0xd
00ba 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00bb 00d9 | | Load_Top At_Offset_1
00bc 00d9 | | Load_Top At_Offset_1
00bd 0a04 | | Execute_Immediate Plus,0x4
00be 00d8 | | Load_Top At_Offset_0
00bf e00e | | Load 0x0,0xe
00c0 0260 | ` | Execute Discrete,In_Type
00c1 7001 |p | Jump_Nonzero 0xc3
00c2 0801 | | Execute_Immediate Raise,0x1
00c3 800f | | Call 0x0,0xf
00c4 00d1 | | Pop_Control Pop_Count_1
00c5 00d9 | | Load_Top At_Offset_1
00c6 00d9 | | Load_Top At_Offset_1
00c7 0a01 | | Execute_Immediate Plus,0x1
00c8 00d8 | | Load_Top At_Offset_0
00c9 e00e | | Load 0x0,0xe
00ca 0260 | ` | Execute Discrete,In_Type
00cb 7001 |p | Jump_Nonzero 0xcd
00cc 0801 | | Execute_Immediate Raise,0x1
00cd e5fe | | Load 0x2,-0x2
00ce 00e0 | | Load_Encached Standard_Cache
00cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d0 e216 | | Load 0x1,0x16
00d1 8010 | | Call 0x0,0x10
00d2 8011 | | Call 0x0,0x11
00d3 00d1 | | Pop_Control Pop_Count_1
00d4 00d9 | | Load_Top At_Offset_1
00d5 00d9 | | Load_Top At_Offset_1
00d6 0a02 | | Execute_Immediate Plus,0x2
00d7 00d8 | | Load_Top At_Offset_0
00d8 e00e | | Load 0x0,0xe
00d9 0260 | ` | Execute Discrete,In_Type
00da 7001 |p | Jump_Nonzero 0xdc
00db 0801 | | Execute_Immediate Raise,0x1
00dc e5fd | | Load 0x2,-0x3
00dd 00e0 | | Load_Encached Standard_Cache
00de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00df e217 | | Load 0x1,0x17
00e0 8010 | | Call 0x0,0x10
00e1 8011 | | Call 0x0,0x11
00e2 00d1 | | Pop_Control Pop_Count_1
00e3 00d9 | | Load_Top At_Offset_1
00e4 00d9 | | Load_Top At_Offset_1
00e5 0a03 | | Execute_Immediate Plus,0x3
00e6 00d8 | | Load_Top At_Offset_0
00e7 e00e | | Load 0x0,0xe
00e8 0260 | ` | Execute Discrete,In_Type
00e9 7001 |p | Jump_Nonzero 0xeb
00ea 0801 | | Execute_Immediate Raise,0x1
00eb e5fc | | Load 0x2,-0x4
00ec 00e0 | | Load_Encached Standard_Cache
00ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ee e218 | | Load 0x1,0x18
00ef 8010 | | Call 0x0,0x10
00f0 8011 | | Call 0x0,0x11
00f1 00d1 | | Pop_Control Pop_Count_1
00f2 00d9 | | Load_Top At_Offset_1
00f3 00d9 | | Load_Top At_Offset_1
00f4 0a04 | | Execute_Immediate Plus,0x4
00f5 00d8 | | Load_Top At_Offset_0
00f6 e00e | | Load 0x0,0xe
00f7 0260 | ` | Execute Discrete,In_Type
00f8 7001 |p | Jump_Nonzero 0xfa
00f9 0801 | | Execute_Immediate Raise,0x1
00fa e5fb | | Load 0x2,-0x5
00fb 00e0 | | Load_Encached Standard_Cache
00fc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00fd e219 | | Load 0x1,0x19
00fe 8010 | | Call 0x0,0x10
00ff 8011 | | Call 0x0,0x11
0100 00d1 | | Pop_Control Pop_Count_1
0101 e5ff | | Load 0x2,-0x1
0102 00db | | Load_Top At_Offset_3
0103 017d | } | Execute Record,Structure_Write
0104 00da | | Load_Top At_Offset_2
0105 00da | | Load_Top At_Offset_2
0106 8012 | | Call 0x0,0x12
0107 00d1 | | Pop_Control Pop_Count_1
0108 00da | | Load_Top At_Offset_2
0109 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011f | | .CONST 0x011f ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0004 | | .CONST 0x0004 ; Number of locals
0113 INIT_0110:
0113 e00c | | Load 0x0,0xc
0114 0322 | " | Declare_Variable Record
0115 00d8 | | Load_Top At_Offset_0
0116 1c00 | | Execute_Immediate Run_Utility,0x0
0117 e002 | | Load 0x0,0x2
0118 0322 | " | Declare_Variable Record
0119 00d8 | | Load_Top At_Offset_0
011a 1c00 | | Execute_Immediate Run_Utility,0x0
011b e004 | | Load 0x0,0x4
011c 0322 | " | Declare_Variable Record
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f BODY_0110:
011f e5ff | | Load 0x2,-0x1
0120 8005 | | Call 0x0,0x5
0121 00da | | Load_Top At_Offset_2
0122 017d | } | Execute Record,Structure_Write
0123 00cf | | Action Mark_Auxiliary
0124 00da | | Load_Top At_Offset_2
0125 800d | | Call 0x0,0xd
0126 4801 |H | Short_Literal 0x1
0127 0263 | c | Execute Discrete,Above_Bound
0128 702a |p* | Jump_Nonzero 0x153
0129 00d8 | | Load_Top At_Offset_0
012a e403 | | Load 0x2,0x3
012b 8013 | | Call 0x0,0x13
012c e404 | | Load 0x2,0x4
012d 017d | } | Execute Record,Structure_Write
012e 4801 |H | Short_Literal 0x1
012f e404 | | Load 0x2,0x4
0130 8008 | | Call 0x0,0x8
0131 e218 | | Load 0x1,0x18
0132 8009 | | Call 0x0,0x9
0133 680c |h | Jump_Zero 0x140
0134 00db | | Load_Top At_Offset_3
0135 e5fe | | Load 0x2,-0x2
0136 00e0 | | Load_Encached Standard_Cache
0137 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0138 8014 | | Call 0x0,0x14
0139 00d1 | | Pop_Control Pop_Count_1
013a e403 | | Load 0x2,0x3
013b 00d9 | | Load_Top At_Offset_1
013c e404 | | Load 0x2,0x4
013d 8011 | | Call 0x0,0x11
013e 00d1 | | Pop_Control Pop_Count_1
013f 7811 |x | Jump 0x151
0140 4801 |H | Short_Literal 0x1
0141 e404 | | Load 0x2,0x4
0142 8008 | | Call 0x0,0x8
0143 e219 | | Load 0x1,0x19
0144 8009 | | Call 0x0,0x9
0145 680b |h | Jump_Zero 0x151
0146 00db | | Load_Top At_Offset_3
0147 e5fd | | Load 0x2,-0x3
0148 00e0 | | Load_Encached Standard_Cache
0149 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014a 8014 | | Call 0x0,0x14
014b 00d1 | | Pop_Control Pop_Count_1
014c e403 | | Load 0x2,0x3
014d 00d9 | | Load_Top At_Offset_1
014e e404 | | Load 0x2,0x4
014f 8011 | | Call 0x0,0x11
0150 00d1 | | Pop_Control Pop_Count_1
0151 00c8 | | Action Pop_Auxiliary_Range
0152 3fd6 |? | Loop_Increasing 0x129
0153 00ce | | Action Pop_Auxiliary
0154 e5ff | | Load 0x2,-0x1
0155 00db | | Load_Top At_Offset_3
0156 017d | } | Execute Record,Structure_Write
0157 00da | | Load_Top At_Offset_2
0158 00da | | Load_Top At_Offset_2
0159 8012 | | Call 0x0,0x12
015a 00d1 | | Pop_Control Pop_Count_1
015b 00da | | Load_Top At_Offset_2
015c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016b | k | .CONST 0x016b ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 e002 | | Load 0x0,0x2
0164 0322 | " | Declare_Variable Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 e004 | | Load 0x0,0x4
0168 0322 | " | Declare_Variable Record
0169 00d8 | | Load_Top At_Offset_0
016a 1c00 | | Execute_Immediate Run_Utility,0x0
016b BODY_0160:
016b e5ff | | Load 0x2,-0x1
016c 8005 | | Call 0x0,0x5
016d 00da | | Load_Top At_Offset_2
016e 017d | } | Execute Record,Structure_Write
016f 00cf | | Action Mark_Auxiliary
0170 00da | | Load_Top At_Offset_2
0171 800d | | Call 0x0,0xd
0172 4801 |H | Short_Literal 0x1
0173 0263 | c | Execute Discrete,Above_Bound
0174 7018 |p | Jump_Nonzero 0x18d
0175 00d8 | | Load_Top At_Offset_0
0176 e402 | | Load 0x2,0x2
0177 8013 | | Call 0x0,0x13
0178 e403 | | Load 0x2,0x3
0179 017d | } | Execute Record,Structure_Write
017a 4801 |H | Short_Literal 0x1
017b e216 | | Load 0x1,0x16
017c e403 | | Load 0x2,0x3
017d 8008 | | Call 0x0,0x8
017e 8009 | | Call 0x0,0x9
017f 680b |h | Jump_Zero 0x18b
0180 00db | | Load_Top At_Offset_3
0181 8015 | | Call 0x0,0x15
0182 00e2 | | Load_Encached Integer_Cache
0183 00e0 | | Load_Encached Standard_Cache
0184 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0185 00d8 | | Load_Top At_Offset_0
0186 00e3 | | Load_Encached Natural_Cache
0187 0260 | ` | Execute Discrete,In_Type
0188 7001 |p | Jump_Nonzero 0x18a
0189 0801 | | Execute_Immediate Raise,0x1
018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018b 00c8 | | Action Pop_Auxiliary_Range
018c 3fe8 |? | Loop_Increasing 0x175
018d 00ce | | Action Pop_Auxiliary
018e e215 | | Load 0x1,0x15
018f 0257 | W | Execute Discrete,Raise
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019b | | .CONST 0x019b ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e002 | | Load 0x0,0x2
0194 0322 | " | Declare_Variable Record
0195 00d8 | | Load_Top At_Offset_0
0196 1c00 | | Execute_Immediate Run_Utility,0x0
0197 e004 | | Load 0x0,0x4
0198 0322 | " | Declare_Variable Record
0199 00d8 | | Load_Top At_Offset_0
019a 1c00 | | Execute_Immediate Run_Utility,0x0
019b BODY_0190:
019b e5ff | | Load 0x2,-0x1
019c 8005 | | Call 0x0,0x5
019d 00da | | Load_Top At_Offset_2
019e 017d | } | Execute Record,Structure_Write
019f 00cf | | Action Mark_Auxiliary
01a0 00da | | Load_Top At_Offset_2
01a1 800d | | Call 0x0,0xd
01a2 4801 |H | Short_Literal 0x1
01a3 0263 | c | Execute Discrete,Above_Bound
01a4 7018 |p | Jump_Nonzero 0x1bd
01a5 00d8 | | Load_Top At_Offset_0
01a6 e402 | | Load 0x2,0x2
01a7 8013 | | Call 0x0,0x13
01a8 e403 | | Load 0x2,0x3
01a9 017d | } | Execute Record,Structure_Write
01aa 4801 |H | Short_Literal 0x1
01ab e217 | | Load 0x1,0x17
01ac e403 | | Load 0x2,0x3
01ad 8008 | | Call 0x0,0x8
01ae 8009 | | Call 0x0,0x9
01af 680b |h | Jump_Zero 0x1bb
01b0 00db | | Load_Top At_Offset_3
01b1 8015 | | Call 0x0,0x15
01b2 00e2 | | Load_Encached Integer_Cache
01b3 00e0 | | Load_Encached Standard_Cache
01b4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01b5 00d8 | | Load_Top At_Offset_0
01b6 00e3 | | Load_Encached Natural_Cache
01b7 0260 | ` | Execute Discrete,In_Type
01b8 7001 |p | Jump_Nonzero 0x1ba
01b9 0801 | | Execute_Immediate Raise,0x1
01ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bb 00c8 | | Action Pop_Auxiliary_Range
01bc 3fe8 |? | Loop_Increasing 0x1a5
01bd 00ce | | Action Pop_Auxiliary
01be e215 | | Load 0x1,0x15
01bf 0257 | W | Execute Discrete,Raise
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cb | | .CONST 0x01cb ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 e002 | | Load 0x0,0x2
01c4 0322 | " | Declare_Variable Record
01c5 00d8 | | Load_Top At_Offset_0
01c6 1c00 | | Execute_Immediate Run_Utility,0x0
01c7 e004 | | Load 0x0,0x4
01c8 0322 | " | Declare_Variable Record
01c9 00d8 | | Load_Top At_Offset_0
01ca 1c00 | | Execute_Immediate Run_Utility,0x0
01cb BODY_01c0:
01cb e5ff | | Load 0x2,-0x1
01cc 8005 | | Call 0x0,0x5
01cd 00da | | Load_Top At_Offset_2
01ce 017d | } | Execute Record,Structure_Write
01cf 00cf | | Action Mark_Auxiliary
01d0 00da | | Load_Top At_Offset_2
01d1 800d | | Call 0x0,0xd
01d2 4801 |H | Short_Literal 0x1
01d3 0263 | c | Execute Discrete,Above_Bound
01d4 7018 |p | Jump_Nonzero 0x1ed
01d5 00d8 | | Load_Top At_Offset_0
01d6 e402 | | Load 0x2,0x2
01d7 8013 | | Call 0x0,0x13
01d8 e403 | | Load 0x2,0x3
01d9 017d | } | Execute Record,Structure_Write
01da 4801 |H | Short_Literal 0x1
01db e218 | | Load 0x1,0x18
01dc e403 | | Load 0x2,0x3
01dd 8008 | | Call 0x0,0x8
01de 8009 | | Call 0x0,0x9
01df 680b |h | Jump_Zero 0x1eb
01e0 00db | | Load_Top At_Offset_3
01e1 8015 | | Call 0x0,0x15
01e2 00e2 | | Load_Encached Integer_Cache
01e3 00e0 | | Load_Encached Standard_Cache
01e4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e5 00d8 | | Load_Top At_Offset_0
01e6 00e3 | | Load_Encached Natural_Cache
01e7 0260 | ` | Execute Discrete,In_Type
01e8 7001 |p | Jump_Nonzero 0x1ea
01e9 0801 | | Execute_Immediate Raise,0x1
01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01eb 00c8 | | Action Pop_Auxiliary_Range
01ec 3fe8 |? | Loop_Increasing 0x1d5
01ed 00ce | | Action Pop_Auxiliary
01ee e215 | | Load 0x1,0x15
01ef 0257 | W | Execute Discrete,Raise
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fb | | .CONST 0x01fb ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 e002 | | Load 0x0,0x2
01f4 0322 | " | Declare_Variable Record
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 e004 | | Load 0x0,0x4
01f8 0322 | " | Declare_Variable Record
01f9 00d8 | | Load_Top At_Offset_0
01fa 1c00 | | Execute_Immediate Run_Utility,0x0
01fb BODY_01f0:
01fb e5ff | | Load 0x2,-0x1
01fc 8005 | | Call 0x0,0x5
01fd 00da | | Load_Top At_Offset_2
01fe 017d | } | Execute Record,Structure_Write
01ff 00cf | | Action Mark_Auxiliary
0200 00da | | Load_Top At_Offset_2
0201 800d | | Call 0x0,0xd
0202 4801 |H | Short_Literal 0x1
0203 0263 | c | Execute Discrete,Above_Bound
0204 7018 |p | Jump_Nonzero 0x21d
0205 00d8 | | Load_Top At_Offset_0
0206 e402 | | Load 0x2,0x2
0207 8013 | | Call 0x0,0x13
0208 e403 | | Load 0x2,0x3
0209 017d | } | Execute Record,Structure_Write
020a 4801 |H | Short_Literal 0x1
020b e219 | | Load 0x1,0x19
020c e403 | | Load 0x2,0x3
020d 8008 | | Call 0x0,0x8
020e 8009 | | Call 0x0,0x9
020f 680b |h | Jump_Zero 0x21b
0210 00db | | Load_Top At_Offset_3
0211 8015 | | Call 0x0,0x15
0212 00e2 | | Load_Encached Integer_Cache
0213 00e0 | | Load_Encached Standard_Cache
0214 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0215 00d8 | | Load_Top At_Offset_0
0216 00e3 | | Load_Encached Natural_Cache
0217 0260 | ` | Execute Discrete,In_Type
0218 7001 |p | Jump_Nonzero 0x21a
0219 0801 | | Execute_Immediate Raise,0x1
021a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021b 00c8 | | Action Pop_Auxiliary_Range
021c 3fe8 |? | Loop_Increasing 0x205
021d 00ce | | Action Pop_Auxiliary
021e e215 | | Load 0x1,0x15
021f 0257 | W | Execute Discrete,Raise
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0235 | 5 | .CONST 0x0235 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0006 | | .CONST 0x0006 ; Number of locals
0223 INIT_0220:
0223 e002 | | Load 0x0,0x2
0224 0322 | " | Declare_Variable Record
0225 00d8 | | Load_Top At_Offset_0
0226 1c00 | | Execute_Immediate Run_Utility,0x0
0227 e002 | | Load 0x0,0x2
0228 0322 | " | Declare_Variable Record
0229 00d8 | | Load_Top At_Offset_0
022a 1c00 | | Execute_Immediate Run_Utility,0x0
022b e004 | | Load 0x0,0x4
022c 0322 | " | Declare_Variable Record
022d 00d8 | | Load_Top At_Offset_0
022e 1c00 | | Execute_Immediate Run_Utility,0x0
022f 00e3 | | Load_Encached Natural_Cache
0230 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0231 e00c | | Load 0x0,0xc
0232 0322 | " | Declare_Variable Record
0233 00d8 | | Load_Top At_Offset_0
0234 1c00 | | Execute_Immediate Run_Utility,0x0
0235 BODY_0220:
0235 e5ff | | Load 0x2,-0x1
0236 8005 | | Call 0x0,0x5
0237 e402 | | Load 0x2,0x2
0238 017d | } | Execute Record,Structure_Write
0239 00db | | Load_Top At_Offset_3
023a e402 | | Load 0x2,0x2
023b 800d | | Call 0x0,0xd
023c 0afc | | Execute_Immediate Plus,-0x4
023d 00d8 | | Load_Top At_Offset_0
023e e00e | | Load 0x0,0xe
023f 0260 | ` | Execute Discrete,In_Type
0240 7001 |p | Jump_Nonzero 0x242
0241 0801 | | Execute_Immediate Raise,0x1
0242 800f | | Call 0x0,0xf
0243 00d1 | | Pop_Control Pop_Count_1
0244 00cf | | Action Mark_Auxiliary
0245 e402 | | Load 0x2,0x2
0246 800d | | Call 0x0,0xd
0247 4801 |H | Short_Literal 0x1
0248 0263 | c | Execute Discrete,Above_Bound
0249 7030 |p0 | Jump_Nonzero 0x27a
024a 00d8 | | Load_Top At_Offset_0
024b e402 | | Load 0x2,0x2
024c 8013 | | Call 0x0,0x13
024d e404 | | Load 0x2,0x4
024e 017d | } | Execute Record,Structure_Write
024f 4801 |H | Short_Literal 0x1
0250 e216 | | Load 0x1,0x16
0251 e404 | | Load 0x2,0x4
0252 8008 | | Call 0x0,0x8
0253 8009 | | Call 0x0,0x9
0254 6801 |h | Jump_Zero 0x256
0255 7822 |x" | Jump 0x278
0256 4801 |H | Short_Literal 0x1
0257 e217 | | Load 0x1,0x17
0258 e404 | | Load 0x2,0x4
0259 8008 | | Call 0x0,0x8
025a 8009 | | Call 0x0,0x9
025b 6801 |h | Jump_Zero 0x25d
025c 781b |x | Jump 0x278
025d 4801 |H | Short_Literal 0x1
025e e218 | | Load 0x1,0x18
025f e404 | | Load 0x2,0x4
0260 8008 | | Call 0x0,0x8
0261 8009 | | Call 0x0,0x9
0262 6801 |h | Jump_Zero 0x264
0263 7814 |x | Jump 0x278
0264 4801 |H | Short_Literal 0x1
0265 e219 | | Load 0x1,0x19
0266 e404 | | Load 0x2,0x4
0267 8008 | | Call 0x0,0x8
0268 8009 | | Call 0x0,0x9
0269 6801 |h | Jump_Zero 0x26b
026a 780d |x | Jump 0x278
026b e403 | | Load 0x2,0x3
026c e405 | | Load 0x2,0x5
026d 00d8 | | Load_Top At_Offset_0
026e e00e | | Load 0x0,0xe
026f 0260 | ` | Execute Discrete,In_Type
0270 7001 |p | Jump_Nonzero 0x272
0271 0801 | | Execute_Immediate Raise,0x1
0272 e404 | | Load 0x2,0x4
0273 8011 | | Call 0x0,0x11
0274 00d1 | | Pop_Control Pop_Count_1
0275 e405 | | Load 0x2,0x5
0276 0a01 | | Execute_Immediate Plus,0x1
0277 c405 | | Store 0x2,0x5
0278 00c8 | | Action Pop_Auxiliary_Range
0279 3fd0 |? | Loop_Increasing 0x24a
027a 00ce | | Action Pop_Auxiliary
027b e5ff | | Load 0x2,-0x1
027c 00d9 | | Load_Top At_Offset_1
027d 017d | } | Execute Record,Structure_Write
027e 00d8 | | Load_Top At_Offset_0
027f e403 | | Load 0x2,0x3
0280 8012 | | Call 0x0,0x12
0281 00d1 | | Pop_Control Pop_Count_1
0282 00d8 | | Load_Top At_Offset_0
0283 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0284 ; --------------------------------------------------------------------------------------
0284 ; STRING TABLE
0284 ; --------------------------------------------------------------------------------------
0284 000a | | .STRTAB 0x000a->0x0289 ; "receiver"
0285 0010 | | .STRTAB 0x0010->0x028d ; "transmitter"
0286 0019 | | .STRTAB 0x0019->0x0292 ; "Current_filter"
0287 0025 | % | .STRTAB 0x0025->0x0299 ; "receiver_transmitter"
0288 0037 | 7 | .STREND 0x0037->0x02a3
0289 7265 6365 |rece| .STRTAB_STRINGS
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1d0,0x0000,0x0001,0x0000
02ae 0000 0000 | | .BLANK 0000[0x152]