|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 0000 0000 | | .BLANK 0000[0x29] 028f 0801 4000 | @ | .XXX[0xc] 0291 0000 0000 | | 0293 0010 0000 | | 0295 0088 0000 | | 0297 0000 4000 | @ | 0299 0002 8000 | | 029b 0000 0000 | | .BLANK 0000[0x2d] 02c8 0100 2800 | ( | .XXX[0xc] 02ca 0000 0000 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5000 | P | 02d4 0000 0000 | | .BLANK 0000[0x2d] 0301 0020 0500 | | .XXX[0xc] 0303 0000 0000 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a00 | | 030d 0000 0000 | | .BLANK 0000[0x2d] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]