|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 0388 | | .CONST 0x0388 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b e011 | | Load 0x0,0x11
000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000d e011 | | Load 0x0,0x11
000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000f 00e1 | | Load_Encached Boolean_Cache
0010 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0011 e011 | | Load 0x0,0x11
0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0013 00e1 | | Load_Encached Boolean_Cache
0014 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0015 00e1 | | Load_Encached Boolean_Cache
0016 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0017 e011 | | Load 0x0,0x11
0018 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0019 e011 | | Load 0x0,0x11
001a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001b e017 | | Load 0x0,0x17
001c 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
001d 00e1 | | Load_Encached Boolean_Cache
001e 03f1 | | Declare_Variable Discrete,With_Value
001f e017 | | Load 0x0,0x17
0020 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0021 00e1 | | Load_Encached Boolean_Cache
0022 03f1 | | Declare_Variable Discrete,With_Value
0023 e017 | | Load 0x0,0x17
0024 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0025 00e1 | | Load_Encached Boolean_Cache
0026 03f1 | | Declare_Variable Discrete,With_Value
0027 e01d | | Load 0x0,0x1d
0028 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0029 e01d | | Load 0x0,0x1d
002a 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
002b 0272 | r | Execute Discrete,Minus
002c e011 | | Load 0x0,0x11
002d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
002f 61dc |a | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00034bc0}
0030 e011 | | Load 0x0,0x11
0031 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0032 03f1 | | Declare_Variable Discrete,With_Value
0033 e011 | | Load 0x0,0x11
0034 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0035 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0036 e011 | | Load 0x0,0x11
0037 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0038 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0039 00e3 | | Load_Encached Natural_Cache
003a 0664 | d | Execute_Immediate Set_Value_Unchecked,0x64
003b 00e3 | | Load_Encached Natural_Cache
003c 0664 | d | Execute_Immediate Set_Value_Unchecked,0x64
003d 00e3 | | Load_Encached Natural_Cache
003e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003f 00e1 | | Load_Encached Boolean_Cache
0040 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0041 e0ad | | Load 0x0,0xad
0042 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0043 029f 0213 | | Declare_Subprogram For_Call,INIT_0210
0045 029f 022b | +| Declare_Subprogram For_Call,INIT_0228
0047 029f 0243 | C| Declare_Subprogram For_Call,INIT_0240
0049 029f 025b | [| Declare_Subprogram For_Call,INIT_0258
004b 029f 0273 | s| Declare_Subprogram For_Call,INIT_0270
004d BODY_0008:
004d e5ff | | Load 0x2,-0x1
004e e011 | | Load 0x0,0x11
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0051 e0ad | | Load 0x0,0xad
0052 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0053 a415 | | Store_Unchecked 0x2,0x15
0054 e415 | | Load 0x2,0x15
0055 e0ad | | Load 0x0,0xad
0056 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0057 e5ff | | Load 0x2,-0x1
0058 e011 | | Load 0x0,0x11
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005b 0e00 | | Execute_Immediate Not_Equal,0x0
005c 0279 | y | Execute Discrete,And
005d 6805 |h | Jump_Zero 0x63
005e 0092 028b | | Action Push_String_Extended,0x28b ; "Argument to Picture was unrecognizable"
0060 e01c | | Load 0x0,0x1c
0061 180e | | Execute Package,Field_Execute,Field_Number 0xe
0062 4502 |E | Exit_Subprogram 0x2
0063 e409 | | Load 0x2,0x9
0064 e017 | | Load 0x0,0x17
0065 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0066 e011 | | Load 0x0,0x11
0067 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0068 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0069 c409 | | Store 0x2,0x9
006a 00cf | | Action Mark_Auxiliary
006b 78cd |x | Jump 0x139
006c 4800 |H | Short_Literal 0x0
006d e415 | | Load 0x2,0x15
006e e0ad | | Load 0x0,0xad
006f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0070 68ba |h | Jump_Zero 0x12b
0071 e415 | | Load 0x2,0x15
0072 e0ad | | Load 0x0,0xad
0073 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0074 4611 |F | Jump_Case 0x11
0075 78be |x | Jump 0x134 ; case 0x0
0076 788c |x | Jump 0x103 ; case 0x1
0077 7899 |x | Jump 0x111 ; case 0x2
0078 78a4 |x | Jump 0x11d ; case 0x3
0079 78af |x | Jump 0x129 ; case 0x4
007a 7870 |xp | Jump 0xeb ; case 0x5
007b 7877 |xw | Jump 0xf3 ; case 0x6
007c 787e |x~ | Jump 0xfb ; case 0x7
007d 7865 |xe | Jump 0xe3 ; case 0x8
007e 7829 |x) | Jump 0xa8 ; case 0x9
007f 781a |x | Jump 0x9a ; case 0xa
0080 7833 |x3 | Jump 0xb4 ; case 0xb
0081 780c |x | Jump 0x8e ; case 0xc
0082 783b |x; | Jump 0xbe ; case 0xd
0083 784a |xJ | Jump 0xce ; case 0xe
0084 7850 |xP | Jump 0xd5 ; case 0xf
0085 7856 |xV | Jump 0xdc ; case 0x10
0086 7800 |x | Jump 0x87 ; case 0x11
0087 4800 |H | Short_Literal 0x0
0088 4800 |H | Short_Literal 0x0
0089 e415 | | Load 0x2,0x15
008a e0ad | | Load 0x0,0xad
008b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
008c a414 | | Store_Unchecked 0x2,0x14
008d 78a6 |x | Jump 0x134
008e 4801 |H | Short_Literal 0x1
008f a404 | | Store_Unchecked 0x2,0x4
0090 00ea | | Load_Encached Null_String_Cache
0091 4800 |H | Short_Literal 0x0
0092 e415 | | Load 0x2,0x15
0093 e0ad | | Load 0x0,0xad
0094 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0095 e011 | | Load 0x0,0x11
0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0097 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0098 a403 | | Store_Unchecked 0x2,0x3
0099 789a |x | Jump 0x134
009a 4801 |H | Short_Literal 0x1
009b a406 | | Store_Unchecked 0x2,0x6
009c e407 | | Load 0x2,0x7
009d 7096 |p | Jump_Nonzero 0x134
009e 00ea | | Load_Encached Null_String_Cache
009f 4800 |H | Short_Literal 0x0
00a0 e415 | | Load 0x2,0x15
00a1 e0ad | | Load 0x0,0xad
00a2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00a3 e011 | | Load 0x0,0x11
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a6 a405 | | Store_Unchecked 0x2,0x5
00a7 788c |x | Jump 0x134
00a8 4801 |H | Short_Literal 0x1
00a9 a407 | | Store_Unchecked 0x2,0x7
00aa 00ea | | Load_Encached Null_String_Cache
00ab 4800 |H | Short_Literal 0x0
00ac e415 | | Load 0x2,0x15
00ad e0ad | | Load 0x0,0xad
00ae 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00af e011 | | Load 0x0,0x11
00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b2 a405 | | Store_Unchecked 0x2,0x5
00b3 7880 |x | Jump 0x134
00b4 00ea | | Load_Encached Null_String_Cache
00b5 4800 |H | Short_Literal 0x0
00b6 e415 | | Load 0x2,0x15
00b7 e0ad | | Load 0x0,0xad
00b8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00b9 e011 | | Load 0x0,0x11
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00bc a408 | | Store_Unchecked 0x2,0x8
00bd 7876 |xv | Jump 0x134
00be e409 | | Load 0x2,0x9
00bf e011 | | Load 0x0,0x11
00c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c2 c409 | | Store 0x2,0x9
00c3 e409 | | Load 0x2,0x9
00c4 00ea | | Load_Encached Null_String_Cache
00c5 4800 |H | Short_Literal 0x0
00c6 e415 | | Load 0x2,0x15
00c7 e0ad | | Load 0x0,0xad
00c8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00c9 e011 | | Load 0x0,0x11
00ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00cc c409 | | Store 0x2,0x9
00cd 7866 |xf | Jump 0x134
00ce 4800 |H | Short_Literal 0x0
00cf 4800 |H | Short_Literal 0x0
00d0 e415 | | Load 0x2,0x15
00d1 e0ad | | Load 0x0,0xad
00d2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00d3 a40a | | Store_Unchecked 0x2,0xa
00d4 785f |x_ | Jump 0x134
00d5 4800 |H | Short_Literal 0x0
00d6 4800 |H | Short_Literal 0x0
00d7 e415 | | Load 0x2,0x15
00d8 e0ad | | Load 0x0,0xad
00d9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00da a40b | | Store_Unchecked 0x2,0xb
00db 7858 |xX | Jump 0x134
00dc 4800 |H | Short_Literal 0x0
00dd 4800 |H | Short_Literal 0x0
00de e415 | | Load 0x2,0x15
00df e0ad | | Load 0x0,0xad
00e0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00e1 a40c | | Store_Unchecked 0x2,0xc
00e2 7851 |xQ | Jump 0x134
00e3 00ea | | Load_Encached Null_String_Cache
00e4 4800 |H | Short_Literal 0x0
00e5 e415 | | Load 0x2,0x15
00e6 e0ad | | Load 0x0,0xad
00e7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00e8 801b | | Call 0x0,0x1b
00e9 a40d | | Store_Unchecked 0x2,0xd
00ea 7849 |xI | Jump 0x134
00eb 00ea | | Load_Encached Null_String_Cache
00ec 4800 |H | Short_Literal 0x0
00ed e415 | | Load 0x2,0x15
00ee e0ad | | Load 0x0,0xad
00ef 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00f0 801b | | Call 0x0,0x1b
00f1 a40e | | Store_Unchecked 0x2,0xe
00f2 7841 |xA | Jump 0x134
00f3 00ea | | Load_Encached Null_String_Cache
00f4 4800 |H | Short_Literal 0x0
00f5 e415 | | Load 0x2,0x15
00f6 e0ad | | Load 0x0,0xad
00f7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00f8 801b | | Call 0x0,0x1b
00f9 a40f | | Store_Unchecked 0x2,0xf
00fa 7839 |x9 | Jump 0x134
00fb 00ea | | Load_Encached Null_String_Cache
00fc 4800 |H | Short_Literal 0x0
00fd e415 | | Load 0x2,0x15
00fe e0ad | | Load 0x0,0xad
00ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0100 801b | | Call 0x0,0x1b
0101 a410 | | Store_Unchecked 0x2,0x10
0102 7831 |x1 | Jump 0x134
0103 8416 | | Call 0x2,0x16
0104 e411 | | Load 0x2,0x11
0105 4be8 |K | Short_Literal 0x3e8
0106 027d | } | Execute Discrete,Greater
0107 6806 |h | Jump_Zero 0x10e
0108 0092 028c | | Action Push_String_Extended,0x28c ; "Scale unreasonably large (> 1000%). 100% assumed"
010a e01c | | Load 0x0,0x1c
010b 180e | | Execute Package,Field_Execute,Field_Number 0xe
010c 4864 |Hd | Short_Literal 0x64
010d a411 | | Store_Unchecked 0x2,0x11
010e e411 | | Load 0x2,0x11
010f a412 | | Store_Unchecked 0x2,0x12
0110 7823 |x# | Jump 0x134
0111 8417 | | Call 0x2,0x17
0112 e411 | | Load 0x2,0x11
0113 4be8 |K | Short_Literal 0x3e8
0114 027d | } | Execute Discrete,Greater
0115 681e |h | Jump_Zero 0x134
0116 0092 028d | | Action Push_String_Extended,0x28d ; "X_Scale unreasonably large (> 1000%). 100% assumed"
0118 e01c | | Load 0x0,0x1c
0119 180e | | Execute Package,Field_Execute,Field_Number 0xe
011a 4864 |Hd | Short_Literal 0x64
011b a411 | | Store_Unchecked 0x2,0x11
011c 7817 |x | Jump 0x134
011d 8418 | | Call 0x2,0x18
011e e412 | | Load 0x2,0x12
011f 4be8 |K | Short_Literal 0x3e8
0120 027d | } | Execute Discrete,Greater
0121 6812 |h | Jump_Zero 0x134
0122 0092 028e | | Action Push_String_Extended,0x28e ; "Y_Scale unreasonably large (> 1000%). 100% assumed"
0124 e01c | | Load 0x0,0x1c
0125 180e | | Execute Package,Field_Execute,Field_Number 0xe
0126 4864 |Hd | Short_Literal 0x64
0127 a412 | | Store_Unchecked 0x2,0x12
0128 780b |x | Jump 0x134
0129 8419 | | Call 0x2,0x19
012a 7809 |x | Jump 0x134
012b 0092 028f | | Action Push_String_Extended,0x28f ; "Picture"
012d 4800 |H | Short_Literal 0x0
012e e415 | | Load 0x2,0x15
012f e0ad | | Load 0x0,0xad
0130 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0131 01cc | | Execute Vector,Catenate
0132 e01c | | Load 0x0,0x1c
0133 180e | | Execute Package,Field_Execute,Field_Number 0xe
0134 e415 | | Load 0x2,0x15
0135 e0ad | | Load 0x0,0xad
0136 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0137 c415 | | Store 0x2,0x15
0138 00c9 | | Action Pop_Auxiliary_Loop
0139 e415 | | Load 0x2,0x15
013a e0ad | | Load 0x0,0xad
013b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
013c 6f2f |o/ | Jump_Zero 0x6c
013d 00ce | | Action Pop_Auxiliary
013e e406 | | Load 0x2,0x6
013f e407 | | Load 0x2,0x7
0140 0279 | y | Execute Discrete,And
0141 6804 |h | Jump_Zero 0x146
0142 0092 0290 | | Action Push_String_Extended,0x290 ; "Both a File and Value were specified for the picture. 'Value' assumed"
0144 e01c | | Load 0x0,0x1c
0145 180e | | Execute Package,Field_Execute,Field_Number 0xe
0146 e40c | | Load 0x2,0xc
0147 6804 |h | Jump_Zero 0x14c
0148 0092 0291 | | Action Push_String_Extended,0x291 ; "Floating pictures are not yet implemented"
014a e01c | | Load 0x0,0x1c
014b 180f | | Execute Package,Field_Execute,Field_Number 0xf
014c 4801 |H | Short_Literal 0x1
014d 4800 |H | Short_Literal 0x0
014e e017 | | Load 0x0,0x17
014f 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0150 e01e | | Load 0x0,0x1e
0151 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0152 483e |H> | Short_Literal 0x3e
0153 801f | | Call 0x0,0x1f
0154 4801 |H | Short_Literal 0x1
0155 e02c | , | Load 0x0,0x2c
0156 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0157 4800 |H | Short_Literal 0x0
0158 e02c | , | Load 0x0,0x2c
0159 1820 | | Execute Package,Field_Execute,Field_Number 0x20
015a 841a | | Call 0x2,0x1a
015b e414 | | Load 0x2,0x14
015c e413 | | Load 0x2,0x13
015d e412 | | Load 0x2,0x12
015e e411 | | Load 0x2,0x11
015f e410 | | Load 0x2,0x10
0160 e40f | | Load 0x2,0xf
0161 e40e | | Load 0x2,0xe
0162 e40d | | Load 0x2,0xd
0163 e407 | | Load 0x2,0x7
0164 e405 | | Load 0x2,0x5
0165 e011 | | Load 0x0,0x11
0166 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0167 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0168 e020 | | Load 0x0,0x20
0169 1b12 | | Execute Package,Field_Read,Field_Number 0x12
016a e021 | ! | Load 0x0,0x21
016b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
016c 00d8 | | Load_Top At_Offset_0
016d e021 | ! | Load 0x0,0x21
016e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
016f 7003 |p | Jump_Nonzero 0x173
0170 e022 | " | Load 0x0,0x22
0171 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0172 0257 | W | Execute Discrete,Raise
0173 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0174 e02c | , | Load 0x0,0x2c
0175 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0176 e017 | | Load 0x0,0x17
0177 3c44 |<D | Execute Record,Field_Read,Field_Number 0x44
0178 4800 |H | Short_Literal 0x0
0179 e02c | , | Load 0x0,0x2c
017a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
017b 4800 |H | Short_Literal 0x0
017c e01d | | Load 0x0,0x1d
017d 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
017e e017 | | Load 0x0,0x17
017f 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0180 6804 |h | Jump_Zero 0x185
0181 4800 |H | Short_Literal 0x0
0182 e01d | | Load 0x0,0x1d
0183 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0184 7803 |x | Jump 0x188
0185 4801 |H | Short_Literal 0x1
0186 e01d | | Load 0x0,0x1d
0187 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0188 e011 | | Load 0x0,0x11
0189 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
018b a402 | | Store_Unchecked 0x2,0x2
018c e40a | | Load 0x2,0xa
018d 6842 |hB | Jump_Zero 0x1d0
018e e40b | | Load 0x2,0xb
018f 6827 |h' | Jump_Zero 0x1b7
0190 e03a | : | Load 0x0,0x3a
0191 80ae | | Call 0x0,0xae
0192 00d1 | | Pop_Control Pop_Count_1
0193 e082 | | Load 0x0,0x82
0194 7008 |p | Jump_Nonzero 0x19d
0195 e03a | : | Load 0x0,0x3a
0196 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0197 e039 | 9 | Load 0x0,0x39
0198 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0199 e03a | : | Load 0x0,0x3a
019a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
019b e039 | 9 | Load 0x0,0x39
019c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
019d e402 | | Load 0x2,0x2
019e e03a | : | Load 0x0,0x3a
019f e033 | 3 | Load 0x0,0x33
01a0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01a1 00d1 | | Pop_Control Pop_Count_1
01a2 c402 | | Store 0x2,0x2
01a3 e402 | | Load 0x2,0x2
01a4 e409 | | Load 0x2,0x9
01a5 4801 |H | Short_Literal 0x1
01a6 e011 | | Load 0x0,0x11
01a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01a9 c402 | | Store 0x2,0x2
01aa e408 | | Load 0x2,0x8
01ab e011 | | Load 0x0,0x11
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ae 0c01 | | Execute_Immediate Greater_Equal,0x1
01af 6807 |h | Jump_Zero 0x1b7
01b0 e402 | | Load 0x2,0x2
01b1 e017 | | Load 0x0,0x17
01b2 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
01b3 e011 | | Load 0x0,0x11
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b6 c402 | | Store 0x2,0x2
01b7 e402 | | Load 0x2,0x2
01b8 e408 | | Load 0x2,0x8
01b9 e011 | | Load 0x0,0x11
01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01bc c402 | | Store 0x2,0x2
01bd 4803 |H | Short_Literal 0x3
01be e40b | | Load 0x2,0xb
01bf 0f00 | | Execute_Immediate Equal,0x0
01c0 e03a | : | Load 0x0,0x3a
01c1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01c2 e408 | | Load 0x2,0x8
01c3 e03a | : | Load 0x0,0x3a
01c4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c5 e033 | 3 | Load 0x0,0x33
01c6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c7 00d9 | | Load_Top At_Offset_1
01c8 00d0 | | Action Swap_Control
01c9 0260 | ` | Execute Discrete,In_Type
01ca 7001 |p | Jump_Nonzero 0x1cc
01cb 0801 | | Execute_Immediate Raise,0x1
01cc 8098 | | Call 0x0,0x98
01cd e402 | | Load 0x2,0x2
01ce e015 | | Load 0x0,0x15
01cf 180f | | Execute Package,Field_Execute,Field_Number 0xf
01d0 4801 |H | Short_Literal 0x1
01d1 4801 |H | Short_Literal 0x1
01d2 4800 |H | Short_Literal 0x0
01d3 e01e | | Load 0x0,0x1e
01d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d5 4800 |H | Short_Literal 0x0
01d6 e02c | , | Load 0x0,0x2c
01d7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01d8 483e |H> | Short_Literal 0x3e
01d9 8023 | # | Call 0x0,0x23
01da e404 | | Load 0x2,0x4
01db 6810 |h | Jump_Zero 0x1ec
01dc e40a | | Load 0x2,0xa
01dd e40b | | Load 0x2,0xb
01de 0279 | y | Execute Discrete,And
01df 6804 |h | Jump_Zero 0x1e4
01e0 4801 |H | Short_Literal 0x1
01e1 e403 | | Load 0x2,0x3
01e2 8229 | ) | Call 0x1,0x29
01e3 7803 |x | Jump 0x1e7
01e4 4802 |H | Short_Literal 0x2
01e5 e403 | | Load 0x2,0x3
01e6 8229 | ) | Call 0x1,0x29
01e7 e403 | | Load 0x2,0x3
01e8 e011 | | Load 0x0,0x11
01e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01eb c403 | | Store 0x2,0x3
01ec 4800 |H | Short_Literal 0x0
01ed e02c | , | Load 0x0,0x2c
01ee 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01ef 4801 |H | Short_Literal 0x1
01f0 4800 |H | Short_Literal 0x0
01f1 e017 | | Load 0x0,0x17
01f2 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
01f3 e01e | | Load 0x0,0x1e
01f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01f5 e402 | | Load 0x2,0x2
01f6 e011 | | Load 0x0,0x11
01f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f9 c402 | | Store 0x2,0x2
01fa e409 | | Load 0x2,0x9
01fb e011 | | Load 0x0,0x11
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01fe c409 | | Store 0x2,0x9
01ff e408 | | Load 0x2,0x8
0200 e011 | | Load 0x0,0x11
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0203 c408 | | Store 0x2,0x8
0204 e405 | | Load 0x2,0x5
0205 e011 | | Load 0x0,0x11
0206 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0207 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0208 c405 | | Store 0x2,0x5
0209 4502 |E | Exit_Subprogram 0x2
020a 0000 0000 | | .XXX[0x2]
020c 0000 0000 | | .LITERAL {0x00000000, 0x00034bc0}
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 021d | | .CONST 0x021d ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00ea | | Load_Encached Null_String_Cache
0214 4800 |H | Short_Literal 0x0
0215 e415 | | Load 0x2,0x15
0216 e0ad | | Load 0x0,0xad
0217 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0218 00e2 | | Load_Encached Integer_Cache
0219 00e0 | | Load_Encached Standard_Cache
021a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
021b c411 | | Store 0x2,0x11
021c 4501 |E | Exit_Subprogram 0x1
021d TRAP_0210:
021d 010e | | Execute Exception,Is_Constraint_Error
021e 6807 |h | Jump_Zero 0x226
021f 0092 0292 | | Action Push_String_Extended,0x292 ; "Scale cannot be converted. 100% assumed"
0221 e01c | | Load 0x0,0x1c
0222 180e | | Execute Package,Field_Execute,Field_Number 0xe
0223 4864 |Hd | Short_Literal 0x64
0224 a411 | | Store_Unchecked 0x2,0x11
0225 4501 |E | Exit_Subprogram 0x1
0226 0100 | | Execute Exception,Raise
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0235 | 5 | .CONST 0x0235 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00ea | | Load_Encached Null_String_Cache
022c 4800 |H | Short_Literal 0x0
022d e415 | | Load 0x2,0x15
022e e0ad | | Load 0x0,0xad
022f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0230 00e2 | | Load_Encached Integer_Cache
0231 00e0 | | Load_Encached Standard_Cache
0232 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0233 c411 | | Store 0x2,0x11
0234 4501 |E | Exit_Subprogram 0x1
0235 TRAP_0228:
0235 010e | | Execute Exception,Is_Constraint_Error
0236 6807 |h | Jump_Zero 0x23e
0237 0092 0293 | | Action Push_String_Extended,0x293 ; "X_Scale cannot be converted. 100% assumed"
0239 e01c | | Load 0x0,0x1c
023a 180e | | Execute Package,Field_Execute,Field_Number 0xe
023b 4864 |Hd | Short_Literal 0x64
023c a411 | | Store_Unchecked 0x2,0x11
023d 4501 |E | Exit_Subprogram 0x1
023e 0100 | | Execute Exception,Raise
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 024d | M | .CONST 0x024d ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00ea | | Load_Encached Null_String_Cache
0244 4800 |H | Short_Literal 0x0
0245 e415 | | Load 0x2,0x15
0246 e0ad | | Load 0x0,0xad
0247 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0248 00e2 | | Load_Encached Integer_Cache
0249 00e0 | | Load_Encached Standard_Cache
024a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
024b c412 | | Store 0x2,0x12
024c 4501 |E | Exit_Subprogram 0x1
024d TRAP_0240:
024d 010e | | Execute Exception,Is_Constraint_Error
024e 6807 |h | Jump_Zero 0x256
024f 0092 0294 | | Action Push_String_Extended,0x294 ; "Y_Scale cannot be converted. 100% assumed"
0251 e01c | | Load 0x0,0x1c
0252 180e | | Execute Package,Field_Execute,Field_Number 0xe
0253 4864 |Hd | Short_Literal 0x64
0254 a412 | | Store_Unchecked 0x2,0x12
0255 4501 |E | Exit_Subprogram 0x1
0256 0100 | | Execute Exception,Raise
0257 0000 | | .XXX[0x1]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0265 | e | .CONST 0x0265 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00ea | | Load_Encached Null_String_Cache
025c 4800 |H | Short_Literal 0x0
025d e415 | | Load 0x2,0x15
025e e0ad | | Load 0x0,0xad
025f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0260 00e2 | | Load_Encached Integer_Cache
0261 00e0 | | Load_Encached Standard_Cache
0262 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0263 c413 | | Store 0x2,0x13
0264 4501 |E | Exit_Subprogram 0x1
0265 TRAP_0258:
0265 010e | | Execute Exception,Is_Constraint_Error
0266 6807 |h | Jump_Zero 0x26e
0267 0092 0295 | | Action Push_String_Extended,0x295 ; "Rotation cannot be converted. 0 assumed"
0269 e01c | | Load 0x0,0x1c
026a 180e | | Execute Package,Field_Execute,Field_Number 0xe
026b 4800 |H | Short_Literal 0x0
026c a413 | | Store_Unchecked 0x2,0x13
026d 4501 |E | Exit_Subprogram 0x1
026e 0100 | | Execute Exception,Raise
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275 | u | .CONST 0x0275 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 e011 | | Load 0x0,0x11
0274 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0275 BODY_0270:
0275 e01d | | Load 0x0,0x1d
0276 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0277 e01d | | Load 0x0,0x1d
0278 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0279 0272 | r | Execute Discrete,Minus
027a e40d | | Load 0x2,0xd
027b 0272 | r | Execute Discrete,Minus
027c 09ff | | Execute_Immediate Binary_Scale,-0x1
027d c602 | | Store 0x3,0x2
027e 00d8 | | Load_Top At_Offset_0
027f 0c01 | | Execute_Immediate Greater_Equal,0x1
0280 6805 |h | Jump_Zero 0x286
0281 e017 | | Load 0x0,0x17
0282 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0283 7002 |p | Jump_Nonzero 0x286
0284 4800 |H | Short_Literal 0x0
0285 a602 | | Store_Unchecked 0x3,0x2
0286 e40e | | Load 0x2,0xe
0287 e602 | | Load 0x3,0x2
0288 e02c | , | Load 0x0,0x2c
0289 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
028a 4501 |E | Exit_Subprogram 0x1
028b ; --------------------------------------------------------------------------------------
028b ; STRING TABLE
028b ; --------------------------------------------------------------------------------------
028b 0018 | | .STRTAB 0x0018->0x0297 ; "Argument to Picture was unrecognizable"
028c 003c | < | .STRTAB 0x003c->0x02aa ; "Scale unreasonably large (> 1000%). 100% assumed"
028d 006b | k | .STRTAB 0x006b->0x02c2 ; "X_Scale unreasonably large (> 1000%). 100% assumed"
028e 009c | | .STRTAB 0x009c->0x02dc ; "Y_Scale unreasonably large (> 1000%). 100% assumed"
028f 00cd | | .STRTAB 0x00cd->0x02f5 ; "Picture"
0290 00d2 | | .STRTAB 0x00d2->0x02f9 ; "Both a File and Value were specified for the picture. 'Value' assumed"
0291 0116 | | .STRTAB 0x0116->0x031c ; "Floating pictures are not yet implemented"
0292 013d | = | .STRTAB 0x013d->0x0330 ; "Scale cannot be converted. 100% assumed"
0293 0162 | b | .STRTAB 0x0162->0x0344 ; "X_Scale cannot be converted. 100% assumed"
0294 0189 | | .STRTAB 0x0189->0x0358 ; "Y_Scale cannot be converted. 100% assumed"
0295 01b0 | | .STRTAB 0x01b0->0x036d ; "Rotation cannot be converted. 0 assumed"
0296 01d5 | | .STREND 0x01d5->0x0380
0297 4172 6775 |Argu| .STRTAB_STRINGS
0381 0000 0000 | | .BLANK 0000[0x7]
0388 ; --------------------------------------------------------------------------------------
0388 ; Debug Table
0388 ; --------------------------------------------------------------------------------------
0388 0004 000f | | .DEBUG4 0x0004,0x000f,0x4807,0x0000,0x0001,0x0000
038e 5105 3911 |Q 9 | .XXX[0x72]
0390 0549 10b9 | I |
0392 2539 5115 |%9Q |
0394 1d15 4800 | H |
0396 00e6 4070 | @p|
0398 002d 1125 | - %|
039a 497d 4d15 |I}M |
039c 0d51 253d | Q%=|
039e 3998 5c00 |9 \ |
03a0 3509 054d |5 M|
03a2 1551 6541 | QeA|
03a4 14b9 5d3d | ]=|
03a6 4910 0000 |I |
03a8 e640 7000 | @p |
03aa 314d 150d |1M |
03ac 5125 3d39 |Q%=9|
03ae 7d4d 2569 |}M%i|
03b0 1598 5c00 | \ |
03b2 3509 054d |5 M|
03b4 1551 6541 | QeA|
03b6 14b9 5d3d | ]=|
03b8 4910 0000 |I |
03ba 0000 0000 | |
03bc 006c 0640 | l @|
03be 0075 194d | u M|
03c0 1d31 3d09 | 1= |
03c2 0531 4cb9 | 1L |
03c4 1d31 3d09 | 1= |
03c6 0531 7d4d | 1}M|
03c8 5105 5115 |Q Q |
03ca 7d19 3d49 |} =I|
03cc 3505 50ee |5 P |
03ce 65c8 e640 |e @|
03d0 7000 2925 |p )%|
03d2 3925 5125 |9%Q%|
03d4 0531 7d4d | 1}M|
03d6 4198 5c00 |A \ |
03d8 4109 054d |A M|
03da 1551 6541 | QeA|
03dc 14b9 0511 | |
03de 1149 154d | I M|
03e0 4c00 00e6 |L |
03e2 4070 0029 |@p )|
03e4 2539 2551 |%9%Q|
03e6 2505 317d |% 1}|
03e8 410d 985c |A \|
03ea 0041 0905 | A |
03ec 4d15 5165 |M Qe|
03ee 4114 b905 |A |
03f0 1111 4915 | I |
03f2 4d4c 0000 |ML |
03f4 e640 7000 | @p |
03f6 1155 3925 | U9%|
03f8 5198 5c00 |Q \ |
03fa 6509 054d |e M|
03fc 1551 6541 | QeA|
03fe 14b9 1125 | %|