|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 02e8 | | .CONST 0x02e8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 000f 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 003d | = | .CONST 0x003d ; Address of begin 0021 00a6 | | .CONST 0x00a6 ; Address of exception handler 0022 0008 | | .CONST 0x0008 ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 02c7 | | Declare_Variable Any 0026 e5f8 | | Load 0x2,-0x8 0027 e001 | | Load 0x0,0x1 0028 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0029 a402 | | Store_Unchecked 0x2,0x2 002a 0092 0261 | a| Action Push_String_Extended,0x261 ; "Accept_Changes" 002c e002 | | Load 0x0,0x2 002d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002f e003 | | Load 0x0,0x3 0030 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0031 02c7 | | Declare_Variable Any 0032 00d8 | | Load_Top At_Offset_0 0033 1c00 | | Execute_Immediate Run_Utility,0x0 0034 e003 | | Load 0x0,0x3 0035 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0036 02c7 | | Declare_Variable Any 0037 00d8 | | Load_Top At_Offset_0 0038 1c00 | | Execute_Immediate Run_Utility,0x0 0039 e001 | | Load 0x0,0x1 003a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 003b 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 003d BODY_0020: 003d e402 | | Load 0x2,0x2 003e 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 0040 0092 0263 | c| Action Push_String_Extended,0x263 ; "Destination" 0042 e5ff | | Load 0x2,-0x1 0043 e004 | | Load 0x0,0x4 0044 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0045 01cc | | Execute Vector,Catenate 0046 0092 0264 | d| Action Push_String_Extended,0x264 ; "source" 0048 01cc | | Execute Vector,Catenate 0049 e5fe | | Load 0x2,-0x2 004a e004 | | Load 0x0,0x4 004b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 004c 01cc | | Execute Vector,Catenate 004d 0092 0265 | e| Action Push_String_Extended,0x265 ; "allow_demotion => " 004f 01cc | | Execute Vector,Catenate 0050 e5fd | | Load 0x2,-0x3 0051 00e1 | | Load_Encached Boolean_Cache 0052 011c | | Execute Any,Convert_Unchecked 0053 1c01 | | Execute_Immediate Run_Utility,0x1 0054 01cc | | Execute Vector,Catenate 0055 0092 0266 | f| Action Push_String_Extended,0x266 ; ", remake_demoted_units => " 0057 01cc | | Execute Vector,Catenate 0058 e5fc | | Load 0x2,-0x4 0059 00e1 | | Load_Encached Boolean_Cache 005a 011c | | Execute Any,Convert_Unchecked 005b 1c01 | | Execute_Immediate Run_Utility,0x1 005c 01cc | | Execute Vector,Catenate 005d 0092 0267 | g| Action Push_String_Extended,0x267 ; ", goal => " 005f 01cc | | Execute Vector,Catenate 0060 e5fb | | Load 0x2,-0x5 0061 e005 | | Load 0x0,0x5 0062 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0063 011c | | Execute Any,Convert_Unchecked 0064 1c01 | | Execute_Immediate Run_Utility,0x1 0065 01cc | | Execute Vector,Catenate 0066 0092 0268 | h| Action Push_String_Extended,0x268 ; ", comments" 0068 01cc | | Execute Vector,Catenate 0069 e5fa | | Load 0x2,-0x6 006a e004 | | Load 0x0,0x4 006b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006c 01cc | | Execute Vector,Catenate 006d 0092 0269 | i| Action Push_String_Extended,0x269 ; "work_order" 006f 01cc | | Execute Vector,Catenate 0070 e5f9 | | Load 0x2,-0x7 0071 e004 | | Load 0x0,0x4 0072 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0073 01cc | | Execute Vector,Catenate 0074 0092 026a | j| Action Push_String_Extended,0x26a ; "response" 0076 01cc | | Execute Vector,Catenate 0077 e5f8 | | Load 0x2,-0x8 0078 e004 | | Load 0x0,0x4 0079 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007a 01cc | | Execute Vector,Catenate 007b e403 | | Load 0x2,0x3 007c e004 | | Load 0x0,0x4 007d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007e e402 | | Load 0x2,0x2 007f 4801 |H | Short_Literal 0x1 0080 e5ff | | Load 0x2,-0x1 0081 e006 | | Load 0x0,0x6 0082 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0083 c405 | | Store 0x2,0x5 0084 4801 |H | Short_Literal 0x1 0085 0092 026b | k| Action Push_String_Extended,0x26b ; "<LATEST>" 0087 e5fe | | Load 0x2,-0x2 0088 e007 | | Load 0x0,0x7 0089 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 008a 6804 |h | Jump_Zero 0x8f 008b e003 | | Load 0x0,0x3 008c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008d c406 | | Store 0x2,0x6 008e 7806 |x | Jump 0x95 008f e402 | | Load 0x2,0x2 0090 4801 |H | Short_Literal 0x1 0091 e5fe | | Load 0x2,-0x2 0092 e006 | | Load 0x0,0x6 0093 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0094 c406 | | Store 0x2,0x6 0095 8408 | | Call 0x2,0x8 0096 4800 |H | Short_Literal 0x0 0097 e404 | | Load 0x2,0x4 0098 e002 | | Load 0x0,0x2 0099 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 009a 7003 |p | Jump_Nonzero 0x9e 009b e002 | | Load 0x0,0x2 009c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 009d 0257 | W | Execute Discrete,Raise 009e e402 | | Load 0x2,0x2 009f 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 00a1 e403 | | Load 0x2,0x3 00a2 e404 | | Load 0x2,0x4 00a3 e004 | | Load 0x0,0x4 00a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a5 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00a6 TRAP_0020: 00a6 e002 | | Load 0x0,0x2 00a7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a8 010f | | Execute Exception,Equal 00a9 6808 |h | Jump_Zero 0xb2 00aa e402 | | Load 0x2,0x2 00ab 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 00ad e403 | | Load 0x2,0x3 00ae e404 | | Load 0x2,0x4 00af e004 | | Load 0x0,0x4 00b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b1 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00b2 e402 | | Load 0x2,0x2 00b3 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 00b5 e403 | | Load 0x2,0x3 00b6 e404 | | Load 0x2,0x4 00b7 e004 | | Load 0x0,0x4 00b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b9 00da | | Load_Top At_Offset_2 00ba e001 | | Load 0x0,0x1 00bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00bc 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d3 | | .CONST 0x00d3 ; Address of begin 00c1 0121 | ! | .CONST 0x0121 ; Address of exception handler 00c2 0006 | | .CONST 0x0006 ; Number of locals 00c3 INIT_00c0: 00c3 e001 | | Load 0x0,0x1 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 02c7 | | Declare_Variable Any 00c6 e5f9 | | Load 0x2,-0x7 00c7 e001 | | Load 0x0,0x1 00c8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00c9 a402 | | Store_Unchecked 0x2,0x2 00ca 0092 026c | l| Action Push_String_Extended,0x26c ; "Abandon_Reservation" 00cc e002 | | Load 0x0,0x2 00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cf e001 | | Load 0x0,0x1 00d0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d1 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 00d3 BODY_00c0: 00d3 e402 | | Load 0x2,0x2 00d4 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 00d6 0092 026d | m| Action Push_String_Extended,0x26d ; "what_object" 00d8 e5ff | | Load 0x2,-0x1 00d9 e004 | | Load 0x0,0x4 00da 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00db 01cc | | Execute Vector,Catenate 00dc 0092 0265 | e| Action Push_String_Extended,0x265 ; "allow_demotion => " 00de 01cc | | Execute Vector,Catenate 00df e5fe | | Load 0x2,-0x2 00e0 00e1 | | Load_Encached Boolean_Cache 00e1 011c | | Execute Any,Convert_Unchecked 00e2 1c01 | | Execute_Immediate Run_Utility,0x1 00e3 01cc | | Execute Vector,Catenate 00e4 0092 0266 | f| Action Push_String_Extended,0x266 ; ", remake_demoted_units => " 00e6 01cc | | Execute Vector,Catenate 00e7 e5fd | | Load 0x2,-0x3 00e8 00e1 | | Load_Encached Boolean_Cache 00e9 011c | | Execute Any,Convert_Unchecked 00ea 1c01 | | Execute_Immediate Run_Utility,0x1 00eb 01cc | | Execute Vector,Catenate 00ec 0092 0267 | g| Action Push_String_Extended,0x267 ; ", goal => " 00ee 01cc | | Execute Vector,Catenate 00ef e5fc | | Load 0x2,-0x4 00f0 e005 | | Load 0x0,0x5 00f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f2 011c | | Execute Any,Convert_Unchecked 00f3 1c01 | | Execute_Immediate Run_Utility,0x1 00f4 01cc | | Execute Vector,Catenate 00f5 0092 0268 | h| Action Push_String_Extended,0x268 ; ", comments" 00f7 01cc | | Execute Vector,Catenate 00f8 e5fb | | Load 0x2,-0x5 00f9 e004 | | Load 0x0,0x4 00fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fb 01cc | | Execute Vector,Catenate 00fc 0092 0269 | i| Action Push_String_Extended,0x269 ; "work_order" 00fe 01cc | | Execute Vector,Catenate 00ff e5fa | | Load 0x2,-0x6 0100 e004 | | Load 0x0,0x4 0101 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0102 01cc | | Execute Vector,Catenate 0103 0092 026a | j| Action Push_String_Extended,0x26a ; "response" 0105 01cc | | Execute Vector,Catenate 0106 e5f9 | | Load 0x2,-0x7 0107 e004 | | Load 0x0,0x4 0108 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0109 01cc | | Execute Vector,Catenate 010a e403 | | Load 0x2,0x3 010b e004 | | Load 0x0,0x4 010c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010d e402 | | Load 0x2,0x2 010e e008 | | Load 0x0,0x8 010f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0110 8406 | | Call 0x2,0x6 0111 4800 |H | Short_Literal 0x0 0112 00db | | Load_Top At_Offset_3 0113 e002 | | Load 0x0,0x2 0114 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0115 7003 |p | Jump_Nonzero 0x119 0116 e002 | | Load 0x0,0x2 0117 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0118 0257 | W | Execute Discrete,Raise 0119 e402 | | Load 0x2,0x2 011a 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 011c e403 | | Load 0x2,0x3 011d e404 | | Load 0x2,0x4 011e e004 | | Load 0x0,0x4 011f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0120 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0121 TRAP_00c0: 0121 e002 | | Load 0x0,0x2 0122 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0123 010f | | Execute Exception,Equal 0124 6808 |h | Jump_Zero 0x12d 0125 e402 | | Load 0x2,0x2 0126 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 0128 e403 | | Load 0x2,0x3 0129 e404 | | Load 0x2,0x4 012a e004 | | Load 0x0,0x4 012b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 012c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 012d e402 | | Load 0x2,0x2 012e 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 0130 e403 | | Load 0x2,0x3 0131 e404 | | Load 0x2,0x4 0132 e004 | | Load 0x0,0x4 0133 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0134 00da | | Load_Top At_Offset_2 0135 e001 | | Load 0x0,0x1 0136 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0137 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 014b | K | .CONST 0x014b ; Address of begin 0139 01a0 | | .CONST 0x01a0 ; Address of exception handler 013a 0006 | | .CONST 0x0006 ; Number of locals 013b INIT_0138: 013b e001 | | Load 0x0,0x1 013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013d 02c7 | | Declare_Variable Any 013e e5f7 | | Load 0x2,-0x9 013f e001 | | Load 0x0,0x1 0140 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0141 a402 | | Store_Unchecked 0x2,0x2 0142 0092 026e | n| Action Push_String_Extended,0x26e ; "Revert" 0144 e002 | | Load 0x0,0x2 0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0146 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0147 e001 | | Load 0x0,0x1 0148 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0149 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 014b BODY_0138: 014b e402 | | Load 0x2,0x2 014c 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 014e 0092 026d | m| Action Push_String_Extended,0x26d ; "what_object" 0150 e5ff | | Load 0x2,-0x1 0151 e004 | | Load 0x0,0x4 0152 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0153 01cc | | Execute Vector,Catenate 0154 0092 026f | o| Action Push_String_Extended,0x26f ; "to_generation => " 0156 01cc | | Execute Vector,Catenate 0157 e5fe | | Load 0x2,-0x2 0158 00e0 | | Load_Encached Standard_Cache 0159 1818 | | Execute Package,Field_Execute,Field_Number 0x18 015a 01cc | | Execute Vector,Catenate 015b 0092 0270 | p| Action Push_String_Extended,0x270 ; ", allow_demotion => " 015d 01cc | | Execute Vector,Catenate 015e e5fc | | Load 0x2,-0x4 015f 00e1 | | Load_Encached Boolean_Cache 0160 011c | | Execute Any,Convert_Unchecked 0161 1c01 | | Execute_Immediate Run_Utility,0x1 0162 01cc | | Execute Vector,Catenate 0163 0092 0266 | f| Action Push_String_Extended,0x266 ; ", remake_demoted_units => " 0165 01cc | | Execute Vector,Catenate 0166 e5fb | | Load 0x2,-0x5 0167 00e1 | | Load_Encached Boolean_Cache 0168 011c | | Execute Any,Convert_Unchecked 0169 1c01 | | Execute_Immediate Run_Utility,0x1 016a 01cc | | Execute Vector,Catenate 016b 0092 0267 | g| Action Push_String_Extended,0x267 ; ", goal => " 016d 01cc | | Execute Vector,Catenate 016e e5fa | | Load 0x2,-0x6 016f e005 | | Load 0x0,0x5 0170 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0171 011c | | Execute Any,Convert_Unchecked 0172 1c01 | | Execute_Immediate Run_Utility,0x1 0173 01cc | | Execute Vector,Catenate 0174 0092 0268 | h| Action Push_String_Extended,0x268 ; ", comments" 0176 01cc | | Execute Vector,Catenate 0177 e5f9 | | Load 0x2,-0x7 0178 e004 | | Load 0x0,0x4 0179 1812 | | Execute Package,Field_Execute,Field_Number 0x12 017a 01cc | | Execute Vector,Catenate 017b 0092 0269 | i| Action Push_String_Extended,0x269 ; "work_order" 017d 01cc | | Execute Vector,Catenate 017e e5f8 | | Load 0x2,-0x8 017f e004 | | Load 0x0,0x4 0180 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0181 01cc | | Execute Vector,Catenate 0182 0092 026a | j| Action Push_String_Extended,0x26a ; "response" 0184 01cc | | Execute Vector,Catenate 0185 e5f7 | | Load 0x2,-0x9 0186 e004 | | Load 0x0,0x4 0187 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0188 01cc | | Execute Vector,Catenate 0189 e403 | | Load 0x2,0x3 018a e004 | | Load 0x0,0x4 018b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018c e402 | | Load 0x2,0x2 018d e008 | | Load 0x0,0x8 018e 180f | | Execute Package,Field_Execute,Field_Number 0xf 018f 8406 | | Call 0x2,0x6 0190 4800 |H | Short_Literal 0x0 0191 00db | | Load_Top At_Offset_3 0192 e002 | | Load 0x0,0x2 0193 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0194 7003 |p | Jump_Nonzero 0x198 0195 e002 | | Load 0x0,0x2 0196 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0197 0257 | W | Execute Discrete,Raise 0198 e402 | | Load 0x2,0x2 0199 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 019b e403 | | Load 0x2,0x3 019c e404 | | Load 0x2,0x4 019d e004 | | Load 0x0,0x4 019e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019f 450a |E | Exit_Suprogram New_Top_Offset 0xa 01a0 TRAP_0138: 01a0 e002 | | Load 0x0,0x2 01a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01a2 010f | | Execute Exception,Equal 01a3 6808 |h | Jump_Zero 0x1ac 01a4 e402 | | Load 0x2,0x2 01a5 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 01a7 e403 | | Load 0x2,0x3 01a8 e404 | | Load 0x2,0x4 01a9 e004 | | Load 0x0,0x4 01aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ab 450a |E | Exit_Suprogram New_Top_Offset 0xa 01ac e402 | | Load 0x2,0x2 01ad 0092 0262 | b| Action Push_String_Extended,0x262 ; "Rcf_Cmvc." 01af e403 | | Load 0x2,0x3 01b0 e404 | | Load 0x2,0x4 01b1 e004 | | Load 0x0,0x4 01b2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b3 00da | | Load_Top At_Offset_2 01b4 e001 | | Load 0x0,0x1 01b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b6 450a |E | Exit_Suprogram New_Top_Offset 0xa 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bf | | .CONST 0x01bf ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e402 | | Load 0x2,0x2 01bc e405 | | Load 0x2,0x5 01bd e009 | | Load 0x0,0x9 01be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01bf BODY_01b8: 01bf 0092 0271 | q| Action Push_String_Extended,0x271 ; "<QUIET>" 01c1 4801 |H | Short_Literal 0x1 01c2 e405 | | Load 0x2,0x5 01c3 e006 | | Load 0x0,0x6 01c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01c5 0092 0272 | r| Action Push_String_Extended,0x272 ; ".units.?'c(text)" 01c7 01cc | | Execute Vector,Catenate 01c8 e00a | | Load 0x0,0xa 01c9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ca e001 | | Load 0x0,0x1 01cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 01cc e001 | | Load 0x0,0x1 01cd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ce a407 | | Store_Unchecked 0x2,0x7 01cf 4801 |H | Short_Literal 0x1 01d0 e001 | | Load 0x0,0x1 01d1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01d2 e5f8 | | Load 0x2,-0x8 01d3 e5f9 | | Load 0x2,-0x7 01d4 e5fa | | Load 0x2,-0x6 01d5 4802 |H | Short_Literal 0x2 01d6 4800 |H | Short_Literal 0x0 01d7 e5fd | | Load 0x2,-0x3 01d8 e5fe | | Load 0x2,-0x2 01d9 e5ff | | Load 0x2,-0x1 01da e00b | | Load 0x0,0xb 01db 180f | | Execute Package,Field_Execute,Field_Number 0xf 01dc e407 | | Load 0x2,0x7 01dd e001 | | Load 0x0,0x1 01de 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01df e002 | | Load 0x0,0x2 01e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e1 e402 | | Load 0x2,0x2 01e2 e5fb | | Load 0x2,-0x5 01e3 e5fc | | Load 0x2,-0x4 01e4 e5fd | | Load 0x2,-0x3 01e5 e602 | | Load 0x3,0x2 01e6 e405 | | Load 0x2,0x5 01e7 e406 | | Load 0x2,0x6 01e8 e009 | | Load 0x0,0x9 01e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ea c404 | | Store 0x2,0x4 01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f7 | | .CONST 0x01f7 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e402 | | Load 0x2,0x2 01f4 e5ff | | Load 0x2,-0x1 01f5 e009 | | Load 0x0,0x9 01f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f7 BODY_01f0: 01f7 e001 | | Load 0x0,0x1 01f8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f9 e001 | | Load 0x0,0x1 01fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01fb a405 | | Store_Unchecked 0x2,0x5 01fc 4801 |H | Short_Literal 0x1 01fd e001 | | Load 0x0,0x1 01fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ff e002 | | Load 0x0,0x2 0200 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0201 e402 | | Load 0x2,0x2 0202 e5fe | | Load 0x2,-0x2 0203 00db | | Load_Top At_Offset_3 0204 e009 | | Load 0x0,0x9 0205 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0206 c404 | | Store 0x2,0x4 0207 4800 |H | Short_Literal 0x0 0208 e404 | | Load 0x2,0x4 0209 e002 | | Load 0x0,0x2 020a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 020b 7003 |p | Jump_Nonzero 0x20f 020c e002 | | Load 0x0,0x2 020d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 020e 0257 | W | Execute Discrete,Raise 020f e5f9 | | Load 0x2,-0x7 0210 e5fa | | Load 0x2,-0x6 0211 e5fb | | Load 0x2,-0x5 0212 e5fc | | Load 0x2,-0x4 0213 e5fd | | Load 0x2,-0x3 0214 e5fe | | Load 0x2,-0x2 0215 e5ff | | Load 0x2,-0x1 0216 e00b | | Load 0x0,0xb 0217 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0218 e405 | | Load 0x2,0x5 0219 e001 | | Load 0x0,0x1 021a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021b e002 | | Load 0x0,0x2 021c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021d e402 | | Load 0x2,0x2 021e e5fc | | Load 0x2,-0x4 021f e5fd | | Load 0x2,-0x3 0220 e602 | | Load 0x3,0x2 0221 e009 | | Load 0x0,0x9 0222 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0223 c404 | | Store 0x2,0x4 0224 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0231 | 1 | .CONST 0x0231 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0002 | | .CONST 0x0002 ; Number of locals 022b INIT_0228: 022b e402 | | Load 0x2,0x2 022c e5fd | | Load 0x2,-0x3 022d e5fe | | Load 0x2,-0x2 022e e5ff | | Load 0x2,-0x1 022f e009 | | Load 0x0,0x9 0230 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0231 BODY_0228: 0231 e001 | | Load 0x0,0x1 0232 180e | | Execute Package,Field_Execute,Field_Number 0xe 0233 e001 | | Load 0x0,0x1 0234 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0235 a405 | | Store_Unchecked 0x2,0x5 0236 4801 |H | Short_Literal 0x1 0237 e001 | | Load 0x0,0x1 0238 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0239 e002 | | Load 0x0,0x2 023a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023b e402 | | Load 0x2,0x2 023c e5fc | | Load 0x2,-0x4 023d 00db | | Load_Top At_Offset_3 023e e009 | | Load 0x0,0x9 023f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0240 c404 | | Store 0x2,0x4 0241 4800 |H | Short_Literal 0x0 0242 e404 | | Load 0x2,0x4 0243 e002 | | Load 0x0,0x2 0244 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0245 7003 |p | Jump_Nonzero 0x249 0246 e002 | | Load 0x0,0x2 0247 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0248 0257 | W | Execute Discrete,Raise 0249 e5f7 | | Load 0x2,-0x9 024a e5f8 | | Load 0x2,-0x8 024b e5f9 | | Load 0x2,-0x7 024c e5fa | | Load 0x2,-0x6 024d e5fb | | Load 0x2,-0x5 024e e5fc | | Load 0x2,-0x4 024f e5fd | | Load 0x2,-0x3 0250 e5fe | | Load 0x2,-0x2 0251 e5ff | | Load 0x2,-0x1 0252 e00b | | Load 0x0,0xb 0253 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0254 e405 | | Load 0x2,0x5 0255 e001 | | Load 0x0,0x1 0256 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0257 e002 | | Load 0x0,0x2 0258 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0259 e402 | | Load 0x2,0x2 025a e5fa | | Load 0x2,-0x6 025b e5fb | | Load 0x2,-0x5 025c e602 | | Load 0x3,0x2 025d e009 | | Load 0x0,0x9 025e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 025f c404 | | Store 0x2,0x4 0260 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0261 ; -------------------------------------------------------------------------------------- 0261 ; STRING TABLE 0261 ; -------------------------------------------------------------------------------------- 0261 0026 | & | .STRTAB 0x0026->0x0274 ; "Accept_Changes" 0262 0032 | 2 | .STRTAB 0x0032->0x027b ; "Rcf_Cmvc." 0263 0039 | 9 | .STRTAB 0x0039->0x027f ; "Destination" 0264 0042 | B | .STRTAB 0x0042->0x0285 ; "source" 0265 0046 | F | .STRTAB 0x0046->0x0288 ; "allow_demotion => " 0266 0056 | V | .STRTAB 0x0056->0x0291 ; ", remake_demoted_units => " 0267 006e | n | .STRTAB 0x006e->0x029e ; ", goal => " 0268 0076 | v | .STRTAB 0x0076->0x02a3 ; ", comments" 0269 007e | ~ | .STRTAB 0x007e->0x02a8 ; "work_order" 026a 0086 | | .STRTAB 0x0086->0x02ad ; "response" 026b 008c | | .STRTAB 0x008c->0x02b1 ; "<LATEST>" 026c 0092 | | .STRTAB 0x0092->0x02b5 ; "Abandon_Reservation" 026d 00a3 | | .STRTAB 0x00a3->0x02be ; "what_object" 026e 00ac | | .STRTAB 0x00ac->0x02c4 ; "Revert" 026f 00b0 | | .STRTAB 0x00b0->0x02c7 ; "to_generation => " 0270 00bf | | .STRTAB 0x00bf->0x02cf ; ", allow_demotion => " 0271 00d1 | | .STRTAB 0x00d1->0x02d9 ; "<QUIET>" 0272 00d6 | | .STRTAB 0x00d6->0x02dd ; ".units.?'c(text)" 0273 00e4 | | .STREND 0x00e4->0x02e5 0274 4163 6365 |Acce| .STRTAB_STRINGS 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug Table 02e8 ; -------------------------------------------------------------------------------------- 02e8 0004 000d | | .DEBUG4 0x0004,0x000d,0x50ce,0x0000,0x0001,0x0000 02ee 0000 0000 | | .BLANK 0000[0x112]