|
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_06e8fd
└─⟦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 e001 | | Load 0x0,0x1
001c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
001d e002 | | Load 0x0,0x2
001e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
001f e002 | | Load 0x0,0x2
0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0021 011e | | Execute Any,Convert
0022 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
0029 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002b e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0032 e004 | | Load 0x0,0x4
0033 e005 | | Load 0x0,0x5
0034 e006 | | Load 0x0,0x6
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 e007 | | Load 0x0,0x7
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 e003 | | Load 0x0,0x3
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 e008 | | Load 0x0,0x8
004a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004b e009 | | Load 0x0,0x9
004c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004d 4801 |H | Short_Literal 0x1
004e 4800 |H | Short_Literal 0x0
004f e008 | | Load 0x0,0x8
0050 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0051 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e00a | | Load 0x0,0xa
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 e003 | | Load 0x0,0x3
0063 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0064 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0065 025e | ^ | Execute Discrete,Convert
0066 1c01 | | Execute_Immediate Run_Utility,0x1
0067 01cc | | Execute Vector,Catenate
0068 e00b | | Load 0x0,0xb
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
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 e00a | | Load 0x0,0xa
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 e00c | | Load 0x0,0xc
0095 180d | | Execute Package,Field_Execute,Field_Number 0xd
0096 01cc | | Execute Vector,Catenate
0097 e00b | | Load 0x0,0xb
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 e007 | | Load 0x0,0x7
00a6 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00a7 e7fe | | Load 0x3,-0x2
00a8 e7ff | | Load 0x3,-0x1
00a9 e007 | | Load 0x0,0x7
00aa 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00ab 4819 |H | Short_Literal 0x19
00ac e7ff | | Load 0x3,-0x1
00ad e007 | | Load 0x0,0x7
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 e007 | | Load 0x0,0x7
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 e007 | | Load 0x0,0x7
00c6 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00c7 e7fe | | Load 0x3,-0x2
00c8 e7ff | | Load 0x3,-0x1
00c9 e007 | | Load 0x0,0x7
00ca 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00cb 4819 |H | Short_Literal 0x19
00cc e7ff | | Load 0x3,-0x1
00cd e007 | | Load 0x0,0x7
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 e007 | | Load 0x0,0x7
00d3 1875 | u | Execute Package,Field_Execute,Field_Number 0x75
00d4 4801 |H | Short_Literal 0x1
00d5 e007 | | Load 0x0,0x7
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 e007 | | Load 0x0,0x7
00de 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00df e7fe | | Load 0x3,-0x2
00e0 e7ff | | Load 0x3,-0x1
00e1 e007 | | Load 0x0,0x7
00e2 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
00e3 4819 |H | Short_Literal 0x19
00e4 e7ff | | Load 0x3,-0x1
00e5 e007 | | Load 0x0,0x7
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 e007 | | Load 0x0,0x7
00ec 186b | k | Execute Package,Field_Execute,Field_Number 0x6b
00ed 4801 |H | Short_Literal 0x1
00ee e007 | | Load 0x0,0x7
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 e007 | | Load 0x0,0x7
00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fd 02c7 | | Declare_Variable Any
00fe e007 | | Load 0x0,0x7
00ff 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0100 a602 | | Store_Unchecked 0x3,0x2
0101 e003 | | Load 0x0,0x3
0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0103 e00d | | Load 0x0,0xd
0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0105 e003 | | Load 0x0,0x3
0106 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0107 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0108 e003 | | Load 0x0,0x3
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 e00e | | Load 0x0,0xe
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 e007 | | Load 0x0,0x7
0117 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0118 4801 |H | Short_Literal 0x1
0119 e602 | | Load 0x3,0x2
011a e007 | | Load 0x0,0x7
011b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
011c e003 | | Load 0x0,0x3
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 e003 | | Load 0x0,0x3
0124 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0125 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0126 e003 | | Load 0x0,0x3
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 e00a | | Load 0x0,0xa
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 e003 | | Load 0x0,0x3
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 025e | ^ | Execute Discrete,Convert
0136 1c01 | | Execute_Immediate Run_Utility,0x1
0137 01cc | | Execute Vector,Catenate
0138 e00b | | Load 0x0,0xb
0139 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013b e00d | | Load 0x0,0xd
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 e00e | | Load 0x0,0xe
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 e008 | | Load 0x0,0x8
0147 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0148 e009 | | Load 0x0,0x9
0149 1811 | | Execute Package,Field_Execute,Field_Number 0x11
014a 4801 |H | Short_Literal 0x1
014b e606 | | Load 0x3,0x6
014c e00f | | Load 0x0,0xf
014d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014e 0162 | b | Execute Variant_Record,Check_In_Type
014f e00e | | Load 0x0,0xe
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 e00a | | Load 0x0,0xa
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 e00d | | Load 0x0,0xd
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 025e | ^ | Execute Discrete,Convert
015e 1c01 | | Execute_Immediate Run_Utility,0x1
015f 01cc | | Execute Vector,Catenate
0160 e00b | | Load 0x0,0xb
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 e007 | | Load 0x0,0x7
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 e00e | | Load 0x0,0xe
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 000b | | .DEBUG4 0x0004,0x000b,0xbb60,0x0000,0x0001,0x0000
0236 0000 0000 | | .BLANK 0000[0x5]
023b 0004 0200 | | .XXX[0x1d]
023d 0000 0000 | |
023f 0180 078c | |
0241 2404 0000 |$ |
0243 003f 078c | ? |
0245 2404 0000 |$ |
0247 0000 074d | M|
0249 bc04 8030 | 0|
024b 0004 04a6 | |
024d a80d 0000 | |
024f 00b1 001a | |
0251 a804 4000 | @ |
0253 0780 078c | |
0255 2404 0000 |$ |
0257 0f03 | |
0258 0000 0000 | | .BLANK 0000[0x4]
025c 078c 2804 | ( | .XXX[0x32]
025e 0000 0000 | |
0260 003f f038 | ? 8|
0262 0000 4380 | C |
0264 0000 0000 | |
0266 0000 0001 | |
0268 26b0 0060 |& `|
026a fe0a 8001 | |
026c 078c 2804 | ( |
026e 0000 0000 | |
0270 26b0 0060 |& `|
0272 fc0a 8001 | |
0274 078c 2804 | ( |
0276 0000 0000 | |
0278 078c 2404 | $ |
027a 0000 007f | |
027c 0000 0000 | |
027e 0000 0006 | |
0280 003f f038 | ? 8|
0282 7000 4390 |p C |
0284 3dbf b700 |= |
0286 0000 0f87 | |
0288 078b f804 | |
028a 0000 0021 | !|
028c 0000 0219 | |
028e 0000 0000 | | .BLANK 0000[0x4]
0292 8000 0c29 | )| .XXX[0x2]
0294 0000 0000 | | .BLANK 0000[0x4]
0298 0c27 0c1a | ' | .XXX[0x10]
029a c71f 38b6 | 8 |
029c 3dd7 f962 |= b|
029e 46b9 f6d1 |F |
02a0 fde6 fde6 | |
02a2 d3b7 3974 | 9t|
02a4 0823 e354 | # T|
02a6 384d 3976 |8M9v|
02a8 0000 0000 | | .BLANK 0000[0x58]
0300 001a a804 | | .XXX[0x4]
0302 0000 07d8 | |
0304 0000 0000 | | .BLANK 0000[0xe8]
03ec 073c 2804 | <( | .XXX[0x14]
03ee 0000 0001 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 073c 2804 | <( |
03f6 0000 0660 | `|
03f8 fefa 0013 | |
03fa 1000 0001 | |
03fc 0000 0000 | |
03fe 0000 0003 | |