|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_664cf7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0238 | 8 | .CONST 0x0238 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0084 | | .CONST 0x0084 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0010 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0012 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0016 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0018 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001a 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
001c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001e 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0020 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0022 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0024 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0026 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0028 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
002a 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
002c 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
002e 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0030 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0032 0093 0000 | | push_full_address 0x0
0034 606b |`k | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00010000}
0035 0273 | s | Execute Discrete,Plus
0036 0129 | ) | Execute Any,Make_Visible
0037 0007 | | Action Break_Optional
0038 4818 |H | Short_Literal 0x18
0039 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
003a 00bf | | Action Accept_Activation
003b e002 | | Load 0x0,0x2
003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003d 00e4 | | Load_Encached Positive_Cache
003e 00e2 | | Load_Encached Integer_Cache
003f 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0041 4803 |H | Short_Literal 0x3
0042 032d | - | Declare_Type Record,Defined
0043 00d8 | | Load_Top At_Offset_0
0044 02a0 | | Declare_Subprogram Null_Subprogram
0045 00db | | Load_Top At_Offset_3
0046 03c7 | | Complete_Type Access,By_Defining
0047 00d9 | | Load_Top At_Offset_1
0048 03bc | | Declare_Variable Access,By_Allocation
0049 00d8 | | Load_Top At_Offset_0
004a 00e0 | | Load_Encached Standard_Cache
004b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
004c e003 | | Load 0x0,0x3
004d e004 | | Load 0x0,0x4
004e 00e6 | | Load_Encached Float_Cache
004f e002 | | Load 0x0,0x2
0050 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
0051 0387 | | Declare_Variable Package
0052 00d8 | | Load_Top At_Offset_0
0053 020f | | Execute Module,Activate
0054 e005 | | Load 0x0,0x5
0055 e006 | | Load 0x0,0x6
0056 00e7 | | Load_Encached Duration_Cache
0057 e002 | | Load 0x0,0x2
0058 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
0059 0387 | | Declare_Variable Package
005a 00d8 | | Load_Top At_Offset_0
005b 020f | | Execute Module,Activate
005c 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call
005e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
005f 00c7 | | Action Elaborate_Subprogram
0060 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0061 00c7 | | Action Elaborate_Subprogram
0062 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0063 00c7 | | Action Elaborate_Subprogram
0064 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0065 00c7 | | Action Elaborate_Subprogram
0066 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0067 00c7 | | Action Elaborate_Subprogram
0068 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0069 00c7 | | Action Elaborate_Subprogram
006a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006b 00c7 | | Action Elaborate_Subprogram
006c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006d 00c7 | | Action Elaborate_Subprogram
006e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006f 00c7 | | Action Elaborate_Subprogram
0070 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0071 00c7 | | Action Elaborate_Subprogram
0072 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0073 00c7 | | Action Elaborate_Subprogram
0074 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0077 00c7 | | Action Elaborate_Subprogram
0078 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007f 00c7 | | Action Elaborate_Subprogram
0080 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0081 00c7 | | Action Elaborate_Subprogram
0082 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0083 00c7 | | Action Elaborate_Subprogram
0084 BODY_0008:
0084 00db | | Load_Top At_Offset_3
0085 0229 | ) | Execute Access,All_Read
0086 00d8 | | Load_Top At_Offset_0
0087 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0088 00ea | | Load_Encached Null_String_Cache
0089 e002 | | Load 0x0,0x2
008a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
008b e002 | | Load 0x0,0x2
008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008d 4801 |H | Short_Literal 0x1
008e e002 | | Load 0x0,0x2
008f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0090 00d9 | | Load_Top At_Offset_1
0091 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0092 00d1 | | Pop_Control Pop_Count_1
0093 00bc | | Action Signal_Activated
0094 00bb | | Action Signal_Completion
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e223 | # | Load 0x1,0x23
009c 00ca | | Action Exit_Nullary_Function
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e220 | | Load 0x1,0x20
00ac 0257 | W | Execute Discrete,Raise
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
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 e5fe | | Load 0x2,-0x2
00b5 0227 | ' | Execute Access,All_Reference
00b6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00db | | Load_Top At_Offset_3
00bc 0227 | ' | Execute Access,All_Reference
00bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00be 00db | | Load_Top At_Offset_3
00bf 0273 | s | Execute Discrete,Plus
00c0 e5fe | | Load 0x2,-0x2
00c1 0227 | ' | Execute Access,All_Reference
00c2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c3 00db | | Load_Top At_Offset_3
00c4 0227 | ' | Execute Access,All_Reference
00c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c6 0d02 | | Execute_Immediate Less,0x2
00c7 6804 |h | Jump_Zero 0xcc
00c8 4801 |H | Short_Literal 0x1
00c9 e5fe | | Load 0x2,-0x2
00ca 0227 | ' | Execute Access,All_Reference
00cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00cc 00db | | Load_Top At_Offset_3
00cd 0227 | ' | Execute Access,All_Reference
00ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00cf e5fe | | Load 0x2,-0x2
00d0 0227 | ' | Execute Access,All_Reference
00d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 4802 |H | Short_Literal 0x2
00dd 8210 | | Call 0x1,0x10
00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 4ffe |O | Short_Literal -0x2
00e5 8210 | | Call 0x1,0x10
00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3
00ec 00db | | Load_Top At_Offset_3
00ed 00e0 | | Load_Encached Standard_Cache
00ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ef 8226 | & | Call 0x1,0x26
00f0 8218 | | Call 0x1,0x18
00f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc 00db | | Load_Top At_Offset_3
00fd 00e1 | | Load_Encached Boolean_Cache
00fe 011c | | Execute Any,Convert_Unchecked
00ff 1c01 | | Execute_Immediate Run_Utility,0x1
0100 8226 | & | Call 0x1,0x26
0101 8218 | | Call 0x1,0x18
0102 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0110 | | .CONST 0x0110 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 4801 |H | Short_Literal 0x1
010c 4850 |HP | Short_Literal 0x50
010d 00e9 | | Load_Encached String_Cache
010e 035b | [ | Declare_Type Array,Constrained
010f 0337 | 7 | Declare_Variable Array
0110 BODY_0108:
0110 00d8 | | Load_Top At_Offset_0
0111 e224 | $ | Load 0x1,0x24
0112 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0113 e224 | $ | Load 0x1,0x24
0114 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0115 e5ff | | Load 0x2,-0x1
0116 e224 | $ | Load 0x1,0x24
0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0118 00d1 | | Pop_Control Pop_Count_1
0119 e5fe | | Load 0x2,-0x2
011a 00d9 | | Load_Top At_Offset_1
011b 8226 | & | Call 0x1,0x26
011c 8218 | | Call 0x1,0x18
011d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011e 0000 0000 | | .XXX[0x2]
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 00db | | Load_Top At_Offset_3
0124 00db | | Load_Top At_Offset_3
0125 00ea | | Load_Encached Null_String_Cache
0126 01cb | | Execute Vector,Append
0127 8218 | | Call 0x1,0x18
0128 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0138 | 8 | .CONST 0x0138 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 4801 |H | Short_Literal 0x1
0134 4850 |HP | Short_Literal 0x50
0135 00e9 | | Load_Encached String_Cache
0136 035b | [ | Declare_Type Array,Constrained
0137 0337 | 7 | Declare_Variable Array
0138 BODY_0130:
0138 00d8 | | Load_Top At_Offset_0
0139 e225 | % | Load 0x1,0x25
013a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
013b e225 | % | Load 0x1,0x25
013c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
013d e5ff | | Load 0x2,-0x1
013e e225 | % | Load 0x1,0x25
013f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0140 00d1 | | Pop_Control Pop_Count_1
0141 e5fe | | Load 0x2,-0x2
0142 00d9 | | Load_Top At_Offset_1
0143 8226 | & | Call 0x1,0x26
0144 8218 | | Call 0x1,0x18
0145 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00db | | Load_Top At_Offset_3
014c 0227 | ' | Execute Access,All_Reference
014d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014e 00d8 | | Load_Top At_Offset_0
014f e002 | | Load 0x0,0x2
0150 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0151 0260 | ` | Execute Discrete,In_Type
0152 7001 |p | Jump_Nonzero 0x154
0153 0801 | | Execute_Immediate Raise,0x1
0154 e5fe | | Load 0x2,-0x2
0155 0227 | ' | Execute Access,All_Reference
0156 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0157 e002 | | Load 0x0,0x2
0158 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0159 00da | | Load_Top At_Offset_2
015a e5fe | | Load 0x2,-0x2
015b 0227 | ' | Execute Access,All_Reference
015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015d e002 | | Load 0x0,0x2
015e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
015f 00db | | Load_Top At_Offset_3
0160 0227 | ' | Execute Access,All_Reference
0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0162 00db | | Load_Top At_Offset_3
0163 01db | | Execute Vector,Length
0164 0273 | s | Execute Discrete,Plus
0165 e5fe | | Load 0x2,-0x2
0166 0227 | ' | Execute Access,All_Reference
0167 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0168 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3
0174 00db | | Load_Top At_Offset_3
0175 8213 | | Call 0x1,0x13
0176 4801 |H | Short_Literal 0x1
0177 e5fe | | Load 0x2,-0x2
0178 821f | | Call 0x1,0x1f
0179 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00db | | Load_Top At_Offset_3
0184 00db | | Load_Top At_Offset_3
0185 8214 | | Call 0x1,0x14
0186 4801 |H | Short_Literal 0x1
0187 e5fe | | Load 0x2,-0x2
0188 821f | | Call 0x1,0x1f
0189 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00db | | Load_Top At_Offset_3
0194 00db | | Load_Top At_Offset_3
0195 8215 | | Call 0x1,0x15
0196 4801 |H | Short_Literal 0x1
0197 e5fe | | Load 0x2,-0x2
0198 821f | | Call 0x1,0x1f
0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00db | | Load_Top At_Offset_3
01a4 00db | | Load_Top At_Offset_3
01a5 8216 | | Call 0x1,0x16
01a6 4801 |H | Short_Literal 0x1
01a7 e5fe | | Load 0x2,-0x2
01a8 821f | | Call 0x1,0x1f
01a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 00db | | Load_Top At_Offset_3
01b5 8217 | | Call 0x1,0x17
01b6 4801 |H | Short_Literal 0x1
01b7 e5fe | | Load 0x2,-0x2
01b8 821f | | Call 0x1,0x1f
01b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00db | | Load_Top At_Offset_3
01c4 00db | | Load_Top At_Offset_3
01c5 8218 | | Call 0x1,0x18
01c6 4801 |H | Short_Literal 0x1
01c7 e5fe | | Load 0x2,-0x2
01c8 821f | | Call 0x1,0x1f
01c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00db | | Load_Top At_Offset_3
01d4 00d8 | | Load_Top At_Offset_0
01d5 e002 | | Load 0x0,0x2
01d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d7 0260 | ` | Execute Discrete,In_Type
01d8 7001 |p | Jump_Nonzero 0x1da
01d9 0801 | | Execute_Immediate Raise,0x1
01da 00db | | Load_Top At_Offset_3
01db 0227 | ' | Execute Access,All_Reference
01dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01dd e002 | | Load 0x0,0x2
01de 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01df 00da | | Load_Top At_Offset_2
01e0 0227 | ' | Execute Access,All_Reference
01e1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e2 00db | | Load_Top At_Offset_3
01e3 0227 | ' | Execute Access,All_Reference
01e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e6 0000 0000 | | .XXX[0x2]
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 4601 |F | Jump_Case 0x2
01ec 7801 |x | Jump 0x1ee ; case 0x0
01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01ee 00da | | Load_Top At_Offset_2
01ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f0 0125 | % | Execute Any,Set_Constraint
01f1 00da | | Load_Top At_Offset_2
01f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f3 1c00 | | Execute_Immediate Run_Utility,0x0
01f4 4801 |H | Short_Literal 0x1
01f5 00db | | Load_Top At_Offset_3
01f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f7 4801 |H | Short_Literal 0x1
01f8 00db | | Load_Top At_Offset_3
01f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01fa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020c | | .CONST 0x020c ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0004 | | .CONST 0x0004 ; Number of locals
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 01dd | | Execute Vector,First
0205 00e2 | | Load_Encached Integer_Cache
0206 03f1 | | Declare_Variable Discrete,With_Value
0207 00db | | Load_Top At_Offset_3
0208 01dc | | Execute Vector,Last
0209 00e2 | | Load_Encached Integer_Cache
020a 03f1 | | Declare_Variable Discrete,With_Value
020b 00e1 | | Load_Encached Boolean_Cache
020c BODY_0200:
020c 00cf | | Action Mark_Auxiliary
020d e5ff | | Load 0x2,-0x1
020e 01dc | | Execute Vector,Last
020f e5ff | | Load 0x2,-0x1
0210 01dd | | Execute Vector,First
0211 0263 | c | Execute Discrete,Above_Bound
0212 700b |p | Jump_Nonzero 0x21e
0213 00d8 | | Load_Top At_Offset_0
0214 a402 | | Store_Unchecked 0x2,0x2
0215 00d8 | | Load_Top At_Offset_0
0216 e5ff | | Load 0x2,-0x1
0217 01d7 | | Execute Vector,Field_Read
0218 0e20 | | Execute_Immediate Not_Equal,0x20
0219 6802 |h | Jump_Zero 0x21c
021a 00d2 | | Pop_Control Pop_Count_2
021b 7802 |x | Jump 0x21e
021c 00c8 | | Action Pop_Auxiliary_Range
021d 3ff5 |? | Loop_Increasing 0x213
021e 00c9 | | Action Pop_Auxiliary_Loop
021f e5ff | | Load 0x2,-0x1
0220 01dc | | Execute Vector,Last
0221 e402 | | Load 0x2,0x2
0222 0263 | c | Execute Discrete,Above_Bound
0223 700b |p | Jump_Nonzero 0x22f
0224 00d8 | | Load_Top At_Offset_0
0225 e5ff | | Load 0x2,-0x1
0226 01d7 | | Execute Vector,Field_Read
0227 0f20 | | Execute_Immediate Equal,0x20
0228 6802 |h | Jump_Zero 0x22b
0229 00d2 | | Pop_Control Pop_Count_2
022a 7804 |x | Jump 0x22f
022b 00d8 | | Load_Top At_Offset_0
022c a403 | | Store_Unchecked 0x2,0x3
022d 00c8 | | Action Pop_Auxiliary_Range
022e 3ff5 |? | Loop_Increasing 0x224
022f 00ce | | Action Pop_Auxiliary
0230 00da | | Load_Top At_Offset_2
0231 00da | | Load_Top At_Offset_2
0232 e5ff | | Load 0x2,-0x1
0233 01cf | | Execute Vector,Slice_Read
0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 0006 | | .DEBUG4 0x0004,0x0006,0xad96,0x0000,0x0001,0x0017
023e 000b 029a | | .DBG4T 0x000b,0x029a,0x8000,0x0000
0242 003b 02b3 | ; | .DBG4T 0x003b,0x02b3,0x8000,0x0000
0246 009b 02ce | | .DBG4T 0x009b,0x02ce,0x0002,0x0000
024a 00ab 02d1 | | .DBG4T 0x00ab,0x02d1,0x0001,0x0000
024e 00b3 02d4 | | .DBG4T 0x00b3,0x02d4,0x0001,0x0000
0252 00bb 02d7 | | .DBG4T 0x00bb,0x02d7,0x0001,0x0000
0256 00db 02dd | | .DBG4T 0x00db,0x02dd,0x0001,0x0000
025a 00e3 02e0 | | .DBG4T 0x00e3,0x02e0,0x0001,0x0000
025e 00eb 02e3 | | .DBG4T 0x00eb,0x02e3,0x0001,0x0000
0262 00fb 02e6 | | .DBG4T 0x00fb,0x02e6,0x0001,0x0000
0266 010b 02e9 | | .DBG4T 0x010b,0x02e9,0x0001,0x0000
026a 0123 02ee | # | .DBG4T 0x0123,0x02ee,0x0001,0x0000
026e 0133 02f1 | 3 | .DBG4T 0x0133,0x02f1,0x0001,0x0000
0272 014b 02f6 | K | .DBG4T 0x014b,0x02f6,0x0001,0x0000
0276 0173 02fb | s | .DBG4T 0x0173,0x02fb,0x0001,0x0000
027a 0183 02ff | | .DBG4T 0x0183,0x02ff,0x0001,0x0000
027e 0193 0303 | | .DBG4T 0x0193,0x0303,0x0001,0x0000
0282 01a3 0307 | | .DBG4T 0x01a3,0x0307,0x0001,0x0000
0286 01b3 030b | | .DBG4T 0x01b3,0x030b,0x0001,0x0000
028a 01c3 030f | | .DBG4T 0x01c3,0x030f,0x0001,0x0000
028e 01d3 0313 | | .DBG4T 0x01d3,0x0313,0x0001,0x0000
0292 01eb 0000 | | .DBG4T 0x01eb,0x0000,0x0005,0x0000
0296 0203 0317 | | .DBG4T 0x0203,0x0317,0x0002,0x0000
029a ; --------------------------------------------------------------------------------------
029a ; Debug chain
029a ; --------------------------------------------------------------------------------------
029a 0017 0000 | | .DBGLEN 0x0017,0x0000
029c 000b 000c | | .DBGLNO 0x000b,0x000c,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0037,0x0038
02b3 ; --------------------------------------------------------------------------------------
02b3 ; Debug chain
02b3 ; --------------------------------------------------------------------------------------
02b3 0018 0001 | | .DBGLEN 0x0018,0x0001
02b5 003b 0047 | ; G| .DBGLNO 0x003b,0x0047,0x004c,0x0054,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084
02ce ; --------------------------------------------------------------------------------------
02ce ; Debug chain
02ce ; --------------------------------------------------------------------------------------
02ce 0000 0001 | | .DBGLEN 0x0000,0x0001
02d0 009b | | .DBGLNO 0x009b
02d1 ; --------------------------------------------------------------------------------------
02d1 ; Debug chain
02d1 ; --------------------------------------------------------------------------------------
02d1 0000 0001 | | .DBGLEN 0x0000,0x0001
02d3 00ab | | .DBGLNO 0x00ab
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug chain
02d4 ; --------------------------------------------------------------------------------------
02d4 0000 0001 | | .DBGLEN 0x0000,0x0001
02d6 00b3 | | .DBGLNO 0x00b3
02d7 ; --------------------------------------------------------------------------------------
02d7 ; Debug chain
02d7 ; --------------------------------------------------------------------------------------
02d7 0000 0004 | | .DBGLEN 0x0000,0x0004
02d9 00bb 00c3 | | .DBGLNO 0x00bb,0x00c3,0x00c8,0x00cc
02dd ; --------------------------------------------------------------------------------------
02dd ; Debug chain
02dd ; --------------------------------------------------------------------------------------
02dd 0000 0001 | | .DBGLEN 0x0000,0x0001
02df 00db | | .DBGLNO 0x00db
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug chain
02e0 ; --------------------------------------------------------------------------------------
02e0 0000 0001 | | .DBGLEN 0x0000,0x0001
02e2 00e3 | | .DBGLNO 0x00e3
02e3 ; --------------------------------------------------------------------------------------
02e3 ; Debug chain
02e3 ; --------------------------------------------------------------------------------------
02e3 0000 0001 | | .DBGLEN 0x0000,0x0001
02e5 00eb | | .DBGLNO 0x00eb
02e6 ; --------------------------------------------------------------------------------------
02e6 ; Debug chain
02e6 ; --------------------------------------------------------------------------------------
02e6 0000 0001 | | .DBGLEN 0x0000,0x0001
02e8 00fb | | .DBGLNO 0x00fb
02e9 ; --------------------------------------------------------------------------------------
02e9 ; Debug chain
02e9 ; --------------------------------------------------------------------------------------
02e9 0001 0002 | | .DBGLEN 0x0001,0x0002
02eb 010b 0110 | | .DBGLNO 0x010b,0x0110,0x0119
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug chain
02ee ; --------------------------------------------------------------------------------------
02ee 0000 0001 | | .DBGLEN 0x0000,0x0001
02f0 0123 | # | .DBGLNO 0x0123
02f1 ; --------------------------------------------------------------------------------------
02f1 ; Debug chain
02f1 ; --------------------------------------------------------------------------------------
02f1 0001 0002 | | .DBGLEN 0x0001,0x0002
02f3 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x0141
02f6 ; --------------------------------------------------------------------------------------
02f6 ; Debug chain
02f6 ; --------------------------------------------------------------------------------------
02f6 0000 0003 | | .DBGLEN 0x0000,0x0003
02f8 014b 0159 | K Y| .DBGLNO 0x014b,0x0159,0x015f
02fb ; --------------------------------------------------------------------------------------
02fb ; Debug chain
02fb ; --------------------------------------------------------------------------------------
02fb 0000 0002 | | .DBGLEN 0x0000,0x0002
02fd 0173 0176 | s v| .DBGLNO 0x0173,0x0176
02ff ; --------------------------------------------------------------------------------------
02ff ; Debug chain
02ff ; --------------------------------------------------------------------------------------
02ff 0000 0002 | | .DBGLEN 0x0000,0x0002
0301 0183 0186 | | .DBGLNO 0x0183,0x0186
0303 ; --------------------------------------------------------------------------------------
0303 ; Debug chain
0303 ; --------------------------------------------------------------------------------------
0303 0000 0002 | | .DBGLEN 0x0000,0x0002
0305 0193 0196 | | .DBGLNO 0x0193,0x0196
0307 ; --------------------------------------------------------------------------------------
0307 ; Debug chain
0307 ; --------------------------------------------------------------------------------------
0307 0000 0002 | | .DBGLEN 0x0000,0x0002
0309 01a3 01a6 | | .DBGLNO 0x01a3,0x01a6
030b ; --------------------------------------------------------------------------------------
030b ; Debug chain
030b ; --------------------------------------------------------------------------------------
030b 0000 0002 | | .DBGLEN 0x0000,0x0002
030d 01b3 01b6 | | .DBGLNO 0x01b3,0x01b6
030f ; --------------------------------------------------------------------------------------
030f ; Debug chain
030f ; --------------------------------------------------------------------------------------
030f 0000 0002 | | .DBGLEN 0x0000,0x0002
0311 01c3 01c6 | | .DBGLNO 0x01c3,0x01c6
0313 ; --------------------------------------------------------------------------------------
0313 ; Debug chain
0313 ; --------------------------------------------------------------------------------------
0313 0000 0002 | | .DBGLEN 0x0000,0x0002
0315 01d3 01df | | .DBGLNO 0x01d3,0x01df
0317 ; --------------------------------------------------------------------------------------
0317 ; Debug chain
0317 ; --------------------------------------------------------------------------------------
0317 0003 0007 | | .DBGLEN 0x0003,0x0007
0319 0203 0207 | | .DBGLNO 0x0203,0x0207,0x020b,0x020d,0x0213,0x0215,0x021f,0x0224,0x022b,0x0230
0323 0000 0000 | | .BLANK 0000[0xdd]