|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 0208 | | .CONST 0x0208 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0040
000d 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
000f 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8
0011 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0
0013 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0015 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0017 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130
0019 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
001b 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
001d 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
001f 00bf | | Action Accept_Activation
0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0021 00c7 | | Action Elaborate_Subprogram
0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0023 00c7 | | Action Elaborate_Subprogram
0024 029d 019b | | Declare_Subprogram For_Outer_Call,INIT_0198
0026 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0
0028 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0029 00c7 | | Action Elaborate_Subprogram
002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002b 00c7 | | Action Elaborate_Subprogram
002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002d 00c7 | | Action Elaborate_Subprogram
002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002f 00c7 | | Action Elaborate_Subprogram
0030 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0031 00c7 | | Action Elaborate_Subprogram
0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0033 00c7 | | Action Elaborate_Subprogram
0034 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0035 00c7 | | Action Elaborate_Subprogram
0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0037 00c7 | | Action Elaborate_Subprogram
0038 BODY_0008:
0038 00bc | | Action Signal_Activated
0039 00bb | | Action Signal_Completion
003a 0000 0000 | | .BLANK 0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0045 | E | .CONST 0x0045 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0002 | | .CONST 0x0002 ; Number of locals
0043 INIT_0040:
0043 00e1 | | Load_Encached Boolean_Cache
0044 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0045 BODY_0040:
0045 00db | | Load_Top At_Offset_3
0046 01db | | Execute Vector,Length
0047 7003 |p | Jump_Nonzero 0x4b
0048 4800 |H | Short_Literal 0x0
0049 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
004a 7851 |xQ | Jump 0x9c
004b 00db | | Load_Top At_Offset_3
004c 01dd | | Execute Vector,First
004d e5ff | | Load 0x2,-0x1
004e 01dd | | Execute Vector,First
004f e5ff | | Load 0x2,-0x1
0050 01cf | | Execute Vector,Slice_Read
0051 8002 | | Call 0x0,0x2
0052 0f00 | | Execute_Immediate Equal,0x0
0053 e5ff | | Load 0x2,-0x1
0054 01dc | | Execute Vector,Last
0055 e5ff | | Load 0x2,-0x1
0056 01dc | | Execute Vector,Last
0057 e5ff | | Load 0x2,-0x1
0058 01cf | | Execute Vector,Slice_Read
0059 8003 | | Call 0x0,0x3
005a 0f00 | | Execute_Immediate Equal,0x0
005b 0278 | x | Execute Discrete,Or
005c 6803 |h | Jump_Zero 0x60
005d 4800 |H | Short_Literal 0x0
005e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
005f 783c |x< | Jump 0x9c
0060 00cf | | Action Mark_Auxiliary
0061 e5ff | | Load 0x2,-0x1
0062 01dc | | Execute Vector,Last
0063 0aff | | Execute_Immediate Plus,-0x1
0064 00d8 | | Load_Top At_Offset_0
0065 00e2 | | Load_Encached Integer_Cache
0066 0260 | ` | Execute Discrete,In_Type
0067 7001 |p | Jump_Nonzero 0x69
0068 0801 | | Execute_Immediate Raise,0x1
0069 e5ff | | Load 0x2,-0x1
006a 01dd | | Execute Vector,First
006b 0a01 | | Execute_Immediate Plus,0x1
006c 00d8 | | Load_Top At_Offset_0
006d 00e2 | | Load_Encached Integer_Cache
006e 0260 | ` | Execute Discrete,In_Type
006f 7001 |p | Jump_Nonzero 0x71
0070 0801 | | Execute_Immediate Raise,0x1
0071 0263 | c | Execute Discrete,Above_Bound
0072 7028 |p( | Jump_Nonzero 0x9b
0073 00d8 | | Load_Top At_Offset_0
0074 00d9 | | Load_Top At_Offset_1
0075 e5ff | | Load 0x2,-0x1
0076 01cf | | Execute Vector,Slice_Read
0077 8004 | | Call 0x0,0x4
0078 681a |h | Jump_Zero 0x93
0079 00d8 | | Load_Top At_Offset_0
007a e5ff | | Load 0x2,-0x1
007b 01d7 | | Execute Vector,Field_Read
007c 0f5f | _ | Execute_Immediate Equal,0x5f
007d 6817 |h | Jump_Zero 0x95
007e 00d8 | | Load_Top At_Offset_0
007f 0a01 | | Execute_Immediate Plus,0x1
0080 00d8 | | Load_Top At_Offset_0
0081 00e2 | | Load_Encached Integer_Cache
0082 0260 | ` | Execute Discrete,In_Type
0083 7001 |p | Jump_Nonzero 0x85
0084 0801 | | Execute_Immediate Raise,0x1
0085 00d9 | | Load_Top At_Offset_1
0086 0a01 | | Execute_Immediate Plus,0x1
0087 00d8 | | Load_Top At_Offset_0
0088 00e2 | | Load_Encached Integer_Cache
0089 0260 | ` | Execute Discrete,In_Type
008a 7001 |p | Jump_Nonzero 0x8c
008b 0801 | | Execute_Immediate Raise,0x1
008c e5ff | | Load 0x2,-0x1
008d 01cf | | Execute Vector,Slice_Read
008e 8003 | | Call 0x0,0x3
008f 7005 |p | Jump_Nonzero 0x95
0090 4800 |H | Short_Literal 0x0
0091 a402 | | Store_Unchecked 0x2,0x2
0092 7802 |x | Jump 0x95
0093 4800 |H | Short_Literal 0x0
0094 a402 | | Store_Unchecked 0x2,0x2
0095 00db | | Load_Top At_Offset_3
0096 7002 |p | Jump_Nonzero 0x99
0097 00d2 | | Pop_Control Pop_Count_2
0098 7802 |x | Jump 0x9b
0099 00c8 | | Action Pop_Auxiliary_Range
009a 3fd8 |? | Loop_Increasing 0x73
009b 00ce | | Action Pop_Auxiliary
009c 00d8 | | Load_Top At_Offset_0
009d 4401 |D | Exit_Subprogram With_Result,0x1
009e 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
00a4 e005 | | Load 0x0,0x5
00a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a6 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "<NULL>"
00a8 01df | | Execute Vector,Equal
00a9 00db | | Load_Top At_Offset_3
00aa 01db | | Execute Vector,Length
00ab 0f00 | | Execute_Immediate Equal,0x0
00ac 0278 | x | Execute Discrete,Or
00ad 6802 |h | Jump_Zero 0xb0
00ae 4801 |H | Short_Literal 0x1
00af 4401 |D | Exit_Subprogram With_Result,0x1
00b0 4800 |H | Short_Literal 0x0
00b1 4401 |D | Exit_Subprogram With_Result,0x1
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c8 | | .CONST 0x00c8 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e006 | | Load 0x0,0x6
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be 02c7 | | Declare_Variable Any
00bf 4801 |H | Short_Literal 0x1
00c0 e006 | | Load 0x0,0x6
00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c3 e5ff | | Load 0x2,-0x1
00c4 e006 | | Load 0x0,0x6
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00c7 a402 | | Store_Unchecked 0x2,0x2
00c8 BODY_00b8:
00c8 00db | | Load_Top At_Offset_3
00c9 01db | | Execute Vector,Length
00ca 7002 |p | Jump_Nonzero 0xcd
00cb 4800 |H | Short_Literal 0x0
00cc 4401 |D | Exit_Subprogram With_Result,0x1
00cd 00db | | Load_Top At_Offset_3
00ce e006 | | Load 0x0,0x6
00cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d1 7002 |p | Jump_Nonzero 0xd4
00d2 4800 |H | Short_Literal 0x0
00d3 4401 |D | Exit_Subprogram With_Result,0x1
00d4 00d8 | | Load_Top At_Offset_0
00d5 e006 | | Load 0x0,0x6
00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
00d8 6802 |h | Jump_Zero 0xdb
00d9 4801 |H | Short_Literal 0x1
00da 4401 |D | Exit_Subprogram With_Result,0x1
00db 4800 |H | Short_Literal 0x0
00dc 4401 |D | Exit_Subprogram With_Result,0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f0 | | .CONST 0x00f0 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e006 | | Load 0x0,0x6
00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e6 02c7 | | Declare_Variable Any
00e7 4801 |H | Short_Literal 0x1
00e8 e006 | | Load 0x0,0x6
00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00eb e5ff | | Load 0x2,-0x1
00ec e006 | | Load 0x0,0x6
00ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ee 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00ef a402 | | Store_Unchecked 0x2,0x2
00f0 BODY_00e0:
00f0 00d8 | | Load_Top At_Offset_0
00f1 e006 | | Load 0x0,0x6
00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f3 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
00f4 6808 |h | Jump_Zero 0xfd
00f5 00d8 | | Load_Top At_Offset_0
00f6 e006 | | Load 0x0,0x6
00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f9 0f01 | | Execute_Immediate Equal,0x1
00fa 6802 |h | Jump_Zero 0xfd
00fb 4801 |H | Short_Literal 0x1
00fc 4401 |D | Exit_Subprogram With_Result,0x1
00fd 4800 |H | Short_Literal 0x0
00fe 4401 |D | Exit_Subprogram With_Result,0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 8210 | | Call 0x1,0x10
0105 680d |h | Jump_Zero 0x113
0106 00da | | Load_Top At_Offset_2
0107 e006 | | Load 0x0,0x6
0108 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0109 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
010a e006 | | Load 0x0,0x6
010b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010d 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "WORLD"
010f 01df | | Execute Vector,Equal
0110 6802 |h | Jump_Zero 0x113
0111 4801 |H | Short_Literal 0x1
0112 4401 |D | Exit_Subprogram With_Result,0x1
0113 4800 |H | Short_Literal 0x0
0114 4401 |D | Exit_Subprogram With_Result,0x1
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 8210 | | Call 0x1,0x10
011d 680d |h | Jump_Zero 0x12b
011e 00da | | Load_Top At_Offset_2
011f e006 | | Load 0x0,0x6
0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0121 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0122 e006 | | Load 0x0,0x6
0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0124 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0125 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "SPEC_VIEW"
0127 01df | | Execute Vector,Equal
0128 6802 |h | Jump_Zero 0x12b
0129 4801 |H | Short_Literal 0x1
012a 4401 |D | Exit_Subprogram With_Result,0x1
012b 4800 |H | Short_Literal 0x0
012c 4401 |D | Exit_Subprogram With_Result,0x1
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
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 00da | | Load_Top At_Offset_2
0134 8210 | | Call 0x1,0x10
0135 680d |h | Jump_Zero 0x143
0136 00da | | Load_Top At_Offset_2
0137 e006 | | Load 0x0,0x6
0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0139 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
013a e006 | | Load 0x0,0x6
013b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
013d 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "LOAD_VIEW"
013f 01df | | Execute Vector,Equal
0140 6802 |h | Jump_Zero 0x143
0141 4801 |H | Short_Literal 0x1
0142 4401 |D | Exit_Subprogram With_Result,0x1
0143 4800 |H | Short_Literal 0x0
0144 4401 |D | Exit_Subprogram With_Result,0x1
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 8210 | | Call 0x1,0x10
014d 680d |h | Jump_Zero 0x15b
014e 00da | | Load_Top At_Offset_2
014f e006 | | Load 0x0,0x6
0150 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0151 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0152 e006 | | Load 0x0,0x6
0153 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0154 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0155 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "COMBINED_VIEW"
0157 01df | | Execute Vector,Equal
0158 6802 |h | Jump_Zero 0x15b
0159 4801 |H | Short_Literal 0x1
015a 4401 |D | Exit_Subprogram With_Result,0x1
015b 4800 |H | Short_Literal 0x0
015c 4401 |D | Exit_Subprogram With_Result,0x1
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 8210 | | Call 0x1,0x10
0165 680d |h | Jump_Zero 0x173
0166 00da | | Load_Top At_Offset_2
0167 e006 | | Load 0x0,0x6
0168 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0169 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
016a e006 | | Load 0x0,0x6
016b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
016d 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "SYSTEM_VIEW"
016f 01df | | Execute Vector,Equal
0170 6802 |h | Jump_Zero 0x173
0171 4801 |H | Short_Literal 0x1
0172 4401 |D | Exit_Subprogram With_Result,0x1
0173 4800 |H | Short_Literal 0x0
0174 4401 |D | Exit_Subprogram With_Result,0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 8210 | | Call 0x1,0x10
017d 6811 |h | Jump_Zero 0x18f
017e 00da | | Load_Top At_Offset_2
017f 8211 | | Call 0x1,0x11
0180 00db | | Load_Top At_Offset_3
0181 8212 | | Call 0x1,0x12
0182 0278 | x | Execute Discrete,Or
0183 00db | | Load_Top At_Offset_3
0184 8213 | | Call 0x1,0x13
0185 0278 | x | Execute Discrete,Or
0186 00db | | Load_Top At_Offset_3
0187 8214 | | Call 0x1,0x14
0188 0278 | x | Execute Discrete,Or
0189 00db | | Load_Top At_Offset_3
018a 8215 | | Call 0x1,0x15
018b 0278 | x | Execute Discrete,Or
018c 6802 |h | Jump_Zero 0x18f
018d 4801 |H | Short_Literal 0x1
018e 4401 |D | Exit_Subprogram With_Result,0x1
018f 4800 |H | Short_Literal 0x0
0190 4401 |D | Exit_Subprogram With_Result,0x1
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 01db | | Execute Vector,Length
019d 7002 |p | Jump_Nonzero 0x1a0
019e 4800 |H | Short_Literal 0x0
019f 4401 |D | Exit_Subprogram With_Result,0x1
01a0 00da | | Load_Top At_Offset_2
01a1 01dd | | Execute Vector,First
01a2 00db | | Load_Top At_Offset_3
01a3 01dd | | Execute Vector,First
01a4 e5ff | | Load 0x2,-0x1
01a5 01cf | | Execute Vector,Slice_Read
01a6 8002 | | Call 0x0,0x2
01a7 6810 |h | Jump_Zero 0x1b8
01a8 00da | | Load_Top At_Offset_2
01a9 01dd | | Execute Vector,First
01aa 0a01 | | Execute_Immediate Plus,0x1
01ab 00d8 | | Load_Top At_Offset_0
01ac 00e2 | | Load_Encached Integer_Cache
01ad 0260 | ` | Execute Discrete,In_Type
01ae 7001 |p | Jump_Nonzero 0x1b0
01af 0801 | | Execute_Immediate Raise,0x1
01b0 00db | | Load_Top At_Offset_3
01b1 01dc | | Execute Vector,Last
01b2 e5ff | | Load 0x2,-0x1
01b3 01cf | | Execute Vector,Slice_Read
01b4 8004 | | Call 0x0,0x4
01b5 6802 |h | Jump_Zero 0x1b8
01b6 4801 |H | Short_Literal 0x1
01b7 4401 |D | Exit_Subprogram With_Result,0x1
01b8 4800 |H | Short_Literal 0x0
01b9 4401 |D | Exit_Subprogram With_Result,0x1
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 01db | | Execute Vector,Length
01c5 7002 |p | Jump_Nonzero 0x1c8
01c6 4800 |H | Short_Literal 0x0
01c7 4401 |D | Exit_Subprogram With_Result,0x1
01c8 00da | | Load_Top At_Offset_2
01c9 01dd | | Execute Vector,First
01ca 00db | | Load_Top At_Offset_3
01cb 01dc | | Execute Vector,Last
01cc 0aff | | Execute_Immediate Plus,-0x1
01cd 00d8 | | Load_Top At_Offset_0
01ce 00e2 | | Load_Encached Integer_Cache
01cf 0260 | ` | Execute Discrete,In_Type
01d0 7001 |p | Jump_Nonzero 0x1d2
01d1 0801 | | Execute_Immediate Raise,0x1
01d2 e5ff | | Load 0x2,-0x1
01d3 01cf | | Execute Vector,Slice_Read
01d4 8004 | | Call 0x0,0x4
01d5 680a |h | Jump_Zero 0x1e0
01d6 00da | | Load_Top At_Offset_2
01d7 01dc | | Execute Vector,Last
01d8 00db | | Load_Top At_Offset_3
01d9 01dc | | Execute Vector,Last
01da e5ff | | Load 0x2,-0x1
01db 01cf | | Execute Vector,Slice_Read
01dc 8003 | | Call 0x0,0x3
01dd 6802 |h | Jump_Zero 0x1e0
01de 4801 |H | Short_Literal 0x1
01df 4401 |D | Exit_Subprogram With_Result,0x1
01e0 4800 |H | Short_Literal 0x0
01e1 4401 |D | Exit_Subprogram With_Result,0x1
01e2 ; --------------------------------------------------------------------------------------
01e2 ; STRING TABLE
01e2 ; --------------------------------------------------------------------------------------
01e2 000e | | .STRTAB 0x000e->0x01e9 ; "<NULL>"
01e3 0012 | | .STRTAB 0x0012->0x01ec ; "WORLD"
01e4 0015 | | .STRTAB 0x0015->0x01ee ; "SPEC_VIEW"
01e5 001c | | .STRTAB 0x001c->0x01f3 ; "LOAD_VIEW"
01e6 0023 | # | .STRTAB 0x0023->0x01f7 ; "COMBINED_VIEW"
01e7 002e | . | .STRTAB 0x002e->0x01fe ; "SYSTEM_VIEW"
01e8 0037 | 7 | .STREND 0x0037->0x0203
01e9 3c4e 554c |<NUL| .STRTAB_STRINGS
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug Table
0208 ; --------------------------------------------------------------------------------------
0208 0004 000a | | .DEBUG4 0x0004,0x000a,0x72ca,0x0000,0x0001,0x0000
020e 0000 0000 | | .BLANK 0000[0x1f2]