|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_abb4fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01f8 | | .CONST 0x01f8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003b | ; | .CONST 0x003b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 0007 | | Action Break_Optional 0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0013 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0017 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0019 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001b e20d | | Load 0x1,0xd 001c 00e1 | | Load_Encached Boolean_Cache 001d 4801 |H | Short_Literal 0x1 001e e002 | | Load 0x0,0x2 001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0020 4801 |H | Short_Literal 0x1 0021 e002 | | Load 0x0,0x2 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 4802 |H | Short_Literal 0x2 0024 e002 | | Load 0x0,0x2 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 e002 | | Load 0x0,0x2 0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0028 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 002a 4804 |H | Short_Literal 0x4 002b 4801 |H | Short_Literal 0x1 002c 4803 |H | Short_Literal 0x3 002d 4800 |H | Short_Literal 0x0 002e 4801 |H | Short_Literal 0x1 002f 031e | | Declare_Type Variant_Record,Defined,Visible 0030 00bf | | Action Accept_Activation 0031 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0032 00c7 | | Action Elaborate_Subprogram 0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0034 00c7 | | Action Elaborate_Subprogram 0035 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0036 00c7 | | Action Elaborate_Subprogram 0037 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0038 00c7 | | Action Elaborate_Subprogram 0039 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003a 00c7 | | Action Elaborate_Subprogram 003b BODY_0008: 003b 00bc | | Action Signal_Activated 003c 00bb | | Action Signal_Completion 003d 0000 0000 | | .XXX[0x3] 003f 0000 | | 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4607 |F | Jump_Case 0x8 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0045 7807 |x | Jump 0x4d ; case 0x1 0046 780a |x | Jump 0x51 ; case 0x2 0047 780e |x | Jump 0x56 ; case 0x3 0048 7811 |x | Jump 0x5a ; case 0x4 0049 7812 |x | Jump 0x5c ; case 0x5 004a 7813 |x | Jump 0x5e ; case 0x6 004b 7816 |x | Jump 0x62 ; case 0x7 004c 4302 |C | .XXX[0x1] 004d 00da | | Load_Top At_Offset_2 004e 0091 01d9 | | Action Push_String_Extended_Indexed,0x1d9 ; "INPUT_WINDOW" 0050 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0051 00db | | Load_Top At_Offset_3 0052 00db | | Load_Top At_Offset_3 0053 00e0 | | Load_Encached Standard_Cache 0054 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0056 00da | | Load_Top At_Offset_2 0057 00e0 | | Load_Encached Standard_Cache 0058 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0059 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 005a 00db | | Load_Top At_Offset_3 005b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005c 00db | | Load_Top At_Offset_3 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e e20d | | Load 0x1,0xd 005f 00dc | | Load_Top At_Offset_4 0060 0267 | g | Execute Discrete,Predecessor 0061 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0062 e20d | | Load 0x1,0xd 0063 00dc | | Load_Top At_Offset_4 0064 0268 | h | Execute Discrete,Successor 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0075 | u | .CONST 0x0075 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e002 | | Load 0x0,0x2 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 02c7 | | Declare_Variable Any 006e 00d8 | | Load_Top At_Offset_0 006f 1c00 | | Execute_Immediate Run_Utility,0x0 0070 e002 | | Load 0x0,0x2 0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0072 02c7 | | Declare_Variable Any 0073 00d8 | | Load_Top At_Offset_0 0074 1c00 | | Execute_Immediate Run_Utility,0x0 0075 BODY_0068: 0075 e5fd | | Load 0x2,-0x3 0076 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0077 7053 |pS | Jump_Nonzero 0xcb 0078 e5fe | | Load 0x2,-0x2 0079 4602 |F | Jump_Case 0x3 007a 7825 |x% | Jump 0xa0 ; case 0x0 007b 783a |x: | Jump 0xb6 ; case 0x1 007c 7800 |x | Jump 0x7d ; case 0x2 007d 00d9 | | Load_Top At_Offset_1 007e 00ea | | Load_Encached Null_String_Cache 007f e5ff | | Load 0x2,-0x1 0080 4800 |H | Short_Literal 0x0 0081 e002 | | Load 0x0,0x2 0082 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0083 c402 | | Store 0x2,0x2 0084 00d8 | | Load_Top At_Offset_0 0085 00ea | | Load_Encached Null_String_Cache 0086 e5ff | | Load 0x2,-0x1 0087 4801 |H | Short_Literal 0x1 0088 e002 | | Load 0x0,0x2 0089 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008a c403 | | Store 0x2,0x3 008b 4802 |H | Short_Literal 0x2 008c e213 | | Load 0x1,0x13 008d 1c08 | | Execute_Immediate Run_Utility,0x8 008e 4801 |H | Short_Literal 0x1 008f 00d9 | | Load_Top At_Offset_1 0090 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0091 00da | | Load_Top At_Offset_2 0092 e213 | | Load 0x1,0x13 0093 2305 |# | Execute Variant_Record,Field_Type,Field_Number 0x5 0094 0119 | | Execute Any,Check_In_Formal_Type 0095 00d9 | | Load_Top At_Offset_1 0096 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0097 00d9 | | Load_Top At_Offset_1 0098 e213 | | Load 0x1,0x13 0099 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6 009a 0119 | | Execute Any,Check_In_Formal_Type 009b 00d9 | | Load_Top At_Offset_1 009c 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 009d e5fd | | Load 0x2,-0x3 009e 016d | m | Execute Variant_Record,Structure_Write 009f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a0 00d9 | | Load_Top At_Offset_1 00a1 00ea | | Load_Encached Null_String_Cache 00a2 e5ff | | Load 0x2,-0x1 00a3 4800 |H | Short_Literal 0x0 00a4 e002 | | Load 0x0,0x2 00a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a6 c402 | | Store 0x2,0x2 00a7 4800 |H | Short_Literal 0x0 00a8 e213 | | Load 0x1,0x13 00a9 1c08 | | Execute_Immediate Run_Utility,0x8 00aa 4801 |H | Short_Literal 0x1 00ab 00d9 | | Load_Top At_Offset_1 00ac 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00ad 00da | | Load_Top At_Offset_2 00ae e213 | | Load 0x1,0x13 00af 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3 00b0 0119 | | Execute Any,Check_In_Formal_Type 00b1 00d9 | | Load_Top At_Offset_1 00b2 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 00b3 e5fd | | Load 0x2,-0x3 00b4 016d | m | Execute Variant_Record,Structure_Write 00b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b6 00d8 | | Load_Top At_Offset_0 00b7 00ea | | Load_Encached Null_String_Cache 00b8 e5ff | | Load 0x2,-0x1 00b9 4801 |H | Short_Literal 0x1 00ba e002 | | Load 0x0,0x2 00bb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bc c403 | | Store 0x2,0x3 00bd 4801 |H | Short_Literal 0x1 00be e213 | | Load 0x1,0x13 00bf 1c08 | | Execute_Immediate Run_Utility,0x8 00c0 4801 |H | Short_Literal 0x1 00c1 00d9 | | Load_Top At_Offset_1 00c2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00c3 00d9 | | Load_Top At_Offset_1 00c4 e213 | | Load 0x1,0x13 00c5 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 00d9 | | Load_Top At_Offset_1 00c8 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 00c9 e5fd | | Load 0x2,-0x3 00ca 016d | m | Execute Variant_Record,Structure_Write 00cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00d5 6823 |h# | Jump_Zero 0xf9 00d6 00da | | Load_Top At_Offset_2 00d7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00d8 4602 |F | Jump_Case 0x3 00d9 780f |x | Jump 0xe9 ; case 0x0 00da 7815 |x | Jump 0xf0 ; case 0x1 00db 7800 |x | Jump 0xdc ; case 0x2 00dc 00da | | Load_Top At_Offset_2 00dd 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 00de e002 | | Load 0x0,0x2 00df 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e0 00db | | Load_Top At_Offset_3 00e1 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 00e2 00da | | Load_Top At_Offset_2 00e3 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 00e4 e002 | | Load 0x0,0x2 00e5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e6 00db | | Load_Top At_Offset_3 00e7 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 00e8 780d |x | Jump 0xf6 00e9 00da | | Load_Top At_Offset_2 00ea 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 00eb e002 | | Load 0x0,0x2 00ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ed 00db | | Load_Top At_Offset_3 00ee 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 00ef 7806 |x | Jump 0xf6 00f0 00da | | Load_Top At_Offset_2 00f1 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 00f2 e002 | | Load 0x0,0x2 00f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f4 00db | | Load_Top At_Offset_3 00f5 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 00f6 4800 |H | Short_Literal 0x0 00f7 00db | | Load_Top At_Offset_3 00f8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fa 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 0104 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0105 4602 |F | Jump_Case 0x3 0106 7814 |x | Jump 0x11b ; case 0x0 0107 780a |x | Jump 0x112 ; case 0x1 0108 7800 |x | Jump 0x109 ; case 0x2 0109 4800 |H | Short_Literal 0x0 010a e002 | | Load 0x0,0x2 010b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 010c e5ff | | Load 0x2,-0x1 010d e5fe | | Load 0x2,-0x2 010e 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 010f e002 | | Load 0x0,0x2 0110 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0111 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0112 4800 |H | Short_Literal 0x0 0113 e002 | | Load 0x0,0x2 0114 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0115 e5ff | | Load 0x2,-0x1 0116 e5fe | | Load 0x2,-0x2 0117 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0118 e002 | | Load 0x0,0x2 0119 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 011a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011b 0008 | | Action Idle 011c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00db | | Load_Top At_Offset_3 0124 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0125 6823 |h# | Jump_Zero 0x149 0126 00db | | Load_Top At_Offset_3 0127 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0128 4602 |F | Jump_Case 0x3 0129 781e |x | Jump 0x148 ; case 0x0 012a 780f |x | Jump 0x13a ; case 0x1 012b 7800 |x | Jump 0x12c ; case 0x2 012c 4800 |H | Short_Literal 0x0 012d e002 | | Load 0x0,0x2 012e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 012f e5ff | | Load 0x2,-0x1 0130 e5fe | | Load 0x2,-0x2 0131 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0132 e002 | | Load 0x0,0x2 0133 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0134 4801 |H | Short_Literal 0x1 0135 e5fe | | Load 0x2,-0x2 0136 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0137 e002 | | Load 0x0,0x2 0138 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0139 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013a 4800 |H | Short_Literal 0x0 013b e002 | | Load 0x0,0x2 013c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 013d e5ff | | Load 0x2,-0x1 013e e5fe | | Load 0x2,-0x2 013f 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0140 e002 | | Load 0x0,0x2 0141 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0142 4801 |H | Short_Literal 0x1 0143 e5fe | | Load 0x2,-0x2 0144 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0145 e002 | | Load 0x0,0x2 0146 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0147 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0148 0008 | | Action Idle 0149 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014a 0000 0000 | | .BLANK 0000[0x6] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0155 6813 |h | Jump_Zero 0x169 0156 00da | | Load_Top At_Offset_2 0157 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0158 4602 |F | Jump_Case 0x3 0159 780e |x | Jump 0x168 ; case 0x0 015a 7807 |x | Jump 0x162 ; case 0x1 015b 7800 |x | Jump 0x15c ; case 0x2 015c 4801 |H | Short_Literal 0x1 015d 00db | | Load_Top At_Offset_3 015e 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 015f e002 | | Load 0x0,0x2 0160 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0162 4801 |H | Short_Literal 0x1 0163 00db | | Load_Top At_Offset_3 0164 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0165 e002 | | Load 0x0,0x2 0166 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0167 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0168 0008 | | Action Idle 0169 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4609 |F | Jump_Case 0xa 0174 7809 |x | Jump 0x17e ; case 0x0 0175 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0176 7833 |x3 | Jump 0x1aa ; case 0x2 0177 7836 |x6 | Jump 0x1ae ; case 0x3 0178 785f |x_ | Jump 0x1d8 ; case 0x4 0179 785e |x^ | Jump 0x1d8 ; case 0x5 017a 7839 |x9 | Jump 0x1b4 ; case 0x6 017b 7843 |xC | Jump 0x1bf ; case 0x7 017c 7850 |xP | Jump 0x1cd ; case 0x8 017d 7856 |xV | Jump 0x1d4 ; case 0x9 017e 00da | | Load_Top At_Offset_2 017f 016c | l | Execute Variant_Record,Is_Constrained 0180 7009 |p | Jump_Nonzero 0x18a 0181 00cf | | Action Mark_Auxiliary 0182 4801 |H | Short_Literal 0x1 0183 e5ff | | Load 0x2,-0x1 0184 1c08 | | Execute_Immediate Run_Utility,0x8 0185 00d8 | | Load_Top At_Offset_0 0186 1c00 | | Execute_Immediate Run_Utility,0x0 0187 c5ff | | Store 0x2,-0x1 0188 00ce | | Action Pop_Auxiliary 0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 018a 4800 |H | Short_Literal 0x0 018b 00db | | Load_Top At_Offset_3 018c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 018d 00da | | Load_Top At_Offset_2 018e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 018f 4602 |F | Jump_Case 0x3 0190 780d |x | Jump 0x19e ; case 0x0 0191 7812 |x | Jump 0x1a4 ; case 0x1 0192 7800 |x | Jump 0x193 ; case 0x2 0193 00da | | Load_Top At_Offset_2 0194 2205 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x5 0195 00da | | Load_Top At_Offset_2 0196 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 0197 1c00 | | Execute_Immediate Run_Utility,0x0 0198 00da | | Load_Top At_Offset_2 0199 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6 019a 00da | | Load_Top At_Offset_2 019b 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 019c 1c00 | | Execute_Immediate Run_Utility,0x0 019d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 019e 00da | | Load_Top At_Offset_2 019f 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3 01a0 00da | | Load_Top At_Offset_2 01a1 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 01a2 1c00 | | Execute_Immediate Run_Utility,0x0 01a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01a4 00da | | Load_Top At_Offset_2 01a5 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4 01a6 00da | | Load_Top At_Offset_2 01a7 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01a8 1c00 | | Execute_Immediate Run_Utility,0x0 01a9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01aa 4801 |H | Short_Literal 0x1 01ab 4806 |H | Short_Literal 0x6 01ac 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 01ad 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01ae e5fd | | Load 0x2,-0x3 01af 00db | | Load_Top At_Offset_3 01b0 1c07 | | Execute_Immediate Run_Utility,0x7 01b1 e5fe | | Load 0x2,-0x2 01b2 0306 | | Complete_Type Variant_Record,By_Renaming 01b3 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 01b4 00db | | Load_Top At_Offset_3 01b5 4602 |F | Jump_Case 0x3 01b6 7804 |x | Jump 0x1bb ; case 0x0 01b7 7805 |x | Jump 0x1bd ; case 0x1 01b8 7800 |x | Jump 0x1b9 ; case 0x2 01b9 4803 |H | Short_Literal 0x3 01ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01bb 4801 |H | Short_Literal 0x1 01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01bd 4802 |H | Short_Literal 0x2 01be 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01bf 00db | | Load_Top At_Offset_3 01c0 e5fe | | Load 0x2,-0x2 01c1 4602 |F | Jump_Case 0x3 01c2 7804 |x | Jump 0x1c7 ; case 0x0 01c3 7805 |x | Jump 0x1c9 ; case 0x1 01c4 7800 |x | Jump 0x1c5 ; case 0x2 01c5 4803 |H | Short_Literal 0x3 01c6 7803 |x | Jump 0x1ca 01c7 4801 |H | Short_Literal 0x1 01c8 7801 |x | Jump 0x1ca 01c9 4802 |H | Short_Literal 0x2 01ca e5ff | | Load 0x2,-0x1 01cb 031b | | Declare_Type Variant_Record,Constrained 01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01cd 00db | | Load_Top At_Offset_3 01ce e5fe | | Load 0x2,-0x2 01cf e5ff | | Load 0x2,-0x1 01d0 1c06 | | Execute_Immediate Run_Utility,0x6 01d1 e5ff | | Load 0x2,-0x1 01d2 02fc | | Declare_Variable Variant_Record,With_Constraint 01d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01d4 4801 |H | Short_Literal 0x1 01d5 00db | | Load_Top At_Offset_3 01d6 1c07 | | Execute_Immediate Run_Utility,0x7 01d7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01d8 0869 | i | Execute_Immediate Raise,0x69 01d9 ; -------------------------------------------------------------------------------------- 01d9 ; STRING TABLE 01d9 ; -------------------------------------------------------------------------------------- 01d9 0008 | | .STRTAB 0x0008->0x01dd ; "INPUT_WINDOW" 01da 0012 | | .STRTAB 0x0012->0x01e3 ; "OUTPUT_WINDOW" 01db 001d | | .STRTAB 0x001d->0x01e9 ; "INPUT_OUTPUT_WINDOW" 01dc 002e | . | .STREND 0x002e->0x01f3 01dd 494e 5055 |INPU| .STRTAB_STRINGS 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; Debug Table 01f8 ; -------------------------------------------------------------------------------------- 01f8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0a59,0x0000,0x0001,0x0009 01fe 000b 0222 | "| .DBG4T 0x000b,0x0222,0x8000,0x0000 0202 0031 022c | 1 ,| .DBG4T 0x0031,0x022c,0x8000,0x0000 0206 0043 0000 | C | .DBG4T 0x0043,0x0000,0x0005,0x0000 020a 006b 0233 | k 3| .DBG4T 0x006b,0x0233,0x0001,0x4000 020e 00d3 0248 | H| .DBG4T 0x00d3,0x0248,0x0001,0x4000 0212 0103 0258 | X| .DBG4T 0x0103,0x0258,0x0001,0x4000 0216 0123 0262 | # b| .DBG4T 0x0123,0x0262,0x0001,0x4000 021a 0153 0272 | S r| .DBG4T 0x0153,0x0272,0x0001,0x4000 021e 0173 0000 | s | .DBG4T 0x0173,0x0000,0x0005,0x0000 0222 ; -------------------------------------------------------------------------------------- 0222 ; Debug chain 0222 ; -------------------------------------------------------------------------------------- 0222 0008 0000 | | .DBGLEN 0x0008,0x0000 0224 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b 022c ; -------------------------------------------------------------------------------------- 022c ; Debug chain 022c ; -------------------------------------------------------------------------------------- 022c 0005 0000 | | .DBGLEN 0x0005,0x0000 022e 0031 0033 | 1 3| .DBGLNO 0x0031,0x0033,0x0035,0x0037,0x0039 0233 ; -------------------------------------------------------------------------------------- 0233 ; Debug chain 0233 ; -------------------------------------------------------------------------------------- 0233 0001 0009 | | .DBGLEN 0x0001,0x0009 0235 006b 0075 | k u| .DBGLNO 0x006b,0x0075,0x0078,0x007d,0x0084,0x008b,0x00a0,0x00a7,0x00b6,0x00bd 023f 0001 0002 | | .XXX[0x9] 0241 0007 0008 | | 0243 0009 0003 | | 0245 0004 0005 | | 0247 0006 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug chain 0248 ; -------------------------------------------------------------------------------------- 0248 0000 0007 | | .DBGLEN 0x0000,0x0007 024a 00d3 00d6 | | .DBGLNO 0x00d3,0x00d6,0x00dc,0x00e2,0x00e9,0x00f0,0x00f6 0251 0001 0002 | | .XXX[0x7] 0253 0005 0006 | | 0255 0003 0004 | | 0257 0007 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug chain 0258 ; -------------------------------------------------------------------------------------- 0258 0000 0004 | | .DBGLEN 0x0000,0x0004 025a 0103 0109 | | .DBGLNO 0x0103,0x0109,0x0112,0x011b 025e 0001 0003 | | .XXX[0x4] 0260 0002 0004 | | 0262 ; -------------------------------------------------------------------------------------- 0262 ; Debug chain 0262 ; -------------------------------------------------------------------------------------- 0262 0000 0007 | | .DBGLEN 0x0000,0x0007 0264 0123 0126 | # &| .DBGLNO 0x0123,0x0126,0x012c,0x0134,0x013a,0x0142,0x0148 026b 0001 0002 | | .XXX[0x7] 026d 0005 0006 | | 026f 0003 0004 | | 0271 0007 | | 0272 ; -------------------------------------------------------------------------------------- 0272 ; Debug chain 0272 ; -------------------------------------------------------------------------------------- 0272 0000 0005 | | .DBGLEN 0x0000,0x0005 0274 0153 0156 | S V| .DBGLNO 0x0153,0x0156,0x015c,0x0162,0x0168 0279 0001 0002 | | .XXX[0x5] 027b 0004 0003 | | 027d 0005 | | 027e 0000 0000 | | .BLANK 0000[0x182]