|
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_1884fe
└─⟦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 0248 | H | .CONST 0x0248 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0016 | | .CONST 0x0016 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 0093 0023 | #| push_full_address INIT_0020 000e 00f5 | | Load_Encached Unused21 000f 037e | ~ | Declare_Type Task,Defined,Visible 0010 036e | n | Declare_Variable Task,Visible 0011 00bf | | Action Accept_Activation 0012 e001 | | Load 0x0,0x1 0013 4801 |H | Short_Literal 0x1 0014 00da | | Load_Top At_Offset_2 0015 020e | | Execute Module,Augment_Imports 0016 BODY_0008: 0016 00be | | Action Activate_Tasks 0017 00bc | | Action Signal_Activated 0018 00bb | | Action Signal_Completion 0019 0000 0000 | | .BLANK 0000[0x7] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 006c | l | .CONST 0x006c ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0021 | ! | .CONST 0x0021 ; Number of locals 0023 INIT_0020: 0023 4800 |H | Short_Literal 0x0 0024 02cb | | Declare_Variable Entry 0025 4800 |H | Short_Literal 0x0 0026 02cb | | Declare_Variable Entry 0027 4801 |H | Short_Literal 0x1 0028 02cb | | Declare_Variable Entry 0029 4801 |H | Short_Literal 0x1 002a 02cb | | Declare_Variable Entry 002b 4800 |H | Short_Literal 0x0 002c 02cb | | Declare_Variable Entry 002d 4801 |H | Short_Literal 0x1 002e 02cb | | Declare_Variable Entry 002f 4801 |H | Short_Literal 0x1 0030 02cb | | Declare_Variable Entry 0031 4800 |H | Short_Literal 0x0 0032 02cb | | Declare_Variable Entry 0033 00bf | | Action Accept_Activation 0034 e001 | | Load 0x0,0x1 0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0036 02c7 | | Declare_Variable Any 0037 00d8 | | Load_Top At_Offset_0 0038 1c00 | | Execute_Immediate Run_Utility,0x0 0039 00e3 | | Load_Encached Natural_Cache 003a 00e3 | | Load_Encached Natural_Cache 003b 00e3 | | Load_Encached Natural_Cache 003c 00e3 | | Load_Encached Natural_Cache 003d 00e4 | | Load_Encached Positive_Cache 003e 00e4 | | Load_Encached Positive_Cache 003f e001 | | Load 0x0,0x1 0040 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0041 e001 | | Load 0x0,0x1 0042 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0043 00e4 | | Load_Encached Positive_Cache 0044 03e9 | | Declare_Variable Discrete,Duplicate 0045 4801 |H | Short_Literal 0x1 0046 484e |HN | Short_Literal 0x4e 0047 00e9 | | Load_Encached String_Cache 0048 035b | [ | Declare_Type Array,Constrained 0049 0337 | 7 | Declare_Variable Array 004a 00d8 | | Load_Top At_Offset_0 004b 0335 | 5 | Declare_Variable Array,Duplicate 004c 00cd | | Action Spare6_Action 004d 484e |HN | Short_Literal 0x4e 004e 4801 |H | Short_Literal 0x1 004f 482d |H- | Short_Literal 0x2d 0050 00d9 | | Load_Top At_Offset_1 0051 e221 | ! | Load 0x1,0x21 0052 01d6 | | Execute Vector,Field_Write 0053 3ffb |? | Loop_Increasing 0x4f 0054 00d9 | | Load_Top At_Offset_1 0055 01d4 | | Execute Vector,Structure_Write 0056 4814 4810 |H H | Declare_Variable Select 0x000, 0x008, 0058 4811 4815 |H H | [0x000]: 0x000 = 0x0000, 005a 4813 481a |H H | [0x00d]: 0x041 = 0x0208, 005c 4812 4825 |H H%| [0x00e]: 0x040 = 0x0200, 005e 4810 482e |H H.| [0x00f]: 0x038 = 0x01c0, 0060 480f 4838 |H H8| [0x010]: 0x02e = 0x0170, 0062 480e 4840 |H H@| [0x012]: 0x025 = 0x0128, 0064 480d 4841 |H HA| [0x013]: 0x01a = 0x00d0, 0066 4800 4800 |H H | [0x011]: 0x015 = 0x00a8, 0068 4800 4808 |H H | [0x014]: 0x010 = 0x0080 006a 02cf | | 006b 00bc | | Action Signal_Activated 006c BODY_0020: 006c 00cf | | Action Mark_Auxiliary 006d 00d9 | | Load_Top At_Offset_1 006e 013f | ? | Execute Select,Rendezvous 006f 4608 |F | Jump_Case 0x9 0070 7808 |x | Jump 0x79 ; case 0x0 0071 7807 |x | Jump 0x79 ; case 0x1 0072 7806 |x | Jump 0x79 ; case 0x2 0073 7805 |x | Jump 0x79 ; case 0x3 0074 7804 |x | Jump 0x79 ; case 0x4 0075 7803 |x | Jump 0x79 ; case 0x5 0076 7804 |x | Jump 0x7b ; case 0x6 0077 7801 |x | Jump 0x79 ; case 0x7 0078 7802 |x | Jump 0x7b ; case 0x8 0079 00c9 | | Action Pop_Auxiliary_Loop 007a 7ff2 | | Jump 0x6d 007b 00ce | | Action Pop_Auxiliary 007c 00bb | | Action Signal_Completion 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; See instruction 0x02cf at 0x56, index=0x14 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e219 | | Load 0x1,0x19 0084 0e01 | | Execute_Immediate Not_Equal,0x1 0085 681c |h | Jump_Zero 0xa2 0086 4800 |H | Short_Literal 0x0 0087 e219 | | Load 0x1,0x19 0088 0aff | | Execute_Immediate Plus,-0x1 0089 00d8 | | Load_Top At_Offset_0 008a 00e4 | | Load_Encached Positive_Cache 008b 0260 | ` | Execute Discrete,In_Type 008c 7001 |p | Jump_Nonzero 0x8e 008d 0801 | | Execute_Immediate Raise,0x1 008e e218 | | Load 0x1,0x18 008f 00d8 | | Load_Top At_Offset_0 0090 00e4 | | Load_Encached Positive_Cache 0091 0260 | ` | Execute Discrete,In_Type 0092 7001 |p | Jump_Nonzero 0x94 0093 0801 | | Execute_Immediate Raise,0x1 0094 e215 | | Load 0x1,0x15 0095 e001 | | Load 0x0,0x1 0096 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0097 4800 |H | Short_Literal 0x0 0098 e001 | | Load 0x0,0x1 0099 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 009a 4820 |H | Short_Literal 0x20 009b e215 | | Load 0x1,0x15 009c e001 | | Load 0x0,0x1 009d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 009e e219 | | Load 0x1,0x19 009f 0aff | | Execute_Immediate Plus,-0x1 00a0 c219 | | Store 0x1,0x19 00a1 4100 |A | End_Rendezvous 0x0 00a2 e215 | | Load 0x1,0x15 00a3 e001 | | Load 0x0,0x1 00a4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00a5 4100 |A | End_Rendezvous 0x0 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; See instruction 0x02cf at 0x56, index=0x11 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 e217 | | Load 0x1,0x17 00ac 0e01 | | Execute_Immediate Not_Equal,0x1 00ad 681c |h | Jump_Zero 0xca 00ae 4800 |H | Short_Literal 0x0 00af e217 | | Load 0x1,0x17 00b0 0aff | | Execute_Immediate Plus,-0x1 00b1 00d8 | | Load_Top At_Offset_0 00b2 00e4 | | Load_Encached Positive_Cache 00b3 0260 | ` | Execute Discrete,In_Type 00b4 7001 |p | Jump_Nonzero 0xb6 00b5 0801 | | Execute_Immediate Raise,0x1 00b6 e216 | | Load 0x1,0x16 00b7 00d8 | | Load_Top At_Offset_0 00b8 00e4 | | Load_Encached Positive_Cache 00b9 0260 | ` | Execute Discrete,In_Type 00ba 7001 |p | Jump_Nonzero 0xbc 00bb 0801 | | Execute_Immediate Raise,0x1 00bc e215 | | Load 0x1,0x15 00bd e001 | | Load 0x0,0x1 00be 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00bf 4800 |H | Short_Literal 0x0 00c0 e001 | | Load 0x0,0x1 00c1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00c2 4820 |H | Short_Literal 0x20 00c3 e215 | | Load 0x1,0x15 00c4 e001 | | Load 0x0,0x1 00c5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00c6 e217 | | Load 0x1,0x17 00c7 0aff | | Execute_Immediate Plus,-0x1 00c8 c217 | | Store 0x1,0x17 00c9 4100 |A | End_Rendezvous 0x0 00ca e215 | | Load 0x1,0x15 00cb e001 | | Load 0x0,0x1 00cc 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00cd 4100 |A | End_Rendezvous 0x0 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; See instruction 0x02cf at 0x56, index=0x13 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 00db | | Load_Top At_Offset_3 00d4 0f0d | | Execute_Immediate Equal,0xd 00d5 6831 |h1 | Jump_Zero 0x107 00d6 4801 |H | Short_Literal 0x1 00d7 a219 | | Store_Unchecked 0x1,0x19 00d8 4800 |H | Short_Literal 0x0 00d9 e219 | | Load 0x1,0x19 00da 00d8 | | Load_Top At_Offset_0 00db 00e4 | | Load_Encached Positive_Cache 00dc 0260 | ` | Execute Discrete,In_Type 00dd 7001 |p | Jump_Nonzero 0xdf 00de 0801 | | Execute_Immediate Raise,0x1 00df e21b | | Load 0x1,0x1b 00e0 e215 | | Load 0x1,0x15 00e1 e001 | | Load 0x0,0x1 00e2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00e3 e215 | | Load 0x1,0x15 00e4 e001 | | Load 0x0,0x1 00e5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00e6 e215 | | Load 0x1,0x15 00e7 e001 | | Load 0x0,0x1 00e8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00e9 e218 | | Load 0x1,0x18 00ea e21d | | Load 0x1,0x1d 00eb 0aff | | Execute_Immediate Plus,-0x1 00ec 027f | | Execute Discrete,Equal 00ed 6807 |h | Jump_Zero 0xf5 00ee e218 | | Load 0x1,0x18 00ef 0a01 | | Execute_Immediate Plus,0x1 00f0 c218 | | Store 0x1,0x18 00f1 e21c | | Load 0x1,0x1c 00f2 0a01 | | Execute_Immediate Plus,0x1 00f3 c21b | | Store 0x1,0x1b 00f4 4100 |A | End_Rendezvous 0x0 00f5 e218 | | Load 0x1,0x18 00f6 e21d | | Load 0x1,0x1d 00f7 027f | | Execute Discrete,Equal 00f8 6807 |h | Jump_Zero 0x100 00f9 e21c | | Load 0x1,0x1c 00fa 0a01 | | Execute_Immediate Plus,0x1 00fb c218 | | Store 0x1,0x18 00fc e218 | | Load 0x1,0x18 00fd 0a01 | | Execute_Immediate Plus,0x1 00fe c21b | | Store 0x1,0x1b 00ff 4100 |A | End_Rendezvous 0x0 0100 e218 | | Load 0x1,0x18 0101 0a01 | | Execute_Immediate Plus,0x1 0102 c218 | | Store 0x1,0x18 0103 e218 | | Load 0x1,0x18 0104 0a01 | | Execute_Immediate Plus,0x1 0105 c21b | | Store 0x1,0x1b 0106 4100 |A | End_Rendezvous 0x0 0107 4800 |H | Short_Literal 0x0 0108 e219 | | Load 0x1,0x19 0109 00d8 | | Load_Top At_Offset_0 010a 00e4 | | Load_Encached Positive_Cache 010b 0260 | ` | Execute Discrete,In_Type 010c 7001 |p | Jump_Nonzero 0x10e 010d 0801 | | Execute_Immediate Raise,0x1 010e e218 | | Load 0x1,0x18 010f 00d8 | | Load_Top At_Offset_0 0110 00e4 | | Load_Encached Positive_Cache 0111 0260 | ` | Execute Discrete,In_Type 0112 7001 |p | Jump_Nonzero 0x114 0113 0801 | | Execute_Immediate Raise,0x1 0114 e215 | | Load 0x1,0x15 0115 e001 | | Load 0x0,0x1 0116 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0117 4800 |H | Short_Literal 0x0 0118 e001 | | Load 0x0,0x1 0119 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 011a e5fe | | Load 0x2,-0x2 011b e215 | | Load 0x1,0x15 011c e001 | | Load 0x0,0x1 011d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 011e e219 | | Load 0x1,0x19 011f 0a01 | | Execute_Immediate Plus,0x1 0120 c219 | | Store 0x1,0x19 0121 4100 |A | End_Rendezvous 0x0 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; See instruction 0x02cf at 0x56, index=0x12 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 4801 |H | Short_Literal 0x1 012c a219 | | Store_Unchecked 0x1,0x19 012d 4800 |H | Short_Literal 0x0 012e 4801 |H | Short_Literal 0x1 012f e21b | | Load 0x1,0x1b 0130 e215 | | Load 0x1,0x15 0131 e001 | | Load 0x0,0x1 0132 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0133 e215 | | Load 0x1,0x15 0134 e001 | | Load 0x0,0x1 0135 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0136 e215 | | Load 0x1,0x15 0137 e001 | | Load 0x0,0x1 0138 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0139 4800 |H | Short_Literal 0x0 013a 4801 |H | Short_Literal 0x1 013b e218 | | Load 0x1,0x18 013c 00d8 | | Load_Top At_Offset_0 013d 00e4 | | Load_Encached Positive_Cache 013e 0260 | ` | Execute Discrete,In_Type 013f 7001 |p | Jump_Nonzero 0x141 0140 0801 | | Execute_Immediate Raise,0x1 0141 e215 | | Load 0x1,0x15 0142 e001 | | Load 0x0,0x1 0143 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0144 4800 |H | Short_Literal 0x0 0145 e001 | | Load 0x0,0x1 0146 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0147 e5fe | | Load 0x2,-0x2 0148 e215 | | Load 0x1,0x15 0149 e001 | | Load 0x0,0x1 014a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 014b e218 | | Load 0x1,0x18 014c e21d | | Load 0x1,0x1d 014d 0aff | | Execute_Immediate Plus,-0x1 014e 027f | | Execute Discrete,Equal 014f 6807 |h | Jump_Zero 0x157 0150 e218 | | Load 0x1,0x18 0151 0a01 | | Execute_Immediate Plus,0x1 0152 c218 | | Store 0x1,0x18 0153 e21c | | Load 0x1,0x1c 0154 0a01 | | Execute_Immediate Plus,0x1 0155 c21b | | Store 0x1,0x1b 0156 4100 |A | End_Rendezvous 0x0 0157 e218 | | Load 0x1,0x18 0158 e21d | | Load 0x1,0x1d 0159 027f | | Execute Discrete,Equal 015a 6807 |h | Jump_Zero 0x162 015b e21c | | Load 0x1,0x1c 015c 0a01 | | Execute_Immediate Plus,0x1 015d c218 | | Store 0x1,0x18 015e e218 | | Load 0x1,0x18 015f 0a01 | | Execute_Immediate Plus,0x1 0160 c21b | | Store 0x1,0x1b 0161 4100 |A | End_Rendezvous 0x0 0162 e218 | | Load 0x1,0x18 0163 0a01 | | Execute_Immediate Plus,0x1 0164 c218 | | Store 0x1,0x18 0165 e218 | | Load 0x1,0x18 0166 0a01 | | Execute_Immediate Plus,0x1 0167 c21b | | Store 0x1,0x1b 0168 4100 |A | End_Rendezvous 0x0 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; See instruction 0x02cf at 0x56, index=0x10 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00db | | Load_Top At_Offset_3 0174 0f0d | | Execute_Immediate Equal,0xd 0175 682f |h/ | Jump_Zero 0x1a5 0176 4801 |H | Short_Literal 0x1 0177 a217 | | Store_Unchecked 0x1,0x17 0178 4800 |H | Short_Literal 0x0 0179 e217 | | Load 0x1,0x17 017a 00d8 | | Load_Top At_Offset_0 017b 00e4 | | Load_Encached Positive_Cache 017c 0260 | ` | Execute Discrete,In_Type 017d 7001 |p | Jump_Nonzero 0x17f 017e 0801 | | Execute_Immediate Raise,0x1 017f e21a | | Load 0x1,0x1a 0180 e215 | | Load 0x1,0x15 0181 e001 | | Load 0x0,0x1 0182 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0183 e215 | | Load 0x1,0x15 0184 e001 | | Load 0x0,0x1 0185 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0186 e215 | | Load 0x1,0x15 0187 e001 | | Load 0x0,0x1 0188 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0189 e216 | | Load 0x1,0x16 018a e21c | | Load 0x1,0x1c 018b 0afe | | Execute_Immediate Plus,-0x2 018c 027f | | Execute Discrete,Equal 018d 6806 |h | Jump_Zero 0x194 018e e216 | | Load 0x1,0x16 018f 0a01 | | Execute_Immediate Plus,0x1 0190 c216 | | Store 0x1,0x16 0191 4801 |H | Short_Literal 0x1 0192 a21a | | Store_Unchecked 0x1,0x1a 0193 4100 |A | End_Rendezvous 0x0 0194 e216 | | Load 0x1,0x16 0195 e21c | | Load 0x1,0x1c 0196 0aff | | Execute_Immediate Plus,-0x1 0197 027f | | Execute Discrete,Equal 0198 6805 |h | Jump_Zero 0x19e 0199 4801 |H | Short_Literal 0x1 019a a216 | | Store_Unchecked 0x1,0x16 019b 4802 |H | Short_Literal 0x2 019c a21a | | Store_Unchecked 0x1,0x1a 019d 4100 |A | End_Rendezvous 0x0 019e e216 | | Load 0x1,0x16 019f 0a01 | | Execute_Immediate Plus,0x1 01a0 c216 | | Store 0x1,0x16 01a1 e216 | | Load 0x1,0x16 01a2 0a01 | | Execute_Immediate Plus,0x1 01a3 c21a | | Store 0x1,0x1a 01a4 4100 |A | End_Rendezvous 0x0 01a5 4800 |H | Short_Literal 0x0 01a6 e217 | | Load 0x1,0x17 01a7 00d8 | | Load_Top At_Offset_0 01a8 00e4 | | Load_Encached Positive_Cache 01a9 0260 | ` | Execute Discrete,In_Type 01aa 7001 |p | Jump_Nonzero 0x1ac 01ab 0801 | | Execute_Immediate Raise,0x1 01ac e216 | | Load 0x1,0x16 01ad 00d8 | | Load_Top At_Offset_0 01ae 00e4 | | Load_Encached Positive_Cache 01af 0260 | ` | Execute Discrete,In_Type 01b0 7001 |p | Jump_Nonzero 0x1b2 01b1 0801 | | Execute_Immediate Raise,0x1 01b2 e215 | | Load 0x1,0x15 01b3 e001 | | Load 0x0,0x1 01b4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01b5 4800 |H | Short_Literal 0x0 01b6 e001 | | Load 0x0,0x1 01b7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01b8 e5fe | | Load 0x2,-0x2 01b9 e215 | | Load 0x1,0x15 01ba e001 | | Load 0x0,0x1 01bb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01bc e217 | | Load 0x1,0x17 01bd 0a01 | | Execute_Immediate Plus,0x1 01be c217 | | Store 0x1,0x17 01bf 4100 |A | End_Rendezvous 0x0 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; See instruction 0x02cf at 0x56, index=0xf 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4801 |H | Short_Literal 0x1 01c4 a217 | | Store_Unchecked 0x1,0x17 01c5 4800 |H | Short_Literal 0x0 01c6 4801 |H | Short_Literal 0x1 01c7 e21a | | Load 0x1,0x1a 01c8 e215 | | Load 0x1,0x15 01c9 e001 | | Load 0x0,0x1 01ca 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01cb e215 | | Load 0x1,0x15 01cc e001 | | Load 0x0,0x1 01cd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01ce e215 | | Load 0x1,0x15 01cf e001 | | Load 0x0,0x1 01d0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01d1 4800 |H | Short_Literal 0x0 01d2 4801 |H | Short_Literal 0x1 01d3 e216 | | Load 0x1,0x16 01d4 00d8 | | Load_Top At_Offset_0 01d5 00e4 | | Load_Encached Positive_Cache 01d6 0260 | ` | Execute Discrete,In_Type 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 0801 | | Execute_Immediate Raise,0x1 01d9 e215 | | Load 0x1,0x15 01da e001 | | Load 0x0,0x1 01db 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01dc 4800 |H | Short_Literal 0x0 01dd e001 | | Load 0x0,0x1 01de 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01df e5fe | | Load 0x2,-0x2 01e0 e215 | | Load 0x1,0x15 01e1 e001 | | Load 0x0,0x1 01e2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01e3 e216 | | Load 0x1,0x16 01e4 e21c | | Load 0x1,0x1c 01e5 0afe | | Execute_Immediate Plus,-0x2 01e6 027f | | Execute Discrete,Equal 01e7 6806 |h | Jump_Zero 0x1ee 01e8 e216 | | Load 0x1,0x16 01e9 0a01 | | Execute_Immediate Plus,0x1 01ea c216 | | Store 0x1,0x16 01eb 4801 |H | Short_Literal 0x1 01ec a21a | | Store_Unchecked 0x1,0x1a 01ed 4100 |A | End_Rendezvous 0x0 01ee e216 | | Load 0x1,0x16 01ef e21c | | Load 0x1,0x1c 01f0 0aff | | Execute_Immediate Plus,-0x1 01f1 027f | | Execute Discrete,Equal 01f2 6805 |h | Jump_Zero 0x1f8 01f3 4801 |H | Short_Literal 0x1 01f4 a216 | | Store_Unchecked 0x1,0x16 01f5 4802 |H | Short_Literal 0x2 01f6 a21a | | Store_Unchecked 0x1,0x1a 01f7 4100 |A | End_Rendezvous 0x0 01f8 e216 | | Load 0x1,0x16 01f9 0a01 | | Execute_Immediate Plus,0x1 01fa c216 | | Store 0x1,0x16 01fb e216 | | Load 0x1,0x16 01fc 0a01 | | Execute_Immediate Plus,0x1 01fd c21a | | Store 0x1,0x1a 01fe 4100 |A | End_Rendezvous 0x0 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; See instruction 0x02cf at 0x56, index=0xe 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 4100 |A | End_Rendezvous 0x0 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; See instruction 0x02cf at 0x56, index=0xd 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e215 | | Load 0x1,0x15 020c 00ea | | Load_Encached Null_String_Cache 020d 0092 023d | =| Action Push_String_Extended,0x23d ; "PHONE WINDOW" 020f 4801 |H | Short_Literal 0x1 0210 e001 | | Load 0x0,0x1 0211 180f | | Execute Package,Field_Execute,Field_Number 0xf 0212 c215 | | Store 0x1,0x15 0213 e001 | | Load 0x0,0x1 0214 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0215 e001 | | Load 0x0,0x1 0216 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0217 e215 | | Load 0x1,0x15 0218 e001 | | Load 0x0,0x1 0219 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 021a c21e | | Store 0x1,0x1e 021b c21f | | Store 0x1,0x1f 021c e21e | | Load 0x1,0x1e 021d 09ff | | Execute_Immediate Binary_Scale,-0x1 021e c21c | | Store 0x1,0x1c 021f e21e | | Load 0x1,0x1e 0220 a21d | | Store_Unchecked 0x1,0x1d 0221 4801 |H | Short_Literal 0x1 0222 a216 | | Store_Unchecked 0x1,0x16 0223 4801 |H | Short_Literal 0x1 0224 a217 | | Store_Unchecked 0x1,0x17 0225 4802 |H | Short_Literal 0x2 0226 a21a | | Store_Unchecked 0x1,0x1a 0227 e21c | | Load 0x1,0x1c 0228 0a01 | | Execute_Immediate Plus,0x1 0229 c218 | | Store 0x1,0x18 022a 4801 |H | Short_Literal 0x1 022b a219 | | Store_Unchecked 0x1,0x19 022c e218 | | Load 0x1,0x18 022d 0a01 | | Execute_Immediate Plus,0x1 022e c21b | | Store 0x1,0x1b 022f 4800 |H | Short_Literal 0x0 0230 4801 |H | Short_Literal 0x1 0231 e21c | | Load 0x1,0x1c 0232 e215 | | Load 0x1,0x15 0233 e001 | | Load 0x0,0x1 0234 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0235 4800 |H | Short_Literal 0x0 0236 e001 | | Load 0x0,0x1 0237 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0238 e220 | | Load 0x1,0x20 0239 e215 | | Load 0x1,0x15 023a e001 | | Load 0x0,0x1 023b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 023c 4100 |A | End_Rendezvous 0x0 023d ; -------------------------------------------------------------------------------------- 023d ; STRING TABLE 023d ; -------------------------------------------------------------------------------------- 023d 0004 | | .STRTAB 0x0004->0x023f ; "PHONE WINDOW" 023e 000e | | .STREND 0x000e->0x0245 023f 5048 4f4e |PHON| .STRTAB_STRINGS 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug Table 0248 ; -------------------------------------------------------------------------------------- 0248 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7158,0x0000,0x0001,0x000c 024e 000b 027e | ~| .DBG4T 0x000b,0x027e,0x8000,0x0000 0252 0012 0281 | | .DBG4T 0x0012,0x0281,0x8000,0x0000 0256 0023 0284 | # | .DBG4T 0x0023,0x0284,0x0000,0x0000 025a 0034 028e | 4 | .DBG4T 0x0034,0x028e,0x0000,0x4000 025e 0083 029f | | .DBG4T 0x0083,0x029f,0x0003,0x0000 0262 00ab 02a6 | | .DBG4T 0x00ab,0x02a6,0x0003,0x0000 0266 00d3 02ad | | .DBG4T 0x00d3,0x02ad,0x0003,0x0000 026a 012b 02be | + | .DBG4T 0x012b,0x02be,0x0003,0x0000 026e 0173 02cd | s | .DBG4T 0x0173,0x02cd,0x0003,0x0000 0272 01c3 02de | | .DBG4T 0x01c3,0x02de,0x0003,0x0000 0276 0203 0000 | | .DBG4T 0x0203,0x0000,0x0003,0x0000 027a 020b 02ed | | .DBG4T 0x020b,0x02ed,0x0003,0x0000 027e ; -------------------------------------------------------------------------------------- 027e ; Debug chain 027e ; -------------------------------------------------------------------------------------- 027e 0001 0000 | | .DBGLEN 0x0001,0x0000 0280 000b | | .DBGLNO 0x000b 0281 ; -------------------------------------------------------------------------------------- 0281 ; Debug chain 0281 ; -------------------------------------------------------------------------------------- 0281 0001 0000 | | .DBGLEN 0x0001,0x0000 0283 0012 | | .DBGLNO 0x0012 0284 ; -------------------------------------------------------------------------------------- 0284 ; Debug chain 0284 ; -------------------------------------------------------------------------------------- 0284 0008 0000 | | .DBGLEN 0x0008,0x0000 0286 0023 0025 | # %| .DBGLNO 0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031 028e ; -------------------------------------------------------------------------------------- 028e ; Debug chain 028e ; -------------------------------------------------------------------------------------- 028e 000b 0002 | | .DBGLEN 0x000b,0x0002 0290 0034 0039 | 4 9| .DBGLNO 0x0034,0x0039,0x003a,0x003b,0x003c,0x003d,0x003e,0x003f,0x0041,0x0043,0x0045,0x006d,0x0078 029d 0002 0005 | | .XXX[0x2] 029f ; -------------------------------------------------------------------------------------- 029f ; Debug chain 029f ; -------------------------------------------------------------------------------------- 029f 0000 0005 | | .DBGLEN 0x0000,0x0005 02a1 0083 0086 | | .DBGLNO 0x0083,0x0086,0x0097,0x009e,0x00a2 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 0000 0005 | | .DBGLEN 0x0000,0x0005 02a8 00ab 00ae | | .DBGLNO 0x00ab,0x00ae,0x00bf,0x00c6,0x00ca 02ad ; -------------------------------------------------------------------------------------- 02ad ; Debug chain 02ad ; -------------------------------------------------------------------------------------- 02ad 0000 000f | | .DBGLEN 0x0000,0x000f 02af 00d3 00d6 | | .DBGLNO 0x00d3,0x00d6,0x00d8,0x00e3,0x00e9,0x00ee,0x00f1,0x00f5,0x00f9,0x00fc,0x0100,0x0103,0x0107,0x0117,0x011e 02be ; -------------------------------------------------------------------------------------- 02be ; Debug chain 02be ; -------------------------------------------------------------------------------------- 02be 0000 000d | | .DBGLEN 0x0000,0x000d 02c0 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0133,0x0139,0x0144,0x014b,0x0150,0x0153,0x0157,0x015b,0x015e,0x0162,0x0165 02cd ; -------------------------------------------------------------------------------------- 02cd ; Debug chain 02cd ; -------------------------------------------------------------------------------------- 02cd 0000 000f | | .DBGLEN 0x0000,0x000f 02cf 0173 0176 | s v| .DBGLNO 0x0173,0x0176,0x0178,0x0183,0x0189,0x018e,0x0191,0x0194,0x0199,0x019b,0x019e,0x01a1,0x01a5,0x01b5,0x01bc 02de ; -------------------------------------------------------------------------------------- 02de ; Debug chain 02de ; -------------------------------------------------------------------------------------- 02de 0000 000d | | .DBGLEN 0x0000,0x000d 02e0 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01cb,0x01d1,0x01dc,0x01e3,0x01e8,0x01eb,0x01ee,0x01f3,0x01f5,0x01f8,0x01fb 02ed ; -------------------------------------------------------------------------------------- 02ed ; Debug chain 02ed ; -------------------------------------------------------------------------------------- 02ed 0000 000c | | .DBGLEN 0x0000,0x000c 02ef 020b 0213 | | .DBGLNO 0x020b,0x0213,0x021c,0x021f,0x0221,0x0223,0x0225,0x0227,0x022a,0x022c,0x022f,0x0235 02fb 0000 0000 | | .BLANK 0000[0x105]