|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_c7f0e2
└─⟦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 02e8 | | .CONST 0x02e8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0092 | | .CONST 0x0092 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0031 | 1 | .CONST 0x0031 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 000d e001 | | Load 0x0,0x1 000e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 000f 4800 |H | Short_Literal 0x0 0010 4802 |H | Short_Literal 0x2 0011 4802 |H | Short_Literal 0x2 0012 4814 |H | Short_Literal 0x14 0013 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0014 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0016 00d9 | | Load_Top At_Offset_1 0017 012a | * | Execute Any,Change_Utility 0018 0007 | | Action Break_Optional 0019 e002 | | Load 0x0,0x2 001a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 001b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 001d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 001f e003 | | Load 0x0,0x3 0020 0129 | ) | Execute Any,Make_Visible 0021 e004 | | Load 0x0,0x4 0022 0129 | ) | Execute Any,Make_Visible 0023 e001 | | Load 0x0,0x1 0024 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0025 e001 | | Load 0x0,0x1 0026 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0027 4800 |H | Short_Literal 0x0 0028 4802 |H | Short_Literal 0x2 0029 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 002b 03fd | | Declare_Type Discrete,Defined 002c 4800 |H | Short_Literal 0x0 002d 4803 |H | Short_Literal 0x3 002e 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0030 03fd | | Declare_Type Discrete,Defined 0031 00db | | Load_Top At_Offset_3 0032 0266 | f | Execute Discrete,Bounds 0033 00da | | Load_Top At_Offset_2 0034 02a0 | | Declare_Subprogram Null_Subprogram 0035 4801 |H | Short_Literal 0x1 0036 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0037 00db | | Load_Top At_Offset_3 0038 0266 | f | Execute Discrete,Bounds 0039 00e1 | | Load_Encached Boolean_Cache 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 4801 |H | Short_Literal 0x1 003c 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 003d 029b 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Unelaborated 003f 4802 |H | Short_Literal 0x2 0040 e001 | | Load 0x0,0x1 0041 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0042 e220 | | Load 0x1,0x20 0043 e221 | ! | Load 0x1,0x21 0044 e001 | | Load 0x0,0x1 0045 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0046 e001 | | Load 0x0,0x1 0047 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0048 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 004a 4804 |H | Short_Literal 0x4 004b 032d | - | Declare_Type Record,Defined 004c e220 | | Load 0x1,0x20 004d 00d8 | | Load_Top At_Offset_0 004e e221 | ! | Load 0x1,0x21 004f 00e1 | | Load_Encached Boolean_Cache 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 4804 |H | Short_Literal 0x4 0052 032d | - | Declare_Type Record,Defined 0053 e220 | | Load 0x1,0x20 0054 00da | | Load_Top At_Offset_2 0055 00da | | Load_Top At_Offset_2 0056 00e1 | | Load_Encached Boolean_Cache 0057 00e1 | | Load_Encached Boolean_Cache 0058 00e1 | | Load_Encached Boolean_Cache 0059 00e1 | | Load_Encached Boolean_Cache 005a e222 | " | Load 0x1,0x22 005b 00e1 | | Load_Encached Boolean_Cache 005c e228 | ( | Load 0x1,0x28 005d e001 | | Load 0x0,0x1 005e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 005f e001 | | Load 0x0,0x1 0060 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0061 00e1 | | Load_Encached Boolean_Cache 0062 00e3 | | Load_Encached Natural_Cache 0063 00e1 | | Load_Encached Boolean_Cache 0064 4801 |H | Short_Literal 0x1 0065 e217 | | Load 0x1,0x17 0066 00e9 | | Load_Encached String_Cache 0067 035b | [ | Declare_Type Array,Constrained 0068 e224 | $ | Load 0x1,0x24 0069 e225 | % | Load 0x1,0x25 006a 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 006c 4800 |H | Short_Literal 0x0 006d 4802 |H | Short_Literal 0x2 006e 4810 |H | Short_Literal 0x10 006f e21a | | Load 0x1,0x1a 0070 0307 | | Complete_Type Variant_Record,By_Defining 0071 00bf | | Action Accept_Activation 0072 4800 |H | Short_Literal 0x0 0073 4801 |H | Short_Literal 0x1 0074 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0076 03fd | | Declare_Type Discrete,Defined 0077 4800 |H | Short_Literal 0x0 0078 4802 |H | Short_Literal 0x2 0079 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 007b 03fd | | Declare_Type Discrete,Defined 007c 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "\x1bO" 007e e005 | | Load 0x0,0x5 007f 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address 0080 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 0082 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0084 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 0086 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0088 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0089 00c7 | | Action Elaborate_Subprogram 008a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 008b 00c7 | | Action Elaborate_Subprogram 008c 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 008d 00c7 | | Action Elaborate_Subprogram 008e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 008f 00c7 | | Action Elaborate_Subprogram 0090 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0091 00c7 | | Action Elaborate_Subprogram 0092 BODY_0008: 0092 00bc | | Action Signal_Activated 0093 00bb | | Action Signal_Completion 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009e | | .CONST 0x009e ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b e001 | | Load 0x0,0x1 009c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 009d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 009e BODY_0098: 009e e001 | | Load 0x0,0x1 009f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a1 e5fe | | Load 0x2,-0x2 00a2 e001 | | Load 0x0,0x1 00a3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a5 0059 | Y | Store_Top Discrete,At_Offset_1 00a6 e5fd | | Load 0x2,-0x3 00a7 00d9 | | Load_Top At_Offset_1 00a8 e5ff | | Load 0x2,-0x1 00a9 821d | | Call 0x1,0x1d 00aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00ab 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 00b4 e5fd | | Load 0x2,-0x3 00b5 e5fe | | Load 0x2,-0x2 00b6 e001 | | Load 0x0,0x1 00b7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b9 822d | - | Call 0x1,0x2d 00ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00bb 0000 0000 | | .BLANK 0000[0x5] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4607 |F | Jump_Case 0x8 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7806 |x | Jump 0xcc ; case 0x1 00c6 7809 |x | Jump 0xd0 ; case 0x2 00c7 780d |x | Jump 0xd5 ; case 0x3 00c8 7810 |x | Jump 0xd9 ; case 0x4 00c9 7811 |x | Jump 0xdb ; case 0x5 00ca 7812 |x | Jump 0xdd ; case 0x6 00cb 7815 |x | Jump 0xe1 ; case 0x7 00cc 00da | | Load_Top At_Offset_2 00cd 0091 02ad | | Action Push_String_Extended_Indexed,0x2ad ; "NUMERIC" 00cf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d0 00db | | Load_Top At_Offset_3 00d1 00db | | Load_Top At_Offset_3 00d2 00e0 | | Load_Encached Standard_Cache 00d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d5 00da | | Load_Top At_Offset_2 00d6 00e0 | | Load_Encached Standard_Cache 00d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d9 00db | | Load_Top At_Offset_3 00da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00db 00db | | Load_Top At_Offset_3 00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dd e222 | " | Load 0x1,0x22 00de 00dc | | Load_Top At_Offset_4 00df 0267 | g | Execute Discrete,Predecessor 00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e1 e222 | " | Load 0x1,0x22 00e2 00dc | | Load_Top At_Offset_4 00e3 0268 | h | Execute Discrete,Successor 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4607 |F | Jump_Case 0x8 00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ed 7806 |x | Jump 0xf4 ; case 0x1 00ee 7809 |x | Jump 0xf8 ; case 0x2 00ef 780d |x | Jump 0xfd ; case 0x3 00f0 7810 |x | Jump 0x101 ; case 0x4 00f1 7811 |x | Jump 0x103 ; case 0x5 00f2 7812 |x | Jump 0x105 ; case 0x6 00f3 7815 |x | Jump 0x109 ; case 0x7 00f4 00da | | Load_Top At_Offset_2 00f5 0091 02b0 | | Action Push_String_Extended_Indexed,0x2b0 ; "NORMAL" 00f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f8 00db | | Load_Top At_Offset_3 00f9 00db | | Load_Top At_Offset_3 00fa 00e0 | | Load_Encached Standard_Cache 00fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd 00da | | Load_Top At_Offset_2 00fe 00e0 | | Load_Encached Standard_Cache 00ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0101 00db | | Load_Top At_Offset_3 0102 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0103 00db | | Load_Top At_Offset_3 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 e223 | # | Load 0x1,0x23 0106 00dc | | Load_Top At_Offset_4 0107 0267 | g | Execute Discrete,Predecessor 0108 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0109 e223 | # | Load 0x1,0x23 010a 00dc | | Load_Top At_Offset_4 010b 0268 | h | Execute Discrete,Successor 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0128 | ( | .CONST 0x0128 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 4801 |H | Short_Literal 0x1 0114 00db | | Load_Top At_Offset_3 0115 e225 | % | Load 0x1,0x25 0116 035b | [ | Declare_Type Array,Constrained 0117 0337 | 7 | Declare_Variable Array 0118 00d8 | | Load_Top At_Offset_0 0119 0335 | 5 | Declare_Variable Array,Duplicate 011a 00cd | | Action Spare6_Action 011b 00d9 | | Load_Top At_Offset_1 011c 01d9 | | Execute Vector,Reverse_Bounds 011d 0263 | c | Execute Discrete,Above_Bound 011e 7005 |p | Jump_Nonzero 0x124 011f 4800 |H | Short_Literal 0x0 0120 00d9 | | Load_Top At_Offset_1 0121 e403 | | Load 0x2,0x3 0122 01d6 | | Execute Vector,Field_Write 0123 3ffb |? | Loop_Increasing 0x11f 0124 00d9 | | Load_Top At_Offset_1 0125 01d4 | | Execute Vector,Structure_Write 0126 e221 | ! | Load 0x1,0x21 0127 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0128 BODY_0110: 0128 00cf | | Action Mark_Auxiliary 0129 00d9 | | Load_Top At_Offset_1 012a 0a08 | | Execute_Immediate Plus,0x8 012b 005a | Z | Store_Top Discrete,At_Offset_2 012c 00d9 | | Load_Top At_Offset_1 012d e5ff | | Load 0x2,-0x1 012e 027d | } | Execute Discrete,Greater 012f 7006 |p | Jump_Nonzero 0x136 0130 4801 |H | Short_Literal 0x1 0131 00da | | Load_Top At_Offset_2 0132 e402 | | Load 0x2,0x2 0133 01d6 | | Execute Vector,Field_Write 0134 00c9 | | Action Pop_Auxiliary_Loop 0135 7ff3 | | Jump 0x129 0136 00ce | | Action Pop_Auxiliary 0137 00d9 | | Load_Top At_Offset_1 0138 e225 | % | Load 0x1,0x25 0139 01c6 | | Execute Vector,Convert_To_Formal 013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013b 0000 0000 | | .BLANK 0000[0x5] 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 7806 |x | Jump 0x14c ; case 0x1 0146 7809 |x | Jump 0x150 ; case 0x2 0147 780d |x | Jump 0x155 ; case 0x3 0148 7810 |x | Jump 0x159 ; case 0x4 0149 7811 |x | Jump 0x15b ; case 0x5 014a 7812 |x | Jump 0x15d ; case 0x6 014b 7815 |x | Jump 0x161 ; case 0x7 014c 00da | | Load_Top At_Offset_2 014d 0091 02b4 | | Action Push_String_Extended_Indexed,0x2b4 ; "LINE" 014f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0150 00db | | Load_Top At_Offset_3 0151 00db | | Load_Top At_Offset_3 0152 00e0 | | Load_Encached Standard_Cache 0153 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0154 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0155 00da | | Load_Top At_Offset_2 0156 00e0 | | Load_Encached Standard_Cache 0157 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0158 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0159 00db | | Load_Top At_Offset_3 015a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015b 00db | | Load_Top At_Offset_3 015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015d e22a | * | Load 0x1,0x2a 015e 00dc | | Load_Top At_Offset_4 015f 0267 | g | Execute Discrete,Predecessor 0160 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0161 e22a | * | Load 0x1,0x2a 0162 00dc | | Load_Top At_Offset_4 0163 0268 | h | Execute Discrete,Successor 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 4607 |F | Jump_Case 0x8 016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 016d 7806 |x | Jump 0x174 ; case 0x1 016e 7809 |x | Jump 0x178 ; case 0x2 016f 780d |x | Jump 0x17d ; case 0x3 0170 7810 |x | Jump 0x181 ; case 0x4 0171 7811 |x | Jump 0x183 ; case 0x5 0172 7812 |x | Jump 0x185 ; case 0x6 0173 7815 |x | Jump 0x189 ; case 0x7 0174 00da | | Load_Top At_Offset_2 0175 0091 02b6 | | Action Push_String_Extended_Indexed,0x2b6 ; "FROM_START" 0177 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0178 00db | | Load_Top At_Offset_3 0179 00db | | Load_Top At_Offset_3 017a 00e0 | | Load_Encached Standard_Cache 017b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 017c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017d 00da | | Load_Top At_Offset_2 017e 00e0 | | Load_Encached Standard_Cache 017f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0180 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0181 00db | | Load_Top At_Offset_3 0182 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0183 00db | | Load_Top At_Offset_3 0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0185 e22b | + | Load 0x1,0x2b 0186 00dc | | Load_Top At_Offset_4 0187 0267 | g | Execute Discrete,Predecessor 0188 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0189 e22b | + | Load 0x1,0x2b 018a 00dc | | Load_Top At_Offset_4 018b 0268 | h | Execute Discrete,Successor 018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018d 0000 0000 | | .XXX[0x3] 018f 0000 | | 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 e5fe | | Load 0x2,-0x2 0195 027c | | | Execute Discrete,Less 0196 6802 |h | Jump_Zero 0x199 0197 00da | | Load_Top At_Offset_2 0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0199 00db | | Load_Top At_Offset_3 019a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019b 0000 0000 | | .BLANK 0000[0x5] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 e5fe | | Load 0x2,-0x2 01a5 027d | } | Execute Discrete,Greater 01a6 6802 |h | Jump_Zero 0x1a9 01a7 00da | | Load_Top At_Offset_2 01a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a9 00db | | Load_Top At_Offset_3 01aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ab 0000 0000 | | .BLANK 0000[0x5] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 e5fe | | Load 0x2,-0x2 01b5 0272 | r | Execute Discrete,Minus 01b6 00d8 | | Load_Top At_Offset_0 01b7 00e2 | | Load_Encached Integer_Cache 01b8 0260 | ` | Execute Discrete,In_Type 01b9 7001 |p | Jump_Nonzero 0x1bb 01ba 0801 | | Execute_Immediate Raise,0x1 01bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 e5fe | | Load 0x2,-0x2 01c5 0273 | s | Execute Discrete,Plus 01c6 00d8 | | Load_Top At_Offset_0 01c7 00e8 | | Load_Encached Character_Cache 01c8 0260 | ` | Execute Discrete,In_Type 01c9 7001 |p | Jump_Nonzero 0x1cb 01ca 0801 | | Execute_Immediate Raise,0x1 01cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01cc 0000 0000 | | .BLANK 0000[0x4] 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 4608 |F | Jump_Case 0x9 01d4 7808 |x | Jump 0x1dd ; case 0x0 01d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01d6 7813 |x | Jump 0x1ea ; case 0x2 01d7 7812 |x | Jump 0x1ea ; case 0x3 01d8 7811 |x | Jump 0x1ea ; case 0x4 01d9 7810 |x | Jump 0x1ea ; case 0x5 01da 780f |x | Jump 0x1ea ; case 0x6 01db 780e |x | Jump 0x1ea ; case 0x7 01dc 780d |x | Jump 0x1ea ; case 0x8 01dd 4801 |H | Short_Literal 0x1 01de 00db | | Load_Top At_Offset_3 01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e0 4801 |H | Short_Literal 0x1 01e1 00db | | Load_Top At_Offset_3 01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e3 4802 |H | Short_Literal 0x2 01e4 00db | | Load_Top At_Offset_3 01e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01e6 e227 | ' | Load 0x1,0x27 01e7 00db | | Load_Top At_Offset_3 01e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ea 0869 | i | Execute_Immediate Raise,0x69 01eb 0000 0000 | | .BLANK 0000[0x5] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 INIT_01f0: 01f3 4608 |F | Jump_Case 0x9 01f4 7808 |x | Jump 0x1fd ; case 0x0 01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01f6 78b5 |x | Jump 0x2ac ; case 0x2 01f7 78b4 |x | Jump 0x2ac ; case 0x3 01f8 78b3 |x | Jump 0x2ac ; case 0x4 01f9 78b2 |x | Jump 0x2ac ; case 0x5 01fa 78b1 |x | Jump 0x2ac ; case 0x6 01fb 7892 |x | Jump 0x28e ; case 0x7 01fc 789f |x | Jump 0x29c ; case 0x8 01fd 00da | | Load_Top At_Offset_2 01fe 016c | l | Execute Variant_Record,Is_Constrained 01ff 700a |p | Jump_Nonzero 0x20a 0200 00cf | | Action Mark_Auxiliary 0201 4818 |H | Short_Literal 0x18 0202 4884 |H | Short_Literal 0x84 0203 e5ff | | Load 0x2,-0x1 0204 1c08 | | Execute_Immediate Run_Utility,0x8 0205 00d8 | | Load_Top At_Offset_0 0206 1c00 | | Execute_Immediate Run_Utility,0x0 0207 c5ff | | Store 0x2,-0x1 0208 00ce | | Action Pop_Auxiliary 0209 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 020a 4801 |H | Short_Literal 0x1 020b 00db | | Load_Top At_Offset_3 020c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 020d 00da | | Load_Top At_Offset_2 020e 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 e229 | ) | Load 0x1,0x29 0211 0322 | " | Declare_Variable Record 0212 4801 |H | Short_Literal 0x1 0213 00d9 | | Load_Top At_Offset_1 0214 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0215 00db | | Load_Top At_Offset_3 0216 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0217 00d9 | | Load_Top At_Offset_1 0218 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0219 00db | | Load_Top At_Offset_3 021a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 021b 00d9 | | Load_Top At_Offset_1 021c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 021d 4800 |H | Short_Literal 0x0 021e 00d9 | | Load_Top At_Offset_1 021f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0220 00db | | Load_Top At_Offset_3 0221 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0222 4800 |H | Short_Literal 0x0 0223 00db | | Load_Top At_Offset_3 0224 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0225 4800 |H | Short_Literal 0x0 0226 00db | | Load_Top At_Offset_3 0227 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 0228 4800 |H | Short_Literal 0x0 0229 00db | | Load_Top At_Offset_3 022a 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8 022b 4800 |H | Short_Literal 0x0 022c 00db | | Load_Top At_Offset_3 022d 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9 022e 4800 |H | Short_Literal 0x0 022f 00db | | Load_Top At_Offset_3 0230 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa 0231 4800 |H | Short_Literal 0x0 0232 00db | | Load_Top At_Offset_3 0233 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb 0234 00da | | Load_Top At_Offset_2 0235 240c |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xc 0236 1c00 | | Execute_Immediate Run_Utility,0x0 0237 4800 |H | Short_Literal 0x0 0238 00db | | Load_Top At_Offset_3 0239 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd 023a 4800 |H | Short_Literal 0x0 023b 00db | | Load_Top At_Offset_3 023c 280e |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xe 023d 4800 |H | Short_Literal 0x0 023e 00db | | Load_Top At_Offset_3 023f 280f |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xf 0240 4800 |H | Short_Literal 0x0 0241 00db | | Load_Top At_Offset_3 0242 2810 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x10 0243 4800 |H | Short_Literal 0x0 0244 00db | | Load_Top At_Offset_3 0245 2811 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x11 0246 e21a | | Load 0x1,0x1a 0247 2312 |# | Execute Variant_Record,Field_Type,Field_Number 0x12 0248 0337 | 7 | Declare_Variable Array 0249 e21a | | Load 0x1,0x1a 024a 2312 |# | Execute Variant_Record,Field_Type,Field_Number 0x12 024b 01d9 | | Execute Vector,Reverse_Bounds 024c 0263 | c | Execute Discrete,Above_Bound 024d 7005 |p | Jump_Nonzero 0x253 024e 4820 |H | Short_Literal 0x20 024f 00d9 | | Load_Top At_Offset_1 0250 e402 | | Load 0x2,0x2 0251 01d6 | | Execute Vector,Field_Write 0252 3ffb |? | Loop_Increasing 0x24e 0253 00db | | Load_Top At_Offset_3 0254 00d9 | | Load_Top At_Offset_1 0255 00d9 | | Load_Top At_Offset_1 0256 2312 |# | Execute Variant_Record,Field_Type,Field_Number 0x12 0257 0119 | | Execute Any,Check_In_Formal_Type 0258 00d1 | | Pop_Control Pop_Count_1 0259 2812 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x12 025a 00da | | Load_Top At_Offset_2 025b 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13 025c 0335 | 5 | Declare_Variable Array,Duplicate 025d 00cd | | Action Spare6_Action 025e 00db | | Load_Top At_Offset_3 025f 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13 0260 01d9 | | Execute Vector,Reverse_Bounds 0261 0263 | c | Execute Discrete,Above_Bound 0262 7005 |p | Jump_Nonzero 0x268 0263 4800 |H | Short_Literal 0x0 0264 00d9 | | Load_Top At_Offset_1 0265 e402 | | Load 0x2,0x2 0266 01d6 | | Execute Vector,Field_Write 0267 3ffb |? | Loop_Increasing 0x263 0268 00db | | Load_Top At_Offset_3 0269 00d8 | | Load_Top At_Offset_0 026a 2513 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x13 026b 00da | | Load_Top At_Offset_2 026c 01da | | Execute Vector,Bounds 026d 00da | | Load_Top At_Offset_2 026e 01da | | Execute Vector,Bounds 026f 00da | | Load_Top At_Offset_2 0270 027f | | Execute Discrete,Equal 0271 7001 |p | Jump_Nonzero 0x273 0272 08e0 | | Execute_Immediate Raise,0xe0 0273 00cd | | Action Spare6_Action 0274 027f | | Execute Discrete,Equal 0275 7001 |p | Jump_Nonzero 0x277 0276 08e0 | | Execute_Immediate Raise,0xe0 0277 00d1 | | Pop_Control Pop_Count_1 0278 2913 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x13 0279 00da | | Load_Top At_Offset_2 027a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 027b 8226 | & | Call 0x1,0x26 027c 00db | | Load_Top At_Offset_3 027d 00d8 | | Load_Top At_Offset_0 027e 2514 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x14 027f 00da | | Load_Top At_Offset_2 0280 01da | | Execute Vector,Bounds 0281 00da | | Load_Top At_Offset_2 0282 01da | | Execute Vector,Bounds 0283 00da | | Load_Top At_Offset_2 0284 027f | | Execute Discrete,Equal 0285 7001 |p | Jump_Nonzero 0x287 0286 08e0 | | Execute_Immediate Raise,0xe0 0287 00cd | | Action Spare6_Action 0288 027f | | Execute Discrete,Equal 0289 7001 |p | Jump_Nonzero 0x28b 028a 08e0 | | Execute_Immediate Raise,0xe0 028b 00d1 | | Pop_Control Pop_Count_1 028c 2914 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x14 028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 028e e5fd | | Load 0x2,-0x3 028f e5fe | | Load 0x2,-0x2 0290 4801 |H | Short_Literal 0x1 0291 e5fd | | Load 0x2,-0x3 0292 e224 | $ | Load 0x1,0x24 0293 035b | [ | Declare_Type Array,Constrained 0294 4801 |H | Short_Literal 0x1 0295 e5fe | | Load 0x2,-0x2 0296 e225 | % | Load 0x1,0x25 0297 035b | [ | Declare_Type Array,Constrained 0298 4802 |H | Short_Literal 0x2 0299 e5ff | | Load 0x2,-0x1 029a 031b | | Declare_Type Variant_Record,Constrained 029b 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 029c e5fd | | Load 0x2,-0x3 029d e5fe | | Load 0x2,-0x2 029e e5ff | | Load 0x2,-0x1 029f 02fc | | Declare_Variable Variant_Record,With_Constraint 02a0 4801 |H | Short_Literal 0x1 02a1 e5fd | | Load 0x2,-0x3 02a2 e224 | $ | Load 0x1,0x24 02a3 0334 | 4 | Declare_Variable Array,With_Constraint 02a4 2d13 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x13 02a5 4801 |H | Short_Literal 0x1 02a6 e5fe | | Load 0x2,-0x2 02a7 e225 | % | Load 0x1,0x25 02a8 0334 | 4 | Declare_Variable Array,With_Constraint 02a9 2d14 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x14 02aa 016a | j | QQ_execute Variant_Record,XXX 02ab 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 02ac 0869 | i | Execute_Immediate Raise,0x69 02ad ; -------------------------------------------------------------------------------------- 02ad ; STRING TABLE 02ad ; -------------------------------------------------------------------------------------- 02ad 001c | | .STRTAB 0x001c->0x02bb ; "NUMERIC" 02ae 0021 | ! | .STRTAB 0x0021->0x02be ; "APPLICATION" 02af 002a | * | .STRTAB 0x002a->0x02c4 ; "HEX" 02b0 002b | + | .STRTAB 0x002b->0x02c5 ; "NORMAL" 02b1 002f | / | .STRTAB 0x002f->0x02c8 ; "WIDE" 02b2 0031 | 1 | .STRTAB 0x0031->0x02ca ; "TOP_HALF" 02b3 0037 | 7 | .STRTAB 0x0037->0x02ce ; "BOTTOM_HALF" 02b4 0040 | @ | .STRTAB 0x0040->0x02d4 ; "LINE" 02b5 0042 | B | .STRTAB 0x0042->0x02d6 ; "SCREEN" 02b6 0046 | F | .STRTAB 0x0046->0x02d9 ; "FROM_START" 02b7 004e | N | .STRTAB 0x004e->0x02de ; "ENTIRETY" 02b8 0054 | T | .STRTAB 0x0054->0x02e2 ; "TO_END" 02b9 0058 | X | .STRTAB 0x0058->0x02e5 ; "\x1bO" 02ba 0058 | X | .STREND 0x0058->0x02e6 02bb 4e55 4d45 |NUME| .STRTAB_STRINGS 02e6 0000 0000 | | .XXX[0x2] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug Table 02e8 ; -------------------------------------------------------------------------------------- 02e8 0004 000d | | .DEBUG4 0x0004,0x000d,0x91c4,0x0000,0x0001,0x0000 02ee c9de 6020 | ` | .XXX[0xb] 02f0 010b 0091 | | 02f2 e400 0001 | | 02f4 0000 0000 | | 02f6 7a02 4791 |z G | 02f8 f000 | | 02f9 0000 0000 | | .BLANK 0000[0x5] 02fe 7c9b 9e00 || | .XXX[0x7] 0300 7ca0 2e02 || . | 0302 000a 4008 | @ | 0304 aa40 | @ | 0305 0000 0000 | | .BLANK 0000[0xb] 0310 07c9 de60 | `| .XXX[0xd] 0312 07ca 2760 | '`| 0314 2001 0b00 | | 0316 91e4 0000 | | 0318 0100 0000 | | 031a 007a 0247 | z G| 031c 9850 | P | 031d 0000 0000 | | .BLANK 0000[0x5] 0322 007c a02e | | .| .XXX[0x8] 0324 007c a4be | | | 0326 0200 0a40 | @| 0328 08aa 4000 | @ | 032a 0000 0000 | | .BLANK 0000[0xa] 0334 0007 ca27 | '| .XXX[0xe] 0336 6007 ca70 |` p| 0338 6020 010b |` | 033a 0091 ec00 | | 033c 0001 0000 | | 033e 0000 7a02 | z | 0340 47b8 6000 |G ` | 0342 0000 0000 | | .BLANK 0000[0x5] 0347 7ca4 be00 || | .XXX[0x7] 0349 7ca9 4e02 || N | 034b 000a 4008 | @ | 034d aa40 | @ | 034e 0000 0000 | | .BLANK 0000[0xb] 0359 07ca 7060 | p`| .XXX[0xd] 035b 07ca b960 | `| 035d 2001 0b00 | | 035f 91e4 0000 | | 0361 0100 0000 | | 0363 007a 0247 | z G| 0365 9870 | p | 0366 0000 0000 | | .BLANK 0000[0x5] 036b 007c a94e | | N| .XXX[0x8] 036d 007c adde | | | 036f 0200 0a40 | @| 0371 08aa 4000 | @ | 0373 0000 0000 | | .BLANK 0000[0xa] 037d 0007 cab9 | | .XXX[0xe] 037f 6007 cb02 |` | 0381 6020 010b |` | 0383 0091 e400 | | 0385 0001 0000 | | 0387 0000 7a02 | z | 0389 4798 8000 |G | 038b 0000 0000 | | .BLANK 0000[0x5] 0390 7cad de00 || | .XXX[0x7] 0392 7cb2 6e02 || n | 0394 000a 4008 | @ | 0396 aa40 | @ | 0397 0000 0000 | | .BLANK 0000[0xb] 03a2 07cb 0260 | `| .XXX[0xd] 03a4 07cb 4b60 | K`| 03a6 2001 0b00 | | 03a8 91ec 0000 | | 03aa 0100 0000 | | 03ac 007a 0247 | z G| 03ae b890 | | 03af 0000 0000 | | .BLANK 0000[0x5] 03b4 007c b26e | | n| .XXX[0x8] 03b6 007c b6fe | | | 03b8 0200 0a40 | @| 03ba 0894 c000 | | 03bc 0000 0000 | | .BLANK 0000[0xa] 03c6 0007 cb4b | K| .XXX[0xe] 03c8 6007 cb94 |` | 03ca 6020 010b |` | 03cc 0091 e400 | | 03ce 0001 0000 | | 03d0 0000 7a02 | z | 03d2 4790 f000 |G | 03d4 0000 0000 | | .BLANK 0000[0x5] 03d9 7cb6 fe00 || | .XXX[0x7] 03db 7cbb 8e02 || | 03dd 000a 4008 | @ | 03df 94c0 | | 03e0 0000 0000 | | .BLANK 0000[0xb] 03eb 07cb 9460 | `| .XXX[0xd] 03ed 07cb dd60 | `| 03ef 2001 0b00 | | 03f1 91e4 0000 | | 03f3 0100 0000 | | 03f5 007a 0247 | z G| 03f7 9100 | | 03f8 0000 0000 | | .BLANK 0000[0x5] 03fd 007c bb8e | | | .XXX[0x3] 03ff 007c | | |