|
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_779ce4
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02b0 | | .CONST 0x02b0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0077 | w | .CONST 0x0077 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0012 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0014 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0016 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0018 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
001a 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
001c 00e5 | | Load_Encached Long_Integer_Cache
001d 0129 | ) | Execute Any,Make_Visible
001e 4803 |H | Short_Literal 0x3
001f 0093 0283 | | push_full_address INIT_0280
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 038f | | Declare_Type Package,Defined,Visible
0023 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0025 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0027 00bf | | Action Accept_Activation
0028 4800 |H | Short_Literal 0x0
0029 48ff |H | Short_Literal 0xff
002a e001 | | Load 0x0,0x1
002b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002c 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
002e 4801 |H | Short_Literal 0x1
002f 035d | ] | Declare_Type Array,Defined
0030 00e1 | | Load_Encached Boolean_Cache
0031 0266 | f | Execute Discrete,Bounds
0032 e20d | | Load 0x1,0xd
0033 0266 | f | Execute Discrete,Bounds
0034 e218 | | Load 0x1,0x18
0035 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0037 4802 |H | Short_Literal 0x2
0038 035d | ] | Declare_Type Array,Defined
0039 00d8 | | Load_Top At_Offset_0
003a 0337 | 7 | Declare_Variable Array
003b 00d8 | | Load_Top At_Offset_0
003c 0335 | 5 | Declare_Variable Array,Duplicate
003d 00cd | | Action Spare6_Action
003e 4801 |H | Short_Literal 0x1
003f 4800 |H | Short_Literal 0x0
0040 4802 |H | Short_Literal 0x2
0041 4800 |H | Short_Literal 0x0
0042 e218 | | Load 0x1,0x18
0043 0337 | 7 | Declare_Variable Array
0044 48ff |H | Short_Literal 0xff
0045 4800 |H | Short_Literal 0x0
0046 e001 | | Load 0x0,0x1
0047 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0048 e001 | | Load 0x0,0x1
0049 1b14 | | Execute Package,Field_Read,Field_Number 0x14
004a 0119 | | Execute Any,Check_In_Formal_Type
004b 00d9 | | Load_Top At_Offset_1
004c e220 | | Load 0x1,0x20
004d 01d6 | | Execute Vector,Field_Write
004e 3ff7 |? | Loop_Increasing 0x46
004f e218 | | Load 0x1,0x18
0050 0119 | | Execute Any,Check_In_Formal_Type
0051 00d9 | | Load_Top At_Offset_1
0052 e21d | | Load 0x1,0x1d
0053 e21b | | Load 0x1,0x1b
0054 01a6 | | Execute Matrix,Field_Write
0055 3fec |? | Loop_Increasing 0x42
0056 3fe9 |? | Loop_Increasing 0x40
0057 00d9 | | Load_Top At_Offset_1
0058 01a4 | | Execute Matrix,Structure_Write
0059 4800 |H | Short_Literal 0x0
005a 48ff |H | Short_Literal 0xff
005b e214 | | Load 0x1,0x14
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 4801 |H | Short_Literal 0x1
005e 035d | ] | Declare_Type Array,Defined
005f 00d8 | | Load_Top At_Offset_0
0060 0337 | 7 | Declare_Variable Array
0061 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
0063 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call
0065 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call
0067 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0068 00c7 | | Action Elaborate_Subprogram
0069 1d0f | | Execute_Immediate Reference_Lex_1,0xf
006a 00c7 | | Action Elaborate_Subprogram
006b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
006c 00c7 | | Action Elaborate_Subprogram
006d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
006e 00c7 | | Action Elaborate_Subprogram
006f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0070 00c7 | | Action Elaborate_Subprogram
0071 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0072 00c7 | | Action Elaborate_Subprogram
0073 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0074 00c7 | | Action Elaborate_Subprogram
0075 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0076 00c7 | | Action Elaborate_Subprogram
0077 BODY_0008:
0077 00bc | | Action Signal_Activated
0078 00bb | | Action Signal_Completion
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x8
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0085 7806 |x | Jump 0x8c ; case 0x1
0086 7809 |x | Jump 0x90 ; case 0x2
0087 780d |x | Jump 0x95 ; case 0x3
0088 7810 |x | Jump 0x99 ; case 0x4
0089 7811 |x | Jump 0x9b ; case 0x5
008a 7812 |x | Jump 0x9d ; case 0x6
008b 7815 |x | Jump 0xa1 ; case 0x7
008c 00da | | Load_Top At_Offset_2
008d 0091 028e | | Action Push_String_Extended_Indexed,0x28e ; "TMS_IN"
008f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0090 00db | | Load_Top At_Offset_3
0091 00db | | Load_Top At_Offset_3
0092 00e0 | | Load_Encached Standard_Cache
0093 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0095 00da | | Load_Top At_Offset_2
0096 00e0 | | Load_Encached Standard_Cache
0097 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0099 00db | | Load_Top At_Offset_3
009a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009b 00db | | Load_Top At_Offset_3
009c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009d e20d | | Load 0x1,0xd
009e 00dc | | Load_Top At_Offset_4
009f 0267 | g | Execute Discrete,Predecessor
00a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a1 e20d | | Load 0x1,0xd
00a2 00dc | | Load_Top At_Offset_4
00a3 0268 | h | Execute Discrete,Successor
00a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00c1 | | .CONST 0x00c1 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0006 | | .CONST 0x0006 ; Number of locals
00ab INIT_00a8:
00ab 821f | | Call 0x1,0x1f
00ac e002 | | Load 0x0,0x2
00ad 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00ae 03f1 | | Declare_Variable Discrete,With_Value
00af e003 | | Load 0x0,0x3
00b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b1 4801 |H | Short_Literal 0x1
00b2 821d | | Call 0x1,0x1d
00b3 e001 | | Load 0x0,0x1
00b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b5 02c7 | | Declare_Variable Any
00b6 00d8 | | Load_Top At_Offset_0
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 e003 | | Load 0x0,0x3
00b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ba 4800 |H | Short_Literal 0x0
00bb 821d | | Call 0x1,0x1d
00bc e001 | | Load 0x0,0x1
00bd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00be 02c7 | | Declare_Variable Any
00bf 00d8 | | Load_Top At_Offset_0
00c0 1c00 | | Execute_Immediate Run_Utility,0x0
00c1 BODY_00a8:
00c1 00da | | Load_Top At_Offset_2
00c2 4800 |H | Short_Literal 0x0
00c3 e001 | | Load 0x0,0x1
00c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c5 4800 |H | Short_Literal 0x0
00c6 6041 |`A | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000}
00c7 e001 | | Load 0x0,0x1
00c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c9 e403 | | Load 0x2,0x3
00ca 4804 |H | Short_Literal 0x4
00cb e001 | | Load 0x0,0x1
00cc 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00cd c404 | | Store 0x2,0x4
00ce 00da | | Load_Top At_Offset_2
00cf 6038 |`8 | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000}
00d0 e001 | | Load 0x0,0x1
00d1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00d2 c404 | | Store 0x2,0x4
00d3 00da | | Load_Top At_Offset_2
00d4 6033 |`3 | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000}
00d5 e001 | | Load 0x0,0x1
00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d7 4800 |H | Short_Literal 0x0
00d8 e403 | | Load 0x2,0x3
00d9 4803 |H | Short_Literal 0x3
00da e001 | | Load 0x0,0x1
00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dc c404 | | Store 0x2,0x4
00dd 00d8 | | Load_Top At_Offset_0
00de 4800 |H | Short_Literal 0x0
00df e001 | | Load 0x0,0x1
00e0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e1 4800 |H | Short_Literal 0x0
00e2 6025 |`% | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000}
00e3 e001 | | Load 0x0,0x1
00e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e5 e405 | | Load 0x2,0x5
00e6 4804 |H | Short_Literal 0x4
00e7 e001 | | Load 0x0,0x1
00e8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00e9 c406 | | Store 0x2,0x6
00ea 00d8 | | Load_Top At_Offset_0
00eb 601c |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000}
00ec e001 | | Load 0x0,0x1
00ed 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ee c406 | | Store 0x2,0x6
00ef 00d8 | | Load_Top At_Offset_0
00f0 6017 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000}
00f1 e001 | | Load 0x0,0x1
00f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f3 4800 |H | Short_Literal 0x0
00f4 e405 | | Load 0x2,0x5
00f5 4801 |H | Short_Literal 0x1
00f6 e001 | | Load 0x0,0x1
00f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f8 c406 | | Store 0x2,0x6
00f9 00da | | Load_Top At_Offset_2
00fa e402 | | Load 0x2,0x2
00fb 4801 |H | Short_Literal 0x1
00fc 4801 |H | Short_Literal 0x1
00fd e21a | | Load 0x1,0x1a
00fe 01a5 | | Execute Matrix,Field_Reference
00ff 01d6 | | Execute Vector,Field_Write
0100 00d8 | | Load_Top At_Offset_0
0101 e402 | | Load 0x2,0x2
0102 4800 |H | Short_Literal 0x0
0103 4801 |H | Short_Literal 0x1
0104 e21a | | Load 0x1,0x1a
0105 01a5 | | Execute Matrix,Field_Reference
0106 01d6 | | Execute Vector,Field_Write
0107 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0108 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0117 | | .CONST 0x0117 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 821f | | Call 0x1,0x1f
0114 e002 | | Load 0x0,0x2
0115 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0116 03f1 | | Declare_Variable Discrete,With_Value
0117 BODY_0110:
0117 4801 |H | Short_Literal 0x1
0118 821e | | Call 0x1,0x1e
0119 00cf | | Action Mark_Auxiliary
011a 4802 |H | Short_Literal 0x2
011b 4800 |H | Short_Literal 0x0
011c 0007 | | Action Break_Optional
011d e001 | | Load 0x0,0x1
011e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
011f e402 | | Load 0x2,0x2
0120 00da | | Load_Top At_Offset_2
0121 4801 |H | Short_Literal 0x1
0122 e21a | | Load 0x1,0x1a
0123 01a5 | | Execute Matrix,Field_Reference
0124 01d6 | | Execute Vector,Field_Write
0125 00c8 | | Action Pop_Auxiliary_Range
0126 3ff6 |? | Loop_Increasing 0x11d
0127 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 013f | ? | .CONST 0x013f ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0006 | | .CONST 0x0006 ; Number of locals
012b INIT_0128:
012b 821f | | Call 0x1,0x1f
012c e002 | | Load 0x0,0x2
012d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
012e 03f1 | | Declare_Variable Discrete,With_Value
012f 00db | | Load_Top At_Offset_3
0130 4800 |H | Short_Literal 0x0
0131 821d | | Call 0x1,0x1d
0132 e001 | | Load 0x0,0x1
0133 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0134 02c7 | | Declare_Variable Any
0135 00d8 | | Load_Top At_Offset_0
0136 1c00 | | Execute_Immediate Run_Utility,0x0
0137 e5ff | | Load 0x2,-0x1
0138 4801 |H | Short_Literal 0x1
0139 821d | | Call 0x1,0x1d
013a e001 | | Load 0x0,0x1
013b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
013c 02c7 | | Declare_Variable Any
013d 00d8 | | Load_Top At_Offset_0
013e 1c00 | | Execute_Immediate Run_Utility,0x0
013f BODY_0128:
013f 00da | | Load_Top At_Offset_2
0140 6023 |`# | Indirect_Literal Discrete,0x164,{0x00000000, 0x00004000}
0141 e001 | | Load 0x0,0x1
0142 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0143 4800 |H | Short_Literal 0x0
0144 e403 | | Load 0x2,0x3
0145 4803 |H | Short_Literal 0x3
0146 e001 | | Load 0x0,0x1
0147 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0148 c404 | | Store 0x2,0x4
0149 00d8 | | Load_Top At_Offset_0
014a 6019 |` | Indirect_Literal Discrete,0x164,{0x00000000, 0x00004000}
014b e001 | | Load 0x0,0x1
014c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014d 4800 |H | Short_Literal 0x0
014e e405 | | Load 0x2,0x5
014f 4801 |H | Short_Literal 0x1
0150 e001 | | Load 0x0,0x1
0151 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0152 c406 | | Store 0x2,0x6
0153 00da | | Load_Top At_Offset_2
0154 e402 | | Load 0x2,0x2
0155 4800 |H | Short_Literal 0x0
0156 4800 |H | Short_Literal 0x0
0157 e21a | | Load 0x1,0x1a
0158 01a5 | | Execute Matrix,Field_Reference
0159 01d6 | | Execute Vector,Field_Write
015a 00d8 | | Load_Top At_Offset_0
015b e402 | | Load 0x2,0x2
015c 4801 |H | Short_Literal 0x1
015d 4800 |H | Short_Literal 0x0
015e e21a | | Load 0x1,0x1a
015f 01a5 | | Execute Matrix,Field_Reference
0160 01d6 | | Execute Vector,Field_Write
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 0000 0000 | | .XXX[0x2]
0164 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0171 | q | .CONST 0x0171 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0003 | | .CONST 0x0003 ; Number of locals
016b INIT_0168:
016b 821f | | Call 0x1,0x1f
016c e002 | | Load 0x0,0x2
016d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
016e 03f1 | | Declare_Variable Discrete,With_Value
016f 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
0171 BODY_0168:
0171 8403 | | Call 0x2,0x3
0172 4800 |H | Short_Literal 0x0
0173 821e | | Call 0x1,0x1e
0174 00cf | | Action Mark_Auxiliary
0175 4802 |H | Short_Literal 0x2
0176 4800 |H | Short_Literal 0x0
0177 0007 | | Action Break_Optional
0178 e001 | | Load 0x0,0x1
0179 1b15 | | Execute Package,Field_Read,Field_Number 0x15
017a e402 | | Load 0x2,0x2
017b 00da | | Load_Top At_Offset_2
017c 4800 |H | Short_Literal 0x0
017d e21a | | Load 0x1,0x1a
017e 01a5 | | Execute Matrix,Field_Reference
017f 01d6 | | Execute Vector,Field_Write
0180 00c8 | | Action Pop_Auxiliary_Range
0181 3ff6 |? | Loop_Increasing 0x178
0182 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0183 0000 0000 | | .BLANK 0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f | | .CONST 0x018f ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b 821f | | Call 0x1,0x1f
018c e002 | | Load 0x0,0x2
018d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018e 03f1 | | Declare_Variable Discrete,With_Value
018f BODY_0188:
018f 00db | | Load_Top At_Offset_3
0190 00d9 | | Load_Top At_Offset_1
0191 e5fe | | Load 0x2,-0x2
0192 e5fd | | Load 0x2,-0x3
0193 e21a | | Load 0x1,0x1a
0194 01a5 | | Execute Matrix,Field_Reference
0195 01d6 | | Execute Vector,Field_Write
0196 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f | | .CONST 0x019f ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 821f | | Call 0x1,0x1f
019c e002 | | Load 0x0,0x2
019d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
019e 03f1 | | Declare_Variable Discrete,With_Value
019f BODY_0198:
019f 00d8 | | Load_Top At_Offset_0
01a0 e5ff | | Load 0x2,-0x1
01a1 e5fe | | Load 0x2,-0x2
01a2 e21a | | Load 0x1,0x1a
01a3 01a5 | | Execute Matrix,Field_Reference
01a4 01d7 | | Execute Vector,Field_Read
01a5 00d8 | | Load_Top At_Offset_0
01a6 0120 | | Execute Any,Is_Value
01a7 7002 |p | Jump_Nonzero 0x1aa
01a8 00d8 | | Load_Top At_Offset_0
01a9 011e | | Execute Any,Convert
01aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 00db | | Load_Top At_Offset_3
01b5 e21c | | Load 0x1,0x1c
01b6 01d6 | | Execute Vector,Field_Write
01b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00da | | Load_Top At_Offset_2
01bc e21c | | Load 0x1,0x1c
01bd 01d7 | | Execute Vector,Field_Read
01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00d1 | | Pop_Control Pop_Count_1
01c4 00da | | Load_Top At_Offset_2
01c5 01dc | | Execute Vector,Last
01c6 00db | | Load_Top At_Offset_3
01c7 01dd | | Execute Vector,First
01c8 0263 | c | Execute Discrete,Above_Bound
01c9 700a |p | Jump_Nonzero 0x1d4
01ca 00d8 | | Load_Top At_Offset_0
01cb e5ff | | Load 0x2,-0x1
01cc 01d5 | | Execute Vector,Field_Reference
01cd 0125 | % | Execute Any,Set_Constraint
01ce 00d8 | | Load_Top At_Offset_0
01cf e5ff | | Load 0x2,-0x1
01d0 01d5 | | Execute Vector,Field_Reference
01d1 1c00 | | Execute_Immediate Run_Utility,0x0
01d2 0a01 | | Execute_Immediate Plus,0x1
01d3 7ff4 | | Jump 0x1c8
01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
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 00d1 | | Pop_Control Pop_Count_1
01dc 4801 |H | Short_Literal 0x1
01dd 00db | | Load_Top At_Offset_3
01de 01ac | | Execute Matrix,Last
01df 4801 |H | Short_Literal 0x1
01e0 e5ff | | Load 0x2,-0x1
01e1 01ad | | Execute Matrix,First
01e2 0263 | c | Execute Discrete,Above_Bound
01e3 7011 |p | Jump_Nonzero 0x1f5
01e4 4802 |H | Short_Literal 0x2
01e5 e5ff | | Load 0x2,-0x1
01e6 01ac | | Execute Matrix,Last
01e7 4802 |H | Short_Literal 0x2
01e8 e5ff | | Load 0x2,-0x1
01e9 01ad | | Execute Matrix,First
01ea 0263 | c | Execute Discrete,Above_Bound
01eb 7007 |p | Jump_Nonzero 0x1f3
01ec 00d8 | | Load_Top At_Offset_0
01ed 00db | | Load_Top At_Offset_3
01ee e5ff | | Load 0x2,-0x1
01ef 01a5 | | Execute Matrix,Field_Reference
01f0 1c00 | | Execute_Immediate Run_Utility,0x0
01f1 0a01 | | Execute_Immediate Plus,0x1
01f2 7ff7 | | Jump 0x1ea
01f3 0a01 | | Execute_Immediate Plus,0x1
01f4 7fed | | Jump 0x1e2
01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fe | | .CONST 0x01fe ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb 00db | | Load_Top At_Offset_3
01fc 00e0 | | Load_Encached Standard_Cache
01fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01fe BODY_01f8:
01fe 0092 0291 | | Action Push_String_Extended,0x291 ; "!Machine.Temporary.Testmate_"
0200 00d9 | | Load_Top At_Offset_1
0201 01dd | | Execute Vector,First
0202 0a01 | | Execute_Immediate Plus,0x1
0203 00d8 | | Load_Top At_Offset_0
0204 00e2 | | Load_Encached Integer_Cache
0205 0260 | ` | Execute Discrete,In_Type
0206 7001 |p | Jump_Nonzero 0x208
0207 0801 | | Execute_Immediate Raise,0x1
0208 00da | | Load_Top At_Offset_2
0209 01dc | | Execute Vector,Last
020a 00db | | Load_Top At_Offset_3
020b 01cf | | Execute Vector,Slice_Read
020c 01cc | | Execute Vector,Catenate
020d 0092 0292 | | Action Push_String_Extended,0x292 ; "_"
020f 01cc | | Execute Vector,Catenate
0210 e5ff | | Load 0x2,-0x1
0211 e20d | | Load 0x1,0xd
0212 011c | | Execute Any,Convert_Unchecked
0213 1c01 | | Execute_Immediate Run_Utility,0x1
0214 01cc | | Execute Vector,Catenate
0215 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0220 | | .CONST 0x0220 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e001 | | Load 0x0,0x1
021c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
021d 02c7 | | Declare_Variable Any
021e 00d8 | | Load_Top At_Offset_0
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 BODY_0218:
0220 00cf | | Action Mark_Auxiliary
0221 4802 |H | Short_Literal 0x2
0222 4800 |H | Short_Literal 0x0
0223 0007 | | Action Break_Optional
0224 e5ff | | Load 0x2,-0x1
0225 00d9 | | Load_Top At_Offset_1
0226 8213 | | Call 0x1,0x13
0227 c402 | | Store 0x2,0x2
0228 00db | | Load_Top At_Offset_3
0229 e001 | | Load 0x0,0x1
022a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
022b 012f | / | Execute Any,Equal
022c 7019 |p | Jump_Nonzero 0x246
022d 00db | | Load_Top At_Offset_3
022e 601d |` | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00004000}
022f e001 | | Load 0x0,0x1
0230 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0231 c402 | | Store 0x2,0x2
0232 e5ff | | Load 0x2,-0x1
0233 6812 |h | Jump_Zero 0x246
0234 00db | | Load_Top At_Offset_3
0235 6016 |` | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00004000}
0236 e001 | | Load 0x0,0x1
0237 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0238 4800 |H | Short_Literal 0x0
0239 e003 | | Load 0x0,0x3
023a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023b e405 | | Load 0x2,0x5
023c 821d | | Call 0x1,0x1d
023d 4804 |H | Short_Literal 0x4
023e e001 | | Load 0x0,0x1
023f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0240 c402 | | Store 0x2,0x2
0241 00db | | Load_Top At_Offset_3
0242 6009 |` | Indirect_Literal Discrete,0x24c,{0x00000000, 0x00004000}
0243 e001 | | Load 0x0,0x1
0244 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0245 c402 | | Store 0x2,0x2
0246 00c8 | | Action Pop_Auxiliary_Range
0247 3fdc |? | Loop_Increasing 0x224
0248 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0249 0000 0000 | | .XXX[0x3]
024b 0000 | |
024c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
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 e003 | | Load 0x0,0x3
0254 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0255 00ca | | Action Exit_Nullary_Function
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025d | ] | .CONST 0x025d ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
025d BODY_0258:
025d 00cf | | Action Mark_Auxiliary
025e 4802 |H | Short_Literal 0x2
025f 4800 |H | Short_Literal 0x0
0260 0007 | | Action Break_Optional
0261 4800 |H | Short_Literal 0x0
0262 00d9 | | Load_Top At_Offset_1
0263 8213 | | Call 0x1,0x13
0264 8602 | | Call 0x3,0x2
0265 00c8 | | Action Pop_Auxiliary_Range
0266 3ffa |? | Loop_Increasing 0x261
0267 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c e001 | | Load 0x0,0x1
026d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
026e 012f | / | Execute Any,Equal
026f 700b |p | Jump_Nonzero 0x27b
0270 00cf | | Action Mark_Auxiliary
0271 7803 |x | Jump 0x275
0272 6009 |` | Indirect_Literal Discrete,0x27c,{0x00000000, 0x00002000}
0273 00ba | | Action Initiate_Delay
0274 00c9 | | Action Pop_Auxiliary_Loop
0275 00db | | Load_Top At_Offset_3
0276 e001 | | Load 0x0,0x1
0277 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0278 0c01 | | Execute_Immediate Greater_Equal,0x1
0279 77f8 |w | Jump_Nonzero 0x272
027a 00ce | | Action Pop_Auxiliary
027b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027c 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0286 | | .CONST 0x0286 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0010 | | .CONST 0x0010 ; Number of locals
0283 INIT_0280:
0283 029c 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible
0285 00bf | | Action Accept_Activation
0286 BODY_0280:
0286 00bc | | Action Signal_Activated
0287 00bb | | Action Signal_Completion
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00b6 | | Action Make_Scope
028c 020a | | Execute Module,Get_Name
028d 00ca | | Action Exit_Nullary_Function
028e ; --------------------------------------------------------------------------------------
028e ; STRING TABLE
028e ; --------------------------------------------------------------------------------------
028e 000c | | .STRTAB 0x000c->0x0294 ; "TMS_IN"
028f 0010 | | .STRTAB 0x0010->0x0297 ; "TMS_OUT"
0290 0015 | | .STRTAB 0x0015->0x029a ; "CA_IN"
0291 0018 | | .STRTAB 0x0018->0x029d ; "!Machine.Temporary.Testmate_"
0292 0032 | 2 | .STRTAB 0x0032->0x02ab ; "_"
0293 0031 | 1 | .STREND 0x0031->0x02ab
0294 544d 535f |TMS_| .STRTAB_STRINGS
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug Table
02b0 ; --------------------------------------------------------------------------------------
02b0 0004 000a | | .DEBUG4 0x0004,0x000a,0x3492,0x0000,0x0001,0x0000
02b6 0000 0000 | | .BLANK 0000[0x14a]