|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0
└─⟦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 0290 | | .CONST 0x0290 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007e | ~ | .CONST 0x007e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0013 00bf | | Action Accept_Activation
0014 e001 | | Load 0x0,0x1
0015 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0016 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0017 e001 | | Load 0x0,0x1
0018 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0019 03f1 | | Declare_Variable Discrete,With_Value
001a 4800 |H | Short_Literal 0x0
001b 4805 |H | Short_Literal 0x5
001c 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
001e 03fd | | Declare_Type Discrete,Defined
001f 00d8 | | Load_Top At_Offset_0
0020 0266 | f | Execute Discrete,Bounds
0021 e001 | | Load 0x0,0x1
0022 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0023 02a0 | | Declare_Subprogram Null_Subprogram
0024 4801 |H | Short_Literal 0x1
0025 035d | ] | Declare_Type Array,Defined
0026 00d8 | | Load_Top At_Offset_0
0027 0337 | 7 | Declare_Variable Array
0028 00d8 | | Load_Top At_Offset_0
0029 0335 | 5 | Declare_Variable Array,Duplicate
002a 00cd | | Action Spare6_Action
002b 4800 |H | Short_Literal 0x0
002c 4800 |H | Short_Literal 0x0
002d 00da | | Load_Top At_Offset_2
002e 01d6 | | Execute Vector,Field_Write
002f 4801 |H | Short_Literal 0x1
0030 4801 |H | Short_Literal 0x1
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 4802 |H | Short_Literal 0x2
0034 4802 |H | Short_Literal 0x2
0035 00da | | Load_Top At_Offset_2
0036 01d6 | | Execute Vector,Field_Write
0037 4803 |H | Short_Literal 0x3
0038 4803 |H | Short_Literal 0x3
0039 00da | | Load_Top At_Offset_2
003a 01d6 | | Execute Vector,Field_Write
003b 4804 |H | Short_Literal 0x4
003c 4804 |H | Short_Literal 0x4
003d 00da | | Load_Top At_Offset_2
003e 01d6 | | Execute Vector,Field_Write
003f 4805 |H | Short_Literal 0x5
0040 4805 |H | Short_Literal 0x5
0041 00da | | Load_Top At_Offset_2
0042 01d6 | | Execute Vector,Field_Write
0043 00d9 | | Load_Top At_Offset_1
0044 01d4 | | Execute Vector,Structure_Write
0045 00da | | Load_Top At_Offset_2
0046 0266 | f | Execute Discrete,Bounds
0047 e001 | | Load 0x0,0x1
0048 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0049 02a0 | | Declare_Subprogram Null_Subprogram
004a 4801 |H | Short_Literal 0x1
004b 035d | ] | Declare_Type Array,Defined
004c 00d8 | | Load_Top At_Offset_0
004d 0337 | 7 | Declare_Variable Array
004e 00d8 | | Load_Top At_Offset_0
004f 0335 | 5 | Declare_Variable Array,Duplicate
0050 00cd | | Action Spare6_Action
0051 4802 |H | Short_Literal 0x2
0052 4800 |H | Short_Literal 0x0
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 4802 |H | Short_Literal 0x2
0056 4801 |H | Short_Literal 0x1
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4802 |H | Short_Literal 0x2
005a 4802 |H | Short_Literal 0x2
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 4802 |H | Short_Literal 0x2
005e 4803 |H | Short_Literal 0x3
005f 00da | | Load_Top At_Offset_2
0060 01d6 | | Execute Vector,Field_Write
0061 4802 |H | Short_Literal 0x2
0062 4804 |H | Short_Literal 0x4
0063 00da | | Load_Top At_Offset_2
0064 01d6 | | Execute Vector,Field_Write
0065 4802 |H | Short_Literal 0x2
0066 4805 |H | Short_Literal 0x5
0067 00da | | Load_Top At_Offset_2
0068 01d6 | | Execute Vector,Field_Write
0069 00d9 | | Load_Top At_Offset_1
006a 01d4 | | Execute Vector,Structure_Write
006b e001 | | Load 0x0,0x1
006c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
006d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
006e 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
0070 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
0072 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
0074 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
0076 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0077 00c7 | | Action Elaborate_Subprogram
0078 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0079 00c7 | | Action Elaborate_Subprogram
007a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
007b 00c7 | | Action Elaborate_Subprogram
007c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007d 00c7 | | Action Elaborate_Subprogram
007e BODY_0008:
007e 00bc | | Action Signal_Activated
007f 00bb | | Action Signal_Completion
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0088 | | .CONST 0x0088 ; Address of begin
0081 00a2 | | .CONST 0x00a2 ; Address of exception handler
0082 0004 | | .CONST 0x0004 ; Number of locals
0083 INIT_0080:
0083 e002 | | Load 0x0,0x2
0084 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0085 00e1 | | Load_Encached Boolean_Cache
0086 e001 | | Load 0x0,0x1
0087 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0088 BODY_0080:
0088 00e1 | | Load_Encached Boolean_Cache
0089 e002 | | Load 0x0,0x2
008a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008b e5fb | | Load 0x2,-0x5
008c 4800 |H | Short_Literal 0x0
008d 486f |Ho | Short_Literal 0x6f
008e e5ff | | Load 0x2,-0x1
008f e002 | | Load 0x0,0x2
0090 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0091 c402 | | Store 0x2,0x2
0092 005a | Z | Store_Top Discrete,At_Offset_2
0093 00d9 | | Load_Top At_Offset_1
0094 7002 |p | Jump_Nonzero 0x97
0095 4800 |H | Short_Literal 0x0
0096 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0097 e5fc | | Load 0x2,-0x4
0098 e5fd | | Load 0x2,-0x3
0099 e5fe | | Load 0x2,-0x2
009a e402 | | Load 0x2,0x2
009b 820e | | Call 0x1,0xe
009c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
009d 00da | | Load_Top At_Offset_2
009e e002 | | Load 0x0,0x2
009f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a0 00d8 | | Load_Top At_Offset_0
00a1 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
00a2 TRAP_0080:
00a2 010e | | Execute Exception,Is_Constraint_Error
00a3 7004 |p | Jump_Nonzero 0xa8
00a4 e003 | | Load 0x0,0x3
00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a6 010f | | Execute Exception,Equal
00a7 6802 |h | Jump_Zero 0xaa
00a8 4800 |H | Short_Literal 0x0
00a9 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
00aa 0100 | | Execute Exception,Raise
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00ba | | .CONST 0x00ba ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e002 | | Load 0x0,0x2
00b5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00b6 6801 |h | Jump_Zero 0xb8
00b7 0887 | | Execute_Immediate Raise,0x87
00b8 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
00ba BODY_00b0:
00ba 4803 |H | Short_Literal 0x3
00bb 8219 | | Call 0x1,0x19
00bc e5ff | | Load 0x2,-0x1
00bd e002 | | Load 0x0,0x2
00be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bf e5fe | | Load 0x2,-0x2
00c0 e5ff | | Load 0x2,-0x1
00c1 e002 | | Load 0x0,0x2
00c2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c4 e5fd | | Load 0x2,-0x3
00c5 e5ff | | Load 0x2,-0x1
00c6 e002 | | Load 0x0,0x2
00c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00c8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c9 e5fc | | Load 0x2,-0x4
00ca 821b | | Call 0x1,0x1b
00cb e5ff | | Load 0x2,-0x1
00cc e002 | | Load 0x0,0x2
00cd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00cf 4800 |H | Short_Literal 0x0
00d0 e5ff | | Load 0x2,-0x1
00d1 e002 | | Load 0x0,0x2
00d2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d4 00db | | Load_Top At_Offset_3
00d5 e002 | | Load 0x0,0x2
00d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d7 8402 | | Call 0x2,0x2
00d8 0831 | 1 | Execute_Immediate Raise,0x31
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ea | | .CONST 0x00ea ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e5fd | | Load 0x2,-0x3
00e4 e002 | | Load 0x0,0x2
00e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00e6 6801 |h | Jump_Zero 0xe8
00e7 0887 | | Execute_Immediate Raise,0x87
00e8 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
00ea BODY_00e0:
00ea 4804 |H | Short_Literal 0x4
00eb 8219 | | Call 0x1,0x19
00ec e5fd | | Load 0x2,-0x3
00ed e002 | | Load 0x0,0x2
00ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ef e5fd | | Load 0x2,-0x3
00f0 e002 | | Load 0x0,0x2
00f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f2 8402 | | Call 0x2,0x2
00f3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0102 | | .CONST 0x0102 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e5fc | | Load 0x2,-0x4
00fc e002 | | Load 0x0,0x2
00fd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00fe 6801 |h | Jump_Zero 0x100
00ff 0887 | | Execute_Immediate Raise,0x87
0100 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
0102 BODY_00f8:
0102 4805 |H | Short_Literal 0x5
0103 8219 | | Call 0x1,0x19
0104 e5fc | | Load 0x2,-0x4
0105 e002 | | Load 0x0,0x2
0106 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0107 e5fb | | Load 0x2,-0x5
0108 e5fc | | Load 0x2,-0x4
0109 e002 | | Load 0x0,0x2
010a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
010b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
010c e5fa | | Load 0x2,-0x6
010d e5fc | | Load 0x2,-0x4
010e e002 | | Load 0x0,0x2
010f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0110 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0111 e5f9 | | Load 0x2,-0x7
0112 e5fc | | Load 0x2,-0x4
0113 e002 | | Load 0x0,0x2
0114 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0115 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0116 e5fc | | Load 0x2,-0x4
0117 85fd | | Call 0x2,-0x3
0118 e5fc | | Load 0x2,-0x4
0119 e002 | | Load 0x0,0x2
011a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
011b 8402 | | Call 0x2,0x2
011c 4508 |E | Exit_Suprogram New_Top_Offset 0x8
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 4607 |F | Jump_Case 0x8
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7806 |x | Jump 0x12c ; case 0x1
0126 7809 |x | Jump 0x130 ; case 0x2
0127 780d |x | Jump 0x135 ; case 0x3
0128 7810 |x | Jump 0x139 ; case 0x4
0129 7811 |x | Jump 0x13b ; case 0x5
012a 7812 |x | Jump 0x13d ; case 0x6
012b 7815 |x | Jump 0x141 ; case 0x7
012c 00da | | Load_Top At_Offset_2
012d 0091 0278 | x| Action Push_String_Extended_Indexed,0x278 ; "NIL"
012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0130 00db | | Load_Top At_Offset_3
0131 00db | | Load_Top At_Offset_3
0132 00e0 | | Load_Encached Standard_Cache
0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0135 00da | | Load_Top At_Offset_2
0136 00e0 | | Load_Encached Standard_Cache
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0139 00db | | Load_Top At_Offset_3
013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013b 00db | | Load_Top At_Offset_3
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d e212 | | Load 0x1,0x12
013e 00dc | | Load_Top At_Offset_4
013f 0267 | g | Execute Discrete,Predecessor
0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0141 e212 | | Load 0x1,0x12
0142 00dc | | Load_Top At_Offset_4
0143 0268 | h | Execute Discrete,Successor
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d | M | .CONST 0x014d ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e217 | | Load 0x1,0x17
014c 0007 | | Action Break_Optional
014d BODY_0148:
014d 00d8 | | Load_Top At_Offset_0
014e 600d |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0xffffffff}
014f 027f | | Execute Discrete,Equal
0150 6803 |h | Jump_Zero 0x154
0151 4800 |H | Short_Literal 0x0
0152 a217 | | Store_Unchecked 0x1,0x17
0153 7804 |x | Jump 0x158
0154 00e5 | | Load_Encached Long_Integer_Cache
0155 00d9 | | Load_Top At_Offset_1
0156 0268 | h | Execute Discrete,Successor
0157 c217 | | Store 0x1,0x17
0158 00d8 | | Load_Top At_Offset_0
0159 00ca | | Action Exit_Nullary_Function
015a 0000 0000 | | .XXX[0x2]
015c 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
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 4800 |H | Short_Literal 0x0
0164 e001 | | Load 0x0,0x1
0165 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0166 1c08 | | Execute_Immediate Run_Utility,0x8
0167 8218 | | Call 0x1,0x18
0168 00d9 | | Load_Top At_Offset_1
0169 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
016a 00d8 | | Load_Top At_Offset_0
016b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
016c e211 | | Load 0x1,0x11
016d 00d9 | | Load_Top At_Offset_1
016e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016f 6044 |`D | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x000186a0}
0170 00d9 | | Load_Top At_Offset_1
0171 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0172 e5ff | | Load 0x2,-0x1
0173 e216 | | Load 0x1,0x16
0174 01d7 | | Execute Vector,Field_Read
0175 00d9 | | Load_Top At_Offset_1
0176 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0177 e5ff | | Load 0x2,-0x1
0178 e214 | | Load 0x1,0x14
0179 01d7 | | Execute Vector,Field_Read
017a 00d9 | | Load_Top At_Offset_1
017b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
017c 00d8 | | Load_Top At_Offset_0
017d 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
017e 4800 |H | Short_Literal 0x0
017f 00d9 | | Load_Top At_Offset_1
0180 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0181 4800 |H | Short_Literal 0x0
0182 00d9 | | Load_Top At_Offset_1
0183 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0184 e001 | | Load 0x0,0x1
0185 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0186 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0187 0337 | 7 | Declare_Variable Array
0188 4990 |I | Short_Literal 0x190
0189 4801 |H | Short_Literal 0x1
018a 4800 |H | Short_Literal 0x0
018b 00d9 | | Load_Top At_Offset_1
018c e405 | | Load 0x2,0x5
018d 01d6 | | Execute Vector,Field_Write
018e 3ffb |? | Loop_Increasing 0x18a
018f e001 | | Load 0x0,0x1
0190 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0191 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0192 0119 | | Execute Any,Check_In_Formal_Type
0193 00d0 | | Action Swap_Control
0194 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0195 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0196 4800 |H | Short_Literal 0x0
0197 00d9 | | Load_Top At_Offset_1
0198 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0199 4800 |H | Short_Literal 0x0
019a 00d9 | | Load_Top At_Offset_1
019b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019c e001 | | Load 0x0,0x1
019d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
019e 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
019f 0337 | 7 | Declare_Variable Array
01a0 4990 |I | Short_Literal 0x190
01a1 4801 |H | Short_Literal 0x1
01a2 4800 |H | Short_Literal 0x0
01a3 00d9 | | Load_Top At_Offset_1
01a4 e404 | | Load 0x2,0x4
01a5 01d6 | | Execute Vector,Field_Write
01a6 3ffb |? | Loop_Increasing 0x1a2
01a7 e001 | | Load 0x0,0x1
01a8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01a9 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
01aa 0119 | | Execute Any,Check_In_Formal_Type
01ab 00d0 | | Action Swap_Control
01ac 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ad e002 | | Load 0x0,0x2
01ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01af 0161 | a | Execute Variant_Record,Check_In_Formal_Type
01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b1 0000 0000 | | .XXX[0x3]
01b3 0000 | |
01b4 0000 0000 | | .LITERAL {0x00000000, 0x000186a0}
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 0b06 | | Execute_Immediate Case_Compare,0x6
01bd 7004 |p | Jump_Nonzero 0x1c2
01be 0f11 | | Execute_Immediate Equal,0x11
01bf 7005 |p | Jump_Nonzero 0x1c5
01c0 4802 |H | Short_Literal 0x2
01c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c2 00d1 | | Pop_Control Pop_Count_1
01c3 4801 |H | Short_Literal 0x1
01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c5 4800 |H | Short_Literal 0x0
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 4602 |F | Jump_Case 0x3
01cd 7806 |x | Jump 0x1d4 ; case 0x0
01ce 7803 |x | Jump 0x1d2 ; case 0x1
01cf 7800 |x | Jump 0x1d0 ; case 0x2
01d0 4800 |H | Short_Literal 0x0
01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d2 4806 |H | Short_Literal 0x6
01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d4 4811 |H | Short_Literal 0x11
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e1 | | .CONST 0x01e1 ; Address of begin
01d9 01f3 | | .CONST 0x01f3 ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db 4800 |H | Short_Literal 0x0
01dc e5ff | | Load 0x2,-0x1
01dd e002 | | Load 0x0,0x2
01de 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01df e001 | | Load 0x0,0x1
01e0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01e1 BODY_01d8:
01e1 00d9 | | Load_Top At_Offset_1
01e2 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01e3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e4 6803 |h | Jump_Zero 0x1e8
01e5 4800 |H | Short_Literal 0x0
01e6 00cb | | Action Pop_Block_With_Result
01e7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01e8 e003 | | Load 0x0,0x3
01e9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01ea 4800 |H | Short_Literal 0x0
01eb e5ff | | Load 0x2,-0x1
01ec e002 | | Load 0x0,0x2
01ed 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ee 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01ef 0059 | Y | Store_Top Discrete,At_Offset_1
01f0 00d8 | | Load_Top At_Offset_0
01f1 00cb | | Action Pop_Block_With_Result
01f2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01f3 TRAP_01d8:
01f3 010e | | Execute Exception,Is_Constraint_Error
01f4 7004 |p | Jump_Nonzero 0x1f9
01f5 e003 | | Load 0x0,0x3
01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f7 010f | | Execute Exception,Equal
01f8 6803 |h | Jump_Zero 0x1fc
01f9 4800 |H | Short_Literal 0x0
01fa 00cb | | Action Pop_Block_With_Result
01fb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01fc 0100 | | Execute Exception,Raise
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0210 | | .CONST 0x0210 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0007 | | .CONST 0x0007 ; Number of locals
0203 INIT_0200:
0203 4801 |H | Short_Literal 0x1
0204 e5fd | | Load 0x2,-0x3
0205 e002 | | Load 0x0,0x2
0206 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0207 00e1 | | Load_Encached Boolean_Cache
0208 e001 | | Load 0x0,0x1
0209 1b15 | | Execute Package,Field_Read,Field_Number 0x15
020a e001 | | Load 0x0,0x1
020b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
020c e003 | | Load 0x0,0x3
020d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
020e e001 | | Load 0x0,0x1
020f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0210 BODY_0200:
0210 e602 | | Load 0x3,0x2
0211 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0212 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0213 0f01 | | Execute_Immediate Equal,0x1
0214 7034 |p4 | Jump_Nonzero 0x249
0215 7800 |x | Jump 0x216
0216 00cf | | Action Mark_Auxiliary
0217 00e1 | | Load_Encached Boolean_Cache
0218 4801 |H | Short_Literal 0x1
0219 e5fd | | Load 0x2,-0x3
021a e002 | | Load 0x0,0x2
021b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
021c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
021d c603 | | Store 0x3,0x3
021e e603 | | Load 0x3,0x3
021f 6828 |h( | Jump_Zero 0x248
0220 e003 | | Load 0x0,0x3
0221 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0222 4801 |H | Short_Literal 0x1
0223 e5fd | | Load 0x2,-0x3
0224 e002 | | Load 0x0,0x2
0225 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0226 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0227 c604 | | Store 0x3,0x4
0228 e003 | | Load 0x0,0x3
0229 1b12 | | Execute Package,Field_Read,Field_Number 0x12
022a 4801 |H | Short_Literal 0x1
022b e5fd | | Load 0x2,-0x3
022c e002 | | Load 0x0,0x2
022d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
022e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
022f c605 | | Store 0x3,0x5
0230 e003 | | Load 0x0,0x3
0231 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0232 4801 |H | Short_Literal 0x1
0233 e5fd | | Load 0x2,-0x3
0234 e002 | | Load 0x0,0x2
0235 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0236 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0237 005b | [ | Store_Top Discrete,At_Offset_3
0238 e003 | | Load 0x0,0x3
0239 1b12 | | Execute Package,Field_Read,Field_Number 0x12
023a 4801 |H | Short_Literal 0x1
023b e5fd | | Load 0x2,-0x3
023c e002 | | Load 0x0,0x2
023d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
023e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
023f 005a | Z | Store_Top Discrete,At_Offset_2
0240 00d9 | | Load_Top At_Offset_1
0241 00db | | Load_Top At_Offset_3
0242 821a | | Call 0x1,0x1a
0243 e605 | | Load 0x3,0x5
0244 e604 | | Load 0x3,0x4
0245 85fe | | Call 0x2,-0x2
0246 00c9 | | Action Pop_Auxiliary_Loop
0247 7fcf | | Jump 0x217
0248 00ce | | Action Pop_Auxiliary
0249 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259 | Y | .CONST 0x0259 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 4801 |H | Short_Literal 0x1
0254 e5fc | | Load 0x2,-0x4
0255 e002 | | Load 0x0,0x2
0256 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0257 e003 | | Load 0x0,0x3
0258 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0259 BODY_0250:
0259 00d9 | | Load_Top At_Offset_1
025a 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
025b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
025c 0f01 | | Execute_Immediate Equal,0x1
025d 7019 |p | Jump_Nonzero 0x277
025e 7800 |x | Jump 0x25f
025f e003 | | Load 0x0,0x3
0260 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0261 4801 |H | Short_Literal 0x1
0262 e5fc | | Load 0x2,-0x4
0263 e002 | | Load 0x0,0x2
0264 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0265 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0266 c5f8 | | Store 0x2,-0x8
0267 e003 | | Load 0x0,0x3
0268 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0269 4801 |H | Short_Literal 0x1
026a e5fc | | Load 0x2,-0x4
026b e002 | | Load 0x0,0x2
026c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
026d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
026e 0059 | Y | Store_Top Discrete,At_Offset_1
026f 00d8 | | Load_Top At_Offset_0
0270 00d8 | | Load_Top At_Offset_0
0271 00e3 | | Load_Encached Natural_Cache
0272 0260 | ` | Execute Discrete,In_Type
0273 7001 |p | Jump_Nonzero 0x275
0274 0801 | | Execute_Immediate Raise,0x1
0275 e5fc | | Load 0x2,-0x4
0276 85fe | | Call 0x2,-0x2
0277 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0278 ; --------------------------------------------------------------------------------------
0278 ; STRING TABLE
0278 ; --------------------------------------------------------------------------------------
0278 000e | | .STRTAB 0x000e->0x027f ; "NIL"
0279 000f | | .STRTAB 0x000f->0x0280 ; "SET"
027a 0010 | | .STRTAB 0x0010->0x0282 ; "UNSET"
027b 0013 | | .STRTAB 0x0013->0x0284 ; "GETPORT"
027c 0018 | | .STRTAB 0x0018->0x0288 ; "DUMP_MAP"
027d 001e | | .STRTAB 0x001e->0x028c ; "CALLIT"
027e 0022 | " | .STREND 0x0022->0x028f
027f 4e49 4c53 |NILS| .STRTAB_STRINGS
028f 0000 | | .XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug Table
0290 ; --------------------------------------------------------------------------------------
0290 0004 000e | | .DEBUG4 0x0004,0x000e,0xf43d,0x0000,0x0001,0x0000
0296 0000 0000 | | .BLANK 0000[0x16a]