|
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: 4096 (0x1000)
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 0660 | ` | .CONST 0x0660 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006e | n | .CONST 0x006e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0017 c215 | | Store 0x1,0x15
0018 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
001a c213 | | Store 0x1,0x13
001b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001d c216 | | Store 0x1,0x16
001e 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0020 c214 | | Store 0x1,0x14
0021 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0023 c20f | | Store 0x1,0xf
0024 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0026 c210 | | Store 0x1,0x10
0027 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0029 c211 | | Store 0x1,0x11
002a 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
002c c212 | | Store 0x1,0x12
002d 00bf | | Action Accept_Activation
002e 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
0030 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0032 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0034 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
0036 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
0038 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call
003a 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
003c 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
003e 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call
0040 4800 |H | Short_Literal 0x0
0041 e001 | | Load 0x0,0x1
0042 02a0 | | Declare_Subprogram Null_Subprogram
0043 038e | | Declare_Type Package,Defined
0044 0387 | | Declare_Variable Package
0045 e002 | | Load 0x0,0x2
0046 e003 | | Load 0x0,0x3
0047 e004 | | Load 0x0,0x4
0048 e005 | | Load 0x0,0x5
0049 4804 |H | Short_Literal 0x4
004a e220 | | Load 0x1,0x20
004b 020e | | Execute Module,Augment_Imports
004c 00d8 | | Load_Top At_Offset_0
004d 020f | | Execute Module,Activate
004e e006 | | Load 0x0,0x6
004f 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
0050 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0051 00c7 | | Action Elaborate_Subprogram
0052 e007 | | Load 0x0,0x7
0053 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0054 e008 | | Load 0x0,0x8
0055 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0056 e009 | | Load 0x0,0x9
0057 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0058 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call
005a 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call
005c 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005f 00c7 | | Action Elaborate_Subprogram
0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0061 00c7 | | Action Elaborate_Subprogram
0062 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0063 00c7 | | Action Elaborate_Subprogram
0064 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0065 00c7 | | Action Elaborate_Subprogram
0066 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0067 00c7 | | Action Elaborate_Subprogram
0068 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0069 00c7 | | Action Elaborate_Subprogram
006a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
006b 00c7 | | Action Elaborate_Subprogram
006c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
006d 00c7 | | Action Elaborate_Subprogram
006e BODY_0008:
006e 00bc | | Action Signal_Activated
006f 00bb | | Action Signal_Completion
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0074 | t | .CONST 0x0074 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 00e1 | | Load_Encached Boolean_Cache
0074 BODY_0070:
0074 e5fc | | Load 0x2,-0x4
0075 e5fd | | Load 0x2,-0x3
0076 e5fe | | Load 0x2,-0x2
0077 e5ff | | Load 0x2,-0x1
0078 8213 | | Call 0x1,0x13
0079 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
007a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
007b 0000 0000 | | .BLANK 0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 009b | | .CONST 0x009b ; Address of begin
0081 00fe | | .CONST 0x00fe ; Address of exception handler
0082 0008 | | .CONST 0x0008 ; Number of locals
0083 INIT_0080:
0083 e5fc | | Load 0x2,-0x4
0084 e00a | | Load 0x0,0xa
0085 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0086 e00a | | Load 0x0,0xa
0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0088 011e | | Execute Any,Convert
0089 e003 | | Load 0x0,0x3
008a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
008b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
008c 02c7 | | Declare_Variable Any
008d 00d8 | | Load_Top At_Offset_0
008e 1c00 | | Execute_Immediate Run_Utility,0x0
008f e003 | | Load 0x0,0x3
0090 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0091 02c7 | | Declare_Variable Any
0092 00d8 | | Load_Top At_Offset_0
0093 1c00 | | Execute_Immediate Run_Utility,0x0
0094 e003 | | Load 0x0,0x3
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 00e3 | | Load_Encached Natural_Cache
0097 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0098 00e1 | | Load_Encached Boolean_Cache
0099 029f 049b | | Declare_Subprogram INIT_0498,For_Call
009b BODY_0080:
009b e402 | | Load 0x2,0x2
009c 0092 051f | | Action Push_String_Extended,0x51f ; "Subsystems => \x22"
009e e5ff | | Load 0x2,-0x1
009f 01cc | | Execute Vector,Catenate
00a0 0092 0520 | | Action Push_String_Extended,0x520 ; "\x22, Verify_Cdb => "
00a2 01cc | | Execute Vector,Catenate
00a3 e5fe | | Load 0x2,-0x2
00a4 00e1 | | Load_Encached Boolean_Cache
00a5 011c | | Execute Any,Convert_Unchecked
00a6 1c01 | | Execute_Immediate Run_Utility,0x1
00a7 01cc | | Execute Vector,Catenate
00a8 0092 0521 | !| Action Push_String_Extended,0x521 ; ", Verify_Ada_Units => "
00aa 01cc | | Execute Vector,Catenate
00ab e5fd | | Load 0x2,-0x3
00ac 00e1 | | Load_Encached Boolean_Cache
00ad 011c | | Execute Any,Convert_Unchecked
00ae 1c01 | | Execute_Immediate Run_Utility,0x1
00af 01cc | | Execute Vector,Catenate
00b0 0092 0522 | "| Action Push_String_Extended,0x522 ; ", Response => \x22"
00b2 01cc | | Execute Vector,Catenate
00b3 e5fc | | Load 0x2,-0x4
00b4 01cc | | Execute Vector,Catenate
00b5 0092 0523 | #| Action Push_String_Extended,0x523 ; "\x22"
00b7 01cc | | Execute Vector,Catenate
00b8 0092 0524 | $| Action Push_String_Extended,0x524 ; "Verify"
00ba e220 | | Load 0x1,0x20
00bb 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bc 00e1 | | Load_Encached Boolean_Cache
00bd e403 | | Load 0x2,0x3
00be 0120 | | Execute Any,Is_Value
00bf 6804 |h | Jump_Zero 0xc4
00c0 e003 | | Load 0x0,0x3
00c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c2 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00c3 7801 |x | Jump 0xc5
00c4 e403 | | Load 0x2,0x3
00c5 e402 | | Load 0x2,0x2
00c6 e5ff | | Load 0x2,-0x1
00c7 8227 | ' | Call 0x1,0x27
00c8 c403 | | Store 0x2,0x3
00c9 005a | Z | Store_Top Discrete,At_Offset_2
00ca 00d9 | | Load_Top At_Offset_1
00cb 700c |p | Jump_Nonzero 0xd8
00cc e402 | | Load 0x2,0x2
00cd 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
00cf e220 | | Load 0x1,0x20
00d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d1 e402 | | Load 0x2,0x2
00d2 0092 0524 | $| Action Push_String_Extended,0x524 ; "Verify"
00d4 e220 | | Load 0x1,0x20
00d5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d6 4800 |H | Short_Literal 0x0
00d7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00d8 00cf | | Action Mark_Auxiliary
00d9 7807 |x | Jump 0xe1
00da 8408 | | Call 0x2,0x8
00db e403 | | Load 0x2,0x3
00dc e003 | | Load 0x0,0x3
00dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00de 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00df c403 | | Store 0x2,0x3
00e0 00c9 | | Action Pop_Auxiliary_Loop
00e1 e403 | | Load 0x2,0x3
00e2 e003 | | Load 0x0,0x3
00e3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e5 6ff4 |o | Jump_Zero 0xda
00e6 00ce | | Action Pop_Auxiliary
00e7 00da | | Load_Top At_Offset_2
00e8 0c01 | | Execute_Immediate Greater_Equal,0x1
00e9 6807 |h | Jump_Zero 0xf1
00ea e402 | | Load 0x2,0x2
00eb 0092 0526 | &| Action Push_String_Extended,0x526 ; "Corrupted subsystems"
00ed e406 | | Load 0x2,0x6
00ee e220 | | Load 0x1,0x20
00ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f0 7805 |x | Jump 0xf6
00f1 e402 | | Load 0x2,0x2
00f2 0092 0527 | '| Action Push_String_Extended,0x527 ; "All subsystems are ok"
00f4 e220 | | Load 0x1,0x20
00f5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00f6 e402 | | Load 0x2,0x2
00f7 0092 0524 | $| Action Push_String_Extended,0x524 ; "Verify"
00f9 e220 | | Load 0x1,0x20
00fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fb 00da | | Load_Top At_Offset_2
00fc 0f00 | | Execute_Immediate Equal,0x0
00fd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00fe TRAP_0080:
00fe e00a | | Load 0x0,0xa
00ff 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0100 010f | | Execute Exception,Equal
0101 6807 |h | Jump_Zero 0x109
0102 e402 | | Load 0x2,0x2
0103 0092 0524 | $| Action Push_String_Extended,0x524 ; "Verify"
0105 e220 | | Load 0x1,0x20
0106 180e | | Execute Package,Field_Execute,Field_Number 0xe
0107 00d8 | | Load_Top At_Offset_0
0108 0101 | | Execute Exception,Reraise
0109 e402 | | Load 0x2,0x2
010a e220 | | Load 0x1,0x20
010b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
010c e402 | | Load 0x2,0x2
010d 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
010f e220 | | Load 0x1,0x20
0110 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0111 e402 | | Load 0x2,0x2
0112 0092 0524 | $| Action Push_String_Extended,0x524 ; "Verify"
0114 e220 | | Load 0x1,0x20
0115 180e | | Execute Package,Field_Execute,Field_Number 0xe
0116 4800 |H | Short_Literal 0x0
0117 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011c | | .CONST 0x011c ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 00e1 | | Load_Encached Boolean_Cache
011c BODY_0118:
011c e5fd | | Load 0x2,-0x3
011d e5fe | | Load 0x2,-0x2
011e e5ff | | Load 0x2,-0x1
011f 8214 | | Call 0x1,0x14
0120 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0121 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 013c | < | .CONST 0x013c ; Address of begin
0129 0190 | | .CONST 0x0190 ; Address of exception handler
012a 0005 | | .CONST 0x0005 ; Number of locals
012b INIT_0128:
012b e5fd | | Load 0x2,-0x3
012c e00a | | Load 0x0,0xa
012d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
012e e00a | | Load 0x0,0xa
012f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0130 011e | | Execute Any,Convert
0131 e003 | | Load 0x0,0x3
0132 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0133 02c7 | | Declare_Variable Any
0134 00d8 | | Load_Top At_Offset_0
0135 1c00 | | Execute_Immediate Run_Utility,0x0
0136 e003 | | Load 0x0,0x3
0137 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0138 02c7 | | Declare_Variable Any
0139 00d8 | | Load_Top At_Offset_0
013a 1c00 | | Execute_Immediate Run_Utility,0x0
013b 00e1 | | Load_Encached Boolean_Cache
013c BODY_0128:
013c 00db | | Load_Top At_Offset_3
013d 0092 0528 | (| Action Push_String_Extended,0x528 ; "Primary_Subsystem => \x22"
013f e5ff | | Load 0x2,-0x1
0140 01cc | | Execute Vector,Catenate
0141 0092 0529 | )| Action Push_String_Extended,0x529 ; "\x22, Secondary_Subsystem => \x22"
0143 01cc | | Execute Vector,Catenate
0144 e5fe | | Load 0x2,-0x2
0145 01cc | | Execute Vector,Catenate
0146 0092 052a | *| Action Push_String_Extended,0x52a ; "\x22, Response => \x22"
0148 01cc | | Execute Vector,Catenate
0149 e5fd | | Load 0x2,-0x3
014a 01cc | | Execute Vector,Catenate
014b 0092 0523 | #| Action Push_String_Extended,0x523 ; "\x22"
014d 01cc | | Execute Vector,Catenate
014e 0092 052b | +| Action Push_String_Extended,0x52b ; "Compare"
0150 e220 | | Load 0x1,0x20
0151 180d | | Execute Package,Field_Execute,Field_Number 0xd
0152 00e1 | | Load_Encached Boolean_Cache
0153 00db | | Load_Top At_Offset_3
0154 0120 | | Execute Any,Is_Value
0155 6803 |h | Jump_Zero 0x159
0156 e003 | | Load 0x0,0x3
0157 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0158 7801 |x | Jump 0x15a
0159 00db | | Load_Top At_Offset_3
015a e402 | | Load 0x2,0x2
015b e5ff | | Load 0x2,-0x1
015c 8226 | & | Call 0x1,0x26
015d c403 | | Store 0x2,0x3
015e 0059 | Y | Store_Top Discrete,At_Offset_1
015f 00d8 | | Load_Top At_Offset_0
0160 700c |p | Jump_Nonzero 0x16d
0161 00db | | Load_Top At_Offset_3
0162 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
0164 e220 | | Load 0x1,0x20
0165 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0166 00db | | Load_Top At_Offset_3
0167 0092 052b | +| Action Push_String_Extended,0x52b ; "Compare"
0169 e220 | | Load 0x1,0x20
016a 180e | | Execute Package,Field_Execute,Field_Number 0xe
016b 4800 |H | Short_Literal 0x0
016c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
016d 00e1 | | Load_Encached Boolean_Cache
016e 00da | | Load_Top At_Offset_2
016f 0120 | | Execute Any,Is_Value
0170 6803 |h | Jump_Zero 0x174
0171 e003 | | Load 0x0,0x3
0172 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0173 7801 |x | Jump 0x175
0174 00da | | Load_Top At_Offset_2
0175 e402 | | Load 0x2,0x2
0176 e5fe | | Load 0x2,-0x2
0177 8226 | & | Call 0x1,0x26
0178 c404 | | Store 0x2,0x4
0179 0059 | Y | Store_Top Discrete,At_Offset_1
017a 00d8 | | Load_Top At_Offset_0
017b 7007 |p | Jump_Nonzero 0x183
017c 00db | | Load_Top At_Offset_3
017d 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
017f e220 | | Load 0x1,0x20
0180 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0181 4800 |H | Short_Literal 0x0
0182 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0183 00e1 | | Load_Encached Boolean_Cache
0184 e402 | | Load 0x2,0x2
0185 00db | | Load_Top At_Offset_3
0186 e403 | | Load 0x2,0x3
0187 8223 | # | Call 0x1,0x23
0188 0059 | Y | Store_Top Discrete,At_Offset_1
0189 00db | | Load_Top At_Offset_3
018a 0092 052b | +| Action Push_String_Extended,0x52b ; "Compare"
018c e220 | | Load 0x1,0x20
018d 180e | | Execute Package,Field_Execute,Field_Number 0xe
018e 00d8 | | Load_Top At_Offset_0
018f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0190 TRAP_0128:
0190 e00a | | Load 0x0,0xa
0191 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0192 010f | | Execute Exception,Equal
0193 6807 |h | Jump_Zero 0x19b
0194 e402 | | Load 0x2,0x2
0195 0092 052b | +| Action Push_String_Extended,0x52b ; "Compare"
0197 e220 | | Load 0x1,0x20
0198 180e | | Execute Package,Field_Execute,Field_Number 0xe
0199 00d8 | | Load_Top At_Offset_0
019a 0101 | | Execute Exception,Reraise
019b e402 | | Load 0x2,0x2
019c e220 | | Load 0x1,0x20
019d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
019e e402 | | Load 0x2,0x2
019f 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
01a1 e220 | | Load 0x1,0x20
01a2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01a3 e402 | | Load 0x2,0x2
01a4 0092 052b | +| Action Push_String_Extended,0x52b ; "Compare"
01a6 e220 | | Load 0x1,0x20
01a7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a8 4800 |H | Short_Literal 0x0
01a9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b9 | | .CONST 0x01b9 ; Address of begin
01b1 01cd | | .CONST 0x01cd ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 e00a | | Load 0x0,0xa
01b5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01b6 e00a | | Load 0x0,0xa
01b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b8 011e | | Execute Any,Convert
01b9 BODY_01b0:
01b9 e5fe | | Load 0x2,-0x2
01ba 4800 |H | Short_Literal 0x0
01bb 0092 052c | ,| Action Push_String_Extended,0x52c ; "<WORLDS>"
01bd e5ff | | Load 0x2,-0x1
01be e00b | | Load 0x0,0xb
01bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01c0 e5fe | | Load 0x2,-0x2
01c1 0092 052c | ,| Action Push_String_Extended,0x52c ; "<WORLDS>"
01c3 6018 |` | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x7fffffff}
01c4 485b |H[ | Short_Literal 0x5b
01c5 e5ff | | Load 0x2,-0x1
01c6 01ca | | Execute Vector,Prepend
01c7 0092 052d | -| Action Push_String_Extended,0x52d ; "].@.<*Program_Library>"
01c9 01cc | | Execute Vector,Catenate
01ca e00c | | Load 0x0,0xc
01cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01cc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01cd TRAP_01b0:
01cd e00a | | Load 0x0,0xa
01ce 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
01cf 010f | | Execute Exception,Equal
01d0 6802 |h | Jump_Zero 0x1d3
01d1 00d8 | | Load_Top At_Offset_0
01d2 0101 | | Execute Exception,Reraise
01d3 00d9 | | Load_Top At_Offset_1
01d4 e220 | | Load 0x1,0x20
01d5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01d6 00d9 | | Load_Top At_Offset_1
01d7 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
01d9 e220 | | Load 0x1,0x20
01da 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01db 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01dc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e9 | | .CONST 0x01e9 ; Address of begin
01e1 020a | | .CONST 0x020a ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e5fd | | Load 0x2,-0x3
01e4 e00a | | Load 0x0,0xa
01e5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01e6 e00a | | Load 0x0,0xa
01e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e8 011e | | Execute Any,Convert
01e9 BODY_01e0:
01e9 00d8 | | Load_Top At_Offset_0
01ea 0092 052e | .| Action Push_String_Extended,0x52e ; "Subsystem => \x22"
01ec e5ff | | Load 0x2,-0x1
01ed 01cc | | Execute Vector,Catenate
01ee 0092 052f | /| Action Push_String_Extended,0x52f ; "\x22,From_Primary => \x22"
01f0 01cc | | Execute Vector,Catenate
01f1 e5fe | | Load 0x2,-0x2
01f2 01cc | | Execute Vector,Catenate
01f3 0092 052a | *| Action Push_String_Extended,0x52a ; "\x22, Response => \x22"
01f5 01cc | | Execute Vector,Catenate
01f6 e5fd | | Load 0x2,-0x3
01f7 01cc | | Execute Vector,Catenate
01f8 0092 0523 | #| Action Push_String_Extended,0x523 ; "\x22"
01fa 01cc | | Execute Vector,Catenate
01fb 0092 0530 | 0| Action Push_String_Extended,0x530 ; "Update"
01fd e220 | | Load 0x1,0x20
01fe 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ff e5fd | | Load 0x2,-0x3
0200 e5ff | | Load 0x2,-0x1
0201 e5fe | | Load 0x2,-0x2
0202 e00b | | Load 0x0,0xb
0203 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0204 00d8 | | Load_Top At_Offset_0
0205 0092 0530 | 0| Action Push_String_Extended,0x530 ; "Update"
0207 e220 | | Load 0x1,0x20
0208 180e | | Execute Package,Field_Execute,Field_Number 0xe
0209 4504 |E | Exit_Suprogram New_Top_Offset 0x4
020a TRAP_01e0:
020a e00a | | Load 0x0,0xa
020b 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
020c 010f | | Execute Exception,Equal
020d 6807 |h | Jump_Zero 0x215
020e 00d9 | | Load_Top At_Offset_1
020f 0092 0530 | 0| Action Push_String_Extended,0x530 ; "Update"
0211 e220 | | Load 0x1,0x20
0212 180e | | Execute Package,Field_Execute,Field_Number 0xe
0213 00d8 | | Load_Top At_Offset_0
0214 0101 | | Execute Exception,Reraise
0215 00d9 | | Load_Top At_Offset_1
0216 e220 | | Load 0x1,0x20
0217 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0218 00d9 | | Load_Top At_Offset_1
0219 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
021b e220 | | Load 0x1,0x20
021c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
021d 00d9 | | Load_Top At_Offset_1
021e 0092 0530 | 0| Action Push_String_Extended,0x530 ; "Update"
0220 e220 | | Load 0x1,0x20
0221 180e | | Execute Package,Field_Execute,Field_Number 0xe
0222 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0223 0000 0000 | | .BLANK 0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0231 | 1 | .CONST 0x0231 ; Address of begin
0229 027f | | .CONST 0x027f ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e5fa | | Load 0x2,-0x6
022c e00a | | Load 0x0,0xa
022d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
022e e00a | | Load 0x0,0xa
022f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0230 011e | | Execute Any,Convert
0231 BODY_0228:
0231 00d8 | | Load_Top At_Offset_0
0232 0092 0531 | 1| Action Push_String_Extended,0x531 ; "(Subsystems => \x22"
0234 e5ff | | Load 0x2,-0x1
0235 01cc | | Execute Vector,Catenate
0236 0092 0532 | 2| Action Push_String_Extended,0x532 ; "\x22, Unit_Maps => "
0238 01cc | | Execute Vector,Catenate
0239 e5fe | | Load 0x2,-0x2
023a 00e1 | | Load_Encached Boolean_Cache
023b 011c | | Execute Any,Convert_Unchecked
023c 1c01 | | Execute_Immediate Run_Utility,0x1
023d 01cc | | Execute Vector,Catenate
023e 0092 0533 | 3| Action Push_String_Extended,0x533 ; ", Declaration_Maps => "
0240 01cc | | Execute Vector,Catenate
0241 e5fd | | Load 0x2,-0x3
0242 00e1 | | Load_Encached Boolean_Cache
0243 011c | | Execute Any,Convert_Unchecked
0244 1c01 | | Execute_Immediate Run_Utility,0x1
0245 01cc | | Execute Vector,Catenate
0246 0092 0534 | 4| Action Push_String_Extended,0x534 ; ", Offset_Maps => "
0248 01cc | | Execute Vector,Catenate
0249 e5fc | | Load 0x2,-0x4
024a 00e1 | | Load_Encached Boolean_Cache
024b 011c | | Execute Any,Convert_Unchecked
024c 1c01 | | Execute_Immediate Run_Utility,0x1
024d 01cc | | Execute Vector,Catenate
024e 0092 0535 | 5| Action Push_String_Extended,0x535 ; ", Compatibility_Signatures => "
0250 01cc | | Execute Vector,Catenate
0251 e5fb | | Load 0x2,-0x5
0252 00e1 | | Load_Encached Boolean_Cache
0253 011c | | Execute Any,Convert_Unchecked
0254 1c01 | | Execute_Immediate Run_Utility,0x1
0255 01cc | | Execute Vector,Catenate
0256 0092 0522 | "| Action Push_String_Extended,0x522 ; ", Response => \x22"
0258 01cc | | Execute Vector,Catenate
0259 e5fa | | Load 0x2,-0x6
025a 01cc | | Execute Vector,Catenate
025b 0092 0523 | #| Action Push_String_Extended,0x523 ; "\x22"
025d 01cc | | Execute Vector,Catenate
025e 0092 0536 | 6| Action Push_String_Extended,0x536 ; "Display"
0260 e220 | | Load 0x1,0x20
0261 180d | | Execute Package,Field_Execute,Field_Number 0xd
0262 e5fe | | Load 0x2,-0x2
0263 6804 |h | Jump_Zero 0x268
0264 4800 |H | Short_Literal 0x0
0265 e5ff | | Load 0x2,-0x1
0266 e00d | | Load 0x0,0xd
0267 180d | | Execute Package,Field_Execute,Field_Number 0xd
0268 e5fd | | Load 0x2,-0x3
0269 6804 |h | Jump_Zero 0x26e
026a 4800 |H | Short_Literal 0x0
026b e5ff | | Load 0x2,-0x1
026c e00d | | Load 0x0,0xd
026d 180e | | Execute Package,Field_Execute,Field_Number 0xe
026e e5fc | | Load 0x2,-0x4
026f 6804 |h | Jump_Zero 0x274
0270 4800 |H | Short_Literal 0x0
0271 e5ff | | Load 0x2,-0x1
0272 e00d | | Load 0x0,0xd
0273 180f | | Execute Package,Field_Execute,Field_Number 0xf
0274 e5fb | | Load 0x2,-0x5
0275 6803 |h | Jump_Zero 0x279
0276 00db | | Load_Top At_Offset_3
0277 e00d | | Load 0x0,0xd
0278 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0279 00d8 | | Load_Top At_Offset_0
027a 0092 0536 | 6| Action Push_String_Extended,0x536 ; "Display"
027c e220 | | Load 0x1,0x20
027d 180e | | Execute Package,Field_Execute,Field_Number 0xe
027e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
027f TRAP_0228:
027f e00a | | Load 0x0,0xa
0280 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0281 010f | | Execute Exception,Equal
0282 6807 |h | Jump_Zero 0x28a
0283 00d9 | | Load_Top At_Offset_1
0284 0092 0536 | 6| Action Push_String_Extended,0x536 ; "Display"
0286 e220 | | Load 0x1,0x20
0287 180e | | Execute Package,Field_Execute,Field_Number 0xe
0288 00d8 | | Load_Top At_Offset_0
0289 0101 | | Execute Exception,Reraise
028a 00d9 | | Load_Top At_Offset_1
028b e220 | | Load 0x1,0x20
028c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
028d 00d9 | | Load_Top At_Offset_1
028e 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
0290 e220 | | Load 0x1,0x20
0291 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0292 00d9 | | Load_Top At_Offset_1
0293 0092 0536 | 6| Action Push_String_Extended,0x536 ; "Display"
0295 e220 | | Load 0x1,0x20
0296 180e | | Execute Package,Field_Execute,Field_Number 0xe
0297 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02b3 | | .CONST 0x02b3 ; Address of begin
0299 02fe | | .CONST 0x02fe ; Address of exception handler
029a 0008 | | .CONST 0x0008 ; Number of locals
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3
029c e00a | | Load 0x0,0xa
029d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
029e e00a | | Load 0x0,0xa
029f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a0 011e | | Execute Any,Convert
02a1 e003 | | Load 0x0,0x3
02a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a3 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02a4 02c7 | | Declare_Variable Any
02a5 00d8 | | Load_Top At_Offset_0
02a6 1c00 | | Execute_Immediate Run_Utility,0x0
02a7 e003 | | Load 0x0,0x3
02a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a9 02c7 | | Declare_Variable Any
02aa 00d8 | | Load_Top At_Offset_0
02ab 1c00 | | Execute_Immediate Run_Utility,0x0
02ac e003 | | Load 0x0,0x3
02ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ae 00e3 | | Load_Encached Natural_Cache
02af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02b0 00e1 | | Load_Encached Boolean_Cache
02b1 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
02b3 BODY_0298:
02b3 e402 | | Load 0x2,0x2
02b4 0092 051f | | Action Push_String_Extended,0x51f ; "Subsystems => \x22"
02b6 e5ff | | Load 0x2,-0x1
02b7 01cc | | Execute Vector,Catenate
02b8 0092 052a | *| Action Push_String_Extended,0x52a ; "\x22, Response => \x22"
02ba 01cc | | Execute Vector,Catenate
02bb e5fe | | Load 0x2,-0x2
02bc 01cc | | Execute Vector,Catenate
02bd 0092 0523 | #| Action Push_String_Extended,0x523 ; "\x22"
02bf 01cc | | Execute Vector,Catenate
02c0 0092 0537 | 7| Action Push_String_Extended,0x537 ; "Convert"
02c2 e220 | | Load 0x1,0x20
02c3 180d | | Execute Package,Field_Execute,Field_Number 0xd
02c4 00e1 | | Load_Encached Boolean_Cache
02c5 e403 | | Load 0x2,0x3
02c6 0120 | | Execute Any,Is_Value
02c7 6804 |h | Jump_Zero 0x2cc
02c8 e003 | | Load 0x0,0x3
02c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ca 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02cb 7801 |x | Jump 0x2cd
02cc e403 | | Load 0x2,0x3
02cd e402 | | Load 0x2,0x2
02ce e5ff | | Load 0x2,-0x1
02cf 8227 | ' | Call 0x1,0x27
02d0 c403 | | Store 0x2,0x3
02d1 005a | Z | Store_Top Discrete,At_Offset_2
02d2 00d9 | | Load_Top At_Offset_1
02d3 7006 |p | Jump_Nonzero 0x2da
02d4 e402 | | Load 0x2,0x2
02d5 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
02d7 e220 | | Load 0x1,0x20
02d8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02da 00cf | | Action Mark_Auxiliary
02db 7807 |x | Jump 0x2e3
02dc 8408 | | Call 0x2,0x8
02dd e403 | | Load 0x2,0x3
02de e003 | | Load 0x0,0x3
02df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02e1 c403 | | Store 0x2,0x3
02e2 00c9 | | Action Pop_Auxiliary_Loop
02e3 e403 | | Load 0x2,0x3
02e4 e003 | | Load 0x0,0x3
02e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02e7 6ff4 |o | Jump_Zero 0x2dc
02e8 00ce | | Action Pop_Auxiliary
02e9 00da | | Load_Top At_Offset_2
02ea 0c01 | | Execute_Immediate Greater_Equal,0x1
02eb 6807 |h | Jump_Zero 0x2f3
02ec e402 | | Load 0x2,0x2
02ed 0092 0538 | 8| Action Push_String_Extended,0x538 ; "Subsystems not converted"
02ef e406 | | Load 0x2,0x6
02f0 e220 | | Load 0x1,0x20
02f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02f2 7805 |x | Jump 0x2f8
02f3 e402 | | Load 0x2,0x2
02f4 0092 0539 | 9| Action Push_String_Extended,0x539 ; "All subsystems converted"
02f6 e220 | | Load 0x1,0x20
02f7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02f8 e402 | | Load 0x2,0x2
02f9 0092 0537 | 7| Action Push_String_Extended,0x537 ; "Convert"
02fb e220 | | Load 0x1,0x20
02fc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02fd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fe TRAP_0298:
02fe e00a | | Load 0x0,0xa
02ff 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0300 010f | | Execute Exception,Equal
0301 6807 |h | Jump_Zero 0x309
0302 e402 | | Load 0x2,0x2
0303 0092 0537 | 7| Action Push_String_Extended,0x537 ; "Convert"
0305 e220 | | Load 0x1,0x20
0306 180e | | Execute Package,Field_Execute,Field_Number 0xe
0307 00d8 | | Load_Top At_Offset_0
0308 0101 | | Execute Exception,Reraise
0309 e402 | | Load 0x2,0x2
030a e220 | | Load 0x1,0x20
030b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
030c e402 | | Load 0x2,0x2
030d 0092 0525 | %| Action Push_String_Extended,0x525 ; "Command failed"
030f e220 | | Load 0x1,0x20
0310 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0311 e402 | | Load 0x2,0x2
0312 0092 0537 | 7| Action Push_String_Extended,0x537 ; "Convert"
0314 e220 | | Load 0x1,0x20
0315 180e | | Execute Package,Field_Execute,Field_Number 0xe
0316 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0317 0000 | | .XXX[0x1]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c e003 | | Load 0x0,0x3
031d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031e 011c | | Execute Any,Convert_Unchecked
031f 1c01 | | Execute_Immediate Run_Utility,0x1
0320 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c e003 | | Load 0x0,0x3
032d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
032e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032f 011c | | Execute Any,Convert_Unchecked
0330 1c01 | | Execute_Immediate Run_Utility,0x1
0331 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0332 0000 0000 | | .BLANK 0000[0x6]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 7003 |p | Jump_Nonzero 0x340
033d 0092 053a | :| Action Push_String_Extended,0x53a ; "(PRIMARY)"
033f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0340 0092 053b | ;| Action Push_String_Extended,0x53b ; "(SECONDARY)"
0342 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4829 |H) | Short_Literal 0x29
034c 4828 |H( | Short_Literal 0x28
034d 4820 |H | Short_Literal 0x20
034e 4800 |H | Short_Literal 0x0
034f 480a |H | Short_Literal 0xa
0350 e5ff | | Load 0x2,-0x1
0351 e005 | | Load 0x0,0x5
0352 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0353 01ca | | Execute Vector,Prepend
0354 01cb | | Execute Vector,Append
0355 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0356 0000 0000 | | .XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 4829 |H) | Short_Literal 0x29
035c 4828 |H( | Short_Literal 0x28
035d 4820 |H | Short_Literal 0x20
035e 4800 |H | Short_Literal 0x0
035f 480a |H | Short_Literal 0xa
0360 e5ff | | Load 0x2,-0x1
0361 e005 | | Load 0x0,0x5
0362 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0363 01ca | | Execute Vector,Prepend
0364 01cb | | Execute Vector,Append
0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 4829 |H) | Short_Literal 0x29
036c 4828 |H( | Short_Literal 0x28
036d 4820 |H | Short_Literal 0x20
036e 4800 |H | Short_Literal 0x0
036f 480a |H | Short_Literal 0xa
0370 e5ff | | Load 0x2,-0x1
0371 e005 | | Load 0x0,0x5
0372 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0373 01ca | | Execute Vector,Prepend
0374 01cb | | Execute Vector,Append
0375 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 0f00 | | Execute_Immediate Equal,0x0
037d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037e 0000 0000 | | .XXX[0x2]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 0f00 | | Execute_Immediate Equal,0x0
0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0386 0000 0000 | | .XXX[0x2]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00da | | Load_Top At_Offset_2
038c 0f03 | | Execute_Immediate Equal,0x3
038d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038e 0000 0000 | | .XXX[0x2]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0396 | | .CONST 0x0396 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 e003 | | Load 0x0,0x3
0395 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0396 BODY_0390:
0396 00d8 | | Load_Top At_Offset_0
0397 e00e | | Load 0x0,0xe
0398 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0399 027f | | Execute Discrete,Equal
039a 7005 |p | Jump_Nonzero 0x3a0
039b 00d8 | | Load_Top At_Offset_0
039c e00e | | Load 0x0,0xe
039d 180f | | Execute Package,Field_Execute,Field_Number 0xf
039e 027f | | Execute Discrete,Equal
039f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a0 4801 |H | Short_Literal 0x1
03a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a2 0000 0000 | | .BLANK 0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b3 | | .CONST 0x03b3 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0003 | | .CONST 0x0003 ; Number of locals
03ab INIT_03a8:
03ab e003 | | Load 0x0,0x3
03ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ad 02c7 | | Declare_Variable Any
03ae 00d8 | | Load_Top At_Offset_0
03af 1c00 | | Execute_Immediate Run_Utility,0x0
03b0 e003 | | Load 0x0,0x3
03b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b3 BODY_03a8:
03b3 e003 | | Load 0x0,0x3
03b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b6 00da | | Load_Top At_Offset_2
03b7 0120 | | Execute Any,Is_Value
03b8 6803 |h | Jump_Zero 0x3bc
03b9 e003 | | Load 0x0,0x3
03ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bb 7801 |x | Jump 0x3bd
03bc 00da | | Load_Top At_Offset_2
03bd 603e |`> | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000}
03be e00f | | Load 0x0,0xf
03bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c0 e010 | | Load 0x0,0x10
03c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c2 e003 | | Load 0x0,0x3
03c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c5 e5ff | | Load 0x2,-0x1
03c6 e003 | | Load 0x0,0x3
03c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03c8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03c9 c402 | | Store 0x2,0x2
03ca 0059 | Y | Store_Top Discrete,At_Offset_1
03cb 00d8 | | Load_Top At_Offset_0
03cc 821e | | Call 0x1,0x1e
03cd 701c |p | Jump_Nonzero 0x3ea
03ce e5fe | | Load 0x2,-0x2
03cf 0092 053c | <| Action Push_String_Extended,0x53c ; "Could not find subsystem because "
03d1 602a |`* | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000}
03d2 e00f | | Load 0x0,0xf
03d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d4 e010 | | Load 0x0,0x10
03d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d6 e011 | | Load 0x0,0x11
03d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d8 4801 |H | Short_Literal 0x1
03d9 4800 |H | Short_Literal 0x0
03da e010 | | Load 0x0,0x10
03db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03dc e003 | | Load 0x0,0x3
03dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03df e5ff | | Load 0x2,-0x1
03e0 e403 | | Load 0x2,0x3
03e1 e003 | | Load 0x0,0x3
03e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03e3 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
03e4 01cc | | Execute Vector,Catenate
03e5 e220 | | Load 0x1,0x20
03e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03e7 4800 |H | Short_Literal 0x0
03e8 a5fc | | Store_Unchecked 0x2,-0x4
03e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03ea 00d9 | | Load_Top At_Offset_1
03eb 8225 | % | Call 0x1,0x25
03ec 7009 |p | Jump_Nonzero 0x3f6
03ed e5fe | | Load 0x2,-0x2
03ee 00da | | Load_Top At_Offset_2
03ef 0092 053d | =| Action Push_String_Extended,0x53d ; "<1> is not a subsystem"
03f1 e220 | | Load 0x1,0x20
03f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03f3 4800 |H | Short_Literal 0x0
03f4 a5fc | | Store_Unchecked 0x2,-0x4
03f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03f6 00d9 | | Load_Top At_Offset_1
03f7 c5fd | | Store 0x2,-0x3
03f8 4801 |H | Short_Literal 0x1
03f9 a5fc | | Store_Unchecked 0x2,-0x4
03fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03fb 0000 | | .XXX[0x1]
03fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0413 | | .CONST 0x0413 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0005 | | .CONST 0x0005 ; Number of locals
0403 INIT_0400:
0403 e003 | | Load 0x0,0x3
0404 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0405 02c7 | | Declare_Variable Any
0406 00d8 | | Load_Top At_Offset_0
0407 1c00 | | Execute_Immediate Run_Utility,0x0
0408 e003 | | Load 0x0,0x3
0409 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
040a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
040b 02c7 | | Declare_Variable Any
040c 00d8 | | Load_Top At_Offset_0
040d 1c00 | | Execute_Immediate Run_Utility,0x0
040e e003 | | Load 0x0,0x3
040f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0410 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0411 e003 | | Load 0x0,0x3
0412 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0413 BODY_0400:
0413 4801 |H | Short_Literal 0x1
0414 a5fc | | Store_Unchecked 0x2,-0x4
0415 e003 | | Load 0x0,0x3
0416 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0417 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0418 00db | | Load_Top At_Offset_3
0419 67e2 |g | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000}
041a e00f | | Load 0x0,0xf
041b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041c e010 | | Load 0x0,0x10
041d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
041e e011 | | Load 0x0,0x11
041f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0420 4801 |H | Short_Literal 0x1
0421 4800 |H | Short_Literal 0x0
0422 e010 | | Load 0x0,0x10
0423 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0424 e003 | | Load 0x0,0x3
0425 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0426 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0427 e5ff | | Load 0x2,-0x1
0428 e003 | | Load 0x0,0x3
0429 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
042a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
042b c403 | | Store 0x2,0x3
042c 005a | Z | Store_Top Discrete,At_Offset_2
042d 00d9 | | Load_Top At_Offset_1
042e 821e | | Call 0x1,0x1e
042f 701c |p | Jump_Nonzero 0x44c
0430 e5fe | | Load 0x2,-0x2
0431 0092 053e | >| Action Push_String_Extended,0x53e ; "Could not find subsystems because "
0433 67c8 |g | Indirect_Literal Discrete,0x3fc,{0x00000000, 0x00004000}
0434 e00f | | Load 0x0,0xf
0435 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0436 e010 | | Load 0x0,0x10
0437 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0438 e011 | | Load 0x0,0x11
0439 1811 | | Execute Package,Field_Execute,Field_Number 0x11
043a 4801 |H | Short_Literal 0x1
043b 4800 |H | Short_Literal 0x0
043c e010 | | Load 0x0,0x10
043d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
043e e003 | | Load 0x0,0x3
043f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0440 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0441 e5ff | | Load 0x2,-0x1
0442 e404 | | Load 0x2,0x4
0443 e003 | | Load 0x0,0x3
0444 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0445 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0446 01cc | | Execute Vector,Catenate
0447 e220 | | Load 0x1,0x20
0448 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0449 4800 |H | Short_Literal 0x0
044a a5fc | | Store_Unchecked 0x2,-0x4
044b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
044c 00cf | | Action Mark_Auxiliary
044d 7837 |x7 | Jump 0x485
044e e003 | | Load 0x0,0x3
044f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0450 e402 | | Load 0x2,0x2
0451 0120 | | Execute Any,Is_Value
0452 6803 |h | Jump_Zero 0x456
0453 e003 | | Load 0x0,0x3
0454 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0455 7801 |x | Jump 0x457
0456 e402 | | Load 0x2,0x2
0457 e403 | | Load 0x2,0x3
0458 e003 | | Load 0x0,0x3
0459 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
045a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
045b c402 | | Store 0x2,0x2
045c 005a | Z | Store_Top Discrete,At_Offset_2
045d 00d9 | | Load_Top At_Offset_1
045e 821d | | Call 0x1,0x1d
045f 7014 |p | Jump_Nonzero 0x474
0460 e5fe | | Load 0x2,-0x2
0461 0092 053f | ?| Action Push_String_Extended,0x53f ; "Could not get subsystem "
0463 e403 | | Load 0x2,0x3
0464 e003 | | Load 0x0,0x3
0465 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0466 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0467 01cc | | Execute Vector,Catenate
0468 0092 0540 | @| Action Push_String_Extended,0x540 ; ": "
046a 01cc | | Execute Vector,Catenate
046b 00db | | Load_Top At_Offset_3
046c e003 | | Load 0x0,0x3
046d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046e 011c | | Execute Any,Convert_Unchecked
046f 1c01 | | Execute_Immediate Run_Utility,0x1
0470 01cc | | Execute Vector,Catenate
0471 e220 | | Load 0x1,0x20
0472 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0473 780b |x | Jump 0x47f
0474 e402 | | Load 0x2,0x2
0475 8225 | % | Call 0x1,0x25
0476 7008 |p | Jump_Nonzero 0x47f
0477 e5fe | | Load 0x2,-0x2
0478 e402 | | Load 0x2,0x2
0479 0092 053d | =| Action Push_String_Extended,0x53d ; "<1> is not a subsystem"
047b e220 | | Load 0x1,0x20
047c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
047d 4800 |H | Short_Literal 0x0
047e a5fc | | Store_Unchecked 0x2,-0x4
047f 00db | | Load_Top At_Offset_3
0480 e003 | | Load 0x0,0x3
0481 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0482 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0483 c403 | | Store 0x2,0x3
0484 00c9 | | Action Pop_Auxiliary_Loop
0485 00db | | Load_Top At_Offset_3
0486 e003 | | Load 0x0,0x3
0487 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0488 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0489 6fc4 |o | Jump_Zero 0x44e
048a 00ce | | Action Pop_Auxiliary
048b 00da | | Load_Top At_Offset_2
048c e003 | | Load 0x0,0x3
048d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
048e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
048f c403 | | Store 0x2,0x3
0490 00da | | Load_Top At_Offset_2
0491 c5fd | | Store 0x2,-0x3
0492 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0493 0000 0000 | | .BLANK 0000[0x5]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 04d1 | | .CONST 0x04d1 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b e003 | | Load 0x0,0x3
049c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049d e404 | | Load 0x2,0x4
049e 0120 | | Execute Any,Is_Value
049f 6803 |h | Jump_Zero 0x4a3
04a0 e003 | | Load 0x0,0x3
04a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a2 7801 |x | Jump 0x4a4
04a3 e404 | | Load 0x2,0x4
04a4 e403 | | Load 0x2,0x3
04a5 e003 | | Load 0x0,0x3
04a6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04a7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04a8 c404 | | Store 0x2,0x4
04a9 c405 | | Store 0x2,0x5
04aa e405 | | Load 0x2,0x5
04ab 821d | | Call 0x1,0x1d
04ac 7017 |p | Jump_Nonzero 0x4c4
04ad e402 | | Load 0x2,0x2
04ae 0092 053f | ?| Action Push_String_Extended,0x53f ; "Could not get subsystem "
04b0 e403 | | Load 0x2,0x3
04b1 e003 | | Load 0x0,0x3
04b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04b4 01cc | | Execute Vector,Catenate
04b5 0092 0540 | @| Action Push_String_Extended,0x540 ; ": "
04b7 01cc | | Execute Vector,Catenate
04b8 e405 | | Load 0x2,0x5
04b9 e003 | | Load 0x0,0x3
04ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04bb 011c | | Execute Any,Convert_Unchecked
04bc 1c01 | | Execute_Immediate Run_Utility,0x1
04bd 01cc | | Execute Vector,Catenate
04be e220 | | Load 0x1,0x20
04bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04c0 e406 | | Load 0x2,0x6
04c1 0a01 | | Execute_Immediate Plus,0x1
04c2 c406 | | Store 0x2,0x6
04c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c4 00e1 | | Load_Encached Boolean_Cache
04c5 e402 | | Load 0x2,0x2
04c6 e5fd | | Load 0x2,-0x3
04c7 e5fe | | Load 0x2,-0x2
04c8 e404 | | Load 0x2,0x4
04c9 8222 | " | Call 0x1,0x22
04ca c407 | | Store 0x2,0x7
04cb e406 | | Load 0x2,0x6
04cc e407 | | Load 0x2,0x7
04cd 0f00 | | Execute_Immediate Equal,0x0
04ce 0273 | s | Execute Discrete,Plus
04cf c406 | | Store 0x2,0x6
04d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04d1 TRAP_0498:
04d1 0007 | | Action Break_Optional
04d2 e402 | | Load 0x2,0x2
04d3 e220 | | Load 0x1,0x20
04d4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04d5 e406 | | Load 0x2,0x6
04d6 0a01 | | Execute_Immediate Plus,0x1
04d7 c406 | | Store 0x2,0x6
04d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04d9 0000 0000 | | .BLANK 0000[0x7]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0517 | | .CONST 0x0517 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 e003 | | Load 0x0,0x3
04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e5 e404 | | Load 0x2,0x4
04e6 0120 | | Execute Any,Is_Value
04e7 6803 |h | Jump_Zero 0x4eb
04e8 e003 | | Load 0x0,0x3
04e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ea 7801 |x | Jump 0x4ec
04eb e404 | | Load 0x2,0x4
04ec e403 | | Load 0x2,0x3
04ed e003 | | Load 0x0,0x3
04ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ef 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04f0 c404 | | Store 0x2,0x4
04f1 c405 | | Store 0x2,0x5
04f2 e405 | | Load 0x2,0x5
04f3 821d | | Call 0x1,0x1d
04f4 7017 |p | Jump_Nonzero 0x50c
04f5 e402 | | Load 0x2,0x2
04f6 0092 053f | ?| Action Push_String_Extended,0x53f ; "Could not get subsystem "
04f8 e403 | | Load 0x2,0x3
04f9 e003 | | Load 0x0,0x3
04fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04fb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
04fc 01cc | | Execute Vector,Catenate
04fd 0092 0540 | @| Action Push_String_Extended,0x540 ; ": "
04ff 01cc | | Execute Vector,Catenate
0500 e405 | | Load 0x2,0x5
0501 e003 | | Load 0x0,0x3
0502 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0503 011c | | Execute Any,Convert_Unchecked
0504 1c01 | | Execute_Immediate Run_Utility,0x1
0505 01cc | | Execute Vector,Catenate
0506 e220 | | Load 0x1,0x20
0507 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0508 e406 | | Load 0x2,0x6
0509 0a01 | | Execute_Immediate Plus,0x1
050a c406 | | Store 0x2,0x6
050b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
050c 00e1 | | Load_Encached Boolean_Cache
050d e402 | | Load 0x2,0x2
050e e404 | | Load 0x2,0x4
050f 8224 | $ | Call 0x1,0x24
0510 c407 | | Store 0x2,0x7
0511 e406 | | Load 0x2,0x6
0512 e407 | | Load 0x2,0x7
0513 0f00 | | Execute_Immediate Equal,0x0
0514 0273 | s | Execute Discrete,Plus
0515 c406 | | Store 0x2,0x6
0516 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0517 TRAP_04e0:
0517 0007 | | Action Break_Optional
0518 e402 | | Load 0x2,0x2
0519 e220 | | Load 0x1,0x20
051a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
051b e406 | | Load 0x2,0x6
051c 0a01 | | Execute_Immediate Plus,0x1
051d c406 | | Store 0x2,0x6
051e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051f ; --------------------------------------------------------------------------------------
051f ; STRING TABLE
051f ; --------------------------------------------------------------------------------------
051f 0046 | F | .STRTAB 0x0046->0x0542 ; "Subsystems => \x22"
0520 0053 | S | .STRTAB 0x0053->0x0549 ; "\x22, Verify_Cdb => "
0521 0062 | b | .STRTAB 0x0062->0x0552 ; ", Verify_Ada_Units => "
0522 0076 | v | .STRTAB 0x0076->0x055d ; ", Response => \x22"
0523 0083 | | .STRTAB 0x0083->0x0564 ; "\x22"
0524 0082 | | .STRTAB 0x0082->0x0565 ; "Verify"
0525 0086 | | .STRTAB 0x0086->0x0568 ; "Command failed"
0526 0092 | | .STRTAB 0x0092->0x056f ; "Corrupted subsystems"
0527 00a4 | | .STRTAB 0x00a4->0x0579 ; "All subsystems are ok"
0528 00b7 | | .STRTAB 0x00b7->0x0583 ; "Primary_Subsystem => \x22"
0529 00cb | | .STRTAB 0x00cb->0x058e ; "\x22, Secondary_Subsystem => \x22"
052a 00e4 | | .STRTAB 0x00e4->0x059c ; "\x22, Response => \x22"
052b 00f2 | | .STRTAB 0x00f2->0x05a4 ; "Compare"
052c 00f7 | | .STRTAB 0x00f7->0x05a7 ; "<WORLDS>"
052d 00fd | | .STRTAB 0x00fd->0x05ab ; "].@.<*Program_Library>"
052e 0111 | | .STRTAB 0x0111->0x05b6 ; "Subsystem => \x22"
052f 011d | | .STRTAB 0x011d->0x05bd ; "\x22,From_Primary => \x22"
0530 012e | . | .STRTAB 0x012e->0x05c7 ; "Update"
0531 0132 | 2 | .STRTAB 0x0132->0x05ca ; "(Subsystems => \x22"
0532 0140 | @ | .STRTAB 0x0140->0x05d2 ; "\x22, Unit_Maps => "
0533 014e | N | .STRTAB 0x014e->0x05da ; ", Declaration_Maps => "
0534 0162 | b | .STRTAB 0x0162->0x05e5 ; ", Offset_Maps => "
0535 0171 | q | .STRTAB 0x0171->0x05ed ; ", Compatibility_Signatures => "
0536 018d | | .STRTAB 0x018d->0x05fc ; "Display"
0537 0192 | | .STRTAB 0x0192->0x0600 ; "Convert"
0538 0197 | | .STRTAB 0x0197->0x0603 ; "Subsystems not converted"
0539 01ad | | .STRTAB 0x01ad->0x060f ; "All subsystems converted"
053a 01c3 | | .STRTAB 0x01c3->0x061b ; "(PRIMARY)"
053b 01ca | | .STRTAB 0x01ca->0x0620 ; "(SECONDARY)"
053c 01d3 | | .STRTAB 0x01d3->0x0625 ; "Could not find subsystem because "
053d 01f2 | | .STRTAB 0x01f2->0x0636 ; "<1> is not a subsystem"
053e 0206 | | .STRTAB 0x0206->0x0641 ; "Could not find subsystems because "
053f 0226 | & | .STRTAB 0x0226->0x0652 ; "Could not get subsystem "
0540 023c | < | .STRTAB 0x023c->0x065e ; ": "
0541 023c | < | .STREND 0x023c->0x065f
0542 5375 6273 |Subs| .STRTAB_STRINGS
065f 0000 | | .XXX[0x1]
0660 ; --------------------------------------------------------------------------------------
0660 ; Debug Table
0660 ; --------------------------------------------------------------------------------------
0660 0004 000f | | .DEBUG4 0x0004,0x000f,0x4b35,0x0000,0x0001,0x0000
0666 0000 0000 | | .BLANK 0000[0x19a]