|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0468 | h | .CONST 0x0468 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0013 00c7 | | Action Elaborate_Subprogram
0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0048 | H | .CONST 0x0048 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 000d | | .CONST 0x000d ; Number of locals
0023 INIT_0020:
0023 e002 | | Load 0x0,0x2
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 02c7 | | Declare_Variable Any
0026 00d8 | | Load_Top At_Offset_0
0027 1c00 | | Execute_Immediate Run_Utility,0x0
0028 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
002a 029f 010b | | Declare_Subprogram INIT_0108,For_Call
002c 029f 011b | | Declare_Subprogram INIT_0118,For_Call
002e 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0030 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0033 00c6 | | Action Check_Subprogram_Elaborated
0034 4806 |H | Short_Literal 0x6
0035 4802 |H | Short_Literal 0x2
0036 0099 | | Action Reference_Dynamic
0037 4807 |H | Short_Literal 0x7
0038 4802 |H | Short_Literal 0x2
0039 0099 | | Action Reference_Dynamic
003a 4805 |H | Short_Literal 0x5
003b 4802 |H | Short_Literal 0x2
003c 0099 | | Action Reference_Dynamic
003d 0093 0000 | | push_full_address 0x0
003f 6034 |`4 | Indirect_Literal Discrete,0x74,{0x80000000, 0x00020000}
0040 0273 | s | Execute Discrete,Plus
0041 e003 | | Load 0x0,0x3
0042 0273 | s | Execute Discrete,Plus
0043 e004 | | Load 0x0,0x4
0044 0273 | s | Execute Discrete,Plus
0045 480c |H | Short_Literal 0xc
0046 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0048 BODY_0020:
0048 840d | | Call 0x2,0xd
0049 e402 | | Load 0x2,0x2
004a 4800 |H | Short_Literal 0x0
004b 0092 03b1 | | Action Push_String_Extended,0x3b1 ; "[Program_Library_Maintenance.Show_Dependent_Main_Programs (Code_Views => \x22"
004d e5ff | | Load 0x2,-0x1
004e 01cc | | Execute Vector,Catenate
004f 0092 03b2 | | Action Push_String_Extended,0x3b2 ; "\x22, Options => \x22"
0051 01cc | | Execute Vector,Catenate
0052 e5fe | | Load 0x2,-0x2
0053 01cc | | Execute Vector,Catenate
0054 0092 03b3 | | Action Push_String_Extended,0x3b3 ; "\x22, Response => \x22"
0056 01cc | | Execute Vector,Catenate
0057 e5fd | | Load 0x2,-0x3
0058 01cc | | Execute Vector,Catenate
0059 0092 03b4 | | Action Push_String_Extended,0x3b4 ; "\x22);]."
005b 01cc | | Execute Vector,Catenate
005c e005 | | Load 0x0,0x5
005d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005e e5fd | | Load 0x2,-0x3
005f e5ff | | Load 0x2,-0x1
0060 4808 |H | Short_Literal 0x8
0061 4802 |H | Short_Literal 0x2
0062 0099 | | Action Reference_Dynamic
0063 4809 |H | Short_Literal 0x9
0064 4802 |H | Short_Literal 0x2
0065 0099 | | Action Reference_Dynamic
0066 480a |H | Short_Literal 0xa
0067 4802 |H | Short_Literal 0x2
0068 0099 | | Action Reference_Dynamic
0069 480b |H | Short_Literal 0xb
006a 4802 |H | Short_Literal 0x2
006b 0099 | | Action Reference_Dynamic
006c 820f | | Call 0x1,0xf
006d e402 | | Load 0x2,0x2
006e 4800 |H | Short_Literal 0x0
006f 0092 03b5 | | Action Push_String_Extended,0x3b5 ; "[End of Program_Library_Maintenance.Show_Dependent_Main_Programs command]."
0071 e005 | | Load 0x0,0x5
0072 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0073 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0074 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 00ae | | .CONST 0x00ae ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0011 | | .CONST 0x0011 ; Number of locals
007b INIT_0078:
007b 00e9 | | Load_Encached String_Cache
007c 02a0 | | Declare_Subprogram Null_Subprogram
007d 4818 |H | Short_Literal 0x18
007e 03d3 | | Declare_Type Access,Defined,Accesses_Protected
007f 4818 |H | Short_Literal 0x18
0080 03cc | | Declare_Type Access,Incomplete,Accesses_Protected
0081 00d9 | | Load_Top At_Offset_1
0082 00d9 | | Load_Top At_Offset_1
0083 02a0 | | Declare_Subprogram Null_Subprogram
0084 4802 |H | Short_Literal 0x2
0085 032d | - | Declare_Type Record,Defined
0086 00d8 | | Load_Top At_Offset_0
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 00db | | Load_Top At_Offset_3
0089 03c7 | | Complete_Type Access,By_Defining
008a 00d9 | | Load_Top At_Offset_1
008b 0007 | | Action Break_Optional
008c 00e3 | | Load_Encached Natural_Cache
008d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008e 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0090 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0092 029f 018b | | Declare_Subprogram INIT_0188,For_Call
0094 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0096 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0098 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0099 00c6 | | Action Check_Subprogram_Elaborated
009a 480a |H | Short_Literal 0xa
009b 4802 |H | Short_Literal 0x2
009c 0099 | | Action Reference_Dynamic
009d 480b |H | Short_Literal 0xb
009e 4802 |H | Short_Literal 0x2
009f 0099 | | Action Reference_Dynamic
00a0 4808 |H | Short_Literal 0x8
00a1 4802 |H | Short_Literal 0x2
00a2 0099 | | Action Reference_Dynamic
00a3 0093 0000 | | push_full_address 0x0
00a5 601e |` | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00010000}
00a6 0273 | s | Execute Discrete,Plus
00a7 e003 | | Load 0x0,0x3
00a8 0273 | s | Execute Discrete,Plus
00a9 e006 | | Load 0x0,0x6
00aa 0273 | s | Execute Discrete,Plus
00ab 4810 |H | Short_Literal 0x10
00ac 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
00ae BODY_0078:
00ae e5fd | | Load 0x2,-0x3
00af e5ff | | Load 0x2,-0x1
00b0 480c |H | Short_Literal 0xc
00b1 4802 |H | Short_Literal 0x2
00b2 0099 | | Action Reference_Dynamic
00b3 480d |H | Short_Literal 0xd
00b4 4802 |H | Short_Literal 0x2
00b5 0099 | | Action Reference_Dynamic
00b6 480e |H | Short_Literal 0xe
00b7 4802 |H | Short_Literal 0x2
00b8 0099 | | Action Reference_Dynamic
00b9 480f |H | Short_Literal 0xf
00ba 4802 |H | Short_Literal 0x2
00bb 0099 | | Action Reference_Dynamic
00bc 820f | | Call 0x1,0xf
00bd e406 | | Load 0x2,0x6
00be 7003 |p | Jump_Nonzero 0xc2
00bf 0092 03b6 | | Action Push_String_Extended,0x3b6 ; "[<>]"
00c1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00c2 8411 | | Call 0x2,0x11
00c3 0831 | 1 | Execute_Immediate Raise,0x31
00c4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00e8 | | .CONST 0x00e8 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0009 | | .CONST 0x0009 ; Number of locals
00cb INIT_00c8:
00cb e002 | | Load 0x0,0x2
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 02c7 | | Declare_Variable Any
00ce 00d8 | | Load_Top At_Offset_0
00cf 1c00 | | Execute_Immediate Run_Utility,0x0
00d0 e007 | | Load 0x0,0x7
00d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d2 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00d3 02c7 | | Declare_Variable Any
00d4 00d8 | | Load_Top At_Offset_0
00d5 1c00 | | Execute_Immediate Run_Utility,0x0
00d6 e008 | | Load 0x0,0x8
00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d8 02c7 | | Declare_Variable Any
00d9 e009 | | Load 0x0,0x9
00da 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00db e008 | | Load 0x0,0x8
00dc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00dd a404 | | Store_Unchecked 0x2,0x4
00de 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
00e0 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
00e2 029f 029b | | Declare_Subprogram INIT_0298,For_Call
00e4 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
00e6 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
00e8 BODY_00c8:
00e8 8407 | | Call 0x2,0x7
00e9 8408 | | Call 0x2,0x8
00ea 8409 | | Call 0x2,0x9
00eb e404 | | Load 0x2,0x4
00ec 4801 |H | Short_Literal 0x1
00ed 4800 |H | Short_Literal 0x0
00ee e008 | | Load 0x0,0x8
00ef 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f0 c404 | | Store 0x2,0x4
00f1 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 0092 03b7 | | Action Push_String_Extended,0x3b7 ; "Coded main programs dependent on code view "
00fd 00db | | Load_Top At_Offset_3
00fe e007 | | Load 0x0,0x7
00ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0100 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0101 01cc | | Execute Vector,Catenate
0102 0092 03b8 | | Action Push_String_Extended,0x3b8 ; " :"
0104 01cc | | Execute Vector,Catenate
0105 e00a | | Load 0x0,0xa
0106 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0107 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 0092 03b9 | | Action Push_String_Extended,0x3b9 ; " "
010d 00db | | Load_Top At_Offset_3
010e e007 | | Load 0x0,0x7
010f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0110 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0111 01cc | | Execute Vector,Catenate
0112 e00a | | Load 0x0,0xa
0113 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0114 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
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 0092 03ba | | Action Push_String_Extended,0x3ba ; " <none>"
011d e00a | | Load 0x0,0xa
011e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
011f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e007 | | Load 0x0,0x7
0125 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0126 0119 | | Execute Any,Check_In_Formal_Type
0127 8403 | | Call 0x2,0x3
0128 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 8404 | | Call 0x2,0x4
0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0140 | @ | .CONST 0x0140 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b e00b | | Load 0x0,0xb
013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013d 02c7 | | Declare_Variable Any
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 BODY_0138:
0140 00d8 | | Load_Top At_Offset_0
0141 e402 | | Load 0x2,0x2
0142 0120 | | Execute Any,Is_Value
0143 6803 |h | Jump_Zero 0x147
0144 e002 | | Load 0x0,0x2
0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0146 7801 |x | Jump 0x148
0147 e402 | | Load 0x2,0x2
0148 e5fd | | Load 0x2,-0x3
0149 e002 | | Load 0x0,0x2
014a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
014b c402 | | Store 0x2,0x2
014c c602 | | Store 0x3,0x2
014d 4801 |H | Short_Literal 0x1
014e 00d9 | | Load_Top At_Offset_1
014f e00b | | Load 0x0,0xb
0150 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0151 6807 |h | Jump_Zero 0x159
0152 e002 | | Load 0x0,0x2
0153 180e | | Execute Package,Field_Execute,Field_Number 0xe
0154 00d9 | | Load_Top At_Offset_1
0155 e005 | | Load 0x0,0x5
0156 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0157 00cc | | Action Pop_Block
0158 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0159 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e404 | | Load 0x2,0x4
0164 0322 | " | Declare_Variable Record
0165 00db | | Load_Top At_Offset_3
0166 e007 | | Load 0x0,0x7
0167 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0168 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0169 e402 | | Load 0x2,0x2
016a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
016b 00d9 | | Load_Top At_Offset_1
016c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016d e405 | | Load 0x2,0x5
016e 00d9 | | Load_Top At_Offset_1
016f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0170 e403 | | Load 0x2,0x3
0171 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0172 a405 | | Store_Unchecked 0x2,0x5
0173 e406 | | Load 0x2,0x6
0174 0a01 | | Execute_Immediate Plus,0x1
0175 e405 | | Load 0x2,0x5
0176 0227 | ' | Execute Access,All_Reference
0177 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0178 0227 | ' | Execute Access,All_Reference
0179 01db | | Execute Vector,Length
017a 0273 | s | Execute Discrete,Plus
017b c406 | | Store 0x2,0x6
017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e007 | | Load 0x0,0x7
0195 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0196 0119 | | Execute Any,Check_In_Formal_Type
0197 8409 | | Call 0x2,0x9
0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 8407 | | Call 0x2,0x7
01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b9 | | .CONST 0x01b9 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0004 | | .CONST 0x0004 ; Number of locals
01ab INIT_01a8:
01ab 4801 |H | Short_Literal 0x1
01ac e406 | | Load 0x2,0x6
01ad 0a01 | | Execute_Immediate Plus,0x1
01ae 00d8 | | Load_Top At_Offset_0
01af 00e2 | | Load_Encached Integer_Cache
01b0 0260 | ` | Execute Discrete,In_Type
01b1 7001 |p | Jump_Nonzero 0x1b3
01b2 0801 | | Execute_Immediate Raise,0x1
01b3 00e9 | | Load_Encached String_Cache
01b4 035b | [ | Declare_Type Array,Constrained
01b5 0337 | 7 | Declare_Variable Array
01b6 00e4 | | Load_Encached Positive_Cache
01b7 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
01b8 00e4 | | Load_Encached Positive_Cache
01b9 BODY_01a8:
01b9 485b |H[ | Short_Literal 0x5b
01ba 4801 |H | Short_Literal 0x1
01bb e602 | | Load 0x3,0x2
01bc 01d6 | | Execute Vector,Field_Write
01bd 00cf | | Action Mark_Auxiliary
01be 7826 |x& | Jump 0x1e5
01bf e405 | | Load 0x2,0x5
01c0 0227 | ' | Execute Access,All_Reference
01c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c2 0227 | ' | Execute Access,All_Reference
01c3 01db | | Execute Vector,Length
01c4 005a | Z | Store_Top Discrete,At_Offset_2
01c5 e405 | | Load 0x2,0x5
01c6 0227 | ' | Execute Access,All_Reference
01c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c8 0227 | ' | Execute Access,All_Reference
01c9 00db | | Load_Top At_Offset_3
01ca e603 | | Load 0x3,0x3
01cb e604 | | Load 0x3,0x4
01cc 0273 | s | Execute Discrete,Plus
01cd 0aff | | Execute_Immediate Plus,-0x1
01ce 00d8 | | Load_Top At_Offset_0
01cf 00e2 | | Load_Encached Integer_Cache
01d0 0260 | ` | Execute Discrete,In_Type
01d1 7001 |p | Jump_Nonzero 0x1d3
01d2 0801 | | Execute_Immediate Raise,0x1
01d3 e602 | | Load 0x3,0x2
01d4 01ce | | Execute Vector,Slice_Write
01d5 482c |H, | Short_Literal 0x2c
01d6 00db | | Load_Top At_Offset_3
01d7 00db | | Load_Top At_Offset_3
01d8 0273 | s | Execute Discrete,Plus
01d9 e602 | | Load 0x3,0x2
01da 01d6 | | Execute Vector,Field_Write
01db 00da | | Load_Top At_Offset_2
01dc 00da | | Load_Top At_Offset_2
01dd 0273 | s | Execute Discrete,Plus
01de 0a01 | | Execute_Immediate Plus,0x1
01df 005b | [ | Store_Top Discrete,At_Offset_3
01e0 e405 | | Load 0x2,0x5
01e1 0227 | ' | Execute Access,All_Reference
01e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e3 a405 | | Store_Unchecked 0x2,0x5
01e4 00c9 | | Action Pop_Auxiliary_Loop
01e5 e405 | | Load 0x2,0x5
01e6 77d8 |w | Jump_Nonzero 0x1bf
01e7 00ce | | Action Pop_Auxiliary
01e8 00d9 | | Load_Top At_Offset_1
01e9 00db | | Load_Top At_Offset_3
01ea 01dc | | Execute Vector,Last
01eb 0a01 | | Execute_Immediate Plus,0x1
01ec 027f | | Execute Discrete,Equal
01ed 7001 |p | Jump_Nonzero 0x1ef
01ee 0887 | | Execute_Immediate Raise,0x87
01ef 00da | | Load_Top At_Offset_2
01f0 01dc | | Execute Vector,Last
01f1 00db | | Load_Top At_Offset_3
01f2 01d7 | | Execute Vector,Field_Read
01f3 0f2c | , | Execute_Immediate Equal,0x2c
01f4 7001 |p | Jump_Nonzero 0x1f6
01f5 0887 | | Execute_Immediate Raise,0x87
01f6 485d |H] | Short_Literal 0x5d
01f7 00db | | Load_Top At_Offset_3
01f8 01dc | | Execute Vector,Last
01f9 e602 | | Load 0x3,0x2
01fa 01d6 | | Execute Vector,Field_Write
01fb 00da | | Load_Top At_Offset_2
01fc 00e9 | | Load_Encached String_Cache
01fd 01c6 | | Execute Vector,Convert_To_Formal
01fe 00cb | | Action Pop_Block_With_Result
01ff 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 022b | + | .CONST 0x022b ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0004 | | .CONST 0x0004 ; Number of locals
0203 INIT_0200:
0203 e00c | | Load 0x0,0xc
0204 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0205 02c7 | | Declare_Variable Any
0206 00db | | Load_Top At_Offset_3
0207 a602 | | Store_Unchecked 0x3,0x2
0208 e00c | | Load 0x0,0xc
0209 1b11 | | Execute Package,Field_Read,Field_Number 0x11
020a 0266 | f | Execute Discrete,Bounds
020b e002 | | Load 0x0,0x2
020c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
020d 02a0 | | Declare_Subprogram Null_Subprogram
020e 4801 |H | Short_Literal 0x1
020f 035d | ] | Declare_Type Array,Defined
0210 00d8 | | Load_Top At_Offset_0
0211 0337 | 7 | Declare_Variable Array
0212 00d8 | | Load_Top At_Offset_0
0213 0335 | 5 | Declare_Variable Array,Duplicate
0214 00cd | | Action Spare6_Action
0215 4802 |H | Short_Literal 0x2
0216 4800 |H | Short_Literal 0x0
0217 00da | | Load_Top At_Offset_2
0218 01d6 | | Execute Vector,Field_Write
0219 4806 |H | Short_Literal 0x6
021a 4801 |H | Short_Literal 0x1
021b 00da | | Load_Top At_Offset_2
021c 01d6 | | Execute Vector,Field_Write
021d 4807 |H | Short_Literal 0x7
021e 4802 |H | Short_Literal 0x2
021f 00da | | Load_Top At_Offset_2
0220 01d6 | | Execute Vector,Field_Write
0221 4807 |H | Short_Literal 0x7
0222 4803 |H | Short_Literal 0x3
0223 00da | | Load_Top At_Offset_2
0224 01d6 | | Execute Vector,Field_Write
0225 4808 |H | Short_Literal 0x8
0226 4804 |H | Short_Literal 0x4
0227 00da | | Load_Top At_Offset_2
0228 01d6 | | Execute Vector,Field_Write
0229 00d9 | | Load_Top At_Offset_1
022a 01d4 | | Execute Vector,Structure_Write
022b BODY_0200:
022b 00cf | | Action Mark_Auxiliary
022c 7810 |x | Jump 0x23d
022d e402 | | Load 0x2,0x2
022e e602 | | Load 0x3,0x2
022f e00c | | Load 0x0,0xc
0230 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0231 00db | | Load_Top At_Offset_3
0232 01d7 | | Execute Vector,Field_Read
0233 e602 | | Load 0x3,0x2
0234 e00c | | Load 0x0,0xc
0235 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0236 e005 | | Load 0x0,0x5
0237 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0238 00db | | Load_Top At_Offset_3
0239 e00c | | Load 0x0,0xc
023a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
023b c602 | | Store 0x3,0x2
023c 00c9 | | Action Pop_Auxiliary_Loop
023d 00db | | Load_Top At_Offset_3
023e e00c | | Load 0x0,0xc
023f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0240 6fec |o | Jump_Zero 0x22d
0241 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0257 | W | .CONST 0x0257 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e00d | | Load 0x0,0xd
024c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
024d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
024e 02c7 | | Declare_Variable Any
024f 00d8 | | Load_Top At_Offset_0
0250 1c00 | | Execute_Immediate Run_Utility,0x0
0251 e00d | | Load 0x0,0xd
0252 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0253 02c7 | | Declare_Variable Any
0254 e00d | | Load 0x0,0xd
0255 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0256 a603 | | Store_Unchecked 0x3,0x3
0257 BODY_0248:
0257 4800 |H | Short_Literal 0x0
0258 4800 |H | Short_Literal 0x0
0259 4801 |H | Short_Literal 0x1
025a e00c | | Load 0x0,0xc
025b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025c e404 | | Load 0x2,0x4
025d e00e | | Load 0x0,0xe
025e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025f e00f | | Load 0x0,0xf
0260 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0261 e00d | | Load 0x0,0xd
0262 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0263 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0264 c602 | | Store 0x3,0x2
0265 00d8 | | Load_Top At_Offset_0
0266 0120 | | Execute Any,Is_Value
0267 6803 |h | Jump_Zero 0x26b
0268 e00d | | Load 0x0,0xd
0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026a 7801 |x | Jump 0x26c
026b 00d8 | | Load_Top At_Offset_0
026c 4801 |H | Short_Literal 0x1
026d 4800 |H | Short_Literal 0x0
026e e7ff | | Load 0x3,-0x1
026f e602 | | Load 0x3,0x2
0270 e00d | | Load 0x0,0xd
0271 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0272 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0273 e602 | | Load 0x3,0x2
0274 e00d | | Load 0x0,0xd
0275 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0276 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0277 c603 | | Store 0x3,0x3
0278 00d9 | | Load_Top At_Offset_1
0279 e00d | | Load 0x0,0xd
027a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
027b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
027c 8405 | | Call 0x2,0x5
027d 00d8 | | Load_Top At_Offset_0
027e e00d | | Load 0x0,0xd
027f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0280 012f | / | Execute Any,Equal
0281 7013 |p | Jump_Nonzero 0x295
0282 00d8 | | Load_Top At_Offset_0
0283 e00d | | Load 0x0,0xd
0284 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0285 180d | | Execute Package,Field_Execute,Field_Number 0xd
0286 700e |p | Jump_Nonzero 0x295
0287 e402 | | Load 0x2,0x2
0288 4806 |H | Short_Literal 0x6
0289 e7ff | | Load 0x3,-0x1
028a e007 | | Load 0x0,0x7
028b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
028d 0092 03bb | | Action Push_String_Extended,0x3bb ; " is not a code view"
028f 01cc | | Execute Vector,Catenate
0290 e005 | | Load 0x0,0x5
0291 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0292 e00d | | Load 0x0,0xd
0293 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0294 c603 | | Store 0x3,0x3
0295 00d8 | | Load_Top At_Offset_0
0296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a0 | | .CONST 0x02a0 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b e00b | | Load 0x0,0xb
029c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029d 02c7 | | Declare_Variable Any
029e 00d8 | | Load_Top At_Offset_0
029f 1c00 | | Execute_Immediate Run_Utility,0x0
02a0 BODY_0298:
02a0 00d8 | | Load_Top At_Offset_0
02a1 e402 | | Load 0x2,0x2
02a2 0120 | | Execute Any,Is_Value
02a3 6803 |h | Jump_Zero 0x2a7
02a4 e002 | | Load 0x0,0x2
02a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a6 7801 |x | Jump 0x2a8
02a7 e402 | | Load 0x2,0x2
02a8 e5fa | | Load 0x2,-0x6
02a9 e002 | | Load 0x0,0x2
02aa 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
02ab c402 | | Store 0x2,0x2
02ac c602 | | Store 0x3,0x2
02ad 4801 |H | Short_Literal 0x1
02ae 00d9 | | Load_Top At_Offset_1
02af e00b | | Load 0x0,0xb
02b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b1 6807 |h | Jump_Zero 0x2b9
02b2 e002 | | Load 0x0,0x2
02b3 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b4 00d9 | | Load_Top At_Offset_1
02b5 e005 | | Load 0x0,0x5
02b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02b7 00cc | | Action Pop_Block
02b8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ba 0000 0000 | | .BLANK 0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c6 | | .CONST 0x02c6 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0002 | | .CONST 0x0002 ; Number of locals
02c3 INIT_02c0:
02c3 e007 | | Load 0x0,0x7
02c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c6 BODY_02c0:
02c6 e007 | | Load 0x0,0x7
02c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c9 e403 | | Load 0x2,0x3
02ca 6065 |`e | Indirect_Literal Discrete,0x330,{0x00000000, 0x00004000}
02cb e008 | | Load 0x0,0x8
02cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02cd e00e | | Load 0x0,0xe
02ce 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02cf e00f | | Load 0x0,0xf
02d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d1 4801 |H | Short_Literal 0x1
02d2 4800 |H | Short_Literal 0x0
02d3 e00e | | Load 0x0,0xe
02d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d5 e007 | | Load 0x0,0x7
02d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02d8 e5fb | | Load 0x2,-0x5
02d9 e007 | | Load 0x0,0x7
02da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02dc c403 | | Store 0x2,0x3
02dd 0059 | Y | Store_Top Discrete,At_Offset_1
02de 00d8 | | Load_Top At_Offset_0
02df 6829 |h) | Jump_Zero 0x309
02e0 00d8 | | Load_Top At_Offset_0
02e1 0e03 | | Execute_Immediate Not_Equal,0x3
02e2 7005 |p | Jump_Nonzero 0x2e8
02e3 e403 | | Load 0x2,0x3
02e4 e007 | | Load 0x0,0x7
02e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02e7 7021 |p! | Jump_Nonzero 0x309
02e8 e402 | | Load 0x2,0x2
02e9 4807 |H | Short_Literal 0x7
02ea 0092 03bc | | Action Push_String_Extended,0x3bc ; "Unable to resolve name \x22"
02ec e5fb | | Load 0x2,-0x5
02ed 01cc | | Execute Vector,Catenate
02ee 0092 03bd | | Action Push_String_Extended,0x3bd ; "\x22 because "
02f0 01cc | | Execute Vector,Catenate
02f1 603e |`> | Indirect_Literal Discrete,0x330,{0x00000000, 0x00004000}
02f2 e008 | | Load 0x0,0x8
02f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f4 e00e | | Load 0x0,0xe
02f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f6 e00f | | Load 0x0,0xf
02f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f8 4801 |H | Short_Literal 0x1
02f9 4800 |H | Short_Literal 0x0
02fa e00e | | Load 0x0,0xe
02fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02fc e007 | | Load 0x0,0x7
02fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ff e5fb | | Load 0x2,-0x5
0300 e602 | | Load 0x3,0x2
0301 e007 | | Load 0x0,0x7
0302 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0303 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0304 01cc | | Execute Vector,Catenate
0305 e005 | | Load 0x0,0x5
0306 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0307 00cc | | Action Pop_Block
0308 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0309 00d8 | | Load_Top At_Offset_0
030a 0f03 | | Execute_Immediate Equal,0x3
030b 6821 |h! | Jump_Zero 0x32d
030c e402 | | Load 0x2,0x2
030d 4802 |H | Short_Literal 0x2
030e 0092 03bc | | Action Push_String_Extended,0x3bc ; "Unable to resolve name \x22"
0310 e5fb | | Load 0x2,-0x5
0311 01cc | | Execute Vector,Catenate
0312 0092 03bd | | Action Push_String_Extended,0x3bd ; "\x22 because "
0314 01cc | | Execute Vector,Catenate
0315 601a |` | Indirect_Literal Discrete,0x330,{0x00000000, 0x00004000}
0316 e008 | | Load 0x0,0x8
0317 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0318 e00e | | Load 0x0,0xe
0319 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031a e00f | | Load 0x0,0xf
031b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031c 4801 |H | Short_Literal 0x1
031d 4800 |H | Short_Literal 0x0
031e e00e | | Load 0x0,0xe
031f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0320 e007 | | Load 0x0,0x7
0321 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0322 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0323 e5fb | | Load 0x2,-0x5
0324 e602 | | Load 0x3,0x2
0325 e007 | | Load 0x0,0x7
0326 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0327 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0328 01cc | | Execute Vector,Catenate
0329 e005 | | Load 0x0,0x5
032a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
032b 00cc | | Action Pop_Block
032c 4507 |E | Exit_Suprogram New_Top_Offset 0x7
032d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032e 0000 0000 | | .XXX[0x2]
0330 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0334 0000 0000 | | .BLANK 0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 034c | L | .CONST 0x034c ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0005 | | .CONST 0x0005 ; Number of locals
033b INIT_0338:
033b e007 | | Load 0x0,0x7
033c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
033d 02c7 | | Declare_Variable Any
033e 00d8 | | Load_Top At_Offset_0
033f 1c00 | | Execute_Immediate Run_Utility,0x0
0340 e007 | | Load 0x0,0x7
0341 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0342 e00d | | Load 0x0,0xd
0343 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0344 02c7 | | Declare_Variable Any
0345 00d8 | | Load_Top At_Offset_0
0346 1c00 | | Execute_Immediate Run_Utility,0x0
0347 e010 | | Load 0x0,0x10
0348 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0349 02c7 | | Declare_Variable Any
034a 00d8 | | Load_Top At_Offset_0
034b 1c00 | | Execute_Immediate Run_Utility,0x0
034c BODY_0338:
034c 00cf | | Action Mark_Auxiliary
034d 785d |x] | Jump 0x3ab
034e e007 | | Load 0x0,0x7
034f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0350 e602 | | Load 0x3,0x2
0351 0120 | | Execute Any,Is_Value
0352 6803 |h | Jump_Zero 0x356
0353 e007 | | Load 0x0,0x7
0354 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0355 7801 |x | Jump 0x357
0356 e602 | | Load 0x3,0x2
0357 e403 | | Load 0x2,0x3
0358 e007 | | Load 0x0,0x7
0359 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
035a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
035b c602 | | Store 0x3,0x2
035c c603 | | Store 0x3,0x3
035d 00db | | Load_Top At_Offset_3
035e 7032 |p2 | Jump_Nonzero 0x391
035f e602 | | Load 0x3,0x2
0360 85fc | | Call 0x2,-0x4
0361 e602 | | Load 0x3,0x2
0362 8406 | | Call 0x2,0x6
0363 c604 | | Store 0x3,0x4
0364 00da | | Load_Top At_Offset_2
0365 e00d | | Load 0x0,0xd
0366 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0367 012f | / | Execute Any,Equal
0368 703c |p< | Jump_Nonzero 0x3a5
0369 e00e | | Load 0x0,0xe
036a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
036b e00f | | Load 0x0,0xf
036c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
036d e008 | | Load 0x0,0x8
036e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036f e604 | | Load 0x3,0x4
0370 e00d | | Load 0x0,0xd
0371 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0372 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0373 e007 | | Load 0x0,0x7
0374 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
0375 180d | | Execute Package,Field_Execute,Field_Number 0xd
0376 4806 |H | Short_Literal 0x6
0377 e010 | | Load 0x0,0x10
0378 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0379 c605 | | Store 0x3,0x5
037a 00d9 | | Load_Top At_Offset_1
037b e010 | | Load 0x0,0x10
037c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
037d 6802 |h | Jump_Zero 0x380
037e 85fe | | Call 0x2,-0x2
037f 7825 |x% | Jump 0x3a5
0380 00cf | | Action Mark_Auxiliary
0381 7809 |x | Jump 0x38b
0382 00da | | Load_Top At_Offset_2
0383 e010 | | Load 0x0,0x10
0384 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0385 85fd | | Call 0x2,-0x3
0386 00da | | Load_Top At_Offset_2
0387 e010 | | Load 0x0,0x10
0388 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0389 c605 | | Store 0x3,0x5
038a 00c9 | | Action Pop_Auxiliary_Loop
038b 00da | | Load_Top At_Offset_2
038c e010 | | Load 0x0,0x10
038d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
038e 6ff3 |o | Jump_Zero 0x382
038f 00ce | | Action Pop_Auxiliary
0390 7814 |x | Jump 0x3a5
0391 e402 | | Load 0x2,0x2
0392 4807 |H | Short_Literal 0x7
0393 0092 03be | | Action Push_String_Extended,0x3be ; "Bad status getting object for "
0395 e403 | | Load 0x2,0x3
0396 e007 | | Load 0x0,0x7
0397 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0398 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0399 01cc | | Execute Vector,Catenate
039a 0092 03bf | | Action Push_String_Extended,0x3bf ; ": "
039c 01cc | | Execute Vector,Catenate
039d e603 | | Load 0x3,0x3
039e e007 | | Load 0x0,0x7
039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a0 011c | | Execute Any,Convert_Unchecked
03a1 1c01 | | Execute_Immediate Run_Utility,0x1
03a2 01cc | | Execute Vector,Catenate
03a3 e005 | | Load 0x0,0x5
03a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a5 e403 | | Load 0x2,0x3
03a6 e007 | | Load 0x0,0x7
03a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03a8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03a9 c403 | | Store 0x2,0x3
03aa 00c9 | | Action Pop_Auxiliary_Loop
03ab e403 | | Load 0x2,0x3
03ac e007 | | Load 0x0,0x7
03ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03af 6f9e |o | Jump_Zero 0x34e
03b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b1 ; --------------------------------------------------------------------------------------
03b1 ; STRING TABLE
03b1 ; --------------------------------------------------------------------------------------
03b1 0020 | | .STRTAB 0x0020->0x03c1 ; "[Program_Library_Maintenance.Show_Dependent_Main_Programs (Code_Views => \x22"
03b2 0068 | h | .STRTAB 0x0068->0x03e6 ; "\x22, Options => \x22"
03b3 0075 | u | .STRTAB 0x0075->0x03ed ; "\x22, Response => \x22"
03b4 0083 | | .STRTAB 0x0083->0x03f5 ; "\x22);]."
03b5 0086 | | .STRTAB 0x0086->0x03f8 ; "[End of Program_Library_Maintenance.Show_Dependent_Main_Programs command]."
03b6 00ce | | .STRTAB 0x00ce->0x041d ; "[<>]"
03b7 00d0 | | .STRTAB 0x00d0->0x041f ; "Coded main programs dependent on code view "
03b8 00f9 | | .STRTAB 0x00f9->0x0434 ; " :"
03b9 00f9 | | .STRTAB 0x00f9->0x0435 ; " "
03ba 00fb | | .STRTAB 0x00fb->0x0437 ; " <none>"
03bb 0103 | | .STRTAB 0x0103->0x043c ; " is not a code view"
03bc 0114 | | .STRTAB 0x0114->0x0446 ; "Unable to resolve name \x22"
03bd 012a | * | .STRTAB 0x012a->0x0452 ; "\x22 because "
03be 0132 | 2 | .STRTAB 0x0132->0x0457 ; "Bad status getting object for "
03bf 014e | N | .STRTAB 0x014e->0x0466 ; ": "
03c0 014e | N | .STREND 0x014e->0x0467
03c1 5b50 726f |[Pro| .STRTAB_STRINGS
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug Table
0468 ; --------------------------------------------------------------------------------------
0468 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc282,0x0000,0x0001,0x0000
046e 0000 0000 | | .BLANK 0000[0x192]