|
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]