|
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_83e0de
└─⟦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 0290 | | .CONST 0x0290 ; 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 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 00e9 | | Load_Encached String_Cache
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 4818 |H | Short_Literal 0x18
0013 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0014 4801 |H | Short_Literal 0x1
0015 4be8 |K | Short_Literal 0x3e8
0016 e002 | | Load 0x0,0x2
0017 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0019 4801 |H | Short_Literal 0x1
001a 035d | ] | Declare_Type Array,Defined
001b 00d8 | | Load_Top At_Offset_0
001c 00e3 | | Load_Encached Natural_Cache
001d 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
001f 4802 |H | Short_Literal 0x2
0020 032d | - | Declare_Type Record,Defined
0021 e003 | | Load 0x0,0x3
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 02c7 | | Declare_Variable Any
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 00e7 | | Load_Encached Duration_Cache
0027 e004 | | Load 0x0,0x4
0028 0322 | " | Declare_Variable Record
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call
002d 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call
002f 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call
0031 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call
0033 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
0035 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0037 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0039 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
003b 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
003d 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
003f 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0041 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0043 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0044 00c7 | | Action Elaborate_Subprogram
0045 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00be | | Action Activate_Tasks
0048 00bc | | Action Signal_Activated
0049 00bb | | Action Signal_Completion
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055 | U | .CONST 0x0055 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0003 | | .CONST 0x0003 ; Number of locals
0053 INIT_0050:
0053 00e7 | | Load_Encached Duration_Cache
0054 03e9 | | Declare_Variable Discrete,Duplicate
0055 BODY_0050:
0055 4800 |H | Short_Literal 0x0
0056 e5ff | | Load 0x2,-0x1
0057 8215 | | Call 0x1,0x15
0058 8217 | | Call 0x1,0x17
0059 e212 | | Load 0x1,0x12
005a 8219 | | Call 0x1,0x19
005b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
005c 00d9 | | Load_Top At_Offset_1
005d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
005e 00cf | | Action Mark_Auxiliary
005f 781b |x | Jump 0x7b
0060 e214 | | Load 0x1,0x14
0061 8005 | | Call 0x0,0x5
0062 00d1 | | Pop_Control Pop_Count_1
0063 00cf | | Action Mark_Auxiliary
0064 780a |x | Jump 0x6f
0065 e212 | | Load 0x1,0x12
0066 821b | | Call 0x1,0x1b
0067 4801 |H | Short_Literal 0x1
0068 e212 | | Load 0x1,0x12
0069 e003 | | Load 0x0,0x3
006a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
006b e212 | | Load 0x1,0x12
006c 8219 | | Call 0x1,0x19
006d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
006e 00c9 | | Action Pop_Auxiliary_Loop
006f 00da | | Load_Top At_Offset_2
0070 e402 | | Load 0x2,0x2
0071 027a | z | Execute Discrete,Less_Equal
0072 77f2 |w | Jump_Nonzero 0x65
0073 00ce | | Action Pop_Auxiliary
0074 00da | | Load_Top At_Offset_2
0075 8218 | | Call 0x1,0x18
0076 6803 |h | Jump_Zero 0x7a
0077 821d | | Call 0x1,0x1d
0078 00d9 | | Load_Top At_Offset_1
0079 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
007a 00c9 | | Action Pop_Auxiliary_Loop
007b e212 | | Load 0x1,0x12
007c e003 | | Load 0x0,0x3
007d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
007e 6fe1 |o | Jump_Zero 0x60
007f 00ce | | Action Pop_Auxiliary
0080 8216 | | Call 0x1,0x16
0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008f | | .CONST 0x008f ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e211 | | Load 0x1,0x11
008c 0322 | " | Declare_Variable Record
008d 00d8 | | Load_Top At_Offset_0
008e 1c00 | | Execute_Immediate Run_Utility,0x0
008f BODY_0088:
008f 4800 |H | Short_Literal 0x0
0090 e5ff | | Load 0x2,-0x1
0091 8215 | | Call 0x1,0x15
0092 e212 | | Load 0x1,0x12
0093 821a | | Call 0x1,0x1a
0094 00d9 | | Load_Top At_Offset_1
0095 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0096 8216 | | Call 0x1,0x16
0097 4800 |H | Short_Literal 0x0
0098 e5ff | | Load 0x2,-0x1
0099 8215 | | Call 0x1,0x15
009a 00d8 | | Load_Top At_Offset_0
009b e212 | | Load 0x1,0x12
009c 821e | | Call 0x1,0x1e
009d 00d1 | | Pop_Control Pop_Count_1
009e 8216 | | Call 0x1,0x16
009f 00d8 | | Load_Top At_Offset_0
00a0 8220 | | Call 0x1,0x20
00a1 00d1 | | Pop_Control Pop_Count_1
00a2 e212 | | Load 0x1,0x12
00a3 00ea | | Load_Encached Null_String_Cache
00a4 e5ff | | Load 0x2,-0x1
00a5 0092 027f | | Action Push_String_Extended,0x27f ; ".tri"
00a7 01cc | | Execute Vector,Catenate
00a8 4801 |H | Short_Literal 0x1
00a9 e003 | | Load 0x0,0x3
00aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ab c212 | | Store 0x1,0x12
00ac e212 | | Load 0x1,0x12
00ad 00d9 | | Load_Top At_Offset_1
00ae 821f | | Call 0x1,0x1f
00af c212 | | Store 0x1,0x12
00b0 8216 | | Call 0x1,0x16
00b1 00db | | Load_Top At_Offset_3
00b2 0092 027f | | Action Push_String_Extended,0x27f ; ".tri"
00b4 01cc | | Execute Vector,Catenate
00b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00d1 | | Pop_Control Pop_Count_1
00bc 00da | | Load_Top At_Offset_2
00bd 01d8 | | Execute Vector,Element_Type
00be 0322 | " | Declare_Variable Record
00bf 00d8 | | Load_Top At_Offset_0
00c0 1c00 | | Execute_Immediate Run_Utility,0x0
00c1 00db | | Load_Top At_Offset_3
00c2 01dc | | Execute Vector,Last
00c3 e5ff | | Load 0x2,-0x1
00c4 01dd | | Execute Vector,First
00c5 0263 | c | Execute Discrete,Above_Bound
00c6 7006 |p | Jump_Nonzero 0xcd
00c7 00da | | Load_Top At_Offset_2
00c8 00d9 | | Load_Top At_Offset_1
00c9 e5ff | | Load 0x2,-0x1
00ca 01d6 | | Execute Vector,Field_Write
00cb 0a01 | | Execute_Immediate Plus,0x1
00cc 7ff8 | | Jump 0xc5
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4601 |F | Jump_Case 0x2
00d4 7801 |x | Jump 0xd6 ; case 0x0
00d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00d6 00da | | Load_Top At_Offset_2
00d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00d8 1c00 | | Execute_Immediate Run_Utility,0x0
00d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e212 | | Load 0x1,0x12
00e4 00ea | | Load_Encached Null_String_Cache
00e5 e5ff | | Load 0x2,-0x1
00e6 e5fe | | Load 0x2,-0x2
00e7 e003 | | Load 0x0,0x3
00e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00e9 c212 | | Store 0x1,0x12
00ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00eb 0000 0000 | | .BLANK 0000[0x5]
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 e212 | | Load 0x1,0x12
00f4 e003 | | Load 0x0,0x3
00f5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f6 c212 | | Store 0x1,0x12
00f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4800 |H | Short_Literal 0x0
00fc a213 | | Store_Unchecked 0x1,0x13
00fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 e213 | | Load 0x1,0x13
0105 0272 | r | Execute Discrete,Minus
0106 00ba | | Action Initiate_Delay
0107 00da | | Load_Top At_Offset_2
0108 a213 | | Store_Unchecked 0x1,0x13
0109 4801 |H | Short_Literal 0x1
010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e006 | | Load 0x0,0x6
0114 0322 | " | Declare_Variable Record
0115 00d8 | | Load_Top At_Offset_0
0116 1c00 | | Execute_Immediate Run_Utility,0x0
0117 00e8 | | Load_Encached Character_Cache
0118 BODY_0110:
0118 00d9 | | Load_Top At_Offset_1
0119 8007 | | Call 0x0,0x7
011a 00d1 | | Pop_Control Pop_Count_1
011b e5ff | | Load 0x2,-0x1
011c e003 | | Load 0x0,0x3
011d 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
011e 7030 |p0 | Jump_Nonzero 0x14f
011f 00e8 | | Load_Encached Character_Cache
0120 e5ff | | Load 0x2,-0x1
0121 e003 | | Load 0x0,0x3
0122 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0123 0059 | Y | Store_Top Discrete,At_Offset_1
0124 00cf | | Action Mark_Auxiliary
0125 7806 |x | Jump 0x12c
0126 00e8 | | Load_Encached Character_Cache
0127 e5ff | | Load 0x2,-0x1
0128 e003 | | Load 0x0,0x3
0129 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
012a 005a | Z | Store_Top Discrete,At_Offset_2
012b 00c9 | | Action Pop_Auxiliary_Loop
012c 00d9 | | Load_Top At_Offset_1
012d 0f20 | | Execute_Immediate Equal,0x20
012e 77f7 |w | Jump_Nonzero 0x126
012f 00c9 | | Action Pop_Auxiliary_Loop
0130 780a |x | Jump 0x13b
0131 00da | | Load_Top At_Offset_2
0132 00da | | Load_Top At_Offset_2
0133 8008 | | Call 0x0,0x8
0134 00d1 | | Pop_Control Pop_Count_1
0135 00e8 | | Load_Encached Character_Cache
0136 e5ff | | Load 0x2,-0x1
0137 e003 | | Load 0x0,0x3
0138 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0139 005a | Z | Store_Top Discrete,At_Offset_2
013a 00c9 | | Action Pop_Auxiliary_Loop
013b 00d9 | | Load_Top At_Offset_1
013c 4830 |H0 | Short_Literal 0x30
013d 4839 |H9 | Short_Literal 0x39
013e 0262 | b | Execute Discrete,In_Range
013f 77f1 |w | Jump_Nonzero 0x131
0140 00ce | | Action Pop_Auxiliary
0141 00d9 | | Load_Top At_Offset_1
0142 8009 | | Call 0x0,0x9
0143 00e2 | | Load_Encached Integer_Cache
0144 00e0 | | Load_Encached Standard_Cache
0145 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0146 090f | | Execute_Immediate Binary_Scale,0xf
0147 480a |H | Short_Literal 0xa
0148 0270 | p | Execute Discrete,Divide
0149 00d8 | | Load_Top At_Offset_0
014a 00e7 | | Load_Encached Duration_Cache
014b 0260 | ` | Execute Discrete,In_Type
014c 7001 |p | Jump_Nonzero 0x14e
014d 0801 | | Execute_Immediate Raise,0x1
014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014f 6004 |` | Indirect_Literal Discrete,0x154,{0x00000000, 0xa8c00000}
0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0151 0000 0000 | | .XXX[0x3]
0153 0000 | |
0154 0000 0000 | | .LITERAL {0x00000000, 0xa8c00000}
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015c | \ | .CONST 0x015c ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00e8 | | Load_Encached Character_Cache
015c BODY_0158:
015c 00cf | | Action Mark_Auxiliary
015d 7806 |x | Jump 0x164
015e 00e8 | | Load_Encached Character_Cache
015f e5ff | | Load 0x2,-0x1
0160 e003 | | Load 0x0,0x3
0161 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0162 005a | Z | Store_Top Discrete,At_Offset_2
0163 00c9 | | Action Pop_Auxiliary_Loop
0164 e5ff | | Load 0x2,-0x1
0165 e003 | | Load 0x0,0x3
0166 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0167 6ff6 |o | Jump_Zero 0x15e
0168 00ce | | Action Pop_Auxiliary
0169 00db | | Load_Top At_Offset_3
016a e003 | | Load 0x0,0x3
016b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0178 | x | .CONST 0x0178 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 00e8 | | Load_Encached Character_Cache
0174 e006 | | Load 0x0,0x6
0175 0322 | " | Declare_Variable Record
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 BODY_0170:
0178 00d8 | | Load_Top At_Offset_0
0179 8007 | | Call 0x0,0x7
017a 00d1 | | Pop_Control Pop_Count_1
017b 00cf | | Action Mark_Auxiliary
017c 780d |x | Jump 0x18a
017d 00e8 | | Load_Encached Character_Cache
017e e5ff | | Load 0x2,-0x1
017f e003 | | Load 0x0,0x3
0180 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0181 005b | [ | Store_Top Discrete,At_Offset_3
0182 00da | | Load_Top At_Offset_2
0183 0e20 | | Execute_Immediate Not_Equal,0x20
0184 6804 |h | Jump_Zero 0x189
0185 00d9 | | Load_Top At_Offset_1
0186 00db | | Load_Top At_Offset_3
0187 8008 | | Call 0x0,0x8
0188 00d1 | | Pop_Control Pop_Count_1
0189 00c9 | | Action Pop_Auxiliary_Loop
018a e5ff | | Load 0x2,-0x1
018b e003 | | Load 0x0,0x3
018c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
018d 0f00 | | Execute_Immediate Equal,0x0
018e e5ff | | Load 0x2,-0x1
018f e003 | | Load 0x0,0x3
0190 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0191 0f00 | | Execute_Immediate Equal,0x0
0192 0279 | y | Execute Discrete,And
0193 77e9 |w | Jump_Nonzero 0x17d
0194 00ce | | Action Pop_Auxiliary
0195 e214 | | Load 0x1,0x14
0196 00d9 | | Load_Top At_Offset_1
0197 800a | | Call 0x0,0xa
0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 0092 0280 | | Action Push_String_Extended,0x280 ; "/dev/tty0"
01a5 0092 0281 | | Action Push_String_Extended,0x281 ; "D"
01a7 800b | | Call 0x0,0xb
01a8 0092 0280 | | Action Push_String_Extended,0x280 ; "/dev/tty0"
01aa 00db | | Load_Top At_Offset_3
01ab 800b | | Call 0x0,0xb
01ac 0092 0280 | | Action Push_String_Extended,0x280 ; "/dev/tty0"
01ae 0092 0282 | | Action Push_String_Extended,0x282 ; "F"
01b0 800b | | Call 0x0,0xb
01b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call
01bd BODY_01b8:
01bd 00cf | | Action Mark_Auxiliary
01be e214 | | Load 0x1,0x14
01bf 800c | | Call 0x0,0xc
01c0 4801 |H | Short_Literal 0x1
01c1 0263 | c | Execute Discrete,Above_Bound
01c2 7003 |p | Jump_Nonzero 0x1c6
01c3 8402 | | Call 0x2,0x2
01c4 00c8 | | Action Pop_Auxiliary_Range
01c5 3ffd |? | Loop_Increasing 0x1c3
01c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c7 0000 | | .XXX[0x1]
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 00cf | | Action Mark_Auxiliary
01cc e5fe | | Load 0x2,-0x2
01cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ce 4801 |H | Short_Literal 0x1
01cf 0263 | c | Execute Discrete,Above_Bound
01d0 7017 |p | Jump_Nonzero 0x1e8
01d1 e5ff | | Load 0x2,-0x1
01d2 e003 | | Load 0x0,0x3
01d3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01d4 7011 |p | Jump_Nonzero 0x1e6
01d5 00d8 | | Load_Top At_Offset_0
01d6 e5fe | | Load 0x2,-0x2
01d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d8 01d5 | | Execute Vector,Field_Reference
01d9 00d8 | | Load_Top At_Offset_0
01da e5ff | | Load 0x2,-0x1
01db 8219 | | Call 0x1,0x19
01dc 800d | | Call 0x0,0xd
01dd 00d2 | | Pop_Control Pop_Count_2
01de 00d8 | | Load_Top At_Offset_0
01df e5fe | | Load 0x2,-0x2
01e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e1 01d5 | | Execute Vector,Field_Reference
01e2 00d8 | | Load_Top At_Offset_0
01e3 e5ff | | Load 0x2,-0x1
01e4 800e | | Call 0x0,0xe
01e5 00d2 | | Pop_Control Pop_Count_2
01e6 00c8 | | Action Pop_Auxiliary_Range
01e7 3fe9 |? | Loop_Increasing 0x1d1
01e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00cf | | Action Mark_Auxiliary
01f4 00db | | Load_Top At_Offset_3
01f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f6 4801 |H | Short_Literal 0x1
01f7 0263 | c | Execute Discrete,Above_Bound
01f8 7025 |p% | Jump_Nonzero 0x21e
01f9 00d8 | | Load_Top At_Offset_0
01fa e5ff | | Load 0x2,-0x1
01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01fc 01d5 | | Execute Vector,Field_Reference
01fd 800f | | Call 0x0,0xf
01fe 480a |H | Short_Literal 0xa
01ff 0271 | q | Execute Discrete,Times
0200 00d8 | | Load_Top At_Offset_0
0201 0c00 | | Execute_Immediate Greater_Equal,0x0
0202 7002 |p | Jump_Nonzero 0x205
0203 6020 |` | Indirect_Literal Discrete,0x224,{0xffffffff, 0xffffc000}
0204 7801 |x | Jump 0x206
0205 601a |` | Indirect_Literal Discrete,0x220,{0x00000000, 0x00004000}
0206 0273 | s | Execute Discrete,Plus
0207 09f1 | | Execute_Immediate Binary_Scale,-0xf
0208 00e2 | | Load_Encached Integer_Cache
0209 025e | ^ | Execute Discrete,Convert
020a 00e0 | | Load_Encached Standard_Cache
020b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
020c e5fe | | Load 0x2,-0x2
020d e003 | | Load 0x0,0x3
020e 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
020f 0092 0283 | | Action Push_String_Extended,0x283 ; " "
0211 e5fe | | Load 0x2,-0x2
0212 e003 | | Load 0x0,0x3
0213 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0214 00d8 | | Load_Top At_Offset_0
0215 e5ff | | Load 0x2,-0x1
0216 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0217 01d5 | | Execute Vector,Field_Reference
0218 8010 | | Call 0x0,0x10
0219 e5fe | | Load 0x2,-0x2
021a e003 | | Load 0x0,0x3
021b 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
021c 00c8 | | Action Pop_Auxiliary_Range
021d 3fdb |? | Loop_Increasing 0x1f9
021e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021f 0000 | | .XXX[0x1]
0220 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0224 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0230 | 0 | .CONST 0x0230 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0003 | | .CONST 0x0003 ; Number of locals
022b INIT_0228:
022b 00e2 | | Load_Encached Integer_Cache
022c e002 | | Load 0x0,0x2
022d 0322 | " | Declare_Variable Record
022e 00d8 | | Load_Top At_Offset_0
022f 1c00 | | Execute_Immediate Run_Utility,0x0
0230 BODY_0228:
0230 00cf | | Action Mark_Auxiliary
0231 e5ff | | Load 0x2,-0x1
0232 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0233 0aff | | Execute_Immediate Plus,-0x1
0234 4801 |H | Short_Literal 0x1
0235 0263 | c | Execute Discrete,Above_Bound
0236 7033 |p3 | Jump_Nonzero 0x26a
0237 e5ff | | Load 0x2,-0x1
0238 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0239 a402 | | Store_Unchecked 0x2,0x2
023a 00cf | | Action Mark_Auxiliary
023b 7826 |x& | Jump 0x262
023c e402 | | Load 0x2,0x2
023d e5ff | | Load 0x2,-0x1
023e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023f 01d5 | | Execute Vector,Field_Reference
0240 800f | | Call 0x0,0xf
0241 e402 | | Load 0x2,0x2
0242 0aff | | Execute_Immediate Plus,-0x1
0243 e5ff | | Load 0x2,-0x1
0244 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0245 01d5 | | Execute Vector,Field_Reference
0246 800f | | Call 0x0,0xf
0247 027c | | | Execute Discrete,Less
0248 6815 |h | Jump_Zero 0x25e
0249 e402 | | Load 0x2,0x2
024a e5ff | | Load 0x2,-0x1
024b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
024c 01d5 | | Execute Vector,Field_Reference
024d e403 | | Load 0x2,0x3
024e 017d | } | Execute Record,Structure_Write
024f e402 | | Load 0x2,0x2
0250 0aff | | Execute_Immediate Plus,-0x1
0251 e5ff | | Load 0x2,-0x1
0252 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0253 01d5 | | Execute Vector,Field_Reference
0254 e402 | | Load 0x2,0x2
0255 e5ff | | Load 0x2,-0x1
0256 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0257 01d6 | | Execute Vector,Field_Write
0258 e403 | | Load 0x2,0x3
0259 e402 | | Load 0x2,0x2
025a 0aff | | Execute_Immediate Plus,-0x1
025b e5ff | | Load 0x2,-0x1
025c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
025d 01d6 | | Execute Vector,Field_Write
025e e402 | | Load 0x2,0x2
025f 0aff | | Execute_Immediate Plus,-0x1
0260 c402 | | Store 0x2,0x2
0261 00c9 | | Action Pop_Auxiliary_Loop
0262 e402 | | Load 0x2,0x2
0263 00da | | Load_Top At_Offset_2
0264 0a01 | | Execute_Immediate Plus,0x1
0265 027b | { | Execute Discrete,Greater_Equal
0266 77d5 |w | Jump_Nonzero 0x23c
0267 00ce | | Action Pop_Auxiliary
0268 00c8 | | Action Pop_Auxiliary_Range
0269 3fcd |? | Loop_Increasing 0x237
026a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275 | u | .CONST 0x0275 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 e20f | | Load 0x1,0xf
0274 0007 | | Action Break_Optional
0275 BODY_0270:
0275 e405 | | Load 0x2,0x5
0276 e214 | | Load 0x1,0x14
0277 8011 | | Call 0x0,0x11
0278 e20f | | Load 0x1,0xf
0279 03b6 | | Declare_Variable Access,By_Allocation,With_Value
027a 0039 | 9 | Store_Top Access,At_Offset_1
027b 00d8 | | Load_Top At_Offset_0
027c 0227 | ' | Execute Access,All_Reference
027d 821c | | Call 0x1,0x1c
027e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027f ; --------------------------------------------------------------------------------------
027f ; STRING TABLE
027f ; --------------------------------------------------------------------------------------
027f 000c | | .STRTAB 0x000c->0x0285 ; ".tri"
0280 000e | | .STRTAB 0x000e->0x0287 ; "/dev/tty0"
0281 0015 | | .STRTAB 0x0015->0x028b ; "D"
0282 0014 | | .STRTAB 0x0014->0x028c ; "F"
0283 0013 | | .STRTAB 0x0013->0x028c ; " "
0284 0013 | | .STREND 0x0013->0x028d
0285 2e74 7269 |.tri| .STRTAB_STRINGS
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug Table
0290 ; --------------------------------------------------------------------------------------
0290 0004 0006 | | .DEBUG4 0x0004,0x0006,0x2f73,0x0000,0x0001,0x0013
0296 000b 02e2 | | .DBG4T 0x000b,0x02e2,0x8000,0x0000
029a 0010 02e6 | | .DBG4T 0x0010,0x02e6,0x8000,0x8000
029e 0053 0310 | S | .DBG4T 0x0053,0x0310,0x0001,0x4000
02a2 008b 032f | /| .DBG4T 0x008b,0x032f,0x0002,0x0000
02a6 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0005,0x0000
02aa 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x0005,0x0000
02ae 00e3 033d | =| .DBG4T 0x00e3,0x033d,0x0001,0x0000
02b2 00f3 0340 | @| .DBG4T 0x00f3,0x0340,0x0001,0x0000
02b6 00fb 0343 | C| .DBG4T 0x00fb,0x0343,0x0001,0x0000
02ba 0103 0346 | F| .DBG4T 0x0103,0x0346,0x0002,0x0000
02be 0113 034b | K| .DBG4T 0x0113,0x034b,0x0002,0x4000
02c2 015b 0363 | [ c| .DBG4T 0x015b,0x0363,0x0002,0x4000
02c6 0173 036c | s l| .DBG4T 0x0173,0x036c,0x0001,0x4000
02ca 01a3 037c | || .DBG4T 0x01a3,0x037c,0x0001,0x0000
02ce 01bb 0381 | | .DBG4T 0x01bb,0x0381,0x0001,0x0000
02d2 01cb 0385 | | .DBG4T 0x01cb,0x0385,0x0001,0x0000
02d6 01f3 038b | | .DBG4T 0x01f3,0x038b,0x0001,0x0000
02da 022b 0391 | + | .DBG4T 0x022b,0x0391,0x0001,0x4000
02de 0273 03a5 | s | .DBG4T 0x0273,0x03a5,0x0004,0x0000
02e2 ; --------------------------------------------------------------------------------------
02e2 ; Debug chain
02e2 ; --------------------------------------------------------------------------------------
02e2 0002 0000 | | .DBGLEN 0x0002,0x0000
02e4 000b 000d | | .DBGLNO 0x000b,0x000d
02e6 ; --------------------------------------------------------------------------------------
02e6 ; Debug chain
02e6 ; --------------------------------------------------------------------------------------
02e6 0014 0000 | | .DBGLEN 0x0014,0x0000
02e8 0010 0014 | | .DBGLNO 0x0010,0x0014,0x001b,0x0021,0x0026,0x0027,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045
02fc 0001 0002 | | .XXX[0x14]
02fe 0003 0005 | |
0300 0006 0007 | |
0302 0008 0009 | |
0304 000a 000b | |
0306 000c 000d | |
0308 000e 000f | |
030a 0010 0011 | |
030c 0012 0013 | |
030e 0014 0015 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug chain
0310 ; --------------------------------------------------------------------------------------
0310 0001 000e | | .DBGLEN 0x0001,0x000e
0312 0053 0055 | S U| .DBGLNO 0x0053,0x0055,0x0058,0x0059,0x005c,0x0060,0x0065,0x0067,0x006b,0x006f,0x0074,0x0077,0x0078,0x007b,0x0080
0321 0001 0002 | | .XXX[0xe]
0323 0003 0004 | |
0325 0006 0008 | |
0327 0009 000a | |
0329 0007 000b | |
032b 000c 000d | |
032d 0005 000e | |
032f ; --------------------------------------------------------------------------------------
032f ; Debug chain
032f ; --------------------------------------------------------------------------------------
032f 0001 000b | | .DBGLEN 0x0001,0x000b
0331 008b 008f | | .DBGLNO 0x008b,0x008f,0x0092,0x0096,0x0097,0x009a,0x009e,0x009f,0x00a2,0x00ac,0x00b0,0x00b1
033d ; --------------------------------------------------------------------------------------
033d ; Debug chain
033d ; --------------------------------------------------------------------------------------
033d 0000 0001 | | .DBGLEN 0x0000,0x0001
033f 00e3 | | .DBGLNO 0x00e3
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug chain
0340 ; --------------------------------------------------------------------------------------
0340 0000 0001 | | .DBGLEN 0x0000,0x0001
0342 00f3 | | .DBGLNO 0x00f3
0343 ; --------------------------------------------------------------------------------------
0343 ; Debug chain
0343 ; --------------------------------------------------------------------------------------
0343 0000 0001 | | .DBGLEN 0x0000,0x0001
0345 00fb | | .DBGLNO 0x00fb
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug chain
0346 ; --------------------------------------------------------------------------------------
0346 0000 0003 | | .DBGLEN 0x0000,0x0003
0348 0103 0107 | | .DBGLNO 0x0103,0x0107,0x0109
034b ; --------------------------------------------------------------------------------------
034b ; Debug chain
034b ; --------------------------------------------------------------------------------------
034b 0002 000a | | .DBGLEN 0x0002,0x000a
034d 0113 0117 | | .DBGLNO 0x0113,0x0117,0x0118,0x011b,0x011f,0x0126,0x012c,0x0131,0x0135,0x013b,0x0141,0x014f
0359 0001 0002 | | .XXX[0xa]
035b 0003 0005 | |
035d 0004 0007 | |
035f 0008 0006 | |
0361 0009 000a | |
0363 ; --------------------------------------------------------------------------------------
0363 ; Debug chain
0363 ; --------------------------------------------------------------------------------------
0363 0001 0003 | | .DBGLEN 0x0001,0x0003
0365 015b 015e | [ ^| .DBGLNO 0x015b,0x015e,0x0164,0x0169
0369 0002 0001 | | .XXX[0x3]
036b 0003 | |
036c ; --------------------------------------------------------------------------------------
036c ; Debug chain
036c ; --------------------------------------------------------------------------------------
036c 0002 0006 | | .DBGLEN 0x0002,0x0006
036e 0173 0174 | s t| .DBGLNO 0x0173,0x0174,0x0178,0x017d,0x0182,0x0185,0x018a,0x0195
0376 0001 0003 | | .XXX[0x6]
0378 0004 0005 | |
037a 0002 0006 | |
037c ; --------------------------------------------------------------------------------------
037c ; Debug chain
037c ; --------------------------------------------------------------------------------------
037c 0000 0003 | | .DBGLEN 0x0000,0x0003
037e 01a3 01a8 | | .DBGLNO 0x01a3,0x01a8,0x01ac
0381 ; --------------------------------------------------------------------------------------
0381 ; Debug chain
0381 ; --------------------------------------------------------------------------------------
0381 0000 0002 | | .DBGLEN 0x0000,0x0002
0383 01be 01c3 | | .DBGLNO 0x01be,0x01c3
0385 ; --------------------------------------------------------------------------------------
0385 ; Debug chain
0385 ; --------------------------------------------------------------------------------------
0385 0000 0004 | | .DBGLEN 0x0000,0x0004
0387 01cc 01d1 | | .DBGLNO 0x01cc,0x01d1,0x01d5,0x01de
038b ; --------------------------------------------------------------------------------------
038b ; Debug chain
038b ; --------------------------------------------------------------------------------------
038b 0000 0004 | | .DBGLEN 0x0000,0x0004
038d 01f4 01f9 | | .DBGLNO 0x01f4,0x01f9,0x020f,0x0214
0391 ; --------------------------------------------------------------------------------------
0391 ; Debug chain
0391 ; --------------------------------------------------------------------------------------
0391 0002 0008 | | .DBGLEN 0x0002,0x0008
0393 022b 022c | + ,| .DBGLNO 0x022b,0x022c,0x0231,0x0237,0x023c,0x0249,0x024f,0x0258,0x025e,0x0262
039d 0001 0002 | | .XXX[0x8]
039f 0004 0005 | |
03a1 0006 0007 | |
03a3 0008 0003 | |
03a5 ; --------------------------------------------------------------------------------------
03a5 ; Debug chain
03a5 ; --------------------------------------------------------------------------------------
03a5 0001 0002 | | .DBGLEN 0x0001,0x0002
03a7 0273 0275 | s u| .DBGLNO 0x0273,0x0275,0x027b
03aa 0000 0000 | | .BLANK 0000[0x56]