|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01e8 | | .CONST 0x01e8 ; 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 007c | | | .CONST 0x007c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; Number of locals 000b INIT_0008: 000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0011 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0013 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0015 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0017 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0019 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 001f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0021 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0023 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0025 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0027 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0029 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 002b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 002d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 002f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0031 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0033 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0035 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0037 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0039 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 003b 00bf | | Action Accept_Activation 003c e001 | | Load 0x0,0x1 003d e002 | | Load 0x0,0x2 003e 00e6 | | Load_Encached Float_Cache 003f e003 | | Load 0x0,0x3 0040 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 0041 0387 | | Declare_Variable Package 0042 00d8 | | Load_Top At_Offset_0 0043 020f | | Execute Module,Activate 0044 e004 | | Load 0x0,0x4 0045 e005 | | Load 0x0,0x5 0046 00e7 | | Load_Encached Duration_Cache 0047 e003 | | Load 0x0,0x3 0048 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 0049 0387 | | Declare_Variable Package 004a 00d8 | | Load_Top At_Offset_0 004b 020f | | Execute Module,Activate 004c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 004d 00c7 | | Action Elaborate_Subprogram 004e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004f 00c7 | | Action Elaborate_Subprogram 0050 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0051 00c7 | | Action Elaborate_Subprogram 0052 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0053 00c7 | | Action Elaborate_Subprogram 0054 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0055 00c7 | | Action Elaborate_Subprogram 0056 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0057 00c7 | | Action Elaborate_Subprogram 0058 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0059 00c7 | | Action Elaborate_Subprogram 005a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005b 00c7 | | Action Elaborate_Subprogram 005c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 005d 00c7 | | Action Elaborate_Subprogram 005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005f 00c7 | | Action Elaborate_Subprogram 0060 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0061 00c7 | | Action Elaborate_Subprogram 0062 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0063 00c7 | | Action Elaborate_Subprogram 0064 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0065 00c7 | | Action Elaborate_Subprogram 0066 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0067 00c7 | | Action Elaborate_Subprogram 0068 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0069 00c7 | | Action Elaborate_Subprogram 006a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 006b 00c7 | | Action Elaborate_Subprogram 006c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 006d 00c7 | | Action Elaborate_Subprogram 006e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 006f 00c7 | | Action Elaborate_Subprogram 0070 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0071 00c7 | | Action Elaborate_Subprogram 0072 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0073 00c7 | | Action Elaborate_Subprogram 0074 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0075 00c7 | | Action Elaborate_Subprogram 0076 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0077 00c7 | | Action Elaborate_Subprogram 0078 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0079 00c7 | | Action Elaborate_Subprogram 007a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 007b 00c7 | | Action Elaborate_Subprogram 007c BODY_0008: 007c 00bc | | Action Signal_Activated 007d 00bb | | Action Signal_Completion 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4820 |H | Short_Literal 0x20 0084 4800 |H | Short_Literal 0x0 0085 480a |H | Short_Literal 0xa 0086 e5ff | | Load 0x2,-0x1 0087 e006 | | Load 0x0,0x6 0088 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0089 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4820 |H | Short_Literal 0x20 0094 4800 |H | Short_Literal 0x0 0095 480a |H | Short_Literal 0xa 0096 e5ff | | Load 0x2,-0x1 0097 e006 | | Load 0x0,0x6 0098 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0099 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a5 | | .CONST 0x00a5 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 00e2 | | Load_Encached Integer_Cache 00a4 00e1 | | Load_Encached Boolean_Cache 00a5 BODY_00a0: 00a5 00e1 | | Load_Encached Boolean_Cache 00a6 00e2 | | Load_Encached Integer_Cache 00a7 480a |H | Short_Literal 0xa 00a8 e5ff | | Load 0x2,-0x1 00a9 e006 | | Load 0x0,0x6 00aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ab 005b | [ | Store_Top Discrete,At_Offset_3 00ac 0059 | Y | Store_Top Discrete,At_Offset_1 00ad 00d9 | | Load_Top At_Offset_1 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b9 | | .CONST 0x00b9 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 4801 |H | Short_Literal 0x1 00b4 481e |H | Short_Literal 0x1e 00b5 00e9 | | Load_Encached String_Cache 00b6 035b | [ | Declare_Type Array,Constrained 00b7 0337 | 7 | Declare_Variable Array 00b8 00e4 | | Load_Encached Positive_Cache 00b9 BODY_00b0: 00b9 00d9 | | Load_Top At_Offset_1 00ba e225 | % | Load 0x1,0x25 00bb 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00bc e225 | % | Load 0x1,0x25 00bd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00be e5ff | | Load 0x2,-0x1 00bf e225 | % | Load 0x1,0x25 00c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c1 00d1 | | Pop_Control Pop_Count_1 00c2 4820 |H | Short_Literal 0x20 00c3 00da | | Load_Top At_Offset_2 00c4 e006 | | Load 0x0,0x6 00c5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c6 00e9 | | Load_Encached String_Cache 00c7 01c6 | | Execute Vector,Convert_To_Formal 00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c9 0000 0000 | | .BLANK 0000[0x7] 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 8210 | | Call 0x1,0x10 00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d6 0000 0000 | | .XXX[0x2] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00dd | | .CONST 0x00dd ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0003 | | .CONST 0x0003 ; Number of locals 00db INIT_00d8: 00db 00e6 | | Load_Encached Float_Cache 00dc 00e4 | | Load_Encached Positive_Cache 00dd BODY_00d8: 00dd 00e4 | | Load_Encached Positive_Cache 00de e225 | % | Load 0x1,0x25 00df 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e0 e5ff | | Load 0x2,-0x1 00e1 e225 | % | Load 0x1,0x25 00e2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e3 004b | K | Store_Top Float,At_Offset_3 00e4 0059 | Y | Store_Top Discrete,At_Offset_1 00e5 00d9 | | Load_Top At_Offset_1 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f0 | | .CONST 0x00f0 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb 4801 |H | Short_Literal 0x1 00ec 481e |H | Short_Literal 0x1e 00ed 00e9 | | Load_Encached String_Cache 00ee 035b | [ | Declare_Type Array,Constrained 00ef 0337 | 7 | Declare_Variable Array 00f0 BODY_00e8: 00f0 00d8 | | Load_Top At_Offset_0 00f1 e226 | & | Load 0x1,0x26 00f2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00f3 e226 | & | Load 0x1,0x26 00f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f5 e5ff | | Load 0x2,-0x1 00f6 e226 | & | Load 0x1,0x26 00f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f8 00d1 | | Pop_Control Pop_Count_1 00f9 4820 |H | Short_Literal 0x20 00fa 00d9 | | Load_Top At_Offset_1 00fb e006 | | Load 0x0,0x6 00fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00fd 00e9 | | Load_Encached String_Cache 00fe 01c6 | | Execute Vector,Convert_To_Formal 00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 0104 8213 | | Call 0x1,0x13 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010d | | .CONST 0x010d ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0003 | | .CONST 0x0003 ; Number of locals 010b INIT_0108: 010b 00e7 | | Load_Encached Duration_Cache 010c 00e4 | | Load_Encached Positive_Cache 010d BODY_0108: 010d 00e4 | | Load_Encached Positive_Cache 010e e226 | & | Load 0x1,0x26 010f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0110 e5ff | | Load 0x2,-0x1 0111 e226 | & | Load 0x1,0x26 0112 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0113 005b | [ | Store_Top Discrete,At_Offset_3 0114 0059 | Y | Store_Top Discrete,At_Offset_1 0115 00d9 | | Load_Top At_Offset_1 0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4800 |H | Short_Literal 0x0 011c 4800 |H | Short_Literal 0x0 011d 4800 |H | Short_Literal 0x0 011e e5ff | | Load 0x2,-0x1 011f e007 | | Load 0x0,0x7 0120 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0121 e007 | | Load 0x0,0x7 0122 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c 8216 | | Call 0x1,0x16 012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 e007 | | Load 0x0,0x7 0135 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0136 e007 | | Load 0x0,0x7 0137 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0139 0000 0000 | | .BLANK 0000[0x7] 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 00da | | Load_Top At_Offset_2 0144 e008 | | Load 0x0,0x8 0145 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0146 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c 8219 | | Call 0x1,0x19 014d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015b | [ | .CONST 0x015b ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e008 | | Load 0x0,0x8 0154 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0155 02c7 | | Declare_Variable Any 0156 00d8 | | Load_Top At_Offset_0 0157 1c00 | | Execute_Immediate Run_Utility,0x0 0158 e008 | | Load 0x0,0x8 0159 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015b BODY_0150: 015b e008 | | Load 0x0,0x8 015c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015e 00da | | Load_Top At_Offset_2 015f 0120 | | Execute Any,Is_Value 0160 6803 |h | Jump_Zero 0x164 0161 e008 | | Load 0x0,0x8 0162 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0163 7801 |x | Jump 0x165 0164 00da | | Load_Top At_Offset_2 0165 6012 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00004000} 0166 e009 | | Load 0x0,0x9 0167 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0168 e00a | | Load 0x0,0xa 0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016a e008 | | Load 0x0,0x8 016b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 016c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 016d e5ff | | Load 0x2,-0x1 016e e008 | | Load 0x0,0x8 016f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0170 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0171 c402 | | Store 0x2,0x2 0172 0059 | Y | Store_Top Discrete,At_Offset_1 0173 00d9 | | Load_Top At_Offset_1 0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 017c 0000 0000 | | .BLANK 0000[0x4] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 e008 | | Load 0x0,0x8 0185 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0186 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 821c | | Call 0x1,0x1c 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 019b | | .CONST 0x019b ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 e008 | | Load 0x0,0x8 0194 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0195 02ff | | Declare_Variable Variant_Record 0196 00d8 | | Load_Top At_Offset_0 0197 1c00 | | Execute_Immediate Run_Utility,0x0 0198 e008 | | Load 0x0,0x8 0199 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 019b BODY_0190: 019b e008 | | Load 0x0,0x8 019c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 019e 00da | | Load_Top At_Offset_2 019f 6010 |` | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x00004000} 01a0 e009 | | Load 0x0,0x9 01a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a2 4800 |H | Short_Literal 0x0 01a3 e00a | | Load 0x0,0xa 01a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a5 e008 | | Load 0x0,0x8 01a6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a8 e5ff | | Load 0x2,-0x1 01a9 e008 | | Load 0x0,0x8 01aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ab 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01ac 00d1 | | Pop_Control Pop_Count_1 01ad 0059 | Y | Store_Top Discrete,At_Offset_1 01ae 00d9 | | Load_Top At_Offset_1 01af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 01b4 0000 0000 | | .BLANK 0000[0x4] 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 e008 | | Load 0x0,0x8 01bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bf 0000 | | .XXX[0x1] 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 821f | | Call 0x1,0x1f 01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c6 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 01cc e008 | | Load 0x0,0x8 01cd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 01d4 e008 | | Load 0x0,0x8 01d5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d7 0000 | | .XXX[0x1] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 8222 | " | Call 0x1,0x22 01dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 e008 | | Load 0x0,0x8 01e5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e7 0000 | | .XXX[0x1] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug Table 01e8 ; -------------------------------------------------------------------------------------- 01e8 0004 000d | | .DEBUG4 0x0004,0x000d,0xd925,0x0000,0x0001,0x0000 01ee a280 0000 | | .XXX[0x12] 01f0 1a9a 0000 | | 01f2 006b 980e | k | 01f4 5001 af20 |P | 01f6 3800 06c2 |8 | 01f8 0000 001b | | 01fa 2c00 0000 |, | 01fc 6cf8 0bd0 |l | 01fe 01b5 6032 | `2|