|
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_1060f5
└─⟦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 2801 9c08 |( | .XXX[0x142]
02c0 ea14 d0e2 | |
02c2 56fa 9719 |V |
02c4 bb4c 1801 | L |
02c6 92fc fe1b | |
02c8 cdb3 3019 | 0 |
02ca fada b915 | |
02cc fa2b 0001 | + |
02ce 6257 4a10 |bWJ |
02d0 3238 865a |28 Z|
02d2 6e8d 9f3e |n >|
02d4 a402 4f20 | O |
02d6 5402 e22f |T /|
02d8 0809 ba3d | =|
02da 46d8 8a28 |F (|
02dc 2003 ea2b | +|
02de 2611 a64b |& K|
02e0 d68e 551a | U |
02e2 7336 e810 |s6 |
02e4 2402 7800 |$ x |
02e6 4e15 36a9 |N 6 |
02e8 934d 3c9d | M< |
02ea 9f4d 6f3d | Mo=|
02ec aec8 9afa | |
02ee b80e be14 | |
02f0 1402 a401 | |
02f2 640c 9a16 |d |
02f4 f210 1402 | |
02f6 9c02 a74c | L|
02f8 3630 1401 |60 |
02fa 19bb 4dd3 | M |
02fc be1d 1222 | "|
02fe ee54 02ce | T |
0300 374d 5b4e |7M[N|
0302 f034 6ac7 | 4j |
0304 3e1f 661e |> f |
0306 c892 f34c | L|
0308 5003 5631 |P V1|
030a e115 7f18 | |
030c 6800 de39 |h 9|
030e 240a f418 |$ |
0310 323b e71d |2; |
0312 2241 6f3d |"Ao=|
0314 7dfd 3eda |} > |
0316 9c01 46d9 | F |
0318 8c8b f339 | 9|
031a 7e21 cc08 |~! |
031c 4c01 3edb |L > |
031e 72ac 772a |r w*|
0320 d51b 4002 | @ |
0322 674d 774f |gMwO|
0324 c921 205e | ! ^|
0326 8e62 df4d | b M|
0328 3214 5801 |2 X |
032a 3216 9b4d |2 M|
032c 91dd 9f4f | O|
032e 6b4d 2c65 |kM,e|
0330 d6f7 3e5b | >[|
0332 7b4e 900f |{N |
0334 834e 900e | N |
0336 9b4e d89f | N |
0338 4dd2 af4d |M M|
033a d802 0eb8 | |
033c d62c 1400 | , |
033e bcff 4dd1 | M |
0340 c6e1 02ca | |
0342 174c ca18 | L |
0344 1a49 634d | IcM|
0346 6f4d ab4d |oM M|
0348 734d b74c |sM L|
034a f74f 242d | O$-|
034c c74d 8b4e | M N|
034e 8a1d 934d | M|
0350 719d 9f4f |q O|
0352 872b f74d | + M|
0354 6f4d b34d |oM M|
0356 eb4c 0751 | L Q|
0358 b1a2 431f | C |
035a 140b 0f4d | M|
035c 8f4e 0000 | N |
035e 1402 96b7 | |
0360 4dd2 9297 |M |
0362 974c 1403 | L |
0364 7e77 fe46 |~w F|
0366 5a11 fa28 |Z (|
0368 fc05 934d | M|
036a 4003 ca12 |@ |
036c a229 bb4c | ) L|
036e 1400 5e59 | ^Y|
0370 0580 7751 | wQ|
0372 680e 9b4d |h M|
0374 2400 8b53 |$ S|
0376 c672 867d | r }|
0378 374f 86a5 |7O |
037a e810 c352 | R|
037c 6a48 4273 |jHBs|
037e f2c0 cb53 | S|
0380 d68c 3403 | 4 |
0382 f34c 9804 | L |
0384 3130 9807 |10 |
0386 11d8 3752 | 7R|
0388 2f08 1403 |/ |
038a 0a86 fa38 | 8|
038c 4751 cf4c |GQ L|
038e 5353 eceb |SS |
0390 1e10 2750 | 'P|
0392 eb51 6f4c | QoL|
0394 f750 2658 | P&X|
0396 9352 a000 | R |
0398 0f51 1350 | Q P|
039a 1400 a401 | |
039c db4f c673 | O s|
039e de84 96e4 | |
03a0 6752 734d |gRsM|
03a2 fb4e 3a29 | N:)|
03a4 ee65 36da | e6 |
03a6 0f4f e74c | O L|
03a8 6002 1f4f |` O|
03aa 2e3d 6f3e |.=o>|
03ac 86df 18ff | |
03ae 0813 534e | SN|
03b0 474f 5c1a |GO\ |
03b2 4f4d d80f |OM |
03b4 2213 2a11 |" * |
03b6 0648 7ad3 | Hz |
03b8 2518 d401 |% |
03ba c228 0c00 | ( |
03bc 2003 7b2e | {.|
03be 934e b915 | N |
03c0 934f 3dfe | O= |
03c2 874d cb53 | M S|
03c4 9f4e 7b4c | N{L|
03c6 5350 9ccf |SP |
03c8 bf4c 5350 | LSP|
03ca 1802 bb4d | M|
03cc 934d f87c | M ||
03ce 9a16 cf4c | L|
03d0 1402 06fb | |
03d2 45ef df39 |E 9|
03d4 bb50 1002 | P |
03d6 eb4e b566 | N f|
03d8 f34f 91ac | O |
03da eb53 034d | S M|
03dc d64f 161b | O |
03de 134e 234c | N#L|
03e0 2003 1f4d | M|
03e2 8751 cb50 | Q P|
03e4 d1cb 334f | 3O|
03e6 3b4d 6b53 |;MkS|
03e8 2e3c e62b |.< +|
03ea 4f4e 3f4f |ON?O|
03ec 574c dea6 |WL |
03ee 9521 c352 | ! R|
03f0 1e9c fb52 | R|
03f2 0f22 9ecb | " |
03f4 125d 6b53 | ]kS|
03f6 f2d6 1f32 | 2|
03f8 b752 be17 | R |
03fa 3823 d33b |8# ;|
03fc 1e10 6751 | gQ|
03fe 5c00 4e15 |\ N |