|
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, 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 0420 | | .CONST 0x0420 ; 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 001f | | .CONST 0x001f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; 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 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
0011 c20f | | Store 0x1,0xf
0012 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0014 c210 | | Store 0x1,0x10
0015 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0017 c20e | | Store 0x1,0xe
0018 00bf | | Action Accept_Activation
0019 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001a 00c7 | | Action Elaborate_Subprogram
001b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001c 00c7 | | Action Elaborate_Subprogram
001d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001e 00c7 | | Action Elaborate_Subprogram
001f BODY_0008:
001f 00bc | | Action Signal_Activated
0020 00bb | | Action Signal_Completion
0021 0000 0000 | | .BLANK 0000[0x7]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0049 | I | .CONST 0x0049 ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 000d | | .CONST 0x000d ; Number of locals
002b INIT_0028:
002b e001 | | Load 0x0,0x1
002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002d 02c7 | | Declare_Variable Any
002e 00d8 | | Load_Top At_Offset_0
002f 1c00 | | Execute_Immediate Run_Utility,0x0
0030 e002 | | Load 0x0,0x2
0031 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0032 0007 | | Action Break_Optional
0033 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0035 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0037 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0039 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003a 00c6 | | Action Check_Subprogram_Elaborated
003b 4804 |H | Short_Literal 0x4
003c 4802 |H | Short_Literal 0x2
003d 0099 | | Action Reference_Dynamic
003e 4805 |H | Short_Literal 0x5
003f 4802 |H | Short_Literal 0x2
0040 0099 | | Action Reference_Dynamic
0041 4806 |H | Short_Literal 0x6
0042 4802 |H | Short_Literal 0x2
0043 0099 | | Action Reference_Dynamic
0044 e003 | | Load 0x0,0x3
0045 e004 | | Load 0x0,0x4
0046 480c |H | Short_Literal 0xc
0047 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0049 BODY_0028:
0049 840d | | Call 0x2,0xd
004a e402 | | Load 0x2,0x2
004b 4800 |H | Short_Literal 0x0
004c 0092 0368 | h| Action Push_String_Extended,0x368 ; "[Program_Library_Maintenance.Show_Dependent_Main_Programs (Code_Views => \x22"
004e e5ff | | Load 0x2,-0x1
004f 01cc | | Execute Vector,Catenate
0050 0092 0369 | i| Action Push_String_Extended,0x369 ; "\x22, Options => \x22"
0052 01cc | | Execute Vector,Catenate
0053 e5fe | | Load 0x2,-0x2
0054 01cc | | Execute Vector,Catenate
0055 0092 036a | j| Action Push_String_Extended,0x36a ; "\x22, Response => \x22"
0057 01cc | | Execute Vector,Catenate
0058 e5fd | | Load 0x2,-0x3
0059 01cc | | Execute Vector,Catenate
005a 0092 036b | k| Action Push_String_Extended,0x36b ; "\x22);]."
005c 01cc | | Execute Vector,Catenate
005d 8403 | | Call 0x2,0x3
005e e5fd | | Load 0x2,-0x3
005f e5ff | | Load 0x2,-0x1
0060 4807 |H | Short_Literal 0x7
0061 4802 |H | Short_Literal 0x2
0062 0099 | | Action Reference_Dynamic
0063 4808 |H | Short_Literal 0x8
0064 4802 |H | Short_Literal 0x2
0065 0099 | | Action Reference_Dynamic
0066 4809 |H | Short_Literal 0x9
0067 4802 |H | Short_Literal 0x2
0068 0099 | | Action Reference_Dynamic
0069 480a |H | Short_Literal 0xa
006a 4802 |H | Short_Literal 0x2
006b 0099 | | Action Reference_Dynamic
006c 820e | | Call 0x1,0xe
006d e402 | | Load 0x2,0x2
006e 4800 |H | Short_Literal 0x0
006f 0092 036c | l| Action Push_String_Extended,0x36c ; "[End of Program_Library_Maintenance.Show_Dependent_Main_Programs command]."
0071 8403 | | Call 0x2,0x3
0072 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 00a4 | | .CONST 0x00a4 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0010 | | .CONST 0x0010 ; 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 4802 |H | Short_Literal 0x2
0080 032a | * | Declare_Type Record,Incomplete
0081 00d8 | | Load_Top At_Offset_0
0082 02a0 | | Declare_Subprogram Null_Subprogram
0083 4818 |H | Short_Literal 0x18
0084 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0085 00da | | Load_Top At_Offset_2
0086 00d9 | | Load_Top At_Offset_1
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 e403 | | Load 0x2,0x3
0089 0326 | & | Complete_Type Record,By_Defining
008a 00d8 | | Load_Top At_Offset_0
008b 0007 | | Action Break_Optional
008c 00e3 | | Load_Encached Natural_Cache
008d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008e 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0090 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0092 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
0094 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0095 00c6 | | Action Check_Subprogram_Elaborated
0096 4809 |H | Short_Literal 0x9
0097 4802 |H | Short_Literal 0x2
0098 0099 | | Action Reference_Dynamic
0099 4807 |H | Short_Literal 0x7
009a 4802 |H | Short_Literal 0x2
009b 0099 | | Action Reference_Dynamic
009c 4808 |H | Short_Literal 0x8
009d 4802 |H | Short_Literal 0x2
009e 0099 | | Action Reference_Dynamic
009f e005 | | Load 0x0,0x5
00a0 e006 | | Load 0x0,0x6
00a1 480f |H | Short_Literal 0xf
00a2 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
00a4 BODY_0078:
00a4 e5fd | | Load 0x2,-0x3
00a5 e5ff | | Load 0x2,-0x1
00a6 480a |H | Short_Literal 0xa
00a7 4802 |H | Short_Literal 0x2
00a8 0099 | | Action Reference_Dynamic
00a9 480b |H | Short_Literal 0xb
00aa 4802 |H | Short_Literal 0x2
00ab 0099 | | Action Reference_Dynamic
00ac 480c |H | Short_Literal 0xc
00ad 4802 |H | Short_Literal 0x2
00ae 0099 | | Action Reference_Dynamic
00af 480d |H | Short_Literal 0xd
00b0 4802 |H | Short_Literal 0x2
00b1 0099 | | Action Reference_Dynamic
00b2 820e | | Call 0x1,0xe
00b3 e406 | | Load 0x2,0x6
00b4 7003 |p | Jump_Nonzero 0xb8
00b5 0092 036d | m| Action Push_String_Extended,0x36d ; "[<>]"
00b7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00b8 8410 | | Call 0x2,0x10
00b9 0831 | 1 | Execute_Immediate Raise,0x31
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00e3 | | .CONST 0x00e3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 000a | | .CONST 0x000a ; Number of locals
00c3 INIT_00c0:
00c3 e001 | | Load 0x0,0x1
00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c5 02c7 | | Declare_Variable Any
00c6 00d8 | | Load_Top At_Offset_0
00c7 1c00 | | Execute_Immediate Run_Utility,0x0
00c8 e002 | | Load 0x0,0x2
00c9 1913 | | Execute Package,Field_Reference,Field_Number 0x13
00ca 0007 | | Action Break_Optional
00cb e007 | | Load 0x0,0x7
00cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00ce 02c7 | | Declare_Variable Any
00cf 00d8 | | Load_Top At_Offset_0
00d0 1c00 | | Execute_Immediate Run_Utility,0x0
00d1 e008 | | Load 0x0,0x8
00d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d3 02c7 | | Declare_Variable Any
00d4 e009 | | Load 0x0,0x9
00d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d6 e008 | | Load 0x0,0x8
00d7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d8 a405 | | Store_Unchecked 0x2,0x5
00d9 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
00db 029f 020b | | Declare_Subprogram INIT_0208,For_Call
00dd 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
00df 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
00e1 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
00e3 BODY_00c0:
00e3 8408 | | Call 0x2,0x8
00e4 8409 | | Call 0x2,0x9
00e5 840a | | Call 0x2,0xa
00e6 e405 | | Load 0x2,0x5
00e7 4801 |H | Short_Literal 0x1
00e8 4800 |H | Short_Literal 0x0
00e9 e008 | | Load 0x0,0x8
00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00eb c405 | | Store 0x2,0x5
00ec 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 0092 036e | n| Action Push_String_Extended,0x36e ; "Coded main programs dependent on code view "
00f5 00db | | Load_Top At_Offset_3
00f6 e007 | | Load 0x0,0x7
00f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00f9 01cc | | Execute Vector,Catenate
00fa 0092 036f | o| Action Push_String_Extended,0x36f ; " :"
00fc 01cc | | Execute Vector,Catenate
00fd e00a | | Load 0x0,0xa
00fe 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 0092 0370 | p| Action Push_String_Extended,0x370 ; " "
0105 00db | | Load_Top At_Offset_3
0106 e007 | | Load 0x0,0x7
0107 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0108 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0109 01cc | | Execute Vector,Catenate
010a e00a | | Load 0x0,0xa
010b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 0092 0371 | q| Action Push_String_Extended,0x371 ; " <none>"
0115 e00a | | Load 0x0,0xa
0116 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0117 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0120 | | .CONST 0x0120 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b e00b | | Load 0x0,0xb
011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011d 02c7 | | Declare_Variable Any
011e 00d8 | | Load_Top At_Offset_0
011f 1c00 | | Execute_Immediate Run_Utility,0x0
0120 BODY_0118:
0120 00d8 | | Load_Top At_Offset_0
0121 e402 | | Load 0x2,0x2
0122 0120 | | Execute Any,Is_Value
0123 6803 |h | Jump_Zero 0x127
0124 e001 | | Load 0x0,0x1
0125 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0126 7801 |x | Jump 0x128
0127 e402 | | Load 0x2,0x2
0128 e5fd | | Load 0x2,-0x3
0129 e001 | | Load 0x0,0x1
012a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
012b c402 | | Store 0x2,0x2
012c c602 | | Store 0x3,0x2
012d 4801 |H | Short_Literal 0x1
012e 00d9 | | Load_Top At_Offset_1
012f e00b | | Load 0x0,0xb
0130 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0131 6807 |h | Jump_Zero 0x139
0132 e001 | | Load 0x0,0x1
0133 180e | | Execute Package,Field_Execute,Field_Number 0xe
0134 00d9 | | Load_Top At_Offset_1
0135 e002 | | Load 0x0,0x2
0136 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0137 00cc | | Action Pop_Block
0138 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0139 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e403 | | Load 0x2,0x3
0144 0322 | " | Declare_Variable Record
0145 00db | | Load_Top At_Offset_3
0146 e007 | | Load 0x0,0x7
0147 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0148 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0149 e402 | | Load 0x2,0x2
014a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
014b 00d9 | | Load_Top At_Offset_1
014c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014d e405 | | Load 0x2,0x5
014e 00d9 | | Load_Top At_Offset_1
014f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0150 e404 | | Load 0x2,0x4
0151 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0152 a405 | | Store_Unchecked 0x2,0x5
0153 e406 | | Load 0x2,0x6
0154 0a01 | | Execute_Immediate Plus,0x1
0155 e405 | | Load 0x2,0x5
0156 0227 | ' | Execute Access,All_Reference
0157 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0158 0227 | ' | Execute Access,All_Reference
0159 01db | | Execute Vector,Length
015a 0273 | s | Execute Discrete,Plus
015b c406 | | Store 0x2,0x6
015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
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 0008 | | Action Idle
0164 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 0008 | | Action Idle
016c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017b | { | .CONST 0x017b ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 4801 |H | Short_Literal 0x1
0174 e406 | | Load 0x2,0x6
0175 0a01 | | Execute_Immediate Plus,0x1
0176 00e9 | | Load_Encached String_Cache
0177 0334 | 4 | Declare_Variable Array,With_Constraint
0178 00e4 | | Load_Encached Positive_Cache
0179 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
017a 00e4 | | Load_Encached Positive_Cache
017b BODY_0170:
017b 485b |H[ | Short_Literal 0x5b
017c 4801 |H | Short_Literal 0x1
017d e602 | | Load 0x3,0x2
017e 01d6 | | Execute Vector,Field_Write
017f 00cf | | Action Mark_Auxiliary
0180 7821 |x! | Jump 0x1a2
0181 e405 | | Load 0x2,0x5
0182 0227 | ' | Execute Access,All_Reference
0183 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0184 0227 | ' | Execute Access,All_Reference
0185 01db | | Execute Vector,Length
0186 005a | Z | Store_Top Discrete,At_Offset_2
0187 e405 | | Load 0x2,0x5
0188 0227 | ' | Execute Access,All_Reference
0189 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018a 0227 | ' | Execute Access,All_Reference
018b 00db | | Load_Top At_Offset_3
018c e603 | | Load 0x3,0x3
018d e604 | | Load 0x3,0x4
018e 0273 | s | Execute Discrete,Plus
018f 0aff | | Execute_Immediate Plus,-0x1
0190 e602 | | Load 0x3,0x2
0191 01ce | | Execute Vector,Slice_Write
0192 482c |H, | Short_Literal 0x2c
0193 00db | | Load_Top At_Offset_3
0194 00db | | Load_Top At_Offset_3
0195 0273 | s | Execute Discrete,Plus
0196 e602 | | Load 0x3,0x2
0197 01d6 | | Execute Vector,Field_Write
0198 00da | | Load_Top At_Offset_2
0199 00da | | Load_Top At_Offset_2
019a 0273 | s | Execute Discrete,Plus
019b 0a01 | | Execute_Immediate Plus,0x1
019c 005b | [ | Store_Top Discrete,At_Offset_3
019d e405 | | Load 0x2,0x5
019e 0227 | ' | Execute Access,All_Reference
019f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a0 a405 | | Store_Unchecked 0x2,0x5
01a1 00c9 | | Action Pop_Auxiliary_Loop
01a2 e405 | | Load 0x2,0x5
01a3 77dd |w | Jump_Nonzero 0x181
01a4 00ce | | Action Pop_Auxiliary
01a5 00d9 | | Load_Top At_Offset_1
01a6 00db | | Load_Top At_Offset_3
01a7 01dc | | Execute Vector,Last
01a8 0a01 | | Execute_Immediate Plus,0x1
01a9 027f | | Execute Discrete,Equal
01aa 7001 |p | Jump_Nonzero 0x1ac
01ab 0887 | | Execute_Immediate Raise,0x87
01ac 00da | | Load_Top At_Offset_2
01ad 01dc | | Execute Vector,Last
01ae 00db | | Load_Top At_Offset_3
01af 01d7 | | Execute Vector,Field_Read
01b0 0f2c | , | Execute_Immediate Equal,0x2c
01b1 7001 |p | Jump_Nonzero 0x1b3
01b2 0887 | | Execute_Immediate Raise,0x87
01b3 485d |H] | Short_Literal 0x5d
01b4 00db | | Load_Top At_Offset_3
01b5 01dc | | Execute Vector,Last
01b6 e602 | | Load 0x3,0x2
01b7 01d6 | | Execute Vector,Field_Write
01b8 00da | | Load_Top At_Offset_2
01b9 00cb | | Action Pop_Block_With_Result
01ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01eb | | .CONST 0x01eb ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0004 | | .CONST 0x0004 ; Number of locals
01c3 INIT_01c0:
01c3 e00c | | Load 0x0,0xc
01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c5 02c7 | | Declare_Variable Any
01c6 00db | | Load_Top At_Offset_3
01c7 a602 | | Store_Unchecked 0x3,0x2
01c8 e00c | | Load 0x0,0xc
01c9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ca 0266 | f | Execute Discrete,Bounds
01cb e001 | | Load 0x0,0x1
01cc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01cd 02a0 | | Declare_Subprogram Null_Subprogram
01ce 4801 |H | Short_Literal 0x1
01cf 035d | ] | Declare_Type Array,Defined
01d0 00d8 | | Load_Top At_Offset_0
01d1 0337 | 7 | Declare_Variable Array
01d2 00d8 | | Load_Top At_Offset_0
01d3 0335 | 5 | Declare_Variable Array,Duplicate
01d4 00cd | | Action Spare6_Action
01d5 4802 |H | Short_Literal 0x2
01d6 4800 |H | Short_Literal 0x0
01d7 00da | | Load_Top At_Offset_2
01d8 01d6 | | Execute Vector,Field_Write
01d9 4806 |H | Short_Literal 0x6
01da 4801 |H | Short_Literal 0x1
01db 00da | | Load_Top At_Offset_2
01dc 01d6 | | Execute Vector,Field_Write
01dd 4807 |H | Short_Literal 0x7
01de 4802 |H | Short_Literal 0x2
01df 00da | | Load_Top At_Offset_2
01e0 01d6 | | Execute Vector,Field_Write
01e1 4807 |H | Short_Literal 0x7
01e2 4803 |H | Short_Literal 0x3
01e3 00da | | Load_Top At_Offset_2
01e4 01d6 | | Execute Vector,Field_Write
01e5 4808 |H | Short_Literal 0x8
01e6 4804 |H | Short_Literal 0x4
01e7 00da | | Load_Top At_Offset_2
01e8 01d6 | | Execute Vector,Field_Write
01e9 00d9 | | Load_Top At_Offset_1
01ea 01d4 | | Execute Vector,Structure_Write
01eb BODY_01c0:
01eb 00cf | | Action Mark_Auxiliary
01ec 780f |x | Jump 0x1fc
01ed e402 | | Load 0x2,0x2
01ee e602 | | Load 0x3,0x2
01ef e00c | | Load 0x0,0xc
01f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f1 00db | | Load_Top At_Offset_3
01f2 01d7 | | Execute Vector,Field_Read
01f3 e602 | | Load 0x3,0x2
01f4 e00c | | Load 0x0,0xc
01f5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f6 8403 | | Call 0x2,0x3
01f7 00db | | Load_Top At_Offset_3
01f8 e00c | | Load 0x0,0xc
01f9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01fa c602 | | Store 0x3,0x2
01fb 00c9 | | Action Pop_Auxiliary_Loop
01fc 00db | | Load_Top At_Offset_3
01fd e00c | | Load 0x0,0xc
01fe 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ff 6fed |o | Jump_Zero 0x1ed
0200 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0217 | | .CONST 0x0217 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0003 | | .CONST 0x0003 ; Number of locals
020b INIT_0208:
020b e00d | | Load 0x0,0xd
020c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
020d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
020e 02c7 | | Declare_Variable Any
020f 00d8 | | Load_Top At_Offset_0
0210 1c00 | | Execute_Immediate Run_Utility,0x0
0211 e00d | | Load 0x0,0xd
0212 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0213 02c7 | | Declare_Variable Any
0214 e00d | | Load 0x0,0xd
0215 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0216 a603 | | Store_Unchecked 0x3,0x3
0217 BODY_0208:
0217 4800 |H | Short_Literal 0x0
0218 4800 |H | Short_Literal 0x0
0219 4801 |H | Short_Literal 0x1
021a e00c | | Load 0x0,0xc
021b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021c e405 | | Load 0x2,0x5
021d e00e | | Load 0x0,0xe
021e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021f e00f | | Load 0x0,0xf
0220 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0221 e00d | | Load 0x0,0xd
0222 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0223 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0224 c602 | | Store 0x3,0x2
0225 00d8 | | Load_Top At_Offset_0
0226 0120 | | Execute Any,Is_Value
0227 6803 |h | Jump_Zero 0x22b
0228 e00d | | Load 0x0,0xd
0229 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022a 7801 |x | Jump 0x22c
022b 00d8 | | Load_Top At_Offset_0
022c 4801 |H | Short_Literal 0x1
022d 4800 |H | Short_Literal 0x0
022e e7ff | | Load 0x3,-0x1
022f e602 | | Load 0x3,0x2
0230 e00d | | Load 0x0,0xd
0231 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0232 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0233 e602 | | Load 0x3,0x2
0234 e00d | | Load 0x0,0xd
0235 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0236 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0237 c603 | | Store 0x3,0x3
0238 00d9 | | Load_Top At_Offset_1
0239 e00d | | Load 0x0,0xd
023a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
023b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023c 8406 | | Call 0x2,0x6
023d 00d8 | | Load_Top At_Offset_0
023e e00d | | Load 0x0,0xd
023f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0240 012f | / | Execute Any,Equal
0241 7012 |p | Jump_Nonzero 0x254
0242 00d8 | | Load_Top At_Offset_0
0243 e00d | | Load 0x0,0xd
0244 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
0245 180d | | Execute Package,Field_Execute,Field_Number 0xd
0246 700d |p | Jump_Nonzero 0x254
0247 e402 | | Load 0x2,0x2
0248 4806 |H | Short_Literal 0x6
0249 e7ff | | Load 0x3,-0x1
024a e007 | | Load 0x0,0x7
024b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
024c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
024d 0092 0372 | r| Action Push_String_Extended,0x372 ; " is not a code view"
024f 01cc | | Execute Vector,Catenate
0250 8403 | | Call 0x2,0x3
0251 e00d | | Load 0x0,0xd
0252 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0253 c603 | | Store 0x3,0x3
0254 00d8 | | Load_Top At_Offset_0
0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0260 | ` | .CONST 0x0260 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e00b | | Load 0x0,0xb
025c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025d 02c7 | | Declare_Variable Any
025e 00d8 | | Load_Top At_Offset_0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 BODY_0258:
0260 00d8 | | Load_Top At_Offset_0
0261 e402 | | Load 0x2,0x2
0262 0120 | | Execute Any,Is_Value
0263 6803 |h | Jump_Zero 0x267
0264 e001 | | Load 0x0,0x1
0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0266 7801 |x | Jump 0x268
0267 e402 | | Load 0x2,0x2
0268 e5fa | | Load 0x2,-0x6
0269 e001 | | Load 0x0,0x1
026a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
026b c402 | | Store 0x2,0x2
026c c602 | | Store 0x3,0x2
026d 4801 |H | Short_Literal 0x1
026e 00d9 | | Load_Top At_Offset_1
026f e00b | | Load 0x0,0xb
0270 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0271 6807 |h | Jump_Zero 0x279
0272 e001 | | Load 0x0,0x1
0273 180e | | Execute Package,Field_Execute,Field_Number 0xe
0274 00d9 | | Load_Top At_Offset_1
0275 e002 | | Load 0x0,0x2
0276 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0277 00cc | | Action Pop_Block
0278 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0279 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0286 | | .CONST 0x0286 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 e007 | | Load 0x0,0x7
0284 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0285 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0286 BODY_0280:
0286 e007 | | Load 0x0,0x7
0287 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0288 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0289 e404 | | Load 0x2,0x4
028a 6061 |`a | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x00004000}
028b e008 | | Load 0x0,0x8
028c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028d e00e | | Load 0x0,0xe
028e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028f e00f | | Load 0x0,0xf
0290 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0291 4801 |H | Short_Literal 0x1
0292 4800 |H | Short_Literal 0x0
0293 e00e | | Load 0x0,0xe
0294 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0295 e007 | | Load 0x0,0x7
0296 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0297 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0298 e5fb | | Load 0x2,-0x5
0299 e007 | | Load 0x0,0x7
029a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
029b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
029c c404 | | Store 0x2,0x4
029d 0059 | Y | Store_Top Discrete,At_Offset_1
029e 00d8 | | Load_Top At_Offset_0
029f 6828 |h( | Jump_Zero 0x2c8
02a0 00d8 | | Load_Top At_Offset_0
02a1 0e03 | | Execute_Immediate Not_Equal,0x3
02a2 7005 |p | Jump_Nonzero 0x2a8
02a3 e404 | | Load 0x2,0x4
02a4 e007 | | Load 0x0,0x7
02a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02a7 7020 |p | Jump_Nonzero 0x2c8
02a8 e402 | | Load 0x2,0x2
02a9 4807 |H | Short_Literal 0x7
02aa 0092 0373 | s| Action Push_String_Extended,0x373 ; "Unable to resolve name \x22"
02ac e5fb | | Load 0x2,-0x5
02ad 01cc | | Execute Vector,Catenate
02ae 0092 0374 | t| Action Push_String_Extended,0x374 ; "\x22 because "
02b0 01cc | | Execute Vector,Catenate
02b1 603a |`: | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x00004000}
02b2 e008 | | Load 0x0,0x8
02b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b4 e00e | | Load 0x0,0xe
02b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b6 e00f | | Load 0x0,0xf
02b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b8 4801 |H | Short_Literal 0x1
02b9 4800 |H | Short_Literal 0x0
02ba e00e | | Load 0x0,0xe
02bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02bc e007 | | Load 0x0,0x7
02bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02be 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02bf e5fb | | Load 0x2,-0x5
02c0 e602 | | Load 0x3,0x2
02c1 e007 | | Load 0x0,0x7
02c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c3 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02c4 01cc | | Execute Vector,Catenate
02c5 8403 | | Call 0x2,0x3
02c6 00cc | | Action Pop_Block
02c7 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02c8 00d8 | | Load_Top At_Offset_0
02c9 0f03 | | Execute_Immediate Equal,0x3
02ca 6820 |h | Jump_Zero 0x2eb
02cb e402 | | Load 0x2,0x2
02cc 4802 |H | Short_Literal 0x2
02cd 0092 0373 | s| Action Push_String_Extended,0x373 ; "Unable to resolve name \x22"
02cf e5fb | | Load 0x2,-0x5
02d0 01cc | | Execute Vector,Catenate
02d1 0092 0374 | t| Action Push_String_Extended,0x374 ; "\x22 because "
02d3 01cc | | Execute Vector,Catenate
02d4 6017 |` | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x00004000}
02d5 e008 | | Load 0x0,0x8
02d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d7 e00e | | Load 0x0,0xe
02d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d9 e00f | | Load 0x0,0xf
02da 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02db 4801 |H | Short_Literal 0x1
02dc 4800 |H | Short_Literal 0x0
02dd e00e | | Load 0x0,0xe
02de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02df e007 | | Load 0x0,0x7
02e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02e2 e5fb | | Load 0x2,-0x5
02e3 e602 | | Load 0x3,0x2
02e4 e007 | | Load 0x0,0x7
02e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02e6 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02e7 01cc | | Execute Vector,Catenate
02e8 8403 | | Call 0x2,0x3
02e9 00cc | | Action Pop_Block
02ea 4507 |E | Exit_Suprogram New_Top_Offset 0x7
02eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ec 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 0304 | | .CONST 0x0304 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0005 | | .CONST 0x0005 ; Number of locals
02f3 INIT_02f0:
02f3 e007 | | Load 0x0,0x7
02f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f5 02c7 | | Declare_Variable Any
02f6 00d8 | | Load_Top At_Offset_0
02f7 1c00 | | Execute_Immediate Run_Utility,0x0
02f8 e007 | | Load 0x0,0x7
02f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fa e00d | | Load 0x0,0xd
02fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fc 02c7 | | Declare_Variable Any
02fd 00d8 | | Load_Top At_Offset_0
02fe 1c00 | | Execute_Immediate Run_Utility,0x0
02ff e010 | | Load 0x0,0x10
0300 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0301 02c7 | | Declare_Variable Any
0302 00d8 | | Load_Top At_Offset_0
0303 1c00 | | Execute_Immediate Run_Utility,0x0
0304 BODY_02f0:
0304 00cf | | Action Mark_Auxiliary
0305 785c |x\ | Jump 0x362
0306 e007 | | Load 0x0,0x7
0307 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0308 e602 | | Load 0x3,0x2
0309 0120 | | Execute Any,Is_Value
030a 6803 |h | Jump_Zero 0x30e
030b e007 | | Load 0x0,0x7
030c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
030d 7801 |x | Jump 0x30f
030e e602 | | Load 0x3,0x2
030f e404 | | Load 0x2,0x4
0310 e007 | | Load 0x0,0x7
0311 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0312 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0313 c602 | | Store 0x3,0x2
0314 c603 | | Store 0x3,0x3
0315 00db | | Load_Top At_Offset_3
0316 7032 |p2 | Jump_Nonzero 0x349
0317 e602 | | Load 0x3,0x2
0318 85fc | | Call 0x2,-0x4
0319 e602 | | Load 0x3,0x2
031a 8407 | | Call 0x2,0x7
031b c604 | | Store 0x3,0x4
031c 00da | | Load_Top At_Offset_2
031d e00d | | Load 0x0,0xd
031e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031f 012f | / | Execute Any,Equal
0320 703b |p; | Jump_Nonzero 0x35c
0321 e00e | | Load 0x0,0xe
0322 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0323 e00f | | Load 0x0,0xf
0324 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0325 e008 | | Load 0x0,0x8
0326 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0327 e604 | | Load 0x3,0x4
0328 e00d | | Load 0x0,0xd
0329 1b6b | k | Execute Package,Field_Read,Field_Number 0x6b
032a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
032b e007 | | Load 0x0,0x7
032c 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
032d 180d | | Execute Package,Field_Execute,Field_Number 0xd
032e 4806 |H | Short_Literal 0x6
032f e010 | | Load 0x0,0x10
0330 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0331 c605 | | Store 0x3,0x5
0332 00d9 | | Load_Top At_Offset_1
0333 e010 | | Load 0x0,0x10
0334 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0335 6802 |h | Jump_Zero 0x338
0336 85fe | | Call 0x2,-0x2
0337 7824 |x$ | Jump 0x35c
0338 00cf | | Action Mark_Auxiliary
0339 7809 |x | Jump 0x343
033a 00da | | Load_Top At_Offset_2
033b e010 | | Load 0x0,0x10
033c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
033d 85fd | | Call 0x2,-0x3
033e 00da | | Load_Top At_Offset_2
033f e010 | | Load 0x0,0x10
0340 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0341 c605 | | Store 0x3,0x5
0342 00c9 | | Action Pop_Auxiliary_Loop
0343 00da | | Load_Top At_Offset_2
0344 e010 | | Load 0x0,0x10
0345 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0346 6ff3 |o | Jump_Zero 0x33a
0347 00ce | | Action Pop_Auxiliary
0348 7813 |x | Jump 0x35c
0349 e402 | | Load 0x2,0x2
034a 4807 |H | Short_Literal 0x7
034b 0092 0375 | u| Action Push_String_Extended,0x375 ; "Bad status getting object for "
034d e404 | | Load 0x2,0x4
034e e007 | | Load 0x0,0x7
034f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0350 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0351 01cc | | Execute Vector,Catenate
0352 0092 0376 | v| Action Push_String_Extended,0x376 ; ": "
0354 01cc | | Execute Vector,Catenate
0355 e603 | | Load 0x3,0x3
0356 e007 | | Load 0x0,0x7
0357 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0358 025e | ^ | Execute Discrete,Convert
0359 1c01 | | Execute_Immediate Run_Utility,0x1
035a 01cc | | Execute Vector,Catenate
035b 8403 | | Call 0x2,0x3
035c e404 | | Load 0x2,0x4
035d e007 | | Load 0x0,0x7
035e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
035f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0360 c404 | | Store 0x2,0x4
0361 00c9 | | Action Pop_Auxiliary_Loop
0362 e404 | | Load 0x2,0x4
0363 e007 | | Load 0x0,0x7
0364 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0365 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0366 6f9f |o | Jump_Zero 0x306
0367 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0368 ; --------------------------------------------------------------------------------------
0368 ; STRING TABLE
0368 ; --------------------------------------------------------------------------------------
0368 0020 | | .STRTAB 0x0020->0x0378 ; "[Program_Library_Maintenance.Show_Dependent_Main_Programs (Code_Views => \x22"
0369 0068 | h | .STRTAB 0x0068->0x039d ; "\x22, Options => \x22"
036a 0075 | u | .STRTAB 0x0075->0x03a4 ; "\x22, Response => \x22"
036b 0083 | | .STRTAB 0x0083->0x03ac ; "\x22);]."
036c 0086 | | .STRTAB 0x0086->0x03af ; "[End of Program_Library_Maintenance.Show_Dependent_Main_Programs command]."
036d 00ce | | .STRTAB 0x00ce->0x03d4 ; "[<>]"
036e 00d0 | | .STRTAB 0x00d0->0x03d6 ; "Coded main programs dependent on code view "
036f 00f9 | | .STRTAB 0x00f9->0x03eb ; " :"
0370 00f9 | | .STRTAB 0x00f9->0x03ec ; " "
0371 00fb | | .STRTAB 0x00fb->0x03ee ; " <none>"
0372 0103 | | .STRTAB 0x0103->0x03f3 ; " is not a code view"
0373 0114 | | .STRTAB 0x0114->0x03fd ; "Unable to resolve name \x22"
0374 012a | * | .STRTAB 0x012a->0x0409 ; "\x22 because "
0375 0132 | 2 | .STRTAB 0x0132->0x040e ; "Bad status getting object for "
0376 014e | N | .STRTAB 0x014e->0x041d ; ": "
0377 014e | N | .STREND 0x014e->0x041e
0378 5b50 726f |[Pro| .STRTAB_STRINGS
041e 0000 0000 | | .XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug Table
0420 ; --------------------------------------------------------------------------------------
0420 0004 0010 | | .DEBUG4 0x0004,0x0010,0x3b2e,0x0000,0x0001,0x0000
0426 06f1 1804 | | .XXX[0x2]
0428 0000 0000 | | .BLANK 0000[0x1d8]