|
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_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 INIT_0078,For_Call 0012 03fe | | Declare_Type Discrete,Defined,Visible 0013 4800 |H | Short_Literal 0x0 0014 4801 |H | Short_Literal 0x1 0015 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0017 03fe | | Declare_Type Discrete,Defined,Visible 0018 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001a 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 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 INIT_00d8,For_Outer_Call,Visible,Unelaborated 002e c21d | | Store 0x1,0x1d 002f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0031 c21f | | Store 0x1,0x1f 0032 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0034 c220 | | Store 0x1,0x20 0035 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0037 c221 | ! | Store 0x1,0x21 0038 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 003a c215 | | Store 0x1,0x15 003b 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 003d c218 | | Store 0x1,0x18 003e 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0040 c219 | | Store 0x1,0x19 0041 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0043 c21a | | Store 0x1,0x1a 0044 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 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 0x8 007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 0091 00db | | Load_Top At_Offset_3 0092 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0093 00db | | Load_Top At_Offset_3 0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0x8 00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 00b9 00db | | Load_Top At_Offset_3 00ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00bb 00db | | Load_Top At_Offset_3 00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 INIT_01b0,For_Call 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_Value,New_Top_Offset 0x1 00fc e223 | # | Load 0x1,0x23 00fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 INIT_01c0,For_Call 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_Value,New_Top_Offset 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 INIT_01d0,For_Call 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_Value,New_Top_Offset 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 INIT_01e8,For_Call 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x1 01ae 0000 0000 | | .XXX[0x2] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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]