|
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_1060f5
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0052 | R | .CONST 0x0052 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000e 0129 | ) | Execute Any,Make_Visible 000f e001 | | Load 0x0,0x1 0010 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0011 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0012 0129 | ) | Execute Any,Make_Visible 0013 e001 | | Load 0x0,0x1 0014 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0015 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0016 0129 | ) | Execute Any,Make_Visible 0017 e001 | | Load 0x0,0x1 0018 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0019 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 001a 0129 | ) | Execute Any,Make_Visible 001b 00d8 | | Load_Top At_Offset_0 001c 0129 | ) | Execute Any,Make_Visible 001d 00d9 | | Load_Top At_Offset_1 001e 0129 | ) | Execute Any,Make_Visible 001f 00d8 | | Load_Top At_Offset_0 0020 0129 | ) | Execute Any,Make_Visible 0021 00d9 | | Load_Top At_Offset_1 0022 0129 | ) | Execute Any,Make_Visible 0023 e001 | | Load 0x0,0x1 0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0025 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0026 0129 | ) | Execute Any,Make_Visible 0027 e001 | | Load 0x0,0x1 0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0029 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 002a 0129 | ) | Execute Any,Make_Visible 002b e001 | | Load 0x0,0x1 002c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002d 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 002e 0129 | ) | Execute Any,Make_Visible 002f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0031 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0033 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0035 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0037 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0039 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 003b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 003d 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 003f 00bf | | Action Accept_Activation 0040 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0041 00c7 | | Action Elaborate_Subprogram 0042 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0043 00c7 | | Action Elaborate_Subprogram 0044 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0045 00c7 | | Action Elaborate_Subprogram 0046 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0047 00c7 | | Action Elaborate_Subprogram 0048 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0049 00c7 | | Action Elaborate_Subprogram 004a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 004b 00c7 | | Action Elaborate_Subprogram 004c 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 004e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 004f 00c7 | | Action Elaborate_Subprogram 0050 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0051 00c7 | | Action Elaborate_Subprogram 0052 BODY_0008: 0052 00bc | | Action Signal_Activated 0053 00bb | | Action Signal_Completion 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006a | j | .CONST 0x006a ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0005 | | .CONST 0x0005 ; Number of locals 005b INIT_0058: 005b e002 | | Load 0x0,0x2 005c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 005d 02c7 | | Declare_Variable Any 005e 00d8 | | Load_Top At_Offset_0 005f 1c00 | | Execute_Immediate Run_Utility,0x0 0060 e001 | | Load 0x0,0x1 0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0062 02c7 | | Declare_Variable Any 0063 e003 | | Load 0x0,0x3 0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0065 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0066 a403 | | Store_Unchecked 0x2,0x3 0067 00e1 | | Load_Encached Boolean_Cache 0068 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 006a BODY_0058: 006a e5ff | | Load 0x2,-0x1 006b e001 | | Load 0x0,0x1 006c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 006e 7002 |p | Jump_Nonzero 0x71 006f 00da | | Load_Top At_Offset_2 0070 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0071 00db | | Load_Top At_Offset_3 0072 0120 | | Execute Any,Is_Value 0073 6803 |h | Jump_Zero 0x77 0074 e002 | | Load 0x0,0x2 0075 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0076 7801 |x | Jump 0x78 0077 00db | | Load_Top At_Offset_3 0078 e5ff | | Load 0x2,-0x1 0079 e003 | | Load 0x0,0x3 007a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 007c 4802 |H | Short_Literal 0x2 007d 0092 025b | [| Action Push_String_Extended,0x25b ; "@" 007f 0092 025c | \| Action Push_String_Extended,0x25c ; "?" 0081 e002 | | Load 0x0,0x2 0082 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0083 c402 | | Store 0x2,0x2 0084 00cf | | Action Mark_Auxiliary 0085 7806 |x | Jump 0x8c 0086 8405 | | Call 0x2,0x5 0087 e402 | | Load 0x2,0x2 0088 e002 | | Load 0x0,0x2 0089 1820 | | Execute Package,Field_Execute,Field_Number 0x20 008a c402 | | Store 0x2,0x2 008b 00c9 | | Action Pop_Auxiliary_Loop 008c e402 | | Load 0x2,0x2 008d e002 | | Load 0x0,0x2 008e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 008f 6ff6 |o | Jump_Zero 0x86 0090 00ce | | Action Pop_Auxiliary 0091 00da | | Load_Top At_Offset_2 0092 e003 | | Load 0x0,0x3 0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0094 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0095 00da | | Load_Top At_Offset_2 0096 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00aa | | .CONST 0x00aa ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0005 | | .CONST 0x0005 ; Number of locals 009b INIT_0098: 009b e002 | | Load 0x0,0x2 009c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 009d 02c7 | | Declare_Variable Any 009e 00d8 | | Load_Top At_Offset_0 009f 1c00 | | Execute_Immediate Run_Utility,0x0 00a0 e001 | | Load 0x0,0x1 00a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a2 02c7 | | Declare_Variable Any 00a3 e003 | | Load 0x0,0x3 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a6 a403 | | Store_Unchecked 0x2,0x3 00a7 00e1 | | Load_Encached Boolean_Cache 00a8 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 00aa BODY_0098: 00aa e5ff | | Load 0x2,-0x1 00ab e001 | | Load 0x0,0x1 00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ad 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00ae 7002 |p | Jump_Nonzero 0xb1 00af 00da | | Load_Top At_Offset_2 00b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b1 00db | | Load_Top At_Offset_3 00b2 0120 | | Execute Any,Is_Value 00b3 6803 |h | Jump_Zero 0xb7 00b4 e002 | | Load 0x0,0x2 00b5 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00b6 7801 |x | Jump 0xb8 00b7 00db | | Load_Top At_Offset_3 00b8 e5ff | | Load 0x2,-0x1 00b9 e003 | | Load 0x0,0x3 00ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bb 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00bc 4802 |H | Short_Literal 0x2 00bd 0092 025b | [| Action Push_String_Extended,0x25b ; "@" 00bf 0092 025c | \| Action Push_String_Extended,0x25c ; "?" 00c1 e002 | | Load 0x0,0x2 00c2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00c3 c402 | | Store 0x2,0x2 00c4 00cf | | Action Mark_Auxiliary 00c5 780a |x | Jump 0xd0 00c6 e402 | | Load 0x2,0x2 00c7 e002 | | Load 0x0,0x2 00c8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00c9 7001 |p | Jump_Nonzero 0xcb 00ca 8405 | | Call 0x2,0x5 00cb e402 | | Load 0x2,0x2 00cc e002 | | Load 0x0,0x2 00cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00ce c402 | | Store 0x2,0x2 00cf 00c9 | | Action Pop_Auxiliary_Loop 00d0 e402 | | Load 0x2,0x2 00d1 e002 | | Load 0x0,0x2 00d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00d3 6ff2 |o | Jump_Zero 0xc6 00d4 00ce | | Action Pop_Auxiliary 00d5 00da | | Load_Top At_Offset_2 00d6 e003 | | Load 0x0,0x3 00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d8 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00d9 00da | | Load_Top At_Offset_2 00da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00f2 | | .CONST 0x00f2 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0005 | | .CONST 0x0005 ; Number of locals 00e3 INIT_00e0: 00e3 e002 | | Load 0x0,0x2 00e4 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00e5 02c7 | | Declare_Variable Any 00e6 00d8 | | Load_Top At_Offset_0 00e7 1c00 | | Execute_Immediate Run_Utility,0x0 00e8 e001 | | Load 0x0,0x1 00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ea 02c7 | | Declare_Variable Any 00eb e003 | | Load 0x0,0x3 00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ed 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00ee a403 | | Store_Unchecked 0x2,0x3 00ef 00e1 | | Load_Encached Boolean_Cache 00f0 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 00f2 BODY_00e0: 00f2 e5ff | | Load 0x2,-0x1 00f3 e001 | | Load 0x0,0x1 00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f5 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00f6 7002 |p | Jump_Nonzero 0xf9 00f7 00da | | Load_Top At_Offset_2 00f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f9 00db | | Load_Top At_Offset_3 00fa 0120 | | Execute Any,Is_Value 00fb 6803 |h | Jump_Zero 0xff 00fc e002 | | Load 0x0,0x2 00fd 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00fe 7801 |x | Jump 0x100 00ff 00db | | Load_Top At_Offset_3 0100 e5ff | | Load 0x2,-0x1 0101 e003 | | Load 0x0,0x3 0102 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0103 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0104 4802 |H | Short_Literal 0x2 0105 0092 025b | [| Action Push_String_Extended,0x25b ; "@" 0107 0092 025c | \| Action Push_String_Extended,0x25c ; "?" 0109 e002 | | Load 0x0,0x2 010a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 010b c402 | | Store 0x2,0x2 010c 00cf | | Action Mark_Auxiliary 010d 780b |x | Jump 0x119 010e e402 | | Load 0x2,0x2 010f e002 | | Load 0x0,0x2 0110 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0111 0f01 | | Execute_Immediate Equal,0x1 0112 6801 |h | Jump_Zero 0x114 0113 8405 | | Call 0x2,0x5 0114 e402 | | Load 0x2,0x2 0115 e002 | | Load 0x0,0x2 0116 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0117 c402 | | Store 0x2,0x2 0118 00c9 | | Action Pop_Auxiliary_Loop 0119 e402 | | Load 0x2,0x2 011a e002 | | Load 0x0,0x2 011b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 011c 6ff1 |o | Jump_Zero 0x10e 011d 00ce | | Action Pop_Auxiliary 011e 00da | | Load_Top At_Offset_2 011f e003 | | Load 0x0,0x3 0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0121 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0122 00da | | Load_Top At_Offset_2 0123 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0131 | 1 | .CONST 0x0131 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e212 | | Load 0x1,0x12 012c 02c7 | | Declare_Variable Any 012d e5fe | | Load 0x2,-0x2 012e e5ff | | Load 0x2,-0x1 012f 821a | | Call 0x1,0x1a 0130 a402 | | Store_Unchecked 0x2,0x2 0131 BODY_0128: 0131 0833 | 3 | Execute_Immediate Raise,0x33 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0141 | A | .CONST 0x0141 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e212 | | Load 0x1,0x12 013c 02c7 | | Declare_Variable Any 013d e5fe | | Load 0x2,-0x2 013e e5ff | | Load 0x2,-0x1 013f 821a | | Call 0x1,0x1a 0140 a402 | | Store_Unchecked 0x2,0x2 0141 BODY_0138: 0141 0833 | 3 | Execute_Immediate Raise,0x33 0142 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 014c e001 | | Load 0x0,0x1 014d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014e 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 014f 7002 |p | Jump_Nonzero 0x152 0150 4800 |H | Short_Literal 0x0 0151 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0152 0833 | 3 | Execute_Immediate Raise,0x33 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 016a | j | .CONST 0x016a ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0005 | | .CONST 0x0005 ; Number of locals 015b INIT_0158: 015b e002 | | Load 0x0,0x2 015c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 015d 02c7 | | Declare_Variable Any 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 e001 | | Load 0x0,0x1 0161 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0162 02c7 | | Declare_Variable Any 0163 e003 | | Load 0x0,0x3 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0166 a403 | | Store_Unchecked 0x2,0x3 0167 00e1 | | Load_Encached Boolean_Cache 0168 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 016a BODY_0158: 016a e5fe | | Load 0x2,-0x2 016b e001 | | Load 0x0,0x1 016c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 016e 7002 |p | Jump_Nonzero 0x171 016f 00da | | Load_Top At_Offset_2 0170 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0171 0833 | 3 | Execute_Immediate Raise,0x33 0172 8405 e402 | | .XXX[0x11] 0174 e002 181b | | 0176 c402 00c9 | | 0178 e402 e002 | | 017a 181d 6ff6 | o | 017c 00ce 00da | | 017e e003 1b0d | | 0180 1827 00da | ' | 0182 4402 |D | 0183 0000 0000 | | .BLANK 0000[0x5] 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 0833 | 3 | Execute_Immediate Raise,0x33 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 e003 | | Load 0x0,0x3 0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0195 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 0196 180e | | Execute Package,Field_Execute,Field_Number 0xe 0197 00eb | | Load_Encached Diana_Cache 0198 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0199 e5ff | | Load 0x2,-0x1 019a e004 | | Load 0x0,0x4 019b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 019c e004 | | Load 0x0,0x4 019d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019e e004 | | Load 0x0,0x4 019f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a0 e005 | | Load 0x0,0x5 01a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a2 e003 | | Load 0x0,0x3 01a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a4 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 01a5 e003 | | Load 0x0,0x3 01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a7 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 01a8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01c0 | | .CONST 0x01c0 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 e20f | | Load 0x1,0xf 01b4 02c7 | | Declare_Variable Any 01b5 4801 |H | Short_Literal 0x1 01b6 e003 | | Load 0x0,0x3 01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b9 e402 | | Load 0x2,0x2 01ba e002 | | Load 0x0,0x2 01bb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01bc e003 | | Load 0x0,0x3 01bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01be 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01bf a602 | | Store_Unchecked 0x3,0x2 01c0 BODY_01b0: 01c0 e5fe | | Load 0x2,-0x2 01c1 680f |h | Jump_Zero 0x1d1 01c2 e5ff | | Load 0x2,-0x1 01c3 00d9 | | Load_Top At_Offset_1 01c4 821d | | Call 0x1,0x1d 01c5 680a |h | Jump_Zero 0x1d0 01c6 00e1 | | Load_Encached Boolean_Cache 01c7 e003 | | Load 0x0,0x3 01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ca 00da | | Load_Top At_Offset_2 01cb e403 | | Load 0x2,0x3 01cc e003 | | Load 0x0,0x3 01cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ce 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01cf c404 | | Store 0x2,0x4 01d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d1 00e1 | | Load_Encached Boolean_Cache 01d2 e003 | | Load 0x0,0x3 01d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d4 180e | | Execute Package,Field_Execute,Field_Number 0xe 01d5 00da | | Load_Top At_Offset_2 01d6 e403 | | Load 0x2,0x3 01d7 e003 | | Load 0x0,0x3 01d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d9 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01da c404 | | Store 0x2,0x4 01db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01f0 | | .CONST 0x01f0 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e20f | | Load 0x1,0xf 01e4 02c7 | | Declare_Variable Any 01e5 4801 |H | Short_Literal 0x1 01e6 e003 | | Load 0x0,0x3 01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e9 e402 | | Load 0x2,0x2 01ea e002 | | Load 0x0,0x2 01eb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01ec e003 | | Load 0x0,0x3 01ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ee 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01ef a602 | | Store_Unchecked 0x3,0x2 01f0 BODY_01e0: 01f0 e5fe | | Load 0x2,-0x2 01f1 680f |h | Jump_Zero 0x201 01f2 e5ff | | Load 0x2,-0x1 01f3 00d9 | | Load_Top At_Offset_1 01f4 821d | | Call 0x1,0x1d 01f5 680a |h | Jump_Zero 0x200 01f6 00e1 | | Load_Encached Boolean_Cache 01f7 e003 | | Load 0x0,0x3 01f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01fa 00da | | Load_Top At_Offset_2 01fb e403 | | Load 0x2,0x3 01fc e003 | | Load 0x0,0x3 01fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fe 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01ff c404 | | Store 0x2,0x4 0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0201 00e1 | | Load_Encached Boolean_Cache 0202 e003 | | Load 0x0,0x3 0203 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0204 180e | | Execute Package,Field_Execute,Field_Number 0xe 0205 00da | | Load_Top At_Offset_2 0206 e403 | | Load 0x2,0x3 0207 e003 | | Load 0x0,0x3 0208 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0209 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 020a c404 | | Store 0x2,0x4 020b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0220 | | .CONST 0x0220 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 e20f | | Load 0x1,0xf 0214 02c7 | | Declare_Variable Any 0215 4801 |H | Short_Literal 0x1 0216 e003 | | Load 0x0,0x3 0217 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0218 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0219 e402 | | Load 0x2,0x2 021a e002 | | Load 0x0,0x2 021b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 021c e003 | | Load 0x0,0x3 021d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 021f a602 | | Store_Unchecked 0x3,0x2 0220 BODY_0210: 0220 e5fe | | Load 0x2,-0x2 0221 680f |h | Jump_Zero 0x231 0222 e5ff | | Load 0x2,-0x1 0223 00d9 | | Load_Top At_Offset_1 0224 821d | | Call 0x1,0x1d 0225 680a |h | Jump_Zero 0x230 0226 00e1 | | Load_Encached Boolean_Cache 0227 e003 | | Load 0x0,0x3 0228 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0229 180e | | Execute Package,Field_Execute,Field_Number 0xe 022a 00da | | Load_Top At_Offset_2 022b e403 | | Load 0x2,0x3 022c e003 | | Load 0x0,0x3 022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 022f c404 | | Store 0x2,0x4 0230 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0231 00e1 | | Load_Encached Boolean_Cache 0232 e003 | | Load 0x0,0x3 0233 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0234 180e | | Execute Package,Field_Execute,Field_Number 0xe 0235 00da | | Load_Top At_Offset_2 0236 e403 | | Load 0x2,0x3 0237 e003 | | Load 0x0,0x3 0238 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0239 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 023a c404 | | Store 0x2,0x4 023b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 024a | J | .CONST 0x024a ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 e216 | | Load 0x1,0x16 0244 02c7 | | Declare_Variable Any 0245 e402 | | Load 0x2,0x2 0246 e002 | | Load 0x0,0x2 0247 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0248 8220 | | Call 0x1,0x20 0249 a602 | | Store_Unchecked 0x3,0x2 024a BODY_0240: 024a 00d8 | | Load_Top At_Offset_0 024b e403 | | Load 0x2,0x3 024c e003 | | Load 0x0,0x3 024d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 024f 700a |p | Jump_Nonzero 0x25a 0250 00e1 | | Load_Encached Boolean_Cache 0251 e003 | | Load 0x0,0x3 0252 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0253 180e | | Execute Package,Field_Execute,Field_Number 0xe 0254 00da | | Load_Top At_Offset_2 0255 e403 | | Load 0x2,0x3 0256 e003 | | Load 0x0,0x3 0257 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0258 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0259 c404 | | Store 0x2,0x4 025a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025b ; -------------------------------------------------------------------------------------- 025b ; STRING TABLE 025b ; -------------------------------------------------------------------------------------- 025b 0006 | | .STRTAB 0x0006->0x025e ; "@" 025c 0005 | | .STRTAB 0x0005->0x025e ; "?" 025d 0004 | | .STREND 0x0004->0x025f 025e 403f |@? | .STRTAB_STRINGS 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e4d,0x0000,0x0001,0x0000 0266 6002 169a |` | .XXX[0x19a] 0268 95ea fc33 | 3| 026a b4a3 203a | :| 026c 69a1 71c2 |i q | 026e e5d1 9053 | S| 0270 0ddd e853 | S| 0272 1510 6cd4 | l | 0274 8c03 1002 | | 0276 f299 9124 | $| 0278 b9d3 a928 | (| 027a 2de3 6400 |- d | 027c f570 9001 | p | 027e bde0 9000 | | 0280 2ede 4c1e |. L | 0282 b000 d2d9 | | 0284 8e70 4dc3 | pM | 0286 a40f 7c2e | |.| 0288 415d 5eaa |A]^ | 028a de00 31a3 | 1 | 028c 39c2 e666 |9 f| 028e e153 1e35 | S 5| 0290 196d 4002 | m@ | 0292 30b4 4804 |0 H | 0294 c589 8000 | | 0296 1403 5c23 | \#| 0298 cc02 9d05 | | 029a f54e 622a | Nb*| 029c ce30 b6c9 | 0 | 029e 8c03 4217 | B | 02a0 fc03 5401 | T | 02a2 0d47 8107 | G | 02a4 5c4c d16b |\L k| 02a6 3dd0 bdb0 |= | 02a8 29a7 4dd1 |) M | 02aa 310e 3699 |1 6 | 02ac 142b 8819 | + | 02ae 05a6 546f | To| 02b0 b186 ca0c | | 02b2 6401 700e |d p | 02b4 f632 8833 | 2 3| 02b6 0230 a96f | 0 o| 02b8 09dc c1b2 | | 02ba f1d1 e852 | R| 02bc e1d2 8aa7 | | 02be 5042 d43f |PB ?| 02c0 b40e 8298 | | 02c2 0802 8c03 | | 02c4 2000 6c29 | l)| 02c6 d490 2de1 | - | 02c8 8cc1 609c | ` | 02ca eede b233 | 3| 02cc 05dc 1add | | 02ce 42dc 85a6 |B | 02d0 511d 7915 |Q y | 02d2 e4fb d002 | | 02d4 04c4 7005 | p | 02d6 2adf e002 |* | 02d8 fa32 0001 | 2 | 02da 36dd 8edd |6 | 02dc d850 1edd | P | 02de 9edd 156d | m| 02e0 a6de 04d2 | | 02e2 58c1 4dde |X M | 02e4 74ff 76ba |t v | 02e6 8026 ca31 | & 1| 02e8 b1a4 0400 | | 02ea dc79 b81b | y | 02ec 69a8 1e03 |i | 02ee f9d4 16dd | | 02f0 cedd 96df | | 02f2 4dd3 8a84 |M | 02f4 3a03 ba84 |: | 02f6 4203 780d |B x | 02f8 62dd 6add |b j | 02fa 72dd e044 |r D| 02fc 9c00 4937 | I7| 02fe 4ed6 8cb7 |N | 0300 0eab 6ed3 | n | 0302 c410 7440 | t@| 0304 02a3 6eb8 | n | 0306 482c b4a4 |H, | 0308 dd07 1474 | t| 030a 445f ac3c |D_ <| 030c c001 76d6 | v | 030e e5ac dd8f | | 0310 829b 1425 | %| 0312 d42b 3ad5 | +: | 0314 ae6d 4c2c | mL,| 0316 453e 3420 |E>4 | 0318 d129 a00c | ) | 031a cd16 11aa | | 031c 6c0a 9dbb |l | 031e c100 6d0b | m | 0320 2495 dc66 |$ f| 0322 895c 7c9e | \| | 0324 0e09 9810 | | 0326 d881 310d | 1 | 0328 7856 0003 |xV | 032a c803 f0ff | | 032c 3627 6a70 |6'jp| 032e b44b d033 | K 3| 0330 c868 4037 | h@7| 0332 1450 c106 | P | 0334 dd69 8c13 | i | 0336 3c0a 7803 |< x | 0338 e894 b906 | | 033a 8c78 460c | xF | 033c ada4 dc0d | | 033e 7a8d 7e83 |z ~ | 0340 d236 e1c2 | 6 | 0342 e800 c4f3 | | 0344 ec06 940e | | 0346 d001 eed8 | | 0348 411d 6017 |A ` | 034a 0913 d87a | z| 034c 329e 1813 |2 | 034e 4a15 4d5d |J M]| 0350 b05a 940e | Z | 0352 b403 38f5 | 8 | 0354 b014 f5f0 | | 0356 d80e 9003 | | 0358 42b4 d801 |B | 035a 21c4 d40f |! | 035c fabb 5c0d | \ | 035e b09d 344c | 4L| 0360 e118 fe43 | C| 0362 a666 5c8f | f\ | 0364 f400 e6dd | | 0366 05a1 1d10 | | 0368 4c8d 9e01 |L | 036a 156e 1d0e | n | 036c ac00 f6d8 | | 036e 06e2 2601 | & | 0370 251f 4d1e |% M | 0372 8c7a 8c00 | z | 0374 1ca3 f800 | | 0376 95e0 a4a6 | | 0378 4403 58eb |D X | 037a 899e e5ce | | 037c 3401 aed5 |4 | 037e fc00 a427 | '| 0380 d003 d986 | | 0382 4959 6071 |IY`q| 0384 a408 30d0 | 0 | 0386 949c 657a | ez| 0388 ccf7 5886 | X | 038a 8067 c51c | g | 038c d002 8625 | %| 038e 18e8 99c9 | | 0390 75e3 30f2 |u 0 | 0392 1c4a 159a | J | 0394 51b3 54ee |Q T | 0396 eed5 7cb6 | | | 0398 3917 3ca7 |9 < | 039a c092 ac50 | P| 039c a07c 4c30 | |L0| 039e 3887 bd9b |8 | 03a0 54ef ed2b |T +| 03a2 ed30 5ae2 | 0Z | 03a4 2437 412c |$7A,| 03a6 0810 62e3 | b | 03a8 602e a558 |`. X| 03aa 9c6c 5001 | lP | 03ac 9cc3 8002 | | 03ae 7069 219d |pi! | 03b0 1560 30d2 | `0 | 03b2 dd40 7248 | @rH| 03b4 5403 c8e2 |T | 03b6 8a9c 724a | rJ| 03b8 1001 3540 | 5@| 03ba b44b 8cf4 | K | 03bc 5835 d261 |X5 a| 03be fc03 fe2c | ,| 03c0 d40b 5c86 | \ | 03c2 e85e 70fb | ^p | 03c4 ad14 3413 | 4 | 03c6 d630 8803 | 0 | 03c8 3803 00be |8 | 03ca 6d17 9819 |m | 03cc c5d8 8c2b | +| 03ce 56c1 c91a |V | 03d0 5114 8403 |Q | 03d2 1e9a 8812 | | 03d4 4c1a d002 |L | 03d6 b56c 6da5 | lm | 03d8 8430 d19d | 0 | 03da 7ea0 c508 |~ | 03dc 4978 56e1 |IxV | 03de a00f 19db | | 03e0 01ad cade | | 03e2 9852 22dd | R" | 03e4 a453 0852 | S R| 03e6 9c01 b9a4 | | 03e8 340c ce6d |4 m| 03ea 825a 8c79 | Z y| 03ec fcd0 657a | ez| 03ee 0c31 9111 | 1 | 03f0 fad4 3508 | 5 | 03f2 2e9c 724a |. rJ| 03f4 ac00 d2d0 | | 03f6 d674 220b | t" | 03f8 5407 5d40 |T ]@| 03fa d001 4da9 | M | 03fc 7eab 22b5 |~ " | 03fe 5677 56da |VwV |