|
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_ee40d5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0258 | X | .CONST 0x0258 ; 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 005b | [ | .CONST 0x005b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4809 |H | Short_Literal 0x9 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 4800 |H | Short_Literal 0x0 0010 4809 |H | Short_Literal 0x9 0011 00da | | Load_Top At_Offset_2 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 4801 |H | Short_Literal 0x1 0014 035e | ^ | Declare_Type Array,Defined,Visible 0015 00d8 | | Load_Top At_Offset_0 0016 00da | | Load_Top At_Offset_2 0017 00e1 | | Load_Encached Boolean_Cache 0018 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 001a 4803 |H | Short_Literal 0x3 001b 032e | . | Declare_Type Record,Defined,Visible 001c 00da | | Load_Top At_Offset_2 001d 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 001e 00db | | Load_Top At_Offset_3 001f 0409 | | Execute_Immediate Set_Value_Visible_Unchecked,0x9 0020 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0022 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0024 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0026 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0028 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 002a 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 002c 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 002e 00bf | | Action Accept_Activation 002f e001 | | Load 0x0,0x1 0030 e002 | | Load 0x0,0x2 0031 e20f | | Load 0x1,0xf 0032 0092 0226 | &| Action Push_String_Extended,0x226 ; "QUEEN " 0034 e003 | | Load 0x0,0x3 0035 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0036 01c7 | | Execute Vector,Convert 0037 6058 |`X | Indirect_Literal Discrete,0x90,{0x00000000, 0x00000bb8} 0038 e003 | | Load 0x0,0x3 0039 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 003a 190f | | Execute Package,Field_Reference,Field_Number 0xf 003b e003 | | Load 0x0,0x3 003c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 003d 0387 | | Declare_Variable Package 003e 00d8 | | Load_Top At_Offset_0 003f 020f | | Execute Module,Activate 0040 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0041 00c7 | | Action Elaborate_Subprogram 0042 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0043 00c7 | | Action Elaborate_Subprogram 0044 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0045 00c7 | | Action Elaborate_Subprogram 0046 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call 0048 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 004a e003 | | Load 0x0,0x3 004b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 004c 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31 004d 00c6 | | Action Check_Subprogram_Elaborated 004e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 004f e004 | | Load 0x0,0x4 0050 e005 | | Load 0x0,0x5 0051 4800 |H | Short_Literal 0x0 0052 0007 | | Action Break_Optional 0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0054 00c7 | | Action Elaborate_Subprogram 0055 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0056 00c7 | | Action Elaborate_Subprogram 0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0058 00c7 | | Action Elaborate_Subprogram 0059 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005a 00c7 | | Action Elaborate_Subprogram 005b BODY_0008: 005b 00bc | | Action Signal_Activated 005c 00bb | | Action Signal_Completion 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0067 | g | .CONST 0x0067 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 e20f | | Load 0x1,0xf 0064 0322 | " | Declare_Variable Record 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 BODY_0060: 0067 4800 |H | Short_Literal 0x0 0068 a210 | | Store_Unchecked 0x1,0x10 0069 00db | | Load_Top At_Offset_3 006a 00d8 | | Load_Top At_Offset_0 006b e20d | | Load 0x1,0xd 006c 0260 | ` | Execute Discrete,In_Type 006d 7001 |p | Jump_Nonzero 0x6f 006e 0801 | | Execute_Immediate Raise,0x1 006f a211 | | Store_Unchecked 0x1,0x11 0070 e219 | | Load 0x1,0x19 0071 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0072 00d8 | | Load_Top At_Offset_0 0073 00d8 | | Load_Top At_Offset_0 0074 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0075 00d8 | | Load_Top At_Offset_0 0076 0335 | 5 | Declare_Variable Array,Duplicate 0077 00cd | | Action Spare6_Action 0078 4809 |H | Short_Literal 0x9 0079 4800 |H | Short_Literal 0x0 007a 4800 |H | Short_Literal 0x0 007b 00d9 | | Load_Top At_Offset_1 007c e405 | | Load 0x2,0x5 007d 01d6 | | Execute Vector,Field_Write 007e 3ffb |? | Loop_Increasing 0x7a 007f 00cd | | Action Spare6_Action 0080 00d9 | | Load_Top At_Offset_1 0081 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0082 00d1 | | Pop_Control Pop_Count_1 0083 4800 |H | Short_Literal 0x0 0084 00d9 | | Load_Top At_Offset_1 0085 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0086 4800 |H | Short_Literal 0x0 0087 00d9 | | Load_Top At_Offset_1 0088 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0089 00d8 | | Load_Top At_Offset_0 008a e219 | | Load 0x1,0x19 008b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 008c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 0000 0000 | | .LITERAL {0x00000000, 0x00000bb8} 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a8 | | .CONST 0x00a8 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0006 | | .CONST 0x0006 ; Number of locals 009b INIT_0098: 009b 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 009d e003 | | Load 0x0,0x3 009e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 009f 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00a0 00c6 | | Action Check_Subprogram_Elaborated 00a1 4802 |H | Short_Literal 0x2 00a2 4802 |H | Short_Literal 0x2 00a3 0099 | | Action Reference_Dynamic 00a4 e006 | | Load 0x0,0x6 00a5 e007 | | Load 0x0,0x7 00a6 4806 |H | Short_Literal 0x6 00a7 0007 | | Action Break_Optional 00a8 BODY_0098: 00a8 4800 |H | Short_Literal 0x0 00a9 e219 | | Load 0x1,0x19 00aa 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ab 4803 |H | Short_Literal 0x3 00ac 4802 |H | Short_Literal 0x2 00ad 0099 | | Action Reference_Dynamic 00ae 4804 |H | Short_Literal 0x4 00af 4802 |H | Short_Literal 0x2 00b0 0099 | | Action Reference_Dynamic 00b1 e003 | | Load 0x0,0x3 00b2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b4 e003 | | Load 0x0,0x3 00b5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b7 0165 | e | Execute Variant_Record,Convert 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d0 | | .CONST 0x00d0 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0006 | | .CONST 0x0006 ; Number of locals 00c3 INIT_00c0: 00c3 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 00c5 e003 | | Load 0x0,0x3 00c6 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00c7 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00c8 00c6 | | Action Check_Subprogram_Elaborated 00c9 4802 |H | Short_Literal 0x2 00ca 4802 |H | Short_Literal 0x2 00cb 0099 | | Action Reference_Dynamic 00cc e008 | | Load 0x0,0x8 00cd e009 | | Load 0x0,0x9 00ce 4806 |H | Short_Literal 0x6 00cf 0007 | | Action Break_Optional 00d0 BODY_00c0: 00d0 4800 |H | Short_Literal 0x0 00d1 e219 | | Load 0x1,0x19 00d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d3 4803 |H | Short_Literal 0x3 00d4 4802 |H | Short_Literal 0x2 00d5 0099 | | Action Reference_Dynamic 00d6 4804 |H | Short_Literal 0x4 00d7 4802 |H | Short_Literal 0x2 00d8 0099 | | Action Reference_Dynamic 00d9 e003 | | Load 0x0,0x3 00da 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00db 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00dc e003 | | Load 0x0,0x3 00dd 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00df 0165 | e | Execute Variant_Record,Convert 00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 0092 0227 | '| Action Push_String_Extended,0x227 ; "Nombre de solutions :" 00ed e003 | | Load 0x0,0x3 00ee 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ef 00da | | Load_Top At_Offset_2 00f0 e003 | | Load 0x0,0x3 00f1 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f3 e003 | | Load 0x0,0x3 00f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f5 0092 0228 | (| Action Push_String_Extended,0x228 ; " " 00f7 e003 | | Load 0x0,0x3 00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f9 00da | | Load_Top At_Offset_2 00fa 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00fb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00fc e003 | | Load 0x0,0x3 00fd 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00fe 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0107 | | .CONST 0x0107 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e20f | | Load 0x1,0xf 0104 0322 | " | Declare_Variable Record 0105 00d8 | | Load_Top At_Offset_0 0106 1c00 | | Execute_Immediate Run_Utility,0x0 0107 BODY_0100: 0107 00db | | Load_Top At_Offset_3 0108 e219 | | Load 0x1,0x19 0109 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010a 00d9 | | Load_Top At_Offset_1 010b 017d | } | Execute Record,Structure_Write 010c e5fd | | Load 0x2,-0x3 010d e5fe | | Load 0x2,-0x2 010e 00da | | Load_Top At_Offset_2 010f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0110 01d6 | | Execute Vector,Field_Write 0111 00d8 | | Load_Top At_Offset_0 0112 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0113 0a01 | | Execute_Immediate Plus,0x1 0114 00d9 | | Load_Top At_Offset_1 0115 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0116 4800 |H | Short_Literal 0x0 0117 00d9 | | Load_Top At_Offset_1 0118 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0119 00d8 | | Load_Top At_Offset_0 011a e219 | | Load 0x1,0x19 011b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0127 | ' | .CONST 0x0127 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e20f | | Load 0x1,0xf 0124 0322 | " | Declare_Variable Record 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 BODY_0120: 0127 00db | | Load_Top At_Offset_3 0128 e219 | | Load 0x1,0x19 0129 1820 | | Execute Package,Field_Execute,Field_Number 0x20 012a 00d9 | | Load_Top At_Offset_1 012b 017d | } | Execute Record,Structure_Write 012c 4801 |H | Short_Literal 0x1 012d 00d9 | | Load_Top At_Offset_1 012e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 012f 00d8 | | Load_Top At_Offset_0 0130 e5ff | | Load 0x2,-0x1 0131 e219 | | Load 0x1,0x19 0132 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0133 00db | | Load_Top At_Offset_3 0134 e219 | | Load 0x1,0x19 0135 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0136 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013f | ? | .CONST 0x013f ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b e20f | | Load 0x1,0xf 013c 0322 | " | Declare_Variable Record 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f BODY_0138: 013f 00db | | Load_Top At_Offset_3 0140 e219 | | Load 0x1,0x19 0141 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0142 00d9 | | Load_Top At_Offset_1 0143 017d | } | Execute Record,Structure_Write 0144 00cf | | Action Mark_Auxiliary 0145 e5fe | | Load 0x2,-0x2 0146 0aff | | Execute_Immediate Plus,-0x1 0147 4801 |H | Short_Literal 0x1 0148 0263 | c | Execute Discrete,Above_Bound 0149 7017 |p | Jump_Nonzero 0x161 014a 00d8 | | Load_Top At_Offset_0 014b e402 | | Load 0x2,0x2 014c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014d 01d7 | | Execute Vector,Field_Read 014e e5fd | | Load 0x2,-0x3 014f 027f | | Execute Discrete,Equal 0150 e5fe | | Load 0x2,-0x2 0151 00da | | Load_Top At_Offset_2 0152 0272 | r | Execute Discrete,Minus 0153 e5fd | | Load 0x2,-0x3 0154 00db | | Load_Top At_Offset_3 0155 e402 | | Load 0x2,0x2 0156 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0157 01d7 | | Execute Vector,Field_Read 0158 0272 | r | Execute Discrete,Minus 0159 0274 | t | Execute Discrete,Absolute_Value 015a 027f | | Execute Discrete,Equal 015b 0278 | x | Execute Discrete,Or 015c 6802 |h | Jump_Zero 0x15f 015d 4800 |H | Short_Literal 0x0 015e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 015f 00c8 | | Action Pop_Auxiliary_Range 0160 3fe9 |? | Loop_Increasing 0x14a 0161 00ce | | Action Pop_Auxiliary 0162 4801 |H | Short_Literal 0x1 0163 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0164 0000 0000 | | .BLANK 0000[0x4] 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 00cf | | Action Mark_Auxiliary 016c 00db | | Load_Top At_Offset_3 016d 0aff | | Execute_Immediate Plus,-0x1 016e 4801 |H | Short_Literal 0x1 016f 0263 | c | Execute Discrete,Above_Bound 0170 7006 |p | Jump_Nonzero 0x177 0171 0092 0229 | )| Action Push_String_Extended,0x229 ; "| " 0173 e003 | | Load 0x0,0x3 0174 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0175 00c8 | | Action Pop_Auxiliary_Range 0176 3ffa |? | Loop_Increasing 0x171 0177 00ce | | Action Pop_Auxiliary 0178 0092 022a | *| Action Push_String_Extended,0x22a ; "| o " 017a e003 | | Load 0x0,0x3 017b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 017c 00cf | | Action Mark_Auxiliary 017d e211 | | Load 0x1,0x11 017e e5ff | | Load 0x2,-0x1 017f 0a01 | | Execute_Immediate Plus,0x1 0180 00d8 | | Load_Top At_Offset_0 0181 00e2 | | Load_Encached Integer_Cache 0182 0260 | ` | Execute Discrete,In_Type 0183 7001 |p | Jump_Nonzero 0x185 0184 0801 | | Execute_Immediate Raise,0x1 0185 0263 | c | Execute Discrete,Above_Bound 0186 7006 |p | Jump_Nonzero 0x18d 0187 0092 0229 | )| Action Push_String_Extended,0x229 ; "| " 0189 e003 | | Load 0x0,0x3 018a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 018b 00c8 | | Action Pop_Auxiliary_Range 018c 3ffa |? | Loop_Increasing 0x187 018d 00ce | | Action Pop_Auxiliary 018e 0092 022b | +| Action Push_String_Extended,0x22b ; "|" 0190 e003 | | Load 0x0,0x3 0191 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0193 0000 0000 | | .BLANK 0000[0x5] 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 0092 022c | ,| Action Push_String_Extended,0x22c ; " " 019d e003 | | Load 0x0,0x3 019e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 019f 0092 022d | -| Action Push_String_Extended,0x22d ; "Voici une solution : " 01a1 e003 | | Load 0x0,0x3 01a2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01a3 00cf | | Action Mark_Auxiliary 01a4 e211 | | Load 0x1,0x11 01a5 0902 | | Execute_Immediate Binary_Scale,0x2 01a6 0a01 | | Execute_Immediate Plus,0x1 01a7 00d8 | | Load_Top At_Offset_0 01a8 00e2 | | Load_Encached Integer_Cache 01a9 0260 | ` | Execute Discrete,In_Type 01aa 7001 |p | Jump_Nonzero 0x1ac 01ab 0801 | | Execute_Immediate Raise,0x1 01ac 4801 |H | Short_Literal 0x1 01ad 0263 | c | Execute Discrete,Above_Bound 01ae 7006 |p | Jump_Nonzero 0x1b5 01af 0092 022e | .| Action Push_String_Extended,0x22e ; "=" 01b1 e003 | | Load 0x0,0x3 01b2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b3 00c8 | | Action Pop_Auxiliary_Range 01b4 3ffa |? | Loop_Increasing 0x1af 01b5 00ce | | Action Pop_Auxiliary 01b6 0092 022c | ,| Action Push_String_Extended,0x22c ; " " 01b8 e003 | | Load 0x0,0x3 01b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01ba 00cf | | Action Mark_Auxiliary 01bb e211 | | Load 0x1,0x11 01bc 4801 |H | Short_Literal 0x1 01bd 0263 | c | Execute Discrete,Above_Bound 01be 7020 |p | Jump_Nonzero 0x1df 01bf 00d8 | | Load_Top At_Offset_0 01c0 e5ff | | Load 0x2,-0x1 01c1 e219 | | Load 0x1,0x19 01c2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c4 01d7 | | Execute Vector,Field_Read 01c5 821a | | Call 0x1,0x1a 01c6 00cf | | Action Mark_Auxiliary 01c7 e211 | | Load 0x1,0x11 01c8 0902 | | Execute_Immediate Binary_Scale,0x2 01c9 0a01 | | Execute_Immediate Plus,0x1 01ca 00d8 | | Load_Top At_Offset_0 01cb 00e2 | | Load_Encached Integer_Cache 01cc 0260 | ` | Execute Discrete,In_Type 01cd 7001 |p | Jump_Nonzero 0x1cf 01ce 0801 | | Execute_Immediate Raise,0x1 01cf 4801 |H | Short_Literal 0x1 01d0 0263 | c | Execute Discrete,Above_Bound 01d1 7006 |p | Jump_Nonzero 0x1d8 01d2 0092 022e | .| Action Push_String_Extended,0x22e ; "=" 01d4 e003 | | Load 0x0,0x3 01d5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01d6 00c8 | | Action Pop_Auxiliary_Range 01d7 3ffa |? | Loop_Increasing 0x1d2 01d8 00ce | | Action Pop_Auxiliary 01d9 0092 022c | ,| Action Push_String_Extended,0x22c ; " " 01db e003 | | Load 0x0,0x3 01dc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01dd 00c8 | | Action Pop_Auxiliary_Range 01de 3fe0 |? | Loop_Increasing 0x1bf 01df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 e219 | | Load 0x1,0x19 01e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e7 e5ff | | Load 0x2,-0x1 01e8 027f | | Execute Discrete,Equal 01e9 00db | | Load_Top At_Offset_3 01ea e219 | | Load 0x1,0x19 01eb 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ed 0f00 | | Execute_Immediate Equal,0x0 01ee 0279 | y | Execute Discrete,And 01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 01f4 e219 | | Load 0x1,0x19 01f5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f7 e5ff | | Load 0x2,-0x1 01f8 027f | | Execute Discrete,Equal 01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fa 0000 0000 | | .BLANK 0000[0x6] 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 4608 |F | Jump_Case 0x9 0204 7808 |x | Jump 0x20d ; case 0x0 0205 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0206 781e |x | Jump 0x225 ; case 0x2 0207 781d |x | Jump 0x225 ; case 0x3 0208 781c |x | Jump 0x225 ; case 0x4 0209 781b |x | Jump 0x225 ; case 0x5 020a 781a |x | Jump 0x225 ; case 0x6 020b 7819 |x | Jump 0x225 ; case 0x7 020c 7818 |x | Jump 0x225 ; case 0x8 020d e20f | | Load 0x1,0xf 020e 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 020f 0337 | 7 | Declare_Variable Array 0210 4809 |H | Short_Literal 0x9 0211 4800 |H | Short_Literal 0x0 0212 4800 |H | Short_Literal 0x0 0213 00d9 | | Load_Top At_Offset_1 0214 e402 | | Load 0x2,0x2 0215 01d6 | | Execute Vector,Field_Write 0216 3ffb |? | Loop_Increasing 0x212 0217 00db | | Load_Top At_Offset_3 0218 00d9 | | Load_Top At_Offset_1 0219 00d9 | | Load_Top At_Offset_1 021a 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 021b 0119 | | Execute Any,Check_In_Formal_Type 021c 00d1 | | Pop_Control Pop_Count_1 021d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 021e 4800 |H | Short_Literal 0x0 021f 00db | | Load_Top At_Offset_3 0220 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0221 4800 |H | Short_Literal 0x0 0222 00db | | Load_Top At_Offset_3 0223 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0224 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0225 0869 | i | Execute_Immediate Raise,0x69 0226 ; -------------------------------------------------------------------------------------- 0226 ; STRING TABLE 0226 ; -------------------------------------------------------------------------------------- 0226 0014 | | .STRTAB 0x0014->0x0230 ; "QUEEN " 0227 001c | | .STRTAB 0x001c->0x0235 ; "Nombre de solutions :" 0228 002f | / | .STRTAB 0x002f->0x023f ; " " 0229 002f | / | .STRTAB 0x002f->0x0240 ; "| " 022a 0031 | 1 | .STRTAB 0x0031->0x0242 ; "| o " 022b 0033 | 3 | .STRTAB 0x0033->0x0244 ; "|" 022c 0032 | 2 | .STRTAB 0x0032->0x0245 ; " " 022d 0031 | 1 | .STRTAB 0x0031->0x0245 ; "Voici une solution : " 022e 0044 | D | .STRTAB 0x0044->0x0250 ; "=" 022f 0043 | C | .STREND 0x0043->0x0250 0230 5155 4545 |QUEE| .STRTAB_STRINGS 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug Table 0258 ; -------------------------------------------------------------------------------------- 0258 0004 0001 | | .DEBUG4 0x0004,0x0001,0x6440,0x0000,0x0001,0x000e 025e 000b 0296 | | .DBG4T 0x000b,0x0296,0x8000,0x0000 0262 002f 02a4 | / | .DBG4T 0x002f,0x02a4,0x8000,0x0000 0266 0063 02b1 | c | .DBG4T 0x0063,0x02b1,0x0001,0x0000 026a 009b 02bb | | .DBG4T 0x009b,0x02bb,0x0002,0x0000 026e 00c3 02c0 | | .DBG4T 0x00c3,0x02c0,0x0002,0x0000 0272 00eb 02c5 | | .DBG4T 0x00eb,0x02c5,0x0001,0x0000 0276 0103 02cb | | .DBG4T 0x0103,0x02cb,0x0001,0x0000 027a 0123 02d3 | # | .DBG4T 0x0123,0x02d3,0x0001,0x0000 027e 013b 02da | ; | .DBG4T 0x013b,0x02da,0x0002,0x0000 0282 016b 02e2 | k | .DBG4T 0x016b,0x02e2,0x0001,0x0000 0286 019b 02ea | | .DBG4T 0x019b,0x02ea,0x0001,0x0000 028a 01e3 02f6 | | .DBG4T 0x01e3,0x02f6,0x0002,0x0000 028e 01f3 02f9 | | .DBG4T 0x01f3,0x02f9,0x0002,0x0000 0292 0203 0000 | | .DBG4T 0x0203,0x0000,0x0005,0x0000 0296 ; -------------------------------------------------------------------------------------- 0296 ; Debug chain 0296 ; -------------------------------------------------------------------------------------- 0296 000c 0000 | | .DBGLEN 0x000c,0x0000 0298 000b 000f | | .DBGLNO 0x000b,0x000f,0x0015,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c 02a4 ; -------------------------------------------------------------------------------------- 02a4 ; Debug chain 02a4 ; -------------------------------------------------------------------------------------- 02a4 000b 0000 | | .DBGLEN 0x000b,0x0000 02a6 002f 0040 | / @| .DBGLNO 0x002f,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x0053,0x0055,0x0057,0x0059 02b1 ; -------------------------------------------------------------------------------------- 02b1 ; Debug chain 02b1 ; -------------------------------------------------------------------------------------- 02b1 0001 0007 | | .DBGLEN 0x0001,0x0007 02b3 0063 0067 | c g| .DBGLNO 0x0063,0x0067,0x0069,0x0070,0x0072,0x0083,0x0086,0x0089 02bb ; -------------------------------------------------------------------------------------- 02bb ; Debug chain 02bb ; -------------------------------------------------------------------------------------- 02bb 0002 0001 | | .DBGLEN 0x0002,0x0001 02bd 009b 009d | | .DBGLNO 0x009b,0x009d,0x00a8 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; Debug chain 02c0 ; -------------------------------------------------------------------------------------- 02c0 0002 0001 | | .DBGLEN 0x0002,0x0001 02c2 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00d0 02c5 ; -------------------------------------------------------------------------------------- 02c5 ; Debug chain 02c5 ; -------------------------------------------------------------------------------------- 02c5 0000 0004 | | .DBGLEN 0x0000,0x0004 02c7 00eb 00ef | | .DBGLNO 0x00eb,0x00ef,0x00f5,0x00f9 02cb ; -------------------------------------------------------------------------------------- 02cb ; Debug chain 02cb ; -------------------------------------------------------------------------------------- 02cb 0001 0005 | | .DBGLEN 0x0001,0x0005 02cd 0103 0107 | | .DBGLNO 0x0103,0x0107,0x010c,0x0111,0x0116,0x0119 02d3 ; -------------------------------------------------------------------------------------- 02d3 ; Debug chain 02d3 ; -------------------------------------------------------------------------------------- 02d3 0001 0004 | | .DBGLEN 0x0001,0x0004 02d5 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x012c,0x012f,0x0133 02da ; -------------------------------------------------------------------------------------- 02da ; Debug chain 02da ; -------------------------------------------------------------------------------------- 02da 0001 0005 | | .DBGLEN 0x0001,0x0005 02dc 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0145,0x014a,0x015d,0x0162 02e2 ; -------------------------------------------------------------------------------------- 02e2 ; Debug chain 02e2 ; -------------------------------------------------------------------------------------- 02e2 0000 0006 | | .DBGLEN 0x0000,0x0006 02e4 016c 0171 | l q| .DBGLNO 0x016c,0x0171,0x0178,0x017d,0x0187,0x018e 02ea ; -------------------------------------------------------------------------------------- 02ea ; Debug chain 02ea ; -------------------------------------------------------------------------------------- 02ea 0000 000a | | .DBGLEN 0x0000,0x000a 02ec 019b 019f | | .DBGLNO 0x019b,0x019f,0x01a4,0x01af,0x01b6,0x01bb,0x01bf,0x01c7,0x01d2,0x01d9 02f6 ; -------------------------------------------------------------------------------------- 02f6 ; Debug chain 02f6 ; -------------------------------------------------------------------------------------- 02f6 0000 0001 | | .DBGLEN 0x0000,0x0001 02f8 01e3 | | .DBGLNO 0x01e3 02f9 ; -------------------------------------------------------------------------------------- 02f9 ; Debug chain 02f9 ; -------------------------------------------------------------------------------------- 02f9 0000 0001 | | .DBGLEN 0x0000,0x0001 02fb 01f3 | | .DBGLNO 0x01f3 02fc 0000 0000 | | .BLANK 0000[0x104]