|
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_0a7cf5
└─⟦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 0278 | x | .CONST 0x0278 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0041 | A | .CONST 0x0041 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1916 | | Execute Package,Field_Reference,Field_Number 0x16 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 000f 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0010 0129 | ) | Execute Any,Make_Visible 0011 e001 | | Load 0x0,0x1 0012 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0013 0129 | ) | Execute Any,Make_Visible 0014 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0016 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0018 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 001a 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 001c 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001e 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0020 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0022 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0024 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0026 00bf | | Action Accept_Activation 0027 e002 | | Load 0x0,0x2 0028 e003 | | Load 0x0,0x3 0029 00e6 | | Load_Encached Float_Cache 002a e004 | | Load 0x0,0x4 002b 1b79 | y | Execute Package,Field_Read,Field_Number 0x79 002c 0387 | | Declare_Variable Package 002d 00d8 | | Load_Top At_Offset_0 002e 020f | | Execute Module,Activate 002f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0030 00c7 | | Action Elaborate_Subprogram 0031 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0032 00c7 | | Action Elaborate_Subprogram 0033 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0034 00c7 | | Action Elaborate_Subprogram 0035 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0036 00c7 | | Action Elaborate_Subprogram 0037 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0038 00c7 | | Action Elaborate_Subprogram 0039 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003a 00c7 | | Action Elaborate_Subprogram 003b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003c 00c7 | | Action Elaborate_Subprogram 003d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003e 00c7 | | Action Elaborate_Subprogram 003f 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0040 00c7 | | Action Elaborate_Subprogram 0041 BODY_0008: 0041 00bc | | Action Signal_Activated 0042 00bb | | Action Signal_Completion 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0050 | P | .CONST 0x0050 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b 4801 |H | Short_Literal 0x1 004c 480a |H | Short_Literal 0xa 004d 00e9 | | Load_Encached String_Cache 004e 035b | [ | Declare_Type Array,Constrained 004f 0337 | 7 | Declare_Variable Array 0050 BODY_0048: 0050 00d8 | | Load_Top At_Offset_0 0051 4800 |H | Short_Literal 0x0 0052 4805 |H | Short_Literal 0x5 0053 e5ff | | Load 0x2,-0x1 0054 e219 | | Load 0x1,0x19 0055 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0056 00d1 | | Pop_Control Pop_Count_1 0057 482e |H. | Short_Literal 0x2e 0058 4830 |H0 | Short_Literal 0x30 0059 4820 |H | Short_Literal 0x20 005a 00db | | Load_Top At_Offset_3 005b e001 | | Load 0x0,0x1 005c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 005d e001 | | Load 0x0,0x1 005e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005f e001 | | Load 0x0,0x1 0060 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0061 00e9 | | Load_Encached String_Cache 0062 01c6 | | Execute Vector,Convert_To_Formal 0063 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c 0d1b | | Execute_Immediate Less,0x1b 006d 6812 |h | Jump_Zero 0x80 006e 4801 |H | Short_Literal 0x1 006f 4801 |H | Short_Literal 0x1 0070 00e9 | | Load_Encached String_Cache 0071 035b | [ | Declare_Type Array,Constrained 0072 0337 | 7 | Declare_Variable Array 0073 00db | | Load_Top At_Offset_3 0074 0a60 | ` | Execute_Immediate Plus,0x60 0075 00d8 | | Load_Top At_Offset_0 0076 00e8 | | Load_Encached Character_Cache 0077 0260 | ` | Execute Discrete,In_Type 0078 7001 |p | Jump_Nonzero 0x7a 0079 0801 | | Execute_Immediate Raise,0x1 007a 4801 |H | Short_Literal 0x1 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d 00e9 | | Load_Encached String_Cache 007e 01c6 | | Execute Vector,Convert_To_Formal 007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0080 00da | | Load_Top At_Offset_2 0081 0aff | | Execute_Immediate Plus,-0x1 0082 481a |H | Short_Literal 0x1a 0083 026e | n | Execute Discrete,Modulo 0084 0a61 | a | Execute_Immediate Plus,0x61 0085 00d8 | | Load_Top At_Offset_0 0086 00e8 | | Load_Encached Character_Cache 0087 0260 | ` | Execute Discrete,In_Type 0088 7001 |p | Jump_Nonzero 0x8a 0089 0801 | | Execute_Immediate Raise,0x1 008a 00db | | Load_Top At_Offset_3 008b 0aff | | Execute_Immediate Plus,-0x1 008c 481a |H | Short_Literal 0x1a 008d 0270 | p | Execute Discrete,Divide 008e 00d8 | | Load_Top At_Offset_0 008f 00e4 | | Load_Encached Positive_Cache 0090 0260 | ` | Execute Discrete,In_Type 0091 7001 |p | Jump_Nonzero 0x93 0092 0801 | | Execute_Immediate Raise,0x1 0093 8211 | | Call 0x1,0x11 0094 01cb | | Execute Vector,Append 0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009d | | .CONST 0x009d ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0003 | | .CONST 0x0003 ; Number of locals 009b INIT_0098: 009b 00e2 | | Load_Encached Integer_Cache 009c 00e1 | | Load_Encached Boolean_Cache 009d BODY_0098: 009d 00e1 | | Load_Encached Boolean_Cache 009e 00e2 | | Load_Encached Integer_Cache 009f 480a |H | Short_Literal 0xa 00a0 e5ff | | Load 0x2,-0x1 00a1 e001 | | Load 0x0,0x1 00a2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a3 005b | [ | Store_Top Discrete,At_Offset_3 00a4 0059 | Y | Store_Top Discrete,At_Offset_1 00a5 00d8 | | Load_Top At_Offset_0 00a6 680b |h | Jump_Zero 0xb2 00a7 00d9 | | Load_Top At_Offset_1 00a8 0c01 | | Execute_Immediate Greater_Equal,0x1 00a9 6808 |h | Jump_Zero 0xb2 00aa 00d9 | | Load_Top At_Offset_1 00ab 00d8 | | Load_Top At_Offset_0 00ac 00e4 | | Load_Encached Positive_Cache 00ad 0260 | ` | Execute Discrete,In_Type 00ae 7001 |p | Jump_Nonzero 0xb0 00af 0801 | | Execute_Immediate Raise,0x1 00b0 8211 | | Call 0x1,0x11 00b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b2 e5ff | | Load 0x2,-0x1 00b3 0335 | 5 | Declare_Variable Array,Duplicate 00b4 00cd | | Action Spare6_Action 00b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc 0d1b | | Execute_Immediate Less,0x1b 00bd 6812 |h | Jump_Zero 0xd0 00be 4801 |H | Short_Literal 0x1 00bf 4801 |H | Short_Literal 0x1 00c0 00e9 | | Load_Encached String_Cache 00c1 035b | [ | Declare_Type Array,Constrained 00c2 0337 | 7 | Declare_Variable Array 00c3 00db | | Load_Top At_Offset_3 00c4 0a40 | @ | Execute_Immediate Plus,0x40 00c5 00d8 | | Load_Top At_Offset_0 00c6 00e8 | | Load_Encached Character_Cache 00c7 0260 | ` | Execute Discrete,In_Type 00c8 7001 |p | Jump_Nonzero 0xca 00c9 0801 | | Execute_Immediate Raise,0x1 00ca 4801 |H | Short_Literal 0x1 00cb 00da | | Load_Top At_Offset_2 00cc 01d6 | | Execute Vector,Field_Write 00cd 00e9 | | Load_Encached String_Cache 00ce 01c6 | | Execute Vector,Convert_To_Formal 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 00da | | Load_Top At_Offset_2 00d1 0aff | | Execute_Immediate Plus,-0x1 00d2 481a |H | Short_Literal 0x1a 00d3 026e | n | Execute Discrete,Modulo 00d4 0a41 | A | Execute_Immediate Plus,0x41 00d5 00d8 | | Load_Top At_Offset_0 00d6 00e8 | | Load_Encached Character_Cache 00d7 0260 | ` | Execute Discrete,In_Type 00d8 7001 |p | Jump_Nonzero 0xda 00d9 0801 | | Execute_Immediate Raise,0x1 00da 00db | | Load_Top At_Offset_3 00db 0aff | | Execute_Immediate Plus,-0x1 00dc 481a |H | Short_Literal 0x1a 00dd 0270 | p | Execute Discrete,Divide 00de 00d8 | | Load_Top At_Offset_0 00df 00e4 | | Load_Encached Positive_Cache 00e0 0260 | ` | Execute Discrete,In_Type 00e1 7001 |p | Jump_Nonzero 0xe3 00e2 0801 | | Execute_Immediate Raise,0x1 00e3 8213 | | Call 0x1,0x13 00e4 01cb | | Execute Vector,Append 00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ed | | .CONST 0x00ed ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0003 | | .CONST 0x0003 ; Number of locals 00eb INIT_00e8: 00eb 00e2 | | Load_Encached Integer_Cache 00ec 00e1 | | Load_Encached Boolean_Cache 00ed BODY_00e8: 00ed 00e1 | | Load_Encached Boolean_Cache 00ee 00e2 | | Load_Encached Integer_Cache 00ef 480a |H | Short_Literal 0xa 00f0 e5ff | | Load 0x2,-0x1 00f1 e001 | | Load 0x0,0x1 00f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f3 005b | [ | Store_Top Discrete,At_Offset_3 00f4 0059 | Y | Store_Top Discrete,At_Offset_1 00f5 00d8 | | Load_Top At_Offset_0 00f6 680b |h | Jump_Zero 0x102 00f7 00d9 | | Load_Top At_Offset_1 00f8 0c01 | | Execute_Immediate Greater_Equal,0x1 00f9 6808 |h | Jump_Zero 0x102 00fa 00d9 | | Load_Top At_Offset_1 00fb 00d8 | | Load_Top At_Offset_0 00fc 00e4 | | Load_Encached Positive_Cache 00fd 0260 | ` | Execute Discrete,In_Type 00fe 7001 |p | Jump_Nonzero 0x100 00ff 0801 | | Execute_Immediate Raise,0x1 0100 8213 | | Call 0x1,0x13 0101 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0102 e5ff | | Load 0x2,-0x1 0103 0335 | 5 | Declare_Variable Array,Duplicate 0104 00cd | | Action Spare6_Action 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 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 4be8 |K | Short_Literal 0x3e8 010d 027d | } | Execute Discrete,Greater 010e 680c |h | Jump_Zero 0x11b 010f 486d |Hm | Short_Literal 0x6d 0110 00db | | Load_Top At_Offset_3 0111 4c18 |L | Short_Literal -0x3e8 0112 0273 | s | Execute Discrete,Plus 0113 00d8 | | Load_Top At_Offset_0 0114 00e4 | | Load_Encached Positive_Cache 0115 0260 | ` | Execute Discrete,In_Type 0116 7001 |p | Jump_Nonzero 0x118 0117 0801 | | Execute_Immediate Raise,0x1 0118 8215 | | Call 0x1,0x15 0119 01ca | | Execute Vector,Prepend 011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011b 00da | | Load_Top At_Offset_2 011c 4be8 |K | Short_Literal 0x3e8 011d 027f | | Execute Discrete,Equal 011e 6803 |h | Jump_Zero 0x122 011f 0092 024e | N| Action Push_String_Extended,0x24e ; "m" 0121 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0122 00da | | Load_Top At_Offset_2 0123 4b84 |K | Short_Literal 0x384 0124 027d | } | Execute Discrete,Greater 0125 680d |h | Jump_Zero 0x133 0126 0092 024f | O| Action Push_String_Extended,0x24f ; "cm" 0128 00db | | Load_Top At_Offset_3 0129 4c7c |L| | Short_Literal -0x384 012a 0273 | s | Execute Discrete,Plus 012b 00d8 | | Load_Top At_Offset_0 012c 00e4 | | Load_Encached Positive_Cache 012d 0260 | ` | Execute Discrete,In_Type 012e 7001 |p | Jump_Nonzero 0x130 012f 0801 | | Execute_Immediate Raise,0x1 0130 8215 | | Call 0x1,0x15 0131 01cc | | Execute Vector,Catenate 0132 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0133 00da | | Load_Top At_Offset_2 0134 4b84 |K | Short_Literal 0x384 0135 027f | | Execute Discrete,Equal 0136 6803 |h | Jump_Zero 0x13a 0137 0092 024f | O| Action Push_String_Extended,0x24f ; "cm" 0139 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013a 00da | | Load_Top At_Offset_2 013b 49f4 |I | Short_Literal 0x1f4 013c 027d | } | Execute Discrete,Greater 013d 680c |h | Jump_Zero 0x14a 013e 4864 |Hd | Short_Literal 0x64 013f 00db | | Load_Top At_Offset_3 0140 4e0c |N | Short_Literal -0x1f4 0141 0273 | s | Execute Discrete,Plus 0142 00d8 | | Load_Top At_Offset_0 0143 00e4 | | Load_Encached Positive_Cache 0144 0260 | ` | Execute Discrete,In_Type 0145 7001 |p | Jump_Nonzero 0x147 0146 0801 | | Execute_Immediate Raise,0x1 0147 8215 | | Call 0x1,0x15 0148 01ca | | Execute Vector,Prepend 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 00da | | Load_Top At_Offset_2 014b 49f4 |I | Short_Literal 0x1f4 014c 027f | | Execute Discrete,Equal 014d 6803 |h | Jump_Zero 0x151 014e 0092 0250 | P| Action Push_String_Extended,0x250 ; "d" 0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0151 00da | | Load_Top At_Offset_2 0152 4990 |I | Short_Literal 0x190 0153 027d | } | Execute Discrete,Greater 0154 680d |h | Jump_Zero 0x162 0155 0092 0251 | Q| Action Push_String_Extended,0x251 ; "cd" 0157 00db | | Load_Top At_Offset_3 0158 4e70 |Np | Short_Literal -0x190 0159 0273 | s | Execute Discrete,Plus 015a 00d8 | | Load_Top At_Offset_0 015b 00e4 | | Load_Encached Positive_Cache 015c 0260 | ` | Execute Discrete,In_Type 015d 7001 |p | Jump_Nonzero 0x15f 015e 0801 | | Execute_Immediate Raise,0x1 015f 8215 | | Call 0x1,0x15 0160 01cc | | Execute Vector,Catenate 0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0162 00da | | Load_Top At_Offset_2 0163 4990 |I | Short_Literal 0x190 0164 027f | | Execute Discrete,Equal 0165 6803 |h | Jump_Zero 0x169 0166 0092 0251 | Q| Action Push_String_Extended,0x251 ; "cd" 0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0169 00da | | Load_Top At_Offset_2 016a 0c65 | e | Execute_Immediate Greater_Equal,0x65 016b 680b |h | Jump_Zero 0x177 016c 4863 |Hc | Short_Literal 0x63 016d 00db | | Load_Top At_Offset_3 016e 0a9c | | Execute_Immediate Plus,-0x64 016f 00d8 | | Load_Top At_Offset_0 0170 00e4 | | Load_Encached Positive_Cache 0171 0260 | ` | Execute Discrete,In_Type 0172 7001 |p | Jump_Nonzero 0x174 0173 0801 | | Execute_Immediate Raise,0x1 0174 8215 | | Call 0x1,0x15 0175 01ca | | Execute Vector,Prepend 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 00da | | Load_Top At_Offset_2 0178 0f64 | d | Execute_Immediate Equal,0x64 0179 6803 |h | Jump_Zero 0x17d 017a 0092 0252 | R| Action Push_String_Extended,0x252 ; "c" 017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017d 00da | | Load_Top At_Offset_2 017e 0c5b | [ | Execute_Immediate Greater_Equal,0x5b 017f 680c |h | Jump_Zero 0x18c 0180 0092 0253 | S| Action Push_String_Extended,0x253 ; "xc" 0182 00db | | Load_Top At_Offset_3 0183 0aa6 | | Execute_Immediate Plus,-0x5a 0184 00d8 | | Load_Top At_Offset_0 0185 00e4 | | Load_Encached Positive_Cache 0186 0260 | ` | Execute Discrete,In_Type 0187 7001 |p | Jump_Nonzero 0x189 0188 0801 | | Execute_Immediate Raise,0x1 0189 8215 | | Call 0x1,0x15 018a 01cc | | Execute Vector,Catenate 018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018c 00da | | Load_Top At_Offset_2 018d 0f5a | Z | Execute_Immediate Equal,0x5a 018e 6803 |h | Jump_Zero 0x192 018f 0092 0253 | S| Action Push_String_Extended,0x253 ; "xc" 0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0192 00da | | Load_Top At_Offset_2 0193 0c33 | 3 | Execute_Immediate Greater_Equal,0x33 0194 680b |h | Jump_Zero 0x1a0 0195 486c |Hl | Short_Literal 0x6c 0196 00db | | Load_Top At_Offset_3 0197 0ace | | Execute_Immediate Plus,-0x32 0198 00d8 | | Load_Top At_Offset_0 0199 00e4 | | Load_Encached Positive_Cache 019a 0260 | ` | Execute Discrete,In_Type 019b 7001 |p | Jump_Nonzero 0x19d 019c 0801 | | Execute_Immediate Raise,0x1 019d 8215 | | Call 0x1,0x15 019e 01ca | | Execute Vector,Prepend 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 00da | | Load_Top At_Offset_2 01a1 0f32 | 2 | Execute_Immediate Equal,0x32 01a2 6803 |h | Jump_Zero 0x1a6 01a3 0092 0254 | T| Action Push_String_Extended,0x254 ; "l" 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 00da | | Load_Top At_Offset_2 01a7 0c29 | ) | Execute_Immediate Greater_Equal,0x29 01a8 680c |h | Jump_Zero 0x1b5 01a9 0092 0255 | U| Action Push_String_Extended,0x255 ; "xl" 01ab 00db | | Load_Top At_Offset_3 01ac 0ad8 | | Execute_Immediate Plus,-0x28 01ad 00d8 | | Load_Top At_Offset_0 01ae 00e4 | | Load_Encached Positive_Cache 01af 0260 | ` | Execute Discrete,In_Type 01b0 7001 |p | Jump_Nonzero 0x1b2 01b1 0801 | | Execute_Immediate Raise,0x1 01b2 8215 | | Call 0x1,0x15 01b3 01cc | | Execute Vector,Catenate 01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b5 00da | | Load_Top At_Offset_2 01b6 0f28 | ( | Execute_Immediate Equal,0x28 01b7 6803 |h | Jump_Zero 0x1bb 01b8 0092 0255 | U| Action Push_String_Extended,0x255 ; "xl" 01ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bb 00da | | Load_Top At_Offset_2 01bc 0c0b | | Execute_Immediate Greater_Equal,0xb 01bd 680b |h | Jump_Zero 0x1c9 01be 4878 |Hx | Short_Literal 0x78 01bf 00db | | Load_Top At_Offset_3 01c0 0af6 | | Execute_Immediate Plus,-0xa 01c1 00d8 | | Load_Top At_Offset_0 01c2 00e4 | | Load_Encached Positive_Cache 01c3 0260 | ` | Execute Discrete,In_Type 01c4 7001 |p | Jump_Nonzero 0x1c6 01c5 0801 | | Execute_Immediate Raise,0x1 01c6 8215 | | Call 0x1,0x15 01c7 01ca | | Execute Vector,Prepend 01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c9 00da | | Load_Top At_Offset_2 01ca 0f0a | | Execute_Immediate Equal,0xa 01cb 6803 |h | Jump_Zero 0x1cf 01cc 0092 0256 | V| Action Push_String_Extended,0x256 ; "x" 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 00da | | Load_Top At_Offset_2 01d0 0f09 | | Execute_Immediate Equal,0x9 01d1 6803 |h | Jump_Zero 0x1d5 01d2 0092 0257 | W| Action Push_String_Extended,0x257 ; "ix" 01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d5 00da | | Load_Top At_Offset_2 01d6 0f08 | | Execute_Immediate Equal,0x8 01d7 6803 |h | Jump_Zero 0x1db 01d8 0092 0258 | X| Action Push_String_Extended,0x258 ; "viii" 01da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01db 00da | | Load_Top At_Offset_2 01dc 0f07 | | Execute_Immediate Equal,0x7 01dd 6803 |h | Jump_Zero 0x1e1 01de 0092 0259 | Y| Action Push_String_Extended,0x259 ; "vii" 01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e1 00da | | Load_Top At_Offset_2 01e2 0f06 | | Execute_Immediate Equal,0x6 01e3 6803 |h | Jump_Zero 0x1e7 01e4 0092 025a | Z| Action Push_String_Extended,0x25a ; "vi" 01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e7 00da | | Load_Top At_Offset_2 01e8 0f05 | | Execute_Immediate Equal,0x5 01e9 6803 |h | Jump_Zero 0x1ed 01ea 0092 025b | [| Action Push_String_Extended,0x25b ; "v" 01ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ed 00da | | Load_Top At_Offset_2 01ee 0f04 | | Execute_Immediate Equal,0x4 01ef 6803 |h | Jump_Zero 0x1f3 01f0 0092 025c | \| Action Push_String_Extended,0x25c ; "iv" 01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f3 00da | | Load_Top At_Offset_2 01f4 0f03 | | Execute_Immediate Equal,0x3 01f5 6803 |h | Jump_Zero 0x1f9 01f6 0092 025d | ]| Action Push_String_Extended,0x25d ; "iii" 01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f9 00da | | Load_Top At_Offset_2 01fa 0f02 | | Execute_Immediate Equal,0x2 01fb 6803 |h | Jump_Zero 0x1ff 01fc 0092 025e | ^| Action Push_String_Extended,0x25e ; "ii" 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff 0092 025f | _| Action Push_String_Extended,0x25f ; "i" 0201 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020d | | .CONST 0x020d ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b 00e2 | | Load_Encached Integer_Cache 020c 00e1 | | Load_Encached Boolean_Cache 020d BODY_0208: 020d 00e1 | | Load_Encached Boolean_Cache 020e 00e2 | | Load_Encached Integer_Cache 020f 480a |H | Short_Literal 0xa 0210 e5ff | | Load 0x2,-0x1 0211 e001 | | Load 0x0,0x1 0212 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0213 005b | [ | Store_Top Discrete,At_Offset_3 0214 0059 | Y | Store_Top Discrete,At_Offset_1 0215 00d8 | | Load_Top At_Offset_0 0216 680b |h | Jump_Zero 0x222 0217 00d9 | | Load_Top At_Offset_1 0218 0c01 | | Execute_Immediate Greater_Equal,0x1 0219 6808 |h | Jump_Zero 0x222 021a 00d9 | | Load_Top At_Offset_1 021b 00d8 | | Load_Top At_Offset_0 021c 00e4 | | Load_Encached Positive_Cache 021d 0260 | ` | Execute Discrete,In_Type 021e 7001 |p | Jump_Nonzero 0x220 021f 0801 | | Execute_Immediate Raise,0x1 0220 8215 | | Call 0x1,0x15 0221 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0222 e5ff | | Load 0x2,-0x1 0223 0335 | 5 | Declare_Variable Array,Duplicate 0224 00cd | | Action Spare6_Action 0225 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 8215 | | Call 0x1,0x15 022d e001 | | Load 0x0,0x1 022e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0235 | 5 | .CONST 0x0235 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0003 | | .CONST 0x0003 ; Number of locals 0233 INIT_0230: 0233 00e2 | | Load_Encached Integer_Cache 0234 00e1 | | Load_Encached Boolean_Cache 0235 BODY_0230: 0235 00e1 | | Load_Encached Boolean_Cache 0236 00e2 | | Load_Encached Integer_Cache 0237 480a |H | Short_Literal 0xa 0238 e5ff | | Load 0x2,-0x1 0239 e001 | | Load 0x0,0x1 023a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 023b 005b | [ | Store_Top Discrete,At_Offset_3 023c 0059 | Y | Store_Top Discrete,At_Offset_1 023d 00d8 | | Load_Top At_Offset_0 023e 680b |h | Jump_Zero 0x24a 023f 00d9 | | Load_Top At_Offset_1 0240 0c01 | | Execute_Immediate Greater_Equal,0x1 0241 6808 |h | Jump_Zero 0x24a 0242 00d9 | | Load_Top At_Offset_1 0243 00d8 | | Load_Top At_Offset_0 0244 00e4 | | Load_Encached Positive_Cache 0245 0260 | ` | Execute Discrete,In_Type 0246 7001 |p | Jump_Nonzero 0x248 0247 0801 | | Execute_Immediate Raise,0x1 0248 8217 | | Call 0x1,0x17 0249 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024a e5ff | | Load 0x2,-0x1 024b 0335 | 5 | Declare_Variable Array,Duplicate 024c 00cd | | Action Spare6_Action 024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024e ; -------------------------------------------------------------------------------------- 024e ; STRING TABLE 024e ; -------------------------------------------------------------------------------------- 024e 0026 | & | .STRTAB 0x0026->0x0261 ; "m" 024f 0025 | % | .STRTAB 0x0025->0x0261 ; "cm" 0250 0025 | % | .STRTAB 0x0025->0x0262 ; "d" 0251 0024 | $ | .STRTAB 0x0024->0x0263 ; "cd" 0252 0024 | $ | .STRTAB 0x0024->0x0264 ; "c" 0253 0023 | # | .STRTAB 0x0023->0x0264 ; "xc" 0254 0023 | # | .STRTAB 0x0023->0x0265 ; "l" 0255 0022 | " | .STRTAB 0x0022->0x0266 ; "xl" 0256 0022 | " | .STRTAB 0x0022->0x0267 ; "x" 0257 0021 | ! | .STRTAB 0x0021->0x0267 ; "ix" 0258 0021 | ! | .STRTAB 0x0021->0x0268 ; "viii" 0259 0023 | # | .STRTAB 0x0023->0x026a ; "vii" 025a 0024 | $ | .STRTAB 0x0024->0x026c ; "vi" 025b 0024 | $ | .STRTAB 0x0024->0x026d ; "v" 025c 0023 | # | .STRTAB 0x0023->0x026d ; "iv" 025d 0023 | # | .STRTAB 0x0023->0x026e ; "iii" 025e 0024 | $ | .STRTAB 0x0024->0x0270 ; "ii" 025f 0024 | $ | .STRTAB 0x0024->0x0271 ; "i" 0260 0023 | # | .STREND 0x0023->0x0271 0261 6d63 6d64 |mcmd| .STRTAB_STRINGS 0272 0000 0000 | | .BLANK 0000[0x6] 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug Table 0278 ; -------------------------------------------------------------------------------------- 0278 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc792,0x0000,0x0001,0x0000 027e 0000 0000 | | .BLANK 0000[0x11] 028f 0801 4000 | @ | .XXX[0xc] 0291 0000 0000 | | 0293 0010 0000 | | 0295 0088 0000 | | 0297 0000 4000 | @ | 0299 0002 8000 | | 029b 0000 0000 | | .BLANK 0000[0x2d] 02c8 0100 2800 | ( | .XXX[0xc] 02ca 0000 0000 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5000 | P | 02d4 0000 0000 | | .BLANK 0000[0x2d] 0301 0020 0500 | | .XXX[0xc] 0303 0000 0000 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a00 | | 030d 0000 0000 | | .BLANK 0000[0x2d] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]