|
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_0bf8df
└─⟦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 05e0 | | .CONST 0x05e0 ; 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 0488 | | Action Push_String_Extended,0x488 ; "!Machine.Temporary.Delta_2_Differences"
001d e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0026 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e003 | | Load 0x0,0x3
0043 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0044 487f |H | Short_Literal 0x7f
0045 e003 | | Load 0x0,0x3
0046 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0047 e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 4807 |H | Short_Literal 0x7
006e e5ff | | Load 0x2,-0x1
006f 0092 0489 | | Action Push_String_Extended,0x489 ; " does not exist"
0071 01cc | | Execute Vector,Catenate
0072 e006 | | Load 0x0,0x6
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 e005 | | Load 0x0,0x5
0079 180e | | Execute Package,Field_Execute,Field_Number 0xe
007a 4807 |H | Short_Literal 0x7
007b e5fe | | Load 0x2,-0x2
007c 0092 0489 | | Action Push_String_Extended,0x489 ; " does not exist"
007e 01cc | | Execute Vector,Catenate
007f e006 | | Load 0x0,0x6
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 048a | | Action Push_String_Extended,0x48a ; "??'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 048b | | Action Push_String_Extended,0x48b ; "??'C(Text)"
00ac 01cc | | Execute Vector,Catenate
00ad 841a | | Call 0x2,0x1a
00ae e40f | | Load 0x2,0xf
00af e004 | | Load 0x0,0x4
00b0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b1 6804 |h | Jump_Zero 0xb6
00b2 e40f | | Load 0x2,0xf
00b3 e004 | | Load 0x0,0x4
00b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b5 c40f | | Store 0x2,0xf
00b6 e410 | | Load 0x2,0x10
00b7 e004 | | Load 0x0,0x4
00b8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b9 6804 |h | Jump_Zero 0xbe
00ba e410 | | Load 0x2,0x10
00bb e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
00c2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00c3 6804 |h | Jump_Zero 0xc8
00c4 e40f | | Load 0x2,0xf
00c5 e004 | | Load 0x0,0x4
00c6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c7 c40f | | Store 0x2,0xf
00c8 e410 | | Load 0x2,0x10
00c9 e004 | | Load 0x0,0x4
00ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00cb 6804 |h | Jump_Zero 0xd0
00cc e410 | | Load 0x2,0x10
00cd e004 | | Load 0x0,0x4
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 048c | | Action Push_String_Extended,0x48c ; "'body"
00df e007 | | Load 0x0,0x7
00e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e1 0c01 | | Execute_Immediate Greater_Equal,0x1
00e2 6803 |h | Jump_Zero 0xe6
00e3 0092 048d | | Action Push_String_Extended,0x48d ; "BODY"
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 0092 048e | | Action Push_String_Extended,0x48e ; "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 048f | | Action Push_String_Extended,0x48f ; "'V"
00f7 e007 | | Load 0x0,0x7
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 e004 | | Load 0x0,0x4
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 e003 | | Load 0x0,0x3
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 e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
012b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
012c e007 | | Load 0x0,0x7
012d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012e e003 | | Load 0x0,0x3
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 e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
0143 180e | | Execute Package,Field_Execute,Field_Number 0xe
0144 4807 |H | Short_Literal 0x7
0145 e7ff | | Load 0x3,-0x1
0146 0092 0489 | | Action Push_String_Extended,0x489 ; " does not exist"
0148 01cc | | Execute Vector,Catenate
0149 e006 | | Load 0x0,0x6
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 0490 | | Action Push_String_Extended,0x490 ; "."
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e008 | | Load 0x0,0x8
0184 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0185 e009 | | Load 0x0,0x9
0186 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0187 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 0491 | | Action Push_String_Extended,0x491 ; "'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 e002 | | Load 0x0,0x2
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 e008 | | Load 0x0,0x8
01bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c0 e009 | | Load 0x0,0x9
01c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c2 e00a | | Load 0x0,0xa
01c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c4 4801 |H | Short_Literal 0x1
01c5 4800 |H | Short_Literal 0x0
01c6 e009 | | Load 0x0,0x9
01c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c8 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 0403 | | Declare_Subprogram INIT_0400,For_Call
01f5 BODY_01f0:
01f5 e002 | | Load 0x0,0x2
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 e008 | | Load 0x0,0x8
01fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fc e009 | | Load 0x0,0x9
01fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01fe e00a | | Load 0x0,0xa
01ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0200 4801 |H | Short_Literal 0x1
0201 4800 |H | Short_Literal 0x0
0202 e009 | | Load 0x0,0x9
0203 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0204 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
0237 180e | | Execute Package,Field_Execute,Field_Number 0xe
0238 4806 |H | Short_Literal 0x6
0239 0092 0492 | | Action Push_String_Extended,0x492 ; "Can't create manual file: "
023b e5fc | | Load 0x2,-0x4
023c 01cc | | Execute Vector,Catenate
023d e006 | | Load 0x0,0x6
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 e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
0255 180e | | Execute Package,Field_Execute,Field_Number 0xe
0256 4807 |H | Short_Literal 0x7
0257 0092 0493 | | Action Push_String_Extended,0x493 ; "Can't create release file: "
0259 e5fd | | Load 0x2,-0x3
025a 01cc | | Execute Vector,Catenate
025b e006 | | Load 0x0,0x6
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 e002 | | Load 0x0,0x2
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 e00b | | Load 0x0,0xb
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 e002 | | Load 0x0,0x2
026e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026f e002 | | Load 0x0,0x2
0270 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0271 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0272 BODY_0260:
0272 e002 | | Load 0x0,0x2
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 e008 | | Load 0x0,0x8
0278 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0279 4800 |H | Short_Literal 0x0
027a e009 | | Load 0x0,0x9
027b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
027c e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e00b | | Load 0x0,0xb
0288 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028a e002 | | Load 0x0,0x2
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 e00b | | Load 0x0,0xb
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 e008 | | Load 0x0,0x8
0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0296 e802 | | Load 0x4,0x2
0297 e002 | | Load 0x0,0x2
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 e00b | | Load 0x0,0xb
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 03f1 | | .CONST 0x03f1 ; Address of exception handler
02aa 0008 | | .CONST 0x0008 ; Number of locals
02ab INIT_02a8:
02ab e403 | | Load 0x2,0x3
02ac e002 | | Load 0x0,0x2
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 0494 | | Action Push_String_Extended,0x494 ; "@"
02b5 e403 | | Load 0x2,0x3
02b6 e002 | | Load 0x0,0x2
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 e003 | | Load 0x0,0x3
02c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c6 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
02cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d0 e003 | | Load 0x0,0x3
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 800c | | Call 0x0,0xc
02dd 6903 |i | Jump_Zero 0x3e1
02de 00d8 | | Load_Top At_Offset_0
02df e805 | | Load 0x4,0x5
02e0 e802 | | Load 0x4,0x2
02e1 800d | | Call 0x0,0xd
02e2 70a1 |p | Jump_Nonzero 0x384
02e3 e411 | | Load 0x2,0x11
02e4 6873 |hs | Jump_Zero 0x358
02e5 00d9 | | Load_Top At_Offset_1
02e6 6806 |h | Jump_Zero 0x2ed
02e7 e803 | | Load 0x4,0x3
02e8 0092 048e | | Action Push_String_Extended,0x48e ; "SPEC"
02ea 01df | | Execute Vector,Equal
02eb a603 | | Store_Unchecked 0x3,0x3
02ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ed 00da | | Load_Top At_Offset_2
02ee 6810 |h | Jump_Zero 0x2ff
02ef e005 | | Load 0x0,0x5
02f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f1 4803 |H | Short_Literal 0x3
02f2 e805 | | Load 0x4,0x5
02f3 0092 0495 | | Action Push_String_Extended,0x495 ; " is a forced unit, therefore it will be added to "
02f5 01cc | | Execute Vector,Catenate
02f6 e409 | | Load 0x2,0x9
02f7 01cc | | Execute Vector,Catenate
02f8 e006 | | Load 0x0,0x6
02f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fa e804 | | Load 0x4,0x4
02fb e410 | | Load 0x2,0x10
02fc e004 | | Load 0x0,0x4
02fd 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
02fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ff e803 | | Load 0x4,0x3
0300 0092 048d | | Action Push_String_Extended,0x48d ; "BODY"
0302 01df | | Execute Vector,Equal
0303 6823 |h# | Jump_Zero 0x327
0304 e602 | | Load 0x3,0x2
0305 6821 |h! | Jump_Zero 0x327
0306 e005 | | Load 0x0,0x5
0307 180e | | Execute Package,Field_Execute,Field_Number 0xe
0308 4804 |H | Short_Literal 0x4
0309 e805 | | Load 0x4,0x5
030a 0092 0496 | | Action Push_String_Extended,0x496 ; " has a spec that was added to "
030c 01cc | | Execute Vector,Catenate
030d e40a | | Load 0x2,0xa
030e 01cc | | Execute Vector,Catenate
030f 0092 0497 | | Action Push_String_Extended,0x497 ; ", therefore it will also be added to this list."
0311 01cc | | Execute Vector,Catenate
0312 e006 | | Load 0x0,0x6
0313 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0314 e804 | | Load 0x4,0x4
0315 e40f | | Load 0x2,0xf
0316 e004 | | Load 0x0,0x4
0317 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0318 4800 |H | Short_Literal 0x0
0319 4801 |H | Short_Literal 0x1
031a e402 | | Load 0x2,0x2
031b e802 | | Load 0x4,0x2
031c e805 | | Load 0x4,0x5
031d e00e | | Load 0x0,0xe
031e 180f | | Execute Package,Field_Execute,Field_Number 0xf
031f e406 | | Load 0x2,0x6
0320 00d9 | | Load_Top At_Offset_1
0321 4801 |H | Short_Literal 0x1
0322 e805 | | Load 0x4,0x5
0323 e402 | | Load 0x2,0x2
0324 800f | | Call 0x0,0xf
0325 c406 | | Store 0x2,0x6
0326 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0327 e803 | | Load 0x4,0x3
0328 0092 048e | | Action Push_String_Extended,0x48e ; "SPEC"
032a 01df | | Execute Vector,Equal
032b a603 | | Store_Unchecked 0x3,0x3
032c e005 | | Load 0x0,0x5
032d 180e | | Execute Package,Field_Execute,Field_Number 0xe
032e 4804 |H | Short_Literal 0x4
032f e805 | | Load 0x4,0x5
0330 0092 0498 | | Action Push_String_Extended,0x498 ; " is NOT a forced unit, therefore it will be added to "
0332 01cc | | Execute Vector,Catenate
0333 e40a | | Load 0x2,0xa
0334 01cc | | Execute Vector,Catenate
0335 e006 | | Load 0x0,0x6
0336 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0337 e804 | | Load 0x4,0x4
0338 e40f | | Load 0x2,0xf
0339 e004 | | Load 0x0,0x4
033a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
033b 00e1 | | Load_Encached Boolean_Cache
033c e407 | | Load 0x2,0x7
033d e405 | | Load 0x2,0x5
033e 0120 | | Execute Any,Is_Value
033f 6803 |h | Jump_Zero 0x343
0340 e002 | | Load 0x0,0x2
0341 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0342 7801 |x | Jump 0x344
0343 e405 | | Load 0x2,0x5
0344 e805 | | Load 0x4,0x5
0345 8010 | | Call 0x0,0x10
0346 c405 | | Store 0x2,0x5
0347 00d1 | | Pop_Control Pop_Count_1
0348 c408 | | Store 0x2,0x8
0349 4800 |H | Short_Literal 0x0
034a 4801 |H | Short_Literal 0x1
034b e402 | | Load 0x2,0x2
034c e802 | | Load 0x4,0x2
034d e805 | | Load 0x4,0x5
034e e00e | | Load 0x0,0xe
034f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0350 e406 | | Load 0x2,0x6
0351 00d9 | | Load_Top At_Offset_1
0352 4801 |H | Short_Literal 0x1
0353 e805 | | Load 0x4,0x5
0354 e402 | | Load 0x2,0x2
0355 800f | | Call 0x0,0xf
0356 c406 | | Store 0x2,0x6
0357 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0358 e005 | | Load 0x0,0x5
0359 180e | | Execute Package,Field_Execute,Field_Number 0xe
035a 4804 |H | Short_Literal 0x4
035b e805 | | Load 0x4,0x5
035c 0092 0499 | | Action Push_String_Extended,0x499 ; " is different from the released version."
035e 01cc | | Execute Vector,Catenate
035f e006 | | Load 0x0,0x6
0360 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0361 00e1 | | Load_Encached Boolean_Cache
0362 e407 | | Load 0x2,0x7
0363 e405 | | Load 0x2,0x5
0364 0120 | | Execute Any,Is_Value
0365 6803 |h | Jump_Zero 0x369
0366 e002 | | Load 0x0,0x2
0367 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0368 7801 |x | Jump 0x36a
0369 e405 | | Load 0x2,0x5
036a e805 | | Load 0x4,0x5
036b 8010 | | Call 0x0,0x10
036c c405 | | Store 0x2,0x5
036d 00d1 | | Pop_Control Pop_Count_1
036e c408 | | Store 0x2,0x8
036f 4800 |H | Short_Literal 0x0
0370 4801 |H | Short_Literal 0x1
0371 e402 | | Load 0x2,0x2
0372 e802 | | Load 0x4,0x2
0373 e805 | | Load 0x4,0x5
0374 e00e | | Load 0x0,0xe
0375 180f | | Execute Package,Field_Execute,Field_Number 0xf
0376 e406 | | Load 0x2,0x6
0377 4800 |H | Short_Literal 0x0
0378 4801 |H | Short_Literal 0x1
0379 e805 | | Load 0x4,0x5
037a e402 | | Load 0x2,0x2
037b 800f | | Call 0x0,0xf
037c c406 | | Store 0x2,0x6
037d e412 | | Load 0x2,0x12
037e 6804 |h | Jump_Zero 0x383
037f e804 | | Load 0x4,0x4
0380 e40f | | Load 0x2,0xf
0381 e004 | | Load 0x0,0x4
0382 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0383 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0384 e803 | | Load 0x4,0x3
0385 0092 048e | | Action Push_String_Extended,0x48e ; "SPEC"
0387 01df | | Execute Vector,Equal
0388 684e |hN | Jump_Zero 0x3d7
0389 e802 | | Load 0x4,0x2
038a e805 | | Load 0x4,0x5
038b 8418 | | Call 0x2,0x18
038c 684a |hJ | Jump_Zero 0x3d7
038d e411 | | Load 0x2,0x11
038e 6824 |h$ | Jump_Zero 0x3b3
038f 00da | | Load_Top At_Offset_2
0390 6810 |h | Jump_Zero 0x3a1
0391 e005 | | Load 0x0,0x5
0392 180e | | Execute Package,Field_Execute,Field_Number 0xe
0393 4803 |H | Short_Literal 0x3
0394 e805 | | Load 0x4,0x5
0395 0092 0495 | | Action Push_String_Extended,0x495 ; " is a forced unit, therefore it will be added to "
0397 01cc | | Execute Vector,Catenate
0398 e409 | | Load 0x2,0x9
0399 01cc | | Execute Vector,Catenate
039a e006 | | Load 0x0,0x6
039b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
039c e804 | | Load 0x4,0x4
039d e410 | | Load 0x2,0x10
039e e004 | | Load 0x0,0x4
039f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a1 00d9 | | Load_Top At_Offset_1
03a2 700f |p | Jump_Nonzero 0x3b2
03a3 e005 | | Load 0x0,0x5
03a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a5 4804 |H | Short_Literal 0x4
03a6 e805 | | Load 0x4,0x5
03a7 0092 0498 | | Action Push_String_Extended,0x498 ; " is NOT a forced unit, therefore it will be added to "
03a9 01cc | | Execute Vector,Catenate
03aa e40a | | Load 0x2,0xa
03ab 01cc | | Execute Vector,Catenate
03ac e006 | | Load 0x0,0x6
03ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ae e804 | | Load 0x4,0x4
03af e40f | | Load 0x2,0xf
03b0 e004 | | Load 0x0,0x4
03b1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b3 e005 | | Load 0x0,0x5
03b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b5 4804 |H | Short_Literal 0x4
03b6 e805 | | Load 0x4,0x5
03b7 0092 049a | | Action Push_String_Extended,0x49a ; " is a Load_Proc whose "
03b9 01cc | | Execute Vector,Catenate
03ba 0092 049b | | Action Push_String_Extended,0x49b ; "code is different from "
03bc 01cc | | Execute Vector,Catenate
03bd 0092 049c | | Action Push_String_Extended,0x49c ; "the released version."
03bf 01cc | | Execute Vector,Catenate
03c0 e006 | | Load 0x0,0x6
03c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c2 00e1 | | Load_Encached Boolean_Cache
03c3 e407 | | Load 0x2,0x7
03c4 e405 | | Load 0x2,0x5
03c5 0120 | | Execute Any,Is_Value
03c6 6803 |h | Jump_Zero 0x3ca
03c7 e002 | | Load 0x0,0x2
03c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03c9 7801 |x | Jump 0x3cb
03ca e405 | | Load 0x2,0x5
03cb e805 | | Load 0x4,0x5
03cc 8010 | | Call 0x0,0x10
03cd c405 | | Store 0x2,0x5
03ce 00d1 | | Pop_Control Pop_Count_1
03cf c408 | | Store 0x2,0x8
03d0 e412 | | Load 0x2,0x12
03d1 6804 |h | Jump_Zero 0x3d6
03d2 e804 | | Load 0x4,0x4
03d3 e40f | | Load 0x2,0xf
03d4 e004 | | Load 0x0,0x4
03d5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03d7 e005 | | Load 0x0,0x5
03d8 180e | | Execute Package,Field_Execute,Field_Number 0xe
03d9 4802 |H | Short_Literal 0x2
03da e805 | | Load 0x4,0x5
03db 0092 049d | | Action Push_String_Extended,0x49d ; " is up-to-date."
03dd 01cc | | Execute Vector,Catenate
03de e006 | | Load 0x0,0x6
03df 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e1 e005 | | Load 0x0,0x5
03e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03e3 4803 |H | Short_Literal 0x3
03e4 e805 | | Load 0x4,0x5
03e5 0092 049e | | Action Push_String_Extended,0x49e ; " is a new unit."
03e7 01cc | | Execute Vector,Catenate
03e8 e006 | | Load 0x0,0x6
03e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ea e411 | | Load 0x2,0x11
03eb 6804 |h | Jump_Zero 0x3f0
03ec e804 | | Load 0x4,0x4
03ed e410 | | Load 0x2,0x10
03ee e004 | | Load 0x0,0x4
03ef 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f1 TRAP_02a8:
03f1 0007 | | Action Break_Optional
03f2 e005 | | Load 0x0,0x5
03f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
03f4 4807 |H | Short_Literal 0x7
03f5 0092 049f | | Action Push_String_Extended,0x49f ; "Skipping "
03f7 e805 | | Load 0x4,0x5
03f8 01cc | | Execute Vector,Catenate
03f9 0092 04a0 | | Action Push_String_Extended,0x4a0 ; " due to an internal error"
03fb 01cc | | Execute Vector,Catenate
03fc e006 | | Load 0x0,0x6
03fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ff 0000 | | .XXX[0x1]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0426 | & | .CONST 0x0426 ; Address of begin
0401 047d | } | .CONST 0x047d ; Address of exception handler
0402 0006 | | .CONST 0x0006 ; Number of locals
0403 INIT_0400:
0403 e403 | | Load 0x2,0x3
0404 e002 | | Load 0x0,0x2
0405 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0406 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0407 8414 | | Call 0x2,0x14
0408 0092 0494 | | Action Push_String_Extended,0x494 ; "@"
040a e403 | | Load 0x2,0x3
040b e002 | | Load 0x0,0x2
040c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
040d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
040e e7fe | | Load 0x3,-0x2
040f 00d9 | | Load_Top At_Offset_1
0410 01cc | | Execute Vector,Catenate
0411 0007 | | Action Break_Optional
0412 4801 |H | Short_Literal 0x1
0413 e40e | | Load 0x2,0xe
0414 00da | | Load_Top At_Offset_2
0415 e003 | | Load 0x0,0x3
0416 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0417 e003 | | Load 0x0,0x3
0418 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0419 0f00 | | Execute_Immediate Equal,0x0
041a 00e1 | | Load_Encached Boolean_Cache
041b 03f1 | | Declare_Variable Discrete,With_Value
041c 4801 |H | Short_Literal 0x1
041d e40d | | Load 0x2,0xd
041e 00db | | Load_Top At_Offset_3
041f e003 | | Load 0x0,0x3
0420 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0421 e003 | | Load 0x0,0x3
0422 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0423 0f00 | | Execute_Immediate Equal,0x0
0424 00e1 | | Load_Encached Boolean_Cache
0425 03f1 | | Declare_Variable Discrete,With_Value
0426 BODY_0400:
0426 00da | | Load_Top At_Offset_2
0427 800c | | Call 0x0,0xc
0428 6841 |hA | Jump_Zero 0x46a
0429 00ea | | Load_Encached Null_String_Cache
042a 4800 |H | Short_Literal 0x0
042b 4800 |H | Short_Literal 0x0
042c e804 | | Load 0x4,0x4
042d e802 | | Load 0x4,0x2
042e e00e | | Load 0x0,0xe
042f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0430 702d |p- | Jump_Nonzero 0x45e
0431 e411 | | Load 0x2,0x11
0432 6813 |h | Jump_Zero 0x446
0433 00d8 | | Load_Top At_Offset_0
0434 6801 |h | Jump_Zero 0x436
0435 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0436 00d9 | | Load_Top At_Offset_1
0437 680d |h | Jump_Zero 0x445
0438 e005 | | Load 0x0,0x5
0439 180e | | Execute Package,Field_Execute,Field_Number 0xe
043a 4803 |H | Short_Literal 0x3
043b e804 | | Load 0x4,0x4
043c 0092 04a1 | | Action Push_String_Extended,0x4a1 ; " is a forced unit, therefore it will be added to the automatic list."
043e 01cc | | Execute Vector,Catenate
043f e006 | | Load 0x0,0x6
0440 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0441 00db | | Load_Top At_Offset_3
0442 e410 | | Load 0x2,0x10
0443 e004 | | Load 0x0,0x4
0444 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0445 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0446 e005 | | Load 0x0,0x5
0447 180e | | Execute Package,Field_Execute,Field_Number 0xe
0448 4804 |H | Short_Literal 0x4
0449 e804 | | Load 0x4,0x4
044a 0092 0499 | | Action Push_String_Extended,0x499 ; " is different from the released version."
044c 01cc | | Execute Vector,Catenate
044d e006 | | Load 0x0,0x6
044e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044f 4800 |H | Short_Literal 0x0
0450 4801 |H | Short_Literal 0x1
0451 e402 | | Load 0x2,0x2
0452 e802 | | Load 0x4,0x2
0453 e804 | | Load 0x4,0x4
0454 e00e | | Load 0x0,0xe
0455 180f | | Execute Package,Field_Execute,Field_Number 0xf
0456 e406 | | Load 0x2,0x6
0457 4800 |H | Short_Literal 0x0
0458 4801 |H | Short_Literal 0x1
0459 e804 | | Load 0x4,0x4
045a e402 | | Load 0x2,0x2
045b 800f | | Call 0x0,0xf
045c c406 | | Store 0x2,0x6
045d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
045e e411 | | Load 0x2,0x11
045f 7009 |p | Jump_Nonzero 0x469
0460 e005 | | Load 0x0,0x5
0461 180e | | Execute Package,Field_Execute,Field_Number 0xe
0462 4802 |H | Short_Literal 0x2
0463 e804 | | Load 0x4,0x4
0464 0092 049d | | Action Push_String_Extended,0x49d ; " is up-to-date."
0466 01cc | | Execute Vector,Catenate
0467 e006 | | Load 0x0,0x6
0468 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0469 4501 |E | Exit_Suprogram New_Top_Offset 0x1
046a e005 | | Load 0x0,0x5
046b 180e | | Execute Package,Field_Execute,Field_Number 0xe
046c 4803 |H | Short_Literal 0x3
046d e804 | | Load 0x4,0x4
046e 0092 04a2 | | Action Push_String_Extended,0x4a2 ; " is a new file."
0470 01cc | | Execute Vector,Catenate
0471 e006 | | Load 0x0,0x6
0472 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0473 e005 | | Load 0x0,0x5
0474 180e | | Execute Package,Field_Execute,Field_Number 0xe
0475 4803 |H | Short_Literal 0x3
0476 e804 | | Load 0x4,0x4
0477 0092 04a3 | | Action Push_String_Extended,0x4a3 ; " will be added to the automatic list."
0479 01cc | | Execute Vector,Catenate
047a e006 | | Load 0x0,0x6
047b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
047d TRAP_0400:
047d 0007 | | Action Break_Optional
047e e005 | | Load 0x0,0x5
047f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0480 4807 |H | Short_Literal 0x7
0481 0092 049f | | Action Push_String_Extended,0x49f ; "Skipping "
0483 e804 | | Load 0x4,0x4
0484 01cc | | Execute Vector,Catenate
0485 e006 | | Load 0x0,0x6
0486 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0487 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0488 ; --------------------------------------------------------------------------------------
0488 ; STRING TABLE
0488 ; --------------------------------------------------------------------------------------
0488 003a | : | .STRTAB 0x003a->0x04a5 ; "!Machine.Temporary.Delta_2_Differences"
0489 005e | ^ | .STRTAB 0x005e->0x04b8 ; " does not exist"
048a 006b | k | .STRTAB 0x006b->0x04bf ; "??'C(Ada)"
048b 0072 | r | .STRTAB 0x0072->0x04c4 ; "??'C(Text)"
048c 007a | z | .STRTAB 0x007a->0x04c9 ; "'body"
048d 007d | } | .STRTAB 0x007d->0x04cb ; "BODY"
048e 007f | | .STRTAB 0x007f->0x04cd ; "SPEC"
048f 0081 | | .STRTAB 0x0081->0x04cf ; "'V"
0490 0081 | | .STRTAB 0x0081->0x04d0 ; "."
0491 0080 | | .STRTAB 0x0080->0x04d1 ; "'C(Load_Proc)"
0492 008b | | .STRTAB 0x008b->0x04d7 ; "Can't create manual file: "
0493 00a3 | | .STRTAB 0x00a3->0x04e4 ; "Can't create release file: "
0494 00bc | | .STRTAB 0x00bc->0x04f2 ; "@"
0495 00bb | | .STRTAB 0x00bb->0x04f2 ; " is a forced unit, therefore it will be added to "
0496 00ea | | .STRTAB 0x00ea->0x050b ; " has a spec that was added to "
0497 0106 | | .STRTAB 0x0106->0x051a ; ", therefore it will also be added to this list."
0498 0133 | 3 | .STRTAB 0x0133->0x0531 ; " is NOT a forced unit, therefore it will be added to "
0499 0166 | f | .STRTAB 0x0166->0x054c ; " is different from the released version."
049a 018c | | .STRTAB 0x018c->0x0560 ; " is a Load_Proc whose "
049b 01a0 | | .STRTAB 0x01a0->0x056b ; "code is different from "
049c 01b5 | | .STRTAB 0x01b5->0x0576 ; "the released version."
049d 01c8 | | .STRTAB 0x01c8->0x0581 ; " is up-to-date."
049e 01d5 | | .STRTAB 0x01d5->0x0588 ; " is a new unit."
049f 01e2 | | .STRTAB 0x01e2->0x0590 ; "Skipping "
04a0 01e9 | | .STRTAB 0x01e9->0x0594 ; " due to an internal error"
04a1 0200 | | .STRTAB 0x0200->0x05a1 ; " is a forced unit, therefore it will be added to the automatic list."
04a2 0242 | B | .STRTAB 0x0242->0x05c3 ; " is a new file."
04a3 024f | O | .STRTAB 0x024f->0x05ca ; " will be added to the automatic list."
04a4 0272 | r | .STREND 0x0272->0x05dd
04a5 214d 6163 |!Mac| .STRTAB_STRINGS
05dd 0000 0000 | | .XXX[0x3]
05df 0000 | |
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug Table
05e0 ; --------------------------------------------------------------------------------------
05e0 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b81,0x0000,0x0001,0x0000
05e6 0d5d a591 | ] | .XXX[0x1a]
05e8 9d95 d0b0 | |
05ea 8161 d149 | a I|
05ec 5da5 919d |] |
05ee 95d0 b081 | |
05f0 cda5 e995 | |
05f2 bd98 a15d | ]|
05f4 a591 9d95 | |
05f6 d0a4 b000 | |
05f8 c000 253d | %=|
05fa 9999 cd95 | |
05fc d0a1 d995 | |
05fe c9d1 7d89 | } |