|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 04c0 | | .CONST 0x04c0 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d0 | | .CONST 0x00d0 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4804 |H | Short_Literal 0x4
000d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4801 |H | Short_Literal 0x1
0012 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 0093 0000 | | push_full_address 0x0
0017 60e8 |` | Indirect_Literal Discrete,0x100,{0x80000000, 0x00010000}
0018 0273 | s | Execute Discrete,Plus
0019 e002 | | Load 0x0,0x2
001a 0273 | s | Execute Discrete,Plus
001b e003 | | Load 0x0,0x3
001c 0273 | s | Execute Discrete,Plus
001d 4820 |H | Short_Literal 0x20
001e e004 | | Load 0x0,0x4
001f e005 | | Load 0x0,0x5
0020 e006 | | Load 0x0,0x6
0021 4801 |H | Short_Literal 0x1
0022 e20e | | Load 0x1,0xe
0023 a007 | | Store_Unchecked 0x0,0x7
0024 a008 | | Store_Unchecked 0x0,0x8
0025 a009 | | Store_Unchecked 0x0,0x9
0026 a00a | | Store_Unchecked 0x0,0xa
0027 a00b | | Store_Unchecked 0x0,0xb
0028 a00c | | Store_Unchecked 0x0,0xc
0029 a00d | | Store_Unchecked 0x0,0xd
002a a00e | | Store_Unchecked 0x0,0xe
002b a00f | | Store_Unchecked 0x0,0xf
002c a010 | | Store_Unchecked 0x0,0x10
002d a011 | | Store_Unchecked 0x0,0x11
002e a012 | | Store_Unchecked 0x0,0x12
002f a013 | | Store_Unchecked 0x0,0x13
0030 a014 | | Store_Unchecked 0x0,0x14
0031 a015 | | Store_Unchecked 0x0,0x15
0032 a016 | | Store_Unchecked 0x0,0x16
0033 e017 | | Load 0x0,0x17
0034 0386 | | Declare_Variable Package,Visible
0035 00d8 | | Load_Top At_Offset_0
0036 020f | | Execute Module,Activate
0037 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0039 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
003b 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
003d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
003f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0041 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0043 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0045 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0047 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0049 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
004b 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
004d 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
004f 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0051 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0053 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0055 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0057 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0059 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
005b 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
005d 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
005f e018 | | Load 0x0,0x18
0060 e20f | | Load 0x1,0xf
0061 0098 | | Execute Package,Field_Read_Dynamic
0062 e018 | | Load 0x0,0x18
0063 e20f | | Load 0x1,0xf
0064 0098 | | Execute Package,Field_Read_Dynamic
0065 e018 | | Load 0x0,0x18
0066 e20f | | Load 0x1,0xf
0067 0098 | | Execute Package,Field_Read_Dynamic
0068 e018 | | Load 0x0,0x18
0069 e20f | | Load 0x1,0xf
006a 0098 | | Execute Package,Field_Read_Dynamic
006b e018 | | Load 0x0,0x18
006c e20f | | Load 0x1,0xf
006d 0098 | | Execute Package,Field_Read_Dynamic
006e e019 | | Load 0x0,0x19
006f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0070 02a0 | | Declare_Subprogram Null_Subprogram
0071 4806 |H | Short_Literal 0x6
0072 032e | . | Declare_Type Record,Defined,Visible
0073 4800 |H | Short_Literal 0x0
0074 4805 |H | Short_Literal 0x5
0075 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0077 03fe | | Declare_Type Discrete,Defined,Visible
0078 00d9 | | Load_Top At_Offset_1
0079 00e1 | | Load_Encached Boolean_Cache
007a 00da | | Load_Top At_Offset_2
007b 00e1 | | Load_Encached Boolean_Cache
007c e01a | | Load 0x0,0x1a
007d e20f | | Load 0x1,0xf
007e 0098 | | Execute Package,Field_Read_Dynamic
007f e01a | | Load 0x0,0x1a
0080 e20f | | Load 0x1,0xf
0081 0098 | | Execute Package,Field_Read_Dynamic
0082 e01a | | Load 0x0,0x1a
0083 e20f | | Load 0x1,0xf
0084 0098 | | Execute Package,Field_Read_Dynamic
0085 e01a | | Load 0x0,0x1a
0086 e20f | | Load 0x1,0xf
0087 0098 | | Execute Package,Field_Read_Dynamic
0088 e01a | | Load 0x0,0x1a
0089 e20f | | Load 0x1,0xf
008a 0098 | | Execute Package,Field_Read_Dynamic
008b 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call
008d 4809 |H | Short_Literal 0x9
008e 032e | . | Declare_Type Record,Defined,Visible
008f 00bf | | Action Accept_Activation
0090 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0091 00c7 | | Action Elaborate_Subprogram
0092 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0093 00c7 | | Action Elaborate_Subprogram
0094 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0095 00c7 | | Action Elaborate_Subprogram
0096 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0097 00c7 | | Action Elaborate_Subprogram
0098 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0099 00c7 | | Action Elaborate_Subprogram
009a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
009b 00c7 | | Action Elaborate_Subprogram
009c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
009d 00c7 | | Action Elaborate_Subprogram
009e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a1 00c7 | | Action Elaborate_Subprogram
00a2 e01b | | Load 0x0,0x1b
00a3 e01c | | Load 0x0,0x1c
00a4 00db | | Load_Top At_Offset_3
00a5 4800 |H | Short_Literal 0x0
00a6 4801 |H | Short_Literal 0x1
00a7 4805 |H | Short_Literal 0x5
00a8 0092 047c | || Action Push_String_Extended,0x47c ; "others => Unspecified"
00aa 00ea | | Load_Encached Null_String_Cache
00ab 00ea | | Load_Encached Null_String_Cache
00ac 4801 |H | Short_Literal 0x1
00ad 4805 |H | Short_Literal 0x5
00ae e01d | | Load 0x0,0x1d
00af 0387 | | Declare_Variable Package
00b0 00d8 | | Load_Top At_Offset_0
00b1 020f | | Execute Module,Activate
00b2 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00b7 00c7 | | Action Elaborate_Subprogram
00b8 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
00ba 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
00bc 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
00be 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call
00c0 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00cf 00c7 | | Action Elaborate_Subprogram
00d0 BODY_0008:
00d0 00bc | | Action Signal_Activated
00d1 00bb | | Action Signal_Completion
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4607 |F | Jump_Case 0x8
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7807 |x | Jump 0xe5 ; case 0x1
00de 780a |x | Jump 0xe9 ; case 0x2
00df 780e |x | Jump 0xee ; case 0x3
00e0 7811 |x | Jump 0xf2 ; case 0x4
00e1 7812 |x | Jump 0xf4 ; case 0x5
00e2 7813 |x | Jump 0xf6 ; case 0x6
00e3 7816 |x | Jump 0xfa ; case 0x7
00e4 4302 |C | .XXX[0x1]
00e5 00da | | Load_Top At_Offset_2
00e6 0091 046f | o| Action Push_String_Extended_Indexed,0x46f ; "DRIVER_MAP"
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 00db | | Load_Top At_Offset_3
00eb 00e0 | | Load_Encached Standard_Cache
00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee 00da | | Load_Top At_Offset_2
00ef 00e0 | | Load_Encached Standard_Cache
00f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f2 00db | | Load_Top At_Offset_3
00f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f4 00db | | Load_Top At_Offset_3
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 e20d | | Load 0x1,0xd
00f7 00dc | | Load_Top At_Offset_4
00f8 0267 | g | Execute Discrete,Predecessor
00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fa e20d | | Load 0x1,0xd
00fb 00dc | | Load_Top At_Offset_4
00fc 0268 | h | Execute Discrete,Successor
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 0000 0000 | | .XXX[0x2]
0100 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4607 |F | Jump_Case 0x8
010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
010d 7807 |x | Jump 0x115 ; case 0x1
010e 780a |x | Jump 0x119 ; case 0x2
010f 780e |x | Jump 0x11e ; case 0x3
0110 7811 |x | Jump 0x122 ; case 0x4
0111 7812 |x | Jump 0x124 ; case 0x5
0112 7813 |x | Jump 0x126 ; case 0x6
0113 7816 |x | Jump 0x12a ; case 0x7
0114 4302 |C | .XXX[0x1]
0115 00da | | Load_Top At_Offset_2
0116 0091 0474 | t| Action Push_String_Extended_Indexed,0x474 ; "NAME"
0118 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0119 00db | | Load_Top At_Offset_3
011a 00db | | Load_Top At_Offset_3
011b 00e0 | | Load_Encached Standard_Cache
011c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011e 00da | | Load_Top At_Offset_2
011f 00e0 | | Load_Encached Standard_Cache
0120 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0121 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0122 00db | | Load_Top At_Offset_3
0123 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0124 00db | | Load_Top At_Offset_3
0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0126 e20e | | Load 0x1,0xe
0127 00dc | | Load_Top At_Offset_4
0128 0267 | g | Execute Discrete,Predecessor
0129 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
012a e20e | | Load 0x1,0xe
012b 00dc | | Load_Top At_Offset_4
012c 0268 | h | Execute Discrete,Successor
012d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135 | 5 | .CONST 0x0135 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e224 | $ | Load 0x1,0x24
0134 0322 | " | Declare_Variable Record
0135 BODY_0130:
0135 00db | | Load_Top At_Offset_3
0136 00d9 | | Load_Top At_Offset_1
0137 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0138 00db | | Load_Top At_Offset_3
0139 e01e | | Load 0x0,0x1e
013a e20f | | Load 0x1,0xf
013b 0096 | | Execute Package,Entry
013c 00d9 | | Load_Top At_Offset_1
013d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013e 00db | | Load_Top At_Offset_3
013f e01e | | Load 0x0,0x1e
0140 e20f | | Load 0x1,0xf
0141 0096 | | Execute Package,Entry
0142 00d9 | | Load_Top At_Offset_1
0143 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0144 00db | | Load_Top At_Offset_3
0145 e01e | | Load 0x0,0x1e
0146 e20f | | Load 0x1,0xf
0147 0096 | | Execute Package,Entry
0148 00d9 | | Load_Top At_Offset_1
0149 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
014a 00db | | Load_Top At_Offset_3
014b e01e | | Load 0x0,0x1e
014c e20f | | Load 0x1,0xf
014d 0096 | | Execute Package,Entry
014e 00d9 | | Load_Top At_Offset_1
014f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0150 00db | | Load_Top At_Offset_3
0151 e01e | | Load 0x0,0x1e
0152 e20f | | Load 0x1,0xf
0153 0096 | | Execute Package,Entry
0154 00d9 | | Load_Top At_Offset_1
0155 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0156 00d8 | | Load_Top At_Offset_0
0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 4604 |F | Jump_Case 0x5
0165 7807 |x | Jump 0x16d ; case 0x0
0166 7809 |x | Jump 0x170 ; case 0x1
0167 780b |x | Jump 0x173 ; case 0x2
0168 780d |x | Jump 0x176 ; case 0x3
0169 7800 |x | Jump 0x16a ; case 0x4
016a 00db | | Load_Top At_Offset_3
016b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
016c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016d 00db | | Load_Top At_Offset_3
016e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0170 00db | | Load_Top At_Offset_3
0171 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0172 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0173 00db | | Load_Top At_Offset_3
0174 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0175 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0176 00db | | Load_Top At_Offset_3
0177 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 4604 |F | Jump_Case 0x5
0185 7808 |x | Jump 0x18e ; case 0x0
0186 780b |x | Jump 0x192 ; case 0x1
0187 7812 |x | Jump 0x19a ; case 0x2
0188 780d |x | Jump 0x196 ; case 0x3
0189 7800 |x | Jump 0x18a ; case 0x4
018a 00db | | Load_Top At_Offset_3
018b e5fd | | Load 0x2,-0x3
018c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
018d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018e 00db | | Load_Top At_Offset_3
018f e5fd | | Load 0x2,-0x3
0190 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0191 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0192 00db | | Load_Top At_Offset_3
0193 e5fd | | Load 0x2,-0x3
0194 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0195 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0196 00db | | Load_Top At_Offset_3
0197 e5fd | | Load 0x2,-0x3
0198 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019a 00db | | Load_Top At_Offset_3
019b e5fd | | Load 0x2,-0x3
019c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
019d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019e 0000 0000 | | .XXX[0x2]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
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 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01be 0000 0000 | | .XXX[0x2]
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 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d1 | | .CONST 0x01d1 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e005 | | Load 0x0,0x5
01cc e5fc | | Load 0x2,-0x4
01cd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
01ce e5ff | | Load 0x2,-0x1
01cf 800e | | Call 0x0,0xe
01d0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01d1 BODY_01c8:
01d1 e5fc | | Load 0x2,-0x4
01d2 e5fd | | Load 0x2,-0x3
01d3 e5fe | | Load 0x2,-0x2
01d4 00db | | Load_Top At_Offset_3
01d5 821a | | Call 0x1,0x1a
01d6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01de | | .CONST 0x01de ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e5fc | | Load 0x2,-0x4
01dc e5fd | | Load 0x2,-0x3
01dd 8212 | | Call 0x1,0x12
01de BODY_01d8:
01de 00d8 | | Load_Top At_Offset_0
01df e5fe | | Load 0x2,-0x2
01e0 e5ff | | Load 0x2,-0x1
01e1 821b | | Call 0x1,0x1b
01e2 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f0 | | .CONST 0x01f0 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb 00e1 | | Load_Encached Boolean_Cache
01ec e004 | | Load 0x0,0x4
01ed 0322 | " | Declare_Variable Record
01ee 00d8 | | Load_Top At_Offset_0
01ef 1c00 | | Execute_Immediate Run_Utility,0x0
01f0 BODY_01e8:
01f0 00e1 | | Load_Encached Boolean_Cache
01f1 00d9 | | Load_Top At_Offset_1
01f2 e5ff | | Load 0x2,-0x1
01f3 e5fd | | Load 0x2,-0x3
01f4 e01f | | Load 0x0,0x1f
01f5 e20f | | Load 0x1,0xf
01f6 0096 | | Execute Package,Entry
01f7 00d1 | | Pop_Control Pop_Count_1
01f8 005a | Z | Store_Top Discrete,At_Offset_2
01f9 00d9 | | Load_Top At_Offset_1
01fa 680b |h | Jump_Zero 0x206
01fb 00d8 | | Load_Top At_Offset_0
01fc 8020 | | Call 0x0,0x20
01fd 00d1 | | Pop_Control Pop_Count_1
01fe e5fd | | Load 0x2,-0x3
01ff 00d9 | | Load_Top At_Offset_1
0200 e5ff | | Load 0x2,-0x1
0201 e021 | ! | Load 0x0,0x21
0202 e20f | | Load 0x1,0xf
0203 0096 | | Execute Package,Entry
0204 c5fd | | Store 0x2,-0x3
0205 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0206 e5fd | | Load 0x2,-0x3
0207 e5fe | | Load 0x2,-0x2
0208 e5ff | | Load 0x2,-0x1
0209 e021 | ! | Load 0x0,0x21
020a e20f | | Load 0x1,0xf
020b 0096 | | Execute Package,Entry
020c c5fd | | Store 0x2,-0x3
020d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020e 0000 0000 | | .XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021b | | .CONST 0x021b ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0004 | | .CONST 0x0004 ; Number of locals
0213 INIT_0210:
0213 00e1 | | Load_Encached Boolean_Cache
0214 e004 | | Load 0x0,0x4
0215 0322 | " | Declare_Variable Record
0216 00d8 | | Load_Top At_Offset_0
0217 1c00 | | Execute_Immediate Run_Utility,0x0
0218 e5fd | | Load 0x2,-0x3
0219 e5fe | | Load 0x2,-0x2
021a 8212 | | Call 0x1,0x12
021b BODY_0210:
021b 00e1 | | Load_Encached Boolean_Cache
021c 00da | | Load_Top At_Offset_2
021d e5ff | | Load 0x2,-0x1
021e 00db | | Load_Top At_Offset_3
021f e01f | | Load 0x0,0x1f
0220 e20f | | Load 0x1,0xf
0221 0096 | | Execute Package,Entry
0222 00d1 | | Pop_Control Pop_Count_1
0223 005b | [ | Store_Top Discrete,At_Offset_3
0224 00da | | Load_Top At_Offset_2
0225 6817 |h | Jump_Zero 0x23d
0226 00d9 | | Load_Top At_Offset_1
0227 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0228 0d02 | | Execute_Immediate Less,0x2
0229 6807 |h | Jump_Zero 0x231
022a 00d8 | | Load_Top At_Offset_0
022b e5ff | | Load 0x2,-0x1
022c e022 | " | Load 0x0,0x22
022d e20f | | Load 0x1,0xf
022e 0096 | | Execute Package,Entry
022f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0230 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0231 00d9 | | Load_Top At_Offset_1
0232 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0233 0aff | | Execute_Immediate Plus,-0x1
0234 00da | | Load_Top At_Offset_2
0235 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0236 00d8 | | Load_Top At_Offset_0
0237 00da | | Load_Top At_Offset_2
0238 e5ff | | Load 0x2,-0x1
0239 e021 | ! | Load 0x0,0x21
023a e20f | | Load 0x1,0xf
023b 0096 | | Execute Package,Entry
023c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
023d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0247 | G | .CONST 0x0247 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0003 | | .CONST 0x0003 ; Number of locals
0243 INIT_0240:
0243 e227 | ' | Load 0x1,0x27
0244 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0245 e224 | $ | Load 0x1,0x24
0246 0322 | " | Declare_Variable Record
0247 BODY_0240:
0247 e5ff | | Load 0x2,-0x1
0248 e227 | ' | Load 0x1,0x27
0249 1820 | | Execute Package,Field_Execute,Field_Number 0x20
024a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
024b 00d9 | | Load_Top At_Offset_1
024c e227 | ' | Load 0x1,0x27
024d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
024e 7002 |p | Jump_Nonzero 0x251
024f e023 | # | Load 0x0,0x23
0250 0257 | W | Execute Discrete,Raise
0251 00cf | | Action Mark_Auxiliary
0252 4805 |H | Short_Literal 0x5
0253 4801 |H | Short_Literal 0x1
0254 0007 | | Action Break_Optional
0255 00d8 | | Load_Top At_Offset_0
0256 e402 | | Load 0x2,0x2
0257 e227 | ' | Load 0x1,0x27
0258 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0259 6843 |hC | Jump_Zero 0x29d
025a 00d8 | | Load_Top At_Offset_0
025b 0aff | | Execute_Immediate Plus,-0x1
025c 4604 |F | Jump_Case 0x5
025d 7810 |x | Jump 0x26e ; case 0x0
025e 781b |x | Jump 0x27a ; case 0x1
025f 7826 |x& | Jump 0x286 ; case 0x2
0260 7831 |x1 | Jump 0x292 ; case 0x3
0261 7800 |x | Jump 0x262 ; case 0x4
0262 e5fe | | Load 0x2,-0x2
0263 00ea | | Load_Encached Null_String_Cache
0264 00da | | Load_Top At_Offset_2
0265 e402 | | Load 0x2,0x2
0266 e227 | ' | Load 0x1,0x27
0267 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0268 e024 | $ | Load 0x0,0x24
0269 e20f | | Load 0x1,0xf
026a 0096 | | Execute Package,Entry
026b e403 | | Load 0x2,0x3
026c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
026d 782f |x/ | Jump 0x29d
026e e5fe | | Load 0x2,-0x2
026f 00ea | | Load_Encached Null_String_Cache
0270 00da | | Load_Top At_Offset_2
0271 e402 | | Load 0x2,0x2
0272 e227 | ' | Load 0x1,0x27
0273 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0274 e024 | $ | Load 0x0,0x24
0275 e20f | | Load 0x1,0xf
0276 0096 | | Execute Package,Entry
0277 e403 | | Load 0x2,0x3
0278 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0279 7823 |x# | Jump 0x29d
027a e5fe | | Load 0x2,-0x2
027b 00ea | | Load_Encached Null_String_Cache
027c 00da | | Load_Top At_Offset_2
027d e402 | | Load 0x2,0x2
027e e227 | ' | Load 0x1,0x27
027f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0280 e024 | $ | Load 0x0,0x24
0281 e20f | | Load 0x1,0xf
0282 0096 | | Execute Package,Entry
0283 e403 | | Load 0x2,0x3
0284 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0285 7817 |x | Jump 0x29d
0286 e5fe | | Load 0x2,-0x2
0287 00ea | | Load_Encached Null_String_Cache
0288 00da | | Load_Top At_Offset_2
0289 e402 | | Load 0x2,0x2
028a e227 | ' | Load 0x1,0x27
028b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
028c e024 | $ | Load 0x0,0x24
028d e20f | | Load 0x1,0xf
028e 0096 | | Execute Package,Entry
028f e403 | | Load 0x2,0x3
0290 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0291 780b |x | Jump 0x29d
0292 e5fe | | Load 0x2,-0x2
0293 00ea | | Load_Encached Null_String_Cache
0294 00da | | Load_Top At_Offset_2
0295 e402 | | Load 0x2,0x2
0296 e227 | ' | Load 0x1,0x27
0297 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0298 e024 | $ | Load 0x0,0x24
0299 e20f | | Load 0x1,0xf
029a 0096 | | Execute Package,Entry
029b e403 | | Load 0x2,0x3
029c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
029d 00c8 | | Action Pop_Auxiliary_Range
029e 3fb6 |? | Loop_Increasing 0x255
029f 00ce | | Action Pop_Auxiliary
02a0 e5fe | | Load 0x2,-0x2
02a1 00d9 | | Load_Top At_Offset_1
02a2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02a3 00d8 | | Load_Top At_Offset_0
02a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02a5 0000 0000 | | .XXX[0x3]
02a7 0000 | |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3
02ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ad 00db | | Load_Top At_Offset_3
02ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02af e025 | % | Load 0x0,0x25
02b0 e20f | | Load 0x1,0xf
02b1 0096 | | Execute Package,Entry
02b2 6826 |h& | Jump_Zero 0x2d9
02b3 00db | | Load_Top At_Offset_3
02b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b5 00db | | Load_Top At_Offset_3
02b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b7 e025 | % | Load 0x0,0x25
02b8 e20f | | Load 0x1,0xf
02b9 0096 | | Execute Package,Entry
02ba 681c |h | Jump_Zero 0x2d7
02bb 00db | | Load_Top At_Offset_3
02bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02bd 00db | | Load_Top At_Offset_3
02be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02bf e025 | % | Load 0x0,0x25
02c0 e20f | | Load 0x1,0xf
02c1 0096 | | Execute Package,Entry
02c2 6812 |h | Jump_Zero 0x2d5
02c3 00db | | Load_Top At_Offset_3
02c4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02c5 00db | | Load_Top At_Offset_3
02c6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02c7 e025 | % | Load 0x0,0x25
02c8 e20f | | Load 0x1,0xf
02c9 0096 | | Execute Package,Entry
02ca 6808 |h | Jump_Zero 0x2d3
02cb 00db | | Load_Top At_Offset_3
02cc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02cd 00db | | Load_Top At_Offset_3
02ce 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02cf e025 | % | Load 0x0,0x25
02d0 e20f | | Load 0x1,0xf
02d1 0096 | | Execute Package,Entry
02d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d3 4800 |H | Short_Literal 0x0
02d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d5 4800 |H | Short_Literal 0x0
02d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d7 4800 |H | Short_Literal 0x0
02d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d9 4800 |H | Short_Literal 0x0
02da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02db 0000 0000 | | .BLANK 0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 e5fd | | Load 0x2,-0x3
02e5 017d | } | Execute Record,Structure_Write
02e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef | | .CONST 0x02ef ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb e226 | & | Load 0x1,0x26
02ec 0322 | " | Declare_Variable Record
02ed 00d8 | | Load_Top At_Offset_0
02ee 1c00 | | Execute_Immediate Run_Utility,0x0
02ef BODY_02e8:
02ef 00db | | Load_Top At_Offset_3
02f0 00d9 | | Load_Top At_Offset_1
02f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f2 4801 |H | Short_Literal 0x1
02f3 00d9 | | Load_Top At_Offset_1
02f4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02f5 00d8 | | Load_Top At_Offset_0
02f6 00d9 | | Load_Top At_Offset_1
02f7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02f8 8228 | ( | Call 0x1,0x28
02f9 00d1 | | Pop_Control Pop_Count_1
02fa 00d8 | | Load_Top At_Offset_0
02fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02fc 0000 0000 | | .BLANK 0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030f | | .CONST 0x030f ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
030d 00db | | Load_Top At_Offset_3
030e 822b | + | Call 0x1,0x2b
030f BODY_0308:
030f 00db | | Load_Top At_Offset_3
0310 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0311 680b |h | Jump_Zero 0x31d
0312 00db | | Load_Top At_Offset_3
0313 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0314 e225 | % | Load 0x1,0x25
0315 011c | | Execute Any,Convert_Unchecked
0316 1c01 | | Execute_Immediate Run_Utility,0x1
0317 0092 047d | }| Action Push_String_Extended,0x47d ; "=>("
0319 01cc | | Execute Vector,Catenate
031a 00d9 | | Load_Top At_Offset_1
031b 01cc | | Execute Vector,Catenate
031c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031d 00d8 | | Load_Top At_Offset_0
031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031f 0000 | | .XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0325 701e |p | Jump_Nonzero 0x344
0326 00da | | Load_Top At_Offset_2
0327 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0328 00db | | Load_Top At_Offset_3
0329 822a | * | Call 0x1,0x2a
032a 7006 |p | Jump_Nonzero 0x331
032b 00da | | Load_Top At_Offset_2
032c 00db | | Load_Top At_Offset_3
032d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
032e 8229 | ) | Call 0x1,0x29
032f 00d1 | | Pop_Control Pop_Count_1
0330 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0331 00da | | Load_Top At_Offset_2
0332 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0333 0f05 | | Execute_Immediate Equal,0x5
0334 6804 |h | Jump_Zero 0x339
0335 4801 |H | Short_Literal 0x1
0336 00db | | Load_Top At_Offset_3
0337 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0338 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0339 e225 | % | Load 0x1,0x25
033a 00db | | Load_Top At_Offset_3
033b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
033c 0268 | h | Execute Discrete,Successor
033d 00db | | Load_Top At_Offset_3
033e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
033f 00da | | Load_Top At_Offset_2
0340 00db | | Load_Top At_Offset_3
0341 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0342 8228 | ( | Call 0x1,0x28
0343 00d1 | | Pop_Control Pop_Count_1
0344 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4607 |F | Jump_Case 0x8
034c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
034d 7807 |x | Jump 0x355 ; case 0x1
034e 780a |x | Jump 0x359 ; case 0x2
034f 780e |x | Jump 0x35e ; case 0x3
0350 7811 |x | Jump 0x362 ; case 0x4
0351 7812 |x | Jump 0x364 ; case 0x5
0352 7813 |x | Jump 0x366 ; case 0x6
0353 7816 |x | Jump 0x36a ; case 0x7
0354 4302 |C | .XXX[0x1]
0355 00da | | Load_Top At_Offset_2
0356 0091 0476 | v| Action Push_String_Extended_Indexed,0x476 ; "NONE"
0358 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0359 00db | | Load_Top At_Offset_3
035a 00db | | Load_Top At_Offset_3
035b 00e0 | | Load_Encached Standard_Cache
035c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
035d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
035e 00da | | Load_Top At_Offset_2
035f 00e0 | | Load_Encached Standard_Cache
0360 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0361 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0362 00db | | Load_Top At_Offset_3
0363 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0364 00db | | Load_Top At_Offset_3
0365 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0366 e225 | % | Load 0x1,0x25
0367 00dc | | Load_Top At_Offset_4
0368 0267 | g | Execute Discrete,Predecessor
0369 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
036a e225 | % | Load 0x1,0x25
036b 00dc | | Load_Top At_Offset_4
036c 0268 | h | Execute Discrete,Successor
036d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
036e 0000 0000 | | .XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 4605 |F | Jump_Case 0x6
0375 7831 |x1 | Jump 0x3a7 ; case 0x0
0376 780d |x | Jump 0x384 ; case 0x1
0377 7815 |x | Jump 0x38d ; case 0x2
0378 781d |x | Jump 0x396 ; case 0x3
0379 7825 |x% | Jump 0x39f ; case 0x4
037a 7800 |x | Jump 0x37b ; case 0x5
037b 00db | | Load_Top At_Offset_3
037c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
037d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
037e e026 | & | Load 0x0,0x26
037f e20f | | Load 0x1,0xf
0380 0096 | | Execute Package,Entry
0381 e5fe | | Load 0x2,-0x2
0382 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0383 7823 |x# | Jump 0x3a7
0384 00db | | Load_Top At_Offset_3
0385 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0386 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0387 e026 | & | Load 0x0,0x26
0388 e20f | | Load 0x1,0xf
0389 0096 | | Execute Package,Entry
038a e5fe | | Load 0x2,-0x2
038b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
038c 781a |x | Jump 0x3a7
038d 00db | | Load_Top At_Offset_3
038e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
038f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0390 e026 | & | Load 0x0,0x26
0391 e20f | | Load 0x1,0xf
0392 0096 | | Execute Package,Entry
0393 e5fe | | Load 0x2,-0x2
0394 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0395 7811 |x | Jump 0x3a7
0396 00db | | Load_Top At_Offset_3
0397 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0398 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0399 e026 | & | Load 0x0,0x26
039a e20f | | Load 0x1,0xf
039b 0096 | | Execute Package,Entry
039c e5fe | | Load 0x2,-0x2
039d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
039e 7808 |x | Jump 0x3a7
039f 00db | | Load_Top At_Offset_3
03a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03a2 e026 | & | Load 0x0,0x26
03a3 e20f | | Load 0x1,0xf
03a4 0096 | | Execute Package,Entry
03a5 e5fe | | Load 0x2,-0x2
03a6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
03a7 4801 |H | Short_Literal 0x1
03a8 e5fe | | Load 0x2,-0x2
03a9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ab 0000 0000 | | .BLANK 0000[0x5]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 4605 |F | Jump_Case 0x6
03b5 7827 |x' | Jump 0x3dd ; case 0x0
03b6 780b |x | Jump 0x3c2 ; case 0x1
03b7 7811 |x | Jump 0x3c9 ; case 0x2
03b8 7817 |x | Jump 0x3d0 ; case 0x3
03b9 781d |x | Jump 0x3d7 ; case 0x4
03ba 7800 |x | Jump 0x3bb ; case 0x5
03bb 00db | | Load_Top At_Offset_3
03bc 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03bd e027 | ' | Load 0x0,0x27
03be e20f | | Load 0x1,0xf
03bf 0096 | | Execute Package,Entry
03c0 00d1 | | Pop_Control Pop_Count_1
03c1 781b |x | Jump 0x3dd
03c2 00db | | Load_Top At_Offset_3
03c3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03c4 e027 | ' | Load 0x0,0x27
03c5 e20f | | Load 0x1,0xf
03c6 0096 | | Execute Package,Entry
03c7 00d1 | | Pop_Control Pop_Count_1
03c8 7814 |x | Jump 0x3dd
03c9 00db | | Load_Top At_Offset_3
03ca 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03cb e027 | ' | Load 0x0,0x27
03cc e20f | | Load 0x1,0xf
03cd 0096 | | Execute Package,Entry
03ce 00d1 | | Pop_Control Pop_Count_1
03cf 780d |x | Jump 0x3dd
03d0 00db | | Load_Top At_Offset_3
03d1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
03d2 e027 | ' | Load 0x0,0x27
03d3 e20f | | Load 0x1,0xf
03d4 0096 | | Execute Package,Entry
03d5 00d1 | | Pop_Control Pop_Count_1
03d6 7806 |x | Jump 0x3dd
03d7 00db | | Load_Top At_Offset_3
03d8 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
03d9 e027 | ' | Load 0x0,0x27
03da e20f | | Load 0x1,0xf
03db 0096 | | Execute Package,Entry
03dc 00d1 | | Pop_Control Pop_Count_1
03dd 4800 |H | Short_Literal 0x0
03de e5fe | | Load 0x2,-0x2
03df 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e1 0000 0000 | | .BLANK 0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00db | | Load_Top At_Offset_3
03ec 4605 |F | Jump_Case 0x6
03ed 780b |x | Jump 0x3f9 ; case 0x0
03ee 780c |x | Jump 0x3fb ; case 0x1
03ef 7811 |x | Jump 0x401 ; case 0x2
03f0 7816 |x | Jump 0x407 ; case 0x3
03f1 781b |x | Jump 0x40d ; case 0x4
03f2 7800 |x | Jump 0x3f3 ; case 0x5
03f3 00da | | Load_Top At_Offset_2
03f4 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
03f5 e028 | ( | Load 0x0,0x28
03f6 e20f | | Load 0x1,0xf
03f7 0096 | | Execute Package,Entry
03f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f9 4801 |H | Short_Literal 0x1
03fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03fb 00da | | Load_Top At_Offset_2
03fc 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03fd e028 | ( | Load 0x0,0x28
03fe e20f | | Load 0x1,0xf
03ff 0096 | | Execute Package,Entry
0400 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0401 00da | | Load_Top At_Offset_2
0402 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0403 e028 | ( | Load 0x0,0x28
0404 e20f | | Load 0x1,0xf
0405 0096 | | Execute Package,Entry
0406 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0407 00da | | Load_Top At_Offset_2
0408 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0409 e028 | ( | Load 0x0,0x28
040a e20f | | Load 0x1,0xf
040b 0096 | | Execute Package,Entry
040c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
040d 00da | | Load_Top At_Offset_2
040e 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
040f e028 | ( | Load 0x0,0x28
0410 e20f | | Load 0x1,0xf
0411 0096 | | Execute Package,Entry
0412 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0413 0000 0000 | | .BLANK 0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00db | | Load_Top At_Offset_3
041c 00db | | Load_Top At_Offset_3
041d 822a | * | Call 0x1,0x2a
041e 6803 |h | Jump_Zero 0x422
041f 0092 047e | ~| Action Push_String_Extended,0x47e ; ")"
0421 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0422 00db | | Load_Top At_Offset_3
0423 4605 |F | Jump_Case 0x6
0424 780b |x | Jump 0x430 ; case 0x0
0425 780c |x | Jump 0x432 ; case 0x1
0426 7811 |x | Jump 0x438 ; case 0x2
0427 7816 |x | Jump 0x43e ; case 0x3
0428 781b |x | Jump 0x444 ; case 0x4
0429 7800 |x | Jump 0x42a ; case 0x5
042a 00da | | Load_Top At_Offset_2
042b 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
042c e029 | ) | Load 0x0,0x29
042d e20f | | Load 0x1,0xf
042e 0096 | | Execute Package,Entry
042f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0430 00ea | | Load_Encached Null_String_Cache
0431 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0432 00da | | Load_Top At_Offset_2
0433 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0434 e029 | ) | Load 0x0,0x29
0435 e20f | | Load 0x1,0xf
0436 0096 | | Execute Package,Entry
0437 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0438 00da | | Load_Top At_Offset_2
0439 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
043a e029 | ) | Load 0x0,0x29
043b e20f | | Load 0x1,0xf
043c 0096 | | Execute Package,Entry
043d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
043e 00da | | Load_Top At_Offset_2
043f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0440 e029 | ) | Load 0x0,0x29
0441 e20f | | Load 0x1,0xf
0442 0096 | | Execute Package,Entry
0443 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0444 00da | | Load_Top At_Offset_2
0445 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0446 e029 | ) | Load 0x0,0x29
0447 e20f | | Load 0x1,0xf
0448 0096 | | Execute Package,Entry
0449 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044a 0000 0000 | | .BLANK 0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 4601 |F | Jump_Case 0x2
0454 7801 |x | Jump 0x456 ; case 0x0
0455 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0456 4800 |H | Short_Literal 0x0
0457 00db | | Load_Top At_Offset_3
0458 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0459 4800 |H | Short_Literal 0x0
045a 00db | | Load_Top At_Offset_3
045b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
045c 4801 |H | Short_Literal 0x1
045d 00db | | Load_Top At_Offset_3
045e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
045f 00da | | Load_Top At_Offset_2
0460 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0461 1c00 | | Execute_Immediate Run_Utility,0x0
0462 00da | | Load_Top At_Offset_2
0463 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0464 1c00 | | Execute_Immediate Run_Utility,0x0
0465 00da | | Load_Top At_Offset_2
0466 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0467 1c00 | | Execute_Immediate Run_Utility,0x0
0468 00da | | Load_Top At_Offset_2
0469 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
046a 1c00 | | Execute_Immediate Run_Utility,0x0
046b 00da | | Load_Top At_Offset_2
046c 3408 |4 | Execute Record,Field_Reference,Field_Number 0x8
046d 1c00 | | Execute_Immediate Run_Utility,0x0
046e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
046f ; --------------------------------------------------------------------------------------
046f ; STRING TABLE
046f ; --------------------------------------------------------------------------------------
046f 0022 | " | .STRTAB 0x0022->0x0480 ; "DRIVER_MAP"
0470 002a | * | .STRTAB 0x002a->0x0485 ; "PRECONDITION_MAP"
0471 0038 | 8 | .STRTAB 0x0038->0x048d ; "PROLOG_MAP"
0472 0040 | @ | .STRTAB 0x0040->0x0492 ; "EPILOG_MAP"
0473 0048 | H | .STRTAB 0x0048->0x0497 ; "EVAL_MAP"
0474 004e | N | .STRTAB 0x004e->0x049b ; "NAME"
0475 0050 | P | .STRTAB 0x0050->0x049d ; "DATA"
0476 0052 | R | .STRTAB 0x0052->0x049f ; "NONE"
0477 0054 | T | .STRTAB 0x0054->0x04a1 ; "DRIVER"
0478 0058 | X | .STRTAB 0x0058->0x04a4 ; "PRE"
0479 0059 | Y | .STRTAB 0x0059->0x04a5 ; "PROLOG"
047a 005d | ] | .STRTAB 0x005d->0x04a8 ; "EPILOG"
047b 0061 | a | .STRTAB 0x0061->0x04ab ; "EVAL"
047c 0063 | c | .STRTAB 0x0063->0x04ad ; "others => Unspecified"
047d 0076 | v | .STRTAB 0x0076->0x04b8 ; "=>("
047e 0077 | w | .STRTAB 0x0077->0x04b9 ; ")"
047f 0076 | v | .STREND 0x0076->0x04ba
0480 4452 4956 |DRIV| .STRTAB_STRINGS
04ba 0000 0000 | | .BLANK 0000[0x6]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug Table
04c0 ; --------------------------------------------------------------------------------------
04c0 0004 0009 | | .DEBUG4 0x0004,0x0009,0xefbb,0x0000,0x0001,0x0000
04c6 0000 0000 | | .BLANK 0000[0x13a]