|
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_0a7cf5
└─⟦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 0a42 041e | B | .XXX[0x19a] 0268 bb65 ac8b | e | 026a e415 8324 | $| 026c ed91 6aca | j | 026e fda1 ab99 | | 0270 8fa1 1da7 | | 0272 5a88 2be6 |Z + | 0274 04e2 0319 | | 0276 2009 042f | /| 0278 0ab0 2b68 | +h| 027a 2003 9874 | t| 027c d816 5229 | R)| 027e 58dd 0449 |X I| 0280 c84e e7ac | N | 0282 6ca5 57f6 |l W | 0284 44fd 808f |D | 0286 8949 54f3 | IT | 0288 b9ff 78a4 | x | 028a f436 4804 | 6H | 028c 8b80 b5c0 | | 028e 0b81 c9cd | | 0290 8114 0a0f | | 0292 c44b 29af | K) | 0294 ac0c 01f6 | | 0296 c6c5 9249 | I| 0298 b382 33c6 | 3 | 029a 3c8b 724d |< rM| 029c cc6d 4c80 | mL | 029e 50c3 1954 |P T| 02a0 c6a0 257c | %|| 02a2 04a0 0244 | D| 02a4 d059 8232 | Y 2| 02a6 5c13 d8c4 |\ | 02a8 fa08 c065 | e| 02aa 1d99 2300 | # | 02ac 607c 17cc |`| | 02ae 041b 8c04 | | 02b0 00f2 df3e | >| 02b2 00c7 7a14 | z | 02b4 8c10 f31b | | 02b6 f773 7269 | sri| 02b8 cf29 bc96 | ) | 02ba e441 4d61 | AMa| 02bc d2bd 8338 | 8| 02be a61a 2221 | "!| 02c0 0368 929b | h | 02c2 c0af e000 | | 02c4 f3a3 38a7 | 8 | 02c6 3d7c d505 |=| | 02c8 3286 9388 |2 | 02ca 6f1c 91e9 |o | 02cc 7f98 4cc6 | L | 02ce 1447 cc8f | G | 02d0 da70 4bcd | pK | 02d2 359f 1451 |5 Q| 02d4 2b74 aab9 |+t | 02d6 ce29 3909 | )9 | 02d8 bfd8 5ae1 | Z | 02da 62a0 1d4b |b K| 02dc 766d c492 |vm | 02de 2a73 efee |*s | 02e0 97f0 8926 | &| 02e2 f54c 4974 | LIt| 02e4 5c05 7803 |\ x | 02e6 0c26 260a | && | 02e8 c723 af2a | # *| 02ea ebfd 2447 | $G| 02ec 0dbc 541c | T | 02ee d624 8212 | $ | 02f0 ec0b 934b | K| 02f2 6122 a0b9 |a" | 02f4 9548 7024 | Hp$| 02f6 8f03 0ca5 | | 02f8 57a3 53b9 |W S | 02fa 224c 1abf |"L | 02fc 4ef0 8d64 |N d| 02fe 4657 48d8 |FWH | 0300 c81e a8a6 | | 0302 6c0b 35dc |l 5 | 0304 ae01 ef9c | | 0306 6f3f 0df2 |o? | 0308 44c0 015e |D ^| 030a 0107 00ae | | 030c 2650 1130 |&P 0| 030e c85d 114f | ] O| 0310 bb8c e061 | a| 0312 9008 5081 | P | 0314 057a 83e8 | z | 0316 1660 8f18 | ` | 0318 007a 4579 | zEy| 031a 48a9 a6be |H | 031c d12b f010 | + | 031e c000 5086 | P | 0320 7044 5504 |pDU | 0322 1d14 0201 | | 0324 2e89 3241 |. 2A| 0326 d0d7 9232 | 2| 0328 9254 589d | TX | 032a 2511 397b |% 9{| 032c 0096 84e1 | | 032e e924 3f7e | $?~| 0330 3182 7809 |1 x | 0332 1440 889f | @ | 0334 0f26 2efc | &. | 0336 2a0a 0bbf |* | 0338 5c03 8390 |\ | 033a 8cb6 492e | I.| 033c 0310 ef8a | | 033e 4201 2f0d |B / | 0340 22f2 5d77 |" ]w| 0342 2b0c 1394 |+ | 0344 1f88 0726 | &| 0346 b5d0 5063 | Pc| 0348 ba81 003d | =| 034a 1468 975e | h ^| 034c f806 b034 | 4| 034e efd4 2f06 | / | 0350 a4c0 bc65 | e| 0352 3a50 de68 |:P h| 0354 15bb c590 | | 0356 4d71 73f6 |Mqs | 0358 1055 63df | Uc | 035a 4b17 2c00 |K , | 035c 4bbe c456 |K V| 035e a6a5 5e0d | ^ | 0360 132a 2c1e | *, | 0362 6868 742a |hht*| 0364 772f d888 |w/ | 0366 8299 c31d | | 0368 48f9 e383 |H | 036a 6903 824c |i L| 036c 9c50 fc81 | P | 036e 8e8c 763c | v<| 0370 92f5 170d | | 0372 7f50 6850 | PhP| 0374 0274 f188 | t | 0376 6125 6a3e |a%j>| 0378 1efc 611b | a | 037a e66c e8e4 | l | 037c 4895 413b |H A;| 037e d42c a700 | , | 0380 0cf1 c162 | b| 0382 789c 50c4 |x P | 0384 81a8 0f07 | | 0386 c784 000b | | 0388 c392 ea28 | (| 038a 54c8 119d |T | 038c 9e8d 6909 | i | 038e afcd d9b0 | | 0390 d81a 732c | s,| 0392 d9bf 1d39 | 9| 0394 98a1 1e53 | S| 0396 6dc0 88be |m | 0398 2003 8dc0 | | 039a f000 4441 | DA| 039c 4a20 1ec0 |J | 039e a7fb 91d6 | | 03a0 1535 6482 | 5d | 03a2 1d09 5656 | VV| 03a4 cc6a d44c | j L| 03a6 c004 aa15 | | 03a8 e002 a1af | | 03aa b854 bb8c | T | 03ac 93e3 aa49 | I| 03ae 1bc1 3960 | 9`| 03b0 e451 d959 | Q Y| 03b2 fbb5 c644 | D| 03b4 17c1 9991 | | 03b6 ace5 9276 | v| 03b8 ae70 ae80 | p | 03ba ae5e 573c | ^W<| 03bc eda3 94fb | | 03be 6580 e6da |e | 03c0 b003 d4aa | | 03c2 3e57 cf29 |>W )| 03c4 546f de01 |To | 03c6 a002 a2ac | | 03c8 bb47 6b2e | Gk.| 03ca 3745 d798 |7E | 03cc 7753 c95a |wS Z| 03ce 0d82 287e | (~| 03d0 4124 81e6 |A$ | 03d2 2e54 278a |.T' | 03d4 25c9 a934 |% 4| 03d6 56e5 57f8 |V W | 03d8 bc28 a7c0 | ( | 03da 0d59 cd84 | Y | 03dc a873 0082 | s | 03de 03e6 8d0e | | 03e0 5897 4e3c |X N<| 03e2 a72b afca | + | 03e4 7710 f22a |w *| 03e6 d59b f464 | d| 03e8 1072 461f | rF | 03ea 23e4 049d |# | 03ec 002a 5392 | *S | 03ee f614 cac5 | | 03f0 b819 4800 | H | 03f2 a258 88c8 | X | 03f4 e481 3906 | 9 | 03f6 f770 9f9c | p | 03f8 1a2b 2113 | +! | 03fa c477 caec | w | 03fc f171 4d11 | qM | 03fe 1889 fe92 | |