|
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_03bcfe
└─⟦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 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 001d | | .CONST 0x001d ; Address of begin
0009 00ad | | .CONST 0x00ad ; Address of exception handler
000a 0006 | | .CONST 0x0006 ; Number of locals
000b INIT_0008:
000b 4820 |H | Short_Literal 0x20
000c e5ff | | Load 0x2,-0x1
000d e06a | j | Load 0x0,0x6a
000e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
000f e06a | j | Load 0x0,0x6a
0010 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0011 00d8 | | Load_Top At_Offset_0
0012 01dd | | Execute Vector,First
0013 00e3 | | Load_Encached Natural_Cache
0014 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0015 e009 | | Load 0x0,0x9
0016 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0017 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0018 e009 | | Load 0x0,0x9
0019 1b10 | | Execute Package,Field_Read,Field_Number 0x10
001a 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
001b 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
001d BODY_0008:
001d e403 | | Load 0x2,0x3
001e e402 | | Load 0x2,0x2
001f 01dc | | Execute Vector,Last
0020 027a | z | Execute Discrete,Less_Equal
0021 682f |h/ | Jump_Zero 0x51
0022 e403 | | Load 0x2,0x3
0023 e402 | | Load 0x2,0x2
0024 01d7 | | Execute Vector,Field_Read
0025 0f2d | - | Execute_Immediate Equal,0x2d
0026 6814 |h | Jump_Zero 0x3b
0027 4fff |O | Short_Literal -0x1
0028 a405 | | Store_Unchecked 0x2,0x5
0029 00cf | | Action Mark_Auxiliary
002a e403 | | Load 0x2,0x3
002b 0a01 | | Execute_Immediate Plus,0x1
002c c403 | | Store 0x2,0x3
002d e403 | | Load 0x2,0x3
002e e402 | | Load 0x2,0x2
002f 01dc | | Execute Vector,Last
0030 027d | } | Execute Discrete,Greater
0031 7007 |p | Jump_Nonzero 0x39
0032 e403 | | Load 0x2,0x3
0033 e402 | | Load 0x2,0x2
0034 01d7 | | Execute Vector,Field_Read
0035 0e20 | | Execute_Immediate Not_Equal,0x20
0036 7002 |p | Jump_Nonzero 0x39
0037 00c9 | | Action Pop_Auxiliary_Loop
0038 7ff1 | | Jump 0x2a
0039 00ce | | Action Pop_Auxiliary
003a 7816 |x | Jump 0x51
003b e403 | | Load 0x2,0x3
003c e402 | | Load 0x2,0x2
003d 01d7 | | Execute Vector,Field_Read
003e 0f2b | + | Execute_Immediate Equal,0x2b
003f 6811 |h | Jump_Zero 0x51
0040 00cf | | Action Mark_Auxiliary
0041 e403 | | Load 0x2,0x3
0042 0a01 | | Execute_Immediate Plus,0x1
0043 c403 | | Store 0x2,0x3
0044 e403 | | Load 0x2,0x3
0045 e402 | | Load 0x2,0x2
0046 01dc | | Execute Vector,Last
0047 027d | } | Execute Discrete,Greater
0048 7007 |p | Jump_Nonzero 0x50
0049 e403 | | Load 0x2,0x3
004a e402 | | Load 0x2,0x2
004b 01d7 | | Execute Vector,Field_Read
004c 0e20 | | Execute_Immediate Not_Equal,0x20
004d 7002 |p | Jump_Nonzero 0x50
004e 00c9 | | Action Pop_Auxiliary_Loop
004f 7ff1 | | Jump 0x41
0050 00ce | | Action Pop_Auxiliary
0051 00cf | | Action Mark_Auxiliary
0052 780d |x | Jump 0x60
0053 e404 | | Load 0x2,0x4
0054 480a |H | Short_Literal 0xa
0055 0271 | q | Execute Discrete,Times
0056 e403 | | Load 0x2,0x3
0057 e402 | | Load 0x2,0x2
0058 01d7 | | Execute Vector,Field_Read
0059 0ad0 | | Execute_Immediate Plus,-0x30
005a 0273 | s | Execute Discrete,Plus
005b c404 | | Store 0x2,0x4
005c e403 | | Load 0x2,0x3
005d 0a01 | | Execute_Immediate Plus,0x1
005e c403 | | Store 0x2,0x3
005f 00c9 | | Action Pop_Auxiliary_Loop
0060 e403 | | Load 0x2,0x3
0061 e402 | | Load 0x2,0x2
0062 01dc | | Execute Vector,Last
0063 027a | z | Execute Discrete,Less_Equal
0064 6807 |h | Jump_Zero 0x6c
0065 e403 | | Load 0x2,0x3
0066 e402 | | Load 0x2,0x2
0067 01d7 | | Execute Vector,Field_Read
0068 4830 |H0 | Short_Literal 0x30
0069 4839 |H9 | Short_Literal 0x39
006a 0262 | b | Execute Discrete,In_Range
006b 77e7 |w | Jump_Nonzero 0x53
006c 00ce | | Action Pop_Auxiliary
006d e403 | | Load 0x2,0x3
006e e402 | | Load 0x2,0x2
006f 01dc | | Execute Vector,Last
0070 027a | z | Execute Discrete,Less_Equal
0071 6828 |h( | Jump_Zero 0x9a
0072 e403 | | Load 0x2,0x3
0073 e402 | | Load 0x2,0x2
0074 01d7 | | Execute Vector,Field_Read
0075 0f2e | . | Execute_Immediate Equal,0x2e
0076 6823 |h# | Jump_Zero 0x9a
0077 e403 | | Load 0x2,0x3
0078 0a01 | | Execute_Immediate Plus,0x1
0079 c403 | | Store 0x2,0x3
007a 00cf | | Action Mark_Auxiliary
007b 7811 |x | Jump 0x8d
007c e404 | | Load 0x2,0x4
007d 480a |H | Short_Literal 0xa
007e 0271 | q | Execute Discrete,Times
007f e403 | | Load 0x2,0x3
0080 e402 | | Load 0x2,0x2
0081 01d7 | | Execute Vector,Field_Read
0082 0ad0 | | Execute_Immediate Plus,-0x30
0083 0273 | s | Execute Discrete,Plus
0084 c404 | | Store 0x2,0x4
0085 e405 | | Load 0x2,0x5
0086 480a |H | Short_Literal 0xa
0087 0271 | q | Execute Discrete,Times
0088 c405 | | Store 0x2,0x5
0089 e403 | | Load 0x2,0x3
008a 0a01 | | Execute_Immediate Plus,0x1
008b c403 | | Store 0x2,0x3
008c 00c9 | | Action Pop_Auxiliary_Loop
008d e403 | | Load 0x2,0x3
008e e402 | | Load 0x2,0x2
008f 01dc | | Execute Vector,Last
0090 027a | z | Execute Discrete,Less_Equal
0091 6807 |h | Jump_Zero 0x99
0092 e403 | | Load 0x2,0x3
0093 e402 | | Load 0x2,0x2
0094 01d7 | | Execute Vector,Field_Read
0095 4830 |H0 | Short_Literal 0x30
0096 4839 |H9 | Short_Literal 0x39
0097 0262 | b | Execute Discrete,In_Range
0098 77e3 |w | Jump_Nonzero 0x7c
0099 00ce | | Action Pop_Auxiliary
009a 00cf | | Action Mark_Auxiliary
009b 7804 |x | Jump 0xa0
009c e403 | | Load 0x2,0x3
009d 0a01 | | Execute_Immediate Plus,0x1
009e c403 | | Store 0x2,0x3
009f 00c9 | | Action Pop_Auxiliary_Loop
00a0 e403 | | Load 0x2,0x3
00a1 e402 | | Load 0x2,0x2
00a2 01dc | | Execute Vector,Last
00a3 027a | z | Execute Discrete,Less_Equal
00a4 6805 |h | Jump_Zero 0xaa
00a5 e403 | | Load 0x2,0x3
00a6 e402 | | Load 0x2,0x2
00a7 01d7 | | Execute Vector,Field_Read
00a8 0f20 | | Execute_Immediate Equal,0x20
00a9 77f2 |w | Jump_Nonzero 0x9c
00aa 00ce | | Action Pop_Auxiliary
00ab 8406 | | Call 0x2,0x6
00ac 0831 | 1 | Execute_Immediate Raise,0x31
00ad TRAP_0008:
00ad 010d | | Execute Exception,Is_Numeric_Error
00ae 6806 |h | Jump_Zero 0xb5
00af 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "Numeric error converting distance. One inch assumed"
00b1 e069 | i | Load 0x0,0x69
00b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b3 6004 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00011940}
00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b5 0100 | | Execute Exception,Raise
00b6 0000 0000 | | .XXX[0x2]
00b8 0000 0000 | | .LITERAL {0x00000000, 0x00011940}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c9 | | .CONST 0x00c9 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e403 | | Load 0x2,0x3
00c4 e402 | | Load 0x2,0x2
00c5 01dc | | Execute Vector,Last
00c6 e402 | | Load 0x2,0x2
00c7 01cf | | Execute Vector,Slice_Read
00c8 0007 | | Action Break_Optional
00c9 BODY_00c0:
00c9 00d8 | | Load_Top At_Offset_0
00ca 01db | | Execute Vector,Length
00cb 680a |h | Jump_Zero 0xd6
00cc 00d8 | | Load_Top At_Offset_0
00cd 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "inches"
00cf 01df | | Execute Vector,Equal
00d0 7005 |p | Jump_Nonzero 0xd6
00d1 00d8 | | Load_Top At_Offset_0
00d2 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "inch"
00d4 01df | | Execute Vector,Equal
00d5 680e |h | Jump_Zero 0xe4
00d6 e404 | | Load 0x2,0x4
00d7 67e0 |g | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00011940}
00d8 0271 | q | Execute Discrete,Times
00d9 e405 | | Load 0x2,0x5
00da 0270 | p | Execute Discrete,Divide
00db e009 | | Load 0x0,0x9
00dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00dd 00d9 | | Load_Top At_Offset_1
00de 00d0 | | Action Swap_Control
00df 0260 | ` | Execute Discrete,In_Type
00e0 7001 |p | Jump_Nonzero 0xe2
00e1 0801 | | Execute_Immediate Raise,0x1
00e2 00cb | | Action Pop_Block_With_Result
00e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e4 00d8 | | Load_Top At_Offset_0
00e5 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "points"
00e7 01df | | Execute Vector,Equal
00e8 7005 |p | Jump_Nonzero 0xee
00e9 00d8 | | Load_Top At_Offset_0
00ea 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "point"
00ec 01df | | Execute Vector,Equal
00ed 680e |h | Jump_Zero 0xfc
00ee e404 | | Load 0x2,0x4
00ef 4be8 |K | Short_Literal 0x3e8
00f0 0271 | q | Execute Discrete,Times
00f1 e405 | | Load 0x2,0x5
00f2 0270 | p | Execute Discrete,Divide
00f3 e009 | | Load 0x0,0x9
00f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00f5 00d9 | | Load_Top At_Offset_1
00f6 00d0 | | Action Swap_Control
00f7 0260 | ` | Execute Discrete,In_Type
00f8 7001 |p | Jump_Nonzero 0xfa
00f9 0801 | | Execute_Immediate Raise,0x1
00fa 00cb | | Action Pop_Block_With_Result
00fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fc 00d8 | | Load_Top At_Offset_0
00fd 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "picas"
00ff 01df | | Execute Vector,Equal
0100 7005 |p | Jump_Nonzero 0x106
0101 00d8 | | Load_Top At_Offset_0
0102 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "pica"
0104 01df | | Execute Vector,Equal
0105 6810 |h | Jump_Zero 0x116
0106 e404 | | Load 0x2,0x4
0107 4be8 |K | Short_Literal 0x3e8
0108 0271 | q | Execute Discrete,Times
0109 480c |H | Short_Literal 0xc
010a 0271 | q | Execute Discrete,Times
010b e405 | | Load 0x2,0x5
010c 0270 | p | Execute Discrete,Divide
010d e009 | | Load 0x0,0x9
010e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
010f 00d9 | | Load_Top At_Offset_1
0110 00d0 | | Action Swap_Control
0111 0260 | ` | Execute Discrete,In_Type
0112 7001 |p | Jump_Nonzero 0x114
0113 0801 | | Execute_Immediate Raise,0x1
0114 00cb | | Action Pop_Block_With_Result
0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0116 00d8 | | Load_Top At_Offset_0
0117 0092 01e9 | | Action Push_String_Extended,0x1e9 ; "em"
0119 01df | | Execute Vector,Equal
011a 7005 |p | Jump_Nonzero 0x120
011b 00d8 | | Load_Top At_Offset_0
011c 0092 01ea | | Action Push_String_Extended,0x1ea ; "ems"
011e 01df | | Execute Vector,Equal
011f 6811 |h | Jump_Zero 0x131
0120 e404 | | Load 0x2,0x4
0121 e220 | | Load 0x1,0x20
0122 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0123 0271 | q | Execute Discrete,Times
0124 4be8 |K | Short_Literal 0x3e8
0125 0271 | q | Execute Discrete,Times
0126 e405 | | Load 0x2,0x5
0127 0270 | p | Execute Discrete,Divide
0128 e009 | | Load 0x0,0x9
0129 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012a 00d9 | | Load_Top At_Offset_1
012b 00d0 | | Action Swap_Control
012c 0260 | ` | Execute Discrete,In_Type
012d 7001 |p | Jump_Nonzero 0x12f
012e 0801 | | Execute_Immediate Raise,0x1
012f 00cb | | Action Pop_Block_With_Result
0130 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0131 00d8 | | Load_Top At_Offset_0
0132 0092 01eb | | Action Push_String_Extended,0x1eb ; "en"
0134 01df | | Execute Vector,Equal
0135 7005 |p | Jump_Nonzero 0x13b
0136 00d8 | | Load_Top At_Offset_0
0137 0092 01ec | | Action Push_String_Extended,0x1ec ; "ens"
0139 01df | | Execute Vector,Equal
013a 6811 |h | Jump_Zero 0x14c
013b e404 | | Load 0x2,0x4
013c e220 | | Load 0x1,0x20
013d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
013e 0271 | q | Execute Discrete,Times
013f 49f4 |I | Short_Literal 0x1f4
0140 0271 | q | Execute Discrete,Times
0141 e405 | | Load 0x2,0x5
0142 0270 | p | Execute Discrete,Divide
0143 e009 | | Load 0x0,0x9
0144 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0145 00d9 | | Load_Top At_Offset_1
0146 00d0 | | Action Swap_Control
0147 0260 | ` | Execute Discrete,In_Type
0148 7001 |p | Jump_Nonzero 0x14a
0149 0801 | | Execute_Immediate Raise,0x1
014a 00cb | | Action Pop_Block_With_Result
014b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014c 00d8 | | Load_Top At_Offset_0
014d 0092 01ed | | Action Push_String_Extended,0x1ed ; "space"
014f 01df | | Execute Vector,Equal
0150 7005 |p | Jump_Nonzero 0x156
0151 00d8 | | Load_Top At_Offset_0
0152 0092 01ee | | Action Push_String_Extended,0x1ee ; "spaces"
0154 01df | | Execute Vector,Equal
0155 681a |h | Jump_Zero 0x170
0156 e404 | | Load 0x2,0x4
0157 4820 |H | Short_Literal 0x20
0158 e066 | f | Load 0x0,0x66
0159 1b12 | | Execute Package,Field_Read,Field_Number 0x12
015a e067 | g | Load 0x0,0x67
015b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
015c 00d8 | | Load_Top At_Offset_0
015d e067 | g | Load 0x0,0x67
015e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
015f 7003 |p | Jump_Nonzero 0x163
0160 e068 | h | Load 0x0,0x68
0161 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0162 0257 | W | Execute Discrete,Raise
0163 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0164 0271 | q | Execute Discrete,Times
0165 e405 | | Load 0x2,0x5
0166 0270 | p | Execute Discrete,Divide
0167 e009 | | Load 0x0,0x9
0168 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0169 00d9 | | Load_Top At_Offset_1
016a 00d0 | | Action Swap_Control
016b 0260 | ` | Execute Discrete,In_Type
016c 7001 |p | Jump_Nonzero 0x16e
016d 0801 | | Execute_Immediate Raise,0x1
016e 00cb | | Action Pop_Block_With_Result
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 00d8 | | Load_Top At_Offset_0
0171 0092 01ef | | Action Push_String_Extended,0x1ef ; "lines"
0173 01df | | Execute Vector,Equal
0174 7005 |p | Jump_Nonzero 0x17a
0175 00d8 | | Load_Top At_Offset_0
0176 0092 01f0 | | Action Push_String_Extended,0x1f0 ; "line"
0178 01df | | Execute Vector,Equal
0179 680f |h | Jump_Zero 0x189
017a e404 | | Load 0x2,0x4
017b e220 | | Load 0x1,0x20
017c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
017d 0271 | q | Execute Discrete,Times
017e e405 | | Load 0x2,0x5
017f 0270 | p | Execute Discrete,Divide
0180 e009 | | Load 0x0,0x9
0181 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0182 00d9 | | Load_Top At_Offset_1
0183 00d0 | | Action Swap_Control
0184 0260 | ` | Execute Discrete,In_Type
0185 7001 |p | Jump_Nonzero 0x187
0186 0801 | | Execute_Immediate Raise,0x1
0187 00cb | | Action Pop_Block_With_Result
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0189 00d8 | | Load_Top At_Offset_0
018a 0092 01f1 | | Action Push_String_Extended,0x1f1 ; "cm"
018c 01df | | Execute Vector,Equal
018d 700a |p | Jump_Nonzero 0x198
018e 00d8 | | Load_Top At_Offset_0
018f 0092 01f2 | | Action Push_String_Extended,0x1f2 ; "centimeters"
0191 01df | | Execute Vector,Equal
0192 7005 |p | Jump_Nonzero 0x198
0193 00d8 | | Load_Top At_Offset_0
0194 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "centimeter"
0196 01df | | Execute Vector,Equal
0197 6812 |h | Jump_Zero 0x1aa
0198 e404 | | Load 0x2,0x4
0199 671e |g | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00011940}
019a 0271 | q | Execute Discrete,Times
019b 4864 |Hd | Short_Literal 0x64
019c 0271 | q | Execute Discrete,Times
019d e405 | | Load 0x2,0x5
019e 48fe |H | Short_Literal 0xfe
019f 0271 | q | Execute Discrete,Times
01a0 0270 | p | Execute Discrete,Divide
01a1 e009 | | Load 0x0,0x9
01a2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01a3 00d9 | | Load_Top At_Offset_1
01a4 00d0 | | Action Swap_Control
01a5 0260 | ` | Execute Discrete,In_Type
01a6 7001 |p | Jump_Nonzero 0x1a8
01a7 0801 | | Execute_Immediate Raise,0x1
01a8 00cb | | Action Pop_Block_With_Result
01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01aa 00d8 | | Load_Top At_Offset_0
01ab 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "mm"
01ad 01df | | Execute Vector,Equal
01ae 700a |p | Jump_Nonzero 0x1b9
01af 00d8 | | Load_Top At_Offset_0
01b0 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "millimeters"
01b2 01df | | Execute Vector,Equal
01b3 7005 |p | Jump_Nonzero 0x1b9
01b4 00d8 | | Load_Top At_Offset_0
01b5 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "millimeter"
01b7 01df | | Execute Vector,Equal
01b8 6812 |h | Jump_Zero 0x1cb
01b9 e404 | | Load 0x2,0x4
01ba 66fd |f | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00011940}
01bb 0271 | q | Execute Discrete,Times
01bc 480a |H | Short_Literal 0xa
01bd 0271 | q | Execute Discrete,Times
01be e405 | | Load 0x2,0x5
01bf 48fe |H | Short_Literal 0xfe
01c0 0271 | q | Execute Discrete,Times
01c1 0270 | p | Execute Discrete,Divide
01c2 e009 | | Load 0x0,0x9
01c3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01c4 00d9 | | Load_Top At_Offset_1
01c5 00d0 | | Action Swap_Control
01c6 0260 | ` | Execute Discrete,In_Type
01c7 7001 |p | Jump_Nonzero 0x1c9
01c8 0801 | | Execute_Immediate Raise,0x1
01c9 00cb | | Action Pop_Block_With_Result
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Unknown units name '"
01cd e602 | | Load 0x3,0x2
01ce 01cc | | Execute Vector,Catenate
01cf 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "'. Inches assumed"
01d1 01cc | | Execute Vector,Catenate
01d2 e069 | i | Load 0x0,0x69
01d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d4 e404 | | Load 0x2,0x4
01d5 66e2 |f | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00011940}
01d6 0271 | q | Execute Discrete,Times
01d7 e405 | | Load 0x2,0x5
01d8 0270 | p | Execute Discrete,Divide
01d9 e009 | | Load 0x0,0x9
01da 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01db 00d9 | | Load_Top At_Offset_1
01dc 00d0 | | Action Swap_Control
01dd 0260 | ` | Execute Discrete,In_Type
01de 7001 |p | Jump_Nonzero 0x1e0
01df 0801 | | Execute_Immediate Raise,0x1
01e0 00cb | | Action Pop_Block_With_Result
01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e2 ; --------------------------------------------------------------------------------------
01e2 ; STRING TABLE
01e2 ; --------------------------------------------------------------------------------------
01e2 0030 | 0 | .STRTAB 0x0030->0x01fa ; "Numeric error converting distance. One inch assumed"
01e3 0062 | b | .STRTAB 0x0062->0x0214 ; "inches"
01e4 0066 | f | .STRTAB 0x0066->0x0217 ; "inch"
01e5 0068 | h | .STRTAB 0x0068->0x0219 ; "points"
01e6 006c | l | .STRTAB 0x006c->0x021c ; "point"
01e7 006f | o | .STRTAB 0x006f->0x021e ; "picas"
01e8 0072 | r | .STRTAB 0x0072->0x0221 ; "pica"
01e9 0074 | t | .STRTAB 0x0074->0x0223 ; "em"
01ea 0074 | t | .STRTAB 0x0074->0x0224 ; "ems"
01eb 0075 | u | .STRTAB 0x0075->0x0225 ; "en"
01ec 0075 | u | .STRTAB 0x0075->0x0226 ; "ens"
01ed 0076 | v | .STRTAB 0x0076->0x0228 ; "space"
01ee 0079 | y | .STRTAB 0x0079->0x022a ; "spaces"
01ef 007d | } | .STRTAB 0x007d->0x022d ; "lines"
01f0 0080 | | .STRTAB 0x0080->0x0230 ; "line"
01f1 0082 | | .STRTAB 0x0082->0x0232 ; "cm"
01f2 0082 | | .STRTAB 0x0082->0x0233 ; "centimeters"
01f3 008b | | .STRTAB 0x008b->0x0238 ; "centimeter"
01f4 0093 | | .STRTAB 0x0093->0x023d ; "mm"
01f5 0093 | | .STRTAB 0x0093->0x023e ; "millimeters"
01f6 009c | | .STRTAB 0x009c->0x0244 ; "millimeter"
01f7 00a4 | | .STRTAB 0x00a4->0x0249 ; "Unknown units name '"
01f8 00b6 | | .STRTAB 0x00b6->0x0253 ; "'. Inches assumed"
01f9 00c6 | | .STREND 0x00c6->0x025c
01fa 4e75 6d65 |Nume| .STRTAB_STRINGS
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 000f | | .DEBUG4 0x0004,0x000f,0x47f7,0x0000,0x0001,0x0000
0266 0000 0000 | | .BLANK 0000[0x8]
026e 0003 6f20 | o | .XXX[0x4]
0270 0003 b700 | |
0272 0000 0000 | | .BLANK 0000[0x20]
0292 0003 e9e0 | | .XXX[0x4]
0294 0004 53c0 | S |
0296 0000 0000 | | .BLANK 0000[0xa]
02a0 0004 aea0 | | .XXX[0x2]
02a2 0000 0000 | | .BLANK 0000[0x16]
02b8 0005 3080 | 0 | .XXX[0x2]
02ba 0000 0000 | | .BLANK 0000[0x16]
02d0 0005 5160 | Q`| .XXX[0x6]
02d2 0000 0000 | |
02d4 0005 c240 | @|
02d6 0000 0000 | | .BLANK 0000[0xe]
02e4 0006 1d20 | | .XXX[0x2]
02e6 0000 0000 | | .BLANK 0000[0x6]
02ec 0006 6b00 | k | .XXX[0x2]
02ee 0000 0000 | | .BLANK 0000[0x18]
0306 0006 c4e0 | | .XXX[0x2]
0308 0000 0000 | | .BLANK 0000[0x6]
030e 0007 22c0 | " | .XXX[0x2]
0310 0000 0000 | | .BLANK 0000[0x7]
0317 0020 0000 | | .XXX[0x7f]
0319 08a0 03a9 | |
031b eaaa 8828 | (|
031d e8ab ea48 | H|
031f aa09 ea4a | J|
0321 85c8 892a | *|
0323 6a09 882b |j +|
0325 2be9 eaaa |+ |
0327 8828 e8aa | ( |
0329 67af 728f |g r |
032b d204 6001 | ` |
032d 0989 e8eb | |
032f ea89 29a8 | ) |
0331 a2e0 022a | *|
0333 6a88 29c8 |j ) |
0335 882a 4885 | *H |
0337 c88a aa48 | H|
0339 2a89 29e9 |* ) |
033b c000 0000 | |
033d 0000 0000 | |
033f 0001 8000 | |
0341 0000 4000 | @ |
0343 0013 8004 | |
0345 d3d5 5510 | U |
0347 51d1 57d4 |Q W |
0349 9154 13d4 | T |
034b 950b 9590 | |
034d 5315 514f |S QO|
034f 5ea5 1fa4 |^ |
0351 08c0 0052 | R|
0353 45c0 0593 |E |
0355 d555 1051 | U Q|
0357 d157 d491 | W |
0359 5413 d495 |T |
035b 0b92 5511 | U |
035d 5490 5513 |T U |
035f d480 05c0 | |
0361 0493 d555 | U|
0363 1051 d157 | Q W|
0365 d253 9193 | S |
0367 d493 5055 | PU|
0369 1253 d380 | S |
036b 0000 0000 | |
036d 0000 0007 | |
036f 8000 0000 | |
0371 8000 000f | |
0373 000c 27aa | ' |
0375 aa20 a3a2 | |
0377 afa9 22a8 | " |
0379 27a9 2a17 |' * |
037b 24a7 24aa |$ $ |
037d 24a0 a624 |$ $|
037f ad22 9ebd | " |
0381 ca00 0000 | |
0383 0000 0000 | |
0385 0007 0000 | |
0387 0001 0000 | |
0389 0019 0013 | |
038b 4f55 5441 |OUTA|
038d 4745 5f52 |GE_R|
038f 4550 4f52 |EPOR|
0391 542e 5245 |T.RE|
0393 5345 543d |SET=|
0395 7b94 |{ |
0396 0000 0000 | | .BLANK 0000[0x4]
039a 1000 0000 | | .XXX[0x12]
039c 0200 0000 | |
039e 7600 2c9e |v , |
03a0 aaa8 828e | |
03a2 8abe a48a | |
03a4 a09e a4a8 | |
03a6 5c92 a88a |\ |
03a8 a482 a89e | |
03aa a477 32da | w2 |
03ac 0000 0000 | | .BLANK 0000[0x4]
03b0 cc2e 0020 | . | .XXX[0xa]
03b2 a6a8 829c | |
03b4 8882 a488 | |
03b6 5c92 9ca8 |\ |
03b8 8a8e 8aa4 | |
03ba 0000 0000 | | .BLANK 0000[0x5]
03bf 002c 0000 | , | .XXX[0x20]
03c1 0004 0000 | |
03c3 00e0 0049 | I|
03c5 3d55 5105 |=UQ |
03c7 1d15 7d49 | }I|
03c9 1541 3d49 | A=I|
03cb 50b9 3915 |P 9 |
03cd 6150 f5ee |aP |
03cf 51fe 4090 |Q @ |
03d1 0005 245c | $\|
03d3 0059 3d55 | Y=U|
03d5 5105 1d15 |Q |
03d7 7d49 1541 |}I A|
03d9 3d49 50b9 |=IP |
03db 2551 1549 |%Q I|
03dd 0551 3d48 | Q=H|
03df 0000 0000 | | .BLANK 0000[0x4]
03e3 0068 0000 | h | .XXX[0x1d]
03e5 0008 0000 | |
03e7 0118 00ea | |
03e9 7aaa a20a |z |
03eb 3a2a fa92 |:* |
03ed 2a82 7a92 |* z |
03ef a172 9a42 | r B|
03f1 aaa2 227a | "z|
03f3 ba72 fa1a | r |
03f5 0a72 1a2a | r *|
03f7 61eb dca0 |a |
03f9 0000 0000 | |
03fb 0000 0001 | |
03fd 1000 0000 | |
03ff 1000 | |