|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 02b8 | | .CONST 0x02b8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006b | k | .CONST 0x006b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d e001 | | Load 0x0,0x1
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001e c217 | | Store 0x1,0x17
001f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0021 c213 | | Store 0x1,0x13
0022 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0024 c214 | | Store 0x1,0x14
0025 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0027 c215 | | Store 0x1,0x15
0028 4805 |H | Short_Literal 0x5
0029 032a | * | Declare_Type Record,Incomplete
002a c216 | | Store 0x1,0x16
002b 00d9 | | Load_Top At_Offset_1
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d e20d | | Load 0x1,0xd
002e 03c7 | | Complete_Type Access,By_Defining
002f e20d | | Load 0x1,0xd
0030 0221 | ! | Execute Access,Allow_Deallocate
0031 00bf | | Action Accept_Activation
0032 4800 |H | Short_Literal 0x0
0033 4900 |I | Short_Literal 0x100
0034 00e2 | | Load_Encached Integer_Cache
0035 03f8 | | Declare_Type Discrete,Constrained
0036 4800 |H | Short_Literal 0x0
0037 48ff |H | Short_Literal 0xff
0038 00e2 | | Load_Encached Integer_Cache
0039 03f8 | | Declare_Type Discrete,Constrained
003a 4801 |H | Short_Literal 0x1
003b 4804 |H | Short_Literal 0x4
003c e002 | | Load 0x0,0x2
003d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003e 035b | [ | Declare_Type Array,Constrained
003f e003 | | Load 0x0,0x3
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 4800 |H | Short_Literal 0x0
0042 48ff |H | Short_Literal 0xff
0043 e002 | | Load 0x0,0x2
0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0045 035b | [ | Declare_Type Array,Constrained
0046 e218 | | Load 0x1,0x18
0047 00e2 | | Load_Encached Integer_Cache
0048 00e1 | | Load_Encached Boolean_Cache
0049 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
004b e216 | | Load 0x1,0x16
004c 0326 | & | Complete_Type Record,By_Defining
004d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004e 00c7 | | Action Elaborate_Subprogram
004f a004 | | Store_Unchecked 0x0,0x4
0050 00c6 | | Action Check_Subprogram_Elaborated
0051 e216 | | Load 0x1,0x16
0052 e20d | | Load 0x1,0xd
0053 e005 | | Load 0x0,0x5
0054 e006 | | Load 0x0,0x6
0055 4800 |H | Short_Literal 0x0
0056 0007 | | Action Break_Optional
0057 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0058 00c7 | | Action Elaborate_Subprogram
0059 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call
005b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005c 00c7 | | Action Elaborate_Subprogram
005d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005e 00c7 | | Action Elaborate_Subprogram
005f 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
0061 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0063 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0064 00c7 | | Action Elaborate_Subprogram
0065 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0066 00c7 | | Action Elaborate_Subprogram
0067 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0068 00c7 | | Action Elaborate_Subprogram
0069 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006a 00c7 | | Action Elaborate_Subprogram
006b BODY_0008:
006b 00bc | | Action Signal_Activated
006c 00bb | | Action Signal_Completion
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0078 | x | .CONST 0x0078 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 e20d | | Load 0x1,0xd
0074 03bc | | Declare_Variable Access,By_Allocation
0075 00d8 | | Load_Top At_Offset_0
0076 0227 | ' | Execute Access,All_Reference
0077 1c00 | | Execute_Immediate Run_Utility,0x0
0078 BODY_0070:
0078 00db | | Load_Top At_Offset_3
0079 00d9 | | Load_Top At_Offset_1
007a 0227 | ' | Execute Access,All_Reference
007b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
007c 4800 |H | Short_Literal 0x0
007d 00d9 | | Load_Top At_Offset_1
007e 0227 | ' | Execute Access,All_Reference
007f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0080 4800 |H | Short_Literal 0x0
0081 00d9 | | Load_Top At_Offset_1
0082 0227 | ' | Execute Access,All_Reference
0083 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0084 4801 |H | Short_Literal 0x1
0085 00d9 | | Load_Top At_Offset_1
0086 0227 | ' | Execute Access,All_Reference
0087 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0088 00d8 | | Load_Top At_Offset_0
0089 a5fe | | Store_Unchecked 0x2,-0x2
008a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e21b | | Load 0x1,0x1b
0095 e21c | | Load 0x1,0x1c
0096 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0097 8004 | | Call 0x0,0x4
0098 003b | ; | Store_Top Access,At_Offset_3
0099 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00db | | Load_Top At_Offset_3
00a4 01db | | Execute Vector,Length
00a5 00db | | Load_Top At_Offset_3
00a6 0227 | ' | Execute Access,All_Reference
00a7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00a8 01dc | | Execute Vector,Last
00a9 e5ff | | Load 0x2,-0x1
00aa 0227 | ' | Execute Access,All_Reference
00ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ac 0272 | r | Execute Discrete,Minus
00ad 0a01 | | Execute_Immediate Plus,0x1
00ae 027a | z | Execute Discrete,Less_Equal
00af 681e |h | Jump_Zero 0xce
00b0 00db | | Load_Top At_Offset_3
00b1 00db | | Load_Top At_Offset_3
00b2 0227 | ' | Execute Access,All_Reference
00b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b4 e5ff | | Load 0x2,-0x1
00b5 0227 | ' | Execute Access,All_Reference
00b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b7 e5fe | | Load 0x2,-0x2
00b8 01db | | Execute Vector,Length
00b9 0273 | s | Execute Discrete,Plus
00ba 0aff | | Execute_Immediate Plus,-0x1
00bb 00d8 | | Load_Top At_Offset_0
00bc 00e2 | | Load_Encached Integer_Cache
00bd 0260 | ` | Execute Discrete,In_Type
00be 7001 |p | Jump_Nonzero 0xc0
00bf 0801 | | Execute_Immediate Raise,0x1
00c0 e5ff | | Load 0x2,-0x1
00c1 0229 | ) | Execute Access,All_Read
00c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c3 01ce | | Execute Vector,Slice_Write
00c4 00da | | Load_Top At_Offset_2
00c5 0227 | ' | Execute Access,All_Reference
00c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c7 e5fe | | Load 0x2,-0x2
00c8 01db | | Execute Vector,Length
00c9 0273 | s | Execute Discrete,Plus
00ca 00db | | Load_Top At_Offset_3
00cb 0227 | ' | Execute Access,All_Reference
00cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ce 4800 |H | Short_Literal 0x0
00cf 00db | | Load_Top At_Offset_3
00d0 0227 | ' | Execute Access,All_Reference
00d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d2 e5fe | | Load 0x2,-0x2
00d3 01db | | Execute Vector,Length
00d4 0273 | s | Execute Discrete,Plus
00d5 00d8 | | Load_Top At_Offset_0
00d6 00e3 | | Load_Encached Natural_Cache
00d7 0260 | ` | Execute Discrete,In_Type
00d8 7001 |p | Jump_Nonzero 0xda
00d9 0801 | | Execute_Immediate Raise,0x1
00da 8220 | | Call 0x1,0x20
00db 00db | | Load_Top At_Offset_3
00dc 0227 | ' | Execute Access,All_Reference
00dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00de e003 | | Load 0x0,0x3
00df 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e0 4800 |H | Short_Literal 0x0
00e1 00db | | Load_Top At_Offset_3
00e2 0227 | ' | Execute Access,All_Reference
00e3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e4 0aff | | Execute_Immediate Plus,-0x1
00e5 e5ff | | Load 0x2,-0x1
00e6 0227 | ' | Execute Access,All_Reference
00e7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00e8 01cf | | Execute Vector,Slice_Read
00e9 00db | | Load_Top At_Offset_3
00ea 0227 | ' | Execute Access,All_Reference
00eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ec e003 | | Load 0x0,0x3
00ed 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ee 00db | | Load_Top At_Offset_3
00ef 00db | | Load_Top At_Offset_3
00f0 0227 | ' | Execute Access,All_Reference
00f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f2 e003 | | Load 0x0,0x3
00f3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f4 4800 |H | Short_Literal 0x0
00f5 00db | | Load_Top At_Offset_3
00f6 0227 | ' | Execute Access,All_Reference
00f7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f9 0000 0000 | | .BLANK 0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4801 |H | Short_Literal 0x1
0104 00db | | Load_Top At_Offset_3
0105 0227 | ' | Execute Access,All_Reference
0106 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0107 00d8 | | Load_Top At_Offset_0
0108 00e3 | | Load_Encached Natural_Cache
0109 0260 | ` | Execute Discrete,In_Type
010a 7001 |p | Jump_Nonzero 0x10c
010b 0801 | | Execute_Immediate Raise,0x1
010c 8220 | | Call 0x1,0x20
010d 00db | | Load_Top At_Offset_3
010e 0227 | ' | Execute Access,All_Reference
010f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0110 e003 | | Load 0x0,0x3
0111 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0112 4800 |H | Short_Literal 0x0
0113 00db | | Load_Top At_Offset_3
0114 0227 | ' | Execute Access,All_Reference
0115 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0116 0aff | | Execute_Immediate Plus,-0x1
0117 e5ff | | Load 0x2,-0x1
0118 0227 | ' | Execute Access,All_Reference
0119 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
011a 01cf | | Execute Vector,Slice_Read
011b 00db | | Load_Top At_Offset_3
011c 0227 | ' | Execute Access,All_Reference
011d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011e e003 | | Load 0x0,0x3
011f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0120 00da | | Load_Top At_Offset_2
0121 0227 | ' | Execute Access,All_Reference
0122 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0123 e003 | | Load 0x0,0x3
0124 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0125 4800 |H | Short_Literal 0x0
0126 00db | | Load_Top At_Offset_3
0127 0227 | ' | Execute Access,All_Reference
0128 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 8214 | | Call 0x1,0x14
0135 680a |h | Jump_Zero 0x140
0136 00da | | Load_Top At_Offset_2
0137 0227 | ' | Execute Access,All_Reference
0138 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0139 7004 |p | Jump_Nonzero 0x13e
013a 4800 |H | Short_Literal 0x0
013b 00db | | Load_Top At_Offset_3
013c 0227 | ' | Execute Access,All_Reference
013d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
013e 4801 |H | Short_Literal 0x1
013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0140 4800 |H | Short_Literal 0x0
0141 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150 | P | .CONST 0x0150 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b 00db | | Load_Top At_Offset_3
014c 01dd | | Execute Vector,First
014d 00e2 | | Load_Encached Integer_Cache
014e 03f1 | | Declare_Variable Discrete,With_Value
014f 00e2 | | Load_Encached Integer_Cache
0150 BODY_0148:
0150 00cf | | Action Mark_Auxiliary
0151 783a |x: | Jump 0x18c
0152 e5ff | | Load 0x2,-0x1
0153 8222 | " | Call 0x1,0x22
0154 e5fe | | Load 0x2,-0x2
0155 01dc | | Execute Vector,Last
0156 00db | | Load_Top At_Offset_3
0157 0272 | r | Execute Discrete,Minus
0158 0a01 | | Execute_Immediate Plus,0x1
0159 e5ff | | Load 0x2,-0x1
015a 0227 | ' | Execute Access,All_Reference
015b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
015c 027d | } | Execute Discrete,Greater
015d 680e |h | Jump_Zero 0x16c
015e e5ff | | Load 0x2,-0x1
015f 0227 | ' | Execute Access,All_Reference
0160 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0161 6802 |h | Jump_Zero 0x164
0162 e20e | | Load 0x1,0xe
0163 0257 | W | Execute Discrete,Raise
0164 00da | | Load_Top At_Offset_2
0165 e5ff | | Load 0x2,-0x1
0166 0227 | ' | Execute Access,All_Reference
0167 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0168 0273 | s | Execute Discrete,Plus
0169 0aff | | Execute_Immediate Plus,-0x1
016a 005a | Z | Store_Top Discrete,At_Offset_2
016b 7803 |x | Jump 0x16f
016c e5fe | | Load 0x2,-0x2
016d 01dc | | Execute Vector,Last
016e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
016f e5fe | | Load 0x2,-0x2
0170 00db | | Load_Top At_Offset_3
0171 00db | | Load_Top At_Offset_3
0172 00da | | Load_Top At_Offset_2
0173 035b | [ | Declare_Type Array,Constrained
0174 00d0 | | Action Swap_Control
0175 01cd | | Execute Vector,Slice_Reference
0176 00d8 | | Load_Top At_Offset_0
0177 e5ff | | Load 0x2,-0x1
0178 0227 | ' | Execute Access,All_Reference
0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017a e003 | | Load 0x0,0x3
017b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017c 00d2 | | Pop_Control Pop_Count_2
017d e5ff | | Load 0x2,-0x1
017e 0227 | ' | Execute Access,All_Reference
017f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0180 00da | | Load_Top At_Offset_2
0181 e402 | | Load 0x2,0x2
0182 0272 | r | Execute Discrete,Minus
0183 0a01 | | Execute_Immediate Plus,0x1
0184 0272 | r | Execute Discrete,Minus
0185 e5ff | | Load 0x2,-0x1
0186 0227 | ' | Execute Access,All_Reference
0187 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0188 00d9 | | Load_Top At_Offset_1
0189 0a01 | | Execute_Immediate Plus,0x1
018a 005b | [ | Store_Top Discrete,At_Offset_3
018b 00c9 | | Action Pop_Auxiliary_Loop
018c 00da | | Load_Top At_Offset_2
018d e5fe | | Load 0x2,-0x2
018e 01dc | | Execute Vector,Last
018f 027a | z | Execute Discrete,Less_Equal
0190 77c1 |w | Jump_Nonzero 0x152
0191 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0192 0000 0000 | | .BLANK 0000[0x6]
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 8222 | " | Call 0x1,0x22
019d 00da | | Load_Top At_Offset_2
019e 0227 | ' | Execute Access,All_Reference
019f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01a0 0f00 | | Execute_Immediate Equal,0x0
01a1 00db | | Load_Top At_Offset_3
01a2 0227 | ' | Execute Access,All_Reference
01a3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01a4 0279 | y | Execute Discrete,And
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b1 | | .CONST 0x01b1 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab 4801 |H | Short_Literal 0x1
01ac 4a00 |J | Short_Literal 0x200
01ad e002 | | Load 0x0,0x2
01ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01af 035b | [ | Declare_Type Array,Constrained
01b0 0337 | 7 | Declare_Variable Array
01b1 BODY_01a8:
01b1 00cf | | Action Mark_Auxiliary
01b2 e5ff | | Load 0x2,-0x1
01b3 8222 | " | Call 0x1,0x22
01b4 00cf | | Action Mark_Auxiliary
01b5 7810 |x | Jump 0x1c6
01b6 00da | | Load_Top At_Offset_2
01b7 e5ff | | Load 0x2,-0x1
01b8 0227 | ' | Execute Access,All_Reference
01b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ba e003 | | Load 0x0,0x3
01bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bc 00d1 | | Pop_Control Pop_Count_1
01bd e5ff | | Load 0x2,-0x1
01be 0227 | ' | Execute Access,All_Reference
01bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c0 4e00 |N | Short_Literal -0x200
01c1 0273 | s | Execute Discrete,Plus
01c2 e5ff | | Load 0x2,-0x1
01c3 0227 | ' | Execute Access,All_Reference
01c4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c5 00c9 | | Action Pop_Auxiliary_Loop
01c6 e5ff | | Load 0x2,-0x1
01c7 0227 | ' | Execute Access,All_Reference
01c8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c9 4a00 |J | Short_Literal 0x200
01ca 027d | } | Execute Discrete,Greater
01cb 77ea |w | Jump_Nonzero 0x1b6
01cc 00ce | | Action Pop_Auxiliary
01cd e5ff | | Load 0x2,-0x1
01ce 0227 | ' | Execute Access,All_Reference
01cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d0 0c01 | | Execute_Immediate Greater_Equal,0x1
01d1 6814 |h | Jump_Zero 0x1e6
01d2 00d9 | | Load_Top At_Offset_1
01d3 4801 |H | Short_Literal 0x1
01d4 e5ff | | Load 0x2,-0x1
01d5 0227 | ' | Execute Access,All_Reference
01d6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d7 00da | | Load_Top At_Offset_2
01d8 035b | [ | Declare_Type Array,Constrained
01d9 00d0 | | Action Swap_Control
01da 01cd | | Execute Vector,Slice_Reference
01db 00d8 | | Load_Top At_Offset_0
01dc e5ff | | Load 0x2,-0x1
01dd 0227 | ' | Execute Access,All_Reference
01de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01df e003 | | Load 0x0,0x3
01e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e1 00d2 | | Pop_Control Pop_Count_2
01e2 4800 |H | Short_Literal 0x0
01e3 e5ff | | Load 0x2,-0x1
01e4 0227 | ' | Execute Access,All_Reference
01e5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01e6 e5ff | | Load 0x2,-0x1
01e7 0227 | ' | Execute Access,All_Reference
01e8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01e9 7002 |p | Jump_Nonzero 0x1ec
01ea 00c9 | | Action Pop_Auxiliary_Loop
01eb 7fc6 | | Jump 0x1b2
01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4608 |F | Jump_Case 0x9
01f4 7808 |x | Jump 0x1fd ; case 0x0
01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01f6 780d |x | Jump 0x204 ; case 0x2
01f7 780c |x | Jump 0x204 ; case 0x3
01f8 780b |x | Jump 0x204 ; case 0x4
01f9 780a |x | Jump 0x204 ; case 0x5
01fa 7809 |x | Jump 0x204 ; case 0x6
01fb 7808 |x | Jump 0x204 ; case 0x7
01fc 7807 |x | Jump 0x204 ; case 0x8
01fd 00da | | Load_Top At_Offset_2
01fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ff 0125 | % | Execute Any,Set_Constraint
0200 00da | | Load_Top At_Offset_2
0201 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0202 1c00 | | Execute_Immediate Run_Utility,0x0
0203 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0204 0869 | i | Execute_Immediate Raise,0x69
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0210 | | .CONST 0x0210 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0003 | | .CONST 0x0003 ; Number of locals
020b INIT_0208:
020b e21a | | Load 0x1,0x1a
020c 0337 | 7 | Declare_Variable Array
020d 00db | | Load_Top At_Offset_3
020e 00e3 | | Load_Encached Natural_Cache
020f 03f1 | | Declare_Variable Discrete,With_Value
0210 BODY_0208:
0210 00d8 | | Load_Top At_Offset_0
0211 48ff |H | Short_Literal 0xff
0212 0279 | y | Execute Discrete,And
0213 00d8 | | Load_Top At_Offset_0
0214 e007 | | Load 0x0,0x7
0215 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0216 0260 | ` | Execute Discrete,In_Type
0217 7001 |p | Jump_Nonzero 0x219
0218 0801 | | Execute_Immediate Raise,0x1
0219 4804 |H | Short_Literal 0x4
021a 00db | | Load_Top At_Offset_3
021b 01d6 | | Execute Vector,Field_Write
021c 00d8 | | Load_Top At_Offset_0
021d 09f8 | | Execute_Immediate Binary_Scale,-0x8
021e 0059 | Y | Store_Top Discrete,At_Offset_1
021f 00d8 | | Load_Top At_Offset_0
0220 48ff |H | Short_Literal 0xff
0221 0279 | y | Execute Discrete,And
0222 00d8 | | Load_Top At_Offset_0
0223 e007 | | Load 0x0,0x7
0224 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0225 0260 | ` | Execute Discrete,In_Type
0226 7001 |p | Jump_Nonzero 0x228
0227 0801 | | Execute_Immediate Raise,0x1
0228 4803 |H | Short_Literal 0x3
0229 00db | | Load_Top At_Offset_3
022a 01d6 | | Execute Vector,Field_Write
022b 00d8 | | Load_Top At_Offset_0
022c 09f8 | | Execute_Immediate Binary_Scale,-0x8
022d 0059 | Y | Store_Top Discrete,At_Offset_1
022e 00d8 | | Load_Top At_Offset_0
022f 48ff |H | Short_Literal 0xff
0230 0279 | y | Execute Discrete,And
0231 00d8 | | Load_Top At_Offset_0
0232 e007 | | Load 0x0,0x7
0233 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0234 0260 | ` | Execute Discrete,In_Type
0235 7001 |p | Jump_Nonzero 0x237
0236 0801 | | Execute_Immediate Raise,0x1
0237 4802 |H | Short_Literal 0x2
0238 00db | | Load_Top At_Offset_3
0239 01d6 | | Execute Vector,Field_Write
023a 00d8 | | Load_Top At_Offset_0
023b 09f8 | | Execute_Immediate Binary_Scale,-0x8
023c 0059 | Y | Store_Top Discrete,At_Offset_1
023d e5fe | | Load 0x2,-0x2
023e 6804 |h | Jump_Zero 0x243
023f 00d8 | | Load_Top At_Offset_0
0240 4880 |H | Short_Literal 0x80
0241 0273 | s | Execute Discrete,Plus
0242 0059 | Y | Store_Top Discrete,At_Offset_1
0243 00d8 | | Load_Top At_Offset_0
0244 48ff |H | Short_Literal 0xff
0245 0279 | y | Execute Discrete,And
0246 00d8 | | Load_Top At_Offset_0
0247 e007 | | Load 0x0,0x7
0248 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0249 0260 | ` | Execute Discrete,In_Type
024a 7001 |p | Jump_Nonzero 0x24c
024b 0801 | | Execute_Immediate Raise,0x1
024c 4801 |H | Short_Literal 0x1
024d 00db | | Load_Top At_Offset_3
024e 01d6 | | Execute Vector,Field_Write
024f 00d9 | | Load_Top At_Offset_1
0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0251 0000 0000 | | .BLANK 0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025c | \ | .CONST 0x025c ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b 00e2 | | Load_Encached Integer_Cache
025c BODY_0258:
025c 4801 |H | Short_Literal 0x1
025d e5ff | | Load 0x2,-0x1
025e 01d7 | | Execute Vector,Field_Read
025f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0260 00d8 | | Load_Top At_Offset_0
0261 0c80 | | Execute_Immediate Greater_Equal,-0x80
0262 6806 |h | Jump_Zero 0x269
0263 00d8 | | Load_Top At_Offset_0
0264 0a80 | | Execute_Immediate Plus,-0x80
0265 0059 | Y | Store_Top Discrete,At_Offset_1
0266 4801 |H | Short_Literal 0x1
0267 a5fd | | Store_Unchecked 0x2,-0x3
0268 7802 |x | Jump 0x26b
0269 4800 |H | Short_Literal 0x0
026a a5fd | | Store_Unchecked 0x2,-0x3
026b 00d8 | | Load_Top At_Offset_0
026c 0908 | | Execute_Immediate Binary_Scale,0x8
026d 4802 |H | Short_Literal 0x2
026e e5ff | | Load 0x2,-0x1
026f 01d7 | | Execute Vector,Field_Read
0270 0273 | s | Execute Discrete,Plus
0271 0059 | Y | Store_Top Discrete,At_Offset_1
0272 00d8 | | Load_Top At_Offset_0
0273 0908 | | Execute_Immediate Binary_Scale,0x8
0274 4803 |H | Short_Literal 0x3
0275 e5ff | | Load 0x2,-0x1
0276 01d7 | | Execute Vector,Field_Read
0277 0273 | s | Execute Discrete,Plus
0278 0059 | Y | Store_Top Discrete,At_Offset_1
0279 00d8 | | Load_Top At_Offset_0
027a 0908 | | Execute_Immediate Binary_Scale,0x8
027b 4804 |H | Short_Literal 0x4
027c e5ff | | Load 0x2,-0x1
027d 01d7 | | Execute Vector,Field_Read
027e 0273 | s | Execute Discrete,Plus
027f c5fe | | Store 0x2,-0x2
0280 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0291 | | .CONST 0x0291 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 4801 |H | Short_Literal 0x1
028c 4804 |H | Short_Literal 0x4
028d e002 | | Load 0x0,0x2
028e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028f 035b | [ | Declare_Type Array,Constrained
0290 0337 | 7 | Declare_Variable Array
0291 BODY_0288:
0291 00cf | | Action Mark_Auxiliary
0292 7815 |x | Jump 0x2a8
0293 00d9 | | Load_Top At_Offset_1
0294 e5ff | | Load 0x2,-0x1
0295 0227 | ' | Execute Access,All_Reference
0296 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0297 e003 | | Load 0x0,0x3
0298 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0299 00d1 | | Pop_Control Pop_Count_1
029a e5ff | | Load 0x2,-0x1
029b 0229 | ) | Execute Access,All_Read
029c e5ff | | Load 0x2,-0x1
029d 0229 | ) | Execute Access,All_Read
029e 00e1 | | Load_Encached Boolean_Cache
029f 00e2 | | Load_Encached Integer_Cache
02a0 e402 | | Load 0x2,0x2
02a1 8221 | ! | Call 0x1,0x21
02a2 00da | | Load_Top At_Offset_2
02a3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02a4 00da | | Load_Top At_Offset_2
02a5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02a6 00d2 | | Pop_Control Pop_Count_2
02a7 00c9 | | Action Pop_Auxiliary_Loop
02a8 e5ff | | Load 0x2,-0x1
02a9 0227 | ' | Execute Access,All_Reference
02aa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02ab 0f00 | | Execute_Immediate Equal,0x0
02ac e5ff | | Load 0x2,-0x1
02ad 0227 | ' | Execute Access,All_Reference
02ae 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02af 0f00 | | Execute_Immediate Equal,0x0
02b0 0279 | y | Execute Discrete,And
02b1 77e1 |w | Jump_Nonzero 0x293
02b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b3 0000 0000 | | .BLANK 0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0eeb,0x0000,0x0001,0x0000
02be e5de ec02 | | .XXX[0x142]
02c0 06c5 c808 | |
02c2 6401 d550 |d P|
02c4 76d5 ba6d |v m|
02c6 6263 35b9 |bc5 |
02c8 5400 09e2 |T |
02ca ec02 deb8 | |
02cc 0000 c404 | |
02ce 6402 42d0 |d B |
02d0 76d6 6688 |v f |
02d2 1401 0406 | |
02d4 f9f5 3dde | = |
02d6 ec01 b68c | |
02d8 280b 920d |( |
02da f9e7 4dd2 | M |
02dc 5226 6e7b |R&n{|
02de 9934 76d4 | 4v |
02e0 e2d0 1001 | |
02e2 6808 7801 |h x |
02e4 ea0c 76d7 | v |
02e6 6a7c b2d5 |j| |
02e8 5800 4ed5 |X N |
02ea f6c3 a810 | |
02ec 6401 1403 |d |
02ee f5de f001 | |
02f0 bac5 ca7c | ||
02f2 1ad6 f9e6 | |
02f4 f002 a23c | <|
02f6 1402 5004 | P |
02f8 6401 0c01 |d |
02fa 29de f002 |) |
02fc eead f808 | |
02fe 6403 88a4 |d |
0300 e5de f002 | |
0302 5240 1801 |R@ |
0304 3c0e f9f6 |< |
0306 29de f000 |) |
0308 d64c 2001 | L |
030a 980a f9f6 | |
030c 45e2 f003 |E |
030e a69d 4c14 | L |
0310 6400 e555 |d U|
0312 7ed6 c23a |~ :|
0314 7ccc 86d6 || |
0316 b9e6 f000 | |
0318 e2d1 4e87 | N |
031a 35b9 7819 |5 x |
031c 7ed4 6298 |~ b |
031e 1c01 0408 | |
0320 cdc2 01dd | |
0322 b80e ca25 | %|
0324 35bd 6174 |5 at|
0326 e5de f400 | |
0328 1a42 e627 | B '|
032a 3209 ee10 |2 |
032c 2c02 1542 |, B|
032e 0c95 fc0e | |
0330 22aa 8de2 |" |
0332 f400 32c2 | 2 |
0334 d808 6400 | d |
0336 d8ca 2ed4 | . |
0338 f698 2404 | $ |
033a 1aa6 d9de | |
033c f401 fa9c | |
033e e40c 6402 | d |
0340 d0e2 16d4 | |
0342 92d6 0805 | |
0344 64c2 02d6 |d |
0346 4ebc 0c03 |N |
0348 1008 6400 | d |
034a b236 16d4 | 6 |
034c f640 2000 | @ |
034e b805 d5c1 | |
0350 65de f401 |e |
0352 a648 9408 | H |
0354 cdc0 d9f5 | |
0356 315e e224 |1^ $|
0358 6c10 6402 |l d |
035a 5002 09e6 |P |
035c f403 9ea7 | |
035e 7ad0 a51e |z |
0360 2ed5 fe52 |. R|
0362 5c43 35ba |\C5 |
0364 7002 d2d6 |p |
0366 0e8c a404 | |
0368 3ab0 f9e2 |: |
036a f803 ea68 | h|
036c 20bc 6402 | d |
036e 8803 21ea | ! |
0370 f802 4e64 | Nd|
0372 0402 2c04 | , |
0374 6402 7844 |d xD|
0376 e5dc 18c7 | |
0378 a22b 35ba | +5 |
037a 7800 9de6 |x |
037c f800 0a81 | |
037e c24b 35bb | K5 |
0380 68bb 56d4 |h V |
0382 0644 1403 | D |
0384 f00c 6400 | d |
0386 0a07 56d6 | V |
0388 be8c 1001 | |
038a 7c0b 31f7 || 1 |
038c 05de f803 | |
038e b244 0003 | D |
0390 e008 6403 | d |
0392 daa7 56d5 | V |
0394 0662 5007 | bP |
0396 ee89 41e2 | A |
0398 f801 32c6 | 2 |
039a cad5 c002 | |
039c 21f6 f800 |! |
039e be44 0003 | D |
03a0 e00c 7ab4 | z |
03a2 1de2 f803 | |
03a4 a233 f67f | 3 |
03a6 35ba 4801 |5 H |
03a8 b9e2 f801 | |
03aa de8c b8a7 | |
03ac 320a f000 |2 |
03ae 95e2 f801 | |
03b0 528a fc06 |R |
03b2 7ad5 a1e6 |z |
03b4 f801 2864 | (d|
03b6 0002 2404 | $ |
03b8 ea29 65e1 | )e |
03ba 10fa e224 | $|
03bc c010 49e1 | I |
03be addd 242e | $.|
03c0 ca24 dc08 | $ |
03c2 3ab2 09e6 |: |
03c4 fc02 7698 | v |
03c6 7c1a adc9 || |
03c8 51de fc00 |Q |
03ca d260 0400 | ` |
03cc 8010 6800 | h |
03ce a800 8ada | |
03d0 7e38 0800 |~8 |
03d2 7817 5aca |x Z |
03d4 8de2 fc00 | |
03d6 ee4f f678 | O x|
03d8 fcd0 c802 | |
03da d9de fc01 | |
03dc 169d 3c18 | < |
03de 7402 4104 |t A |
03e0 e5de fc03 | |
03e2 1c02 1285 | |
03e4 9a8a 21f6 | ! |
03e6 fc03 b6ae | |
03e8 fc9a 1ece | |
03ea edd4 fed8 | |
03ec 3a78 0001 |:x |
03ee c415 acc3 | |
03f0 9de7 0001 | |
03f2 bac7 9e7f | |
03f4 35bb 2c58 |5 ,X|
03f6 e5df 0000 | |
03f8 62ba 9414 |b |
03fa 6800 cc00 |h |
03fc 9de7 61d4 | a |
03fe 3228 4404 |2(D |