|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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
; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0018
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 For_Call,INIT_00d8
0034 029f 0103 | | Declare_Subprogram For_Call,INIT_0100
0036 029f 0123 | #| Declare_Subprogram For_Call,INIT_0120
0038 029f 0183 | | Declare_Subprogram For_Call,INIT_0180
003a 4800 |H | Short_Literal 0x0
003b 0093 025b | [| PushFullAddress InMicrocode,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 For_Call,INIT_01d8
0052 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
0054 029f 0203 | | Declare_Subprogram For_Call,INIT_0200
0056 029f 022b | +| Declare_Subprogram For_Call,INIT_0228
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,0xfa
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,0xfa
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_Subprogram 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_Subprogram 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,0xfa
00dd 6801 |h | Jump_Zero 0xdf
00de 4503 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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,0xfa
01d2 6802 |h | Jump_Zero 0x1d5
01d3 00d2 | | Pop_Control Pop_Count_2
01d4 4502 |E | Exit_Subprogram 0x2
01d5 00c8 | | Action Pop_Auxiliary_Range
01d6 3fbb |? | Loop_Increasing 0x192
01d7 4502 |E | Exit_Subprogram 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_Result,0x1
01e2 00ea | | Load_Encached Null_String_Cache
01e3 4401 |D | Exit_Subprogram With_Result,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_Subprogram 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_Subprogram 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,Fixed,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_Subprogram 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 0x1
023c 4501 |E | Exit_Subprogram 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_Subprogram 0x1
024c TRAP_0228:
024c 0007 | | Action Break_Optional
024d 4501 |E | Exit_Subprogram 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 For_Call,INIT_0268
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 For_Call,INIT_0288
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_Subprogram 0x1
0279 TRAP_0268:
0279 0007 | | Action Break_Optional
027a 4501 |E | Exit_Subprogram 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_Subprogram 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 0011 | | .DEBUG4 0x0004,0x0011,0x9769,0x0000,0x0001,0x0000
02f6 0000 0000 | | .BLANK 0000[0x10a]