|
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_0a7cf5
└─⟦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 28fb 5f6c |( _l| .XXX[0x19a]
0268 9871 62c3 | qb |
026a 07ed 0fc1 | |
026c b3b9 d16d | m|
026e 3fc9 d16f |? o|
0270 5829 ff9a |X) |
0272 9f68 f88a | h |
0274 789e 2fc1 |x / |
0276 f20d afc8 | |
0278 0f8b 42c8 | B |
027a f883 5fce | _ |
027c ff80 8810 | |
027e 0fb8 08e9 | |
0280 efbe 9927 | '|
0282 f888 ea37 | 7|
0284 4fc2 d857 |O W|
0286 7fc4 0fcf | |
0288 88ef c814 | |
028a c8e7 0797 | |
028c 08c0 d8a5 | |
028e bf80 4858 | HX|
0290 17f3 bc1f | |
0292 987f 7fb7 | |
0294 07d7 c801 | |
0296 a82f 17db | / |
0298 c7e7 b8cd | |
029a f7f1 785a | xZ|
029c c886 5f76 | _v|
029e 5897 58c6 |X X |
02a0 f7d3 6827 | h'|
02a2 6fba b869 |o i|
02a4 1f71 a807 | q |
02a6 afa1 9fd2 | |
02a8 4f8f 284c |O (L|
02aa 98b3 4f7b | O{|
02ac c877 089b | w |
02ae c879 1f7b | y {|
02b0 b805 f86b | k|
02b2 c872 5fd5 | r_ |
02b4 78ba a894 |x |
02b6 9f7d 77d2 | }w |
02b8 1fdf 47d6 | G |
02ba 489d a7d1 |H |
02bc 88a1 bfd4 | |
02be d81a 2854 | (T|
02c0 f810 cfbf | |
02c2 2826 1893 |(& |
02c4 efb5 ffa9 | |
02c6 d93b 2888 | ;( |
02c8 be6a 7f90 | j |
02ca 4fa6 085f |O _|
02cc afc8 68c2 | h |
02ce 8816 992f | /|
02d0 b820 68cd | h |
02d2 018b 7101 | q |
02d4 4f70 47fb |OpG |
02d6 42c8 c8bb |B |
02d8 7fb6 5053 | PS|
02da 0f6c cfb4 | l |
02dc e059 a818 | Y |
02de 8f9d 018c | |
02e0 288c 8058 |( X|
02e2 f861 d897 | a |
02e4 9843 3f62 | C?b|
02e6 c81b b06a | j|
02e8 f8a1 2878 | (x|
02ea f8d3 5007 | P |
02ec 984a d1ca | J |
02ee 389d 4f6e |8 On|
02f0 e8b1 f20b | |
02f2 7840 3029 |x@0)|
02f4 2891 62cd |( b |
02f6 9bc3 7811 | x |
02f8 606b 401a |`k@ |
02fa 6837 6f0c |h7o |
02fc d0f2 883f | ?|
02fe 57dc c856 |W V|
0300 0811 4843 | HC|
0302 c7ed 67e4 | g |
0304 c7e0 b026 | &|
0306 b052 1f72 | R r|
0308 0f74 4854 | tHT|
030a 1f95 0fc2 | |
030c 5075 a7f6 |Pu |
030e 57f0 f827 |W '|
0310 61cb 48a0 |a H |
0312 9da1 e7f8 | |
0314 1862 f839 | b 9|
0316 48e4 882a |H *|
0318 8888 d8a7 | |
031a ef9a b0a9 | |
031c 6901 4847 |i HG|
031e 3847 1ad6 |8G |
0320 57d8 47da |W G |
0322 0a3d 87f9 | = |
0324 6f6f 97d7 |oo |
0326 d899 8832 | 2|
0328 cf7b bfc7 | { |
032a 4abd d886 |J |
032c d95a 2fb8 | Z/ |
032e 58c4 d894 |X |
0330 7fb0 afb4 | |
0332 2881 8fdc |( |
0334 f7f1 62cf | b |
0336 c7d3 dfba | |
0338 8863 e896 | c |
033a e819 d167 | g|
033c 683c 5fbb |h<_ |
033e 0fd8 47d5 | G |
0340 68c8 88ba |h |
0342 1fcd 1895 | |
0344 c89d 1898 | |
0346 cfbc e7fe | |
0348 c070 3804 | p8 |
034a 980d 786d | xm|
034c 90eb bfd6 | |
034e 284b bfda |(K |
0350 b82c e7f4 | , |
0352 a8e5 98bc | |
0354 6fd3 1aaa |o |
0356 b823 f87c | # ||
0358 7052 1017 |pR |
035a 6831 08cf |h1 |
035c d8ee f7dc | |
035e 8814 d7ed | |
0360 9118 57f7 | W |
0362 8f8d 37fa | 7 |
0364 2079 78ac | yx |
0366 27e5 38d8 |' 8 |
0368 8fb0 8807 | |
036a 92c2 47ec | G |
036c bc8c 987c | ||
036e a7f5 b890 | |
0370 92a8 98a2 | |
0372 809e bfbd | |
0374 28b1 c877 |( w|
0376 b83a 27d4 | :' |
0378 77ed 384a |w 8J|
037a 38dc 91a7 |8 |
037c 7fa3 984f | O|
037e 9fbf 4f8b | O |
0380 993f 3e18 | ?> |
0382 a833 efdf | 3 |
0384 a840 6faf | @o |
0386 bfcb 787a | xz|
0388 d858 27d4 | X' |
038a 981a 97d5 | |
038c 9b77 ffc5 | w |
038e ab9a 38c0 | 8 |
0390 88d2 cf92 | |
0392 9f91 1f82 | |
0394 28ed c7f7 |( |
0396 bbfa 0f69 | i|
0398 ffc0 7817 | x |
039a d85c 5ae0 | \Z |
039c d862 b86a | b j|
039e e851 7858 | QxX|
03a0 47d4 ff81 |G |
03a2 a823 7b40 | #{@|
03a4 a8fd 88dd | |
03a6 87ff 0f94 | |
03a8 07cd c7f9 | |
03aa f8cb 9800 | |
03ac c0f3 682a | h*|
03ae 87e8 67ed | g |
03b0 4fd2 2fe3 |O / |
03b2 cf89 d7da | |
03b4 788e c292 |x |
03b6 2fe4 97ee |/ |
03b8 2092 afee | |
03ba c29b 7102 | q |
03bc afea 2072 | r|
03be 5067 3819 |Pg8 |
03c0 3f83 6b1f |? k |
03c2 987e 27f7 | ~' |
03c4 382a 97d6 |8* |
03c6 cfc6 37d5 | 7 |
03c8 0be6 ffc4 | |
03ca afbf ff92 | |
03cc e924 18ac | $ |
03ce e95b ffcb | [ |
03d0 287c 0fac |(| |
03d2 2fcb 07fc |/ |
03d4 4fc8 ef61 |O a|
03d6 1fb0 ffb5 | |
03d8 e01e 58b8 | X |
03da e0eb 381d | 8 |
03dc a7db 4a83 | J |
03de 1fc8 cfa2 | |
03e0 8fc9 df61 | a|
03e2 0065 5fe1 | e_ |
03e4 980f 9fae | |
03e6 6fcd af64 |o d|
03e8 2f87 6f75 |/ ou|
03ea bfe7 f8ad | |
03ec 6fa9 086e |o n|
03ee bf69 0842 | i B|
03f0 2fb5 20ad |/ |
03f2 a1b6 684d | hM|
03f4 ffdf b7e7 | |
03f6 c82b 08a3 | + |
03f8 782a c178 |x* x|
03fa 0b9a d853 | S|
03fc e8cd 48b2 | H |
03fe 90fb 5c1c | \ |