|
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 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[0x29]
028f 0801 4000 | @ | .XXX[0xc]
0291 0000 0000 | |
0293 0010 0000 | |
0295 0088 0000 | |
0297 0000 4000 | @ |
0299 0002 8000 | |
029b 0000 0000 | | .BLANK 0000[0x2d]
02c8 0100 2800 | ( | .XXX[0xc]
02ca 0000 0000 | |
02cc 0002 0000 | |
02ce 0011 0000 | |
02d0 0000 0800 | |
02d2 0000 5000 | P |
02d4 0000 0000 | | .BLANK 0000[0x2d]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]