|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06c4eb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0298 | | .CONST 0x0298 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0101 | | .CONST 0x0101 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0016 | | .CONST 0x0016 ; Number of locals 001b INIT_0018: 001b 00e1 | | Load_Encached Boolean_Cache 001c 4800 |H | Short_Literal 0x0 001d 4803 |H | Short_Literal 0x3 001e 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0020 03fd | | Declare_Type Discrete,Defined 0021 00d8 | | Load_Top At_Offset_0 0022 0266 | f | Execute Discrete,Bounds 0023 00e2 | | Load_Encached Integer_Cache 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 4801 |H | Short_Literal 0x1 0026 035d | ] | Declare_Type Array,Defined 0027 00d8 | | Load_Top At_Offset_0 0028 0337 | 7 | Declare_Variable Array 0029 00e4 | | Load_Encached Positive_Cache 002a 0266 | f | Execute Discrete,Bounds 002b 00db | | Load_Top At_Offset_3 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d 4801 |H | Short_Literal 0x1 002e 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 002f 4801 |H | Short_Literal 0x1 0030 4806 |H | Short_Literal 0x6 0031 00da | | Load_Top At_Offset_2 0032 035b | [ | Declare_Type Array,Constrained 0033 0337 | 7 | Declare_Variable Array 0034 00d8 | | Load_Top At_Offset_0 0035 0335 | 5 | Declare_Variable Array,Duplicate 0036 00cd | | Action Spare6_Action 0037 e404 | | Load 0x2,0x4 0038 0337 | 7 | Declare_Variable Array 0039 4801 |H | Short_Literal 0x1 003a 4800 |H | Short_Literal 0x0 003b 00da | | Load_Top At_Offset_2 003c 01d6 | | Execute Vector,Field_Write 003d 4fff |O | Short_Literal -0x1 003e 4801 |H | Short_Literal 0x1 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 4803 |H | Short_Literal 0x3 0042 4802 |H | Short_Literal 0x2 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 4802 |H | Short_Literal 0x2 0046 4803 |H | Short_Literal 0x3 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 e404 | | Load 0x2,0x4 004a 01c3 | | Execute Vector,Check_In_Type 004b e404 | | Load 0x2,0x4 004c 0119 | | Execute Any,Check_In_Formal_Type 004d 4801 |H | Short_Literal 0x1 004e 00da | | Load_Top At_Offset_2 004f 01d6 | | Execute Vector,Field_Write 0050 e404 | | Load 0x2,0x4 0051 0337 | 7 | Declare_Variable Array 0052 4801 |H | Short_Literal 0x1 0053 4800 |H | Short_Literal 0x0 0054 00da | | Load_Top At_Offset_2 0055 01d6 | | Execute Vector,Field_Write 0056 4fff |O | Short_Literal -0x1 0057 4801 |H | Short_Literal 0x1 0058 00da | | Load_Top At_Offset_2 0059 01d6 | | Execute Vector,Field_Write 005a 4801 |H | Short_Literal 0x1 005b 4802 |H | Short_Literal 0x2 005c 00da | | Load_Top At_Offset_2 005d 01d6 | | Execute Vector,Field_Write 005e 4801 |H | Short_Literal 0x1 005f 4803 |H | Short_Literal 0x3 0060 00da | | Load_Top At_Offset_2 0061 01d6 | | Execute Vector,Field_Write 0062 e404 | | Load 0x2,0x4 0063 01c3 | | Execute Vector,Check_In_Type 0064 e404 | | Load 0x2,0x4 0065 0119 | | Execute Any,Check_In_Formal_Type 0066 4802 |H | Short_Literal 0x2 0067 00da | | Load_Top At_Offset_2 0068 01d6 | | Execute Vector,Field_Write 0069 e404 | | Load 0x2,0x4 006a 0337 | 7 | Declare_Variable Array 006b 4802 |H | Short_Literal 0x2 006c 4800 |H | Short_Literal 0x0 006d 00da | | Load_Top At_Offset_2 006e 01d6 | | Execute Vector,Field_Write 006f 4832 |H2 | Short_Literal 0x32 0070 4801 |H | Short_Literal 0x1 0071 00da | | Load_Top At_Offset_2 0072 01d6 | | Execute Vector,Field_Write 0073 4803 |H | Short_Literal 0x3 0074 4802 |H | Short_Literal 0x2 0075 00da | | Load_Top At_Offset_2 0076 01d6 | | Execute Vector,Field_Write 0077 4803 |H | Short_Literal 0x3 0078 4803 |H | Short_Literal 0x3 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b e404 | | Load 0x2,0x4 007c 01c3 | | Execute Vector,Check_In_Type 007d e404 | | Load 0x2,0x4 007e 0119 | | Execute Any,Check_In_Formal_Type 007f 4803 |H | Short_Literal 0x3 0080 00da | | Load_Top At_Offset_2 0081 01d6 | | Execute Vector,Field_Write 0082 e404 | | Load 0x2,0x4 0083 0337 | 7 | Declare_Variable Array 0084 4802 |H | Short_Literal 0x2 0085 4800 |H | Short_Literal 0x0 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 4864 |Hd | Short_Literal 0x64 0089 4801 |H | Short_Literal 0x1 008a 00da | | Load_Top At_Offset_2 008b 01d6 | | Execute Vector,Field_Write 008c 4802 |H | Short_Literal 0x2 008d 4802 |H | Short_Literal 0x2 008e 00da | | Load_Top At_Offset_2 008f 01d6 | | Execute Vector,Field_Write 0090 4803 |H | Short_Literal 0x3 0091 4803 |H | Short_Literal 0x3 0092 00da | | Load_Top At_Offset_2 0093 01d6 | | Execute Vector,Field_Write 0094 e404 | | Load 0x2,0x4 0095 01c3 | | Execute Vector,Check_In_Type 0096 e404 | | Load 0x2,0x4 0097 0119 | | Execute Any,Check_In_Formal_Type 0098 4804 |H | Short_Literal 0x4 0099 00da | | Load_Top At_Offset_2 009a 01d6 | | Execute Vector,Field_Write 009b e404 | | Load 0x2,0x4 009c 0337 | 7 | Declare_Variable Array 009d 4803 |H | Short_Literal 0x3 009e 4800 |H | Short_Literal 0x0 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 484b |HK | Short_Literal 0x4b 00a2 4801 |H | Short_Literal 0x1 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 4803 |H | Short_Literal 0x3 00a6 4802 |H | Short_Literal 0x2 00a7 00da | | Load_Top At_Offset_2 00a8 01d6 | | Execute Vector,Field_Write 00a9 4802 |H | Short_Literal 0x2 00aa 4803 |H | Short_Literal 0x3 00ab 00da | | Load_Top At_Offset_2 00ac 01d6 | | Execute Vector,Field_Write 00ad e404 | | Load 0x2,0x4 00ae 01c3 | | Execute Vector,Check_In_Type 00af e404 | | Load 0x2,0x4 00b0 0119 | | Execute Any,Check_In_Formal_Type 00b1 4805 |H | Short_Literal 0x5 00b2 00da | | Load_Top At_Offset_2 00b3 01d6 | | Execute Vector,Field_Write 00b4 e404 | | Load 0x2,0x4 00b5 0337 | 7 | Declare_Variable Array 00b6 4803 |H | Short_Literal 0x3 00b7 4800 |H | Short_Literal 0x0 00b8 00da | | Load_Top At_Offset_2 00b9 01d6 | | Execute Vector,Field_Write 00ba 4819 |H | Short_Literal 0x19 00bb 4801 |H | Short_Literal 0x1 00bc 00da | | Load_Top At_Offset_2 00bd 01d6 | | Execute Vector,Field_Write 00be 4802 |H | Short_Literal 0x2 00bf 4802 |H | Short_Literal 0x2 00c0 00da | | Load_Top At_Offset_2 00c1 01d6 | | Execute Vector,Field_Write 00c2 4801 |H | Short_Literal 0x1 00c3 4803 |H | Short_Literal 0x3 00c4 00da | | Load_Top At_Offset_2 00c5 01d6 | | Execute Vector,Field_Write 00c6 e404 | | Load 0x2,0x4 00c7 01c3 | | Execute Vector,Check_In_Type 00c8 e404 | | Load 0x2,0x4 00c9 0119 | | Execute Any,Check_In_Formal_Type 00ca 4806 |H | Short_Literal 0x6 00cb 00da | | Load_Top At_Offset_2 00cc 01d6 | | Execute Vector,Field_Write 00cd 00d9 | | Load_Top At_Offset_1 00ce 01d4 | | Execute Vector,Structure_Write 00cf 4800 |H | Short_Literal 0x0 00d0 4806 |H | Short_Literal 0x6 00d1 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 00d3 03fd | | Declare_Type Discrete,Defined 00d4 00d8 | | Load_Top At_Offset_0 00d5 00e2 | | Load_Encached Integer_Cache 00d6 02a0 | | Declare_Subprogram Null_Subprogram 00d7 4802 |H | Short_Literal 0x2 00d8 032d | - | Declare_Type Record,Defined 00d9 e403 | | Load 0x2,0x3 00da 0266 | f | Execute Discrete,Bounds 00db 00da | | Load_Top At_Offset_2 00dc 02a0 | | Declare_Subprogram Null_Subprogram 00dd 4801 |H | Short_Literal 0x1 00de 035d | ] | Declare_Type Array,Defined 00df 00d8 | | Load_Top At_Offset_0 00e0 0337 | 7 | Declare_Variable Array 00e1 00da | | Load_Top At_Offset_2 00e2 0322 | " | Declare_Variable Record 00e3 4806 |H | Short_Literal 0x6 00e4 00d9 | | Load_Top At_Offset_1 00e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e6 4800 |H | Short_Literal 0x0 00e7 00d9 | | Load_Top At_Offset_1 00e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e9 00e4 | | Load_Encached Positive_Cache 00ea 0266 | f | Execute Discrete,Bounds 00eb e409 | | Load 0x2,0x9 00ec 02a0 | | Declare_Subprogram Null_Subprogram 00ed 4801 |H | Short_Literal 0x1 00ee 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 00ef 029f 019b | | Declare_Subprogram INIT_0198,For_Call 00f1 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 00f3 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 00f5 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 00f7 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 00f9 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 00fb 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 00fd 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 00ff 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 0101 BODY_0018: 0101 e40a | | Load 0x2,0xa 0102 0337 | 7 | Declare_Variable Array 0103 4801 |H | Short_Literal 0x1 0104 8413 | | Call 0x2,0x13 0105 4800 |H | Short_Literal 0x0 0106 00da | | Load_Top At_Offset_2 0107 01d6 | | Execute Vector,Field_Write 0108 4864 |Hd | Short_Literal 0x64 0109 840f | | Call 0x2,0xf 010a 4801 |H | Short_Literal 0x1 010b 00da | | Load_Top At_Offset_2 010c 01d6 | | Execute Vector,Field_Write 010d e40c | | Load 0x2,0xc 010e 4802 |H | Short_Literal 0x2 010f 00da | | Load_Top At_Offset_2 0110 01d6 | | Execute Vector,Field_Write 0111 e40c | | Load 0x2,0xc 0112 4803 |H | Short_Literal 0x3 0113 00da | | Load_Top At_Offset_2 0114 01d6 | | Execute Vector,Field_Write 0115 e40b | | Load 0x2,0xb 0116 01d4 | | Execute Vector,Structure_Write 0117 00cf | | Action Mark_Auxiliary 0118 e407 | | Load 0x2,0x7 0119 01d9 | | Execute Vector,Reverse_Bounds 011a 0007 | | Action Break_Optional 011b e40a | | Load 0x2,0xa 011c 0337 | 7 | Declare_Variable Array 011d 4801 |H | Short_Literal 0x1 011e 8413 | | Call 0x2,0x13 011f 4800 |H | Short_Literal 0x0 0120 00da | | Load_Top At_Offset_2 0121 01d6 | | Execute Vector,Field_Write 0122 4864 |Hd | Short_Literal 0x64 0123 840f | | Call 0x2,0xf 0124 4801 |H | Short_Literal 0x1 0125 00da | | Load_Top At_Offset_2 0126 01d6 | | Execute Vector,Field_Write 0127 e40c | | Load 0x2,0xc 0128 4802 |H | Short_Literal 0x2 0129 00da | | Load_Top At_Offset_2 012a 01d6 | | Execute Vector,Field_Write 012b e40c | | Load 0x2,0xc 012c 4803 |H | Short_Literal 0x3 012d 00da | | Load_Top At_Offset_2 012e 01d6 | | Execute Vector,Field_Write 012f e40a | | Load 0x2,0xa 0130 01c3 | | Execute Vector,Check_In_Type 0131 00d9 | | Load_Top At_Offset_1 0132 e407 | | Load 0x2,0x7 0133 01d5 | | Execute Vector,Field_Reference 0134 8416 | | Call 0x2,0x16 0135 a402 | | Store_Unchecked 0x2,0x2 0136 00d8 | | Load_Top At_Offset_0 0137 00e0 | | Load_Encached Standard_Cache 0138 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0139 0092 0261 | a| Action Push_String_Extended,0x261 ; " => " 013b 01cc | | Execute Vector,Catenate 013c e402 | | Load 0x2,0x2 013d 00e1 | | Load_Encached Boolean_Cache 013e 011c | | Execute Any,Convert_Unchecked 013f 1c01 | | Execute_Immediate Run_Utility,0x1 0140 01cc | | Execute Vector,Catenate 0141 e001 | | Load 0x0,0x1 0142 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0143 00c8 | | Action Pop_Auxiliary_Range 0144 3fd6 |? | Loop_Increasing 0x11b 0145 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0146 0000 0000 | | .XXX[0x2] 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 4607 |F | Jump_Case 0x8 014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 014d 7806 |x | Jump 0x154 ; case 0x1 014e 7809 |x | Jump 0x158 ; case 0x2 014f 780d |x | Jump 0x15d ; case 0x3 0150 7810 |x | Jump 0x161 ; case 0x4 0151 7811 |x | Jump 0x163 ; case 0x5 0152 7812 |x | Jump 0x165 ; case 0x6 0153 7815 |x | Jump 0x169 ; case 0x7 0154 00da | | Load_Top At_Offset_2 0155 0091 0256 | V| Action Push_String_Extended_Indexed,0x256 ; "CLASS" 0157 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0158 00db | | Load_Top At_Offset_3 0159 00db | | Load_Top At_Offset_3 015a 00e0 | | Load_Encached Standard_Cache 015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015d 00da | | Load_Top At_Offset_2 015e 00e0 | | Load_Encached Standard_Cache 015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0161 00db | | Load_Top At_Offset_3 0162 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0163 00db | | Load_Top At_Offset_3 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 e403 | | Load 0x2,0x3 0166 00dc | | Load_Top At_Offset_4 0167 0267 | g | Execute Discrete,Predecessor 0168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0169 e403 | | Load 0x2,0x3 016a 00dc | | Load_Top At_Offset_4 016b 0268 | h | Execute Discrete,Successor 016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 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 4607 |F | Jump_Case 0x8 0174 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0175 7806 |x | Jump 0x17c ; case 0x1 0176 7809 |x | Jump 0x180 ; case 0x2 0177 780d |x | Jump 0x185 ; case 0x3 0178 7810 |x | Jump 0x189 ; case 0x4 0179 7811 |x | Jump 0x18b ; case 0x5 017a 7812 |x | Jump 0x18d ; case 0x6 017b 7815 |x | Jump 0x191 ; case 0x7 017c 00da | | Load_Top At_Offset_2 017d 0091 025a | Z| Action Push_String_Extended_Indexed,0x25a ; "IS_EQUAL" 017f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0180 00db | | Load_Top At_Offset_3 0181 00db | | Load_Top At_Offset_3 0182 00e0 | | Load_Encached Standard_Cache 0183 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0185 00da | | Load_Top At_Offset_2 0186 00e0 | | Load_Encached Standard_Cache 0187 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0188 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0189 00db | | Load_Top At_Offset_3 018a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018b 00db | | Load_Top At_Offset_3 018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018d e408 | | Load 0x2,0x8 018e 00dc | | Load_Top At_Offset_4 018f 0267 | g | Execute Discrete,Predecessor 0190 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0191 e408 | | Load 0x2,0x8 0192 00dc | | Load_Top At_Offset_4 0193 0268 | h | Execute Discrete,Successor 0194 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 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 e409 | | Load 0x2,0x9 019c 0322 | " | Declare_Variable Record 019d 4800 |H | Short_Literal 0x0 019e 00d9 | | Load_Top At_Offset_1 019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a0 00db | | Load_Top At_Offset_3 01a1 00d9 | | Load_Top At_Offset_1 01a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a4 0000 0000 | | .BLANK 0000[0x4] 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 e409 | | Load 0x2,0x9 01ac 0322 | " | Declare_Variable Record 01ad 4801 |H | Short_Literal 0x1 01ae 00d9 | | Load_Top At_Offset_1 01af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01b0 00db | | Load_Top At_Offset_3 01b1 00d9 | | Load_Top At_Offset_1 01b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 0000 0000 | | .BLANK 0000[0x4] 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 e409 | | Load 0x2,0x9 01bc 0322 | " | Declare_Variable Record 01bd 4802 |H | Short_Literal 0x2 01be 00d9 | | Load_Top At_Offset_1 01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c0 00db | | Load_Top At_Offset_3 01c1 00d9 | | Load_Top At_Offset_1 01c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c4 0000 0000 | | .BLANK 0000[0x4] 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 e409 | | Load 0x2,0x9 01cc 0322 | " | Declare_Variable Record 01cd 4803 |H | Short_Literal 0x3 01ce 00d9 | | Load_Top At_Offset_1 01cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01d0 00db | | Load_Top At_Offset_3 01d1 00d9 | | Load_Top At_Offset_1 01d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d4 0000 0000 | | .BLANK 0000[0x4] 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 e409 | | Load 0x2,0x9 01dc 0322 | " | Declare_Variable Record 01dd 4804 |H | Short_Literal 0x4 01de 00d9 | | Load_Top At_Offset_1 01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e0 00db | | Load_Top At_Offset_3 01e1 00d9 | | Load_Top At_Offset_1 01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e4 0000 0000 | | .BLANK 0000[0x4] 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 e409 | | Load 0x2,0x9 01ec 0322 | " | Declare_Variable Record 01ed 4805 |H | Short_Literal 0x5 01ee 00d9 | | Load_Top At_Offset_1 01ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f0 00db | | Load_Top At_Offset_3 01f1 00d9 | | Load_Top At_Offset_1 01f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0201 | | .CONST 0x0201 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb 00db | | Load_Top At_Offset_3 01fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fd 0007 | | Action Break_Optional 01fe e7fe | | Load 0x3,-0x2 01ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0200 0007 | | Action Break_Optional 0201 BODY_01f8: 0201 00d9 | | Load_Top At_Offset_1 0202 4606 |F | Jump_Case 0x7 0203 7808 |x | Jump 0x20c ; case 0x0 0204 780b |x | Jump 0x210 ; case 0x1 0205 780e |x | Jump 0x214 ; case 0x2 0206 7811 |x | Jump 0x218 ; case 0x3 0207 7814 |x | Jump 0x21c ; case 0x4 0208 7817 |x | Jump 0x220 ; case 0x5 0209 7800 |x | Jump 0x20a ; case 0x6 020a 4801 |H | Short_Literal 0x1 020b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 020c e7ff | | Load 0x3,-0x1 020d 00d9 | | Load_Top At_Offset_1 020e 027f | | Execute Discrete,Equal 020f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0210 e7ff | | Load 0x3,-0x1 0211 00d9 | | Load_Top At_Offset_1 0212 027c | | | Execute Discrete,Less 0213 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0214 e7ff | | Load 0x3,-0x1 0215 00d9 | | Load_Top At_Offset_1 0216 027a | z | Execute Discrete,Less_Equal 0217 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0218 e7ff | | Load 0x3,-0x1 0219 00d9 | | Load_Top At_Offset_1 021a 027d | } | Execute Discrete,Greater 021b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021c e7ff | | Load 0x3,-0x1 021d 00d9 | | Load_Top At_Offset_1 021e 027b | { | Execute Discrete,Greater_Equal 021f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0220 e7ff | | Load 0x3,-0x1 0221 00d9 | | Load_Top At_Offset_1 0222 027e | ~ | Execute Discrete,Not_Equal 0223 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0224 0000 0000 | | .BLANK 0000[0x4] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00cf | | Action Mark_Auxiliary 022c e7fe | | Load 0x3,-0x2 022d 01d9 | | Execute Vector,Reverse_Bounds 022e 0263 | c | Execute Discrete,Above_Bound 022f 700a |p | Jump_Nonzero 0x23a 0230 00d8 | | Load_Top At_Offset_0 0231 e7fe | | Load 0x3,-0x2 0232 01d5 | | Execute Vector,Field_Reference 0233 e7ff | | Load 0x3,-0x1 0234 8414 | | Call 0x2,0x14 0235 7002 |p | Jump_Nonzero 0x238 0236 4800 |H | Short_Literal 0x0 0237 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0238 00c8 | | Action Pop_Auxiliary_Range 0239 3ff6 |? | Loop_Increasing 0x230 023a 00ce | | Action Pop_Auxiliary 023b 4801 |H | Short_Literal 0x1 023c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00cf | | Action Mark_Auxiliary 0244 00db | | Load_Top At_Offset_3 0245 01d9 | | Execute Vector,Reverse_Bounds 0246 0007 | | Action Break_Optional 0247 00d8 | | Load_Top At_Offset_0 0248 e7fe | | Load 0x3,-0x2 0249 01d5 | | Execute Vector,Field_Reference 024a 00d9 | | Load_Top At_Offset_1 024b e7ff | | Load 0x3,-0x1 024c 01d7 | | Execute Vector,Field_Read 024d 8414 | | Call 0x2,0x14 024e 7002 |p | Jump_Nonzero 0x251 024f 4800 |H | Short_Literal 0x0 0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0251 00c8 | | Action Pop_Auxiliary_Range 0252 3ff4 |? | Loop_Increasing 0x247 0253 00ce | | Action Pop_Auxiliary 0254 4801 |H | Short_Literal 0x1 0255 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0256 ; -------------------------------------------------------------------------------------- 0256 ; STRING TABLE 0256 ; -------------------------------------------------------------------------------------- 0256 001a | | .STRTAB 0x001a->0x0263 ; "CLASS" 0257 001d | | .STRTAB 0x001d->0x0265 ; "SIZE" 0258 001f | | .STRTAB 0x001f->0x0267 ; "COLOUR" 0259 0023 | # | .STRTAB 0x0023->0x026a ; "STATE" 025a 0026 | & | .STRTAB 0x0026->0x026d ; "IS_EQUAL" 025b 002c | , | .STRTAB 0x002c->0x0271 ; "IS_LESS" 025c 0031 | 1 | .STRTAB 0x0031->0x0274 ; "IS_LESS_OR_EQUAL" 025d 003f | ? | .STRTAB 0x003f->0x027c ; "IS_GREATER" 025e 0047 | G | .STRTAB 0x0047->0x0281 ; "IS_GREATER_OR_EQUAL" 025f 0058 | X | .STRTAB 0x0058->0x028b ; "IS_DIFFERENT" 0260 0062 | b | .STRTAB 0x0062->0x0291 ; "IS_ANY" 0261 0066 | f | .STRTAB 0x0066->0x0294 ; " => " 0262 0068 | h | .STREND 0x0068->0x0296 0263 434c 4153 |CLAS| .STRTAB_STRINGS 0296 0000 0000 | | .XXX[0x2] 0298 ; -------------------------------------------------------------------------------------- 0298 ; Debug Table 0298 ; -------------------------------------------------------------------------------------- 0298 0004 0004 | | .DEBUG4 0x0004,0x0004,0x33a0,0x0000,0x0001,0x000d 029e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 02a2 001b 02d2 | | .DBG4T 0x001b,0x02d2,0x8001,0x8000 02a6 014b 0000 | K | .DBG4T 0x014b,0x0000,0x0005,0x0000 02aa 0173 0000 | s | .DBG4T 0x0173,0x0000,0x0005,0x0000 02ae 019b 0302 | | .DBG4T 0x019b,0x0302,0x0002,0x0000 02b2 01ab 0305 | | .DBG4T 0x01ab,0x0305,0x0002,0x0000 02b6 01bb 0308 | | .DBG4T 0x01bb,0x0308,0x0002,0x0000 02ba 01cb 030b | | .DBG4T 0x01cb,0x030b,0x0002,0x0000 02be 01db 030e | | .DBG4T 0x01db,0x030e,0x0002,0x0000 02c2 01eb 0311 | | .DBG4T 0x01eb,0x0311,0x0002,0x0000 02c6 01fb 0314 | | .DBG4T 0x01fb,0x0314,0x0002,0x4000 02ca 022b 0328 | + (| .DBG4T 0x022b,0x0328,0x0002,0x0000 02ce 0243 032e | C .| .DBG4T 0x0243,0x032e,0x0002,0x0000 02d2 ; -------------------------------------------------------------------------------------- 02d2 ; Debug chain 02d2 ; -------------------------------------------------------------------------------------- 02d2 0015 0004 | | .DBGLEN 0x0015,0x0004 02d4 001b 001c | | .DBGLNO 0x001b,0x001c,0x0021,0x0027,0x0029,0x002f,0x00cf,0x00d4,0x00d9,0x00df,0x00e1,0x00e9,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101,0x0118,0x011b,0x0136 02ed 0001 000c | | .XXX[0x15] 02ef 000d 000e | | 02f1 000f 0010 | | 02f3 0011 0012 | | 02f5 0013 0014 | | 02f7 0015 0016 | | 02f9 0017 0018 | | 02fb 0019 001a | | 02fd 001b 001c | | 02ff 001d 001e | | 0301 001f | | 0302 ; -------------------------------------------------------------------------------------- 0302 ; Debug chain 0302 ; -------------------------------------------------------------------------------------- 0302 0000 0001 | | .DBGLEN 0x0000,0x0001 0304 019b | | .DBGLNO 0x019b 0305 ; -------------------------------------------------------------------------------------- 0305 ; Debug chain 0305 ; -------------------------------------------------------------------------------------- 0305 0000 0001 | | .DBGLEN 0x0000,0x0001 0307 01ab | | .DBGLNO 0x01ab 0308 ; -------------------------------------------------------------------------------------- 0308 ; Debug chain 0308 ; -------------------------------------------------------------------------------------- 0308 0000 0001 | | .DBGLEN 0x0000,0x0001 030a 01bb | | .DBGLNO 0x01bb 030b ; -------------------------------------------------------------------------------------- 030b ; Debug chain 030b ; -------------------------------------------------------------------------------------- 030b 0000 0001 | | .DBGLEN 0x0000,0x0001 030d 01cb | | .DBGLNO 0x01cb 030e ; -------------------------------------------------------------------------------------- 030e ; Debug chain 030e ; -------------------------------------------------------------------------------------- 030e 0000 0001 | | .DBGLEN 0x0000,0x0001 0310 01db | | .DBGLNO 0x01db 0311 ; -------------------------------------------------------------------------------------- 0311 ; Debug chain 0311 ; -------------------------------------------------------------------------------------- 0311 0000 0001 | | .DBGLEN 0x0000,0x0001 0313 01eb | | .DBGLNO 0x01eb 0314 ; -------------------------------------------------------------------------------------- 0314 ; Debug chain 0314 ; -------------------------------------------------------------------------------------- 0314 0002 0008 | | .DBGLEN 0x0002,0x0008 0316 01fb 01fe | | .DBGLNO 0x01fb,0x01fe,0x0201,0x020a,0x020c,0x0210,0x0214,0x0218,0x021c,0x0220 0320 0001 0008 | | .XXX[0x8] 0322 0002 0003 | | 0324 0004 0005 | | 0326 0006 0007 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; Debug chain 0328 ; -------------------------------------------------------------------------------------- 0328 0000 0004 | | .DBGLEN 0x0000,0x0004 032a 022c 0230 | , 0| .DBGLNO 0x022c,0x0230,0x0236,0x023b 032e ; -------------------------------------------------------------------------------------- 032e ; Debug chain 032e ; -------------------------------------------------------------------------------------- 032e 0000 0004 | | .DBGLEN 0x0000,0x0004 0330 0244 0247 | D G| .DBGLNO 0x0244,0x0247,0x024f,0x0254 0334 0000 0000 | | .BLANK 0000[0xcc]