|
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_0d2ce3
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05e8 | | .CONST 0x05e8 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0068 | h | .CONST 0x0068 ; Address of begin
0019 00bf | | .CONST 0x00bf ; Address of exception handler
001a 001c | | .CONST 0x001c ; Number of locals
001b INIT_0018:
001b 0092 0491 | | Action Push_String_Extended,0x491 ; "!Machine.Temporary.Delta_2_Differences"
001d e001 | | Load 0x0,0x1
001e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0020 02c7 | | Declare_Variable Any
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 e001 | | Load 0x0,0x1
0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0026 e001 | | Load 0x0,0x1
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 02c7 | | Declare_Variable Any
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b 00e1 | | Load_Encached Boolean_Cache
002c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002d e001 | | Load 0x0,0x1
002e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002f 02ff | | Declare_Variable Variant_Record
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 00e1 | | Load_Encached Boolean_Cache
0033 e5fd | | Load 0x2,-0x3
0034 e001 | | Load 0x0,0x1
0035 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0036 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0037 e5fc | | Load 0x2,-0x4
0038 e001 | | Load 0x0,0x1
0039 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
003a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
003b e5fa | | Load 0x2,-0x6
003c 0335 | 5 | Declare_Variable Array,Duplicate
003d 00cd | | Action Spare6_Action
003e e5fb | | Load 0x2,-0x5
003f 0335 | 5 | Declare_Variable Array,Duplicate
0040 00cd | | Action Spare6_Action
0041 487f |H | Short_Literal 0x7f
0042 e002 | | Load 0x0,0x2
0043 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0044 487f |H | Short_Literal 0x7f
0045 e002 | | Load 0x0,0x2
0046 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0047 e003 | | Load 0x0,0x3
0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0049 02c7 | | Declare_Variable Any
004a 00d8 | | Load_Top At_Offset_0
004b 1c00 | | Execute_Immediate Run_Utility,0x0
004c e003 | | Load 0x0,0x3
004d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004e 02c7 | | Declare_Variable Any
004f 00d8 | | Load_Top At_Offset_0
0050 1c00 | | Execute_Immediate Run_Utility,0x0
0051 00e1 | | Load_Encached Boolean_Cache
0052 00e1 | | Load_Encached Boolean_Cache
0053 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0054 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0056 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0058 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
005a 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
005c 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
005e 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0060 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
0062 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0064 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
0066 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
0068 BODY_0018:
0068 e5ff | | Load 0x2,-0x1
0069 8417 | | Call 0x2,0x17
006a 700a |p | Jump_Nonzero 0x75
006b e004 | | Load 0x0,0x4
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 4807 |H | Short_Literal 0x7
006e e5ff | | Load 0x2,-0x1
006f 0092 0492 | | Action Push_String_Extended,0x492 ; " does not exist"
0071 01cc | | Execute Vector,Catenate
0072 e005 | | Load 0x0,0x5
0073 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0074 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0075 e5fe | | Load 0x2,-0x2
0076 8417 | | Call 0x2,0x17
0077 700a |p | Jump_Nonzero 0x82
0078 e004 | | Load 0x0,0x4
0079 180e | | Execute Package,Field_Execute,Field_Number 0xe
007a 4807 |H | Short_Literal 0x7
007b e5fe | | Load 0x2,-0x2
007c 0092 0492 | | Action Push_String_Extended,0x492 ; " does not exist"
007e 01cc | | Execute Vector,Catenate
007f e005 | | Load 0x0,0x5
0080 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0081 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0082 e40c | | Load 0x2,0xc
0083 8417 | | Call 0x2,0x17
0084 e40b | | Load 0x2,0xb
0085 8417 | | Call 0x2,0x17
0086 0279 | y | Execute Discrete,And
0087 6803 |h | Jump_Zero 0x8b
0088 4801 |H | Short_Literal 0x1
0089 a411 | | Store_Unchecked 0x2,0x11
008a 7802 |x | Jump 0x8d
008b 4800 |H | Short_Literal 0x0
008c a411 | | Store_Unchecked 0x2,0x11
008d e411 | | Load 0x2,0x11
008e 6808 |h | Jump_Zero 0x97
008f e40d | | Load 0x2,0xd
0090 e40b | | Load 0x2,0xb
0091 8415 | | Call 0x2,0x15
0092 c40d | | Store 0x2,0xd
0093 e40e | | Load 0x2,0xe
0094 e40c | | Load 0x2,0xc
0095 8415 | | Call 0x2,0x15
0096 c40e | | Store 0x2,0xe
0097 e5fc | | Load 0x2,-0x4
0098 01db | | Execute Vector,Length
0099 6801 |h | Jump_Zero 0x9b
009a 841b | | Call 0x2,0x1b
009b e411 | | Load 0x2,0x11
009c 6801 |h | Jump_Zero 0x9e
009d 841c | | Call 0x2,0x1c
009e e5fe | | Load 0x2,-0x2
009f 8416 | | Call 0x2,0x16
00a0 01cc | | Execute Vector,Catenate
00a1 e5ff | | Load 0x2,-0x1
00a2 0092 0493 | | Action Push_String_Extended,0x493 ; "??'C(Ada)"
00a4 01cc | | Execute Vector,Catenate
00a5 8419 | | Call 0x2,0x19
00a6 e5fe | | Load 0x2,-0x2
00a7 8416 | | Call 0x2,0x16
00a8 01cc | | Execute Vector,Catenate
00a9 e5ff | | Load 0x2,-0x1
00aa 0092 0494 | | Action Push_String_Extended,0x494 ; "??'C(Text)"
00ac 01cc | | Execute Vector,Catenate
00ad 841a | | Call 0x2,0x1a
00ae e40f | | Load 0x2,0xf
00af e003 | | Load 0x0,0x3
00b0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b1 6804 |h | Jump_Zero 0xb6
00b2 e40f | | Load 0x2,0xf
00b3 e003 | | Load 0x0,0x3
00b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b5 c40f | | Store 0x2,0xf
00b6 e410 | | Load 0x2,0x10
00b7 e003 | | Load 0x0,0x3
00b8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b9 6804 |h | Jump_Zero 0xbe
00ba e410 | | Load 0x2,0x10
00bb e003 | | Load 0x0,0x3
00bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bd c410 | | Store 0x2,0x10
00be 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00bf TRAP_0018:
00bf 0007 | | Action Break_Optional
00c0 e40f | | Load 0x2,0xf
00c1 e003 | | Load 0x0,0x3
00c2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00c3 6804 |h | Jump_Zero 0xc8
00c4 e40f | | Load 0x2,0xf
00c5 e003 | | Load 0x0,0x3
00c6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c7 c40f | | Store 0x2,0xf
00c8 e410 | | Load 0x2,0x10
00c9 e003 | | Load 0x0,0x3
00ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00cb 6804 |h | Jump_Zero 0xd0
00cc e410 | | Load 0x2,0x10
00cd e003 | | Load 0x0,0x3
00ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cf c410 | | Store 0x2,0x10
00d0 00d8 | | Load_Top At_Offset_0
00d1 0101 | | Execute Exception,Reraise
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4801 |H | Short_Literal 0x1
00dc 00db | | Load_Top At_Offset_3
00dd 0092 0495 | | Action Push_String_Extended,0x495 ; "'body"
00df e006 | | Load 0x0,0x6
00e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e1 0c01 | | Execute_Immediate Greater_Equal,0x1
00e2 6803 |h | Jump_Zero 0xe6
00e3 0092 0496 | | Action Push_String_Extended,0x496 ; "BODY"
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 0092 0497 | | Action Push_String_Extended,0x497 ; "SPEC"
00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00fb | | .CONST 0x00fb ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 4801 |H | Short_Literal 0x1
00f4 00db | | Load_Top At_Offset_3
00f5 0092 0498 | | Action Push_String_Extended,0x498 ; "'V"
00f7 e006 | | Load 0x0,0x6
00f8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f9 00e2 | | Load_Encached Integer_Cache
00fa 03f1 | | Declare_Variable Discrete,With_Value
00fb BODY_00f0:
00fb 00d8 | | Load_Top At_Offset_0
00fc 0c01 | | Execute_Immediate Greater_Equal,0x1
00fd 680c |h | Jump_Zero 0x10a
00fe 00db | | Load_Top At_Offset_3
00ff 01dd | | Execute Vector,First
0100 00d9 | | Load_Top At_Offset_1
0101 0aff | | Execute_Immediate Plus,-0x1
0102 00d8 | | Load_Top At_Offset_0
0103 00e2 | | Load_Encached Integer_Cache
0104 0260 | ` | Execute Discrete,In_Type
0105 7001 |p | Jump_Nonzero 0x107
0106 0801 | | Execute_Immediate Raise,0x1
0107 e7ff | | Load 0x3,-0x1
0108 01cf | | Execute Vector,Slice_Read
0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010a 00db | | Load_Top At_Offset_3
010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011a | | .CONST 0x011a ; Address of begin
0111 013c | < | .CONST 0x013c ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e003 | | Load 0x0,0x3
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 e002 | | Load 0x0,0x2
0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011a BODY_0110:
011a e7ff | | Load 0x3,-0x1
011b 01db | | Execute Vector,Length
011c 681e |h | Jump_Zero 0x13b
011d 00d9 | | Load_Top At_Offset_1
011e 00ea | | Load_Encached Null_String_Cache
011f e7ff | | Load 0x3,-0x1
0120 4800 |H | Short_Literal 0x0
0121 e003 | | Load 0x0,0x3
0122 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0123 c602 | | Store 0x3,0x2
0124 00cf | | Action Mark_Auxiliary
0125 780c |x | Jump 0x132
0126 4801 |H | Short_Literal 0x1
0127 e7fe | | Load 0x3,-0x2
0128 4820 |H | Short_Literal 0x20
0129 e602 | | Load 0x3,0x2
012a e003 | | Load 0x0,0x3
012b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
012c e006 | | Load 0x0,0x6
012d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012e e002 | | Load 0x0,0x2
012f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0130 003a | : | Store_Top Access,At_Offset_2
0131 00c9 | | Action Pop_Auxiliary_Loop
0132 00da | | Load_Top At_Offset_2
0133 e003 | | Load 0x0,0x3
0134 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0135 6ff0 |o | Jump_Zero 0x126
0136 00ce | | Action Pop_Auxiliary
0137 00d9 | | Load_Top At_Offset_1
0138 e003 | | Load 0x0,0x3
0139 181b | | Execute Package,Field_Execute,Field_Number 0x1b
013a c602 | | Store 0x3,0x2
013b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013c TRAP_0110:
013c 00d8 | | Load_Top At_Offset_0
013d 0107 | | Execute Exception,Get_Name
013e 4920 |I | Short_Literal 0x120
013f 492f |I/ | Short_Literal 0x12f
0140 0262 | b | Execute Discrete,In_Range
0141 680b |h | Jump_Zero 0x14d
0142 e004 | | Load 0x0,0x4
0143 180e | | Execute Package,Field_Execute,Field_Number 0xe
0144 4807 |H | Short_Literal 0x7
0145 e7ff | | Load 0x3,-0x1
0146 0092 0492 | | Action Push_String_Extended,0x492 ; " does not exist"
0148 01cc | | Execute Vector,Catenate
0149 e005 | | Load 0x0,0x5
014a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014b 00d8 | | Load_Top At_Offset_0
014c 0101 | | Execute Exception,Reraise
014d 0100 | | Execute Exception,Raise
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0159 | Y | .CONST 0x0159 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e5fe | | Load 0x2,-0x2
0154 01dc | | Execute Vector,Last
0155 e5fe | | Load 0x2,-0x2
0156 01d7 | | Execute Vector,Field_Read
0157 00e8 | | Load_Encached Character_Cache
0158 03f1 | | Declare_Variable Discrete,With_Value
0159 BODY_0150:
0159 00d8 | | Load_Top At_Offset_0
015a 0f21 | ! | Execute_Immediate Equal,0x21
015b 00d9 | | Load_Top At_Offset_1
015c 0f2e | . | Execute_Immediate Equal,0x2e
015d 0278 | x | Execute Discrete,Or
015e 6802 |h | Jump_Zero 0x161
015f 00ea | | Load_Encached Null_String_Cache
0160 00ca | | Action Exit_Nullary_Function
0161 0092 0499 | | Action Push_String_Extended,0x499 ; "."
0163 00ca | | Action Exit_Nullary_Function
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0173 | s | .CONST 0x0173 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0003 | | .CONST 0x0003 ; Number of locals
016b INIT_0168:
016b e001 | | Load 0x0,0x1
016c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016d 02c7 | | Declare_Variable Any
016e 00d8 | | Load_Top At_Offset_0
016f 1c00 | | Execute_Immediate Run_Utility,0x0
0170 e001 | | Load 0x0,0x1
0171 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0172 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0173 BODY_0168:
0173 e7ff | | Load 0x3,-0x1
0174 01db | | Execute Vector,Length
0175 7002 |p | Jump_Nonzero 0x178
0176 4800 |H | Short_Literal 0x0
0177 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0178 e001 | | Load 0x0,0x1
0179 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017b 00da | | Load_Top At_Offset_2
017c 0120 | | Execute Any,Is_Value
017d 6803 |h | Jump_Zero 0x181
017e e001 | | Load 0x0,0x1
017f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0180 7801 |x | Jump 0x182
0181 00da | | Load_Top At_Offset_2
0182 6011 |` | Indirect_Literal Discrete,0x194,{0x00000000, 0x00004000}
0183 e007 | | Load 0x0,0x7
0184 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0185 e008 | | Load 0x0,0x8
0186 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0187 e001 | | Load 0x0,0x1
0188 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0189 1816 | | Execute Package,Field_Execute,Field_Number 0x16
018a e7ff | | Load 0x3,-0x1
018b e001 | | Load 0x0,0x1
018c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
018e c602 | | Store 0x3,0x2
018f 0059 | Y | Store_Top Discrete,At_Offset_1
0190 00d8 | | Load_Top At_Offset_0
0191 0f00 | | Execute_Immediate Equal,0x0
0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0193 0000 | | .XXX[0x1]
0194 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d | | .CONST 0x019d ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
019d BODY_0198:
019d 00db | | Load_Top At_Offset_3
019e 0092 049a | | Action Push_String_Extended,0x49a ; "'C(Load_Proc)"
01a0 01cc | | Execute Vector,Catenate
01a1 8417 | | Call 0x2,0x17
01a2 6806 |h | Jump_Zero 0x1a9
01a3 e7fe | | Load 0x3,-0x2
01a4 8602 | | Call 0x3,0x2
01a5 e7ff | | Load 0x3,-0x1
01a6 8602 | | Call 0x3,0x2
01a7 012e | . | Execute Any,Not_Equal
01a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a9 4800 |H | Short_Literal 0x0
01aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b9 | | .CONST 0x01b9 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0004 | | .CONST 0x0004 ; Number of locals
01b3 INIT_01b0:
01b3 00e1 | | Load_Encached Boolean_Cache
01b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01b5 00e1 | | Load_Encached Boolean_Cache
01b6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01b7 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
01b9 BODY_01b0:
01b9 e001 | | Load 0x0,0x1
01ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01bb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01bc e403 | | Load 0x2,0x3
01bd 602e |`. | Indirect_Literal Discrete,0x1ec,{0x00000000, 0x00004000}
01be e007 | | Load 0x0,0x7
01bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c0 e008 | | Load 0x0,0x8
01c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c2 e009 | | Load 0x0,0x9
01c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c4 4801 |H | Short_Literal 0x1
01c5 4800 |H | Short_Literal 0x0
01c6 e008 | | Load 0x0,0x8
01c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c8 e001 | | Load 0x0,0x1
01c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01cb e7ff | | Load 0x3,-0x1
01cc e001 | | Load 0x0,0x1
01cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01cf c403 | | Store 0x2,0x3
01d0 c404 | | Store 0x2,0x4
01d1 00cf | | Action Mark_Auxiliary
01d2 780b |x | Jump 0x1de
01d3 00da | | Load_Top At_Offset_2
01d4 a602 | | Store_Unchecked 0x3,0x2
01d5 4800 |H | Short_Literal 0x0
01d6 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01d7 8604 | | Call 0x3,0x4
01d8 e403 | | Load 0x2,0x3
01d9 e001 | | Load 0x0,0x1
01da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01db 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01dc c403 | | Store 0x2,0x3
01dd 00c9 | | Action Pop_Auxiliary_Loop
01de e403 | | Load 0x2,0x3
01df e001 | | Load 0x0,0x1
01e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01e2 6ff0 |o | Jump_Zero 0x1d3
01e3 00ce | | Action Pop_Auxiliary
01e4 e403 | | Load 0x2,0x3
01e5 e001 | | Load 0x0,0x1
01e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e7 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
01e8 c403 | | Store 0x2,0x3
01e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ea 0000 0000 | | .XXX[0x2]
01ec 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 029f 040b | | Declare_Subprogram INIT_0408,For_Call
01f5 BODY_01f0:
01f5 e001 | | Load 0x0,0x1
01f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f8 e403 | | Load 0x2,0x3
01f9 67f2 |g | Indirect_Literal Discrete,0x1ec,{0x00000000, 0x00004000}
01fa e007 | | Load 0x0,0x7
01fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fc e008 | | Load 0x0,0x8
01fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01fe e009 | | Load 0x0,0x9
01ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0200 4801 |H | Short_Literal 0x1
0201 4800 |H | Short_Literal 0x0
0202 e008 | | Load 0x0,0x8
0203 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0204 e001 | | Load 0x0,0x1
0205 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0206 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0207 e7ff | | Load 0x3,-0x1
0208 e001 | | Load 0x0,0x1
0209 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
020a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020b c403 | | Store 0x2,0x3
020c c404 | | Store 0x2,0x4
020d 00cf | | Action Mark_Auxiliary
020e 7807 |x | Jump 0x216
020f 8602 | | Call 0x3,0x2
0210 e403 | | Load 0x2,0x3
0211 e001 | | Load 0x0,0x1
0212 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0213 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0214 c403 | | Store 0x2,0x3
0215 00c9 | | Action Pop_Auxiliary_Loop
0216 e403 | | Load 0x2,0x3
0217 e001 | | Load 0x0,0x1
0218 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0219 181e | | Execute Package,Field_Execute,Field_Number 0x1e
021a 6ff4 |o | Jump_Zero 0x20f
021b 00ce | | Action Pop_Auxiliary
021c e403 | | Load 0x2,0x3
021d e001 | | Load 0x0,0x1
021e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
021f 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0220 c403 | | Store 0x2,0x3
0221 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0222 0000 0000 | | .BLANK 0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0235 | 5 | .CONST 0x0235 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e40f | | Load 0x2,0xf
022c 00ea | | Load_Encached Null_String_Cache
022d e5fc | | Load 0x2,-0x4
022e 4801 |H | Short_Literal 0x1
022f e003 | | Load 0x0,0x3
0230 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0231 c40f | | Store 0x2,0xf
0232 4801 |H | Short_Literal 0x1
0233 a412 | | Store_Unchecked 0x2,0x12
0234 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0235 TRAP_0228:
0235 0007 | | Action Break_Optional
0236 e004 | | Load 0x0,0x4
0237 180e | | Execute Package,Field_Execute,Field_Number 0xe
0238 4806 |H | Short_Literal 0x6
0239 0092 049b | | Action Push_String_Extended,0x49b ; "Can't create manual file: "
023b e5fc | | Load 0x2,-0x4
023c 01cc | | Execute Vector,Catenate
023d e005 | | Load 0x0,0x5
023e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023f 4800 |H | Short_Literal 0x0
0240 a412 | | Store_Unchecked 0x2,0x12
0241 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0253 | S | .CONST 0x0253 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e410 | | Load 0x2,0x10
024c 00ea | | Load_Encached Null_String_Cache
024d e5fd | | Load 0x2,-0x3
024e 4801 |H | Short_Literal 0x1
024f e003 | | Load 0x0,0x3
0250 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0251 c410 | | Store 0x2,0x10
0252 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0253 TRAP_0248:
0253 0007 | | Action Break_Optional
0254 e004 | | Load 0x0,0x4
0255 180e | | Execute Package,Field_Execute,Field_Number 0xe
0256 4807 |H | Short_Literal 0x7
0257 0092 049c | | Action Push_String_Extended,0x49c ; "Can't create release file: "
0259 e5fd | | Load 0x2,-0x3
025a 01cc | | Execute Vector,Catenate
025b e005 | | Load 0x0,0x5
025c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025d 00d8 | | Load_Top At_Offset_0
025e 0101 | | Execute Exception,Reraise
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0272 | r | .CONST 0x0272 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0005 | | .CONST 0x0005 ; Number of locals
0263 INIT_0260:
0263 e001 | | Load 0x0,0x1
0264 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0265 02ff | | Declare_Variable Variant_Record
0266 00d8 | | Load_Top At_Offset_0
0267 1c00 | | Execute_Immediate Run_Utility,0x0
0268 e00a | | Load 0x0,0xa
0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026a 02c7 | | Declare_Variable Any
026b 00d8 | | Load_Top At_Offset_0
026c 1c00 | | Execute_Immediate Run_Utility,0x0
026d e001 | | Load 0x0,0x1
026e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026f e001 | | Load 0x0,0x1
0270 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0271 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0272 BODY_0260:
0272 e001 | | Load 0x0,0x1
0273 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0274 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0275 e802 | | Load 0x4,0x2
0276 602d |`- | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x00004000}
0277 e007 | | Load 0x0,0x7
0278 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0279 4800 |H | Short_Literal 0x0
027a e008 | | Load 0x0,0x8
027b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
027c e001 | | Load 0x0,0x1
027d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
027f e9ff | | Load 0x4,-0x1
0280 e001 | | Load 0x0,0x1
0281 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0282 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0283 00d1 | | Pop_Control Pop_Count_1
0284 0059 | Y | Store_Top Discrete,At_Offset_1
0285 00d8 | | Load_Top At_Offset_0
0286 6803 |h | Jump_Zero 0x28a
0287 e00a | | Load 0x0,0xa
0288 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028a e001 | | Load 0x0,0x1
028b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028c 00db | | Load_Top At_Offset_3
028d 0120 | | Execute Any,Is_Value
028e 6803 |h | Jump_Zero 0x292
028f e00a | | Load 0x0,0xa
0290 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0291 7801 |x | Jump 0x293
0292 00db | | Load_Top At_Offset_3
0293 6010 |` | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x00004000}
0294 e007 | | Load 0x0,0x7
0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0296 e802 | | Load 0x4,0x2
0297 e001 | | Load 0x0,0x1
0298 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0299 181f | | Execute Package,Field_Execute,Field_Number 0x1f
029a c803 | | Store 0x4,0x3
029b 005a | Z | Store_Top Discrete,At_Offset_2
029c 00d9 | | Load_Top At_Offset_1
029d 6803 |h | Jump_Zero 0x2a1
029e e00a | | Load 0x0,0xa
029f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a1 00da | | Load_Top At_Offset_2
02a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a3 0000 | | .XXX[0x1]
02a4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02db | | .CONST 0x02db ; Address of begin
02a9 03f8 | | .CONST 0x03f8 ; Address of exception handler
02aa 0008 | | .CONST 0x0008 ; Number of locals
02ab INIT_02a8:
02ab e403 | | Load 0x2,0x3
02ac e001 | | Load 0x0,0x1
02ad 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ae 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02af 8414 | | Call 0x2,0x14
02b0 00d8 | | Load_Top At_Offset_0
02b1 8413 | | Call 0x2,0x13
02b2 4827 |H' | Short_Literal 0x27
02b3 0092 049d | | Action Push_String_Extended,0x49d ; "@"
02b5 e403 | | Load 0x2,0x3
02b6 e001 | | Load 0x0,0x1
02b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02b9 01cb | | Execute Vector,Append
02ba 00d9 | | Load_Top At_Offset_1
02bb 01cc | | Execute Vector,Catenate
02bc 0007 | | Action Break_Optional
02bd e7fe | | Load 0x3,-0x2
02be 00d9 | | Load_Top At_Offset_1
02bf 01cc | | Execute Vector,Catenate
02c0 0007 | | Action Break_Optional
02c1 4801 |H | Short_Literal 0x1
02c2 e40e | | Load 0x2,0xe
02c3 00da | | Load_Top At_Offset_2
02c4 e002 | | Load 0x0,0x2
02c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c6 e002 | | Load 0x0,0x2
02c7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02c8 0f00 | | Execute_Immediate Equal,0x0
02c9 00e1 | | Load_Encached Boolean_Cache
02ca 03f1 | | Declare_Variable Discrete,With_Value
02cb 4801 |H | Short_Literal 0x1
02cc e40d | | Load 0x2,0xd
02cd 00db | | Load_Top At_Offset_3
02ce e002 | | Load 0x0,0x2
02cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d0 e002 | | Load 0x0,0x2
02d1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02d2 0f00 | | Execute_Immediate Equal,0x0
02d3 00e1 | | Load_Encached Boolean_Cache
02d4 03f1 | | Declare_Variable Discrete,With_Value
02d5 e411 | | Load 0x2,0x11
02d6 00da | | Load_Top At_Offset_2
02d7 0f00 | | Execute_Immediate Equal,0x0
02d8 0279 | y | Execute Discrete,And
02d9 00e1 | | Load_Encached Boolean_Cache
02da 03f1 | | Declare_Variable Discrete,With_Value
02db BODY_02a8:
02db 00db | | Load_Top At_Offset_3
02dc 800b | | Call 0x0,0xb
02dd 690a |i | Jump_Zero 0x3e8
02de 00d8 | | Load_Top At_Offset_0
02df e805 | | Load 0x4,0x5
02e0 e802 | | Load 0x4,0x2
02e1 e00c | | Load 0x0,0xc
02e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e3 70a6 |p | Jump_Nonzero 0x38a
02e4 e411 | | Load 0x2,0x11
02e5 6876 |hv | Jump_Zero 0x35c
02e6 00d9 | | Load_Top At_Offset_1
02e7 6806 |h | Jump_Zero 0x2ee
02e8 e803 | | Load 0x4,0x3
02e9 0092 0497 | | Action Push_String_Extended,0x497 ; "SPEC"
02eb 01df | | Execute Vector,Equal
02ec a603 | | Store_Unchecked 0x3,0x3
02ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ee 00da | | Load_Top At_Offset_2
02ef 6810 |h | Jump_Zero 0x300
02f0 e004 | | Load 0x0,0x4
02f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f2 4803 |H | Short_Literal 0x3
02f3 e805 | | Load 0x4,0x5
02f4 0092 049e | | Action Push_String_Extended,0x49e ; " is a forced unit, therefore it will be added to "
02f6 01cc | | Execute Vector,Catenate
02f7 e409 | | Load 0x2,0x9
02f8 01cc | | Execute Vector,Catenate
02f9 e005 | | Load 0x0,0x5
02fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fb e804 | | Load 0x4,0x4
02fc e410 | | Load 0x2,0x10
02fd e003 | | Load 0x0,0x3
02fe 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
02ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0300 e803 | | Load 0x4,0x3
0301 0092 0496 | | Action Push_String_Extended,0x496 ; "BODY"
0303 01df | | Execute Vector,Equal
0304 6824 |h$ | Jump_Zero 0x329
0305 e602 | | Load 0x3,0x2
0306 6822 |h" | Jump_Zero 0x329
0307 e004 | | Load 0x0,0x4
0308 180e | | Execute Package,Field_Execute,Field_Number 0xe
0309 4804 |H | Short_Literal 0x4
030a e805 | | Load 0x4,0x5
030b 0092 049f | | Action Push_String_Extended,0x49f ; " has a spec that was added to "
030d 01cc | | Execute Vector,Catenate
030e e40a | | Load 0x2,0xa
030f 01cc | | Execute Vector,Catenate
0310 0092 04a0 | | Action Push_String_Extended,0x4a0 ; ", therefore it will also be added to this list."
0312 01cc | | Execute Vector,Catenate
0313 e005 | | Load 0x0,0x5
0314 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0315 e804 | | Load 0x4,0x4
0316 e40f | | Load 0x2,0xf
0317 e003 | | Load 0x0,0x3
0318 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0319 4800 |H | Short_Literal 0x0
031a 4801 |H | Short_Literal 0x1
031b e402 | | Load 0x2,0x2
031c e802 | | Load 0x4,0x2
031d e805 | | Load 0x4,0x5
031e e00d | | Load 0x0,0xd
031f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0320 e406 | | Load 0x2,0x6
0321 00d9 | | Load_Top At_Offset_1
0322 4801 |H | Short_Literal 0x1
0323 e805 | | Load 0x4,0x5
0324 e402 | | Load 0x2,0x2
0325 e00c | | Load 0x0,0xc
0326 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0327 c406 | | Store 0x2,0x6
0328 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0329 e803 | | Load 0x4,0x3
032a 0092 0497 | | Action Push_String_Extended,0x497 ; "SPEC"
032c 01df | | Execute Vector,Equal
032d a603 | | Store_Unchecked 0x3,0x3
032e e004 | | Load 0x0,0x4
032f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0330 4804 |H | Short_Literal 0x4
0331 e805 | | Load 0x4,0x5
0332 0092 04a1 | | Action Push_String_Extended,0x4a1 ; " is NOT a forced unit, therefore it will be added to "
0334 01cc | | Execute Vector,Catenate
0335 e40a | | Load 0x2,0xa
0336 01cc | | Execute Vector,Catenate
0337 e005 | | Load 0x0,0x5
0338 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0339 e804 | | Load 0x4,0x4
033a e40f | | Load 0x2,0xf
033b e003 | | Load 0x0,0x3
033c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
033d 00e1 | | Load_Encached Boolean_Cache
033e e407 | | Load 0x2,0x7
033f e405 | | Load 0x2,0x5
0340 0120 | | Execute Any,Is_Value
0341 6803 |h | Jump_Zero 0x345
0342 e001 | | Load 0x0,0x1
0343 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0344 7801 |x | Jump 0x346
0345 e405 | | Load 0x2,0x5
0346 e805 | | Load 0x4,0x5
0347 e00c | | Load 0x0,0xc
0348 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0349 c405 | | Store 0x2,0x5
034a 00d1 | | Pop_Control Pop_Count_1
034b c408 | | Store 0x2,0x8
034c 4800 |H | Short_Literal 0x0
034d 4801 |H | Short_Literal 0x1
034e e402 | | Load 0x2,0x2
034f e802 | | Load 0x4,0x2
0350 e805 | | Load 0x4,0x5
0351 e00d | | Load 0x0,0xd
0352 180f | | Execute Package,Field_Execute,Field_Number 0xf
0353 e406 | | Load 0x2,0x6
0354 00d9 | | Load_Top At_Offset_1
0355 4801 |H | Short_Literal 0x1
0356 e805 | | Load 0x4,0x5
0357 e402 | | Load 0x2,0x2
0358 e00c | | Load 0x0,0xc
0359 1812 | | Execute Package,Field_Execute,Field_Number 0x12
035a c406 | | Store 0x2,0x6
035b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
035c e004 | | Load 0x0,0x4
035d 180e | | Execute Package,Field_Execute,Field_Number 0xe
035e 4804 |H | Short_Literal 0x4
035f e805 | | Load 0x4,0x5
0360 0092 04a2 | | Action Push_String_Extended,0x4a2 ; " is different from the released version."
0362 01cc | | Execute Vector,Catenate
0363 e005 | | Load 0x0,0x5
0364 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0365 00e1 | | Load_Encached Boolean_Cache
0366 e407 | | Load 0x2,0x7
0367 e405 | | Load 0x2,0x5
0368 0120 | | Execute Any,Is_Value
0369 6803 |h | Jump_Zero 0x36d
036a e001 | | Load 0x0,0x1
036b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036c 7801 |x | Jump 0x36e
036d e405 | | Load 0x2,0x5
036e e805 | | Load 0x4,0x5
036f e00c | | Load 0x0,0xc
0370 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0371 c405 | | Store 0x2,0x5
0372 00d1 | | Pop_Control Pop_Count_1
0373 c408 | | Store 0x2,0x8
0374 4800 |H | Short_Literal 0x0
0375 4801 |H | Short_Literal 0x1
0376 e402 | | Load 0x2,0x2
0377 e802 | | Load 0x4,0x2
0378 e805 | | Load 0x4,0x5
0379 e00d | | Load 0x0,0xd
037a 180f | | Execute Package,Field_Execute,Field_Number 0xf
037b e406 | | Load 0x2,0x6
037c 4800 |H | Short_Literal 0x0
037d 4801 |H | Short_Literal 0x1
037e e805 | | Load 0x4,0x5
037f e402 | | Load 0x2,0x2
0380 e00c | | Load 0x0,0xc
0381 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0382 c406 | | Store 0x2,0x6
0383 e412 | | Load 0x2,0x12
0384 6804 |h | Jump_Zero 0x389
0385 e804 | | Load 0x4,0x4
0386 e40f | | Load 0x2,0xf
0387 e003 | | Load 0x0,0x3
0388 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0389 4501 |E | Exit_Suprogram New_Top_Offset 0x1
038a e803 | | Load 0x4,0x3
038b 0092 0497 | | Action Push_String_Extended,0x497 ; "SPEC"
038d 01df | | Execute Vector,Equal
038e 684f |hO | Jump_Zero 0x3de
038f e802 | | Load 0x4,0x2
0390 e805 | | Load 0x4,0x5
0391 8418 | | Call 0x2,0x18
0392 684b |hK | Jump_Zero 0x3de
0393 e411 | | Load 0x2,0x11
0394 6824 |h$ | Jump_Zero 0x3b9
0395 00da | | Load_Top At_Offset_2
0396 6810 |h | Jump_Zero 0x3a7
0397 e004 | | Load 0x0,0x4
0398 180e | | Execute Package,Field_Execute,Field_Number 0xe
0399 4803 |H | Short_Literal 0x3
039a e805 | | Load 0x4,0x5
039b 0092 049e | | Action Push_String_Extended,0x49e ; " is a forced unit, therefore it will be added to "
039d 01cc | | Execute Vector,Catenate
039e e409 | | Load 0x2,0x9
039f 01cc | | Execute Vector,Catenate
03a0 e005 | | Load 0x0,0x5
03a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a2 e804 | | Load 0x4,0x4
03a3 e410 | | Load 0x2,0x10
03a4 e003 | | Load 0x0,0x3
03a5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a7 00d9 | | Load_Top At_Offset_1
03a8 700f |p | Jump_Nonzero 0x3b8
03a9 e004 | | Load 0x0,0x4
03aa 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ab 4804 |H | Short_Literal 0x4
03ac e805 | | Load 0x4,0x5
03ad 0092 04a1 | | Action Push_String_Extended,0x4a1 ; " is NOT a forced unit, therefore it will be added to "
03af 01cc | | Execute Vector,Catenate
03b0 e40a | | Load 0x2,0xa
03b1 01cc | | Execute Vector,Catenate
03b2 e005 | | Load 0x0,0x5
03b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b4 e804 | | Load 0x4,0x4
03b5 e40f | | Load 0x2,0xf
03b6 e003 | | Load 0x0,0x3
03b7 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b9 e004 | | Load 0x0,0x4
03ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bb 4804 |H | Short_Literal 0x4
03bc e805 | | Load 0x4,0x5
03bd 0092 04a3 | | Action Push_String_Extended,0x4a3 ; " is a Load_Proc whose "
03bf 01cc | | Execute Vector,Catenate
03c0 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "code is different from "
03c2 01cc | | Execute Vector,Catenate
03c3 0092 04a5 | | Action Push_String_Extended,0x4a5 ; "the released version."
03c5 01cc | | Execute Vector,Catenate
03c6 e005 | | Load 0x0,0x5
03c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c8 00e1 | | Load_Encached Boolean_Cache
03c9 e407 | | Load 0x2,0x7
03ca e405 | | Load 0x2,0x5
03cb 0120 | | Execute Any,Is_Value
03cc 6803 |h | Jump_Zero 0x3d0
03cd e001 | | Load 0x0,0x1
03ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03cf 7801 |x | Jump 0x3d1
03d0 e405 | | Load 0x2,0x5
03d1 e805 | | Load 0x4,0x5
03d2 e00c | | Load 0x0,0xc
03d3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03d4 c405 | | Store 0x2,0x5
03d5 00d1 | | Pop_Control Pop_Count_1
03d6 c408 | | Store 0x2,0x8
03d7 e412 | | Load 0x2,0x12
03d8 6804 |h | Jump_Zero 0x3dd
03d9 e804 | | Load 0x4,0x4
03da e40f | | Load 0x2,0xf
03db e003 | | Load 0x0,0x3
03dc 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03de e004 | | Load 0x0,0x4
03df 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e0 4802 |H | Short_Literal 0x2
03e1 e805 | | Load 0x4,0x5
03e2 0092 04a6 | | Action Push_String_Extended,0x4a6 ; " is up-to-date."
03e4 01cc | | Execute Vector,Catenate
03e5 e005 | | Load 0x0,0x5
03e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e8 e004 | | Load 0x0,0x4
03e9 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ea 4803 |H | Short_Literal 0x3
03eb e805 | | Load 0x4,0x5
03ec 0092 04a7 | | Action Push_String_Extended,0x4a7 ; " is a new unit."
03ee 01cc | | Execute Vector,Catenate
03ef e005 | | Load 0x0,0x5
03f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f1 e411 | | Load 0x2,0x11
03f2 6804 |h | Jump_Zero 0x3f7
03f3 e804 | | Load 0x4,0x4
03f4 e410 | | Load 0x2,0x10
03f5 e003 | | Load 0x0,0x3
03f6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f8 TRAP_02a8:
03f8 0007 | | Action Break_Optional
03f9 e004 | | Load 0x0,0x4
03fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
03fb 4807 |H | Short_Literal 0x7
03fc 0092 04a8 | | Action Push_String_Extended,0x4a8 ; "Skipping "
03fe e805 | | Load 0x4,0x5
03ff 01cc | | Execute Vector,Catenate
0400 0092 04a9 | | Action Push_String_Extended,0x4a9 ; " due to an internal error"
0402 01cc | | Execute Vector,Catenate
0403 e005 | | Load 0x0,0x5
0404 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0405 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0406 0000 0000 | | .XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 042e | . | .CONST 0x042e ; Address of begin
0409 0486 | | .CONST 0x0486 ; Address of exception handler
040a 0006 | | .CONST 0x0006 ; Number of locals
040b INIT_0408:
040b e403 | | Load 0x2,0x3
040c e001 | | Load 0x0,0x1
040d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
040e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
040f 8414 | | Call 0x2,0x14
0410 0092 049d | | Action Push_String_Extended,0x49d ; "@"
0412 e403 | | Load 0x2,0x3
0413 e001 | | Load 0x0,0x1
0414 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0415 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0416 e7fe | | Load 0x3,-0x2
0417 00d9 | | Load_Top At_Offset_1
0418 01cc | | Execute Vector,Catenate
0419 0007 | | Action Break_Optional
041a 4801 |H | Short_Literal 0x1
041b e40e | | Load 0x2,0xe
041c 00da | | Load_Top At_Offset_2
041d e002 | | Load 0x0,0x2
041e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
041f e002 | | Load 0x0,0x2
0420 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0421 0f00 | | Execute_Immediate Equal,0x0
0422 00e1 | | Load_Encached Boolean_Cache
0423 03f1 | | Declare_Variable Discrete,With_Value
0424 4801 |H | Short_Literal 0x1
0425 e40d | | Load 0x2,0xd
0426 00db | | Load_Top At_Offset_3
0427 e002 | | Load 0x0,0x2
0428 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0429 e002 | | Load 0x0,0x2
042a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
042b 0f00 | | Execute_Immediate Equal,0x0
042c 00e1 | | Load_Encached Boolean_Cache
042d 03f1 | | Declare_Variable Discrete,With_Value
042e BODY_0408:
042e 00da | | Load_Top At_Offset_2
042f 800b | | Call 0x0,0xb
0430 6842 |hB | Jump_Zero 0x473
0431 00ea | | Load_Encached Null_String_Cache
0432 4800 |H | Short_Literal 0x0
0433 4800 |H | Short_Literal 0x0
0434 e804 | | Load 0x4,0x4
0435 e802 | | Load 0x4,0x2
0436 e00d | | Load 0x0,0xd
0437 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0438 702e |p. | Jump_Nonzero 0x467
0439 e411 | | Load 0x2,0x11
043a 6813 |h | Jump_Zero 0x44e
043b 00d8 | | Load_Top At_Offset_0
043c 6801 |h | Jump_Zero 0x43e
043d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043e 00d9 | | Load_Top At_Offset_1
043f 680d |h | Jump_Zero 0x44d
0440 e004 | | Load 0x0,0x4
0441 180e | | Execute Package,Field_Execute,Field_Number 0xe
0442 4803 |H | Short_Literal 0x3
0443 e804 | | Load 0x4,0x4
0444 0092 04aa | | Action Push_String_Extended,0x4aa ; " is a forced unit, therefore it will be added to the automatic list."
0446 01cc | | Execute Vector,Catenate
0447 e005 | | Load 0x0,0x5
0448 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0449 00db | | Load_Top At_Offset_3
044a e410 | | Load 0x2,0x10
044b e003 | | Load 0x0,0x3
044c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
044d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
044e e004 | | Load 0x0,0x4
044f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0450 4804 |H | Short_Literal 0x4
0451 e804 | | Load 0x4,0x4
0452 0092 04a2 | | Action Push_String_Extended,0x4a2 ; " is different from the released version."
0454 01cc | | Execute Vector,Catenate
0455 e005 | | Load 0x0,0x5
0456 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0457 4800 |H | Short_Literal 0x0
0458 4801 |H | Short_Literal 0x1
0459 e402 | | Load 0x2,0x2
045a e802 | | Load 0x4,0x2
045b e804 | | Load 0x4,0x4
045c e00d | | Load 0x0,0xd
045d 180f | | Execute Package,Field_Execute,Field_Number 0xf
045e e406 | | Load 0x2,0x6
045f 4800 |H | Short_Literal 0x0
0460 4801 |H | Short_Literal 0x1
0461 e804 | | Load 0x4,0x4
0462 e402 | | Load 0x2,0x2
0463 e00c | | Load 0x0,0xc
0464 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0465 c406 | | Store 0x2,0x6
0466 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0467 e411 | | Load 0x2,0x11
0468 7009 |p | Jump_Nonzero 0x472
0469 e004 | | Load 0x0,0x4
046a 180e | | Execute Package,Field_Execute,Field_Number 0xe
046b 4802 |H | Short_Literal 0x2
046c e804 | | Load 0x4,0x4
046d 0092 04a6 | | Action Push_String_Extended,0x4a6 ; " is up-to-date."
046f 01cc | | Execute Vector,Catenate
0470 e005 | | Load 0x0,0x5
0471 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0472 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0473 e004 | | Load 0x0,0x4
0474 180e | | Execute Package,Field_Execute,Field_Number 0xe
0475 4803 |H | Short_Literal 0x3
0476 e804 | | Load 0x4,0x4
0477 0092 04ab | | Action Push_String_Extended,0x4ab ; " is a new file."
0479 01cc | | Execute Vector,Catenate
047a e005 | | Load 0x0,0x5
047b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047c e004 | | Load 0x0,0x4
047d 180e | | Execute Package,Field_Execute,Field_Number 0xe
047e 4803 |H | Short_Literal 0x3
047f e804 | | Load 0x4,0x4
0480 0092 04ac | | Action Push_String_Extended,0x4ac ; " will be added to the automatic list."
0482 01cc | | Execute Vector,Catenate
0483 e005 | | Load 0x0,0x5
0484 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0485 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0486 TRAP_0408:
0486 0007 | | Action Break_Optional
0487 e004 | | Load 0x0,0x4
0488 180e | | Execute Package,Field_Execute,Field_Number 0xe
0489 4807 |H | Short_Literal 0x7
048a 0092 04a8 | | Action Push_String_Extended,0x4a8 ; "Skipping "
048c e804 | | Load 0x4,0x4
048d 01cc | | Execute Vector,Catenate
048e e005 | | Load 0x0,0x5
048f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0490 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0491 ; --------------------------------------------------------------------------------------
0491 ; STRING TABLE
0491 ; --------------------------------------------------------------------------------------
0491 003a | : | .STRTAB 0x003a->0x04ae ; "!Machine.Temporary.Delta_2_Differences"
0492 005e | ^ | .STRTAB 0x005e->0x04c1 ; " does not exist"
0493 006b | k | .STRTAB 0x006b->0x04c8 ; "??'C(Ada)"
0494 0072 | r | .STRTAB 0x0072->0x04cd ; "??'C(Text)"
0495 007a | z | .STRTAB 0x007a->0x04d2 ; "'body"
0496 007d | } | .STRTAB 0x007d->0x04d4 ; "BODY"
0497 007f | | .STRTAB 0x007f->0x04d6 ; "SPEC"
0498 0081 | | .STRTAB 0x0081->0x04d8 ; "'V"
0499 0081 | | .STRTAB 0x0081->0x04d9 ; "."
049a 0080 | | .STRTAB 0x0080->0x04da ; "'C(Load_Proc)"
049b 008b | | .STRTAB 0x008b->0x04e0 ; "Can't create manual file: "
049c 00a3 | | .STRTAB 0x00a3->0x04ed ; "Can't create release file: "
049d 00bc | | .STRTAB 0x00bc->0x04fb ; "@"
049e 00bb | | .STRTAB 0x00bb->0x04fb ; " is a forced unit, therefore it will be added to "
049f 00ea | | .STRTAB 0x00ea->0x0514 ; " has a spec that was added to "
04a0 0106 | | .STRTAB 0x0106->0x0523 ; ", therefore it will also be added to this list."
04a1 0133 | 3 | .STRTAB 0x0133->0x053a ; " is NOT a forced unit, therefore it will be added to "
04a2 0166 | f | .STRTAB 0x0166->0x0555 ; " is different from the released version."
04a3 018c | | .STRTAB 0x018c->0x0569 ; " is a Load_Proc whose "
04a4 01a0 | | .STRTAB 0x01a0->0x0574 ; "code is different from "
04a5 01b5 | | .STRTAB 0x01b5->0x057f ; "the released version."
04a6 01c8 | | .STRTAB 0x01c8->0x058a ; " is up-to-date."
04a7 01d5 | | .STRTAB 0x01d5->0x0591 ; " is a new unit."
04a8 01e2 | | .STRTAB 0x01e2->0x0599 ; "Skipping "
04a9 01e9 | | .STRTAB 0x01e9->0x059d ; " due to an internal error"
04aa 0200 | | .STRTAB 0x0200->0x05aa ; " is a forced unit, therefore it will be added to the automatic list."
04ab 0242 | B | .STRTAB 0x0242->0x05cc ; " is a new file."
04ac 024f | O | .STRTAB 0x024f->0x05d3 ; " will be added to the automatic list."
04ad 0272 | r | .STREND 0x0272->0x05e6
04ae 214d 6163 |!Mac| .STRTAB_STRINGS
05e6 0000 0000 | | .XXX[0x2]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug Table
05e8 ; --------------------------------------------------------------------------------------
05e8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7748,0x0000,0x0001,0x0000
05ee 7210 2c03 |r , | .XXX[0x12]
05f0 2d10 0f8a |- |
05f2 778d d610 |w |
05f4 2c03 2d10 |, - |
05f6 0f8a bf8d | |
05f8 d610 2c03 | , |
05fa 2d10 0f8a |- |
05fc a38d d610 | |
05fe 2c03 2d10 |, - |