|
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_03bcfe
└─⟦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 0318 | | .CONST 0x0318 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0064 | d | .CONST 0x0064 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 000d 0129 | ) | Execute Any,Make_Visible 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 4801 |H | Short_Literal 0x1 001d 4802 |H | Short_Literal 0x2 001e 00e2 | | Load_Encached Integer_Cache 001f 03f9 | | Declare_Type Discrete,Constrained,Visible 0020 c21a | | Store 0x1,0x1a 0021 e21a | | Load 0x1,0x1a 0022 0402 | | Execute_Immediate Set_Value_Visible_Unchecked,0x2 0023 c21b | | Store 0x1,0x1b 0024 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0026 c20e | | Store 0x1,0xe 0027 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0029 c20f | | Store 0x1,0xf 002a 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 002c c210 | | Store 0x1,0x10 002d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 002f c211 | | Store 0x1,0x11 0030 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0032 c212 | | Store 0x1,0x12 0033 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0035 c213 | | Store 0x1,0x13 0036 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0038 c214 | | Store 0x1,0x14 0039 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 003b c215 | | Store 0x1,0x15 003c 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 003e c216 | | Store 0x1,0x16 003f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0041 c217 | | Store 0x1,0x17 0042 00bf | | Action Accept_Activation 0043 e002 | | Load 0x0,0x2 0044 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0045 0007 | | Action Break_Optional 0046 e001 | | Load 0x0,0x1 0047 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0048 00e1 | | Load_Encached Boolean_Cache 0049 00e3 | | Load_Encached Natural_Cache 004a 00e3 | | Load_Encached Natural_Cache 004b 00e1 | | Load_Encached Boolean_Cache 004c e001 | | Load 0x0,0x1 004d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004f 00c7 | | Action Elaborate_Subprogram 0050 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call 0052 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0053 00c7 | | Action Elaborate_Subprogram 0054 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0055 00c7 | | Action Elaborate_Subprogram 0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0057 00c7 | | Action Elaborate_Subprogram 0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0059 00c7 | | Action Elaborate_Subprogram 005a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005b 00c7 | | Action Elaborate_Subprogram 005c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005d 00c7 | | Action Elaborate_Subprogram 005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 005f 00c7 | | Action Elaborate_Subprogram 0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0061 00c7 | | Action Elaborate_Subprogram 0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0063 00c7 | | Action Elaborate_Subprogram 0064 BODY_0008: 0064 00bc | | Action Signal_Activated 0065 00bb | | Action Signal_Completion 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0077 | w | .CONST 0x0077 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00e1 | | Load_Encached Boolean_Cache 006c e5ff | | Load 0x2,-0x1 006d e002 | | Load 0x0,0x2 006e 180e | | Execute Package,Field_Execute,Field_Number 0xe 006f c5fe | | Store 0x2,-0x2 0070 e5fe | | Load 0x2,-0x2 0071 7001 |p | Jump_Nonzero 0x73 0072 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0073 8223 | # | Call 0x1,0x23 0074 e002 | | Load 0x0,0x2 0075 180f | | Execute Package,Field_Execute,Field_Number 0xf 0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0077 TRAP_0068: 0077 e002 | | Load 0x0,0x2 0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0079 010f | | Execute Exception,Equal 007a 6803 |h | Jump_Zero 0x7e 007b e001 | | Load 0x0,0x1 007c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 007d 0257 | W | Execute Discrete,Raise 007e e002 | | Load 0x0,0x2 007f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0080 00d8 | | Load_Top At_Offset_0 0081 0101 | | Execute Exception,Reraise 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0092 | | .CONST 0x0092 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b e5ff | | Load 0x2,-0x1 008c e002 | | Load 0x0,0x2 008d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 008e 8223 | # | Call 0x1,0x23 008f e002 | | Load 0x0,0x2 0090 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0091 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0092 TRAP_0088: 0092 e002 | | Load 0x0,0x2 0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0094 010f | | Execute Exception,Equal 0095 6803 |h | Jump_Zero 0x99 0096 e001 | | Load 0x0,0x1 0097 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0098 0257 | W | Execute Discrete,Raise 0099 e002 | | Load 0x0,0x2 009a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009b 00d8 | | Load_Top At_Offset_0 009c 0101 | | Execute Exception,Reraise 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 4800 |H | Short_Literal 0x0 00a4 a21e | | Store_Unchecked 0x1,0x1e 00a5 4800 |H | Short_Literal 0x0 00a6 a21f | | Store_Unchecked 0x1,0x1f 00a7 4800 |H | Short_Literal 0x0 00a8 a220 | | Store_Unchecked 0x1,0x20 00a9 493e |I> | Short_Literal 0x13e 00aa e003 | | Load 0x0,0x3 00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ac 493f |I? | Short_Literal 0x13f 00ad a21d | | Store_Unchecked 0x1,0x1d 00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4800 |H | Short_Literal 0x0 00b4 a221 | ! | Store_Unchecked 0x1,0x21 00b5 4800 |H | Short_Literal 0x0 00b6 a21e | | Store_Unchecked 0x1,0x1e 00b7 4800 |H | Short_Literal 0x0 00b8 a21f | | Store_Unchecked 0x1,0x1f 00b9 4800 |H | Short_Literal 0x0 00ba a220 | | Store_Unchecked 0x1,0x20 00bb 493f |I? | Short_Literal 0x13f 00bc e003 | | Load 0x0,0x3 00bd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00be 493f |I? | Short_Literal 0x13f 00bf a21d | | Store_Unchecked 0x1,0x1d 00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c1 0000 0000 | | .BLANK 0000[0x7] 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 4801 |H | Short_Literal 0x1 00cc a221 | ! | Store_Unchecked 0x1,0x21 00cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 4801 |H | Short_Literal 0x1 00d4 a21e | | Store_Unchecked 0x1,0x1e 00d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d6 0000 0000 | | .XXX[0x2] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00dd | | .CONST 0x00dd ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db e21f | | Load 0x1,0x1f 00dc 0007 | | Action Break_Optional 00dd BODY_00d8: 00dd 4800 |H | Short_Literal 0x0 00de a21f | | Store_Unchecked 0x1,0x1f 00df 4800 |H | Short_Literal 0x0 00e0 a221 | ! | Store_Unchecked 0x1,0x21 00e1 00cf | | Action Mark_Auxiliary 00e2 7807 |x | Jump 0xea 00e3 e220 | | Load 0x1,0x20 00e4 0aff | | Execute_Immediate Plus,-0x1 00e5 c220 | | Store 0x1,0x20 00e6 493f |I? | Short_Literal 0x13f 00e7 e003 | | Load 0x0,0x3 00e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e9 00c9 | | Action Pop_Auxiliary_Loop 00ea e220 | | Load 0x1,0x20 00eb 0c01 | | Execute_Immediate Greater_Equal,0x1 00ec 77f6 |w | Jump_Nonzero 0xe3 00ed 00ce | | Action Pop_Auxiliary 00ee e21e | | Load 0x1,0x1e 00ef 682f |h/ | Jump_Zero 0x11f 00f0 4800 |H | Short_Literal 0x0 00f1 a21e | | Store_Unchecked 0x1,0x1e 00f2 e20d | | Load 0x1,0xd 00f3 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 00f4 6819 |h | Jump_Zero 0x10e 00f5 e001 | | Load 0x0,0x1 00f6 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00f7 680f |h | Jump_Zero 0x107 00f8 4800 |H | Short_Literal 0x0 00f9 4800 |H | Short_Literal 0x0 00fa 4829 |H) | Short_Literal 0x29 00fb 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "Command => paragraph (" 00fd e20d | | Load 0x1,0xd 00fe 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 00ff e001 | | Load 0x0,0x1 0100 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0101 011c | | Execute Any,Convert_Unchecked 0102 1c01 | | Execute_Immediate Run_Utility,0x1 0103 01cc | | Execute Vector,Catenate 0104 01cb | | Execute Vector,Append 0105 e004 | | Load 0x0,0x4 0106 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0107 e222 | " | Load 0x1,0x22 0108 00ea | | Load_Encached Null_String_Cache 0109 e20d | | Load 0x1,0xd 010a 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 010b e005 | | Load 0x0,0x5 010c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 010d 7806 |x | Jump 0x114 010e 493e |I> | Short_Literal 0x13e 010f e003 | | Load 0x0,0x3 0110 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0111 493f |I? | Short_Literal 0x13f 0112 e003 | | Load 0x0,0x3 0113 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0114 e20d | | Load 0x1,0xd 0115 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d 0116 6813 |h | Jump_Zero 0x12a 0117 e20d | | Load 0x1,0xd 0118 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d 0119 e20d | | Load 0x1,0xd 011a 381c |8 | Execute Record,Field_Write,Field_Number 0x1c 011b 4800 |H | Short_Literal 0x0 011c e20d | | Load 0x1,0xd 011d 381d |8 | Execute Record,Field_Write,Field_Number 0x1d 011e 780b |x | Jump 0x12a 011f 00cf | | Action Mark_Auxiliary 0120 e402 | | Load 0x2,0x2 0121 4801 |H | Short_Literal 0x1 0122 0263 | c | Execute Discrete,Above_Bound 0123 7005 |p | Jump_Nonzero 0x129 0124 4820 |H | Short_Literal 0x20 0125 e003 | | Load 0x0,0x3 0126 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0127 00c8 | | Action Pop_Auxiliary_Range 0128 3ffb |? | Loop_Increasing 0x124 0129 00ce | | Action Pop_Auxiliary 012a e5ff | | Load 0x2,-0x1 012b e003 | | Load 0x0,0x3 012c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 012d e5ff | | Load 0x2,-0x1 012e a21d | | Store_Unchecked 0x1,0x1d 012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e220 | | Load 0x1,0x20 0134 0c01 | | Execute_Immediate Greater_Equal,0x1 0135 6811 |h | Jump_Zero 0x147 0136 4801 |H | Short_Literal 0x1 0137 4800 |H | Short_Literal 0x0 0138 e220 | | Load 0x1,0x20 0139 e20d | | Load 0x1,0xd 013a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 013b 0271 | q | Execute Discrete,Times 013c e001 | | Load 0x0,0x1 013d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 013e 00d9 | | Load_Top At_Offset_1 013f 00d0 | | Action Swap_Control 0140 0260 | ` | Execute Discrete,In_Type 0141 7001 |p | Jump_Nonzero 0x143 0142 0801 | | Execute_Immediate Raise,0x1 0143 e005 | | Load 0x0,0x5 0144 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0145 4800 |H | Short_Literal 0x0 0146 a220 | | Store_Unchecked 0x1,0x20 0147 e21f | | Load 0x1,0x1f 0148 0c01 | | Execute_Immediate Greater_Equal,0x1 0149 680a |h | Jump_Zero 0x154 014a e5ff | | Load 0x2,-0x1 014b 6803 |h | Jump_Zero 0x14f 014c 4800 |H | Short_Literal 0x0 014d a21f | | Store_Unchecked 0x1,0x1f 014e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014f e21f | | Load 0x1,0x1f 0150 0aff | | Execute_Immediate Plus,-0x1 0151 c21f | | Store 0x1,0x1f 0152 4820 |H | Short_Literal 0x20 0153 8214 | | Call 0x1,0x14 0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e5ff | | Load 0x2,-0x1 015c 6804 |h | Jump_Zero 0x161 015d 4800 |H | Short_Literal 0x0 015e a21f | | Store_Unchecked 0x1,0x1f 015f 4800 |H | Short_Literal 0x0 0160 a220 | | Store_Unchecked 0x1,0x20 0161 4800 |H | Short_Literal 0x0 0162 a21e | | Store_Unchecked 0x1,0x1e 0163 4944 |ID | Short_Literal 0x144 0164 e003 | | Load 0x0,0x3 0165 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0167 0000 | | .XXX[0x1] 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 4802 |H | Short_Literal 0x2 016c a21b | | Store_Unchecked 0x1,0x1b 016d 493f |I? | Short_Literal 0x13f 016e a21d | | Store_Unchecked 0x1,0x1d 016f 4800 |H | Short_Literal 0x0 0170 a21e | | Store_Unchecked 0x1,0x1e 0171 4800 |H | Short_Literal 0x0 0172 a21f | | Store_Unchecked 0x1,0x1f 0173 4800 |H | Short_Literal 0x0 0174 a220 | | Store_Unchecked 0x1,0x20 0175 4800 |H | Short_Literal 0x0 0176 a221 | ! | Store_Unchecked 0x1,0x21 0177 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017f | | .CONST 0x017f ; Address of begin 0179 02cd | | .CONST 0x02cd ; Address of exception handler 017a 0004 | | .CONST 0x0004 ; Number of locals 017b INIT_0178: 017b 00e8 | | Load_Encached Character_Cache 017c e001 | | Load 0x0,0x1 017d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 017e 00e3 | | Load_Encached Natural_Cache 017f BODY_0178: 017f 00cf | | Action Mark_Auxiliary 0180 e402 | | Load 0x2,0x2 0181 821c | | Call 0x1,0x1c 0182 c402 | | Store 0x2,0x2 0183 e402 | | Load 0x2,0x2 0184 00d8 | | Load_Top At_Offset_0 0185 0d04 | | Execute_Immediate Less,0x4 0186 704a |pJ | Jump_Nonzero 0x1d1 0187 00d8 | | Load_Top At_Offset_0 0188 0c21 | ! | Execute_Immediate Greater_Equal,0x21 0189 7044 |pD | Jump_Nonzero 0x1ce 018a 0afc | | Execute_Immediate Plus,-0x4 018b 461c |F | Jump_Case 0x1d 018c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0 018d 7844 |xD | Jump 0x1d2 ; case 0x1 018e 7843 |xC | Jump 0x1d2 ; case 0x2 018f 7842 |xB | Jump 0x1d2 ; case 0x3 0190 7841 |xA | Jump 0x1d2 ; case 0x4 0191 7935 |y5 | Jump 0x2c7 ; case 0x5 0192 78f6 |x | Jump 0x289 ; case 0x6 0193 783e |x> | Jump 0x1d2 ; case 0x7 0194 783d |x= | Jump 0x1d2 ; case 0x8 0195 783c |x< | Jump 0x1d2 ; case 0x9 0196 783b |x; | Jump 0x1d2 ; case 0xa 0197 783a |x: | Jump 0x1d2 ; case 0xb 0198 7839 |x9 | Jump 0x1d2 ; case 0xc 0199 7838 |x8 | Jump 0x1d2 ; case 0xd 019a 7837 |x7 | Jump 0x1d2 ; case 0xe 019b 7836 |x6 | Jump 0x1d2 ; case 0xf 019c 7835 |x5 | Jump 0x1d2 ; case 0x10 019d 7834 |x4 | Jump 0x1d2 ; case 0x11 019e 7833 |x3 | Jump 0x1d2 ; case 0x12 019f 7832 |x2 | Jump 0x1d2 ; case 0x13 01a0 7831 |x1 | Jump 0x1d2 ; case 0x14 01a1 7830 |x0 | Jump 0x1d2 ; case 0x15 01a2 782f |x/ | Jump 0x1d2 ; case 0x16 01a3 782e |x. | Jump 0x1d2 ; case 0x17 01a4 782d |x- | Jump 0x1d2 ; case 0x18 01a5 782c |x, | Jump 0x1d2 ; case 0x19 01a6 782b |x+ | Jump 0x1d2 ; case 0x1a 01a7 782a |x* | Jump 0x1d2 ; case 0x1b 01a8 7800 |x | Jump 0x1a9 ; case 0x1c 01a9 e20d | | Load 0x1,0xd 01aa 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01ab 681e |h | Jump_Zero 0x1ca 01ac e21d | | Load 0x1,0x1d 01ad 00d8 | | Load_Top At_Offset_0 01ae 0d21 | ! | Execute_Immediate Less,0x21 01af 700b |p | Jump_Nonzero 0x1bb 01b0 00d8 | | Load_Top At_Offset_0 01b1 0c2f | / | Execute_Immediate Greater_Equal,0x2f 01b2 7005 |p | Jump_Nonzero 0x1b8 01b3 4822 |H" | Short_Literal 0x22 01b4 482d |H- | Short_Literal 0x2d 01b5 0262 | b | Execute Discrete,In_Range 01b6 7005 |p | Jump_Nonzero 0x1bc 01b7 780a |x | Jump 0x1c2 01b8 0f3f | ? | Execute_Immediate Equal,0x3f 01b9 7008 |p | Jump_Nonzero 0x1c2 01ba 7801 |x | Jump 0x1bc 01bb 00d1 | | Pop_Control Pop_Count_1 01bc e21f | | Load 0x1,0x1f 01bd 0d01 | | Execute_Immediate Less,0x1 01be 690c |i | Jump_Zero 0x2cb 01bf 4801 |H | Short_Literal 0x1 01c0 a21f | | Store_Unchecked 0x1,0x1f 01c1 7909 |y | Jump 0x2cb 01c2 e21f | | Load 0x1,0x1f 01c3 e21b | | Load 0x1,0x1b 01c4 027c | | | Execute Discrete,Less 01c5 6905 |i | Jump_Zero 0x2cb 01c6 e21f | | Load 0x1,0x1f 01c7 0a01 | | Execute_Immediate Plus,0x1 01c8 c21f | | Store 0x1,0x1f 01c9 7901 |y | Jump 0x2cb 01ca e21f | | Load 0x1,0x1f 01cb 0a01 | | Execute_Immediate Plus,0x1 01cc c21f | | Store 0x1,0x1f 01cd 78fd |x | Jump 0x2cb 01ce 0f7e | ~ | Execute_Immediate Equal,0x7e 01cf 700b |p | Jump_Nonzero 0x1db 01d0 7801 |x | Jump 0x1d2 01d1 00d1 | | Pop_Control Pop_Count_1 01d2 e402 | | Load 0x2,0x2 01d3 00d8 | | Load_Top At_Offset_0 01d4 e001 | | Load 0x0,0x1 01d5 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 01d6 0260 | ` | Execute Discrete,In_Type 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 0801 | | Execute_Immediate Raise,0x1 01d9 8214 | | Call 0x1,0x14 01da 78f0 |x | Jump 0x2cb 01db e402 | | Load 0x2,0x2 01dc 821c | | Call 0x1,0x1c 01dd c402 | | Store 0x2,0x2 01de e402 | | Load 0x2,0x2 01df 00d8 | | Load_Top At_Offset_0 01e0 0d3c | < | Execute_Immediate Less,0x3c 01e1 701a |p | Jump_Nonzero 0x1fc 01e2 00d8 | | Load_Top At_Offset_0 01e3 0c3f | ? | Execute_Immediate Greater_Equal,0x3f 01e4 7005 |p | Jump_Nonzero 0x1ea 01e5 0b3c | < | Execute_Immediate Case_Compare,0x3c 01e6 7059 |pY | Jump_Nonzero 0x240 01e7 0f3e | > | Execute_Immediate Equal,0x3e 01e8 7049 |pI | Jump_Nonzero 0x232 01e9 7821 |x! | Jump 0x20b 01ea 00d8 | | Load_Top At_Offset_0 01eb 0d7b | { | Execute_Immediate Less,0x7b 01ec 7005 |p | Jump_Nonzero 0x1f2 01ed 0b7c | | | Execute_Immediate Case_Compare,0x7c 01ee 7034 |p4 | Jump_Nonzero 0x223 01ef 0f7e | ~ | Execute_Immediate Equal,0x7e 01f0 702c |p, | Jump_Nonzero 0x21d 01f1 7819 |x | Jump 0x20b 01f2 00d8 | | Load_Top At_Offset_0 01f3 4841 |HA | Short_Literal 0x41 01f4 485a |HZ | Short_Literal 0x5a 01f5 0262 | b | Execute Discrete,In_Range 01f6 705f |p_ | Jump_Nonzero 0x256 01f7 4861 |Ha | Short_Literal 0x61 01f8 487a |Hz | Short_Literal 0x7a 01f9 0262 | b | Execute Discrete,In_Range 01fa 705c |p\ | Jump_Nonzero 0x257 01fb 780f |x | Jump 0x20b 01fc 00d8 | | Load_Top At_Offset_0 01fd 0d04 | | Execute_Immediate Less,0x4 01fe 700b |p | Jump_Nonzero 0x20a 01ff 00d8 | | Load_Top At_Offset_0 0200 0c0b | | Execute_Immediate Greater_Equal,0xb 0201 7005 |p | Jump_Nonzero 0x207 0202 4805 |H | Short_Literal 0x5 0203 4809 |H | Short_Literal 0x9 0204 0262 | b | Execute Discrete,In_Range 0205 7005 |p | Jump_Nonzero 0x20b 0206 787f |x | Jump 0x286 0207 0f20 | | Execute_Immediate Equal,0x20 0208 7017 |p | Jump_Nonzero 0x220 0209 7801 |x | Jump 0x20b 020a 00d1 | | Pop_Control Pop_Count_1 020b 4801 |H | Short_Literal 0x1 020c 4802 |H | Short_Literal 0x2 020d 00e9 | | Load_Encached String_Cache 020e 0334 | 4 | Declare_Variable Array,With_Constraint 020f 487e |H~ | Short_Literal 0x7e 0210 4801 |H | Short_Literal 0x1 0211 e406 | | Load 0x2,0x6 0212 01d6 | | Execute Vector,Field_Write 0213 e402 | | Load 0x2,0x2 0214 4802 |H | Short_Literal 0x2 0215 e406 | | Load 0x2,0x6 0216 01d6 | | Execute Vector,Field_Write 0217 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " is not a command" 0219 01cc | | Execute Vector,Catenate 021a e004 | | Load 0x0,0x4 021b 180e | | Execute Package,Field_Execute,Field_Number 0xe 021c 78ae |x | Jump 0x2cb 021d 487e |H~ | Short_Literal 0x7e 021e 8214 | | Call 0x1,0x14 021f 78ab |x | Jump 0x2cb 0220 4820 |H | Short_Literal 0x20 0221 8214 | | Call 0x1,0x14 0222 78a8 |x | Jump 0x2cb 0223 00d1 | | Pop_Control Pop_Count_1 0224 e001 | | Load 0x0,0x1 0225 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0226 6806 |h | Jump_Zero 0x22d 0227 4800 |H | Short_Literal 0x0 0228 4800 |H | Short_Literal 0x0 0229 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "Command => SET_LEFT_MARGIN" 022b e004 | | Load 0x0,0x4 022c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022d e003 | | Load 0x0,0x3 022e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 022f e20d | | Load 0x1,0xd 0230 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 0231 7899 |x | Jump 0x2cb 0232 e001 | | Load 0x0,0x1 0233 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0234 6806 |h | Jump_Zero 0x23b 0235 4800 |H | Short_Literal 0x0 0236 4800 |H | Short_Literal 0x0 0237 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "Command => TAB" 0239 e004 | | Load 0x0,0x4 023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023b 4800 |H | Short_Literal 0x0 023c a21f | | Store_Unchecked 0x1,0x1f 023d 4940 |I@ | Short_Literal 0x140 023e 8214 | | Call 0x1,0x14 023f 788b |x | Jump 0x2cb 0240 00d1 | | Pop_Control Pop_Count_1 0241 e001 | | Load 0x0,0x1 0242 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0243 6806 |h | Jump_Zero 0x24a 0244 4800 |H | Short_Literal 0x0 0245 4800 |H | Short_Literal 0x0 0246 0092 02da | | Action Push_String_Extended,0x2da ; "Command => LINE_BREAK" 0248 e004 | | Load 0x0,0x4 0249 1810 | | Execute Package,Field_Execute,Field_Number 0x10 024a 4800 |H | Short_Literal 0x0 024b a21e | | Store_Unchecked 0x1,0x1e 024c 4800 |H | Short_Literal 0x0 024d a21f | | Store_Unchecked 0x1,0x1f 024e e220 | | Load 0x1,0x20 024f 0a01 | | Execute_Immediate Plus,0x1 0250 c220 | | Store 0x1,0x20 0251 4801 |H | Short_Literal 0x1 0252 a221 | ! | Store_Unchecked 0x1,0x21 0253 493f |I? | Short_Literal 0x13f 0254 a21d | | Store_Unchecked 0x1,0x1d 0255 7875 |xu | Jump 0x2cb 0256 00d1 | | Pop_Control Pop_Count_1 0257 e003 | | Load 0x0,0x3 0258 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0259 a404 | | Store_Unchecked 0x2,0x4 025a e003 | | Load 0x0,0x3 025b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 025c a403 | | Store_Unchecked 0x2,0x3 025d e402 | | Load 0x2,0x2 025e e006 | | Load 0x0,0x6 025f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0260 c402 | | Store 0x2,0x2 0261 e404 | | Load 0x2,0x4 0262 e003 | | Load 0x0,0x3 0263 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0264 027f | | Execute Discrete,Equal 0265 6f1d |o | Jump_Zero 0x183 0266 e403 | | Load 0x2,0x3 0267 e003 | | Load 0x0,0x3 0268 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0269 027f | | Execute Discrete,Equal 026a 700b |p | Jump_Nonzero 0x276 026b e402 | | Load 0x2,0x2 026c 0b20 | | Execute_Immediate Case_Compare,0x20 026d 7003 |p | Jump_Nonzero 0x271 026e 0f0a | | Execute_Immediate Equal,0xa 026f 7003 |p | Jump_Nonzero 0x273 0270 7f12 | | Jump 0x183 0271 00d1 | | Pop_Control Pop_Count_1 0272 7858 |xX | Jump 0x2cb 0273 493e |I> | Short_Literal 0x13e 0274 a21d | | Store_Unchecked 0x1,0x1d 0275 7855 |xU | Jump 0x2cb 0276 e21d | | Load 0x1,0x1d 0277 0b20 | | Execute_Immediate Case_Compare,0x20 0278 7004 |p | Jump_Nonzero 0x27d 0279 493e |I> | Short_Literal 0x13e 027a 027f | | Execute Discrete,Equal 027b 7006 |p | Jump_Nonzero 0x282 027c 7f06 | | Jump 0x183 027d 00d1 | | Pop_Control Pop_Count_1 027e e402 | | Load 0x2,0x2 027f 0e20 | | Execute_Immediate Not_Equal,0x20 0280 684a |hJ | Jump_Zero 0x2cb 0281 7f01 | | Jump 0x183 0282 e402 | | Load 0x2,0x2 0283 0e0a | | Execute_Immediate Not_Equal,0xa 0284 6846 |hF | Jump_Zero 0x2cb 0285 7efd |~ | Jump 0x183 0286 487e |H~ | Short_Literal 0x7e 0287 8214 | | Call 0x1,0x14 0288 7efa |~ | Jump 0x183 0289 e20d | | Load 0x1,0xd 028a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 028b 682e |h. | Jump_Zero 0x2ba 028c e21d | | Load 0x1,0x1d 028d 00d8 | | Load_Top At_Offset_0 028e 0d2f | / | Execute_Immediate Less,0x2f 028f 7015 |p | Jump_Nonzero 0x2a5 0290 00d8 | | Load_Top At_Offset_0 0291 0c3f | ? | Execute_Immediate Greater_Equal,0x3f 0292 7007 |p | Jump_Nonzero 0x29a 0293 00d1 | | Pop_Control Pop_Count_1 0294 e21f | | Load 0x1,0x1f 0295 0d01 | | Execute_Immediate Less,0x1 0296 682d |h- | Jump_Zero 0x2c4 0297 4801 |H | Short_Literal 0x1 0298 a21f | | Store_Unchecked 0x1,0x1f 0299 782a |x* | Jump 0x2c4 029a 0b3f | ? | Execute_Immediate Case_Compare,0x3f 029b 701a |p | Jump_Nonzero 0x2b6 029c 00d8 | | Load_Top At_Offset_0 029d 493e |I> | Short_Literal 0x13e 029e 027f | | Execute Discrete,Equal 029f 700c |p | Jump_Nonzero 0x2ac 02a0 493f |I? | Short_Literal 0x13f 02a1 4940 |I@ | Short_Literal 0x140 02a2 0262 | b | Execute Discrete,In_Range 02a3 700f |p | Jump_Nonzero 0x2b3 02a4 7fef | | Jump 0x294 02a5 0b20 | | Execute_Immediate Case_Compare,0x20 02a6 700b |p | Jump_Nonzero 0x2b2 02a7 0b21 | ! | Execute_Immediate Case_Compare,0x21 02a8 700d |p | Jump_Nonzero 0x2b6 02a9 0f2e | . | Execute_Immediate Equal,0x2e 02aa 700c |p | Jump_Nonzero 0x2b7 02ab 7fe8 | | Jump 0x294 02ac 00d1 | | Pop_Control Pop_Count_1 02ad 4801 |H | Short_Literal 0x1 02ae a21e | | Store_Unchecked 0x1,0x1e 02af 4800 |H | Short_Literal 0x0 02b0 a21f | | Store_Unchecked 0x1,0x1f 02b1 7812 |x | Jump 0x2c4 02b2 00d1 | | Pop_Control Pop_Count_1 02b3 4800 |H | Short_Literal 0x0 02b4 a21f | | Store_Unchecked 0x1,0x1f 02b5 780e |x | Jump 0x2c4 02b6 00d1 | | Pop_Control Pop_Count_1 02b7 e21b | | Load 0x1,0x1b 02b8 a21f | | Store_Unchecked 0x1,0x1f 02b9 780a |x | Jump 0x2c4 02ba 4800 |H | Short_Literal 0x0 02bb a21f | | Store_Unchecked 0x1,0x1f 02bc e221 | ! | Load 0x1,0x21 02bd 6803 |h | Jump_Zero 0x2c1 02be 4800 |H | Short_Literal 0x0 02bf a221 | ! | Store_Unchecked 0x1,0x21 02c0 7803 |x | Jump 0x2c4 02c1 e220 | | Load 0x1,0x20 02c2 0a01 | | Execute_Immediate Plus,0x1 02c3 c220 | | Store 0x1,0x20 02c4 493e |I> | Short_Literal 0x13e 02c5 a21d | | Store_Unchecked 0x1,0x1d 02c6 7804 |x | Jump 0x2cb 02c7 4800 |H | Short_Literal 0x0 02c8 a21f | | Store_Unchecked 0x1,0x1f 02c9 4940 |I@ | Short_Literal 0x140 02ca 8214 | | Call 0x1,0x14 02cb 00c9 | | Action Pop_Auxiliary_Loop 02cc 7eb3 |~ | Jump 0x180 02cd TRAP_0178: 02cd 010b | | Execute Exception,Is_Storage_Error 02ce 6806 |h | Jump_Zero 0x2d5 02cf 0092 02db | | Action Push_String_Extended,0x2db ; "Ran out of memory" 02d1 e004 | | Load 0x0,0x4 02d2 180e | | Execute Package,Field_Execute,Field_Number 0xe 02d3 00d8 | | Load_Top At_Offset_0 02d4 0101 | | Execute Exception,Reraise 02d5 0100 | | Execute Exception,Raise 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; STRING TABLE 02d6 ; -------------------------------------------------------------------------------------- 02d6 000e | | .STRTAB 0x000e->0x02dd ; "Command => paragraph (" 02d7 0022 | " | .STRTAB 0x0022->0x02e8 ; " is not a command" 02d8 0031 | 1 | .STRTAB 0x0031->0x02f0 ; "Command => SET_LEFT_MARGIN" 02d9 0049 | I | .STRTAB 0x0049->0x02fd ; "Command => TAB" 02da 0055 | U | .STRTAB 0x0055->0x0304 ; "Command => LINE_BREAK" 02db 0068 | h | .STRTAB 0x0068->0x030f ; "Ran out of memory" 02dc 0077 | w | .STREND 0x0077->0x0317 02dd 436f 6d6d |Comm| .STRTAB_STRINGS 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug Table 0318 ; -------------------------------------------------------------------------------------- 0318 0004 000f | | .DEBUG4 0x0004,0x000f,0x47e5,0x0000,0x0001,0x0000 031e 0000 0000 | | .BLANK 0000[0xab] 03c9 0004 2a00 | * | .XXX[0x5] 03cb 0884 6206 | b | 03cd 3203 |2 | 03ce 0000 0000 | | .BLANK 0000[0x32]