|
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_03bcfe
└─⟦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 0408 | | .CONST 0x0408 ; 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 013b | ; | .CONST 0x013b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 617b |a{ | Indirect_Literal Discrete,0x188,{0x00000000, 0x00002000} 000d 00e1 | | Load_Encached Boolean_Cache 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 4801 |H | Short_Literal 0x1 0010 035e | ^ | Declare_Type Array,Defined,Visible 0011 4800 |H | Short_Literal 0x0 0012 48ff |H | Short_Literal 0xff 0013 00e3 | | Load_Encached Natural_Cache 0014 03f9 | | Declare_Type Discrete,Constrained,Visible 0015 616e |an | Indirect_Literal Discrete,0x184,{0xffffffff, 0xffff8000} 0016 6169 |ai | Indirect_Literal Discrete,0x180,{0x00000000, 0x00007fff} 0017 00e2 | | Load_Encached Integer_Cache 0018 03f9 | | Declare_Type Discrete,Constrained,Visible 0019 4800 |H | Short_Literal 0x0 001a 6161 |aa | Indirect_Literal Discrete,0x17c,{0x00000000, 0x0000ffff} 001b 00e3 | | Load_Encached Natural_Cache 001c 03f9 | | Declare_Type Discrete,Constrained,Visible 001d 4800 |H | Short_Literal 0x0 001e 6159 |aY | Indirect_Literal Discrete,0x178,{0x00000000, 0xffffffff} 001f 00e5 | | Load_Encached Long_Integer_Cache 0020 03f9 | | Declare_Type Discrete,Constrained,Visible 0021 4800 |H | Short_Literal 0x0 0022 6151 |aQ | Indirect_Literal Discrete,0x174,{0x0000ffff, 0xffffffff} 0023 00e5 | | Load_Encached Long_Integer_Cache 0024 03f9 | | Declare_Type Discrete,Constrained,Visible 0025 4800 |H | Short_Literal 0x0 0026 487f |H | Short_Literal 0x7f 0027 00e3 | | Load_Encached Natural_Cache 0028 03f9 | | Declare_Type Discrete,Constrained,Visible 0029 4800 |H | Short_Literal 0x0 002a 483f |H? | Short_Literal 0x3f 002b 00e3 | | Load_Encached Natural_Cache 002c 03f9 | | Declare_Type Discrete,Constrained,Visible 002d 4800 |H | Short_Literal 0x0 002e 6141 |aA | Indirect_Literal Discrete,0x170,{0x00000000, 0x0007ffff} 002f 00e3 | | Load_Encached Natural_Cache 0030 03f9 | | Declare_Type Discrete,Constrained,Visible 0031 4800 |H | Short_Literal 0x0 0032 6139 |a9 | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00003fff} 0033 00e3 | | Load_Encached Natural_Cache 0034 03f9 | | Declare_Type Discrete,Constrained,Visible 0035 00d9 | | Load_Top At_Offset_1 0036 00db | | Load_Top At_Offset_3 0037 e213 | | Load 0x1,0x13 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 4803 |H | Short_Literal 0x3 003a 032e | . | Declare_Type Record,Defined,Visible 003b 00d8 | | Load_Top At_Offset_0 003c 012c | , | Execute Any,Size 003d 0f20 | | Execute_Immediate Equal,0x20 003e 7001 |p | Jump_Nonzero 0x40 003f 0887 | | Execute_Immediate Raise,0x87 0040 4800 |H | Short_Literal 0x0 0041 4802 |H | Short_Literal 0x2 0042 00da | | Load_Top At_Offset_2 0043 012c | , | Execute Any,Size 0044 026d | m | Execute Discrete,Exponentiate 0045 0aff | | Execute_Immediate Plus,-0x1 0046 00e5 | | Load_Encached Long_Integer_Cache 0047 03f9 | | Declare_Type Discrete,Constrained,Visible 0048 a002 | | Store_Unchecked 0x0,0x2 0049 00c6 | | Action Check_Subprogram_Elaborated 004a 00d8 | | Load_Top At_Offset_0 004b 0129 | ) | Execute Any,Make_Visible 004c 00da | | Load_Top At_Offset_2 004d 0129 | ) | Execute Any,Make_Visible 004e e003 | | Load 0x0,0x3 004f 0129 | ) | Execute Any,Make_Visible 0050 e004 | | Load 0x0,0x4 0051 0129 | ) | Execute Any,Make_Visible 0052 4800 |H | Short_Literal 0x0 0053 0129 | ) | Execute Any,Make_Visible 0054 4800 |H | Short_Literal 0x0 0055 6122 |a" | Indirect_Literal Discrete,0x178,{0x00000000, 0xffffffff} 0056 00e5 | | Load_Encached Long_Integer_Cache 0057 03f9 | | Declare_Type Discrete,Constrained,Visible 0058 4800 |H | Short_Literal 0x0 0059 610e |a | Indirect_Literal Discrete,0x168,{0x00000000, 0x00ffffff} 005a 00e5 | | Load_Encached Long_Integer_Cache 005b 03f9 | | Declare_Type Discrete,Constrained,Visible 005c 00d9 | | Load_Top At_Offset_1 005d e217 | | Load 0x1,0x17 005e 02a0 | | Declare_Subprogram Null_Subprogram 005f 4802 |H | Short_Literal 0x2 0060 032e | . | Declare_Type Record,Defined,Visible 0061 00e5 | | Load_Encached Long_Integer_Cache 0062 012c | , | Execute Any,Size 0063 00d9 | | Load_Top At_Offset_1 0064 012c | , | Execute Any,Size 0065 027f | | Execute Discrete,Equal 0066 7001 |p | Jump_Nonzero 0x68 0067 0887 | | Execute_Immediate Raise,0x87 0068 a002 | | Store_Unchecked 0x0,0x2 0069 00c6 | | Action Check_Subprogram_Elaborated 006a 00e5 | | Load_Encached Long_Integer_Cache 006b 0129 | ) | Execute Any,Make_Visible 006c 00d9 | | Load_Top At_Offset_1 006d 0129 | ) | Execute Any,Make_Visible 006e e005 | | Load 0x0,0x5 006f 0129 | ) | Execute Any,Make_Visible 0070 e006 | | Load 0x0,0x6 0071 0129 | ) | Execute Any,Make_Visible 0072 4800 |H | Short_Literal 0x0 0073 0129 | ) | Execute Any,Make_Visible 0074 4800 |H | Short_Literal 0x0 0075 60f6 |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00003fff} 0076 00e3 | | Load_Encached Natural_Cache 0077 03f9 | | Declare_Type Discrete,Constrained,Visible 0078 00e1 | | Load_Encached Boolean_Cache 0079 00e1 | | Load_Encached Boolean_Cache 007a 00da | | Load_Top At_Offset_2 007b 02a0 | | Declare_Subprogram Null_Subprogram 007c 4803 |H | Short_Literal 0x3 007d 032e | . | Declare_Type Record,Defined,Visible 007e 4800 |H | Short_Literal 0x0 007f 4807 |H | Short_Literal 0x7 0080 e210 | | Load 0x1,0x10 0081 02a0 | | Declare_Subprogram Null_Subprogram 0082 4801 |H | Short_Literal 0x1 0083 035e | ^ | Declare_Type Array,Defined,Visible 0084 4800 |H | Short_Literal 0x0 0085 480f |H | Short_Literal 0xf 0086 00db | | Load_Top At_Offset_3 0087 02a0 | | Declare_Subprogram Null_Subprogram 0088 4801 |H | Short_Literal 0x1 0089 035e | ^ | Declare_Type Array,Defined,Visible 008a 4800 |H | Short_Literal 0x0 008b 480f |H | Short_Literal 0xf 008c e220 | | Load 0x1,0x20 008d 02a0 | | Declare_Subprogram Null_Subprogram 008e 4801 |H | Short_Literal 0x1 008f 035e | ^ | Declare_Type Array,Defined,Visible 0090 4800 |H | Short_Literal 0x0 0091 480f |H | Short_Literal 0xf 0092 00e5 | | Load_Encached Long_Integer_Cache 0093 03f9 | | Declare_Type Discrete,Constrained,Visible 0094 4800 |H | Short_Literal 0x0 0095 480f |H | Short_Literal 0xf 0096 00e1 | | Load_Encached Boolean_Cache 0097 02a0 | | Declare_Subprogram Null_Subprogram 0098 4801 |H | Short_Literal 0x1 0099 035e | ^ | Declare_Type Array,Defined,Visible 009a 4800 |H | Short_Literal 0x0 009b 4802 |H | Short_Literal 0x2 009c 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 009e 03fe | | Declare_Type Discrete,Defined,Visible 009f 4800 |H | Short_Literal 0x0 00a0 4801 |H | Short_Literal 0x1 00a1 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 00a3 03fe | | Declare_Type Discrete,Defined,Visible 00a4 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 00a6 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 00a8 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 00aa 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 00ac 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 00ae 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 00b0 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 00b2 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 00b4 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 00b6 4802 |H | Short_Literal 0x2 00b7 0093 034b | K| push_full_address INIT_0348 00b9 02a0 | | Declare_Subprogram Null_Subprogram 00ba 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 00bb 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 00bd 00bf | | Action Accept_Activation 00be 4800 |H | Short_Literal 0x0 00bf 480f |H | Short_Literal 0xf 00c0 00e2 | | Load_Encached Integer_Cache 00c1 03f8 | | Declare_Type Discrete,Constrained 00c2 4801 |H | Short_Literal 0x1 00c3 4810 |H | Short_Literal 0x10 00c4 00da | | Load_Top At_Offset_2 00c5 02a0 | | Declare_Subprogram Null_Subprogram 00c6 4801 |H | Short_Literal 0x1 00c7 035d | ] | Declare_Type Array,Defined 00c8 a002 | | Store_Unchecked 0x0,0x2 00c9 00c6 | | Action Check_Subprogram_Elaborated 00ca 00e5 | | Load_Encached Long_Integer_Cache 00cb 00d9 | | Load_Top At_Offset_1 00cc e007 | | Load 0x0,0x7 00cd e008 | | Load 0x0,0x8 00ce 4800 |H | Short_Literal 0x0 00cf 0007 | | Action Break_Optional 00d0 4800 |H | Short_Literal 0x0 00d1 480f |H | Short_Literal 0xf 00d2 00e8 | | Load_Encached Character_Cache 00d3 02a0 | | Declare_Subprogram Null_Subprogram 00d4 4801 |H | Short_Literal 0x1 00d5 035d | ] | Declare_Type Array,Defined 00d6 00d8 | | Load_Top At_Offset_0 00d7 0337 | 7 | Declare_Variable Array 00d8 00d8 | | Load_Top At_Offset_0 00d9 0335 | 5 | Declare_Variable Array,Duplicate 00da 00cd | | Action Spare6_Action 00db 4830 |H0 | Short_Literal 0x30 00dc 4800 |H | Short_Literal 0x0 00dd 00da | | Load_Top At_Offset_2 00de 01d6 | | Execute Vector,Field_Write 00df 4831 |H1 | Short_Literal 0x31 00e0 4801 |H | Short_Literal 0x1 00e1 00da | | Load_Top At_Offset_2 00e2 01d6 | | Execute Vector,Field_Write 00e3 4832 |H2 | Short_Literal 0x32 00e4 4802 |H | Short_Literal 0x2 00e5 00da | | Load_Top At_Offset_2 00e6 01d6 | | Execute Vector,Field_Write 00e7 4833 |H3 | Short_Literal 0x33 00e8 4803 |H | Short_Literal 0x3 00e9 00da | | Load_Top At_Offset_2 00ea 01d6 | | Execute Vector,Field_Write 00eb 4834 |H4 | Short_Literal 0x34 00ec 4804 |H | Short_Literal 0x4 00ed 00da | | Load_Top At_Offset_2 00ee 01d6 | | Execute Vector,Field_Write 00ef 4835 |H5 | Short_Literal 0x35 00f0 4805 |H | Short_Literal 0x5 00f1 00da | | Load_Top At_Offset_2 00f2 01d6 | | Execute Vector,Field_Write 00f3 4836 |H6 | Short_Literal 0x36 00f4 4806 |H | Short_Literal 0x6 00f5 00da | | Load_Top At_Offset_2 00f6 01d6 | | Execute Vector,Field_Write 00f7 4837 |H7 | Short_Literal 0x37 00f8 4807 |H | Short_Literal 0x7 00f9 00da | | Load_Top At_Offset_2 00fa 01d6 | | Execute Vector,Field_Write 00fb 4838 |H8 | Short_Literal 0x38 00fc 4808 |H | Short_Literal 0x8 00fd 00da | | Load_Top At_Offset_2 00fe 01d6 | | Execute Vector,Field_Write 00ff 4839 |H9 | Short_Literal 0x39 0100 4809 |H | Short_Literal 0x9 0101 00da | | Load_Top At_Offset_2 0102 01d6 | | Execute Vector,Field_Write 0103 4841 |HA | Short_Literal 0x41 0104 480a |H | Short_Literal 0xa 0105 00da | | Load_Top At_Offset_2 0106 01d6 | | Execute Vector,Field_Write 0107 4842 |HB | Short_Literal 0x42 0108 480b |H | Short_Literal 0xb 0109 00da | | Load_Top At_Offset_2 010a 01d6 | | Execute Vector,Field_Write 010b 4843 |HC | Short_Literal 0x43 010c 480c |H | Short_Literal 0xc 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 4844 |HD | Short_Literal 0x44 0110 480d |H | Short_Literal 0xd 0111 00da | | Load_Top At_Offset_2 0112 01d6 | | Execute Vector,Field_Write 0113 4845 |HE | Short_Literal 0x45 0114 480e |H | Short_Literal 0xe 0115 00da | | Load_Top At_Offset_2 0116 01d6 | | Execute Vector,Field_Write 0117 4846 |HF | Short_Literal 0x46 0118 480f |H | Short_Literal 0xf 0119 00da | | Load_Top At_Offset_2 011a 01d6 | | Execute Vector,Field_Write 011b 00d9 | | Load_Top At_Offset_1 011c 01d4 | | Execute Vector,Structure_Write 011d 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 011e 00c7 | | Action Elaborate_Subprogram 011f 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0121 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0122 00c7 | | Action Elaborate_Subprogram 0123 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0124 00c7 | | Action Elaborate_Subprogram 0125 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0126 00c7 | | Action Elaborate_Subprogram 0127 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0128 00c7 | | Action Elaborate_Subprogram 0129 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 012a 00c7 | | Action Elaborate_Subprogram 012b 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 012c 00c7 | | Action Elaborate_Subprogram 012d 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 012e 00c7 | | Action Elaborate_Subprogram 012f 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0130 00c7 | | Action Elaborate_Subprogram 0131 e009 | | Load 0x0,0x9 0132 a00a | | Store_Unchecked 0x0,0xa 0133 4802 |H | Short_Literal 0x2 0134 e238 | 8 | Load 0x1,0x38 0135 020e | | Execute Module,Augment_Imports 0136 e238 | 8 | Load 0x1,0x38 0137 020d | | Execute Module,Elaborate 0138 0007 | | Action Break_Optional 0139 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 013a 00c7 | | Action Elaborate_Subprogram 013b BODY_0008: 013b 00bc | | Action Signal_Activated 013c 00bb | | Action Signal_Completion 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4607 |F | Jump_Case 0x8 0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0145 7807 |x | Jump 0x14d ; case 0x1 0146 780a |x | Jump 0x151 ; case 0x2 0147 780e |x | Jump 0x156 ; case 0x3 0148 7811 |x | Jump 0x15a ; case 0x4 0149 7812 |x | Jump 0x15c ; case 0x5 014a 7813 |x | Jump 0x15e ; case 0x6 014b 7816 |x | Jump 0x162 ; case 0x7 014c 4302 |C | .XXX[0x1] 014d 00da | | Load_Top At_Offset_2 014e 0091 03c2 | | Action Push_String_Extended_Indexed,0x3c2 ; "HEX" 0150 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0151 00db | | Load_Top At_Offset_3 0152 00db | | Load_Top At_Offset_3 0153 00e0 | | Load_Encached Standard_Cache 0154 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0155 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0156 00da | | Load_Top At_Offset_2 0157 00e0 | | Load_Encached Standard_Cache 0158 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0159 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 015a 00db | | Load_Top At_Offset_3 015b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015c 00db | | Load_Top At_Offset_3 015d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015e e22d | - | Load 0x1,0x2d 015f 00dc | | Load_Top At_Offset_4 0160 0267 | g | Execute Discrete,Predecessor 0161 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0162 e22d | - | Load 0x1,0x2d 0163 00dc | | Load_Top At_Offset_4 0164 0268 | h | Execute Discrete,Successor 0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0166 0000 0000 | | .XXX[0x2] 0168 0000 0000 | | .LITERAL {0x00000000, 0x00ffffff} 016c 0000 0000 | | .LITERAL {0x00000000, 0x00003fff} 0170 0000 0000 | | .LITERAL {0x00000000, 0x0007ffff} 0174 0000 ffff | | .LITERAL {0x0000ffff, 0xffffffff} 0178 0000 0000 | | .LITERAL {0x00000000, 0xffffffff} 017c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0180 0000 0000 | | .LITERAL {0x00000000, 0x00007fff} 0184 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000} 0188 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 018c 0000 0000 | | .BLANK 0000[0x4] 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 4607 |F | Jump_Case 0x8 0194 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0195 7807 |x | Jump 0x19d ; case 0x1 0196 780a |x | Jump 0x1a1 ; case 0x2 0197 780e |x | Jump 0x1a6 ; case 0x3 0198 7811 |x | Jump 0x1aa ; case 0x4 0199 7812 |x | Jump 0x1ac ; case 0x5 019a 7813 |x | Jump 0x1ae ; case 0x6 019b 7816 |x | Jump 0x1b2 ; case 0x7 019c 4302 |C | .XXX[0x1] 019d 00da | | Load_Top At_Offset_2 019e 0091 03c5 | | Action Push_String_Extended_Indexed,0x3c5 ; "FULL" 01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a1 00db | | Load_Top At_Offset_3 01a2 00db | | Load_Top At_Offset_3 01a3 00e0 | | Load_Encached Standard_Cache 01a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a6 00da | | Load_Top At_Offset_2 01a7 00e0 | | Load_Encached Standard_Cache 01a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01aa 00db | | Load_Top At_Offset_3 01ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ac 00db | | Load_Top At_Offset_3 01ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ae e22e | . | Load 0x1,0x2e 01af 00dc | | Load_Top At_Offset_4 01b0 0267 | g | Execute Discrete,Predecessor 01b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b2 e22e | . | Load 0x1,0x2e 01b3 00dc | | Load_Top At_Offset_4 01b4 0268 | h | Execute Discrete,Successor 01b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b6 0000 0000 | | .XXX[0x2] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 6804 |h | Jump_Zero 0x1c1 01bd 00db | | Load_Top At_Offset_3 01be 0335 | 5 | Declare_Variable Array,Duplicate 01bf 00cd | | Action Spare6_Action 01c0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01c1 e5fd | | Load 0x2,-0x3 01c2 0335 | 5 | Declare_Variable Array,Duplicate 01c3 00cd | | Action Spare6_Action 01c4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00db | | Load_Top At_Offset_3 01cc 4602 |F | Jump_Case 0x3 01cd 7815 |x | Jump 0x1e3 ; case 0x0 01ce 781b |x | Jump 0x1ea ; case 0x1 01cf 7800 |x | Jump 0x1d0 ; case 0x2 01d0 4829 |H) | Short_Literal 0x29 01d1 e5fc | | Load 0x2,-0x4 01d2 e5fd | | Load 0x2,-0x3 01d3 4810 |H | Short_Literal 0x10 01d4 e5ff | | Load 0x2,-0x1 01d5 e00b | | Load 0x0,0xb 01d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01d7 0092 03c7 | | Action Push_String_Extended,0x3c7 ; " (" 01d9 01cc | | Execute Vector,Catenate 01da 4820 |H | Short_Literal 0x20 01db 4800 |H | Short_Literal 0x0 01dc 480a |H | Short_Literal 0xa 01dd e5ff | | Load 0x2,-0x1 01de e00b | | Load 0x0,0xb 01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e0 01cc | | Execute Vector,Catenate 01e1 01cb | | Execute Vector,Append 01e2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01e3 e5fc | | Load 0x2,-0x4 01e4 e5fd | | Load 0x2,-0x3 01e5 4810 |H | Short_Literal 0x10 01e6 e5ff | | Load 0x2,-0x1 01e7 e00b | | Load 0x0,0xb 01e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01e9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01ea e5fc | | Load 0x2,-0x4 01eb e5fd | | Load 0x2,-0x3 01ec 480a |H | Short_Literal 0xa 01ed e5ff | | Load 0x2,-0x1 01ee e00b | | Load 0x0,0xb 01ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01f0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00db | | Load_Top At_Offset_3 01fc 4602 |F | Jump_Case 0x3 01fd 7812 |x | Jump 0x210 ; case 0x0 01fe 7815 |x | Jump 0x214 ; case 0x1 01ff 7800 |x | Jump 0x200 ; case 0x2 0200 4829 |H) | Short_Literal 0x29 0201 e5fd | | Load 0x2,-0x3 0202 e5ff | | Load 0x2,-0x1 0203 8243 | C | Call 0x1,0x43 0204 0092 03c7 | | Action Push_String_Extended,0x3c7 ; " (" 0206 01cc | | Execute Vector,Catenate 0207 4820 |H | Short_Literal 0x20 0208 4800 |H | Short_Literal 0x0 0209 480a |H | Short_Literal 0xa 020a e5ff | | Load 0x2,-0x1 020b e00b | | Load 0x0,0xb 020c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 020d 01cc | | Execute Vector,Catenate 020e 01cb | | Execute Vector,Append 020f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0210 e5fd | | Load 0x2,-0x3 0211 00db | | Load_Top At_Offset_3 0212 8243 | C | Call 0x1,0x43 0213 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0214 e5fc | | Load 0x2,-0x4 0215 e5fd | | Load 0x2,-0x3 0216 480a |H | Short_Literal 0xa 0217 e5ff | | Load 0x2,-0x1 0218 e00b | | Load 0x0,0xb 0219 1817 | | Execute Package,Field_Execute,Field_Number 0x17 021a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 021b 0000 0000 | | .BLANK 0000[0x5] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0234 | 4 | .CONST 0x0234 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 4808 |H | Short_Literal 0x8 0224 00db | | Load_Top At_Offset_3 0225 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0226 090d | | Execute_Immediate Binary_Scale,0xd 0227 e5ff | | Load 0x2,-0x1 0228 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0229 0907 | | Execute_Immediate Binary_Scale,0x7 022a 0273 | s | Execute Discrete,Plus 022b e5ff | | Load 0x2,-0x1 022c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 022d 0273 | s | Execute Discrete,Plus 022e 00d8 | | Load_Top At_Offset_0 022f 00e5 | | Load_Encached Long_Integer_Cache 0230 0260 | ` | Execute Discrete,In_Type 0231 7001 |p | Jump_Nonzero 0x233 0232 0801 | | Execute_Immediate Raise,0x1 0233 8243 | C | Call 0x1,0x43 0234 BODY_0220: 0234 00d8 | | Load_Top At_Offset_0 0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 4820 |H | Short_Literal 0x20 023c 4808 |H | Short_Literal 0x8 023d e5ff | | Load 0x2,-0x1 023e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023f 8243 | C | Call 0x1,0x43 0240 01cb | | Execute Vector,Append 0241 e5fe | | Load 0x2,-0x2 0242 e5ff | | Load 0x2,-0x1 0243 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0244 8232 | 2 | Call 0x1,0x32 0245 01cc | | Execute Vector,Catenate 0246 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0247 0000 | | .XXX[0x1] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024d | M | .CONST 0x024d ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b 00e5 | | Load_Encached Long_Integer_Cache 024c 03e9 | | Declare_Variable Discrete,Duplicate 024d BODY_0248: 024d 00e5 | | Load_Encached Long_Integer_Cache 024e 00e5 | | Load_Encached Long_Integer_Cache 024f e5ff | | Load 0x2,-0x1 0250 800c | | Call 0x0,0xc 0251 005a | Z | Store_Top Discrete,At_Offset_2 0252 005a | Z | Store_Top Discrete,At_Offset_2 0253 4820 |H | Short_Literal 0x20 0254 4810 |H | Short_Literal 0x10 0255 00da | | Load_Top At_Offset_2 0256 8243 | C | Call 0x1,0x43 0257 01cb | | Execute Vector,Append 0258 4810 |H | Short_Literal 0x10 0259 00db | | Load_Top At_Offset_3 025a 8243 | C | Call 0x1,0x43 025b 01cc | | Execute Vector,Catenate 025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025d 0000 0000 | | .XXX[0x3] 025f 0000 | | 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0269 | i | .CONST 0x0269 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0004 | | .CONST 0x0004 ; Number of locals 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 01dc | | Execute Vector,Last 0265 00e3 | | Load_Encached Natural_Cache 0266 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0267 00e1 | | Load_Encached Boolean_Cache 0268 00e2 | | Load_Encached Integer_Cache 0269 BODY_0260: 0269 00da | | Load_Top At_Offset_2 026a e5ff | | Load 0x2,-0x1 026b 01d7 | | Execute Vector,Field_Read 026c 0d20 | | Execute_Immediate Less,0x20 026d 6803 |h | Jump_Zero 0x271 026e 00da | | Load_Top At_Offset_2 026f 0aff | | Execute_Immediate Plus,-0x1 0270 005b | [ | Store_Top Discrete,At_Offset_3 0271 00e1 | | Load_Encached Boolean_Cache 0272 00e2 | | Load_Encached Integer_Cache 0273 e5fe | | Load 0x2,-0x2 0274 e5ff | | Load 0x2,-0x1 0275 01dd | | Execute Vector,First 0276 e402 | | Load 0x2,0x2 0277 e5ff | | Load 0x2,-0x1 0278 01cf | | Execute Vector,Slice_Read 0279 e00b | | Load 0x0,0xb 027a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 027b 005a | Z | Store_Top Discrete,At_Offset_2 027c 005a | Z | Store_Top Discrete,At_Offset_2 027d 00d9 | | Load_Top At_Offset_1 027e 7015 |p | Jump_Nonzero 0x294 027f 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Error converting string '" 0281 e5ff | | Load 0x2,-0x1 0282 01dd | | Execute Vector,First 0283 e402 | | Load 0x2,0x2 0284 e5ff | | Load 0x2,-0x1 0285 01cf | | Execute Vector,Slice_Read 0286 01cc | | Execute Vector,Catenate 0287 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "' to base" 0289 01cc | | Execute Vector,Catenate 028a e5fe | | Load 0x2,-0x2 028b 00e0 | | Load_Encached Standard_Cache 028c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 028d 01cc | | Execute Vector,Catenate 028e 0092 03ca | | Action Push_String_Extended,0x3ca ; " number." 0290 01cc | | Execute Vector,Catenate 0291 e009 | | Load 0x0,0x9 0292 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0293 08e2 | | Execute_Immediate Raise,0xe2 0294 00d8 | | Load_Top At_Offset_0 0295 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a6 | | .CONST 0x02a6 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0003 | | .CONST 0x0003 ; Number of locals 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 01dd | | Execute Vector,First 029d 00db | | Load_Top At_Offset_3 029e 01dc | | Execute Vector,Last 029f 00e9 | | Load_Encached String_Cache 02a0 035b | [ | Declare_Type Array,Constrained 02a1 0337 | 7 | Declare_Variable Array 02a2 00db | | Load_Top At_Offset_3 02a3 01dd | | Execute Vector,First 02a4 00e3 | | Load_Encached Natural_Cache 02a5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02a6 BODY_0298: 02a6 00cf | | Action Mark_Auxiliary 02a7 00d9 | | Load_Top At_Offset_1 02a8 e5ff | | Load 0x2,-0x1 02a9 01dc | | Execute Vector,Last 02aa 027b | { | Execute Discrete,Greater_Equal 02ab 7013 |p | Jump_Nonzero 0x2bf 02ac 00d9 | | Load_Top At_Offset_1 02ad 0a01 | | Execute_Immediate Plus,0x1 02ae e5ff | | Load 0x2,-0x1 02af 01d7 | | Execute Vector,Field_Read 02b0 00da | | Load_Top At_Offset_2 02b1 e402 | | Load 0x2,0x2 02b2 01d6 | | Execute Vector,Field_Write 02b3 00d9 | | Load_Top At_Offset_1 02b4 e5ff | | Load 0x2,-0x1 02b5 01d7 | | Execute Vector,Field_Read 02b6 00da | | Load_Top At_Offset_2 02b7 0a01 | | Execute_Immediate Plus,0x1 02b8 e402 | | Load 0x2,0x2 02b9 01d6 | | Execute Vector,Field_Write 02ba 00d9 | | Load_Top At_Offset_1 02bb 0a02 | | Execute_Immediate Plus,0x2 02bc 005a | Z | Store_Top Discrete,At_Offset_2 02bd 00c9 | | Action Pop_Auxiliary_Loop 02be 7fe8 | | Jump 0x2a7 02bf 00ce | | Action Pop_Auxiliary 02c0 00d9 | | Load_Top At_Offset_1 02c1 00e9 | | Load_Encached String_Cache 02c2 01c6 | | Execute Vector,Convert_To_Formal 02c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c4 0000 0000 | | .BLANK 0000[0x4] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02d5 | | .CONST 0x02d5 ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e5fd | | Load 0x2,-0x3 02cc 01dd | | Execute Vector,First 02cd e5fd | | Load 0x2,-0x3 02ce 01dc | | Execute Vector,Last 02cf 00e9 | | Load_Encached String_Cache 02d0 035b | [ | Declare_Type Array,Constrained 02d1 0337 | 7 | Declare_Variable Array 02d2 e5fd | | Load 0x2,-0x3 02d3 00d9 | | Load_Top At_Offset_1 02d4 01d4 | | Execute Vector,Structure_Write 02d5 BODY_02c8: 02d5 00cf | | Action Mark_Auxiliary 02d6 00d9 | | Load_Top At_Offset_1 02d7 01d9 | | Execute Vector,Reverse_Bounds 02d8 0263 | c | Execute Discrete,Above_Bound 02d9 700c |p | Jump_Nonzero 0x2e6 02da 00d8 | | Load_Top At_Offset_0 02db e402 | | Load 0x2,0x2 02dc 01d7 | | Execute Vector,Field_Read 02dd e5ff | | Load 0x2,-0x1 02de 027f | | Execute Discrete,Equal 02df 6804 |h | Jump_Zero 0x2e4 02e0 e5fe | | Load 0x2,-0x2 02e1 00d9 | | Load_Top At_Offset_1 02e2 e402 | | Load 0x2,0x2 02e3 01d6 | | Execute Vector,Field_Write 02e4 00c8 | | Action Pop_Auxiliary_Range 02e5 3ff4 |? | Loop_Increasing 0x2da 02e6 00ce | | Action Pop_Auxiliary 02e7 00d8 | | Load_Top At_Offset_0 02e8 00e9 | | Load_Encached String_Cache 02e9 01c6 | | Execute Vector,Convert_To_Formal 02ea 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02eb 0000 0000 | | .BLANK 0000[0x5] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 4801 |H | Short_Literal 0x1 02f4 482e |H. | Short_Literal 0x2e 02f5 e5fc | | Load 0x2,-0x4 02f6 0092 03cb | | Action Push_String_Extended,0x3cb ; " produced on " 02f8 01cc | | Execute Vector,Catenate 02f9 4800 |H | Short_Literal 0x0 02fa 4800 |H | Short_Literal 0x0 02fb 4800 |H | Short_Literal 0x0 02fc e00d | | Load 0x0,0xd 02fd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02fe e00d | | Load 0x0,0xd 02ff 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0300 01cc | | Execute Vector,Catenate 0301 01cb | | Execute Vector,Append 0302 85fd | | Call 0x2,-0x3 0303 4801 |H | Short_Literal 0x1 0304 482e |H. | Short_Literal 0x2e 0305 0092 03cc | | Action Push_String_Extended,0x3cc ; "This file is " 0307 85fe | | Call 0x2,-0x2 0308 01cc | | Execute Vector,Catenate 0309 01cb | | Execute Vector,Append 030a 85fd | | Call 0x2,-0x3 030b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0321 | ! | .CONST 0x0321 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0003 | | .CONST 0x0003 ; Number of locals 0313 INIT_0310: 0313 e23b | ; | Load 0x1,0x3b 0314 0337 | 7 | Declare_Variable Array 0315 00db | | Load_Top At_Offset_3 0316 e23c | < | Load 0x1,0x3c 0317 e23d | = | Load 0x1,0x3d 0318 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 0319 8002 | | Call 0x0,0x2 031a 00d9 | | Load_Top At_Offset_1 031b 01d4 | | Execute Vector,Structure_Write 031c 4801 |H | Short_Literal 0x1 031d 4810 |H | Short_Literal 0x10 031e 00e9 | | Load_Encached String_Cache 031f 035b | [ | Declare_Type Array,Constrained 0320 0337 | 7 | Declare_Variable Array 0321 BODY_0310: 0321 00cf | | Action Mark_Auxiliary 0322 00d9 | | Load_Top At_Offset_1 0323 01d9 | | Execute Vector,Reverse_Bounds 0324 0007 | | Action Break_Optional 0325 00d8 | | Load_Top At_Offset_0 0326 e402 | | Load 0x2,0x2 0327 01d7 | | Execute Vector,Field_Read 0328 e242 | B | Load 0x1,0x42 0329 01d7 | | Execute Vector,Field_Read 032a 00d9 | | Load_Top At_Offset_1 032b e403 | | Load 0x2,0x3 032c 01d6 | | Execute Vector,Field_Write 032d 00c8 | | Action Pop_Auxiliary_Range 032e 3ff6 |? | Loop_Increasing 0x325 032f 00ce | | Action Pop_Auxiliary 0330 e5fe | | Load 0x2,-0x2 0331 7007 |p | Jump_Nonzero 0x339 0332 4820 |H | Short_Literal 0x20 0333 00d9 | | Load_Top At_Offset_1 0334 e00b | | Load 0x0,0xb 0335 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0336 00e9 | | Load_Encached String_Cache 0337 01c6 | | Execute Vector,Convert_To_Formal 0338 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0339 4810 |H | Short_Literal 0x10 033a e5fe | | Load 0x2,-0x2 033b 0272 | r | Execute Discrete,Minus 033c 0a01 | | Execute_Immediate Plus,0x1 033d 00d8 | | Load_Top At_Offset_0 033e 00e2 | | Load_Encached Integer_Cache 033f 0260 | ` | Execute Discrete,In_Type 0340 7001 |p | Jump_Nonzero 0x342 0341 0801 | | Execute_Immediate Raise,0x1 0342 4810 |H | Short_Literal 0x10 0343 00da | | Load_Top At_Offset_2 0344 01cf | | Execute Vector,Slice_Read 0345 00e9 | | Load_Encached String_Cache 0346 01c6 | | Execute Vector,Convert_To_Formal 0347 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0365 | e | .CONST 0x0365 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0014 | | .CONST 0x0014 ; Number of locals 034b INIT_0348: 034b 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 034d 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 034f 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0351 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 0353 00bf | | Action Accept_Activation 0354 e20e | | Load 0x1,0xe 0355 01db | | Execute Vector,Length 0356 0f00 | | Execute_Immediate Equal,0x0 0357 0007 | | Action Break_Optional 0358 e001 | | Load 0x0,0x1 0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035a 02c7 | | Declare_Variable Any 035b 00d8 | | Load_Top At_Offset_0 035c 1c00 | | Execute_Immediate Run_Utility,0x0 035d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 035e 00c7 | | Action Elaborate_Subprogram 035f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0360 00c7 | | Action Elaborate_Subprogram 0361 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0362 00c7 | | Action Elaborate_Subprogram 0363 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0364 00c7 | | Action Elaborate_Subprogram 0365 BODY_0348: 0365 00d9 | | Load_Top At_Offset_1 0366 7004 |p | Jump_Nonzero 0x36b 0367 00d8 | | Load_Top At_Offset_0 0368 e20e | | Load 0x1,0xe 0369 8002 | | Call 0x0,0x2 036a c214 | | Store 0x1,0x14 036b 00bc | | Action Signal_Activated 036c 00bb | | Action Signal_Completion 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 e213 | | Load 0x1,0x13 0374 6804 |h | Jump_Zero 0x379 0375 00da | | Load_Top At_Offset_2 0376 e001 | | Load 0x0,0x1 0377 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0378 7804 |x | Jump 0x37d 0379 00da | | Load_Top At_Offset_2 037a e214 | | Load 0x1,0x14 037b e001 | | Load 0x0,0x1 037c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 037d 00db | | Load_Top At_Offset_3 037e 680a |h | Jump_Zero 0x389 037f e213 | | Load 0x1,0x13 0380 6804 |h | Jump_Zero 0x385 0381 4801 |H | Short_Literal 0x1 0382 e001 | | Load 0x0,0x1 0383 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0384 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0385 4801 |H | Short_Literal 0x1 0386 e214 | | Load 0x1,0x14 0387 e001 | | Load 0x0,0x1 0388 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0389 4503 |E | Exit_Suprogram New_Top_Offset 0x3 038a 0000 0000 | | .BLANK 0000[0x6] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00cf | | Action Mark_Auxiliary 0394 00db | | Load_Top At_Offset_3 0395 4801 |H | Short_Literal 0x1 0396 0263 | c | Execute Discrete,Above_Bound 0397 700c |p | Jump_Nonzero 0x3a4 0398 e213 | | Load 0x1,0x13 0399 6804 |h | Jump_Zero 0x39e 039a 4801 |H | Short_Literal 0x1 039b e001 | | Load 0x0,0x1 039c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 039d 7804 |x | Jump 0x3a2 039e 4801 |H | Short_Literal 0x1 039f e214 | | Load 0x1,0x14 03a0 e001 | | Load 0x0,0x1 03a1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 03a2 00c8 | | Action Pop_Auxiliary_Range 03a3 3ff4 |? | Loop_Increasing 0x398 03a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a5 0000 0000 | | .XXX[0x3] 03a7 0000 | | 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab e213 | | Load 0x1,0x13 03ac 7004 |p | Jump_Nonzero 0x3b1 03ad e214 | | Load 0x1,0x14 03ae e001 | | Load 0x0,0x1 03af 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03b0 00ca | | Action Exit_Nullary_Function 03b1 0092 03cd | | Action Push_String_Extended,0x3cd ; "a text window" 03b3 00ca | | Action Exit_Nullary_Function 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb e213 | | Load 0x1,0x13 03bc 7004 |p | Jump_Nonzero 0x3c1 03bd e214 | | Load 0x1,0x14 03be e001 | | Load 0x0,0x1 03bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03c0 c214 | | Store 0x1,0x14 03c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c2 ; -------------------------------------------------------------------------------------- 03c2 ; STRING TABLE 03c2 ; -------------------------------------------------------------------------------------- 03c2 001a | | .STRTAB 0x001a->0x03cf ; "HEX" 03c3 001b | | .STRTAB 0x001b->0x03d0 ; "DEC" 03c4 001c | | .STRTAB 0x001c->0x03d2 ; "HEX_DEC" 03c5 0021 | ! | .STRTAB 0x0021->0x03d5 ; "FULL" 03c6 0023 | # | .STRTAB 0x0023->0x03d7 ; "CODE" 03c7 0025 | % | .STRTAB 0x0025->0x03d9 ; " (" 03c8 0025 | % | .STRTAB 0x0025->0x03da ; "Error converting string '" 03c9 003c | < | .STRTAB 0x003c->0x03e7 ; "' to base" 03ca 0043 | C | .STRTAB 0x0043->0x03eb ; " number." 03cb 0049 | I | .STRTAB 0x0049->0x03ef ; " produced on " 03cc 0054 | T | .STRTAB 0x0054->0x03f6 ; "This file is " 03cd 005f | _ | .STRTAB 0x005f->0x03fc ; "a text window" 03ce 006a | j | .STREND 0x006a->0x0403 03cf 4845 5844 |HEXD| .STRTAB_STRINGS 0403 0000 0000 | | .BLANK 0000[0x5] 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug Table 0408 ; -------------------------------------------------------------------------------------- 0408 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34c5,0x0000,0x0001,0x0000 040e ccb8 28b4 | ( | .XXX[0x6f] 0410 b480 8080 | | 0412 8080 8155 | U| 0414 cd95 c9cc | | 0416 8080 8080 | | 0418 8080 8139 | 9| 041a d5b5 8995 | | 041c c881 bd98 | | 041e 81d5 cd95 | | 0420 c9cc 81b1 | | 0422 bd9d 9d95 | | 0424 9081 bdb8 | | 0426 8185 d081 | | 0428 d1a1 9481 | | 042a 95b9 9081 | | 042c bd98 81d1 | | 042e a194 81a5 | | 0430 b9d1 95c9 | | 0432 d985 b0b8 | | 0434 28b4 b480 |( | 0436 8080 8080 | | 0438 8129 bd89 | ) | 043a cc80 8080 | | 043c 8080 8080 | | 043e 8139 d5b5 | 9 | 0440 8995 c881 | | 0442 bd98 81a9 | | 0444 bd89 cc81 | | 0446 c9d5 b9b9 | | 0448 a5b9 9c81 | | 044a 85d0 81d1 | | 044c a194 8195 | | 044e b990 81bd | | 0450 9881 d1a1 | | 0452 9481 a5b9 | | 0454 d195 c9d9 | | 0456 85b0 b828 | (| 0458 b4b4 8080 | | 045a 8080 8081 | | 045c 29bd 89cd |) | 045e 7d50 8080 |}P | 0460 8080 8081 | | 0462 39d5 b589 |9 | 0464 95c8 81bd | | 0466 9881 a9bd | | 0468 89cc 81d1 | | 046a a185 d081 | | 046c d195 c9b5 | | 046e a5b9 85d1 | | 0470 9590 8191 | | 0472 d5c9 a5b9 | | 0474 9c81 d1a1 | | 0476 9481 a5b9 | | 0478 d195 c9d9 | | 047a 85b0 b828 | (| 047c b4b4 | | 047d 8080 8080 | | .BLANK 8080[0x8] 0485 8081 25b9 | % | .XXX[0xab] 0487 91a5 8d85 | | 0489 d195 cc81 | | 048b d1a1 9481 | | 048d b195 d995 | | 048f b081 bd98 | | 0491 818d bdb5 | | 0493 b585 b990 | | 0495 8185 8dd1 | | 0497 a5d9 a5d1 | | 0499 e4b8 28b4 | ( | 049b b480 8080 | | 049d 8080 8131 | 1| 049f bd85 90c4 | | 04a1 d480 8080 | | 04a3 8080 810d | | 04a5 4154 81c9 |AT | 04a7 d5b8 81b1 | | 04a9 bd85 9081 | | 04ab 99bd c881 | | 04ad b185 cdd0 | | 04af 80c4 d481 | | 04b1 b5a5 b8b8 | | 04b3 28b4 b480 |( | 04b5 8080 8080 | | 04b7 8111 a5cd | | 04b9 acc4 d480 | | 04bb 8080 8080 | | 04bd 8111 a5cd | | 04bf ac81 b1bd | | 04c1 8590 8199 | | 04c3 bdc8 81b1 | | 04c5 85cd d080 | | 04c7 c4d4 81b5 | | 04c9 a5b8 b828 | (| 04cb b4b4 8080 | | 04cd 8080 8081 | | 04cf 5da1 b190 |] | 04d1 c4d4 8080 | | 04d3 8080 8081 | | 04d5 5da5 d1a1 |] | 04d7 a195 b190 | | 04d9 81d1 85cd | | 04db ac81 b1bd | | 04dd 8590 8199 | | 04df bdc8 81b1 | | 04e1 85cd d080 | | 04e3 c4d4 81b5 | | 04e5 a5b8 b828 | (| 04e7 b4b4 29c1 | ) | 04e9 c9bd 8d95 | | 04eb 91d5 c994 | | 04ed 8149 9599 | I | 04ef c995 cda1 | | 04f1 7d51 95c9 |}Q | 04f3 b5a5 b985 | | 04f5 b17d 25b9 | }% | 04f7 99bd c9b5 | | 04f9 85d1 a5bd | | 04fb b8ec 28b4 | ( | 04fd b481 4995 | I | 04ff 99c9 95cd | | 0501 a195 cc81 | | 0503 cde5 cdd1 | | 0505 95b5 dda5 | | 0507 9194 81d1 | | 0509 95c9 b5a5 | | 050b b985 b081 | | 050d a5b9 99bd | | 050f c9b5 85d1 | | 0511 a5bd b881 | | 0513 99c9 bdb4 | | 0515 28b4 b480 |( | 0517 8080 8085 | | 0519 3585 8da1 |5 | 051b a5b9 94b9 | | 051d 1591 a5d1 | | 051f bdc9 7d11 | } | 0521 85d1 84b9 | | 0523 6d51 95c9 |mQ | 0525 b5a5 b985 | | 0527 b17d 4995 | }I | 0529 8dbd 9db9 | | 052b a5d1 a5bd | | 052d b8b0 28b4 | ( | 052f b480 | | 0530 8080 8080 | | .BLANK 8080[0xc] 053c 8151 95c9 | Q | .XXX[0xa] 053e b5a5 b985 | | 0540 b17d 51e5 | }Q | 0542 c195 ccb0 | | 0544 28b4 b480 |( | 0546 8080 8080 | | .BLANK 8080[0xc] 0552 8101 7d2d | }-| .XXX[0x6] 0554 95e5 ccb0 | | 0556 28b4 b480 |( | 0558 8080 8080 | | .BLANK 8080[0xc] 0564 8101 7d0d | } | .XXX[0x9c] 0566 bdb5 b585 | | 0568 b991 cd74 | t| 056a 28b4 b481 |( | 056c 25b9 99bd |% | 056e c9b5 85d1 | | 0570 a5bd b881 | | 0572 99c9 bdb4 | | 0574 81d1 a195 | | 0576 cd94 81bd | | 0578 89a9 958d | | 057a d1cc 81a5 | | 057c cc81 85d5 | | 057e d1bd b585 | | 0580 d1a5 8d85 | | 0582 b1b1 e481 | | 0584 c995 8590 | | 0586 8191 d5c9 | | 0588 a5b9 9c81 | | 058a cde5 cdd1 | | 058c 95b4 28b4 | ( | 058e b481 89bd | | 0590 bdd0 b081 | | 0592 85b9 9081 | | 0594 a5d0 81a5 | | 0596 cc81 d1a1 | | 0598 95c9 9599 | | 059a bdc9 9481 | | 059c b9bd d081 | | 059e b995 8d95 | | 05a0 cdcd 85c9 | | 05a2 e481 d1bc | | 05a4 818d 85b1 | | 05a6 b081 4995 | I | 05a8 99c9 95cd | | 05aa a17d 5195 | }Q | 05ac c9b5 a5b9 | | 05ae 85b1 7c28 | |(| 05b0 b4b4 8125 | %| 05b2 b999 bdc9 | | 05b4 b585 d1a5 | | 05b6 bdb8 8199 | | 05b8 c9bd b481 | | 05ba 3585 8da1 |5 | 05bc a5b9 94b9 | | 05be 25b9 a5d1 |% | 05c0 a585 b1a5 | | 05c2 e994 b880 | | 05c4 8121 bddd | ! | 05c6 95d9 95c8 | | 05c8 b081 c9d5 | | 05ca b9b9 a5b9 | | 05cc 9c81 d1a1 | | 05ce a5cc 81c1 | | 05d0 c9bd 8d94 | | 05d2 b428 b4b4 | ( | 05d4 8191 d5c9 | | 05d6 9481 b585 | | 05d8 ad95 cc81 | | 05da d1a1 9481 | | 05dc cde5 cdd1 | | 05de 95b4 81c9 | | 05e0 9599 c995 | | 05e2 cda0 81a5 | | 05e4 d1cc 81a5 | | 05e6 b9d1 95c9 | | 05e8 b985 b081 | | 05ea 8d85 8da1 | | 05ec 9481 bd98 | | 05ee 81d1 a194 | | 05f0 81a5 b999 | | 05f2 bdc9 b585 | | 05f4 d1a5 bdb8 | | 05f6 28b4 b481 |( | 05f8 99c9 bdb4 | | 05fa 81d1 a195 | | 05fc cd94 8199 | | 05fe a5b1 95cc | |