|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0b98 | | .CONST 0x0b98 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 004f | O | .CONST 0x004f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b e003 | | Load 0x0,0x3 000c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 000d 1925 | % | Execute Package,Field_Reference,Field_Number 0x25 000e 0007 | | Action Break_Optional 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 00e1 | | Load_Encached Boolean_Cache 0014 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0015 00e1 | | Load_Encached Boolean_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 00e3 | | Load_Encached Natural_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d 00e3 | | Load_Encached Natural_Cache 001e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001f 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0021 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0023 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0025 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0027 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0029 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 002b 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 002d 029f 011b | | Declare_Subprogram INIT_0118,For_Call 002f 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0031 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0033 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0035 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call 0037 029f 029b | | Declare_Subprogram INIT_0298,For_Call 0039 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 003b 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 003d 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call 003f 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 0041 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call 0043 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call 0045 029f 054b | K| Declare_Subprogram INIT_0548,For_Call 0047 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 0049 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call 004b 029f 0703 | | Declare_Subprogram INIT_0700,For_Call 004d 029f 077b | {| Declare_Subprogram INIT_0778,For_Call 004f BODY_0008: 004f e5fd | | Load 0x2,-0x3 0050 e5fe | | Load 0x2,-0x2 0051 e5ff | | Load 0x2,-0x1 0052 0092 07e3 | | Action Push_String_Extended,0x7e3 ; "Comparing CDB for secondary subsystem <2> against CDB for primary subsystem <1>" 0054 e220 | | Load 0x1,0x20 0055 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0056 4801 |H | Short_Literal 0x1 0057 a5fc | | Store_Unchecked 0x2,-0x4 0058 8417 | | Call 0x2,0x17 0059 e406 | | Load 0x2,0x6 005a 6802 |h | Jump_Zero 0x5d 005b 841c | | Call 0x2,0x1c 005c 8422 | " | Call 0x2,0x22 005d e406 | | Load 0x2,0x6 005e 680c |h | Jump_Zero 0x6b 005f e407 | | Load 0x2,0x7 0060 0c01 | | Execute_Immediate Greater_Equal,0x1 0061 7009 |p | Jump_Nonzero 0x6b 0062 e408 | | Load 0x2,0x8 0063 0c01 | | Execute_Immediate Greater_Equal,0x1 0064 7006 |p | Jump_Nonzero 0x6b 0065 e409 | | Load 0x2,0x9 0066 0c01 | | Execute_Immediate Greater_Equal,0x1 0067 7003 |p | Jump_Nonzero 0x6b 0068 e40a | | Load 0x2,0xa 0069 0c01 | | Execute_Immediate Greater_Equal,0x1 006a 6821 |h! | Jump_Zero 0x8c 006b e5fd | | Load 0x2,-0x3 006c e5fe | | Load 0x2,-0x2 006d e5ff | | Load 0x2,-0x1 006e 0092 07e4 | | Action Push_String_Extended,0x7e4 ; "CDB for secondary subsystem <2> is incompatible with CDB for primary subsystem <1>" 0070 e220 | | Load 0x1,0x20 0071 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0072 e5fd | | Load 0x2,-0x3 0073 e5fe | | Load 0x2,-0x2 0074 e220 | | Load 0x1,0x20 0075 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0076 0092 07e5 | | Action Push_String_Extended,0x7e5 ; "Incompatible unit maps" 0078 e403 | | Load 0x2,0x3 0079 00d8 | | Load_Top At_Offset_0 007a 00e3 | | Load_Encached Natural_Cache 007b 0260 | ` | Execute Discrete,In_Type 007c 7001 |p | Jump_Nonzero 0x7e 007d 0801 | | Execute_Immediate Raise,0x1 007e 840b | | Call 0x2,0xb 007f 0092 07e6 | | Action Push_String_Extended,0x7e6 ; "Incompatible declaration maps" 0081 e409 | | Load 0x2,0x9 0082 840b | | Call 0x2,0xb 0083 0092 07e7 | | Action Push_String_Extended,0x7e7 ; "Incompatible offset maps" 0085 e40a | | Load 0x2,0xa 0086 840b | | Call 0x2,0xb 0087 0092 07e8 | | Action Push_String_Extended,0x7e8 ; "Errors (prevented complete comparison)" 0089 e407 | | Load 0x2,0x7 008a 840b | | Call 0x2,0xb 008b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008c e5fd | | Load 0x2,-0x3 008d e5fe | | Load 0x2,-0x2 008e e5ff | | Load 0x2,-0x1 008f 0092 07e9 | | Action Push_String_Extended,0x7e9 ; "CDB for secondary subsystem <2> is compatible with CDB for primary subsystem <1>" 0091 e220 | | Load 0x1,0x20 0092 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0093 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 0c01 | | Execute_Immediate Greater_Equal,0x1 009d 6805 |h | Jump_Zero 0xa3 009e e5fd | | Load 0x2,-0x3 009f e7fe | | Load 0x3,-0x2 00a0 e7ff | | Load 0x3,-0x1 00a1 e220 | | Load 0x1,0x20 00a2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e5fd | | Load 0x2,-0x3 00ac 00db | | Load_Top At_Offset_3 00ad e220 | | Load 0x1,0x20 00ae 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00af e407 | | Load 0x2,0x7 00b0 0a01 | | Execute_Immediate Plus,0x1 00b1 c407 | | Store 0x2,0x7 00b2 4800 |H | Short_Literal 0x0 00b3 a5fc | | Store_Unchecked 0x2,-0x4 00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e5fd | | Load 0x2,-0x3 00bc e7fe | | Load 0x3,-0x2 00bd e7ff | | Load 0x3,-0x1 00be e220 | | Load 0x1,0x20 00bf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c0 e407 | | Load 0x2,0x7 00c1 0a01 | | Execute_Immediate Plus,0x1 00c2 c407 | | Store 0x2,0x7 00c3 4800 |H | Short_Literal 0x0 00c4 a5fc | | Store_Unchecked 0x2,-0x4 00c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e5fd | | Load 0x2,-0x3 00cc e5ff | | Load 0x2,-0x1 00cd 0092 07ea | | Action Push_String_Extended,0x7ea ; "Unit map for <1> is incompatible: " 00cf e7ff | | Load 0x3,-0x1 00d0 01cc | | Execute Vector,Catenate 00d1 e220 | | Load 0x1,0x20 00d2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00d3 4801 |H | Short_Literal 0x1 00d4 a403 | | Store_Unchecked 0x2,0x3 00d5 4800 |H | Short_Literal 0x0 00d6 a5fc | | Store_Unchecked 0x2,-0x4 00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e5fd | | Load 0x2,-0x3 00dc e5ff | | Load 0x2,-0x1 00dd 0092 07eb | | Action Push_String_Extended,0x7eb ; "Unit map for <1> is incompatible" 00df e220 | | Load 0x1,0x20 00e0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e1 e408 | | Load 0x2,0x8 00e2 0a01 | | Execute_Immediate Plus,0x1 00e3 c408 | | Store 0x2,0x8 00e4 4800 |H | Short_Literal 0x0 00e5 a403 | | Store_Unchecked 0x2,0x3 00e6 4800 |H | Short_Literal 0x0 00e7 a5fc | | Store_Unchecked 0x2,-0x4 00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 e5fd | | Load 0x2,-0x3 00f4 e7fe | | Load 0x3,-0x2 00f5 0092 07ec | | Action Push_String_Extended,0x7ec ; "Declaration map <1> is incompatible: " 00f7 e7ff | | Load 0x3,-0x1 00f8 01cc | | Execute Vector,Catenate 00f9 e220 | | Load 0x1,0x20 00fa 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00fb 4801 |H | Short_Literal 0x1 00fc a404 | | Store_Unchecked 0x2,0x4 00fd 4800 |H | Short_Literal 0x0 00fe a5fc | | Store_Unchecked 0x2,-0x4 00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e5fd | | Load 0x2,-0x3 0104 00db | | Load_Top At_Offset_3 0105 0092 07ed | | Action Push_String_Extended,0x7ed ; "Declaration map <1> is incompatible" 0107 e220 | | Load 0x1,0x20 0108 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0109 e409 | | Load 0x2,0x9 010a 0a01 | | Execute_Immediate Plus,0x1 010b c409 | | Store 0x2,0x9 010c 4800 |H | Short_Literal 0x0 010d a404 | | Store_Unchecked 0x2,0x4 010e 4800 |H | Short_Literal 0x0 010f a5fc | | Store_Unchecked 0x2,-0x4 0110 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e5fd | | Load 0x2,-0x3 011c e7fe | | Load 0x3,-0x2 011d 0092 07ee | | Action Push_String_Extended,0x7ee ; "Offset map <1> is incompatible: " 011f e7ff | | Load 0x3,-0x1 0120 01cc | | Execute Vector,Catenate 0121 e220 | | Load 0x1,0x20 0122 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0123 4801 |H | Short_Literal 0x1 0124 a405 | | Store_Unchecked 0x2,0x5 0125 4800 |H | Short_Literal 0x0 0126 a5fc | | Store_Unchecked 0x2,-0x4 0127 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e5fd | | Load 0x2,-0x3 012c 00db | | Load_Top At_Offset_3 012d 0092 07ef | | Action Push_String_Extended,0x7ef ; "Offset map <1> is incompatible" 012f e220 | | Load 0x1,0x20 0130 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0131 e40a | | Load 0x2,0xa 0132 0a01 | | Execute_Immediate Plus,0x1 0133 c40a | | Store 0x2,0xa 0134 4800 |H | Short_Literal 0x0 0135 a405 | | Store_Unchecked 0x2,0x5 0136 4800 |H | Short_Literal 0x0 0137 a5fc | | Store_Unchecked 0x2,-0x4 0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0149 | I | .CONST 0x0149 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e012 | | Load 0x0,0x12 0144 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0145 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0146 02c7 | | Declare_Variable Any 0147 00d8 | | Load_Top At_Offset_0 0148 1c00 | | Execute_Immediate Run_Utility,0x0 0149 BODY_0140: 0149 00d8 | | Load_Top At_Offset_0 014a 0120 | | Execute Any,Is_Value 014b 6804 |h | Jump_Zero 0x150 014c e012 | | Load 0x0,0x12 014d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 014e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014f 7801 |x | Jump 0x151 0150 00d8 | | Load_Top At_Offset_0 0151 e7fe | | Load 0x3,-0x2 0152 4800 |H | Short_Literal 0x0 0153 4800 |H | Short_Literal 0x0 0154 e00f | | Load 0x0,0xf 0155 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0156 e7ff | | Load 0x3,-0x1 0157 e012 | | Load 0x0,0x12 0158 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0159 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015a c7fe | | Store 0x3,-0x2 015b c602 | | Store 0x3,0x2 015c 00d8 | | Load_Top At_Offset_0 015d e012 | | Load 0x0,0x12 015e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 015f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0160 0b00 | | Execute_Immediate Case_Compare,0x0 0161 700a |p | Jump_Nonzero 0x16c 0162 0f01 | | Execute_Immediate Equal,0x1 0163 700c |p | Jump_Nonzero 0x170 0164 00d8 | | Load_Top At_Offset_0 0165 e012 | | Load 0x0,0x12 0166 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0167 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0168 840c | | Call 0x2,0xc 0169 4800 |H | Short_Literal 0x0 016a a7fd | | Store_Unchecked 0x3,-0x3 016b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016c 00d1 | | Pop_Control Pop_Count_1 016d 4801 |H | Short_Literal 0x1 016e a7fd | | Store_Unchecked 0x3,-0x3 016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0170 e5fd | | Load 0x2,-0x3 0171 e7ff | | Load 0x3,-0x1 0172 0092 07f0 | | Action Push_String_Extended,0x7f0 ; "Unit map not found for <1>" 0174 e220 | | Load 0x1,0x20 0175 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0176 840f | | Call 0x2,0xf 0177 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0181 | | .CONST 0x0181 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b e012 | | Load 0x0,0x12 017c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 017d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 017e 02c7 | | Declare_Variable Any 017f 00d8 | | Load_Top At_Offset_0 0180 1c00 | | Execute_Immediate Run_Utility,0x0 0181 BODY_0178: 0181 00d8 | | Load_Top At_Offset_0 0182 0120 | | Execute Any,Is_Value 0183 6804 |h | Jump_Zero 0x188 0184 e012 | | Load 0x0,0x12 0185 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0186 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0187 7801 |x | Jump 0x189 0188 00d8 | | Load_Top At_Offset_0 0189 e7ff | | Load 0x3,-0x1 018a e012 | | Load 0x0,0x12 018b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 018c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 018d c7ff | | Store 0x3,-0x1 018e c602 | | Store 0x3,0x2 018f 00d8 | | Load_Top At_Offset_0 0190 e012 | | Load 0x0,0x12 0191 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0192 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0193 7005 |p | Jump_Nonzero 0x199 0194 00d8 | | Load_Top At_Offset_0 0195 e012 | | Load 0x0,0x12 0196 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0197 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0198 840c | | Call 0x2,0xc 0199 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01d7 | | .CONST 0x01d7 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 000d | | .CONST 0x000d ; Number of locals 01a3 INIT_01a0: 01a3 00db | | Load_Top At_Offset_3 01a4 e012 | | Load 0x0,0x12 01a5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01a7 00db | | Load_Top At_Offset_3 01a8 e012 | | Load 0x0,0x12 01a9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01aa 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01ab e7fe | | Load 0x3,-0x2 01ac e012 | | Load 0x0,0x12 01ad 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ae 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01af e7ff | | Load 0x3,-0x1 01b0 e012 | | Load 0x0,0x12 01b1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01b3 e7fe | | Load 0x3,-0x2 01b4 e012 | | Load 0x0,0x12 01b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01b7 e7ff | | Load 0x3,-0x1 01b8 e012 | | Load 0x0,0x12 01b9 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ba 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01bb e7fe | | Load 0x3,-0x2 01bc e012 | | Load 0x0,0x12 01bd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01be 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01bf e012 | | Load 0x0,0x12 01c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c2 e012 | | Load 0x0,0x12 01c3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c5 e012 | | Load 0x0,0x12 01c6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c7 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01c8 02c7 | | Declare_Variable Any 01c9 00d8 | | Load_Top At_Offset_0 01ca 1c00 | | Execute_Immediate Run_Utility,0x0 01cb e012 | | Load 0x0,0x12 01cc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ce 02c7 | | Declare_Variable Any 01cf 00d8 | | Load_Top At_Offset_0 01d0 1c00 | | Execute_Immediate Run_Utility,0x0 01d1 e012 | | Load 0x0,0x12 01d2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d4 02c7 | | Declare_Variable Any 01d5 00d8 | | Load_Top At_Offset_0 01d6 1c00 | | Execute_Immediate Run_Utility,0x0 01d7 BODY_01a0: 01d7 00be | | Action Activate_Tasks 01d8 e602 | | Load 0x3,0x2 01d9 0e01 | | Execute_Immediate Not_Equal,0x1 01da 6805 |h | Jump_Zero 0x1e0 01db 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "Subsystem is not a secondary copy" 01dd 840e | | Call 0x2,0xe 01de 840f | | Call 0x2,0xf 01df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e0 e604 | | Load 0x3,0x4 01e1 e603 | | Load 0x3,0x3 01e2 027e | ~ | Execute Discrete,Not_Equal 01e3 6811 |h | Jump_Zero 0x1f5 01e4 0092 07f2 | | Action Push_String_Extended,0x7f2 ; "Subsystem ID " 01e6 e604 | | Load 0x3,0x4 01e7 821b | | Call 0x1,0x1b 01e8 01cc | | Execute Vector,Catenate 01e9 0092 07f3 | | Action Push_String_Extended,0x7f3 ; " does not match subsystem ID " 01eb 01cc | | Execute Vector,Catenate 01ec e603 | | Load 0x3,0x3 01ed 821b | | Call 0x1,0x1b 01ee 01cc | | Execute Vector,Catenate 01ef 0092 07f4 | | Action Push_String_Extended,0x7f4 ; " in unit map for the primary subsystem" 01f1 01cc | | Execute Vector,Catenate 01f2 840e | | Call 0x2,0xe 01f3 840f | | Call 0x2,0xf 01f4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f5 4801 |H | Short_Literal 0x1 01f6 a406 | | Store_Unchecked 0x2,0x6 01f7 e606 | | Load 0x3,0x6 01f8 e605 | | Load 0x3,0x5 01f9 027d | } | Execute Discrete,Greater 01fa 680f |h | Jump_Zero 0x20a 01fb 0092 07f5 | | Action Push_String_Extended,0x7f5 ; "Generation number " 01fd e606 | | Load 0x3,0x6 01fe 821a | | Call 0x1,0x1a 01ff 01cc | | Execute Vector,Catenate 0200 0092 07f6 | | Action Push_String_Extended,0x7f6 ; " is greater than generation number " 0202 01cc | | Execute Vector,Catenate 0203 e605 | | Load 0x3,0x5 0204 821a | | Call 0x1,0x1a 0205 01cc | | Execute Vector,Catenate 0206 0092 07f4 | | Action Push_String_Extended,0x7f4 ; " in unit map for the primary subsystem" 0208 01cc | | Execute Vector,Catenate 0209 840e | | Call 0x2,0xe 020a e608 | | Load 0x3,0x8 020b e607 | | Load 0x3,0x7 020c 027d | } | Execute Discrete,Greater 020d 680f |h | Jump_Zero 0x21d 020e 0092 07f7 | | Action Push_String_Extended,0x7f7 ; "Last unit number " 0210 e608 | | Load 0x3,0x8 0211 821a | | Call 0x1,0x1a 0212 01cc | | Execute Vector,Catenate 0213 0092 07f8 | | Action Push_String_Extended,0x7f8 ; " is greater than last unit number " 0215 01cc | | Execute Vector,Catenate 0216 e607 | | Load 0x3,0x7 0217 821a | | Call 0x1,0x1a 0218 01cc | | Execute Vector,Catenate 0219 0092 07f4 | | Action Push_String_Extended,0x7f4 ; " in unit map for the primary subsystem" 021b 01cc | | Execute Vector,Catenate 021c 840e | | Call 0x2,0xe 021d e7ff | | Load 0x3,-0x1 021e c60c | | Store 0x3,0xc 021f 00da | | Load_Top At_Offset_2 0220 e7fe | | Load 0x3,-0x2 0221 e012 | | Load 0x0,0x12 0222 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0223 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0224 c60b | | Store 0x3,0xb 0225 00cf | | Action Mark_Auxiliary 0226 7868 |xh | Jump 0x28f 0227 00db | | Load_Top At_Offset_3 0228 e012 | | Load 0x0,0x12 0229 1b13 | | Execute Package,Field_Read,Field_Number 0x13 022a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 022b a60a | | Store_Unchecked 0x3,0xa 022c 00d9 | | Load_Top At_Offset_1 022d 0120 | | Execute Any,Is_Value 022e 6804 |h | Jump_Zero 0x233 022f e012 | | Load 0x0,0x12 0230 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0231 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0232 7801 |x | Jump 0x234 0233 00d9 | | Load_Top At_Offset_1 0234 e012 | | Load 0x0,0x12 0235 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0236 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0237 e60c | | Load 0x3,0xc 0238 e60b | | Load 0x3,0xb 0239 e012 | | Load 0x0,0x12 023a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 023b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 023c e012 | | Load 0x0,0x12 023d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 023e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 023f c60c | | Store 0x3,0xc 0240 c609 | | Store 0x3,0x9 0241 c60d | | Store 0x3,0xd 0242 00d9 | | Load_Top At_Offset_1 0243 e012 | | Load 0x0,0x12 0244 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0245 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0246 4610 |F | Jump_Case 0x11 0247 7816 |x | Jump 0x25e ; case 0x0 0248 780f |x | Jump 0x258 ; case 0x1 0249 780e |x | Jump 0x258 ; case 0x2 024a 780d |x | Jump 0x258 ; case 0x3 024b 780c |x | Jump 0x258 ; case 0x4 024c 782c |x, | Jump 0x279 ; case 0x5 024d 780a |x | Jump 0x258 ; case 0x6 024e 7809 |x | Jump 0x258 ; case 0x7 024f 7808 |x | Jump 0x258 ; case 0x8 0250 7807 |x | Jump 0x258 ; case 0x9 0251 7806 |x | Jump 0x258 ; case 0xa 0252 7805 |x | Jump 0x258 ; case 0xb 0253 7804 |x | Jump 0x258 ; case 0xc 0254 7803 |x | Jump 0x258 ; case 0xd 0255 7802 |x | Jump 0x258 ; case 0xe 0256 7801 |x | Jump 0x258 ; case 0xf 0257 7800 |x | Jump 0x258 ; case 0x10 0258 00d9 | | Load_Top At_Offset_1 0259 e012 | | Load 0x0,0x12 025a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 025b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 025c 840c | | Call 0x2,0xc 025d 782b |x+ | Jump 0x289 025e e60a | | Load 0x3,0xa 025f e609 | | Load 0x3,0x9 0260 027e | ~ | Execute Discrete,Not_Equal 0261 6827 |h' | Jump_Zero 0x289 0262 4820 |H | Short_Literal 0x20 0263 0092 07f9 | | Action Push_String_Extended,0x7f9 ; "Unit number for " 0265 e60b | | Load 0x3,0xb 0266 e012 | | Load 0x0,0x12 0267 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0268 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0269 01cc | | Execute Vector,Catenate 026a 01cb | | Execute Vector,Append 026b e60a | | Load 0x3,0xa 026c 821a | | Call 0x1,0x1a 026d 01cc | | Execute Vector,Catenate 026e 0092 07fa | | Action Push_String_Extended,0x7fa ; " does not match unit number " 0270 01cc | | Execute Vector,Catenate 0271 e609 | | Load 0x3,0x9 0272 821a | | Call 0x1,0x1a 0273 01cc | | Execute Vector,Catenate 0274 0092 07f4 | | Action Push_String_Extended,0x7f4 ; " in unit map for the primary subsystem" 0276 01cc | | Execute Vector,Catenate 0277 840e | | Call 0x2,0xe 0278 7810 |x | Jump 0x289 0279 4820 |H | Short_Literal 0x20 027a 0092 07f9 | | Action Push_String_Extended,0x7f9 ; "Unit number for " 027c e60b | | Load 0x3,0xb 027d e012 | | Load 0x0,0x12 027e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 027f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0280 01cc | | Execute Vector,Catenate 0281 01cb | | Execute Vector,Append 0282 e60a | | Load 0x3,0xa 0283 821a | | Call 0x1,0x1a 0284 01cc | | Execute Vector,Catenate 0285 0092 07fb | | Action Push_String_Extended,0x7fb ; " is not defined in unit map for the primary subsystem" 0287 01cc | | Execute Vector,Catenate 0288 840e | | Call 0x2,0xe 0289 00db | | Load_Top At_Offset_3 028a e012 | | Load 0x0,0x12 028b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 028c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 028d c60b | | Store 0x3,0xb 028e 00c9 | | Action Pop_Auxiliary_Loop 028f 00db | | Load_Top At_Offset_3 0290 e012 | | Load 0x0,0x12 0291 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0292 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0293 6f93 |o | Jump_Zero 0x227 0294 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a8 | | .CONST 0x02a8 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0004 | | .CONST 0x0004 ; Number of locals 029b INIT_0298: 029b e012 | | Load 0x0,0x12 029c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 029d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029e 02c7 | | Declare_Variable Any 029f 00d8 | | Load_Top At_Offset_0 02a0 1c00 | | Execute_Immediate Run_Utility,0x0 02a1 e012 | | Load 0x0,0x12 02a2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a4 02c7 | | Declare_Variable Any 02a5 00d8 | | Load_Top At_Offset_0 02a6 1c00 | | Execute_Immediate Run_Utility,0x0 02a7 00e1 | | Load_Encached Boolean_Cache 02a8 BODY_0298: 02a8 00e1 | | Load_Encached Boolean_Cache 02a9 00db | | Load_Top At_Offset_3 02aa e5ff | | Load 0x2,-0x1 02ab 8414 | | Call 0x2,0x14 02ac c602 | | Store 0x3,0x2 02ad 0059 | Y | Store_Top Discrete,At_Offset_1 02ae 00d8 | | Load_Top At_Offset_0 02af 7001 |p | Jump_Nonzero 0x2b1 02b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b1 00e1 | | Load_Encached Boolean_Cache 02b2 00da | | Load_Top At_Offset_2 02b3 e5fe | | Load 0x2,-0x2 02b4 8414 | | Call 0x2,0x14 02b5 c603 | | Store 0x3,0x3 02b6 0059 | Y | Store_Top Discrete,At_Offset_1 02b7 00d8 | | Load_Top At_Offset_0 02b8 7001 |p | Jump_Nonzero 0x2ba 02b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ba 00d9 | | Load_Top At_Offset_1 02bb 00db | | Load_Top At_Offset_3 02bc 8416 | | Call 0x2,0x16 02bd 00da | | Load_Top At_Offset_2 02be 8415 | | Call 0x2,0x15 02bf c602 | | Store 0x3,0x2 02c0 00d9 | | Load_Top At_Offset_1 02c1 8415 | | Call 0x2,0x15 02c2 c603 | | Store 0x3,0x3 02c3 e403 | | Load 0x2,0x3 02c4 6801 |h | Jump_Zero 0x2c6 02c5 840f | | Call 0x2,0xf 02c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c7 0000 | | .XXX[0x1] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 0092 07fc | | Action Push_String_Extended,0x7fc ; "State.Compatibility.Declaration_Numbers." 02cd 00db | | Load_Top At_Offset_3 02ce e003 | | Load 0x0,0x3 02cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d0 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 02d1 01cc | | Execute Vector,Catenate 02d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d3 0000 0000 | | .BLANK 0000[0x5] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 0309 | | .CONST 0x0309 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 000c | | .CONST 0x000c ; Number of locals 02db INIT_02d8: 02db 00db | | Load_Top At_Offset_3 02dc e012 | | Load 0x0,0x12 02dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02de 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02df 00db | | Load_Top At_Offset_3 02e0 e012 | | Load 0x0,0x12 02e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02e2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02e3 e7fe | | Load 0x3,-0x2 02e4 e012 | | Load 0x0,0x12 02e5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02e6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02e7 e7ff | | Load 0x3,-0x1 02e8 e012 | | Load 0x0,0x12 02e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02ea 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02eb e7fe | | Load 0x3,-0x2 02ec e012 | | Load 0x0,0x12 02ed 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02ee 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02ef e7ff | | Load 0x3,-0x1 02f0 e012 | | Load 0x0,0x12 02f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02f2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02f3 e7fe | | Load 0x3,-0x2 02f4 e012 | | Load 0x0,0x12 02f5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02f6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02f7 e012 | | Load 0x0,0x12 02f8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02f9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02fa e012 | | Load 0x0,0x12 02fb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02fc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02fd e012 | | Load 0x0,0x12 02fe 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02ff 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0300 02c7 | | Declare_Variable Any 0301 00d8 | | Load_Top At_Offset_0 0302 1c00 | | Execute_Immediate Run_Utility,0x0 0303 e012 | | Load 0x0,0x12 0304 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0305 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0306 02c7 | | Declare_Variable Any 0307 00d8 | | Load_Top At_Offset_0 0308 1c00 | | Execute_Immediate Run_Utility,0x0 0309 BODY_02d8: 0309 00be | | Action Activate_Tasks 030a e602 | | Load 0x3,0x2 030b 0e01 | | Execute_Immediate Not_Equal,0x1 030c 6804 |h | Jump_Zero 0x311 030d e7fc | | Load 0x3,-0x4 030e 0092 07fd | | Action Push_String_Extended,0x7fd ; "Subsystem mode is not secondary" 0310 8410 | | Call 0x2,0x10 0311 e604 | | Load 0x3,0x4 0312 e603 | | Load 0x3,0x3 0313 027e | ~ | Execute Discrete,Not_Equal 0314 6810 |h | Jump_Zero 0x325 0315 e7fc | | Load 0x3,-0x4 0316 0092 07f2 | | Action Push_String_Extended,0x7f2 ; "Subsystem ID " 0318 e604 | | Load 0x3,0x4 0319 821b | | Call 0x1,0x1b 031a 01cc | | Execute Vector,Catenate 031b 0092 07fe | | Action Push_String_Extended,0x7fe ; " does not match Subsystem ID " 031d 01cc | | Execute Vector,Catenate 031e e603 | | Load 0x3,0x3 031f 821b | | Call 0x1,0x1b 0320 01cc | | Execute Vector,Catenate 0321 0092 07ff | | Action Push_String_Extended,0x7ff ; " in declaration map for the primary subsystem" 0323 01cc | | Execute Vector,Catenate 0324 8410 | | Call 0x2,0x10 0325 e606 | | Load 0x3,0x6 0326 e605 | | Load 0x3,0x5 0327 027d | } | Execute Discrete,Greater 0328 6810 |h | Jump_Zero 0x339 0329 e7fc | | Load 0x3,-0x4 032a 0092 07f5 | | Action Push_String_Extended,0x7f5 ; "Generation number " 032c e606 | | Load 0x3,0x6 032d 821a | | Call 0x1,0x1a 032e 01cc | | Execute Vector,Catenate 032f 0092 07f6 | | Action Push_String_Extended,0x7f6 ; " is greater than generation number " 0331 01cc | | Execute Vector,Catenate 0332 e605 | | Load 0x3,0x5 0333 821a | | Call 0x1,0x1a 0334 01cc | | Execute Vector,Catenate 0335 0092 07ff | | Action Push_String_Extended,0x7ff ; " in declaration map for the primary subsystem" 0337 01cc | | Execute Vector,Catenate 0338 8410 | | Call 0x2,0x10 0339 e608 | | Load 0x3,0x8 033a e607 | | Load 0x3,0x7 033b 027d | } | Execute Discrete,Greater 033c 6810 |h | Jump_Zero 0x34d 033d e7fc | | Load 0x3,-0x4 033e 0092 0800 | | Action Push_String_Extended,0x800 ; "Last decl number " 0340 e608 | | Load 0x3,0x8 0341 821c | | Call 0x1,0x1c 0342 01cc | | Execute Vector,Catenate 0343 0092 0801 | | Action Push_String_Extended,0x801 ; " is greater than last declaration number " 0345 01cc | | Execute Vector,Catenate 0346 e607 | | Load 0x3,0x7 0347 821c | | Call 0x1,0x1c 0348 01cc | | Execute Vector,Catenate 0349 0092 07ff | | Action Push_String_Extended,0x7ff ; " in declaration map for the primary subsystem" 034b 01cc | | Execute Vector,Catenate 034c 8410 | | Call 0x2,0x10 034d 00d9 | | Load_Top At_Offset_1 034e e7fe | | Load 0x3,-0x2 034f e012 | | Load 0x0,0x12 0350 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0351 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0352 c60b | | Store 0x3,0xb 0353 00cf | | Action Mark_Auxiliary 0354 785c |x\ | Jump 0x3b1 0355 00da | | Load_Top At_Offset_2 0356 e012 | | Load 0x0,0x12 0357 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0358 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0359 a60a | | Store_Unchecked 0x3,0xa 035a 00d9 | | Load_Top At_Offset_1 035b 0120 | | Execute Any,Is_Value 035c 6804 |h | Jump_Zero 0x361 035d e012 | | Load 0x0,0x12 035e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 035f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0360 7801 |x | Jump 0x362 0361 00d9 | | Load_Top At_Offset_1 0362 e012 | | Load 0x0,0x12 0363 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0364 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0365 e60b | | Load 0x3,0xb 0366 e012 | | Load 0x0,0x12 0367 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0368 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0369 e7ff | | Load 0x3,-0x1 036a e012 | | Load 0x0,0x12 036b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 036c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 036d c609 | | Store 0x3,0x9 036e c60c | | Store 0x3,0xc 036f 00d9 | | Load_Top At_Offset_1 0370 e012 | | Load 0x0,0x12 0371 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0372 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0373 4611 |F | Jump_Case 0x12 0374 7817 |x | Jump 0x38c ; case 0x0 0375 7810 |x | Jump 0x386 ; case 0x1 0376 780f |x | Jump 0x386 ; case 0x2 0377 780e |x | Jump 0x386 ; case 0x3 0378 780d |x | Jump 0x386 ; case 0x4 0379 780c |x | Jump 0x386 ; case 0x5 037a 7826 |x& | Jump 0x3a1 ; case 0x6 037b 780a |x | Jump 0x386 ; case 0x7 037c 7809 |x | Jump 0x386 ; case 0x8 037d 7808 |x | Jump 0x386 ; case 0x9 037e 7807 |x | Jump 0x386 ; case 0xa 037f 7806 |x | Jump 0x386 ; case 0xb 0380 7805 |x | Jump 0x386 ; case 0xc 0381 7804 |x | Jump 0x386 ; case 0xd 0382 7803 |x | Jump 0x386 ; case 0xe 0383 7802 |x | Jump 0x386 ; case 0xf 0384 7801 |x | Jump 0x386 ; case 0x10 0385 7800 |x | Jump 0x386 ; case 0x11 0386 00d9 | | Load_Top At_Offset_1 0387 e012 | | Load 0x0,0x12 0388 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0389 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038a 840c | | Call 0x2,0xc 038b 781f |x | Jump 0x3ab 038c 00db | | Load_Top At_Offset_3 038d e609 | | Load 0x3,0x9 038e 027f | | Execute Discrete,Equal 038f 701b |p | Jump_Nonzero 0x3ab 0390 e7fc | | Load 0x3,-0x4 0391 0092 0802 | | Action Push_String_Extended,0x802 ; "Declaration number " 0393 e60a | | Load 0x3,0xa 0394 821c | | Call 0x1,0x1c 0395 01cc | | Execute Vector,Catenate 0396 0092 0803 | | Action Push_String_Extended,0x803 ; " conflicts with declaration number " 0398 01cc | | Execute Vector,Catenate 0399 e609 | | Load 0x3,0x9 039a 821c | | Call 0x1,0x1c 039b 01cc | | Execute Vector,Catenate 039c 0092 07ff | | Action Push_String_Extended,0x7ff ; " in declaration map for the primary subsystem" 039e 01cc | | Execute Vector,Catenate 039f 8410 | | Call 0x2,0x10 03a0 780a |x | Jump 0x3ab 03a1 e7fc | | Load 0x3,-0x4 03a2 0092 0802 | | Action Push_String_Extended,0x802 ; "Declaration number " 03a4 e60a | | Load 0x3,0xa 03a5 821c | | Call 0x1,0x1c 03a6 01cc | | Execute Vector,Catenate 03a7 0092 0804 | | Action Push_String_Extended,0x804 ; " is not defined in the declaration map for the primary subsystem" 03a9 01cc | | Execute Vector,Catenate 03aa 8410 | | Call 0x2,0x10 03ab 00da | | Load_Top At_Offset_2 03ac e012 | | Load 0x0,0x12 03ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03ae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03af c60b | | Store 0x3,0xb 03b0 00c9 | | Action Pop_Auxiliary_Loop 03b1 00da | | Load_Top At_Offset_2 03b2 e012 | | Load 0x0,0x12 03b3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03b4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03b5 6f9f |o | Jump_Zero 0x355 03b6 00ce | | Action Pop_Auxiliary 03b7 e404 | | Load 0x2,0x4 03b8 6802 |h | Jump_Zero 0x3bb 03b9 e7fc | | Load 0x3,-0x4 03ba 8411 | | Call 0x2,0x11 03bb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 03bc 0000 0000 | | .BLANK 0000[0x4] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03d5 | | .CONST 0x03d5 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0004 | | .CONST 0x0004 ; Number of locals 03c3 INIT_03c0: 03c3 e012 | | Load 0x0,0x12 03c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c6 02c7 | | Declare_Variable Any 03c7 00d8 | | Load_Top At_Offset_0 03c8 1c00 | | Execute_Immediate Run_Utility,0x0 03c9 e012 | | Load 0x0,0x12 03ca 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03cc 02c7 | | Declare_Variable Any 03cd 00d8 | | Load_Top At_Offset_0 03ce 1c00 | | Execute_Immediate Run_Utility,0x0 03cf e012 | | Load 0x0,0x12 03d0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03d2 02c7 | | Declare_Variable Any 03d3 00d8 | | Load_Top At_Offset_0 03d4 1c00 | | Execute_Immediate Run_Utility,0x0 03d5 BODY_03c0: 03d5 00d8 | | Load_Top At_Offset_0 03d6 0120 | | Execute Any,Is_Value 03d7 6804 |h | Jump_Zero 0x3dc 03d8 e012 | | Load 0x0,0x12 03d9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03db 7801 |x | Jump 0x3dd 03dc 00d8 | | Load_Top At_Offset_0 03dd 00db | | Load_Top At_Offset_3 03de 4800 |H | Short_Literal 0x0 03df e00f | | Load 0x0,0xf 03e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03e1 e7ff | | Load 0x3,-0x1 03e2 e012 | | Load 0x0,0x12 03e3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03e5 c602 | | Store 0x3,0x2 03e6 c604 | | Store 0x3,0x4 03e7 00d8 | | Load_Top At_Offset_0 03e8 e012 | | Load 0x0,0x12 03e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03ea 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03eb 7006 |p | Jump_Nonzero 0x3f2 03ec 00d8 | | Load_Top At_Offset_0 03ed e012 | | Load 0x0,0x12 03ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f0 840c | | Call 0x2,0xc 03f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03f2 00d8 | | Load_Top At_Offset_0 03f3 0120 | | Execute Any,Is_Value 03f4 6804 |h | Jump_Zero 0x3f9 03f5 e012 | | Load 0x0,0x12 03f6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03f8 7801 |x | Jump 0x3fa 03f9 00d8 | | Load_Top At_Offset_0 03fa 00da | | Load_Top At_Offset_2 03fb 4800 |H | Short_Literal 0x0 03fc e00f | | Load 0x0,0xf 03fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03fe e7fe | | Load 0x3,-0x2 03ff e012 | | Load 0x0,0x12 0400 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0401 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0402 c603 | | Store 0x3,0x3 0403 c604 | | Store 0x3,0x4 0404 00d8 | | Load_Top At_Offset_0 0405 e012 | | Load 0x0,0x12 0406 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0407 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0408 7006 |p | Jump_Nonzero 0x40f 0409 00d8 | | Load_Top At_Offset_0 040a e012 | | Load 0x0,0x12 040b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 040c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 040d 840c | | Call 0x2,0xc 040e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 040f e7fe | | Load 0x3,-0x2 0410 e7ff | | Load 0x3,-0x1 0411 00db | | Load_Top At_Offset_3 0412 e602 | | Load 0x3,0x2 0413 8419 | | Call 0x2,0x19 0414 00d8 | | Load_Top At_Offset_0 0415 0120 | | Execute Any,Is_Value 0416 6804 |h | Jump_Zero 0x41b 0417 e012 | | Load 0x0,0x12 0418 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0419 1b0e | | Execute Package,Field_Read,Field_Number 0xe 041a 7801 |x | Jump 0x41c 041b 00d8 | | Load_Top At_Offset_0 041c 00db | | Load_Top At_Offset_3 041d e012 | | Load 0x0,0x12 041e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 041f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0420 c602 | | Store 0x3,0x2 0421 c604 | | Store 0x3,0x4 0422 00d8 | | Load_Top At_Offset_0 0423 e012 | | Load 0x0,0x12 0424 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0425 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0426 7005 |p | Jump_Nonzero 0x42c 0427 00d8 | | Load_Top At_Offset_0 0428 e012 | | Load 0x0,0x12 0429 1b14 | | Execute Package,Field_Read,Field_Number 0x14 042a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 042b 840c | | Call 0x2,0xc 042c 00d8 | | Load_Top At_Offset_0 042d 0120 | | Execute Any,Is_Value 042e 6804 |h | Jump_Zero 0x433 042f e012 | | Load 0x0,0x12 0430 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0431 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0432 7801 |x | Jump 0x434 0433 00d8 | | Load_Top At_Offset_0 0434 00da | | Load_Top At_Offset_2 0435 e012 | | Load 0x0,0x12 0436 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0437 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0438 c603 | | Store 0x3,0x3 0439 c604 | | Store 0x3,0x4 043a 00d8 | | Load_Top At_Offset_0 043b e012 | | Load 0x0,0x12 043c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 043d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 043e 7005 |p | Jump_Nonzero 0x444 043f 00d8 | | Load_Top At_Offset_0 0440 e012 | | Load 0x0,0x12 0441 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0442 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0443 840c | | Call 0x2,0xc 0444 e404 | | Load 0x2,0x4 0445 6802 |h | Jump_Zero 0x448 0446 e7fe | | Load 0x3,-0x2 0447 8411 | | Call 0x2,0x11 0448 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0449 0000 0000 | | .BLANK 0000[0x7] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0462 | b | .CONST 0x0462 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0006 | | .CONST 0x0006 ; Number of locals 0453 INIT_0450: 0453 00da | | Load_Top At_Offset_2 0454 8418 | | Call 0x2,0x18 0455 e003 | | Load 0x0,0x3 0456 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0457 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0458 e003 | | Load 0x0,0x3 0459 1b0f | | Execute Package,Field_Read,Field_Number 0xf 045a 02c7 | | Declare_Variable Any 045b 00d8 | | Load_Top At_Offset_0 045c 1c00 | | Execute_Immediate Run_Utility,0x0 045d e003 | | Load 0x0,0x3 045e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 045f e003 | | Load 0x0,0x3 0460 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0461 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0462 BODY_0450: 0462 e003 | | Load 0x0,0x3 0463 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0464 e003 | | Load 0x0,0x3 0465 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0466 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0467 605c |`\ | Indirect_Literal Discrete,0x4c4,{0x00000000, 0x00004000} 0468 e00f | | Load 0x0,0xf 0469 1b0e | | Execute Package,Field_Read,Field_Number 0xe 046a 4800 |H | Short_Literal 0x0 046b e5ff | | Load 0x2,-0x1 046c e003 | | Load 0x0,0x3 046d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 046e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 046f c603 | | Store 0x3,0x3 0470 005a | Z | Store_Top Discrete,At_Offset_2 0471 00d9 | | Load_Top At_Offset_1 0472 821d | | Call 0x1,0x1d 0473 700b |p | Jump_Nonzero 0x47f 0474 e5ff | | Load 0x2,-0x1 0475 0092 0805 | | Action Push_String_Extended,0x805 ; "Could not get map context for <1>: " 0477 00db | | Load_Top At_Offset_3 0478 e003 | | Load 0x0,0x3 0479 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047a 011c | | Execute Any,Convert_Unchecked 047b 1c01 | | Execute_Immediate Run_Utility,0x1 047c 01cc | | Execute Vector,Catenate 047d 840d | | Call 0x2,0xd 047e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 047f e003 | | Load 0x0,0x3 0480 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0481 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0482 00db | | Load_Top At_Offset_3 0483 0120 | | Execute Any,Is_Value 0484 6803 |h | Jump_Zero 0x488 0485 e003 | | Load 0x0,0x3 0486 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0487 7801 |x | Jump 0x489 0488 00db | | Load_Top At_Offset_3 0489 603a |`: | Indirect_Literal Discrete,0x4c4,{0x00000000, 0x00004000} 048a e00f | | Load 0x0,0xf 048b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 048c e603 | | Load 0x3,0x3 048d e602 | | Load 0x3,0x2 048e e003 | | Load 0x0,0x3 048f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0490 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0491 c604 | | Store 0x3,0x4 0492 0059 | Y | Store_Top Discrete,At_Offset_1 0493 00d8 | | Load_Top At_Offset_0 0494 460e |F | Jump_Case 0xf 0495 7822 |x" | Jump 0x4b8 ; case 0x0 0496 780d |x | Jump 0x4a4 ; case 0x1 0497 780c |x | Jump 0x4a4 ; case 0x2 0498 7823 |x# | Jump 0x4bc ; case 0x3 0499 780a |x | Jump 0x4a4 ; case 0x4 049a 7809 |x | Jump 0x4a4 ; case 0x5 049b 7808 |x | Jump 0x4a4 ; case 0x6 049c 7807 |x | Jump 0x4a4 ; case 0x7 049d 7806 |x | Jump 0x4a4 ; case 0x8 049e 7805 |x | Jump 0x4a4 ; case 0x9 049f 7804 |x | Jump 0x4a4 ; case 0xa 04a0 7803 |x | Jump 0x4a4 ; case 0xb 04a1 7802 |x | Jump 0x4a4 ; case 0xc 04a2 7801 |x | Jump 0x4a4 ; case 0xd 04a3 7800 |x | Jump 0x4a4 ; case 0xe 04a4 0092 0806 | | Action Push_String_Extended,0x806 ; "Could not find declaration map in primary susystem because " 04a6 601d |` | Indirect_Literal Discrete,0x4c4,{0x00000000, 0x00004000} 04a7 e00f | | Load 0x0,0xf 04a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04a9 e010 | | Load 0x0,0x10 04aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04ab e011 | | Load 0x0,0x11 04ac 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04ad 4801 |H | Short_Literal 0x1 04ae 4800 |H | Short_Literal 0x0 04af e603 | | Load 0x3,0x3 04b0 e602 | | Load 0x3,0x2 04b1 e606 | | Load 0x3,0x6 04b2 e003 | | Load 0x0,0x3 04b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04b4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 04b5 01cc | | Execute Vector,Catenate 04b6 840c | | Call 0x2,0xc 04b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b8 e7ff | | Load 0x3,-0x1 04b9 00db | | Load_Top At_Offset_3 04ba 841a | | Call 0x2,0x1a 04bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04bc e7ff | | Load 0x3,-0x1 04bd 0092 0807 | | Action Push_String_Extended,0x807 ; "Declaration map not found in primary subsystem" 04bf 8410 | | Call 0x2,0x10 04c0 e7ff | | Load 0x3,-0x1 04c1 8411 | | Call 0x2,0x11 04c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04c3 0000 | | .XXX[0x1] 04c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04de | | .CONST 0x04de ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0005 | | .CONST 0x0005 ; Number of locals 04cb INIT_04c8: 04cb e003 | | Load 0x0,0x3 04cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04cd 02c7 | | Declare_Variable Any 04ce 00d8 | | Load_Top At_Offset_0 04cf 1c00 | | Execute_Immediate Run_Utility,0x0 04d0 e003 | | Load 0x0,0x3 04d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04d2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04d3 02c7 | | Declare_Variable Any 04d4 00d8 | | Load_Top At_Offset_0 04d5 1c00 | | Execute_Immediate Run_Utility,0x0 04d6 e003 | | Load 0x0,0x3 04d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d8 e012 | | Load 0x0,0x12 04d9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04db 02c7 | | Declare_Variable Any 04dc 00d8 | | Load_Top At_Offset_0 04dd 1c00 | | Execute_Immediate Run_Utility,0x0 04de BODY_04c8: 04de 00d8 | | Load_Top At_Offset_0 04df 0120 | | Execute Any,Is_Value 04e0 6804 |h | Jump_Zero 0x4e5 04e1 e012 | | Load 0x0,0x12 04e2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04e4 7801 |x | Jump 0x4e6 04e5 00d8 | | Load_Top At_Offset_0 04e6 00db | | Load_Top At_Offset_3 04e7 0120 | | Execute Any,Is_Value 04e8 6804 |h | Jump_Zero 0x4ed 04e9 e003 | | Load 0x0,0x3 04ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04eb 1b18 | | Execute Package,Field_Read,Field_Number 0x18 04ec 7801 |x | Jump 0x4ee 04ed 00db | | Load_Top At_Offset_3 04ee e00f | | Load 0x0,0xf 04ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04f0 e5fe | | Load 0x2,-0x2 04f1 e012 | | Load 0x0,0x12 04f2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04f4 c603 | | Store 0x3,0x3 04f5 c605 | | Store 0x3,0x5 04f6 00d8 | | Load_Top At_Offset_0 04f7 e012 | | Load 0x0,0x12 04f8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04fa 7006 |p | Jump_Nonzero 0x501 04fb 00d8 | | Load_Top At_Offset_0 04fc e012 | | Load 0x0,0x12 04fd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04ff 840c | | Call 0x2,0xc 0500 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0501 00cf | | Action Mark_Auxiliary 0502 782a |x* | Jump 0x52d 0503 e003 | | Load 0x0,0x3 0504 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0505 e602 | | Load 0x3,0x2 0506 0120 | | Execute Any,Is_Value 0507 6803 |h | Jump_Zero 0x50b 0508 e003 | | Load 0x0,0x3 0509 1b0f | | Execute Package,Field_Read,Field_Number 0xf 050a 7801 |x | Jump 0x50c 050b e602 | | Load 0x3,0x2 050c e603 | | Load 0x3,0x3 050d e003 | | Load 0x0,0x3 050e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 050f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0510 c602 | | Store 0x3,0x2 0511 005b | [ | Store_Top Discrete,At_Offset_3 0512 00da | | Load_Top At_Offset_2 0513 821d | | Call 0x1,0x1d 0514 7010 |p | Jump_Nonzero 0x525 0515 0092 0808 | | Action Push_String_Extended,0x808 ; "Could not get declaration map for " 0517 e603 | | Load 0x3,0x3 0518 8402 | | Call 0x2,0x2 0519 01cc | | Execute Vector,Catenate 051a 0092 0809 | | Action Push_String_Extended,0x809 ; ": " 051c 01cc | | Execute Vector,Catenate 051d 00db | | Load_Top At_Offset_3 051e e003 | | Load 0x0,0x3 051f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0520 011c | | Execute Any,Convert_Unchecked 0521 1c01 | | Execute_Immediate Run_Utility,0x1 0522 01cc | | Execute Vector,Catenate 0523 840c | | Call 0x2,0xc 0524 7802 |x | Jump 0x527 0525 e602 | | Load 0x3,0x2 0526 841b | | Call 0x2,0x1b 0527 00db | | Load_Top At_Offset_3 0528 e003 | | Load 0x0,0x3 0529 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 052a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 052b c603 | | Store 0x3,0x3 052c 00c9 | | Action Pop_Auxiliary_Loop 052d 00db | | Load_Top At_Offset_3 052e e003 | | Load 0x0,0x3 052f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0530 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0531 6fd1 |o | Jump_Zero 0x503 0532 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0533 0000 0000 | | .BLANK 0000[0x5] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b 0092 080a | | Action Push_String_Extended,0x80a ; "State.Compatibility.Offsets." 053d 00db | | Load_Top At_Offset_3 053e e003 | | Load 0x0,0x3 053f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0540 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0541 01cc | | Execute Vector,Catenate 0542 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0543 0000 0000 | | .BLANK 0000[0x5] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 0554 | T | .CONST 0x0554 ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0003 | | .CONST 0x0003 ; Number of locals 054b INIT_0548: 054b e012 | | Load 0x0,0x12 054c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 054d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 054e e012 | | Load 0x0,0x12 054f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0550 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0551 02c7 | | Declare_Variable Any 0552 00d8 | | Load_Top At_Offset_0 0553 1c00 | | Execute_Immediate Run_Utility,0x0 0554 BODY_0548: 0554 e7fd | | Load 0x3,-0x3 0555 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0556 7004 |p | Jump_Nonzero 0x55b 0557 e7fd | | Load 0x3,-0x3 0558 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0559 6801 |h | Jump_Zero 0x55b 055a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 055b 00d8 | | Load_Top At_Offset_0 055c 0120 | | Execute Any,Is_Value 055d 6804 |h | Jump_Zero 0x562 055e e012 | | Load 0x0,0x12 055f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0560 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0561 7801 |x | Jump 0x563 0562 00d8 | | Load_Top At_Offset_0 0563 e012 | | Load 0x0,0x12 0564 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0565 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0566 e7fd | | Load 0x3,-0x3 0567 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0568 e7fd | | Load 0x3,-0x3 0569 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 056a e7fd | | Load 0x3,-0x3 056b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 056c e7ff | | Load 0x3,-0x1 056d e012 | | Load 0x0,0x12 056e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 056f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0570 005b | [ | Store_Top Discrete,At_Offset_3 0571 c603 | | Store 0x3,0x3 0572 00d8 | | Load_Top At_Offset_0 0573 e012 | | Load 0x0,0x12 0574 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0575 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0576 4611 |F | Jump_Case 0x12 0577 7817 |x | Jump 0x58f ; case 0x0 0578 7810 |x | Jump 0x589 ; case 0x1 0579 780f |x | Jump 0x589 ; case 0x2 057a 780e |x | Jump 0x589 ; case 0x3 057b 780d |x | Jump 0x589 ; case 0x4 057c 780c |x | Jump 0x589 ; case 0x5 057d 784c |xL | Jump 0x5ca ; case 0x6 057e 780a |x | Jump 0x589 ; case 0x7 057f 7809 |x | Jump 0x589 ; case 0x8 0580 7808 |x | Jump 0x589 ; case 0x9 0581 7807 |x | Jump 0x589 ; case 0xa 0582 7806 |x | Jump 0x589 ; case 0xb 0583 7805 |x | Jump 0x589 ; case 0xc 0584 7804 |x | Jump 0x589 ; case 0xd 0585 7803 |x | Jump 0x589 ; case 0xe 0586 7802 |x | Jump 0x589 ; case 0xf 0587 7801 |x | Jump 0x589 ; case 0x10 0588 7800 |x | Jump 0x589 ; case 0x11 0589 00d8 | | Load_Top At_Offset_0 058a e012 | | Load 0x0,0x12 058b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 058c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 058d 840c | | Call 0x2,0xc 058e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 058f e7fd | | Load 0x3,-0x3 0590 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0591 701c |p | Jump_Nonzero 0x5ae 0592 e7fc | | Load 0x3,-0x4 0593 00da | | Load_Top At_Offset_2 0594 027d | } | Execute Discrete,Greater 0595 6850 |hP | Jump_Zero 0x5e6 0596 e7fe | | Load 0x3,-0x2 0597 0092 080b | | Action Push_String_Extended,0x80b ; "Next offset " 0599 e7fc | | Load 0x3,-0x4 059a 821a | | Call 0x1,0x1a 059b 01cc | | Execute Vector,Catenate 059c 0092 080c | | Action Push_String_Extended,0x80c ; " for declaration " 059e 01cc | | Execute Vector,Catenate 059f e7fd | | Load 0x3,-0x3 05a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05a1 821c | | Call 0x1,0x1c 05a2 01cc | | Execute Vector,Catenate 05a3 0092 080d | | Action Push_String_Extended,0x80d ; " is greater than next offset " 05a5 01cc | | Execute Vector,Catenate 05a6 00db | | Load_Top At_Offset_3 05a7 821a | | Call 0x1,0x1a 05a8 01cc | | Execute Vector,Catenate 05a9 0092 080e | | Action Push_String_Extended,0x80e ; " in offset map for the primary subsystem" 05ab 01cc | | Execute Vector,Catenate 05ac 8412 | | Call 0x2,0x12 05ad 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05ae e7fc | | Load 0x3,-0x4 05af 00da | | Load_Top At_Offset_2 05b0 027e | ~ | Execute Discrete,Not_Equal 05b1 6834 |h4 | Jump_Zero 0x5e6 05b2 e7fe | | Load 0x3,-0x2 05b3 0092 080f | | Action Push_String_Extended,0x80f ; "Offset " 05b5 e7fc | | Load 0x3,-0x4 05b6 821a | | Call 0x1,0x1a 05b7 01cc | | Execute Vector,Catenate 05b8 0092 080c | | Action Push_String_Extended,0x80c ; " for declaration " 05ba 01cc | | Execute Vector,Catenate 05bb e7fd | | Load 0x3,-0x3 05bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05bd 821c | | Call 0x1,0x1c 05be 01cc | | Execute Vector,Catenate 05bf 0092 0810 | | Action Push_String_Extended,0x810 ; " does not match offset " 05c1 01cc | | Execute Vector,Catenate 05c2 00db | | Load_Top At_Offset_3 05c3 821a | | Call 0x1,0x1a 05c4 01cc | | Execute Vector,Catenate 05c5 0092 080e | | Action Push_String_Extended,0x80e ; " in offset map for the primary subsystem" 05c7 01cc | | Execute Vector,Catenate 05c8 8412 | | Call 0x2,0x12 05c9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05ca e7fd | | Load 0x3,-0x3 05cb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05cc 700e |p | Jump_Nonzero 0x5db 05cd e7fe | | Load 0x3,-0x2 05ce 0092 0811 | | Action Push_String_Extended,0x811 ; "Next offset for declaration " 05d0 e7fd | | Load 0x3,-0x3 05d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05d2 821c | | Call 0x1,0x1c 05d3 01cc | | Execute Vector,Catenate 05d4 0092 0812 | | Action Push_String_Extended,0x812 ; " is not defined in offset map for the primary subsystem" 05d6 01cc | | Execute Vector,Catenate 05d7 8412 | | Call 0x2,0x12 05d8 4800 |H | Short_Literal 0x0 05d9 a5fc | | Store_Unchecked 0x2,-0x4 05da 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05db e7fe | | Load 0x3,-0x2 05dc 0092 0813 | | Action Push_String_Extended,0x813 ; "Offset for declaration " 05de e7fd | | Load 0x3,-0x3 05df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05e0 821c | | Call 0x1,0x1c 05e1 01cc | | Execute Vector,Catenate 05e2 0092 0812 | | Action Push_String_Extended,0x812 ; " is not defined in offset map for the primary subsystem" 05e4 01cc | | Execute Vector,Catenate 05e5 8412 | | Call 0x2,0x12 05e6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05e7 0000 | | .XXX[0x1] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 0615 | | .CONST 0x0615 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 000b | | .CONST 0x000b ; Number of locals 05eb INIT_05e8: 05eb 00db | | Load_Top At_Offset_3 05ec e012 | | Load 0x0,0x12 05ed 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05ee 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05ef 00db | | Load_Top At_Offset_3 05f0 e012 | | Load 0x0,0x12 05f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05f2 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 05f3 e7fe | | Load 0x3,-0x2 05f4 e012 | | Load 0x0,0x12 05f5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05f6 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 05f7 e7ff | | Load 0x3,-0x1 05f8 e012 | | Load 0x0,0x12 05f9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05fa 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 05fb e7fe | | Load 0x3,-0x2 05fc e012 | | Load 0x0,0x12 05fd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05fe 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 05ff e012 | | Load 0x0,0x12 0600 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0601 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0602 e012 | | Load 0x0,0x12 0603 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0604 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0605 e012 | | Load 0x0,0x12 0606 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0607 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0608 0322 | " | Declare_Variable Record 0609 e012 | | Load 0x0,0x12 060a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 060b 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 060c 02c7 | | Declare_Variable Any 060d 00d8 | | Load_Top At_Offset_0 060e 1c00 | | Execute_Immediate Run_Utility,0x0 060f e012 | | Load 0x0,0x12 0610 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0611 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0612 02c7 | | Declare_Variable Any 0613 00d8 | | Load_Top At_Offset_0 0614 1c00 | | Execute_Immediate Run_Utility,0x0 0615 BODY_05e8: 0615 00be | | Action Activate_Tasks 0616 e602 | | Load 0x3,0x2 0617 0e01 | | Execute_Immediate Not_Equal,0x1 0618 6804 |h | Jump_Zero 0x61d 0619 e7fc | | Load 0x3,-0x4 061a 0092 07fd | | Action Push_String_Extended,0x7fd ; "Subsystem mode is not secondary" 061c 8412 | | Call 0x2,0x12 061d e604 | | Load 0x3,0x4 061e e603 | | Load 0x3,0x3 061f 027e | ~ | Execute Discrete,Not_Equal 0620 6810 |h | Jump_Zero 0x631 0621 e7fc | | Load 0x3,-0x4 0622 0092 07f2 | | Action Push_String_Extended,0x7f2 ; "Subsystem ID " 0624 e604 | | Load 0x3,0x4 0625 821b | | Call 0x1,0x1b 0626 01cc | | Execute Vector,Catenate 0627 0092 07fe | | Action Push_String_Extended,0x7fe ; " does not match Subsystem ID " 0629 01cc | | Execute Vector,Catenate 062a e603 | | Load 0x3,0x3 062b 821b | | Call 0x1,0x1b 062c 01cc | | Execute Vector,Catenate 062d 0092 080e | | Action Push_String_Extended,0x80e ; " in offset map for the primary subsystem" 062f 01cc | | Execute Vector,Catenate 0630 8412 | | Call 0x2,0x12 0631 e606 | | Load 0x3,0x6 0632 e605 | | Load 0x3,0x5 0633 027d | } | Execute Discrete,Greater 0634 6810 |h | Jump_Zero 0x645 0635 e7fc | | Load 0x3,-0x4 0636 0092 07f5 | | Action Push_String_Extended,0x7f5 ; "Generation number " 0638 e606 | | Load 0x3,0x6 0639 821a | | Call 0x1,0x1a 063a 01cc | | Execute Vector,Catenate 063b 0092 07f6 | | Action Push_String_Extended,0x7f6 ; " is greater than generation number " 063d 01cc | | Execute Vector,Catenate 063e e605 | | Load 0x3,0x5 063f 821a | | Call 0x1,0x1a 0640 01cc | | Execute Vector,Catenate 0641 0092 080e | | Action Push_String_Extended,0x80e ; " in offset map for the primary subsystem" 0643 01cc | | Execute Vector,Catenate 0644 8412 | | Call 0x2,0x12 0645 00d9 | | Load_Top At_Offset_1 0646 e7fe | | Load 0x3,-0x2 0647 e012 | | Load 0x0,0x12 0648 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0649 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 064a c60a | | Store 0x3,0xa 064b 00cf | | Action Mark_Auxiliary 064c 7816 |x | Jump 0x663 064d 00da | | Load_Top At_Offset_2 064e e012 | | Load 0x0,0x12 064f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0650 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0651 a608 | | Store_Unchecked 0x3,0x8 0652 00da | | Load_Top At_Offset_2 0653 e012 | | Load 0x0,0x12 0654 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0655 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0656 e609 | | Load 0x3,0x9 0657 017d | } | Execute Record,Structure_Write 0658 e608 | | Load 0x3,0x8 0659 e609 | | Load 0x3,0x9 065a e7fc | | Load 0x3,-0x4 065b e7ff | | Load 0x3,-0x1 065c 841e | | Call 0x2,0x1e 065d 00da | | Load_Top At_Offset_2 065e e012 | | Load 0x0,0x12 065f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0660 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0661 c60a | | Store 0x3,0xa 0662 00c9 | | Action Pop_Auxiliary_Loop 0663 00da | | Load_Top At_Offset_2 0664 e012 | | Load 0x0,0x12 0665 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0666 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0667 6fe5 |o | Jump_Zero 0x64d 0668 00ce | | Action Pop_Auxiliary 0669 e405 | | Load 0x2,0x5 066a 6802 |h | Jump_Zero 0x66d 066b e7fc | | Load 0x3,-0x4 066c 8413 | | Call 0x2,0x13 066d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 066e 0000 0000 | | .XXX[0x2] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0685 | | .CONST 0x0685 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0004 | | .CONST 0x0004 ; Number of locals 0673 INIT_0670: 0673 e012 | | Load 0x0,0x12 0674 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0675 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0676 02c7 | | Declare_Variable Any 0677 00d8 | | Load_Top At_Offset_0 0678 1c00 | | Execute_Immediate Run_Utility,0x0 0679 e012 | | Load 0x0,0x12 067a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 067b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 067c 02c7 | | Declare_Variable Any 067d 00d8 | | Load_Top At_Offset_0 067e 1c00 | | Execute_Immediate Run_Utility,0x0 067f e012 | | Load 0x0,0x12 0680 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0681 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0682 02c7 | | Declare_Variable Any 0683 00d8 | | Load_Top At_Offset_0 0684 1c00 | | Execute_Immediate Run_Utility,0x0 0685 BODY_0670: 0685 00d8 | | Load_Top At_Offset_0 0686 0120 | | Execute Any,Is_Value 0687 6804 |h | Jump_Zero 0x68c 0688 e012 | | Load 0x0,0x12 0689 1b16 | | Execute Package,Field_Read,Field_Number 0x16 068a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 068b 7801 |x | Jump 0x68d 068c 00d8 | | Load_Top At_Offset_0 068d 00db | | Load_Top At_Offset_3 068e 4800 |H | Short_Literal 0x0 068f e00f | | Load 0x0,0xf 0690 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0691 e7ff | | Load 0x3,-0x1 0692 e012 | | Load 0x0,0x12 0693 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0694 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0695 c602 | | Store 0x3,0x2 0696 c604 | | Store 0x3,0x4 0697 00d8 | | Load_Top At_Offset_0 0698 e012 | | Load 0x0,0x12 0699 1b16 | | Execute Package,Field_Read,Field_Number 0x16 069a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 069b 7006 |p | Jump_Nonzero 0x6a2 069c 00d8 | | Load_Top At_Offset_0 069d e012 | | Load 0x0,0x12 069e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 069f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06a0 840c | | Call 0x2,0xc 06a1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06a2 00d8 | | Load_Top At_Offset_0 06a3 0120 | | Execute Any,Is_Value 06a4 6804 |h | Jump_Zero 0x6a9 06a5 e012 | | Load 0x0,0x12 06a6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06a8 7801 |x | Jump 0x6aa 06a9 00d8 | | Load_Top At_Offset_0 06aa 00da | | Load_Top At_Offset_2 06ab 4800 |H | Short_Literal 0x0 06ac e00f | | Load 0x0,0xf 06ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06ae e7fe | | Load 0x3,-0x2 06af e012 | | Load 0x0,0x12 06b0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06b1 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06b2 c603 | | Store 0x3,0x3 06b3 c604 | | Store 0x3,0x4 06b4 00d8 | | Load_Top At_Offset_0 06b5 e012 | | Load 0x0,0x12 06b6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06b8 7006 |p | Jump_Nonzero 0x6bf 06b9 00d8 | | Load_Top At_Offset_0 06ba e012 | | Load 0x0,0x12 06bb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06bd 840c | | Call 0x2,0xc 06be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06bf e7fe | | Load 0x3,-0x2 06c0 e7ff | | Load 0x3,-0x1 06c1 00db | | Load_Top At_Offset_3 06c2 e602 | | Load 0x3,0x2 06c3 841f | | Call 0x2,0x1f 06c4 00d8 | | Load_Top At_Offset_0 06c5 0120 | | Execute Any,Is_Value 06c6 6804 |h | Jump_Zero 0x6cb 06c7 e012 | | Load 0x0,0x12 06c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06ca 7801 |x | Jump 0x6cc 06cb 00d8 | | Load_Top At_Offset_0 06cc 00db | | Load_Top At_Offset_3 06cd e012 | | Load 0x0,0x12 06ce 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06cf 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06d0 c602 | | Store 0x3,0x2 06d1 c604 | | Store 0x3,0x4 06d2 00d8 | | Load_Top At_Offset_0 06d3 e012 | | Load 0x0,0x12 06d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06d5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06d6 7005 |p | Jump_Nonzero 0x6dc 06d7 00d8 | | Load_Top At_Offset_0 06d8 e012 | | Load 0x0,0x12 06d9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06da 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06db 840c | | Call 0x2,0xc 06dc 00d8 | | Load_Top At_Offset_0 06dd 0120 | | Execute Any,Is_Value 06de 6804 |h | Jump_Zero 0x6e3 06df e012 | | Load 0x0,0x12 06e0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06e2 7801 |x | Jump 0x6e4 06e3 00d8 | | Load_Top At_Offset_0 06e4 00da | | Load_Top At_Offset_2 06e5 e012 | | Load 0x0,0x12 06e6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06e7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06e8 c603 | | Store 0x3,0x3 06e9 c604 | | Store 0x3,0x4 06ea 00d8 | | Load_Top At_Offset_0 06eb e012 | | Load 0x0,0x12 06ec 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06ee 7005 |p | Jump_Nonzero 0x6f4 06ef 00d8 | | Load_Top At_Offset_0 06f0 e012 | | Load 0x0,0x12 06f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06f3 840c | | Call 0x2,0xc 06f4 e405 | | Load 0x2,0x5 06f5 6802 |h | Jump_Zero 0x6f8 06f6 e7fe | | Load 0x3,-0x2 06f7 8413 | | Call 0x2,0x13 06f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06f9 0000 0000 | | .BLANK 0000[0x7] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0712 | | .CONST 0x0712 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0006 | | .CONST 0x0006 ; Number of locals 0703 INIT_0700: 0703 00da | | Load_Top At_Offset_2 0704 841d | | Call 0x2,0x1d 0705 e003 | | Load 0x0,0x3 0706 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0707 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0708 e003 | | Load 0x0,0x3 0709 1b0f | | Execute Package,Field_Read,Field_Number 0xf 070a 02c7 | | Declare_Variable Any 070b 00d8 | | Load_Top At_Offset_0 070c 1c00 | | Execute_Immediate Run_Utility,0x0 070d e003 | | Load 0x0,0x3 070e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 070f e003 | | Load 0x0,0x3 0710 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0711 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0712 BODY_0700: 0712 e003 | | Load 0x0,0x3 0713 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0714 e003 | | Load 0x0,0x3 0715 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0716 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0717 605c |`\ | Indirect_Literal Discrete,0x774,{0x00000000, 0x00004000} 0718 e00f | | Load 0x0,0xf 0719 1b0e | | Execute Package,Field_Read,Field_Number 0xe 071a 4800 |H | Short_Literal 0x0 071b e5ff | | Load 0x2,-0x1 071c e003 | | Load 0x0,0x3 071d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 071e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071f c603 | | Store 0x3,0x3 0720 005a | Z | Store_Top Discrete,At_Offset_2 0721 00d9 | | Load_Top At_Offset_1 0722 821d | | Call 0x1,0x1d 0723 700b |p | Jump_Nonzero 0x72f 0724 e5fe | | Load 0x2,-0x2 0725 0092 0805 | | Action Push_String_Extended,0x805 ; "Could not get map context for <1>: " 0727 00db | | Load_Top At_Offset_3 0728 e003 | | Load 0x0,0x3 0729 1b0d | | Execute Package,Field_Read,Field_Number 0xd 072a 011c | | Execute Any,Convert_Unchecked 072b 1c01 | | Execute_Immediate Run_Utility,0x1 072c 01cc | | Execute Vector,Catenate 072d 840d | | Call 0x2,0xd 072e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 072f e003 | | Load 0x0,0x3 0730 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0731 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0732 00db | | Load_Top At_Offset_3 0733 0120 | | Execute Any,Is_Value 0734 6803 |h | Jump_Zero 0x738 0735 e003 | | Load 0x0,0x3 0736 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0737 7801 |x | Jump 0x739 0738 00db | | Load_Top At_Offset_3 0739 603a |`: | Indirect_Literal Discrete,0x774,{0x00000000, 0x00004000} 073a e00f | | Load 0x0,0xf 073b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 073c e603 | | Load 0x3,0x3 073d e602 | | Load 0x3,0x2 073e e003 | | Load 0x0,0x3 073f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0740 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0741 c604 | | Store 0x3,0x4 0742 0059 | Y | Store_Top Discrete,At_Offset_1 0743 00d8 | | Load_Top At_Offset_0 0744 460e |F | Jump_Case 0xf 0745 7822 |x" | Jump 0x768 ; case 0x0 0746 780d |x | Jump 0x754 ; case 0x1 0747 780c |x | Jump 0x754 ; case 0x2 0748 7823 |x# | Jump 0x76c ; case 0x3 0749 780a |x | Jump 0x754 ; case 0x4 074a 7809 |x | Jump 0x754 ; case 0x5 074b 7808 |x | Jump 0x754 ; case 0x6 074c 7807 |x | Jump 0x754 ; case 0x7 074d 7806 |x | Jump 0x754 ; case 0x8 074e 7805 |x | Jump 0x754 ; case 0x9 074f 7804 |x | Jump 0x754 ; case 0xa 0750 7803 |x | Jump 0x754 ; case 0xb 0751 7802 |x | Jump 0x754 ; case 0xc 0752 7801 |x | Jump 0x754 ; case 0xd 0753 7800 |x | Jump 0x754 ; case 0xe 0754 0092 0814 | | Action Push_String_Extended,0x814 ; "Could not find offset map in primary susystem because " 0756 601d |` | Indirect_Literal Discrete,0x774,{0x00000000, 0x00004000} 0757 e00f | | Load 0x0,0xf 0758 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0759 e010 | | Load 0x0,0x10 075a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 075b e011 | | Load 0x0,0x11 075c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 075d 4801 |H | Short_Literal 0x1 075e 4800 |H | Short_Literal 0x0 075f e603 | | Load 0x3,0x3 0760 e602 | | Load 0x3,0x2 0761 e606 | | Load 0x3,0x6 0762 e003 | | Load 0x0,0x3 0763 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0764 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0765 01cc | | Execute Vector,Catenate 0766 840c | | Call 0x2,0xc 0767 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0768 e7ff | | Load 0x3,-0x1 0769 00db | | Load_Top At_Offset_3 076a 8420 | | Call 0x2,0x20 076b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 076c e7ff | | Load 0x3,-0x1 076d 0092 0815 | | Action Push_String_Extended,0x815 ; "Offset map not found in primary subsystem" 076f 8412 | | Call 0x2,0x12 0770 e7ff | | Load 0x3,-0x1 0771 8413 | | Call 0x2,0x13 0772 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0773 0000 | | .XXX[0x1] 0774 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 078e | | .CONST 0x078e ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0005 | | .CONST 0x0005 ; Number of locals 077b INIT_0778: 077b e003 | | Load 0x0,0x3 077c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 077d 02c7 | | Declare_Variable Any 077e 00d8 | | Load_Top At_Offset_0 077f 1c00 | | Execute_Immediate Run_Utility,0x0 0780 e003 | | Load 0x0,0x3 0781 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0782 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0783 02c7 | | Declare_Variable Any 0784 00d8 | | Load_Top At_Offset_0 0785 1c00 | | Execute_Immediate Run_Utility,0x0 0786 e003 | | Load 0x0,0x3 0787 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0788 e012 | | Load 0x0,0x12 0789 1b16 | | Execute Package,Field_Read,Field_Number 0x16 078a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 078b 02c7 | | Declare_Variable Any 078c 00d8 | | Load_Top At_Offset_0 078d 1c00 | | Execute_Immediate Run_Utility,0x0 078e BODY_0778: 078e 00d8 | | Load_Top At_Offset_0 078f 0120 | | Execute Any,Is_Value 0790 6804 |h | Jump_Zero 0x795 0791 e012 | | Load 0x0,0x12 0792 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0793 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0794 7801 |x | Jump 0x796 0795 00d8 | | Load_Top At_Offset_0 0796 00db | | Load_Top At_Offset_3 0797 0120 | | Execute Any,Is_Value 0798 6804 |h | Jump_Zero 0x79d 0799 e003 | | Load 0x0,0x3 079a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 079b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 079c 7801 |x | Jump 0x79e 079d 00db | | Load_Top At_Offset_3 079e e00f | | Load 0x0,0xf 079f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07a0 e5fe | | Load 0x2,-0x2 07a1 e012 | | Load 0x0,0x12 07a2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07a3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07a4 c603 | | Store 0x3,0x3 07a5 c605 | | Store 0x3,0x5 07a6 00d8 | | Load_Top At_Offset_0 07a7 e012 | | Load 0x0,0x12 07a8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07a9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07aa 7006 |p | Jump_Nonzero 0x7b1 07ab 00d8 | | Load_Top At_Offset_0 07ac e012 | | Load 0x0,0x12 07ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18 07af 840c | | Call 0x2,0xc 07b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07b1 00cf | | Action Mark_Auxiliary 07b2 782a |x* | Jump 0x7dd 07b3 e003 | | Load 0x0,0x3 07b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07b5 e602 | | Load 0x3,0x2 07b6 0120 | | Execute Any,Is_Value 07b7 6803 |h | Jump_Zero 0x7bb 07b8 e003 | | Load 0x0,0x3 07b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ba 7801 |x | Jump 0x7bc 07bb e602 | | Load 0x3,0x2 07bc e603 | | Load 0x3,0x3 07bd e003 | | Load 0x0,0x3 07be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07bf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 07c0 c602 | | Store 0x3,0x2 07c1 005b | [ | Store_Top Discrete,At_Offset_3 07c2 00da | | Load_Top At_Offset_2 07c3 821d | | Call 0x1,0x1d 07c4 7010 |p | Jump_Nonzero 0x7d5 07c5 0092 0816 | | Action Push_String_Extended,0x816 ; "Could not get offset map for " 07c7 e603 | | Load 0x3,0x3 07c8 8402 | | Call 0x2,0x2 07c9 01cc | | Execute Vector,Catenate 07ca 0092 0809 | | Action Push_String_Extended,0x809 ; ": " 07cc 01cc | | Execute Vector,Catenate 07cd 00db | | Load_Top At_Offset_3 07ce e003 | | Load 0x0,0x3 07cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07d0 011c | | Execute Any,Convert_Unchecked 07d1 1c01 | | Execute_Immediate Run_Utility,0x1 07d2 01cc | | Execute Vector,Catenate 07d3 840c | | Call 0x2,0xc 07d4 7802 |x | Jump 0x7d7 07d5 e602 | | Load 0x3,0x2 07d6 8421 | ! | Call 0x2,0x21 07d7 00db | | Load_Top At_Offset_3 07d8 e003 | | Load 0x0,0x3 07d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07da 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07db c603 | | Store 0x3,0x3 07dc 00c9 | | Action Pop_Auxiliary_Loop 07dd 00db | | Load_Top At_Offset_3 07de e003 | | Load 0x0,0x3 07df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07e0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07e1 6fd1 |o | Jump_Zero 0x7b3 07e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07e3 ; -------------------------------------------------------------------------------------- 07e3 ; STRING TABLE 07e3 ; -------------------------------------------------------------------------------------- 07e3 006a | j | .STRTAB 0x006a->0x0818 ; "Comparing CDB for secondary subsystem <2> against CDB for primary subsystem <1>" 07e4 00b7 | | .STRTAB 0x00b7->0x083f ; "CDB for secondary subsystem <2> is incompatible with CDB for primary subsystem <1>" 07e5 0107 | | .STRTAB 0x0107->0x0868 ; "Incompatible unit maps" 07e6 011b | | .STRTAB 0x011b->0x0873 ; "Incompatible declaration maps" 07e7 0136 | 6 | .STRTAB 0x0136->0x0882 ; "Incompatible offset maps" 07e8 014c | L | .STRTAB 0x014c->0x088e ; "Errors (prevented complete comparison)" 07e9 0170 | p | .STRTAB 0x0170->0x08a1 ; "CDB for secondary subsystem <2> is compatible with CDB for primary subsystem <1>" 07ea 01be | | .STRTAB 0x01be->0x08c9 ; "Unit map for <1> is incompatible: " 07eb 01de | | .STRTAB 0x01de->0x08da ; "Unit map for <1> is incompatible" 07ec 01fc | | .STRTAB 0x01fc->0x08ea ; "Declaration map <1> is incompatible: " 07ed 021f | | .STRTAB 0x021f->0x08fc ; "Declaration map <1> is incompatible" 07ee 0240 | @ | .STRTAB 0x0240->0x090e ; "Offset map <1> is incompatible: " 07ef 025e | ^ | .STRTAB 0x025e->0x091e ; "Offset map <1> is incompatible" 07f0 027a | z | .STRTAB 0x027a->0x092d ; "Unit map not found for <1>" 07f1 0292 | | .STRTAB 0x0292->0x093a ; "Subsystem is not a secondary copy" 07f2 02b1 | | .STRTAB 0x02b1->0x094a ; "Subsystem ID " 07f3 02bc | | .STRTAB 0x02bc->0x0951 ; " does not match subsystem ID " 07f4 02d7 | | .STRTAB 0x02d7->0x095f ; " in unit map for the primary subsystem" 07f5 02fb | | .STRTAB 0x02fb->0x0972 ; "Generation number " 07f6 030b | | .STRTAB 0x030b->0x097b ; " is greater than generation number " 07f7 032c | , | .STRTAB 0x032c->0x098d ; "Last unit number " 07f8 033b | ; | .STRTAB 0x033b->0x0995 ; " is greater than last unit number " 07f9 035b | [ | .STRTAB 0x035b->0x09a6 ; "Unit number for " 07fa 0369 | i | .STRTAB 0x0369->0x09ae ; " does not match unit number " 07fb 0383 | | .STRTAB 0x0383->0x09bc ; " is not defined in unit map for the primary subsystem" 07fc 03b6 | | .STRTAB 0x03b6->0x09d7 ; "State.Compatibility.Declaration_Numbers." 07fd 03dc | | .STRTAB 0x03dc->0x09eb ; "Subsystem mode is not secondary" 07fe 03f9 | | .STRTAB 0x03f9->0x09fa ; " does not match Subsystem ID " 07ff 0414 | | .STRTAB 0x0414->0x0a09 ; " in declaration map for the primary subsystem" 0800 043f | ? | .STRTAB 0x043f->0x0a1f ; "Last decl number " 0801 044e | N | .STRTAB 0x044e->0x0a28 ; " is greater than last declaration number " 0802 0475 | u | .STRTAB 0x0475->0x0a3c ; "Declaration number " 0803 0486 | | .STRTAB 0x0486->0x0a46 ; " conflicts with declaration number " 0804 04a7 | | .STRTAB 0x04a7->0x0a57 ; " is not defined in the declaration map for the primary subsystem" 0805 04e5 | | .STRTAB 0x04e5->0x0a77 ; "Could not get map context for <1>: " 0806 0506 | | .STRTAB 0x0506->0x0a89 ; "Could not find declaration map in primary susystem because " 0807 053f | ? | .STRTAB 0x053f->0x0aa6 ; "Declaration map not found in primary subsystem" 0808 056b | k | .STRTAB 0x056b->0x0abd ; "Could not get declaration map for " 0809 058b | | .STRTAB 0x058b->0x0ace ; ": " 080a 058b | | .STRTAB 0x058b->0x0acf ; "State.Compatibility.Offsets." 080b 05a5 | | .STRTAB 0x05a5->0x0add ; "Next offset " 080c 05af | | .STRTAB 0x05af->0x0ae3 ; " for declaration " 080d 05be | | .STRTAB 0x05be->0x0aec ; " is greater than next offset " 080e 05d9 | | .STRTAB 0x05d9->0x0afa ; " in offset map for the primary subsystem" 080f 05ff | | .STRTAB 0x05ff->0x0b0e ; "Offset " 0810 0604 | | .STRTAB 0x0604->0x0b12 ; " does not match offset " 0811 0619 | | .STRTAB 0x0619->0x0b1d ; "Next offset for declaration " 0812 0633 | 3 | .STRTAB 0x0633->0x0b2b ; " is not defined in offset map for the primary subsystem" 0813 0668 | h | .STRTAB 0x0668->0x0b47 ; "Offset for declaration " 0814 067d | } | .STRTAB 0x067d->0x0b52 ; "Could not find offset map in primary susystem because " 0815 06b1 | | .STRTAB 0x06b1->0x0b6d ; "Offset map not found in primary subsystem" 0816 06d8 | | .STRTAB 0x06d8->0x0b82 ; "Could not get offset map for " 0817 06f3 | | .STREND 0x06f3->0x0b90 0818 436f 6d70 |Comp| .STRTAB_STRINGS 0b91 0000 0000 | | .BLANK 0000[0x7] 0b98 ; -------------------------------------------------------------------------------------- 0b98 ; Debug Table 0b98 ; -------------------------------------------------------------------------------------- 0b98 0004 000f | | .DEBUG4 0x0004,0x000f,0x4b36,0x0000,0x0001,0x0000 0b9e 0309 039b | | .XXX[0x24] 0ba0 a30b 3b4b | ;K| 0ba2 7339 030b |s9 | 0ba4 932b 0903 | + | 0ba6 337b 9103 |3{ | 0ba8 0b73 c903 | s | 0baa 0b23 234b | ##K| 0bac a34b 7b73 | K{s| 0bae 0b61 0383 | a | 0bb0 937b 1b2b | { +| 0bb2 9b9b 4b73 | Ks| 0bb4 3903 132b |9 +| 0bb6 337b 9329 |3{ )| 0bb8 036b 7bb3 | k{ | 0bba 4b73 3903 |Ks9 | 0bbc a343 2b68 | C+h| 0bbe 0000 02f8 | | 0bc0 0000 0261 | a| 0bc2 0101 0101 | | .BLANK 0101[0x5] 0bc7 6969 0309 |ii | .XXX[0x25] 0bc9 039b a30b | | 0bcb 3b4b 7339 |;Ks9| 0bcd 030b 932b | +| 0bcf 0903 337b | 3{| 0bd1 9103 0b73 | s| 0bd3 c903 0b23 | #| 0bd5 234b a34b |#K K| 0bd7 7b73 0b61 |{s a| 0bd9 0383 937b | {| 0bdb 1b2b 9b9b | + | 0bdd 4b73 3903 |Ks9 | 0bdf 132b 337b | +3{| 0be1 9329 036b | ) k| 0be3 7bb3 4b73 |{ Ks| 0be5 3903 a343 |9 C| 0be7 2b68 0000 |+h | 0be9 02f8 0000 | | 0beb 0261 | a | 0bec 0101 0101 | | .BLANK 0101[0x5] 0bf1 6969 0309 |ii | .XXX[0xf] 0bf3 039b a30b | | 0bf5 3b4b 7339 |;Ks9| 0bf7 030b 932b | +| 0bf9 0903 337b | 3{| 0bfb 9103 0b73 | s| 0bfd c903 0b23 | #| 0bff 234b |#K |