|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03c0 | | .CONST 0x03c0 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003b | ; | .CONST 0x003b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b e00d | | Load 0x0,0xd
000c 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
000d 0322 | " | Declare_Variable Record
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e00d | | Load 0x0,0xd
0011 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 e016 | | Load 0x0,0x16
0016 e017 | | Load 0x0,0x17
0017 605c |`\ | Indirect_Literal Discrete,0x74,{0x00000000, 0x00000400}
0018 e00f | | Load 0x0,0xf
0019 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
001a 00e1 | | Load_Encached Boolean_Cache
001b e014 | | Load 0x0,0x14
001c 191b | | Execute Package,Field_Reference,Field_Number 0x1b
001d e018 | | Load 0x0,0x18
001e 0387 | | Declare_Variable Package
001f 00d8 | | Load_Top At_Offset_0
0020 020f | | Execute Module,Activate
0021 00d8 | | Load_Top At_Offset_0
0022 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0023 029f 007b | {| Declare_Subprogram For_Call,INIT_0078
0025 029f 008b | | Declare_Subprogram For_Call,INIT_0088
0027 029f 009b | | Declare_Subprogram For_Call,INIT_0098
0029 029f 00b3 | | Declare_Subprogram For_Call,INIT_00b0
002b 029f 00cb | | Declare_Subprogram For_Call,INIT_00c8
002d 029f 010b | | Declare_Subprogram For_Call,INIT_0108
002f 029f 0123 | #| Declare_Subprogram For_Call,INIT_0120
0031 029f 0133 | 3| Declare_Subprogram For_Call,INIT_0130
0033 029e 013b | ;| Declare_Subprogram For_Call,Unelaborated,INIT_0138
0035 e019 | | Load 0x0,0x19
0036 02ab | | Declare_Subprogram For_Call,With_Address
0037 480e |H | Short_Literal 0xe
0038 4802 |H | Short_Literal 0x2
0039 0099 | | Action Reference_Dynamic
003a 00c7 | | Action Elaborate_Subprogram
003b BODY_0008:
003b 4800 |H | Short_Literal 0x0
003c 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "Interchange"
003e e00e | | Load 0x0,0xe
003f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0040 8409 | | Call 0x2,0x9
0041 4800 |H | Short_Literal 0x0
0042 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "Transport_Interchange"
0044 e00e | | Load 0x0,0xe
0045 180d | | Execute Package,Field_Execute,Field_Number 0xd
0046 8409 | | Call 0x2,0x9
0047 4801 |H | Short_Literal 0x1
0048 4801 |H | Short_Literal 0x1
0049 e5fe | | Load 0x2,-0x2
004a e013 | | Load 0x0,0x13
004b 180f | | Execute Package,Field_Execute,Field_Number 0xf
004c e00e | | Load 0x0,0xe
004d 180f | | Execute Package,Field_Execute,Field_Number 0xf
004e 8409 | | Call 0x2,0x9
004f e402 | | Load 0x2,0x2
0050 e5ff | | Load 0x2,-0x1
0051 e00d | | Load 0x0,0xd
0052 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0053 00d1 | | Pop_Control Pop_Count_1
0054 e404 | | Load 0x2,0x4
0055 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0056 e404 | | Load 0x2,0x4
0057 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0058 c405 | | Store 0x2,0x5
0059 00cf | | Action Mark_Auxiliary
005a 780b |x | Jump 0x66
005b e402 | | Load 0x2,0x2
005c e00d | | Load 0x0,0xd
005d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
005e c403 | | Store 0x2,0x3
005f e403 | | Load 0x2,0x3
0060 840e | | Call 0x2,0xe
0061 e402 | | Load 0x2,0x2
0062 e00d | | Load 0x0,0xd
0063 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0064 00d1 | | Pop_Control Pop_Count_1
0065 00c9 | | Action Pop_Auxiliary_Loop
0066 e402 | | Load 0x2,0x2
0067 e00d | | Load 0x0,0xd
0068 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0069 6ff1 |o | Jump_Zero 0x5b
006a 00ce | | Action Pop_Auxiliary
006b 4800 |H | Short_Literal 0x0
006c 00ea | | Load_Encached Null_String_Cache
006d e00e | | Load 0x0,0xe
006e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006f 8409 | | Call 0x2,0x9
0070 4504 |E | Exit_Subprogram 0x4
0071 0000 0000 | | .XXX[0x3]
0073 0000 | |
0074 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c 6803 |h | Jump_Zero 0x80
007d 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "From"
007f 4401 |D | Exit_Subprogram With_Result,0x1
0080 0092 02aa | | Action Push_String_Extended,0x2aa ; "Into"
0082 4401 |D | Exit_Subprogram With_Result,0x1
0083 0000 0000 | | .BLANK 0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008d | | .CONST 0x008d ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 00e1 | | Load_Encached Boolean_Cache
008c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008d BODY_0088:
008d e405 | | Load 0x2,0x5
008e 4800 |H | Short_Literal 0x0
008f 00da | | Load_Top At_Offset_2
0090 e7ff | | Load 0x3,-0x1
0091 e404 | | Load 0x2,0x4
0092 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0093 c405 | | Store 0x2,0x5
0094 4502 |E | Exit_Subprogram 0x2
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009e | | .CONST 0x009e ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b 00e1 | | Load_Encached Boolean_Cache
009c 00e1 | | Load_Encached Boolean_Cache
009d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009e BODY_0098:
009e 00e1 | | Load_Encached Boolean_Cache
009f 00d9 | | Load_Top At_Offset_1
00a0 e7ff | | Load 0x3,-0x1
00a1 e405 | | Load 0x2,0x5
00a2 e404 | | Load 0x2,0x4
00a3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a4 005a | Z | Store_Top Discrete,At_Offset_2
00a5 005a | Z | Store_Top Discrete,At_Offset_2
00a6 00d9 | | Load_Top At_Offset_1
00a7 0f00 | | Execute_Immediate Equal,0x0
00a8 4401 |D | Exit_Subprogram With_Result,0x1
00a9 0000 0000 | | .BLANK 0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e5fd | | Load 0x2,-0x3
00b5 e015 | | Load 0x0,0x15
00b6 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00b7 00db | | Load_Top At_Offset_3
00b8 0c01 | | Execute_Immediate Greater_Equal,0x1
00b9 680a |h | Jump_Zero 0xc4
00ba 00db | | Load_Top At_Offset_3
00bb 00d8 | | Load_Top At_Offset_0
00bc e015 | | Load 0x0,0x15
00bd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00be 0260 | ` | Execute Discrete,In_Type
00bf 7001 |p | Jump_Nonzero 0xc1
00c0 0801 | | Execute_Immediate Raise,0x1
00c1 e5fd | | Load 0x2,-0x3
00c2 e015 | | Load 0x0,0x15
00c3 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
00c4 4503 |E | Exit_Subprogram 0x3
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb 029f 0293 | | Declare_Subprogram For_Call,INIT_0290
00cd BODY_00c8:
00cd e7fd | | Load 0x3,-0x3
00ce 6827 |h' | Jump_Zero 0xf6
00cf 00db | | Load_Top At_Offset_3
00d0 e214 | | Load 0x1,0x14
00d1 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d2 6812 |h | Jump_Zero 0xe5
00d3 4800 |H | Short_Literal 0x0
00d4 0092 02ab | | Action Push_String_Extended,0x2ab ; "\x0a\x0a"
00d6 0092 02ac | | Action Push_String_Extended,0x2ac ; "From : Transport_Stream.Stream_Id; \x0aData : out "
00d8 e7ff | | Load 0x3,-0x1
00d9 e00d | | Load 0x0,0xd
00da 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00db 01cc | | Execute Vector,Catenate
00dc 4801 |H | Short_Literal 0x1
00dd 0092 02ad | | Action Push_String_Extended,0x2ad ; "Get"
00df e00e | | Load 0x0,0xe
00e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e1 01cc | | Execute Vector,Catenate
00e2 8409 | | Call 0x2,0x9
00e3 8602 | | Call 0x3,0x2
00e4 4505 |E | Exit_Subprogram 0x5
00e5 4800 |H | Short_Literal 0x0
00e6 0092 02ab | | Action Push_String_Extended,0x2ab ; "\x0a\x0a"
00e8 e7ff | | Load 0x3,-0x1
00e9 e00d | | Load 0x0,0xd
00ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00eb 0092 02ae | | Action Push_String_Extended,0x2ae ; "From : Transport_Stream.Stream_Id"
00ed 4801 |H | Short_Literal 0x1
00ee 0092 02ad | | Action Push_String_Extended,0x2ad ; "Get"
00f0 e00e | | Load 0x0,0xe
00f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f2 01cc | | Execute Vector,Catenate
00f3 8409 | | Call 0x2,0x9
00f4 8602 | | Call 0x3,0x2
00f5 4505 |E | Exit_Subprogram 0x5
00f6 4800 |H | Short_Literal 0x0
00f7 0092 02ab | | Action Push_String_Extended,0x2ab ; "\x0a\x0a"
00f9 0092 02af | | Action Push_String_Extended,0x2af ; "Into : Transport_Stream.Stream_Id; \x0aData : "
00fb e7ff | | Load 0x3,-0x1
00fc e00d | | Load 0x0,0xd
00fd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00fe 01cc | | Execute Vector,Catenate
00ff 4801 |H | Short_Literal 0x1
0100 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "Put"
0102 e00e | | Load 0x0,0xe
0103 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0104 01cc | | Execute Vector,Catenate
0105 8409 | | Call 0x2,0x9
0106 8602 | | Call 0x3,0x2
0107 4505 |E | Exit_Subprogram 0x5
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00cf | | Action Mark_Auxiliary
010c e214 | | Load 0x1,0x14
010d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
010e 0265 | e | Execute Discrete,Reverse_Bounds
010f 0007 | | Action Break_Optional
0110 e7fe | | Load 0x3,-0x2
0111 00d9 | | Load_Top At_Offset_1
0112 4801 |H | Short_Literal 0x1
0113 e7ff | | Load 0x3,-0x1
0114 840a | | Call 0x2,0xa
0115 4801 |H | Short_Literal 0x1
0116 00ea | | Load_Encached Null_String_Cache
0117 e00e | | Load 0x0,0xe
0118 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0119 8409 | | Call 0x2,0x9
011a 00c8 | | Action Pop_Auxiliary_Range
011b 3ff4 |? | Loop_Increasing 0x110
011c 4503 |E | Exit_Subprogram 0x3
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 0092 02b1 | | Action Push_String_Extended,0x2b1 ; "Discrete_"
0125 00db | | Load_Top At_Offset_3
0126 e00d | | Load 0x0,0xd
0127 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0128 01cc | | Execute Vector,Catenate
0129 4401 |D | Exit_Subprogram With_Result,0x1
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 840c | | Call 0x2,0xc
0135 e013 | | Load 0x0,0x13
0136 180f | | Execute Package,Field_Execute,Field_Number 0xf
0137 4401 |D | Exit_Subprogram With_Result,0x1
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 016a | j | .CONST 0x016a ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0008 | | .CONST 0x0008 ; Number of locals
013b INIT_0138:
013b e00f | | Load 0x0,0xf
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d 02c7 | | Declare_Variable Any
013e 00db | | Load_Top At_Offset_3
013f e010 | | Load 0x0,0x10
0140 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0141 a602 | | Store_Unchecked 0x3,0x2
0142 e00f | | Load 0x0,0xf
0143 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0144 02c7 | | Declare_Variable Any
0145 00d9 | | Load_Top At_Offset_1
0146 e011 | | Load 0x0,0x11
0147 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0148 a603 | | Store_Unchecked 0x3,0x3
0149 e00f | | Load 0x0,0xf
014a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
014b 02c7 | | Declare_Variable Any
014c e7ff | | Load 0x3,-0x1
014d e010 | | Load 0x0,0x10
014e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
014f e011 | | Load 0x0,0x11
0150 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0151 e010 | | Load 0x0,0x10
0152 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0153 a604 | | Store_Unchecked 0x3,0x4
0154 e00f | | Load 0x0,0xf
0155 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0156 02c7 | | Declare_Variable Any
0157 00d9 | | Load_Top At_Offset_1
0158 e010 | | Load 0x0,0x10
0159 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
015a a605 | | Store_Unchecked 0x3,0x5
015b e00f | | Load 0x0,0xf
015c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015d 02c7 | | Declare_Variable Any
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 e00f | | Load 0x0,0xf
0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0162 02c7 | | Declare_Variable Any
0163 00d8 | | Load_Top At_Offset_0
0164 1c00 | | Execute_Immediate Run_Utility,0x0
0165 e00f | | Load 0x0,0xf
0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0167 02c7 | | Declare_Variable Any
0168 00d8 | | Load_Top At_Offset_0
0169 1c00 | | Execute_Immediate Run_Utility,0x0
016a BODY_0138:
016a e604 | | Load 0x3,0x4
016b 8408 | | Call 0x2,0x8
016c e604 | | Load 0x3,0x4
016d e214 | | Load 0x1,0x14
016e 180e | | Execute Package,Field_Execute,Field_Number 0xe
016f 0f00 | | Execute_Immediate Equal,0x0
0170 0279 | y | Execute Discrete,And
0171 6918 |i | Jump_Zero 0x28a
0172 e604 | | Load 0x3,0x4
0173 8407 | | Call 0x2,0x7
0174 00db | | Load_Top At_Offset_3
0175 e011 | | Load 0x0,0x11
0176 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0177 460c |F | Jump_Case 0xc
0178 780d |x | Jump 0x186 ; case 0x0
0179 780d |x | Jump 0x187 ; case 0x1
017a 780b |x | Jump 0x186 ; case 0x2
017b 780a |x | Jump 0x186 ; case 0x3
017c 78fa |x | Jump 0x277 ; case 0x4
017d 783a |x: | Jump 0x1b8 ; case 0x5
017e 783d |x= | Jump 0x1bc ; case 0x6
017f 7901 |y | Jump 0x281 ; case 0x7
0180 78cf |x | Jump 0x250 ; case 0x8
0181 78fa |x | Jump 0x27c ; case 0x9
0182 7903 |y | Jump 0x286 ; case 0xa
0183 7902 |y | Jump 0x286 ; case 0xb
0184 7800 |x | Jump 0x185 ; case 0xc
0185 08e2 | | Execute_Immediate Raise,0xe2
0186 08e2 | | Execute_Immediate Raise,0xe2
0187 4802 |H | Short_Literal 0x2
0188 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "\x0apackage "
018a e604 | | Load 0x3,0x4
018b 840d | | Call 0x2,0xd
018c 01cc | | Execute Vector,Catenate
018d 0092 02b3 | | Action Push_String_Extended,0x2b3 ; " is new Transport_Interchange.Discrete ("
018f 01cc | | Execute Vector,Catenate
0190 e604 | | Load 0x3,0x4
0191 e00d | | Load 0x0,0xd
0192 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0193 01cc | | Execute Vector,Catenate
0194 0092 02b4 | | Action Push_String_Extended,0x2b4 ; ");"
0196 01cc | | Execute Vector,Catenate
0197 8409 | | Call 0x2,0x9
0198 00cf | | Action Mark_Auxiliary
0199 e214 | | Load 0x1,0x14
019a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
019b 0265 | e | Execute Discrete,Reverse_Bounds
019c 0007 | | Action Break_Optional
019d 00ea | | Load_Encached Null_String_Cache
019e 00d9 | | Load_Top At_Offset_1
019f 4800 |H | Short_Literal 0x0
01a0 e604 | | Load 0x3,0x4
01a1 840a | | Call 0x2,0xa
01a2 4801 |H | Short_Literal 0x1
01a3 00d9 | | Load_Top At_Offset_1
01a4 e604 | | Load 0x3,0x4
01a5 00d8 | | Load_Top At_Offset_0
01a6 840c | | Call 0x2,0xc
01a7 e60b | | Load 0x3,0xb
01a8 8406 | | Call 0x2,0x6
01a9 00ea | | Load_Encached Null_String_Cache
01aa 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "Data"
01ac e214 | | Load 0x1,0x14
01ad 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ae 8409 | | Call 0x2,0x9
01af 4800 |H | Short_Literal 0x0
01b0 00ea | | Load_Encached Null_String_Cache
01b1 e00e | | Load 0x0,0xe
01b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01b3 8409 | | Call 0x2,0x9
01b4 00c8 | | Action Pop_Auxiliary_Range
01b5 3fe7 |? | Loop_Increasing 0x19d
01b6 00ce | | Action Pop_Auxiliary
01b7 4502 |E | Exit_Subprogram 0x2
01b8 00db | | Load_Top At_Offset_3
01b9 e604 | | Load 0x3,0x4
01ba 840f | | Call 0x2,0xf
01bb 4502 |E | Exit_Subprogram 0x2
01bc 00db | | Load_Top At_Offset_3
01bd e011 | | Load 0x0,0x11
01be 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
01bf c606 | | Store 0x3,0x6
01c0 00db | | Load_Top At_Offset_3
01c1 e011 | | Load 0x0,0x11
01c2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01c3 6805 |h | Jump_Zero 0x1c9
01c4 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "Interchange of discriminated record types not yet implemented"
01c6 e604 | | Load 0x3,0x4
01c7 840b | | Call 0x2,0xb
01c8 4502 |E | Exit_Subprogram 0x2
01c9 00db | | Load_Top At_Offset_3
01ca e011 | | Load 0x0,0x11
01cb 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
01cc c606 | | Store 0x3,0x6
01cd 00cf | | Action Mark_Auxiliary
01ce 7814 |x | Jump 0x1e3
01cf 00db | | Load_Top At_Offset_3
01d0 e00f | | Load 0x0,0xf
01d1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d2 c607 | | Store 0x3,0x7
01d3 4801 |H | Short_Literal 0x1
01d4 00db | | Load_Top At_Offset_3
01d5 e010 | | Load 0x0,0x10
01d6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01d7 e00f | | Load 0x0,0xf
01d8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
01d9 e010 | | Load 0x0,0x10
01da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01db c608 | | Store 0x3,0x8
01dc 00d9 | | Load_Top At_Offset_1
01dd 840e | | Call 0x2,0xe
01de 00db | | Load_Top At_Offset_3
01df e00f | | Load 0x0,0xf
01e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01e1 c606 | | Store 0x3,0x6
01e2 00c9 | | Action Pop_Auxiliary_Loop
01e3 00db | | Load_Top At_Offset_3
01e4 e00f | | Load 0x0,0xf
01e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e6 6fe8 |o | Jump_Zero 0x1cf
01e7 00ce | | Action Pop_Auxiliary
01e8 00da | | Load_Top At_Offset_2
01e9 e00f | | Load 0x0,0xf
01ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01eb c606 | | Store 0x3,0x6
01ec 00cf | | Action Mark_Auxiliary
01ed e214 | | Load 0x1,0x14
01ee 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ef 0265 | e | Execute Discrete,Reverse_Bounds
01f0 0007 | | Action Break_Optional
01f1 00ea | | Load_Encached Null_String_Cache
01f2 00d9 | | Load_Top At_Offset_1
01f3 4800 |H | Short_Literal 0x0
01f4 e604 | | Load 0x3,0x4
01f5 840a | | Call 0x2,0xa
01f6 00cf | | Action Mark_Auxiliary
01f7 7846 |xF | Jump 0x23e
01f8 e606 | | Load 0x3,0x6
01f9 e00f | | Load 0x0,0xf
01fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01fb c607 | | Store 0x3,0x7
01fc 4801 |H | Short_Literal 0x1
01fd e607 | | Load 0x3,0x7
01fe e010 | | Load 0x0,0x10
01ff 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0200 e00f | | Load 0x0,0xf
0201 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0202 e010 | | Load 0x0,0x10
0203 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0204 c608 | | Store 0x3,0x8
0205 e608 | | Load 0x3,0x8
0206 e214 | | Load 0x1,0x14
0207 180d | | Execute Package,Field_Execute,Field_Number 0xd
0208 00da | | Load_Top At_Offset_2
0209 0f00 | | Execute_Immediate Equal,0x0
020a 0278 | x | Execute Discrete,Or
020b 6813 |h | Jump_Zero 0x21f
020c 4801 |H | Short_Literal 0x1
020d 00da | | Load_Top At_Offset_2
020e e608 | | Load 0x3,0x8
020f e5fe | | Load 0x2,-0x2
0210 e60b | | Load 0x3,0xb
0211 8406 | | Call 0x2,0x6
0212 e608 | | Load 0x3,0x8
0213 e214 | | Load 0x1,0x14
0214 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0215 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Data."
0217 e607 | | Load 0x3,0x7
0218 e010 | | Load 0x0,0x10
0219 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
021a 01cc | | Execute Vector,Catenate
021b e214 | | Load 0x1,0x14
021c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
021d 8409 | | Call 0x2,0x9
021e 781a |x | Jump 0x239
021f 4800 |H | Short_Literal 0x0
0220 00da | | Load_Top At_Offset_2
0221 e608 | | Load 0x3,0x8
0222 e5fe | | Load 0x2,-0x2
0223 e60b | | Load 0x3,0xb
0224 8406 | | Call 0x2,0x6
0225 e608 | | Load 0x3,0x8
0226 e214 | | Load 0x1,0x14
0227 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0228 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Data."
022a e607 | | Load 0x3,0x7
022b e010 | | Load 0x0,0x10
022c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
022d 01cc | | Execute Vector,Catenate
022e e214 | | Load 0x1,0x14
022f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0230 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "Data."
0232 e607 | | Load 0x3,0x7
0233 e010 | | Load 0x0,0x10
0234 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0235 01cc | | Execute Vector,Catenate
0236 e00e | | Load 0x0,0xe
0237 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0238 8409 | | Call 0x2,0x9
0239 e606 | | Load 0x3,0x6
023a e00f | | Load 0x0,0xf
023b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
023c c606 | | Store 0x3,0x6
023d 00c9 | | Action Pop_Auxiliary_Loop
023e e606 | | Load 0x3,0x6
023f e00f | | Load 0x0,0xf
0240 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0241 6fb6 |o | Jump_Zero 0x1f8
0242 00ce | | Action Pop_Auxiliary
0243 4800 |H | Short_Literal 0x0
0244 00ea | | Load_Encached Null_String_Cache
0245 e00e | | Load 0x0,0xe
0246 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0247 8409 | | Call 0x2,0x9
0248 e606 | | Load 0x3,0x6
0249 e00f | | Load 0x0,0xf
024a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024b c606 | | Store 0x3,0x6
024c 00c8 | | Action Pop_Auxiliary_Range
024d 3fa3 |? | Loop_Increasing 0x1f1
024e 00ce | | Action Pop_Auxiliary
024f 4502 |E | Exit_Subprogram 0x2
0250 e603 | | Load 0x3,0x3
0251 e010 | | Load 0x0,0x10
0252 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0253 840e | | Call 0x2,0xe
0254 00cf | | Action Mark_Auxiliary
0255 e214 | | Load 0x1,0x14
0256 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0257 0265 | e | Execute Discrete,Reverse_Bounds
0258 0007 | | Action Break_Optional
0259 00ea | | Load_Encached Null_String_Cache
025a 00d9 | | Load_Top At_Offset_1
025b 4800 |H | Short_Literal 0x0
025c e604 | | Load 0x3,0x4
025d 840a | | Call 0x2,0xa
025e 4801 |H | Short_Literal 0x1
025f 00d9 | | Load_Top At_Offset_1
0260 e604 | | Load 0x3,0x4
0261 e5fe | | Load 0x2,-0x2
0262 e60b | | Load 0x3,0xb
0263 8406 | | Call 0x2,0x6
0264 e603 | | Load 0x3,0x3
0265 e010 | | Load 0x0,0x10
0266 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0267 e00d | | Load 0x0,0xd
0268 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0269 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "Data"
026b e214 | | Load 0x1,0x14
026c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
026d 8409 | | Call 0x2,0x9
026e 4800 |H | Short_Literal 0x0
026f 00ea | | Load_Encached Null_String_Cache
0270 e00e | | Load 0x0,0xe
0271 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0272 8409 | | Call 0x2,0x9
0273 00c8 | | Action Pop_Auxiliary_Range
0274 3fe4 |? | Loop_Increasing 0x259
0275 00ce | | Action Pop_Auxiliary
0276 4502 |E | Exit_Subprogram 0x2
0277 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "Interchange of fixed types not yet implemented"
0279 e604 | | Load 0x3,0x4
027a 840b | | Call 0x2,0xb
027b 4502 |E | Exit_Subprogram 0x2
027c 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "Interchange of task types may be impossible"
027e e604 | | Load 0x3,0x4
027f 840b | | Call 0x2,0xb
0280 4502 |E | Exit_Subprogram 0x2
0281 0092 02ba | | Action Push_String_Extended,0x2ba ; "Interchange of access types may not be possible"
0283 e604 | | Load 0x3,0x4
0284 840b | | Call 0x2,0xb
0285 4502 |E | Exit_Subprogram 0x2
0286 0092 02bb | | Action Push_String_Extended,0x2bb ; "Interchange of private types requires special attention"
0288 e604 | | Load 0x3,0x4
0289 840b | | Call 0x2,0xb
028a 4502 |E | Exit_Subprogram 0x2
028b 0000 0000 | | .BLANK 0000[0x5]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 4800 |H | Short_Literal 0x0
0294 e00e | | Load 0x0,0xe
0295 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0296 8409 | | Call 0x2,0x9
0297 e7fc | | Load 0x3,-0x4
0298 01db | | Execute Vector,Length
0299 6806 |h | Jump_Zero 0x2a0
029a 4802 |H | Short_Literal 0x2
029b 0092 02bc | | Action Push_String_Extended,0x2bc ; " -- "
029d e7fc | | Load 0x3,-0x4
029e 01cc | | Execute Vector,Catenate
029f 8409 | | Call 0x2,0x9
02a0 e7fe | | Load 0x3,-0x2
02a1 6804 |h | Jump_Zero 0x2a6
02a2 4801 |H | Short_Literal 0x1
02a3 0092 02bd | | Action Push_String_Extended,0x2bd ; "[statement]"
02a5 8409 | | Call 0x2,0x9
02a6 4501 |E | Exit_Subprogram 0x1
02a7 ; --------------------------------------------------------------------------------------
02a7 ; STRING TABLE
02a7 ; --------------------------------------------------------------------------------------
02a7 0030 | 0 | .STRTAB 0x0030->0x02bf ; "Interchange"
02a8 0039 | 9 | .STRTAB 0x0039->0x02c4 ; "Transport_Interchange"
02a9 004c | L | .STRTAB 0x004c->0x02cf ; "From"
02aa 004e | N | .STRTAB 0x004e->0x02d1 ; "Into"
02ab 0050 | P | .STRTAB 0x0050->0x02d3 ; "\x0a\x0a"
; "\x0a\x0a"
; "\x0a\x0a"
02ac 0050 | P | .STRTAB 0x0050->0x02d4 ; "From : Transport_Stream.Stream_Id; \x0aData : out "
02ad 007e | ~ | .STRTAB 0x007e->0x02ec ; "Get"
; "Get"
02ae 007f | | .STRTAB 0x007f->0x02ed ; "From : Transport_Stream.Stream_Id"
02af 009e | | .STRTAB 0x009e->0x02fe ; "Into : Transport_Stream.Stream_Id; \x0aData : "
02b0 00c8 | | .STRTAB 0x00c8->0x0314 ; "Put"
02b1 00c9 | | .STRTAB 0x00c9->0x0315 ; "Discrete_"
02b2 00d0 | | .STRTAB 0x00d0->0x031a ; "\x0apackage "
02b3 00d7 | | .STRTAB 0x00d7->0x031e ; " is new Transport_Interchange.Discrete ("
02b4 00fd | | .STRTAB 0x00fd->0x0332 ; ");"
02b5 00fd | | .STRTAB 0x00fd->0x0333 ; "Data"
; "Data"
02b6 00ff | | .STRTAB 0x00ff->0x0335 ; "Interchange of discriminated record types not yet implemented"
02b7 013a | : | .STRTAB 0x013a->0x0354 ; "Data."
; "Data."
; "Data."
02b8 013d | = | .STRTAB 0x013d->0x0356 ; "Interchange of fixed types not yet implemented"
02b9 0169 | i | .STRTAB 0x0169->0x036d ; "Interchange of task types may be impossible"
02ba 0192 | | .STRTAB 0x0192->0x0383 ; "Interchange of access types may not be possible"
02bb 01bf | | .STRTAB 0x01bf->0x039a ; "Interchange of private types requires special attention"
02bc 01f4 | | .STRTAB 0x01f4->0x03b6 ; " -- "
02bd 01f7 | | .STRTAB 0x01f7->0x03b8 ; "[statement]"
02be 0200 | | .STREND 0x0200->0x03be
02bf 496e 7465 |Inte| .STRTAB_STRINGS
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug Table
03c0 ; --------------------------------------------------------------------------------------
03c0 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f08,0x0000,0x0001,0x000b
03c6 000b 03f2 | | .DBG4T 0x000b,0x03f2,0x0001,0x4000
03ca 007b 0417 | { | .DBG4T 0x007b,0x0417,0x0002,0x4000
03ce 008b 041f | | .DBG4T 0x008b,0x041f,0x0001,0x0000
03d2 009b 0423 | #| .DBG4T 0x009b,0x0423,0x0002,0x0000
03d6 00b3 0429 | )| .DBG4T 0x00b3,0x0429,0x0001,0x0000
03da 00cb 042e | .| .DBG4T 0x00cb,0x042e,0x0001,0x4000
03de 010b 0441 | A| .DBG4T 0x010b,0x0441,0x0001,0x0000
03e2 0123 0446 | # F| .DBG4T 0x0123,0x0446,0x0002,0x0000
03e6 0133 0449 | 3 I| .DBG4T 0x0133,0x0449,0x0002,0x0000
03ea 013b 044c | ; L| .DBG4T 0x013b,0x044c,0x0001,0x4000
03ee 0293 04a7 | | .DBG4T 0x0293,0x04a7,0x0001,0x0000
03f2 ; --------------------------------------------------------------------------------------
03f2 ; Debug chain
03f2 ; --------------------------------------------------------------------------------------
03f2 000f 000a | | .DBGLEN 0x000f,0x000a
03f4 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x003b,0x0041,0x0047,0x004f,0x0054,0x005b,0x005f,0x0061,0x0066,0x006b
040d 0001 0002 | | .XXX[0xa]
040f 0003 0004 | |
0411 0005 0007 | |
0413 0008 0009 | |
0415 0006 000a | |
0417 ; --------------------------------------------------------------------------------------
0417 ; Debug chain
0417 ; --------------------------------------------------------------------------------------
0417 0000 0003 | | .DBGLEN 0x0000,0x0003
0419 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x0080
041c 0001 0003 | | .XXX[0x3]
041e 0002 | |
041f ; --------------------------------------------------------------------------------------
041f ; Debug chain
041f ; --------------------------------------------------------------------------------------
041f 0001 0001 | | .DBGLEN 0x0001,0x0001
0421 008b 008d | | .DBGLNO 0x008b,0x008d
0423 ; --------------------------------------------------------------------------------------
0423 ; Debug chain
0423 ; --------------------------------------------------------------------------------------
0423 0002 0002 | | .DBGLEN 0x0002,0x0002
0425 009b 009c | | .DBGLNO 0x009b,0x009c,0x009e,0x00a6
0429 ; --------------------------------------------------------------------------------------
0429 ; Debug chain
0429 ; --------------------------------------------------------------------------------------
0429 0000 0003 | | .DBGLEN 0x0000,0x0003
042b 00b3 00b7 | | .DBGLNO 0x00b3,0x00b7,0x00ba
042e ; --------------------------------------------------------------------------------------
042e ; Debug chain
042e ; --------------------------------------------------------------------------------------
042e 0001 0008 | | .DBGLEN 0x0001,0x0008
0430 00cb 00cd | | .DBGLNO 0x00cb,0x00cd,0x00cf,0x00d3,0x00e3,0x00e5,0x00f4,0x00f6,0x0106
0439 0001 0004 | | .XXX[0x8]
043b 0005 0006 | |
043d 0007 0008 | |
043f 0002 0003 | |
0441 ; --------------------------------------------------------------------------------------
0441 ; Debug chain
0441 ; --------------------------------------------------------------------------------------
0441 0000 0003 | | .DBGLEN 0x0000,0x0003
0443 010c 0110 | | .DBGLNO 0x010c,0x0110,0x0115
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug chain
0446 ; --------------------------------------------------------------------------------------
0446 0000 0001 | | .DBGLEN 0x0000,0x0001
0448 0123 | # | .DBGLNO 0x0123
0449 ; --------------------------------------------------------------------------------------
0449 ; Debug chain
0449 ; --------------------------------------------------------------------------------------
0449 0000 0001 | | .DBGLEN 0x0000,0x0001
044b 0133 | 3 | .DBGLNO 0x0133
044c ; --------------------------------------------------------------------------------------
044c ; Debug chain
044c ; --------------------------------------------------------------------------------------
044c 0007 0029 | )| .DBGLEN 0x0007,0x0029
044e 013b 0142 | ; B| .DBGLNO 0x013b,0x0142,0x0149,0x0154,0x015b,0x0160,0x0165,0x016a,0x0172,0x0174,0x0185,0x0186,0x0187,0x0199,0x019d,0x01a2,0x01af,0x01b8,0x01bc,0x01c0,0x01c4,0x01c9,0x01cf,0x01d3,0x01dc,0x01de,0x01e3,0x01e8,0x01ed,0x01f1,0x01f8,0x01fc,0x0205,0x020c,0x021f,0x0239,0x023e,0x0243,0x0248,0x0250,0x0255,0x0259,0x025e,0x026e,0x0277,0x027c,0x0281,0x0286
047e 0001 0002 | | .XXX[0x29]
0480 0003 0029 | )|
0482 0004 0005 | |
0484 0006 0007 | |
0486 0008 0009 | |
0488 000a 000b | |
048a 000c 000d | |
048c 000e 0010 | |
048e 0011 0012 | |
0490 0013 000f | |
0492 0014 0015 | |
0494 0016 0018 | |
0496 0019 001a | |
0498 001b 001c | |
049a 001d 0017 | |
049c 001e 001f | |
049e 0020 0021 | !|
04a0 0022 0023 | " #|
04a2 0024 0025 | $ %|
04a4 0026 0027 | & '|
04a6 0028 | ( |
04a7 ; --------------------------------------------------------------------------------------
04a7 ; Debug chain
04a7 ; --------------------------------------------------------------------------------------
04a7 0000 0005 | | .DBGLEN 0x0000,0x0005
04a9 0293 0297 | | .DBGLNO 0x0293,0x0297,0x029a,0x02a0,0x02a2
04ae 0000 0000 | | .BLANK 0000[0x152]