|
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_0440fe
└─⟦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 0530 | 0 | .CONST 0x0530 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006a | j | .CONST 0x006a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b 00ea | | Load_Encached Null_String_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 0007 | | Action Break_Optional
0013 0007 | | Action Break_Optional
0014 0007 | | Action Break_Optional
0015 0007 | | Action Break_Optional
0016 0007 | | Action Break_Optional
0017 4804 |H | Short_Literal 0x4
0018 032a | * | Declare_Type Record,Incomplete
0019 00d8 | | Load_Top At_Offset_0
001a 02a0 | | Declare_Subprogram Null_Subprogram
001b 4818 |H | Short_Literal 0x18
001c 03d5 | | Declare_Type Access,Defined
001d e001 | | Load 0x0,0x1
001e e002 | | Load 0x0,0x2
001f e211 | | Load 0x1,0x11
0020 e003 | | Load 0x0,0x3
0021 0387 | | Declare_Variable Package
0022 00d8 | | Load_Top At_Offset_0
0023 020f | | Execute Module,Activate
0024 00d8 | | Load_Top At_Offset_0
0025 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0026 0266 | f | Execute Discrete,Bounds
0027 00e1 | | Load_Encached Boolean_Cache
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 4801 |H | Short_Literal 0x1
002a 035d | ] | Declare_Type Array,Defined
002b e212 | | Load 0x1,0x12
002c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002d 00e1 | | Load_Encached Boolean_Cache
002e 00e1 | | Load_Encached Boolean_Cache
002f e213 | | Load 0x1,0x13
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 e210 | | Load 0x1,0x10
0032 0326 | & | Complete_Type Record,By_Defining
0033 e211 | | Load 0x1,0x11
0034 03c4 | | Complete_Type Access,By_Component_Completion
0035 0007 | | Action Break_Optional
0036 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call
0038 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
003a 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
003c 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
003e e004 | | Load 0x0,0x4
003f e005 | | Load 0x0,0x5
0040 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0041 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0043 e212 | | Load 0x1,0x12
0044 192f | / | Execute Package,Field_Reference,Field_Number 0x2f
0045 e212 | | Load 0x1,0x12
0046 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36
0047 e212 | | Load 0x1,0x12
0048 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34
0049 4850 |HP | Short_Literal 0x50
004a 4818 |H | Short_Literal 0x18
004b 4830 |H0 | Short_Literal 0x30
004c 4801 |H | Short_Literal 0x1
004d e212 | | Load 0x1,0x12
004e 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
004f 0387 | | Declare_Variable Package
0050 00d8 | | Load_Top At_Offset_0
0051 020f | | Execute Module,Activate
0052 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
0054 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call
0056 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call
0058 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call
005a 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
005c e212 | | Load 0x1,0x12
005d 193a | : | Execute Package,Field_Reference,Field_Number 0x3a
005e 00c6 | | Action Check_Subprogram_Elaborated
005f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0060 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0061 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0062 e006 | | Load 0x0,0x6
0063 e007 | | Load 0x0,0x7
0064 4800 |H | Short_Literal 0x0
0065 0007 | | Action Break_Optional
0066 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0067 00c7 | | Action Elaborate_Subprogram
0068 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0069 00c7 | | Action Elaborate_Subprogram
006a BODY_0008:
006a 00bc | | Action Signal_Activated
006b 00bb | | Action Signal_Completion
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 00f0 | | .CONST 0x00f0 ; Address of begin
0071 0137 | 7 | .CONST 0x0137 ; Address of exception handler
0072 0010 | | .CONST 0x0010 ; Number of locals
0073 INIT_0070:
0073 e211 | | Load 0x1,0x11
0074 e210 | | Load 0x1,0x10
0075 0322 | " | Declare_Variable Record
0076 e212 | | Load 0x1,0x12
0077 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0078 e403 | | Load 0x2,0x3
0079 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
007a 4801 |H | Short_Literal 0x1
007b e403 | | Load 0x2,0x3
007c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007d e5fe | | Load 0x2,-0x2
007e e403 | | Load 0x2,0x3
007f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0080 e213 | | Load 0x1,0x13
0081 0337 | 7 | Declare_Variable Array
0082 e5fa | | Load 0x2,-0x6
0083 4800 |H | Short_Literal 0x0
0084 e404 | | Load 0x2,0x4
0085 01d6 | | Execute Vector,Field_Write
0086 e5f9 | | Load 0x2,-0x7
0087 4801 |H | Short_Literal 0x1
0088 e404 | | Load 0x2,0x4
0089 01d6 | | Execute Vector,Field_Write
008a e5f8 | | Load 0x2,-0x8
008b 4802 |H | Short_Literal 0x2
008c e404 | | Load 0x2,0x4
008d 01d6 | | Execute Vector,Field_Write
008e e5f7 | | Load 0x2,-0x9
008f 4803 |H | Short_Literal 0x3
0090 e404 | | Load 0x2,0x4
0091 01d6 | | Execute Vector,Field_Write
0092 e5f6 | | Load 0x2,-0xa
0093 4804 |H | Short_Literal 0x4
0094 e404 | | Load 0x2,0x4
0095 01d6 | | Execute Vector,Field_Write
0096 e5fd | | Load 0x2,-0x3
0097 4805 |H | Short_Literal 0x5
0098 e404 | | Load 0x2,0x4
0099 01d6 | | Execute Vector,Field_Write
009a e5fc | | Load 0x2,-0x4
009b 4806 |H | Short_Literal 0x6
009c e404 | | Load 0x2,0x4
009d 01d6 | | Execute Vector,Field_Write
009e e5f5 | | Load 0x2,-0xb
009f 4807 |H | Short_Literal 0x7
00a0 e404 | | Load 0x2,0x4
00a1 01d6 | | Execute Vector,Field_Write
00a2 e5f4 | | Load 0x2,-0xc
00a3 4808 |H | Short_Literal 0x8
00a4 e404 | | Load 0x2,0x4
00a5 01d6 | | Execute Vector,Field_Write
00a6 e5f3 | | Load 0x2,-0xd
00a7 4809 |H | Short_Literal 0x9
00a8 e404 | | Load 0x2,0x4
00a9 01d6 | | Execute Vector,Field_Write
00aa e5f2 | | Load 0x2,-0xe
00ab 480a |H | Short_Literal 0xa
00ac e404 | | Load 0x2,0x4
00ad 01d6 | | Execute Vector,Field_Write
00ae e5fb | | Load 0x2,-0x5
00af 480b |H | Short_Literal 0xb
00b0 e404 | | Load 0x2,0x4
00b1 01d6 | | Execute Vector,Field_Write
00b2 e5f1 | | Load 0x2,-0xf
00b3 480c |H | Short_Literal 0xc
00b4 e404 | | Load 0x2,0x4
00b5 01d6 | | Execute Vector,Field_Write
00b6 e5f0 | | Load 0x2,-0x10
00b7 480d |H | Short_Literal 0xd
00b8 e404 | | Load 0x2,0x4
00b9 01d6 | | Execute Vector,Field_Write
00ba e5ef | | Load 0x2,-0x11
00bb 480e |H | Short_Literal 0xe
00bc e404 | | Load 0x2,0x4
00bd 01d6 | | Execute Vector,Field_Write
00be 4800 |H | Short_Literal 0x0
00bf 480f |H | Short_Literal 0xf
00c0 e404 | | Load 0x2,0x4
00c1 01d6 | | Execute Vector,Field_Write
00c2 e213 | | Load 0x1,0x13
00c3 01c3 | | Execute Vector,Check_In_Type
00c4 e210 | | Load 0x1,0x10
00c5 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
00c6 0119 | | Execute Any,Check_In_Formal_Type
00c7 e403 | | Load 0x2,0x3
00c8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c9 e211 | | Load 0x1,0x11
00ca 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00cb c402 | | Store 0x2,0x2
00cc 00e1 | | Load_Encached Boolean_Cache
00cd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ce e008 | | Load 0x0,0x8
00cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d0 02c7 | | Declare_Variable Any
00d1 00d8 | | Load_Top At_Offset_0
00d2 1c00 | | Execute_Immediate Run_Utility,0x0
00d3 e009 | | Load 0x0,0x9
00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00d6 02c7 | | Declare_Variable Any
00d7 e009 | | Load 0x0,0x9
00d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00da c405 | | Store 0x2,0x5
00db 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call
00dd e212 | | Load 0x1,0x12
00de 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39
00df 00c6 | | Action Check_Subprogram_Elaborated
00e0 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00e1 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00e2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00e3 e00a | | Load 0x0,0xa
00e4 e00b | | Load 0x0,0xb
00e5 480c |H | Short_Literal 0xc
00e6 0007 | | Action Break_Optional
00e7 e212 | | Load 0x1,0x12
00e8 191e | | Execute Package,Field_Reference,Field_Number 0x1e
00e9 00c6 | | Action Check_Subprogram_Elaborated
00ea e212 | | Load 0x1,0x12
00eb 191d | | Execute Package,Field_Reference,Field_Number 0x1d
00ec e00c | | Load 0x0,0xc
00ed e00d | | Load 0x0,0xd
00ee 4810 |H | Short_Literal 0x10
00ef 0007 | | Action Break_Optional
00f0 BODY_0070:
00f0 e5ec | | Load 0x2,-0x14
00f1 01db | | Execute Vector,Length
00f2 0c01 | | Execute_Immediate Greater_Equal,0x1
00f3 680c |h | Jump_Zero 0x100
00f4 e404 | | Load 0x2,0x4
00f5 00ea | | Load_Encached Null_String_Cache
00f6 e5ec | | Load 0x2,-0x14
00f7 4801 |H | Short_Literal 0x1
00f8 e008 | | Load 0x0,0x8
00f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00fa c404 | | Store 0x2,0x4
00fb e404 | | Load 0x2,0x4
00fc e008 | | Load 0x0,0x8
00fd 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00fe 4801 |H | Short_Literal 0x1
00ff a403 | | Store_Unchecked 0x2,0x3
0100 e5ff | | Load 0x2,-0x1
0101 8406 | | Call 0x2,0x6
0102 480d |H | Short_Literal 0xd
0103 4802 |H | Short_Literal 0x2
0104 0099 | | Action Reference_Dynamic
0105 480e |H | Short_Literal 0xe
0106 4802 |H | Short_Literal 0x2
0107 0099 | | Action Reference_Dynamic
0108 e212 | | Load 0x1,0x12
0109 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010a e402 | | Load 0x2,0x2
010b 4807 |H | Short_Literal 0x7
010c 4802 |H | Short_Literal 0x2
010d 0099 | | Action Reference_Dynamic
010e 4808 |H | Short_Literal 0x8
010f 4802 |H | Short_Literal 0x2
0110 0099 | | Action Reference_Dynamic
0111 4809 |H | Short_Literal 0x9
0112 4802 |H | Short_Literal 0x2
0113 0099 | | Action Reference_Dynamic
0114 480a |H | Short_Literal 0xa
0115 4802 |H | Short_Literal 0x2
0116 0099 | | Action Reference_Dynamic
0117 e212 | | Load 0x1,0x12
0118 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0119 c402 | | Store 0x2,0x2
011a e402 | | Load 0x2,0x2
011b 4801 |H | Short_Literal 0x1
011c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
011d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
011e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
011f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0120 e212 | | Load 0x1,0x12
0121 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0122 c402 | | Store 0x2,0x2
0123 4800 |H | Short_Literal 0x0
0124 e402 | | Load 0x2,0x2
0125 0227 | ' | Execute Access,All_Reference
0126 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0127 e402 | | Load 0x2,0x2
0128 4800 |H | Short_Literal 0x0
0129 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
012a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
012b 1d20 | | Execute_Immediate Reference_Lex_1,0x20
012c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
012d e212 | | Load 0x1,0x12
012e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
012f c402 | | Store 0x2,0x2
0130 e403 | | Load 0x2,0x3
0131 6804 |h | Jump_Zero 0x136
0132 e404 | | Load 0x2,0x4
0133 e008 | | Load 0x0,0x8
0134 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0135 c404 | | Store 0x2,0x4
0136 4515 |E | Exit_Suprogram New_Top_Offset 0x15
0137 TRAP_0070:
0137 00d8 | | Load_Top At_Offset_0
0138 0107 | | Execute Exception,Get_Name
0139 4900 |I | Short_Literal 0x100
013a 490f |I | Short_Literal 0x10f
013b 0262 | b | Execute Discrete,In_Range
013c 7006 |p | Jump_Nonzero 0x143
013d 00d8 | | Load_Top At_Offset_0
013e 0107 | | Execute Exception,Get_Name
013f 4920 |I | Short_Literal 0x120
0140 492f |I/ | Short_Literal 0x12f
0141 0262 | b | Execute Discrete,In_Range
0142 680a |h | Jump_Zero 0x14d
0143 e00e | | Load 0x0,0xe
0144 180e | | Execute Package,Field_Execute,Field_Number 0xe
0145 4807 |H | Short_Literal 0x7
0146 0092 049b | | Action Push_String_Extended,0x49b ; "Cannot create list file "
0148 e5ec | | Load 0x2,-0x14
0149 01cc | | Execute Vector,Catenate
014a e00f | | Load 0x0,0xf
014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014c 4515 |E | Exit_Suprogram New_Top_Offset 0x15
014d e010 | | Load 0x0,0x10
014e 010f | | Execute Exception,Equal
014f 680b |h | Jump_Zero 0x15b
0150 e403 | | Load 0x2,0x3
0151 6804 |h | Jump_Zero 0x156
0152 e404 | | Load 0x2,0x4
0153 e008 | | Load 0x0,0x8
0154 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0155 c404 | | Store 0x2,0x4
0156 0092 049c | | Action Push_String_Extended,0x49c ; "** Failed **"
0158 e011 | | Load 0x0,0x11
0159 1814 | | Execute Package,Field_Execute,Field_Number 0x14
015a 4515 |E | Exit_Suprogram New_Top_Offset 0x15
015b 0100 | | Execute Exception,Raise
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 01e0 | | .CONST 0x01e0 ; Address of begin
0161 0227 | ' | .CONST 0x0227 ; Address of exception handler
0162 0010 | | .CONST 0x0010 ; Number of locals
0163 INIT_0160:
0163 e211 | | Load 0x1,0x11
0164 e210 | | Load 0x1,0x10
0165 0322 | " | Declare_Variable Record
0166 e212 | | Load 0x1,0x12
0167 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0168 e403 | | Load 0x2,0x3
0169 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016a 4801 |H | Short_Literal 0x1
016b e403 | | Load 0x2,0x3
016c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016d 4800 |H | Short_Literal 0x0
016e e403 | | Load 0x2,0x3
016f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0170 e213 | | Load 0x1,0x13
0171 0337 | 7 | Declare_Variable Array
0172 e5fb | | Load 0x2,-0x5
0173 4800 |H | Short_Literal 0x0
0174 e404 | | Load 0x2,0x4
0175 01d6 | | Execute Vector,Field_Write
0176 e5fa | | Load 0x2,-0x6
0177 4801 |H | Short_Literal 0x1
0178 e404 | | Load 0x2,0x4
0179 01d6 | | Execute Vector,Field_Write
017a e5f9 | | Load 0x2,-0x7
017b 4802 |H | Short_Literal 0x2
017c e404 | | Load 0x2,0x4
017d 01d6 | | Execute Vector,Field_Write
017e e5f8 | | Load 0x2,-0x8
017f 4803 |H | Short_Literal 0x3
0180 e404 | | Load 0x2,0x4
0181 01d6 | | Execute Vector,Field_Write
0182 e5f7 | | Load 0x2,-0x9
0183 4804 |H | Short_Literal 0x4
0184 e404 | | Load 0x2,0x4
0185 01d6 | | Execute Vector,Field_Write
0186 e5fe | | Load 0x2,-0x2
0187 4805 |H | Short_Literal 0x5
0188 e404 | | Load 0x2,0x4
0189 01d6 | | Execute Vector,Field_Write
018a e5fd | | Load 0x2,-0x3
018b 4806 |H | Short_Literal 0x6
018c e404 | | Load 0x2,0x4
018d 01d6 | | Execute Vector,Field_Write
018e e5f6 | | Load 0x2,-0xa
018f 4807 |H | Short_Literal 0x7
0190 e404 | | Load 0x2,0x4
0191 01d6 | | Execute Vector,Field_Write
0192 e5f5 | | Load 0x2,-0xb
0193 4808 |H | Short_Literal 0x8
0194 e404 | | Load 0x2,0x4
0195 01d6 | | Execute Vector,Field_Write
0196 e5f4 | | Load 0x2,-0xc
0197 4809 |H | Short_Literal 0x9
0198 e404 | | Load 0x2,0x4
0199 01d6 | | Execute Vector,Field_Write
019a e5f3 | | Load 0x2,-0xd
019b 480a |H | Short_Literal 0xa
019c e404 | | Load 0x2,0x4
019d 01d6 | | Execute Vector,Field_Write
019e e5fc | | Load 0x2,-0x4
019f 480b |H | Short_Literal 0xb
01a0 e404 | | Load 0x2,0x4
01a1 01d6 | | Execute Vector,Field_Write
01a2 e5f2 | | Load 0x2,-0xe
01a3 480c |H | Short_Literal 0xc
01a4 e404 | | Load 0x2,0x4
01a5 01d6 | | Execute Vector,Field_Write
01a6 e5f1 | | Load 0x2,-0xf
01a7 480d |H | Short_Literal 0xd
01a8 e404 | | Load 0x2,0x4
01a9 01d6 | | Execute Vector,Field_Write
01aa e5f0 | | Load 0x2,-0x10
01ab 480e |H | Short_Literal 0xe
01ac e404 | | Load 0x2,0x4
01ad 01d6 | | Execute Vector,Field_Write
01ae 4800 |H | Short_Literal 0x0
01af 480f |H | Short_Literal 0xf
01b0 e404 | | Load 0x2,0x4
01b1 01d6 | | Execute Vector,Field_Write
01b2 e213 | | Load 0x1,0x13
01b3 01c3 | | Execute Vector,Check_In_Type
01b4 e210 | | Load 0x1,0x10
01b5 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
01b6 0119 | | Execute Any,Check_In_Formal_Type
01b7 e403 | | Load 0x2,0x3
01b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01b9 e211 | | Load 0x1,0x11
01ba 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01bb c402 | | Store 0x2,0x2
01bc 00e1 | | Load_Encached Boolean_Cache
01bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01be e008 | | Load 0x0,0x8
01bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c0 02c7 | | Declare_Variable Any
01c1 00d8 | | Load_Top At_Offset_0
01c2 1c00 | | Execute_Immediate Run_Utility,0x0
01c3 e009 | | Load 0x0,0x9
01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01c6 02c7 | | Declare_Variable Any
01c7 e009 | | Load 0x0,0x9
01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01ca c405 | | Store 0x2,0x5
01cb 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
01cd e212 | | Load 0x1,0x12
01ce 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39
01cf 00c6 | | Action Check_Subprogram_Elaborated
01d0 1d19 | | Execute_Immediate Reference_Lex_1,0x19
01d1 1d14 | | Execute_Immediate Reference_Lex_1,0x14
01d2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
01d3 e012 | | Load 0x0,0x12
01d4 e013 | | Load 0x0,0x13
01d5 480c |H | Short_Literal 0xc
01d6 0007 | | Action Break_Optional
01d7 e212 | | Load 0x1,0x12
01d8 191e | | Execute Package,Field_Reference,Field_Number 0x1e
01d9 00c6 | | Action Check_Subprogram_Elaborated
01da e212 | | Load 0x1,0x12
01db 191d | | Execute Package,Field_Reference,Field_Number 0x1d
01dc e014 | | Load 0x0,0x14
01dd e015 | | Load 0x0,0x15
01de 4810 |H | Short_Literal 0x10
01df 0007 | | Action Break_Optional
01e0 BODY_0160:
01e0 e5ee | | Load 0x2,-0x12
01e1 01db | | Execute Vector,Length
01e2 0c01 | | Execute_Immediate Greater_Equal,0x1
01e3 680c |h | Jump_Zero 0x1f0
01e4 e404 | | Load 0x2,0x4
01e5 00ea | | Load_Encached Null_String_Cache
01e6 e5ee | | Load 0x2,-0x12
01e7 4801 |H | Short_Literal 0x1
01e8 e008 | | Load 0x0,0x8
01e9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ea c404 | | Store 0x2,0x4
01eb e404 | | Load 0x2,0x4
01ec e008 | | Load 0x0,0x8
01ed 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01ee 4801 |H | Short_Literal 0x1
01ef a403 | | Store_Unchecked 0x2,0x3
01f0 e5ff | | Load 0x2,-0x1
01f1 8406 | | Call 0x2,0x6
01f2 480d |H | Short_Literal 0xd
01f3 4802 |H | Short_Literal 0x2
01f4 0099 | | Action Reference_Dynamic
01f5 480e |H | Short_Literal 0xe
01f6 4802 |H | Short_Literal 0x2
01f7 0099 | | Action Reference_Dynamic
01f8 e212 | | Load 0x1,0x12
01f9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01fa e402 | | Load 0x2,0x2
01fb 4807 |H | Short_Literal 0x7
01fc 4802 |H | Short_Literal 0x2
01fd 0099 | | Action Reference_Dynamic
01fe 4808 |H | Short_Literal 0x8
01ff 4802 |H | Short_Literal 0x2
0200 0099 | | Action Reference_Dynamic
0201 4809 |H | Short_Literal 0x9
0202 4802 |H | Short_Literal 0x2
0203 0099 | | Action Reference_Dynamic
0204 480a |H | Short_Literal 0xa
0205 4802 |H | Short_Literal 0x2
0206 0099 | | Action Reference_Dynamic
0207 e212 | | Load 0x1,0x12
0208 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0209 c402 | | Store 0x2,0x2
020a e402 | | Load 0x2,0x2
020b 4801 |H | Short_Literal 0x1
020c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
020d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
020e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
020f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0210 e212 | | Load 0x1,0x12
0211 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0212 c402 | | Store 0x2,0x2
0213 4800 |H | Short_Literal 0x0
0214 e402 | | Load 0x2,0x2
0215 0227 | ' | Execute Access,All_Reference
0216 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0217 e402 | | Load 0x2,0x2
0218 4800 |H | Short_Literal 0x0
0219 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
021a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
021b 1d20 | | Execute_Immediate Reference_Lex_1,0x20
021c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
021d e212 | | Load 0x1,0x12
021e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
021f c402 | | Store 0x2,0x2
0220 e403 | | Load 0x2,0x3
0221 6804 |h | Jump_Zero 0x226
0222 e404 | | Load 0x2,0x4
0223 e008 | | Load 0x0,0x8
0224 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0225 c404 | | Store 0x2,0x4
0226 4513 |E | Exit_Suprogram New_Top_Offset 0x13
0227 TRAP_0160:
0227 00d8 | | Load_Top At_Offset_0
0228 0107 | | Execute Exception,Get_Name
0229 4900 |I | Short_Literal 0x100
022a 490f |I | Short_Literal 0x10f
022b 0262 | b | Execute Discrete,In_Range
022c 7006 |p | Jump_Nonzero 0x233
022d 00d8 | | Load_Top At_Offset_0
022e 0107 | | Execute Exception,Get_Name
022f 4920 |I | Short_Literal 0x120
0230 492f |I/ | Short_Literal 0x12f
0231 0262 | b | Execute Discrete,In_Range
0232 680e |h | Jump_Zero 0x241
0233 e00e | | Load 0x0,0xe
0234 180e | | Execute Package,Field_Execute,Field_Number 0xe
0235 4807 |H | Short_Literal 0x7
0236 0092 049d | | Action Push_String_Extended,0x49d ; "Cross_reference: Cannot create list file "
0238 e5ee | | Load 0x2,-0x12
0239 01cc | | Execute Vector,Catenate
023a e00f | | Load 0x0,0xf
023b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023c 0092 049e | | Action Push_String_Extended,0x49e ; "** Cross_Reference: Couldn't open list file **"
023e e011 | | Load 0x0,0x11
023f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0240 4513 |E | Exit_Suprogram New_Top_Offset 0x13
0241 e010 | | Load 0x0,0x10
0242 010f | | Execute Exception,Equal
0243 680b |h | Jump_Zero 0x24f
0244 e403 | | Load 0x2,0x3
0245 6804 |h | Jump_Zero 0x24a
0246 e404 | | Load 0x2,0x4
0247 e008 | | Load 0x0,0x8
0248 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0249 c404 | | Store 0x2,0x4
024a 0092 049c | | Action Push_String_Extended,0x49c ; "** Failed **"
024c e011 | | Load 0x0,0x11
024d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
024e 4513 |E | Exit_Suprogram New_Top_Offset 0x13
024f 0100 | | Execute Exception,Raise
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e5fe | | Load 0x2,-0x2
0254 0227 | ' | Execute Access,All_Reference
0255 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0256 6807 |h | Jump_Zero 0x25e
0257 e5ff | | Load 0x2,-0x1
0258 e212 | | Load 0x1,0x12
0259 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
025a 7003 |p | Jump_Nonzero 0x25e
025b 4800 |H | Short_Literal 0x0
025c a5fd | | Store_Unchecked 0x2,-0x3
025d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025e e5ff | | Load 0x2,-0x1
025f e212 | | Load 0x1,0x12
0260 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0261 e212 | | Load 0x1,0x12
0262 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0263 e5fe | | Load 0x2,-0x2
0264 0227 | ' | Execute Access,All_Reference
0265 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0266 01d7 | | Execute Vector,Field_Read
0267 a5fd | | Store_Unchecked 0x2,-0x3
0268 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0269 0000 0000 | | .BLANK 0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e5ff | | Load 0x2,-0x1
0274 e008 | | Load 0x0,0x8
0275 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0276 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4801 |H | Short_Literal 0x1
027c e008 | | Load 0x0,0x8
027d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
027e e5ff | | Load 0x2,-0x1
027f e212 | | Load 0x1,0x12
0280 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0281 7005 |p | Jump_Nonzero 0x287
0282 4801 |H | Short_Literal 0x1
0283 4802 |H | Short_Literal 0x2
0284 e5ff | | Load 0x2,-0x1
0285 e212 | | Load 0x1,0x12
0286 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0287 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e5ff | | Load 0x2,-0x1
028c e008 | | Load 0x0,0x8
028d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
028e 025b | [ | Execute Discrete,Check_In_Type
028f e008 | | Load 0x0,0x8
0290 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0291 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0292 0000 0000 | | .BLANK 0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e5ff | | Load 0x2,-0x1
029c 700b |p | Jump_Nonzero 0x2a8
029d e5fe | | Load 0x2,-0x2
029e 0229 | ) | Execute Access,All_Read
029f 00d8 | | Load_Top At_Offset_0
02a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a1 e5fe | | Load 0x2,-0x2
02a2 e218 | | Load 0x1,0x18
02a3 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02a4 c5fe | | Store 0x2,-0x2
02a5 e402 | | Load 0x2,0x2
02a6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a7 00d1 | | Pop_Control Pop_Count_1
02a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 e008 | | Load 0x0,0x8
02b4 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
02b5 0c3c | < | Execute_Immediate Greater_Equal,0x3c
02b6 680d |h | Jump_Zero 0x2c4
02b7 e008 | | Load 0x0,0x8
02b8 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
02b9 e5fe | | Load 0x2,-0x2
02ba 0229 | ) | Execute Access,All_Read
02bb 00d8 | | Load_Top At_Offset_0
02bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02bd e5fe | | Load 0x2,-0x2
02be e218 | | Load 0x1,0x18
02bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c0 c5fe | | Store 0x2,-0x2
02c1 e402 | | Load 0x2,0x2
02c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02c3 00d1 | | Pop_Control Pop_Count_1
02c4 e5fe | | Load 0x2,-0x2
02c5 0229 | ) | Execute Access,All_Read
02c6 00d8 | | Load_Top At_Offset_0
02c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c8 e5fe | | Load 0x2,-0x2
02c9 4800 |H | Short_Literal 0x0
02ca e5ff | | Load 0x2,-0x1
02cb e218 | | Load 0x1,0x18
02cc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02cd c5fe | | Store 0x2,-0x2
02ce e402 | | Load 0x2,0x2
02cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e5ff | | Load 0x2,-0x1
02dc 700f |p | Jump_Nonzero 0x2ec
02dd e008 | | Load 0x0,0x8
02de 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
02df e5fe | | Load 0x2,-0x2
02e0 0227 | ' | Execute Access,All_Reference
02e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e2 6805 |h | Jump_Zero 0x2e8
02e3 e5fe | | Load 0x2,-0x2
02e4 e218 | | Load 0x1,0x18
02e5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02e6 c5fe | | Store 0x2,-0x2
02e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e8 e5fe | | Load 0x2,-0x2
02e9 e218 | | Load 0x1,0x18
02ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02eb c5fe | | Store 0x2,-0x2
02ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ed 0000 0000 | | .XXX[0x3]
02ef 0000 | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e5ff | | Load 0x2,-0x1
02f4 e212 | | Load 0x1,0x12
02f5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02f6 6803 |h | Jump_Zero 0x2fa
02f7 4801 |H | Short_Literal 0x1
02f8 a5fd | | Store_Unchecked 0x2,-0x3
02f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fa 4800 |H | Short_Literal 0x0
02fb a5fd | | Store_Unchecked 0x2,-0x3
02fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fd 0000 0000 | | .XXX[0x3]
02ff 0000 | |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 e008 | | Load 0x0,0x8
0304 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0305 0c3c | < | Execute_Immediate Greater_Equal,0x3c
0306 680f |h | Jump_Zero 0x316
0307 e008 | | Load 0x0,0x8
0308 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0309 e5fe | | Load 0x2,-0x2
030a 0227 | ' | Execute Access,All_Reference
030b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030c 6805 |h | Jump_Zero 0x312
030d e5fe | | Load 0x2,-0x2
030e e218 | | Load 0x1,0x18
030f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0310 c5fe | | Store 0x2,-0x2
0311 7804 |x | Jump 0x316
0312 e5fe | | Load 0x2,-0x2
0313 e218 | | Load 0x1,0x18
0314 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0315 c5fe | | Store 0x2,-0x2
0316 e5fe | | Load 0x2,-0x2
0317 e5ff | | Load 0x2,-0x1
0318 e218 | | Load 0x1,0x18
0319 181b | | Execute Package,Field_Execute,Field_Number 0x1b
031a c5fe | | Store 0x2,-0x2
031b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 032f | / | .CONST 0x032f ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0006 | | .CONST 0x0006 ; Number of locals
0323 INIT_0320:
0323 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
0325 e212 | | Load 0x1,0x12
0326 191c | | Execute Package,Field_Reference,Field_Number 0x1c
0327 00c6 | | Action Check_Subprogram_Elaborated
0328 4802 |H | Short_Literal 0x2
0329 4803 |H | Short_Literal 0x3
032a 0099 | | Action Reference_Dynamic
032b e016 | | Load 0x0,0x16
032c e017 | | Load 0x0,0x17
032d 4806 |H | Short_Literal 0x6
032e 0007 | | Action Break_Optional
032f BODY_0320:
032f e402 | | Load 0x2,0x2
0330 4803 |H | Short_Literal 0x3
0331 4803 |H | Short_Literal 0x3
0332 0099 | | Action Reference_Dynamic
0333 4804 |H | Short_Literal 0x4
0334 4803 |H | Short_Literal 0x3
0335 0099 | | Action Reference_Dynamic
0336 e212 | | Load 0x1,0x12
0337 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0338 c402 | | Store 0x2,0x2
0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033a 0000 0000 | | .BLANK 0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 034f | O | .CONST 0x034f ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0006 | | .CONST 0x0006 ; Number of locals
0343 INIT_0340:
0343 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
0345 e212 | | Load 0x1,0x12
0346 191c | | Execute Package,Field_Reference,Field_Number 0x1c
0347 00c6 | | Action Check_Subprogram_Elaborated
0348 4802 |H | Short_Literal 0x2
0349 4803 |H | Short_Literal 0x3
034a 0099 | | Action Reference_Dynamic
034b e018 | | Load 0x0,0x18
034c e019 | | Load 0x0,0x19
034d 4806 |H | Short_Literal 0x6
034e 0007 | | Action Break_Optional
034f BODY_0340:
034f e402 | | Load 0x2,0x2
0350 4803 |H | Short_Literal 0x3
0351 4803 |H | Short_Literal 0x3
0352 0099 | | Action Reference_Dynamic
0353 4804 |H | Short_Literal 0x4
0354 4803 |H | Short_Literal 0x3
0355 0099 | | Action Reference_Dynamic
0356 e212 | | Load 0x1,0x12
0357 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0358 c402 | | Store 0x2,0x2
0359 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035a 0000 0000 | | .BLANK 0000[0x6]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0369 | i | .CONST 0x0369 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0002 | | .CONST 0x0002 ; Number of locals
0363 INIT_0360:
0363 e009 | | Load 0x0,0x9
0364 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0365 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0366 02c7 | | Declare_Variable Any
0367 00d8 | | Load_Top At_Offset_0
0368 1c00 | | Execute_Immediate Run_Utility,0x0
0369 BODY_0360:
0369 e5ed | | Load 0x2,-0x13
036a 01db | | Execute Vector,Length
036b 0c01 | | Execute_Immediate Greater_Equal,0x1
036c e5ee | | Load 0x2,-0x12
036d 01db | | Execute Vector,Length
036e 0c01 | | Execute_Immediate Greater_Equal,0x1
036f 0279 | y | Execute Discrete,And
0370 6809 |h | Jump_Zero 0x37a
0371 e00e | | Load 0x0,0xe
0372 180e | | Execute Package,Field_Execute,Field_Number 0xe
0373 4807 |H | Short_Literal 0x7
0374 0092 049f | | Action Push_String_Extended,0x49f ; "Cannot specifiy both 'Only' and 'Exclude'"
0376 e00f | | Load 0x0,0xf
0377 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0378 e010 | | Load 0x0,0x10
0379 0257 | W | Execute Discrete,Raise
037a 4801 |H | Short_Literal 0x1
037b e009 | | Load 0x0,0x9
037c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037e e7ff | | Load 0x3,-0x1
037f e009 | | Load 0x0,0x9
0380 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0381 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0382 c802 | | Store 0x4,0x2
0383 00d8 | | Load_Top At_Offset_0
0384 e009 | | Load 0x0,0x9
0385 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0386 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0387 680f |h | Jump_Zero 0x397
0388 e00e | | Load 0x0,0xe
0389 180e | | Execute Package,Field_Execute,Field_Number 0xe
038a 4807 |H | Short_Literal 0x7
038b 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "Error in List_Of_Names"
038d e00f | | Load 0x0,0xf
038e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038f e00e | | Load 0x0,0xe
0390 180e | | Execute Package,Field_Execute,Field_Number 0xe
0391 e802 | | Load 0x4,0x2
0392 e009 | | Load 0x0,0x9
0393 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0394 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0395 e010 | | Load 0x0,0x10
0396 0257 | W | Execute Discrete,Raise
0397 00d8 | | Load_Top At_Offset_0
0398 c9fe | | Store 0x4,-0x2
0399 e5ee | | Load 0x2,-0x12
039a 01db | | Execute Vector,Length
039b 0c01 | | Execute_Immediate Greater_Equal,0x1
039c 6820 |h | Jump_Zero 0x3bd
039d 4801 |H | Short_Literal 0x1
039e e009 | | Load 0x0,0x9
039f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a1 e5ee | | Load 0x2,-0x12
03a2 e009 | | Load 0x0,0x9
03a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03a5 c802 | | Store 0x4,0x2
03a6 00d8 | | Load_Top At_Offset_0
03a7 e009 | | Load 0x0,0x9
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
03aa 680f |h | Jump_Zero 0x3ba
03ab e00e | | Load 0x0,0xe
03ac 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ad 4807 |H | Short_Literal 0x7
03ae 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "Error in Exclude_References_to"
03b0 e00f | | Load 0x0,0xf
03b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b2 e00e | | Load 0x0,0xe
03b3 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b4 e802 | | Load 0x4,0x2
03b5 e009 | | Load 0x0,0x9
03b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b7 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
03b8 e010 | | Load 0x0,0x10
03b9 0257 | W | Execute Discrete,Raise
03ba 00d8 | | Load_Top At_Offset_0
03bb c9fc | | Store 0x4,-0x4
03bc 7804 |x | Jump 0x3c1
03bd e009 | | Load 0x0,0x9
03be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bf 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03c0 c9fc | | Store 0x4,-0x4
03c1 e5ed | | Load 0x2,-0x13
03c2 01db | | Execute Vector,Length
03c3 0c01 | | Execute_Immediate Greater_Equal,0x1
03c4 6820 |h | Jump_Zero 0x3e5
03c5 4801 |H | Short_Literal 0x1
03c6 e009 | | Load 0x0,0x9
03c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c9 e5ed | | Load 0x2,-0x13
03ca e009 | | Load 0x0,0x9
03cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03cc 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03cd c802 | | Store 0x4,0x2
03ce 00d8 | | Load_Top At_Offset_0
03cf e009 | | Load 0x0,0x9
03d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d1 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
03d2 680f |h | Jump_Zero 0x3e2
03d3 e00e | | Load 0x0,0xe
03d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d5 4807 |H | Short_Literal 0x7
03d6 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "Error in only_References_to"
03d8 e00f | | Load 0x0,0xf
03d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03da e00e | | Load 0x0,0xe
03db 180e | | Execute Package,Field_Execute,Field_Number 0xe
03dc e802 | | Load 0x4,0x2
03dd e009 | | Load 0x0,0x9
03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03df 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
03e0 e010 | | Load 0x0,0x10
03e1 0257 | W | Execute Discrete,Raise
03e2 00d8 | | Load_Top At_Offset_0
03e3 c9fd | | Store 0x4,-0x3
03e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e5 e009 | | Load 0x0,0x9
03e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03e8 c9fd | | Store 0x4,-0x3
03e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ea 0000 0000 | | .BLANK 0000[0x6]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 040e | | .CONST 0x040e ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0006 | | .CONST 0x0006 ; Number of locals
03f3 INIT_03f0:
03f3 e009 | | Load 0x0,0x9
03f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03f6 02c7 | | Declare_Variable Any
03f7 00d8 | | Load_Top At_Offset_0
03f8 1c00 | | Execute_Immediate Run_Utility,0x0
03f9 e009 | | Load 0x0,0x9
03fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fb 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03fc 02c7 | | Declare_Variable Any
03fd 00d8 | | Load_Top At_Offset_0
03fe 1c00 | | Execute_Immediate Run_Utility,0x0
03ff e009 | | Load 0x0,0x9
0400 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0401 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0402 02c7 | | Declare_Variable Any
0403 e009 | | Load 0x0,0x9
0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0405 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0406 c804 | | Store 0x4,0x4
0407 e009 | | Load 0x0,0x9
0408 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0409 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
040a 02c7 | | Declare_Variable Any
040b 00d8 | | Load_Top At_Offset_0
040c 1c00 | | Execute_Immediate Run_Utility,0x0
040d 00e1 | | Load_Encached Boolean_Cache
040e BODY_03f0:
040e e009 | | Load 0x0,0x9
040f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0410 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0411 c9fc | | Store 0x4,-0x4
0412 4800 |H | Short_Literal 0x0
0413 e009 | | Load 0x0,0x9
0414 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0415 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0416 e7ff | | Load 0x3,-0x1
0417 e009 | | Load 0x0,0x9
0418 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0419 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
041a c802 | | Store 0x4,0x2
041b e802 | | Load 0x4,0x2
041c e009 | | Load 0x0,0x9
041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
041f 680f |h | Jump_Zero 0x42f
0420 e00e | | Load 0x0,0xe
0421 180e | | Execute Package,Field_Execute,Field_Number 0xe
0422 4807 |H | Short_Literal 0x7
0423 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "Error in List_Of_Names"
0425 e00f | | Load 0x0,0xf
0426 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0427 e00e | | Load 0x0,0xe
0428 180e | | Execute Package,Field_Execute,Field_Number 0xe
0429 e802 | | Load 0x4,0x2
042a e009 | | Load 0x0,0x9
042b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
042c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
042d e010 | | Load 0x0,0x10
042e 0257 | W | Execute Discrete,Raise
042f 4801 |H | Short_Literal 0x1
0430 e009 | | Load 0x0,0x9
0431 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0432 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0433 e5ef | | Load 0x2,-0x11
0434 e009 | | Load 0x0,0x9
0435 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0436 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0437 c805 | | Store 0x4,0x5
0438 e805 | | Load 0x4,0x5
0439 e009 | | Load 0x0,0x9
043a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
043c 680f |h | Jump_Zero 0x44c
043d e00e | | Load 0x0,0xe
043e 180e | | Execute Package,Field_Execute,Field_Number 0xe
043f 4807 |H | Short_Literal 0x7
0440 0092 04a3 | | Action Push_String_Extended,0x4a3 ; "Error in Exclude_References_From"
0442 e00f | | Load 0x0,0xf
0443 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0444 e00e | | Load 0x0,0xe
0445 180e | | Execute Package,Field_Execute,Field_Number 0xe
0446 e805 | | Load 0x4,0x5
0447 e009 | | Load 0x0,0x9
0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0449 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
044a e010 | | Load 0x0,0x10
044b 0257 | W | Execute Discrete,Raise
044c 00cf | | Action Mark_Auxiliary
044d 783e |x> | Jump 0x48c
044e e802 | | Load 0x4,0x2
044f e009 | | Load 0x0,0x9
0450 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0451 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0452 e009 | | Load 0x0,0x9
0453 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0454 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0455 c803 | | Store 0x4,0x3
0456 e803 | | Load 0x4,0x3
0457 e009 | | Load 0x0,0x9
0458 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0459 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
045a 6807 |h | Jump_Zero 0x462
045b e00e | | Load 0x0,0xe
045c 180e | | Execute Package,Field_Execute,Field_Number 0xe
045d e803 | | Load 0x4,0x3
045e e009 | | Load 0x0,0x9
045f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0460 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0461 7824 |x$ | Jump 0x486
0462 00cf | | Action Mark_Auxiliary
0463 781c |x | Jump 0x480
0464 e803 | | Load 0x4,0x3
0465 e009 | | Load 0x0,0x9
0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0467 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0468 e805 | | Load 0x4,0x5
0469 e009 | | Load 0x0,0x9
046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
046c 700d |p | Jump_Nonzero 0x47a
046d 00e1 | | Load_Encached Boolean_Cache
046e e009 | | Load 0x0,0x9
046f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0470 180e | | Execute Package,Field_Execute,Field_Number 0xe
0471 e803 | | Load 0x4,0x3
0472 e009 | | Load 0x0,0x9
0473 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0474 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0475 e804 | | Load 0x4,0x4
0476 e009 | | Load 0x0,0x9
0477 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0478 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0479 c806 | | Store 0x4,0x6
047a e803 | | Load 0x4,0x3
047b e009 | | Load 0x0,0x9
047c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
047e c803 | | Store 0x4,0x3
047f 00c9 | | Action Pop_Auxiliary_Loop
0480 e803 | | Load 0x4,0x3
0481 e009 | | Load 0x0,0x9
0482 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0483 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0484 6fdf |o | Jump_Zero 0x464
0485 00ce | | Action Pop_Auxiliary
0486 e802 | | Load 0x4,0x2
0487 e009 | | Load 0x0,0x9
0488 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0489 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
048a c802 | | Store 0x4,0x2
048b 00c9 | | Action Pop_Auxiliary_Loop
048c e802 | | Load 0x4,0x2
048d e009 | | Load 0x0,0x9
048e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0490 6fbd |o | Jump_Zero 0x44e
0491 00ce | | Action Pop_Auxiliary
0492 e802 | | Load 0x4,0x2
0493 e009 | | Load 0x0,0x9
0494 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0495 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0496 e802 | | Load 0x4,0x2
0497 c9fd | | Store 0x4,-0x3
0498 e804 | | Load 0x4,0x4
0499 c9fe | | Store 0x4,-0x2
049a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
049b ; --------------------------------------------------------------------------------------
049b ; STRING TABLE
049b ; --------------------------------------------------------------------------------------
049b 0014 | | .STRTAB 0x0014->0x04a5 ; "Cannot create list file "
049c 002a | * | .STRTAB 0x002a->0x04b1 ; "** Failed **"
049d 0034 | 4 | .STRTAB 0x0034->0x04b7 ; "Cross_reference: Cannot create list file "
049e 005b | [ | .STRTAB 0x005b->0x04cb ; "** Cross_Reference: Couldn't open list file **"
049f 0087 | | .STRTAB 0x0087->0x04e2 ; "Cannot specifiy both 'Only' and 'Exclude'"
04a0 00ae | | .STRTAB 0x00ae->0x04f7 ; "Error in List_Of_Names"
04a1 00c2 | | .STRTAB 0x00c2->0x0502 ; "Error in Exclude_References_to"
04a2 00de | | .STRTAB 0x00de->0x0511 ; "Error in only_References_to"
04a3 00f7 | | .STRTAB 0x00f7->0x051e ; "Error in Exclude_References_From"
04a4 0115 | | .STREND 0x0115->0x052e
04a5 4361 6e6e |Cann| .STRTAB_STRINGS
052f 0000 | | .XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; Debug Table
0530 ; --------------------------------------------------------------------------------------
0530 0004 0003 | | .DEBUG4 0x0004,0x0003,0xe46d,0x0000,0x0001,0x0000
0536 6900 cec5 |i | .XXX[0xca]
0538 c033 2560 | 3%`|
053a 0000 0001 | |
053c 7800 0128 |x (|
053e 1384 4980 | I |
0540 6632 e000 |f2 |
0542 0000 0000 | |
0544 0101 0016 | |
0546 0000 0000 | |
0548 0019 92b0 | |
054a 033a 208d | : |
054c 3f00 6a05 |? j |
054e 8000 0000 | |
0550 066c 8801 | l |
0552 9b51 8066 | Q f|
0554 e348 a118 | H |
0556 066c 8800 | l |
0558 0000 0089 | |
055a 0000 2c17 | , |
055c 0019 b8d0 | |
055e 0003 354c | 5L|
0560 000b 0000 | |
0562 0000 3354 | 3T|
0564 c844 8006 | D |
0566 6970 0000 |ip |
0568 0000 66c1 | f |
056a f3b1 700c | p |
056c d2e0 0000 | |
056e 0001 0800 | |
0570 0057 d6a4 | W |
0572 0200 19a5 | |
0574 c006 7394 | s |
0576 019b ec80 | |
0578 672d 6000 |g-` |
057a 0582 e000 | |
057c 06bb a54c | L|
057e c480 3371 | 3q|
0580 a000 0000 | |
0582 0338 7d00 | 8} |
0584 ce3d 0000 | = |
0586 0000 0004 | |
0588 ec5c 0337 | \ 7|
058a d900 0000 | |
058c 000c 8000 | |
058e 0d20 19d8 | |
0590 b806 6fb2 | o |
0592 0000 0000 | |
0594 8900 0034 | 4|
0596 5390 8930 |S 0|
0598 0cdc 6800 | h |
059a 0000 0000 | |
059c 0020 2002 | |
059e c000 0000 | |
05a0 0003 37d9 | 7 |
05a2 0067 f471 | g q|
05a4 a7e0 0d40 | @|
05a6 b000 0000 | |
05a8 00ce f1c0 | |
05aa 33c2 600c |3 ` |
05ac f275 1423 | u #|
05ae 00ce f1c0 | |
05b0 0000 000d | |
05b2 4000 0973 |@ s|
05b4 7803 3c9d |x < |
05b6 0000 6759 | gY|
05b8 e001 2000 | |
05ba 0000 0675 | u|
05bc 9f08 9000 | |
05be ce8e c000 | |
05c0 0000 0cee | |
05c2 4a76 2e01 |Jv. |
05c4 9d1d 8000 | |
05c6 0000 2540 | %@|
05c8 0012 dc04 | |
05ca 8040 033a | @ :|
05cc 3b00 cfd3 |; |
05ce 4033 d5c0 |@3 |
05d0 0cfb b800 | |
05d2 012e 6f00 | .o |
05d4 00d7 8b69 | i|
05d6 9890 0679 | y|
05d8 3a00 0000 |: |
05da 0067 c000 | g |
05dc 19f3 b800 | |
05de 0000 0000 | |
05e0 9d8b 8067 | g|
05e2 ab80 0000 | |
05e4 0001 9000 | |
05e6 01a4 033b | ;|
05e8 1700 cf57 | W|
05ea 0000 0000 | |
05ec 0d40 0009 | @ |
05ee b52e 1126 | . &|
05f0 019e 4e80 | N |
05f2 0000 0000 | |
05f4 0004 0400 | |
05f6 5800 0000 |X |
05f8 0000 67ab | g |
05fa 800d 149a | |
05fc 34fc 01a8 |4 |
05fe 1600 0000 | |