|
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_6a18da
└─⟦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 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 00a3 | | .CONST 0x00a3 ; 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 025e | ^| Action Push_String_Extended,0x25e ; "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 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 0040 0092 0260 | `| Action Push_String_Extended,0x260 ; "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 0261 | a| Action Push_String_Extended,0x261 ; "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 0262 | b| Action Push_String_Extended,0x262 ; "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 0263 | c| Action Push_String_Extended,0x263 ; ", 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 0264 | d| Action Push_String_Extended,0x264 ; ", 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 0265 | e| Action Push_String_Extended,0x265 ; ", 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 0266 | f| Action Push_String_Extended,0x266 ; "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 0267 | g| Action Push_String_Extended,0x267 ; "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 0268 | h| Action Push_String_Extended,0x268 ; "<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 e404 | | Load 0x2,0x4 0097 6803 |h | Jump_Zero 0x9b 0098 e002 | | Load 0x0,0x2 0099 1b17 | | Execute Package,Field_Read,Field_Number 0x17 009a 0257 | W | Execute Discrete,Raise 009b e402 | | Load 0x2,0x2 009c 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 009e e403 | | Load 0x2,0x3 009f e404 | | Load 0x2,0x4 00a0 e004 | | Load 0x0,0x4 00a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a2 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00a3 TRAP_0020: 00a3 e002 | | Load 0x0,0x2 00a4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a5 010f | | Execute Exception,Equal 00a6 6808 |h | Jump_Zero 0xaf 00a7 e402 | | Load 0x2,0x2 00a8 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 00aa e403 | | Load 0x2,0x3 00ab e404 | | Load 0x2,0x4 00ac e004 | | Load 0x0,0x4 00ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ae 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00af e402 | | Load 0x2,0x2 00b0 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 00b2 e403 | | Load 0x2,0x3 00b3 e404 | | Load 0x2,0x4 00b4 e004 | | Load 0x0,0x4 00b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b6 00da | | Load_Top At_Offset_2 00b7 e001 | | Load 0x0,0x1 00b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b9 4509 |E | Exit_Suprogram New_Top_Offset 0x9 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d3 | | .CONST 0x00d3 ; Address of begin 00c1 011e | | .CONST 0x011e ; 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 0269 | i| Action Push_String_Extended,0x269 ; "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 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 00d6 0092 026a | j| Action Push_String_Extended,0x26a ; "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 0262 | b| Action Push_String_Extended,0x262 ; "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 0263 | c| Action Push_String_Extended,0x263 ; ", 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 0264 | d| Action Push_String_Extended,0x264 ; ", 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 0265 | e| Action Push_String_Extended,0x265 ; ", 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 0266 | f| Action Push_String_Extended,0x266 ; "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 0267 | g| Action Push_String_Extended,0x267 ; "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 00da | | Load_Top At_Offset_2 0112 6803 |h | Jump_Zero 0x116 0113 e002 | | Load 0x0,0x2 0114 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0115 0257 | W | Execute Discrete,Raise 0116 e402 | | Load 0x2,0x2 0117 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 0119 e403 | | Load 0x2,0x3 011a e404 | | Load 0x2,0x4 011b e004 | | Load 0x0,0x4 011c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011d 4508 |E | Exit_Suprogram New_Top_Offset 0x8 011e TRAP_00c0: 011e e002 | | Load 0x0,0x2 011f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0120 010f | | Execute Exception,Equal 0121 6808 |h | Jump_Zero 0x12a 0122 e402 | | Load 0x2,0x2 0123 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 0125 e403 | | Load 0x2,0x3 0126 e404 | | Load 0x2,0x4 0127 e004 | | Load 0x0,0x4 0128 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0129 4508 |E | Exit_Suprogram New_Top_Offset 0x8 012a e402 | | Load 0x2,0x2 012b 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 012d e403 | | Load 0x2,0x3 012e e404 | | Load 0x2,0x4 012f e004 | | Load 0x0,0x4 0130 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0131 00da | | Load_Top At_Offset_2 0132 e001 | | Load 0x0,0x1 0133 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0134 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 014b | K | .CONST 0x014b ; Address of begin 0139 019d | | .CONST 0x019d ; 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 026b | k| Action Push_String_Extended,0x26b ; "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 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 014e 0092 026a | j| Action Push_String_Extended,0x26a ; "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 026c | l| Action Push_String_Extended,0x26c ; "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 026d | m| Action Push_String_Extended,0x26d ; ", 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 0263 | c| Action Push_String_Extended,0x263 ; ", 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 0264 | d| Action Push_String_Extended,0x264 ; ", 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 0265 | e| Action Push_String_Extended,0x265 ; ", 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 0266 | f| Action Push_String_Extended,0x266 ; "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 0267 | g| Action Push_String_Extended,0x267 ; "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 00da | | Load_Top At_Offset_2 0191 6803 |h | Jump_Zero 0x195 0192 e002 | | Load 0x0,0x2 0193 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0194 0257 | W | Execute Discrete,Raise 0195 e402 | | Load 0x2,0x2 0196 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 0198 e403 | | Load 0x2,0x3 0199 e404 | | Load 0x2,0x4 019a e004 | | Load 0x0,0x4 019b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 019c 450a |E | Exit_Suprogram New_Top_Offset 0xa 019d TRAP_0138: 019d e002 | | Load 0x0,0x2 019e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 019f 010f | | Execute Exception,Equal 01a0 6808 |h | Jump_Zero 0x1a9 01a1 e402 | | Load 0x2,0x2 01a2 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 01a4 e403 | | Load 0x2,0x3 01a5 e404 | | Load 0x2,0x4 01a6 e004 | | Load 0x0,0x4 01a7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a8 450a |E | Exit_Suprogram New_Top_Offset 0xa 01a9 e402 | | Load 0x2,0x2 01aa 0092 025f | _| Action Push_String_Extended,0x25f ; "Rcf_Cmvc." 01ac e403 | | Load 0x2,0x3 01ad e404 | | Load 0x2,0x4 01ae e004 | | Load 0x0,0x4 01af 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b0 00da | | Load_Top At_Offset_2 01b1 e001 | | Load 0x0,0x1 01b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b3 450a |E | Exit_Suprogram New_Top_Offset 0xa 01b4 0000 0000 | | .BLANK 0000[0x4] 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 026e | n| Action Push_String_Extended,0x26e ; "<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 026f | o| Action Push_String_Extended,0x26f ; ".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 e404 | | Load 0x2,0x4 0208 6803 |h | Jump_Zero 0x20c 0209 e002 | | Load 0x0,0x2 020a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 020b 0257 | W | Execute Discrete,Raise 020c e5f9 | | Load 0x2,-0x7 020d e5fa | | Load 0x2,-0x6 020e e5fb | | Load 0x2,-0x5 020f e5fc | | Load 0x2,-0x4 0210 e5fd | | Load 0x2,-0x3 0211 e5fe | | Load 0x2,-0x2 0212 e5ff | | Load 0x2,-0x1 0213 e00b | | Load 0x0,0xb 0214 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0215 e405 | | Load 0x2,0x5 0216 e001 | | Load 0x0,0x1 0217 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0218 e002 | | Load 0x0,0x2 0219 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021a e402 | | Load 0x2,0x2 021b e5fc | | Load 0x2,-0x4 021c e5fd | | Load 0x2,-0x3 021d e602 | | Load 0x3,0x2 021e e009 | | Load 0x0,0x9 021f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0220 c404 | | Store 0x2,0x4 0221 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0222 0000 0000 | | .BLANK 0000[0x6] 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 e404 | | Load 0x2,0x4 0242 6803 |h | Jump_Zero 0x246 0243 e002 | | Load 0x0,0x2 0244 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0245 0257 | W | Execute Discrete,Raise 0246 e5f7 | | Load 0x2,-0x9 0247 e5f8 | | Load 0x2,-0x8 0248 e5f9 | | Load 0x2,-0x7 0249 e5fa | | Load 0x2,-0x6 024a e5fb | | Load 0x2,-0x5 024b e5fc | | Load 0x2,-0x4 024c e5fd | | Load 0x2,-0x3 024d e5fe | | Load 0x2,-0x2 024e e5ff | | Load 0x2,-0x1 024f e00b | | Load 0x0,0xb 0250 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0251 e405 | | Load 0x2,0x5 0252 e001 | | Load 0x0,0x1 0253 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0254 e002 | | Load 0x0,0x2 0255 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0256 e402 | | Load 0x2,0x2 0257 e5fa | | Load 0x2,-0x6 0258 e5fb | | Load 0x2,-0x5 0259 e602 | | Load 0x3,0x2 025a e009 | | Load 0x0,0x9 025b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 025c c404 | | Store 0x2,0x4 025d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025e ; -------------------------------------------------------------------------------------- 025e ; STRING TABLE 025e ; -------------------------------------------------------------------------------------- 025e 0026 | & | .STRTAB 0x0026->0x0271 ; "Accept_Changes" 025f 0032 | 2 | .STRTAB 0x0032->0x0278 ; "Rcf_Cmvc." 0260 0039 | 9 | .STRTAB 0x0039->0x027c ; "Destination" 0261 0042 | B | .STRTAB 0x0042->0x0282 ; "source" 0262 0046 | F | .STRTAB 0x0046->0x0285 ; "allow_demotion => " 0263 0056 | V | .STRTAB 0x0056->0x028e ; ", remake_demoted_units => " 0264 006e | n | .STRTAB 0x006e->0x029b ; ", goal => " 0265 0076 | v | .STRTAB 0x0076->0x02a0 ; ", comments" 0266 007e | ~ | .STRTAB 0x007e->0x02a5 ; "work_order" 0267 0086 | | .STRTAB 0x0086->0x02aa ; "response" 0268 008c | | .STRTAB 0x008c->0x02ae ; "<LATEST>" 0269 0092 | | .STRTAB 0x0092->0x02b2 ; "Abandon_Reservation" 026a 00a3 | | .STRTAB 0x00a3->0x02bb ; "what_object" 026b 00ac | | .STRTAB 0x00ac->0x02c1 ; "Revert" 026c 00b0 | | .STRTAB 0x00b0->0x02c4 ; "to_generation => " 026d 00bf | | .STRTAB 0x00bf->0x02cc ; ", allow_demotion => " 026e 00d1 | | .STRTAB 0x00d1->0x02d6 ; "<QUIET>" 026f 00d6 | | .STRTAB 0x00d6->0x02da ; ".units.?'c(text)" 0270 00e4 | | .STREND 0x00e4->0x02e2 0271 4163 6365 |Acce| .STRTAB_STRINGS 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug Table 02e8 ; -------------------------------------------------------------------------------------- 02e8 0004 000c | | .DEBUG4 0x0004,0x000c,0x169b,0x0000,0x0001,0x0000 02ee 01d7 e015 | | .XXX[0x6c] 02f0 181c e5fd | | 02f2 027f 6835 | h5| 02f4 4801 00d9 |H | 02f6 e404 01d7 | | 02f8 e015 1818 | | 02fa a406 00d8 | | 02fc e404 01d7 | | 02fe e015 1816 | | 0300 4612 7827 |F x'| 0302 7826 7820 |x&x | 0304 780f 7823 |x x#| 0306 7822 7821 |x"x!| 0308 7820 781f |x x | 030a 781e 780a |x x | 030c 781c 7808 |x x | 030e 781a 7819 |x x | 0310 7805 7817 |x x | 0312 7816 7815 |x x | 0314 8407 7813 | x | 0316 e406 e005 | | 0318 1b14 1811 | | 031a e005 1b14 | | 031c 183c e403 | < | 031e e402 01d6 | | 0320 e403 0a01 | | 0322 c403 7805 | x | 0324 e406 e012 | | 0326 182a 7001 | *p | 0328 8408 00c8 | | 032a 3fc1 00ce |? | 032c 4801 e403 |H | 032e 0aff e402 | | 0330 01cf e005 | | 0332 1b14 1b13 | | 0334 01c6 4403 | D | 0336 0000 0000 | | 0338 114d 0004 | M | 033a 0007 e015 | | 033c 1825 e015 | % | 033e 1825 e5fe | % | 0340 e013 1817 | | 0342 e016 1813 | | 0344 4801 00d9 |H | 0346 01d7 0007 | | 0348 4802 00da |H | 034a 01d7 029f | | 034c 1833 00cf | 3 | 034e e016 1819 | | 0350 01d9 0263 | c| 0352 7003 8407 |p | 0354 00c8 3ffd | ? | 0356 00ce e403 | | 0358 a5fc 4504 | E | 035a 0000 0000 | | .BLANK 0000[0x6] 0360 116c 0004 | l | .XXX[0x14] 0362 0002 e402 | | 0364 e5fe 4801 | H | 0366 e402 4800 | H | 0368 e5fe e5ff | | 036a 8236 8238 | 6 8| 036c e402 e22a | *| 036e 181d e5ff | | 0370 00d9 822f | /| 0372 00cb 4402 | D | 0374 0000 0000 | | .BLANK 0000[0x4] 0378 117f 0004 | | .XXX[0x88] 037a 0002 e402 | | 037c e5fe e5ff | | 037e 8238 e402 | 8 | 0380 e22a 181d | * | 0382 00d8 00cb | | 0384 4402 0000 |D | 0386 0000 0000 | | 0388 1195 0004 | | 038a 0002 e402 | | 038c e5fe e5fd | | 038e 4801 e402 |H | 0390 e5fe e5fd | | 0392 e5ff 823a | :| 0394 823d e402 | = | 0396 e22a 181d | * | 0398 e5ff 00d9 | | 039a 822f 00cb | / | 039c 4403 0000 |D | 039e 0000 0000 | | 03a0 11a8 0004 | | 03a2 0002 e402 | | 03a4 e5fe e5fd | | 03a6 e5ff 823d | =| 03a8 e402 e22a | *| 03aa 181d 00d8 | | 03ac 00cb 4403 | D | 03ae 0000 0000 | | 03b0 11bc 0004 | | 03b2 0002 e404 | | 03b4 e402 01d7 | | 03b6 e005 1b16 | | 03b8 185f e005 | _ | 03ba 1b16 1827 | '| 03bc 00cf e405 | | 03be 0a01 c405 | | 03c0 e405 e402 | | 03c2 01dc 027d | }| 03c4 7010 4800 |p H | 03c6 e405 e402 | | 03c8 01d7 e005 | | 03ca 1b16 185f | _| 03cc e005 1b16 | | 03ce 1827 00db | ' | 03d0 e017 1821 | !| 03d2 6802 00c9 |h | 03d4 7fe8 4501 | E | 03d6 0000 0000 | | 03d8 11eb 0004 | | 03da 0002 4801 | H | 03dc e405 e404 | | 03de 0272 e005 | r | 03e0 1b14 1b13 | | 03e2 035b 0337 | [ 7| 03e4 e404 e405 | | 03e6 0aff e402 | | 03e8 01cf 00d9 | | 03ea 01d4 e40a | | 03ec e410 e5fe | | 03ee e405 e404 | | 03f0 0272 e005 | r | 03f2 1b14 1b14 | | 03f4 1c08 e602 | | 03f6 00d9 00d8 | | 03f8 2503 00da |% | 03fa 01da 00da | | 03fc 01da 00da | | 03fe 027f 7001 | p |