|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 0378 | x | .CONST 0x0378 ; 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 00a1 | | .CONST 0x00a1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e 4818 |H | Short_Literal 0x18 000f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0012 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0014 00e9 | | Load_Encached String_Cache 0015 0129 | ) | Execute Any,Make_Visible 0016 00c4 | | Action Make_Default 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 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 002f c225 | % | Store 0x1,0x25 0030 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0032 c226 | & | Store 0x1,0x26 0033 4818 |H | Short_Literal 0x18 0034 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0035 c216 | | Store 0x1,0x16 0036 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0038 c227 | ' | Store 0x1,0x27 0039 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 003b c218 | | Store 0x1,0x18 003c 4805 |H | Short_Literal 0x5 003d 032b | + | Declare_Type Record,Incomplete,Visible 003e c219 | | Store 0x1,0x19 003f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0041 c21a | | Store 0x1,0x1a 0042 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0044 c228 | ( | Store 0x1,0x28 0045 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0047 c21c | | Store 0x1,0x1c 0048 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 004a c21d | | Store 0x1,0x1d 004b 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 004d c21e | | Store 0x1,0x1e 004e 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0050 c21f | | Store 0x1,0x1f 0051 e002 | | Load 0x0,0x2 0052 0129 | ) | Execute Any,Make_Visible 0053 c220 | | Store 0x1,0x20 0054 e003 | | Load 0x0,0x3 0055 0129 | ) | Execute Any,Make_Visible 0056 c221 | ! | Store 0x1,0x21 0057 e004 | | Load 0x0,0x4 0058 e005 | | Load 0x0,0x5 0059 4850 |HP | Short_Literal 0x50 005a e006 | | Load 0x0,0x6 005b 0387 | | Declare_Variable Package 005c 00d8 | | Load_Top At_Offset_0 005d 020f | | Execute Module,Activate 005e c222 | " | Store 0x1,0x22 005f e222 | " | Load 0x1,0x22 0060 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0061 c223 | # | Store 0x1,0x23 0062 4805 |H | Short_Literal 0x5 0063 032a | * | Declare_Type Record,Incomplete 0064 c224 | $ | Store 0x1,0x24 0065 e224 | $ | Load 0x1,0x24 0066 02a0 | | Declare_Subprogram Null_Subprogram 0067 e20e | | Load 0x1,0xe 0068 03c7 | | Complete_Type Access,By_Defining 0069 e223 | # | Load 0x1,0x23 006a 00d8 | | Load_Top At_Offset_0 006b e001 | | Load 0x0,0x1 006c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 006d e001 | | Load 0x0,0x1 006e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 006f e20e | | Load 0x1,0xe 0070 02a0 | | Declare_Subprogram Null_Subprogram 0071 e224 | $ | Load 0x1,0x24 0072 0326 | & | Complete_Type Record,By_Defining 0073 e224 | $ | Load 0x1,0x24 0074 e219 | | Load 0x1,0x19 0075 0325 | % | Complete_Type Record,By_Renaming 0076 e20e | | Load 0x1,0xe 0077 e216 | | Load 0x1,0x16 0078 03c6 | | Complete_Type Access,By_Renaming 0079 00bf | | Action Accept_Activation 007a 00ea | | Load_Encached Null_String_Cache 007b e222 | " | Load 0x1,0x22 007c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007d 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 007f 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 0081 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0082 00c7 | | Action Elaborate_Subprogram 0083 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0084 00c7 | | Action Elaborate_Subprogram 0085 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0086 00c7 | | Action Elaborate_Subprogram 0087 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0088 00c7 | | Action Elaborate_Subprogram 0089 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 008b 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 008d 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 008f 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 0091 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0092 00c7 | | Action Elaborate_Subprogram 0093 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0094 00c7 | | Action Elaborate_Subprogram 0095 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0096 00c7 | | Action Elaborate_Subprogram 0097 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0098 00c7 | | Action Elaborate_Subprogram 0099 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 009a 00c7 | | Action Elaborate_Subprogram 009b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 009c 00c7 | | Action Elaborate_Subprogram 009d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009e 00c7 | | Action Elaborate_Subprogram 009f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a0 00c7 | | Action Elaborate_Subprogram 00a1 BODY_0008: 00a1 00bc | | Action Signal_Activated 00a2 00bb | | Action Signal_Completion 00a3 0000 0000 | | .BLANK 0000[0x5] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e20e | | Load 0x1,0xe 00ac 00ca | | Action Exit_Nullary_Function 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00cc | | .CONST 0x00cc ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0005 | | .CONST 0x0005 ; Number of locals 00b3 INIT_00b0: 00b3 e224 | $ | Load 0x1,0x24 00b4 0322 | " | Declare_Variable Record 00b5 e229 | ) | Load 0x1,0x29 00b6 00d9 | | Load_Top At_Offset_1 00b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b8 e229 | ) | Load 0x1,0x29 00b9 00d9 | | Load_Top At_Offset_1 00ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bb e001 | | Load 0x0,0x1 00bc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00bd 00d9 | | Load_Top At_Offset_1 00be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00bf 4801 |H | Short_Literal 0x1 00c0 00d9 | | Load_Top At_Offset_1 00c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c2 e20e | | Load 0x1,0xe 00c3 00d9 | | Load_Top At_Offset_1 00c4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00c5 e20e | | Load 0x1,0xe 00c6 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00c7 00d8 | | Load_Top At_Offset_0 00c8 0007 | | Action Break_Optional 00c9 e5ff | | Load 0x2,-0x1 00ca 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 00cc BODY_00b0: 00cc 00cf | | Action Mark_Auxiliary 00cd 780a |x | Jump 0xd8 00ce 8405 | | Call 0x2,0x5 00cf 00db | | Load_Top At_Offset_3 00d0 0227 | ' | Execute Access,All_Reference 00d1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00d2 a403 | | Store_Unchecked 0x2,0x3 00d3 00da | | Load_Top At_Offset_2 00d4 0227 | ' | Execute Access,All_Reference 00d5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00d6 003b | ; | Store_Top Access,At_Offset_3 00d7 00c9 | | Action Pop_Auxiliary_Loop 00d8 00da | | Load_Top At_Offset_2 00d9 77f4 |w | Jump_Nonzero 0xce 00da 00ce | | Action Pop_Auxiliary 00db 00db | | Load_Top At_Offset_3 00dc 0227 | ' | Execute Access,All_Reference 00dd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e9 | | .CONST 0x00e9 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0004 | | .CONST 0x0004 ; Number of locals 00e3 INIT_00e0: 00e3 e223 | # | Load 0x1,0x23 00e4 0007 | | Action Break_Optional 00e5 00d8 | | Load_Top At_Offset_0 00e6 0007 | | Action Break_Optional 00e7 e5fb | | Load 0x2,-0x5 00e8 822a | * | Call 0x1,0x2a 00e9 BODY_00e0: 00e9 00da | | Load_Top At_Offset_2 00ea e5ff | | Load 0x2,-0x1 00eb e222 | " | Load 0x1,0x22 00ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00ed 003b | ; | Store_Top Access,At_Offset_3 00ee 00d9 | | Load_Top At_Offset_1 00ef e5fe | | Load 0x2,-0x2 00f0 e222 | " | Load 0x1,0x22 00f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f2 003a | : | Store_Top Access,At_Offset_2 00f3 e5fb | | Load 0x2,-0x5 00f4 7015 |p | Jump_Nonzero 0x10a 00f5 e224 | $ | Load 0x1,0x24 00f6 0322 | " | Declare_Variable Record 00f7 00db | | Load_Top At_Offset_3 00f8 00d9 | | Load_Top At_Offset_1 00f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00fa 00da | | Load_Top At_Offset_2 00fb 00d9 | | Load_Top At_Offset_1 00fc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00fd e5fd | | Load 0x2,-0x3 00fe 00d9 | | Load_Top At_Offset_1 00ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0100 e5fc | | Load 0x2,-0x4 0101 00d9 | | Load_Top At_Offset_1 0102 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0103 e20e | | Load 0x1,0xe 0104 00d9 | | Load_Top At_Offset_1 0105 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0106 e20e | | Load 0x1,0xe 0107 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0108 a5fb | | Store_Unchecked 0x2,-0x5 0109 4505 |E | Exit_Suprogram New_Top_Offset 0x5 010a e224 | $ | Load 0x1,0x24 010b 0322 | " | Declare_Variable Record 010c 00db | | Load_Top At_Offset_3 010d 00d9 | | Load_Top At_Offset_1 010e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 010f 00da | | Load_Top At_Offset_2 0110 00d9 | | Load_Top At_Offset_1 0111 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0112 e5fd | | Load 0x2,-0x3 0113 00d9 | | Load_Top At_Offset_1 0114 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0115 e5fc | | Load 0x2,-0x4 0116 00d9 | | Load_Top At_Offset_1 0117 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0118 e20e | | Load 0x1,0xe 0119 00d9 | | Load_Top At_Offset_1 011a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 011b e20e | | Load 0x1,0xe 011c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 011d 00d9 | | Load_Top At_Offset_1 011e 0227 | ' | Execute Access,All_Reference 011f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0120 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012e | . | .CONST 0x012e ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e5fb | | Load 0x2,-0x5 012c 00db | | Load_Top At_Offset_3 012d 822b | + | Call 0x1,0x2b 012e BODY_0128: 012e e5fe | | Load 0x2,-0x2 012f 01db | | Execute Vector,Length 0130 680a |h | Jump_Zero 0x13b 0131 00d8 | | Load_Top At_Offset_0 0132 0229 | ) | Execute Access,All_Read 0133 00d8 | | Load_Top At_Offset_0 0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0135 e5fe | | Load 0x2,-0x2 0136 e222 | " | Load 0x1,0x22 0137 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0138 00d9 | | Load_Top At_Offset_1 0139 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013a 00d1 | | Pop_Control Pop_Count_1 013b e5fd | | Load 0x2,-0x3 013c 00d9 | | Load_Top At_Offset_1 013d 0227 | ' | Execute Access,All_Reference 013e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 013f e5fc | | Load 0x2,-0x4 0140 00d9 | | Load_Top At_Offset_1 0141 0227 | ' | Execute Access,All_Reference 0142 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0143 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014c | L | .CONST 0x014c ; Address of begin 0149 0164 | d | .CONST 0x0164 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b 00e8 | | Load_Encached Character_Cache 014c BODY_0148: 014c 00db | | Load_Top At_Offset_3 014d e007 | | Load 0x0,0x7 014e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014f e5fc | | Load 0x2,-0x4 0150 e5fd | | Load 0x2,-0x3 0151 e5ff | | Load 0x2,-0x1 0152 822c | , | Call 0x1,0x2c 0153 e5fb | | Load 0x2,-0x5 0154 680c |h | Jump_Zero 0x161 0155 00e8 | | Load_Encached Character_Cache 0156 00ea | | Load_Encached Null_String_Cache 0157 e5fe | | Load 0x2,-0x2 0158 e001 | | Load 0x0,0x1 0159 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 015a 0059 | Y | Store_Top Discrete,At_Offset_1 015b e5fc | | Load 0x2,-0x4 015c e5fd | | Load 0x2,-0x3 015d e5fe | | Load 0x2,-0x2 015e 822f | / | Call 0x1,0x2f 015f a5fa | | Store_Unchecked 0x2,-0x6 0160 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0161 e216 | | Load 0x1,0x16 0162 a5fa | | Store_Unchecked 0x2,-0x6 0163 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0164 TRAP_0148: 0164 e220 | | Load 0x1,0x20 0165 010f | | Execute Exception,Equal 0166 6802 |h | Jump_Zero 0x169 0167 00d8 | | Load_Top At_Offset_0 0168 0101 | | Execute Exception,Reraise 0169 0100 | | Execute Exception,Raise 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 8210 | | Call 0x1,0x10 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 6804 |h | Jump_Zero 0x181 017d 00da | | Load_Top At_Offset_2 017e 0227 | ' | Execute Access,All_Reference 017f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0180 003b | ; | Store_Top Access,At_Offset_3 0181 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0182 0000 0000 | | .BLANK 0000[0x6] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 022d | - | Execute Access,Is_Null 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 0227 | ' | Execute Access,All_Reference 0195 0320 | | Declare_Variable Record,Duplicate 0196 00cd | | Action Spare6_Action 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019d e222 | " | Load 0x1,0x22 019e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a5 e222 | " | Load 0x1,0x22 01a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 4801 |H | Short_Literal 0x1 01ac 00ea | | Load_Encached Null_String_Cache 01ad 4820 |H | Short_Literal 0x20 01ae e5ff | | Load 0x2,-0x1 01af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b0 e222 | " | Load 0x1,0x22 01b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b2 e008 | | Load 0x0,0x8 01b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b4 e008 | | Load 0x0,0x8 01b5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bd | | .CONST 0x01bd ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 0007 | | Action Break_Optional 01bd BODY_01b8: 01bd 00db | | Load_Top At_Offset_3 01be 7002 |p | Jump_Nonzero 0x1c1 01bf 00db | | Load_Top At_Offset_3 01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c1 00cf | | Action Mark_Auxiliary 01c2 7805 |x | Jump 0x1c8 01c3 00d9 | | Load_Top At_Offset_1 01c4 0227 | ' | Execute Access,All_Reference 01c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01c6 003a | : | Store_Top Access,At_Offset_2 01c7 00c9 | | Action Pop_Auxiliary_Loop 01c8 00d9 | | Load_Top At_Offset_1 01c9 0227 | ' | Execute Access,All_Reference 01ca 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01cb 77f7 |w | Jump_Nonzero 0x1c3 01cc 00ce | | Action Pop_Auxiliary 01cd 00d8 | | Load_Top At_Offset_0 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d5 | | .CONST 0x01d5 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 00db | | Load_Top At_Offset_3 01d4 0007 | | Action Break_Optional 01d5 BODY_01d0: 01d5 e5fe | | Load 0x2,-0x2 01d6 7002 |p | Jump_Nonzero 0x1d9 01d7 e221 | ! | Load 0x1,0x21 01d8 0257 | W | Execute Discrete,Raise 01d9 00cf | | Action Mark_Auxiliary 01da 780f |x | Jump 0x1ea 01db 00d9 | | Load_Top At_Offset_1 01dc 0227 | ' | Execute Access,All_Reference 01dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01de e222 | " | Load 0x1,0x22 01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e0 e5ff | | Load 0x2,-0x1 01e1 01df | | Execute Vector,Equal 01e2 6802 |h | Jump_Zero 0x1e5 01e3 00d9 | | Load_Top At_Offset_1 01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e5 00d9 | | Load_Top At_Offset_1 01e6 0227 | ' | Execute Access,All_Reference 01e7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01e8 003a | : | Store_Top Access,At_Offset_2 01e9 00c9 | | Action Pop_Auxiliary_Loop 01ea 00d9 | | Load_Top At_Offset_1 01eb 77ef |w | Jump_Nonzero 0x1db 01ec 00ce | | Action Pop_Auxiliary 01ed e221 | ! | Load 0x1,0x21 01ee 0257 | W | Execute Discrete,Raise 01ef 0000 | | .XXX[0x1] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fa | | .CONST 0x01fa ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0006 | | .CONST 0x0006 ; Number of locals 01f3 INIT_01f0: 01f3 00db | | Load_Top At_Offset_3 01f4 0007 | | Action Break_Optional 01f5 00e4 | | Load_Encached Positive_Cache 01f6 00e4 | | Load_Encached Positive_Cache 01f7 00e1 | | Load_Encached Boolean_Cache 01f8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01f9 00e8 | | Load_Encached Character_Cache 01fa BODY_01f0: 01fa 4800 |H | Short_Literal 0x0 01fb 4801 |H | Short_Literal 0x1 01fc 4801 |H | Short_Literal 0x1 01fd e5ff | | Load 0x2,-0x1 01fe e001 | | Load 0x0,0x1 01ff 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0200 00cf | | Action Mark_Auxiliary 0201 7861 |xa | Jump 0x263 0202 4802 |H | Short_Literal 0x2 0203 e001 | | Load 0x0,0x1 0204 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0205 e402 | | Load 0x2,0x2 0206 0227 | ' | Execute Access,All_Reference 0207 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0208 e222 | " | Load 0x1,0x22 0209 1816 | | Execute Package,Field_Execute,Field_Number 0x16 020a 0092 0370 | p| Action Push_String_Extended,0x370 ; " : " 020c 01cc | | Execute Vector,Catenate 020d e5ff | | Load 0x2,-0x1 020e e001 | | Load 0x0,0x1 020f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0210 00da | | Load_Top At_Offset_2 0211 7010 |p | Jump_Nonzero 0x222 0212 e402 | | Load 0x2,0x2 0213 0227 | ' | Execute Access,All_Reference 0214 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0215 0f01 | | Execute_Immediate Equal,0x1 0216 680b |h | Jump_Zero 0x222 0217 4801 |H | Short_Literal 0x1 0218 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0219 e001 | | Load 0x0,0x1 021a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 021b e001 | | Load 0x0,0x1 021c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 021d e5ff | | Load 0x2,-0x1 021e e001 | | Load 0x0,0x1 021f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0220 c404 | | Store 0x2,0x4 0221 c403 | | Store 0x2,0x3 0222 00cf | | Action Mark_Auxiliary 0223 e402 | | Load 0x2,0x2 0224 0227 | ' | Execute Access,All_Reference 0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0226 e222 | " | Load 0x1,0x22 0227 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0228 4801 |H | Short_Literal 0x1 0229 0263 | c | Execute Discrete,Above_Bound 022a 701b |p | Jump_Nonzero 0x246 022b 00d8 | | Load_Top At_Offset_0 022c e402 | | Load 0x2,0x2 022d 0227 | ' | Execute Access,All_Reference 022e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 022f e222 | " | Load 0x1,0x22 0230 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0231 a406 | | Store_Unchecked 0x2,0x6 0232 e406 | | Load 0x2,0x6 0233 0f0a | | Execute_Immediate Equal,0xa 0234 6805 |h | Jump_Zero 0x23a 0235 4801 |H | Short_Literal 0x1 0236 e5ff | | Load 0x2,-0x1 0237 e001 | | Load 0x0,0x1 0238 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0239 780a |x | Jump 0x244 023a e402 | | Load 0x2,0x2 023b 0227 | ' | Execute Access,All_Reference 023c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 023d e402 | | Load 0x2,0x2 023e 0227 | ' | Execute Access,All_Reference 023f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0240 e406 | | Load 0x2,0x6 0241 e5ff | | Load 0x2,-0x1 0242 e001 | | Load 0x0,0x1 0243 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0244 00c8 | | Action Pop_Auxiliary_Range 0245 3fe5 |? | Loop_Increasing 0x22b 0246 00ce | | Action Pop_Auxiliary 0247 4801 |H | Short_Literal 0x1 0248 e5ff | | Load 0x2,-0x1 0249 e001 | | Load 0x0,0x1 024a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 024b 00cf | | Action Mark_Auxiliary 024c e5fd | | Load 0x2,-0x3 024d 4801 |H | Short_Literal 0x1 024e 0263 | c | Execute Discrete,Above_Bound 024f 700d |p | Jump_Nonzero 0x25d 0250 4800 |H | Short_Literal 0x0 0251 e001 | | Load 0x0,0x1 0252 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0253 4820 |H | Short_Literal 0x20 0254 e5ff | | Load 0x2,-0x1 0255 e001 | | Load 0x0,0x1 0256 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0257 4801 |H | Short_Literal 0x1 0258 e5ff | | Load 0x2,-0x1 0259 e001 | | Load 0x0,0x1 025a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 025b 00c8 | | Action Pop_Auxiliary_Range 025c 3ff3 |? | Loop_Increasing 0x250 025d 00ce | | Action Pop_Auxiliary 025e e402 | | Load 0x2,0x2 025f 0227 | ' | Execute Access,All_Reference 0260 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0261 a402 | | Store_Unchecked 0x2,0x2 0262 00c9 | | Action Pop_Auxiliary_Loop 0263 e402 | | Load 0x2,0x2 0264 779d |w | Jump_Nonzero 0x202 0265 00ce | | Action Pop_Auxiliary 0266 00d9 | | Load_Top At_Offset_1 0267 6806 |h | Jump_Zero 0x26e 0268 4800 |H | Short_Literal 0x0 0269 e403 | | Load 0x2,0x3 026a e404 | | Load 0x2,0x4 026b e5ff | | Load 0x2,-0x1 026c e001 | | Load 0x0,0x1 026d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 026e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 026f 0000 | | .XXX[0x1] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0285 | | .CONST 0x0285 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00db | | Load_Top At_Offset_3 0274 01dd | | Execute Vector,First 0275 e5fe | | Load 0x2,-0x2 0276 01dd | | Execute Vector,First 0277 e5ff | | Load 0x2,-0x1 0278 01db | | Execute Vector,Length 0279 0273 | s | Execute Discrete,Plus 027a 0aff | | Execute_Immediate Plus,-0x1 027b 00d8 | | Load_Top At_Offset_0 027c 00e2 | | Load_Encached Integer_Cache 027d 0260 | ` | Execute Discrete,In_Type 027e 7001 |p | Jump_Nonzero 0x280 027f 0801 | | Execute_Immediate Raise,0x1 0280 e5fe | | Load 0x2,-0x2 0281 01cf | | Execute Vector,Slice_Read 0282 00db | | Load_Top At_Offset_3 0283 01df | | Execute Vector,Equal 0284 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0285 TRAP_0270: 0285 010e | | Execute Exception,Is_Constraint_Error 0286 6802 |h | Jump_Zero 0x289 0287 4800 |H | Short_Literal 0x0 0288 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0289 0100 | | Execute Exception,Raise 028a 0000 0000 | | .BLANK 0000[0x6] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00db | | Load_Top At_Offset_3 0294 01dd | | Execute Vector,First 0295 00db | | Load_Top At_Offset_3 0296 01db | | Execute Vector,Length 0297 0273 | s | Execute Discrete,Plus 0298 00d8 | | Load_Top At_Offset_0 0299 00e2 | | Load_Encached Integer_Cache 029a 0260 | ` | Execute Discrete,In_Type 029b 7001 |p | Jump_Nonzero 0x29d 029c 0801 | | Execute_Immediate Raise,0x1 029d e5fe | | Load 0x2,-0x2 029e 01dc | | Execute Vector,Last 029f e5fe | | Load 0x2,-0x2 02a0 01cf | | Execute Vector,Slice_Read 02a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02af | | .CONST 0x02af ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0003 | | .CONST 0x0003 ; Number of locals 02ab INIT_02a8: 02ab 00db | | Load_Top At_Offset_3 02ac 8210 | | Call 0x1,0x10 02ad 00d8 | | Load_Top At_Offset_0 02ae 0007 | | Action Break_Optional 02af BODY_02a8: 02af 4800 |H | Short_Literal 0x0 02b0 4801 |H | Short_Literal 0x1 02b1 4801 |H | Short_Literal 0x1 02b2 e5ff | | Load 0x2,-0x1 02b3 e001 | | Load 0x0,0x1 02b4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02b5 e5ff | | Load 0x2,-0x1 02b6 e001 | | Load 0x0,0x1 02b7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 02b8 00d9 | | Load_Top At_Offset_1 02b9 0227 | ' | Execute Access,All_Reference 02ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02bb e222 | " | Load 0x1,0x22 02bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02bd 0092 0370 | p| Action Push_String_Extended,0x370 ; " : " 02bf 01cc | | Execute Vector,Catenate 02c0 822d | - | Call 0x1,0x2d 02c1 6816 |h | Jump_Zero 0x2d8 02c2 00d8 | | Load_Top At_Offset_0 02c3 0229 | ) | Execute Access,All_Read 02c4 00d8 | | Load_Top At_Offset_0 02c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c6 e5ff | | Load 0x2,-0x1 02c7 e001 | | Load 0x0,0x1 02c8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 02c9 00db | | Load_Top At_Offset_3 02ca 0227 | ' | Execute Access,All_Reference 02cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cc e222 | " | Load 0x1,0x22 02cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02ce 0092 0370 | p| Action Push_String_Extended,0x370 ; " : " 02d0 01cc | | Execute Vector,Catenate 02d1 822e | . | Call 0x1,0x2e 02d2 e222 | " | Load 0x1,0x22 02d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02d4 00d9 | | Load_Top At_Offset_1 02d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02d6 00d1 | | Pop_Control Pop_Count_1 02d7 7802 |x | Jump 0x2da 02d8 e220 | | Load 0x1,0x20 02d9 0257 | W | Execute Discrete,Raise 02da 00cf | | Action Mark_Auxiliary 02db e5ff | | Load 0x2,-0x1 02dc e001 | | Load 0x0,0x1 02dd 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 02de 4802 |H | Short_Literal 0x2 02df 0263 | c | Execute Discrete,Above_Bound 02e0 7051 |pQ | Jump_Nonzero 0x332 02e1 e5ff | | Load 0x2,-0x1 02e2 e007 | | Load 0x0,0x7 02e3 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e4 4820 |H | Short_Literal 0x20 02e5 e5ff | | Load 0x2,-0x1 02e6 e001 | | Load 0x0,0x1 02e7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 02e8 e008 | | Load 0x0,0x8 02e9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02ea 01db | | Execute Vector,Length 02eb 7001 |p | Jump_Nonzero 0x2ed 02ec 7843 |xC | Jump 0x330 02ed 00db | | Load_Top At_Offset_3 02ee 0227 | ' | Execute Access,All_Reference 02ef 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02f0 6829 |h) | Jump_Zero 0x31a 02f1 e5ff | | Load 0x2,-0x1 02f2 e001 | | Load 0x0,0x1 02f3 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 02f4 e403 | | Load 0x2,0x3 02f5 0227 | ' | Execute Access,All_Reference 02f6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02f7 0227 | ' | Execute Access,All_Reference 02f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02f9 e222 | " | Load 0x1,0x22 02fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02fb 0092 0370 | p| Action Push_String_Extended,0x370 ; " : " 02fd 01cc | | Execute Vector,Catenate 02fe 822d | - | Call 0x1,0x2d 02ff 681a |h | Jump_Zero 0x31a 0300 00db | | Load_Top At_Offset_3 0301 0227 | ' | Execute Access,All_Reference 0302 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0303 a403 | | Store_Unchecked 0x2,0x3 0304 00db | | Load_Top At_Offset_3 0305 0229 | ) | Execute Access,All_Read 0306 00d8 | | Load_Top At_Offset_0 0307 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0308 e5ff | | Load 0x2,-0x1 0309 e001 | | Load 0x0,0x1 030a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 030b e403 | | Load 0x2,0x3 030c 0227 | ' | Execute Access,All_Reference 030d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 030e e222 | " | Load 0x1,0x22 030f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0310 0092 0370 | p| Action Push_String_Extended,0x370 ; " : " 0312 01cc | | Execute Vector,Catenate 0313 822e | . | Call 0x1,0x2e 0314 e222 | " | Load 0x1,0x22 0315 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0316 00d9 | | Load_Top At_Offset_1 0317 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0318 00d1 | | Pop_Control Pop_Count_1 0319 7816 |x | Jump 0x330 031a 00db | | Load_Top At_Offset_3 031b 0229 | ) | Execute Access,All_Read 031c 00d8 | | Load_Top At_Offset_0 031d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 031e 480a |H | Short_Literal 0xa 031f e222 | " | Load 0x1,0x22 0320 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0321 00d9 | | Load_Top At_Offset_1 0322 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0323 00d1 | | Pop_Control Pop_Count_1 0324 00db | | Load_Top At_Offset_3 0325 0229 | ) | Execute Access,All_Read 0326 00d8 | | Load_Top At_Offset_0 0327 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0328 e5ff | | Load 0x2,-0x1 0329 e001 | | Load 0x0,0x1 032a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 032b e222 | " | Load 0x1,0x22 032c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 032d 00d9 | | Load_Top At_Offset_1 032e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 032f 00d1 | | Pop_Control Pop_Count_1 0330 00c8 | | Action Pop_Auxiliary_Range 0331 3faf |? | Loop_Increasing 0x2e1 0332 00ce | | Action Pop_Auxiliary 0333 00d8 | | Load_Top At_Offset_0 0334 0227 | ' | Execute Access,All_Reference 0335 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0336 6802 |h | Jump_Zero 0x339 0337 e220 | | Load 0x1,0x20 0338 0257 | W | Execute Discrete,Raise 0339 00d9 | | Load_Top At_Offset_1 033a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 033b 0000 0000 | | .BLANK 0000[0x5] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0347 | G | .CONST 0x0347 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 e223 | # | Load 0x1,0x23 0344 0007 | | Action Break_Optional 0345 00d8 | | Load_Top At_Offset_0 0346 0007 | | Action Break_Optional 0347 BODY_0340: 0347 00d9 | | Load_Top At_Offset_1 0348 e404 | | Load 0x2,0x4 0349 0227 | ' | Execute Access,All_Reference 034a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 034b e222 | " | Load 0x1,0x22 034c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 034d 003a | : | Store_Top Access,At_Offset_2 034e 00d8 | | Load_Top At_Offset_0 034f e404 | | Load 0x2,0x4 0350 0227 | ' | Execute Access,All_Reference 0351 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0352 e222 | " | Load 0x1,0x22 0353 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0354 0039 | 9 | Store_Top Access,At_Offset_1 0355 e224 | $ | Load 0x1,0x24 0356 0322 | " | Declare_Variable Record 0357 00da | | Load_Top At_Offset_2 0358 00d9 | | Load_Top At_Offset_1 0359 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 035a 00d9 | | Load_Top At_Offset_1 035b 00d9 | | Load_Top At_Offset_1 035c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 035d e404 | | Load 0x2,0x4 035e 0227 | ' | Execute Access,All_Reference 035f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0360 00d9 | | Load_Top At_Offset_1 0361 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0362 e404 | | Load 0x2,0x4 0363 0227 | ' | Execute Access,All_Reference 0364 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0365 00d9 | | Load_Top At_Offset_1 0366 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0367 e20e | | Load 0x1,0xe 0368 00d9 | | Load_Top At_Offset_1 0369 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 036a e20e | | Load 0x1,0xe 036b 03b6 | | Declare_Variable Access,By_Allocation,With_Value 036c e403 | | Load 0x2,0x3 036d 0227 | ' | Execute Access,All_Reference 036e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 036f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0370 ; -------------------------------------------------------------------------------------- 0370 ; STRING TABLE 0370 ; -------------------------------------------------------------------------------------- 0370 0004 | | .STRTAB 0x0004->0x0372 ; " : " 0371 0005 | | .STREND 0x0005->0x0373 0372 203a 2000 | : | .STRTAB_STRINGS 0374 0000 0000 | | .BLANK 0000[0x4] 0378 ; -------------------------------------------------------------------------------------- 0378 ; Debug Table 0378 ; -------------------------------------------------------------------------------------- 0378 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7152,0x0000,0x0001,0x0015 037e 000b 03d2 | | .DBG4T 0x000b,0x03d2,0x8000,0x8000 0382 007a 0408 | z | .DBG4T 0x007a,0x0408,0x8000,0x8000 0386 00ab 0430 | 0| .DBG4T 0x00ab,0x0430,0x0002,0x0000 038a 00b3 0433 | 3| .DBG4T 0x00b3,0x0433,0x0002,0x4000 038e 00e3 0442 | B| .DBG4T 0x00e3,0x0442,0x0001,0x0000 0392 012b 044c | + L| .DBG4T 0x012b,0x044c,0x0001,0x0000 0396 014b 0453 | K S| .DBG4T 0x014b,0x0453,0x0001,0x0000 039a 0173 045d | s ]| .DBG4T 0x0173,0x045d,0x0002,0x0000 039e 017b 0460 | { `| .DBG4T 0x017b,0x0460,0x0001,0x0000 03a2 018b 0464 | d| .DBG4T 0x018b,0x0464,0x0002,0x0000 03a6 0193 0467 | g| .DBG4T 0x0193,0x0467,0x0002,0x0000 03aa 019b 046a | j| .DBG4T 0x019b,0x046a,0x0002,0x0000 03ae 01a3 046d | m| .DBG4T 0x01a3,0x046d,0x0002,0x0000 03b2 01ab 0470 | p| .DBG4T 0x01ab,0x0470,0x0002,0x0000 03b6 01bb 0473 | s| .DBG4T 0x01bb,0x0473,0x0002,0x4000 03ba 01d3 0480 | | .DBG4T 0x01d3,0x0480,0x0002,0x4000 03be 01f3 0491 | | .DBG4T 0x01f3,0x0491,0x0001,0x4000 03c2 0273 04bc | s | .DBG4T 0x0273,0x04bc,0x0002,0x0000 03c6 0293 04c0 | | .DBG4T 0x0293,0x04c0,0x0002,0x0000 03ca 02ab 04c3 | | .DBG4T 0x02ab,0x04c3,0x0002,0x0000 03ce 0343 04d7 | C | .DBG4T 0x0343,0x04d7,0x0004,0x0000 03d2 ; -------------------------------------------------------------------------------------- 03d2 ; Debug chain 03d2 ; -------------------------------------------------------------------------------------- 03d2 001a 0000 | | .DBGLEN 0x001a,0x0000 03d4 000b 000e | | .DBGLNO 0x000b,0x000e,0x0010,0x0012,0x0014,0x002d,0x0030,0x0033,0x0036,0x0039,0x003c,0x003f,0x0042,0x0045,0x0048,0x004b,0x004e,0x0051,0x0054,0x0057,0x005f,0x0062,0x0065,0x0069,0x0073,0x0076 03ee 0001 0002 | | .XXX[0x1a] 03f0 0003 0004 | | 03f2 0005 0006 | | 03f4 0007 0008 | | 03f6 0009 000a | | 03f8 000b 000c | | 03fa 000d 000e | | 03fc 000f 0010 | | 03fe 0011 0012 | | 0400 0013 0015 | | 0402 0016 0017 | | 0404 0018 0019 | | 0406 001a 001b | | 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug chain 0408 ; -------------------------------------------------------------------------------------- 0408 0013 0000 | | .DBGLEN 0x0013,0x0000 040a 007a 007d | z }| .DBGLNO 0x007a,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f 041d 0001 0003 | | .XXX[0x13] 041f 0004 0005 | | 0421 0006 0007 | | 0423 0008 0009 | | 0425 000a 000b | | 0427 000c 000d | | 0429 000e 000f | | 042b 0010 0011 | | 042d 0012 0013 | | 042f 0014 | | 0430 ; -------------------------------------------------------------------------------------- 0430 ; Debug chain 0430 ; -------------------------------------------------------------------------------------- 0430 0000 0001 | | .DBGLEN 0x0000,0x0001 0432 00ab | | .DBGLNO 0x00ab 0433 ; -------------------------------------------------------------------------------------- 0433 ; Debug chain 0433 ; -------------------------------------------------------------------------------------- 0433 0003 0005 | | .DBGLEN 0x0003,0x0005 0435 00b3 00c7 | | .DBGLNO 0x00b3,0x00c7,0x00c9,0x00ce,0x00cf,0x00d3,0x00d8,0x00db 043d 0002 0003 | | .XXX[0x5] 043f 0004 0001 | | 0441 0005 | | 0442 ; -------------------------------------------------------------------------------------- 0442 ; Debug chain 0442 ; -------------------------------------------------------------------------------------- 0442 0003 0005 | | .DBGLEN 0x0003,0x0005 0444 00e3 00e5 | | .DBGLNO 0x00e3,0x00e5,0x00e7,0x00e9,0x00ee,0x00f3,0x00f5,0x010a 044c ; -------------------------------------------------------------------------------------- 044c ; Debug chain 044c ; -------------------------------------------------------------------------------------- 044c 0001 0004 | | .DBGLEN 0x0001,0x0004 044e 012b 012e | + .| .DBGLNO 0x012b,0x012e,0x0131,0x013b,0x013f 0453 ; -------------------------------------------------------------------------------------- 0453 ; Debug chain 0453 ; -------------------------------------------------------------------------------------- 0453 0001 0007 | | .DBGLEN 0x0001,0x0007 0455 014b 014c | K L| .DBGLNO 0x014b,0x014c,0x014f,0x0153,0x0155,0x015b,0x0161,0x0167 045d ; -------------------------------------------------------------------------------------- 045d ; Debug chain 045d ; -------------------------------------------------------------------------------------- 045d 0000 0001 | | .DBGLEN 0x0000,0x0001 045f 0173 | s | .DBGLNO 0x0173 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug chain 0460 ; -------------------------------------------------------------------------------------- 0460 0000 0002 | | .DBGLEN 0x0000,0x0002 0462 017b 017d | { }| .DBGLNO 0x017b,0x017d 0464 ; -------------------------------------------------------------------------------------- 0464 ; Debug chain 0464 ; -------------------------------------------------------------------------------------- 0464 0000 0001 | | .DBGLEN 0x0000,0x0001 0466 018b | | .DBGLNO 0x018b 0467 ; -------------------------------------------------------------------------------------- 0467 ; Debug chain 0467 ; -------------------------------------------------------------------------------------- 0467 0000 0001 | | .DBGLEN 0x0000,0x0001 0469 0193 | | .DBGLNO 0x0193 046a ; -------------------------------------------------------------------------------------- 046a ; Debug chain 046a ; -------------------------------------------------------------------------------------- 046a 0000 0001 | | .DBGLEN 0x0000,0x0001 046c 019b | | .DBGLNO 0x019b 046d ; -------------------------------------------------------------------------------------- 046d ; Debug chain 046d ; -------------------------------------------------------------------------------------- 046d 0000 0001 | | .DBGLEN 0x0000,0x0001 046f 01a3 | | .DBGLNO 0x01a3 0470 ; -------------------------------------------------------------------------------------- 0470 ; Debug chain 0470 ; -------------------------------------------------------------------------------------- 0470 0000 0001 | | .DBGLEN 0x0000,0x0001 0472 01ab | | .DBGLNO 0x01ab 0473 ; -------------------------------------------------------------------------------------- 0473 ; Debug chain 0473 ; -------------------------------------------------------------------------------------- 0473 0001 0005 | | .DBGLEN 0x0001,0x0005 0475 01bb 01bd | | .DBGLNO 0x01bb,0x01bd,0x01bf,0x01c3,0x01c8,0x01cd 047b 0001 0002 | | .XXX[0x5] 047d 0004 0003 | | 047f 0005 | | 0480 ; -------------------------------------------------------------------------------------- 0480 ; Debug chain 0480 ; -------------------------------------------------------------------------------------- 0480 0001 0007 | | .DBGLEN 0x0001,0x0007 0482 01d3 01d5 | | .DBGLNO 0x01d3,0x01d5,0x01d7,0x01db,0x01e3,0x01e5,0x01ea,0x01ed 048a 0001 0002 | | .XXX[0x7] 048c 0004 0005 | | 048e 0006 0003 | | 0490 0007 | | 0491 ; -------------------------------------------------------------------------------------- 0491 ; Debug chain 0491 ; -------------------------------------------------------------------------------------- 0491 0005 0012 | | .DBGLEN 0x0005,0x0012 0493 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5,0x01f6,0x01f7,0x01f9,0x01fa,0x0202,0x0210,0x0217,0x0219,0x0223,0x022b,0x0232,0x0235,0x023a,0x0247,0x024c,0x0250,0x0257,0x025e,0x0263,0x0266,0x0268 04aa 0001 0003 | | .XXX[0x12] 04ac 0004 0005 | | 04ae 0006 0007 | | 04b0 0008 0009 | | 04b2 000a 000b | | 04b4 000c 000d | | 04b6 000e 000f | | 04b8 0010 0002 | | 04ba 0011 0012 | | 04bc ; -------------------------------------------------------------------------------------- 04bc ; Debug chain 04bc ; -------------------------------------------------------------------------------------- 04bc 0000 0002 | | .DBGLEN 0x0000,0x0002 04be 0273 0287 | s | .DBGLNO 0x0273,0x0287 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug chain 04c0 ; -------------------------------------------------------------------------------------- 04c0 0000 0001 | | .DBGLEN 0x0000,0x0001 04c2 0293 | | .DBGLNO 0x0293 04c3 ; -------------------------------------------------------------------------------------- 04c3 ; Debug chain 04c3 ; -------------------------------------------------------------------------------------- 04c3 0002 0010 | | .DBGLEN 0x0002,0x0010 04c5 02ab 02ad | | .DBGLNO 0x02ab,0x02ad,0x02af,0x02b5,0x02c2,0x02d8,0x02db,0x02e1,0x02e4,0x02ec,0x02ed,0x0300,0x0304,0x031a,0x0324,0x0333,0x0337,0x0339 04d7 ; -------------------------------------------------------------------------------------- 04d7 ; Debug chain 04d7 ; -------------------------------------------------------------------------------------- 04d7 0002 0003 | | .DBGLEN 0x0002,0x0003 04d9 0343 0345 | C E| .DBGLNO 0x0343,0x0345,0x0347,0x034e,0x0355 04de 0000 0000 | | .BLANK 0000[0x122]