|
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_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 03a8 | | .CONST 0x03a8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0016 | | .CONST 0x0016 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0013 00c7 | | Action Elaborate_Subprogram
0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0015 00c7 | | Action Elaborate_Subprogram
0016 BODY_0008:
0016 00bc | | Action Signal_Activated
0017 00bb | | Action Signal_Completion
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0067 | g | .CONST 0x0067 ; Address of begin
0019 011a | | .CONST 0x011a ; Address of exception handler
001a 0016 | | .CONST 0x0016 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c 0093 0000 | | push_full_address 0x0
001e 610d |a | Indirect_Literal Discrete,0x12c,{0x80000000, 0x00010000}
001f 0273 | s | Execute Discrete,Plus
0020 e002 | | Load 0x0,0x2
0021 0273 | s | Execute Discrete,Plus
0022 e003 | | Load 0x0,0x3
0023 0273 | s | Execute Discrete,Plus
0024 e5fe | | Load 0x2,-0x2
0025 0335 | 5 | Declare_Variable Array,Duplicate
0026 00cd | | Action Spare6_Action
0027 e004 | | Load 0x0,0x4
0028 0387 | | Declare_Variable Package
0029 00d8 | | Load_Top At_Offset_0
002a 020f | | Execute Module,Activate
002b e5fa | | Load 0x2,-0x6
002c e5ff | | Load 0x2,-0x1
002d 820f | | Call 0x1,0xf
002e 4801 |H | Short_Literal 0x1
002f 4802 |H | Short_Literal 0x2
0030 00e9 | | Load_Encached String_Cache
0031 035b | [ | Declare_Type Array,Constrained
0032 0337 | 7 | Declare_Variable Array
0033 4801 |H | Short_Literal 0x1
0034 4850 |HP | Short_Literal 0x50
0035 00e9 | | Load_Encached String_Cache
0036 035b | [ | Declare_Type Array,Constrained
0037 0337 | 7 | Declare_Variable Array
0038 00e3 | | Load_Encached Natural_Cache
0039 4801 |H | Short_Literal 0x1
003a 4850 |HP | Short_Literal 0x50
003b 00e9 | | Load_Encached String_Cache
003c 035b | [ | Declare_Type Array,Constrained
003d 00e3 | | Load_Encached Natural_Cache
003e 00e3 | | Load_Encached Natural_Cache
003f 00e3 | | Load_Encached Natural_Cache
0040 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0042 4804 |H | Short_Literal 0x4
0043 032d | - | Declare_Type Record,Defined
0044 00d8 | | Load_Top At_Offset_0
0045 0322 | " | Declare_Variable Record
0046 00d8 | | Load_Top At_Offset_0
0047 1c00 | | Execute_Immediate Run_Utility,0x0
0048 e005 | | Load 0x0,0x5
0049 0322 | " | Declare_Variable Record
004a e5ff | | Load 0x2,-0x1
004b 8006 | | Call 0x0,0x6
004c 00d9 | | Load_Top At_Offset_1
004d 017d | } | Execute Record,Structure_Write
004e 00d8 | | Load_Top At_Offset_0
004f 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
0050 0007 | | Action Break_Optional
0051 00d9 | | Load_Top At_Offset_1
0052 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0053 0007 | | Action Break_Optional
0054 e007 | | Load 0x0,0x7
0055 0322 | " | Declare_Variable Record
0056 00e3 | | Load_Encached Natural_Cache
0057 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0058 03e9 | | Declare_Variable Discrete,Duplicate
0059 00e3 | | Load_Encached Natural_Cache
005a 00e1 | | Load_Encached Boolean_Cache
005b 4a00 |J | Short_Literal 0x200
005c 4a09 |J | Short_Literal 0x209
005d 00e3 | | Load_Encached Natural_Cache
005e 03f8 | | Declare_Type Discrete,Constrained
005f 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
0061 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0063 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0065 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
0067 BODY_0018:
0067 4801 |H | Short_Literal 0x1
0068 0092 0330 | 0| Action Push_String_Extended,0x330 ; "Microcode trace for Wcs version "
006a e404 | | Load 0x2,0x4
006b 01cc | | Execute Vector,Catenate
006c e008 | | Load 0x0,0x8
006d e403 | | Load 0x2,0x3
006e 0096 | | Execute Package,Entry
006f e5fb | | Load 0x2,-0x5
0070 a402 | | Store_Unchecked 0x2,0x2
0071 e5fb | | Load 0x2,-0x5
0072 680e |h | Jump_Zero 0x81
0073 00e1 | | Load_Encached Boolean_Cache
0074 e404 | | Load 0x2,0x4
0075 8413 | | Call 0x2,0x13
0076 c411 | | Store 0x2,0x11
0077 e411 | | Load 0x2,0x11
0078 7008 |p | Jump_Nonzero 0x81
0079 00e1 | | Load_Encached Boolean_Cache
007a e404 | | Load 0x2,0x4
007b 8414 | | Call 0x2,0x14
007c c411 | | Store 0x2,0x11
007d e411 | | Load 0x2,0x11
007e 7002 |p | Jump_Nonzero 0x81
007f 4800 |H | Short_Literal 0x0
0080 a402 | | Store_Unchecked 0x2,0x2
0081 e5fd | | Load 0x2,-0x3
0082 6804 |h | Jump_Zero 0x87
0083 e5fd | | Load 0x2,-0x3
0084 60a3 |` | Indirect_Literal Discrete,0x128,{0x00000000, 0x00000400}
0085 027b | { | Execute Discrete,Greater_Equal
0086 6803 |h | Jump_Zero 0x8a
0087 4800 |H | Short_Literal 0x0
0088 a410 | | Store_Unchecked 0x2,0x10
0089 7805 |x | Jump 0x8f
008a 4bff |K | Short_Literal 0x3ff
008b e5fd | | Load 0x2,-0x3
008c 0272 | r | Execute Discrete,Minus
008d 0a01 | | Execute_Immediate Plus,0x1
008e c410 | | Store 0x2,0x10
008f 00cf | | Action Mark_Auxiliary
0090 4bff |K | Short_Literal 0x3ff
0091 e410 | | Load 0x2,0x10
0092 0263 | c | Execute Discrete,Above_Bound
0093 704e |pN | Jump_Nonzero 0xe2
0094 00d8 | | Load_Top At_Offset_0
0095 e40b | | Load 0x2,0xb
0096 01d5 | | Execute Vector,Field_Reference
0097 e40d | | Load 0x2,0xd
0098 017d | } | Execute Record,Structure_Write
0099 0092 0331 | 1| Action Push_String_Extended,0x331 ; " "
009b 0092 0332 | 2| Action Push_String_Extended,0x332 ; "H"
009d e40d | | Load 0x2,0xd
009e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009f 8009 | | Call 0x0,0x9
00a0 0092 0331 | 1| Action Push_String_Extended,0x331 ; " "
00a2 0092 0333 | 3| Action Push_String_Extended,0x333 ; "C"
00a4 e40d | | Load 0x2,0xd
00a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a6 8009 | | Call 0x0,0x9
00a7 01cc | | Execute Vector,Catenate
00a8 e405 | | Load 0x2,0x5
00a9 01d4 | | Execute Vector,Structure_Write
00aa e402 | | Load 0x2,0x2
00ab 6802 |h | Jump_Zero 0xae
00ac 8415 | | Call 0x2,0x15
00ad 780d |x | Jump 0xbb
00ae 4801 |H | Short_Literal 0x1
00af e405 | | Load 0x2,0x5
00b0 4820 |H | Short_Literal 0x20
00b1 4805 |H | Short_Literal 0x5
00b2 4810 |H | Short_Literal 0x10
00b3 e40d | | Load 0x2,0xd
00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b5 e00a | | Load 0x0,0xa
00b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b7 01cc | | Execute Vector,Catenate
00b8 e008 | | Load 0x0,0x8
00b9 e403 | | Load 0x2,0x3
00ba 0096 | | Execute Package,Entry
00bb e40d | | Load 0x2,0xd
00bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00bd e412 | | Load 0x2,0x12
00be 0260 | ` | Execute Discrete,In_Type
00bf 6820 |h | Jump_Zero 0xe0
00c0 00d8 | | Load_Top At_Offset_0
00c1 4bff |K | Short_Literal 0x3ff
00c2 027f | | Execute Discrete,Equal
00c3 7006 |p | Jump_Nonzero 0xca
00c4 00d8 | | Load_Top At_Offset_0
00c5 0a01 | | Execute_Immediate Plus,0x1
00c6 e40b | | Load 0x2,0xb
00c7 01d5 | | Execute Vector,Field_Reference
00c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c9 7016 |p | Jump_Nonzero 0xe0
00ca 00d8 | | Load_Top At_Offset_0
00cb a40e | | Store_Unchecked 0x2,0xe
00cc 00cf | | Action Mark_Auxiliary
00cd e410 | | Load 0x2,0x10
00ce 00da | | Load_Top At_Offset_2
00cf 0264 | d | Execute Discrete,Below_Bound
00d0 700c |p | Jump_Nonzero 0xdd
00d1 00d8 | | Load_Top At_Offset_0
00d2 0aff | | Execute_Immediate Plus,-0x1
00d3 c40f | | Store 0x2,0xf
00d4 00d8 | | Load_Top At_Offset_0
00d5 e40b | | Load 0x2,0xb
00d6 01d5 | | Execute Vector,Field_Reference
00d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d8 7002 |p | Jump_Nonzero 0xdb
00d9 00d2 | | Pop_Control Pop_Count_2
00da 7802 |x | Jump 0xdd
00db 00c8 | | Action Pop_Auxiliary_Range
00dc 37f4 |7 | Loop_Decreasing 0xd1
00dd 00ce | | Action Pop_Auxiliary
00de 00d2 | | Pop_Control Pop_Count_2
00df 7802 |x | Jump 0xe2
00e0 00c8 | | Action Pop_Auxiliary_Range
00e1 3fb2 |? | Loop_Increasing 0x94
00e2 00ce | | Action Pop_Auxiliary
00e3 4801 |H | Short_Literal 0x1
00e4 00ea | | Load_Encached Null_String_Cache
00e5 e008 | | Load 0x0,0x8
00e6 e403 | | Load 0x2,0x3
00e7 0096 | | Execute Package,Entry
00e8 4801 |H | Short_Literal 0x1
00e9 00ea | | Load_Encached Null_String_Cache
00ea e008 | | Load 0x0,0x8
00eb e403 | | Load 0x2,0x3
00ec 0096 | | Execute Package,Entry
00ed e402 | | Load 0x2,0x2
00ee 680d |h | Jump_Zero 0xfc
00ef 4801 |H | Short_Literal 0x1
00f0 e40f | | Load 0x2,0xf
00f1 e40b | | Load 0x2,0xb
00f2 01d5 | | Execute Vector,Field_Reference
00f3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00f4 e40e | | Load 0x2,0xe
00f5 e40b | | Load 0x2,0xb
00f6 01d5 | | Execute Vector,Field_Reference
00f7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00f8 800b | | Call 0x0,0xb
00f9 e008 | | Load 0x0,0x8
00fa e403 | | Load 0x2,0x3
00fb 0096 | | Execute Package,Entry
00fc 4801 |H | Short_Literal 0x1
00fd 00ea | | Load_Encached Null_String_Cache
00fe e008 | | Load 0x0,0x8
00ff e403 | | Load 0x2,0x3
0100 0096 | | Execute Package,Entry
0101 4801 |H | Short_Literal 0x1
0102 00ea | | Load_Encached Null_String_Cache
0103 e008 | | Load 0x0,0x8
0104 e403 | | Load 0x2,0x3
0105 0096 | | Execute Package,Entry
0106 e5fc | | Load 0x2,-0x4
0107 680e |h | Jump_Zero 0x116
0108 4801 |H | Short_Literal 0x1
0109 0092 0334 | 4| Action Push_String_Extended,0x334 ; "Micro Stack contents :"
010b e008 | | Load 0x0,0x8
010c e403 | | Load 0x2,0x3
010d 0096 | | Execute Package,Entry
010e 00cf | | Action Mark_Auxiliary
010f e00c | | Load 0x0,0xc
0110 01d9 | | Execute Vector,Reverse_Bounds
0111 0007 | | Action Break_Optional
0112 8416 | | Call 0x2,0x16
0113 00c8 | | Action Pop_Auxiliary_Range
0114 3ffd |? | Loop_Increasing 0x112
0115 00ce | | Action Pop_Auxiliary
0116 e00d | | Load 0x0,0xd
0117 e403 | | Load 0x2,0x3
0118 0096 | | Execute Package,Entry
0119 4507 |E | Exit_Suprogram New_Top_Offset 0x7
011a TRAP_0018:
011a e00e | | Load 0x0,0xe
011b 010f | | Execute Exception,Equal
011c 6807 |h | Jump_Zero 0x124
011d 0092 0335 | 5| Action Push_String_Extended,0x335 ; "No WCS map for version "
011f e404 | | Load 0x2,0x4
0120 01cc | | Execute Vector,Catenate
0121 e00f | | Load 0x0,0xf
0122 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0123 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0124 0100 | | Execute Exception,Raise
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
012c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 014a | J | .CONST 0x014a ; Address of begin
0131 015f | _ | .CONST 0x015f ; Address of exception handler
0132 0008 | | .CONST 0x0008 ; Number of locals
0133 INIT_0130:
0133 00db | | Load_Top At_Offset_3
0134 0092 0336 | 6| Action Push_String_Extended,0x336 ; "$"
0136 820f | | Call 0x1,0xf
0137 4801 |H | Short_Literal 0x1
0138 4802 |H | Short_Literal 0x2
0139 00e9 | | Load_Encached String_Cache
013a 035b | [ | Declare_Type Array,Constrained
013b 0337 | 7 | Declare_Variable Array
013c 4801 |H | Short_Literal 0x1
013d 4850 |HP | Short_Literal 0x50
013e 00e9 | | Load_Encached String_Cache
013f 035b | [ | Declare_Type Array,Constrained
0140 0337 | 7 | Declare_Variable Array
0141 00e3 | | Load_Encached Natural_Cache
0142 e007 | | Load 0x0,0x7
0143 0322 | " | Declare_Variable Record
0144 4a00 |J | Short_Literal 0x200
0145 4a09 |J | Short_Literal 0x209
0146 00e3 | | Load_Encached Natural_Cache
0147 03f8 | | Declare_Type Discrete,Constrained
0148 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
014a BODY_0130:
014a 0092 0337 | 7| Action Push_String_Extended,0x337 ; "Microcode label using Wcs version "
014c e402 | | Load 0x2,0x2
014d 01cc | | Execute Vector,Catenate
014e e00f | | Load 0x0,0xf
014f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0150 4800 |H | Short_Literal 0x0
0151 00db | | Load_Top At_Offset_3
0152 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0153 4800 |H | Short_Literal 0x0
0154 00db | | Load_Top At_Offset_3
0155 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0156 e5ff | | Load 0x2,-0x1
0157 00db | | Load_Top At_Offset_3
0158 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0159 0092 0338 | 8| Action Push_String_Extended,0x338 ; "<default>"
015b e402 | | Load 0x2,0x2
015c 8010 | | Call 0x0,0x10
015d 8408 | | Call 0x2,0x8
015e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015f TRAP_0130:
015f e00e | | Load 0x0,0xe
0160 010f | | Execute Exception,Equal
0161 6807 |h | Jump_Zero 0x169
0162 0092 0335 | 5| Action Push_String_Extended,0x335 ; "No WCS map for version "
0164 e402 | | Load 0x2,0x2
0165 01cc | | Execute Vector,Catenate
0166 e00f | | Load 0x0,0xf
0167 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0168 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0169 0100 | | Execute Exception,Raise
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175 | u | .CONST 0x0175 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 029f 0313 | | Declare_Subprogram INIT_0310,For_Call
0175 BODY_0170:
0175 e5fe | | Load 0x2,-0x2
0176 01db | | Execute Vector,Length
0177 7002 |p | Jump_Nonzero 0x17a
0178 8402 | | Call 0x2,0x2
0179 7802 |x | Jump 0x17c
017a e5fe | | Load 0x2,-0x2
017b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017c 0831 | 1 | Execute_Immediate Raise,0x31
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4601 |F | Jump_Case 0x2
0184 7801 |x | Jump 0x186 ; case 0x0
0185 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0186 e408 | | Load 0x2,0x8
0187 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0188 0337 | 7 | Declare_Variable Array
0189 4850 |HP | Short_Literal 0x50
018a 4801 |H | Short_Literal 0x1
018b 4820 |H | Short_Literal 0x20
018c 00d9 | | Load_Top At_Offset_1
018d e602 | | Load 0x3,0x2
018e 01d6 | | Execute Vector,Field_Write
018f 3ffb |? | Loop_Increasing 0x18b
0190 00db | | Load_Top At_Offset_3
0191 00d9 | | Load_Top At_Offset_1
0192 00d9 | | Load_Top At_Offset_1
0193 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0194 0119 | | Execute Any,Check_In_Formal_Type
0195 00d1 | | Pop_Control Pop_Count_1
0196 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0197 4800 |H | Short_Literal 0x0
0198 00db | | Load_Top At_Offset_3
0199 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019a 4800 |H | Short_Literal 0x0
019b 00db | | Load_Top At_Offset_3
019c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
019d 4800 |H | Short_Literal 0x0
019e 00db | | Load_Top At_Offset_3
019f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b2 | | .CONST 0x01b2 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 0092 0338 | 8| Action Push_String_Extended,0x338 ; "<default>"
01ad e404 | | Load 0x2,0x4
01ae 8010 | | Call 0x0,0x10
01af 4801 |H | Short_Literal 0x1
01b0 a7fe | | Store_Unchecked 0x3,-0x2
01b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b2 TRAP_01a8:
01b2 0007 | | Action Break_Optional
01b3 4800 |H | Short_Literal 0x0
01b4 a7fe | | Store_Unchecked 0x3,-0x2
01b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 01c2 | | .CONST 0x01c2 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 0092 0339 | 9| Action Push_String_Extended,0x339 ; "!local.ucode_maps.microcode."
01bd e404 | | Load 0x2,0x4
01be 8010 | | Call 0x0,0x10
01bf 4801 |H | Short_Literal 0x1
01c0 a7fe | | Store_Unchecked 0x3,-0x2
01c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c2 TRAP_01b8:
01c2 0007 | | Action Break_Optional
01c3 4801 |H | Short_Literal 0x1
01c4 a7fe | | Store_Unchecked 0x3,-0x2
01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01db | | .CONST 0x01db ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0006 | | .CONST 0x0006 ; Number of locals
01cb INIT_01c8:
01cb e40d | | Load 0x2,0xd
01cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01cd 8011 | | Call 0x0,0x11
01ce 00d8 | | Load_Top At_Offset_0
01cf 01dd | | Execute Vector,First
01d0 00e3 | | Load_Encached Natural_Cache
01d1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01d2 00e3 | | Load_Encached Natural_Cache
01d3 00e3 | | Load_Encached Natural_Cache
01d4 4801 |H | Short_Literal 0x1
01d5 e602 | | Load 0x3,0x2
01d6 482b |H+ | Short_Literal 0x2b
01d7 e00a | | Load 0x0,0xa
01d8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01d9 00e3 | | Load_Encached Natural_Cache
01da 03f1 | | Declare_Variable Discrete,With_Value
01db BODY_01c8:
01db 00d8 | | Load_Top At_Offset_0
01dc 7006 |p | Jump_Nonzero 0x1e3
01dd e602 | | Load 0x3,0x2
01de 01dc | | Execute Vector,Last
01df 005b | [ | Store_Top Discrete,At_Offset_3
01e0 4800 |H | Short_Literal 0x0
01e1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01e2 7811 |x | Jump 0x1f4
01e3 00d8 | | Load_Top At_Offset_0
01e4 0aff | | Execute_Immediate Plus,-0x1
01e5 005b | [ | Store_Top Discrete,At_Offset_3
01e6 480a |H | Short_Literal 0xa
01e7 00d9 | | Load_Top At_Offset_1
01e8 0a01 | | Execute_Immediate Plus,0x1
01e9 00d8 | | Load_Top At_Offset_0
01ea 00e2 | | Load_Encached Integer_Cache
01eb 0260 | ` | Execute Discrete,In_Type
01ec 7001 |p | Jump_Nonzero 0x1ee
01ed 0801 | | Execute_Immediate Raise,0x1
01ee e602 | | Load 0x3,0x2
01ef 01dc | | Execute Vector,Last
01f0 e602 | | Load 0x3,0x2
01f1 01cf | | Execute Vector,Slice_Read
01f2 8012 | | Call 0x0,0x12
01f3 005a | Z | Store_Top Discrete,At_Offset_2
01f4 4801 |H | Short_Literal 0x1
01f5 e409 | | Load 0x2,0x9
01f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f7 e409 | | Load 0x2,0x9
01f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f9 01cf | | Execute Vector,Slice_Read
01fa e603 | | Load 0x3,0x3
01fb e604 | | Load 0x3,0x4
01fc e602 | | Load 0x3,0x2
01fd 01cf | | Execute Vector,Slice_Read
01fe 01df | | Execute Vector,Equal
01ff 682c |h, | Jump_Zero 0x22c
0200 e419 | | Load 0x2,0x19
0201 4bff |K | Short_Literal 0x3ff
0202 027f | | Execute Discrete,Equal
0203 7006 |p | Jump_Nonzero 0x20a
0204 e419 | | Load 0x2,0x19
0205 0a01 | | Execute_Immediate Plus,0x1
0206 e40b | | Load 0x2,0xb
0207 01d5 | | Execute Vector,Field_Reference
0208 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0209 7022 |p" | Jump_Nonzero 0x22c
020a e409 | | Load 0x2,0x9
020b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
020c 00da | | Load_Top At_Offset_2
020d 027f | | Execute Discrete,Equal
020e 6802 |h | Jump_Zero 0x211
020f 00d9 | | Load_Top At_Offset_1
0210 680c |h | Jump_Zero 0x21d
0211 e409 | | Load 0x2,0x9
0212 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0213 0a01 | | Execute_Immediate Plus,0x1
0214 00da | | Load_Top At_Offset_2
0215 027f | | Execute Discrete,Equal
0216 6815 |h | Jump_Zero 0x22c
0217 e409 | | Load 0x2,0x9
0218 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0219 6803 |h | Jump_Zero 0x21d
021a e409 | | Load 0x2,0x9
021b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
021c 680f |h | Jump_Zero 0x22c
021d 4800 |H | Short_Literal 0x0
021e 0092 033a | :| Action Push_String_Extended,0x33a ; "."
0220 e008 | | Load 0x0,0x8
0221 e403 | | Load 0x2,0x3
0222 0096 | | Execute Package,Entry
0223 e409 | | Load 0x2,0x9
0224 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0225 0a01 | | Execute_Immediate Plus,0x1
0226 e409 | | Load 0x2,0x9
0227 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0228 00d9 | | Load_Top At_Offset_1
0229 e409 | | Load 0x2,0x9
022a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
022b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022c e409 | | Load 0x2,0x9
022d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
022e 6822 |h" | Jump_Zero 0x251
022f e409 | | Load 0x2,0x9
0230 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0231 7011 |p | Jump_Nonzero 0x243
0232 4800 |H | Short_Literal 0x0
0233 4829 |H) | Short_Literal 0x29
0234 0092 033b | ;| Action Push_String_Extended,0x33b ; " ("
0236 4820 |H | Short_Literal 0x20
0237 4800 |H | Short_Literal 0x0
0238 480a |H | Short_Literal 0xa
0239 e409 | | Load 0x2,0x9
023a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
023b e00a | | Load 0x0,0xa
023c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
023d 01cc | | Execute Vector,Catenate
023e 01cb | | Execute Vector,Append
023f e008 | | Load 0x0,0x8
0240 e403 | | Load 0x2,0x3
0241 0096 | | Execute Package,Entry
0242 780e |x | Jump 0x251
0243 4800 |H | Short_Literal 0x0
0244 0092 033c | <| Action Push_String_Extended,0x33c ; " +"
0246 4820 |H | Short_Literal 0x20
0247 4800 |H | Short_Literal 0x0
0248 480a |H | Short_Literal 0xa
0249 e409 | | Load 0x2,0x9
024a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
024b e00a | | Load 0x0,0xa
024c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
024d 01cc | | Execute Vector,Catenate
024e e008 | | Load 0x0,0x8
024f e403 | | Load 0x2,0x3
0250 0096 | | Execute Package,Entry
0251 4801 |H | Short_Literal 0x1
0252 00ea | | Load_Encached Null_String_Cache
0253 e008 | | Load 0x0,0x8
0254 e403 | | Load 0x2,0x3
0255 0096 | | Execute Package,Entry
0256 4800 |H | Short_Literal 0x0
0257 4820 |H | Short_Literal 0x20
0258 4820 |H | Short_Literal 0x20
0259 4820 |H | Short_Literal 0x20
025a 4804 |H | Short_Literal 0x4
025b 480a |H | Short_Literal 0xa
025c e419 | | Load 0x2,0x19
025d e00a | | Load 0x0,0xa
025e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
025f 0092 033d | =| Action Push_String_Extended,0x33d ; " - "
0261 01cc | | Execute Vector,Catenate
0262 e405 | | Load 0x2,0x5
0263 01cc | | Execute Vector,Catenate
0264 01cb | | Execute Vector,Append
0265 e602 | | Load 0x3,0x2
0266 01cc | | Execute Vector,Catenate
0267 01cb | | Execute Vector,Append
0268 e008 | | Load 0x0,0x8
0269 e403 | | Load 0x2,0x3
026a 0096 | | Execute Package,Entry
026b e408 | | Load 0x2,0x8
026c 0322 | " | Declare_Variable Record
026d e408 | | Load 0x2,0x8
026e 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
026f 0337 | 7 | Declare_Variable Array
0270 4850 |HP | Short_Literal 0x50
0271 4801 |H | Short_Literal 0x1
0272 4820 |H | Short_Literal 0x20
0273 00d9 | | Load_Top At_Offset_1
0274 e608 | | Load 0x3,0x8
0275 01d6 | | Execute Vector,Field_Write
0276 3ffb |? | Loop_Increasing 0x272
0277 e408 | | Load 0x2,0x8
0278 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0279 0119 | | Execute Any,Check_In_Formal_Type
027a 00d9 | | Load_Top At_Offset_1
027b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
027c 00db | | Load_Top At_Offset_3
027d e603 | | Load 0x3,0x3
027e 0272 | r | Execute Discrete,Minus
027f 0a01 | | Execute_Immediate Plus,0x1
0280 00d9 | | Load_Top At_Offset_1
0281 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0282 00da | | Load_Top At_Offset_2
0283 00d9 | | Load_Top At_Offset_1
0284 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0285 4800 |H | Short_Literal 0x0
0286 00d9 | | Load_Top At_Offset_1
0287 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0288 e409 | | Load 0x2,0x9
0289 017d | } | Execute Record,Structure_Write
028a 00db | | Load_Top At_Offset_3
028b 00db | | Load_Top At_Offset_3
028c e602 | | Load 0x3,0x2
028d 01cf | | Execute Vector,Slice_Read
028e 4801 |H | Short_Literal 0x1
028f e604 | | Load 0x3,0x4
0290 e603 | | Load 0x3,0x3
0291 0272 | r | Execute Discrete,Minus
0292 0a01 | | Execute_Immediate Plus,0x1
0293 00d8 | | Load_Top At_Offset_0
0294 00e2 | | Load_Encached Integer_Cache
0295 0260 | ` | Execute Discrete,In_Type
0296 7001 |p | Jump_Nonzero 0x298
0297 0801 | | Execute_Immediate Raise,0x1
0298 e409 | | Load 0x2,0x9
0299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
029a 01ce | | Execute Vector,Slice_Write
029b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 02d3 | | .CONST 0x02d3 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e402 | | Load 0x2,0x2
02a4 6815 |h | Jump_Zero 0x2ba
02a5 4801 |H | Short_Literal 0x1
02a6 4820 |H | Short_Literal 0x20
02a7 4802 |H | Short_Literal 0x2
02a8 480a |H | Short_Literal 0xa
02a9 e419 | | Load 0x2,0x19
02aa e00a | | Load 0x0,0xa
02ab 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ac 0092 033d | =| Action Push_String_Extended,0x33d ; " - "
02ae 01cc | | Execute Vector,Catenate
02af e419 | | Load 0x2,0x19
02b0 e40c | | Load 0x2,0xc
02b1 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
02b2 01d5 | | Execute Vector,Field_Reference
02b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b4 8011 | | Call 0x0,0x11
02b5 01cc | | Execute Vector,Catenate
02b6 e008 | | Load 0x0,0x8
02b7 e403 | | Load 0x2,0x3
02b8 0096 | | Execute Package,Entry
02b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ba 4801 |H | Short_Literal 0x1
02bb 4820 |H | Short_Literal 0x20
02bc 4802 |H | Short_Literal 0x2
02bd 480a |H | Short_Literal 0xa
02be e419 | | Load 0x2,0x19
02bf e00a | | Load 0x0,0xa
02c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c1 0092 033d | =| Action Push_String_Extended,0x33d ; " - "
02c3 01cc | | Execute Vector,Catenate
02c4 4820 |H | Short_Literal 0x20
02c5 4805 |H | Short_Literal 0x5
02c6 4810 |H | Short_Literal 0x10
02c7 e419 | | Load 0x2,0x19
02c8 e40c | | Load 0x2,0xc
02c9 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
02ca 01d5 | | Execute Vector,Field_Reference
02cb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02cc e00a | | Load 0x0,0xa
02cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ce 01cc | | Execute Vector,Catenate
02cf e008 | | Load 0x0,0x8
02d0 e403 | | Load 0x2,0x3
02d1 0096 | | Execute Package,Entry
02d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d3 TRAP_02a0:
02d3 0007 | | Action Break_Optional
02d4 4801 |H | Short_Literal 0x1
02d5 4820 |H | Short_Literal 0x20
02d6 4802 |H | Short_Literal 0x2
02d7 480a |H | Short_Literal 0xa
02d8 e419 | | Load 0x2,0x19
02d9 e00a | | Load 0x0,0xa
02da 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02db 0092 033d | =| Action Push_String_Extended,0x33d ; " - "
02dd 01cc | | Execute Vector,Catenate
02de 4820 |H | Short_Literal 0x20
02df 4805 |H | Short_Literal 0x5
02e0 4810 |H | Short_Literal 0x10
02e1 e419 | | Load 0x2,0x19
02e2 e40c | | Load 0x2,0xc
02e3 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
02e4 01d5 | | Execute Vector,Field_Reference
02e5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02e6 e00a | | Load 0x0,0xa
02e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02e8 01cc | | Execute Vector,Catenate
02e9 0092 033e | >| Action Push_String_Extended,0x33e ; " could not resolve label"
02eb 01cc | | Execute Vector,Catenate
02ec e008 | | Load 0x0,0x8
02ed e403 | | Load 0x2,0x3
02ee 0096 | | Execute Package,Entry
02ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f6 | | .CONST 0x02f6 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 e406 | | Load 0x2,0x6
02f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02f5 8011 | | Call 0x0,0x11
02f6 BODY_02f0:
02f6 0092 0331 | 1| Action Push_String_Extended,0x331 ; " "
02f8 4820 |H | Short_Literal 0x20
02f9 4805 |H | Short_Literal 0x5
02fa 4810 |H | Short_Literal 0x10
02fb e406 | | Load 0x2,0x6
02fc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02fd e00a | | Load 0x0,0xa
02fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ff 01cc | | Execute Vector,Catenate
0300 0092 033d | =| Action Push_String_Extended,0x33d ; " - "
0302 01cc | | Execute Vector,Catenate
0303 e00f | | Load 0x0,0xf
0304 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0305 00d8 | | Load_Top At_Offset_0
0306 e00f | | Load 0x0,0xf
0307 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0308 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031e | | .CONST 0x031e ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0003 | | .CONST 0x0003 ; Number of locals
0313 INIT_0310:
0313 e5ff | | Load 0x2,-0x1
0314 4800 |H | Short_Literal 0x0
0315 8013 | | Call 0x0,0x13
0316 4801 |H | Short_Literal 0x1
0317 00d9 | | Load_Top At_Offset_1
0318 0092 033f | ?| Action Push_String_Extended,0x33f ; ".ucode"
031a e00a | | Load 0x0,0xa
031b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
031c 00e3 | | Load_Encached Natural_Cache
031d 03f1 | | Declare_Variable Discrete,With_Value
031e BODY_0310:
031e 00d8 | | Load_Top At_Offset_0
031f 7008 |p | Jump_Nonzero 0x328
0320 4801 |H | Short_Literal 0x1
0321 00da | | Load_Top At_Offset_2
0322 0092 0340 | @| Action Push_String_Extended,0x340 ; "_ucode"
0324 e00a | | Load 0x0,0xa
0325 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0326 0afb | | Execute_Immediate Plus,-0x5
0327 0059 | Y | Store_Top Discrete,At_Offset_1
0328 00d9 | | Load_Top At_Offset_1
0329 01dd | | Execute Vector,First
032a 00d9 | | Load_Top At_Offset_1
032b 0aff | | Execute_Immediate Plus,-0x1
032c 00db | | Load_Top At_Offset_3
032d 01cf | | Execute Vector,Slice_Read
032e 00cb | | Action Pop_Block_With_Result
032f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0330 ; --------------------------------------------------------------------------------------
0330 ; STRING TABLE
0330 ; --------------------------------------------------------------------------------------
0330 0024 | $ | .STRTAB 0x0024->0x0342 ; "Microcode trace for Wcs version "
0331 0042 | B | .STRTAB 0x0042->0x0352 ; " "
0332 0041 | A | .STRTAB 0x0041->0x0352 ; "H"
0333 0040 | @ | .STRTAB 0x0040->0x0353 ; "C"
0334 003f | ? | .STRTAB 0x003f->0x0353 ; "Micro Stack contents :"
0335 0053 | S | .STRTAB 0x0053->0x035e ; "No WCS map for version "
0336 0068 | h | .STRTAB 0x0068->0x036a ; "$"
0337 0067 | g | .STRTAB 0x0067->0x036a ; "Microcode label using Wcs version "
0338 0087 | | .STRTAB 0x0087->0x037b ; "<default>"
0339 008e | | .STRTAB 0x008e->0x0380 ; "!local.ucode_maps.microcode."
033a 00a8 | | .STRTAB 0x00a8->0x038e ; "."
033b 00a7 | | .STRTAB 0x00a7->0x038e ; " ("
033c 00a7 | | .STRTAB 0x00a7->0x038f ; " +"
033d 00a7 | | .STRTAB 0x00a7->0x0390 ; " - "
033e 00a8 | | .STRTAB 0x00a8->0x0392 ; " could not resolve label"
033f 00be | | .STRTAB 0x00be->0x039e ; ".ucode"
0340 00c2 | | .STRTAB 0x00c2->0x03a1 ; "_ucode"
0341 00c6 | | .STREND 0x00c6->0x03a4
0342 4d69 6372 |Micr| .STRTAB_STRINGS
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug Table
03a8 ; --------------------------------------------------------------------------------------
03a8 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf1f6,0x0000,0x0001,0x0000
03ae 0000 0000 | | .BLANK 0000[0x52]