|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d40ac
└─⟦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 0210 | | .CONST 0x0210 ; 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 0074 | t | .CONST 0x0074 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 4800 |H | Short_Literal 0x0
000f 4801 |H | Short_Literal 0x1
0010 029f 007b | {| Declare_Subprogram For_Call,INIT_0078
0012 03fe | | Declare_Type Discrete,Defined,Visible
0013 4800 |H | Short_Literal 0x0
0014 4801 |H | Short_Literal 0x1
0015 029f 00a3 | | Declare_Subprogram For_Call,INIT_00a0
0017 03fe | | Declare_Type Discrete,Defined,Visible
0018 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
001a 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8
002e c21d | | Store 0x1,0x1d
002f 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0031 c21f | | Store 0x1,0x1f
0032 029a 0123 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0120
0034 c220 | | Store 0x1,0x20
0035 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0037 c221 | ! | Store 0x1,0x21
0038 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
003a c215 | | Store 0x1,0x15
003b 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
003d c218 | | Store 0x1,0x18
003e 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0040 c219 | | Store 0x1,0x19
0041 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0043 c21a | | Store 0x1,0x1a
0044 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0046 c21b | | Store 0x1,0x1b
0047 00bf | | Action Accept_Activation
0048 00e3 | | Load_Encached Natural_Cache
0049 e20e | | Load 0x1,0xe
004a 02a0 | | Declare_Subprogram Null_Subprogram
004b 4802 |H | Short_Literal 0x2
004c 032d | - | Declare_Type Record,Defined
004d e002 | | Load 0x0,0x2
004e e003 | | Load 0x0,0x3
004f 00da | | Load_Top At_Offset_2
0050 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "BOXES "
0052 e001 | | Load 0x0,0x1
0053 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0054 01c7 | | Execute Vector,Convert
0055 48c8 |H | Short_Literal 0xc8
0056 e001 | | Load 0x0,0x1
0057 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0058 190f | | Execute Package,Field_Reference,Field_Number 0xf
0059 e001 | | Load 0x0,0x1
005a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
005b 0387 | | Declare_Variable Package
005c 00d8 | | Load_Top At_Offset_0
005d 020f | | Execute Module,Activate
005e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005f 00c7 | | Action Elaborate_Subprogram
0060 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0063 00c7 | | Action Elaborate_Subprogram
0064 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0067 00c7 | | Action Elaborate_Subprogram
0068 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0069 00c7 | | Action Elaborate_Subprogram
006a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006b 00c7 | | Action Elaborate_Subprogram
006c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006d 00c7 | | Action Elaborate_Subprogram
006e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0073 00c7 | | Action Elaborate_Subprogram
0074 BODY_0008:
0074 00bc | | Action Signal_Activated
0075 00bb | | Action Signal_Completion
0076 0000 0000 | | .XXX[0x2]
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 0x7
007c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
007d 7806 |x | Jump 0x84 ; case 0x1
007e 7809 |x | Jump 0x88 ; case 0x2
007f 780d |x | Jump 0x8d ; case 0x3
0080 7810 |x | Jump 0x91 ; case 0x4
0081 7811 |x | Jump 0x93 ; case 0x5
0082 7812 |x | Jump 0x95 ; case 0x6
0083 7815 |x | Jump 0x99 ; case 0x7
0084 00da | | Load_Top At_Offset_2
0085 0091 01f2 | | Action Push_String_Extended_Indexed,0x1f2 ; "IS_EMPTY"
0087 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0088 00db | | Load_Top At_Offset_3
0089 00db | | Load_Top At_Offset_3
008a 00e0 | | Load_Encached Standard_Cache
008b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
008d 00da | | Load_Top At_Offset_2
008e 00e0 | | Load_Encached Standard_Cache
008f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0090 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0091 00db | | Load_Top At_Offset_3
0092 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0093 00db | | Load_Top At_Offset_3
0094 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0095 e20e | | Load 0x1,0xe
0096 00dc | | Load_Top At_Offset_4
0097 0267 | g | Execute Discrete,Predecessor
0098 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0099 e20e | | Load 0x1,0xe
009a 00dc | | Load_Top At_Offset_4
009b 0268 | h | Execute Discrete,Successor
009c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4607 |F | Jump_Case 0x7
00a4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00a5 7806 |x | Jump 0xac ; case 0x1
00a6 7809 |x | Jump 0xb0 ; case 0x2
00a7 780d |x | Jump 0xb5 ; case 0x3
00a8 7810 |x | Jump 0xb9 ; case 0x4
00a9 7811 |x | Jump 0xbb ; case 0x5
00aa 7812 |x | Jump 0xbd ; case 0x6
00ab 7815 |x | Jump 0xc1 ; case 0x7
00ac 00da | | Load_Top At_Offset_2
00ad 0091 01f4 | | Action Push_String_Extended_Indexed,0x1f4 ; "EMPTY_BOXES"
00af 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00b0 00db | | Load_Top At_Offset_3
00b1 00db | | Load_Top At_Offset_3
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00b5 00da | | Load_Top At_Offset_2
00b6 00e0 | | Load_Encached Standard_Cache
00b7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00b9 00db | | Load_Top At_Offset_3
00ba 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00bb 00db | | Load_Top At_Offset_3
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00bd e20f | | Load 0x1,0xf
00be 00dc | | Load_Top At_Offset_4
00bf 0267 | g | Execute Discrete,Predecessor
00c0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c1 e20f | | Load 0x1,0xf
00c2 00dc | | Load_Top At_Offset_4
00c3 0268 | h | Execute Discrete,Successor
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc e223 | # | Load 0x1,0x23
00cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00cf 4401 |D | Exit_Subprogram With_Result,0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 e223 | # | Load 0x1,0x23
00d5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d7 4401 |D | Exit_Subprogram With_Result,0x1
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e8 | | .CONST 0x00e8 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0006 | | .CONST 0x0006 ; Number of locals
00db INIT_00d8:
00db 029f 01b3 | | Declare_Subprogram For_Call,INIT_01b0
00dd e001 | | Load 0x0,0x1
00de 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00df 1910 | | Execute Package,Field_Reference,Field_Number 0x10
00e0 00c6 | | Action Check_Subprogram_Elaborated
00e1 4802 |H | Short_Literal 0x2
00e2 4802 |H | Short_Literal 0x2
00e3 0099 | | Action Reference_Dynamic
00e4 e004 | | Load 0x0,0x4
00e5 e005 | | Load 0x0,0x5
00e6 4806 |H | Short_Literal 0x6
00e7 0007 | | Action Break_Optional
00e8 BODY_00d8:
00e8 e5ff | | Load 0x2,-0x1
00e9 0f01 | | Execute_Immediate Equal,0x1
00ea 7011 |p | Jump_Nonzero 0xfc
00eb 4800 |H | Short_Literal 0x0
00ec e223 | # | Load 0x1,0x23
00ed 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ee 4803 |H | Short_Literal 0x3
00ef 4802 |H | Short_Literal 0x2
00f0 0099 | | Action Reference_Dynamic
00f1 4804 |H | Short_Literal 0x4
00f2 4802 |H | Short_Literal 0x2
00f3 0099 | | Action Reference_Dynamic
00f4 e001 | | Load 0x0,0x1
00f5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f7 e001 | | Load 0x0,0x1
00f8 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa 0165 | e | Execute Variant_Record,Convert
00fb 4401 |D | Exit_Subprogram With_Result,0x1
00fc e223 | # | Load 0x1,0x23
00fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fe 4401 |D | Exit_Subprogram With_Result,0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0110 | | .CONST 0x0110 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0006 | | .CONST 0x0006 ; Number of locals
0103 INIT_0100:
0103 029f 01c3 | | Declare_Subprogram For_Call,INIT_01c0
0105 e001 | | Load 0x0,0x1
0106 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0107 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0108 00c6 | | Action Check_Subprogram_Elaborated
0109 4802 |H | Short_Literal 0x2
010a 4802 |H | Short_Literal 0x2
010b 0099 | | Action Reference_Dynamic
010c e006 | | Load 0x0,0x6
010d e007 | | Load 0x0,0x7
010e 4806 |H | Short_Literal 0x6
010f 0007 | | Action Break_Optional
0110 BODY_0100:
0110 e5fe | | Load 0x2,-0x2
0111 821d | | Call 0x1,0x1d
0112 4803 |H | Short_Literal 0x3
0113 4802 |H | Short_Literal 0x2
0114 0099 | | Action Reference_Dynamic
0115 4804 |H | Short_Literal 0x4
0116 4802 |H | Short_Literal 0x2
0117 0099 | | Action Reference_Dynamic
0118 e001 | | Load 0x0,0x1
0119 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011b 00e1 | | Load_Encached Boolean_Cache
011c 025e | ^ | Execute Discrete,Convert
011d 4402 |D | Exit_Subprogram With_Result,0x2
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0130 | 0 | .CONST 0x0130 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0006 | | .CONST 0x0006 ; Number of locals
0123 INIT_0120:
0123 029f 01d3 | | Declare_Subprogram For_Call,INIT_01d0
0125 e001 | | Load 0x0,0x1
0126 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0127 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0128 00c6 | | Action Check_Subprogram_Elaborated
0129 4802 |H | Short_Literal 0x2
012a 4802 |H | Short_Literal 0x2
012b 0099 | | Action Reference_Dynamic
012c e008 | | Load 0x0,0x8
012d e009 | | Load 0x0,0x9
012e 4806 |H | Short_Literal 0x6
012f 0007 | | Action Break_Optional
0130 BODY_0120:
0130 e5fd | | Load 0x2,-0x3
0131 821d | | Call 0x1,0x1d
0132 4803 |H | Short_Literal 0x3
0133 4802 |H | Short_Literal 0x2
0134 0099 | | Action Reference_Dynamic
0135 4804 |H | Short_Literal 0x4
0136 4802 |H | Short_Literal 0x2
0137 0099 | | Action Reference_Dynamic
0138 e001 | | Load 0x0,0x1
0139 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
013a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013b 00e1 | | Load_Encached Boolean_Cache
013c 025e | ^ | Execute Discrete,Convert
013d 4403 |D | Exit_Subprogram With_Result,0x3
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0150 | P | .CONST 0x0150 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0006 | | .CONST 0x0006 ; Number of locals
0143 INIT_0140:
0143 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
0145 e001 | | Load 0x0,0x1
0146 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0147 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0148 00c6 | | Action Check_Subprogram_Elaborated
0149 4802 |H | Short_Literal 0x2
014a 4802 |H | Short_Literal 0x2
014b 0099 | | Action Reference_Dynamic
014c e00a | | Load 0x0,0xa
014d e00b | | Load 0x0,0xb
014e 4806 |H | Short_Literal 0x6
014f 0007 | | Action Break_Optional
0150 BODY_0140:
0150 e5fe | | Load 0x2,-0x2
0151 821d | | Call 0x1,0x1d
0152 4803 |H | Short_Literal 0x3
0153 4802 |H | Short_Literal 0x2
0154 0099 | | Action Reference_Dynamic
0155 4804 |H | Short_Literal 0x4
0156 4802 |H | Short_Literal 0x2
0157 0099 | | Action Reference_Dynamic
0158 e001 | | Load 0x0,0x1
0159 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
015a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015b 00e1 | | Load_Encached Boolean_Cache
015c 025e | ^ | Execute Discrete,Convert
015d 4402 |D | Exit_Subprogram With_Result,0x2
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165 | e | .CONST 0x0165 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e222 | " | Load 0x1,0x22
0164 0322 | " | Declare_Variable Record
0165 BODY_0160:
0165 00db | | Load_Top At_Offset_3
0166 00d9 | | Load_Top At_Offset_1
0167 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0168 e5fe | | Load 0x2,-0x2
0169 00d9 | | Load_Top At_Offset_1
016a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016b 00d8 | | Load_Top At_Offset_0
016c e223 | # | Load 0x1,0x23
016d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
016e 4402 |D | Exit_Subprogram With_Result,0x2
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175 | u | .CONST 0x0175 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e222 | " | Load 0x1,0x22
0174 0322 | " | Declare_Variable Record
0175 BODY_0170:
0175 00db | | Load_Top At_Offset_3
0176 e223 | # | Load 0x1,0x23
0177 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0178 00d9 | | Load_Top At_Offset_1
0179 017d | } | Execute Record,Structure_Write
017a e5fe | | Load 0x2,-0x2
017b 00d9 | | Load_Top At_Offset_1
017c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
017d e5fd | | Load 0x2,-0x3
017e 00d9 | | Load_Top At_Offset_1
017f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0180 00d8 | | Load_Top At_Offset_0
0181 e5ff | | Load 0x2,-0x1
0182 e223 | # | Load 0x1,0x23
0183 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0184 4504 |E | Exit_Subprogram 0x4
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e222 | " | Load 0x1,0x22
018c 0322 | " | Declare_Variable Record
018d BODY_0188:
018d 00db | | Load_Top At_Offset_3
018e e223 | # | Load 0x1,0x23
018f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0190 00d9 | | Load_Top At_Offset_1
0191 017d | } | Execute Record,Structure_Write
0192 e5fe | | Load 0x2,-0x2
0193 00d9 | | Load_Top At_Offset_1
0194 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0195 00d8 | | Load_Top At_Offset_0
0196 e5ff | | Load 0x2,-0x1
0197 e223 | # | Load 0x1,0x23
0198 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0199 4503 |E | Exit_Subprogram 0x3
019a 0000 0000 | | .BLANK 0000[0x6]
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 e223 | # | Load 0x1,0x23
01a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01a6 4502 |E | Exit_Subprogram 0x2
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 e223 | # | Load 0x1,0x23
01ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ad 4501 |E | Exit_Subprogram 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 e223 | # | Load 0x1,0x23
01b5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b7 0f00 | | Execute_Immediate Equal,0x0
01b8 4401 |D | Exit_Subprogram With_Result,0x1
01b9 0000 0000 | | .BLANK 0000[0x7]
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 e223 | # | Load 0x1,0x23
01c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c7 e5ff | | Load 0x2,-0x1
01c8 027d | } | Execute Discrete,Greater
01c9 4401 |D | Exit_Subprogram With_Result,0x1
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 e223 | # | Load 0x1,0x23
01d5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d7 e5ff | | Load 0x2,-0x1
01d8 027d | } | Execute Discrete,Greater
01d9 00db | | Load_Top At_Offset_3
01da e223 | # | Load 0x1,0x23
01db 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01dd e5fe | | Load 0x2,-0x2
01de 027c | | | Execute Discrete,Less
01df 0279 | y | Execute Discrete,And
01e0 4401 |D | Exit_Subprogram With_Result,0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e223 | # | Load 0x1,0x23
01ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ef e5ff | | Load 0x2,-0x1
01f0 027f | | Execute Discrete,Equal
01f1 4401 |D | Exit_Subprogram With_Result,0x1
01f2 ; --------------------------------------------------------------------------------------
01f2 ; STRING TABLE
01f2 ; --------------------------------------------------------------------------------------
01f2 000c | | .STRTAB 0x000c->0x01f8 ; "IS_EMPTY"
01f3 0012 | | .STRTAB 0x0012->0x01fc ; "IS_FULL"
01f4 0017 | | .STRTAB 0x0017->0x01ff ; "EMPTY_BOXES"
01f5 0020 | | .STRTAB 0x0020->0x0205 ; "ALL_BOXES"
01f6 0027 | ' | .STRTAB 0x0027->0x0209 ; "BOXES "
01f7 002f | / | .STREND 0x002f->0x020e
01f8 4953 5f45 |IS_E| .STRTAB_STRINGS
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug Table
0210 ; --------------------------------------------------------------------------------------
0210 0004 0001 | | .DEBUG4 0x0004,0x0001,0x88d8,0x0000,0x0001,0x0013
0216 000b 0262 | b| .DBG4T 0x000b,0x0262,0x8000,0x8000
021a 0048 0280 | H | .DBG4T 0x0048,0x0280,0x8000,0x0000
021e 007b 0000 | { | .DBG4T 0x007b,0x0000,0x0005,0x0000
0222 00a3 0000 | | .DBG4T 0x00a3,0x0000,0x0005,0x0000
0226 00cb 028f | | .DBG4T 0x00cb,0x028f,0x0002,0x0000
022a 00d3 0292 | | .DBG4T 0x00d3,0x0292,0x0002,0x0000
022e 00db 0295 | | .DBG4T 0x00db,0x0295,0x0002,0x4000
0232 0103 029f | | .DBG4T 0x0103,0x029f,0x0002,0x0000
0236 0123 02a4 | # | .DBG4T 0x0123,0x02a4,0x0002,0x0000
023a 0143 02a9 | C | .DBG4T 0x0143,0x02a9,0x0002,0x0000
023e 0163 02ae | c | .DBG4T 0x0163,0x02ae,0x0002,0x0000
0242 0173 02b4 | s | .DBG4T 0x0173,0x02b4,0x0001,0x0000
0246 018b 02bb | | .DBG4T 0x018b,0x02bb,0x0001,0x0000
024a 01a3 02c1 | | .DBG4T 0x01a3,0x02c1,0x0001,0x0000
024e 01ab 02c4 | | .DBG4T 0x01ab,0x02c4,0x0001,0x0000
0252 01b3 02c7 | | .DBG4T 0x01b3,0x02c7,0x0002,0x0000
0256 01c3 02ca | | .DBG4T 0x01c3,0x02ca,0x0002,0x0000
025a 01d3 02cd | | .DBG4T 0x01d3,0x02cd,0x0002,0x0000
025e 01eb 02d0 | | .DBG4T 0x01eb,0x02d0,0x0002,0x0000
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 000e 0000 | | .DBGLEN 0x000e,0x0000
0264 000b 000e | | .DBGLNO 0x000b,0x000e,0x0013,0x0018,0x001a,0x002c,0x002f,0x0032,0x0035,0x0038,0x003b,0x003e,0x0041,0x0044
0272 0002 0003 | | .XXX[0xe]
0274 0004 0007 | |
0276 0008 0009 | |
0278 000a 000b | |
027a 000c 000d | |
027c 000e 000f | |
027e 0010 0011 | |
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug chain
0280 ; --------------------------------------------------------------------------------------
0280 000d 0000 | | .DBGLEN 0x000d,0x0000
0282 0048 004d | H M| .DBGLNO 0x0048,0x004d,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072
028f ; --------------------------------------------------------------------------------------
028f ; Debug chain
028f ; --------------------------------------------------------------------------------------
028f 0000 0001 | | .DBGLEN 0x0000,0x0001
0291 00cb | | .DBGLNO 0x00cb
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug chain
0292 ; --------------------------------------------------------------------------------------
0292 0000 0001 | | .DBGLEN 0x0000,0x0001
0294 00d3 | | .DBGLNO 0x00d3
0295 ; --------------------------------------------------------------------------------------
0295 ; Debug chain
0295 ; --------------------------------------------------------------------------------------
0295 0002 0003 | | .DBGLEN 0x0002,0x0003
0297 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00e8,0x00eb,0x00fc
029c 0001 0003 | | .XXX[0x3]
029e 0002 | |
029f ; --------------------------------------------------------------------------------------
029f ; Debug chain
029f ; --------------------------------------------------------------------------------------
029f 0002 0001 | | .DBGLEN 0x0002,0x0001
02a1 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0110
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug chain
02a4 ; --------------------------------------------------------------------------------------
02a4 0002 0001 | | .DBGLEN 0x0002,0x0001
02a6 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x0130
02a9 ; --------------------------------------------------------------------------------------
02a9 ; Debug chain
02a9 ; --------------------------------------------------------------------------------------
02a9 0002 0001 | | .DBGLEN 0x0002,0x0001
02ab 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x0150
02ae ; --------------------------------------------------------------------------------------
02ae ; Debug chain
02ae ; --------------------------------------------------------------------------------------
02ae 0001 0003 | | .DBGLEN 0x0001,0x0003
02b0 0163 0165 | c e| .DBGLNO 0x0163,0x0165,0x0168,0x016b
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug chain
02b4 ; --------------------------------------------------------------------------------------
02b4 0001 0004 | | .DBGLEN 0x0001,0x0004
02b6 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x017a,0x017d,0x0180
02bb ; --------------------------------------------------------------------------------------
02bb ; Debug chain
02bb ; --------------------------------------------------------------------------------------
02bb 0001 0003 | | .DBGLEN 0x0001,0x0003
02bd 018b 018d | | .DBGLNO 0x018b,0x018d,0x0192,0x0195
02c1 ; --------------------------------------------------------------------------------------
02c1 ; Debug chain
02c1 ; --------------------------------------------------------------------------------------
02c1 0000 0001 | | .DBGLEN 0x0000,0x0001
02c3 01a3 | | .DBGLNO 0x01a3
02c4 ; --------------------------------------------------------------------------------------
02c4 ; Debug chain
02c4 ; --------------------------------------------------------------------------------------
02c4 0000 0001 | | .DBGLEN 0x0000,0x0001
02c6 01ab | | .DBGLNO 0x01ab
02c7 ; --------------------------------------------------------------------------------------
02c7 ; Debug chain
02c7 ; --------------------------------------------------------------------------------------
02c7 0000 0001 | | .DBGLEN 0x0000,0x0001
02c9 01b3 | | .DBGLNO 0x01b3
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug chain
02ca ; --------------------------------------------------------------------------------------
02ca 0000 0001 | | .DBGLEN 0x0000,0x0001
02cc 01c3 | | .DBGLNO 0x01c3
02cd ; --------------------------------------------------------------------------------------
02cd ; Debug chain
02cd ; --------------------------------------------------------------------------------------
02cd 0000 0001 | | .DBGLEN 0x0000,0x0001
02cf 01d3 | | .DBGLNO 0x01d3
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug chain
02d0 ; --------------------------------------------------------------------------------------
02d0 0000 0001 | | .DBGLEN 0x0000,0x0001
02d2 01eb | | .DBGLNO 0x01eb
02d3 0000 0000 | | .BLANK 0000[0x12d]