|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0ae4cb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0398 | | .CONST 0x0398 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d0 | | .CONST 0x00d0 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0038 | 8 | .CONST 0x0038 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 60ea |` | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 0093 0000 | | push_full_address 0x0
0012 60e1 |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00020000}
0013 0273 | s | Execute Discrete,Plus
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001d 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
001f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0021 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0023 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0025 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0027 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0029 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
002b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
002d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002f 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0031 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0033 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0035 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0037 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0039 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
003b 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
003d 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
003f 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0041 4820 |H | Short_Literal 0x20
0042 e002 | | Load 0x0,0x2
0043 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0044 1c07 | | Execute_Immediate Run_Utility,0x7
0045 0129 | ) | Execute Any,Make_Visible
0046 e003 | | Load 0x0,0x3
0047 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
0049 4802 |H | Short_Literal 0x2
004a 032e | . | Declare_Type Record,Defined,Visible
004b 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
004d 0093 0000 | | push_full_address 0x0
004f 60a0 |` | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00010000}
0050 0273 | s | Execute Discrete,Plus
0051 e004 | | Load 0x0,0x4
0052 0273 | s | Execute Discrete,Plus
0053 e005 | | Load 0x0,0x5
0054 0273 | s | Execute Discrete,Plus
0055 00da | | Load_Top At_Offset_2
0056 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0057 e006 | | Load 0x0,0x6
0058 0386 | | Declare_Variable Package,Visible
0059 00d8 | | Load_Top At_Offset_0
005a 020f | | Execute Module,Activate
005b e007 | | Load 0x0,0x7
005c 00d9 | | Load_Top At_Offset_1
005d 0098 | | Execute Package,Field_Read_Dynamic
005e 02a0 | | Declare_Subprogram Null_Subprogram
005f 4801 |H | Short_Literal 0x1
0060 032e | . | Declare_Type Record,Defined,Visible
0061 e008 | | Load 0x0,0x8
0062 00da | | Load_Top At_Offset_2
0063 0098 | | Execute Package,Field_Read_Dynamic
0064 02a0 | | Declare_Subprogram Null_Subprogram
0065 4801 |H | Short_Literal 0x1
0066 032e | . | Declare_Type Record,Defined,Visible
0067 00bf | | Action Accept_Activation
0068 e225 | % | Load 0x1,0x25
0069 0322 | " | Declare_Variable Record
006a 00d8 | | Load_Top At_Offset_0
006b 1c00 | | Execute_Immediate Run_Utility,0x0
006c 00e1 | | Load_Encached Boolean_Cache
006d 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call
006f 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0070 00c7 | | Action Elaborate_Subprogram
0071 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
0073 e009 | | Load 0x0,0x9
0074 e227 | ' | Load 0x1,0x27
0075 0095 | | Execute Package,Field_Reference_Dynamic
0076 00c6 | | Action Check_Subprogram_Elaborated
0077 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0078 0093 0000 | | push_full_address 0x0
007a 6071 |`q | Indirect_Literal Discrete,0xec,{0x80000000, 0x00040000}
007b 0273 | s | Execute Discrete,Plus
007c e004 | | Load 0x0,0x4
007d 0273 | s | Execute Discrete,Plus
007e e00a | | Load 0x0,0xa
007f 0273 | s | Execute Discrete,Plus
0080 4800 |H | Short_Literal 0x0
0081 0007 | | Action Break_Optional
0082 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
0084 e00b | | Load 0x0,0xb
0085 e227 | ' | Load 0x1,0x27
0086 0095 | | Execute Package,Field_Reference_Dynamic
0087 00c6 | | Action Check_Subprogram_Elaborated
0088 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0089 0093 0000 | | push_full_address 0x0
008b 605c |`\ | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00030000}
008c 0273 | s | Execute Discrete,Plus
008d e004 | | Load 0x0,0x4
008e 0273 | s | Execute Discrete,Plus
008f e00c | | Load 0x0,0xc
0090 0273 | s | Execute Discrete,Plus
0091 4800 |H | Short_Literal 0x0
0092 0007 | | Action Break_Optional
0093 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
0095 e00d | | Load 0x0,0xd
0096 e227 | ' | Load 0x1,0x27
0097 0095 | | Execute Package,Field_Reference_Dynamic
0098 00c6 | | Action Check_Subprogram_Elaborated
0099 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
009a 0093 0000 | | push_full_address 0x0
009c 6047 |`G | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00020000}
009d 0273 | s | Execute Discrete,Plus
009e e004 | | Load 0x0,0x4
009f 0273 | s | Execute Discrete,Plus
00a0 e00e | | Load 0x0,0xe
00a1 0273 | s | Execute Discrete,Plus
00a2 4800 |H | Short_Literal 0x0
00a3 0007 | | Action Break_Optional
00a4 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00cf 00c7 | | Action Elaborate_Subprogram
00d0 BODY_0008:
00d0 00bc | | Action Signal_Activated
00d1 00bb | | Action Signal_Completion
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e00f | | Load 0x0,0xf
00dc e227 | ' | Load 0x1,0x27
00dd 0096 | | Execute Package,Entry
00de 00db | | Load_Top At_Offset_3
00df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e1 0000 0000 | | .XXX[0x3]
00e3 0000 | |
00e4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00e8 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00ec 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
00f0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00f4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107 | | .CONST 0x0107 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e225 | % | Load 0x1,0x25
0104 0322 | " | Declare_Variable Record
0105 00d8 | | Load_Top At_Offset_0
0106 1c00 | | Execute_Immediate Run_Utility,0x0
0107 BODY_0100:
0107 e010 | | Load 0x0,0x10
0108 e5fe | | Load 0x2,-0x2
0109 822c | , | Call 0x1,0x2c
010a 00d9 | | Load_Top At_Offset_1
010b 017d | } | Execute Record,Structure_Write
010c 00db | | Load_Top At_Offset_3
010d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010e 00d9 | | Load_Top At_Offset_1
010f e011 | | Load 0x0,0x11
0110 e227 | ' | Load 0x1,0x27
0111 0096 | | Execute Package,Entry
0112 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0121 | ! | .CONST 0x0121 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b 00e1 | | Load_Encached Boolean_Cache
011c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
011d e225 | % | Load 0x1,0x25
011e 0322 | " | Declare_Variable Record
011f 00d8 | | Load_Top At_Offset_0
0120 1c00 | | Execute_Immediate Run_Utility,0x0
0121 BODY_0118:
0121 e5fd | | Load 0x2,-0x3
0122 e5fe | | Load 0x2,-0x2
0123 822c | , | Call 0x1,0x2c
0124 00d9 | | Load_Top At_Offset_1
0125 017d | } | Execute Record,Structure_Write
0126 00d8 | | Load_Top At_Offset_0
0127 00e1 | | Load_Encached Boolean_Cache
0128 e5ff | | Load 0x2,-0x1
0129 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012a 00db | | Load_Top At_Offset_3
012b e012 | | Load 0x0,0x12
012c e227 | ' | Load 0x1,0x27
012d 0096 | | Execute Package,Entry
012e 005b | [ | Store_Top Discrete,At_Offset_3
012f 00d1 | | Pop_Control Pop_Count_1
0130 e5fd | | Load 0x2,-0x3
0131 8013 | | Call 0x0,0x13
0132 00d1 | | Pop_Control Pop_Count_1
0133 e5fd | | Load 0x2,-0x3
0134 00d9 | | Load_Top At_Offset_1
0135 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0136 8014 | | Call 0x0,0x14
0137 00d1 | | Pop_Control Pop_Count_1
0138 00d9 | | Load_Top At_Offset_1
0139 7003 |p | Jump_Nonzero 0x13d
013a e5fd | | Load 0x2,-0x3
013b 8015 | | Call 0x0,0x15
013c 00d1 | | Pop_Control Pop_Count_1
013d 00d8 | | Load_Top At_Offset_0
013e 822d | - | Call 0x1,0x2d
013f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 0092 0364 | d| Action Push_String_Extended,0x364 ; "Number of Attribute:"
0145 00db | | Load_Top At_Offset_3
0146 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0147 e016 | | Load 0x0,0x16
0148 e227 | ' | Load 0x1,0x27
0149 0096 | | Execute Package,Entry
014a 00e0 | | Load_Encached Standard_Cache
014b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014c 01cc | | Execute Vector,Catenate
014d e017 | | Load 0x0,0x17
014e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4801 |H | Short_Literal 0x1
0154 00db | | Load_Top At_Offset_3
0155 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0156 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0157 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0158 e00d | | Load 0x0,0xd
0159 e227 | ' | Load 0x1,0x27
015a 0096 | | Execute Package,Entry
015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 0092 0365 | e| Action Push_String_Extended,0x365 ; "Function not yet implemented"
0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 0092 0366 | f| Action Push_String_Extended,0x366 ; "function not yet implemented"
016d e017 | | Load 0x0,0x17
016e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
016f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017f | | .CONST 0x017f ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0005 | | .CONST 0x0005 ; Number of locals
0173 INIT_0170:
0173 e229 | ) | Load 0x1,0x29
0174 0322 | " | Declare_Variable Record
0175 e003 | | Load 0x0,0x3
0176 02ff | | Declare_Variable Variant_Record
0177 00d8 | | Load_Top At_Offset_0
0178 1c00 | | Execute_Immediate Run_Utility,0x0
0179 e003 | | Load 0x0,0x3
017a 02ff | | Declare_Variable Variant_Record
017b 00d8 | | Load_Top At_Offset_0
017c 1c00 | | Execute_Immediate Run_Utility,0x0
017d e22b | + | Load 0x1,0x2b
017e 0007 | | Action Break_Optional
017f BODY_0170:
017f e5ff | | Load 0x2,-0x1
0180 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0181 e016 | | Load 0x0,0x16
0182 e227 | ' | Load 0x1,0x27
0183 0096 | | Execute Package,Entry
0184 e5fe | | Load 0x2,-0x2
0185 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0186 e016 | | Load 0x0,0x16
0187 e227 | ' | Load 0x1,0x27
0188 0096 | | Execute Package,Entry
0189 027e | ~ | Execute Discrete,Not_Equal
018a 6802 |h | Jump_Zero 0x18d
018b 4800 |H | Short_Literal 0x0
018c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018d 00db | | Load_Top At_Offset_3
018e e5ff | | Load 0x2,-0x1
018f 8220 | | Call 0x1,0x20
0190 00d1 | | Pop_Control Pop_Count_1
0191 00cf | | Action Mark_Auxiliary
0192 781f |x | Jump 0x1b2
0193 e402 | | Load 0x2,0x2
0194 8222 | " | Call 0x1,0x22
0195 e5fe | | Load 0x2,-0x2
0196 8210 | | Call 0x1,0x10
0197 6812 |h | Jump_Zero 0x1aa
0198 00db | | Load_Top At_Offset_3
0199 e402 | | Load 0x2,0x2
019a 8222 | " | Call 0x1,0x22
019b e5fe | | Load 0x2,-0x2
019c 8211 | | Call 0x1,0x11
019d 00d1 | | Pop_Control Pop_Count_1
019e 00da | | Load_Top At_Offset_2
019f e402 | | Load 0x2,0x2
01a0 8223 | # | Call 0x1,0x23
01a1 00d1 | | Pop_Control Pop_Count_1
01a2 00db | | Load_Top At_Offset_3
01a3 00db | | Load_Top At_Offset_3
01a4 8018 | | Call 0x0,0x18
01a5 7008 |p | Jump_Nonzero 0x1ae
01a6 00d9 | | Load_Top At_Offset_1
01a7 a22b | + | Store_Unchecked 0x1,0x2b
01a8 4800 |H | Short_Literal 0x0
01a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01aa 00d9 | | Load_Top At_Offset_1
01ab a22b | + | Store_Unchecked 0x1,0x2b
01ac 4800 |H | Short_Literal 0x0
01ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ae e402 | | Load 0x2,0x2
01af 8221 | ! | Call 0x1,0x21
01b0 00d1 | | Pop_Control Pop_Count_1
01b1 00c9 | | Action Pop_Auxiliary_Loop
01b2 e402 | | Load 0x2,0x2
01b3 8224 | $ | Call 0x1,0x24
01b4 6fde |o | Jump_Zero 0x193
01b5 00ce | | Action Pop_Auxiliary
01b6 00d8 | | Load_Top At_Offset_0
01b7 a22b | + | Store_Unchecked 0x1,0x2b
01b8 4801 |H | Short_Literal 0x1
01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c9 | | .CONST 0x01c9 ; Address of begin
01c1 01db | | .CONST 0x01db ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 00e1 | | Load_Encached Boolean_Cache
01c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01c5 e225 | % | Load 0x1,0x25
01c6 0322 | " | Declare_Variable Record
01c7 00d8 | | Load_Top At_Offset_0
01c8 1c00 | | Execute_Immediate Run_Utility,0x0
01c9 BODY_01c0:
01c9 00d8 | | Load_Top At_Offset_0
01ca 00e1 | | Load_Encached Boolean_Cache
01cb e5fd | | Load 0x2,-0x3
01cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cd e5fe | | Load 0x2,-0x2
01ce e5ff | | Load 0x2,-0x1
01cf 822c | , | Call 0x1,0x2c
01d0 e019 | | Load 0x0,0x19
01d1 e227 | ' | Load 0x1,0x27
01d2 0096 | | Execute Package,Entry
01d3 005b | [ | Store_Top Discrete,At_Offset_3
01d4 00d1 | | Pop_Control Pop_Count_1
01d5 00d9 | | Load_Top At_Offset_1
01d6 6803 |h | Jump_Zero 0x1da
01d7 00d8 | | Load_Top At_Offset_0
01d8 822d | - | Call 0x1,0x2d
01d9 00d1 | | Pop_Control Pop_Count_1
01da 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01db TRAP_01c0:
01db 0007 | | Action Break_Optional
01dc e20d | | Load 0x1,0xd
01dd 0257 | W | Execute Discrete,Raise
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e7 | | .CONST 0x01e7 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e003 | | Load 0x0,0x3
01e4 02ff | | Declare_Variable Variant_Record
01e5 00d8 | | Load_Top At_Offset_0
01e6 1c00 | | Execute_Immediate Run_Utility,0x0
01e7 BODY_01e0:
01e7 00d8 | | Load_Top At_Offset_0
01e8 8013 | | Call 0x0,0x13
01e9 00d1 | | Pop_Control Pop_Count_1
01ea 00d8 | | Load_Top At_Offset_0
01eb e5fe | | Load 0x2,-0x2
01ec 801a | | Call 0x0,0x1a
01ed 00d1 | | Pop_Control Pop_Count_1
01ee e5fd | | Load 0x2,-0x3
01ef 00d9 | | Load_Top At_Offset_1
01f0 e5ff | | Load 0x2,-0x1
01f1 8217 | | Call 0x1,0x17
01f2 00d1 | | Pop_Control Pop_Count_1
01f3 00d8 | | Load_Top At_Offset_0
01f4 801b | | Call 0x0,0x1b
01f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01ff | | .CONST 0x01ff ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e003 | | Load 0x0,0x3
01fc 02ff | | Declare_Variable Variant_Record
01fd 00d8 | | Load_Top At_Offset_0
01fe 1c00 | | Execute_Immediate Run_Utility,0x0
01ff BODY_01f8:
01ff 00d8 | | Load_Top At_Offset_0
0200 8013 | | Call 0x0,0x13
0201 00d1 | | Pop_Control Pop_Count_1
0202 00d8 | | Load_Top At_Offset_0
0203 e5fe | | Load 0x2,-0x2
0204 801c | | Call 0x0,0x1c
0205 00d1 | | Pop_Control Pop_Count_1
0206 e5fd | | Load 0x2,-0x3
0207 00d9 | | Load_Top At_Offset_1
0208 e5ff | | Load 0x2,-0x1
0209 8217 | | Call 0x1,0x17
020a 00d1 | | Pop_Control Pop_Count_1
020b 00d8 | | Load_Top At_Offset_0
020c 801b | | Call 0x0,0x1b
020d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020e 0000 0000 | | .XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0217 | | .CONST 0x0217 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 e003 | | Load 0x0,0x3
0214 02ff | | Declare_Variable Variant_Record
0215 00d8 | | Load_Top At_Offset_0
0216 1c00 | | Execute_Immediate Run_Utility,0x0
0217 BODY_0210:
0217 00d8 | | Load_Top At_Offset_0
0218 8013 | | Call 0x0,0x13
0219 00d1 | | Pop_Control Pop_Count_1
021a 00d8 | | Load_Top At_Offset_0
021b e5fe | | Load 0x2,-0x2
021c 801d | | Call 0x0,0x1d
021d 00d1 | | Pop_Control Pop_Count_1
021e e5fd | | Load 0x2,-0x3
021f 00d9 | | Load_Top At_Offset_1
0220 e5ff | | Load 0x2,-0x1
0221 8217 | | Call 0x1,0x17
0222 00d1 | | Pop_Control Pop_Count_1
0223 00d8 | | Load_Top At_Offset_0
0224 801b | | Call 0x0,0x1b
0225 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 0092 0366 | f| Action Push_String_Extended,0x366 ; "function not yet implemented"
022d e017 | | Load 0x0,0x17
022e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
022f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 0092 0366 | f| Action Push_String_Extended,0x366 ; "function not yet implemented"
0235 e017 | | Load 0x0,0x17
0236 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0237 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023d 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
023e 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
023f e00b | | Load 0x0,0xb
0240 e227 | ' | Load 0x1,0x27
0241 0096 | | Execute Package,Entry
0242 e5fe | | Load 0x2,-0x2
0243 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0244 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
024d e5fe | | Load 0x2,-0x2
024e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
024f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0255 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0256 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0257 e009 | | Load 0x0,0x9
0258 e227 | ' | Load 0x1,0x27
0259 0096 | | Execute Package,Entry
025a 00db | | Load_Top At_Offset_3
025b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
025c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0265 e01e | | Load 0x0,0x1e
0266 e227 | ' | Load 0x1,0x27
0267 0096 | | Execute Package,Entry
0268 e5fe | | Load 0x2,-0x2
0269 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
026a 4800 |H | Short_Literal 0x0
026b a22b | + | Store_Unchecked 0x1,0x2b
026c 00db | | Load_Top At_Offset_3
026d 8221 | ! | Call 0x1,0x21
026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e22b | + | Load 0x1,0x2b
0274 7012 |p | Jump_Nonzero 0x287
0275 00da | | Load_Top At_Offset_2
0276 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0277 e01f | | Load 0x0,0x1f
0278 e227 | ' | Load 0x1,0x27
0279 0096 | | Execute Package,Entry
027a 680a |h | Jump_Zero 0x285
027b e22a | * | Load 0x1,0x2a
027c 00db | | Load_Top At_Offset_3
027d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
027e e020 | | Load 0x0,0x20
027f e227 | ' | Load 0x1,0x27
0280 0096 | | Execute Package,Entry
0281 e5ff | | Load 0x2,-0x1
0282 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0283 00d1 | | Pop_Control Pop_Count_1
0284 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0285 e20e | | Load 0x1,0xe
0286 0257 | W | Execute Discrete,Raise
0287 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0290 | | .CONST 0x0290 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e22a | * | Load 0x1,0x2a
028c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
028d e002 | | Load 0x0,0x2
028e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0290 TRAP_0288:
0290 0007 | | Action Break_Optional
0291 e20e | | Load 0x1,0xe
0292 0257 | W | Execute Discrete,Raise
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 02a0 | | .CONST 0x02a0 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3
029c e22a | * | Load 0x1,0x2a
029d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
029e 8014 | | Call 0x0,0x14
029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a0 TRAP_0298:
02a0 0007 | | Action Break_Optional
02a1 e20e | | Load 0x1,0xe
02a2 0257 | W | Execute Discrete,Raise
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ad | | .CONST 0x02ad ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 00e1 | | Load_Encached Boolean_Cache
02ac 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02ad BODY_02a8:
02ad 00db | | Load_Top At_Offset_3
02ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02af e01f | | Load 0x0,0x1f
02b0 e227 | ' | Load 0x1,0x27
02b1 0096 | | Execute Package,Entry
02b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02b3 00d8 | | Load_Top At_Offset_0
02b4 6802 |h | Jump_Zero 0x2b7
02b5 4800 |H | Short_Literal 0x0
02b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b7 00d8 | | Load_Top At_Offset_0
02b8 0f00 | | Execute_Immediate Equal,0x0
02b9 e22b | + | Load 0x1,0x2b
02ba 0f00 | | Execute_Immediate Equal,0x0
02bb 0279 | y | Execute Discrete,And
02bc 6804 |h | Jump_Zero 0x2c1
02bd 4801 |H | Short_Literal 0x1
02be a22b | + | Store_Unchecked 0x1,0x2b
02bf 4800 |H | Short_Literal 0x0
02c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c1 00d8 | | Load_Top At_Offset_0
02c2 0f00 | | Execute_Immediate Equal,0x0
02c3 e22b | + | Load 0x1,0x2b
02c4 0279 | y | Execute Discrete,And
02c5 6802 |h | Jump_Zero 0x2c8
02c6 4801 |H | Short_Literal 0x1
02c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c8 0831 | 1 | Execute_Immediate Raise,0x31
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d5 | | .CONST 0x02d5 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
02d5 BODY_02d0:
02d5 8402 | | Call 0x2,0x2
02d6 0831 | 1 | Execute_Immediate Raise,0x31
02d7 0000 | | .XXX[0x1]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02df | | .CONST 0x02df ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e225 | % | Load 0x1,0x25
02dc 0322 | " | Declare_Variable Record
02dd 00d8 | | Load_Top At_Offset_0
02de 1c00 | | Execute_Immediate Run_Utility,0x0
02df BODY_02d8:
02df 00d8 | | Load_Top At_Offset_0
02e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e1 e002 | | Load 0x0,0x2
02e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02e3 00d1 | | Pop_Control Pop_Count_1
02e4 00d8 | | Load_Top At_Offset_0
02e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e6 e5ff | | Load 0x2,-0x1
02e7 e002 | | Load 0x0,0x2
02e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e9 00d1 | | Pop_Control Pop_Count_1
02ea 00d8 | | Load_Top At_Offset_0
02eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ec 8013 | | Call 0x0,0x13
02ed 00d1 | | Pop_Control Pop_Count_1
02ee 00d8 | | Load_Top At_Offset_0
02ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f0 e5fe | | Load 0x2,-0x2
02f1 8014 | | Call 0x0,0x14
02f2 00d1 | | Pop_Control Pop_Count_1
02f3 00d8 | | Load_Top At_Offset_0
02f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fd 801b | | Call 0x0,0x1b
02fe 00d1 | | Pop_Control Pop_Count_1
02ff 00da | | Load_Top At_Offset_2
0300 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0301 e002 | | Load 0x0,0x2
0302 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0303 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
030d 00db | | Load_Top At_Offset_3
030e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
030f e002 | | Load 0x0,0x2
0310 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0311 822c | , | Call 0x1,0x2c
0312 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
031d e002 | | Load 0x0,0x2
031e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
031f 0092 0367 | g| Action Push_String_Extended,0x367 ; " : "
0321 01cc | | Execute Vector,Catenate
0322 00db | | Load_Top At_Offset_3
0323 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0324 8021 | ! | Call 0x0,0x21
0325 01cc | | Execute Vector,Catenate
0326 e017 | | Load 0x0,0x17
0327 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0328 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 e5ff | | Load 0x2,-0x1
0334 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0335 e002 | | Load 0x0,0x2
0336 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0337 e5fe | | Load 0x2,-0x2
0338 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0339 e002 | | Load 0x0,0x2
033a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033b 01c1 | | Execute Vector,Less
033c 6803 |h | Jump_Zero 0x340
033d 4fff |O | Short_Literal -0x1
033e 00cb | | Action Pop_Block_With_Result
033f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0340 e5ff | | Load 0x2,-0x1
0341 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0342 e002 | | Load 0x0,0x2
0343 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0344 e5fe | | Load 0x2,-0x2
0345 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0346 e002 | | Load 0x0,0x2
0347 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0348 01df | | Execute Vector,Equal
0349 6803 |h | Jump_Zero 0x34d
034a 4800 |H | Short_Literal 0x0
034b 00cb | | Action Pop_Block_With_Result
034c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
034d 4801 |H | Short_Literal 0x1
034e 00cb | | Action Pop_Block_With_Result
034f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 4601 |F | Jump_Case 0x2
0354 7801 |x | Jump 0x356 ; case 0x0
0355 780a |x | Jump 0x360 ; case 0x1
0356 00da | | Load_Top At_Offset_2
0357 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0358 0125 | % | Execute Any,Set_Constraint
0359 00da | | Load_Top At_Offset_2
035a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
035b 1c00 | | Execute_Immediate Run_Utility,0x0
035c 00da | | Load_Top At_Offset_2
035d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
035e 1c00 | | Execute_Immediate Run_Utility,0x0
035f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0360 00da | | Load_Top At_Offset_2
0361 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0362 0125 | % | Execute Any,Set_Constraint
0363 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0364 ; --------------------------------------------------------------------------------------
0364 ; STRING TABLE
0364 ; --------------------------------------------------------------------------------------
0364 000a | | .STRTAB 0x000a->0x0369 ; "Number of Attribute:"
0365 001c | | .STRTAB 0x001c->0x0373 ; "Function not yet implemented"
0366 0036 | 6 | .STRTAB 0x0036->0x0381 ; "function not yet implemented"
0367 0050 | P | .STRTAB 0x0050->0x038f ; " : "
0368 0051 | Q | .STREND 0x0051->0x0390
0369 4e75 6d62 |Numb| .STRTAB_STRINGS
0391 0000 0000 | | .BLANK 0000[0x7]
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug Table
0398 ; --------------------------------------------------------------------------------------
0398 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd068,0x0000,0x0001,0x001f
039e 000b 041a | | .DBG4T 0x000b,0x041a,0x8000,0x8000
03a2 0068 0456 | h V| .DBG4T 0x0068,0x0456,0x8000,0x8000
03a6 00db 0498 | | .DBG4T 0x00db,0x0498,0x0001,0x0000
03aa 0103 049b | | .DBG4T 0x0103,0x049b,0x0002,0x0000
03ae 011b 04a0 | | .DBG4T 0x011b,0x04a0,0x0001,0x0000
03b2 0143 04ab | C | .DBG4T 0x0143,0x04ab,0x0001,0x0000
03b6 0153 04ae | S | .DBG4T 0x0153,0x04ae,0x0001,0x0000
03ba 0163 04b1 | c | .DBG4T 0x0163,0x04b1,0x0002,0x0000
03be 016b 04b4 | k | .DBG4T 0x016b,0x04b4,0x0001,0x0000
03c2 0173 04b7 | s | .DBG4T 0x0173,0x04b7,0x0002,0x4000
03c6 01c3 04dd | | .DBG4T 0x01c3,0x04dd,0x0001,0x0000
03ca 01e3 04e5 | | .DBG4T 0x01e3,0x04e5,0x0001,0x0000
03ce 01fb 04ec | | .DBG4T 0x01fb,0x04ec,0x0001,0x0000
03d2 0213 04f3 | | .DBG4T 0x0213,0x04f3,0x0001,0x0000
03d6 022b 04fa | + | .DBG4T 0x022b,0x04fa,0x0001,0x0000
03da 0233 04fd | 3 | .DBG4T 0x0233,0x04fd,0x0001,0x0000
03de 023b 0500 | ; | .DBG4T 0x023b,0x0500,0x0001,0x0000
03e2 024b 0503 | K | .DBG4T 0x024b,0x0503,0x0001,0x0000
03e6 0253 0506 | S | .DBG4T 0x0253,0x0506,0x0001,0x0000
03ea 0263 0509 | c | .DBG4T 0x0263,0x0509,0x0001,0x0000
03ee 0273 050e | s | .DBG4T 0x0273,0x050e,0x0001,0x0000
03f2 028b 0514 | | .DBG4T 0x028b,0x0514,0x0002,0x0000
03f6 029b 0518 | | .DBG4T 0x029b,0x0518,0x0001,0x0000
03fa 02ab 051c | | .DBG4T 0x02ab,0x051c,0x0002,0x0000
03fe 02d3 0527 | '| .DBG4T 0x02d3,0x0527,0x0002,0x0000
0402 02db 052a | *| .DBG4T 0x02db,0x052a,0x0002,0x0000
0406 02fb 0532 | 2| .DBG4T 0x02fb,0x0532,0x0001,0x0000
040a 030b 0536 | 6| .DBG4T 0x030b,0x0536,0x0002,0x0000
040e 031b 0539 | 9| .DBG4T 0x031b,0x0539,0x0001,0x0000
0412 0333 053c | 3 <| .DBG4T 0x0333,0x053c,0x0004,0x0000
0416 0353 0000 | S | .DBG4T 0x0353,0x0000,0x0005,0x0000
041a ; --------------------------------------------------------------------------------------
041a ; Debug chain
041a ; --------------------------------------------------------------------------------------
041a 001d 0000 | | .DBGLEN 0x001d,0x0000
041c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x004b,0x004d,0x005b,0x0061
0439 0001 0002 | | .XXX[0x1d]
043b 0007 0008 | |
043d 0009 000a | |
043f 000b 000c | |
0441 000d 000e | |
0443 000f 0010 | |
0445 0011 0012 | |
0447 0013 0014 | |
0449 0015 0016 | |
044b 0017 0018 | |
044d 0019 001a | |
044f 001b 001c | |
0451 001d 001e | |
0453 001f 0020 | |
0455 0021 | ! |
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug chain
0456 ; --------------------------------------------------------------------------------------
0456 0020 0000 | | .DBGLEN 0x0020,0x0000
0458 0068 006c | h l| .DBGLNO 0x0068,0x006c,0x006d,0x006f,0x0071,0x0073,0x0082,0x0084,0x0093,0x0095,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc,0x00ce
0478 0004 0005 | | .XXX[0x20]
047a 0006 0007 | |
047c 0008 0009 | |
047e 000a 000b | |
0480 000c 000d | |
0482 000e 000f | |
0484 0010 0011 | |
0486 0012 0013 | |
0488 0014 0015 | |
048a 0016 0017 | |
048c 0018 0019 | |
048e 001a 001b | |
0490 001c 001d | |
0492 001e 001f | |
0494 0020 0021 | !|
0496 0022 0023 | " #|
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug chain
0498 ; --------------------------------------------------------------------------------------
0498 0000 0001 | | .DBGLEN 0x0000,0x0001
049a 00db | | .DBGLNO 0x00db
049b ; --------------------------------------------------------------------------------------
049b ; Debug chain
049b ; --------------------------------------------------------------------------------------
049b 0001 0002 | | .DBGLEN 0x0001,0x0002
049d 0103 0107 | | .DBGLNO 0x0103,0x0107,0x010c
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug chain
04a0 ; --------------------------------------------------------------------------------------
04a0 0002 0007 | | .DBGLEN 0x0002,0x0007
04a2 011b 011d | | .DBGLNO 0x011b,0x011d,0x0121,0x0126,0x0130,0x0133,0x0138,0x013a,0x013d
04ab ; --------------------------------------------------------------------------------------
04ab ; Debug chain
04ab ; --------------------------------------------------------------------------------------
04ab 0000 0001 | | .DBGLEN 0x0000,0x0001
04ad 0143 | C | .DBGLNO 0x0143
04ae ; --------------------------------------------------------------------------------------
04ae ; Debug chain
04ae ; --------------------------------------------------------------------------------------
04ae 0000 0001 | | .DBGLEN 0x0000,0x0001
04b0 0153 | S | .DBGLNO 0x0153
04b1 ; --------------------------------------------------------------------------------------
04b1 ; Debug chain
04b1 ; --------------------------------------------------------------------------------------
04b1 0000 0001 | | .DBGLEN 0x0000,0x0001
04b3 0163 | c | .DBGLNO 0x0163
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug chain
04b4 ; --------------------------------------------------------------------------------------
04b4 0000 0001 | | .DBGLEN 0x0000,0x0001
04b6 016b | k | .DBGLNO 0x016b
04b7 ; --------------------------------------------------------------------------------------
04b7 ; Debug chain
04b7 ; --------------------------------------------------------------------------------------
04b7 0004 0010 | | .DBGLEN 0x0004,0x0010
04b9 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0179,0x017d,0x017f,0x018b,0x018d,0x0191,0x0193,0x0198,0x019e,0x01a2,0x01a6,0x01a8,0x01aa,0x01ac,0x01ae,0x01b2,0x01b6,0x01b8
04cd 0001 0002 | | .XXX[0x10]
04cf 0003 0004 | |
04d1 0005 0006 | |
04d3 0007 0008 | |
04d5 0009 000a | |
04d7 000b 000c | |
04d9 000d 0004 | |
04db 000e 000f | |
04dd ; --------------------------------------------------------------------------------------
04dd ; Debug chain
04dd ; --------------------------------------------------------------------------------------
04dd 0002 0004 | | .DBGLEN 0x0002,0x0004
04df 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01c9,0x01d5,0x01d7,0x01dc
04e5 ; --------------------------------------------------------------------------------------
04e5 ; Debug chain
04e5 ; --------------------------------------------------------------------------------------
04e5 0001 0004 | | .DBGLEN 0x0001,0x0004
04e7 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7,0x01ea,0x01ee,0x01f3
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug chain
04ec ; --------------------------------------------------------------------------------------
04ec 0001 0004 | | .DBGLEN 0x0001,0x0004
04ee 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0202,0x0206,0x020b
04f3 ; --------------------------------------------------------------------------------------
04f3 ; Debug chain
04f3 ; --------------------------------------------------------------------------------------
04f3 0001 0004 | | .DBGLEN 0x0001,0x0004
04f5 0213 0217 | | .DBGLNO 0x0213,0x0217,0x021a,0x021e,0x0223
04fa ; --------------------------------------------------------------------------------------
04fa ; Debug chain
04fa ; --------------------------------------------------------------------------------------
04fa 0000 0001 | | .DBGLEN 0x0000,0x0001
04fc 022b | + | .DBGLNO 0x022b
04fd ; --------------------------------------------------------------------------------------
04fd ; Debug chain
04fd ; --------------------------------------------------------------------------------------
04fd 0000 0001 | | .DBGLEN 0x0000,0x0001
04ff 0233 | 3 | .DBGLNO 0x0233
0500 ; --------------------------------------------------------------------------------------
0500 ; Debug chain
0500 ; --------------------------------------------------------------------------------------
0500 0000 0001 | | .DBGLEN 0x0000,0x0001
0502 023b | ; | .DBGLNO 0x023b
0503 ; --------------------------------------------------------------------------------------
0503 ; Debug chain
0503 ; --------------------------------------------------------------------------------------
0503 0000 0001 | | .DBGLEN 0x0000,0x0001
0505 024b | K | .DBGLNO 0x024b
0506 ; --------------------------------------------------------------------------------------
0506 ; Debug chain
0506 ; --------------------------------------------------------------------------------------
0506 0000 0001 | | .DBGLEN 0x0000,0x0001
0508 0253 | S | .DBGLNO 0x0253
0509 ; --------------------------------------------------------------------------------------
0509 ; Debug chain
0509 ; --------------------------------------------------------------------------------------
0509 0000 0003 | | .DBGLEN 0x0000,0x0003
050b 0263 026a | c j| .DBGLNO 0x0263,0x026a,0x026c
050e ; --------------------------------------------------------------------------------------
050e ; Debug chain
050e ; --------------------------------------------------------------------------------------
050e 0000 0004 | | .DBGLEN 0x0000,0x0004
0510 0273 0275 | s u| .DBGLNO 0x0273,0x0275,0x027b,0x0285
0514 ; --------------------------------------------------------------------------------------
0514 ; Debug chain
0514 ; --------------------------------------------------------------------------------------
0514 0000 0002 | | .DBGLEN 0x0000,0x0002
0516 028b 0291 | | .DBGLNO 0x028b,0x0291
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug chain
0518 ; --------------------------------------------------------------------------------------
0518 0000 0002 | | .DBGLEN 0x0000,0x0002
051a 029b 02a1 | | .DBGLNO 0x029b,0x02a1
051c ; --------------------------------------------------------------------------------------
051c ; Debug chain
051c ; --------------------------------------------------------------------------------------
051c 0001 0008 | | .DBGLEN 0x0001,0x0008
051e 02ab 02ad | | .DBGLNO 0x02ab,0x02ad,0x02b3,0x02b5,0x02b7,0x02bd,0x02bf,0x02c1,0x02c6
0527 ; --------------------------------------------------------------------------------------
0527 ; Debug chain
0527 ; --------------------------------------------------------------------------------------
0527 0000 0001 | | .DBGLEN 0x0000,0x0001
0529 02d5 | | .DBGLNO 0x02d5
052a ; --------------------------------------------------------------------------------------
052a ; Debug chain
052a ; --------------------------------------------------------------------------------------
052a 0001 0005 | | .DBGLEN 0x0001,0x0005
052c 02db 02df | | .DBGLNO 0x02db,0x02df,0x02e4,0x02ea,0x02ee,0x02f3
0532 ; --------------------------------------------------------------------------------------
0532 ; Debug chain
0532 ; --------------------------------------------------------------------------------------
0532 0000 0002 | | .DBGLEN 0x0000,0x0002
0534 02fb 02ff | | .DBGLNO 0x02fb,0x02ff
0536 ; --------------------------------------------------------------------------------------
0536 ; Debug chain
0536 ; --------------------------------------------------------------------------------------
0536 0000 0001 | | .DBGLEN 0x0000,0x0001
0538 030b | | .DBGLNO 0x030b
0539 ; --------------------------------------------------------------------------------------
0539 ; Debug chain
0539 ; --------------------------------------------------------------------------------------
0539 0000 0001 | | .DBGLEN 0x0000,0x0001
053b 031b | | .DBGLNO 0x031b
053c ; --------------------------------------------------------------------------------------
053c ; Debug chain
053c ; --------------------------------------------------------------------------------------
053c 0000 0005 | | .DBGLEN 0x0000,0x0005
053e 0333 033d | 3 =| .DBGLNO 0x0333,0x033d,0x0340,0x034a,0x034d
0543 0000 0000 | | .BLANK 0000[0xbd]