|
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_03c0fe
└─⟦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 0230 | 0 | .CONST 0x0230 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0043 | C | .CONST 0x0043 ; Address of begin 0019 008e | | .CONST 0x008e ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 001d e003 | | Load 0x0,0x3 001e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 001f e003 | | Load 0x0,0x3 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 011e | | Execute Any,Convert 0022 e004 | | Load 0x0,0x4 0023 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0024 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 e004 | | Load 0x0,0x4 0029 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002b e004 | | Load 0x0,0x4 002c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002d 02c7 | | Declare_Variable Any 002e 00d8 | | Load_Top At_Offset_0 002f 1c00 | | Execute_Immediate Run_Utility,0x0 0030 e004 | | Load 0x0,0x4 0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0032 e005 | | Load 0x0,0x5 0033 e006 | | Load 0x0,0x6 0034 e007 | | Load 0x0,0x7 0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0036 e008 | | Load 0x0,0x8 0037 1b7b | { | Execute Package,Field_Read,Field_Number 0x7b 0038 0387 | | Declare_Variable Package 0039 00d8 | | Load_Top At_Offset_0 003a 020f | | Execute Module,Activate 003b 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 003d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 003f 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0041 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0043 BODY_0018: 0043 e004 | | Load 0x0,0x4 0044 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0045 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0046 e403 | | Load 0x2,0x3 0047 6054 |`T | Indirect_Literal Discrete,0x9c,{0x00000000, 0x00004000} 0048 e402 | | Load 0x2,0x2 0049 e009 | | Load 0x0,0x9 004a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004b e00a | | Load 0x0,0xa 004c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004d 4801 |H | Short_Literal 0x1 004e 4800 |H | Short_Literal 0x0 004f e009 | | Load 0x0,0x9 0050 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0051 e004 | | Load 0x0,0x4 0052 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0053 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0054 e5ff | | Load 0x2,-0x1 0055 e004 | | Load 0x0,0x4 0056 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0057 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0058 c403 | | Store 0x2,0x3 0059 c404 | | Store 0x2,0x4 005a e404 | | Load 0x2,0x4 005b 680f |h | Jump_Zero 0x6b 005c e00b | | Load 0x0,0xb 005d 180e | | Execute Package,Field_Execute,Field_Number 0xe 005e 4807 |H | Short_Literal 0x7 005f 0092 01bb | | Action Push_String_Extended,0x1bb ; "Bad status: " 0061 e404 | | Load 0x2,0x4 0062 e004 | | Load 0x0,0x4 0063 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0064 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0065 011c | | Execute Any,Convert_Unchecked 0066 1c01 | | Execute_Immediate Run_Utility,0x1 0067 01cc | | Execute Vector,Catenate 0068 e00c | | Load 0x0,0xc 0069 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006b 00cf | | Action Mark_Auxiliary 006c 781b |x | Jump 0x88 006d e004 | | Load 0x0,0x4 006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006f e405 | | Load 0x2,0x5 0070 0120 | | Execute Any,Is_Value 0071 6803 |h | Jump_Zero 0x75 0072 e004 | | Load 0x0,0x4 0073 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0074 7801 |x | Jump 0x76 0075 e405 | | Load 0x2,0x5 0076 e403 | | Load 0x2,0x3 0077 e004 | | Load 0x0,0x4 0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0079 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 007a c405 | | Store 0x2,0x5 007b c406 | | Store 0x2,0x6 007c e405 | | Load 0x2,0x5 007d e403 | | Load 0x2,0x3 007e e004 | | Load 0x0,0x4 007f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0080 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0081 840b | | Call 0x2,0xb 0082 e403 | | Load 0x2,0x3 0083 e004 | | Load 0x0,0x4 0084 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0085 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0086 c403 | | Store 0x2,0x3 0087 00c9 | | Action Pop_Auxiliary_Loop 0088 e403 | | Load 0x2,0x3 0089 e004 | | Load 0x0,0x4 008a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 008b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 008c 6fe0 |o | Jump_Zero 0x6d 008d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008e TRAP_0018: 008e 0007 | | Action Break_Optional 008f e00b | | Load 0x0,0xb 0090 180e | | Execute Package,Field_Execute,Field_Number 0xe 0091 4808 |H | Short_Literal 0x8 0092 0092 01bc | | Action Push_String_Extended,0x1bc ; "Unhandled exception: " 0094 e00d | | Load 0x0,0xd 0095 180d | | Execute Package,Field_Execute,Field_Number 0xd 0096 01cc | | Execute Vector,Catenate 0097 e00c | | Load 0x0,0xc 0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0099 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009a 0000 0000 | | .XXX[0x2] 009c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 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 4804 |H | Short_Literal 0x4 00a4 e7ff | | Load 0x3,-0x1 00a5 e008 | | Load 0x0,0x8 00a6 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00a7 e7fe | | Load 0x3,-0x2 00a8 e7ff | | Load 0x3,-0x1 00a9 e008 | | Load 0x0,0x8 00aa 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 00ab 4819 |H | Short_Literal 0x19 00ac e7ff | | Load 0x3,-0x1 00ad e008 | | Load 0x0,0x8 00ae 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00af e407 | | Load 0x2,0x7 00b0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b1 e407 | | Load 0x2,0x7 00b2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00b3 e7fd | | Load 0x3,-0x3 00b4 e7ff | | Load 0x3,-0x1 00b5 e407 | | Load 0x2,0x7 00b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b7 4801 |H | Short_Literal 0x1 00b8 e008 | | Load 0x0,0x8 00b9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00ba 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00bb 0000 0000 | | .BLANK 0000[0x5] 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 4804 |H | Short_Literal 0x4 00c4 e7ff | | Load 0x3,-0x1 00c5 e008 | | Load 0x0,0x8 00c6 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00c7 e7fe | | Load 0x3,-0x2 00c8 e7ff | | Load 0x3,-0x1 00c9 e008 | | Load 0x0,0x8 00ca 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 00cb 4819 |H | Short_Literal 0x19 00cc e7ff | | Load 0x3,-0x1 00cd e008 | | Load 0x0,0x8 00ce 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00cf 4800 |H | Short_Literal 0x0 00d0 e7fd | | Load 0x3,-0x3 00d1 e7ff | | Load 0x3,-0x1 00d2 e008 | | Load 0x0,0x8 00d3 1875 | u | Execute Package,Field_Execute,Field_Number 0x75 00d4 4801 |H | Short_Literal 0x1 00d5 e008 | | Load 0x0,0x8 00d6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 4804 |H | Short_Literal 0x4 00dc e7ff | | Load 0x3,-0x1 00dd e008 | | Load 0x0,0x8 00de 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00df e7fe | | Load 0x3,-0x2 00e0 e7ff | | Load 0x3,-0x1 00e1 e008 | | Load 0x0,0x8 00e2 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 00e3 4819 |H | Short_Literal 0x19 00e4 e7ff | | Load 0x3,-0x1 00e5 e008 | | Load 0x0,0x8 00e6 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 00e7 480a |H | Short_Literal 0xa 00e8 4804 |H | Short_Literal 0x4 00e9 e7fd | | Load 0x3,-0x3 00ea e7ff | | Load 0x3,-0x1 00eb e008 | | Load 0x0,0x8 00ec 186b | k | Execute Package,Field_Execute,Field_Number 0x6b 00ed 4801 |H | Short_Literal 0x1 00ee e008 | | Load 0x0,0x8 00ef 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f1 0000 0000 | | .BLANK 0000[0x7] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0114 | | .CONST 0x0114 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0008 | | .CONST 0x0008 ; Number of locals 00fb INIT_00f8: 00fb e008 | | Load 0x0,0x8 00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fd 02c7 | | Declare_Variable Any 00fe e008 | | Load 0x0,0x8 00ff 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0100 a602 | | Store_Unchecked 0x3,0x2 0101 e004 | | Load 0x0,0x4 0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0103 e00e | | Load 0x0,0xe 0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0105 e004 | | Load 0x0,0x4 0106 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0107 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0108 e004 | | Load 0x0,0x4 0109 1b14 | | Execute Package,Field_Read,Field_Number 0x14 010a 02ff | | Declare_Variable Variant_Record 010b 00d8 | | Load_Top At_Offset_0 010c 1c00 | | Execute_Immediate Run_Utility,0x0 010d e00f | | Load 0x0,0xf 010e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010f 02c7 | | Declare_Variable Any 0110 00d8 | | Load_Top At_Offset_0 0111 1c00 | | Execute_Immediate Run_Utility,0x0 0112 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0114 BODY_00f8: 0114 e7ff | | Load 0x3,-0x1 0115 e602 | | Load 0x3,0x2 0116 e008 | | Load 0x0,0x8 0117 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0118 4801 |H | Short_Literal 0x1 0119 e602 | | Load 0x3,0x2 011a e008 | | Load 0x0,0x8 011b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 011c e004 | | Load 0x0,0x4 011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011e e606 | | Load 0x3,0x6 011f 604c |`L | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00004000} 0120 4800 |H | Short_Literal 0x0 0121 e402 | | Load 0x2,0x2 0122 e7fe | | Load 0x3,-0x2 0123 e004 | | Load 0x0,0x4 0124 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0125 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0126 e004 | | Load 0x0,0x4 0127 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0128 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0129 00d1 | | Pop_Control Pop_Count_1 012a c603 | | Store 0x3,0x3 012b e603 | | Load 0x3,0x3 012c 680e |h | Jump_Zero 0x13b 012d e00b | | Load 0x0,0xb 012e 180e | | Execute Package,Field_Execute,Field_Number 0xe 012f 4807 |H | Short_Literal 0x7 0130 0092 01bb | | Action Push_String_Extended,0x1bb ; "Bad status: " 0132 e603 | | Load 0x3,0x3 0133 e004 | | Load 0x0,0x4 0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0135 011c | | Execute Any,Convert_Unchecked 0136 1c01 | | Execute_Immediate Run_Utility,0x1 0137 01cc | | Execute Vector,Catenate 0138 e00c | | Load 0x0,0xc 0139 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013b e00e | | Load 0x0,0xe 013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013d e607 | | Load 0x3,0x7 013e 0120 | | Execute Any,Is_Value 013f 6803 |h | Jump_Zero 0x143 0140 e00f | | Load 0x0,0xf 0141 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0142 7801 |x | Jump 0x144 0143 e607 | | Load 0x3,0x7 0144 4800 |H | Short_Literal 0x0 0145 e402 | | Load 0x2,0x2 0146 e009 | | Load 0x0,0x9 0147 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0148 e00a | | Load 0x0,0xa 0149 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014a 4801 |H | Short_Literal 0x1 014b e606 | | Load 0x3,0x6 014c e010 | | Load 0x0,0x10 014d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014e 0162 | b | Execute Variant_Record,Check_In_Type 014f e00f | | Load 0x0,0xf 0150 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0151 c607 | | Store 0x3,0x7 0152 c604 | | Store 0x3,0x4 0153 e604 | | Load 0x3,0x4 0154 680e |h | Jump_Zero 0x163 0155 e00b | | Load 0x0,0xb 0156 180e | | Execute Package,Field_Execute,Field_Number 0xe 0157 4807 |H | Short_Literal 0x7 0158 0092 01bb | | Action Push_String_Extended,0x1bb ; "Bad status: " 015a e604 | | Load 0x3,0x4 015b e00e | | Load 0x0,0xe 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d 011c | | Execute Any,Convert_Unchecked 015e 1c01 | | Execute_Immediate Run_Utility,0x1 015f 01cc | | Execute Vector,Catenate 0160 e00c | | Load 0x0,0xc 0161 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0162 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0163 8608 | | Call 0x3,0x8 0164 4802 |H | Short_Literal 0x2 0165 e602 | | Load 0x3,0x2 0166 e008 | | Load 0x0,0x8 0167 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0168 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0169 0000 0000 | | .XXX[0x3] 016b 0000 | | 016c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0178 | x | .CONST 0x0178 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e607 | | Load 0x3,0x7 0174 e00f | | Load 0x0,0xf 0175 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0176 0217 | | Execute Heap_Access,All_Reference 0177 0007 | | Action Break_Optional 0178 BODY_0170: 0178 00d8 | | Load_Top At_Offset_0 0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017a 0092 01bd | | Action Push_String_Extended,0x1bd ; "Id_Case" 017c e602 | | Load 0x3,0x2 017d 8408 | | Call 0x2,0x8 017e 00d8 | | Load_Top At_Offset_0 017f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0180 0092 01be | | Action Push_String_Extended,0x1be ; "Keyword_Case" 0182 e602 | | Load 0x3,0x2 0183 8408 | | Call 0x2,0x8 0184 00d8 | | Load_Top At_Offset_0 0185 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0186 0092 01bf | | Action Push_String_Extended,0x1bf ; "Number_Case" 0188 e602 | | Load 0x3,0x2 0189 8408 | | Call 0x2,0x8 018a 00d8 | | Load_Top At_Offset_0 018b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 018c 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "Line_Length" 018e e602 | | Load 0x3,0x2 018f 840a | | Call 0x2,0xa 0190 00d8 | | Load_Top At_Offset_0 0191 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0192 0092 01c1 | | Action Push_String_Extended,0x1c1 ; "Root_Indentation" 0194 e602 | | Load 0x3,0x2 0195 840a | | Call 0x2,0xa 0196 00d8 | | Load_Top At_Offset_0 0197 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0198 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "Major_Indentation" 019a e602 | | Load 0x3,0x2 019b 840a | | Call 0x2,0xa 019c 00d8 | | Load_Top At_Offset_0 019d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 019e 0092 01c3 | | Action Push_String_Extended,0x1c3 ; "Minor_Indentation" 01a0 e602 | | Load 0x3,0x2 01a1 840a | | Call 0x2,0xa 01a2 00d8 | | Load_Top At_Offset_0 01a3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 01a4 0092 01c4 | | Action Push_String_Extended,0x1c4 ; "Statement_Length" 01a6 e602 | | Load 0x3,0x2 01a7 840a | | Call 0x2,0xa 01a8 00d8 | | Load_Top At_Offset_0 01a9 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01aa 0092 01c5 | | Action Push_String_Extended,0x1c5 ; "Wrap_Indentation" 01ac e602 | | Load 0x3,0x2 01ad 840a | | Call 0x2,0xa 01ae 00d8 | | Load_Top At_Offset_0 01af 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 01b0 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "Alignment_Threshold" 01b2 e602 | | Load 0x3,0x2 01b3 840a | | Call 0x2,0xa 01b4 00d8 | | Load_Top At_Offset_0 01b5 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 01b6 0092 01c7 | | Action Push_String_Extended,0x1c7 ; "Consistent_Breaking" 01b8 e602 | | Load 0x3,0x2 01b9 8409 | | Call 0x2,0x9 01ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bb ; -------------------------------------------------------------------------------------- 01bb ; STRING TABLE 01bb ; -------------------------------------------------------------------------------------- 01bb 001c | | .STRTAB 0x001c->0x01c9 ; "Bad status: " 01bc 0026 | & | .STRTAB 0x0026->0x01cf ; "Unhandled exception: " 01bd 0039 | 9 | .STRTAB 0x0039->0x01d9 ; "Id_Case" 01be 003e | > | .STRTAB 0x003e->0x01dd ; "Keyword_Case" 01bf 0048 | H | .STRTAB 0x0048->0x01e3 ; "Number_Case" 01c0 0051 | Q | .STRTAB 0x0051->0x01e8 ; "Line_Length" 01c1 005a | Z | .STRTAB 0x005a->0x01ee ; "Root_Indentation" 01c2 0068 | h | .STRTAB 0x0068->0x01f6 ; "Major_Indentation" 01c3 0077 | w | .STRTAB 0x0077->0x01fe ; "Minor_Indentation" 01c4 0086 | | .STRTAB 0x0086->0x0207 ; "Statement_Length" 01c5 0094 | | .STRTAB 0x0094->0x020f ; "Wrap_Indentation" 01c6 00a2 | | .STRTAB 0x00a2->0x0217 ; "Alignment_Threshold" 01c7 00b3 | | .STRTAB 0x00b3->0x0220 ; "Consistent_Breaking" 01c8 00c4 | | .STREND 0x00c4->0x022a 01c9 4261 6420 |Bad | .STRTAB_STRINGS 022a 0000 0000 | | .BLANK 0000[0x6] 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug Table 0230 ; -------------------------------------------------------------------------------------- 0230 0004 0011 | | .DEBUG4 0x0004,0x0011,0x978a,0x0000,0x0001,0x0000 0236 0000 0000 | | .BLANK 0000[0x1ca]