|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 For_Call,INIT_0148
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 0x7ff
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 0x7ff
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 For_Call,INIT_0170
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 For_Call,INIT_0198
00f1 029f 01ab | | Declare_Subprogram For_Call,INIT_01a8
00f3 029f 01bb | | Declare_Subprogram For_Call,INIT_01b8
00f5 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
00f7 029f 01db | | Declare_Subprogram For_Call,INIT_01d8
00f9 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
00fb 029f 01fb | | Declare_Subprogram For_Call,INIT_01f8
00fd 029f 022b | +| Declare_Subprogram For_Call,INIT_0228
00ff 029f 0243 | C| Declare_Subprogram For_Call,INIT_0240
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_Subprogram 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 0x7
014c 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0161 00db | | Load_Top At_Offset_3
0162 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0163 00db | | Load_Top At_Offset_3
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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 0x7
0174 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0189 00db | | Load_Top At_Offset_3
018a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
018b 00db | | Load_Top At_Offset_3
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 0x6
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_Result,0x2
020c e7ff | | Load 0x3,-0x1
020d 00d9 | | Load_Top At_Offset_1
020e 027f | | Execute Discrete,Equal
020f 4402 |D | Exit_Subprogram With_Result,0x2
0210 e7ff | | Load 0x3,-0x1
0211 00d9 | | Load_Top At_Offset_1
0212 027c | | | Execute Discrete,Less
0213 4402 |D | Exit_Subprogram With_Result,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_Result,0x2
0218 e7ff | | Load 0x3,-0x1
0219 00d9 | | Load_Top At_Offset_1
021a 027d | } | Execute Discrete,Greater
021b 4402 |D | Exit_Subprogram With_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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]