|
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_bdfc99
└─⟦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 0200 | | .CONST 0x0200 ; 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 0075 | u | .CONST 0x0075 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4801 |H | Short_Literal 0x1
0012 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 0093 0000 | | push_full_address 0x0
0017 6094 |` | Indirect_Literal Discrete,0xac,{0x80000000, 0x00040000}
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 00da | | Load_Top At_Offset_2
001e e004 | | Load 0x0,0x4
001f 0386 | | Declare_Variable Package,Visible
0020 00d8 | | Load_Top At_Offset_0
0021 020f | | Execute Module,Activate
0022 0093 0000 | | push_full_address 0x0
0024 6083 |` | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00030000}
0025 0273 | s | Execute Discrete,Plus
0026 e002 | | Load 0x0,0x2
0027 0273 | s | Execute Discrete,Plus
0028 e005 | | Load 0x0,0x5
0029 0273 | s | Execute Discrete,Plus
002a 00da | | Load_Top At_Offset_2
002b e004 | | Load 0x0,0x4
002c 0386 | | Declare_Variable Package,Visible
002d 00d8 | | Load_Top At_Offset_0
002e 020f | | Execute Module,Activate
002f 4800 |H | Short_Literal 0x0
0030 e006 | | Load 0x0,0x6
0031 00db | | Load_Top At_Offset_3
0032 0096 | | Execute Package,Entry
0033 0129 | ) | Execute Any,Make_Visible
0034 4801 |H | Short_Literal 0x1
0035 e006 | | Load 0x0,0x6
0036 e20f | | Load 0x1,0xf
0037 0096 | | Execute Package,Entry
0038 0129 | ) | Execute Any,Make_Visible
0039 4802 |H | Short_Literal 0x2
003a e006 | | Load 0x0,0x6
003b e20f | | Load 0x1,0xf
003c 0096 | | Execute Package,Entry
003d 0129 | ) | Execute Any,Make_Visible
003e 4800 |H | Short_Literal 0x0
003f e006 | | Load 0x0,0x6
0040 e210 | | Load 0x1,0x10
0041 0096 | | Execute Package,Entry
0042 0129 | ) | Execute Any,Make_Visible
0043 4801 |H | Short_Literal 0x1
0044 e006 | | Load 0x0,0x6
0045 e210 | | Load 0x1,0x10
0046 0096 | | Execute Package,Entry
0047 0129 | ) | Execute Any,Make_Visible
0048 4800 |H | Short_Literal 0x0
0049 4802 |H | Short_Literal 0x2
004a 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
004c 03fe | | Declare_Type Discrete,Defined,Visible
004d 4800 |H | Short_Literal 0x0
004e 4801 |H | Short_Literal 0x1
004f 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0051 03fe | | Declare_Type Discrete,Defined,Visible
0052 0093 0000 | | push_full_address 0x0
0054 604f |`O | Indirect_Literal Discrete,0xa4,{0x80000000, 0x00020000}
0055 0273 | s | Execute Discrete,Plus
0056 e002 | | Load 0x0,0x2
0057 0273 | s | Execute Discrete,Plus
0058 e007 | | Load 0x0,0x7
0059 0273 | s | Execute Discrete,Plus
005a 4800 |H | Short_Literal 0x0
005b 481e |H | Short_Literal 0x1e
005c e216 | | Load 0x1,0x16
005d e008 | | Load 0x0,0x8
005e 0386 | | Declare_Variable Package,Visible
005f 00d8 | | Load_Top At_Offset_0
0060 020f | | Execute Module,Activate
0061 0093 0000 | | push_full_address 0x0
0063 603c |`< | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00010000}
0064 0273 | s | Execute Discrete,Plus
0065 e002 | | Load 0x0,0x2
0066 0273 | s | Execute Discrete,Plus
0067 e009 | | Load 0x0,0x9
0068 0273 | s | Execute Discrete,Plus
0069 4801 |H | Short_Literal 0x1
006a 4801 |H | Short_Literal 0x1
006b e217 | | Load 0x1,0x17
006c e008 | | Load 0x0,0x8
006d 0386 | | Declare_Variable Package,Visible
006e 00d8 | | Load_Top At_Offset_0
006f 020f | | Execute Module,Activate
0070 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0072 00bf | | Action Accept_Activation
0073 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0074 00c7 | | Action Elaborate_Subprogram
0075 BODY_0008:
0075 00bc | | Action Signal_Activated
0076 00bb | | Action Signal_Completion
0077 0000 | | .XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4607 |F | Jump_Case 0x8
007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
007d 7807 |x | Jump 0x85 ; case 0x1
007e 780a |x | Jump 0x89 ; case 0x2
007f 780e |x | Jump 0x8e ; case 0x3
0080 7811 |x | Jump 0x92 ; case 0x4
0081 7812 |x | Jump 0x94 ; case 0x5
0082 7813 |x | Jump 0x96 ; case 0x6
0083 7816 |x | Jump 0x9a ; case 0x7
0084 4302 |C | .XXX[0x1]
0085 00da | | Load_Top At_Offset_2
0086 0091 01cd | | Action Push_String_Extended_Indexed,0x1cd ; "ON_HEAP"
0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0089 00db | | Load_Top At_Offset_3
008a 00db | | Load_Top At_Offset_3
008b 00e0 | | Load_Encached Standard_Cache
008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e 00da | | Load_Top At_Offset_2
008f 00e0 | | Load_Encached Standard_Cache
0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0091 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0092 00db | | Load_Top At_Offset_3
0093 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0094 00db | | Load_Top At_Offset_3
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 e20d | | Load 0x1,0xd
0097 00dc | | Load_Top At_Offset_4
0098 0267 | g | Execute Discrete,Predecessor
0099 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009a e20d | | Load 0x1,0xd
009b 00dc | | Load_Top At_Offset_4
009c 0268 | h | Execute Discrete,Successor
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 0000 0000 | | .XXX[0x2]
00a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00a8 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00ac 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4607 |F | Jump_Case 0x8
00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00b5 7807 |x | Jump 0xbd ; case 0x1
00b6 780a |x | Jump 0xc1 ; case 0x2
00b7 780e |x | Jump 0xc6 ; case 0x3
00b8 7811 |x | Jump 0xca ; case 0x4
00b9 7812 |x | Jump 0xcc ; case 0x5
00ba 7813 |x | Jump 0xce ; case 0x6
00bb 7816 |x | Jump 0xd2 ; case 0x7
00bc 4302 |C | .XXX[0x1]
00bd 00da | | Load_Top At_Offset_2
00be 0091 01d0 | | Action Push_String_Extended_Indexed,0x1d0 ; "TAKING"
00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 00db | | Load_Top At_Offset_3
00c3 00e0 | | Load_Encached Standard_Cache
00c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c6 00da | | Load_Top At_Offset_2
00c7 00e0 | | Load_Encached Standard_Cache
00c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ca 00db | | Load_Top At_Offset_3
00cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cc 00db | | Load_Top At_Offset_3
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ce e20e | | Load 0x1,0xe
00cf 00dc | | Load_Top At_Offset_4
00d0 0267 | g | Execute Discrete,Predecessor
00d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d2 e20e | | Load 0x1,0xe
00d3 00dc | | Load_Top At_Offset_4
00d4 0268 | h | Execute Discrete,Successor
00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d6 0000 0000 | | .XXX[0x2]
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 01d2 | | Action Push_String_Extended_Indexed,0x1d2 ; "NAME"
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 e216 | | Load 0x1,0x16
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 e216 | | Load 0x1,0x16
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 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4607 |F | Jump_Case 0x8
0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0105 7807 |x | Jump 0x10d ; case 0x1
0106 780a |x | Jump 0x111 ; case 0x2
0107 780e |x | Jump 0x116 ; case 0x3
0108 7811 |x | Jump 0x11a ; case 0x4
0109 7812 |x | Jump 0x11c ; case 0x5
010a 7813 |x | Jump 0x11e ; case 0x6
010b 7816 |x | Jump 0x122 ; case 0x7
010c 4302 |C | .XXX[0x1]
010d 00da | | Load_Top At_Offset_2
010e 0091 01d5 | | Action Push_String_Extended_Indexed,0x1d5 ; "ACTION"
0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0111 00db | | Load_Top At_Offset_3
0112 00db | | Load_Top At_Offset_3
0113 00e0 | | Load_Encached Standard_Cache
0114 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0116 00da | | Load_Top At_Offset_2
0117 00e0 | | Load_Encached Standard_Cache
0118 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0119 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
011a 00db | | Load_Top At_Offset_3
011b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011c 00db | | Load_Top At_Offset_3
011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011e e217 | | Load 0x1,0x17
011f 00dc | | Load_Top At_Offset_4
0120 0267 | g | Execute Discrete,Predecessor
0121 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0122 e217 | | Load 0x1,0x17
0123 00dc | | Load_Top At_Offset_4
0124 0268 | h | Execute Discrete,Successor
0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0155 | U | .CONST 0x0155 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 000b | | .CONST 0x000b ; Number of locals
012b INIT_0128:
012b 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
012d 029f 019b | | Declare_Subprogram INIT_0198,For_Call
012f 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
0131 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0133 e00a | | Load 0x0,0xa
0134 e218 | | Load 0x1,0x18
0135 0095 | | Execute Package,Field_Reference_Dynamic
0136 00c6 | | Action Check_Subprogram_Elaborated
0137 4804 |H | Short_Literal 0x4
0138 4802 |H | Short_Literal 0x2
0139 0099 | | Action Reference_Dynamic
013a 0093 0000 | | push_full_address 0x0
013c 603f |`? | Indirect_Literal Discrete,0x17c,{0x80000000, 0x00060000}
013d 0273 | s | Execute Discrete,Plus
013e e002 | | Load 0x0,0x2
013f 0273 | s | Execute Discrete,Plus
0140 e00b | | Load 0x0,0xb
0141 0273 | s | Execute Discrete,Plus
0142 4808 |H | Short_Literal 0x8
0143 0007 | | Action Break_Optional
0144 e00a | | Load 0x0,0xa
0145 e219 | | Load 0x1,0x19
0146 0095 | | Execute Package,Field_Reference_Dynamic
0147 00c6 | | Action Check_Subprogram_Elaborated
0148 4805 |H | Short_Literal 0x5
0149 4802 |H | Short_Literal 0x2
014a 0099 | | Action Reference_Dynamic
014b 0093 0000 | | push_full_address 0x0
014d 602a |`* | Indirect_Literal Discrete,0x178,{0x80000000, 0x00050000}
014e 0273 | s | Execute Discrete,Plus
014f e002 | | Load 0x0,0x2
0150 0273 | s | Execute Discrete,Plus
0151 e00c | | Load 0x0,0xc
0152 0273 | s | Execute Discrete,Plus
0153 480b |H | Short_Literal 0xb
0154 0007 | | Action Break_Optional
0155 BODY_0128:
0155 e5ff | | Load 0x2,-0x1
0156 800d | | Call 0x0,0xd
0157 4602 |F | Jump_Case 0x3
0158 7804 |x | Jump 0x15d ; case 0x0
0159 780f |x | Jump 0x169 ; case 0x1
015a 7800 |x | Jump 0x15b ; case 0x2
015b 0008 | | Action Idle
015c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015d e5fe | | Load 0x2,-0x2
015e e5ff | | Load 0x2,-0x1
015f 4806 |H | Short_Literal 0x6
0160 4802 |H | Short_Literal 0x2
0161 0099 | | Action Reference_Dynamic
0162 4807 |H | Short_Literal 0x7
0163 4802 |H | Short_Literal 0x2
0164 0099 | | Action Reference_Dynamic
0165 e00a | | Load 0x0,0xa
0166 e218 | | Load 0x1,0x18
0167 0096 | | Execute Package,Entry
0168 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0169 e5fe | | Load 0x2,-0x2
016a e5ff | | Load 0x2,-0x1
016b 4809 |H | Short_Literal 0x9
016c 4802 |H | Short_Literal 0x2
016d 0099 | | Action Reference_Dynamic
016e 480a |H | Short_Literal 0xa
016f 4802 |H | Short_Literal 0x2
0170 0099 | | Action Reference_Dynamic
0171 e00a | | Load 0x0,0xa
0172 e219 | | Load 0x1,0x19
0173 0096 | | Execute Package,Entry
0174 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
017c 8000 0000 | | .LITERAL {0x80000000, 0x00060000}
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 e211 | | Load 0x1,0x11
0184 00db | | Load_Top At_Offset_3
0185 800e | | Call 0x0,0xe
0186 6808 |h | Jump_Zero 0x18f
0187 00da | | Load_Top At_Offset_2
0188 e00f | | Load 0x0,0xf
0189 e20f | | Load 0x1,0xf
018a 0096 | | Execute Package,Entry
018b e20d | | Load 0x1,0xd
018c 011c | | Execute Any,Convert_Unchecked
018d 1c01 | | Execute_Immediate Run_Utility,0x1
018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018f 0092 01d7 | | Action Push_String_Extended,0x1d7 ; " BOX "
0191 00db | | Load_Top At_Offset_3
0192 8010 | | Call 0x0,0x10
0193 00e0 | | Load_Encached Standard_Cache
0194 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0195 01cc | | Execute Vector,Catenate
0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e00f | | Load 0x0,0xf
019d e210 | | Load 0x1,0x10
019e 0096 | | Execute Package,Entry
019f e20e | | Load 0x1,0xe
01a0 011c | | Execute Any,Convert_Unchecked
01a1 1c01 | | Execute_Immediate Run_Utility,0x1
01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a3 0000 0000 | | .BLANK 0000[0x5]
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 4602 |F | Jump_Case 0x3
01ad 7805 |x | Jump 0x1b3 ; case 0x0
01ae 7807 |x | Jump 0x1b6 ; case 0x1
01af 7800 |x | Jump 0x1b0 ; case 0x2
01b0 00db | | Load_Top At_Offset_3
01b1 8402 | | Call 0x2,0x2
01b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b3 00db | | Load_Top At_Offset_3
01b4 8011 | | Call 0x0,0x11
01b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b6 00db | | Load_Top At_Offset_3
01b7 8010 | | Call 0x0,0x10
01b8 00e0 | | Load_Encached Standard_Cache
01b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 6805 |h | Jump_Zero 0x1ca
01c5 00db | | Load_Top At_Offset_3
01c6 8010 | | Call 0x0,0x10
01c7 00e0 | | Load_Encached Standard_Cache
01c8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ca 00db | | Load_Top At_Offset_3
01cb 8403 | | Call 0x2,0x3
01cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01cd ; --------------------------------------------------------------------------------------
01cd ; STRING TABLE
01cd ; --------------------------------------------------------------------------------------
01cd 0018 | | .STRTAB 0x0018->0x01d9 ; "ON_HEAP"
01ce 001d | | .STRTAB 0x001d->0x01dc ; "IN_BOX"
01cf 0021 | ! | .STRTAB 0x0021->0x01df ; "IN_PLIERS"
01d0 0028 | ( | .STRTAB 0x0028->0x01e4 ; "TAKING"
01d1 002c | , | .STRTAB 0x002c->0x01e7 ; "DROPPING"
01d2 0032 | 2 | .STRTAB 0x0032->0x01eb ; "NAME"
01d3 0034 | 4 | .STRTAB 0x0034->0x01ed ; "SIZE"
01d4 0036 | 6 | .STRTAB 0x0036->0x01ef ; "PLACE"
01d5 0039 | 9 | .STRTAB 0x0039->0x01f1 ; "ACTION"
01d6 003d | = | .STRTAB 0x003d->0x01f4 ; "BOX"
01d7 003e | > | .STRTAB 0x003e->0x01f6 ; " BOX "
01d8 0041 | A | .STREND 0x0041->0x01f8
01d9 4f4e 5f48 |ON_H| .STRTAB_STRINGS
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0ebc,0x0000,0x0001,0x000b
0206 000b 0232 | 2| .DBG4T 0x000b,0x0232,0x8000,0x0000
020a 0073 0242 | s B| .DBG4T 0x0073,0x0242,0x8000,0x0000
020e 007b 0000 | { | .DBG4T 0x007b,0x0000,0x0005,0x0000
0212 00b3 0000 | | .DBG4T 0x00b3,0x0000,0x0005,0x0000
0216 00db 0000 | | .DBG4T 0x00db,0x0000,0x0005,0x0000
021a 0103 0000 | | .DBG4T 0x0103,0x0000,0x0005,0x0000
021e 012b 0245 | + E| .DBG4T 0x012b,0x0245,0x0001,0x4000
0222 0183 0255 | U| .DBG4T 0x0183,0x0255,0x0002,0x0000
0226 019b 025a | Z| .DBG4T 0x019b,0x025a,0x0002,0x0000
022a 01ab 025d | ]| .DBG4T 0x01ab,0x025d,0x0002,0x4000
022e 01c3 0267 | g| .DBG4T 0x01c3,0x0267,0x0002,0x4000
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug chain
0232 ; --------------------------------------------------------------------------------------
0232 000e 0000 | | .DBGLEN 0x000e,0x0000
0234 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0022,0x002f,0x0034,0x0039,0x003e,0x0043,0x0048,0x004d,0x0052,0x0061,0x0070
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug chain
0242 ; --------------------------------------------------------------------------------------
0242 0001 0000 | | .DBGLEN 0x0001,0x0000
0244 0073 | s | .DBGLNO 0x0073
0245 ; --------------------------------------------------------------------------------------
0245 ; Debug chain
0245 ; --------------------------------------------------------------------------------------
0245 0006 0004 | | .DBGLEN 0x0006,0x0004
0247 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x012f,0x0131,0x0133,0x0144,0x0155,0x015b,0x015d,0x0169
0251 0001 0004 | | .XXX[0x4]
0253 0002 0003 | |
0255 ; --------------------------------------------------------------------------------------
0255 ; Debug chain
0255 ; --------------------------------------------------------------------------------------
0255 0000 0003 | | .DBGLEN 0x0000,0x0003
0257 0183 0187 | | .DBGLNO 0x0183,0x0187,0x018f
025a ; --------------------------------------------------------------------------------------
025a ; Debug chain
025a ; --------------------------------------------------------------------------------------
025a 0000 0001 | | .DBGLEN 0x0000,0x0001
025c 019b | | .DBGLNO 0x019b
025d ; --------------------------------------------------------------------------------------
025d ; Debug chain
025d ; --------------------------------------------------------------------------------------
025d 0000 0004 | | .DBGLEN 0x0000,0x0004
025f 01ab 01b0 | | .DBGLNO 0x01ab,0x01b0,0x01b3,0x01b6
0263 0001 0004 | | .XXX[0x4]
0265 0002 0003 | |
0267 ; --------------------------------------------------------------------------------------
0267 ; Debug chain
0267 ; --------------------------------------------------------------------------------------
0267 0000 0003 | | .DBGLEN 0x0000,0x0003
0269 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01ca
026c 0001 0003 | | .XXX[0x3]
026e 0002 | |
026f 0000 0000 | | .BLANK 0000[0x191]