|
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: 3072 (0xc00)
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
└─ ⟦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 0400 | | .CONST 0x0400 ; 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 00e6 | | .CONST 0x00e6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002e | . | .CONST 0x002e ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 480d |H | Short_Literal 0xd
000d 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00c4 | | Action Make_Default
0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0013 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0015 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0017 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0019 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001b 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
001d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0021 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0023 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0025 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0027 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0029 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
002b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
002d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
002f 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0031 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0033 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0035 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0037 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0039 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
003b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
003d 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
003f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0041 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0043 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0045 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0047 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0049 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
004b 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
004d 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
004f e002 | | Load 0x0,0x2
0050 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0051 e003 | | Load 0x0,0x3
0052 e004 | | Load 0x0,0x4
0053 e005 | | Load 0x0,0x5
0054 e006 | | Load 0x0,0x6
0055 e007 | | Load 0x0,0x7
0056 e002 | | Load 0x0,0x2
0057 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0058 00e1 | | Load_Encached Boolean_Cache
0059 00e1 | | Load_Encached Boolean_Cache
005a 00e1 | | Load_Encached Boolean_Cache
005b e20d | | Load 0x1,0xd
005c 00e1 | | Load_Encached Boolean_Cache
005d 00e1 | | Load_Encached Boolean_Cache
005e 00e1 | | Load_Encached Boolean_Cache
005f 00e1 | | Load_Encached Boolean_Cache
0060 00e1 | | Load_Encached Boolean_Cache
0061 00e1 | | Load_Encached Boolean_Cache
0062 00e3 | | Load_Encached Natural_Cache
0063 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0065 4812 |H | Short_Literal 0x12
0066 032e | . | Declare_Type Record,Defined,Visible
0067 00d8 | | Load_Top At_Offset_0
0068 0322 | " | Declare_Variable Record
0069 00d8 | | Load_Top At_Offset_0
006a 1c01 | | Execute_Immediate Run_Utility,0x1
006b 4800 |H | Short_Literal 0x0
006c 00d9 | | Load_Top At_Offset_1
006d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006e e008 | | Load 0x0,0x8
006f 00d9 | | Load_Top At_Offset_1
0070 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0071 e009 | | Load 0x0,0x9
0072 00d9 | | Load_Top At_Offset_1
0073 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0074 4800 |H | Short_Literal 0x0
0075 00d9 | | Load_Top At_Offset_1
0076 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0077 e00a | | Load 0x0,0xa
0078 00d9 | | Load_Top At_Offset_1
0079 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
007a e00b | | Load 0x0,0xb
007b 00d9 | | Load_Top At_Offset_1
007c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
007d e002 | | Load 0x0,0x2
007e 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
007f 00da | | Load_Top At_Offset_2
0080 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
0081 0119 | | Execute Any,Check_In_Formal_Type
0082 00d9 | | Load_Top At_Offset_1
0083 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0084 4800 |H | Short_Literal 0x0
0085 00d9 | | Load_Top At_Offset_1
0086 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0087 4800 |H | Short_Literal 0x0
0088 00d9 | | Load_Top At_Offset_1
0089 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
008a 4800 |H | Short_Literal 0x0
008b 00d9 | | Load_Top At_Offset_1
008c 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
008d 480d |H | Short_Literal 0xd
008e 00d9 | | Load_Top At_Offset_1
008f 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0090 4800 |H | Short_Literal 0x0
0091 00d9 | | Load_Top At_Offset_1
0092 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0093 4800 |H | Short_Literal 0x0
0094 00d9 | | Load_Top At_Offset_1
0095 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0096 4800 |H | Short_Literal 0x0
0097 00d9 | | Load_Top At_Offset_1
0098 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0099 4800 |H | Short_Literal 0x0
009a 00d9 | | Load_Top At_Offset_1
009b 380e |8 | Execute Record,Field_Write,Field_Number 0xe
009c 4800 |H | Short_Literal 0x0
009d 00d9 | | Load_Top At_Offset_1
009e 380f |8 | Execute Record,Field_Write,Field_Number 0xf
009f 4800 |H | Short_Literal 0x0
00a0 00d9 | | Load_Top At_Offset_1
00a1 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
00a2 4800 |H | Short_Literal 0x0
00a3 00d9 | | Load_Top At_Offset_1
00a4 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
00a5 0129 | ) | Execute Any,Make_Visible
00a6 c20e | | Store 0x1,0xe
00a7 00bf | | Action Accept_Activation
00a8 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00e5 00c7 | | Action Elaborate_Subprogram
00e6 BODY_0008:
00e6 00bc | | Action Signal_Activated
00e7 00bb | | Action Signal_Completion
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4607 |F | Jump_Case 0x8
00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ed 7807 |x | Jump 0xf5 ; case 0x1
00ee 780a |x | Jump 0xf9 ; case 0x2
00ef 780e |x | Jump 0xfe ; case 0x3
00f0 7811 |x | Jump 0x102 ; case 0x4
00f1 7812 |x | Jump 0x104 ; case 0x5
00f2 7813 |x | Jump 0x106 ; case 0x6
00f3 7816 |x | Jump 0x10a ; case 0x7
00f4 4302 |C | .XXX[0x1]
00f5 00da | | Load_Top At_Offset_2
00f6 0091 0342 | B| Action Push_String_Extended_Indexed,0x342 ; "MODULE_BLOCK"
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db | | Load_Top At_Offset_3
00fa 00db | | Load_Top At_Offset_3
00fb 00e0 | | Load_Encached Standard_Cache
00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 00da | | Load_Top At_Offset_2
00ff 00e0 | | Load_Encached Standard_Cache
0100 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0101 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0102 00db | | Load_Top At_Offset_3
0103 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0104 00db | | Load_Top At_Offset_3
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 e20d | | Load 0x1,0xd
0107 00dc | | Load_Top At_Offset_4
0108 0267 | g | Execute Discrete,Predecessor
0109 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010a e20d | | Load 0x1,0xd
010b 00dc | | Load_Top At_Offset_4
010c 0268 | h | Execute Discrete,Successor
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
011d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0135 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
0145 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
014d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167 | g | .CONST 0x0167 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e006 | | Load 0x0,0x6
0164 0322 | " | Declare_Variable Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 BODY_0160:
0167 00db | | Load_Top At_Offset_3
0168 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0169 800c | | Call 0x0,0xc
016a 6807 |h | Jump_Zero 0x172
016b 00d8 | | Load_Top At_Offset_0
016c e5ff | | Load 0x2,-0x1
016d 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
016e 800d | | Call 0x0,0xd
016f 00d1 | | Pop_Control Pop_Count_1
0170 00d8 | | Load_Top At_Offset_0
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 00db | | Load_Top At_Offset_3
0173 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0174 0320 | | Declare_Variable Record,Duplicate
0175 00cd | | Action Spare6_Action
0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017d 800e | | Call 0x0,0xe
017e 7003 |p | Jump_Nonzero 0x182
017f 00da | | Load_Top At_Offset_2
0180 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0181 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0182 00da | | Load_Top At_Offset_2
0183 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0184 800f | | Call 0x0,0xf
0185 6802 |h | Jump_Zero 0x188
0186 e008 | | Load 0x0,0x8
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 00da | | Load_Top At_Offset_2
0189 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
018a 8010 | | Call 0x0,0x10
018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0195 0320 | | Declare_Variable Record,Duplicate
0196 00cd | | Action Spare6_Action
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
019d 0320 | | Declare_Variable Record,Duplicate
019e 00cd | | Action Spare6_Action
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01b5 00d8 | | Load_Top At_Offset_0
01b6 0120 | | Execute Any,Is_Value
01b7 7002 |p | Jump_Nonzero 0x1ba
01b8 00d8 | | Load_Top At_Offset_0
01b9 011e | | Execute Any,Convert
01ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01c5 800f | | Call 0x0,0xf
01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01cd 800c | | Call 0x0,0xc
01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
01d5 e5fe | | Load 0x2,-0x2
01d6 017d | } | Execute Record,Structure_Write
01d7 00da | | Load_Top At_Offset_2
01d8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01d9 e5fd | | Load 0x2,-0x3
01da 017d | } | Execute Record,Structure_Write
01db 00da | | Load_Top At_Offset_2
01dc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01dd a5fc | | Store_Unchecked 0x2,-0x4
01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 e22e | . | Load 0x1,0x2e
01e4 0322 | " | Declare_Variable Record
01e5 00d8 | | Load_Top At_Offset_0
01e6 1c01 | | Execute_Immediate Run_Utility,0x1
01e7 00db | | Load_Top At_Offset_3
01e8 00d9 | | Load_Top At_Offset_1
01e9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ea e008 | | Load 0x0,0x8
01eb 00d9 | | Load_Top At_Offset_1
01ec 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ed e5fd | | Load 0x2,-0x3
01ee 00d9 | | Load_Top At_Offset_1
01ef 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01f0 e5fc | | Load 0x2,-0x4
01f1 00d9 | | Load_Top At_Offset_1
01f2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01f3 e00a | | Load 0x0,0xa
01f4 00d9 | | Load_Top At_Offset_1
01f5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01f6 e5fe | | Load 0x2,-0x2
01f7 00d9 | | Load_Top At_Offset_1
01f8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01f9 e002 | | Load 0x0,0x2
01fa 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
01fb e22e | . | Load 0x1,0x2e
01fc 3006 |0 | Execute Record,Field_Type,Field_Number 0x6
01fd 0119 | | Execute Any,Check_In_Formal_Type
01fe 00d9 | | Load_Top At_Offset_1
01ff 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0200 e5fb | | Load 0x2,-0x5
0201 00d9 | | Load_Top At_Offset_1
0202 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0203 e5fa | | Load 0x2,-0x6
0204 00d9 | | Load_Top At_Offset_1
0205 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0206 480d |H | Short_Literal 0xd
0207 00d9 | | Load_Top At_Offset_1
0208 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0209 4800 |H | Short_Literal 0x0
020a 00d9 | | Load_Top At_Offset_1
020b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
020c 4800 |H | Short_Literal 0x0
020d 00d9 | | Load_Top At_Offset_1
020e 380b |8 | Execute Record,Field_Write,Field_Number 0xb
020f 4800 |H | Short_Literal 0x0
0210 00d9 | | Load_Top At_Offset_1
0211 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0212 4800 |H | Short_Literal 0x0
0213 00d9 | | Load_Top At_Offset_1
0214 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0215 4800 |H | Short_Literal 0x0
0216 00d9 | | Load_Top At_Offset_1
0217 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0218 4800 |H | Short_Literal 0x0
0219 00d9 | | Load_Top At_Offset_1
021a 380f |8 | Execute Record,Field_Write,Field_Number 0xf
021b 4800 |H | Short_Literal 0x0
021c 00d9 | | Load_Top At_Offset_1
021d 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
021e 4800 |H | Short_Literal 0x0
021f 00d9 | | Load_Top At_Offset_1
0220 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0221 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0222 0000 0000 | | .BLANK 0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c e5fe | | Load 0x2,-0x2
022d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 e5fe | | Load 0x2,-0x2
0235 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0236 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00db | | Load_Top At_Offset_3
023c e5fa | | Load 0x2,-0x6
023d 380b |8 | Execute Record,Field_Write,Field_Number 0xb
023e e5fd | | Load 0x2,-0x3
023f e5fa | | Load 0x2,-0x6
0240 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0241 e5fc | | Load 0x2,-0x4
0242 e5fa | | Load 0x2,-0x6
0243 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0244 e5fb | | Load 0x2,-0x5
0245 e5fa | | Load 0x2,-0x6
0246 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0247 00da | | Load_Top At_Offset_2
0248 e5fa | | Load 0x2,-0x6
0249 380a |8 | Execute Record,Field_Write,Field_Number 0xa
024a 00da | | Load_Top At_Offset_2
024b 0f00 | | Execute_Immediate Equal,0x0
024c e5fa | | Load 0x2,-0x6
024d 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
024e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 e5fe | | Load 0x2,-0x2
0255 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0256 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0257 0000 | | .XXX[0x1]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e5fd | | Load 0x2,-0x3
025d 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
025e 00db | | Load_Top At_Offset_3
025f e5fd | | Load 0x2,-0x3
0260 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0261 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0262 0000 0000 | | .BLANK 0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c e5fe | | Load 0x2,-0x2
026d 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00db | | Load_Top At_Offset_3
0274 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0275 00db | | Load_Top At_Offset_3
0276 8011 | | Call 0x0,0x11
0277 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c e5fe | | Load 0x2,-0x2
027d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
027e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
0284 e5fe | | Load 0x2,-0x2
0285 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0291 | | .CONST 0x0291 ; Address of begin
0289 0319 | | .CONST 0x0319 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 4864 |Hd | Short_Literal 0x64
028c e012 | | Load 0x0,0x12
028d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028e 1c08 | | Execute_Immediate Run_Utility,0x8
028f 00d8 | | Load_Top At_Offset_0
0290 1c00 | | Execute_Immediate Run_Utility,0x0
0291 BODY_0288:
0291 00d8 | | Load_Top At_Offset_0
0292 0092 0350 | P| Action Push_String_Extended,0x350 ; "Loc:{"
0294 e012 | | Load 0x0,0x12
0295 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0296 00d1 | | Pop_Control Pop_Count_1
0297 00d8 | | Load_Top At_Offset_0
0298 0092 0351 | Q| Action Push_String_Extended,0x351 ; "S/S = "
029a e012 | | Load 0x0,0x12
029b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029c 00d1 | | Pop_Control Pop_Count_1
029d 00d8 | | Load_Top At_Offset_0
029e 0092 0352 | R| Action Push_String_Extended,0x352 ; "/"
02a0 e012 | | Load 0x0,0x12
02a1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a2 00d1 | | Pop_Control Pop_Count_1
02a3 00d8 | | Load_Top At_Offset_0
02a4 e5ff | | Load 0x2,-0x1
02a5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02a6 8013 | | Call 0x0,0x13
02a7 e012 | | Load 0x0,0x12
02a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a9 00d1 | | Pop_Control Pop_Count_1
02aa 00d8 | | Load_Top At_Offset_0
02ab 0092 0352 | R| Action Push_String_Extended,0x352 ; "/"
02ad e012 | | Load 0x0,0x12
02ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02af 00d1 | | Pop_Control Pop_Count_1
02b0 00d8 | | Load_Top At_Offset_0
02b1 e5ff | | Load 0x2,-0x1
02b2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02b3 8014 | | Call 0x0,0x14
02b4 e012 | | Load 0x0,0x12
02b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02b6 00d1 | | Pop_Control Pop_Count_1
02b7 00d8 | | Load_Top At_Offset_0
02b8 0092 0353 | S| Action Push_String_Extended,0x353 ; " Fr="
02ba e012 | | Load 0x0,0x12
02bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02bc 00d1 | | Pop_Control Pop_Count_1
02bd 00d8 | | Load_Top At_Offset_0
02be e5ff | | Load 0x2,-0x1
02bf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02c0 e002 | | Load 0x0,0x2
02c1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02c2 e015 | | Load 0x0,0x15
02c3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02c4 e012 | | Load 0x0,0x12
02c5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c6 00d1 | | Pop_Control Pop_Count_1
02c7 00db | | Load_Top At_Offset_3
02c8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02c9 6806 |h | Jump_Zero 0x2d0
02ca 00d8 | | Load_Top At_Offset_0
02cb 0092 0354 | T| Action Push_String_Extended,0x354 ; " Bdy"
02cd e012 | | Load 0x0,0x12
02ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02cf 00d1 | | Pop_Control Pop_Count_1
02d0 00db | | Load_Top At_Offset_3
02d1 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
02d2 6806 |h | Jump_Zero 0x2d9
02d3 00d8 | | Load_Top At_Offset_0
02d4 0092 0355 | U| Action Push_String_Extended,0x355 ; " Mod"
02d6 e012 | | Load 0x0,0x12
02d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d8 00d1 | | Pop_Control Pop_Count_1
02d9 00db | | Load_Top At_Offset_3
02da 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
02db 6806 |h | Jump_Zero 0x2e2
02dc 00d8 | | Load_Top At_Offset_0
02dd 0092 0356 | V| Action Push_String_Extended,0x356 ; " Generic"
02df e012 | | Load 0x0,0x12
02e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e1 00d1 | | Pop_Control Pop_Count_1
02e2 00db | | Load_Top At_Offset_3
02e3 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
02e4 6806 |h | Jump_Zero 0x2eb
02e5 00d8 | | Load_Top At_Offset_0
02e6 0092 0357 | W| Action Push_String_Extended,0x357 ; " Poly"
02e8 e012 | | Load 0x0,0x12
02e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02ea 00d1 | | Pop_Control Pop_Count_1
02eb 00db | | Load_Top At_Offset_3
02ec 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
02ed 6806 |h | Jump_Zero 0x2f4
02ee 00d8 | | Load_Top At_Offset_0
02ef 0092 0358 | X| Action Push_String_Extended,0x358 ; " In_Gen"
02f1 e012 | | Load 0x0,0x12
02f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f3 00d1 | | Pop_Control Pop_Count_1
02f4 00db | | Load_Top At_Offset_3
02f5 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
02f6 6806 |h | Jump_Zero 0x2fd
02f7 00d8 | | Load_Top At_Offset_0
02f8 0092 0359 | Y| Action Push_String_Extended,0x359 ; " In_Poly"
02fa e012 | | Load 0x0,0x12
02fb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02fc 00d1 | | Pop_Control Pop_Count_1
02fd 00db | | Load_Top At_Offset_3
02fe 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
02ff 6806 |h | Jump_Zero 0x306
0300 00d8 | | Load_Top At_Offset_0
0301 0092 035a | Z| Action Push_String_Extended,0x35a ; " Lib"
0303 e012 | | Load 0x0,0x12
0304 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0305 00d1 | | Pop_Control Pop_Count_1
0306 00db | | Load_Top At_Offset_3
0307 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0308 6806 |h | Jump_Zero 0x30f
0309 00d8 | | Load_Top At_Offset_0
030a 0092 035b | [| Action Push_String_Extended,0x35b ; " Elab"
030c e012 | | Load 0x0,0x12
030d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
030e 00d1 | | Pop_Control Pop_Count_1
030f 00d8 | | Load_Top At_Offset_0
0310 0092 035c | \| Action Push_String_Extended,0x35c ; "}"
0312 e012 | | Load 0x0,0x12
0313 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0314 00d1 | | Pop_Control Pop_Count_1
0315 00d8 | | Load_Top At_Offset_0
0316 e012 | | Load 0x0,0x12
0317 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0318 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0319 TRAP_0288:
0319 0007 | | Action Break_Optional
031a 00d9 | | Load_Top At_Offset_1
031b e012 | | Load 0x0,0x12
031c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
031d 0092 035d | ]| Action Push_String_Extended,0x35d ; "..."
031f 01cc | | Execute Vector,Catenate
0320 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 4601 |F | Jump_Case 0x2
032c 7801 |x | Jump 0x32e ; case 0x0
032d 780d |x | Jump 0x33b ; case 0x1
032e 00da | | Load_Top At_Offset_2
032f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0330 1c00 | | Execute_Immediate Run_Utility,0x0
0331 00da | | Load_Top At_Offset_2
0332 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0333 1c00 | | Execute_Immediate Run_Utility,0x0
0334 00da | | Load_Top At_Offset_2
0335 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0336 0125 | % | Execute Any,Set_Constraint
0337 00da | | Load_Top At_Offset_2
0338 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0339 1c00 | | Execute_Immediate Run_Utility,0x0
033a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
033b 00da | | Load_Top At_Offset_2
033c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
033d 1c01 | | Execute_Immediate Run_Utility,0x1
033e 00da | | Load_Top At_Offset_2
033f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0340 1c01 | | Execute_Immediate Run_Utility,0x1
0341 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0342 ; --------------------------------------------------------------------------------------
0342 ; STRING TABLE
0342 ; --------------------------------------------------------------------------------------
0342 003a | : | .STRTAB 0x003a->0x035f ; "MODULE_BLOCK"
0343 0044 | D | .STRTAB 0x0044->0x0365 ; "PROCEDURE_BLOCK"
0344 0051 | Q | .STRTAB 0x0051->0x036c ; "FUNCTION_BLOCK"
0345 005d | ] | .STRTAB 0x005d->0x0373 ; "ACCEPT_BLOCK"
0346 0067 | g | .STRTAB 0x0067->0x0379 ; "DECLARE_BLOCK"
0347 0072 | r | .STRTAB 0x0072->0x0380 ; "UTILITY_BLOCK"
0348 007d | } | .STRTAB 0x007d->0x0386 ; "COMMAND_BLOCK"
0349 0088 | | .STRTAB 0x0088->0x038d ; "LIBRARY_BLOCK"
034a 0093 | | .STRTAB 0x0093->0x0393 ; "COMMAND_ELABORATION_BLOCK"
034b 00aa | | .STRTAB 0x00aa->0x03a0 ; "LIBRARY_ELABORATION_BLOCK"
034c 00c1 | | .STRTAB 0x00c1->0x03ac ; "SUBSYSTEM_ELABORATION_BLOCK"
034d 00da | | .STRTAB 0x00da->0x03ba ; "MANUFACTURED_PROCEDURE_BLOCK"
034e 00f4 | | .STRTAB 0x00f4->0x03c8 ; "MANUFACTURED_FUNCTION_BLOCK"
034f 010d | | .STRTAB 0x010d->0x03d5 ; "UNKNOWN_BLOCK"
0350 0118 | | .STRTAB 0x0118->0x03dc ; "Loc:{"
0351 011b | | .STRTAB 0x011b->0x03de ; "S/S = "
0352 011f | | .STRTAB 0x011f->0x03e1 ; "/"
0353 011e | | .STRTAB 0x011e->0x03e2 ; " Fr="
0354 0120 | | .STRTAB 0x0120->0x03e4 ; " Bdy"
0355 0122 | " | .STRTAB 0x0122->0x03e6 ; " Mod"
0356 0124 | $ | .STRTAB 0x0124->0x03e8 ; " Generic"
0357 012a | * | .STRTAB 0x012a->0x03ec ; " Poly"
0358 012d | - | .STRTAB 0x012d->0x03ee ; " In_Gen"
0359 0132 | 2 | .STRTAB 0x0132->0x03f2 ; " In_Poly"
035a 0138 | 8 | .STRTAB 0x0138->0x03f6 ; " Lib"
035b 013a | : | .STRTAB 0x013a->0x03f8 ; " Elab"
035c 013d | = | .STRTAB 0x013d->0x03fa ; "}"
035d 013c | < | .STRTAB 0x013c->0x03fb ; "..."
035e 013d | = | .STREND 0x013d->0x03fc
035f 4d4f 4455 |MODU| .STRTAB_STRINGS
03fd 0000 0000 | | .XXX[0x3]
03ff 0000 | |
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug Table
0400 ; --------------------------------------------------------------------------------------
0400 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a3c,0x0000,0x0001,0x0000
0406 0000 0000 | | .XXX[0x34]
0408 0026 4cfe | &L |
040a 8800 0100 | |
040c 0000 001e | |
040e 0000 001e | |
0410 0001 0804 | |
0412 0800 05ec | |
0414 0026 4cfe | &L |
0416 0000 007f | |
0418 0c72 0056 | r V|
041a bb80 0000 | |
041c 0009 0820 | |
041e 023e 9a00 | > |
0420 0000 0000 | |
0422 0000 4694 | F |
0424 0000 0000 | |
0426 0000 48a0 | H |
0428 8000 0901 | |
042a 7800 0001 |x |
042c 3b17 0048 |; H|
042e cd80 0000 | |
0430 0005 0000 | |
0432 0000 022c | ,|
0434 cc00 92b3 | |
0436 8000 0000 | |
0438 0915 f800 | |
043a 0000 0000 | | .BLANK 0000[0x7]
0441 0096 9800 | | .XXX[0x1d]
0443 249d a000 |$ |
0445 0000 0780 | |
0447 0002 466c | Fl|
0449 0000 0000 | |
044b 1180 0000 | |
044d 0009 20c4 | |
044f 2240 0125 |"@ %|
0451 6700 0000 |g |
0453 0012 4b80 | K |
0455 0252 6b06 | Rk |
0457 3900 2b5d |9 +]|
0459 c000 0000 | |
045b 0493 b401 | |
045d 2336 |#6 |
045e 0000 0000 | | .BLANK 0000[0x7]
0465 0024 cd60 | $ `| .XXX[0x13]
0467 0004 9060 | `|
0469 0000 009d | |
046b 8b80 24e3 | $ |
046d e000 0000 | |
046f 0280 0000 | |
0471 0001 1666 | f|
0473 004a 5400 | JT |
0475 0000 0004 | |
0477 9aa0 | |
0478 0000 0000 | | .BLANK 0000[0x8]
0480 4b4c 0012 |KL | .XXX[0x1d]
0482 8d60 0000 | ` |
0484 0000 9000 | |
0486 0127 1f00 | ' |
0488 0000 0009 | |
048a 4000 0000 |@ |
048c 04a0 0611 | |
048e 2000 94a8 | |
0490 0000 0000 | |
0492 0945 0801 | E |
0494 2d1e 831c |- |
0496 8015 aee0 | |
0498 0000 0002 | |
049a 51ac 0093 |Q |
049c 8f80 | |
049d 0000 0000 | | .BLANK 0000[0x7]
04a4 12a5 4000 | @ | .XXX[0x13]
04a6 0250 0200 | P |
04a8 0000 4ec5 | N |
04aa c012 b080 | |
04ac 0000 0001 | |
04ae 4000 0000 |@ |
04b0 008b 3300 | 3 |
04b2 25a7 2000 |% |
04b4 0000 0255 | U|
04b6 2200 |" |
04b7 0000 0000 | | .BLANK 0000[0x7]
04be 0025 a600 | % | .XXX[0x1d]
04c0 0965 f800 | e |
04c2 0000 00f8 | |
04c4 0000 9584 | |
04c6 0000 0000 | |
04c8 04e0 0000 | |
04ca 0002 57d5 | W |
04cc 0890 004b | K|
04ce 4e40 0000 |N@ |
04d0 0004 b228 | (|
04d2 0098 83c1 | |
04d4 8e40 0ad7 | @ |
04d6 7000 0000 |p |
04d8 012c bf00 | , |
04da 4ac2 |J |
04db 0000 0000 | | .BLANK 0000[0x7]
04e2 0009 71e8 | q | .XXX[0x13]
04e4 0001 2bea | + |
04e6 0000 0027 | '|
04e8 62e0 0977 |b w|
04ea 8800 0000 | |
04ec 00a0 0000 | |
04ee 0000 4599 | E |
04f0 8013 1220 | |
04f2 0000 0001 | |
04f4 2e7a |.z |
04f5 0000 0000 | | .BLANK 0000[0x8]
04fd 12d3 0004 | | .XXX[0x1d]
04ff c2a0 0000 | |
0501 0000 f400 | |
0503 004b bc40 | K @|
0505 0000 0002 | |
0507 9000 0000 | |
0509 012f d384 | / |
050b 4800 2624 |H &$|
050d 4000 0000 |@ |
050f 0260 e600 | ` |
0511 4d3c 20c7 |M< |
0513 2005 6bb8 | k |
0515 0000 0000 | |
0517 9854 0025 | T %|
0519 de20 | |
051a 0000 0000 | | .BLANK 0000[0x7]
0521 04c8 9800 | | .XXX[0x13]
0523 0097 e980 | |
0525 0000 13b1 | |
0527 7004 cb68 |p h|
0529 0000 0000 | |
052b 5000 0000 |P |
052d 0022 ccc0 | " |
052f 09a8 5800 | X |
0531 0000 0099 | |
0533 3180 |1 |
0534 0000 0000 | | .BLANK 0000[0x7]
053b 0009 6980 | i | .XXX[0x1e]
053d 0269 2200 | i" |
053f 0000 0081 | |
0541 0000 265b | &[|
0543 4000 0000 |@ |
0545 0158 0000 | X |
0547 0000 99de | |
0549 4224 0013 |B$ |
054b 50b0 0000 |P |
054d 0001 345c | 4\|
054f 0027 1b30 | ' 0|
0551 6390 02b5 |c |
0553 dc00 0000 | |
0555 004d 2440 | M$@|
0557 132d a000 | - |
0559 0000 0000 | | .BLANK 0000[0x6]
055f 0002 6c1e | l | .XXX[0x13]
0561 0000 4cef | L |
0563 0000 0009 | |
0565 d8b8 026d | m|
0567 8600 0000 | |
0569 0028 0000 | ( |
056b 0000 1166 | f|
056d 6004 e3d0 |` |
056f 0000 0000 | |
0571 4d93 |M |
0572 0000 0000 | | .BLANK 0000[0x8]
057a 04b4 c001 | | .XXX[0x1d]
057c 387a 0000 |8z |
057e 0000 3000 | 0 |
0580 0013 6c30 | l0|
0582 0000 0000 | |
0584 b400 0000 | |
0586 004d e961 | M a|
0588 1200 09c7 | |
058a a000 0000 | |
058c 009c 2280 | " |
058e 13cc 2831 | (1|
0590 c801 5aee | Z |
0592 0000 0000 | |
0594 270f 4009 |' @ |
0596 b618 | |
0597 0000 0000 | | .BLANK 0000[0x7]
059e 0139 f800 | 9 | .XXX[0x13]
05a0 0026 f4a0 | & |
05a2 0000 04ec | |
05a4 5c01 3aac |\ : |
05a6 0000 0000 | |
05a8 1400 0000 | |
05aa 0008 b330 | 0|
05ac 0279 ba00 | y |
05ae 0000 0027 | '|
05b0 46a0 |F |
05b1 0000 0000 | | .BLANK 0000[0x7]
05b8 0002 5a60 | Z`| .XXX[0x1e]
05ba 009e 3180 | 1 |
05bc 0000 0005 | |
05be 0000 09d5 | |
05c0 6000 0000 |` |
05c2 005e 0000 | ^ |
05c4 0000 2771 | 'q|
05c6 d089 0004 | |
05c8 f374 0000 | t |
05ca 0000 4f0b | O |
05cc 800a 055c | \|
05ce 18e4 00ad | |
05d0 7700 0000 |w |
05d2 0013 c630 | 0|
05d4 04ea b000 | |
05d6 0000 0000 | | .BLANK 0000[0x7]
05dd 9ef0 8000 | | .XXX[0x13]
05df 13b8 e000 | |
05e1 0002 762e | v.|
05e3 009f 4a80 | J |
05e5 0000 000a | |
05e7 0000 0000 | |
05e9 0459 9801 | Y |
05eb 40c6 0000 |@ |
05ed 0000 13e1 | |
05ef e000 | |
05f0 0000 0000 | | .BLANK 0000[0x7]
05f7 012d 3000 | -0 | .XXX[0x9]
05f9 5013 0000 |P |
05fb 0000 02c0 | |
05fd 0004 fa54 | T|
05ff 0000 | |