|
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_1b80db
└─⟦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 01b8 | | .CONST 0x01b8 ; 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 0054 | T | .CONST 0x0054 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 00d9 | | Load_Top At_Offset_1
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 00d8 | | Load_Top At_Offset_0
0010 4801 |H | Short_Literal 0x1
0011 604e |`N | Indirect_Literal Discrete,0x60,{0x00000000, 0x7fffffff}
0012 00db | | Load_Top At_Offset_3
0013 0269 | i | Execute Discrete,Last
0014 026c | l | Execute Discrete,Minimum
0015 00e9 | | Load_Encached String_Cache
0016 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0017 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0019 4800 |H | Short_Literal 0x0
001a 4801 |H | Short_Literal 0x1
001b 4800 |H | Short_Literal 0x0
001c 4800 |H | Short_Literal 0x0
001d 4801 |H | Short_Literal 0x1
001e 4801 |H | Short_Literal 0x1
001f 031e | | Declare_Type Variant_Record,Defined,Visible
0020 4800 |H | Short_Literal 0x0
0021 00d9 | | Load_Top At_Offset_1
0022 1c08 | | Execute_Immediate Run_Utility,0x8
0023 00d8 | | Load_Top At_Offset_0
0024 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0025 01dd | | Execute Vector,First
0026 00e2 | | Load_Encached Integer_Cache
0027 00d9 | | Load_Top At_Offset_1
0028 0267 | g | Execute Discrete,Predecessor
0029 00e9 | | Load_Encached String_Cache
002a 035b | [ | Declare_Type Array,Constrained
002b 0337 | 7 | Declare_Variable Array
002c 00d9 | | Load_Top At_Offset_1
002d 00d8 | | Load_Top At_Offset_0
002e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
002f 00da | | Load_Top At_Offset_2
0030 01da | | Execute Vector,Bounds
0031 00da | | Load_Top At_Offset_2
0032 01da | | Execute Vector,Bounds
0033 00da | | Load_Top At_Offset_2
0034 027f | | Execute Discrete,Equal
0035 7001 |p | Jump_Nonzero 0x37
0036 08e0 | | Execute_Immediate Raise,0xe0
0037 00cd | | Action Spare6_Action
0038 027f | | Execute Discrete,Equal
0039 7001 |p | Jump_Nonzero 0x3b
003a 08e0 | | Execute_Immediate Raise,0xe0
003b 00d2 | | Pop_Control Pop_Count_2
003c 00d9 | | Load_Top At_Offset_1
003d 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
003e 0129 | ) | Execute Any,Make_Visible
003f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0041 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0043 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0045 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0047 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0049 00bf | | Action Accept_Activation
004a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004b 00c7 | | Action Elaborate_Subprogram
004c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004d 00c7 | | Action Elaborate_Subprogram
004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004f 00c7 | | Action Elaborate_Subprogram
0050 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0051 00c7 | | Action Elaborate_Subprogram
0052 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0053 00c7 | | Action Elaborate_Subprogram
0054 BODY_0008:
0054 00bc | | Action Signal_Activated
0055 00bb | | Action Signal_Completion
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
005d 0335 | 5 | Declare_Variable Array,Duplicate
005e 00cd | | Action Spare6_Action
005f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0060 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
006d e210 | | Load 0x1,0x10
006e 1c08 | | Execute_Immediate Run_Utility,0x8
006f 00db | | Load_Top At_Offset_3
0070 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0071 00d9 | | Load_Top At_Offset_1
0072 00d8 | | Load_Top At_Offset_0
0073 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0074 00da | | Load_Top At_Offset_2
0075 01da | | Execute Vector,Bounds
0076 00da | | Load_Top At_Offset_2
0077 01da | | Execute Vector,Bounds
0078 00da | | Load_Top At_Offset_2
0079 027f | | Execute Discrete,Equal
007a 7001 |p | Jump_Nonzero 0x7c
007b 08e0 | | Execute_Immediate Raise,0xe0
007c 00cd | | Action Spare6_Action
007d 027f | | Execute Discrete,Equal
007e 7001 |p | Jump_Nonzero 0x80
007f 08e0 | | Execute_Immediate Raise,0xe0
0080 00d2 | | Pop_Control Pop_Count_2
0081 00d9 | | Load_Top At_Offset_1
0082 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0083 e5fe | | Load 0x2,-0x2
0084 016d | m | Execute Variant_Record,Structure_Write
0085 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 0092 019c | | Action Push_String_Extended,0x19c ; "(generic_string) Create : source length=>"
008d 00db | | Load_Top At_Offset_3
008e 01db | | Execute Vector,Length
008f 00d8 | | Load_Top At_Offset_0
0090 00e2 | | Load_Encached Integer_Cache
0091 0260 | ` | Execute Discrete,In_Type
0092 7001 |p | Jump_Nonzero 0x94
0093 0801 | | Execute_Immediate Raise,0x1
0094 00e0 | | Load_Encached Standard_Cache
0095 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0096 01cc | | Execute Vector,Catenate
0097 e002 | | Load 0x0,0x2
0098 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0099 00da | | Load_Top At_Offset_2
009a 01db | | Execute Vector,Length
009b e20e | | Load 0x1,0xe
009c 027d | } | Execute Discrete,Greater
009d 683b |h; | Jump_Zero 0xd9
009e e20e | | Load 0x1,0xe
009f e210 | | Load 0x1,0x10
00a0 1c08 | | Execute_Immediate Run_Utility,0x8
00a1 4801 |H | Short_Literal 0x1
00a2 e20e | | Load 0x1,0xe
00a3 00e9 | | Load_Encached String_Cache
00a4 035b | [ | Declare_Type Array,Constrained
00a5 0337 | 7 | Declare_Variable Array
00a6 00d8 | | Load_Top At_Offset_0
00a7 01dc | | Execute Vector,Last
00a8 4801 |H | Short_Literal 0x1
00a9 0263 | c | Execute Discrete,Above_Bound
00aa 7005 |p | Jump_Nonzero 0xb0
00ab 4820 |H | Short_Literal 0x20
00ac 00d9 | | Load_Top At_Offset_1
00ad e403 | | Load 0x2,0x3
00ae 01d6 | | Execute Vector,Field_Write
00af 3ffb |? | Loop_Increasing 0xab
00b0 00d9 | | Load_Top At_Offset_1
00b1 00d8 | | Load_Top At_Offset_0
00b2 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00b3 00da | | Load_Top At_Offset_2
00b4 01da | | Execute Vector,Bounds
00b5 00da | | Load_Top At_Offset_2
00b6 01da | | Execute Vector,Bounds
00b7 00da | | Load_Top At_Offset_2
00b8 027f | | Execute Discrete,Equal
00b9 7001 |p | Jump_Nonzero 0xbb
00ba 08e0 | | Execute_Immediate Raise,0xe0
00bb 00cd | | Action Spare6_Action
00bc 027f | | Execute Discrete,Equal
00bd 7001 |p | Jump_Nonzero 0xbf
00be 08e0 | | Execute_Immediate Raise,0xe0
00bf 00d2 | | Pop_Control Pop_Count_2
00c0 00d9 | | Load_Top At_Offset_1
00c1 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00c2 e5fe | | Load 0x2,-0x2
00c3 016d | m | Execute Variant_Record,Structure_Write
00c4 00da | | Load_Top At_Offset_2
00c5 01dd | | Execute Vector,First
00c6 00db | | Load_Top At_Offset_3
00c7 01dd | | Execute Vector,First
00c8 e5ff | | Load 0x2,-0x1
00c9 01db | | Execute Vector,Length
00ca 0273 | s | Execute Discrete,Plus
00cb 0aff | | Execute_Immediate Plus,-0x1
00cc 00d8 | | Load_Top At_Offset_0
00cd 00e2 | | Load_Encached Integer_Cache
00ce 0260 | ` | Execute Discrete,In_Type
00cf 7001 |p | Jump_Nonzero 0xd1
00d0 0801 | | Execute_Immediate Raise,0x1
00d1 e5ff | | Load 0x2,-0x1
00d2 01cf | | Execute Vector,Slice_Read
00d3 4801 |H | Short_Literal 0x1
00d4 e20e | | Load 0x1,0xe
00d5 e5fe | | Load 0x2,-0x2
00d6 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d7 01ce | | Execute Vector,Slice_Write
00d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d9 00da | | Load_Top At_Offset_2
00da 01db | | Execute Vector,Length
00db e210 | | Load 0x1,0x10
00dc 1c08 | | Execute_Immediate Run_Utility,0x8
00dd 4801 |H | Short_Literal 0x1
00de e5ff | | Load 0x2,-0x1
00df 01db | | Execute Vector,Length
00e0 00e9 | | Load_Encached String_Cache
00e1 035b | [ | Declare_Type Array,Constrained
00e2 0337 | 7 | Declare_Variable Array
00e3 00d8 | | Load_Top At_Offset_0
00e4 01dc | | Execute Vector,Last
00e5 4801 |H | Short_Literal 0x1
00e6 0263 | c | Execute Discrete,Above_Bound
00e7 7005 |p | Jump_Nonzero 0xed
00e8 4820 |H | Short_Literal 0x20
00e9 00d9 | | Load_Top At_Offset_1
00ea e403 | | Load 0x2,0x3
00eb 01d6 | | Execute Vector,Field_Write
00ec 3ffb |? | Loop_Increasing 0xe8
00ed 00d9 | | Load_Top At_Offset_1
00ee 00d8 | | Load_Top At_Offset_0
00ef 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00f0 00da | | Load_Top At_Offset_2
00f1 01da | | Execute Vector,Bounds
00f2 00da | | Load_Top At_Offset_2
00f3 01da | | Execute Vector,Bounds
00f4 00da | | Load_Top At_Offset_2
00f5 027f | | Execute Discrete,Equal
00f6 7001 |p | Jump_Nonzero 0xf8
00f7 08e0 | | Execute_Immediate Raise,0xe0
00f8 00cd | | Action Spare6_Action
00f9 027f | | Execute Discrete,Equal
00fa 7001 |p | Jump_Nonzero 0xfc
00fb 08e0 | | Execute_Immediate Raise,0xe0
00fc 00d2 | | Pop_Control Pop_Count_2
00fd 00d9 | | Load_Top At_Offset_1
00fe 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00ff e5fe | | Load 0x2,-0x2
0100 016d | m | Execute Variant_Record,Structure_Write
0101 00da | | Load_Top At_Offset_2
0102 4801 |H | Short_Literal 0x1
0103 e5ff | | Load 0x2,-0x1
0104 01db | | Execute Vector,Length
0105 00d8 | | Load_Top At_Offset_0
0106 00e2 | | Load_Encached Integer_Cache
0107 0260 | ` | Execute Discrete,In_Type
0108 7001 |p | Jump_Nonzero 0x10a
0109 0801 | | Execute_Immediate Raise,0x1
010a e5fe | | Load 0x2,-0x2
010b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
010c 01ce | | Execute Vector,Slice_Write
010d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0115 e5fe | | Load 0x2,-0x2
0116 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0117 0273 | s | Execute Discrete,Plus
0118 e210 | | Load 0x1,0x10
0119 1c08 | | Execute_Immediate Run_Utility,0x8
011a 00db | | Load_Top At_Offset_3
011b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
011c e5fe | | Load 0x2,-0x2
011d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
011e 01cc | | Execute Vector,Catenate
011f 00d9 | | Load_Top At_Offset_1
0120 00d8 | | Load_Top At_Offset_0
0121 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0122 00da | | Load_Top At_Offset_2
0123 01da | | Execute Vector,Bounds
0124 00da | | Load_Top At_Offset_2
0125 01da | | Execute Vector,Bounds
0126 00da | | Load_Top At_Offset_2
0127 027f | | Execute Discrete,Equal
0128 7001 |p | Jump_Nonzero 0x12a
0129 08e0 | | Execute_Immediate Raise,0xe0
012a 00cd | | Action Spare6_Action
012b 027f | | Execute Discrete,Equal
012c 7001 |p | Jump_Nonzero 0x12e
012d 08e0 | | Execute_Immediate Raise,0xe0
012e 00d2 | | Pop_Control Pop_Count_2
012f 00d9 | | Load_Top At_Offset_1
0130 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0131 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e211 | | Load 0x1,0x11
013c 00db | | Load_Top At_Offset_3
013d 016d | m | Execute Variant_Record,Structure_Write
013e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013f 0000 | | .XXX[0x1]
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 4609 |F | Jump_Case 0xa
0144 7809 |x | Jump 0x14e ; case 0x0
0145 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0146 7833 |x3 | Jump 0x17a ; case 0x2
0147 7836 |x6 | Jump 0x17e ; case 0x3
0148 7852 |xR | Jump 0x19b ; case 0x4
0149 7851 |xQ | Jump 0x19b ; case 0x5
014a 7850 |xP | Jump 0x19b ; case 0x6
014b 7838 |x8 | Jump 0x184 ; case 0x7
014c 7840 |x@ | Jump 0x18d ; case 0x8
014d 7849 |xI | Jump 0x197 ; case 0x9
014e 00da | | Load_Top At_Offset_2
014f 016c | l | Execute Variant_Record,Is_Constrained
0150 7009 |p | Jump_Nonzero 0x15a
0151 00cf | | Action Mark_Auxiliary
0152 e20e | | Load 0x1,0xe
0153 e5ff | | Load 0x2,-0x1
0154 1c08 | | Execute_Immediate Run_Utility,0x8
0155 00d8 | | Load_Top At_Offset_0
0156 1c00 | | Execute_Immediate Run_Utility,0x0
0157 c5ff | | Store 0x2,-0x1
0158 00ce | | Action Pop_Auxiliary
0159 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
015a 00da | | Load_Top At_Offset_2
015b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
015c 0335 | 5 | Declare_Variable Array,Duplicate
015d 00cd | | Action Spare6_Action
015e 00db | | Load_Top At_Offset_3
015f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0160 01d9 | | Execute Vector,Reverse_Bounds
0161 0263 | c | Execute Discrete,Above_Bound
0162 7005 |p | Jump_Nonzero 0x168
0163 4820 |H | Short_Literal 0x20
0164 00d9 | | Load_Top At_Offset_1
0165 e402 | | Load 0x2,0x2
0166 01d6 | | Execute Vector,Field_Write
0167 3ffb |? | Loop_Increasing 0x163
0168 00db | | Load_Top At_Offset_3
0169 00d8 | | Load_Top At_Offset_0
016a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
016b 00da | | Load_Top At_Offset_2
016c 01da | | Execute Vector,Bounds
016d 00da | | Load_Top At_Offset_2
016e 01da | | Execute Vector,Bounds
016f 00da | | Load_Top At_Offset_2
0170 027f | | Execute Discrete,Equal
0171 7001 |p | Jump_Nonzero 0x173
0172 08e0 | | Execute_Immediate Raise,0xe0
0173 00cd | | Action Spare6_Action
0174 027f | | Execute Discrete,Equal
0175 7001 |p | Jump_Nonzero 0x177
0176 08e0 | | Execute_Immediate Raise,0xe0
0177 00d1 | | Pop_Control Pop_Count_1
0178 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0179 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
017a 4801 |H | Short_Literal 0x1
017b 4802 |H | Short_Literal 0x2
017c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
017d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
017e e5fd | | Load 0x2,-0x3
017f 00db | | Load_Top At_Offset_3
0180 1c07 | | Execute_Immediate Run_Utility,0x7
0181 e5fe | | Load 0x2,-0x2
0182 0306 | | Complete_Type Variant_Record,By_Renaming
0183 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0184 00db | | Load_Top At_Offset_3
0185 4801 |H | Short_Literal 0x1
0186 e5fe | | Load 0x2,-0x2
0187 00e9 | | Load_Encached String_Cache
0188 035b | [ | Declare_Type Array,Constrained
0189 4801 |H | Short_Literal 0x1
018a e5ff | | Load 0x2,-0x1
018b 031b | | Declare_Type Variant_Record,Constrained
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018d 00db | | Load_Top At_Offset_3
018e 00db | | Load_Top At_Offset_3
018f 02fc | | Declare_Variable Variant_Record,With_Constraint
0190 4801 |H | Short_Literal 0x1
0191 e5fe | | Load 0x2,-0x2
0192 00e9 | | Load_Encached String_Cache
0193 0334 | 4 | Declare_Variable Array,With_Constraint
0194 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0195 016a | j | QQ_execute Variant_Record,XXX
0196 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0197 e20e | | Load 0x1,0xe
0198 00db | | Load_Top At_Offset_3
0199 1c07 | | Execute_Immediate Run_Utility,0x7
019a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
019b 0869 | i | Execute_Immediate Raise,0x69
019c ; --------------------------------------------------------------------------------------
019c ; STRING TABLE
019c ; --------------------------------------------------------------------------------------
019c 0004 | | .STRTAB 0x0004->0x019e ; "(generic_string) Create : source length=>"
019d 002b | + | .STREND 0x002b->0x01b2
019e 2867 656e |(gen| .STRTAB_STRINGS
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x216e,0x0000,0x0001,0x0008
01be 000b 01de | | .DBG4T 0x000b,0x01de,0xc000,0x0000
01c2 004a 01e8 | J | .DBG4T 0x004a,0x01e8,0xc000,0x0000
01c6 005b 01ef | [ | .DBG4T 0x005b,0x01ef,0x1002,0x0000
01ca 006b 01f2 | k | .DBG4T 0x006b,0x01f2,0x1001,0x0000
01ce 008b 01f5 | | .DBG4T 0x008b,0x01f5,0x1001,0x0000
01d2 0113 01fd | | .DBG4T 0x0113,0x01fd,0x1002,0x0000
01d6 013b 0200 | ; | .DBG4T 0x013b,0x0200,0x1001,0x0000
01da 0143 0000 | C | .DBG4T 0x0143,0x0000,0x1005,0x0000
01de ; --------------------------------------------------------------------------------------
01de ; Debug chain
01de ; --------------------------------------------------------------------------------------
01de 0008 0000 | | .DBGLEN 0x0008,0x0000
01e0 000b 000f | | .DBGLNO 0x000b,0x000f,0x0020,0x003f,0x0041,0x0043,0x0045,0x0047
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug chain
01e8 ; --------------------------------------------------------------------------------------
01e8 0005 0000 | | .DBGLEN 0x0005,0x0000
01ea 004a 004c | J L| .DBGLNO 0x004a,0x004c,0x004e,0x0050,0x0052
01ef ; --------------------------------------------------------------------------------------
01ef ; Debug chain
01ef ; --------------------------------------------------------------------------------------
01ef 0000 0001 | | .DBGLEN 0x0000,0x0001
01f1 005b | [ | .DBGLNO 0x005b
01f2 ; --------------------------------------------------------------------------------------
01f2 ; Debug chain
01f2 ; --------------------------------------------------------------------------------------
01f2 0000 0001 | | .DBGLEN 0x0000,0x0001
01f4 006b | k | .DBGLNO 0x006b
01f5 ; --------------------------------------------------------------------------------------
01f5 ; Debug chain
01f5 ; --------------------------------------------------------------------------------------
01f5 0000 0006 | | .DBGLEN 0x0000,0x0006
01f7 008b 0099 | | .DBGLNO 0x008b,0x0099,0x009e,0x00c4,0x00d9,0x0101
01fd ; --------------------------------------------------------------------------------------
01fd ; Debug chain
01fd ; --------------------------------------------------------------------------------------
01fd 0000 0001 | | .DBGLEN 0x0000,0x0001
01ff 0113 | | .DBGLNO 0x0113
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug chain
0200 ; --------------------------------------------------------------------------------------
0200 0000 0001 | | .DBGLEN 0x0000,0x0001
0202 013b | ; | .DBGLNO 0x013b
0203 0000 0000 | | .BLANK 0000[0x1fd]