|
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_11cacfe
└─⟦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 0458 | X | .CONST 0x0458 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ac | | .CONST 0x00ac ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002c | , | .CONST 0x002c ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00e9 | | Load_Encached String_Cache 000e 0129 | ) | Execute Any,Make_Visible 000f 00e9 | | Load_Encached String_Cache 0010 02a0 | | Declare_Subprogram Null_Subprogram 0011 4818 |H | Short_Literal 0x18 0012 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0013 4800 |H | Short_Literal 0x0 0014 480c |H | Short_Literal 0xc 0015 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0017 03fe | | Declare_Type Discrete,Defined,Visible 0018 4800 |H | Short_Literal 0x0 0019 4803 |H | Short_Literal 0x3 001a 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 001c 03fe | | Declare_Type Discrete,Defined,Visible 001d 4818 |H | Short_Literal 0x18 001e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 001f 4800 |H | Short_Literal 0x0 0020 4803 |H | Short_Literal 0x3 0021 00e3 | | Load_Encached Natural_Cache 0022 03f9 | | Declare_Type Discrete,Constrained,Visible 0023 4801 |H | Short_Literal 0x1 0024 4803 |H | Short_Literal 0x3 0025 e20f | | Load 0x1,0xf 0026 02a0 | | Declare_Subprogram Null_Subprogram 0027 4801 |H | Short_Literal 0x1 0028 035e | ^ | Declare_Type Array,Defined,Visible 0029 e001 | | Load 0x0,0x1 002a 0129 | ) | Execute Any,Make_Visible 002b e002 | | Load 0x0,0x2 002c 0129 | ) | Execute Any,Make_Visible 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 003c c220 | | Store 0x1,0x20 003d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 003f c219 | | Store 0x1,0x19 0040 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0042 c21a | | Store 0x1,0x1a 0043 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0045 c221 | ! | Store 0x1,0x21 0046 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0048 c21e | | Store 0x1,0x1e 0049 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 004b c21f | | Store 0x1,0x1f 004c 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 004e c222 | " | Store 0x1,0x22 004f 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0051 c223 | # | Store 0x1,0x23 0052 480a |H | Short_Literal 0xa 0053 032a | * | Declare_Type Record,Incomplete 0054 c21c | | Store 0x1,0x1c 0055 e21c | | Load 0x1,0x1c 0056 02a0 | | Declare_Subprogram Null_Subprogram 0057 e212 | | Load 0x1,0x12 0058 03c7 | | Complete_Type Access,By_Defining 0059 00bf | | Action Accept_Activation 005a 00e3 | | Load_Encached Natural_Cache 005b e20f | | Load 0x1,0xf 005c 00e1 | | Load_Encached Boolean_Cache 005d e20f | | Load 0x1,0xf 005e 00d8 | | Load_Top At_Offset_0 005f e20f | | Load 0x1,0xf 0060 e210 | | Load 0x1,0x10 0061 e20d | | Load 0x1,0xd 0062 00d8 | | Load_Top At_Offset_0 0063 e20f | | Load 0x1,0xf 0064 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 0066 4809 |H | Short_Literal 0x9 0067 032d | - | Declare_Type Record,Defined 0068 e211 | | Load 0x1,0x11 0069 00da | | Load_Top At_Offset_2 006a 00db | | Load_Top At_Offset_3 006b 02a0 | | Declare_Subprogram Null_Subprogram 006c 4803 |H | Short_Literal 0x3 006d 032d | - | Declare_Type Record,Defined 006e e20f | | Load 0x1,0xf 006f 0007 | | Action Break_Optional 0070 e003 | | Load 0x0,0x3 0071 e004 | | Load 0x0,0x4 0072 49f4 |I | Short_Literal 0x1f4 0073 e224 | $ | Load 0x1,0x24 0074 4800 |H | Short_Literal 0x0 0075 e005 | | Load 0x0,0x5 0076 0387 | | Declare_Variable Package 0077 00d8 | | Load_Top At_Offset_0 0078 020f | | Execute Module,Activate 0079 e006 | | Load 0x0,0x6 007a e007 | | Load 0x0,0x7 007b e225 | % | Load 0x1,0x25 007c e008 | | Load 0x0,0x8 007d 0387 | | Declare_Variable Package 007e 00d8 | | Load_Top At_Offset_0 007f 020f | | Execute Module,Activate 0080 e009 | | Load 0x0,0x9 0081 e00a | | Load 0x0,0xa 0082 e226 | & | Load 0x1,0x26 0083 e008 | | Load 0x0,0x8 0084 0387 | | Declare_Variable Package 0085 00d8 | | Load_Top At_Offset_0 0086 020f | | Execute Module,Activate 0087 e20f | | Load 0x1,0xf 0088 00d8 | | Load_Top At_Offset_0 0089 e20f | | Load 0x1,0xf 008a e20d | | Load 0x1,0xd 008b 00d8 | | Load_Top At_Offset_0 008c e229 | ) | Load 0x1,0x29 008d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 008e e228 | ( | Load 0x1,0x28 008f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0090 e22a | * | Load 0x1,0x2a 0091 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0092 00e3 | | Load_Encached Natural_Cache 0093 00e3 | | Load_Encached Natural_Cache 0094 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 0096 e21c | | Load 0x1,0x1c 0097 0326 | & | Complete_Type Record,By_Defining 0098 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 009a 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 009c 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009d 00c7 | | Action Elaborate_Subprogram 009e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00ab 00c7 | | Action Elaborate_Subprogram 00ac BODY_0008: 00ac 00bc | | Action Signal_Activated 00ad 00bb | | Action Signal_Completion 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4607 |F | Jump_Case 0x8 00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00b5 7806 |x | Jump 0xbc ; case 0x1 00b6 7809 |x | Jump 0xc0 ; case 0x2 00b7 780d |x | Jump 0xc5 ; case 0x3 00b8 7810 |x | Jump 0xc9 ; case 0x4 00b9 7811 |x | Jump 0xcb ; case 0x5 00ba 7812 |x | Jump 0xcd ; case 0x6 00bb 7815 |x | Jump 0xd1 ; case 0x7 00bc 00da | | Load_Top At_Offset_2 00bd 0091 03dd | | Action Push_String_Extended_Indexed,0x3dd ; "UNDEFINED" 00bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c0 00db | | Load_Top At_Offset_3 00c1 00db | | Load_Top At_Offset_3 00c2 00e0 | | Load_Encached Standard_Cache 00c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c5 00da | | Load_Top At_Offset_2 00c6 00e0 | | Load_Encached Standard_Cache 00c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c9 00db | | Load_Top At_Offset_3 00ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00cb 00db | | Load_Top At_Offset_3 00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00cd e210 | | Load 0x1,0x10 00ce 00dc | | Load_Top At_Offset_4 00cf 0267 | g | Execute Discrete,Predecessor 00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d1 e210 | | Load 0x1,0x10 00d2 00dc | | Load_Top At_Offset_4 00d3 0268 | h | Execute Discrete,Successor 00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 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 4607 |F | Jump_Case 0x8 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00dd 7806 |x | Jump 0xe4 ; case 0x1 00de 7809 |x | Jump 0xe8 ; case 0x2 00df 780d |x | Jump 0xed ; case 0x3 00e0 7810 |x | Jump 0xf1 ; case 0x4 00e1 7811 |x | Jump 0xf3 ; case 0x5 00e2 7812 |x | Jump 0xf5 ; case 0x6 00e3 7815 |x | Jump 0xf9 ; case 0x7 00e4 00da | | Load_Top At_Offset_2 00e5 0091 03ea | | Action Push_String_Extended_Indexed,0x3ea ; "UNDEFINED" 00e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e8 00db | | Load_Top At_Offset_3 00e9 00db | | Load_Top At_Offset_3 00ea 00e0 | | Load_Encached Standard_Cache 00eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed 00da | | Load_Top At_Offset_2 00ee 00e0 | | Load_Encached Standard_Cache 00ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f3 00db | | Load_Top At_Offset_3 00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f5 e211 | | Load 0x1,0x11 00f6 00dc | | Load_Top At_Offset_4 00f7 0267 | g | Execute Discrete,Predecessor 00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f9 e211 | | Load 0x1,0x11 00fa 00dc | | Load_Top At_Offset_4 00fb 0268 | h | Execute Discrete,Successor 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e00b | | Load 0x0,0xb 0104 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0105 e212 | | Load 0x1,0x12 0106 03bc | | Declare_Variable Access,By_Allocation 0107 00d8 | | Load_Top At_Offset_0 0108 0227 | ' | Execute Access,All_Reference 0109 1c00 | | Execute_Immediate Run_Utility,0x0 010a a5fc | | Store_Unchecked 0x2,-0x4 010b e00b | | Load 0x0,0xb 010c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 010d e5fc | | Load 0x2,-0x4 010e 0227 | ' | Execute Access,All_Reference 010f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0110 e00b | | Load 0x0,0xb 0111 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0112 e5fc | | Load 0x2,-0x4 0113 0227 | ' | Execute Access,All_Reference 0114 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0115 00da | | Load_Top At_Offset_2 0116 e20f | | Load 0x1,0xf 0117 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0118 e5fc | | Load 0x2,-0x4 0119 0227 | ' | Execute Access,All_Reference 011a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 011b 00db | | Load_Top At_Offset_3 011c e20f | | Load 0x1,0xf 011d 03b6 | | Declare_Variable Access,By_Allocation,With_Value 011e e5fc | | Load 0x2,-0x4 011f 0227 | ' | Execute Access,All_Reference 0120 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0121 e5fd | | Load 0x2,-0x3 0122 e20f | | Load 0x1,0xf 0123 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0124 e5fc | | Load 0x2,-0x4 0125 0227 | ' | Execute Access,All_Reference 0126 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0127 4800 |H | Short_Literal 0x0 0128 e5fc | | Load 0x2,-0x4 0129 0227 | ' | Execute Access,All_Reference 012a 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 012b 4800 |H | Short_Literal 0x0 012c e5fc | | Load 0x2,-0x4 012d 0227 | ' | Execute Access,All_Reference 012e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 012f e5fc | | Load 0x2,-0x4 0130 0229 | ) | Execute Access,All_Read 0131 e228 | ( | Load 0x1,0x28 0132 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0133 e228 | ( | Load 0x1,0x28 0134 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0135 00d9 | | Load_Top At_Offset_1 0136 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0137 00d1 | | Pop_Control Pop_Count_1 0138 e5fc | | Load 0x2,-0x4 0139 0229 | ) | Execute Access,All_Read 013a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 013b 00d8 | | Load_Top At_Offset_0 013c e229 | ) | Load 0x1,0x29 013d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 013e 00d2 | | Pop_Control Pop_Count_2 013f e5fc | | Load 0x2,-0x4 0140 0229 | ) | Execute Access,All_Read 0141 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0142 00d8 | | Load_Top At_Offset_0 0143 e22a | * | Load 0x1,0x2a 0144 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0145 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014f | O | .CONST 0x014f ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b 029f 031b | | Declare_Subprogram INIT_0318,For_Call 014d 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 014f BODY_0148: 014f e5ff | | Load 0x2,-0x1 0150 0227 | ' | Execute Access,All_Reference 0151 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0152 0a01 | | Execute_Immediate Plus,0x1 0153 e5ff | | Load 0x2,-0x1 0154 0227 | ' | Execute Access,All_Reference 0155 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0156 8403 | | Call 0x2,0x3 0157 e5ff | | Load 0x2,-0x1 0158 0229 | ) | Execute Access,All_Read 0159 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 015a 00d8 | | Load_Top At_Offset_0 015b e225 | % | Load 0x1,0x25 015c 0322 | " | Declare_Variable Record 015d e5fd | | Load 0x2,-0x3 015e e20f | | Load 0x1,0xf 015f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0160 00d9 | | Load_Top At_Offset_1 0161 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0162 e5fb | | Load 0x2,-0x5 0163 00d9 | | Load_Top At_Offset_1 0164 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0165 e5fe | | Load 0x2,-0x2 0166 00d9 | | Load_Top At_Offset_1 0167 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0168 4801 |H | Short_Literal 0x1 0169 e5fa | | Load 0x2,-0x6 016a 01d7 | | Execute Vector,Field_Read 016b 00d9 | | Load_Top At_Offset_1 016c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 016d 4802 |H | Short_Literal 0x2 016e e5fa | | Load 0x2,-0x6 016f 01d7 | | Execute Vector,Field_Read 0170 00d9 | | Load_Top At_Offset_1 0171 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0172 4803 |H | Short_Literal 0x3 0173 e5fa | | Load 0x2,-0x6 0174 01d7 | | Execute Vector,Field_Read 0175 00d9 | | Load_Top At_Offset_1 0176 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0177 e5f9 | | Load 0x2,-0x7 0178 00d9 | | Load_Top At_Offset_1 0179 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 017a e5f8 | | Load 0x2,-0x8 017b 00d9 | | Load_Top At_Offset_1 017c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 017d e5fc | | Load 0x2,-0x4 017e e20f | | Load 0x1,0xf 017f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0180 00d9 | | Load_Top At_Offset_1 0181 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0182 e229 | ) | Load 0x1,0x29 0183 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0184 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0190 | | .CONST 0x0190 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0004 | | .CONST 0x0004 ; Number of locals 018b INIT_0188: 018b 00e1 | | Load_Encached Boolean_Cache 018c e224 | $ | Load 0x1,0x24 018d 0007 | | Action Break_Optional 018e 00d8 | | Load_Top At_Offset_0 018f 0007 | | Action Break_Optional 0190 BODY_0188: 0190 00e1 | | Load_Encached Boolean_Cache 0191 00da | | Load_Top At_Offset_2 0192 e5fc | | Load 0x2,-0x4 0193 e5fd | | Load 0x2,-0x3 0194 822b | + | Call 0x1,0x2b 0195 e5ff | | Load 0x2,-0x1 0196 0227 | ' | Execute Access,All_Reference 0197 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0198 e228 | ( | Load 0x1,0x28 0199 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019a 005b | [ | Store_Top Discrete,At_Offset_3 019b 005b | [ | Store_Top Discrete,At_Offset_3 019c 00da | | Load_Top At_Offset_2 019d 7002 |p | Jump_Nonzero 0x1a0 019e e215 | | Load 0x1,0x15 019f 0257 | W | Execute Discrete,Raise 01a0 00e1 | | Load_Encached Boolean_Cache 01a1 00d9 | | Load_Top At_Offset_1 01a2 e5fa | | Load 0x2,-0x6 01a3 e5fb | | Load 0x2,-0x5 01a4 822b | + | Call 0x1,0x2b 01a5 e5ff | | Load 0x2,-0x1 01a6 0227 | ' | Execute Access,All_Reference 01a7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01a8 e228 | ( | Load 0x1,0x28 01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01aa 005a | Z | Store_Top Discrete,At_Offset_2 01ab 005b | [ | Store_Top Discrete,At_Offset_3 01ac 00da | | Load_Top At_Offset_2 01ad 7002 |p | Jump_Nonzero 0x1b0 01ae e215 | | Load 0x1,0x15 01af 0257 | W | Execute Discrete,Raise 01b0 e5ff | | Load 0x2,-0x1 01b1 0227 | ' | Execute Access,All_Reference 01b2 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01b3 0a01 | | Execute_Immediate Plus,0x1 01b4 e5ff | | Load 0x2,-0x1 01b5 0227 | ' | Execute Access,All_Reference 01b6 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 01b7 e5ff | | Load 0x2,-0x1 01b8 0229 | ) | Execute Access,All_Read 01b9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 01ba 00d8 | | Load_Top At_Offset_0 01bb e226 | & | Load 0x1,0x26 01bc 0322 | " | Declare_Variable Record 01bd e5fe | | Load 0x2,-0x2 01be 00d9 | | Load_Top At_Offset_1 01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c0 e403 | | Load 0x2,0x3 01c1 00d9 | | Load_Top At_Offset_1 01c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c3 00db | | Load_Top At_Offset_3 01c4 00d9 | | Load_Top At_Offset_1 01c5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01c6 e22a | * | Load 0x1,0x2a 01c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c8 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e227 | ' | Load 0x1,0x27 01d4 0227 | ' | Execute Access,All_Reference 01d5 0335 | 5 | Declare_Variable Array,Duplicate 01d6 00cd | | Action Spare6_Action 01d7 00ca | | Action Exit_Nullary_Function 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 0227 | ' | Execute Access,All_Reference 01dd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01de 0f00 | | Execute_Immediate Equal,0x0 01df 00db | | Load_Top At_Offset_3 01e0 0227 | ' | Execute Access,All_Reference 01e1 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01e2 0f00 | | Execute_Immediate Equal,0x0 01e3 0279 | y | Execute Discrete,And 01e4 6802 |h | Jump_Zero 0x1e7 01e5 4801 |H | Short_Literal 0x1 01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e7 4800 |H | Short_Literal 0x0 01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fe | | .CONST 0x01fe ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0005 | | .CONST 0x0005 ; Number of locals 01f3 INIT_01f0: 01f3 e229 | ) | Load 0x1,0x29 01f4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01f5 0322 | " | Declare_Variable Record 01f6 e22a | * | Load 0x1,0x2a 01f7 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01f8 0322 | " | Declare_Variable Record 01f9 e00c | | Load 0x0,0xc 01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01fc 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call 01fe BODY_01f0: 01fe 480a |H | Short_Literal 0xa 01ff 0092 03ee | | Action Push_String_Extended,0x3ee ; "\x22" 0201 e5ff | | Load 0x2,-0x1 0202 0227 | ' | Execute Access,All_Reference 0203 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0204 0227 | ' | Execute Access,All_Reference 0205 01cc | | Execute Vector,Catenate 0206 0092 03ee | | Action Push_String_Extended,0x3ee ; "\x22" 0208 01cc | | Execute Vector,Catenate 0209 01cb | | Execute Vector,Append 020a e00c | | Load 0x0,0xc 020b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 020d 003a | : | Store_Top Access,At_Offset_2 020e 00d9 | | Load_Top At_Offset_1 020f 480a |H | Short_Literal 0xa 0210 0092 03ee | | Action Push_String_Extended,0x3ee ; "\x22" 0212 e5ff | | Load 0x2,-0x1 0213 0227 | ' | Execute Access,All_Reference 0214 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0215 0227 | ' | Execute Access,All_Reference 0216 01cc | | Execute Vector,Catenate 0217 0092 03ee | | Action Push_String_Extended,0x3ee ; "\x22" 0219 01cc | | Execute Vector,Catenate 021a 01cb | | Execute Vector,Append 021b e00c | | Load 0x0,0xc 021c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 021e 003a | : | Store_Top Access,At_Offset_2 021f 00d9 | | Load_Top At_Offset_1 0220 480a |H | Short_Literal 0xa 0221 e5ff | | Load 0x2,-0x1 0222 0227 | ' | Execute Access,All_Reference 0223 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0224 0227 | ' | Execute Access,All_Reference 0225 01cb | | Execute Vector,Append 0226 e00c | | Load 0x0,0xc 0227 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0228 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0229 003a | : | Store_Top Access,At_Offset_2 022a 00d9 | | Load_Top At_Offset_1 022b 480a |H | Short_Literal 0xa 022c e5ff | | Load 0x2,-0x1 022d 0227 | ' | Execute Access,All_Reference 022e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 022f 00e0 | | Load_Encached Standard_Cache 0230 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0231 0092 03ef | | Action Push_String_Extended,0x3ef ; " " 0233 01cc | | Execute Vector,Catenate 0234 e5ff | | Load 0x2,-0x1 0235 0227 | ' | Execute Access,All_Reference 0236 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0237 00e0 | | Load_Encached Standard_Cache 0238 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0239 01cc | | Execute Vector,Catenate 023a 01cb | | Execute Vector,Append 023b e00c | | Load 0x0,0xc 023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 023e 003a | : | Store_Top Access,At_Offset_2 023f 00d9 | | Load_Top At_Offset_1 0240 480a |H | Short_Literal 0xa 0241 e5ff | | Load 0x2,-0x1 0242 0227 | ' | Execute Access,All_Reference 0243 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0244 00e0 | | Load_Encached Standard_Cache 0245 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0246 0092 03ef | | Action Push_String_Extended,0x3ef ; " " 0248 01cc | | Execute Vector,Catenate 0249 e5ff | | Load 0x2,-0x1 024a 0227 | ' | Execute Access,All_Reference 024b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 024c 00e0 | | Load_Encached Standard_Cache 024d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 024e 01cc | | Execute Vector,Catenate 024f 01cb | | Execute Vector,Append 0250 e00c | | Load 0x0,0xc 0251 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0252 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0253 003a | : | Store_Top Access,At_Offset_2 0254 00d9 | | Load_Top At_Offset_1 0255 0092 03f0 | | Action Push_String_Extended,0x3f0 ; "@\x0a" 0257 e00c | | Load 0x0,0xc 0258 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0259 181d | | Execute Package,Field_Execute,Field_Number 0x1d 025a 003a | : | Store_Top Access,At_Offset_2 025b 00db | | Load_Top At_Offset_3 025c e5ff | | Load 0x2,-0x1 025d 0227 | ' | Execute Access,All_Reference 025e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 025f e229 | ) | Load 0x1,0x29 0260 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0261 00d1 | | Pop_Control Pop_Count_1 0262 00cf | | Action Mark_Auxiliary 0263 7806 |x | Jump 0x26a 0264 8405 | | Call 0x2,0x5 0265 e402 | | Load 0x2,0x2 0266 e229 | ) | Load 0x1,0x29 0267 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0268 00d1 | | Pop_Control Pop_Count_1 0269 00c9 | | Action Pop_Auxiliary_Loop 026a e402 | | Load 0x2,0x2 026b e229 | ) | Load 0x1,0x29 026c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 026d 6ff6 |o | Jump_Zero 0x264 026e 00ce | | Action Pop_Auxiliary 026f 00d9 | | Load_Top At_Offset_1 0270 0092 03f0 | | Action Push_String_Extended,0x3f0 ; "@\x0a" 0272 e00c | | Load 0x0,0xc 0273 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0274 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0275 003a | : | Store_Top Access,At_Offset_2 0276 00da | | Load_Top At_Offset_2 0277 e5ff | | Load 0x2,-0x1 0278 0227 | ' | Execute Access,All_Reference 0279 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 027a e22a | * | Load 0x1,0x2a 027b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 027c 00d1 | | Pop_Control Pop_Count_1 027d 00cf | | Action Mark_Auxiliary 027e 7828 |x( | Jump 0x2a7 027f 00da | | Load_Top At_Offset_2 0280 480a |H | Short_Literal 0xa 0281 e403 | | Load 0x2,0x3 0282 e22a | * | Load 0x1,0x2a 0283 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0284 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0285 00d8 | | Load_Top At_Offset_0 0286 00e2 | | Load_Encached Integer_Cache 0287 0260 | ` | Execute Discrete,In_Type 0288 7001 |p | Jump_Nonzero 0x28a 0289 0801 | | Execute_Immediate Raise,0x1 028a 00e0 | | Load_Encached Standard_Cache 028b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 028c e403 | | Load 0x2,0x3 028d e22a | * | Load 0x1,0x2a 028e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 028f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0290 00e0 | | Load_Encached Standard_Cache 0291 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0292 01cc | | Execute Vector,Catenate 0293 0092 03ef | | Action Push_String_Extended,0x3ef ; " " 0295 01cc | | Execute Vector,Catenate 0296 e403 | | Load 0x2,0x3 0297 e22a | * | Load 0x1,0x2a 0298 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0299 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 029a 00e0 | | Load_Encached Standard_Cache 029b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 029c 01cc | | Execute Vector,Catenate 029d 01cb | | Execute Vector,Append 029e e00c | | Load 0x0,0xc 029f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02a1 003b | ; | Store_Top Access,At_Offset_3 02a2 00db | | Load_Top At_Offset_3 02a3 e22a | * | Load 0x1,0x2a 02a4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02a5 00d1 | | Pop_Control Pop_Count_1 02a6 00c9 | | Action Pop_Auxiliary_Loop 02a7 00db | | Load_Top At_Offset_3 02a8 e22a | * | Load 0x1,0x2a 02a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02aa 6fd4 |o | Jump_Zero 0x27f 02ab 00ce | | Action Pop_Auxiliary 02ac 00d9 | | Load_Top At_Offset_1 02ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 0227 | ' | Execute Access,All_Reference 02b5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 02b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 0227 | ' | Execute Access,All_Reference 02bd 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 4608 |F | Jump_Case 0x9 02c4 7808 |x | Jump 0x2cd ; case 0x0 02c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02c6 780d |x | Jump 0x2d4 ; case 0x2 02c7 780c |x | Jump 0x2d4 ; case 0x3 02c8 780b |x | Jump 0x2d4 ; case 0x4 02c9 780a |x | Jump 0x2d4 ; case 0x5 02ca 7809 |x | Jump 0x2d4 ; case 0x6 02cb 7808 |x | Jump 0x2d4 ; case 0x7 02cc 7807 |x | Jump 0x2d4 ; case 0x8 02cd 4800 |H | Short_Literal 0x0 02ce 00db | | Load_Top At_Offset_3 02cf 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 02d0 4800 |H | Short_Literal 0x0 02d1 00db | | Load_Top At_Offset_3 02d2 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02d4 0869 | i | Execute_Immediate Raise,0x69 02d5 0000 0000 | | .XXX[0x3] 02d7 0000 | | 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 4608 |F | Jump_Case 0x9 02dc 7808 |x | Jump 0x2e5 ; case 0x0 02dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 02de 7813 |x | Jump 0x2f2 ; case 0x2 02df 7812 |x | Jump 0x2f2 ; case 0x3 02e0 7811 |x | Jump 0x2f2 ; case 0x4 02e1 7810 |x | Jump 0x2f2 ; case 0x5 02e2 780f |x | Jump 0x2f2 ; case 0x6 02e3 780e |x | Jump 0x2f2 ; case 0x7 02e4 780d |x | Jump 0x2f2 ; case 0x8 02e5 4800 |H | Short_Literal 0x0 02e6 00db | | Load_Top At_Offset_3 02e7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02e8 4800 |H | Short_Literal 0x0 02e9 00db | | Load_Top At_Offset_3 02ea 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02eb 4800 |H | Short_Literal 0x0 02ec 00db | | Load_Top At_Offset_3 02ed 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02ee 4800 |H | Short_Literal 0x0 02ef 00db | | Load_Top At_Offset_3 02f0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 02f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02f2 0869 | i | Execute_Immediate Raise,0x69 02f3 0000 0000 | | .BLANK 0000[0x5] 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 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ":" 02fe 01cc | | Execute Vector,Catenate 02ff e5fe | | Load 0x2,-0x2 0300 e210 | | Load 0x1,0x10 0301 011c | | Execute Any,Convert_Unchecked 0302 1c01 | | Execute_Immediate Run_Utility,0x1 0303 01cc | | Execute Vector,Catenate 0304 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0311 | | .CONST 0x0311 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b 4801 |H | Short_Literal 0x1 030c 00db | | Load_Top At_Offset_3 030d 0092 03f1 | | Action Push_String_Extended,0x3f1 ; ":" 030f e00d | | Load 0x0,0xd 0310 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0311 BODY_0308: 0311 00db | | Load_Top At_Offset_3 0312 01dd | | Execute Vector,First 0313 00d9 | | Load_Top At_Offset_1 0314 e5ff | | Load 0x2,-0x1 0315 01cf | | Execute Vector,Slice_Read 0316 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0317 0000 | | .XXX[0x1] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031e | | .CONST 0x031e ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b e229 | ) | Load 0x1,0x29 031c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 031d 0322 | " | Declare_Variable Record 031e BODY_0318: 031e 00d8 | | Load_Top At_Offset_0 031f e7ff | | Load 0x3,-0x1 0320 e229 | ) | Load 0x1,0x29 0321 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0322 00d1 | | Pop_Control Pop_Count_1 0323 00cf | | Action Mark_Auxiliary 0324 781a |x | Jump 0x33f 0325 00d9 | | Load_Top At_Offset_1 0326 e229 | ) | Load 0x1,0x29 0327 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0328 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0329 0227 | ' | Execute Access,All_Reference 032a e7fe | | Load 0x3,-0x2 032b 01df | | Execute Vector,Equal 032c 680d |h | Jump_Zero 0x33a 032d 00d9 | | Load_Top At_Offset_1 032e e229 | ) | Load 0x1,0x29 032f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0330 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0331 e7fd | | Load 0x3,-0x3 0332 027f | | Execute Discrete,Equal 0333 6806 |h | Jump_Zero 0x33a 0334 00d9 | | Load_Top At_Offset_1 0335 e229 | ) | Load 0x1,0x29 0336 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0337 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0338 a227 | ' | Store_Unchecked 0x1,0x27 0339 4504 |E | Exit_Suprogram New_Top_Offset 0x4 033a 00d9 | | Load_Top At_Offset_1 033b e229 | ) | Load 0x1,0x29 033c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 033d 00d1 | | Pop_Control Pop_Count_1 033e 00c9 | | Action Pop_Auxiliary_Loop 033f 00d9 | | Load_Top At_Offset_1 0340 e229 | ) | Load 0x1,0x29 0341 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0342 6fe2 |o | Jump_Zero 0x325 0343 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0344 0000 0000 | | .BLANK 0000[0x4] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 035b | [ | .CONST 0x035b ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b e5ff | | Load 0x2,-0x1 034c 0229 | ) | Execute Access,All_Read 034d 00d8 | | Load_Top At_Offset_0 034e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 034f 4801 |H | Short_Literal 0x1 0350 e5ff | | Load 0x2,-0x1 0351 0227 | ' | Execute Access,All_Reference 0352 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0353 e5fe | | Load 0x2,-0x2 0354 e5fd | | Load 0x2,-0x3 0355 822b | + | Call 0x1,0x2b 0356 e228 | ( | Load 0x1,0x28 0357 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0358 00d9 | | Load_Top At_Offset_1 0359 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 035a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 035b TRAP_0348: 035b e228 | ( | Load 0x1,0x28 035c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 035d 010f | | Execute Exception,Equal 035e 680f |h | Jump_Zero 0x36e 035f e5ff | | Load 0x2,-0x1 0360 0227 | ' | Execute Access,All_Reference 0361 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0362 0aff | | Execute_Immediate Plus,-0x1 0363 e5ff | | Load 0x2,-0x1 0364 0227 | ' | Execute Access,All_Reference 0365 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0366 e5fe | | Load 0x2,-0x2 0367 e5fd | | Load 0x2,-0x3 0368 e5ff | | Load 0x2,-0x1 0369 0227 | ' | Execute Access,All_Reference 036a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 036b 8402 | | Call 0x2,0x2 036c e216 | | Load 0x1,0x16 036d 0257 | W | Execute Discrete,Raise 036e 0100 | | Execute Exception,Raise 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0376 | v | .CONST 0x0376 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0002 | | .CONST 0x0002 ; Number of locals 0373 INIT_0370: 0373 e402 | | Load 0x2,0x2 0374 e229 | ) | Load 0x1,0x29 0375 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0376 BODY_0370: 0376 00d8 | | Load_Top At_Offset_0 0377 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0378 6807 |h | Jump_Zero 0x380 0379 e404 | | Load 0x2,0x4 037a 0092 03f2 | | Action Push_String_Extended,0x3f2 ; "& " 037c e00c | | Load 0x0,0xc 037d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 037f c404 | | Store 0x2,0x4 0380 e404 | | Load 0x2,0x4 0381 00d9 | | Load_Top At_Offset_1 0382 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0383 00d8 | | Load_Top At_Offset_0 0384 00e2 | | Load_Encached Integer_Cache 0385 0260 | ` | Execute Discrete,In_Type 0386 7001 |p | Jump_Nonzero 0x388 0387 0801 | | Execute_Immediate Raise,0x1 0388 00e0 | | Load_Encached Standard_Cache 0389 1818 | | Execute Package,Field_Execute,Field_Number 0x18 038a 0092 03ef | | Action Push_String_Extended,0x3ef ; " " 038c 01cc | | Execute Vector,Catenate 038d 00da | | Load_Top At_Offset_2 038e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 038f 00e0 | | Load_Encached Standard_Cache 0390 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0391 01cc | | Execute Vector,Catenate 0392 0092 03ef | | Action Push_String_Extended,0x3ef ; " " 0394 01cc | | Execute Vector,Catenate 0395 00da | | Load_Top At_Offset_2 0396 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0397 00e0 | | Load_Encached Standard_Cache 0398 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0399 01cc | | Execute Vector,Catenate 039a 0092 03ef | | Action Push_String_Extended,0x3ef ; " " 039c 01cc | | Execute Vector,Catenate 039d 00da | | Load_Top At_Offset_2 039e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 039f 0227 | ' | Execute Access,All_Reference 03a0 01cc | | Execute Vector,Catenate 03a1 0092 03ef | | Action Push_String_Extended,0x3ef ; " " 03a3 01cc | | Execute Vector,Catenate 03a4 e00c | | Load 0x0,0xc 03a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03a7 c404 | | Store 0x2,0x4 03a8 00d8 | | Load_Top At_Offset_0 03a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03aa 6827 |h' | Jump_Zero 0x3d2 03ab e404 | | Load 0x2,0x4 03ac 0092 03f3 | | Action Push_String_Extended,0x3f3 ; ", " 03ae 00da | | Load_Top At_Offset_2 03af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03b0 0227 | ' | Execute Access,All_Reference 03b1 01cc | | Execute Vector,Catenate 03b2 e00c | | Load 0x0,0xc 03b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03b4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03b5 c404 | | Store 0x2,0x4 03b6 00d8 | | Load_Top At_Offset_0 03b7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03b8 6819 |h | Jump_Zero 0x3d2 03b9 e404 | | Load 0x2,0x4 03ba 0092 03f3 | | Action Push_String_Extended,0x3f3 ; ", " 03bc 00da | | Load_Top At_Offset_2 03bd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03be 0227 | ' | Execute Access,All_Reference 03bf 01cc | | Execute Vector,Catenate 03c0 e00c | | Load 0x0,0xc 03c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03c3 c404 | | Store 0x2,0x4 03c4 00d8 | | Load_Top At_Offset_0 03c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03c6 680b |h | Jump_Zero 0x3d2 03c7 e404 | | Load 0x2,0x4 03c8 0092 03f3 | | Action Push_String_Extended,0x3f3 ; ", " 03ca 00da | | Load_Top At_Offset_2 03cb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03cc 0227 | ' | Execute Access,All_Reference 03cd 01cc | | Execute Vector,Catenate 03ce e00c | | Load 0x0,0xc 03cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03d1 c404 | | Store 0x2,0x4 03d2 e404 | | Load 0x2,0x4 03d3 480a |H | Short_Literal 0xa 03d4 00da | | Load_Top At_Offset_2 03d5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 03d6 0227 | ' | Execute Access,All_Reference 03d7 01cb | | Execute Vector,Append 03d8 e00c | | Load 0x0,0xc 03d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03da 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03db c404 | | Store 0x2,0x4 03dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03dd ; -------------------------------------------------------------------------------------- 03dd ; STRING TABLE 03dd ; -------------------------------------------------------------------------------------- 03dd 0030 | 0 | .STRTAB 0x0030->0x03f5 ; "UNDEFINED" 03de 0037 | 7 | .STRTAB 0x0037->0x03f9 ; "SUBSYSTEM" 03df 003e | > | .STRTAB 0x003e->0x03fe ; "MAIN_PROGRAM" 03e0 0048 | H | .STRTAB 0x0048->0x0404 ; "SUBPROGRAM_SPEC" 03e1 0055 | U | .STRTAB 0x0055->0x040b ; "GENERIC_SUBPROGRAM" 03e2 0065 | e | .STRTAB 0x0065->0x0414 ; "SUBPROGRAM_BODY" 03e3 0072 | r | .STRTAB 0x0072->0x041c ; "PACKAGE_SPEC" 03e4 007c | | | .STRTAB 0x007c->0x0422 ; "GENERIC_PACKAGE" 03e5 0089 | | .STRTAB 0x0089->0x0429 ; "PACKAGE_BODY" 03e6 0093 | | .STRTAB 0x0093->0x042f ; "TASK_SPEC" 03e7 009a | | .STRTAB 0x009a->0x0434 ; "TASK_BODY" 03e8 00a1 | | .STRTAB 0x00a1->0x0438 ; "POINT" 03e9 00a4 | | .STRTAB 0x00a4->0x043b ; "GROUP" 03ea 00a7 | | .STRTAB 0x00a7->0x043d ; "UNDEFINED" 03eb 00ae | | .STRTAB 0x00ae->0x0442 ; "IMPORTS" 03ec 00b3 | | .STRTAB 0x00b3->0x0445 ; "IMPORTS_MANY" 03ed 00bd | | .STRTAB 0x00bd->0x044b ; "CONTAINS" 03ee 00c3 | | .STRTAB 0x00c3->0x044f ; "\x22" 03ef 00c2 | | .STRTAB 0x00c2->0x0450 ; " " 03f0 00c1 | | .STRTAB 0x00c1->0x0450 ; "@\x0a" 03f1 00c1 | | .STRTAB 0x00c1->0x0451 ; ":" 03f2 00c0 | | .STRTAB 0x00c0->0x0452 ; "& " 03f3 00c0 | | .STRTAB 0x00c0->0x0453 ; ", " 03f4 00c0 | | .STREND 0x00c0->0x0454 03f5 554e 4445 |UNDE| .STRTAB_STRINGS 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug Table 0458 ; -------------------------------------------------------------------------------------- 0458 0004 0011 | | .DEBUG4 0x0004,0x0011,0x829b,0x0000,0x0001,0x0000 045e 0080 05c0 | | .XXX[0xc] 0460 1181 1250 | P| 0462 b001 8161 | a| 0464 c171 7610 | qv | 0466 a001 0e1b | | 0468 d000 0590 | | 046a 0000 0000 | | .BLANK 0000[0x8] 0472 2000 0002 | | .XXX[0x14] 0474 4000 4766 |@ Gf| 0476 0000 0000 | | 0478 8000 0001 | | 047a 0017 0046 | F| 047c 0449 42c0 | IB | 047e 08fd fe05 | | 0480 c5d8 4280 | B | 0482 04e6 1040 | @| 0484 0042 4000 | B@ | 0486 0000 0000 | | .BLANK 0000[0x7] 048d 0080 0000 | | .XXX[0x14] 048f 0900 011d | | 0491 9400 0000 | | 0493 0200 0000 | | 0495 0400 5c01 | \ | 0497 1811 250b | % | 0499 001a 6cea | l | 049b 1717 610a | a | 049d 0013 8fa1 | | 049f 0000 b100 | | 04a1 0000 0000 | | .BLANK 0000[0x7] 04a8 0002 0000 | | .XXX[0x14] 04aa 0024 0004 | $ | 04ac 7c20 0000 || | 04ae 0008 0000 | | 04b0 0020 0170 | p| 04b2 0460 4494 | `D | 04b4 2c00 9cb2 |, | 04b6 385c 5d84 |8\] | 04b8 2800 420b |( B | 04ba 7400 0584 |t | 04bc 0000 0000 | | .BLANK 0000[0x8] 04c4 0800 0000 | | .XXX[0x14] 04c6 9000 120f | | 04c8 0000 0000 | | 04ca 2000 0000 | | 04cc 6005 c011 |` | 04ce 8112 50b0 | P | 04d0 0214 7fd1 | | 04d2 7176 10a0 |qv | 04d4 0108 b7d0 | | 04d6 001b 9000 | | 04d8 0000 0000 | | .BLANK 0000[0x7] 04df 0020 0000 | | .XXX[0x14] 04e1 0240 0047 | @ G| 04e3 c200 0000 | | 04e5 0080 0000 | | 04e7 0280 1700 | | 04e9 4604 4942 |F IB| 04eb c00a 764c | vL| 04ed 05c5 d842 | B| 04ef 8004 1e8f | | 04f1 4000 8440 |@ @| 04f3 0000 0000 | | .BLANK 0000[0x8] 04fb 8000 0009 | | .XXX[0x13] 04fd 0001 27a4 | ' | 04ff 0000 0002 | | 0501 0000 000e | | 0503 005c 0118 | \ | 0505 1125 0b00 | % | 0507 5439 aa17 |T9 | 0509 1761 0a00 | a | 050b 1636 eb00 | 6 | 050d 0269 | i | 050e 0000 0000 | | .BLANK 0000[0x8] 0516 0200 0000 | | .XXX[0x14] 0518 2400 049d |$ | 051a e800 0000 | | 051c 0800 0000 | | 051e 1801 7004 | p | 0520 6044 942c |`D ,| 0522 0123 39b8 | #9 | 0524 5c5d 8428 |\] (| 0526 004a bd84 | J | 0528 000c 6400 | d | 052a 0000 0000 | | .BLANK 0000[0x9] 0533 0090 0000 | | .XXX[0x7] 0535 0000 0000 | | 0537 003f ffff | ? | 0539 ffa0 | | 053a 0000 0000 | | .BLANK 0000[0x13] 054d 2000 0002 | | .XXX[0x14] 054f 4000 49de |@ I | 0551 0000 0000 | | 0553 8000 0000 | | 0555 8017 0046 | F| 0557 0449 42c0 | IB | 0559 10cb a545 | E| 055b c5d8 4280 | B | 055d 058b 92c0 | | 055f 00dc 4000 | @ | 0561 0000 0000 | | .BLANK 0000[0x9] 056a 0900 0000 | | .XXX[0x7] 056c 0000 0000 | | 056e 03ff ffff | | 0570 fa00 | | 0571 0000 0000 | | .BLANK 0000[0x14] 0585 0024 0000 | $ | .XXX[0x7] 0587 0000 0000 | | 0589 000f ffff | | 058b ffe8 | | 058c 0000 0000 | | .BLANK 0000[0x15] 05a1 9000 0000 | | .XXX[0x7] 05a3 0000 0000 | | 05a5 3fff ffff |? | 05a7 a000 | | 05a8 0000 0000 | | .BLANK 0000[0x14] 05bc 0240 0000 | @ | .XXX[0x7] 05be 0000 0000 | | 05c0 00ff ffff | | 05c2 fe80 | | 05c3 0000 0000 | | .BLANK 0000[0x14] 05d7 0009 0000 | | .XXX[0x7] 05d9 0000 0000 | | 05db 0003 ffff | | 05dd fffa | | 05de 0000 0000 | | .BLANK 0000[0x15] 05f3 2400 0000 |$ | .XXX[0x7] 05f5 0000 0000 | | 05f7 0fff ffff | | 05f9 e800 | | 05fa 0000 0000 | | .BLANK 0000[0x6]