|
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_0a7cf5
└─⟦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 0228 | ( | .CONST 0x0228 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 00e1 | | Load_Encached Boolean_Cache 000c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 000d e00f | | Load 0x0,0xf 000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000f 02c7 | | Declare_Variable Any 0010 00d8 | | Load_Top At_Offset_0 0011 1c00 | | Execute_Immediate Run_Utility,0x0 0012 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0014 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0016 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0018 029e 00bb | | Declare_Subprogram INIT_00b8,For_Call,Unelaborated 001a 029e 0143 | C| Declare_Subprogram INIT_0140,For_Call,Unelaborated 001c e00f | | Load 0x0,0xf 001d 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28 001e 00c6 | | Action Check_Subprogram_Elaborated 001f 00e1 | | Load_Encached Boolean_Cache 0020 4807 |H | Short_Literal 0x7 0021 4805 |H | Short_Literal 0x5 0022 0099 | | Action Reference_Dynamic 0023 4808 |H | Short_Literal 0x8 0024 4805 |H | Short_Literal 0x5 0025 0099 | | Action Reference_Dynamic 0026 e019 | | Load 0x0,0x19 0027 e01a | | Load 0x0,0x1a 0028 480e |H | Short_Literal 0xe 0029 0007 | | Action Break_Optional 002a 4807 |H | Short_Literal 0x7 002b 4805 |H | Short_Literal 0x5 002c 0099 | | Action Reference_Dynamic 002d 00c7 | | Action Elaborate_Subprogram 002e 4808 |H | Short_Literal 0x8 002f 4805 |H | Short_Literal 0x5 0030 0099 | | Action Reference_Dynamic 0031 00c7 | | Action Elaborate_Subprogram 0032 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0034 BODY_0008: 0034 ebff | | Load 0x5,-0x1 0035 e015 | | Load 0x0,0x15 0036 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0037 ca03 | | Store 0x5,0x3 0038 ea03 | | Load 0x5,0x3 0039 e01b | | Load 0x0,0x1b 003a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 003b 8a05 | | Call 0x5,0x5 003c ea03 | | Load 0x5,0x3 003d e00f | | Load 0x0,0xf 003e 180f | | Execute Package,Field_Execute,Field_Number 0xf 003f 7001 |p | Jump_Nonzero 0x41 0040 8a0f | | Call 0x5,0xf 0041 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 004d BODY_0048: 004d 00db | | Load_Top At_Offset_3 004e e00f | | Load 0x0,0xf 004f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0050 7001 |p | Jump_Nonzero 0x52 0051 8c02 | | Call 0x6,0x2 0052 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0069 | i | .CONST 0x0069 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0004 | | .CONST 0x0004 ; Number of locals 005b INIT_0058: 005b e00f | | Load 0x0,0xf 005c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005d 02c7 | | Declare_Variable Any 005e 00db | | Load_Top At_Offset_3 005f e01b | | Load 0x0,0x1b 0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0061 ac02 | | Store_Unchecked 0x6,0x2 0062 e00f | | Load 0x0,0xf 0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0064 02c7 | | Declare_Variable Any 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0069 BODY_0058: 0069 00cf | | Action Mark_Auxiliary 006a 7810 |x | Jump 0x7b 006b 00db | | Load_Top At_Offset_3 006c e00f | | Load 0x0,0xf 006d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 006e e01b | | Load 0x0,0x1b 006f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0070 4801 |H | Short_Literal 0x1 0071 4802 |H | Short_Literal 0x2 0072 0262 | b | Execute Discrete,In_Range 0073 7002 |p | Jump_Nonzero 0x76 0074 7800 |x | Jump 0x75 0075 8c04 | | Call 0x6,0x4 0076 00db | | Load_Top At_Offset_3 0077 e00f | | Load 0x0,0xf 0078 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0079 cc02 | | Store 0x6,0x2 007a 00c9 | | Action Pop_Auxiliary_Loop 007b 00db | | Load_Top At_Offset_3 007c e00f | | Load 0x0,0xf 007d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 007e 6fec |o | Jump_Zero 0x6b 007f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0091 | | .CONST 0x0091 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 e00f | | Load 0x0,0xf 0084 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0085 02c7 | | Declare_Variable Any 0086 00db | | Load_Top At_Offset_3 0087 e01c | | Load 0x0,0x1c 0088 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0089 ac02 | | Store_Unchecked 0x6,0x2 008a e00f | | Load 0x0,0xf 008b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008c 02c7 | | Declare_Variable Any 008d 00d8 | | Load_Top At_Offset_0 008e 1c00 | | Execute_Immediate Run_Utility,0x0 008f e01c | | Load 0x0,0x1c 0090 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0091 BODY_0080: 0091 00cf | | Action Mark_Auxiliary 0092 7820 |x | Jump 0xb3 0093 00db | | Load_Top At_Offset_3 0094 e00f | | Load 0x0,0xf 0095 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0096 cc03 | | Store 0x6,0x3 0097 00da | | Load_Top At_Offset_2 0098 e01c | | Load 0x0,0x1c 0099 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 009b 00d9 | | Load_Top At_Offset_1 009c 6803 |h | Jump_Zero 0xa0 009d 00d9 | | Load_Top At_Offset_1 009e 0f04 | | Execute_Immediate Equal,0x4 009f 680e |h | Jump_Zero 0xae 00a0 4801 |H | Short_Literal 0x1 00a1 00db | | Load_Top At_Offset_3 00a2 e00f | | Load 0x0,0xf 00a3 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 00a4 cc03 | | Store 0x6,0x3 00a5 00da | | Load_Top At_Offset_2 00a6 e018 | | Load 0x0,0x18 00a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a8 0f0c | | Execute_Immediate Equal,0xc 00a9 6804 |h | Jump_Zero 0xae 00aa 00da | | Load_Top At_Offset_2 00ab e018 | | Load 0x0,0x18 00ac 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00ad 8a04 | | Call 0x5,0x4 00ae 00db | | Load_Top At_Offset_3 00af e00f | | Load 0x0,0xf 00b0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00b1 cc02 | | Store 0x6,0x2 00b2 00c9 | | Action Pop_Auxiliary_Loop 00b3 00db | | Load_Top At_Offset_3 00b4 e00f | | Load 0x0,0xf 00b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00b6 6fdc |o | Jump_Zero 0x93 00b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c6 | | .CONST 0x00c6 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0005 | | .CONST 0x0005 ; Number of locals 00bb INIT_00b8: 00bb e018 | | Load 0x0,0x18 00bc 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00bd e00f | | Load 0x0,0xf 00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bf 02c7 | | Declare_Variable Any 00c0 00d8 | | Load_Top At_Offset_0 00c1 1c00 | | Execute_Immediate Run_Utility,0x0 00c2 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 00c4 029f 020b | | Declare_Subprogram INIT_0208,For_Call 00c6 BODY_00b8: 00c6 4800 |H | Short_Literal 0x0 00c7 adfd | | Store_Unchecked 0x6,-0x3 00c8 edff | | Load 0x6,-0x1 00c9 e00f | | Load 0x0,0xf 00ca 180f | | Execute Package,Field_Execute,Field_Number 0xf 00cb 706c |pl | Jump_Nonzero 0x138 00cc edff | | Load 0x6,-0x1 00cd e018 | | Load 0x0,0x18 00ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00cf ac02 | | Store_Unchecked 0x6,0x2 00d0 00db | | Load_Top At_Offset_3 00d1 4626 |F& | Jump_Case 0x27 00d2 785d |x] | Jump 0x130 ; case 0x0 00d3 7825 |x% | Jump 0xf9 ; case 0x1 00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2 00d5 7823 |x# | Jump 0xf9 ; case 0x3 00d6 7822 |x" | Jump 0xf9 ; case 0x4 00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5 00d8 7820 |x | Jump 0xf9 ; case 0x6 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7 00da 7832 |x2 | Jump 0x10d ; case 0x8 00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9 00dc 7830 |x0 | Jump 0x10d ; case 0xa 00dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb 00de 782e |x. | Jump 0x10d ; case 0xc 00df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xd 00e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe 00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf 00e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10 00e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11 00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x12 00e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13 00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x14 00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x15 00e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x16 00e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x17 00ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x18 00eb 7821 |x! | Jump 0x10d ; case 0x19 00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1a 00ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1b 00ee 780a |x | Jump 0xf9 ; case 0x1c 00ef 7809 |x | Jump 0xf9 ; case 0x1d 00f0 7808 |x | Jump 0xf9 ; case 0x1e 00f1 7807 |x | Jump 0xf9 ; case 0x1f 00f2 7806 |x | Jump 0xf9 ; case 0x20 00f3 7805 |x | Jump 0xf9 ; case 0x21 00f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x22 00f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x23 00f6 7802 |x | Jump 0xf9 ; case 0x24 00f7 7801 |x | Jump 0xf9 ; case 0x25 00f8 7800 |x | Jump 0xf9 ; case 0x26 00f9 edff | | Load 0x6,-0x1 00fa e01d | | Load 0x0,0x1d 00fb 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00fc 0b02 | | Execute_Immediate Case_Compare,0x2 00fd 7008 |p | Jump_Nonzero 0x106 00fe 0f01 | | Execute_Immediate Equal,0x1 00ff 7001 |p | Jump_Nonzero 0x101 0100 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0101 edff | | Load 0x6,-0x1 0102 e01d | | Load 0x0,0x1d 0103 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0104 8a06 | | Call 0x5,0x6 0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0106 00d1 | | Pop_Control Pop_Count_1 0107 edff | | Load 0x6,-0x1 0108 e01d | | Load 0x0,0x1d 0109 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 010a 8a04 | | Call 0x5,0x4 010b 8c05 | | Call 0x6,0x5 010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010d edff | | Load 0x6,-0x1 010e e018 | | Load 0x0,0x18 010f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0110 cc03 | | Store 0x6,0x3 0111 00da | | Load_Top At_Offset_2 0112 e00f | | Load 0x0,0xf 0113 180f | | Execute Package,Field_Execute,Field_Number 0xf 0114 7014 |p | Jump_Nonzero 0x129 0115 00da | | Load_Top At_Offset_2 0116 e01b | | Load 0x0,0x1b 0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0118 8a05 | | Call 0x5,0x5 0119 ea02 | | Load 0x5,0x2 011a 4801 |H | Short_Literal 0x1 011b ec03 | | Load 0x6,0x3 011c ea09 | | Load 0x5,0x9 011d 480a |H | Short_Literal 0xa 011e 4805 |H | Short_Literal 0x5 011f 0099 | | Action Reference_Dynamic 0120 480b |H | Short_Literal 0xb 0121 4805 |H | Short_Literal 0x5 0122 0099 | | Action Reference_Dynamic 0123 480c |H | Short_Literal 0xc 0124 4805 |H | Short_Literal 0x5 0125 0099 | | Action Reference_Dynamic 0126 e00f | | Load 0x0,0xf 0127 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0128 ca02 | | Store 0x5,0x2 0129 edff | | Load 0x6,-0x1 012a e018 | | Load 0x0,0x18 012b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012c 0e08 | | Execute_Immediate Not_Equal,0x8 012d 6801 |h | Jump_Zero 0x12f 012e 8c04 | | Call 0x6,0x4 012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0130 edff | | Load 0x6,-0x1 0131 e018 | | Load 0x0,0x18 0132 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0133 6804 |h | Jump_Zero 0x138 0134 edff | | Load 0x6,-0x1 0135 e018 | | Load 0x0,0x18 0136 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0137 8a06 | | Call 0x5,0x6 0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4800 |H | Short_Literal 0x0 0144 adfd | | Store_Unchecked 0x6,-0x3 0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0156 | V | .CONST 0x0156 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e00f | | Load 0x0,0xf 014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014d 02c7 | | Declare_Variable Any 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 ea03 | | Load 0x5,0x3 0151 e018 | | Load 0x0,0x18 0152 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0153 e018 | | Load 0x0,0x18 0154 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0155 03f1 | | Declare_Variable Discrete,With_Value 0156 BODY_0148: 0156 00d8 | | Load_Top At_Offset_0 0157 4626 |F& | Jump_Case 0x27 0158 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0 0159 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1 015a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2 015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3 015c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 015d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5 015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6 015f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x7 0160 781e |x | Jump 0x17f ; case 0x8 0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x9 0162 781c |x | Jump 0x17f ; case 0xa 0163 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb 0164 781a |x | Jump 0x17f ; case 0xc 0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xd 0166 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xe 0167 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf 0168 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10 0169 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x11 016a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x12 016b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x13 016c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x14 016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x15 016e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x16 016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x17 0170 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x18 0171 780d |x | Jump 0x17f ; case 0x19 0172 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1a 0173 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1b 0174 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1c 0175 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1d 0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1e 0177 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1f 0178 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x20 0179 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x21 017a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x22 017b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x23 017c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x24 017d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x25 017e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x26 017f ea03 | | Load 0x5,0x3 0180 e018 | | Load 0x0,0x18 0181 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0182 cc02 | | Store 0x6,0x2 0183 00d9 | | Load_Top At_Offset_1 0184 e00f | | Load 0x0,0xf 0185 180f | | Execute Package,Field_Execute,Field_Number 0xf 0186 7004 |p | Jump_Nonzero 0x18b 0187 00d9 | | Load_Top At_Offset_1 0188 e01b | | Load 0x0,0x1b 0189 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018a 8a05 | | Call 0x5,0x5 018b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0196 | | .CONST 0x0196 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 edff | | Load 0x6,-0x1 0194 e018 | | Load 0x0,0x18 0195 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0196 BODY_0190: 0196 ebfe | | Load 0x5,-0x2 0197 e00f | | Load 0x0,0xf 0198 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0199 cbfe | | Store 0x5,-0x2 019a 00cf | | Action Mark_Auxiliary 019b 780f |x | Jump 0x1ab 019c ebfe | | Load 0x5,-0x2 019d e00f | | Load 0x0,0xf 019e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 019f e00f | | Load 0x0,0xf 01a0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01a1 00da | | Load_Top At_Offset_2 01a2 01df | | Execute Vector,Equal 01a3 6802 |h | Jump_Zero 0x1a6 01a4 00cc | | Action Pop_Block 01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a6 ebfe | | Load 0x5,-0x2 01a7 e00f | | Load 0x0,0xf 01a8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01a9 cbfe | | Store 0x5,-0x2 01aa 00c9 | | Action Pop_Auxiliary_Loop 01ab ebfe | | Load 0x5,-0x2 01ac e00f | | Load 0x0,0xf 01ad 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01ae 6fed |o | Jump_Zero 0x19c 01af 00ce | | Action Pop_Auxiliary 01b0 ebfe | | Load 0x5,-0x2 01b1 edff | | Load 0x6,-0x1 01b2 e00f | | Load 0x0,0xf 01b3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01b4 cbfe | | Store 0x5,-0x2 01b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b6 0000 0000 | | .XXX[0x2] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c4 | | .CONST 0x01c4 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e00f | | Load 0x0,0xf 01bc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01bd 02c7 | | Declare_Variable Any 01be ec02 | | Load 0x6,0x2 01bf e00f | | Load 0x0,0xf 01c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01c1 e01b | | Load 0x0,0x1b 01c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01c3 ae02 | | Store_Unchecked 0x7,0x2 01c4 BODY_01b8: 01c4 00cf | | Action Mark_Auxiliary 01c5 7814 |x | Jump 0x1da 01c6 4801 |H | Short_Literal 0x1 01c7 00da | | Load_Top At_Offset_2 01c8 e00f | | Load 0x0,0xf 01c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ca e00f | | Load 0x0,0xf 01cb 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 01cc cc03 | | Store 0x6,0x3 01cd ec03 | | Load 0x6,0x3 01ce e00f | | Load 0x0,0xf 01cf 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d0 7004 |p | Jump_Nonzero 0x1d5 01d1 ec03 | | Load 0x6,0x3 01d2 e018 | | Load 0x0,0x18 01d3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01d4 8a04 | | Call 0x5,0x4 01d5 00d9 | | Load_Top At_Offset_1 01d6 e00f | | Load 0x0,0xf 01d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01d8 ce02 | | Store 0x7,0x2 01d9 00c9 | | Action Pop_Auxiliary_Loop 01da 00d9 | | Load_Top At_Offset_1 01db e00f | | Load 0x0,0xf 01dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01dd 6fe8 |o | Jump_Zero 0x1c6 01de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ef | | .CONST 0x01ef ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 e00f | | Load 0x0,0xf 01e4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01e5 02c7 | | Declare_Variable Any 01e6 edff | | Load 0x6,-0x1 01e7 e018 | | Load 0x0,0x18 01e8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01e9 ae02 | | Store_Unchecked 0x7,0x2 01ea e00f | | Load 0x0,0xf 01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ec 02c7 | | Declare_Variable Any 01ed 00d8 | | Load_Top At_Offset_0 01ee 1c00 | | Execute_Immediate Run_Utility,0x0 01ef BODY_01e0: 01ef 00cf | | Action Mark_Auxiliary 01f0 7811 |x | Jump 0x202 01f1 00da | | Load_Top At_Offset_2 01f2 e00f | | Load 0x0,0xf 01f3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01f4 ce03 | | Store 0x7,0x3 01f5 00d9 | | Load_Top At_Offset_1 01f6 e018 | | Load 0x0,0x18 01f7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01f8 6804 |h | Jump_Zero 0x1fd 01f9 00d9 | | Load_Top At_Offset_1 01fa e018 | | Load 0x0,0x18 01fb 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01fc 8a06 | | Call 0x5,0x6 01fd 00da | | Load_Top At_Offset_2 01fe e00f | | Load 0x0,0xf 01ff 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0200 ce02 | | Store 0x7,0x2 0201 00c9 | | Action Pop_Auxiliary_Loop 0202 00da | | Load_Top At_Offset_2 0203 e00f | | Load 0x0,0xf 0204 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0205 6feb |o | Jump_Zero 0x1f1 0206 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0207 0000 | | .XXX[0x1] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0213 | | .CONST 0x0213 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0002 | | .CONST 0x0002 ; Number of locals 020b INIT_0208: 020b e00f | | Load 0x0,0xf 020c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 020d 02c7 | | Declare_Variable Any 020e 4800 |H | Short_Literal 0x0 020f edff | | Load 0x6,-0x1 0210 e01d | | Load 0x0,0x1d 0211 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0212 ae02 | | Store_Unchecked 0x7,0x2 0213 BODY_0208: 0213 00cf | | Action Mark_Auxiliary 0214 780b |x | Jump 0x220 0215 00d9 | | Load_Top At_Offset_1 0216 e00f | | Load 0x0,0xf 0217 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0218 e01d | | Load 0x0,0x1d 0219 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 021a 8a06 | | Call 0x5,0x6 021b 00d9 | | Load_Top At_Offset_1 021c e00f | | Load 0x0,0xf 021d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 021e ce02 | | Store 0x7,0x2 021f 00c9 | | Action Pop_Auxiliary_Loop 0220 00d9 | | Load_Top At_Offset_1 0221 e00f | | Load 0x0,0xf 0222 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0223 6ff1 |o | Jump_Zero 0x215 0224 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug Table 0228 ; -------------------------------------------------------------------------------------- 0228 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcc7,0x0000,0x0001,0x0000 022e fa1e 2e88 | . | .XXX[0x1d2] 0230 6a1e 3822 |j 8"| 0232 656c 45cb |elE | 0234 9d0f 41c6 | A | 0236 6022 5289 |`"R | 0238 84ab 9517 | | 023a c5a8 69cb | i | 023c c9c1 9ca8 | | 023e 79c8 c61d |y | 0240 b4aa b420 | | 0242 b21e 8a88 | | 0244 adcb f569 | i| 0246 d4a9 aa19 | | 0248 061f a40a | | 024a 796c b9cb |yl | 024c ee18 de1c | | 024e 2110 e61f |! | 0250 b219 9014 | | 0252 f21e d288 | | 0254 fa1e 0caa | | 0256 28a9 121f |( | 0258 7c23 40aa ||#@ | 025a f28b d822 | "| 025c 54ab c423 |T #| 025e 5289 261c |R & | 0260 4513 edcd |E | 0262 19c9 a94f | O| 0264 5214 4911 |R I | 0266 c68b 81c5 | | 0268 35c8 b110 |5 | 026a 1426 a4a9 | & | 026c 49c9 7a57 |I zW| 026e 468a 6a84 |F j | 0270 c16d 6e1d | mn | 0272 61ca ccaa |a | 0274 d4a8 6c24 | l$| 0276 f511 fd6d | m| 0278 7e1c b68a |~ | 027a 0d6d e96a | m j| 027c 156f c80b | o | 027e 0ca9 2113 | ! | 0280 928b 20aa | | 0282 316e d9cf |1n | 0284 9289 b9c8 | | 0286 b14c f68a | L | 0288 4d6e 696d |Mnim| 028a da1f c68a | | 028c 716f 60a9 |qo` | 028e ea1f aacd | | 0290 1911 36d6 | 6 | 0292 816f 88ab | o | 0294 cca6 01c8 | | 0296 1a8f d209 | | 0298 3e89 a5af |> | 029a b8a8 028e | | 029c 22bd b825 |" %| 029e c026 2e1d | &. | 02a0 9406 c56e | n| 02a2 35c9 b825 |5 %| 02a4 668b 6d0f |f m | 02a6 f8aa 0c24 | $| 02a8 5c1a e96d |\ m| 02aa 0a8e 59c8 | Y | 02ac 60ad c56e |` n| 02ae fd6e a1c8 | n | 02b0 74ad 0e8d |t | 02b2 8d10 c21c | | 02b4 3cae 861c |< | 02b6 88ac 50ac | P | 02b8 c68e a28a | | 02ba ac26 6513 | &e | 02bc 3ad7 5426 |: T&| 02be c5c8 8caf | | 02c0 6ad6 ba1f |j | 02c2 1d6c ce8e | l | 02c4 1d10 acac | | 02c6 86d7 72d4 | r | 02c8 b68f 75d2 | u | 02ca e61e edc9 | | 02cc 068f 9d6e | n| 02ce f9ca 0e8a | | 02d0 fe1f 5a1f | Z | 02d2 b828 fcaf | ( | 02d4 bd6f b14f | o O| 02d6 c2d5 34af | 4 | 02d8 bc27 29c9 | ') | 02da 2293 f1d7 |" | 02dc ed6f f425 | o %| 02de 5e91 3a90 |^ : | 02e0 5029 5cac |P)\ | 02e2 0d70 2604 | p& | 02e4 e274 4d70 | tMp| 02e6 40b2 d16f |@ o| 02e8 3c91 8292 |< | 02ea c2bf 6e1c | n | 02ec 12da dd10 | | 02ee 8c2b 8dca | + | 02f0 debc 2ed9 | . | 02f2 c0ac 9d18 | | 02f4 5d73 7d11 |]s} | 02f6 dcaf bdc8 | | 02f8 7173 a8b2 |qs | 02fa b41b f1cc | | 02fc 8173 9cb0 | s | 02fe 6e91 8c2a |n *| 0300 0cae a1af | | 0302 c61d b68b | | 0304 556f e9c8 |Uo | 0306 1517 de1e | | 0308 b16f f5b8 | o | 030a a691 ee01 | | 030c 6c2a 58af |l*X | 030e fa1c be91 | | 0310 1973 1289 | s | 0312 4501 2153 |E !S| 0314 921d cc28 | (| 0316 fd70 de93 | p | 0318 3a89 0d70 |: p| 031a 3220 e173 |2 s| 031c f510 3e20 | > | 031e 5221 1116 |R! | 0320 2828 6dcd |((m | 0322 1293 b56f | o| 0324 4495 9691 |D | 0326 8553 34af | S4 | 0328 04ac 7220 | r | 032a 6222 0291 |b" | 032c 31d4 e804 |1 | 032e a5cd c690 | | 0330 fada b828 | (| 0332 b5cd 3ad9 | : | 0334 2ad8 7115 |* q | 0336 e690 f514 | | 0338 fadb 70ac | p | 033a b221 5ad9 | !Z | 033c 2adb 8cac |* | 033e c222 1690 | " | 0340 65cf a4ac |e | 0342 d222 2690 | "& | 0344 5621 3021 |V!0!| 0346 e970 15b2 | p | 0348 2570 e573 |%p s| 034a 9c29 21ce | )! | 034c 0570 75cf | pu | 034e ecad 0620 | | 0350 8ac3 9428 | (| 0352 4025 8116 |@% | 0354 0a05 7115 | q | 0356 da93 2828 | ((| 0358 28b0 242d |( $-| 035a 4221 9cad |B! | 035c 4515 75cf |E u | 035e ecf1 3223 | 2#| 0360 e829 5d16 | )] | 0362 ae93 e56c | l| 0364 6a20 942c |j ,| 0366 e2c0 88b1 | | 0368 6a21 adce |j! | 036a d291 f914 | | 036c a8b1 7e21 | ~!| 036e 7221 e430 |r! 0| 0370 bcb1 d1cf | | 0372 1291 d9ce | | 0374 b621 a571 | ! q| 0376 aa21 e9cf | ! | 0378 1a93 5292 | R | 037a 4ed9 5c2e |N \.| 037c f971 ca23 | q #| 037e 3691 18b3 |6 | 0380 2115 fd15 |! | 0382 24b2 1dce |$ | 0384 7515 ea23 |u #| 0386 b692 242d | $-| 0388 c42e 8917 | . | 038a ae0a 2516 | % | 038c 49ce 08b5 |I | 038e 3627 3972 |6'9r| 0390 96d9 8c2e | .| 0392 4d17 6572 |M er| 0394 65cd a0b2 |e | 0396 d516 7ed9 | ~ | 0398 b0b2 79ce | y | 039a 3dd1 fcb3 |= | 039c c096 f916 | | 039e f433 ce92 | 3 | 03a0 beda f42d | -| 03a2 e4b2 6222 | b"| 03a4 a1ce b622 | "| 03a6 00b2 adcf | | 03a8 fa92 d172 | r| 03aa 20b3 4116 | A | 03ac 2cb0 0e96 |, | 03ae 906f 1d17 | o | 03b0 12da 48b2 | H | 03b2 aa22 54b0 | "T | 03b4 75d5 c8b2 |u | 03b6 60b0 1d74 |` t| 03b8 3a94 1a8a |: | 03ba 74b2 550a |t U | 03bc d620 744e | tN| 03be 8c2e 8cb0 | . | 03c0 5e97 5026 |^ P&| 03c2 ea23 d82e | # .| 03c4 a8b3 ad16 | | 03c6 441a fe22 |D "| 03c8 bcb0 6176 | av| 03ca ad6b 8d6b | k k| 03cc 7edb 45ce |~ E | 03ce e0b1 a830 | 0| 03d0 8177 2a23 | w*#| 03d2 5dcf 9117 |] | 03d4 65cd c977 |e w| 03d6 6dcc 011b |m | 03d8 5d71 a833 |]q 3| 03da 4e23 d6d8 |N# | 03dc c577 0a8d | w | 03de a833 6222 | 3b"| 03e0 9407 48b2 | H | 03e2 e024 e977 | $ w| 03e4 b9cf e1cb | | 03e6 60b1 7e23 |` ~#| 03e8 7623 74b1 |v#t | 03ea f109 1575 | u| 03ec 3697 74b3 |6 t | 03ee 90b3 be1f | | 03f0 ae23 b21f | # | 03f2 b620 f42a | *| 03f4 187f f1cd | | 03f6 2c31 6a94 |,1j | 03f8 6a1e ba21 |j !| 03fa 4833 d621 |H3 !| 03fc a296 8e7b | {| 03fe e8b2 e4b3 | |