|
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_02f8e7
└─⟦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 0350 | P | .CONST 0x0350 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d1 | | .CONST 0x00d1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4809 |H | Short_Literal 0x9
000d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00e8 | | Load_Encached Character_Cache
0011 0266 | f | Execute Discrete,Bounds
0012 e20d | | Load 0x1,0xd
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 4801 |H | Short_Literal 0x1
0015 035e | ^ | Declare_Type Array,Defined,Visible
0016 00e8 | | Load_Encached Character_Cache
0017 0266 | f | Execute Discrete,Bounds
0018 00e1 | | Load_Encached Boolean_Cache
0019 02a0 | | Declare_Subprogram Null_Subprogram
001a 4801 |H | Short_Literal 0x1
001b 035e | ^ | Declare_Type Array,Defined,Visible
001c e20e | | Load 0x1,0xe
001d 0336 | 6 | Declare_Variable Array,Visible
001e e20e | | Load 0x1,0xe
001f 0337 | 7 | Declare_Variable Array
0020 487e |H~ | Short_Literal 0x7e
0021 4820 |H | Short_Literal 0x20
0022 4801 |H | Short_Literal 0x1
0023 e213 | | Load 0x1,0x13
0024 e211 | | Load 0x1,0x11
0025 01d6 | | Execute Vector,Field_Write
0026 3ffb |? | Loop_Increasing 0x22
0027 4802 |H | Short_Literal 0x2
0028 480d |H | Short_Literal 0xd
0029 e211 | | Load 0x1,0x11
002a 01d6 | | Execute Vector,Field_Write
002b 4802 |H | Short_Literal 0x2
002c 480a |H | Short_Literal 0xa
002d e211 | | Load 0x1,0x11
002e 01d6 | | Execute Vector,Field_Write
002f 4802 |H | Short_Literal 0x2
0030 480c |H | Short_Literal 0xc
0031 e211 | | Load 0x1,0x11
0032 01d6 | | Execute Vector,Field_Write
0033 4803 |H | Short_Literal 0x3
0034 4808 |H | Short_Literal 0x8
0035 e211 | | Load 0x1,0x11
0036 01d6 | | Execute Vector,Field_Write
0037 4803 |H | Short_Literal 0x3
0038 487f |H | Short_Literal 0x7f
0039 e211 | | Load 0x1,0x11
003a 01d6 | | Execute Vector,Field_Write
003b 4804 |H | Short_Literal 0x4
003c 4815 |H | Short_Literal 0x15
003d e211 | | Load 0x1,0x11
003e 01d6 | | Execute Vector,Field_Write
003f 4804 |H | Short_Literal 0x4
0040 4818 |H | Short_Literal 0x18
0041 e211 | | Load 0x1,0x11
0042 01d6 | | Execute Vector,Field_Write
0043 4804 |H | Short_Literal 0x4
0044 480e |H | Short_Literal 0xe
0045 e211 | | Load 0x1,0x11
0046 01d6 | | Execute Vector,Field_Write
0047 4805 |H | Short_Literal 0x5
0048 4801 |H | Short_Literal 0x1
0049 e211 | | Load 0x1,0x11
004a 01d6 | | Execute Vector,Field_Write
004b 4805 |H | Short_Literal 0x5
004c 4802 |H | Short_Literal 0x2
004d e211 | | Load 0x1,0x11
004e 01d6 | | Execute Vector,Field_Write
004f 4805 |H | Short_Literal 0x5
0050 4810 |H | Short_Literal 0x10
0051 e211 | | Load 0x1,0x11
0052 01d6 | | Execute Vector,Field_Write
0053 4800 |H | Short_Literal 0x0
0054 4800 |H | Short_Literal 0x0
0055 e211 | | Load 0x1,0x11
0056 01d6 | | Execute Vector,Field_Write
0057 4807 |H | Short_Literal 0x7
0058 4803 |H | Short_Literal 0x3
0059 4800 |H | Short_Literal 0x0
005a e213 | | Load 0x1,0x13
005b e211 | | Load 0x1,0x11
005c 01d6 | | Execute Vector,Field_Write
005d 3ffb |? | Loop_Increasing 0x59
005e 4800 |H | Short_Literal 0x0
005f 4809 |H | Short_Literal 0x9
0060 e211 | | Load 0x1,0x11
0061 01d6 | | Execute Vector,Field_Write
0062 4800 |H | Short_Literal 0x0
0063 480b |H | Short_Literal 0xb
0064 e211 | | Load 0x1,0x11
0065 01d6 | | Execute Vector,Field_Write
0066 4800 |H | Short_Literal 0x0
0067 480f |H | Short_Literal 0xf
0068 e211 | | Load 0x1,0x11
0069 01d6 | | Execute Vector,Field_Write
006a 4814 |H | Short_Literal 0x14
006b 4811 |H | Short_Literal 0x11
006c 4800 |H | Short_Literal 0x0
006d e213 | | Load 0x1,0x13
006e e211 | | Load 0x1,0x11
006f 01d6 | | Execute Vector,Field_Write
0070 3ffb |? | Loop_Increasing 0x6c
0071 4800 |H | Short_Literal 0x0
0072 4816 |H | Short_Literal 0x16
0073 e211 | | Load 0x1,0x11
0074 01d6 | | Execute Vector,Field_Write
0075 4800 |H | Short_Literal 0x0
0076 4817 |H | Short_Literal 0x17
0077 e211 | | Load 0x1,0x11
0078 01d6 | | Execute Vector,Field_Write
0079 481f |H | Short_Literal 0x1f
007a 4819 |H | Short_Literal 0x19
007b 4800 |H | Short_Literal 0x0
007c e213 | | Load 0x1,0x13
007d e211 | | Load 0x1,0x11
007e 01d6 | | Execute Vector,Field_Write
007f 3ffb |? | Loop_Increasing 0x7b
0080 e20e | | Load 0x1,0xe
0081 01c3 | | Execute Vector,Check_In_Type
0082 e210 | | Load 0x1,0x10
0083 01d4 | | Execute Vector,Structure_Write
0084 e20f | | Load 0x1,0xf
0085 0336 | 6 | Declare_Variable Array,Visible
0086 e20f | | Load 0x1,0xf
0087 0337 | 7 | Declare_Variable Array
0088 4801 |H | Short_Literal 0x1
0089 480d |H | Short_Literal 0xd
008a e212 | | Load 0x1,0x12
008b 01d6 | | Execute Vector,Field_Write
008c 4801 |H | Short_Literal 0x1
008d 480a |H | Short_Literal 0xa
008e e212 | | Load 0x1,0x12
008f 01d6 | | Execute Vector,Field_Write
0090 4801 |H | Short_Literal 0x1
0091 480c |H | Short_Literal 0xc
0092 e212 | | Load 0x1,0x12
0093 01d6 | | Execute Vector,Field_Write
0094 4801 |H | Short_Literal 0x1
0095 4807 |H | Short_Literal 0x7
0096 e212 | | Load 0x1,0x12
0097 01d6 | | Execute Vector,Field_Write
0098 4806 |H | Short_Literal 0x6
0099 4800 |H | Short_Literal 0x0
009a 4800 |H | Short_Literal 0x0
009b e214 | | Load 0x1,0x14
009c e212 | | Load 0x1,0x12
009d 01d6 | | Execute Vector,Field_Write
009e 3ffb |? | Loop_Increasing 0x9a
009f 4800 |H | Short_Literal 0x0
00a0 4808 |H | Short_Literal 0x8
00a1 e212 | | Load 0x1,0x12
00a2 01d6 | | Execute Vector,Field_Write
00a3 4800 |H | Short_Literal 0x0
00a4 4809 |H | Short_Literal 0x9
00a5 e212 | | Load 0x1,0x12
00a6 01d6 | | Execute Vector,Field_Write
00a7 4800 |H | Short_Literal 0x0
00a8 480b |H | Short_Literal 0xb
00a9 e212 | | Load 0x1,0x12
00aa 01d6 | | Execute Vector,Field_Write
00ab 487f |H | Short_Literal 0x7f
00ac 480e |H | Short_Literal 0xe
00ad 4800 |H | Short_Literal 0x0
00ae e214 | | Load 0x1,0x14
00af e212 | | Load 0x1,0x12
00b0 01d6 | | Execute Vector,Field_Write
00b1 3ffb |? | Loop_Increasing 0xad
00b2 e20f | | Load 0x1,0xf
00b3 01c3 | | Execute Vector,Check_In_Type
00b4 e211 | | Load 0x1,0x11
00b5 01d4 | | Execute Vector,Structure_Write
00b6 00e4 | | Load_Encached Positive_Cache
00b7 4800 |H | Short_Literal 0x0
00b8 4802 |H | Short_Literal 0x2
00b9 4801 |H | Short_Literal 0x1
00ba 4806 |H | Short_Literal 0x6
00bb 0319 | | Declare_Type Variant_Record,Incomplete,Visible
00bc 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
00be 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
00c0 00e4 | | Load_Encached Positive_Cache
00c1 00e3 | | Load_Encached Natural_Cache
00c2 00e3 | | Load_Encached Natural_Cache
00c3 00e9 | | Load_Encached String_Cache
00c4 00e9 | | Load_Encached String_Cache
00c5 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
00c7 4800 |H | Short_Literal 0x0
00c8 4802 |H | Short_Literal 0x2
00c9 4803 |H | Short_Literal 0x3
00ca e212 | | Load 0x1,0x12
00cb 0307 | | Complete_Type Variant_Record,By_Defining
00cc 00bf | | Action Accept_Activation
00cd 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00d0 00c7 | | Action Elaborate_Subprogram
00d1 BODY_0008:
00d1 00bc | | Action Signal_Activated
00d2 00bb | | Action Signal_Completion
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4603 |F | Jump_Case 0x4
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7802 |x | Jump 0xe0 ; case 0x1
00de 7805 |x | Jump 0xe4 ; case 0x2
00df 7809 |x | Jump 0xe9 ; case 0x3
00e0 e5ff | | Load 0x2,-0x1
00e1 0091 0311 | | Action Push_String_Extended_Indexed,0x311 ; "IGNORE"
00e3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e4 e5fe | | Load 0x2,-0x2
00e5 e5ff | | Load 0x2,-0x1
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e9 e5ff | | Load 0x2,-0x1
00ea 00e0 | | Load_Encached Standard_Cache
00eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4801 |H | Short_Literal 0x1
00f4 e5ff | | Load 0x2,-0x1
00f5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f6 4800 |H | Short_Literal 0x0
00f7 e5ff | | Load 0x2,-0x1
00f8 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00f9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 011e | | .CONST 0x011e ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 000e | | .CONST 0x000e ; Number of locals
0103 INIT_0100:
0103 e5f4 | | Load 0x2,-0xc
0104 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0105 0007 | | Action Break_Optional
0106 e5f4 | | Load 0x2,-0xc
0107 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0108 0007 | | Action Break_Optional
0109 e5f4 | | Load 0x2,-0xc
010a 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
010b 0007 | | Action Break_Optional
010c 00e4 | | Load_Encached Positive_Cache
010d 00e3 | | Load_Encached Natural_Cache
010e 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
0110 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0112 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
0114 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
0116 029f 029b | | Declare_Subprogram INIT_0298,For_Call
0118 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
011a 029f 02db | | Declare_Subprogram INIT_02d8,For_Call
011c 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
011e BODY_0100:
011e 8407 | | Call 0x2,0x7
011f 00cf | | Action Mark_Auxiliary
0120 0007 | | Action Break_Optional
0121 e406 | | Load 0x2,0x6
0122 e402 | | Load 0x2,0x2
0123 01dc | | Execute Vector,Last
0124 027d | } | Execute Discrete,Greater
0125 6803 |h | Jump_Zero 0x129
0126 4801 |H | Short_Literal 0x1
0127 a406 | | Store_Unchecked 0x2,0x6
0128 7867 |xg | Jump 0x190
0129 00cf | | Action Mark_Auxiliary
012a 7810 |x | Jump 0x13b
012b e406 | | Load 0x2,0x6
012c e404 | | Load 0x2,0x4
012d 0a01 | | Execute_Immediate Plus,0x1
012e 027f | | Execute Discrete,Equal
012f 7002 |p | Jump_Nonzero 0x132
0130 4887 |H | Short_Literal 0x87
0131 0257 | W | Execute Discrete,Raise
0132 e405 | | Load 0x2,0x5
0133 e404 | | Load 0x2,0x4
0134 e402 | | Load 0x2,0x2
0135 01cf | | Execute Vector,Slice_Read
0136 8408 | | Call 0x2,0x8
0137 e406 | | Load 0x2,0x6
0138 c405 | | Store 0x2,0x5
0139 840e | | Call 0x2,0xe
013a 00c9 | | Action Pop_Auxiliary_Loop
013b e406 | | Load 0x2,0x6
013c e404 | | Load 0x2,0x4
013d 027d | } | Execute Discrete,Greater
013e 77ec |w | Jump_Nonzero 0x12b
013f 00c9 | | Action Pop_Auxiliary_Loop
0140 7848 |xH | Jump 0x189
0141 e406 | | Load 0x2,0x6
0142 e402 | | Load 0x2,0x2
0143 01d7 | | Execute Vector,Field_Read
0144 e5fa | | Load 0x2,-0x6
0145 01d7 | | Execute Vector,Field_Read
0146 0f02 | | Execute_Immediate Equal,0x2
0147 681d |h | Jump_Zero 0x165
0148 e5f8 | | Load 0x2,-0x8
0149 e406 | | Load 0x2,0x6
014a e402 | | Load 0x2,0x2
014b 01d6 | | Execute Vector,Field_Write
014c e406 | | Load 0x2,0x6
014d 0aff | | Execute_Immediate Plus,-0x1
014e e5f4 | | Load 0x2,-0xc
014f 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0150 e5f4 | | Load 0x2,-0xc
0151 00d8 | | Load_Top At_Offset_0
0152 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0153 00d8 | | Load_Top At_Offset_0
0154 4801 |H | Short_Literal 0x1
0155 e406 | | Load 0x2,0x6
0156 0aff | | Execute_Immediate Plus,-0x1
0157 0248 | H | Execute Discrete,Check_In_Integer
0158 4801 |H | Short_Literal 0x1
0159 e406 | | Load 0x2,0x6
015a 0aff | | Execute_Immediate Plus,-0x1
015b 0248 | H | Execute Discrete,Check_In_Integer
015c e402 | | Load 0x2,0x2
015d 01cf | | Execute Vector,Slice_Read
015e e414 | | Load 0x2,0x14
015f e415 | | Load 0x2,0x15
0160 e413 | | Load 0x2,0x13
0161 01ce | | Execute Vector,Slice_Write
0162 00d3 | | Pop_Control Pop_Count_3
0163 00d0 | | Action Swap_Control
0164 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0165 e406 | | Load 0x2,0x6
0166 e402 | | Load 0x2,0x2
0167 01d7 | | Execute Vector,Field_Read
0168 e5f9 | | Load 0x2,-0x7
0169 01d7 | | Execute Vector,Field_Read
016a 6802 |h | Jump_Zero 0x16d
016b 00ce | | Action Pop_Auxiliary
016c 7823 |x# | Jump 0x190
016d e406 | | Load 0x2,0x6
016e e402 | | Load 0x2,0x2
016f 01d7 | | Execute Vector,Field_Read
0170 e5fa | | Load 0x2,-0x6
0171 01d7 | | Execute Vector,Field_Read
0172 4609 |F | Jump_Case 0xa
0173 7813 |x | Jump 0x187 ; case 0x0
0174 7808 |x | Jump 0x17d ; case 0x1
0175 7807 |x | Jump 0x17d ; case 0x2
0176 780a |x | Jump 0x181 ; case 0x3
0177 780b |x | Jump 0x183 ; case 0x4
0178 780c |x | Jump 0x185 ; case 0x5
0179 780d |x | Jump 0x187 ; case 0x6
017a 780c |x | Jump 0x187 ; case 0x7
017b 780b |x | Jump 0x187 ; case 0x8
017c 780a |x | Jump 0x187 ; case 0x9
017d e406 | | Load 0x2,0x6
017e 0a01 | | Execute_Immediate Plus,0x1
017f c406 | | Store 0x2,0x6
0180 7807 |x | Jump 0x188
0181 840b | | Call 0x2,0xb
0182 7805 |x | Jump 0x188
0183 840c | | Call 0x2,0xc
0184 7803 |x | Jump 0x188
0185 840d | | Call 0x2,0xd
0186 7801 |x | Jump 0x188
0187 8409 | | Call 0x2,0x9
0188 00c9 | | Action Pop_Auxiliary_Loop
0189 e406 | | Load 0x2,0x6
018a e404 | | Load 0x2,0x4
018b 027a | z | Execute Discrete,Less_Equal
018c 77b4 |w | Jump_Nonzero 0x141
018d 00ce | | Action Pop_Auxiliary
018e 00c9 | | Action Pop_Auxiliary_Loop
018f 7f91 | | Jump 0x121
0190 00ce | | Action Pop_Auxiliary
0191 e405 | | Load 0x2,0x5
0192 e406 | | Load 0x2,0x6
0193 e402 | | Load 0x2,0x2
0194 01cf | | Execute Vector,Slice_Read
0195 8408 | | Call 0x2,0x8
0196 e406 | | Load 0x2,0x6
0197 0a01 | | Execute_Immediate Plus,0x1
0198 c405 | | Store 0x2,0x5
0199 e406 | | Load 0x2,0x6
019a e5f6 | | Load 0x2,-0xa
019b 01db | | Execute Vector,Length
019c 027b | { | Execute Discrete,Greater_Equal
019d 681f |h | Jump_Zero 0x1bd
019e e5f6 | | Load 0x2,-0xa
019f 01db | | Execute Vector,Length
01a0 c5f5 | | Store 0x2,-0xb
01a1 4801 |H | Short_Literal 0x1
01a2 e5f6 | | Load 0x2,-0xa
01a3 01db | | Execute Vector,Length
01a4 e402 | | Load 0x2,0x2
01a5 01cf | | Execute Vector,Slice_Read
01a6 e5f6 | | Load 0x2,-0xa
01a7 01d4 | | Execute Vector,Structure_Write
01a8 e5f6 | | Load 0x2,-0xa
01a9 01db | | Execute Vector,Length
01aa 0a01 | | Execute_Immediate Plus,0x1
01ab 0248 | H | Execute Discrete,Check_In_Integer
01ac e404 | | Load 0x2,0x4
01ad e402 | | Load 0x2,0x2
01ae 01cf | | Execute Vector,Slice_Read
01af 4801 |H | Short_Literal 0x1
01b0 e404 | | Load 0x2,0x4
01b1 e5f6 | | Load 0x2,-0xa
01b2 01db | | Execute Vector,Length
01b3 0272 | r | Execute Discrete,Minus
01b4 0248 | H | Execute Discrete,Check_In_Integer
01b5 e402 | | Load 0x2,0x2
01b6 01ce | | Execute Vector,Slice_Write
01b7 e404 | | Load 0x2,0x4
01b8 e5f6 | | Load 0x2,-0xa
01b9 01db | | Execute Vector,Length
01ba 0272 | r | Execute Discrete,Minus
01bb c404 | | Store 0x2,0x4
01bc 4509 |E | Exit_Suprogram New_Top_Offset 0x9
01bd e406 | | Load 0x2,0x6
01be 0c01 | | Execute_Immediate Greater_Equal,0x1
01bf 6822 |h" | Jump_Zero 0x1e2
01c0 e406 | | Load 0x2,0x6
01c1 a5f5 | | Store_Unchecked 0x2,-0xb
01c2 4801 |H | Short_Literal 0x1
01c3 e406 | | Load 0x2,0x6
01c4 e402 | | Load 0x2,0x2
01c5 01cf | | Execute Vector,Slice_Read
01c6 e5f6 | | Load 0x2,-0xa
01c7 01dd | | Execute Vector,First
01c8 e5f6 | | Load 0x2,-0xa
01c9 01dd | | Execute Vector,First
01ca e406 | | Load 0x2,0x6
01cb 0273 | s | Execute Discrete,Plus
01cc 0aff | | Execute_Immediate Plus,-0x1
01cd 0248 | H | Execute Discrete,Check_In_Integer
01ce e5f6 | | Load 0x2,-0xa
01cf 01ce | | Execute Vector,Slice_Write
01d0 e406 | | Load 0x2,0x6
01d1 0a01 | | Execute_Immediate Plus,0x1
01d2 0248 | H | Execute Discrete,Check_In_Integer
01d3 e404 | | Load 0x2,0x4
01d4 e402 | | Load 0x2,0x2
01d5 01cf | | Execute Vector,Slice_Read
01d6 4801 |H | Short_Literal 0x1
01d7 e404 | | Load 0x2,0x4
01d8 e406 | | Load 0x2,0x6
01d9 0272 | r | Execute Discrete,Minus
01da 0248 | H | Execute Discrete,Check_In_Integer
01db e402 | | Load 0x2,0x2
01dc 01ce | | Execute Vector,Slice_Write
01dd e404 | | Load 0x2,0x4
01de e406 | | Load 0x2,0x6
01df 0272 | r | Execute Discrete,Minus
01e0 c404 | | Store 0x2,0x4
01e1 4509 |E | Exit_Suprogram New_Top_Offset 0x9
01e2 e406 | | Load 0x2,0x6
01e3 a5f5 | | Store_Unchecked 0x2,-0xb
01e4 4509 |E | Exit_Suprogram New_Top_Offset 0x9
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
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 4608 |F | Jump_Case 0x9
01ec 7808 |x | Jump 0x1f5 ; case 0x0
01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01ee 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01ef 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
01f3 780b |x | Jump 0x1ff ; case 0x7
01f4 7817 |x | Jump 0x20c ; case 0x8
01f5 4801 |H | Short_Literal 0x1
01f6 e5ff | | Load 0x2,-0x1
01f7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f8 4800 |H | Short_Literal 0x0
01f9 e5ff | | Load 0x2,-0x1
01fa 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01fb 4800 |H | Short_Literal 0x0
01fc e5ff | | Load 0x2,-0x1
01fd 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ff e5fe | | Load 0x2,-0x2
0200 4801 |H | Short_Literal 0x1
0201 e5fe | | Load 0x2,-0x2
0202 00e9 | | Load_Encached String_Cache
0203 035b | [ | Declare_Type Array,Constrained
0204 4801 |H | Short_Literal 0x1
0205 e5fe | | Load 0x2,-0x2
0206 00e9 | | Load_Encached String_Cache
0207 035b | [ | Declare_Type Array,Constrained
0208 4802 |H | Short_Literal 0x2
0209 e5ff | | Load 0x2,-0x1
020a 031b | | Declare_Type Variant_Record,Constrained
020b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020c e5fe | | Load 0x2,-0x2
020d e5ff | | Load 0x2,-0x1
020e 02fc | | Declare_Variable Variant_Record,With_Constraint
020f 4801 |H | Short_Literal 0x1
0210 e5fe | | Load 0x2,-0x2
0211 00e9 | | Load_Encached String_Cache
0212 0334 | 4 | Declare_Variable Array,With_Constraint
0213 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
0214 4801 |H | Short_Literal 0x1
0215 e5fe | | Load 0x2,-0x2
0216 00e9 | | Load_Encached String_Cache
0217 0334 | 4 | Declare_Variable Array,With_Constraint
0218 2d06 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6
0219 016a | j | QQ_execute Variant_Record,XXX
021a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e404 | | Load 0x2,0x4
0224 0a01 | | Execute_Immediate Plus,0x1
0225 c405 | | Store 0x2,0x5
0226 e405 | | Load 0x2,0x5
0227 a406 | | Store_Unchecked 0x2,0x6
0228 00cf | | Action Mark_Auxiliary
0229 e404 | | Load 0x2,0x4
022a 4801 |H | Short_Literal 0x1
022b 0263 | c | Execute Discrete,Above_Bound
022c 7010 |p | Jump_Nonzero 0x23d
022d 00d8 | | Load_Top At_Offset_0
022e e402 | | Load 0x2,0x2
022f 01d7 | | Execute Vector,Field_Read
0230 e5fa | | Load 0x2,-0x6
0231 01d7 | | Execute Vector,Field_Read
0232 0e01 | | Execute_Immediate Not_Equal,0x1
0233 6807 |h | Jump_Zero 0x23b
0234 00d8 | | Load_Top At_Offset_0
0235 a406 | | Store_Unchecked 0x2,0x6
0236 00d8 | | Load_Top At_Offset_0
0237 0a01 | | Execute_Immediate Plus,0x1
0238 c405 | | Store 0x2,0x5
0239 00d2 | | Pop_Control Pop_Count_2
023a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023b 00c8 | | Action Pop_Auxiliary_Range
023c 3ff0 |? | Loop_Increasing 0x22d
023d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023e 0000 0000 | | .XXX[0x2]
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 e5f7 | | Load 0x2,-0x9
0244 e5fb | | Load 0x2,-0x5
0245 e7ff | | Load 0x3,-0x1
0246 85fe | | Call 0x2,-0x2
0247 c5f7 | | Store 0x2,-0x9
0248 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0249 0000 0000 | | .BLANK 0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e406 | | Load 0x2,0x6
0254 0a01 | | Execute_Immediate Plus,0x1
0255 0248 | H | Execute Discrete,Check_In_Integer
0256 e404 | | Load 0x2,0x4
0257 e402 | | Load 0x2,0x2
0258 01cf | | Execute Vector,Slice_Read
0259 e406 | | Load 0x2,0x6
025a e404 | | Load 0x2,0x4
025b 0aff | | Execute_Immediate Plus,-0x1
025c 0248 | H | Execute Discrete,Check_In_Integer
025d e402 | | Load 0x2,0x2
025e 01ce | | Execute Vector,Slice_Write
025f e404 | | Load 0x2,0x4
0260 0aff | | Execute_Immediate Plus,-0x1
0261 c404 | | Store 0x2,0x4
0262 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0281 | | .CONST 0x0281 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b 4801 |H | Short_Literal 0x1
026c 4803 |H | Short_Literal 0x3
026d 00e9 | | Load_Encached String_Cache
026e 0334 | 4 | Declare_Variable Array,With_Constraint
026f 4801 |H | Short_Literal 0x1
0270 4803 |H | Short_Literal 0x3
0271 00e9 | | Load_Encached String_Cache
0272 0334 | 4 | Declare_Variable Array,With_Constraint
0273 4808 |H | Short_Literal 0x8
0274 4801 |H | Short_Literal 0x1
0275 e603 | | Load 0x3,0x3
0276 01d6 | | Execute Vector,Field_Write
0277 4820 |H | Short_Literal 0x20
0278 4802 |H | Short_Literal 0x2
0279 e603 | | Load 0x3,0x3
027a 01d6 | | Execute Vector,Field_Write
027b 4808 |H | Short_Literal 0x8
027c 4803 |H | Short_Literal 0x3
027d e603 | | Load 0x3,0x3
027e 01d6 | | Execute Vector,Field_Write
027f e602 | | Load 0x3,0x2
0280 01d4 | | Execute Vector,Structure_Write
0281 BODY_0268:
0281 e405 | | Load 0x2,0x5
0282 e406 | | Load 0x2,0x6
0283 027d | } | Execute Discrete,Greater
0284 680e |h | Jump_Zero 0x293
0285 00cf | | Action Mark_Auxiliary
0286 e405 | | Load 0x2,0x5
0287 0aff | | Execute_Immediate Plus,-0x1
0288 0248 | H | Execute Discrete,Check_In_Integer
0289 e406 | | Load 0x2,0x6
028a 0263 | c | Execute Discrete,Above_Bound
028b 7004 |p | Jump_Nonzero 0x290
028c e602 | | Load 0x3,0x2
028d 8408 | | Call 0x2,0x8
028e 00c8 | | Action Pop_Auxiliary_Range
028f 3ffc |? | Loop_Increasing 0x28c
0290 00ce | | Action Pop_Auxiliary
0291 e406 | | Load 0x2,0x6
0292 c405 | | Store 0x2,0x5
0293 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e406 | | Load 0x2,0x6
029c 0c02 | | Execute_Immediate Greater_Equal,0x2
029d 6816 |h | Jump_Zero 0x2b4
029e e406 | | Load 0x2,0x6
029f 0a01 | | Execute_Immediate Plus,0x1
02a0 0248 | H | Execute Discrete,Check_In_Integer
02a1 e404 | | Load 0x2,0x4
02a2 e402 | | Load 0x2,0x2
02a3 01cf | | Execute Vector,Slice_Read
02a4 e406 | | Load 0x2,0x6
02a5 0aff | | Execute_Immediate Plus,-0x1
02a6 0248 | H | Execute Discrete,Check_In_Integer
02a7 e404 | | Load 0x2,0x4
02a8 0afe | | Execute_Immediate Plus,-0x2
02a9 0248 | H | Execute Discrete,Check_In_Integer
02aa e402 | | Load 0x2,0x2
02ab 01ce | | Execute Vector,Slice_Write
02ac e404 | | Load 0x2,0x4
02ad 0afe | | Execute_Immediate Plus,-0x2
02ae c404 | | Store 0x2,0x4
02af e406 | | Load 0x2,0x6
02b0 0aff | | Execute_Immediate Plus,-0x1
02b1 c406 | | Store 0x2,0x6
02b2 840a | | Call 0x2,0xa
02b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b4 8409 | | Call 0x2,0x9
02b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b6 0000 0000 | | .XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb e406 | | Load 0x2,0x6
02bc 0c02 | | Execute_Immediate Greater_Equal,0x2
02bd 6815 |h | Jump_Zero 0x2d3
02be e406 | | Load 0x2,0x6
02bf 0a01 | | Execute_Immediate Plus,0x1
02c0 0248 | H | Execute Discrete,Check_In_Integer
02c1 e404 | | Load 0x2,0x4
02c2 e402 | | Load 0x2,0x2
02c3 01cf | | Execute Vector,Slice_Read
02c4 4801 |H | Short_Literal 0x1
02c5 e404 | | Load 0x2,0x4
02c6 e406 | | Load 0x2,0x6
02c7 0272 | r | Execute Discrete,Minus
02c8 0248 | H | Execute Discrete,Check_In_Integer
02c9 e402 | | Load 0x2,0x2
02ca 01ce | | Execute Vector,Slice_Write
02cb e404 | | Load 0x2,0x4
02cc e406 | | Load 0x2,0x6
02cd 0272 | r | Execute Discrete,Minus
02ce c404 | | Store 0x2,0x4
02cf 4801 |H | Short_Literal 0x1
02d0 a406 | | Store_Unchecked 0x2,0x6
02d1 840a | | Call 0x2,0xa
02d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d3 8409 | | Call 0x2,0x9
02d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d5 0000 0000 | | .XXX[0x3]
02d7 0000 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 840c | | Call 0x2,0xc
02dc e5f4 | | Load 0x2,-0xc
02dd 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
02de a404 | | Store_Unchecked 0x2,0x4
02df 4801 |H | Short_Literal 0x1
02e0 e404 | | Load 0x2,0x4
02e1 e5f4 | | Load 0x2,-0xc
02e2 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
02e3 01cf | | Execute Vector,Slice_Read
02e4 4801 |H | Short_Literal 0x1
02e5 e404 | | Load 0x2,0x4
02e6 e402 | | Load 0x2,0x2
02e7 01ce | | Execute Vector,Slice_Write
02e8 4801 |H | Short_Literal 0x1
02e9 a405 | | Store_Unchecked 0x2,0x5
02ea e404 | | Load 0x2,0x4
02eb 0a01 | | Execute_Immediate Plus,0x1
02ec c406 | | Store 0x2,0x6
02ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f4 | | .CONST 0x02f4 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 00e3 | | Load_Encached Natural_Cache
02f4 BODY_02f0:
02f4 e402 | | Load 0x2,0x2
02f5 e406 | | Load 0x2,0x6
02f6 e402 | | Load 0x2,0x2
02f7 01dc | | Execute Vector,Last
02f8 e603 | | Load 0x3,0x3
02f9 035b | [ | Declare_Type Array,Constrained
02fa 00d0 | | Action Swap_Control
02fb 01cd | | Execute Vector,Slice_Reference
02fc 00e3 | | Load_Encached Natural_Cache
02fd e603 | | Load 0x3,0x3
02fe e5f7 | | Load 0x2,-0x9
02ff e5fb | | Load 0x2,-0x5
0300 85fd | | Call 0x2,-0x3
0301 c5f7 | | Store 0x2,-0x9
0302 00d1 | | Pop_Control Pop_Count_1
0303 c602 | | Store 0x3,0x2
0304 00d1 | | Pop_Control Pop_Count_1
0305 00d8 | | Load_Top At_Offset_0
0306 7005 |p | Jump_Nonzero 0x30c
0307 4800 |H | Short_Literal 0x0
0308 a406 | | Store_Unchecked 0x2,0x6
0309 00cc | | Action Pop_Block
030a 00ce | | Action Pop_Auxiliary
030b 7e84 |~ | Jump 0x190
030c e404 | | Load 0x2,0x4
030d e602 | | Load 0x3,0x2
030e 0273 | s | Execute Discrete,Plus
030f c404 | | Store 0x2,0x4
0310 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0311 ; --------------------------------------------------------------------------------------
0311 ; STRING TABLE
0311 ; --------------------------------------------------------------------------------------
0311 0016 | | .STRTAB 0x0016->0x031c ; "IGNORE"
0312 001a | | .STRTAB 0x001a->0x031f ; "DATA"
0313 001c | | .STRTAB 0x001c->0x0321 ; "END_OF_LINE"
0314 0025 | % | .STRTAB 0x0025->0x0326 ; "ERASE_CHAR"
0315 002d | - | .STRTAB 0x002d->0x032b ; "ERASE_LINE"
0316 0035 | 5 | .STRTAB 0x0035->0x0330 ; "PREVIOUS_LINE"
0317 0040 | @ | .STRTAB 0x0040->0x0337 ; "CURSOR_LEFT"
0318 0049 | I | .STRTAB 0x0049->0x033c ; "CURSOR_RIGHT"
0319 0053 | S | .STRTAB 0x0053->0x0342 ; "CURSOR_BEGINNING"
031a 0061 | a | .STRTAB 0x0061->0x034a ; "CURSOR_END"
031b 0069 | i | .STREND 0x0069->0x034f
031c 4947 4e4f |IGNO| .STRTAB_STRINGS
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug Table
0350 ; --------------------------------------------------------------------------------------
0350 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb059,0x0000,0x0001,0x0000
0356 0000 0000 | | .BLANK 0000[0x7d]
03d3 0040 0002 | @ | .XXX[0x8]
03d5 7dc0 01b0 |} |
03d7 1d15 6141 | aA|
03d9 3d49 514c |=IQL|
03db 0000 0000 | | .BLANK 0000[0x25]