|
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 0210 | | .CONST 0x0210 ; 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 007e | ~ | .CONST 0x007e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0030 | 0 | .CONST 0x0030 ; Number of locals 000b INIT_0008: 000b 00bf | | Action Accept_Activation 000c 4801 |H | Short_Literal 0x1 000d 0275 | u | Execute Discrete,Unary_Minus 000e e001 | | Load 0x0,0x1 000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0010 011e | | Execute Any,Convert 0011 0092 01fb | | Action Push_String_Extended,0x1fb ; "Target_key is not registered" 0013 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call 0015 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call 0017 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call 0019 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 001b 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 001d 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call 001f 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call 0021 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 0023 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 0025 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call 0027 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 0029 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 002b 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call 002d 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 002f 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 0031 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call 0033 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 0035 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 0037 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 0039 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 003b 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 003d 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 003f 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 0041 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 0043 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call 0045 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0047 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 0049 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 004b 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 004d 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 004f 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0051 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0053 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 0055 e002 | | Load 0x0,0x2 0056 e003 | | Load 0x0,0x3 0057 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0058 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0059 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 005a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 005b 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0061 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0062 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0063 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0064 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0065 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0066 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0067 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0068 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0069 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 006a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 006b 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 006c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 006d 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 006e 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 006f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0070 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0071 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0072 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0073 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0074 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0075 e004 | | Load 0x0,0x4 0076 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0077 e005 | | Load 0x0,0x5 0078 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0079 1b20 | | Execute Package,Field_Read,Field_Number 0x20 007a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007b 0387 | | Declare_Variable Package 007c 00d8 | | Load_Top At_Offset_0 007d 020f | | Execute Module,Activate 007e BODY_0008: 007e 00bc | | Action Signal_Activated 007f 00bb | | Action Signal_Completion 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0085 | | .CONST 0x0085 ; Address of begin 0081 0087 | | .CONST 0x0087 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0085 BODY_0080: 0085 8402 | | Call 0x2,0x2 0086 0831 | 1 | Execute_Immediate Raise,0x31 0087 TRAP_0080: 0087 010e | | Execute Exception,Is_Constraint_Error 0088 6802 |h | Jump_Zero 0x8b 0089 4800 |H | Short_Literal 0x0 008a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008b 0100 | | Execute Exception,Raise 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e006 | | Load 0x0,0x6 0094 180e | | Execute Package,Field_Execute,Field_Number 0xe 0095 4807 |H | Short_Literal 0x7 0096 e20e | | Load 0x1,0xe 0097 e007 | | Load 0x0,0x7 0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0099 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 00a4 820f | | Call 0x1,0xf 00a5 7001 |p | Jump_Nonzero 0xa7 00a6 8210 | | Call 0x1,0x10 00a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac e008 | | Load 0x0,0x8 00ad 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ae 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 e008 | | Load 0x0,0x8 00b5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4800 |H | Short_Literal 0x0 00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 e008 | | Load 0x0,0x8 00c5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e008 | | Load 0x0,0x8 00cd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ce 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 e008 | | Load 0x0,0x8 00d5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00d6 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 00dc e008 | | Load 0x0,0x8 00dd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00de 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 e008 | | Load 0x0,0x8 00e5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00e6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec e008 | | Load 0x0,0x8 00ed 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00ee 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 e008 | | Load 0x0,0x8 00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f6 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc e008 | | Load 0x0,0x8 00fd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00fe 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e008 | | Load 0x0,0x8 0105 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0106 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c e008 | | Load 0x0,0x8 010d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 010e 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 e008 | | Load 0x0,0x8 0115 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0116 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c e008 | | Load 0x0,0x8 011d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 011e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e008 | | Load 0x0,0x8 0125 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0126 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c e008 | | Load 0x0,0x8 012d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 012e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 e008 | | Load 0x0,0x8 0135 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0136 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00db | | Load_Top At_Offset_3 013c 00db | | Load_Top At_Offset_3 013d e008 | | Load 0x0,0x8 013e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 013f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00db | | Load_Top At_Offset_3 014c 00db | | Load_Top At_Offset_3 014d e008 | | Load 0x0,0x8 014e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 014f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0150 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c 00db | | Load_Top At_Offset_3 015d e008 | | Load 0x0,0x8 015e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 015f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0160 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00db | | Load_Top At_Offset_3 016c 00db | | Load_Top At_Offset_3 016d e008 | | Load 0x0,0x8 016e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 016f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0170 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00db | | Load_Top At_Offset_3 017c 00db | | Load_Top At_Offset_3 017d e008 | | Load 0x0,0x8 017e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 017f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0180 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0181 0000 0000 | | .BLANK 0000[0x7] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00db | | Load_Top At_Offset_3 018c 00db | | Load_Top At_Offset_3 018d e008 | | Load 0x0,0x8 018e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 018f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0190 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00db | | Load_Top At_Offset_3 019c 00db | | Load_Top At_Offset_3 019d e008 | | Load 0x0,0x8 019e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 019f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00db | | Load_Top At_Offset_3 01ac 00db | | Load_Top At_Offset_3 01ad e008 | | Load 0x0,0x8 01ae 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01af 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00db | | Load_Top At_Offset_3 01bc 00db | | Load_Top At_Offset_3 01bd e008 | | Load 0x0,0x8 01be 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01bf 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 01c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c1 0000 0000 | | .BLANK 0000[0x7] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00db | | Load_Top At_Offset_3 01cc 00db | | Load_Top At_Offset_3 01cd e008 | | Load 0x0,0x8 01ce 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01cf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00db | | Load_Top At_Offset_3 01dc 00db | | Load_Top At_Offset_3 01dd e008 | | Load 0x0,0x8 01de 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01df 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4803 |H | Short_Literal 0x3 01ec 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f6 | | .CONST 0x01f6 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e5ff | | Load 0x2,-0x1 01f4 e009 | | Load 0x0,0x9 01f5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01f6 BODY_01f0: 01f6 00d8 | | Load_Top At_Offset_0 01f7 e00a | | Load 0x0,0xa 01f8 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f9 00cb | | Action Pop_Block_With_Result 01fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fb ; -------------------------------------------------------------------------------------- 01fb ; STRING TABLE 01fb ; -------------------------------------------------------------------------------------- 01fb 0004 | | .STRTAB 0x0004->0x01fd ; "Target_key is not registered" 01fc 001e | | .STREND 0x001e->0x020b 01fd 5461 7267 |Targ| .STRTAB_STRINGS 020b 0000 0000 | | .BLANK 0000[0x5] 0210 ; -------------------------------------------------------------------------------------- 0210 ; Debug Table 0210 ; -------------------------------------------------------------------------------------- 0210 0004 000d | | .DEBUG4 0x0004,0x000d,0xa5f3,0x0000,0x0001,0x0000 0216 0145 c500 | E | .XXX[0xa] 0218 0000 0000 | | 021a 0250 6e80 | Pn | 021c 1083 4000 | @ | 021e 012b 0780 | + | 0220 0000 0000 | | .BLANK 0000[0x4] 0224 1083 4000 | @ | .XXX[0x96] 0226 002b a440 | + @| 0228 0000 00a1 | | 022a d9b8 90a0 | | 022c 0093 dba1 | | 022e d9b8 90a0 | | 0230 0093 8581 | | 0232 dced 90a0 | | 0234 0017 8fa0 | | 0236 0000 0000 | | 0238 0094 39c1 | 9 | 023a dced 90a0 | | 023c 0017 17b0 | | 023e 0000 0000 | | 0240 0094 41c1 | A | 0242 dce6 d0a0 | | 0244 001b 0550 | P| 0246 0000 0000 | | 0248 0094 49c1 | I | 024a dce6 d0a0 | | 024c 001a 8d60 | `| 024e 0000 0000 | | 0250 0094 51c1 | Q | 0252 dd02 50a0 | P | 0254 001e 8940 | @| 0256 0000 0000 | | 0258 0094 59c1 | Y | 025a dd02 50a0 | P | 025c 001d 9960 | `| 025e 0000 0000 | | 0260 0094 61c0 | a | 0262 0420 d000 | | 0264 004a c1e0 | J | 0266 0000 0000 | | 0268 0094 69c0 | i | 026a 0420 d000 | | 026c 0051 7140 | Qq@| 026e 0000 0000 | | 0270 0094 71c0 | q | 0272 0420 d000 | | 0274 0059 f8c0 | Y | 0276 0000 0000 | | 0278 0094 79c0 | y | 027a 0420 d000 | | 027c 0031 a0c0 | 1 | 027e 0000 0000 | | 0280 0094 81c0 | | 0282 0420 d000 | | 0284 0038 5020 | 8P | 0286 0000 0000 | | 0288 0094 89c0 | | 028a 0420 d000 | | 028c 003e 1900 | > | 028e 0000 0000 | | 0290 0094 91c0 | | 0292 0420 d000 | | 0294 0044 c860 | D `| 0296 0000 0000 | | 0298 0094 99c0 | | 029a 0420 d000 | | 029c 0060 4060 | `@`| 029e 0000 0000 | | 02a0 0094 a1c0 | | 02a2 0420 d000 | | 02a4 005d fb50 | ] P| 02a6 0000 0000 | | 02a8 0000 0001 | | 02aa dd70 d0a0 | p | 02ac 02ae 7690 | v | 02ae 0000 0000 | | 02b0 0094 31c0 | 1 | 02b2 0000 0000 | | 02b4 00c4 c308 | | 02b6 ee76 c850 | v P| 02b8 000b c7d0 | | 02ba 0000 0000 | | .BLANK 0000[0x4] 02be ee76 c850 | v P| .XXX[0x74] 02c0 000b 8bd8 | | 02c2 0000 0000 | | 02c4 004a 5ae8 | JZ | 02c6 ee73 6850 | shP| 02c8 000d 82a8 | | 02ca 0000 0000 | | 02cc 004a 5ee8 | J^ | 02ce ee73 6850 | shP| 02d0 000d 46b0 | F | 02d2 0000 0000 | | 02d4 004a 62e8 | Jb | 02d6 ee81 2850 | (P| 02d8 000f 44a0 | D | 02da 0000 0000 | | 02dc 004a 66e8 | Jf | 02de ee81 2850 | (P| 02e0 000e ccb0 | | 02e2 0000 0000 | | 02e4 004a 6ae8 | Jj | 02e6 0210 6800 | h | 02e8 0025 60f0 | %` | 02ea 0000 0000 | | 02ec 004a 6ee8 | Jn | 02ee 0210 6800 | h | 02f0 0028 b8a0 | ( | 02f2 0000 0000 | | 02f4 004a 72e8 | Jr | 02f6 0210 6800 | h | 02f8 002c fc60 | , `| 02fa 0000 0000 | | 02fc 004a 76e8 | Jv | 02fe 0210 6800 | h | 0300 0018 d060 | `| 0302 0000 0000 | | 0304 004a 7ae8 | Jz | 0306 0210 6800 | h | 0308 001c 2810 | ( | 030a 0000 0000 | | 030c 004a 7ee8 | J~ | 030e 0210 6800 | h | 0310 001f 0c80 | | 0312 0000 0000 | | 0314 004a 82e8 | J | 0316 0210 6800 | h | 0318 0022 6430 | "d0| 031a 0000 0000 | | 031c 004a 86e8 | J | 031e 0210 6800 | h | 0320 0030 2030 | 0 0| 0322 0000 0000 | | 0324 004a 8ae8 | J | 0326 0210 6800 | h | 0328 002e fda8 | . | 032a 0000 0000 | | 032c 004a 8ee8 | J | 032e ee81 2850 | (P| 0330 0008 9300 | | 0332 0000 0000 | | .BLANK 0000[0x4] 0336 ee81 2850 | (P| .XXX[0x4] 0338 0008 9300 | | 033a 0000 0000 | | .BLANK 0000[0x4] 033e ee81 2850 | (P| .XXX[0xa] 0340 000d 0398 | | 0342 0000 0024 | $| 0344 3b37 1214 |;7 | 0346 0012 a6ba | | 0348 0000 0000 | | .BLANK 0000[0x4] 034c 3ba0 4a14 |; J | .XXX[0x4] 034e 0002 24c0 | $ | 0350 0000 0000 | | .BLANK 0000[0x4] 0354 3bae 1a14 |; | .XXX[0x8] 0356 0055 ccf6 | U | 0358 0000 0000 | | 035a 0012 a97e | ~| 035c 0000 0000 | | .BLANK 0000[0x4] 0360 1dd0 250a | % | .XXX[0x4] 0362 0001 1260 | `| 0364 0000 0000 | | .BLANK 0000[0x4] 0368 1dd0 250a | % | .XXX[0x4] 036a 0000 fd4a | J| 036c 0000 0000 | | .BLANK 0000[0x4] 0370 1dd0 250a | % | .XXX[0x4] 0372 0000 fd4a | J| 0374 0000 0000 | | .BLANK 0000[0x4] 0378 1dd0 250a | % | .XXX[0x7] 037a 0000 ff18 | | 037c 0000 0006 | | 037e 8000 | | 037f 0000 0000 | | .BLANK 0000[0x7] 0386 0774 0942 | t B| .XXX[0x48] 0388 8000 3f52 | ?R| 038a 8000 0000 | | 038c 0000 0000 | | 038e 0774 0942 | t B| 0390 8000 3f52 | ?R| 0392 8000 0000 | | 0394 0000 0000 | | 0396 0774 0942 | t B| 0398 8000 3f52 | ?R| 039a 8000 0000 | | 039c 0000 0000 | | 039e 0775 c342 | u B| 03a0 800d a618 | | 03a2 c000 0000 | | 03a4 0002 5658 | VX| 03a6 8000 0000 | | 03a8 0000 0000 | | 03aa 03ba e1a1 | | 03ac 4006 d30c |@ | 03ae 6000 0000 |` | 03b0 0001 2b1c | + | 03b2 4000 0000 |@ | 03b4 0000 0000 | | 03b6 01dd 0250 | P| 03b8 a000 0dc8 | | 03ba e000 0000 | | 03bc 0000 0000 | | 03be 01dd 70d0 | p | 03c0 a003 6986 | i | 03c2 3000 0000 |0 | 03c4 0000 95b6 | | 03c6 4000 0000 |@ | 03c8 0000 0000 | | 03ca 08ee 8128 | (| 03cc 5000 0893 |P | 03ce 0000 0000 | | .BLANK 0000[0x4] 03d2 00ee 8128 | (| .XXX[0x4] 03d4 5000 0893 |P | 03d6 0000 0000 | | .BLANK 0000[0x4] 03da 00ee 8128 | (| .XXX[0x4] 03dc 5000 0893 |P | 03de 0000 0000 | | .BLANK 0000[0x4] 03e2 00ee b868 | h| .XXX[0x5] 03e4 5001 5733 |P W3| 03e6 d800 | | 03e7 0000 0000 | | .BLANK 0000[0x6] 03ed 8687 5c77 | \w| .XXX[0x13] 03ef 5c34 2800 |\4( | 03f1 abaa 6400 | d | 03f3 0000 0000 | | 03f5 2572 9400 |%r | 03f7 0000 0000 | | 03f9 0000 003b | ;| 03fb 9db2 1400 | | 03fd 01b4 4000 | @ | 03ff 0000 | |