|
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_09dc33
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 0070 | p | .CONST 0x0070 ; 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 007b | {| Declare_Subprogram INIT_0078,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 4800 |H | Short_Literal 0x0
0013 4802 |H | Short_Literal 0x2
0014 029f 00a3 | | Declare_Subprogram INIT_00a0,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 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
001d 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0021 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0023 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
002b c218 | | Store 0x1,0x18
002c 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
002e c219 | | Store 0x1,0x19
002f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0031 c21a | | Store 0x1,0x1a
0032 e20d | | Load 0x1,0xd
0033 e20e | | Load 0x1,0xe
0034 e20f | | Load 0x1,0xf
0035 e210 | | Load 0x1,0x10
0036 029f 018b | | Declare_Subprogram INIT_0188,For_Call
0038 e211 | | Load 0x1,0x11
0039 0326 | & | Complete_Type Record,By_Defining
003a 00bf | | Action Accept_Activation
003b e001 | | Load 0x0,0x1
003c e002 | | Load 0x0,0x2
003d e211 | | Load 0x1,0x11
003e 0092 01a6 | | Action Push_String_Extended,0x1a6 ; "BRIQUES "
0040 e003 | | Load 0x0,0x3
0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0042 01c7 | | Execute Vector,Convert
0043 48c8 |H | Short_Literal 0xc8
0044 e003 | | Load 0x0,0x3
0045 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0046 190f | | Execute Package,Field_Reference,Field_Number 0xf
0047 e003 | | Load 0x0,0x3
0048 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0049 0387 | | Declare_Variable Package
004a 00d8 | | Load_Top At_Offset_0
004b 020f | | Execute Module,Activate
004c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004d 00c7 | | Action Elaborate_Subprogram
004e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004f 00c7 | | Action Elaborate_Subprogram
0050 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0051 00c7 | | Action Elaborate_Subprogram
0052 e003 | | Load 0x0,0x3
0053 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0054 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0055 00c6 | | Action Check_Subprogram_Elaborated
0056 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0057 e004 | | Load 0x0,0x4
0058 e005 | | Load 0x0,0x5
0059 4800 |H | Short_Literal 0x0
005a 0007 | | Action Break_Optional
005b 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
005d e003 | | Load 0x0,0x3
005e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
005f 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0060 00c6 | | Action Check_Subprogram_Elaborated
0061 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0062 e006 | | Load 0x0,0x6
0063 e007 | | Load 0x0,0x7
0064 4800 |H | Short_Literal 0x0
0065 0007 | | Action Break_Optional
0066 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0067 00c7 | | Action Elaborate_Subprogram
0068 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0069 00c7 | | Action Elaborate_Subprogram
006a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006b 00c7 | | Action Elaborate_Subprogram
006c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006f 00c7 | | Action Elaborate_Subprogram
0070 BODY_0008:
0070 00bc | | Action Signal_Activated
0071 00bb | | Action Signal_Completion
0072 0000 0000 | | .BLANK 0000[0x6]
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 01a0 | | Action Push_String_Extended_Indexed,0x1a0 ; "ROSE"
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 01a3 | | Action Push_String_Extended_Indexed,0x1a3 ; "TAS"
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 e21b | | Load 0x1,0x1b
00cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cd 00ca | | Action Exit_Nullary_Function
00ce 0000 0000 | | .XXX[0x2]
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 e21b | | Load 0x1,0x1b
00d5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d7 0f00 | | Execute_Immediate Equal,0x0
00d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 e21b | | Load 0x1,0x1b
00e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e7 0f01 | | Execute_Immediate Equal,0x1
00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 e21b | | Load 0x1,0x1b
00f5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f7 4800 |H | Short_Literal 0x0
00f8 e21b | | Load 0x1,0x1b
00f9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
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 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ff 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0100 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0101 e003 | | Load 0x0,0x3
0102 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0103 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0104 e21b | | Load 0x1,0x1b
0105 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0106 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0107 027f | | Execute Discrete,Equal
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
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 0092 01a7 | | Action Push_String_Extended,0x1a7 ; " "
0134 e003 | | Load 0x0,0x3
0135 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0136 0092 01a8 | | Action Push_String_Extended,0x1a8 ; " Nb briques : "
0138 e003 | | Load 0x0,0x3
0139 181b | | Execute Package,Field_Execute,Field_Number 0x1b
013a e21b | | Load 0x1,0x1b
013b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
013c e003 | | Load 0x0,0x3
013d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
013e 0092 01a9 | | Action Push_String_Extended,0x1a9 ; " "
0140 e003 | | Load 0x0,0x3
0141 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0142 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014f | O | .CONST 0x014f ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e211 | | Load 0x1,0x11
014c 0322 | " | Declare_Variable Record
014d 00d8 | | Load_Top At_Offset_0
014e 1c00 | | Execute_Immediate Run_Utility,0x0
014f BODY_0148:
014f 00db | | Load_Top At_Offset_3
0150 e21b | | Load 0x1,0x1b
0151 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0152 00d9 | | Load_Top At_Offset_1
0153 017d | } | Execute Record,Structure_Write
0154 e5fe | | Load 0x2,-0x2
0155 00d9 | | Load_Top At_Offset_1
0156 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0157 00d8 | | Load_Top At_Offset_0
0158 e5ff | | Load 0x2,-0x1
0159 e21b | | Load 0x1,0x1b
015a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
015b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167 | g | .CONST 0x0167 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e211 | | Load 0x1,0x11
0164 0322 | " | Declare_Variable Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 BODY_0160:
0167 00db | | Load_Top At_Offset_3
0168 e21b | | Load 0x1,0x1b
0169 1820 | | Execute Package,Field_Execute,Field_Number 0x20
016a 00d9 | | Load_Top At_Offset_1
016b 017d | } | Execute Record,Structure_Write
016c e5fe | | Load 0x2,-0x2
016d 00d9 | | Load_Top At_Offset_1
016e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
016f 00d8 | | Load_Top At_Offset_0
0170 e5ff | | Load 0x2,-0x1
0171 e21b | | Load 0x1,0x1b
0172 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0173 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e21b | | Load 0x1,0x1b
017d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
017e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017f e5fe | | Load 0x2,-0x2
0180 e21b | | Load 0x1,0x1b
0181 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0182 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0183 027d | } | Execute Discrete,Greater
0184 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4608 |F | Jump_Case 0x9
018c 7808 |x | Jump 0x195 ; case 0x0
018d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
018e 7810 |x | Jump 0x19f ; case 0x2
018f 780f |x | Jump 0x19f ; case 0x3
0190 780e |x | Jump 0x19f ; case 0x4
0191 780d |x | Jump 0x19f ; case 0x5
0192 780c |x | Jump 0x19f ; case 0x6
0193 780b |x | Jump 0x19f ; case 0x7
0194 780a |x | Jump 0x19f ; case 0x8
0195 4801 |H | Short_Literal 0x1
0196 00db | | Load_Top At_Offset_3
0197 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0198 4800 |H | Short_Literal 0x0
0199 00db | | Load_Top At_Offset_3
019a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019b 4800 |H | Short_Literal 0x0
019c 00db | | Load_Top At_Offset_3
019d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
019e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
019f 0869 | i | Execute_Immediate Raise,0x69
01a0 ; --------------------------------------------------------------------------------------
01a0 ; STRING TABLE
01a0 ; --------------------------------------------------------------------------------------
01a0 0016 | | .STRTAB 0x0016->0x01ab ; "ROSE"
01a1 0018 | | .STRTAB 0x0018->0x01ad ; "GRISE"
01a2 001b | | .STRTAB 0x001b->0x01af ; "BLANCHE"
01a3 0020 | | .STRTAB 0x0020->0x01b3 ; "TAS"
01a4 0021 | ! | .STRTAB 0x0021->0x01b4 ; "PINCE"
01a5 0024 | $ | .STRTAB 0x0024->0x01b7 ; "BOITE"
01a6 0027 | ' | .STRTAB 0x0027->0x01b9 ; "BRIQUES "
01a7 002f | / | .STRTAB 0x002f->0x01be ; " "
01a8 002e | . | .STRTAB 0x002e->0x01bf ; " Nb briques : "
01a9 003a | : | .STRTAB 0x003a->0x01c6 ; " "
01aa 003a | : | .STREND 0x003a->0x01c7
01ab 524f 5345 |ROSE| .STRTAB_STRINGS
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x89f5,0x0000,0x0001,0x000e
01ce 000b 0206 | | .DBG4T 0x000b,0x0206,0x8000,0x0000
01d2 003b 0216 | ; | .DBG4T 0x003b,0x0216,0x8000,0x0000
01d6 007b 0000 | { | .DBG4T 0x007b,0x0000,0x0005,0x0000
01da 00a3 0000 | | .DBG4T 0x00a3,0x0000,0x0005,0x0000
01de 00cb 0224 | $| .DBG4T 0x00cb,0x0224,0x0002,0x0000
01e2 00d3 0227 | '| .DBG4T 0x00d3,0x0227,0x0002,0x0000
01e6 00e3 022a | *| .DBG4T 0x00e3,0x022a,0x0002,0x0000
01ea 00f3 022d | -| .DBG4T 0x00f3,0x022d,0x0002,0x0000
01ee 0113 0230 | 0| .DBG4T 0x0113,0x0230,0x0002,0x0000
01f2 011b 0233 | 3| .DBG4T 0x011b,0x0233,0x0001,0x0000
01f6 014b 023b | K ;| .DBG4T 0x014b,0x023b,0x0001,0x0000
01fa 0163 0241 | c A| .DBG4T 0x0163,0x0241,0x0001,0x0000
01fe 017b 0247 | { G| .DBG4T 0x017b,0x0247,0x0002,0x0000
0202 018b 0000 | | .DBG4T 0x018b,0x0000,0x0005,0x0000
0206 ; --------------------------------------------------------------------------------------
0206 ; Debug chain
0206 ; --------------------------------------------------------------------------------------
0206 000e 0000 | | .DBGLEN 0x000e,0x0000
0208 000b 000d | | .DBGLNO 0x000b,0x000d,0x0012,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0029,0x002c,0x002f,0x0032
0216 ; --------------------------------------------------------------------------------------
0216 ; Debug chain
0216 ; --------------------------------------------------------------------------------------
0216 000c 0000 | | .DBGLEN 0x000c,0x0000
0218 003b 004c | ; L| .DBGLNO 0x003b,0x004c,0x004e,0x0050,0x0052,0x005b,0x005d,0x0066,0x0068,0x006a,0x006c,0x006e
0224 ; --------------------------------------------------------------------------------------
0224 ; Debug chain
0224 ; --------------------------------------------------------------------------------------
0224 0000 0001 | | .DBGLEN 0x0000,0x0001
0226 00cb | | .DBGLNO 0x00cb
0227 ; --------------------------------------------------------------------------------------
0227 ; Debug chain
0227 ; --------------------------------------------------------------------------------------
0227 0000 0001 | | .DBGLEN 0x0000,0x0001
0229 00d3 | | .DBGLNO 0x00d3
022a ; --------------------------------------------------------------------------------------
022a ; Debug chain
022a ; --------------------------------------------------------------------------------------
022a 0000 0001 | | .DBGLEN 0x0000,0x0001
022c 00e3 | | .DBGLNO 0x00e3
022d ; --------------------------------------------------------------------------------------
022d ; Debug chain
022d ; --------------------------------------------------------------------------------------
022d 0000 0001 | | .DBGLEN 0x0000,0x0001
022f 00f3 | | .DBGLNO 0x00f3
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug chain
0230 ; --------------------------------------------------------------------------------------
0230 0000 0001 | | .DBGLEN 0x0000,0x0001
0232 0113 | | .DBGLNO 0x0113
0233 ; --------------------------------------------------------------------------------------
0233 ; Debug chain
0233 ; --------------------------------------------------------------------------------------
0233 0000 0006 | | .DBGLEN 0x0000,0x0006
0235 011c 011f | | .DBGLNO 0x011c,0x011f,0x0132,0x0136,0x013a,0x013e
023b ; --------------------------------------------------------------------------------------
023b ; Debug chain
023b ; --------------------------------------------------------------------------------------
023b 0001 0003 | | .DBGLEN 0x0001,0x0003
023d 014b 014f | K O| .DBGLNO 0x014b,0x014f,0x0154,0x0157
0241 ; --------------------------------------------------------------------------------------
0241 ; Debug chain
0241 ; --------------------------------------------------------------------------------------
0241 0001 0003 | | .DBGLEN 0x0001,0x0003
0243 0163 0167 | c g| .DBGLNO 0x0163,0x0167,0x016c,0x016f
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 0000 0001 | | .DBGLEN 0x0000,0x0001
0249 017b | { | .DBGLNO 0x017b
024a 0000 0000 | | .BLANK 0000[0x1b6]