|
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]