|
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_03bcfe
└─⟦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 02f0 | | .CONST 0x02f0 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x26b, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0058 | X | .CONST 0x0058 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0014 | | .CONST 0x0014 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
001d 4801 |H | Short_Literal 0x1
001e 48fa |H | Short_Literal 0xfa
001f e002 | | Load 0x0,0x2
0020 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 035d | ] | Declare_Type Array,Defined
0024 00d8 | | Load_Top At_Offset_0
0025 0337 | 7 | Declare_Variable Array
0026 4801 |H | Short_Literal 0x1
0027 48fa |H | Short_Literal 0xfa
0028 00e1 | | Load_Encached Boolean_Cache
0029 02a0 | | Declare_Subprogram Null_Subprogram
002a 4801 |H | Short_Literal 0x1
002b 035d | ] | Declare_Type Array,Defined
002c 00d8 | | Load_Top At_Offset_0
002d 0337 | 7 | Declare_Variable Array
002e 00e3 | | Load_Encached Natural_Cache
002f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0030 00e3 | | Load_Encached Natural_Cache
0031 00e3 | | Load_Encached Natural_Cache
0032 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0034 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0036 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0038 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
003a 4800 |H | Short_Literal 0x0
003b 0093 025b | [| push_full_address INIT_0258
003d 00f5 | | Load_Encached Unused21
003e 037a | z | Declare_Type Task,Defined,Not_Elaborated
003f 00d8 | | Load_Top At_Offset_0
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 4818 |H | Short_Literal 0x18
0042 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0043 e002 | | Load 0x0,0x2
0044 e003 | | Load 0x0,0x3
0045 4802 |H | Short_Literal 0x2
0046 e40e | | Load 0x2,0xe
0047 020e | | Execute Module,Augment_Imports
0048 e40e | | Load 0x2,0xe
0049 020d | | Execute Module,Elaborate
004a 0007 | | Action Break_Optional
004b 00d8 | | Load_Top At_Offset_0
004c 03bc | | Declare_Variable Access,By_Allocation
004d 00d8 | | Load_Top At_Offset_0
004e 00e0 | | Load_Encached Standard_Cache
004f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0050 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0052 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0054 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
0056 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
0058 BODY_0018:
0058 e004 | | Load 0x0,0x4
0059 181f | | Execute Package,Field_Execute,Field_Number 0x1f
005a 686e |hn | Jump_Zero 0xc9
005b 8412 | | Call 0x2,0x12
005c 8413 | | Call 0x2,0x13
005d e5ff | | Load 0x2,-0x1
005e 00d8 | | Load_Top At_Offset_0
005f e005 | | Load 0x0,0x5
0060 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0061 0260 | ` | Execute Discrete,In_Type
0062 7001 |p | Jump_Nonzero 0x64
0063 0801 | | Execute_Immediate Raise,0x1
0064 840d | | Call 0x2,0xd
0065 4801 |H | Short_Literal 0x1
0066 a408 | | Store_Unchecked 0x2,0x8
0067 00cf | | Action Mark_Auxiliary
0068 e407 | | Load 0x2,0x7
0069 0ffa | | Execute_Immediate Equal,-0x6
006a 7016 |p | Jump_Nonzero 0x81
006b e408 | | Load 0x2,0x8
006c a409 | | Store_Unchecked 0x2,0x9
006d e407 | | Load 0x2,0x7
006e a408 | | Store_Unchecked 0x2,0x8
006f 00cf | | Action Mark_Auxiliary
0070 e407 | | Load 0x2,0x7
0071 e409 | | Load 0x2,0x9
0072 0263 | c | Execute Discrete,Above_Bound
0073 7006 |p | Jump_Nonzero 0x7a
0074 00d8 | | Load_Top At_Offset_0
0075 e404 | | Load 0x2,0x4
0076 01d7 | | Execute Vector,Field_Read
0077 840c | | Call 0x2,0xc
0078 00c8 | | Action Pop_Auxiliary_Range
0079 3ffa |? | Loop_Increasing 0x74
007a 00ce | | Action Pop_Auxiliary
007b e407 | | Load 0x2,0x7
007c e408 | | Load 0x2,0x8
007d 027f | | Execute Discrete,Equal
007e 7002 |p | Jump_Nonzero 0x81
007f 00c9 | | Action Pop_Auxiliary_Loop
0080 7fe7 | | Jump 0x68
0081 00ce | | Action Pop_Auxiliary
0082 e407 | | Load 0x2,0x7
0083 0ffa | | Execute_Immediate Equal,-0x6
0084 6804 |h | Jump_Zero 0x89
0085 0092 028f | | Action Push_String_Extended,0x28f ; "Max_Tasks reached; some tasks may escape!"
0087 e006 | | Load 0x0,0x6
0088 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0089 e5fb | | Load 0x2,-0x5
008a 6827 |h' | Jump_Zero 0xb2
008b 0092 0290 | | Action Push_String_Extended,0x290 ; "Root_Task = "
008d e402 | | Load 0x2,0x2
008e e007 | | Load 0x0,0x7
008f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0090 01cc | | Execute Vector,Catenate
0091 e006 | | Load 0x0,0x6
0092 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0093 00cf | | Action Mark_Auxiliary
0094 e407 | | Load 0x2,0x7
0095 4801 |H | Short_Literal 0x1
0096 0263 | c | Execute Discrete,Above_Bound
0097 7019 |p | Jump_Nonzero 0xb1
0098 00d8 | | Load_Top At_Offset_0
0099 e404 | | Load 0x2,0x4
009a 01d7 | | Execute Vector,Field_Read
009b e007 | | Load 0x0,0x7
009c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009d 0092 0291 | | Action Push_String_Extended,0x291 ; ": "
009f 01cc | | Execute Vector,Catenate
00a0 e417 | | Load 0x2,0x17
00a1 e404 | | Load 0x2,0x4
00a2 01d7 | | Execute Vector,Field_Read
00a3 e002 | | Load 0x0,0x2
00a4 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
00a5 e002 | | Load 0x0,0x2
00a6 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
00a7 011c | | Execute Any,Convert_Unchecked
00a8 1c01 | | Execute_Immediate Run_Utility,0x1
00a9 01cc | | Execute Vector,Catenate
00aa e417 | | Load 0x2,0x17
00ab 8411 | | Call 0x2,0x11
00ac 01cc | | Execute Vector,Catenate
00ad e006 | | Load 0x0,0x6
00ae 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00af 00c8 | | Action Pop_Auxiliary_Range
00b0 3fe7 |? | Loop_Increasing 0x98
00b1 00ce | | Action Pop_Auxiliary
00b2 e5fa | | Load 0x2,-0x6
00b3 7014 |p | Jump_Nonzero 0xc8
00b4 e5fe | | Load 0x2,-0x2
00b5 6809 |h | Jump_Zero 0xbf
00b6 e402 | | Load 0x2,0x2
00b7 6807 |h | Jump_Zero 0xbf
00b8 e402 | | Load 0x2,0x2
00b9 4801 |H | Short_Literal 0x1
00ba e410 | | Load 0x2,0x10
00bb 0229 | ) | Execute Access,All_Read
00bc 170d | | Execute Task,Entry_Call,Field_Number 0xd
00bd 6012 |` | Indirect_Literal Discrete,0xd0,{0x00000000, 0x000a0000}
00be 00ba | | Action Initiate_Delay
00bf 00cf | | Action Mark_Auxiliary
00c0 e407 | | Load 0x2,0x7
00c1 4801 |H | Short_Literal 0x1
00c2 0263 | c | Execute Discrete,Above_Bound
00c3 7003 |p | Jump_Nonzero 0xc7
00c4 8414 | | Call 0x2,0x14
00c5 00c8 | | Action Pop_Auxiliary_Range
00c6 3ffd |? | Loop_Increasing 0xc4
00c7 00ce | | Action Pop_Auxiliary
00c8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00c9 0092 0292 | | Action Push_String_Extended,0x292 ; "Operator Capability is required to use this command."
00cb e006 | | Load 0x0,0x6
00cc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00cd 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00ce 0000 0000 | | .XXX[0x2]
00d0 0000 0000 | | .LITERAL {0x00000000, 0x000a0000}
00d4 0000 0000 | | .BLANK 0000[0x4]
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 e407 | | Load 0x2,0x7
00dc 0cfa | | Execute_Immediate Greater_Equal,-0x6
00dd 6801 |h | Jump_Zero 0xdf
00de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00df 00cf | | Action Mark_Auxiliary
00e0 e407 | | Load 0x2,0x7
00e1 4801 |H | Short_Literal 0x1
00e2 0263 | c | Execute Discrete,Above_Bound
00e3 700f |p | Jump_Nonzero 0xf3
00e4 00d8 | | Load_Top At_Offset_0
00e5 e404 | | Load 0x2,0x4
00e6 01d7 | | Execute Vector,Field_Read
00e7 e7ff | | Load 0x3,-0x1
00e8 027f | | Execute Discrete,Equal
00e9 6807 |h | Jump_Zero 0xf1
00ea e7fe | | Load 0x3,-0x2
00eb 6804 |h | Jump_Zero 0xf0
00ec 4801 |H | Short_Literal 0x1
00ed e604 | | Load 0x3,0x4
00ee e406 | | Load 0x2,0x6
00ef 01d6 | | Execute Vector,Field_Write
00f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f1 00c8 | | Action Pop_Auxiliary_Range
00f2 3ff1 |? | Loop_Increasing 0xe4
00f3 00ce | | Action Pop_Auxiliary
00f4 e407 | | Load 0x2,0x7
00f5 0a01 | | Execute_Immediate Plus,0x1
00f6 c407 | | Store 0x2,0x7
00f7 e7ff | | Load 0x3,-0x1
00f8 e407 | | Load 0x2,0x7
00f9 e404 | | Load 0x2,0x4
00fa 01d6 | | Execute Vector,Field_Write
00fb e7fe | | Load 0x3,-0x2
00fc e407 | | Load 0x2,0x7
00fd e406 | | Load 0x2,0x6
00fe 01d6 | | Execute Vector,Field_Write
00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010d | | .CONST 0x010d ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e7ff | | Load 0x3,-0x1
0104 00d8 | | Load_Top At_Offset_0
0105 e008 | | Load 0x0,0x8
0106 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0107 0260 | ` | Execute Discrete,In_Type
0108 7001 |p | Jump_Nonzero 0x10a
0109 0801 | | Execute_Immediate Raise,0x1
010a e002 | | Load 0x0,0x2
010b 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
010c 03f1 | | Declare_Variable Discrete,With_Value
010d BODY_0100:
010d 00d8 | | Load_Top At_Offset_0
010e e008 | | Load 0x0,0x8
010f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0110 e5ff | | Load 0x2,-0x1
0111 00d8 | | Load_Top At_Offset_0
0112 e008 | | Load 0x0,0x8
0113 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0114 0260 | ` | Execute Discrete,In_Type
0115 7001 |p | Jump_Nonzero 0x117
0116 0801 | | Execute_Immediate Raise,0x1
0117 027f | | Execute Discrete,Equal
0118 6803 |h | Jump_Zero 0x11c
0119 4800 |H | Short_Literal 0x0
011a e602 | | Load 0x3,0x2
011b 840a | | Call 0x2,0xa
011c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012e | . | .CONST 0x012e ; Address of begin
0121 0174 | t | .CONST 0x0174 ; Address of exception handler
0122 0004 | | .CONST 0x0004 ; Number of locals
0123 INIT_0120:
0123 e002 | | Load 0x0,0x2
0124 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0125 0322 | " | Declare_Variable Record
0126 e002 | | Load 0x0,0x2
0127 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0128 02c7 | | Declare_Variable Any
0129 e7ff | | Load 0x3,-0x1
012a e007 | | Load 0x0,0x7
012b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
012c a603 | | Store_Unchecked 0x3,0x3
012d 00e5 | | Load_Encached Long_Integer_Cache
012e BODY_0120:
012e 0092 0293 | | Action Push_String_Extended,0x293 ; "scanning stack of "
0130 e7ff | | Load 0x3,-0x1
0131 e007 | | Load 0x0,0x7
0132 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0133 01cc | | Execute Vector,Catenate
0134 e006 | | Load 0x0,0x6
0135 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0136 4814 |H | Short_Literal 0x14
0137 4825 |H% | Short_Literal 0x25
0138 4802 |H | Short_Literal 0x2
0139 e603 | | Load 0x3,0x3
013a e002 | | Load 0x0,0x2
013b 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
013c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013d e007 | | Load 0x0,0x7
013e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013f a604 | | Store_Unchecked 0x3,0x4
0140 0092 0294 | | Action Push_String_Extended,0x294 ; " tos = "
0142 e604 | | Load 0x3,0x4
0143 00e0 | | Load_Encached Standard_Cache
0144 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0145 01cc | | Execute Vector,Catenate
0146 e006 | | Load 0x0,0x6
0147 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0148 00cf | | Action Mark_Auxiliary
0149 e604 | | Load 0x3,0x4
014a 4801 |H | Short_Literal 0x1
014b 0263 | c | Execute Discrete,Above_Bound
014c 7026 |p& | Jump_Nonzero 0x173
014d 00d8 | | Load_Top At_Offset_0
014e 00d8 | | Load_Top At_Offset_0
014f e002 | | Load 0x0,0x2
0150 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0151 0260 | ` | Execute Discrete,In_Type
0152 7001 |p | Jump_Nonzero 0x154
0153 0801 | | Execute_Immediate Raise,0x1
0154 e603 | | Load 0x3,0x3
0155 e002 | | Load 0x0,0x2
0156 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0157 e602 | | Load 0x3,0x2
0158 017d | } | Execute Record,Structure_Write
0159 e602 | | Load 0x3,0x2
015a e002 | | Load 0x0,0x2
015b 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
015c 0b58 | X | Execute_Immediate Case_Compare,0x58
015d 700b |p | Jump_Nonzero 0x169
015e 0f18 | | Execute_Immediate Equal,0x18
015f 7001 |p | Jump_Nonzero 0x161
0160 7810 |x | Jump 0x171
0161 4820 |H | Short_Literal 0x20
0162 4800 |H | Short_Literal 0x0
0163 e602 | | Load 0x3,0x2
0164 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0165 e007 | | Load 0x0,0x7
0166 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0167 840b | | Call 0x2,0xb
0168 7808 |x | Jump 0x171
0169 00d1 | | Pop_Control Pop_Count_1
016a 4820 |H | Short_Literal 0x20
016b 4800 |H | Short_Literal 0x0
016c e602 | | Load 0x3,0x2
016d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016e e007 | | Load 0x0,0x7
016f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0170 840b | | Call 0x2,0xb
0171 00c8 | | Action Pop_Auxiliary_Range
0172 3fda |? | Loop_Increasing 0x14d
0173 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0174 TRAP_0120:
0174 0007 | | Action Break_Optional
0175 0092 0295 | | Action Push_String_Extended,0x295 ; " Exception in scan: "
0177 e009 | | Load 0x0,0x9
0178 180d | | Execute Package,Field_Execute,Field_Number 0xd
0179 01cc | | Execute Vector,Catenate
017a e006 | | Load 0x0,0x6
017b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018b | | .CONST 0x018b ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0006 | | .CONST 0x0006 ; Number of locals
0183 INIT_0180:
0183 00e1 | | Load_Encached Boolean_Cache
0184 e005 | | Load 0x0,0x5
0185 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0186 0322 | " | Declare_Variable Record
0187 00e5 | | Load_Encached Long_Integer_Cache
0188 e003 | | Load 0x0,0x3
0189 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018a 00e3 | | Load_Encached Natural_Cache
018b BODY_0180:
018b 00cf | | Action Mark_Auxiliary
018c e00a | | Load 0x0,0xa
018d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018e 0269 | i | Execute Discrete,Last
018f 4800 |H | Short_Literal 0x0
0190 0263 | c | Execute Discrete,Above_Bound
0191 7045 |pE | Jump_Nonzero 0x1d7
0192 e603 | | Load 0x3,0x3
0193 00e1 | | Load_Encached Boolean_Cache
0194 e609 | | Load 0x3,0x9
0195 e00a | | Load 0x0,0xa
0196 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0197 c602 | | Store 0x3,0x2
0198 00d1 | | Pop_Control Pop_Count_1
0199 e602 | | Load 0x3,0x2
019a 703a |p: | Jump_Nonzero 0x1d5
019b e603 | | Load 0x3,0x3
019c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
019d 0f01 | | Execute_Immediate Equal,0x1
019e 6836 |h6 | Jump_Zero 0x1d5
019f e603 | | Load 0x3,0x3
01a0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a1 7033 |p3 | Jump_Nonzero 0x1d5
01a2 e603 | | Load 0x3,0x3
01a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a4 e7ff | | Load 0x3,-0x1
01a5 027f | | Execute Discrete,Equal
01a6 682e |h. | Jump_Zero 0x1d5
01a7 e603 | | Load 0x3,0x3
01a8 e00a | | Load 0x0,0xa
01a9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01aa 702a |p* | Jump_Nonzero 0x1d5
01ab e603 | | Load 0x3,0x3
01ac e00b | | Load 0x0,0xb
01ad 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01af 6825 |h% | Jump_Zero 0x1d5
01b0 e603 | | Load 0x3,0x3
01b1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b2 4802 |H | Short_Literal 0x2
01b3 e005 | | Load 0x0,0x5
01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b5 012c | , | Execute Any,Size
01b6 026d | m | Execute Discrete,Exponentiate
01b7 0271 | q | Execute Discrete,Times
01b8 e603 | | Load 0x3,0x3
01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ba 0273 | s | Execute Discrete,Plus
01bb a604 | | Store_Unchecked 0x3,0x4
01bc e604 | | Load 0x3,0x4
01bd 00d8 | | Load_Top At_Offset_0
01be e008 | | Load 0x0,0x8
01bf 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01c0 0260 | ` | Execute Discrete,In_Type
01c1 7001 |p | Jump_Nonzero 0x1c3
01c2 0801 | | Execute_Immediate Raise,0x1
01c3 e002 | | Load 0x0,0x2
01c4 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
01c5 0e0d | | Execute_Immediate Not_Equal,0xd
01c6 680e |h | Jump_Zero 0x1d5
01c7 4800 |H | Short_Literal 0x0
01c8 e604 | | Load 0x3,0x4
01c9 00d8 | | Load_Top At_Offset_0
01ca e008 | | Load 0x0,0x8
01cb 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01cc 0260 | ` | Execute Discrete,In_Type
01cd 7001 |p | Jump_Nonzero 0x1cf
01ce 0801 | | Execute_Immediate Raise,0x1
01cf 840a | | Call 0x2,0xa
01d0 e407 | | Load 0x2,0x7
01d1 0cfa | | Execute_Immediate Greater_Equal,-0x6
01d2 6802 |h | Jump_Zero 0x1d5
01d3 00d2 | | Pop_Control Pop_Count_2
01d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d5 00c8 | | Action Pop_Auxiliary_Range
01d6 3fbb |? | Loop_Increasing 0x192
01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 e7ff | | Load 0x3,-0x1
01dc e406 | | Load 0x2,0x6
01dd 01d7 | | Execute Vector,Field_Read
01de 6803 |h | Jump_Zero 0x1e2
01df 0092 0296 | | Action Push_String_Extended,0x296 ; " has action"
01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e2 00ea | | Load_Encached Null_String_Cache
01e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 01fb | | .CONST 0x01fb ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e5ff | | Load 0x2,-0x1
01ec 00d8 | | Load_Top At_Offset_0
01ed e005 | | Load 0x0,0x5
01ee 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
01ef 0260 | ` | Execute Discrete,In_Type
01f0 7001 |p | Jump_Nonzero 0x1f2
01f1 0801 | | Execute_Immediate Raise,0x1
01f2 e00c | | Load 0x0,0xc
01f3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01f4 a402 | | Store_Unchecked 0x2,0x2
01f5 e402 | | Load 0x2,0x2
01f6 6803 |h | Jump_Zero 0x1fa
01f7 4800 |H | Short_Literal 0x0
01f8 e402 | | Load 0x2,0x2
01f9 840a | | Call 0x2,0xa
01fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fb TRAP_01e8:
01fb 0007 | | Action Break_Optional
01fc 4800 |H | Short_Literal 0x0
01fd a402 | | Store_Unchecked 0x2,0x2
01fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0208 | | .CONST 0x0208 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 e00d | | Load 0x0,0xd
0204 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0205 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0206 e003 | | Load 0x0,0x3
0207 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0208 BODY_0200:
0208 00cf | | Action Mark_Auxiliary
0209 e602 | | Load 0x3,0x2
020a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020b 4801 |H | Short_Literal 0x1
020c 0263 | c | Execute Discrete,Above_Bound
020d 7019 |p | Jump_Nonzero 0x227
020e 00d8 | | Load_Top At_Offset_0
020f e602 | | Load 0x3,0x2
0210 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0211 01d7 | | Execute Vector,Field_Read
0212 e00d | | Load 0x0,0xd
0213 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0214 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0215 a603 | | Store_Unchecked 0x3,0x3
0216 e603 | | Load 0x3,0x3
0217 e008 | | Load 0x0,0x8
0218 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0219 e5ff | | Load 0x2,-0x1
021a 00d8 | | Load_Top At_Offset_0
021b e008 | | Load 0x0,0x8
021c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
021d 0260 | ` | Execute Discrete,In_Type
021e 7001 |p | Jump_Nonzero 0x220
021f 0801 | | Execute_Immediate Raise,0x1
0220 027f | | Execute Discrete,Equal
0221 6803 |h | Jump_Zero 0x225
0222 4801 |H | Short_Literal 0x1
0223 e603 | | Load 0x3,0x3
0224 840a | | Call 0x2,0xa
0225 00c8 | | Action Pop_Auxiliary_Range
0226 3fe7 |? | Loop_Increasing 0x20e
0227 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 024c | L | .CONST 0x024c ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e5fc | | Load 0x2,-0x4
022c 7006 |p | Jump_Nonzero 0x233
022d e5fd | | Load 0x2,-0x3
022e 681c |h | Jump_Zero 0x24b
022f e417 | | Load 0x2,0x17
0230 e406 | | Load 0x2,0x6
0231 01d7 | | Execute Vector,Field_Read
0232 6818 |h | Jump_Zero 0x24b
0233 e417 | | Load 0x2,0x17
0234 e404 | | Load 0x2,0x4
0235 01d7 | | Execute Vector,Field_Read
0236 4801 |H | Short_Literal 0x1
0237 6018 |` | Indirect_Literal Discrete,0x250,{0x00000000, 0x000a0000}
0238 e410 | | Load 0x2,0x10
0239 0229 | ) | Execute Access,All_Read
023a 150d | | Execute Task,Timed_Call,Field_Number 0xd
023b 4601 |F | Jump_Case 0x2
023c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0
023d 7800 |x | Jump 0x23e ; case 0x1
023e e40f | | Load 0x2,0xf
023f 03bc | | Declare_Variable Access,By_Allocation
0240 00d8 | | Load_Top At_Offset_0
0241 00e0 | | Load_Encached Standard_Cache
0242 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0243 a410 | | Store_Unchecked 0x2,0x10
0244 e417 | | Load 0x2,0x17
0245 e404 | | Load 0x2,0x4
0246 01d7 | | Execute Vector,Field_Read
0247 4801 |H | Short_Literal 0x1
0248 e410 | | Load 0x2,0x10
0249 0229 | ) | Execute Access,All_Read
024a 170d | | Execute Task,Entry_Call,Field_Number 0xd
024b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024c TRAP_0228:
024c 0007 | | Action Break_Optional
024d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024e 0000 0000 | | .XXX[0x2]
0250 0000 0000 | | .LITERAL {0x00000000, 0x000a0000}
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0263 | c | .CONST 0x0263 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 000f | | .CONST 0x000f ; Number of locals
025b INIT_0258:
025b 4801 |H | Short_Literal 0x1
025c 02cb | | Declare_Variable Entry
025d 00bf | | Action Accept_Activation
025e e001 | | Load 0x0,0x1
025f 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0260 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
0262 00bc | | Action Signal_Activated
0263 BODY_0258:
0263 00cf | | Action Mark_Auxiliary
0264 820f | | Call 0x1,0xf
0265 00c9 | | Action Pop_Auxiliary_Loop
0266 7ffd | | Jump 0x264
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0274 | t | .CONST 0x0274 ; Address of begin
0269 0279 | y | .CONST 0x0279 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b 480d 4850 |H HP| Declare_Variable Select 0x000, 0x001,
026d 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
026f 4800 4801 |H H | [0x00d]: 0x050 = 0x0280
0271 02cf | |
0272 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0274 BODY_0268:
0274 e402 | | Load 0x2,0x2
0275 013f | ? | Execute Select,Rendezvous
0276 00d1 | | Pop_Control Pop_Count_1
0277 8403 | | Call 0x2,0x3
0278 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0279 TRAP_0268:
0279 0007 | | Action Break_Optional
027a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027b 0000 0000 | | .BLANK 0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; See instruction 0x02cf at 0x26b, index=0xd
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 e7fe | | Load 0x3,-0x2
0284 a20e | | Store_Unchecked 0x1,0xe
0285 4100 |A | End_Rendezvous 0x0
0286 0000 0000 | | .XXX[0x2]
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 e20e | | Load 0x1,0xe
028c e002 | | Load 0x0,0x2
028d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
028e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028f ; --------------------------------------------------------------------------------------
028f ; STRING TABLE
028f ; --------------------------------------------------------------------------------------
028f 0012 | | .STRTAB 0x0012->0x0298 ; "Max_Tasks reached; some tasks may escape!"
0290 003a | : | .STRTAB 0x003a->0x02ad ; "Root_Task = "
0291 0044 | D | .STRTAB 0x0044->0x02b3 ; ": "
0292 0044 | D | .STRTAB 0x0044->0x02b4 ; "Operator Capability is required to use this command."
0293 0076 | v | .STRTAB 0x0076->0x02ce ; "scanning stack of "
0294 0086 | | .STRTAB 0x0086->0x02d7 ; " tos = "
0295 008c | | .STRTAB 0x008c->0x02db ; " Exception in scan: "
0296 009e | | .STRTAB 0x009e->0x02e5 ; " has action"
0297 00a8 | | .STREND 0x00a8->0x02eb
0298 4d61 785f |Max_| .STRTAB_STRINGS
02eb 0000 0000 | | .BLANK 0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug Table
02f0 ; --------------------------------------------------------------------------------------
02f0 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd613,0x0000,0x0001,0x0000
02f6 0000 0000 | | .BLANK 0000[0x5]
02fb 4800 00cd |H | .XXX[0x19]
02fd 6004 5853 |` XS|
02ff 6000 0000 |` |
0301 0000 0000 | |
0303 0002 2c41 | ,A|
0305 e400 0013 | |
0307 0400 4588 | E |
0309 5c80 4589 |\ E |
030b 0600 0040 | @|
030d c300 60c2 | ` |
030f 9e00 0000 | |
0311 0000 8b13 | |
0313 5f00 |_ |
0314 0000 0000 | | .BLANK 0000[0x4]
0318 00cf 5601 | V | .XXX[0x11]
031a 0000 3ec5 | > |
031c 0c3d 42a0 | =B |
031e 0070 0007 | p |
0320 d8a0 0008 | |
0322 1860 0c18 | ` |
0324 53c0 0000 |S |
0326 0000 4231 | B1|
0328 24c0 |$ |
0329 0000 0000 | | .BLANK 0000[0x4]
032d 0019 eac0 | | .XXX[0x15]
032f 2000 07d8 | |
0331 a187 a854 | T|
0333 000e 0000 | |
0335 fb14 0116 | |
0337 27c0 0000 |' |
0339 0000 0000 | |
033b 0004 0211 | |
033d 8a26 0000 | & |
033f 0006 0001 | |
0341 9eac | |
0342 0000 0000 | | .BLANK 0000[0x5]
0347 0012 0000 | | .XXX[0x1a]
0349 8186 0116 | |
034b 206c 0116 | l |
034d 1f2a 0116 | * |
034f 3252 008b |2R |
0351 1543 0002 | C |
0353 5d50 2011 |]P |
0355 62b0 6011 |b ` |
0357 62da c000 |b |
0359 23bc 4004 |# @ |
035b be99 8000 | |
035d 0000 0022 | "|
035f c60a 4000 | @ |
0361 0000 0000 | | .BLANK 0000[0x4]
0365 d5a9 0040 | @| .XXX[0x9]
0367 0023 b481 | # |
0369 0350 b800 | P |
036b 0800 0476 | v|
036d 9000 | |
036e 0000 0000 | | .BLANK 0000[0xd]
037b 0008 | | .XXX[0x1]
037c 0000 0000 | | .BLANK 0000[0x4]
0380 0380 0000 | | .XXX[0xf]
0382 0000 458c | E |
0384 5500 0000 |U |
0386 0000 0000 | |
0388 0100 0000 | |
038a 0000 0000 | |
038c 0080 01ab | |
038e 5200 |R |
038f 0000 0000 | | .BLANK 0000[0x5]
0394 0480 0047 | G| .XXX[0x5]
0396 7880 458a |x E |
0398 8000 | |
0399 0000 0000 | | .BLANK 0000[0x4]
039d 22c6 8340 |" @| .XXX[0x10]
039f 0001 3040 | 0@|
03a1 0458 d268 | X h|
03a3 0458 dd00 | X |
03a5 0004 0c40 | @|
03a7 060c 45e0 | E |
03a9 0000 0000 | |
03ab 08b1 cf30 | 0|
03ad 0000 0000 | | .BLANK 0000[0x4]
03b1 000c f5a0 | | .XXX[0x11]
03b3 1000 03ec | |
03b5 50c3 d42a |P *|
03b7 0007 0000 | |
03b9 7d8a 0000 |} |
03bb 8188 00c1 | |
03bd 88bc 0000 | |
03bf 0000 0423 | #|
03c1 154a | J |
03c2 0000 0000 | | .BLANK 0000[0x4]
03c6 0001 9eb4 | | .XXX[0x16]
03c8 0200 007d | }|
03ca 8a18 7a85 | z |
03cc 4000 e000 |@ |
03ce 0fb1 4011 | @ |
03d0 63ae 8000 |c |
03d2 0000 0000 | |
03d4 0000 4021 | @!|
03d6 18ba 5000 | P |
03d8 0000 6000 | ` |
03da 19eb 4000 | @ |
03dc 0000 0000 | | .BLANK 0000[0x4]
03e0 0001 2000 | | .XXX[0x1a]
03e2 0818 8011 | |
03e4 6339 4000 |c9@ |
03e6 0000 0011 | |
03e8 6457 b008 |dW |
03ea b1ed 7000 | p |
03ec 0f05 0801 | |
03ee 163e 2e01 | >. |
03f0 1640 d400 | @ |
03f2 023b c800 | ; |
03f4 6aa1 7400 |j t |
03f6 0000 0002 | |
03f8 2c86 f400 |, |
03fa 0000 0000 | | .BLANK 0000[0x4]
03fe 0d5a 9804 | Z | .XXX[0x2]