|
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 0450 | P | .CONST 0x0450 ; 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 0022 | " | .CONST 0x0022 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0007 | | .CONST 0x0007 ; Number of locals
000b INIT_0008:
000b e00f | | Load 0x0,0xf
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e 4801 |H | Short_Literal 0x1
000f e7fe | | Load 0x3,-0x2
0010 e011 | | Load 0x0,0x11
0011 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0012 e00f | | Load 0x0,0xf
0013 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0014 e010 | | Load 0x0,0x10
0015 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0016 a602 | | Store_Unchecked 0x3,0x2
0017 e012 | | Load 0x0,0x12
0018 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0019 0007 | | Action Break_Optional
001a 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
001c 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
001e 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0020 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0022 BODY_0008:
0022 e7fe | | Load 0x3,-0x2
0023 e011 | | Load 0x0,0x11
0024 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0025 6802 |h | Jump_Zero 0x28
0026 8606 | | Call 0x3,0x6
0027 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0028 8607 | | Call 0x3,0x7
0029 4503 |E | Exit_Suprogram New_Top_Offset 0x3
002a 0000 0000 | | .BLANK 0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4801 |H | Short_Literal 0x1
0034 00db | | Load_Top At_Offset_3
0035 e00f | | Load 0x0,0xf
0036 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0037 e00f | | Load 0x0,0xf
0038 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0039 e010 | | Load 0x0,0x10
003a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
003b e00d | | Load 0x0,0xd
003c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
003d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
003e 0000 0000 | | .XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00da | | Load_Top At_Offset_2
0044 0f01 | | Execute_Immediate Equal,0x1
0045 6803 |h | Jump_Zero 0x49
0046 0092 0308 | | Action Push_String_Extended,0x308 ; "I1"
0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0049 00da | | Load_Top At_Offset_2
004a 0aff | | Execute_Immediate Plus,-0x1
004b 00d8 | | Load_Top At_Offset_0
004c 00e3 | | Load_Encached Natural_Cache
004d 0260 | ` | Execute Discrete,In_Type
004e 7001 |p | Jump_Nonzero 0x50
004f 0801 | | Execute_Immediate Raise,0x1
0050 8605 | | Call 0x3,0x5
0051 0092 0309 | | Action Push_String_Extended,0x309 ; ", "
0053 01cc | | Execute Vector,Catenate
0054 0092 030a | | Action Push_String_Extended,0x30a ; "I"
0056 01cc | | Execute Vector,Catenate
0057 4820 |H | Short_Literal 0x20
0058 4800 |H | Short_Literal 0x0
0059 480a |H | Short_Literal 0xa
005a e9ff | | Load 0x4,-0x1
005b 8603 | | Call 0x3,0x3
005c 01cc | | Execute Vector,Catenate
005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0084 | | .CONST 0x0084 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0005 | | .CONST 0x0005 ; Number of locals
0063 INIT_0060:
0063 e00f | | Load 0x0,0xf
0064 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0065 02c7 | | Declare_Variable Any
0066 e7fe | | Load 0x3,-0x2
0067 e011 | | Load 0x0,0x11
0068 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0069 a802 | | Store_Unchecked 0x4,0x2
006a e00f | | Load 0x0,0xf
006b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006c 02c7 | | Declare_Variable Any
006d 4801 |H | Short_Literal 0x1
006e 00da | | Load_Top At_Offset_2
006f e00f | | Load 0x0,0xf
0070 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0071 e00f | | Load 0x0,0xf
0072 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0073 e010 | | Load 0x0,0x10
0074 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0075 a803 | | Store_Unchecked 0x4,0x3
0076 00d9 | | Load_Top At_Offset_1
0077 e014 | | Load 0x0,0x14
0078 180d | | Execute Package,Field_Execute,Field_Number 0xd
0079 00e3 | | Load_Encached Natural_Cache
007a 03f1 | | Declare_Variable Discrete,With_Value
007b 0092 030b | | Action Push_String_Extended,0x30b ; "Data ("
007d 00d9 | | Load_Top At_Offset_1
007e 8605 | | Call 0x3,0x5
007f 01cc | | Execute Vector,Catenate
0080 0092 030c | | Action Push_String_Extended,0x30c ; ")"
0082 01cc | | Execute Vector,Catenate
0083 0007 | | Action Break_Optional
0084 BODY_0060:
0084 00db | | Load_Top At_Offset_3
0085 e00f | | Load 0x0,0xf
0086 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0087 c802 | | Store 0x4,0x2
0088 00da | | Load_Top At_Offset_2
0089 840e | | Call 0x2,0xe
008a e602 | | Load 0x3,0x2
008b 840e | | Call 0x2,0xe
008c 00ea | | Load_Encached Null_String_Cache
008d 4800 |H | Short_Literal 0x0
008e 4800 |H | Short_Literal 0x0
008f e7ff | | Load 0x3,-0x1
0090 840a | | Call 0x2,0xa
0091 00cf | | Action Mark_Auxiliary
0092 00da | | Load_Top At_Offset_2
0093 4801 |H | Short_Literal 0x1
0094 0263 | c | Execute Discrete,Above_Bound
0095 7018 |p | Jump_Nonzero 0xae
0096 4801 |H | Short_Literal 0x1
0097 0092 030d | | Action Push_String_Extended,0x30d ; "for I"
0099 4820 |H | Short_Literal 0x20
009a 4800 |H | Short_Literal 0x0
009b 480a |H | Short_Literal 0xa
009c e808 | | Load 0x4,0x8
009d 8603 | | Call 0x3,0x3
009e 01cc | | Execute Vector,Catenate
009f 0092 030e | | Action Push_String_Extended,0x30e ; " in Data'Range("
00a1 01cc | | Execute Vector,Catenate
00a2 4820 |H | Short_Literal 0x20
00a3 4800 |H | Short_Literal 0x0
00a4 480a |H | Short_Literal 0xa
00a5 e808 | | Load 0x4,0x8
00a6 8603 | | Call 0x3,0x3
00a7 01cc | | Execute Vector,Catenate
00a8 0092 030f | | Action Push_String_Extended,0x30f ; ") loop"
00aa 01cc | | Execute Vector,Catenate
00ab 8409 | | Call 0x2,0x9
00ac 00c8 | | Action Pop_Auxiliary_Range
00ad 3fe8 |? | Loop_Increasing 0x96
00ae 00ce | | Action Pop_Auxiliary
00af e602 | | Load 0x3,0x2
00b0 e214 | | Load 0x1,0x14
00b1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b2 680a |h | Jump_Zero 0xbd
00b3 4801 |H | Short_Literal 0x1
00b4 0092 0310 | | Action Push_String_Extended,0x310 ; "Transport_Interchange.Put (Into, "
00b6 00da | | Load_Top At_Offset_2
00b7 01cc | | Execute Vector,Catenate
00b8 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
00ba 01cc | | Execute Vector,Catenate
00bb 8409 | | Call 0x2,0x9
00bc 7809 |x | Jump 0xc6
00bd 4801 |H | Short_Literal 0x1
00be 0092 0312 | | Action Push_String_Extended,0x312 ; "Put (Into, "
00c0 00da | | Load_Top At_Offset_2
00c1 01cc | | Execute Vector,Catenate
00c2 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
00c4 01cc | | Execute Vector,Catenate
00c5 8409 | | Call 0x2,0x9
00c6 00cf | | Action Mark_Auxiliary
00c7 00da | | Load_Top At_Offset_2
00c8 4801 |H | Short_Literal 0x1
00c9 0263 | c | Execute Discrete,Above_Bound
00ca 7006 |p | Jump_Nonzero 0xd1
00cb 4801 |H | Short_Literal 0x1
00cc 0092 0313 | | Action Push_String_Extended,0x313 ; "end loop;"
00ce 8409 | | Call 0x2,0x9
00cf 00c8 | | Action Pop_Auxiliary_Range
00d0 3ffa |? | Loop_Increasing 0xcb
00d1 00ce | | Action Pop_Auxiliary
00d2 4801 |H | Short_Literal 0x1
00d3 0092 0314 | | Action Push_String_Extended,0x314 ; "exception"
00d5 8409 | | Call 0x2,0x9
00d6 4800 |H | Short_Literal 0x0
00d7 0092 0315 | | Action Push_String_Extended,0x315 ; "when Standard.Constraint_Error | "
00d9 8409 | | Call 0x2,0x9
00da 4801 |H | Short_Literal 0x1
00db 0092 0316 | | Action Push_String_Extended,0x316 ; "Standard.Numeric_Error =>"
00dd 8409 | | Call 0x2,0x9
00de 4801 |H | Short_Literal 0x1
00df 0092 0317 | | Action Push_String_Extended,0x317 ; "raise Interchange.Constraint_Error;"
00e1 8409 | | Call 0x2,0x9
00e2 4800 |H | Short_Literal 0x0
00e3 00ea | | Load_Encached Null_String_Cache
00e4 e00e | | Load 0x0,0xe
00e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e6 8409 | | Call 0x2,0x9
00e7 00ea | | Load_Encached Null_String_Cache
00e8 4801 |H | Short_Literal 0x1
00e9 4800 |H | Short_Literal 0x0
00ea e7ff | | Load 0x3,-0x1
00eb 840a | | Call 0x2,0xa
00ec 00cf | | Action Mark_Auxiliary
00ed 00da | | Load_Top At_Offset_2
00ee 4801 |H | Short_Literal 0x1
00ef 0263 | c | Execute Discrete,Above_Bound
00f0 7018 |p | Jump_Nonzero 0x109
00f1 4801 |H | Short_Literal 0x1
00f2 0092 030d | | Action Push_String_Extended,0x30d ; "for I"
00f4 4820 |H | Short_Literal 0x20
00f5 4800 |H | Short_Literal 0x0
00f6 480a |H | Short_Literal 0xa
00f7 e808 | | Load 0x4,0x8
00f8 8603 | | Call 0x3,0x3
00f9 01cc | | Execute Vector,Catenate
00fa 0092 030e | | Action Push_String_Extended,0x30e ; " in Data'Range("
00fc 01cc | | Execute Vector,Catenate
00fd 4820 |H | Short_Literal 0x20
00fe 4800 |H | Short_Literal 0x0
00ff 480a |H | Short_Literal 0xa
0100 e808 | | Load 0x4,0x8
0101 8603 | | Call 0x3,0x3
0102 01cc | | Execute Vector,Catenate
0103 0092 030f | | Action Push_String_Extended,0x30f ; ") loop"
0105 01cc | | Execute Vector,Catenate
0106 8409 | | Call 0x2,0x9
0107 00c8 | | Action Pop_Auxiliary_Range
0108 3fe8 |? | Loop_Increasing 0xf1
0109 00ce | | Action Pop_Auxiliary
010a e602 | | Load 0x3,0x2
010b e214 | | Load 0x1,0x14
010c 180e | | Execute Package,Field_Execute,Field_Number 0xe
010d 680a |h | Jump_Zero 0x118
010e 4801 |H | Short_Literal 0x1
010f 0092 0318 | | Action Push_String_Extended,0x318 ; "Transport_Interchange.Get (From, "
0111 00da | | Load_Top At_Offset_2
0112 01cc | | Execute Vector,Catenate
0113 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
0115 01cc | | Execute Vector,Catenate
0116 8409 | | Call 0x2,0x9
0117 7809 |x | Jump 0x121
0118 4801 |H | Short_Literal 0x1
0119 0092 0319 | | Action Push_String_Extended,0x319 ; "Get (From, "
011b 00da | | Load_Top At_Offset_2
011c 01cc | | Execute Vector,Catenate
011d 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
011f 01cc | | Execute Vector,Catenate
0120 8409 | | Call 0x2,0x9
0121 00cf | | Action Mark_Auxiliary
0122 00da | | Load_Top At_Offset_2
0123 4801 |H | Short_Literal 0x1
0124 0263 | c | Execute Discrete,Above_Bound
0125 7006 |p | Jump_Nonzero 0x12c
0126 4801 |H | Short_Literal 0x1
0127 0092 0313 | | Action Push_String_Extended,0x313 ; "end loop;"
0129 8409 | | Call 0x2,0x9
012a 00c8 | | Action Pop_Auxiliary_Range
012b 3ffa |? | Loop_Increasing 0x126
012c 00ce | | Action Pop_Auxiliary
012d 4801 |H | Short_Literal 0x1
012e 0092 0314 | | Action Push_String_Extended,0x314 ; "exception"
0130 8409 | | Call 0x2,0x9
0131 4800 |H | Short_Literal 0x0
0132 0092 0315 | | Action Push_String_Extended,0x315 ; "when Standard.Constraint_Error | "
0134 8409 | | Call 0x2,0x9
0135 4801 |H | Short_Literal 0x1
0136 0092 0316 | | Action Push_String_Extended,0x316 ; "Standard.Numeric_Error =>"
0138 8409 | | Call 0x2,0x9
0139 4801 |H | Short_Literal 0x1
013a 0092 0317 | | Action Push_String_Extended,0x317 ; "raise Interchange.Constraint_Error;"
013c 8409 | | Call 0x2,0x9
013d 4800 |H | Short_Literal 0x0
013e 00ea | | Load_Encached Null_String_Cache
013f e00e | | Load 0x0,0xe
0140 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0141 8409 | | Call 0x2,0x9
0142 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 016c | l | .CONST 0x016c ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0005 | | .CONST 0x0005 ; Number of locals
014b INIT_0148:
014b e00f | | Load 0x0,0xf
014c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
014d 02c7 | | Declare_Variable Any
014e e7fe | | Load 0x3,-0x2
014f e011 | | Load 0x0,0x11
0150 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0151 a802 | | Store_Unchecked 0x4,0x2
0152 e00f | | Load 0x0,0xf
0153 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0154 02c7 | | Declare_Variable Any
0155 4801 |H | Short_Literal 0x1
0156 00da | | Load_Top At_Offset_2
0157 e00f | | Load 0x0,0xf
0158 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0159 e00f | | Load 0x0,0xf
015a 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
015b e010 | | Load 0x0,0x10
015c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
015d a803 | | Store_Unchecked 0x4,0x3
015e 00d9 | | Load_Top At_Offset_1
015f e014 | | Load 0x0,0x14
0160 180d | | Execute Package,Field_Execute,Field_Number 0xd
0161 00e3 | | Load_Encached Natural_Cache
0162 03f1 | | Declare_Variable Discrete,With_Value
0163 0092 030b | | Action Push_String_Extended,0x30b ; "Data ("
0165 00d9 | | Load_Top At_Offset_1
0166 8605 | | Call 0x3,0x5
0167 01cc | | Execute Vector,Catenate
0168 0092 030c | | Action Push_String_Extended,0x30c ; ")"
016a 01cc | | Execute Vector,Catenate
016b 0007 | | Action Break_Optional
016c BODY_0148:
016c 00db | | Load_Top At_Offset_3
016d e00f | | Load 0x0,0xf
016e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
016f c802 | | Store 0x4,0x2
0170 00da | | Load_Top At_Offset_2
0171 840e | | Call 0x2,0xe
0172 e602 | | Load 0x3,0x2
0173 840e | | Call 0x2,0xe
0174 00ea | | Load_Encached Null_String_Cache
0175 4800 |H | Short_Literal 0x0
0176 4800 |H | Short_Literal 0x0
0177 e7ff | | Load 0x3,-0x1
0178 840a | | Call 0x2,0xa
0179 00db | | Load_Top At_Offset_3
017a e00f | | Load 0x0,0xf
017b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017c c802 | | Store 0x4,0x2
017d 00cf | | Action Mark_Auxiliary
017e 00da | | Load_Top At_Offset_2
017f 4801 |H | Short_Literal 0x1
0180 0263 | c | Execute Discrete,Above_Bound
0181 702c |p, | Jump_Nonzero 0x1ae
0182 4801 |H | Short_Literal 0x1
0183 0092 031a | | Action Push_String_Extended,0x31a ; "Transport_Interchange.Put (Into, Interchange.Natural ("
0185 e802 | | Load 0x4,0x2
0186 8604 | | Call 0x3,0x4
0187 01cc | | Execute Vector,Catenate
0188 0092 031b | | Action Push_String_Extended,0x31b ; "'Pos (Data'First("
018a 01cc | | Execute Vector,Catenate
018b 4820 |H | Short_Literal 0x20
018c 4800 |H | Short_Literal 0x0
018d 480a |H | Short_Literal 0xa
018e e808 | | Load 0x4,0x8
018f 8603 | | Call 0x3,0x3
0190 01cc | | Execute Vector,Catenate
0191 0092 031c | | Action Push_String_Extended,0x31c ; "))));"
0193 01cc | | Execute Vector,Catenate
0194 8409 | | Call 0x2,0x9
0195 4802 |H | Short_Literal 0x2
0196 0092 031a | | Action Push_String_Extended,0x31a ; "Transport_Interchange.Put (Into, Interchange.Natural ("
0198 e802 | | Load 0x4,0x2
0199 8604 | | Call 0x3,0x4
019a 01cc | | Execute Vector,Catenate
019b 0092 031d | | Action Push_String_Extended,0x31d ; "'Pos (Data'last("
019d 01cc | | Execute Vector,Catenate
019e 4820 |H | Short_Literal 0x20
019f 4800 |H | Short_Literal 0x0
01a0 480a |H | Short_Literal 0xa
01a1 e808 | | Load 0x4,0x8
01a2 8603 | | Call 0x3,0x3
01a3 01cc | | Execute Vector,Catenate
01a4 0092 031c | | Action Push_String_Extended,0x31c ; "))));"
01a6 01cc | | Execute Vector,Catenate
01a7 8409 | | Call 0x2,0x9
01a8 e802 | | Load 0x4,0x2
01a9 e00f | | Load 0x0,0xf
01aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ab c802 | | Store 0x4,0x2
01ac 00c8 | | Action Pop_Auxiliary_Range
01ad 3fd4 |? | Loop_Increasing 0x182
01ae 00c9 | | Action Pop_Auxiliary_Loop
01af 00da | | Load_Top At_Offset_2
01b0 4801 |H | Short_Literal 0x1
01b1 0263 | c | Execute Discrete,Above_Bound
01b2 7018 |p | Jump_Nonzero 0x1cb
01b3 4801 |H | Short_Literal 0x1
01b4 0092 030d | | Action Push_String_Extended,0x30d ; "for I"
01b6 4820 |H | Short_Literal 0x20
01b7 4800 |H | Short_Literal 0x0
01b8 480a |H | Short_Literal 0xa
01b9 e808 | | Load 0x4,0x8
01ba 8603 | | Call 0x3,0x3
01bb 01cc | | Execute Vector,Catenate
01bc 0092 030e | | Action Push_String_Extended,0x30e ; " in Data'Range("
01be 01cc | | Execute Vector,Catenate
01bf 4820 |H | Short_Literal 0x20
01c0 4800 |H | Short_Literal 0x0
01c1 480a |H | Short_Literal 0xa
01c2 e808 | | Load 0x4,0x8
01c3 8603 | | Call 0x3,0x3
01c4 01cc | | Execute Vector,Catenate
01c5 0092 030f | | Action Push_String_Extended,0x30f ; ") loop"
01c7 01cc | | Execute Vector,Catenate
01c8 8409 | | Call 0x2,0x9
01c9 00c8 | | Action Pop_Auxiliary_Range
01ca 3fe8 |? | Loop_Increasing 0x1b3
01cb 00ce | | Action Pop_Auxiliary
01cc e602 | | Load 0x3,0x2
01cd e214 | | Load 0x1,0x14
01ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
01cf 680a |h | Jump_Zero 0x1da
01d0 4801 |H | Short_Literal 0x1
01d1 0092 0310 | | Action Push_String_Extended,0x310 ; "Transport_Interchange.Put (Into, "
01d3 00da | | Load_Top At_Offset_2
01d4 01cc | | Execute Vector,Catenate
01d5 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
01d7 01cc | | Execute Vector,Catenate
01d8 8409 | | Call 0x2,0x9
01d9 7809 |x | Jump 0x1e3
01da 4801 |H | Short_Literal 0x1
01db 0092 0312 | | Action Push_String_Extended,0x312 ; "Put (Into, "
01dd 00da | | Load_Top At_Offset_2
01de 01cc | | Execute Vector,Catenate
01df 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
01e1 01cc | | Execute Vector,Catenate
01e2 8409 | | Call 0x2,0x9
01e3 00cf | | Action Mark_Auxiliary
01e4 00da | | Load_Top At_Offset_2
01e5 4801 |H | Short_Literal 0x1
01e6 0263 | c | Execute Discrete,Above_Bound
01e7 7006 |p | Jump_Nonzero 0x1ee
01e8 4801 |H | Short_Literal 0x1
01e9 0092 0313 | | Action Push_String_Extended,0x313 ; "end loop;"
01eb 8409 | | Call 0x2,0x9
01ec 00c8 | | Action Pop_Auxiliary_Range
01ed 3ffa |? | Loop_Increasing 0x1e8
01ee 00ce | | Action Pop_Auxiliary
01ef 4801 |H | Short_Literal 0x1
01f0 0092 0314 | | Action Push_String_Extended,0x314 ; "exception"
01f2 8409 | | Call 0x2,0x9
01f3 4800 |H | Short_Literal 0x0
01f4 0092 0315 | | Action Push_String_Extended,0x315 ; "when Standard.Constraint_Error | "
01f6 8409 | | Call 0x2,0x9
01f7 4801 |H | Short_Literal 0x1
01f8 0092 0316 | | Action Push_String_Extended,0x316 ; "Standard.Numeric_Error =>"
01fa 8409 | | Call 0x2,0x9
01fb 4801 |H | Short_Literal 0x1
01fc 0092 0317 | | Action Push_String_Extended,0x317 ; "raise Interchange.Constraint_Error;"
01fe 8409 | | Call 0x2,0x9
01ff 4800 |H | Short_Literal 0x0
0200 00ea | | Load_Encached Null_String_Cache
0201 e00e | | Load 0x0,0xe
0202 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0203 8409 | | Call 0x2,0x9
0204 4800 |H | Short_Literal 0x0
0205 0092 031e | | Action Push_String_Extended,0x31e ; "\x0a\x0a"
0207 e7ff | | Load 0x3,-0x1
0208 e00d | | Load 0x0,0xd
0209 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
020a 0092 031f | | Action Push_String_Extended,0x31f ; "From : Transport_Stream.Stream_Id"
020c 4801 |H | Short_Literal 0x1
020d 0092 0320 | | Action Push_String_Extended,0x320 ; "Get"
020f e00e | | Load 0x0,0xe
0210 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0211 01cc | | Execute Vector,Catenate
0212 8409 | | Call 0x2,0x9
0213 00cf | | Action Mark_Auxiliary
0214 00da | | Load_Top At_Offset_2
0215 4801 |H | Short_Literal 0x1
0216 0263 | c | Execute Discrete,Above_Bound
0217 701c |p | Jump_Nonzero 0x234
0218 4801 |H | Short_Literal 0x1
0219 0092 0321 | !| Action Push_String_Extended,0x321 ; "Lower_Bound"
021b 4820 |H | Short_Literal 0x20
021c 4800 |H | Short_Literal 0x0
021d 480a |H | Short_Literal 0xa
021e e808 | | Load 0x4,0x8
021f 8603 | | Call 0x3,0x3
0220 01cc | | Execute Vector,Catenate
0221 0092 0322 | "| Action Push_String_Extended,0x322 ; " : Interchange.Natural;"
0223 01cc | | Execute Vector,Catenate
0224 8409 | | Call 0x2,0x9
0225 4801 |H | Short_Literal 0x1
0226 0092 0323 | #| Action Push_String_Extended,0x323 ; "Upper_Bound"
0228 4820 |H | Short_Literal 0x20
0229 4800 |H | Short_Literal 0x0
022a 480a |H | Short_Literal 0xa
022b e808 | | Load 0x4,0x8
022c 8603 | | Call 0x3,0x3
022d 01cc | | Execute Vector,Catenate
022e 0092 0322 | "| Action Push_String_Extended,0x322 ; " : Interchange.Natural;"
0230 01cc | | Execute Vector,Catenate
0231 8409 | | Call 0x2,0x9
0232 00c8 | | Action Pop_Auxiliary_Range
0233 3fe4 |? | Loop_Increasing 0x218
0234 00ce | | Action Pop_Auxiliary
0235 4800 |H | Short_Literal 0x0
0236 e00e | | Load 0x0,0xe
0237 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0238 8409 | | Call 0x2,0x9
0239 00cf | | Action Mark_Auxiliary
023a 00da | | Load_Top At_Offset_2
023b 4801 |H | Short_Literal 0x1
023c 0263 | c | Execute Discrete,Above_Bound
023d 701c |p | Jump_Nonzero 0x25a
023e 4801 |H | Short_Literal 0x1
023f 0092 0324 | $| Action Push_String_Extended,0x324 ; "Transport_Interchange.Get (From, Lower_Bound"
0241 4820 |H | Short_Literal 0x20
0242 4800 |H | Short_Literal 0x0
0243 480a |H | Short_Literal 0xa
0244 e808 | | Load 0x4,0x8
0245 8603 | | Call 0x3,0x3
0246 01cc | | Execute Vector,Catenate
0247 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
0249 01cc | | Execute Vector,Catenate
024a 8409 | | Call 0x2,0x9
024b 4802 |H | Short_Literal 0x2
024c 0092 0325 | %| Action Push_String_Extended,0x325 ; "Transport_Interchange.Get (From, Upper_Bound"
024e 4820 |H | Short_Literal 0x20
024f 4800 |H | Short_Literal 0x0
0250 480a |H | Short_Literal 0xa
0251 e808 | | Load 0x4,0x8
0252 8603 | | Call 0x3,0x3
0253 01cc | | Execute Vector,Catenate
0254 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
0256 01cc | | Execute Vector,Catenate
0257 8409 | | Call 0x2,0x9
0258 00c8 | | Action Pop_Auxiliary_Range
0259 3fe4 |? | Loop_Increasing 0x23e
025a 00ce | | Action Pop_Auxiliary
025b 4801 |H | Short_Literal 0x1
025c 0092 0326 | &| Action Push_String_Extended,0x326 ; "declare"
025e 8409 | | Call 0x2,0x9
025f 4800 |H | Short_Literal 0x0
0260 0092 0327 | '| Action Push_String_Extended,0x327 ; "Data : "
0262 e7ff | | Load 0x3,-0x1
0263 e00d | | Load 0x0,0xd
0264 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0265 01cc | | Execute Vector,Catenate
0266 0092 0328 | (| Action Push_String_Extended,0x328 ; " ("
0268 01cc | | Execute Vector,Catenate
0269 8409 | | Call 0x2,0x9
026a 00db | | Load_Top At_Offset_3
026b e00f | | Load 0x0,0xf
026c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026d c802 | | Store 0x4,0x2
026e 00cf | | Action Mark_Auxiliary
026f 00da | | Load_Top At_Offset_2
0270 4801 |H | Short_Literal 0x1
0271 0263 | c | Execute Discrete,Above_Bound
0272 702d |p- | Jump_Nonzero 0x2a0
0273 4800 |H | Short_Literal 0x0
0274 e802 | | Load 0x4,0x2
0275 8604 | | Call 0x3,0x4
0276 0092 0329 | )| Action Push_String_Extended,0x329 ; "'Val(Lower_Bound"
0278 01cc | | Execute Vector,Catenate
0279 4820 |H | Short_Literal 0x20
027a 4800 |H | Short_Literal 0x0
027b 480a |H | Short_Literal 0xa
027c e808 | | Load 0x4,0x8
027d 8603 | | Call 0x3,0x3
027e 01cc | | Execute Vector,Catenate
027f 0092 032a | *| Action Push_String_Extended,0x32a ; ") .. "
0281 01cc | | Execute Vector,Catenate
0282 e802 | | Load 0x4,0x2
0283 8604 | | Call 0x3,0x4
0284 01cc | | Execute Vector,Catenate
0285 0092 032b | +| Action Push_String_Extended,0x32b ; "'Val (Upper_Bound"
0287 01cc | | Execute Vector,Catenate
0288 4820 |H | Short_Literal 0x20
0289 4800 |H | Short_Literal 0x0
028a 480a |H | Short_Literal 0xa
028b e808 | | Load 0x4,0x8
028c 8603 | | Call 0x3,0x3
028d 01cc | | Execute Vector,Catenate
028e 0092 030c | | Action Push_String_Extended,0x30c ; ")"
0290 01cc | | Execute Vector,Catenate
0291 8409 | | Call 0x2,0x9
0292 00d8 | | Load_Top At_Offset_0
0293 e804 | | Load 0x4,0x4
0294 027e | ~ | Execute Discrete,Not_Equal
0295 6804 |h | Jump_Zero 0x29a
0296 4800 |H | Short_Literal 0x0
0297 0092 0309 | | Action Push_String_Extended,0x309 ; ", "
0299 8409 | | Call 0x2,0x9
029a e802 | | Load 0x4,0x2
029b e00f | | Load 0x0,0xf
029c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
029d c802 | | Store 0x4,0x2
029e 00c8 | | Action Pop_Auxiliary_Range
029f 3fd3 |? | Loop_Increasing 0x273
02a0 00ce | | Action Pop_Auxiliary
02a1 4800 |H | Short_Literal 0x0
02a2 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
02a4 8409 | | Call 0x2,0x9
02a5 4800 |H | Short_Literal 0x0
02a6 e00e | | Load 0x0,0xe
02a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a8 8409 | | Call 0x2,0x9
02a9 00cf | | Action Mark_Auxiliary
02aa 00da | | Load_Top At_Offset_2
02ab 4801 |H | Short_Literal 0x1
02ac 0263 | c | Execute Discrete,Above_Bound
02ad 7018 |p | Jump_Nonzero 0x2c6
02ae 4801 |H | Short_Literal 0x1
02af 0092 030d | | Action Push_String_Extended,0x30d ; "for I"
02b1 4820 |H | Short_Literal 0x20
02b2 4800 |H | Short_Literal 0x0
02b3 480a |H | Short_Literal 0xa
02b4 e808 | | Load 0x4,0x8
02b5 8603 | | Call 0x3,0x3
02b6 01cc | | Execute Vector,Catenate
02b7 0092 030e | | Action Push_String_Extended,0x30e ; " in Data'Range("
02b9 01cc | | Execute Vector,Catenate
02ba 4820 |H | Short_Literal 0x20
02bb 4800 |H | Short_Literal 0x0
02bc 480a |H | Short_Literal 0xa
02bd e808 | | Load 0x4,0x8
02be 8603 | | Call 0x3,0x3
02bf 01cc | | Execute Vector,Catenate
02c0 0092 030f | | Action Push_String_Extended,0x30f ; ") loop"
02c2 01cc | | Execute Vector,Catenate
02c3 8409 | | Call 0x2,0x9
02c4 00c8 | | Action Pop_Auxiliary_Range
02c5 3fe8 |? | Loop_Increasing 0x2ae
02c6 00ce | | Action Pop_Auxiliary
02c7 e602 | | Load 0x3,0x2
02c8 e214 | | Load 0x1,0x14
02c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ca 680a |h | Jump_Zero 0x2d5
02cb 4801 |H | Short_Literal 0x1
02cc 0092 0318 | | Action Push_String_Extended,0x318 ; "Transport_Interchange.Get (From, "
02ce 00da | | Load_Top At_Offset_2
02cf 01cc | | Execute Vector,Catenate
02d0 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
02d2 01cc | | Execute Vector,Catenate
02d3 8409 | | Call 0x2,0x9
02d4 7809 |x | Jump 0x2de
02d5 4801 |H | Short_Literal 0x1
02d6 0092 0319 | | Action Push_String_Extended,0x319 ; "Get (From, "
02d8 00da | | Load_Top At_Offset_2
02d9 01cc | | Execute Vector,Catenate
02da 0092 0311 | | Action Push_String_Extended,0x311 ; ");"
02dc 01cc | | Execute Vector,Catenate
02dd 8409 | | Call 0x2,0x9
02de 00cf | | Action Mark_Auxiliary
02df 00da | | Load_Top At_Offset_2
02e0 4801 |H | Short_Literal 0x1
02e1 0263 | c | Execute Discrete,Above_Bound
02e2 7006 |p | Jump_Nonzero 0x2e9
02e3 4801 |H | Short_Literal 0x1
02e4 0092 0313 | | Action Push_String_Extended,0x313 ; "end loop;"
02e6 8409 | | Call 0x2,0x9
02e7 00c8 | | Action Pop_Auxiliary_Range
02e8 3ffa |? | Loop_Increasing 0x2e3
02e9 00ce | | Action Pop_Auxiliary
02ea 4801 |H | Short_Literal 0x1
02eb 0092 032c | ,| Action Push_String_Extended,0x32c ; "return Data;"
02ed 8409 | | Call 0x2,0x9
02ee 4801 |H | Short_Literal 0x1
02ef 0092 032d | -| Action Push_String_Extended,0x32d ; "end;"
02f1 8409 | | Call 0x2,0x9
02f2 4801 |H | Short_Literal 0x1
02f3 0092 0314 | | Action Push_String_Extended,0x314 ; "exception"
02f5 8409 | | Call 0x2,0x9
02f6 4800 |H | Short_Literal 0x0
02f7 0092 0315 | | Action Push_String_Extended,0x315 ; "when Standard.Constraint_Error | "
02f9 8409 | | Call 0x2,0x9
02fa 4801 |H | Short_Literal 0x1
02fb 0092 0316 | | Action Push_String_Extended,0x316 ; "Standard.Numeric_Error =>"
02fd 8409 | | Call 0x2,0x9
02fe 4801 |H | Short_Literal 0x1
02ff 0092 0317 | | Action Push_String_Extended,0x317 ; "raise Interchange.Constraint_Error;"
0301 8409 | | Call 0x2,0x9
0302 4800 |H | Short_Literal 0x0
0303 00ea | | Load_Encached Null_String_Cache
0304 e00e | | Load 0x0,0xe
0305 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0306 8409 | | Call 0x2,0x9
0307 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0308 ; --------------------------------------------------------------------------------------
0308 ; STRING TABLE
0308 ; --------------------------------------------------------------------------------------
0308 004e | N | .STRTAB 0x004e->0x032f ; "I1"
0309 004e | N | .STRTAB 0x004e->0x0330 ; ", "
030a 004e | N | .STRTAB 0x004e->0x0331 ; "I"
030b 004d | M | .STRTAB 0x004d->0x0331 ; "Data ("
030c 0051 | Q | .STRTAB 0x0051->0x0334 ; ")"
030d 0050 | P | .STRTAB 0x0050->0x0335 ; "for I"
030e 0053 | S | .STRTAB 0x0053->0x0337 ; " in Data'Range("
030f 0060 | ` | .STRTAB 0x0060->0x033f ; ") loop"
0310 0064 | d | .STRTAB 0x0064->0x0342 ; "Transport_Interchange.Put (Into, "
0311 0083 | | .STRTAB 0x0083->0x0352 ; ");"
0312 0083 | | .STRTAB 0x0083->0x0353 ; "Put (Into, "
0313 008c | | .STRTAB 0x008c->0x0359 ; "end loop;"
0314 0093 | | .STRTAB 0x0093->0x035d ; "exception"
0315 009a | | .STRTAB 0x009a->0x0362 ; "when Standard.Constraint_Error | "
0316 00b9 | | .STRTAB 0x00b9->0x0372 ; "Standard.Numeric_Error =>"
0317 00d0 | | .STRTAB 0x00d0->0x037f ; "raise Interchange.Constraint_Error;"
0318 00f1 | | .STRTAB 0x00f1->0x0390 ; "Transport_Interchange.Get (From, "
0319 0110 | | .STRTAB 0x0110->0x03a1 ; "Get (From, "
031a 0119 | | .STRTAB 0x0119->0x03a6 ; "Transport_Interchange.Put (Into, Interchange.Natural ("
031b 014d | M | .STRTAB 0x014d->0x03c1 ; "'Pos (Data'First("
031c 015c | \ | .STRTAB 0x015c->0x03ca ; "))));"
031d 015f | _ | .STRTAB 0x015f->0x03cc ; "'Pos (Data'last("
031e 016d | m | .STRTAB 0x016d->0x03d4 ; "\x0a\x0a"
031f 016d | m | .STRTAB 0x016d->0x03d5 ; "From : Transport_Stream.Stream_Id"
0320 018c | | .STRTAB 0x018c->0x03e6 ; "Get"
0321 018d | | .STRTAB 0x018d->0x03e7 ; "Lower_Bound"
0322 0196 | | .STRTAB 0x0196->0x03ed ; " : Interchange.Natural;"
0323 01ab | | .STRTAB 0x01ab->0x03f8 ; "Upper_Bound"
0324 01b4 | | .STRTAB 0x01b4->0x03fe ; "Transport_Interchange.Get (From, Lower_Bound"
0325 01de | | .STRTAB 0x01de->0x0414 ; "Transport_Interchange.Get (From, Upper_Bound"
0326 0208 | | .STRTAB 0x0208->0x042a ; "declare"
0327 020d | | .STRTAB 0x020d->0x042d ; "Data : "
0328 0212 | | .STRTAB 0x0212->0x0431 ; " ("
0329 0212 | | .STRTAB 0x0212->0x0432 ; "'Val(Lower_Bound"
032a 0220 | | .STRTAB 0x0220->0x043a ; ") .. "
032b 0223 | # | .STRTAB 0x0223->0x043c ; "'Val (Upper_Bound"
032c 0232 | 2 | .STRTAB 0x0232->0x0445 ; "return Data;"
032d 023c | < | .STRTAB 0x023c->0x044b ; "end;"
032e 023e | > | .STREND 0x023e->0x044d
032f 4931 2c20 |I1, | .STRTAB_STRINGS
044d 0000 0000 | | .XXX[0x3]
044f 0000 | |
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f0b,0x0000,0x0001,0x0005
0456 000b 046a | j| .DBG4T 0x000b,0x046a,0x0001,0x0000
045a 0033 0473 | 3 s| .DBG4T 0x0033,0x0473,0x0002,0x0000
045e 0043 0476 | C v| .DBG4T 0x0043,0x0476,0x0002,0x0000
0462 0063 047b | c {| .DBG4T 0x0063,0x047b,0x0004,0x0000
0466 014b 049e | K | .DBG4T 0x014b,0x049e,0x0004,0x0000
046a ; --------------------------------------------------------------------------------------
046a ; Debug chain
046a ; --------------------------------------------------------------------------------------
046a 0004 0003 | | .DBGLEN 0x0004,0x0003
046c 000b 0017 | | .DBGLNO 0x000b,0x0017,0x001a,0x001c,0x0022,0x0026,0x0028
0473 ; --------------------------------------------------------------------------------------
0473 ; Debug chain
0473 ; --------------------------------------------------------------------------------------
0473 0000 0001 | | .DBGLEN 0x0000,0x0001
0475 0033 | 3 | .DBGLNO 0x0033
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug chain
0476 ; --------------------------------------------------------------------------------------
0476 0000 0003 | | .DBGLEN 0x0000,0x0003
0478 0043 0046 | C F| .DBGLNO 0x0043,0x0046,0x0049
047b ; --------------------------------------------------------------------------------------
047b ; Debug chain
047b ; --------------------------------------------------------------------------------------
047b 0004 001d | | .DBGLEN 0x0004,0x001d
047d 0063 006a | c j| .DBGLNO 0x0063,0x006a,0x0076,0x007b,0x0084,0x0088,0x008a,0x008c,0x0092,0x0096,0x00af,0x00b3,0x00bd,0x00c7,0x00cb,0x00d2,0x00d6,0x00da,0x00de,0x00e2,0x00e7,0x00ed,0x00f1,0x010a,0x010e,0x0118,0x0122,0x0126,0x012d,0x0131,0x0135,0x0139,0x013d
049e ; --------------------------------------------------------------------------------------
049e ; Debug chain
049e ; --------------------------------------------------------------------------------------
049e 0004 0035 | 5| .DBGLEN 0x0004,0x0035
04a0 014b 0152 | K R| .DBGLNO 0x014b,0x0152,0x015e,0x0163,0x016c,0x0170,0x0172,0x0174,0x0179,0x017e,0x0182,0x0195,0x01a8,0x01af,0x01b3,0x01cc,0x01d0,0x01da,0x01e4,0x01e8,0x01ef,0x01f3,0x01f7,0x01fb,0x01ff,0x0204,0x0214,0x0218,0x0225,0x0235,0x023a,0x023e,0x024b,0x025b,0x025f,0x026a,0x026f,0x0273,0x0292,0x0296,0x029a,0x02a1,0x02a5,0x02aa,0x02ae,0x02c7,0x02cb,0x02d5,0x02df,0x02e3,0x02ea,0x02ee,0x02f2,0x02f6,0x02fa,0x02fe,0x0302
04d9 0000 0000 | | .BLANK 0000[0x127]