|
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_1b488b
└─⟦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 02e0 | | .CONST 0x02e0 ; 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 007b | { | .CONST 0x007b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 60a2 |` | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 4800 |H | Short_Literal 0x0
0011 4802 |H | Short_Literal 0x2
0012 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
001d 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
001f 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0021 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0023 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0025 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0027 4820 |H | Short_Literal 0x20
0028 e002 | | Load 0x0,0x2
0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002a 1c07 | | Execute_Immediate Run_Utility,0x7
002b 0129 | ) | Execute Any,Make_Visible
002c 4820 |H | Short_Literal 0x20
002d e002 | | Load 0x0,0x2
002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002f 1c07 | | Execute_Immediate Run_Utility,0x7
0030 0129 | ) | Execute Any,Make_Visible
0031 4820 |H | Short_Literal 0x20
0032 e002 | | Load 0x0,0x2
0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0034 1c07 | | Execute_Immediate Run_Utility,0x7
0035 0129 | ) | Execute Any,Make_Visible
0036 e20e | | Load 0x1,0xe
0037 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
0039 4804 |H | Short_Literal 0x4
003a 032e | . | Declare_Type Record,Defined,Visible
003b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
003d 0093 0000 | | push_full_address 0x0
003f 606c |`l | Indirect_Literal Discrete,0xac,{0x80000000, 0x00010000}
0040 0273 | s | Execute Discrete,Plus
0041 e003 | | Load 0x0,0x3
0042 0273 | s | Execute Discrete,Plus
0043 e004 | | Load 0x0,0x4
0044 0273 | s | Execute Discrete,Plus
0045 00da | | Load_Top At_Offset_2
0046 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0047 e005 | | Load 0x0,0x5
0048 0386 | | Declare_Variable Package,Visible
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b e006 | | Load 0x0,0x6
004c 00d9 | | Load_Top At_Offset_1
004d 0098 | | Execute Package,Field_Read_Dynamic
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4801 |H | Short_Literal 0x1
0050 032e | . | Declare_Type Record,Defined,Visible
0051 00bf | | Action Accept_Activation
0052 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0053 00c7 | | Action Elaborate_Subprogram
0054 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0056 e007 | | Load 0x0,0x7
0057 00db | | Load_Top At_Offset_3
0058 0095 | | Execute Package,Field_Reference_Dynamic
0059 00c6 | | Action Check_Subprogram_Elaborated
005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
005b 0093 0000 | | push_full_address 0x0
005d 604a |`J | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00020000}
005e 0273 | s | Execute Discrete,Plus
005f e003 | | Load 0x0,0x3
0060 0273 | s | Execute Discrete,Plus
0061 e008 | | Load 0x0,0x8
0062 0273 | s | Execute Discrete,Plus
0063 4800 |H | Short_Literal 0x0
0064 0007 | | Action Break_Optional
0065 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
0067 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0068 00c7 | | Action Elaborate_Subprogram
0069 1d10 | | Execute_Immediate Reference_Lex_1,0x10
006a 00c7 | | Action Elaborate_Subprogram
006b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
006c 00c7 | | Action Elaborate_Subprogram
006d 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
006f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0070 00c7 | | Action Elaborate_Subprogram
0071 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0072 00c7 | | Action Elaborate_Subprogram
0073 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0074 00c7 | | Action Elaborate_Subprogram
0075 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0076 00c7 | | Action Elaborate_Subprogram
0077 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0078 00c7 | | Action Elaborate_Subprogram
0079 1d17 | | Execute_Immediate Reference_Lex_1,0x17
007a 00c7 | | Action Elaborate_Subprogram
007b BODY_0008:
007b 00bc | | Action Signal_Activated
007c 00bb | | Action Signal_Completion
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x8
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0085 7807 |x | Jump 0x8d ; case 0x1
0086 780a |x | Jump 0x91 ; case 0x2
0087 780e |x | Jump 0x96 ; case 0x3
0088 7811 |x | Jump 0x9a ; case 0x4
0089 7812 |x | Jump 0x9c ; case 0x5
008a 7813 |x | Jump 0x9e ; case 0x6
008b 7816 |x | Jump 0xa2 ; case 0x7
008c 4302 |C | .XXX[0x1]
008d 00da | | Load_Top At_Offset_2
008e 0091 02a3 | | Action Push_String_Extended_Indexed,0x2a3 ; "NO_STATE"
0090 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0091 00db | | Load_Top At_Offset_3
0092 00db | | Load_Top At_Offset_3
0093 00e0 | | Load_Encached Standard_Cache
0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 00da | | Load_Top At_Offset_2
0097 00e0 | | Load_Encached Standard_Cache
0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0099 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009a 00db | | Load_Top At_Offset_3
009b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009c 00db | | Load_Top At_Offset_3
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e e20e | | Load 0x1,0xe
009f 00dc | | Load_Top At_Offset_4
00a0 0267 | g | Execute Discrete,Predecessor
00a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a2 e20e | | Load 0x1,0xe
00a3 00dc | | Load_Top At_Offset_4
00a4 0268 | h | Execute Discrete,Successor
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 0000 0000 | | .XXX[0x2]
00a8 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00ac 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00b0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00b4 0000 0000 | | .BLANK 0000[0x4]
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 e009 | | Load 0x0,0x9
00bc e21a | | Load 0x1,0x1a
00bd 0096 | | Execute Package,Entry
00be 00db | | Load_Top At_Offset_3
00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00cd e00a | | Load 0x0,0xa
00ce e21a | | Load 0x1,0x1a
00cf 0096 | | Execute Package,Entry
00d0 00db | | Load_Top At_Offset_3
00d1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00df | | .CONST 0x00df ; Address of begin
00d9 00ed | | .CONST 0x00ed ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e218 | | Load 0x1,0x18
00dc 0322 | " | Declare_Variable Record
00dd 00d8 | | Load_Top At_Offset_0
00de 1c00 | | Execute_Immediate Run_Utility,0x0
00df BODY_00d8:
00df e5fc | | Load 0x2,-0x4
00e0 e5fd | | Load 0x2,-0x3
00e1 e5fe | | Load 0x2,-0x2
00e2 e5ff | | Load 0x2,-0x1
00e3 8220 | | Call 0x1,0x20
00e4 00d9 | | Load_Top At_Offset_1
00e5 017d | } | Execute Record,Structure_Write
00e6 e5fb | | Load 0x2,-0x5
00e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e8 00d9 | | Load_Top At_Offset_1
00e9 e00b | | Load 0x0,0xb
00ea e21a | | Load 0x1,0x1a
00eb 0096 | | Execute Package,Entry
00ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00ed TRAP_00d8:
00ed e00c | | Load 0x0,0xc
00ee e21a | | Load 0x1,0x1a
00ef 0098 | | Execute Package,Field_Read_Dynamic
00f0 010f | | Execute Exception,Equal
00f1 6802 |h | Jump_Zero 0xf4
00f2 e20d | | Load 0x1,0xd
00f3 0257 | W | Execute Discrete,Raise
00f4 0100 | | Execute Exception,Raise
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0104 | | .CONST 0x0104 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0004 | | .CONST 0x0004 ; Number of locals
00fb INIT_00f8:
00fb e218 | | Load 0x1,0x18
00fc 0322 | " | Declare_Variable Record
00fd 00d8 | | Load_Top At_Offset_0
00fe 1c00 | | Execute_Immediate Run_Utility,0x0
00ff 00d8 | | Load_Top At_Offset_0
0100 0322 | " | Declare_Variable Record
0101 00d8 | | Load_Top At_Offset_0
0102 1c00 | | Execute_Immediate Run_Utility,0x0
0103 00e1 | | Load_Encached Boolean_Cache
0104 BODY_00f8:
0104 00e1 | | Load_Encached Boolean_Cache
0105 00db | | Load_Top At_Offset_3
0106 e5fc | | Load 0x2,-0x4
0107 e5fe | | Load 0x2,-0x2
0108 e5ff | | Load 0x2,-0x1
0109 8221 | ! | Call 0x1,0x21
010a 00d1 | | Pop_Control Pop_Count_1
010b 0059 | Y | Store_Top Discrete,At_Offset_1
010c 00d8 | | Load_Top At_Offset_0
010d 680d |h | Jump_Zero 0x11b
010e e5fd | | Load 0x2,-0x3
010f 00db | | Load_Top At_Offset_3
0110 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0111 00d9 | | Load_Top At_Offset_1
0112 00e1 | | Load_Encached Boolean_Cache
0113 e5fc | | Load 0x2,-0x4
0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0115 e402 | | Load 0x2,0x2
0116 e00d | | Load 0x0,0xd
0117 e21a | | Load 0x1,0x1a
0118 0096 | | Execute Package,Entry
0119 005a | Z | Store_Top Discrete,At_Offset_2
011a 00d1 | | Pop_Control Pop_Count_1
011b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0128 | ( | .CONST 0x0128 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0003 | | .CONST 0x0003 ; Number of locals
0123 INIT_0120:
0123 e218 | | Load 0x1,0x18
0124 0322 | " | Declare_Variable Record
0125 00d8 | | Load_Top At_Offset_0
0126 1c00 | | Execute_Immediate Run_Utility,0x0
0127 00e1 | | Load_Encached Boolean_Cache
0128 BODY_0120:
0128 00e1 | | Load_Encached Boolean_Cache
0129 00da | | Load_Top At_Offset_2
012a e5fd | | Load 0x2,-0x3
012b e5fe | | Load 0x2,-0x2
012c e5ff | | Load 0x2,-0x1
012d 8221 | ! | Call 0x1,0x21
012e 00d1 | | Pop_Control Pop_Count_1
012f 0059 | Y | Store_Top Discrete,At_Offset_1
0130 00d8 | | Load_Top At_Offset_0
0131 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0140 | @ | .CONST 0x0140 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0003 | | .CONST 0x0003 ; Number of locals
013b INIT_0138:
013b e218 | | Load 0x1,0x18
013c 0322 | " | Declare_Variable Record
013d 00d8 | | Load_Top At_Offset_0
013e 1c00 | | Execute_Immediate Run_Utility,0x0
013f 00e1 | | Load_Encached Boolean_Cache
0140 BODY_0138:
0140 00e1 | | Load_Encached Boolean_Cache
0141 00da | | Load_Top At_Offset_2
0142 e5fd | | Load 0x2,-0x3
0143 e5fe | | Load 0x2,-0x2
0144 e5ff | | Load 0x2,-0x1
0145 8221 | ! | Call 0x1,0x21
0146 00d1 | | Pop_Control Pop_Count_1
0147 0059 | Y | Store_Top Discrete,At_Offset_1
0148 00d8 | | Load_Top At_Offset_0
0149 6803 |h | Jump_Zero 0x14d
014a 00d9 | | Load_Top At_Offset_1
014b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
014c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
014d 4800 |H | Short_Literal 0x0
014e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158 | X | .CONST 0x0158 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0003 | | .CONST 0x0003 ; Number of locals
0153 INIT_0150:
0153 e218 | | Load 0x1,0x18
0154 0322 | " | Declare_Variable Record
0155 00d8 | | Load_Top At_Offset_0
0156 1c00 | | Execute_Immediate Run_Utility,0x0
0157 00e1 | | Load_Encached Boolean_Cache
0158 BODY_0150:
0158 00e1 | | Load_Encached Boolean_Cache
0159 00da | | Load_Top At_Offset_2
015a e5fd | | Load 0x2,-0x3
015b e5fe | | Load 0x2,-0x2
015c e5ff | | Load 0x2,-0x1
015d 8221 | ! | Call 0x1,0x21
015e 00d1 | | Pop_Control Pop_Count_1
015f 0059 | Y | Store_Top Discrete,At_Offset_1
0160 00d9 | | Load_Top At_Offset_1
0161 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0162 e002 | | Load 0x0,0x2
0163 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0164 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0173 | s | .CONST 0x0173 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0003 | | .CONST 0x0003 ; Number of locals
016b INIT_0168:
016b e218 | | Load 0x1,0x18
016c 0322 | " | Declare_Variable Record
016d 00d8 | | Load_Top At_Offset_0
016e 1c00 | | Execute_Immediate Run_Utility,0x0
016f e00e | | Load 0x0,0xe
0170 e21a | | Load 0x1,0x1a
0171 0098 | | Execute Package,Field_Read_Dynamic
0172 0007 | | Action Break_Optional
0173 BODY_0168:
0173 e5fe | | Load 0x2,-0x2
0174 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0175 e00f | | Load 0x0,0xf
0176 e21a | | Load 0x1,0x1a
0177 0096 | | Execute Package,Entry
0178 0039 | 9 | Store_Top Access,At_Offset_1
0179 00cf | | Action Mark_Auxiliary
017a 7826 |x& | Jump 0x1a1
017b 00da | | Load_Top At_Offset_2
017c 00da | | Load_Top At_Offset_2
017d e010 | | Load 0x0,0x10
017e e21a | | Load 0x1,0x1a
017f 0096 | | Execute Package,Entry
0180 003b | ; | Store_Top Access,At_Offset_3
0181 00d1 | | Pop_Control Pop_Count_1
0182 00da | | Load_Top At_Offset_2
0183 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0184 e002 | | Load 0x0,0x2
0185 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0186 e5ff | | Load 0x2,-0x1
0187 01df | | Execute Vector,Equal
0188 6817 |h | Jump_Zero 0x1a0
0189 00da | | Load_Top At_Offset_2
018a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
018b e002 | | Load 0x0,0x2
018c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
018d 0092 02a6 | | Action Push_String_Extended,0x2a6 ; ","
018f 01cc | | Execute Vector,Catenate
0190 00db | | Load_Top At_Offset_3
0191 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0192 e002 | | Load 0x0,0x2
0193 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0194 01cc | | Execute Vector,Catenate
0195 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "/ State ->"
0197 01cc | | Execute Vector,Catenate
0198 00db | | Load_Top At_Offset_3
0199 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
019a e20e | | Load 0x1,0xe
019b 011c | | Execute Any,Convert_Unchecked
019c 1c01 | | Execute_Immediate Run_Utility,0x1
019d 01cc | | Execute Vector,Catenate
019e e011 | | Load 0x0,0x11
019f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a0 00c9 | | Action Pop_Auxiliary_Loop
01a1 00d9 | | Load_Top At_Offset_1
01a2 e012 | | Load 0x0,0x12
01a3 e21a | | Load 0x1,0x1a
01a4 0096 | | Execute Package,Entry
01a5 77d5 |w | Jump_Nonzero 0x17b
01a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a7 0000 | | .XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4800 |H | Short_Literal 0x0
01ac 00db | | Load_Top At_Offset_3
01ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ae 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
01af 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
01b0 e007 | | Load 0x0,0x7
01b1 e21a | | Load 0x1,0x1a
01b2 0096 | | Execute Package,Entry
01b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01bd e002 | | Load 0x0,0x2
01be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bf e5fe | | Load 0x2,-0x2
01c0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c1 e002 | | Load 0x0,0x2
01c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c3 01df | | Execute Vector,Equal
01c4 00db | | Load_Top At_Offset_3
01c5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01c6 e002 | | Load 0x0,0x2
01c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c8 e5fe | | Load 0x2,-0x2
01c9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ca e002 | | Load 0x0,0x2
01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cc 01df | | Execute Vector,Equal
01cd 0279 | y | Execute Discrete,And
01ce 00db | | Load_Top At_Offset_3
01cf 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01d0 e002 | | Load 0x0,0x2
01d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d2 e5fe | | Load 0x2,-0x2
01d3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01d4 e002 | | Load 0x0,0x2
01d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d6 01df | | Execute Vector,Equal
01d7 0279 | y | Execute Discrete,And
01d8 6802 |h | Jump_Zero 0x1db
01d9 4800 |H | Short_Literal 0x0
01da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01db 00da | | Load_Top At_Offset_2
01dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01dd e002 | | Load 0x0,0x2
01de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01df e5fe | | Load 0x2,-0x2
01e0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e1 e002 | | Load 0x0,0x2
01e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e3 01c1 | | Execute Vector,Less
01e4 6802 |h | Jump_Zero 0x1e7
01e5 4fff |O | Short_Literal -0x1
01e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e7 4801 |H | Short_Literal 0x1
01e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e9 0000 0000 | | .BLANK 0000[0x7]
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 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "Source ->"
01f5 00db | | Load_Top At_Offset_3
01f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f7 e002 | | Load 0x0,0x2
01f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f9 01cc | | Execute Vector,Catenate
01fa 0092 02a9 | | Action Push_String_Extended,0x2a9 ; " / Destination ->"
01fc 01cc | | Execute Vector,Catenate
01fd 00db | | Load_Top At_Offset_3
01fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ff e002 | | Load 0x0,0x2
0200 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0201 01cc | | Execute Vector,Catenate
0202 0092 02aa | | Action Push_String_Extended,0x2aa ; " / Qualification ->"
0204 01cc | | Execute Vector,Catenate
0205 00db | | Load_Top At_Offset_3
0206 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0207 e002 | | Load 0x0,0x2
0208 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0209 01cc | | Execute Vector,Catenate
020a 0092 02ab | | Action Push_String_Extended,0x2ab ; " / State ->"
020c 01cc | | Execute Vector,Catenate
020d 00db | | Load_Top At_Offset_3
020e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
020f e20e | | Load 0x1,0xe
0210 011c | | Execute Any,Convert_Unchecked
0211 1c01 | | Execute_Immediate Run_Utility,0x1
0212 01cc | | Execute Vector,Catenate
0213 e011 | | Load 0x0,0x11
0214 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0215 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021f | | .CONST 0x021f ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e218 | | Load 0x1,0x18
021c 0322 | " | Declare_Variable Record
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f BODY_0218:
021f 00d8 | | Load_Top At_Offset_0
0220 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0221 e002 | | Load 0x0,0x2
0222 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0223 00d1 | | Pop_Control Pop_Count_1
0224 00d8 | | Load_Top At_Offset_0
0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0226 e002 | | Load 0x0,0x2
0227 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0228 00d1 | | Pop_Control Pop_Count_1
0229 00d8 | | Load_Top At_Offset_0
022a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
022b e002 | | Load 0x0,0x2
022c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
022d 00d1 | | Pop_Control Pop_Count_1
022e 00d8 | | Load_Top At_Offset_0
022f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0230 e5ff | | Load 0x2,-0x1
0231 e002 | | Load 0x0,0x2
0232 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0233 00d1 | | Pop_Control Pop_Count_1
0234 00d8 | | Load_Top At_Offset_0
0235 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0236 e5fe | | Load 0x2,-0x2
0237 e002 | | Load 0x0,0x2
0238 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0239 00d1 | | Pop_Control Pop_Count_1
023a 00d8 | | Load_Top At_Offset_0
023b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
023c e5fd | | Load 0x2,-0x3
023d e002 | | Load 0x0,0x2
023e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023f 00d1 | | Pop_Control Pop_Count_1
0240 e5fc | | Load 0x2,-0x4
0241 00d9 | | Load_Top At_Offset_1
0242 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0243 00d8 | | Load_Top At_Offset_0
0244 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0253 | S | .CONST 0x0253 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e218 | | Load 0x1,0x18
024c 0322 | " | Declare_Variable Record
024d 00d8 | | Load_Top At_Offset_0
024e 1c00 | | Execute_Immediate Run_Utility,0x0
024f e00e | | Load 0x0,0xe
0250 e21a | | Load 0x1,0x1a
0251 0098 | | Execute Package,Field_Read_Dynamic
0252 0007 | | Action Break_Optional
0253 BODY_0248:
0253 4800 |H | Short_Literal 0x0
0254 a5fb | | Store_Unchecked 0x2,-0x5
0255 e5fd | | Load 0x2,-0x3
0256 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0257 e00f | | Load 0x0,0xf
0258 e21a | | Load 0x1,0x1a
0259 0096 | | Execute Package,Entry
025a 0039 | 9 | Store_Top Access,At_Offset_1
025b 00cf | | Action Mark_Auxiliary
025c 781b |x | Jump 0x278
025d 00da | | Load_Top At_Offset_2
025e 00da | | Load_Top At_Offset_2
025f e010 | | Load 0x0,0x10
0260 e21a | | Load 0x1,0x1a
0261 0096 | | Execute Package,Entry
0262 003b | ; | Store_Top Access,At_Offset_3
0263 00d1 | | Pop_Control Pop_Count_1
0264 00da | | Load_Top At_Offset_2
0265 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0266 e002 | | Load 0x0,0x2
0267 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0268 e5ff | | Load 0x2,-0x1
0269 01df | | Execute Vector,Equal
026a 00db | | Load_Top At_Offset_3
026b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
026c e002 | | Load 0x0,0x2
026d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026e e5fe | | Load 0x2,-0x2
026f 01df | | Execute Vector,Equal
0270 0279 | y | Execute Discrete,And
0271 6805 |h | Jump_Zero 0x277
0272 00da | | Load_Top At_Offset_2
0273 e5fc | | Load 0x2,-0x4
0274 017d | } | Execute Record,Structure_Write
0275 4801 |H | Short_Literal 0x1
0276 a5fb | | Store_Unchecked 0x2,-0x5
0277 00c9 | | Action Pop_Auxiliary_Loop
0278 00d9 | | Load_Top At_Offset_1
0279 e012 | | Load 0x0,0x12
027a e21a | | Load 0x1,0x1a
027b 0096 | | Execute Package,Entry
027c 77e0 |w | Jump_Nonzero 0x25d
027d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4601 |F | Jump_Case 0x2
0284 7801 |x | Jump 0x286 ; case 0x0
0285 7813 |x | Jump 0x299 ; case 0x1
0286 00da | | Load_Top At_Offset_2
0287 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0288 0125 | % | Execute Any,Set_Constraint
0289 00da | | Load_Top At_Offset_2
028a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
028b 1c00 | | Execute_Immediate Run_Utility,0x0
028c 00da | | Load_Top At_Offset_2
028d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
028e 0125 | % | Execute Any,Set_Constraint
028f 00da | | Load_Top At_Offset_2
0290 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0291 1c00 | | Execute_Immediate Run_Utility,0x0
0292 00da | | Load_Top At_Offset_2
0293 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0294 0125 | % | Execute Any,Set_Constraint
0295 00da | | Load_Top At_Offset_2
0296 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0297 1c00 | | Execute_Immediate Run_Utility,0x0
0298 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0299 00da | | Load_Top At_Offset_2
029a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
029b 0125 | % | Execute Any,Set_Constraint
029c 00da | | Load_Top At_Offset_2
029d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
029e 0125 | % | Execute Any,Set_Constraint
029f 00da | | Load_Top At_Offset_2
02a0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02a1 0125 | % | Execute Any,Set_Constraint
02a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02a3 ; --------------------------------------------------------------------------------------
02a3 ; STRING TABLE
02a3 ; --------------------------------------------------------------------------------------
02a3 0014 | | .STRTAB 0x0014->0x02ad ; "NO_STATE"
02a4 001a | | .STRTAB 0x001a->0x02b1 ; "LINKED"
02a5 001e | | .STRTAB 0x001e->0x02b4 ; "UNLINKED"
02a6 0024 | $ | .STRTAB 0x0024->0x02b8 ; ","
02a7 0023 | # | .STRTAB 0x0023->0x02b8 ; "/ State ->"
02a8 002b | + | .STRTAB 0x002b->0x02bd ; "Source ->"
02a9 0032 | 2 | .STRTAB 0x0032->0x02c2 ; " / Destination ->"
02aa 0041 | A | .STRTAB 0x0041->0x02ca ; " / Qualification ->"
02ab 0052 | R | .STRTAB 0x0052->0x02d4 ; " / State ->"
02ac 005b | [ | .STREND 0x005b->0x02d9
02ad 4e4f 5f53 |NO_S| .STRTAB_STRINGS
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug Table
02e0 ; --------------------------------------------------------------------------------------
02e0 0004 0008 | | .DEBUG4 0x0004,0x0008,0x54f0,0x0000,0x0001,0x0011
02e6 000b 032a | *| .DBG4T 0x000b,0x032a,0x8000,0x8000
02ea 0052 034a | R J| .DBG4T 0x0052,0x034a,0x8000,0x8000
02ee 0083 0000 | | .DBG4T 0x0083,0x0000,0x0005,0x0000
02f2 00bb 0368 | h| .DBG4T 0x00bb,0x0368,0x0001,0x0000
02f6 00cb 036b | k| .DBG4T 0x00cb,0x036b,0x0001,0x0000
02fa 00db 036e | n| .DBG4T 0x00db,0x036e,0x0001,0x0000
02fe 00fb 0374 | t| .DBG4T 0x00fb,0x0374,0x0001,0x0000
0302 0123 037c | # || .DBG4T 0x0123,0x037c,0x0002,0x0000
0306 013b 0382 | ; | .DBG4T 0x013b,0x0382,0x0002,0x0000
030a 0153 038a | S | .DBG4T 0x0153,0x038a,0x0002,0x0000
030e 016b 0390 | k | .DBG4T 0x016b,0x0390,0x0001,0x4000
0312 01ab 039e | | .DBG4T 0x01ab,0x039e,0x0001,0x0000
0316 01bb 03a1 | | .DBG4T 0x01bb,0x03a1,0x0002,0x0000
031a 01f3 03a8 | | .DBG4T 0x01f3,0x03a8,0x0001,0x0000
031e 021b 03ab | | .DBG4T 0x021b,0x03ab,0x0002,0x0000
0322 024b 03b6 | K | .DBG4T 0x024b,0x03b6,0x0001,0x4000
0326 0283 0000 | | .DBG4T 0x0283,0x0000,0x0005,0x0000
032a ; --------------------------------------------------------------------------------------
032a ; Debug chain
032a ; --------------------------------------------------------------------------------------
032a 000f 0000 | | .DBGLEN 0x000f,0x0000
032c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x003b,0x003d,0x004b
033b 0001 0003 | | .XXX[0xf]
033d 0004 0005 | |
033f 0006 0007 | |
0341 0008 0009 | |
0343 000a 000b | |
0345 000c 000d | |
0347 000e 000f | |
0349 0010 | |
034a ; --------------------------------------------------------------------------------------
034a ; Debug chain
034a ; --------------------------------------------------------------------------------------
034a 000e 0000 | | .DBGLEN 0x000e,0x0000
034c 0052 0054 | R T| .DBGLNO 0x0052,0x0054,0x0056,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079
035a 0004 0005 | | .XXX[0xe]
035c 0006 0007 | |
035e 0008 0009 | |
0360 000a 000b | |
0362 000c 000d | |
0364 000e 000f | |
0366 0010 0011 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug chain
0368 ; --------------------------------------------------------------------------------------
0368 0000 0001 | | .DBGLEN 0x0000,0x0001
036a 00bb | | .DBGLNO 0x00bb
036b ; --------------------------------------------------------------------------------------
036b ; Debug chain
036b ; --------------------------------------------------------------------------------------
036b 0000 0001 | | .DBGLEN 0x0000,0x0001
036d 00cb | | .DBGLNO 0x00cb
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0001 0003 | | .DBGLEN 0x0001,0x0003
0370 00db 00df | | .DBGLNO 0x00db,0x00df,0x00e6,0x00f2
0374 ; --------------------------------------------------------------------------------------
0374 ; Debug chain
0374 ; --------------------------------------------------------------------------------------
0374 0002 0004 | | .DBGLEN 0x0002,0x0004
0376 00fb 0103 | | .DBGLNO 0x00fb,0x0103,0x0104,0x010c,0x010e,0x0111
037c ; --------------------------------------------------------------------------------------
037c ; Debug chain
037c ; --------------------------------------------------------------------------------------
037c 0002 0002 | | .DBGLEN 0x0002,0x0002
037e 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x0128,0x0130
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug chain
0382 ; --------------------------------------------------------------------------------------
0382 0002 0004 | | .DBGLEN 0x0002,0x0004
0384 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0140,0x0148,0x014a,0x014d
038a ; --------------------------------------------------------------------------------------
038a ; Debug chain
038a ; --------------------------------------------------------------------------------------
038a 0002 0002 | | .DBGLEN 0x0002,0x0002
038c 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x0158,0x0160
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug chain
0390 ; --------------------------------------------------------------------------------------
0390 0002 0005 | | .DBGLEN 0x0002,0x0005
0392 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0173,0x017b,0x0182,0x0189,0x01a1
0399 0001 0003 | | .XXX[0x5]
039b 0004 0005 | |
039d 0002 | |
039e ; --------------------------------------------------------------------------------------
039e ; Debug chain
039e ; --------------------------------------------------------------------------------------
039e 0000 0001 | | .DBGLEN 0x0000,0x0001
03a0 01ab | | .DBGLNO 0x01ab
03a1 ; --------------------------------------------------------------------------------------
03a1 ; Debug chain
03a1 ; --------------------------------------------------------------------------------------
03a1 0000 0005 | | .DBGLEN 0x0000,0x0005
03a3 01bb 01d9 | | .DBGLNO 0x01bb,0x01d9,0x01db,0x01e5,0x01e7
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug chain
03a8 ; --------------------------------------------------------------------------------------
03a8 0000 0001 | | .DBGLEN 0x0000,0x0001
03aa 01f3 | | .DBGLNO 0x01f3
03ab ; --------------------------------------------------------------------------------------
03ab ; Debug chain
03ab ; --------------------------------------------------------------------------------------
03ab 0001 0008 | | .DBGLEN 0x0001,0x0008
03ad 021b 021f | | .DBGLNO 0x021b,0x021f,0x0224,0x0229,0x022e,0x0234,0x023a,0x0240,0x0243
03b6 ; --------------------------------------------------------------------------------------
03b6 ; Debug chain
03b6 ; --------------------------------------------------------------------------------------
03b6 0002 0007 | | .DBGLEN 0x0002,0x0007
03b8 024b 024f | K O| .DBGLNO 0x024b,0x024f,0x0253,0x0255,0x025d,0x0264,0x0272,0x0275,0x0278
03c1 0001 0002 | | .XXX[0x7]
03c3 0004 0005 | |
03c5 0006 0007 | |
03c7 0003 | |
03c8 0000 0000 | | .BLANK 0000[0x38]