|
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: 6144 (0x1800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0b90 | | .CONST 0x0b90 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 004b | K | .CONST 0x004b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 00e1 | | Load_Encached Boolean_Cache 000c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 000d 00e1 | | Load_Encached Boolean_Cache 000e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 000f 00e1 | | Load_Encached Boolean_Cache 0010 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0011 00e1 | | Load_Encached Boolean_Cache 0012 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0013 00e3 | | Load_Encached Natural_Cache 0014 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0015 00e3 | | Load_Encached Natural_Cache 0016 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0017 00e3 | | Load_Encached Natural_Cache 0018 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0019 00e3 | | Load_Encached Natural_Cache 001a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001b 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 001d 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 001f 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0021 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0023 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0025 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0027 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0029 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 002b 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 002d 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 002f 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0031 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0033 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 0035 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 0037 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 0039 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call 003b 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 003d 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 003f 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call 0041 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call 0043 029f 05e3 | | Declare_Subprogram INIT_05e0,For_Call 0045 029f 066b | k| Declare_Subprogram INIT_0668,For_Call 0047 029f 06fb | | Declare_Subprogram INIT_06f8,For_Call 0049 029f 0773 | s| Declare_Subprogram INIT_0770,For_Call 004b BODY_0008: 004b e5fd | | Load 0x2,-0x3 004c e5fe | | Load 0x2,-0x2 004d e5ff | | Load 0x2,-0x1 004e 0092 07dd | | Action Push_String_Extended,0x7dd ; "Comparing CDB for secondary subsystem <2> against CDB for primary subsystem <1>" 0050 e21e | | Load 0x1,0x1e 0051 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0052 4801 |H | Short_Literal 0x1 0053 a5fc | | Store_Unchecked 0x2,-0x4 0054 8416 | | Call 0x2,0x16 0055 e405 | | Load 0x2,0x5 0056 6802 |h | Jump_Zero 0x59 0057 841b | | Call 0x2,0x1b 0058 8421 | ! | Call 0x2,0x21 0059 e405 | | Load 0x2,0x5 005a 680c |h | Jump_Zero 0x67 005b e406 | | Load 0x2,0x6 005c 0c01 | | Execute_Immediate Greater_Equal,0x1 005d 7009 |p | Jump_Nonzero 0x67 005e e407 | | Load 0x2,0x7 005f 0c01 | | Execute_Immediate Greater_Equal,0x1 0060 7006 |p | Jump_Nonzero 0x67 0061 e408 | | Load 0x2,0x8 0062 0c01 | | Execute_Immediate Greater_Equal,0x1 0063 7003 |p | Jump_Nonzero 0x67 0064 e409 | | Load 0x2,0x9 0065 0c01 | | Execute_Immediate Greater_Equal,0x1 0066 6821 |h! | Jump_Zero 0x88 0067 e5fd | | Load 0x2,-0x3 0068 e5fe | | Load 0x2,-0x2 0069 e5ff | | Load 0x2,-0x1 006a 0092 07de | | Action Push_String_Extended,0x7de ; "CDB for secondary subsystem <2> is incompatible with CDB for primary subsystem <1>" 006c e21e | | Load 0x1,0x1e 006d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 006e e5fd | | Load 0x2,-0x3 006f e5fe | | Load 0x2,-0x2 0070 e21e | | Load 0x1,0x1e 0071 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0072 0092 07df | | Action Push_String_Extended,0x7df ; "Incompatible unit maps" 0074 e402 | | Load 0x2,0x2 0075 00d8 | | Load_Top At_Offset_0 0076 00e3 | | Load_Encached Natural_Cache 0077 0260 | ` | Execute Discrete,In_Type 0078 7001 |p | Jump_Nonzero 0x7a 0079 0801 | | Execute_Immediate Raise,0x1 007a 840a | | Call 0x2,0xa 007b 0092 07e0 | | Action Push_String_Extended,0x7e0 ; "Incompatible declaration maps" 007d e408 | | Load 0x2,0x8 007e 840a | | Call 0x2,0xa 007f 0092 07e1 | | Action Push_String_Extended,0x7e1 ; "Incompatible offset maps" 0081 e409 | | Load 0x2,0x9 0082 840a | | Call 0x2,0xa 0083 0092 07e2 | | Action Push_String_Extended,0x7e2 ; "Errors (prevented complete comparison)" 0085 e406 | | Load 0x2,0x6 0086 840a | | Call 0x2,0xa 0087 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0088 e5fd | | Load 0x2,-0x3 0089 e5fe | | Load 0x2,-0x2 008a e5ff | | Load 0x2,-0x1 008b 0092 07e3 | | Action Push_String_Extended,0x7e3 ; "CDB for secondary subsystem <2> is compatible with CDB for primary subsystem <1>" 008d e21e | | Load 0x1,0x1e 008e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 008f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 0c01 | | Execute_Immediate Greater_Equal,0x1 0095 6805 |h | Jump_Zero 0x9b 0096 e5fd | | Load 0x2,-0x3 0097 e7fe | | Load 0x3,-0x2 0098 e7ff | | Load 0x3,-0x1 0099 e21e | | Load 0x1,0x1e 009a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 009b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e5fd | | Load 0x2,-0x3 00a4 00db | | Load_Top At_Offset_3 00a5 e21e | | Load 0x1,0x1e 00a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a7 e406 | | Load 0x2,0x6 00a8 0a01 | | Execute_Immediate Plus,0x1 00a9 c406 | | Store 0x2,0x6 00aa 4800 |H | Short_Literal 0x0 00ab a5fc | | Store_Unchecked 0x2,-0x4 00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e5fd | | Load 0x2,-0x3 00b4 e7fe | | Load 0x3,-0x2 00b5 e7ff | | Load 0x3,-0x1 00b6 e21e | | Load 0x1,0x1e 00b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b8 e406 | | Load 0x2,0x6 00b9 0a01 | | Execute_Immediate Plus,0x1 00ba c406 | | Store 0x2,0x6 00bb 4800 |H | Short_Literal 0x0 00bc a5fc | | Store_Unchecked 0x2,-0x4 00bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00be 0000 0000 | | .XXX[0x2] 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 e5fd | | Load 0x2,-0x3 00c4 e5ff | | Load 0x2,-0x1 00c5 0092 07e4 | | Action Push_String_Extended,0x7e4 ; "Unit map for <1> is incompatible: " 00c7 e7ff | | Load 0x3,-0x1 00c8 01cc | | Execute Vector,Catenate 00c9 e21e | | Load 0x1,0x1e 00ca 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00cb 4801 |H | Short_Literal 0x1 00cc a402 | | Store_Unchecked 0x2,0x2 00cd 4800 |H | Short_Literal 0x0 00ce a5fc | | Store_Unchecked 0x2,-0x4 00cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e5fd | | Load 0x2,-0x3 00d4 e5ff | | Load 0x2,-0x1 00d5 0092 07e5 | | Action Push_String_Extended,0x7e5 ; "Unit map for <1> is incompatible" 00d7 e21e | | Load 0x1,0x1e 00d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d9 e407 | | Load 0x2,0x7 00da 0a01 | | Execute_Immediate Plus,0x1 00db c407 | | Store 0x2,0x7 00dc 4800 |H | Short_Literal 0x0 00dd a402 | | Store_Unchecked 0x2,0x2 00de 4800 |H | Short_Literal 0x0 00df a5fc | | Store_Unchecked 0x2,-0x4 00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e5fd | | Load 0x2,-0x3 00ec e7fe | | Load 0x3,-0x2 00ed 0092 07e6 | | Action Push_String_Extended,0x7e6 ; "Declaration map <1> is incompatible: " 00ef e7ff | | Load 0x3,-0x1 00f0 01cc | | Execute Vector,Catenate 00f1 e21e | | Load 0x1,0x1e 00f2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00f3 4801 |H | Short_Literal 0x1 00f4 a403 | | Store_Unchecked 0x2,0x3 00f5 4800 |H | Short_Literal 0x0 00f6 a5fc | | Store_Unchecked 0x2,-0x4 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 e5fd | | Load 0x2,-0x3 00fc 00db | | Load_Top At_Offset_3 00fd 0092 07e7 | | Action Push_String_Extended,0x7e7 ; "Declaration map <1> is incompatible" 00ff e21e | | Load 0x1,0x1e 0100 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0101 e408 | | Load 0x2,0x8 0102 0a01 | | Execute_Immediate Plus,0x1 0103 c408 | | Store 0x2,0x8 0104 4800 |H | Short_Literal 0x0 0105 a403 | | Store_Unchecked 0x2,0x3 0106 4800 |H | Short_Literal 0x0 0107 a5fc | | Store_Unchecked 0x2,-0x4 0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0109 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 0114 e7fe | | Load 0x3,-0x2 0115 0092 07e8 | | Action Push_String_Extended,0x7e8 ; "Offset map <1> is incompatible: " 0117 e7ff | | Load 0x3,-0x1 0118 01cc | | Execute Vector,Catenate 0119 e21e | | Load 0x1,0x1e 011a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 011b 4801 |H | Short_Literal 0x1 011c a404 | | Store_Unchecked 0x2,0x4 011d 4800 |H | Short_Literal 0x0 011e a5fc | | Store_Unchecked 0x2,-0x4 011f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e5fd | | Load 0x2,-0x3 0124 00db | | Load_Top At_Offset_3 0125 0092 07e9 | | Action Push_String_Extended,0x7e9 ; "Offset map <1> is incompatible" 0127 e21e | | Load 0x1,0x1e 0128 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0129 e409 | | Load 0x2,0x9 012a 0a01 | | Execute_Immediate Plus,0x1 012b c409 | | Store 0x2,0x9 012c 4800 |H | Short_Literal 0x0 012d a404 | | Store_Unchecked 0x2,0x4 012e 4800 |H | Short_Literal 0x0 012f a5fc | | Store_Unchecked 0x2,-0x4 0130 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0131 0000 0000 | | .BLANK 0000[0x7] 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 e00e | | Load 0x0,0xe 013c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013e 02c7 | | Declare_Variable Any 013f 00d8 | | Load_Top At_Offset_0 0140 1c00 | | Execute_Immediate Run_Utility,0x0 0141 BODY_0138: 0141 00d8 | | Load_Top At_Offset_0 0142 0120 | | Execute Any,Is_Value 0143 6804 |h | Jump_Zero 0x148 0144 e00e | | Load 0x0,0xe 0145 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0146 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0147 7801 |x | Jump 0x149 0148 00d8 | | Load_Top At_Offset_0 0149 e7fe | | Load 0x3,-0x2 014a 4800 |H | Short_Literal 0x0 014b 4800 |H | Short_Literal 0x0 014c e00b | | Load 0x0,0xb 014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014e e7ff | | Load 0x3,-0x1 014f e00e | | Load 0x0,0xe 0150 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0151 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0152 c7fe | | Store 0x3,-0x2 0153 c602 | | Store 0x3,0x2 0154 00d8 | | Load_Top At_Offset_0 0155 e00e | | Load 0x0,0xe 0156 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0157 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0158 0b00 | | Execute_Immediate Case_Compare,0x0 0159 700a |p | Jump_Nonzero 0x164 015a 0f01 | | Execute_Immediate Equal,0x1 015b 700c |p | Jump_Nonzero 0x168 015c 00d8 | | Load_Top At_Offset_0 015d e00e | | Load 0x0,0xe 015e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 015f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0160 840b | | Call 0x2,0xb 0161 4800 |H | Short_Literal 0x0 0162 a7fd | | Store_Unchecked 0x3,-0x3 0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0164 00d1 | | Pop_Control Pop_Count_1 0165 4801 |H | Short_Literal 0x1 0166 a7fd | | Store_Unchecked 0x3,-0x3 0167 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0168 e5fd | | Load 0x2,-0x3 0169 e7ff | | Load 0x3,-0x1 016a 0092 07ea | | Action Push_String_Extended,0x7ea ; "Unit map not found for <1>" 016c e21e | | Load 0x1,0x1e 016d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 016e 840e | | Call 0x2,0xe 016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0179 | y | .CONST 0x0179 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e00e | | Load 0x0,0xe 0174 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0175 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0176 02c7 | | Declare_Variable Any 0177 00d8 | | Load_Top At_Offset_0 0178 1c00 | | Execute_Immediate Run_Utility,0x0 0179 BODY_0170: 0179 00d8 | | Load_Top At_Offset_0 017a 0120 | | Execute Any,Is_Value 017b 6804 |h | Jump_Zero 0x180 017c e00e | | Load 0x0,0xe 017d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 017e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 017f 7801 |x | Jump 0x181 0180 00d8 | | Load_Top At_Offset_0 0181 e7ff | | Load 0x3,-0x1 0182 e00e | | Load 0x0,0xe 0183 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0184 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0185 c7ff | | Store 0x3,-0x1 0186 c602 | | Store 0x3,0x2 0187 00d8 | | Load_Top At_Offset_0 0188 e00e | | Load 0x0,0xe 0189 1b13 | | Execute Package,Field_Read,Field_Number 0x13 018a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018b 7005 |p | Jump_Nonzero 0x191 018c 00d8 | | Load_Top At_Offset_0 018d e00e | | Load 0x0,0xe 018e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 018f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0190 840b | | Call 0x2,0xb 0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01cf | | .CONST 0x01cf ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 000d | | .CONST 0x000d ; Number of locals 019b INIT_0198: 019b 00db | | Load_Top At_Offset_3 019c e00e | | Load 0x0,0xe 019d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 019e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 019f 00db | | Load_Top At_Offset_3 01a0 e00e | | Load 0x0,0xe 01a1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01a3 e7fe | | Load 0x3,-0x2 01a4 e00e | | Load 0x0,0xe 01a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01a7 e7ff | | Load 0x3,-0x1 01a8 e00e | | Load 0x0,0xe 01a9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01aa 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01ab e7fe | | Load 0x3,-0x2 01ac e00e | | Load 0x0,0xe 01ad 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ae 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01af e7ff | | Load 0x3,-0x1 01b0 e00e | | Load 0x0,0xe 01b1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b2 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01b3 e7fe | | Load 0x3,-0x2 01b4 e00e | | Load 0x0,0xe 01b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01b7 e00e | | Load 0x0,0xe 01b8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ba e00e | | Load 0x0,0xe 01bb 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01bd e00e | | Load 0x0,0xe 01be 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01bf 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01c0 02c7 | | Declare_Variable Any 01c1 00d8 | | Load_Top At_Offset_0 01c2 1c00 | | Execute_Immediate Run_Utility,0x0 01c3 e00e | | Load 0x0,0xe 01c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c6 02c7 | | Declare_Variable Any 01c7 00d8 | | Load_Top At_Offset_0 01c8 1c00 | | Execute_Immediate Run_Utility,0x0 01c9 e00e | | Load 0x0,0xe 01ca 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01cc 02c7 | | Declare_Variable Any 01cd 00d8 | | Load_Top At_Offset_0 01ce 1c00 | | Execute_Immediate Run_Utility,0x0 01cf BODY_0198: 01cf 00be | | Action Activate_Tasks 01d0 e602 | | Load 0x3,0x2 01d1 0e01 | | Execute_Immediate Not_Equal,0x1 01d2 6805 |h | Jump_Zero 0x1d8 01d3 0092 07eb | | Action Push_String_Extended,0x7eb ; "Subsystem is not a secondary copy" 01d5 840d | | Call 0x2,0xd 01d6 840e | | Call 0x2,0xe 01d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d8 e604 | | Load 0x3,0x4 01d9 e603 | | Load 0x3,0x3 01da 027e | ~ | Execute Discrete,Not_Equal 01db 6811 |h | Jump_Zero 0x1ed 01dc 0092 07ec | | Action Push_String_Extended,0x7ec ; "Subsystem ID " 01de e604 | | Load 0x3,0x4 01df 8219 | | Call 0x1,0x19 01e0 01cc | | Execute Vector,Catenate 01e1 0092 07ed | | Action Push_String_Extended,0x7ed ; " does not match subsystem ID " 01e3 01cc | | Execute Vector,Catenate 01e4 e603 | | Load 0x3,0x3 01e5 8219 | | Call 0x1,0x19 01e6 01cc | | Execute Vector,Catenate 01e7 0092 07ee | | Action Push_String_Extended,0x7ee ; " in unit map for the primary subsystem" 01e9 01cc | | Execute Vector,Catenate 01ea 840d | | Call 0x2,0xd 01eb 840e | | Call 0x2,0xe 01ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ed 4801 |H | Short_Literal 0x1 01ee a405 | | Store_Unchecked 0x2,0x5 01ef e606 | | Load 0x3,0x6 01f0 e605 | | Load 0x3,0x5 01f1 027d | } | Execute Discrete,Greater 01f2 680f |h | Jump_Zero 0x202 01f3 0092 07ef | | Action Push_String_Extended,0x7ef ; "Generation number " 01f5 e606 | | Load 0x3,0x6 01f6 8218 | | Call 0x1,0x18 01f7 01cc | | Execute Vector,Catenate 01f8 0092 07f0 | | Action Push_String_Extended,0x7f0 ; " is greater than generation number " 01fa 01cc | | Execute Vector,Catenate 01fb e605 | | Load 0x3,0x5 01fc 8218 | | Call 0x1,0x18 01fd 01cc | | Execute Vector,Catenate 01fe 0092 07ee | | Action Push_String_Extended,0x7ee ; " in unit map for the primary subsystem" 0200 01cc | | Execute Vector,Catenate 0201 840d | | Call 0x2,0xd 0202 e608 | | Load 0x3,0x8 0203 e607 | | Load 0x3,0x7 0204 027d | } | Execute Discrete,Greater 0205 680f |h | Jump_Zero 0x215 0206 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "Last unit number " 0208 e608 | | Load 0x3,0x8 0209 8218 | | Call 0x1,0x18 020a 01cc | | Execute Vector,Catenate 020b 0092 07f2 | | Action Push_String_Extended,0x7f2 ; " is greater than last unit number " 020d 01cc | | Execute Vector,Catenate 020e e607 | | Load 0x3,0x7 020f 8218 | | Call 0x1,0x18 0210 01cc | | Execute Vector,Catenate 0211 0092 07ee | | Action Push_String_Extended,0x7ee ; " in unit map for the primary subsystem" 0213 01cc | | Execute Vector,Catenate 0214 840d | | Call 0x2,0xd 0215 e7ff | | Load 0x3,-0x1 0216 c60c | | Store 0x3,0xc 0217 00da | | Load_Top At_Offset_2 0218 e7fe | | Load 0x3,-0x2 0219 e00e | | Load 0x0,0xe 021a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 021b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 021c c60b | | Store 0x3,0xb 021d 00cf | | Action Mark_Auxiliary 021e 7868 |xh | Jump 0x287 021f 00db | | Load_Top At_Offset_3 0220 e00e | | Load 0x0,0xe 0221 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0222 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0223 a60a | | Store_Unchecked 0x3,0xa 0224 00d9 | | Load_Top At_Offset_1 0225 0120 | | Execute Any,Is_Value 0226 6804 |h | Jump_Zero 0x22b 0227 e00e | | Load 0x0,0xe 0228 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022a 7801 |x | Jump 0x22c 022b 00d9 | | Load_Top At_Offset_1 022c e00e | | Load 0x0,0xe 022d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 022e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 022f e60c | | Load 0x3,0xc 0230 e60b | | Load 0x3,0xb 0231 e00e | | Load 0x0,0xe 0232 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0233 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0234 e00e | | Load 0x0,0xe 0235 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0236 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0237 c60c | | Store 0x3,0xc 0238 c609 | | Store 0x3,0x9 0239 c60d | | Store 0x3,0xd 023a 00d9 | | Load_Top At_Offset_1 023b e00e | | Load 0x0,0xe 023c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 023d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 023e 4610 |F | Jump_Case 0x11 023f 7816 |x | Jump 0x256 ; case 0x0 0240 780f |x | Jump 0x250 ; case 0x1 0241 780e |x | Jump 0x250 ; case 0x2 0242 780d |x | Jump 0x250 ; case 0x3 0243 780c |x | Jump 0x250 ; case 0x4 0244 782c |x, | Jump 0x271 ; case 0x5 0245 780a |x | Jump 0x250 ; case 0x6 0246 7809 |x | Jump 0x250 ; case 0x7 0247 7808 |x | Jump 0x250 ; case 0x8 0248 7807 |x | Jump 0x250 ; case 0x9 0249 7806 |x | Jump 0x250 ; case 0xa 024a 7805 |x | Jump 0x250 ; case 0xb 024b 7804 |x | Jump 0x250 ; case 0xc 024c 7803 |x | Jump 0x250 ; case 0xd 024d 7802 |x | Jump 0x250 ; case 0xe 024e 7801 |x | Jump 0x250 ; case 0xf 024f 7800 |x | Jump 0x250 ; case 0x10 0250 00d9 | | Load_Top At_Offset_1 0251 e00e | | Load 0x0,0xe 0252 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0253 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0254 840b | | Call 0x2,0xb 0255 782b |x+ | Jump 0x281 0256 e60a | | Load 0x3,0xa 0257 e609 | | Load 0x3,0x9 0258 027e | ~ | Execute Discrete,Not_Equal 0259 6827 |h' | Jump_Zero 0x281 025a 4820 |H | Short_Literal 0x20 025b 0092 07f3 | | Action Push_String_Extended,0x7f3 ; "Unit number for " 025d e60b | | Load 0x3,0xb 025e e00e | | Load 0x0,0xe 025f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0260 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0261 01cc | | Execute Vector,Catenate 0262 01cb | | Execute Vector,Append 0263 e60a | | Load 0x3,0xa 0264 8218 | | Call 0x1,0x18 0265 01cc | | Execute Vector,Catenate 0266 0092 07f4 | | Action Push_String_Extended,0x7f4 ; " does not match unit number " 0268 01cc | | Execute Vector,Catenate 0269 e609 | | Load 0x3,0x9 026a 8218 | | Call 0x1,0x18 026b 01cc | | Execute Vector,Catenate 026c 0092 07ee | | Action Push_String_Extended,0x7ee ; " in unit map for the primary subsystem" 026e 01cc | | Execute Vector,Catenate 026f 840d | | Call 0x2,0xd 0270 7810 |x | Jump 0x281 0271 4820 |H | Short_Literal 0x20 0272 0092 07f3 | | Action Push_String_Extended,0x7f3 ; "Unit number for " 0274 e60b | | Load 0x3,0xb 0275 e00e | | Load 0x0,0xe 0276 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0277 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0278 01cc | | Execute Vector,Catenate 0279 01cb | | Execute Vector,Append 027a e60a | | Load 0x3,0xa 027b 8218 | | Call 0x1,0x18 027c 01cc | | Execute Vector,Catenate 027d 0092 07f5 | | Action Push_String_Extended,0x7f5 ; " is not defined in unit map for the primary subsystem" 027f 01cc | | Execute Vector,Catenate 0280 840d | | Call 0x2,0xd 0281 00db | | Load_Top At_Offset_3 0282 e00e | | Load 0x0,0xe 0283 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0284 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0285 c60b | | Store 0x3,0xb 0286 00c9 | | Action Pop_Auxiliary_Loop 0287 00db | | Load_Top At_Offset_3 0288 e00e | | Load 0x0,0xe 0289 1b13 | | Execute Package,Field_Read,Field_Number 0x13 028a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 028b 6f93 |o | Jump_Zero 0x21f 028c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 02a0 | | .CONST 0x02a0 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0004 | | .CONST 0x0004 ; Number of locals 0293 INIT_0290: 0293 e00e | | Load 0x0,0xe 0294 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0295 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0296 02c7 | | Declare_Variable Any 0297 00d8 | | Load_Top At_Offset_0 0298 1c00 | | Execute_Immediate Run_Utility,0x0 0299 e00e | | Load 0x0,0xe 029a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 029b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029c 02c7 | | Declare_Variable Any 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f 00e1 | | Load_Encached Boolean_Cache 02a0 BODY_0290: 02a0 00e1 | | Load_Encached Boolean_Cache 02a1 00db | | Load_Top At_Offset_3 02a2 e5ff | | Load 0x2,-0x1 02a3 8413 | | Call 0x2,0x13 02a4 c602 | | Store 0x3,0x2 02a5 0059 | Y | Store_Top Discrete,At_Offset_1 02a6 00d8 | | Load_Top At_Offset_0 02a7 7001 |p | Jump_Nonzero 0x2a9 02a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a9 00e1 | | Load_Encached Boolean_Cache 02aa 00da | | Load_Top At_Offset_2 02ab e5fe | | Load 0x2,-0x2 02ac 8413 | | Call 0x2,0x13 02ad c603 | | Store 0x3,0x3 02ae 0059 | Y | Store_Top Discrete,At_Offset_1 02af 00d8 | | Load_Top At_Offset_0 02b0 7001 |p | Jump_Nonzero 0x2b2 02b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b2 00d9 | | Load_Top At_Offset_1 02b3 00db | | Load_Top At_Offset_3 02b4 8415 | | Call 0x2,0x15 02b5 00da | | Load_Top At_Offset_2 02b6 8414 | | Call 0x2,0x14 02b7 c602 | | Store 0x3,0x2 02b8 00d9 | | Load_Top At_Offset_1 02b9 8414 | | Call 0x2,0x14 02ba c603 | | Store 0x3,0x3 02bb e402 | | Load 0x2,0x2 02bc 6801 |h | Jump_Zero 0x2be 02bd 840e | | Call 0x2,0xe 02be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 0092 07f6 | | Action Push_String_Extended,0x7f6 ; "State.Compatibility.Declaration_Numbers." 02c5 00db | | Load_Top At_Offset_3 02c6 e003 | | Load 0x0,0x3 02c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c8 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 02c9 01cc | | Execute Vector,Catenate 02ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02cb 0000 0000 | | .BLANK 0000[0x5] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 0301 | | .CONST 0x0301 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 000c | | .CONST 0x000c ; Number of locals 02d3 INIT_02d0: 02d3 00db | | Load_Top At_Offset_3 02d4 e00e | | Load 0x0,0xe 02d5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02d6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02d7 00db | | Load_Top At_Offset_3 02d8 e00e | | Load 0x0,0xe 02d9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02da 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02db e7fe | | Load 0x3,-0x2 02dc e00e | | Load 0x0,0xe 02dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02de 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02df e7ff | | Load 0x3,-0x1 02e0 e00e | | Load 0x0,0xe 02e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02e2 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02e3 e7fe | | Load 0x3,-0x2 02e4 e00e | | Load 0x0,0xe 02e5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02e6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02e7 e7ff | | Load 0x3,-0x1 02e8 e00e | | Load 0x0,0xe 02e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02ea 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02eb e7fe | | Load 0x3,-0x2 02ec e00e | | Load 0x0,0xe 02ed 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02ee 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02ef e00e | | Load 0x0,0xe 02f0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02f1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f2 e00e | | Load 0x0,0xe 02f3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f5 e00e | | Load 0x0,0xe 02f6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02f7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 02f8 02c7 | | Declare_Variable Any 02f9 00d8 | | Load_Top At_Offset_0 02fa 1c00 | | Execute_Immediate Run_Utility,0x0 02fb e00e | | Load 0x0,0xe 02fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02fe 02c7 | | Declare_Variable Any 02ff 00d8 | | Load_Top At_Offset_0 0300 1c00 | | Execute_Immediate Run_Utility,0x0 0301 BODY_02d0: 0301 00be | | Action Activate_Tasks 0302 e602 | | Load 0x3,0x2 0303 0e01 | | Execute_Immediate Not_Equal,0x1 0304 6804 |h | Jump_Zero 0x309 0305 e7fc | | Load 0x3,-0x4 0306 0092 07f7 | | Action Push_String_Extended,0x7f7 ; "Subsystem mode is not secondary" 0308 840f | | Call 0x2,0xf 0309 e604 | | Load 0x3,0x4 030a e603 | | Load 0x3,0x3 030b 027e | ~ | Execute Discrete,Not_Equal 030c 6810 |h | Jump_Zero 0x31d 030d e7fc | | Load 0x3,-0x4 030e 0092 07ec | | Action Push_String_Extended,0x7ec ; "Subsystem ID " 0310 e604 | | Load 0x3,0x4 0311 8219 | | Call 0x1,0x19 0312 01cc | | Execute Vector,Catenate 0313 0092 07f8 | | Action Push_String_Extended,0x7f8 ; " does not match Subsystem ID " 0315 01cc | | Execute Vector,Catenate 0316 e603 | | Load 0x3,0x3 0317 8219 | | Call 0x1,0x19 0318 01cc | | Execute Vector,Catenate 0319 0092 07f9 | | Action Push_String_Extended,0x7f9 ; " in declaration map for the primary subsystem" 031b 01cc | | Execute Vector,Catenate 031c 840f | | Call 0x2,0xf 031d e606 | | Load 0x3,0x6 031e e605 | | Load 0x3,0x5 031f 027d | } | Execute Discrete,Greater 0320 6810 |h | Jump_Zero 0x331 0321 e7fc | | Load 0x3,-0x4 0322 0092 07ef | | Action Push_String_Extended,0x7ef ; "Generation number " 0324 e606 | | Load 0x3,0x6 0325 8218 | | Call 0x1,0x18 0326 01cc | | Execute Vector,Catenate 0327 0092 07f0 | | Action Push_String_Extended,0x7f0 ; " is greater than generation number " 0329 01cc | | Execute Vector,Catenate 032a e605 | | Load 0x3,0x5 032b 8218 | | Call 0x1,0x18 032c 01cc | | Execute Vector,Catenate 032d 0092 07f9 | | Action Push_String_Extended,0x7f9 ; " in declaration map for the primary subsystem" 032f 01cc | | Execute Vector,Catenate 0330 840f | | Call 0x2,0xf 0331 e608 | | Load 0x3,0x8 0332 e607 | | Load 0x3,0x7 0333 027d | } | Execute Discrete,Greater 0334 6810 |h | Jump_Zero 0x345 0335 e7fc | | Load 0x3,-0x4 0336 0092 07fa | | Action Push_String_Extended,0x7fa ; "Last decl number " 0338 e608 | | Load 0x3,0x8 0339 821a | | Call 0x1,0x1a 033a 01cc | | Execute Vector,Catenate 033b 0092 07fb | | Action Push_String_Extended,0x7fb ; " is greater than last declaration number " 033d 01cc | | Execute Vector,Catenate 033e e607 | | Load 0x3,0x7 033f 821a | | Call 0x1,0x1a 0340 01cc | | Execute Vector,Catenate 0341 0092 07f9 | | Action Push_String_Extended,0x7f9 ; " in declaration map for the primary subsystem" 0343 01cc | | Execute Vector,Catenate 0344 840f | | Call 0x2,0xf 0345 00d9 | | Load_Top At_Offset_1 0346 e7fe | | Load 0x3,-0x2 0347 e00e | | Load 0x0,0xe 0348 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0349 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 034a c60b | | Store 0x3,0xb 034b 00cf | | Action Mark_Auxiliary 034c 785c |x\ | Jump 0x3a9 034d 00da | | Load_Top At_Offset_2 034e e00e | | Load 0x0,0xe 034f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0350 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0351 a60a | | Store_Unchecked 0x3,0xa 0352 00d9 | | Load_Top At_Offset_1 0353 0120 | | Execute Any,Is_Value 0354 6804 |h | Jump_Zero 0x359 0355 e00e | | Load 0x0,0xe 0356 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0357 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0358 7801 |x | Jump 0x35a 0359 00d9 | | Load_Top At_Offset_1 035a e00e | | Load 0x0,0xe 035b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 035c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 035d e60b | | Load 0x3,0xb 035e e00e | | Load 0x0,0xe 035f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0360 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0361 e7ff | | Load 0x3,-0x1 0362 e00e | | Load 0x0,0xe 0363 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0364 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0365 c609 | | Store 0x3,0x9 0366 c60c | | Store 0x3,0xc 0367 00d9 | | Load_Top At_Offset_1 0368 e00e | | Load 0x0,0xe 0369 1b14 | | Execute Package,Field_Read,Field_Number 0x14 036a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 036b 4611 |F | Jump_Case 0x12 036c 7817 |x | Jump 0x384 ; case 0x0 036d 7810 |x | Jump 0x37e ; case 0x1 036e 780f |x | Jump 0x37e ; case 0x2 036f 780e |x | Jump 0x37e ; case 0x3 0370 780d |x | Jump 0x37e ; case 0x4 0371 780c |x | Jump 0x37e ; case 0x5 0372 7826 |x& | Jump 0x399 ; case 0x6 0373 780a |x | Jump 0x37e ; case 0x7 0374 7809 |x | Jump 0x37e ; case 0x8 0375 7808 |x | Jump 0x37e ; case 0x9 0376 7807 |x | Jump 0x37e ; case 0xa 0377 7806 |x | Jump 0x37e ; case 0xb 0378 7805 |x | Jump 0x37e ; case 0xc 0379 7804 |x | Jump 0x37e ; case 0xd 037a 7803 |x | Jump 0x37e ; case 0xe 037b 7802 |x | Jump 0x37e ; case 0xf 037c 7801 |x | Jump 0x37e ; case 0x10 037d 7800 |x | Jump 0x37e ; case 0x11 037e 00d9 | | Load_Top At_Offset_1 037f e00e | | Load 0x0,0xe 0380 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0381 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0382 840b | | Call 0x2,0xb 0383 781f |x | Jump 0x3a3 0384 00db | | Load_Top At_Offset_3 0385 e609 | | Load 0x3,0x9 0386 027f | | Execute Discrete,Equal 0387 701b |p | Jump_Nonzero 0x3a3 0388 e7fc | | Load 0x3,-0x4 0389 0092 07fc | | Action Push_String_Extended,0x7fc ; "Declaration number " 038b e60a | | Load 0x3,0xa 038c 821a | | Call 0x1,0x1a 038d 01cc | | Execute Vector,Catenate 038e 0092 07fd | | Action Push_String_Extended,0x7fd ; " conflicts with declaration number " 0390 01cc | | Execute Vector,Catenate 0391 e609 | | Load 0x3,0x9 0392 821a | | Call 0x1,0x1a 0393 01cc | | Execute Vector,Catenate 0394 0092 07f9 | | Action Push_String_Extended,0x7f9 ; " in declaration map for the primary subsystem" 0396 01cc | | Execute Vector,Catenate 0397 840f | | Call 0x2,0xf 0398 780a |x | Jump 0x3a3 0399 e7fc | | Load 0x3,-0x4 039a 0092 07fc | | Action Push_String_Extended,0x7fc ; "Declaration number " 039c e60a | | Load 0x3,0xa 039d 821a | | Call 0x1,0x1a 039e 01cc | | Execute Vector,Catenate 039f 0092 07fe | | Action Push_String_Extended,0x7fe ; " is not defined in the declaration map for the primary subsystem" 03a1 01cc | | Execute Vector,Catenate 03a2 840f | | Call 0x2,0xf 03a3 00da | | Load_Top At_Offset_2 03a4 e00e | | Load 0x0,0xe 03a5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03a6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03a7 c60b | | Store 0x3,0xb 03a8 00c9 | | Action Pop_Auxiliary_Loop 03a9 00da | | Load_Top At_Offset_2 03aa e00e | | Load 0x0,0xe 03ab 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03ac 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03ad 6f9f |o | Jump_Zero 0x34d 03ae 00ce | | Action Pop_Auxiliary 03af e403 | | Load 0x2,0x3 03b0 6802 |h | Jump_Zero 0x3b3 03b1 e7fc | | Load 0x3,-0x4 03b2 8410 | | Call 0x2,0x10 03b3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03cd | | .CONST 0x03cd ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0004 | | .CONST 0x0004 ; Number of locals 03bb INIT_03b8: 03bb e00e | | Load 0x0,0xe 03bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03be 02c7 | | Declare_Variable Any 03bf 00d8 | | Load_Top At_Offset_0 03c0 1c00 | | Execute_Immediate Run_Utility,0x0 03c1 e00e | | Load 0x0,0xe 03c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c4 02c7 | | Declare_Variable Any 03c5 00d8 | | Load_Top At_Offset_0 03c6 1c00 | | Execute_Immediate Run_Utility,0x0 03c7 e00e | | Load 0x0,0xe 03c8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ca 02c7 | | Declare_Variable Any 03cb 00d8 | | Load_Top At_Offset_0 03cc 1c00 | | Execute_Immediate Run_Utility,0x0 03cd BODY_03b8: 03cd 00d8 | | Load_Top At_Offset_0 03ce 0120 | | Execute Any,Is_Value 03cf 6804 |h | Jump_Zero 0x3d4 03d0 e00e | | Load 0x0,0xe 03d1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d3 7801 |x | Jump 0x3d5 03d4 00d8 | | Load_Top At_Offset_0 03d5 00db | | Load_Top At_Offset_3 03d6 4800 |H | Short_Literal 0x0 03d7 e00b | | Load 0x0,0xb 03d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d9 e7ff | | Load 0x3,-0x1 03da e00e | | Load 0x0,0xe 03db 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03dc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03dd c602 | | Store 0x3,0x2 03de c604 | | Store 0x3,0x4 03df 00d8 | | Load_Top At_Offset_0 03e0 e00e | | Load 0x0,0xe 03e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03e2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03e3 7006 |p | Jump_Nonzero 0x3ea 03e4 00d8 | | Load_Top At_Offset_0 03e5 e00e | | Load 0x0,0xe 03e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03e8 840b | | Call 0x2,0xb 03e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03ea 00d8 | | Load_Top At_Offset_0 03eb 0120 | | Execute Any,Is_Value 03ec 6804 |h | Jump_Zero 0x3f1 03ed e00e | | Load 0x0,0xe 03ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f0 7801 |x | Jump 0x3f2 03f1 00d8 | | Load_Top At_Offset_0 03f2 00da | | Load_Top At_Offset_2 03f3 4800 |H | Short_Literal 0x0 03f4 e00b | | Load 0x0,0xb 03f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f6 e7fe | | Load 0x3,-0x2 03f7 e00e | | Load 0x0,0xe 03f8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03f9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03fa c603 | | Store 0x3,0x3 03fb c604 | | Store 0x3,0x4 03fc 00d8 | | Load_Top At_Offset_0 03fd e00e | | Load 0x0,0xe 03fe 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0400 7006 |p | Jump_Nonzero 0x407 0401 00d8 | | Load_Top At_Offset_0 0402 e00e | | Load 0x0,0xe 0403 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0404 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0405 840b | | Call 0x2,0xb 0406 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0407 e7fe | | Load 0x3,-0x2 0408 e7ff | | Load 0x3,-0x1 0409 00db | | Load_Top At_Offset_3 040a e602 | | Load 0x3,0x2 040b 8418 | | Call 0x2,0x18 040c 00d8 | | Load_Top At_Offset_0 040d 0120 | | Execute Any,Is_Value 040e 6804 |h | Jump_Zero 0x413 040f e00e | | Load 0x0,0xe 0410 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0411 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0412 7801 |x | Jump 0x414 0413 00d8 | | Load_Top At_Offset_0 0414 00db | | Load_Top At_Offset_3 0415 e00e | | Load 0x0,0xe 0416 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0417 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0418 c602 | | Store 0x3,0x2 0419 c604 | | Store 0x3,0x4 041a 00d8 | | Load_Top At_Offset_0 041b e00e | | Load 0x0,0xe 041c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 041d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 041e 7005 |p | Jump_Nonzero 0x424 041f 00d8 | | Load_Top At_Offset_0 0420 e00e | | Load 0x0,0xe 0421 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0422 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0423 840b | | Call 0x2,0xb 0424 00d8 | | Load_Top At_Offset_0 0425 0120 | | Execute Any,Is_Value 0426 6804 |h | Jump_Zero 0x42b 0427 e00e | | Load 0x0,0xe 0428 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0429 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042a 7801 |x | Jump 0x42c 042b 00d8 | | Load_Top At_Offset_0 042c 00da | | Load_Top At_Offset_2 042d e00e | | Load 0x0,0xe 042e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 042f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0430 c603 | | Store 0x3,0x3 0431 c604 | | Store 0x3,0x4 0432 00d8 | | Load_Top At_Offset_0 0433 e00e | | Load 0x0,0xe 0434 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0435 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0436 7005 |p | Jump_Nonzero 0x43c 0437 00d8 | | Load_Top At_Offset_0 0438 e00e | | Load 0x0,0xe 0439 1b14 | | Execute Package,Field_Read,Field_Number 0x14 043a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 043b 840b | | Call 0x2,0xb 043c e403 | | Load 0x2,0x3 043d 6802 |h | Jump_Zero 0x440 043e e7fe | | Load 0x3,-0x2 043f 8410 | | Call 0x2,0x10 0440 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0441 0000 0000 | | .BLANK 0000[0x7] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 045a | Z | .CONST 0x045a ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0006 | | .CONST 0x0006 ; Number of locals 044b INIT_0448: 044b 00da | | Load_Top At_Offset_2 044c 8417 | | Call 0x2,0x17 044d e003 | | Load 0x0,0x3 044e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 044f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0450 e003 | | Load 0x0,0x3 0451 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0452 02c7 | | Declare_Variable Any 0453 00d8 | | Load_Top At_Offset_0 0454 1c00 | | Execute_Immediate Run_Utility,0x0 0455 e003 | | Load 0x0,0x3 0456 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0457 e003 | | Load 0x0,0x3 0458 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0459 1b0f | | Execute Package,Field_Read,Field_Number 0xf 045a BODY_0448: 045a e003 | | Load 0x0,0x3 045b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 045c e003 | | Load 0x0,0x3 045d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 045e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 045f 605c |`\ | Indirect_Literal Discrete,0x4bc,{0x00000000, 0x00004000} 0460 e00b | | Load 0x0,0xb 0461 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0462 4800 |H | Short_Literal 0x0 0463 e5ff | | Load 0x2,-0x1 0464 e003 | | Load 0x0,0x3 0465 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0466 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0467 c603 | | Store 0x3,0x3 0468 005a | Z | Store_Top Discrete,At_Offset_2 0469 00d9 | | Load_Top At_Offset_1 046a 821b | | Call 0x1,0x1b 046b 700b |p | Jump_Nonzero 0x477 046c e5ff | | Load 0x2,-0x1 046d 0092 07ff | | Action Push_String_Extended,0x7ff ; "Could not get map context for <1>: " 046f 00db | | Load_Top At_Offset_3 0470 e003 | | Load 0x0,0x3 0471 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0472 011c | | Execute Any,Convert_Unchecked 0473 1c01 | | Execute_Immediate Run_Utility,0x1 0474 01cc | | Execute Vector,Catenate 0475 840c | | Call 0x2,0xc 0476 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0477 e003 | | Load 0x0,0x3 0478 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0479 1b0f | | Execute Package,Field_Read,Field_Number 0xf 047a 00db | | Load_Top At_Offset_3 047b 0120 | | Execute Any,Is_Value 047c 6803 |h | Jump_Zero 0x480 047d e003 | | Load 0x0,0x3 047e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 047f 7801 |x | Jump 0x481 0480 00db | | Load_Top At_Offset_3 0481 603a |`: | Indirect_Literal Discrete,0x4bc,{0x00000000, 0x00004000} 0482 e00b | | Load 0x0,0xb 0483 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0484 e603 | | Load 0x3,0x3 0485 e602 | | Load 0x3,0x2 0486 e003 | | Load 0x0,0x3 0487 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0488 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0489 c604 | | Store 0x3,0x4 048a 0059 | Y | Store_Top Discrete,At_Offset_1 048b 00d8 | | Load_Top At_Offset_0 048c 460e |F | Jump_Case 0xf 048d 7822 |x" | Jump 0x4b0 ; case 0x0 048e 780d |x | Jump 0x49c ; case 0x1 048f 780c |x | Jump 0x49c ; case 0x2 0490 7823 |x# | Jump 0x4b4 ; case 0x3 0491 780a |x | Jump 0x49c ; case 0x4 0492 7809 |x | Jump 0x49c ; case 0x5 0493 7808 |x | Jump 0x49c ; case 0x6 0494 7807 |x | Jump 0x49c ; case 0x7 0495 7806 |x | Jump 0x49c ; case 0x8 0496 7805 |x | Jump 0x49c ; case 0x9 0497 7804 |x | Jump 0x49c ; case 0xa 0498 7803 |x | Jump 0x49c ; case 0xb 0499 7802 |x | Jump 0x49c ; case 0xc 049a 7801 |x | Jump 0x49c ; case 0xd 049b 7800 |x | Jump 0x49c ; case 0xe 049c 0092 0800 | | Action Push_String_Extended,0x800 ; "Could not find declaration map in primary susystem because " 049e 601d |` | Indirect_Literal Discrete,0x4bc,{0x00000000, 0x00004000} 049f e00b | | Load 0x0,0xb 04a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04a1 e00c | | Load 0x0,0xc 04a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04a3 e00d | | Load 0x0,0xd 04a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04a5 4801 |H | Short_Literal 0x1 04a6 4800 |H | Short_Literal 0x0 04a7 e603 | | Load 0x3,0x3 04a8 e602 | | Load 0x3,0x2 04a9 e606 | | Load 0x3,0x6 04aa e003 | | Load 0x0,0x3 04ab 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ac 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 04ad 01cc | | Execute Vector,Catenate 04ae 840b | | Call 0x2,0xb 04af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b0 e7ff | | Load 0x3,-0x1 04b1 00db | | Load_Top At_Offset_3 04b2 8419 | | Call 0x2,0x19 04b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b4 e7ff | | Load 0x3,-0x1 04b5 0092 0801 | | Action Push_String_Extended,0x801 ; "Declaration map not found in primary subsystem" 04b7 840f | | Call 0x2,0xf 04b8 e7ff | | Load 0x3,-0x1 04b9 8410 | | Call 0x2,0x10 04ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04bb 0000 | | .XXX[0x1] 04bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04d6 | | .CONST 0x04d6 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0005 | | .CONST 0x0005 ; Number of locals 04c3 INIT_04c0: 04c3 e003 | | Load 0x0,0x3 04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c5 02c7 | | Declare_Variable Any 04c6 00d8 | | Load_Top At_Offset_0 04c7 1c00 | | Execute_Immediate Run_Utility,0x0 04c8 e003 | | Load 0x0,0x3 04c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ca 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04cb 02c7 | | Declare_Variable Any 04cc 00d8 | | Load_Top At_Offset_0 04cd 1c00 | | Execute_Immediate Run_Utility,0x0 04ce e003 | | Load 0x0,0x3 04cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d0 e00e | | Load 0x0,0xe 04d1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04d3 02c7 | | Declare_Variable Any 04d4 00d8 | | Load_Top At_Offset_0 04d5 1c00 | | Execute_Immediate Run_Utility,0x0 04d6 BODY_04c0: 04d6 00d8 | | Load_Top At_Offset_0 04d7 0120 | | Execute Any,Is_Value 04d8 6804 |h | Jump_Zero 0x4dd 04d9 e00e | | Load 0x0,0xe 04da 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04dc 7801 |x | Jump 0x4de 04dd 00d8 | | Load_Top At_Offset_0 04de 00db | | Load_Top At_Offset_3 04df 0120 | | Execute Any,Is_Value 04e0 6804 |h | Jump_Zero 0x4e5 04e1 e003 | | Load 0x0,0x3 04e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04e3 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04e4 7801 |x | Jump 0x4e6 04e5 00db | | Load_Top At_Offset_3 04e6 e00b | | Load 0x0,0xb 04e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04e8 e5fe | | Load 0x2,-0x2 04e9 e00e | | Load 0x0,0xe 04ea 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04ec c603 | | Store 0x3,0x3 04ed c605 | | Store 0x3,0x5 04ee 00d8 | | Load_Top At_Offset_0 04ef e00e | | Load 0x0,0xe 04f0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04f2 7006 |p | Jump_Nonzero 0x4f9 04f3 00d8 | | Load_Top At_Offset_0 04f4 e00e | | Load 0x0,0xe 04f5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04f7 840b | | Call 0x2,0xb 04f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f9 00cf | | Action Mark_Auxiliary 04fa 782c |x, | Jump 0x527 04fb e003 | | Load 0x0,0x3 04fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04fd e602 | | Load 0x3,0x2 04fe 0120 | | Execute Any,Is_Value 04ff 6803 |h | Jump_Zero 0x503 0500 e003 | | Load 0x0,0x3 0501 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0502 7801 |x | Jump 0x504 0503 e602 | | Load 0x3,0x2 0504 e603 | | Load 0x3,0x3 0505 e003 | | Load 0x0,0x3 0506 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0507 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0508 c602 | | Store 0x3,0x2 0509 005b | [ | Store_Top Discrete,At_Offset_3 050a 00da | | Load_Top At_Offset_2 050b 821b | | Call 0x1,0x1b 050c 7012 |p | Jump_Nonzero 0x51f 050d 0092 0802 | | Action Push_String_Extended,0x802 ; "Could not get declaration map for " 050f e603 | | Load 0x3,0x3 0510 e003 | | Load 0x0,0x3 0511 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0512 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0513 01cc | | Execute Vector,Catenate 0514 0092 0803 | | Action Push_String_Extended,0x803 ; ": " 0516 01cc | | Execute Vector,Catenate 0517 00db | | Load_Top At_Offset_3 0518 e003 | | Load 0x0,0x3 0519 1b0d | | Execute Package,Field_Read,Field_Number 0xd 051a 011c | | Execute Any,Convert_Unchecked 051b 1c01 | | Execute_Immediate Run_Utility,0x1 051c 01cc | | Execute Vector,Catenate 051d 840b | | Call 0x2,0xb 051e 7802 |x | Jump 0x521 051f e602 | | Load 0x3,0x2 0520 841a | | Call 0x2,0x1a 0521 00db | | Load_Top At_Offset_3 0522 e003 | | Load 0x0,0x3 0523 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0524 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0525 c603 | | Store 0x3,0x3 0526 00c9 | | Action Pop_Auxiliary_Loop 0527 00db | | Load_Top At_Offset_3 0528 e003 | | Load 0x0,0x3 0529 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 052a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 052b 6fcf |o | Jump_Zero 0x4fb 052c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 052d 0000 0000 | | .XXX[0x3] 052f 0000 | | 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 0092 0804 | | Action Push_String_Extended,0x804 ; "State.Compatibility.Offsets." 0535 00db | | Load_Top At_Offset_3 0536 e003 | | Load 0x0,0x3 0537 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0538 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0539 01cc | | Execute Vector,Catenate 053a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 053b 0000 0000 | | .BLANK 0000[0x5] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 054c | L | .CONST 0x054c ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0003 | | .CONST 0x0003 ; Number of locals 0543 INIT_0540: 0543 e00e | | Load 0x0,0xe 0544 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0545 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0546 e00e | | Load 0x0,0xe 0547 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0548 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0549 02c7 | | Declare_Variable Any 054a 00d8 | | Load_Top At_Offset_0 054b 1c00 | | Execute_Immediate Run_Utility,0x0 054c BODY_0540: 054c e7fd | | Load 0x3,-0x3 054d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 054e 7004 |p | Jump_Nonzero 0x553 054f e7fd | | Load 0x3,-0x3 0550 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0551 6801 |h | Jump_Zero 0x553 0552 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0553 00d8 | | Load_Top At_Offset_0 0554 0120 | | Execute Any,Is_Value 0555 6804 |h | Jump_Zero 0x55a 0556 e00e | | Load 0x0,0xe 0557 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0558 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0559 7801 |x | Jump 0x55b 055a 00d8 | | Load_Top At_Offset_0 055b e00e | | Load 0x0,0xe 055c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 055d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 055e e7fd | | Load 0x3,-0x3 055f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0560 e7fd | | Load 0x3,-0x3 0561 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0562 e7fd | | Load 0x3,-0x3 0563 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0564 e7ff | | Load 0x3,-0x1 0565 e00e | | Load 0x0,0xe 0566 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0567 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0568 005b | [ | Store_Top Discrete,At_Offset_3 0569 c603 | | Store 0x3,0x3 056a 00d8 | | Load_Top At_Offset_0 056b e00e | | Load 0x0,0xe 056c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 056d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 056e 4611 |F | Jump_Case 0x12 056f 7817 |x | Jump 0x587 ; case 0x0 0570 7810 |x | Jump 0x581 ; case 0x1 0571 780f |x | Jump 0x581 ; case 0x2 0572 780e |x | Jump 0x581 ; case 0x3 0573 780d |x | Jump 0x581 ; case 0x4 0574 780c |x | Jump 0x581 ; case 0x5 0575 784c |xL | Jump 0x5c2 ; case 0x6 0576 780a |x | Jump 0x581 ; case 0x7 0577 7809 |x | Jump 0x581 ; case 0x8 0578 7808 |x | Jump 0x581 ; case 0x9 0579 7807 |x | Jump 0x581 ; case 0xa 057a 7806 |x | Jump 0x581 ; case 0xb 057b 7805 |x | Jump 0x581 ; case 0xc 057c 7804 |x | Jump 0x581 ; case 0xd 057d 7803 |x | Jump 0x581 ; case 0xe 057e 7802 |x | Jump 0x581 ; case 0xf 057f 7801 |x | Jump 0x581 ; case 0x10 0580 7800 |x | Jump 0x581 ; case 0x11 0581 00d8 | | Load_Top At_Offset_0 0582 e00e | | Load 0x0,0xe 0583 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0584 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0585 840b | | Call 0x2,0xb 0586 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0587 e7fd | | Load 0x3,-0x3 0588 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0589 701c |p | Jump_Nonzero 0x5a6 058a e7fc | | Load 0x3,-0x4 058b 00da | | Load_Top At_Offset_2 058c 027d | } | Execute Discrete,Greater 058d 6850 |hP | Jump_Zero 0x5de 058e e7fe | | Load 0x3,-0x2 058f 0092 0805 | | Action Push_String_Extended,0x805 ; "Next offset " 0591 e7fc | | Load 0x3,-0x4 0592 8218 | | Call 0x1,0x18 0593 01cc | | Execute Vector,Catenate 0594 0092 0806 | | Action Push_String_Extended,0x806 ; " for declaration " 0596 01cc | | Execute Vector,Catenate 0597 e7fd | | Load 0x3,-0x3 0598 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0599 821a | | Call 0x1,0x1a 059a 01cc | | Execute Vector,Catenate 059b 0092 0807 | | Action Push_String_Extended,0x807 ; " is greater than next offset " 059d 01cc | | Execute Vector,Catenate 059e 00db | | Load_Top At_Offset_3 059f 8218 | | Call 0x1,0x18 05a0 01cc | | Execute Vector,Catenate 05a1 0092 0808 | | Action Push_String_Extended,0x808 ; " in offset map for the primary subsystem" 05a3 01cc | | Execute Vector,Catenate 05a4 8411 | | Call 0x2,0x11 05a5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05a6 e7fc | | Load 0x3,-0x4 05a7 00da | | Load_Top At_Offset_2 05a8 027e | ~ | Execute Discrete,Not_Equal 05a9 6834 |h4 | Jump_Zero 0x5de 05aa e7fe | | Load 0x3,-0x2 05ab 0092 0809 | | Action Push_String_Extended,0x809 ; "Offset " 05ad e7fc | | Load 0x3,-0x4 05ae 8218 | | Call 0x1,0x18 05af 01cc | | Execute Vector,Catenate 05b0 0092 0806 | | Action Push_String_Extended,0x806 ; " for declaration " 05b2 01cc | | Execute Vector,Catenate 05b3 e7fd | | Load 0x3,-0x3 05b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05b5 821a | | Call 0x1,0x1a 05b6 01cc | | Execute Vector,Catenate 05b7 0092 080a | | Action Push_String_Extended,0x80a ; " does not match offset " 05b9 01cc | | Execute Vector,Catenate 05ba 00db | | Load_Top At_Offset_3 05bb 8218 | | Call 0x1,0x18 05bc 01cc | | Execute Vector,Catenate 05bd 0092 0808 | | Action Push_String_Extended,0x808 ; " in offset map for the primary subsystem" 05bf 01cc | | Execute Vector,Catenate 05c0 8411 | | Call 0x2,0x11 05c1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05c2 e7fd | | Load 0x3,-0x3 05c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05c4 700e |p | Jump_Nonzero 0x5d3 05c5 e7fe | | Load 0x3,-0x2 05c6 0092 080b | | Action Push_String_Extended,0x80b ; "Next offset for declaration " 05c8 e7fd | | Load 0x3,-0x3 05c9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ca 821a | | Call 0x1,0x1a 05cb 01cc | | Execute Vector,Catenate 05cc 0092 080c | | Action Push_String_Extended,0x80c ; " is not defined in offset map for the primary subsystem" 05ce 01cc | | Execute Vector,Catenate 05cf 8411 | | Call 0x2,0x11 05d0 4800 |H | Short_Literal 0x0 05d1 a5fc | | Store_Unchecked 0x2,-0x4 05d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05d3 e7fe | | Load 0x3,-0x2 05d4 0092 080d | | Action Push_String_Extended,0x80d ; "Offset for declaration " 05d6 e7fd | | Load 0x3,-0x3 05d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d8 821a | | Call 0x1,0x1a 05d9 01cc | | Execute Vector,Catenate 05da 0092 080c | | Action Push_String_Extended,0x80c ; " is not defined in offset map for the primary subsystem" 05dc 01cc | | Execute Vector,Catenate 05dd 8411 | | Call 0x2,0x11 05de 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05df 0000 | | .XXX[0x1] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 060d | | .CONST 0x060d ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 000b | | .CONST 0x000b ; Number of locals 05e3 INIT_05e0: 05e3 00db | | Load_Top At_Offset_3 05e4 e00e | | Load 0x0,0xe 05e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05e6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05e7 00db | | Load_Top At_Offset_3 05e8 e00e | | Load 0x0,0xe 05e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05ea 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 05eb e7fe | | Load 0x3,-0x2 05ec e00e | | Load 0x0,0xe 05ed 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05ee 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 05ef e7ff | | Load 0x3,-0x1 05f0 e00e | | Load 0x0,0xe 05f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05f2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 05f3 e7fe | | Load 0x3,-0x2 05f4 e00e | | Load 0x0,0xe 05f5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05f6 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 05f7 e00e | | Load 0x0,0xe 05f8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05f9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05fa e00e | | Load 0x0,0xe 05fb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05fc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05fd e00e | | Load 0x0,0xe 05fe 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05ff 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0600 0322 | " | Declare_Variable Record 0601 e00e | | Load 0x0,0xe 0602 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0603 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0604 02c7 | | Declare_Variable Any 0605 00d8 | | Load_Top At_Offset_0 0606 1c00 | | Execute_Immediate Run_Utility,0x0 0607 e00e | | Load 0x0,0xe 0608 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0609 1b0e | | Execute Package,Field_Read,Field_Number 0xe 060a 02c7 | | Declare_Variable Any 060b 00d8 | | Load_Top At_Offset_0 060c 1c00 | | Execute_Immediate Run_Utility,0x0 060d BODY_05e0: 060d 00be | | Action Activate_Tasks 060e e602 | | Load 0x3,0x2 060f 0e01 | | Execute_Immediate Not_Equal,0x1 0610 6804 |h | Jump_Zero 0x615 0611 e7fc | | Load 0x3,-0x4 0612 0092 07f7 | | Action Push_String_Extended,0x7f7 ; "Subsystem mode is not secondary" 0614 8411 | | Call 0x2,0x11 0615 e604 | | Load 0x3,0x4 0616 e603 | | Load 0x3,0x3 0617 027e | ~ | Execute Discrete,Not_Equal 0618 6810 |h | Jump_Zero 0x629 0619 e7fc | | Load 0x3,-0x4 061a 0092 07ec | | Action Push_String_Extended,0x7ec ; "Subsystem ID " 061c e604 | | Load 0x3,0x4 061d 8219 | | Call 0x1,0x19 061e 01cc | | Execute Vector,Catenate 061f 0092 07f8 | | Action Push_String_Extended,0x7f8 ; " does not match Subsystem ID " 0621 01cc | | Execute Vector,Catenate 0622 e603 | | Load 0x3,0x3 0623 8219 | | Call 0x1,0x19 0624 01cc | | Execute Vector,Catenate 0625 0092 0808 | | Action Push_String_Extended,0x808 ; " in offset map for the primary subsystem" 0627 01cc | | Execute Vector,Catenate 0628 8411 | | Call 0x2,0x11 0629 e606 | | Load 0x3,0x6 062a e605 | | Load 0x3,0x5 062b 027d | } | Execute Discrete,Greater 062c 6810 |h | Jump_Zero 0x63d 062d e7fc | | Load 0x3,-0x4 062e 0092 07ef | | Action Push_String_Extended,0x7ef ; "Generation number " 0630 e606 | | Load 0x3,0x6 0631 8218 | | Call 0x1,0x18 0632 01cc | | Execute Vector,Catenate 0633 0092 07f0 | | Action Push_String_Extended,0x7f0 ; " is greater than generation number " 0635 01cc | | Execute Vector,Catenate 0636 e605 | | Load 0x3,0x5 0637 8218 | | Call 0x1,0x18 0638 01cc | | Execute Vector,Catenate 0639 0092 0808 | | Action Push_String_Extended,0x808 ; " in offset map for the primary subsystem" 063b 01cc | | Execute Vector,Catenate 063c 8411 | | Call 0x2,0x11 063d 00d9 | | Load_Top At_Offset_1 063e e7fe | | Load 0x3,-0x2 063f e00e | | Load 0x0,0xe 0640 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0641 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0642 c60a | | Store 0x3,0xa 0643 00cf | | Action Mark_Auxiliary 0644 7816 |x | Jump 0x65b 0645 00da | | Load_Top At_Offset_2 0646 e00e | | Load 0x0,0xe 0647 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0648 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0649 a608 | | Store_Unchecked 0x3,0x8 064a 00da | | Load_Top At_Offset_2 064b e00e | | Load 0x0,0xe 064c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 064d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 064e e609 | | Load 0x3,0x9 064f 017d | } | Execute Record,Structure_Write 0650 e608 | | Load 0x3,0x8 0651 e609 | | Load 0x3,0x9 0652 e7fc | | Load 0x3,-0x4 0653 e7ff | | Load 0x3,-0x1 0654 841d | | Call 0x2,0x1d 0655 00da | | Load_Top At_Offset_2 0656 e00e | | Load 0x0,0xe 0657 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0658 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0659 c60a | | Store 0x3,0xa 065a 00c9 | | Action Pop_Auxiliary_Loop 065b 00da | | Load_Top At_Offset_2 065c e00e | | Load 0x0,0xe 065d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 065e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 065f 6fe5 |o | Jump_Zero 0x645 0660 00ce | | Action Pop_Auxiliary 0661 e404 | | Load 0x2,0x4 0662 6802 |h | Jump_Zero 0x665 0663 e7fc | | Load 0x3,-0x4 0664 8412 | | Call 0x2,0x12 0665 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 067d | } | .CONST 0x067d ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0004 | | .CONST 0x0004 ; Number of locals 066b INIT_0668: 066b e00e | | Load 0x0,0xe 066c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 066d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 066e 02c7 | | Declare_Variable Any 066f 00d8 | | Load_Top At_Offset_0 0670 1c00 | | Execute_Immediate Run_Utility,0x0 0671 e00e | | Load 0x0,0xe 0672 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0673 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0674 02c7 | | Declare_Variable Any 0675 00d8 | | Load_Top At_Offset_0 0676 1c00 | | Execute_Immediate Run_Utility,0x0 0677 e00e | | Load 0x0,0xe 0678 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0679 1b0e | | Execute Package,Field_Read,Field_Number 0xe 067a 02c7 | | Declare_Variable Any 067b 00d8 | | Load_Top At_Offset_0 067c 1c00 | | Execute_Immediate Run_Utility,0x0 067d BODY_0668: 067d 00d8 | | Load_Top At_Offset_0 067e 0120 | | Execute Any,Is_Value 067f 6804 |h | Jump_Zero 0x684 0680 e00e | | Load 0x0,0xe 0681 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0682 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0683 7801 |x | Jump 0x685 0684 00d8 | | Load_Top At_Offset_0 0685 00db | | Load_Top At_Offset_3 0686 4800 |H | Short_Literal 0x0 0687 e00b | | Load 0x0,0xb 0688 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0689 e7ff | | Load 0x3,-0x1 068a e00e | | Load 0x0,0xe 068b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 068c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 068d c602 | | Store 0x3,0x2 068e c604 | | Store 0x3,0x4 068f 00d8 | | Load_Top At_Offset_0 0690 e00e | | Load 0x0,0xe 0691 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0692 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0693 7006 |p | Jump_Nonzero 0x69a 0694 00d8 | | Load_Top At_Offset_0 0695 e00e | | Load 0x0,0xe 0696 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0697 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0698 840b | | Call 0x2,0xb 0699 4503 |E | Exit_Suprogram New_Top_Offset 0x3 069a 00d8 | | Load_Top At_Offset_0 069b 0120 | | Execute Any,Is_Value 069c 6804 |h | Jump_Zero 0x6a1 069d e00e | | Load 0x0,0xe 069e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 069f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06a0 7801 |x | Jump 0x6a2 06a1 00d8 | | Load_Top At_Offset_0 06a2 00da | | Load_Top At_Offset_2 06a3 4800 |H | Short_Literal 0x0 06a4 e00b | | Load 0x0,0xb 06a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06a6 e7fe | | Load 0x3,-0x2 06a7 e00e | | Load 0x0,0xe 06a8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06a9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06aa c603 | | Store 0x3,0x3 06ab c604 | | Store 0x3,0x4 06ac 00d8 | | Load_Top At_Offset_0 06ad e00e | | Load 0x0,0xe 06ae 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06af 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06b0 7006 |p | Jump_Nonzero 0x6b7 06b1 00d8 | | Load_Top At_Offset_0 06b2 e00e | | Load 0x0,0xe 06b3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06b4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06b5 840b | | Call 0x2,0xb 06b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06b7 e7fe | | Load 0x3,-0x2 06b8 e7ff | | Load 0x3,-0x1 06b9 00db | | Load_Top At_Offset_3 06ba e602 | | Load 0x3,0x2 06bb 841e | | Call 0x2,0x1e 06bc 00d8 | | Load_Top At_Offset_0 06bd 0120 | | Execute Any,Is_Value 06be 6804 |h | Jump_Zero 0x6c3 06bf e00e | | Load 0x0,0xe 06c0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06c2 7801 |x | Jump 0x6c4 06c3 00d8 | | Load_Top At_Offset_0 06c4 00db | | Load_Top At_Offset_3 06c5 e00e | | Load 0x0,0xe 06c6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06c7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06c8 c602 | | Store 0x3,0x2 06c9 c604 | | Store 0x3,0x4 06ca 00d8 | | Load_Top At_Offset_0 06cb e00e | | Load 0x0,0xe 06cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06ce 7005 |p | Jump_Nonzero 0x6d4 06cf 00d8 | | Load_Top At_Offset_0 06d0 e00e | | Load 0x0,0xe 06d1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06d3 840b | | Call 0x2,0xb 06d4 00d8 | | Load_Top At_Offset_0 06d5 0120 | | Execute Any,Is_Value 06d6 6804 |h | Jump_Zero 0x6db 06d7 e00e | | Load 0x0,0xe 06d8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06da 7801 |x | Jump 0x6dc 06db 00d8 | | Load_Top At_Offset_0 06dc 00da | | Load_Top At_Offset_2 06dd e00e | | Load 0x0,0xe 06de 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06df 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06e0 c603 | | Store 0x3,0x3 06e1 c604 | | Store 0x3,0x4 06e2 00d8 | | Load_Top At_Offset_0 06e3 e00e | | Load 0x0,0xe 06e4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06e6 7005 |p | Jump_Nonzero 0x6ec 06e7 00d8 | | Load_Top At_Offset_0 06e8 e00e | | Load 0x0,0xe 06e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06eb 840b | | Call 0x2,0xb 06ec e404 | | Load 0x2,0x4 06ed 6802 |h | Jump_Zero 0x6f0 06ee e7fe | | Load 0x3,-0x2 06ef 8412 | | Call 0x2,0x12 06f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06f1 0000 0000 | | .BLANK 0000[0x7] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 070a | | .CONST 0x070a ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0006 | | .CONST 0x0006 ; Number of locals 06fb INIT_06f8: 06fb 00da | | Load_Top At_Offset_2 06fc 841c | | Call 0x2,0x1c 06fd e003 | | Load 0x0,0x3 06fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06ff 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0700 e003 | | Load 0x0,0x3 0701 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0702 02c7 | | Declare_Variable Any 0703 00d8 | | Load_Top At_Offset_0 0704 1c00 | | Execute_Immediate Run_Utility,0x0 0705 e003 | | Load 0x0,0x3 0706 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0707 e003 | | Load 0x0,0x3 0708 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0709 1b0f | | Execute Package,Field_Read,Field_Number 0xf 070a BODY_06f8: 070a e003 | | Load 0x0,0x3 070b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 070c e003 | | Load 0x0,0x3 070d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 070e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 070f 605c |`\ | Indirect_Literal Discrete,0x76c,{0x00000000, 0x00004000} 0710 e00b | | Load 0x0,0xb 0711 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0712 4800 |H | Short_Literal 0x0 0713 e5ff | | Load 0x2,-0x1 0714 e003 | | Load 0x0,0x3 0715 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0716 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0717 c603 | | Store 0x3,0x3 0718 005a | Z | Store_Top Discrete,At_Offset_2 0719 00d9 | | Load_Top At_Offset_1 071a 821b | | Call 0x1,0x1b 071b 700b |p | Jump_Nonzero 0x727 071c e5fe | | Load 0x2,-0x2 071d 0092 07ff | | Action Push_String_Extended,0x7ff ; "Could not get map context for <1>: " 071f 00db | | Load_Top At_Offset_3 0720 e003 | | Load 0x0,0x3 0721 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0722 011c | | Execute Any,Convert_Unchecked 0723 1c01 | | Execute_Immediate Run_Utility,0x1 0724 01cc | | Execute Vector,Catenate 0725 840c | | Call 0x2,0xc 0726 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0727 e003 | | Load 0x0,0x3 0728 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0729 1b0f | | Execute Package,Field_Read,Field_Number 0xf 072a 00db | | Load_Top At_Offset_3 072b 0120 | | Execute Any,Is_Value 072c 6803 |h | Jump_Zero 0x730 072d e003 | | Load 0x0,0x3 072e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 072f 7801 |x | Jump 0x731 0730 00db | | Load_Top At_Offset_3 0731 603a |`: | Indirect_Literal Discrete,0x76c,{0x00000000, 0x00004000} 0732 e00b | | Load 0x0,0xb 0733 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0734 e603 | | Load 0x3,0x3 0735 e602 | | Load 0x3,0x2 0736 e003 | | Load 0x0,0x3 0737 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0738 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0739 c604 | | Store 0x3,0x4 073a 0059 | Y | Store_Top Discrete,At_Offset_1 073b 00d8 | | Load_Top At_Offset_0 073c 460e |F | Jump_Case 0xf 073d 7822 |x" | Jump 0x760 ; case 0x0 073e 780d |x | Jump 0x74c ; case 0x1 073f 780c |x | Jump 0x74c ; case 0x2 0740 7823 |x# | Jump 0x764 ; case 0x3 0741 780a |x | Jump 0x74c ; case 0x4 0742 7809 |x | Jump 0x74c ; case 0x5 0743 7808 |x | Jump 0x74c ; case 0x6 0744 7807 |x | Jump 0x74c ; case 0x7 0745 7806 |x | Jump 0x74c ; case 0x8 0746 7805 |x | Jump 0x74c ; case 0x9 0747 7804 |x | Jump 0x74c ; case 0xa 0748 7803 |x | Jump 0x74c ; case 0xb 0749 7802 |x | Jump 0x74c ; case 0xc 074a 7801 |x | Jump 0x74c ; case 0xd 074b 7800 |x | Jump 0x74c ; case 0xe 074c 0092 080e | | Action Push_String_Extended,0x80e ; "Could not find offset map in primary susystem because " 074e 601d |` | Indirect_Literal Discrete,0x76c,{0x00000000, 0x00004000} 074f e00b | | Load 0x0,0xb 0750 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0751 e00c | | Load 0x0,0xc 0752 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0753 e00d | | Load 0x0,0xd 0754 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0755 4801 |H | Short_Literal 0x1 0756 4800 |H | Short_Literal 0x0 0757 e603 | | Load 0x3,0x3 0758 e602 | | Load 0x3,0x2 0759 e606 | | Load 0x3,0x6 075a e003 | | Load 0x0,0x3 075b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 075c 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 075d 01cc | | Execute Vector,Catenate 075e 840b | | Call 0x2,0xb 075f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0760 e7ff | | Load 0x3,-0x1 0761 00db | | Load_Top At_Offset_3 0762 841f | | Call 0x2,0x1f 0763 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0764 e7ff | | Load 0x3,-0x1 0765 0092 080f | | Action Push_String_Extended,0x80f ; "Offset map not found in primary subsystem" 0767 8411 | | Call 0x2,0x11 0768 e7ff | | Load 0x3,-0x1 0769 8412 | | Call 0x2,0x12 076a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 076b 0000 | | .XXX[0x1] 076c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0786 | | .CONST 0x0786 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0005 | | .CONST 0x0005 ; Number of locals 0773 INIT_0770: 0773 e003 | | Load 0x0,0x3 0774 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0775 02c7 | | Declare_Variable Any 0776 00d8 | | Load_Top At_Offset_0 0777 1c00 | | Execute_Immediate Run_Utility,0x0 0778 e003 | | Load 0x0,0x3 0779 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 077a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 077b 02c7 | | Declare_Variable Any 077c 00d8 | | Load_Top At_Offset_0 077d 1c00 | | Execute_Immediate Run_Utility,0x0 077e e003 | | Load 0x0,0x3 077f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0780 e00e | | Load 0x0,0xe 0781 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0782 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0783 02c7 | | Declare_Variable Any 0784 00d8 | | Load_Top At_Offset_0 0785 1c00 | | Execute_Immediate Run_Utility,0x0 0786 BODY_0770: 0786 00d8 | | Load_Top At_Offset_0 0787 0120 | | Execute Any,Is_Value 0788 6804 |h | Jump_Zero 0x78d 0789 e00e | | Load 0x0,0xe 078a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 078b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 078c 7801 |x | Jump 0x78e 078d 00d8 | | Load_Top At_Offset_0 078e 00db | | Load_Top At_Offset_3 078f 0120 | | Execute Any,Is_Value 0790 6804 |h | Jump_Zero 0x795 0791 e003 | | Load 0x0,0x3 0792 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0793 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0794 7801 |x | Jump 0x796 0795 00db | | Load_Top At_Offset_3 0796 e00b | | Load 0x0,0xb 0797 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0798 e5fe | | Load 0x2,-0x2 0799 e00e | | Load 0x0,0xe 079a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 079b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 079c c603 | | Store 0x3,0x3 079d c605 | | Store 0x3,0x5 079e 00d8 | | Load_Top At_Offset_0 079f e00e | | Load 0x0,0xe 07a0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07a1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07a2 7006 |p | Jump_Nonzero 0x7a9 07a3 00d8 | | Load_Top At_Offset_0 07a4 e00e | | Load 0x0,0xe 07a5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 07a7 840b | | Call 0x2,0xb 07a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07a9 00cf | | Action Mark_Auxiliary 07aa 782c |x, | Jump 0x7d7 07ab e003 | | Load 0x0,0x3 07ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ad e602 | | Load 0x3,0x2 07ae 0120 | | Execute Any,Is_Value 07af 6803 |h | Jump_Zero 0x7b3 07b0 e003 | | Load 0x0,0x3 07b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07b2 7801 |x | Jump 0x7b4 07b3 e602 | | Load 0x3,0x2 07b4 e603 | | Load 0x3,0x3 07b5 e003 | | Load 0x0,0x3 07b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07b7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 07b8 c602 | | Store 0x3,0x2 07b9 005b | [ | Store_Top Discrete,At_Offset_3 07ba 00da | | Load_Top At_Offset_2 07bb 821b | | Call 0x1,0x1b 07bc 7012 |p | Jump_Nonzero 0x7cf 07bd 0092 0810 | | Action Push_String_Extended,0x810 ; "Could not get offset map for " 07bf e603 | | Load 0x3,0x3 07c0 e003 | | Load 0x0,0x3 07c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07c2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 07c3 01cc | | Execute Vector,Catenate 07c4 0092 0803 | | Action Push_String_Extended,0x803 ; ": " 07c6 01cc | | Execute Vector,Catenate 07c7 00db | | Load_Top At_Offset_3 07c8 e003 | | Load 0x0,0x3 07c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ca 011c | | Execute Any,Convert_Unchecked 07cb 1c01 | | Execute_Immediate Run_Utility,0x1 07cc 01cc | | Execute Vector,Catenate 07cd 840b | | Call 0x2,0xb 07ce 7802 |x | Jump 0x7d1 07cf e602 | | Load 0x3,0x2 07d0 8420 | | Call 0x2,0x20 07d1 00db | | Load_Top At_Offset_3 07d2 e003 | | Load 0x0,0x3 07d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07d4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07d5 c603 | | Store 0x3,0x3 07d6 00c9 | | Action Pop_Auxiliary_Loop 07d7 00db | | Load_Top At_Offset_3 07d8 e003 | | Load 0x0,0x3 07d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07da 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07db 6fcf |o | Jump_Zero 0x7ab 07dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07dd ; -------------------------------------------------------------------------------------- 07dd ; STRING TABLE 07dd ; -------------------------------------------------------------------------------------- 07dd 006a | j | .STRTAB 0x006a->0x0812 ; "Comparing CDB for secondary subsystem <2> against CDB for primary subsystem <1>" 07de 00b7 | | .STRTAB 0x00b7->0x0839 ; "CDB for secondary subsystem <2> is incompatible with CDB for primary subsystem <1>" 07df 0107 | | .STRTAB 0x0107->0x0862 ; "Incompatible unit maps" 07e0 011b | | .STRTAB 0x011b->0x086d ; "Incompatible declaration maps" 07e1 0136 | 6 | .STRTAB 0x0136->0x087c ; "Incompatible offset maps" 07e2 014c | L | .STRTAB 0x014c->0x0888 ; "Errors (prevented complete comparison)" 07e3 0170 | p | .STRTAB 0x0170->0x089b ; "CDB for secondary subsystem <2> is compatible with CDB for primary subsystem <1>" 07e4 01be | | .STRTAB 0x01be->0x08c3 ; "Unit map for <1> is incompatible: " 07e5 01de | | .STRTAB 0x01de->0x08d4 ; "Unit map for <1> is incompatible" 07e6 01fc | | .STRTAB 0x01fc->0x08e4 ; "Declaration map <1> is incompatible: " 07e7 021f | | .STRTAB 0x021f->0x08f6 ; "Declaration map <1> is incompatible" 07e8 0240 | @ | .STRTAB 0x0240->0x0908 ; "Offset map <1> is incompatible: " 07e9 025e | ^ | .STRTAB 0x025e->0x0918 ; "Offset map <1> is incompatible" 07ea 027a | z | .STRTAB 0x027a->0x0927 ; "Unit map not found for <1>" 07eb 0292 | | .STRTAB 0x0292->0x0934 ; "Subsystem is not a secondary copy" 07ec 02b1 | | .STRTAB 0x02b1->0x0944 ; "Subsystem ID " 07ed 02bc | | .STRTAB 0x02bc->0x094b ; " does not match subsystem ID " 07ee 02d7 | | .STRTAB 0x02d7->0x0959 ; " in unit map for the primary subsystem" 07ef 02fb | | .STRTAB 0x02fb->0x096c ; "Generation number " 07f0 030b | | .STRTAB 0x030b->0x0975 ; " is greater than generation number " 07f1 032c | , | .STRTAB 0x032c->0x0987 ; "Last unit number " 07f2 033b | ; | .STRTAB 0x033b->0x098f ; " is greater than last unit number " 07f3 035b | [ | .STRTAB 0x035b->0x09a0 ; "Unit number for " 07f4 0369 | i | .STRTAB 0x0369->0x09a8 ; " does not match unit number " 07f5 0383 | | .STRTAB 0x0383->0x09b6 ; " is not defined in unit map for the primary subsystem" 07f6 03b6 | | .STRTAB 0x03b6->0x09d1 ; "State.Compatibility.Declaration_Numbers." 07f7 03dc | | .STRTAB 0x03dc->0x09e5 ; "Subsystem mode is not secondary" 07f8 03f9 | | .STRTAB 0x03f9->0x09f4 ; " does not match Subsystem ID " 07f9 0414 | | .STRTAB 0x0414->0x0a03 ; " in declaration map for the primary subsystem" 07fa 043f | ? | .STRTAB 0x043f->0x0a19 ; "Last decl number " 07fb 044e | N | .STRTAB 0x044e->0x0a22 ; " is greater than last declaration number " 07fc 0475 | u | .STRTAB 0x0475->0x0a36 ; "Declaration number " 07fd 0486 | | .STRTAB 0x0486->0x0a40 ; " conflicts with declaration number " 07fe 04a7 | | .STRTAB 0x04a7->0x0a51 ; " is not defined in the declaration map for the primary subsystem" 07ff 04e5 | | .STRTAB 0x04e5->0x0a71 ; "Could not get map context for <1>: " 0800 0506 | | .STRTAB 0x0506->0x0a83 ; "Could not find declaration map in primary susystem because " 0801 053f | ? | .STRTAB 0x053f->0x0aa0 ; "Declaration map not found in primary subsystem" 0802 056b | k | .STRTAB 0x056b->0x0ab7 ; "Could not get declaration map for " 0803 058b | | .STRTAB 0x058b->0x0ac8 ; ": " 0804 058b | | .STRTAB 0x058b->0x0ac9 ; "State.Compatibility.Offsets." 0805 05a5 | | .STRTAB 0x05a5->0x0ad7 ; "Next offset " 0806 05af | | .STRTAB 0x05af->0x0add ; " for declaration " 0807 05be | | .STRTAB 0x05be->0x0ae6 ; " is greater than next offset " 0808 05d9 | | .STRTAB 0x05d9->0x0af4 ; " in offset map for the primary subsystem" 0809 05ff | | .STRTAB 0x05ff->0x0b08 ; "Offset " 080a 0604 | | .STRTAB 0x0604->0x0b0c ; " does not match offset " 080b 0619 | | .STRTAB 0x0619->0x0b17 ; "Next offset for declaration " 080c 0633 | 3 | .STRTAB 0x0633->0x0b25 ; " is not defined in offset map for the primary subsystem" 080d 0668 | h | .STRTAB 0x0668->0x0b41 ; "Offset for declaration " 080e 067d | } | .STRTAB 0x067d->0x0b4c ; "Could not find offset map in primary susystem because " 080f 06b1 | | .STRTAB 0x06b1->0x0b67 ; "Offset map not found in primary subsystem" 0810 06d8 | | .STRTAB 0x06d8->0x0b7c ; "Could not get offset map for " 0811 06f3 | | .STREND 0x06f3->0x0b8a 0812 436f 6d70 |Comp| .STRTAB_STRINGS 0b8b 0000 0000 | | .BLANK 0000[0x5] 0b90 ; -------------------------------------------------------------------------------------- 0b90 ; Debug Table 0b90 ; -------------------------------------------------------------------------------------- 0b90 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc026,0x0000,0x0001,0x0000 0b96 0000 0000 | | .BLANK 0000[0x6a]