|
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_2bbc31
└─⟦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 0228 | ( | .CONST 0x0228 ; 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 006d | m | .CONST 0x006d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 4800 |H | Short_Literal 0x0
000e 4802 |H | Short_Literal 0x2
000f 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 4800 |H | Short_Literal 0x0
0013 4802 |H | Short_Literal 0x2
0014 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0016 03fe | | Declare_Type Discrete,Defined,Visible
0017 00e4 | | Load_Encached Positive_Cache
0018 0129 | ) | Execute Any,Make_Visible
0019 4804 |H | Short_Literal 0x4
001a 032b | + | Declare_Type Record,Incomplete,Visible
001b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
001d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
001f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0021 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0023 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0025 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0027 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0029 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
002b 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
002d e20d | | Load 0x1,0xd
002e e20e | | Load 0x1,0xe
002f e20f | | Load 0x1,0xf
0030 e210 | | Load 0x1,0x10
0031 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0033 e211 | | Load 0x1,0x11
0034 0326 | & | Complete_Type Record,By_Defining
0035 00bf | | Action Accept_Activation
0036 e001 | | Load 0x0,0x1
0037 e002 | | Load 0x0,0x2
0038 e211 | | Load 0x1,0x11
0039 0092 0206 | | Action Push_String_Extended,0x206 ; "BRIQUES "
003b e003 | | Load 0x0,0x3
003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003d 01c7 | | Execute Vector,Convert
003e 48c8 |H | Short_Literal 0xc8
003f e003 | | Load 0x0,0x3
0040 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0041 190f | | Execute Package,Field_Reference,Field_Number 0xf
0042 e003 | | Load 0x0,0x3
0043 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0044 0387 | | Declare_Variable Package
0045 00d8 | | Load_Top At_Offset_0
0046 020f | | Execute Module,Activate
0047 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0048 00c7 | | Action Elaborate_Subprogram
0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004a 00c7 | | Action Elaborate_Subprogram
004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004c 00c7 | | Action Elaborate_Subprogram
004d e003 | | Load 0x0,0x3
004e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
004f 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0050 00c6 | | Action Check_Subprogram_Elaborated
0051 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0052 e004 | | Load 0x0,0x4
0053 e005 | | Load 0x0,0x5
0054 4800 |H | Short_Literal 0x0
0055 0007 | | Action Break_Optional
0056 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
0058 e003 | | Load 0x0,0x3
0059 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
005a 1914 | | Execute Package,Field_Reference,Field_Number 0x14
005b 00c6 | | Action Check_Subprogram_Elaborated
005c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005d e006 | | Load 0x0,0x6
005e e007 | | Load 0x0,0x7
005f 4800 |H | Short_Literal 0x0
0060 0007 | | Action Break_Optional
0061 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0062 00c7 | | Action Elaborate_Subprogram
0063 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0064 00c7 | | Action Elaborate_Subprogram
0065 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0066 00c7 | | Action Elaborate_Subprogram
0067 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0068 00c7 | | Action Elaborate_Subprogram
0069 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006a 00c7 | | Action Elaborate_Subprogram
006b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006c 00c7 | | Action Elaborate_Subprogram
006d BODY_0008:
006d 00bc | | Action Signal_Activated
006e 00bb | | Action Signal_Completion
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4607 |F | Jump_Case 0x8
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7806 |x | Jump 0x7c ; case 0x1
0076 7809 |x | Jump 0x80 ; case 0x2
0077 780d |x | Jump 0x85 ; case 0x3
0078 7810 |x | Jump 0x89 ; case 0x4
0079 7811 |x | Jump 0x8b ; case 0x5
007a 7812 |x | Jump 0x8d ; case 0x6
007b 7815 |x | Jump 0x91 ; case 0x7
007c 00da | | Load_Top At_Offset_2
007d 0091 0200 | | Action Push_String_Extended_Indexed,0x200 ; "ROSE"
007f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0080 00db | | Load_Top At_Offset_3
0081 00db | | Load_Top At_Offset_3
0082 00e0 | | Load_Encached Standard_Cache
0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0085 00da | | Load_Top At_Offset_2
0086 00e0 | | Load_Encached Standard_Cache
0087 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0089 00db | | Load_Top At_Offset_3
008a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008b 00db | | Load_Top At_Offset_3
008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008d e20e | | Load 0x1,0xe
008e 00dc | | Load_Top At_Offset_4
008f 0267 | g | Execute Discrete,Predecessor
0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0091 e20e | | Load 0x1,0xe
0092 00dc | | Load_Top At_Offset_4
0093 0268 | h | Execute Discrete,Successor
0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4607 |F | Jump_Case 0x8
009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
009d 7806 |x | Jump 0xa4 ; case 0x1
009e 7809 |x | Jump 0xa8 ; case 0x2
009f 780d |x | Jump 0xad ; case 0x3
00a0 7810 |x | Jump 0xb1 ; case 0x4
00a1 7811 |x | Jump 0xb3 ; case 0x5
00a2 7812 |x | Jump 0xb5 ; case 0x6
00a3 7815 |x | Jump 0xb9 ; case 0x7
00a4 00da | | Load_Top At_Offset_2
00a5 0091 0203 | | Action Push_String_Extended_Indexed,0x203 ; "TAS"
00a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a8 00db | | Load_Top At_Offset_3
00a9 00db | | Load_Top At_Offset_3
00aa 00e0 | | Load_Encached Standard_Cache
00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ad 00da | | Load_Top At_Offset_2
00ae 00e0 | | Load_Encached Standard_Cache
00af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b1 00db | | Load_Top At_Offset_3
00b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b3 00db | | Load_Top At_Offset_3
00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b5 e20f | | Load 0x1,0xf
00b6 00dc | | Load_Top At_Offset_4
00b7 0267 | g | Execute Discrete,Predecessor
00b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b9 e20f | | Load 0x1,0xf
00ba 00dc | | Load_Top At_Offset_4
00bb 0268 | h | Execute Discrete,Successor
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e21b | | Load 0x1,0x1b
00c4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c5 00ca | | Action Exit_Nullary_Function
00c6 0000 0000 | | .XXX[0x2]
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 e21b | | Load 0x1,0x1b
00cd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00cf 0f00 | | Execute_Immediate Equal,0x0
00d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc e21b | | Load 0x1,0x1b
00dd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00de 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00df 0f01 | | Execute_Immediate Equal,0x1
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 00da | | Load_Top At_Offset_2
00ec e21b | | Load 0x1,0x1b
00ed 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ef 4800 |H | Short_Literal 0x0
00f0 e21b | | Load 0x1,0x1b
00f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00f3 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00f4 e003 | | Load 0x0,0x3
00f5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00f6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f7 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00f8 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00f9 e003 | | Load 0x0,0x3
00fa 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00fc e21b | | Load 0x1,0x1b
00fd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ff 027f | | Execute Discrete,Equal
0100 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c e21b | | Load 0x1,0x1b
010d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 e21b | | Load 0x1,0x1b
0115 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0116 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00cf | | Action Mark_Auxiliary
011c 481e |H | Short_Literal 0x1e
011d 480a |H | Short_Literal 0xa
011e 0007 | | Action Break_Optional
011f e211 | | Load 0x1,0x11
0120 0322 | " | Declare_Variable Record
0121 00d9 | | Load_Top At_Offset_1
0122 00d9 | | Load_Top At_Offset_1
0123 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0124 4800 |H | Short_Literal 0x0
0125 00d9 | | Load_Top At_Offset_1
0126 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0127 4800 |H | Short_Literal 0x0
0128 00d9 | | Load_Top At_Offset_1
0129 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
012a 4801 |H | Short_Literal 0x1
012b 00d9 | | Load_Top At_Offset_1
012c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
012d e21b | | Load 0x1,0x1b
012e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
012f 00c8 | | Action Pop_Auxiliary_Range
0130 3fee |? | Loop_Increasing 0x11f
0131 00ce | | Action Pop_Auxiliary
0132 e211 | | Load 0x1,0x11
0133 0322 | " | Declare_Variable Record
0134 4864 |Hd | Short_Literal 0x64
0135 00d9 | | Load_Top At_Offset_1
0136 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0137 4801 |H | Short_Literal 0x1
0138 00d9 | | Load_Top At_Offset_1
0139 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013a 4800 |H | Short_Literal 0x0
013b 00d9 | | Load_Top At_Offset_1
013c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013d 4801 |H | Short_Literal 0x1
013e 00d9 | | Load_Top At_Offset_1
013f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0140 e21b | | Load 0x1,0x1b
0141 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0142 e211 | | Load 0x1,0x11
0143 0322 | " | Declare_Variable Record
0144 4896 |H | Short_Literal 0x96
0145 00d9 | | Load_Top At_Offset_1
0146 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0147 4802 |H | Short_Literal 0x2
0148 00d9 | | Load_Top At_Offset_1
0149 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014a 4800 |H | Short_Literal 0x0
014b 00d9 | | Load_Top At_Offset_1
014c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
014d 4801 |H | Short_Literal 0x1
014e 00d9 | | Load_Top At_Offset_1
014f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0150 e21b | | Load 0x1,0x1b
0151 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0152 e211 | | Load 0x1,0x11
0153 0322 | " | Declare_Variable Record
0154 4850 |HP | Short_Literal 0x50
0155 00d9 | | Load_Top At_Offset_1
0156 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0157 4801 |H | Short_Literal 0x1
0158 00d9 | | Load_Top At_Offset_1
0159 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
015a 4800 |H | Short_Literal 0x0
015b 00d9 | | Load_Top At_Offset_1
015c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
015d 4801 |H | Short_Literal 0x1
015e 00d9 | | Load_Top At_Offset_1
015f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0160 e21b | | Load 0x1,0x1b
0161 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0162 e211 | | Load 0x1,0x11
0163 0322 | " | Declare_Variable Record
0164 48c8 |H | Short_Literal 0xc8
0165 00d9 | | Load_Top At_Offset_1
0166 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0167 4802 |H | Short_Literal 0x2
0168 00d9 | | Load_Top At_Offset_1
0169 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016a 4800 |H | Short_Literal 0x0
016b 00d9 | | Load_Top At_Offset_1
016c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
016d 4801 |H | Short_Literal 0x1
016e 00d9 | | Load_Top At_Offset_1
016f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0170 e21b | | Load 0x1,0x1b
0171 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0172 e211 | | Load 0x1,0x11
0173 0322 | " | Declare_Variable Record
0174 486f |Ho | Short_Literal 0x6f
0175 00d9 | | Load_Top At_Offset_1
0176 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0177 4801 |H | Short_Literal 0x1
0178 00d9 | | Load_Top At_Offset_1
0179 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017a 4800 |H | Short_Literal 0x0
017b 00d9 | | Load_Top At_Offset_1
017c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
017d 4801 |H | Short_Literal 0x1
017e 00d9 | | Load_Top At_Offset_1
017f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0180 e21b | | Load 0x1,0x1b
0181 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0182 e211 | | Load 0x1,0x11
0183 0322 | " | Declare_Variable Record
0184 4990 |I | Short_Literal 0x190
0185 00d9 | | Load_Top At_Offset_1
0186 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0187 4800 |H | Short_Literal 0x0
0188 00d9 | | Load_Top At_Offset_1
0189 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018a 4800 |H | Short_Literal 0x0
018b 00d9 | | Load_Top At_Offset_1
018c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018d 4801 |H | Short_Literal 0x1
018e 00d9 | | Load_Top At_Offset_1
018f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0190 e21b | | Load 0x1,0x1b
0191 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0192 0092 0207 | | Action Push_String_Extended,0x207 ; " "
0194 e003 | | Load 0x0,0x3
0195 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0196 0092 0208 | | Action Push_String_Extended,0x208 ; " Nb briques : "
0198 e003 | | Load 0x0,0x3
0199 181b | | Execute Package,Field_Execute,Field_Number 0x1b
019a e21b | | Load 0x1,0x1b
019b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
019c e003 | | Load 0x0,0x3
019d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
019e 0092 0209 | | Action Push_String_Extended,0x209 ; " "
01a0 e003 | | Load 0x0,0x3
01a1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01af | | .CONST 0x01af ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab e211 | | Load 0x1,0x11
01ac 0322 | " | Declare_Variable Record
01ad 00d8 | | Load_Top At_Offset_0
01ae 1c00 | | Execute_Immediate Run_Utility,0x0
01af BODY_01a8:
01af 00db | | Load_Top At_Offset_3
01b0 e21b | | Load 0x1,0x1b
01b1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b2 00d9 | | Load_Top At_Offset_1
01b3 017d | } | Execute Record,Structure_Write
01b4 e5fe | | Load 0x2,-0x2
01b5 00d9 | | Load_Top At_Offset_1
01b6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b7 00d8 | | Load_Top At_Offset_0
01b8 e5ff | | Load 0x2,-0x1
01b9 e21b | | Load 0x1,0x1b
01ba 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c7 | | .CONST 0x01c7 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e211 | | Load 0x1,0x11
01c4 0322 | " | Declare_Variable Record
01c5 00d8 | | Load_Top At_Offset_0
01c6 1c00 | | Execute_Immediate Run_Utility,0x0
01c7 BODY_01c0:
01c7 00db | | Load_Top At_Offset_3
01c8 e21b | | Load 0x1,0x1b
01c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01ca 00d9 | | Load_Top At_Offset_1
01cb 017d | } | Execute Record,Structure_Write
01cc e5fe | | Load 0x2,-0x2
01cd 00d9 | | Load_Top At_Offset_1
01ce 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01cf 00d8 | | Load_Top At_Offset_0
01d0 e5ff | | Load 0x2,-0x1
01d1 e21b | | Load 0x1,0x1b
01d2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01d3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc e21b | | Load 0x1,0x1b
01dd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01df e5fe | | Load 0x2,-0x2
01e0 e21b | | Load 0x1,0x1b
01e1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e3 027d | } | Execute Discrete,Greater
01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
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 4608 |F | Jump_Case 0x9
01ec 7808 |x | Jump 0x1f5 ; case 0x0
01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01ee 7810 |x | Jump 0x1ff ; case 0x2
01ef 780f |x | Jump 0x1ff ; case 0x3
01f0 780e |x | Jump 0x1ff ; case 0x4
01f1 780d |x | Jump 0x1ff ; case 0x5
01f2 780c |x | Jump 0x1ff ; case 0x6
01f3 780b |x | Jump 0x1ff ; case 0x7
01f4 780a |x | Jump 0x1ff ; case 0x8
01f5 4801 |H | Short_Literal 0x1
01f6 00db | | Load_Top At_Offset_3
01f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01f8 4800 |H | Short_Literal 0x0
01f9 00db | | Load_Top At_Offset_3
01fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01fb 4800 |H | Short_Literal 0x0
01fc 00db | | Load_Top At_Offset_3
01fd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ff 0869 | i | Execute_Immediate Raise,0x69
0200 ; --------------------------------------------------------------------------------------
0200 ; STRING TABLE
0200 ; --------------------------------------------------------------------------------------
0200 0016 | | .STRTAB 0x0016->0x020b ; "ROSE"
0201 0018 | | .STRTAB 0x0018->0x020d ; "GRISE"
0202 001b | | .STRTAB 0x001b->0x020f ; "BLANCHE"
0203 0020 | | .STRTAB 0x0020->0x0213 ; "TAS"
0204 0021 | ! | .STRTAB 0x0021->0x0214 ; "PINCE"
0205 0024 | $ | .STRTAB 0x0024->0x0217 ; "BOITE"
0206 0027 | ' | .STRTAB 0x0027->0x0219 ; "BRIQUES "
0207 002f | / | .STRTAB 0x002f->0x021e ; " "
0208 002e | . | .STRTAB 0x002e->0x021f ; " Nb briques : "
0209 003a | : | .STRTAB 0x003a->0x0226 ; " "
020a 003a | : | .STREND 0x003a->0x0227
020b 524f 5345 |ROSE| .STRTAB_STRINGS
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug Table
0228 ; --------------------------------------------------------------------------------------
0228 0004 0001 | | .DEBUG4 0x0004,0x0001,0x89e4,0x0000,0x0001,0x000f
022e 000b 026a | j| .DBG4T 0x000b,0x026a,0x8000,0x0000
0232 0036 027b | 6 {| .DBG4T 0x0036,0x027b,0x8000,0x0000
0236 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000
023a 009b 0000 | | .DBG4T 0x009b,0x0000,0x0005,0x0000
023e 00c3 028a | | .DBG4T 0x00c3,0x028a,0x0002,0x0000
0242 00cb 028d | | .DBG4T 0x00cb,0x028d,0x0002,0x0000
0246 00db 0290 | | .DBG4T 0x00db,0x0290,0x0002,0x0000
024a 00eb 0293 | | .DBG4T 0x00eb,0x0293,0x0002,0x0000
024e 010b 0296 | | .DBG4T 0x010b,0x0296,0x0002,0x0000
0252 0113 0299 | | .DBG4T 0x0113,0x0299,0x0002,0x0000
0256 011b 029c | | .DBG4T 0x011b,0x029c,0x0001,0x0000
025a 01ab 02aa | | .DBG4T 0x01ab,0x02aa,0x0001,0x0000
025e 01c3 02b0 | | .DBG4T 0x01c3,0x02b0,0x0001,0x0000
0262 01db 02b6 | | .DBG4T 0x01db,0x02b6,0x0002,0x0000
0266 01eb 0000 | | .DBG4T 0x01eb,0x0000,0x0005,0x0000
026a ; --------------------------------------------------------------------------------------
026a ; Debug chain
026a ; --------------------------------------------------------------------------------------
026a 000f 0000 | | .DBGLEN 0x000f,0x0000
026c 000b 000d | | .DBGLNO 0x000b,0x000d,0x0012,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d
027b ; --------------------------------------------------------------------------------------
027b ; Debug chain
027b ; --------------------------------------------------------------------------------------
027b 000d 0000 | | .DBGLEN 0x000d,0x0000
027d 0036 0047 | 6 G| .DBGLNO 0x0036,0x0047,0x0049,0x004b,0x004d,0x0056,0x0058,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b
028a ; --------------------------------------------------------------------------------------
028a ; Debug chain
028a ; --------------------------------------------------------------------------------------
028a 0000 0001 | | .DBGLEN 0x0000,0x0001
028c 00c3 | | .DBGLNO 0x00c3
028d ; --------------------------------------------------------------------------------------
028d ; Debug chain
028d ; --------------------------------------------------------------------------------------
028d 0000 0001 | | .DBGLEN 0x0000,0x0001
028f 00cb | | .DBGLNO 0x00cb
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug chain
0290 ; --------------------------------------------------------------------------------------
0290 0000 0001 | | .DBGLEN 0x0000,0x0001
0292 00db | | .DBGLNO 0x00db
0293 ; --------------------------------------------------------------------------------------
0293 ; Debug chain
0293 ; --------------------------------------------------------------------------------------
0293 0000 0001 | | .DBGLEN 0x0000,0x0001
0295 00eb | | .DBGLNO 0x00eb
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug chain
0296 ; --------------------------------------------------------------------------------------
0296 0000 0001 | | .DBGLEN 0x0000,0x0001
0298 010b | | .DBGLNO 0x010b
0299 ; --------------------------------------------------------------------------------------
0299 ; Debug chain
0299 ; --------------------------------------------------------------------------------------
0299 0000 0001 | | .DBGLEN 0x0000,0x0001
029b 0113 | | .DBGLNO 0x0113
029c ; --------------------------------------------------------------------------------------
029c ; Debug chain
029c ; --------------------------------------------------------------------------------------
029c 0000 000c | | .DBGLEN 0x0000,0x000c
029e 011c 011f | | .DBGLNO 0x011c,0x011f,0x0132,0x0142,0x0152,0x0162,0x0172,0x0182,0x0192,0x0196,0x019a,0x019e
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug chain
02aa ; --------------------------------------------------------------------------------------
02aa 0001 0003 | | .DBGLEN 0x0001,0x0003
02ac 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b4,0x01b7
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug chain
02b0 ; --------------------------------------------------------------------------------------
02b0 0001 0003 | | .DBGLEN 0x0001,0x0003
02b2 01c3 01c7 | | .DBGLNO 0x01c3,0x01c7,0x01cc,0x01cf
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug chain
02b6 ; --------------------------------------------------------------------------------------
02b6 0000 0001 | | .DBGLEN 0x0000,0x0001
02b8 01db | | .DBGLNO 0x01db
02b9 0000 0000 | | .BLANK 0000[0x147]