|
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_1188cd9
└─⟦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 0250 | P | .CONST 0x0250 ; 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 0043 | C | .CONST 0x0043 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 4850 |HP | Short_Literal 0x50 000c e001 | | Load 0x0,0x1 000d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000e 1c07 | | Execute_Immediate Run_Utility,0x7 000f 0129 | ) | Execute Any,Make_Visible 0010 e002 | | Load 0x0,0x2 0011 e003 | | Load 0x0,0x3 0012 00da | | Load_Top At_Offset_2 0013 e004 | | Load 0x0,0x4 0014 0386 | | Declare_Variable Package,Visible 0015 00d8 | | Load_Top At_Offset_0 0016 020f | | Execute Module,Activate 0017 e005 | | Load 0x0,0x5 0018 e006 | | Load 0x0,0x6 0019 00da | | Load_Top At_Offset_2 001a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001b e004 | | Load 0x0,0x4 001c 0386 | | Declare_Variable Package,Visible 001d 00d8 | | Load_Top At_Offset_0 001e 020f | | Execute Module,Activate 001f 00da | | Load_Top At_Offset_2 0020 00d9 | | Load_Top At_Offset_1 0021 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0022 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0024 4802 |H | Short_Literal 0x2 0025 032e | . | Declare_Type Record,Defined,Visible 0026 e007 | | Load 0x0,0x7 0027 e008 | | Load 0x0,0x8 0028 00da | | Load_Top At_Offset_2 0029 e004 | | Load 0x0,0x4 002a 0386 | | Declare_Variable Package,Visible 002b 00d8 | | Load_Top At_Offset_0 002c 020f | | Execute Module,Activate 002d 00d8 | | Load_Top At_Offset_0 002e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002f 0129 | ) | Execute Any,Make_Visible 0030 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0032 e009 | | Load 0x0,0x9 0033 0129 | ) | Execute Any,Make_Visible 0034 00bf | | Action Accept_Activation 0035 0007 | | Action Break_Optional 0036 4800 |H | Short_Literal 0x0 0037 4805 |H | Short_Literal 0x5 0038 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 003a 03fd | | Declare_Type Discrete,Defined 003b 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call 003d 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 003f 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 0041 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0042 00c7 | | Action Elaborate_Subprogram 0043 BODY_0008: 0043 00bc | | Action Signal_Activated 0044 00bb | | Action Signal_Completion 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4608 |F | Jump_Case 0x9 004c 7808 |x | Jump 0x55 ; case 0x0 004d 780e |x | Jump 0x5c ; case 0x1 004e 7811 |x | Jump 0x60 ; case 0x2 004f 7810 |x | Jump 0x60 ; case 0x3 0050 780f |x | Jump 0x60 ; case 0x4 0051 780e |x | Jump 0x60 ; case 0x5 0052 780d |x | Jump 0x60 ; case 0x6 0053 780c |x | Jump 0x60 ; case 0x7 0054 780b |x | Jump 0x60 ; case 0x8 0055 00da | | Load_Top At_Offset_2 0056 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0057 0125 | % | Execute Any,Set_Constraint 0058 00da | | Load_Top At_Offset_2 0059 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 005a 1c00 | | Execute_Immediate Run_Utility,0x0 005b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 005c 00da | | Load_Top At_Offset_2 005d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 005e 0125 | % | Execute Any,Set_Constraint 005f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0060 0869 | i | Execute_Immediate Raise,0x69 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 007e | ~ | .CONST 0x007e ; Address of begin 0069 0150 | P | .CONST 0x0150 ; Address of exception handler 006a 0007 | | .CONST 0x0007 ; Number of locals 006b INIT_0068: 006b e00a | | Load 0x0,0xa 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 02c7 | | Declare_Variable Any 006e 00d8 | | Load_Top At_Offset_0 006f 1c00 | | Execute_Immediate Run_Utility,0x0 0070 e215 | | Load 0x1,0x15 0071 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0072 e20d | | Load 0x1,0xd 0073 02ff | | Declare_Variable Variant_Record 0074 00d8 | | Load_Top At_Offset_0 0075 1c00 | | Execute_Immediate Run_Utility,0x0 0076 e20e | | Load 0x1,0xe 0077 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0078 e210 | | Load 0x1,0x10 0079 0322 | " | Declare_Variable Record 007a 00d8 | | Load_Top At_Offset_0 007b 1c00 | | Execute_Immediate Run_Utility,0x0 007c 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 007e BODY_0068: 007e e211 | | Load 0x1,0x11 007f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0080 a212 | | Store_Unchecked 0x1,0x12 0081 00cf | | Action Mark_Auxiliary 0082 0007 | | Action Break_Optional 0083 8407 | | Call 0x2,0x7 0084 00c9 | | Action Pop_Auxiliary_Loop 0085 7ffd | | Jump 0x83 0086 00c9 | | Action Pop_Auxiliary_Loop 0087 0007 | | Action Break_Optional 0088 e403 | | Load 0x2,0x3 0089 4605 |F | Jump_Case 0x6 008a 780d |x | Jump 0x98 ; case 0x0 008b 780c |x | Jump 0x98 ; case 0x1 008c 780b |x | Jump 0x98 ; case 0x2 008d 780a |x | Jump 0x98 ; case 0x3 008e 7801 |x | Jump 0x90 ; case 0x4 008f 7800 |x | Jump 0x90 ; case 0x5 0090 e404 | | Load 0x2,0x4 0091 e402 | | Load 0x2,0x2 0092 e00a | | Load 0x0,0xa 0093 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0094 e001 | | Load 0x0,0x1 0095 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0096 00d1 | | Pop_Control Pop_Count_1 0097 780a |x | Jump 0xa2 0098 e404 | | Load 0x2,0x4 0099 4820 |H | Short_Literal 0x20 009a e402 | | Load 0x2,0x2 009b e00a | | Load 0x0,0xa 009c 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 009d e00b | | Load 0x0,0xb 009e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 009f e001 | | Load 0x0,0x1 00a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a1 00d1 | | Pop_Control Pop_Count_1 00a2 e403 | | Load 0x2,0x3 00a3 4605 |F | Jump_Case 0x6 00a4 7805 |x | Jump 0xaa ; case 0x0 00a5 780e |x | Jump 0xb4 ; case 0x1 00a6 784a |xJ | Jump 0xf1 ; case 0x2 00a7 782e |x. | Jump 0xd6 ; case 0x3 00a8 785a |xZ | Jump 0x103 ; case 0x4 00a9 7884 |x | Jump 0x12e ; case 0x5 00aa e404 | | Load 0x2,0x4 00ab e001 | | Load 0x0,0x1 00ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ad 0092 021a | | Action Push_String_Extended,0x21a ; ".;." 00af 01df | | Execute Vector,Equal 00b0 689d |h | Jump_Zero 0x14e 00b1 4801 |H | Short_Literal 0x1 00b2 a403 | | Store_Unchecked 0x2,0x3 00b3 789a |x | Jump 0x14e 00b4 e404 | | Load 0x2,0x4 00b5 e001 | | Load 0x0,0x1 00b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b7 01db | | Execute Vector,Length 00b8 7001 |p | Jump_Nonzero 0xba 00b9 7894 |x | Jump 0x14e 00ba e404 | | Load 0x2,0x4 00bb e001 | | Load 0x0,0x1 00bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bd 0092 021a | | Action Push_String_Extended,0x21a ; ".;." 00bf 01df | | Execute Vector,Equal 00c0 6802 |h | Jump_Zero 0xc3 00c1 e214 | | Load 0x1,0x14 00c2 0257 | W | Execute Discrete,Raise 00c3 e404 | | Load 0x2,0x4 00c4 e001 | | Load 0x0,0x1 00c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c6 0092 021b | | Action Push_String_Extended,0x21b ; ";.;" 00c8 01df | | Execute Vector,Equal 00c9 6802 |h | Jump_Zero 0xcc 00ca e214 | | Load 0x1,0x14 00cb 0257 | W | Execute Discrete,Raise 00cc e404 | | Load 0x2,0x4 00cd 00db | | Load_Top At_Offset_3 00ce 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00cf e20f | | Load 0x1,0xf 00d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00d1 00db | | Load_Top At_Offset_3 00d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d3 4803 |H | Short_Literal 0x3 00d4 a403 | | Store_Unchecked 0x2,0x3 00d5 7878 |xx | Jump 0x14e 00d6 e404 | | Load 0x2,0x4 00d7 e001 | | Load 0x0,0x1 00d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d9 01db | | Execute Vector,Length 00da 7001 |p | Jump_Nonzero 0xdc 00db 7872 |xr | Jump 0x14e 00dc e404 | | Load 0x2,0x4 00dd e001 | | Load 0x0,0x1 00de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00df 0092 021a | | Action Push_String_Extended,0x21a ; ".;." 00e1 01df | | Execute Vector,Equal 00e2 6803 |h | Jump_Zero 0xe6 00e3 4802 |H | Short_Literal 0x2 00e4 a403 | | Store_Unchecked 0x2,0x3 00e5 7868 |xh | Jump 0x14e 00e6 e404 | | Load 0x2,0x4 00e7 e001 | | Load 0x0,0x1 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 0092 021b | | Action Push_String_Extended,0x21b ; ";.;" 00eb 01df | | Execute Vector,Equal 00ec 6802 |h | Jump_Zero 0xef 00ed e214 | | Load 0x1,0x14 00ee 0257 | W | Execute Discrete,Raise 00ef e214 | | Load 0x1,0x14 00f0 0257 | W | Execute Discrete,Raise 00f1 e404 | | Load 0x2,0x4 00f2 e001 | | Load 0x0,0x1 00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f4 0092 021b | | Action Push_String_Extended,0x21b ; ";.;" 00f6 01df | | Execute Vector,Equal 00f7 6803 |h | Jump_Zero 0xfb 00f8 4804 |H | Short_Literal 0x4 00f9 a403 | | Store_Unchecked 0x2,0x3 00fa 7853 |xS | Jump 0x14e 00fb e404 | | Load 0x2,0x4 00fc e001 | | Load 0x0,0x1 00fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fe 01db | | Execute Vector,Length 00ff 7001 |p | Jump_Nonzero 0x101 0100 784d |xM | Jump 0x14e 0101 e214 | | Load 0x1,0x14 0102 0257 | W | Execute Discrete,Raise 0103 e404 | | Load 0x2,0x4 0104 e001 | | Load 0x0,0x1 0105 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0106 01db | | Execute Vector,Length 0107 7001 |p | Jump_Nonzero 0x109 0108 7845 |xE | Jump 0x14e 0109 e404 | | Load 0x2,0x4 010a e001 | | Load 0x0,0x1 010b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010c 0092 021a | | Action Push_String_Extended,0x21a ; ".;." 010e 01df | | Execute Vector,Equal 010f 680d |h | Jump_Zero 0x11d 0110 00da | | Load_Top At_Offset_2 0111 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0112 8218 | | Call 0x1,0x18 0113 00db | | Load_Top At_Offset_3 0114 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0115 e212 | | Load 0x1,0x12 0116 00db | | Load_Top At_Offset_3 0117 e211 | | Load 0x1,0x11 0118 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0119 a212 | | Store_Unchecked 0x1,0x12 011a 4801 |H | Short_Literal 0x1 011b a403 | | Store_Unchecked 0x2,0x3 011c 7831 |x1 | Jump 0x14e 011d e404 | | Load 0x2,0x4 011e e001 | | Load 0x0,0x1 011f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0120 0092 021b | | Action Push_String_Extended,0x21b ; ";.;" 0122 01df | | Execute Vector,Equal 0123 6801 |h | Jump_Zero 0x125 0124 7829 |x) | Jump 0x14e 0125 e20e | | Load 0x1,0xe 0126 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0127 e404 | | Load 0x2,0x4 0128 e20e | | Load 0x1,0xe 0129 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012a a405 | | Store_Unchecked 0x2,0x5 012b 4805 |H | Short_Literal 0x5 012c a403 | | Store_Unchecked 0x2,0x3 012d 7820 |x | Jump 0x14e 012e e404 | | Load 0x2,0x4 012f e001 | | Load 0x0,0x1 0130 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0131 0092 021a | | Action Push_String_Extended,0x21a ; ".;." 0133 01df | | Execute Vector,Equal 0134 6802 |h | Jump_Zero 0x137 0135 e214 | | Load 0x1,0x14 0136 0257 | W | Execute Discrete,Raise 0137 e404 | | Load 0x2,0x4 0138 e001 | | Load 0x0,0x1 0139 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013a 0092 021b | | Action Push_String_Extended,0x21b ; ";.;" 013c 01df | | Execute Vector,Equal 013d 680b |h | Jump_Zero 0x149 013e 00da | | Load_Top At_Offset_2 013f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0140 e405 | | Load 0x2,0x5 0141 8217 | | Call 0x1,0x17 0142 e20f | | Load 0x1,0xf 0143 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0144 00db | | Load_Top At_Offset_3 0145 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0146 4804 |H | Short_Literal 0x4 0147 a403 | | Store_Unchecked 0x2,0x3 0148 7805 |x | Jump 0x14e 0149 00db | | Load_Top At_Offset_3 014a e404 | | Load 0x2,0x4 014b e20e | | Load 0x1,0xe 014c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014d a405 | | Store_Unchecked 0x2,0x5 014e 00c9 | | Action Pop_Auxiliary_Loop 014f 7f38 | 8 | Jump 0x88 0150 TRAP_0068: 0150 00d8 | | Load_Top At_Offset_0 0151 0107 | | Execute Exception,Get_Name 0152 4950 |IP | Short_Literal 0x150 0153 495f |I_ | Short_Literal 0x15f 0154 0262 | b | Execute Discrete,In_Range 0155 6810 |h | Jump_Zero 0x166 0156 00da | | Load_Top At_Offset_2 0157 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0158 8218 | | Call 0x1,0x18 0159 00db | | Load_Top At_Offset_3 015a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 015b e212 | | Load 0x1,0x12 015c 00db | | Load_Top At_Offset_3 015d e211 | | Load 0x1,0x11 015e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015f 8216 | | Call 0x1,0x16 0160 a212 | | Store_Unchecked 0x1,0x12 0161 e402 | | Load 0x2,0x2 0162 e00a | | Load 0x0,0xa 0163 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0164 c402 | | Store 0x2,0x2 0165 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0166 0100 | | Execute Exception,Raise 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 4603 |F | Jump_Case 0x4 016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 016d 7802 |x | Jump 0x170 ; case 0x1 016e 7805 |x | Jump 0x174 ; case 0x2 016f 7809 |x | Jump 0x179 ; case 0x3 0170 00da | | Load_Top At_Offset_2 0171 0091 0214 | | Action Push_String_Extended_Indexed,0x214 ; "START" 0173 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0174 00db | | Load_Top At_Offset_3 0175 00db | | Load_Top At_Offset_3 0176 00e0 | | Load_Encached Standard_Cache 0177 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0179 00da | | Load_Top At_Offset_2 017a 00e0 | | Load_Encached Standard_Cache 017b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0187 | | .CONST 0x0187 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 e211 | | Load 0x1,0x11 0184 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0185 e211 | | Load 0x1,0x11 0186 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0187 BODY_0180: 0187 e211 | | Load 0x1,0x11 0188 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0189 e5ff | | Load 0x2,-0x1 018a e211 | | Load 0x1,0x11 018b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 018c 003a | : | Store_Top Access,At_Offset_2 018d 00cf | | Action Mark_Auxiliary 018e 780c |x | Jump 0x19b 018f 00d9 | | Load_Top At_Offset_1 0190 00db | | Load_Top At_Offset_3 0191 e211 | | Load 0x1,0x11 0192 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0193 e211 | | Load 0x1,0x11 0194 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0195 003a | : | Store_Top Access,At_Offset_2 0196 00da | | Load_Top At_Offset_2 0197 e211 | | Load 0x1,0x11 0198 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0199 003b | ; | Store_Top Access,At_Offset_3 019a 00c9 | | Action Pop_Auxiliary_Loop 019b 00da | | Load_Top At_Offset_2 019c e211 | | Load 0x1,0x11 019d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 019e 6ff0 |o | Jump_Zero 0x18f 019f 00ce | | Action Pop_Auxiliary 01a0 00d8 | | Load_Top At_Offset_0 01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a2 0000 0000 | | .BLANK 0000[0x6] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01af | | .CONST 0x01af ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e20e | | Load 0x1,0xe 01ac 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01ad e20e | | Load 0x1,0xe 01ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01af BODY_01a8: 01af e20e | | Load 0x1,0xe 01b0 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01b1 e5ff | | Load 0x2,-0x1 01b2 e20e | | Load 0x1,0xe 01b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b4 003a | : | Store_Top Access,At_Offset_2 01b5 00cf | | Action Mark_Auxiliary 01b6 780c |x | Jump 0x1c3 01b7 00d9 | | Load_Top At_Offset_1 01b8 00db | | Load_Top At_Offset_3 01b9 e20e | | Load 0x1,0xe 01ba 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01bb e20e | | Load 0x1,0xe 01bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01bd 003a | : | Store_Top Access,At_Offset_2 01be 00da | | Load_Top At_Offset_2 01bf e20e | | Load 0x1,0xe 01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c1 003b | ; | Store_Top Access,At_Offset_3 01c2 00c9 | | Action Pop_Auxiliary_Loop 01c3 00da | | Load_Top At_Offset_2 01c4 e20e | | Load 0x1,0xe 01c5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01c6 6ff0 |o | Jump_Zero 0x1b7 01c7 00ce | | Action Pop_Auxiliary 01c8 00d8 | | Load_Top At_Offset_0 01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ca 0000 0000 | | .BLANK 0000[0x6] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d7 | | .CONST 0x01d7 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 e20f | | Load 0x1,0xf 01d4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01d5 e20f | | Load 0x1,0xf 01d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d7 BODY_01d0: 01d7 e20f | | Load 0x1,0xf 01d8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01d9 e5ff | | Load 0x2,-0x1 01da e20f | | Load 0x1,0xf 01db 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01dc 003a | : | Store_Top Access,At_Offset_2 01dd 00cf | | Action Mark_Auxiliary 01de 780c |x | Jump 0x1eb 01df 00d9 | | Load_Top At_Offset_1 01e0 00db | | Load_Top At_Offset_3 01e1 e20f | | Load 0x1,0xf 01e2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01e3 e20f | | Load 0x1,0xf 01e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e5 003a | : | Store_Top Access,At_Offset_2 01e6 00da | | Load_Top At_Offset_2 01e7 e20f | | Load 0x1,0xf 01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e9 003b | ; | Store_Top Access,At_Offset_3 01ea 00c9 | | Action Pop_Auxiliary_Loop 01eb 00da | | Load_Top At_Offset_2 01ec e20f | | Load 0x1,0xf 01ed 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01ee 6ff0 |o | Jump_Zero 0x1df 01ef 00ce | | Action Pop_Auxiliary 01f0 00d8 | | Load_Top At_Offset_0 01f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f2 0000 0000 | | .BLANK 0000[0x6] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0204 | | .CONST 0x0204 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e402 | | Load 0x2,0x2 01fc 00ea | | Load_Encached Null_String_Cache 01fd e5ff | | Load 0x2,-0x1 01fe 4800 |H | Short_Literal 0x0 01ff e00a | | Load 0x0,0xa 0200 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0201 c402 | | Store 0x2,0x2 0202 00cc | | Action Pop_Block 0203 7e82 |~ | Jump 0x86 0204 TRAP_01f8: 0204 00d8 | | Load_Top At_Offset_0 0205 0107 | | Execute Exception,Get_Name 0206 4930 |I0 | Short_Literal 0x130 0207 493f |I? | Short_Literal 0x13f 0208 0262 | b | Execute Discrete,In_Range 0209 6803 |h | Jump_Zero 0x20d 020a 6005 |` | Indirect_Literal Discrete,0x210,{0x00000000, 0x00018000} 020b 00ba | | Action Initiate_Delay 020c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020d 0100 | | Execute Exception,Raise 020e 0000 0000 | | .XXX[0x2] 0210 0000 0000 | | .LITERAL {0x00000000, 0x00018000} 0214 ; -------------------------------------------------------------------------------------- 0214 ; STRING TABLE 0214 ; -------------------------------------------------------------------------------------- 0214 0012 | | .STRTAB 0x0012->0x021d ; "START" 0215 0015 | | .STRTAB 0x0015->0x021f ; "FOUND_BEGIN_TITLE_DELIM" 0216 002a | * | .STRTAB 0x002a->0x022b ; "FOUND_END_TITLE_DELIM" 0217 003d | = | .STRTAB 0x003d->0x0235 ; "FOUND_TITLE" 0218 0046 | F | .STRTAB 0x0046->0x023b ; "FOUND_STEP_DELIM" 0219 0054 | T | .STRTAB 0x0054->0x0243 ; "FOUND_STEP_TEXT" 021a 0061 | a | .STRTAB 0x0061->0x024a ; ".;." 021b 0062 | b | .STRTAB 0x0062->0x024c ; ";.;" 021c 0063 | c | .STREND 0x0063->0x024d 021d 5354 4152 |STAR| .STRTAB_STRINGS 024e 0000 0000 | | .XXX[0x2] 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 0006 | | .DEBUG4 0x0004,0x0006,0xeb7e,0x0000,0x0001,0x0000 0256 0000 0000 | | .BLANK 0000[0x1aa]