|
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_0694fc
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0057 | W | .CONST 0x0057 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b e001 | | Load 0x0,0x1
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001e 0129 | ) | Execute Any,Make_Visible
001f c211 | | Store 0x1,0x11
0020 e001 | | Load 0x0,0x1
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0023 0129 | ) | Execute Any,Make_Visible
0024 c212 | | Store 0x1,0x12
0025 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0027 c215 | | Store 0x1,0x15
0028 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
002a c213 | | Store 0x1,0x13
002b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
002d c216 | | Store 0x1,0x16
002e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0030 c217 | | Store 0x1,0x17
0031 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0033 c218 | | Store 0x1,0x18
0034 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0036 c219 | | Store 0x1,0x19
0037 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0039 c21a | | Store 0x1,0x1a
003a 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
003c c21b | | Store 0x1,0x1b
003d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
003f c21c | | Store 0x1,0x1c
0040 00bf | | Action Accept_Activation
0041 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
0043 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0045 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0046 00c7 | | Action Elaborate_Subprogram
0047 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0048 00c7 | | Action Elaborate_Subprogram
0049 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004a 00c7 | | Action Elaborate_Subprogram
004b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004c 00c7 | | Action Elaborate_Subprogram
004d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004e 00c7 | | Action Elaborate_Subprogram
004f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0050 00c7 | | Action Elaborate_Subprogram
0051 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0052 00c7 | | Action Elaborate_Subprogram
0053 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0054 00c7 | | Action Elaborate_Subprogram
0055 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0056 00c7 | | Action Elaborate_Subprogram
0057 BODY_0008:
0057 00bc | | Action Signal_Activated
0058 00bb | | Action Signal_Completion
0059 0000 0000 | | .BLANK 0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0071 | q | .CONST 0x0071 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0004 | | .CONST 0x0004 ; Number of locals
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2
0064 e001 | | Load 0x0,0x1
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0067 0f02 | | Execute_Immediate Equal,0x2
0068 0007 | | Action Break_Optional
0069 00db | | Load_Top At_Offset_3
006a e001 | | Load 0x0,0x1
006b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 0c02 | | Execute_Immediate Greater_Equal,0x2
006e 0007 | | Action Break_Optional
006f 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
0071 BODY_0060:
0071 00da | | Load_Top At_Offset_2
0072 e5ff | | Load 0x2,-0x1
0073 821d | | Call 0x1,0x1d
0074 e5ff | | Load 0x2,-0x1
0075 821e | | Call 0x1,0x1e
0076 0278 | x | Execute Discrete,Or
0077 0279 | y | Execute Discrete,And
0078 00da | | Load_Top At_Offset_2
0079 0279 | y | Execute Discrete,And
007a 6803 |h | Jump_Zero 0x7e
007b e5ff | | Load 0x2,-0x1
007c 8404 | | Call 0x2,0x4
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 4800 |H | Short_Literal 0x0
007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e001 | | Load 0x0,0x1
0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0085 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0086 4800 |H | Short_Literal 0x0
0087 4801 |H | Short_Literal 0x1
0088 4800 |H | Short_Literal 0x0
0089 e5ff | | Load 0x2,-0x1
008a e002 | | Load 0x0,0x2
008b 180f | | Execute Package,Field_Execute,Field_Number 0xf
008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099 | | .CONST 0x0099 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e003 | | Load 0x0,0x3
0095 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0096 e5fe | | Load 0x2,-0x2
0097 e003 | | Load 0x0,0x3
0098 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0099 BODY_0090:
0099 00d9 | | Load_Top At_Offset_1
009a 00d9 | | Load_Top At_Offset_1
009b 01de | | Execute Vector,Not_Equal
009c 6802 |h | Jump_Zero 0x9f
009d 4800 |H | Short_Literal 0x0
009e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009f 4801 |H | Short_Literal 0x1
00a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b1 | | .CONST 0x00b1 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e003 | | Load 0x0,0x3
00ad 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ae e5fe | | Load 0x2,-0x2
00af e003 | | Load 0x0,0x3
00b0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00b1 BODY_00a8:
00b1 00d9 | | Load_Top At_Offset_1
00b2 00d9 | | Load_Top At_Offset_1
00b3 01de | | Execute Vector,Not_Equal
00b4 6806 |h | Jump_Zero 0xbb
00b5 4801 |H | Short_Literal 0x1
00b6 00d9 | | Load_Top At_Offset_1
00b7 00db | | Load_Top At_Offset_3
00b8 e004 | | Load 0x0,0x4
00b9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00bb e5ff | | Load 0x2,-0x1
00bc 821e | | Call 0x1,0x1e
00bd e5fe | | Load 0x2,-0x2
00be 821d | | Call 0x1,0x1d
00bf 0279 | y | Execute Discrete,And
00c0 6802 |h | Jump_Zero 0xc3
00c1 4800 |H | Short_Literal 0x0
00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c3 4801 |H | Short_Literal 0x1
00c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0 | | .CONST 0x00d0 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc e001 | | Load 0x0,0x1
00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ce 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
00cf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d0 BODY_00c8:
00d0 00d8 | | Load_Top At_Offset_0
00d1 e005 | | Load 0x0,0x5
00d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00d3 027f | | Execute Discrete,Equal
00d4 00d9 | | Load_Top At_Offset_1
00d5 e005 | | Load 0x0,0x5
00d6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00d7 027f | | Execute Discrete,Equal
00d8 0278 | x | Execute Discrete,Or
00d9 00d9 | | Load_Top At_Offset_1
00da e005 | | Load 0x0,0x5
00db 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00dc 027f | | Execute Discrete,Equal
00dd 0278 | x | Execute Discrete,Or
00de 00d9 | | Load_Top At_Offset_1
00df e005 | | Load 0x0,0x5
00e0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00e1 027f | | Execute Discrete,Equal
00e2 0278 | x | Execute Discrete,Or
00e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f3 | | .CONST 0x00f3 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec e001 | | Load 0x0,0x1
00ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ef e001 | | Load 0x0,0x1
00f0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00f2 03f1 | | Declare_Variable Discrete,With_Value
00f3 BODY_00e8:
00f3 00db | | Load_Top At_Offset_3
00f4 8215 | | Call 0x1,0x15
00f5 6803 |h | Jump_Zero 0xf9
00f6 00d8 | | Load_Top At_Offset_0
00f7 0f04 | | Execute_Immediate Equal,0x4
00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f9 4800 |H | Short_Literal 0x0
00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fb 0000 0000 | | .BLANK 0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107 | | .CONST 0x0107 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e211 | | Load 0x1,0x11
0104 02c7 | | Declare_Variable Any
0105 00d8 | | Load_Top At_Offset_0
0106 1c00 | | Execute_Immediate Run_Utility,0x0
0107 BODY_0100:
0107 00db | | Load_Top At_Offset_3
0108 8219 | | Call 0x1,0x19
0109 680d |h | Jump_Zero 0x117
010a 00db | | Load_Top At_Offset_3
010b e001 | | Load 0x0,0x1
010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010e c402 | | Store 0x2,0x2
010f 00d8 | | Load_Top At_Offset_0
0110 8219 | | Call 0x1,0x19
0111 6803 |h | Jump_Zero 0x115
0112 00d8 | | Load_Top At_Offset_0
0113 821a | | Call 0x1,0x1a
0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0115 00d8 | | Load_Top At_Offset_0
0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0117 e001 | | Load 0x0,0x1
0118 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0119 180e | | Execute Package,Field_Execute,Field_Number 0xe
011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e006 | | Load 0x0,0x6
0125 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0126 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0139 | 9 | .CONST 0x0139 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0006 | | .CONST 0x0006 ; Number of locals
012b INIT_0128:
012b e211 | | Load 0x1,0x11
012c 02c7 | | Declare_Variable Any
012d 00db | | Load_Top At_Offset_3
012e a402 | | Store_Unchecked 0x2,0x2
012f e211 | | Load 0x1,0x11
0130 02c7 | | Declare_Variable Any
0131 00d8 | | Load_Top At_Offset_0
0132 1c00 | | Execute_Immediate Run_Utility,0x0
0133 029f 018b | | Declare_Subprogram INIT_0188,For_Call
0135 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0137 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0139 BODY_0128:
0139 e402 | | Load 0x2,0x2
013a 821d | | Call 0x1,0x1d
013b 6804 |h | Jump_Zero 0x140
013c 8405 | | Call 0x2,0x5
013d 6802 |h | Jump_Zero 0x140
013e 8406 | | Call 0x2,0x6
013f 7807 |x | Jump 0x147
0140 e5ff | | Load 0x2,-0x1
0141 00d8 | | Load_Top At_Offset_0
0142 0120 | | Execute Any,Is_Value
0143 7002 |p | Jump_Nonzero 0x146
0144 00d8 | | Load_Top At_Offset_0
0145 011e | | Execute Any,Convert
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 0831 | 1 | Execute_Immediate Raise,0x31
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 e001 | | Load 0x0,0x1
014d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
014e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014f 0f02 | | Execute_Immediate Equal,0x2
0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c e001 | | Load 0x0,0x1
015d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
015e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015f 0f03 | | Execute_Immediate Equal,0x3
0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016e | n | .CONST 0x016e ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c e003 | | Load 0x0,0x3
016d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
016e BODY_0168:
016e 00d8 | | Load_Top At_Offset_0
016f 01db | | Execute Vector,Length
0170 0c01 | | Execute_Immediate Greater_Equal,0x1
0171 6812 |h | Jump_Zero 0x184
0172 00d8 | | Load_Top At_Offset_0
0173 01dd | | Execute Vector,First
0174 00d9 | | Load_Top At_Offset_1
0175 01d7 | | Execute Vector,Field_Read
0176 0e5f | _ | Execute_Immediate Not_Equal,0x5f
0177 6802 |h | Jump_Zero 0x17a
0178 4801 |H | Short_Literal 0x1
0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017a 0092 0254 | T| Action Push_String_Extended,0x254 ; "Ignoring "
017c e7ff | | Load 0x3,-0x1
017d e003 | | Load 0x0,0x3
017e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
017f 01cc | | Execute Vector,Catenate
0180 e007 | | Load 0x0,0x7
0181 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0182 4800 |H | Short_Literal 0x0
0183 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0184 4800 |H | Short_Literal 0x0
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 018f | | .CONST 0x018f ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
018d BODY_0188:
018d 8602 | | Call 0x3,0x2
018e 0831 | 1 | Execute_Immediate Raise,0x31
018f TRAP_0188:
018f 0007 | | Action Break_Optional
0190 e001 | | Load 0x0,0x1
0191 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0192 180e | | Execute Package,Field_Execute,Field_Number 0xe
0193 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d | | .CONST 0x019d ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e008 | | Load 0x0,0x8
019c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
019d BODY_0198:
019d 00cf | | Action Mark_Auxiliary
019e e402 | | Load 0x2,0x2
019f e001 | | Load 0x0,0x1
01a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a2 c402 | | Store 0x2,0x2
01a3 e402 | | Load 0x2,0x2
01a4 e001 | | Load 0x0,0x1
01a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a6 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
01a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01a8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01a9 00d9 | | Load_Top At_Offset_1
01aa e005 | | Load 0x0,0x5
01ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ac 027f | | Execute Discrete,Equal
01ad 6802 |h | Jump_Zero 0x1b0
01ae 4801 |H | Short_Literal 0x1
01af 00ca | | Action Exit_Nullary_Function
01b0 00d9 | | Load_Top At_Offset_1
01b1 e005 | | Load 0x0,0x5
01b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01b3 027f | | Execute Discrete,Equal
01b4 6802 |h | Jump_Zero 0x1b7
01b5 4800 |H | Short_Literal 0x0
01b6 00ca | | Action Exit_Nullary_Function
01b7 00d9 | | Load_Top At_Offset_1
01b8 e005 | | Load 0x0,0x5
01b9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01ba 027f | | Execute Discrete,Equal
01bb 6802 |h | Jump_Zero 0x1be
01bc 4800 |H | Short_Literal 0x0
01bd 00ca | | Action Exit_Nullary_Function
01be 00d9 | | Load_Top At_Offset_1
01bf e005 | | Load 0x0,0x5
01c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c1 027f | | Execute Discrete,Equal
01c2 6802 |h | Jump_Zero 0x1c5
01c3 4800 |H | Short_Literal 0x0
01c4 00ca | | Action Exit_Nullary_Function
01c5 00d9 | | Load_Top At_Offset_1
01c6 e005 | | Load 0x0,0x5
01c7 180f | | Execute Package,Field_Execute,Field_Number 0xf
01c8 027f | | Execute Discrete,Equal
01c9 6802 |h | Jump_Zero 0x1cc
01ca 4800 |H | Short_Literal 0x0
01cb 00ca | | Action Exit_Nullary_Function
01cc 00d9 | | Load_Top At_Offset_1
01cd e005 | | Load 0x0,0x5
01ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01cf 027f | | Execute Discrete,Equal
01d0 6802 |h | Jump_Zero 0x1d3
01d1 4800 |H | Short_Literal 0x0
01d2 00ca | | Action Exit_Nullary_Function
01d3 00d9 | | Load_Top At_Offset_1
01d4 e005 | | Load 0x0,0x5
01d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01d6 027f | | Execute Discrete,Equal
01d7 6802 |h | Jump_Zero 0x1da
01d8 4800 |H | Short_Literal 0x0
01d9 00ca | | Action Exit_Nullary_Function
01da 00c9 | | Action Pop_Auxiliary_Loop
01db 7fc2 | | Jump 0x19e
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f1 | | .CONST 0x01f1 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 e211 | | Load 0x1,0x11
01e4 02c7 | | Declare_Variable Any
01e5 e402 | | Load 0x2,0x2
01e6 e001 | | Load 0x0,0x1
01e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e9 a602 | | Store_Unchecked 0x3,0x2
01ea e211 | | Load 0x1,0x11
01eb 02c7 | | Declare_Variable Any
01ec 4800 |H | Short_Literal 0x0
01ed 00da | | Load_Top At_Offset_2
01ee e009 | | Load 0x0,0x9
01ef 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f0 a603 | | Store_Unchecked 0x3,0x3
01f1 BODY_01e0:
01f1 00d8 | | Load_Top At_Offset_0
01f2 e001 | | Load 0x0,0x1
01f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f5 00da | | Load_Top At_Offset_2
01f6 00da | | Load_Top At_Offset_2
01f7 e001 | | Load 0x0,0x1
01f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01fa 0278 | x | Execute Discrete,Or
01fb 6808 |h | Jump_Zero 0x204
01fc e5ff | | Load 0x2,-0x1
01fd 00d8 | | Load_Top At_Offset_0
01fe 0120 | | Execute Any,Is_Value
01ff 7002 |p | Jump_Nonzero 0x202
0200 00d8 | | Load_Top At_Offset_0
0201 011e | | Execute Any,Convert
0202 00cb | | Action Pop_Block_With_Result
0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0204 00d8 | | Load_Top At_Offset_0
0205 e402 | | Load 0x2,0x2
0206 e5ff | | Load 0x2,-0x1
0207 8404 | | Call 0x2,0x4
0208 c403 | | Store 0x2,0x3
0209 e403 | | Load 0x2,0x3
020a e001 | | Load 0x0,0x1
020b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020c 180f | | Execute Package,Field_Execute,Field_Number 0xf
020d 6808 |h | Jump_Zero 0x216
020e e5ff | | Load 0x2,-0x1
020f 00d8 | | Load_Top At_Offset_0
0210 0120 | | Execute Any,Is_Value
0211 7002 |p | Jump_Nonzero 0x214
0212 00d8 | | Load_Top At_Offset_0
0213 011e | | Execute Any,Convert
0214 00cb | | Action Pop_Block_With_Result
0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0216 e403 | | Load 0x2,0x3
0217 00cb | | Action Pop_Block_With_Result
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0251 | Q | .CONST 0x0251 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0007 | | .CONST 0x0007 ; Number of locals
0223 INIT_0220:
0223 e7ff | | Load 0x3,-0x1
0224 e001 | | Load 0x0,0x1
0225 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0226 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0227 e7fe | | Load 0x3,-0x2
0228 e001 | | Load 0x0,0x1
0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
022b 0092 0255 | U| Action Push_String_Extended,0x255 ; ".UNITS"
022d 01cc | | Execute Vector,Catenate
022e 0007 | | Action Break_Optional
022f 00d9 | | Load_Top At_Offset_1
0230 01dd | | Execute Vector,First
0231 00d9 | | Load_Top At_Offset_1
0232 01db | | Execute Vector,Length
0233 0273 | s | Execute Discrete,Plus
0234 00d8 | | Load_Top At_Offset_0
0235 00e2 | | Load_Encached Integer_Cache
0236 0260 | ` | Execute Discrete,In_Type
0237 7001 |p | Jump_Nonzero 0x239
0238 0801 | | Execute_Immediate Raise,0x1
0239 00da | | Load_Top At_Offset_2
023a 01dc | | Execute Vector,Last
023b 00db | | Load_Top At_Offset_3
023c 01cf | | Execute Vector,Slice_Read
023d 0007 | | Action Break_Optional
023e e7fd | | Load 0x3,-0x3
023f e001 | | Load 0x0,0x1
0240 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0241 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0242 00d8 | | Load_Top At_Offset_0
0243 00da | | Load_Top At_Offset_2
0244 01cc | | Execute Vector,Catenate
0245 0007 | | Action Break_Optional
0246 e211 | | Load 0x1,0x11
0247 02c7 | | Declare_Variable Any
0248 4801 |H | Short_Literal 0x1
0249 e001 | | Load 0x0,0x1
024a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024c 00db | | Load_Top At_Offset_3
024d e001 | | Load 0x0,0x1
024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0250 a807 | | Store_Unchecked 0x4,0x7
0251 BODY_0220:
0251 00d8 | | Load_Top At_Offset_0
0252 00cb | | Action Pop_Block_With_Result
0253 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0254 ; --------------------------------------------------------------------------------------
0254 ; STRING TABLE
0254 ; --------------------------------------------------------------------------------------
0254 0006 | | .STRTAB 0x0006->0x0257 ; "Ignoring "
0255 000d | | .STRTAB 0x000d->0x025b ; ".UNITS"
0256 0011 | | .STREND 0x0011->0x025e
0257 4967 6e6f |Igno| .STRTAB_STRINGS
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0ec8,0x0000,0x0001,0x0000
0266 b88a ee00 | | .XXX[0x32]
0268 af8a da00 | |
026a be48 fa00 | H |
026c 7b89 0000 |{ |
026e 02e4 fe00 | |
0270 0000 0000 | |
0272 0000 0008 | |
0274 6f19 0000 |o |
0276 07d7 9d00 | |
0278 0000 0000 | |
027a 5c46 b800 |\F |
027c 401a 0600 |@ |
027e 6410 1800 |d |
0280 3dc4 8000 |= |
0282 018a a400 | |
0284 0000 0000 | |
0286 0000 0004 | |
0288 378c 8000 |7 |
028a 03ec 5c00 | \ |
028c 0000 0000 | |
028e 2e23 fc80 |.# |
0290 28fb 3c80 |( < |
0292 32f9 9c02 |2 |
0294 1bc6 4000 | @ |
0296 01f5 e740 | @|
0298 0000 0000 | | .BLANK 0000[0x7]
029f 0001 0de3 | | .XXX[0x5]
02a1 2000 00fa | |
02a3 f3a0 | |
02a4 0000 0000 | | .BLANK 0000[0x8]
02ac 07b8 9000 | | .XXX[0x4]
02ae 0031 5480 | 1T |
02b0 0000 0000 | | .BLANK 0000[0x4]
02b4 07b8 9000 | | .XXX[0x4]
02b6 0031 5480 | 1T |
02b8 0000 0000 | | .BLANK 0000[0x4]
02bc 07b8 9000 | | .XXX[0x4]
02be 0031 5480 | 1T |
02c0 0000 0000 | | .BLANK 0000[0x4]
02c4 86f1 9000 | | .XXX[0x26]
02c6 006d 2c60 | m,`|
02c8 0000 0000 | |
02ca 05c3 3950 | 9P|
02cc 0000 0000 | |
02ce 0000 000f | |
02d0 ffff fff0 | |
02d2 0000 0021 | !|
02d4 0de2 a000 | |
02d6 005a 9940 | Z @|
02d8 0000 0000 | |
02da 0000 0001 | |
02dc 0de2 a000 | |
02de 005a 9940 | Z @|
02e0 0000 0000 | |
02e2 0000 0001 | |
02e4 0de2 a000 | |
02e6 01ae 95c0 | |
02e8 0000 0088 | |
02ea 0000 0000 | | .BLANK 0000[0x8]
02f2 4379 4800 |CyH | .XXX[0x4]
02f4 001f 30a0 | 0 |
02f6 0000 0000 | | .BLANK 0000[0x4]
02fa 4379 4800 |CyH | .XXX[0x4]
02fc 001f 30a0 | 0 |
02fe 0000 0000 | | .BLANK 0000[0x4]
0302 0210 6800 | h | .XXX[0x33]
0304 0005 7d58 | }X|
0306 0000 0004 | |
0308 ec2b 7216 | +r |
030a 00b8 9f3a | :|
030c ec2b 7216 | +r |
030e 00b8 9c76 | v|
0310 10de 2a00 | * |
0312 0005 a994 | |
0314 c080 0000 | |
0316 0000 0000 | |
0318 0020 0000 | |
031a 0000 06f7 | |
031c d380 0000 | |
031e 0000 0b89 | |
0320 8780 0000 | |
0322 0000 0b87 | |
0324 2481 0de2 |$ |
0326 a000 005a | Z|
0328 9940 0000 | @ |
032a 0000 0000 | |
032c 0001 0de3 | |
032e 2000 00fb | |
0330 0820 0000 | |
0332 0000 0b8a | |
0334 4960 |I` |
0335 0000 0000 | | .BLANK 0000[0x4]
0339 86f1 5000 | P | .XXX[0x4]
033b 002d 4ca0 | -L |
033d 0000 0000 | | .BLANK 0000[0x4]
0341 86f1 5000 | P | .XXX[0x4]
0343 002d 4ca0 | -L |
0345 0000 0000 | | .BLANK 0000[0x4]
0349 86f1 9000 | | .XXX[0x10]
034b 007d 8410 | } |
034d 0000 0000 | |
034f 05c5 40c0 | @ |
0351 04d4 3170 | 1p|
0353 082d a188 | - |
0355 4378 a800 |Cx |
0357 004a a288 | J |
0359 0000 0000 | | .BLANK 0000[0x4]
035d 4378 c800 |Cx | .XXX[0x10]
035f 003e c208 | > |
0361 0000 0000 | |
0363 02e2 aa68 | h|
0365 026a 1ec0 | j |
0367 03cf cb14 | |
0369 21bc 5400 |! T |
036b 0025 5144 | %QD|
036d 0000 0000 | | .BLANK 0000[0x4]
0371 21bc 6400 |! d | .XXX[0x8]
0373 0089 2fb4 | / |
0375 21bc 6400 |! d |
0377 0089 2b60 | +`|
0379 0000 0000 | | .BLANK 0000[0x4]
037d 10de 3200 | 2 | .XXX[0x33]
037f 0044 97da | D |
0381 0000 0000 | |
0383 00b8 dffd | |
0385 ff40 0000 | @ |
0387 0140 0000 | @ |
0389 0000 0e43 | C|
038b 1d80 0000 | |
038d 0000 0000 | |
038f 0002 1bc6 | |
0391 4000 01f7 |@ |
0393 d282 1bc6 | |
0395 4000 01f7 |@ |
0397 d280 0000 | |
0399 0000 0000 | |
039b 0002 1bc6 | |
039d 4000 0018 |@ |
039f f380 0000 | |
03a1 0000 101a | |
03a3 0f40 0000 | @ |
03a5 0000 1717 | |
03a7 26c0 0000 |& |
03a9 0040 0000 | @ |
03ab 0080 3e7a | >z|
03ad 8000 0067 | g|
03af a800 | |
03b0 0000 0000 | | .BLANK 0000[0x4]
03b4 3e7a 8000 |>z | .XXX[0xe]
03b6 0067 a800 | g |
03b8 0000 0000 | |
03ba 0000 0004 | |
03bc 378c 8000 |7 |
03be 0eee 9980 | |
03c0 0000 0140 | @|
03c2 0000 0000 | | .BLANK 0000[0x8]
03ca 0f9e a000 | | .XXX[0x9]
03cc 0019 ea10 | |
03ce 0400 0000 | |
03d0 0000 0000 | |
03d2 0200 | |
03d3 0000 0000 | | .BLANK 0000[0x6]
03d9 b8b3 7400 | t | .XXX[0x16]
03db 0000 0000 | |
03dd b2ae ac00 | |
03df f9ea 0000 | |
03e1 019e a000 | |
03e3 0000 0000 | |
03e5 0000 0010 | |
03e7 de32 0000 | 2 |
03e9 0fb7 dc00 | |
03eb 0000 0000 | |
03ed b8bb ce00 | |
03ef 0000 0000 | | .BLANK 0000[0x4]
03f3 7cf5 0000 || | .XXX[0xd]
03f5 00cf 5000 | P |
03f7 0000 0000 | |
03f9 0000 0008 | |
03fb 6f19 0000 |o |
03fd 07db ee00 | |
03ff 0000 | |