|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0410 | | .CONST 0x0410 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0073 | s | .CONST 0x0073 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 0092 03fd | | Action Push_String_Extended,0x3fd ; "!Machine.Transport_Services"
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0010 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0012 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0014 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0016 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0018 e001 | | Load 0x0,0x1
0019 0129 | ) | Execute Any,Make_Visible
001a 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001c 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001e 4803 |H | Short_Literal 0x3
001f 032b | + | Declare_Type Record,Incomplete,Visible
0020 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0022 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0024 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0026 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0028 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
002a 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
002c 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
002e 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0030 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0032 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0034 e002 | | Load 0x0,0x2
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 00e3 | | Load_Encached Natural_Cache
0037 4801 |H | Short_Literal 0x1
0038 604f |`O | Indirect_Literal Discrete,0x88,{0x00000000, 0x00000800}
0039 00e9 | | Load_Encached String_Cache
003a 035b | [ | Declare_Type Array,Constrained
003b 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
003d e216 | | Load 0x1,0x16
003e 0326 | & | Complete_Type Record,By_Defining
003f 00bf | | Action Accept_Activation
0040 00e4 | | Load_Encached Positive_Cache
0041 00e3 | | Load_Encached Natural_Cache
0042 02a0 | | Declare_Subprogram Null_Subprogram
0043 4802 |H | Short_Literal 0x2
0044 032d | - | Declare_Type Record,Defined
0045 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0046 00c7 | | Action Elaborate_Subprogram
0047 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0048 00c7 | | Action Elaborate_Subprogram
0049 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004a 00c7 | | Action Elaborate_Subprogram
004b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004c 00c7 | | Action Elaborate_Subprogram
004d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004e 00c7 | | Action Elaborate_Subprogram
004f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0050 00c7 | | Action Elaborate_Subprogram
0051 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0052 00c7 | | Action Elaborate_Subprogram
0053 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
0055 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0056 00c7 | | Action Elaborate_Subprogram
0057 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0059 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005a 00c7 | | Action Elaborate_Subprogram
005b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005c 00c7 | | Action Elaborate_Subprogram
005d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005e 00c7 | | Action Elaborate_Subprogram
005f 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
0061 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call
0063 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call
0065 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0067 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0068 00c7 | | Action Elaborate_Subprogram
0069 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006a 00c7 | | Action Elaborate_Subprogram
006b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
006c 00c7 | | Action Elaborate_Subprogram
006d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006e 00c7 | | Action Elaborate_Subprogram
006f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0070 00c7 | | Action Elaborate_Subprogram
0071 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0072 00c7 | | Action Elaborate_Subprogram
0073 BODY_0008:
0073 00bc | | Action Signal_Activated
0074 00bb | | Action Signal_Completion
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
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 4809 |H | Short_Literal 0x9
007c 4820 |H | Short_Literal 0x20
007d e5ff | | Load 0x2,-0x1
007e e003 | | Load 0x0,0x3
007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0080 e003 | | Load 0x0,0x3
0081 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0082 e003 | | Load 0x0,0x3
0083 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099 | | .CONST 0x0099 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 e216 | | Load 0x1,0x16
0094 0322 | " | Declare_Variable Record
0095 00d8 | | Load_Top At_Offset_0
0096 1c00 | | Execute_Immediate Run_Utility,0x0
0097 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
0099 BODY_0090:
0099 00d9 | | Load_Top At_Offset_1
009a 8217 | | Call 0x1,0x17
009b 00d1 | | Pop_Control Pop_Count_1
009c 00cf | | Action Mark_Auxiliary
009d 780a |x | Jump 0xa8
009e e5fe | | Load 0x2,-0x2
009f e5ff | | Load 0x2,-0x1
00a0 e402 | | Load 0x2,0x2
00a1 821f | | Call 0x1,0x1f
00a2 6801 |h | Jump_Zero 0xa4
00a3 8403 | | Call 0x2,0x3
00a4 00da | | Load_Top At_Offset_2
00a5 8218 | | Call 0x1,0x18
00a6 00d1 | | Pop_Control Pop_Count_1
00a7 00c9 | | Action Pop_Auxiliary_Loop
00a8 00da | | Load_Top At_Offset_2
00a9 821a | | Call 0x1,0x1a
00aa 6ff3 |o | Jump_Zero 0x9e
00ab 00ce | | Action Pop_Auxiliary
00ac 00d9 | | Load_Top At_Offset_1
00ad 8219 | | Call 0x1,0x19
00ae 00d1 | | Pop_Control Pop_Count_1
00af e5ff | | Load 0x2,-0x1
00b0 8211 | | Call 0x1,0x11
00b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c3 | | .CONST 0x00c3 ; Address of begin
00b9 00dc | | .CONST 0x00dc ; Address of exception handler
00ba 0004 | | .CONST 0x0004 ; Number of locals
00bb INIT_00b8:
00bb e216 | | Load 0x1,0x16
00bc 0322 | " | Declare_Variable Record
00bd 00d8 | | Load_Top At_Offset_0
00be 1c00 | | Execute_Immediate Run_Utility,0x0
00bf 029f 038b | | Declare_Subprogram INIT_0388,For_Call
00c1 029f 039b | | Declare_Subprogram INIT_0398,For_Call
00c3 BODY_00b8:
00c3 00da | | Load_Top At_Offset_2
00c4 8217 | | Call 0x1,0x17
00c5 00d1 | | Pop_Control Pop_Count_1
00c6 00cf | | Action Mark_Auxiliary
00c7 780a |x | Jump 0xd2
00c8 e5fe | | Load 0x2,-0x2
00c9 e5ff | | Load 0x2,-0x1
00ca e402 | | Load 0x2,0x2
00cb 821f | | Call 0x1,0x1f
00cc 6801 |h | Jump_Zero 0xce
00cd 8403 | | Call 0x2,0x3
00ce 00db | | Load_Top At_Offset_3
00cf 8218 | | Call 0x1,0x18
00d0 00d1 | | Pop_Control Pop_Count_1
00d1 00c9 | | Action Pop_Auxiliary_Loop
00d2 00db | | Load_Top At_Offset_3
00d3 821a | | Call 0x1,0x1a
00d4 6ff3 |o | Jump_Zero 0xc8
00d5 00ce | | Action Pop_Auxiliary
00d6 00da | | Load_Top At_Offset_2
00d7 8219 | | Call 0x1,0x19
00d8 00d1 | | Pop_Control Pop_Count_1
00d9 e5ff | | Load 0x2,-0x1
00da 8212 | | Call 0x1,0x12
00db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00dc TRAP_00b8:
00dc e213 | | Load 0x1,0x13
00dd 010f | | Execute Exception,Equal
00de 6802 |h | Jump_Zero 0xe1
00df 8404 | | Call 0x2,0x4
00e0 0831 | 1 | Execute_Immediate Raise,0x31
00e1 0100 | | Execute Exception,Raise
00e2 0000 0000 | | .BLANK 0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f1 | | .CONST 0x00f1 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e216 | | Load 0x1,0x16
00ec 0322 | " | Declare_Variable Record
00ed 00d8 | | Load_Top At_Offset_0
00ee 1c00 | | Execute_Immediate Run_Utility,0x0
00ef 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
00f1 BODY_00e8:
00f1 00d9 | | Load_Top At_Offset_1
00f2 8217 | | Call 0x1,0x17
00f3 00d1 | | Pop_Control Pop_Count_1
00f4 00cf | | Action Mark_Auxiliary
00f5 7809 |x | Jump 0xff
00f6 e5ff | | Load 0x2,-0x1
00f7 00db | | Load_Top At_Offset_3
00f8 8220 | | Call 0x1,0x20
00f9 6801 |h | Jump_Zero 0xfb
00fa 8403 | | Call 0x2,0x3
00fb 00da | | Load_Top At_Offset_2
00fc 8218 | | Call 0x1,0x18
00fd 00d1 | | Pop_Control Pop_Count_1
00fe 00c9 | | Action Pop_Auxiliary_Loop
00ff 00da | | Load_Top At_Offset_2
0100 821a | | Call 0x1,0x1a
0101 6ff4 |o | Jump_Zero 0xf6
0102 00ce | | Action Pop_Auxiliary
0103 00d9 | | Load_Top At_Offset_1
0104 8219 | | Call 0x1,0x19
0105 00d1 | | Pop_Control Pop_Count_1
0106 e213 | | Load 0x1,0x13
0107 0257 | W | Execute Discrete,Raise
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0111 | | .CONST 0x0111 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b e216 | | Load 0x1,0x16
010c 0322 | " | Declare_Variable Record
010d 00d8 | | Load_Top At_Offset_0
010e 1c00 | | Execute_Immediate Run_Utility,0x0
010f 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
0111 BODY_0108:
0111 00d9 | | Load_Top At_Offset_1
0112 8217 | | Call 0x1,0x17
0113 00d1 | | Pop_Control Pop_Count_1
0114 00cf | | Action Mark_Auxiliary
0115 7809 |x | Jump 0x11f
0116 e5ff | | Load 0x2,-0x1
0117 00db | | Load_Top At_Offset_3
0118 8220 | | Call 0x1,0x20
0119 6801 |h | Jump_Zero 0x11b
011a 8403 | | Call 0x2,0x3
011b 00da | | Load_Top At_Offset_2
011c 8218 | | Call 0x1,0x18
011d 00d1 | | Pop_Control Pop_Count_1
011e 00c9 | | Action Pop_Auxiliary_Loop
011f 00da | | Load_Top At_Offset_2
0120 821a | | Call 0x1,0x1a
0121 6ff4 |o | Jump_Zero 0x116
0122 00ce | | Action Pop_Auxiliary
0123 00d9 | | Load_Top At_Offset_1
0124 8219 | | Call 0x1,0x19
0125 00d1 | | Pop_Control Pop_Count_1
0126 e213 | | Load 0x1,0x13
0127 0257 | W | Execute Discrete,Raise
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0131 | 1 | .CONST 0x0131 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00db | | Load_Top At_Offset_3
012c e004 | | Load 0x0,0x4
012d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
012e 00db | | Load_Top At_Offset_3
012f 820f | | Call 0x1,0xf
0130 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0131 TRAP_0128:
0131 e004 | | Load 0x0,0x4
0132 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0133 010f | | Execute Exception,Equal
0134 6803 |h | Jump_Zero 0x138
0135 00db | | Load_Top At_Offset_3
0136 8211 | | Call 0x1,0x11
0137 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0138 0100 | | Execute Exception,Raise
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0149 | I | .CONST 0x0149 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00db | | Load_Top At_Offset_3
0144 e004 | | Load 0x0,0x4
0145 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0146 00db | | Load_Top At_Offset_3
0147 8210 | | Call 0x1,0x10
0148 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0149 TRAP_0140:
0149 e004 | | Load 0x0,0x4
014a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
014b 010f | | Execute Exception,Equal
014c 6803 |h | Jump_Zero 0x150
014d 00db | | Load_Top At_Offset_3
014e 8212 | | Call 0x1,0x12
014f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0150 0100 | | Execute Exception,Raise
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0167 | g | .CONST 0x0167 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015d 00ea | | Load_Encached Null_String_Cache
015e e20d | | Load 0x1,0xd
015f 4800 |H | Short_Literal 0x0
0160 e002 | | Load 0x0,0x2
0161 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0162 00db | | Load_Top At_Offset_3
0163 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0164 00da | | Load_Top At_Offset_2
0165 8223 | # | Call 0x1,0x23
0166 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0167 TRAP_0158:
0167 00d8 | | Load_Top At_Offset_0
0168 0107 | | Execute Exception,Get_Name
0169 4920 |I | Short_Literal 0x120
016a 492f |I/ | Short_Literal 0x12f
016b 0262 | b | Execute Discrete,In_Range
016c 6803 |h | Jump_Zero 0x170
016d 00db | | Load_Top At_Offset_3
016e 8219 | | Call 0x1,0x19
016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0170 00db | | Load_Top At_Offset_3
0171 8219 | | Call 0x1,0x19
0172 00d1 | | Pop_Control Pop_Count_1
0173 00d8 | | Load_Top At_Offset_0
0174 0101 | | Execute Exception,Reraise
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 017e | ~ | .CONST 0x017e ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 8223 | # | Call 0x1,0x23
017d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017e TRAP_0178:
017e 0007 | | Action Break_Optional
017f 00db | | Load_Top At_Offset_3
0180 8219 | | Call 0x1,0x19
0181 00d1 | | Pop_Control Pop_Count_1
0182 00d8 | | Load_Top At_Offset_0
0183 0101 | | Execute Exception,Reraise
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0192 | | .CONST 0x0192 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018d e002 | | Load 0x0,0x2
018e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
018f 00db | | Load_Top At_Offset_3
0190 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0192 TRAP_0188:
0192 0007 | | Action Break_Optional
0193 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019d e002 | | Load 0x0,0x2
019e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
019f 0f00 | | Execute_Immediate Equal,0x0
01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4801 |H | Short_Literal 0x1
01ac 4801 |H | Short_Literal 0x1
01ad e5ff | | Load 0x2,-0x1
01ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01af e5ff | | Load 0x2,-0x1
01b0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01b1 01cf | | Execute Vector,Slice_Read
01b2 8225 | % | Call 0x1,0x25
01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4802 |H | Short_Literal 0x2
01bc 4801 |H | Short_Literal 0x1
01bd e5ff | | Load 0x2,-0x1
01be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01bf e5ff | | Load 0x2,-0x1
01c0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01c1 01cf | | Execute Vector,Slice_Read
01c2 8225 | % | Call 0x1,0x25
01c3 8227 | ' | Call 0x1,0x27
01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4803 |H | Short_Literal 0x3
01cc 4801 |H | Short_Literal 0x1
01cd e5ff | | Load 0x2,-0x1
01ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01cf e5ff | | Load 0x2,-0x1
01d0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01d1 01cf | | Execute Vector,Slice_Read
01d2 8225 | % | Call 0x1,0x25
01d3 820e | | Call 0x1,0xe
01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4804 |H | Short_Literal 0x4
01dc 4801 |H | Short_Literal 0x1
01dd e5ff | | Load 0x2,-0x1
01de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01df e5ff | | Load 0x2,-0x1
01e0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01e1 01cf | | Execute Vector,Slice_Read
01e2 8225 | % | Call 0x1,0x25
01e3 820e | | Call 0x1,0xe
01e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 821d | | Call 0x1,0x1d
01ed e5fe | | Load 0x2,-0x2
01ee 820e | | Call 0x1,0xe
01ef 01df | | Execute Vector,Equal
01f0 6806 |h | Jump_Zero 0x1f7
01f1 00da | | Load_Top At_Offset_2
01f2 821e | | Call 0x1,0x1e
01f3 e5fd | | Load 0x2,-0x3
01f4 820e | | Call 0x1,0xe
01f5 01df | | Execute Vector,Equal
01f6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01f7 4800 |H | Short_Literal 0x0
01f8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 821d | | Call 0x1,0x1d
0205 e5fe | | Load 0x2,-0x2
0206 820e | | Call 0x1,0xe
0207 01df | | Execute Vector,Equal
0208 6805 |h | Jump_Zero 0x20e
0209 00da | | Load_Top At_Offset_2
020a 821e | | Call 0x1,0x1e
020b 01db | | Execute Vector,Length
020c 0f00 | | Execute_Immediate Equal,0x0
020d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020e 4800 |H | Short_Literal 0x0
020f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 0b20 | | Execute_Immediate Case_Compare,0x20
0215 7004 |p | Jump_Nonzero 0x21a
0216 0f09 | | Execute_Immediate Equal,0x9
0217 7003 |p | Jump_Nonzero 0x21b
0218 4800 |H | Short_Literal 0x0
0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021a 00d1 | | Pop_Control Pop_Count_1
021b 4801 |H | Short_Literal 0x1
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0267 | g | .CONST 0x0267 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00cf | | Action Mark_Auxiliary
0224 00e3 | | Load_Encached Natural_Cache
0225 e5ff | | Load 0x2,-0x1
0226 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0227 e5ff | | Load 0x2,-0x1
0228 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0229 e002 | | Load 0x0,0x2
022a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
022b 00d1 | | Pop_Control Pop_Count_1
022c e5ff | | Load 0x2,-0x1
022d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
022e 00cf | | Action Mark_Auxiliary
022f e5ff | | Load 0x2,-0x1
0230 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0231 0aff | | Execute_Immediate Plus,-0x1
0232 4801 |H | Short_Literal 0x1
0233 0263 | c | Execute Discrete,Above_Bound
0234 7017 |p | Jump_Nonzero 0x24c
0235 00d8 | | Load_Top At_Offset_0
0236 00d9 | | Load_Top At_Offset_1
0237 0a01 | | Execute_Immediate Plus,0x1
0238 00d8 | | Load_Top At_Offset_0
0239 00e2 | | Load_Encached Integer_Cache
023a 0260 | ` | Execute Discrete,In_Type
023b 7001 |p | Jump_Nonzero 0x23d
023c 0801 | | Execute_Immediate Raise,0x1
023d e5ff | | Load 0x2,-0x1
023e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
023f 01cf | | Execute Vector,Slice_Read
0240 0092 03fe | | Action Push_String_Extended,0x3fe ; "--"
0242 01df | | Execute Vector,Equal
0243 6806 |h | Jump_Zero 0x24a
0244 00d8 | | Load_Top At_Offset_0
0245 0aff | | Execute_Immediate Plus,-0x1
0246 e5ff | | Load 0x2,-0x1
0247 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0248 00d2 | | Pop_Control Pop_Count_2
0249 7802 |x | Jump 0x24c
024a 00c8 | | Action Pop_Auxiliary_Range
024b 3fe9 |? | Loop_Increasing 0x235
024c 00c9 | | Action Pop_Auxiliary_Loop
024d 7806 |x | Jump 0x254
024e e5ff | | Load 0x2,-0x1
024f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0250 0aff | | Execute_Immediate Plus,-0x1
0251 e5ff | | Load 0x2,-0x1
0252 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0253 00c9 | | Action Pop_Auxiliary_Loop
0254 e5ff | | Load 0x2,-0x1
0255 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0256 0c01 | | Execute_Immediate Greater_Equal,0x1
0257 6807 |h | Jump_Zero 0x25f
0258 e5ff | | Load 0x2,-0x1
0259 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025a e5ff | | Load 0x2,-0x1
025b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
025c 01d7 | | Execute Vector,Field_Read
025d 8222 | " | Call 0x1,0x22
025e 77ef |w | Jump_Nonzero 0x24e
025f 00ce | | Action Pop_Auxiliary
0260 00db | | Load_Top At_Offset_3
0261 821d | | Call 0x1,0x1d
0262 01db | | Execute Vector,Length
0263 7002 |p | Jump_Nonzero 0x266
0264 00c9 | | Action Pop_Auxiliary_Loop
0265 7fbe | | Jump 0x224
0266 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0267 TRAP_0220:
0267 00d8 | | Load_Top At_Offset_0
0268 0107 | | Execute Exception,Get_Name
0269 4950 |IP | Short_Literal 0x150
026a 495f |I_ | Short_Literal 0x15f
026b 0262 | b | Execute Discrete,In_Range
026c 6803 |h | Jump_Zero 0x270
026d 00db | | Load_Top At_Offset_3
026e 8219 | | Call 0x1,0x19
026f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0270 0100 | | Execute Exception,Raise
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0280 | | .CONST 0x0280 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 01dd | | Execute Vector,First
027d 00e4 | | Load_Encached Positive_Cache
027e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
027f 00d8 | | Load_Top At_Offset_0
0280 BODY_0278:
0280 00cf | | Action Mark_Auxiliary
0281 e5fe | | Load 0x2,-0x2
0282 4801 |H | Short_Literal 0x1
0283 0263 | c | Execute Discrete,Above_Bound
0284 703c |p< | Jump_Nonzero 0x2c1
0285 00cf | | Action Mark_Auxiliary
0286 7804 |x | Jump 0x28b
0287 e402 | | Load 0x2,0x2
0288 0a01 | | Execute_Immediate Plus,0x1
0289 c402 | | Store 0x2,0x2
028a 00c9 | | Action Pop_Auxiliary_Loop
028b e402 | | Load 0x2,0x2
028c e5ff | | Load 0x2,-0x1
028d 01da | | Execute Vector,Bounds
028e 0262 | b | Execute Discrete,In_Range
028f 6805 |h | Jump_Zero 0x295
0290 e402 | | Load 0x2,0x2
0291 e5ff | | Load 0x2,-0x1
0292 01d7 | | Execute Vector,Field_Read
0293 8222 | " | Call 0x1,0x22
0294 77f2 |w | Jump_Nonzero 0x287
0295 00ce | | Action Pop_Auxiliary
0296 e402 | | Load 0x2,0x2
0297 e5ff | | Load 0x2,-0x1
0298 01da | | Execute Vector,Bounds
0299 0261 | a | Execute Discrete,Not_In_Range
029a 680a |h | Jump_Zero 0x2a5
029b e221 | ! | Load 0x1,0x21
029c 0322 | " | Declare_Variable Record
029d e402 | | Load 0x2,0x2
029e 00d9 | | Load_Top At_Offset_1
029f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a0 e5ff | | Load 0x2,-0x1
02a1 01dc | | Execute Vector,Last
02a2 00d9 | | Load_Top At_Offset_1
02a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02a5 e402 | | Load 0x2,0x2
02a6 0a01 | | Execute_Immediate Plus,0x1
02a7 c403 | | Store 0x2,0x3
02a8 00cf | | Action Mark_Auxiliary
02a9 7804 |x | Jump 0x2ae
02aa e403 | | Load 0x2,0x3
02ab 0a01 | | Execute_Immediate Plus,0x1
02ac c403 | | Store 0x2,0x3
02ad 00c9 | | Action Pop_Auxiliary_Loop
02ae e403 | | Load 0x2,0x3
02af e5ff | | Load 0x2,-0x1
02b0 01da | | Execute Vector,Bounds
02b1 0262 | b | Execute Discrete,In_Range
02b2 6805 |h | Jump_Zero 0x2b8
02b3 e403 | | Load 0x2,0x3
02b4 e5ff | | Load 0x2,-0x1
02b5 01d7 | | Execute Vector,Field_Read
02b6 8222 | " | Call 0x1,0x22
02b7 6ff2 |o | Jump_Zero 0x2aa
02b8 00ce | | Action Pop_Auxiliary
02b9 00d8 | | Load_Top At_Offset_0
02ba e5fe | | Load 0x2,-0x2
02bb 027e | ~ | Execute Discrete,Not_Equal
02bc 6802 |h | Jump_Zero 0x2bf
02bd 00db | | Load_Top At_Offset_3
02be a402 | | Store_Unchecked 0x2,0x2
02bf 00c8 | | Action Pop_Auxiliary_Range
02c0 3fc4 |? | Loop_Increasing 0x285
02c1 00ce | | Action Pop_Auxiliary
02c2 e221 | ! | Load 0x1,0x21
02c3 0322 | " | Declare_Variable Record
02c4 00da | | Load_Top At_Offset_2
02c5 00d9 | | Load_Top At_Offset_1
02c6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02c7 00d9 | | Load_Top At_Offset_1
02c8 0aff | | Execute_Immediate Plus,-0x1
02c9 00d9 | | Load_Top At_Offset_1
02ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d6 | | .CONST 0x02d6 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 00db | | Load_Top At_Offset_3
02d4 00db | | Load_Top At_Offset_3
02d5 8224 | $ | Call 0x1,0x24
02d6 BODY_02d0:
02d6 00d8 | | Load_Top At_Offset_0
02d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d8 00d9 | | Load_Top At_Offset_1
02d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02da 027d | } | Execute Discrete,Greater
02db 6802 |h | Jump_Zero 0x2de
02dc 00ea | | Load_Encached Null_String_Cache
02dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02de 00d8 | | Load_Top At_Offset_0
02df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e0 00d9 | | Load_Top At_Offset_1
02e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e2 e5ff | | Load 0x2,-0x1
02e3 01cf | | Execute Vector,Slice_Read
02e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02e5 0000 0000 | | .XXX[0x3]
02e7 0000 | |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f6 | | .CONST 0x02f6 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0004 | | .CONST 0x0004 ; Number of locals
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec 00e3 | | Load_Encached Natural_Cache
02ed 03f1 | | Declare_Variable Discrete,With_Value
02ee 4801 |H | Short_Literal 0x1
02ef 4820 |H | Short_Literal 0x20
02f0 e005 | | Load 0x0,0x5
02f1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02f2 035b | [ | Declare_Type Array,Constrained
02f3 0337 | 7 | Declare_Variable Array
02f4 00e3 | | Load_Encached Natural_Cache
02f5 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02f6 BODY_02e8:
02f6 00cf | | Action Mark_Auxiliary
02f7 00db | | Load_Top At_Offset_3
02f8 48ff |H | Short_Literal 0xff
02f9 0279 | y | Execute Discrete,And
02fa 00d8 | | Load_Top At_Offset_0
02fb e006 | | Load 0x0,0x6
02fc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02fd 0260 | ` | Execute Discrete,In_Type
02fe 7001 |p | Jump_Nonzero 0x300
02ff 0801 | | Execute_Immediate Raise,0x1
0300 4801 |H | Short_Literal 0x1
0301 e403 | | Load 0x2,0x3
0302 01d6 | | Execute Vector,Field_Write
0303 00db | | Load_Top At_Offset_3
0304 09f8 | | Execute_Immediate Binary_Scale,-0x8
0305 c402 | | Store 0x2,0x2
0306 00db | | Load_Top At_Offset_3
0307 6813 |h | Jump_Zero 0x31b
0308 4801 |H | Short_Literal 0x1
0309 00da | | Load_Top At_Offset_2
030a e403 | | Load 0x2,0x3
030b 01cf | | Execute Vector,Slice_Read
030c 4802 |H | Short_Literal 0x2
030d 00db | | Load_Top At_Offset_3
030e 0a01 | | Execute_Immediate Plus,0x1
030f 00d8 | | Load_Top At_Offset_0
0310 00e2 | | Load_Encached Integer_Cache
0311 0260 | ` | Execute Discrete,In_Type
0312 7001 |p | Jump_Nonzero 0x314
0313 0801 | | Execute_Immediate Raise,0x1
0314 e403 | | Load 0x2,0x3
0315 01ce | | Execute Vector,Slice_Write
0316 00d9 | | Load_Top At_Offset_1
0317 0a01 | | Execute_Immediate Plus,0x1
0318 005a | Z | Store_Top Discrete,At_Offset_2
0319 00c9 | | Action Pop_Auxiliary_Loop
031a 7fdc | | Jump 0x2f7
031b 00ce | | Action Pop_Auxiliary
031c 4801 |H | Short_Literal 0x1
031d 00d9 | | Load_Top At_Offset_1
031e 00db | | Load_Top At_Offset_3
031f 01cf | | Execute Vector,Slice_Read
0320 e005 | | Load 0x0,0x5
0321 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0322 01c6 | | Execute Vector,Convert_To_Formal
0323 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0339 | 9 | .CONST 0x0339 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0005 | | .CONST 0x0005 ; Number of locals
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 01dd | | Execute Vector,First
032d 00e4 | | Load_Encached Positive_Cache
032e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
032f 4801 |H | Short_Literal 0x1
0330 4820 |H | Short_Literal 0x20
0331 e005 | | Load 0x0,0x5
0332 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0333 035b | [ | Declare_Type Array,Constrained
0334 0337 | 7 | Declare_Variable Array
0335 00e3 | | Load_Encached Natural_Cache
0336 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0337 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
0339 BODY_0328:
0339 00cf | | Action Mark_Auxiliary
033a e5ff | | Load 0x2,-0x1
033b 01d9 | | Execute Vector,Reverse_Bounds
033c 0263 | c | Execute Discrete,Above_Bound
033d 701d |p | Jump_Nonzero 0x35b
033e 00d8 | | Load_Top At_Offset_0
033f e5ff | | Load 0x2,-0x1
0340 01d7 | | Execute Vector,Field_Read
0341 0f2e | . | Execute_Immediate Equal,0x2e
0342 6816 |h | Jump_Zero 0x359
0343 00d8 | | Load_Top At_Offset_0
0344 e402 | | Load 0x2,0x2
0345 027d | } | Execute Discrete,Greater
0346 680f |h | Jump_Zero 0x356
0347 e402 | | Load 0x2,0x2
0348 00d9 | | Load_Top At_Offset_1
0349 0aff | | Execute_Immediate Plus,-0x1
034a e5ff | | Load 0x2,-0x1
034b 01cf | | Execute Vector,Slice_Read
034c 00e2 | | Load_Encached Integer_Cache
034d 00e0 | | Load_Encached Standard_Cache
034e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
034f 00d8 | | Load_Top At_Offset_0
0350 00e3 | | Load_Encached Natural_Cache
0351 0260 | ` | Execute Discrete,In_Type
0352 7001 |p | Jump_Nonzero 0x354
0353 0801 | | Execute_Immediate Raise,0x1
0354 8226 | & | Call 0x1,0x26
0355 8405 | | Call 0x2,0x5
0356 00d8 | | Load_Top At_Offset_0
0357 0a01 | | Execute_Immediate Plus,0x1
0358 c402 | | Store 0x2,0x2
0359 00c8 | | Action Pop_Auxiliary_Range
035a 3fe3 |? | Loop_Increasing 0x33e
035b 00ce | | Action Pop_Auxiliary
035c 00db | | Load_Top At_Offset_3
035d e5ff | | Load 0x2,-0x1
035e 01da | | Execute Vector,Bounds
035f 0262 | b | Execute Discrete,In_Range
0360 680f |h | Jump_Zero 0x370
0361 00db | | Load_Top At_Offset_3
0362 e5ff | | Load 0x2,-0x1
0363 01dc | | Execute Vector,Last
0364 e5ff | | Load 0x2,-0x1
0365 01cf | | Execute Vector,Slice_Read
0366 00e2 | | Load_Encached Integer_Cache
0367 00e0 | | Load_Encached Standard_Cache
0368 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0369 00d8 | | Load_Top At_Offset_0
036a 00e3 | | Load_Encached Natural_Cache
036b 0260 | ` | Execute Discrete,In_Type
036c 7001 |p | Jump_Nonzero 0x36e
036d 0801 | | Execute_Immediate Raise,0x1
036e 8226 | & | Call 0x1,0x26
036f 8405 | | Call 0x2,0x5
0370 4801 |H | Short_Literal 0x1
0371 00da | | Load_Top At_Offset_2
0372 e403 | | Load 0x2,0x3
0373 01cf | | Execute Vector,Slice_Read
0374 e005 | | Load 0x0,0x5
0375 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0376 01c6 | | Execute Vector,Convert_To_Formal
0377 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037d | } | .CONST 0x037d ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0002 | | .CONST 0x0002 ; Number of locals
037b INIT_0378:
037b e402 | | Load 0x2,0x2
037c 821c | | Call 0x1,0x1c
037d BODY_0378:
037d e402 | | Load 0x2,0x2
037e 8219 | | Call 0x1,0x19
037f 00d1 | | Pop_Control Pop_Count_1
0380 00d8 | | Load_Top At_Offset_0
0381 00cb | | Action Pop_Block_With_Result
0382 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0383 0000 0000 | | .BLANK 0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038d | | .CONST 0x038d ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0002 | | .CONST 0x0002 ; Number of locals
038b INIT_0388:
038b e402 | | Load 0x2,0x2
038c 821b | | Call 0x1,0x1b
038d BODY_0388:
038d e402 | | Load 0x2,0x2
038e 8219 | | Call 0x1,0x19
038f 00d1 | | Pop_Control Pop_Count_1
0390 00d8 | | Load_Top At_Offset_0
0391 00cb | | Action Pop_Block_With_Result
0392 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0393 0000 0000 | | .BLANK 0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 03a0 | | .CONST 0x03a0 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e5fe | | Load 0x2,-0x2
039c e004 | | Load 0x0,0x4
039d 180d | | Execute Package,Field_Execute,Field_Number 0xd
039e 00cb | | Action Pop_Block_With_Result
039f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a0 TRAP_0398:
03a0 e004 | | Load 0x0,0x4
03a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03a2 010f | | Execute Exception,Equal
03a3 6802 |h | Jump_Zero 0x3a6
03a4 e213 | | Load 0x1,0x13
03a5 0257 | W | Execute Discrete,Raise
03a6 0100 | | Execute Exception,Raise
03a7 0000 | | .XXX[0x1]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ad | | .CONST 0x03ad ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0002 | | .CONST 0x0002 ; Number of locals
03ab INIT_03a8:
03ab e402 | | Load 0x2,0x2
03ac 821c | | Call 0x1,0x1c
03ad BODY_03a8:
03ad e402 | | Load 0x2,0x2
03ae 8219 | | Call 0x1,0x19
03af 00d1 | | Pop_Control Pop_Count_1
03b0 00d8 | | Load_Top At_Offset_0
03b1 00cb | | Action Pop_Block_With_Result
03b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b3 0000 0000 | | .BLANK 0000[0x5]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bd | | .CONST 0x03bd ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e402 | | Load 0x2,0x2
03bc 821b | | Call 0x1,0x1b
03bd BODY_03b8:
03bd e402 | | Load 0x2,0x2
03be 8219 | | Call 0x1,0x19
03bf 00d1 | | Pop_Control Pop_Count_1
03c0 00d8 | | Load_Top At_Offset_0
03c1 00cb | | Action Pop_Block_With_Result
03c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c3 0000 0000 | | .BLANK 0000[0x5]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc e404 | | Load 0x2,0x4
03cd 0a01 | | Execute_Immediate Plus,0x1
03ce 00d8 | | Load_Top At_Offset_0
03cf 00e2 | | Load_Encached Integer_Cache
03d0 0260 | ` | Execute Discrete,In_Type
03d1 7001 |p | Jump_Nonzero 0x3d3
03d2 0801 | | Execute_Immediate Raise,0x1
03d3 e404 | | Load 0x2,0x4
03d4 e7ff | | Load 0x3,-0x1
03d5 01db | | Execute Vector,Length
03d6 0273 | s | Execute Discrete,Plus
03d7 00d8 | | Load_Top At_Offset_0
03d8 00e2 | | Load_Encached Integer_Cache
03d9 0260 | ` | Execute Discrete,In_Type
03da 7001 |p | Jump_Nonzero 0x3dc
03db 0801 | | Execute_Immediate Raise,0x1
03dc e403 | | Load 0x2,0x3
03dd 01ce | | Execute Vector,Slice_Write
03de e404 | | Load 0x2,0x4
03df 00db | | Load_Top At_Offset_3
03e0 01db | | Execute Vector,Length
03e1 0273 | s | Execute Discrete,Plus
03e2 c404 | | Store 0x2,0x4
03e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e4 0000 0000 | | .BLANK 0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 4608 |F | Jump_Case 0x9
03ec 7808 |x | Jump 0x3f5 ; case 0x0
03ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03ee 780d |x | Jump 0x3fc ; case 0x2
03ef 780c |x | Jump 0x3fc ; case 0x3
03f0 780b |x | Jump 0x3fc ; case 0x4
03f1 780a |x | Jump 0x3fc ; case 0x5
03f2 7809 |x | Jump 0x3fc ; case 0x6
03f3 7808 |x | Jump 0x3fc ; case 0x7
03f4 7807 |x | Jump 0x3fc ; case 0x8
03f5 00da | | Load_Top At_Offset_2
03f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03f7 0125 | % | Execute Any,Set_Constraint
03f8 00da | | Load_Top At_Offset_2
03f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03fa 1c00 | | Execute_Immediate Run_Utility,0x0
03fb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03fc 0869 | i | Execute_Immediate Raise,0x69
03fd ; --------------------------------------------------------------------------------------
03fd ; STRING TABLE
03fd ; --------------------------------------------------------------------------------------
03fd 0006 | | .STRTAB 0x0006->0x0400 ; "!Machine.Transport_Services"
03fe 001f | | .STRTAB 0x001f->0x040d ; "--"
03ff 001f | | .STREND 0x001f->0x040e
0400 214d 6163 |!Mac| .STRTAB_STRINGS
040f 0000 | | .XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0004 000e | | .DEBUG4 0x0004,0x000e,0xf471,0x0000,0x0001,0x0000
0416 0490 47ad | G | .XXX[0x13]
0418 050d 7f40 | @|
041a 0002 4000 | @ |
041c 0000 0000 | |
041e 0000 0007 | |
0420 3cf4 8500 |< |
0422 0000 4007 | @ |
0424 3cf6 8500 |< |
0426 0000 4000 | @ |
0428 2600 |& |
0429 0000 0000 | | .BLANK 0000[0x4]
042d 0001 cf3d | =| .XXX[0xa]
042f a140 0000 | @ |
0431 1008 16e5 | |
0433 f818 0000 | |
0435 0001 2000 | |
0437 0000 0000 | | .BLANK 0000[0x5]
043c 2000 0000 | | .XXX[0x4]
043e 0009 8000 | |
0440 0000 0000 | | .BLANK 0000[0x8]
0448 0207 e521 | !| .XXX[0x5]
044a 3bea 2800 |; ( |
044c 0048 | H |
044d 0000 0000 | | .BLANK 0000[0x5]
0452 0008 0000 | | .XXX[0x3e]
0454 0000 0000 | |
0456 0018 0005 | |
0458 65f0 09b9 |e |
045a 06f0 09b8 | |
045c d968 09b9 | h |
045e 7b68 04dc |{h |
0460 98c4 0005 | |
0462 5172 a081 |Qr |
0464 5b30 05b8 |[0 |
0466 c000 0e50 | P|
0468 40ad 9804 |@ |
046a 4280 0007 |B |
046c 2000 0000 | |
046e 0000 0000 | |
0470 0009 6042 | `B|
0472 8580 0000 | |
0474 4009 6044 |@ `D|
0476 8580 0000 | |
0478 4003 4600 |@ F |
047a 9800 0000 | |
047c 0000 0000 | |
047e 0002 5811 | X |
0480 2160 0000 |!` |
0482 1008 1f05 | |
0484 547e 7f30 |T~ 0|
0486 0003 9000 | |
0488 0000 9000 | |
048a 0ea7 0000 | |
048c 0000 2000 | |
048e 0000 2000 | |
0490 0000 0000 | | .BLANK 0000[0xa]
049a 041c 2000 | | .XXX[0x2]
049c 0000 0000 | | .BLANK 0000[0x7]
04a3 0008 0000 | | .XXX[0x9]
04a5 0000 0000 | |
04a7 0018 0006 | |
04a9 2320 09b9 |# |
04ab 2f70 |/p |
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 04dc ad04 | | .XXX[0x33]
04b2 0006 5e62 | ^b|
04b4 2083 a321 | !|
04b6 5fe1 8000 |_ |
04b8 0050 608f | P` |
04ba e981 4500 | E |
04bc 0002 4400 | D |
04be 0000 0000 | |
04c0 0000 0002 | |
04c2 14d6 8000 | |
04c4 0000 4002 | @ |
04c6 14d8 8000 | |
04c8 0000 4000 | @ |
04ca 0603 1802 | |
04cc 2000 0000 | |
04ce 0000 0000 | |
04d0 8f9c 2000 | |
04d2 0000 1008 | |
04d4 20e8 c85a | Z|
04d6 3280 0000 |2 |
04d8 1000 0000 | |
04da 9000 0f3d | =|
04dc a000 0000 | |
04de 2000 0000 | |
04e0 2001 80c6 | |
04e2 0088 | |
04e3 0000 0000 | | .BLANK 0000[0x7]
04ea 0208 3a32 | :2| .XXX[0x32]
04ec 168c a000 | |
04ee 0004 0000 | |
04f0 0024 0003 | $ |
04f2 cf68 0000 | h |
04f4 0008 0000 | |
04f6 0008 0000 | |
04f8 0018 0006 | |
04fa 81b8 09b9 | |
04fc 57f0 09b9 |W |
04fe 52e8 09b9 |R |
0500 cc6c 04dc | l |
0502 c144 0009 | D |
0504 6da2 a08b |m |
0506 d919 9dd8 | |
0508 4000 0690 |@ |
050a 45ec 8cd8 |E |
050c 8220 0003 | |
050e 4000 0000 |@ |
0510 0000 0000 | |
0512 000b bcf4 | |
0514 8500 0000 | |
0516 400b bcf8 |@ |
0518 8500 0000 | |
051a 4000 2600 |@ & |
051c 0000 0000 | | .BLANK 0000[0x4]
0520 0002 ef3e | >| .XXX[0x12]
0522 2140 0000 |!@ |
0524 1008 22f6 | " |
0526 466c 4110 |FlA |
0528 0001 a000 | |
052a 0000 9000 | |
052c 1266 c000 | f |
052e 0000 2000 | |
0530 0000 4000 | @ |
0532 0000 0000 | | .BLANK 0000[0xa]
053c 041c 2000 | | .XXX[0x2]
053e 0000 0000 | | .BLANK 0000[0x7]
0545 0008 0000 | | .XXX[0x9]
0547 0000 0000 | |
0549 0018 0007 | |
054b fc18 09b9 | |
054d 8070 | p |
054e 0000 0000 | | .BLANK 0000[0x4]
0552 04dc d584 | | .XXX[0x29]
0554 0004 2093 | |
0556 a057 9871 | W q|
0558 2000 0000 | |
055a 0690 4f89 | O |
055c e164 ab00 | d |
055e 0004 6400 | d |
0560 0000 0000 | |
0562 0000 000c | |
0564 0690 8500 | |
0566 0000 400c | @ |
0568 0692 8500 | |
056a 0000 4000 | @ |
056c 2601 9800 |& |
056e 0000 0000 | |
0570 0000 0003 | |
0572 01a4 a140 | @|
0574 0000 1008 | |
0576 15e6 1c48 | H|
0578 0000 0001 | |
057a a000 | |
057b 0000 0000 | | .BLANK 0000[0x5]
0580 2000 0000 | | .XXX[0x4]
0582 0009 8066 | f|
0584 0000 0000 | | .BLANK 0000[0x8]
058c 0208 c1db | | .XXX[0x5]
058e 8a46 7c00 | F| |
0590 0068 | h |
0591 0000 0000 | | .BLANK 0000[0x5]
0596 0008 0000 | | .XXX[0x28]
0598 0000 0000 | |
059a 0018 0008 | |
059c 3b28 09b9 |;( |
059e a8f0 09b9 | |
05a0 a3e8 09b9 | |
05a2 f4e8 04dc | |
05a4 e9c4 000a | |
05a6 750e a08c |u |
05a8 8804 1653 | S|
05aa c000 0050 | P|
05ac 4644 023a |FD :|
05ae 2920 0000 |) |
05b0 2000 0000 | |
05b2 0000 0000 | |
05b4 0002 3292 | 2 |
05b6 8000 0000 | |
05b8 4002 3294 |@ 2 |
05ba 8000 0000 | |
05bc 4000 2600 |@ & |
05be 0000 0000 | | .BLANK 0000[0x5]
05c3 8ca5 2000 | | .XXX[0x12]
05c5 0000 1008 | |
05c7 2322 011d |#" |
05c9 1490 0000 | |
05cb 1000 0000 | |
05cd 9000 1336 | 6|
05cf c000 0000 | |
05d1 2000 0000 | |
05d3 2009 8000 | |
05d5 0000 0000 | | .BLANK 0000[0x8]
05dd 0208 c880 | | .XXX[0x23]
05df 41de 5400 |A T |
05e1 0004 0000 | |
05e3 0024 0004 | $ |
05e5 cdb0 0000 | |
05e7 0008 0000 | |
05e9 0008 0000 | |
05eb 0018 0008 | |
05ed 5ab0 09b9 |Z |
05ef d170 0000 | p |
05f1 0000 09ba | |
05f3 1d6c 04dc | l |
05f5 fe04 0000 | |
05f7 0837 a07e | 7 ~|
05f9 942c a000 | , |
05fb 0000 0050 | P|
05fd 3f4a 1650 |?J P|
05ff 0000 | |