|
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_06e8fd
└─⟦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 2eb2 | . | .XXX[0x42]
0408 000c 40fd | @ |
040a 8000 0100 | |
040c 0000 0000 | |
040e 0000 0076 | v|
0410 0000 0020 | |
0412 8000 0000 | |
0414 0001 0400 | |
0416 0000 0076 | v|
0418 0001 0404 | |
041a 0800 0400 | |
041c 0000 009f | |
041e 0000 0001 | |
0420 0001 0404 | |
0422 0800 0400 | |
0424 0000 011f | |
0426 0000 0020 | |
0428 0001 0404 | |
042a 0800 0400 | |
042c 0000 019f | |
042e 0000 003f | ?|
0430 000c 40fd | @ |
0432 0800 0790 | |
0434 0000 0218 | |
0436 0000 005e | ^|
0438 0001 0404 | |
043a 0000 0016 | |
043c 001d a009 | |
043e 0000 13b2 | |
0440 0001 0404 | |
0442 0800 0280 | |
0444 0000 0008 | |
0446 0000 0008 | |
0448 0000 0000 | | .BLANK 0000[0x7]
044f 00ff 0001 | | .XXX[0x11]
0451 0404 0000 | |
0453 0016 001d | |
0455 a009 0000 | |
0457 13b2 0001 | |
0459 0404 0800 | |
045b 0280 0000 | |
045d 0010 0000 | |
045f 0010 | |
0460 0000 0000 | | .BLANK 0000[0x7]
0467 ffff 0000 | | .XXX[0x5]
0469 0000 0000 | |
046b 0076 | v |
046c 0000 0000 | | .BLANK 0000[0x4]
0470 000c 40fd | @ | .XXX[0x10]
0472 8800 0780 | |
0474 0000 0018 | |
0476 0000 0018 | |
0478 0001 0804 | |
047a 0800 05ec | |
047c 000c 40fd | @ |
047e 0000 007f | |
0480 0000 0000 | | .BLANK 0000[0x180]