|
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_6a18da
└─⟦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 0220 | | .CONST 0x0220 ; 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 00bd | | .CONST 0x00bd ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0033 | 3 | .CONST 0x0033 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 000f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0010 0129 | ) | Execute Any,Make_Visible 0011 00e3 | | Load_Encached Natural_Cache 0012 0266 | f | Execute Discrete,Bounds 0013 00db | | Load_Top At_Offset_3 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 4801 |H | Short_Literal 0x1 0016 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0017 e002 | | Load 0x0,0x2 0018 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0019 0129 | ) | Execute Any,Make_Visible 001a 00e4 | | Load_Encached Positive_Cache 001b 0266 | f | Execute Discrete,Bounds 001c 00da | | Load_Top At_Offset_2 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 4801 |H | Short_Literal 0x1 001f 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0020 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0022 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0024 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0026 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0028 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 002a 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 002c 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 002e 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0030 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0032 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0034 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0036 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0038 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 003a 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 003c 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 003e 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0040 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0042 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0044 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0046 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0048 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 004a 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 004c 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 004e 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 005c c233 | 3 | Store 0x1,0x33 005d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 005f c22a | * | Store 0x1,0x2a 0060 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0062 c22b | + | Store 0x1,0x2b 0063 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0065 c22c | , | Store 0x1,0x2c 0066 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0068 c22d | - | Store 0x1,0x2d 0069 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 006b c22e | . | Store 0x1,0x2e 006c 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 006e c22f | / | Store 0x1,0x2f 006f 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0071 c230 | 0 | Store 0x1,0x30 0072 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0074 c231 | 1 | Store 0x1,0x31 0075 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0077 c232 | 2 | Store 0x1,0x32 0078 00bf | | Action Accept_Activation 0079 1d12 | | Execute_Immediate Reference_Lex_1,0x12 007a 00c7 | | Action Elaborate_Subprogram 007b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 007c 00c7 | | Action Elaborate_Subprogram 007d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 007e 00c7 | | Action Elaborate_Subprogram 007f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0080 00c7 | | Action Elaborate_Subprogram 0081 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0082 00c7 | | Action Elaborate_Subprogram 0083 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0084 00c7 | | Action Elaborate_Subprogram 0085 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0086 00c7 | | Action Elaborate_Subprogram 0087 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0088 00c7 | | Action Elaborate_Subprogram 0089 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 008a 00c7 | | Action Elaborate_Subprogram 008b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 008c 00c7 | | Action Elaborate_Subprogram 008d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 008e 00c7 | | Action Elaborate_Subprogram 008f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0090 00c7 | | Action Elaborate_Subprogram 0091 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0092 00c7 | | Action Elaborate_Subprogram 0093 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0094 00c7 | | Action Elaborate_Subprogram 0095 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0096 00c7 | | Action Elaborate_Subprogram 0097 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0098 00c7 | | Action Elaborate_Subprogram 0099 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 009a 00c7 | | Action Elaborate_Subprogram 009b 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 009c 00c7 | | Action Elaborate_Subprogram 009d 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 009e 00c7 | | Action Elaborate_Subprogram 009f 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00b0 00c7 | | Action Elaborate_Subprogram 00b1 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00b4 00c7 | | Action Elaborate_Subprogram 00b5 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00bc 00c7 | | Action Elaborate_Subprogram 00bd BODY_0008: 00bd 00bc | | Action Signal_Activated 00be 00bb | | Action Signal_Completion 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e003 | | Load 0x0,0x3 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 e5fc | | Load 0x2,-0x4 00c6 e004 | | Load 0x0,0x4 00c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c8 00d9 | | Load_Top At_Offset_1 00c9 00d0 | | Action Swap_Control 00ca 0260 | ` | Execute Discrete,In_Type 00cb 7001 |p | Jump_Nonzero 0xcd 00cc 0801 | | Execute_Immediate Raise,0x1 00cd e5fd | | Load 0x2,-0x3 00ce e5fe | | Load 0x2,-0x2 00cf e5ff | | Load 0x2,-0x1 00d0 e003 | | Load 0x0,0x3 00d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d2 c5fb | | Store 0x2,-0x5 00d3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e003 | | Load 0x0,0x3 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd e5fc | | Load 0x2,-0x4 00de e004 | | Load 0x0,0x4 00df 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e0 00d9 | | Load_Top At_Offset_1 00e1 00d0 | | Action Swap_Control 00e2 0260 | ` | Execute Discrete,In_Type 00e3 7001 |p | Jump_Nonzero 0xe5 00e4 0801 | | Execute_Immediate Raise,0x1 00e5 e5fd | | Load 0x2,-0x3 00e6 e5fe | | Load 0x2,-0x2 00e7 e5ff | | Load 0x2,-0x1 00e8 e003 | | Load 0x0,0x3 00e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ea c5fb | | Store 0x2,-0x5 00eb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00db | | Load_Top At_Offset_3 00f4 00db | | Load_Top At_Offset_3 00f5 e003 | | Load 0x0,0x3 00f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00db | | Load_Top At_Offset_3 00fc 00db | | Load_Top At_Offset_3 00fd e003 | | Load 0x0,0x3 00fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e003 | | Load 0x0,0x3 0105 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00db | | Load_Top At_Offset_3 010c 00db | | Load_Top At_Offset_3 010d e003 | | Load 0x0,0x3 010e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 010f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 0114 00db | | Load_Top At_Offset_3 0115 e003 | | Load 0x0,0x3 0116 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0117 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 00da | | Load_Top At_Offset_2 011c e003 | | Load 0x0,0x3 011d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 011e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011f 0000 | | .XXX[0x1] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e003 | | Load 0x0,0x3 0125 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0127 0000 | | .XXX[0x1] 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 00db | | Load_Top At_Offset_3 012c 00db | | Load_Top At_Offset_3 012d e003 | | Load 0x0,0x3 012e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e003 | | Load 0x0,0x3 0135 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0136 00d8 | | Load_Top At_Offset_0 0137 e005 | | Load 0x0,0x5 0138 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0139 0122 | " | Execute Any,Make_Root_Type 013a 0260 | ` | Execute Discrete,In_Type 013b 7001 |p | Jump_Nonzero 0x13d 013c 0801 | | Execute_Immediate Raise,0x1 013d e005 | | Load 0x0,0x5 013e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 013f 00d9 | | Load_Top At_Offset_1 0140 00d0 | | Action Swap_Control 0141 0260 | ` | Execute Discrete,In_Type 0142 7001 |p | Jump_Nonzero 0x144 0143 0801 | | Execute_Immediate Raise,0x1 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 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 e004 | | Load 0x0,0x4 014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014e 00d9 | | Load_Top At_Offset_1 014f 00d0 | | Action Swap_Control 0150 0260 | ` | Execute Discrete,In_Type 0151 7001 |p | Jump_Nonzero 0x153 0152 0801 | | Execute_Immediate Raise,0x1 0153 00db | | Load_Top At_Offset_3 0154 e003 | | Load 0x0,0x3 0155 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0156 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c e003 | | Load 0x0,0x3 015d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015f 0000 | | .XXX[0x1] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00db | | Load_Top At_Offset_3 0164 00db | | Load_Top At_Offset_3 0165 e003 | | Load 0x0,0x3 0166 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0167 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c e003 | | Load 0x0,0x3 016d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 e003 | | Load 0x0,0x3 0175 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0176 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c e003 | | Load 0x0,0x3 017d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 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 e003 | | Load 0x0,0x3 0185 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0187 0000 | | .XXX[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 e003 | | Load 0x0,0x3 018d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018f 0000 | | .XXX[0x1] 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 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0195 00ca | | Action Exit_Nullary_Function 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c e003 | | Load 0x0,0x3 019d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 e003 | | Load 0x0,0x3 01a5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac e003 | | Load 0x0,0x3 01ad 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01af 0000 | | .XXX[0x1] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00db | | Load_Top At_Offset_3 01b4 00db | | Load_Top At_Offset_3 01b5 e003 | | Load 0x0,0x3 01b6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5fb | | Load 0x2,-0x5 01bc e004 | | Load 0x0,0x4 01bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01be 00d9 | | Load_Top At_Offset_1 01bf 00d0 | | Action Swap_Control 01c0 0260 | ` | Execute Discrete,In_Type 01c1 7001 |p | Jump_Nonzero 0x1c3 01c2 0801 | | Execute_Immediate Raise,0x1 01c3 e5fc | | Load 0x2,-0x4 01c4 e5fd | | Load 0x2,-0x3 01c5 e5fe | | Load 0x2,-0x2 01c6 e5ff | | Load 0x2,-0x1 01c7 e003 | | Load 0x0,0x3 01c8 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01c9 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01ca 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 01d4 00db | | Load_Top At_Offset_3 01d5 e003 | | Load 0x0,0x3 01d6 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 01d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e003 | | Load 0x0,0x3 01dd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01de e006 | | Load 0x0,0x6 01df 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec e003 | | Load 0x0,0x3 01ed 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ef 0000 | | .XXX[0x1] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00db | | Load_Top At_Offset_3 01f4 00db | | Load_Top At_Offset_3 01f5 e003 | | Load 0x0,0x3 01f6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc e003 | | Load 0x0,0x3 01fd 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 e003 | | Load 0x0,0x3 0205 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0206 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0207 0000 | | .XXX[0x1] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c e003 | | Load 0x0,0x3 020d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 020e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020f 0000 | | .XXX[0x1] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 e003 | | Load 0x0,0x3 0215 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0217 0000 | | .XXX[0x1] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c e003 | | Load 0x0,0x3 021d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 021e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb46,0x0000,0x0001,0x0000 0226 0200 0000 | | .XXX[0x5] 0228 0000 0000 | | 022a 0018 | | 022b 0000 0000 | | .BLANK 0000[0x6] 0231 0400 0fe0 | | .XXX[0x3] 0233 3d0b |= | 0234 0000 0000 | | .BLANK 0000[0x1cc]