|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_13970b9
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0238 | 8 | .CONST 0x0238 ; 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 0001 | | .CONST 0x0001 ; 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 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4800 |H | Short_Literal 0x0
000f 0093 017b | {| push_full_address INIT_0178
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 038e | | Declare_Type Package,Defined
0013 e002 | | Load 0x0,0x2
0014 e003 | | Load 0x0,0x3
0015 e004 | | Load 0x0,0x4
0016 a005 | | Store_Unchecked 0x0,0x5
0017 a006 | | Store_Unchecked 0x0,0x6
0018 e007 | | Load 0x0,0x7
0019 a008 | | Store_Unchecked 0x0,0x8
001a a009 | | Store_Unchecked 0x0,0x9
001b e00a | | Load 0x0,0xa
001c 4809 |H | Short_Literal 0x9
001d e20e | | Load 0x1,0xe
001e 020e | | Execute Module,Augment_Imports
001f 0387 | | Declare_Variable Package
0020 4800 |H | Short_Literal 0x0
0021 4802 |H | Short_Literal 0x2
0022 e001 | | Load 0x0,0x1
0023 01d7 | | Execute Vector,Field_Read
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 038e | | Declare_Type Package,Defined
0026 e001 | | Load 0x0,0x1
0027 4801 |H | Short_Literal 0x1
0028 e001 | | Load 0x0,0x1
0029 01d7 | | Execute Vector,Field_Read
002a e002 | | Load 0x0,0x2
002b e00b | | Load 0x0,0xb
002c e00c | | Load 0x0,0xc
002d e00d | | Load 0x0,0xd
002e e00e | | Load 0x0,0xe
002f e00f | | Load 0x0,0xf
0030 e010 | | Load 0x0,0x10
0031 e20e | | Load 0x1,0xe
0032 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0033 0098 | | Execute Package,Field_Read_Dynamic
0034 0098 | | Execute Package,Field_Read_Dynamic
0035 4808 |H | Short_Literal 0x8
0036 e20f | | Load 0x1,0xf
0037 020e | | Execute Module,Augment_Imports
0038 0387 | | Declare_Variable Package
0039 e011 | | Load 0x0,0x11
003a e012 | | Load 0x0,0x12
003b 4802 |H | Short_Literal 0x2
003c 00db | | Load_Top At_Offset_3
003d 020e | | Execute Module,Augment_Imports
003e 00d8 | | Load_Top At_Offset_0
003f 020f | | Execute Module,Activate
0040 4800 |H | Short_Literal 0x0
0041 4806 |H | Short_Literal 0x6
0042 e001 | | Load 0x0,0x1
0043 01d7 | | Execute Vector,Field_Read
0044 02a0 | | Declare_Subprogram Null_Subprogram
0045 038e | | Declare_Type Package,Defined
0046 e001 | | Load 0x0,0x1
0047 4805 |H | Short_Literal 0x5
0048 e001 | | Load 0x0,0x1
0049 01d7 | | Execute Vector,Field_Read
004a e013 | | Load 0x0,0x13
004b e014 | | Load 0x0,0x14
004c e010 | | Load 0x0,0x10
004d e20e | | Load 0x1,0xe
004e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
004f 0098 | | Execute Package,Field_Read_Dynamic
0050 0098 | | Execute Package,Field_Read_Dynamic
0051 0095 | | Execute Package,Field_Reference_Dynamic
0052 e20f | | Load 0x1,0xf
0053 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0054 e002 | | Load 0x0,0x2
0055 e015 | | Load 0x0,0x15
0056 4806 |H | Short_Literal 0x6
0057 e210 | | Load 0x1,0x10
0058 020e | | Execute Module,Augment_Imports
0059 0387 | | Declare_Variable Package
005a a016 | | Store_Unchecked 0x0,0x16
005b e017 | | Load 0x0,0x17
005c e014 | | Load 0x0,0x14
005d e010 | | Load 0x0,0x10
005e e20e | | Load 0x1,0xe
005f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0060 0098 | | Execute Package,Field_Read_Dynamic
0061 0098 | | Execute Package,Field_Read_Dynamic
0062 0095 | | Execute Package,Field_Reference_Dynamic
0063 a018 | | Store_Unchecked 0x0,0x18
0064 a019 | | Store_Unchecked 0x0,0x19
0065 e20f | | Load 0x1,0xf
0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0067 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0068 e20f | | Load 0x1,0xf
0069 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006a e20f | | Load 0x1,0xf
006b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
006c 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21
006d 4807 |H | Short_Literal 0x7
006e e210 | | Load 0x1,0x10
006f 020e | | Execute Module,Augment_Imports
0070 00d8 | | Load_Top At_Offset_0
0071 020f | | Execute Module,Activate
0072 4800 |H | Short_Literal 0x0
0073 4804 |H | Short_Literal 0x4
0074 e001 | | Load 0x0,0x1
0075 01d7 | | Execute Vector,Field_Read
0076 02a0 | | Declare_Subprogram Null_Subprogram
0077 038e | | Declare_Type Package,Defined
0078 e001 | | Load 0x0,0x1
0079 4803 |H | Short_Literal 0x3
007a e001 | | Load 0x0,0x1
007b 01d7 | | Execute Vector,Field_Read
007c 4802 |H | Short_Literal 0x2
007d 00db | | Load_Top At_Offset_3
007e 020e | | Execute Module,Augment_Imports
007f 0387 | | Declare_Variable Package
0080 e01a | | Load 0x0,0x1a
0081 e01b | | Load 0x0,0x1b
0082 e010 | | Load 0x0,0x10
0083 e20e | | Load 0x1,0xe
0084 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0085 0098 | | Execute Package,Field_Read_Dynamic
0086 0098 | | Execute Package,Field_Read_Dynamic
0087 0098 | | Execute Package,Field_Read_Dynamic
0088 00db | | Load_Top At_Offset_3
0089 1b15 | | Execute Package,Field_Read,Field_Number 0x15
008a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
008b e20f | | Load 0x1,0xf
008c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008d e01c | | Load 0x0,0x1c
008e e01d | | Load 0x0,0x1d
008f e01e | | Load 0x0,0x1e
0090 e010 | | Load 0x0,0x10
0091 e20e | | Load 0x1,0xe
0092 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0093 0098 | | Execute Package,Field_Read_Dynamic
0094 0098 | | Execute Package,Field_Read_Dynamic
0095 0098 | | Execute Package,Field_Read_Dynamic
0096 0095 | | Execute Package,Field_Reference_Dynamic
0097 e20f | | Load 0x1,0xf
0098 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0099 1914 | | Execute Package,Field_Reference,Field_Number 0x14
009a e20f | | Load 0x1,0xf
009b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009c e20f | | Load 0x1,0xf
009d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
009e 1915 | | Execute Package,Field_Reference,Field_Number 0x15
009f a019 | | Store_Unchecked 0x0,0x19
00a0 a01f | | Store_Unchecked 0x0,0x1f
00a1 a020 | | Store_Unchecked 0x0,0x20
00a2 e20f | | Load 0x1,0xf
00a3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a5 e20f | | Load 0x1,0xf
00a6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00a7 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21
00a8 e20f | | Load 0x1,0xf
00a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00aa 1922 | " | Execute Package,Field_Reference,Field_Number 0x22
00ab e20f | | Load 0x1,0xf
00ac 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ad a021 | ! | Store_Unchecked 0x0,0x21
00ae a018 | | Store_Unchecked 0x0,0x18
00af e20f | | Load 0x1,0xf
00b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b1 e022 | " | Load 0x0,0x22
00b2 a023 | # | Store_Unchecked 0x0,0x23
00b3 a024 | $ | Store_Unchecked 0x0,0x24
00b4 e002 | | Load 0x0,0x2
00b5 e025 | % | Load 0x0,0x25
00b6 e026 | & | Load 0x0,0x26
00b7 e027 | ' | Load 0x0,0x27
00b8 e20e | | Load 0x1,0xe
00b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ba 0098 | | Execute Package,Field_Read_Dynamic
00bb 0095 | | Execute Package,Field_Reference_Dynamic
00bc e027 | ' | Load 0x0,0x27
00bd e20e | | Load 0x1,0xe
00be 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00bf 0098 | | Execute Package,Field_Read_Dynamic
00c0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00c1 e028 | ( | Load 0x0,0x28
00c2 e027 | ' | Load 0x0,0x27
00c3 e20e | | Load 0x1,0xe
00c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c5 0098 | | Execute Package,Field_Read_Dynamic
00c6 0098 | | Execute Package,Field_Read_Dynamic
00c7 4819 |H | Short_Literal 0x19
00c8 e211 | | Load 0x1,0x11
00c9 020e | | Execute Module,Augment_Imports
00ca 00d8 | | Load_Top At_Offset_0
00cb 020f | | Execute Module,Activate
00cc 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00cd 00c7 | | Action Elaborate_Subprogram
00ce 00db | | Load_Top At_Offset_3
00cf 020f | | Execute Module,Activate
00d0 BODY_0008:
00d0 00bc | | Action Signal_Activated
00d1 00bb | | Action Signal_Completion
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00f8 | | .CONST 0x00f8 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0008 | | .CONST 0x0008 ; Number of locals
00db INIT_00d8:
00db 00e1 | | Load_Encached Boolean_Cache
00dc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00dd 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
00df 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
00e1 e029 | ) | Load 0x0,0x29
00e2 e027 | ' | Load 0x0,0x27
00e3 e20e | | Load 0x1,0xe
00e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e5 0098 | | Execute Package,Field_Read_Dynamic
00e6 0095 | | Execute Package,Field_Reference_Dynamic
00e7 00c6 | | Action Check_Subprogram_Elaborated
00e8 4803 |H | Short_Literal 0x3
00e9 4802 |H | Short_Literal 0x2
00ea 0099 | | Action Reference_Dynamic
00eb 4804 |H | Short_Literal 0x4
00ec 4802 |H | Short_Literal 0x2
00ed 0099 | | Action Reference_Dynamic
00ee 0093 0000 | | push_full_address 0x0
00f0 6043 |`C | Indirect_Literal Discrete,0x134,{0x80000000, 0x00010000}
00f1 0273 | s | Execute Discrete,Plus
00f2 e002 | | Load 0x0,0x2
00f3 0273 | s | Execute Discrete,Plus
00f4 e02a | * | Load 0x0,0x2a
00f5 0273 | s | Execute Discrete,Plus
00f6 4808 |H | Short_Literal 0x8
00f7 0007 | | Action Break_Optional
00f8 BODY_00d8:
00f8 4801 |H | Short_Literal 0x1
00f9 8016 | | Call 0x0,0x16
00fa 802b | + | Call 0x0,0x2b
00fb e210 | | Load 0x1,0x10
00fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00fd 00cf | | Action Mark_Auxiliary
00fe 7830 |x0 | Jump 0x12f
00ff 8016 | | Call 0x0,0x16
0100 0092 0213 | | Action Push_String_Extended,0x213 ; "THE FACT BASE IS NOW :"
0102 802c | , | Call 0x0,0x2c
0103 8016 | | Call 0x0,0x16
0104 e210 | | Load 0x1,0x10
0105 190d | | Execute Package,Field_Reference,Field_Number 0xd
0106 e210 | | Load 0x1,0x10
0107 190e | | Execute Package,Field_Reference,Field_Number 0xe
0108 e013 | | Load 0x0,0x13
0109 e014 | | Load 0x0,0x14
010a e010 | | Load 0x0,0x10
010b e20e | | Load 0x1,0xe
010c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
010d 0098 | | Execute Package,Field_Read_Dynamic
010e 0098 | | Execute Package,Field_Read_Dynamic
010f 0096 | | Execute Package,Entry
0110 4801 |H | Short_Literal 0x1
0111 8016 | | Call 0x0,0x16
0112 802b | + | Call 0x0,0x2b
0113 4801 |H | Short_Literal 0x1
0114 8016 | | Call 0x0,0x16
0115 802b | + | Call 0x0,0x2b
0116 e02d | - | Load 0x0,0x2d
0117 e02e | . | Load 0x0,0x2e
0118 e027 | ' | Load 0x0,0x27
0119 e20e | | Load 0x1,0xe
011a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
011b 0098 | | Execute Package,Field_Read_Dynamic
011c 0098 | | Execute Package,Field_Read_Dynamic
011d 0098 | | Execute Package,Field_Read_Dynamic
011e 4805 |H | Short_Literal 0x5
011f 4802 |H | Short_Literal 0x2
0120 0099 | | Action Reference_Dynamic
0121 4806 |H | Short_Literal 0x6
0122 4802 |H | Short_Literal 0x2
0123 0099 | | Action Reference_Dynamic
0124 4807 |H | Short_Literal 0x7
0125 4802 |H | Short_Literal 0x2
0126 0099 | | Action Reference_Dynamic
0127 e029 | ) | Load 0x0,0x29
0128 e027 | ' | Load 0x0,0x27
0129 e20e | | Load 0x1,0xe
012a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
012b 0098 | | Execute Package,Field_Read_Dynamic
012c 0096 | | Execute Package,Entry
012d a402 | | Store_Unchecked 0x2,0x2
012e 00c9 | | Action Pop_Auxiliary_Loop
012f e402 | | Load 0x2,0x2
0130 77ce |w | Jump_Nonzero 0xff
0131 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0132 0000 0000 | | .XXX[0x2]
0134 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 00db | | Load_Top At_Offset_3
013c 00db | | Load_Top At_Offset_3
013d 00d8 | | Load_Top At_Offset_0
013e 00e3 | | Load_Encached Natural_Cache
013f 0260 | ` | Execute Discrete,In_Type
0140 7001 |p | Jump_Nonzero 0x142
0141 0801 | | Execute_Immediate Raise,0x1
0142 e02f | / | Load 0x0,0x2f
0143 0afb | | Execute_Immediate Plus,-0x5
0144 e20e | | Load 0x1,0xe
0145 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0146 0098 | | Execute Package,Field_Read_Dynamic
0147 e02f | / | Load 0x0,0x2f
0148 0afc | | Execute_Immediate Plus,-0x4
0149 e20e | | Load 0x1,0xe
014a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
014b 0098 | | Execute Package,Field_Read_Dynamic
014c e02f | / | Load 0x0,0x2f
014d 0afd | | Execute_Immediate Plus,-0x3
014e e20e | | Load 0x1,0xe
014f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0150 0095 | | Execute Package,Field_Reference_Dynamic
0151 e02f | / | Load 0x0,0x2f
0152 0afe | | Execute_Immediate Plus,-0x2
0153 e20e | | Load 0x1,0xe
0154 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0155 0095 | | Execute Package,Field_Reference_Dynamic
0156 e02f | / | Load 0x0,0x2f
0157 0aff | | Execute_Immediate Plus,-0x1
0158 e20e | | Load 0x1,0xe
0159 1b11 | | Execute Package,Field_Read,Field_Number 0x11
015a 0095 | | Execute Package,Field_Reference_Dynamic
015b e030 | 0 | Load 0x0,0x30
015c e20e | | Load 0x1,0xe
015d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
015e 0095 | | Execute Package,Field_Reference_Dynamic
015f e031 | 1 | Load 0x0,0x31
0160 e014 | | Load 0x0,0x14
0161 e010 | | Load 0x0,0x10
0162 e20e | | Load 0x1,0xe
0163 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0164 0098 | | Execute Package,Field_Read_Dynamic
0165 0098 | | Execute Package,Field_Read_Dynamic
0166 0096 | | Execute Package,Entry
0167 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 00db | | Load_Top At_Offset_3
016d 00d8 | | Load_Top At_Offset_0
016e 00e3 | | Load_Encached Natural_Cache
016f 0260 | ` | Execute Discrete,In_Type
0170 7001 |p | Jump_Nonzero 0x172
0171 0801 | | Execute_Immediate Raise,0x1
0172 e211 | | Load 0x1,0x11
0173 180d | | Execute Package,Field_Execute,Field_Number 0xd
0174 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 01a5 | | .CONST 0x01a5 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0011 | | .CONST 0x0011 ; Number of locals
017b INIT_0178:
017b 4800 |H | Short_Literal 0x0
017c 4801 |H | Short_Literal 0x1
017d 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
017f 03fe | | Declare_Type Discrete,Defined,Visible
0180 4800 |H | Short_Literal 0x0
0181 4800 |H | Short_Literal 0x0
0182 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0184 03fe | | Declare_Type Discrete,Defined,Visible
0185 029c 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible
0187 029c 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible
0189 0093 0000 | | push_full_address 0x0
018b 6044 |`D | Indirect_Literal Discrete,0x1d0,{0x80000000, 0x00050000}
018c 0273 | s | Execute Discrete,Plus
018d e001 | | Load 0x0,0x1
018e 0273 | s | Execute Discrete,Plus
018f e002 | | Load 0x0,0x2
0190 0273 | s | Execute Discrete,Plus
0191 483c |H< | Short_Literal 0x3c
0192 4814 |H | Short_Literal 0x14
0193 48c8 |H | Short_Literal 0xc8
0194 480a |H | Short_Literal 0xa
0195 e20d | | Load 0x1,0xd
0196 4801 |H | Short_Literal 0x1
0197 e003 | | Load 0x0,0x3
0198 a004 | | Store_Unchecked 0x0,0x4
0199 a005 | | Store_Unchecked 0x0,0x5
019a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
019b e006 | | Load 0x0,0x6
019c a007 | | Store_Unchecked 0x0,0x7
019d a008 | | Store_Unchecked 0x0,0x8
019e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
019f e20e | | Load 0x1,0xe
01a0 e009 | | Load 0x0,0x9
01a1 0386 | | Declare_Variable Package,Visible
01a2 00d8 | | Load_Top At_Offset_0
01a3 020f | | Execute Module,Activate
01a4 00bf | | Action Accept_Activation
01a5 BODY_0178:
01a5 00bc | | Action Signal_Activated
01a6 00bb | | Action Signal_Completion
01a7 0000 | | .XXX[0x1]
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 4607 |F | Jump_Case 0x8
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01ad 7807 |x | Jump 0x1b5 ; case 0x1
01ae 780a |x | Jump 0x1b9 ; case 0x2
01af 780e |x | Jump 0x1be ; case 0x3
01b0 7811 |x | Jump 0x1c2 ; case 0x4
01b1 7812 |x | Jump 0x1c4 ; case 0x5
01b2 7813 |x | Jump 0x1c6 ; case 0x6
01b3 7816 |x | Jump 0x1ca ; case 0x7
01b4 4302 |C | .XXX[0x1]
01b5 00da | | Load_Top At_Offset_2
01b6 0091 0210 | | Action Push_String_Extended_Indexed,0x210 ; "MARKER"
01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b9 00db | | Load_Top At_Offset_3
01ba 00db | | Load_Top At_Offset_3
01bb 00e0 | | Load_Encached Standard_Cache
01bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01be 00da | | Load_Top At_Offset_2
01bf 00e0 | | Load_Encached Standard_Cache
01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c2 00db | | Load_Top At_Offset_3
01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c4 00db | | Load_Top At_Offset_3
01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c6 e20d | | Load 0x1,0xd
01c7 00dc | | Load_Top At_Offset_4
01c8 0267 | g | Execute Discrete,Predecessor
01c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ca e20d | | Load 0x1,0xd
01cb 00dc | | Load_Top At_Offset_4
01cc 0268 | h | Execute Discrete,Successor
01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ce 0000 0000 | | .XXX[0x2]
01d0 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4607 |F | Jump_Case 0x8
01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01dd 7807 |x | Jump 0x1e5 ; case 0x1
01de 780a |x | Jump 0x1e9 ; case 0x2
01df 780e |x | Jump 0x1ee ; case 0x3
01e0 7811 |x | Jump 0x1f2 ; case 0x4
01e1 7812 |x | Jump 0x1f4 ; case 0x5
01e2 7813 |x | Jump 0x1f6 ; case 0x6
01e3 7816 |x | Jump 0x1fa ; case 0x7
01e4 4302 |C | .XXX[0x1]
01e5 00da | | Load_Top At_Offset_2
01e6 0091 0212 | | Action Push_String_Extended_Indexed,0x212 ; "DECISION_RULE_BUNDLE"
01e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e9 00db | | Load_Top At_Offset_3
01ea 00db | | Load_Top At_Offset_3
01eb 00e0 | | Load_Encached Standard_Cache
01ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee 00da | | Load_Top At_Offset_2
01ef 00e0 | | Load_Encached Standard_Cache
01f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f2 00db | | Load_Top At_Offset_3
01f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f4 00db | | Load_Top At_Offset_3
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 e20e | | Load 0x1,0xe
01f7 00dc | | Load_Top At_Offset_4
01f8 0267 | g | Execute Discrete,Predecessor
01f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fa e20e | | Load 0x1,0xe
01fb 00dc | | Load_Top At_Offset_4
01fc 0268 | h | Execute Discrete,Successor
01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 e003 | | Load 0x0,0x3
0205 011c | | Execute Any,Convert_Unchecked
0206 1c01 | | Execute_Immediate Run_Utility,0x1
0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c e006 | | Load 0x0,0x6
020d 011c | | Execute Any,Convert_Unchecked
020e 1c01 | | Execute_Immediate Run_Utility,0x1
020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0210 ; --------------------------------------------------------------------------------------
0210 ; STRING TABLE
0210 ; --------------------------------------------------------------------------------------
0210 000a | | .STRTAB 0x000a->0x0215 ; "MARKER"
0211 000e | | .STRTAB 0x000e->0x0218 ; "NOTHING"
0212 0013 | | .STRTAB 0x0013->0x021b ; "DECISION_RULE_BUNDLE"
0213 0025 | % | .STRTAB 0x0025->0x0225 ; "THE FACT BASE IS NOW :"
0214 0039 | 9 | .STREND 0x0039->0x0230
0215 4d41 524b |MARK| .STRTAB_STRINGS
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 0009 | | .DEBUG4 0x0004,0x0009,0x221f,0x0000,0x0001,0x000a
023e 000b 0266 | f| .DBG4T 0x000b,0x0266,0x8000,0x0000
0242 000e 0269 | i| .DBG4T 0x000e,0x0269,0x8000,0x0000
0246 00db 0273 | s| .DBG4T 0x00db,0x0273,0x0001,0x4000
024a 013b 0000 | ; | .DBG4T 0x013b,0x0000,0x000b,0x0000
024e 016b 0000 | k | .DBG4T 0x016b,0x0000,0x000b,0x0000
0252 017b 0287 | { | .DBG4T 0x017b,0x0287,0x0000,0x0000
0256 01ab 0000 | | .DBG4T 0x01ab,0x0000,0x0005,0x0000
025a 01db 0000 | | .DBG4T 0x01db,0x0000,0x0005,0x0000
025e 0203 0000 | | .DBG4T 0x0203,0x0000,0x000c,0x0000
0262 020b 0000 | | .DBG4T 0x020b,0x0000,0x000c,0x0000
0266 ; --------------------------------------------------------------------------------------
0266 ; Debug chain
0266 ; --------------------------------------------------------------------------------------
0266 0001 0000 | | .DBGLEN 0x0001,0x0000
0268 000b | | .DBGLNO 0x000b
0269 ; --------------------------------------------------------------------------------------
0269 ; Debug chain
0269 ; --------------------------------------------------------------------------------------
0269 0008 0000 | | .DBGLEN 0x0008,0x0000
026b 000e 0020 | | .DBGLNO 0x000e,0x0020,0x0039,0x0040,0x005a,0x0072,0x0080,0x00cc
0273 ; --------------------------------------------------------------------------------------
0273 ; Debug chain
0273 ; --------------------------------------------------------------------------------------
0273 0002 0008 | | .DBGLEN 0x0002,0x0008
0275 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00f8,0x00fb,0x00ff,0x0103,0x0110,0x0113,0x0116,0x012f
027f 0001 0002 | | .XXX[0x8]
0281 0004 0005 | |
0283 0006 0007 | |
0285 0008 0003 | |
0287 ; --------------------------------------------------------------------------------------
0287 ; Debug chain
0287 ; --------------------------------------------------------------------------------------
0287 0003 0000 | | .DBGLEN 0x0003,0x0000
0289 017b 0180 | { | .DBGLNO 0x017b,0x0180,0x0185
028c 0000 0000 | | .BLANK 0000[0x174]