|
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: 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 INIT_0078,For_Call 0025 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0027 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0029 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 002b 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 002d 029f 010b | | Declare_Subprogram INIT_0108,For_Call 002f 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0031 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0033 029e 013b | ;| Declare_Subprogram INIT_0138,For_Call,Unelaborated 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 0x1 0080 0092 02aa | | Action Push_String_Extended,0x2aa ; "Into" 0082 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0290,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 0xd 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_Suprogram New_Top_Offset 0x2 01b8 00db | | Load_Top At_Offset_3 01b9 e604 | | Load 0x3,0x4 01ba 840f | | Call 0x2,0xf 01bb 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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" 02ac 0050 | P | .STRTAB 0x0050->0x02d4 ; "From : Transport_Stream.Stream_Id; \x0aData : out " 02ad 007e | ~ | .STRTAB 0x007e->0x02ec ; "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" 02b6 00ff | | .STRTAB 0x00ff->0x0335 ; "Interchange of discriminated record types not yet implemented" 02b7 013a | : | .STRTAB 0x013a->0x0354 ; "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]