|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 0938 | 8 | .CONST 0x0938 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00be | | .CONST 0x00be ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0031 | 1 | .CONST 0x0031 ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4809 |H | Short_Literal 0x9
001d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 4800 |H | Short_Literal 0x0
0021 4813 |H | Short_Literal 0x13
0022 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0024 03fd | | Declare_Type Discrete,Defined
0025 e001 | | Load 0x0,0x1
0026 e002 | | Load 0x0,0x2
0027 00da | | Load_Top At_Offset_2
0028 e402 | | Load 0x2,0x2
0029 0092 05df | | Action Push_String_Extended,0x5df ; "Expense_Report"
002b 0092 05e0 | | Action Push_String_Extended,0x5e0 ; "2.0"
002d e003 | | Load 0x0,0x3
002e 0387 | | Declare_Variable Package
002f 00d8 | | Load_Top At_Offset_0
0030 020f | | Execute Module,Activate
0031 00d8 | | Load_Top At_Offset_0
0032 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0033 190d | | Execute Package,Field_Reference,Field_Number 0xd
0034 0007 | | Action Break_Optional
0035 4801 |H | Short_Literal 0x1
0036 4807 |H | Short_Literal 0x7
0037 e402 | | Load 0x2,0x2
0038 03f8 | | Declare_Type Discrete,Constrained
0039 4803 |H | Short_Literal 0x3
003a 480e |H | Short_Literal 0xe
003b e403 | | Load 0x2,0x3
003c 03f8 | | Declare_Type Discrete,Constrained
003d 4801 |H | Short_Literal 0x1
003e 4805 |H | Short_Literal 0x5
003f 00e9 | | Load_Encached String_Cache
0040 035b | [ | Declare_Type Array,Constrained
0041 0337 | 7 | Declare_Variable Array
0042 e403 | | Load 0x2,0x3
0043 e402 | | Load 0x2,0x2
0044 02a0 | | Declare_Subprogram Null_Subprogram
0045 4802 |H | Short_Literal 0x2
0046 032d | - | Declare_Type Record,Defined
0047 00e6 | | Load_Encached Float_Cache
0048 4802 |H | Short_Literal 0x2
0049 4813 |H | Short_Literal 0x13
004a 4801 |H | Short_Literal 0x1
004b 4809 |H | Short_Literal 0x9
004c e40a | | Load 0x2,0xa
004d 02a0 | | Declare_Subprogram Null_Subprogram
004e 4802 |H | Short_Literal 0x2
004f 035d | ] | Declare_Type Array,Defined
0050 00d8 | | Load_Top At_Offset_0
0051 0337 | 7 | Declare_Variable Array
0052 4801 |H | Short_Literal 0x1
0053 4812 |H | Short_Literal 0x12
0054 00da | | Load_Top At_Offset_2
0055 01a5 | | Execute Matrix,Field_Reference
0056 0007 | | Action Break_Optional
0057 4801 |H | Short_Literal 0x1
0058 4813 |H | Short_Literal 0x13
0059 00db | | Load_Top At_Offset_3
005a 01a5 | | Execute Matrix,Field_Reference
005b 0007 | | Action Break_Optional
005c 00e9 | | Load_Encached String_Cache
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 4818 |H | Short_Literal 0x18
005f 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0060 e403 | | Load 0x2,0x3
0061 0266 | f | Execute Discrete,Bounds
0062 e402 | | Load 0x2,0x2
0063 0266 | f | Execute Discrete,Bounds
0064 e40f | | Load 0x2,0xf
0065 02a0 | | Declare_Subprogram Null_Subprogram
0066 4802 |H | Short_Literal 0x2
0067 035d | ] | Declare_Type Array,Defined
0068 00d8 | | Load_Top At_Offset_0
0069 0337 | 7 | Declare_Variable Array
006a e004 | | Load 0x0,0x4
006b e005 | | Load 0x0,0x5
006c e40a | | Load 0x2,0xa
006d e006 | | Load 0x0,0x6
006e 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
006f 0387 | | Declare_Variable Package
0070 00d8 | | Load_Top At_Offset_0
0071 020f | | Execute Module,Activate
0072 e007 | | Load 0x0,0x7
0073 e008 | | Load 0x0,0x8
0074 00e2 | | Load_Encached Integer_Cache
0075 e006 | | Load 0x0,0x6
0076 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0077 0387 | | Declare_Variable Package
0078 00d8 | | Load_Top At_Offset_0
0079 020f | | Execute Module,Activate
007a 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
007c 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
007e 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0080 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0082 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
0084 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0086 029f 029b | | Declare_Subprogram INIT_0298,For_Call
0088 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
008a 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
008c 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
008e e404 | | Load 0x2,0x4
008f 1926 | & | Execute Package,Field_Reference,Field_Number 0x26
0090 00c6 | | Action Check_Subprogram_Elaborated
0091 4816 |H | Short_Literal 0x16
0092 4802 |H | Short_Literal 0x2
0093 0099 | | Action Reference_Dynamic
0094 4819 |H | Short_Literal 0x19
0095 4802 |H | Short_Literal 0x2
0096 0099 | | Action Reference_Dynamic
0097 481b |H | Short_Literal 0x1b
0098 4802 |H | Short_Literal 0x2
0099 0099 | | Action Reference_Dynamic
009a e404 | | Load 0x2,0x4
009b 1922 | " | Execute Package,Field_Reference,Field_Number 0x22
009c e404 | | Load 0x2,0x4
009d 191b | | Execute Package,Field_Reference,Field_Number 0x1b
009e 4814 |H | Short_Literal 0x14
009f 4802 |H | Short_Literal 0x2
00a0 0099 | | Action Reference_Dynamic
00a1 4814 |H | Short_Literal 0x14
00a2 4802 |H | Short_Literal 0x2
00a3 0099 | | Action Reference_Dynamic
00a4 481a |H | Short_Literal 0x1a
00a5 4802 |H | Short_Literal 0x2
00a6 0099 | | Action Reference_Dynamic
00a7 481c |H | Short_Literal 0x1c
00a8 4802 |H | Short_Literal 0x2
00a9 0099 | | Action Reference_Dynamic
00aa 481d |H | Short_Literal 0x1d
00ab 4802 |H | Short_Literal 0x2
00ac 0099 | | Action Reference_Dynamic
00ad e404 | | Load 0x2,0x4
00ae 1920 | | Execute Package,Field_Reference,Field_Number 0x20
00af 4817 |H | Short_Literal 0x17
00b0 4802 |H | Short_Literal 0x2
00b1 0099 | | Action Reference_Dynamic
00b2 4818 |H | Short_Literal 0x18
00b3 4802 |H | Short_Literal 0x2
00b4 0099 | | Action Reference_Dynamic
00b5 e404 | | Load 0x2,0x4
00b6 1925 | % | Execute Package,Field_Reference,Field_Number 0x25
00b7 4801 |H | Short_Literal 0x1
00b8 4800 |H | Short_Literal 0x0
00b9 4801 |H | Short_Literal 0x1
00ba e009 | | Load 0x0,0x9
00bb e00a | | Load 0x0,0xa
00bc 4831 |H1 | Short_Literal 0x31
00bd 0007 | | Action Break_Optional
00be BODY_0018:
00be e5fc | | Load 0x2,-0x4
00bf e404 | | Load 0x2,0x4
00c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c1 481e |H | Short_Literal 0x1e
00c2 4802 |H | Short_Literal 0x2
00c3 0099 | | Action Reference_Dynamic
00c4 481f |H | Short_Literal 0x1f
00c5 4802 |H | Short_Literal 0x2
00c6 0099 | | Action Reference_Dynamic
00c7 4820 |H | Short_Literal 0x20
00c8 4802 |H | Short_Literal 0x2
00c9 0099 | | Action Reference_Dynamic
00ca 4821 |H! | Short_Literal 0x21
00cb 4802 |H | Short_Literal 0x2
00cc 0099 | | Action Reference_Dynamic
00cd 4822 |H" | Short_Literal 0x22
00ce 4802 |H | Short_Literal 0x2
00cf 0099 | | Action Reference_Dynamic
00d0 4823 |H# | Short_Literal 0x23
00d1 4802 |H | Short_Literal 0x2
00d2 0099 | | Action Reference_Dynamic
00d3 4824 |H$ | Short_Literal 0x24
00d4 4802 |H | Short_Literal 0x2
00d5 0099 | | Action Reference_Dynamic
00d6 4825 |H% | Short_Literal 0x25
00d7 4802 |H | Short_Literal 0x2
00d8 0099 | | Action Reference_Dynamic
00d9 4826 |H& | Short_Literal 0x26
00da 4802 |H | Short_Literal 0x2
00db 0099 | | Action Reference_Dynamic
00dc 4827 |H' | Short_Literal 0x27
00dd 4802 |H | Short_Literal 0x2
00de 0099 | | Action Reference_Dynamic
00df 4828 |H( | Short_Literal 0x28
00e0 4802 |H | Short_Literal 0x2
00e1 0099 | | Action Reference_Dynamic
00e2 4829 |H) | Short_Literal 0x29
00e3 4802 |H | Short_Literal 0x2
00e4 0099 | | Action Reference_Dynamic
00e5 482a |H* | Short_Literal 0x2a
00e6 4802 |H | Short_Literal 0x2
00e7 0099 | | Action Reference_Dynamic
00e8 482b |H+ | Short_Literal 0x2b
00e9 4802 |H | Short_Literal 0x2
00ea 0099 | | Action Reference_Dynamic
00eb e42c | , | Load 0x2,0x2c
00ec e42d | - | Load 0x2,0x2d
00ed e42e | . | Load 0x2,0x2e
00ee 482f |H/ | Short_Literal 0x2f
00ef 4802 |H | Short_Literal 0x2
00f0 0099 | | Action Reference_Dynamic
00f1 e404 | | Load 0x2,0x4
00f2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4607 |F | Jump_Case 0x8
00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00fd 7806 |x | Jump 0x104 ; case 0x1
00fe 7809 |x | Jump 0x108 ; case 0x2
00ff 780d |x | Jump 0x10d ; case 0x3
0100 7810 |x | Jump 0x111 ; case 0x4
0101 7811 |x | Jump 0x113 ; case 0x5
0102 7812 |x | Jump 0x115 ; case 0x6
0103 7815 |x | Jump 0x119 ; case 0x7
0104 00da | | Load_Top At_Offset_2
0105 0091 05c1 | | Action Push_String_Extended_Indexed,0x5c1 ; "CATEGORY"
0107 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0108 00db | | Load_Top At_Offset_3
0109 00db | | Load_Top At_Offset_3
010a 00e0 | | Load_Encached Standard_Cache
010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010d 00da | | Load_Top At_Offset_2
010e 00e0 | | Load_Encached Standard_Cache
010f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0111 00db | | Load_Top At_Offset_3
0112 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0113 00db | | Load_Top At_Offset_3
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 e402 | | Load 0x2,0x2
0116 00dc | | Load_Top At_Offset_4
0117 0267 | g | Execute Discrete,Predecessor
0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0119 e402 | | Load 0x2,0x2
011a 00dc | | Load_Top At_Offset_4
011b 0268 | h | Execute Discrete,Successor
011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 4607 |F | Jump_Case 0x8
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7806 |x | Jump 0x12c ; case 0x1
0126 7809 |x | Jump 0x130 ; case 0x2
0127 780d |x | Jump 0x135 ; case 0x3
0128 7810 |x | Jump 0x139 ; case 0x4
0129 7811 |x | Jump 0x13b ; case 0x5
012a 7812 |x | Jump 0x13d ; case 0x6
012b 7815 |x | Jump 0x141 ; case 0x7
012c 00da | | Load_Top At_Offset_2
012d 0091 05cb | | Action Push_String_Extended_Indexed,0x5cb ; "DAYS"
012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0130 00db | | Load_Top At_Offset_3
0131 00db | | Load_Top At_Offset_3
0132 00e0 | | Load_Encached Standard_Cache
0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0135 00da | | Load_Top At_Offset_2
0136 00e0 | | Load_Encached Standard_Cache
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0139 00db | | Load_Top At_Offset_3
013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013b 00db | | Load_Top At_Offset_3
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d e403 | | Load 0x2,0x3
013e 00dc | | Load_Top At_Offset_4
013f 0267 | g | Execute Discrete,Predecessor
0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0141 e403 | | Load 0x2,0x3
0142 00dc | | Load_Top At_Offset_4
0143 0268 | h | Execute Discrete,Successor
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
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 4801 |H | Short_Literal 0x1
014d 4802 |H | Short_Literal 0x2
014e 0262 | b | Execute Discrete,In_Range
014f 00db | | Load_Top At_Offset_3
0150 4804 |H | Short_Literal 0x4
0151 480e |H | Short_Literal 0xe
0152 0262 | b | Execute Discrete,In_Range
0153 0278 | x | Execute Discrete,Or
0154 e7fe | | Load 0x3,-0x2
0155 e406 | | Load 0x2,0x6
0156 0260 | ` | Execute Discrete,In_Type
0157 0279 | y | Execute Discrete,And
0158 e409 | | Load 0x2,0x9
0159 0322 | " | Declare_Variable Record
015a e7ff | | Load 0x3,-0x1
015b 00d9 | | Load_Top At_Offset_1
015c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015d e7fe | | Load 0x3,-0x2
015e 00d9 | | Load_Top At_Offset_1
015f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0160 e409 | | Load 0x2,0x9
0161 0322 | " | Declare_Variable Record
0162 4812 |H | Short_Literal 0x12
0163 00d9 | | Load_Top At_Offset_1
0164 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0165 4801 |H | Short_Literal 0x1
0166 00d9 | | Load_Top At_Offset_1
0167 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0168 017f | | Execute Record,Equal
0169 0278 | x | Execute Discrete,Or
016a e409 | | Load 0x2,0x9
016b 0322 | " | Declare_Variable Record
016c e7ff | | Load 0x3,-0x1
016d 00d9 | | Load_Top At_Offset_1
016e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016f e7fe | | Load 0x3,-0x2
0170 00d9 | | Load_Top At_Offset_1
0171 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0172 e409 | | Load 0x2,0x9
0173 0322 | " | Declare_Variable Record
0174 4813 |H | Short_Literal 0x13
0175 00d9 | | Load_Top At_Offset_1
0176 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0177 4801 |H | Short_Literal 0x1
0178 00d9 | | Load_Top At_Offset_1
0179 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017a 017f | | Execute Record,Equal
017b 0278 | x | Execute Discrete,Or
017c e409 | | Load 0x2,0x9
017d 0322 | " | Declare_Variable Record
017e e7ff | | Load 0x3,-0x1
017f 00d9 | | Load_Top At_Offset_1
0180 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0181 e7fe | | Load 0x3,-0x2
0182 00d9 | | Load_Top At_Offset_1
0183 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0184 e409 | | Load 0x2,0x9
0185 0322 | " | Declare_Variable Record
0186 4810 |H | Short_Literal 0x10
0187 00d9 | | Load_Top At_Offset_1
0188 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0189 4808 |H | Short_Literal 0x8
018a 00d9 | | Load_Top At_Offset_1
018b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018c 017f | | Execute Record,Equal
018d 0278 | x | Execute Discrete,Or
018e e409 | | Load 0x2,0x9
018f 0322 | " | Declare_Variable Record
0190 e7ff | | Load 0x3,-0x1
0191 00d9 | | Load_Top At_Offset_1
0192 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0193 e7fe | | Load 0x3,-0x2
0194 00d9 | | Load_Top At_Offset_1
0195 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0196 e409 | | Load 0x2,0x9
0197 0322 | " | Declare_Variable Record
0198 4811 |H | Short_Literal 0x11
0199 00d9 | | Load_Top At_Offset_1
019a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019b 4808 |H | Short_Literal 0x8
019c 00d9 | | Load_Top At_Offset_1
019d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019e 017f | | Execute Record,Equal
019f 0278 | x | Execute Discrete,Or
01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e7fd | | Load 0x3,-0x3
01ac e7fe | | Load 0x3,-0x2
01ad e7ff | | Load 0x3,-0x1
01ae e40c | | Load 0x2,0xc
01af 01a6 | | Execute Matrix,Field_Write
01b0 4800 |H | Short_Literal 0x0
01b1 e7fe | | Load 0x3,-0x2
01b2 e7ff | | Load 0x3,-0x1
01b3 8414 | | Call 0x2,0x14
01b4 4800 |H | Short_Literal 0x0
01b5 e7fc | | Load 0x3,-0x4
01b6 e7fe | | Load 0x3,-0x2
01b7 e404 | | Load 0x2,0x4
01b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01b9 e7fd | | Load 0x3,-0x3
01ba e404 | | Load 0x2,0x4
01bb 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01bd e7fe | | Load 0x3,-0x2
01be e7ff | | Load 0x3,-0x1
01bf e404 | | Load 0x2,0x4
01c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d5 | | .CONST 0x01d5 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0006 | | .CONST 0x0006 ; Number of locals
01cb INIT_01c8:
01cb 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call
01cd 029f 041b | | Declare_Subprogram INIT_0418,For_Call
01cf 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call
01d1 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
01d3 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
01d5 BODY_01c8:
01d5 8602 | | Call 0x3,0x2
01d6 8603 | | Call 0x3,0x3
01d7 8604 | | Call 0x3,0x4
01d8 8605 | | Call 0x3,0x5
01d9 8606 | | Call 0x3,0x6
01da 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8 | | .CONST 0x01e8 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 0092 05e1 | | Action Push_String_Extended,0x5e1 ; "Expenses_Week_Ending_"
01e5 e408 | | Load 0x2,0x8
01e6 01cc | | Execute Vector,Catenate
01e7 0007 | | Action Break_Optional
01e8 BODY_01e0:
01e8 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "<quiet>"
01ea e5fd | | Load 0x2,-0x3
01eb e00b | | Load 0x0,0xb
01ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ed e408 | | Load 0x2,0x8
01ee 0092 05e3 | | Action Push_String_Extended,0x5e3 ; " "
01f0 01df | | Execute Vector,Equal
01f1 6809 |h | Jump_Zero 0x1fb
01f2 4801 |H | Short_Literal 0x1
01f3 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "Date not set up in report"
01f5 e404 | | Load 0x2,0x4
01f6 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01f8 e404 | | Load 0x2,0x4
01f9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01fa 00ca | | Action Exit_Nullary_Function
01fb 00d8 | | Load_Top At_Offset_0
01fc 00ca | | Action Exit_Nullary_Function
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 0092 05e5 | | Action Push_String_Extended,0x5e5 ; "File to load :"
0205 e404 | | Load 0x2,0x4
0206 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0207 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0208 00ca | | Action Exit_Nullary_Function
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021b | | .CONST 0x021b ; Address of begin
0211 028b | | .CONST 0x028b ; Address of exception handler
0212 0006 | | .CONST 0x0006 ; Number of locals
0213 INIT_0210:
0213 00e2 | | Load_Encached Integer_Cache
0214 03e9 | | Declare_Variable Discrete,Duplicate
0215 587e |X~ | Indirect_Literal Float,0x294,0.0
0216 e40a | | Load 0x2,0xa
0217 03df | | Declare_Variable Float,With_Value
0218 03d8 | | Declare_Variable Float,Duplicate
0219 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call
021b BODY_0210:
021b e7ff | | Load 0x3,-0x1
021c 0f01 | | Execute_Immediate Equal,0x1
021d 6803 |h | Jump_Zero 0x221
021e e7fd | | Load 0x3,-0x3
021f 8606 | | Call 0x3,0x6
0220 7867 |xg | Jump 0x288
0221 4801 |H | Short_Literal 0x1
0222 e7fd | | Load 0x3,-0x3
0223 01d7 | | Execute Vector,Field_Read
0224 0f3d | = | Execute_Immediate Equal,0x3d
0225 6815 |h | Jump_Zero 0x23b
0226 e7ff | | Load 0x3,-0x1
0227 4802 |H | Short_Literal 0x2
0228 480e |H | Short_Literal 0xe
0229 0262 | b | Execute Discrete,In_Range
022a e7fe | | Load 0x3,-0x2
022b 4802 |H | Short_Literal 0x2
022c 4807 |H | Short_Literal 0x7
022d 0262 | b | Execute Discrete,In_Range
022e 0279 | y | Execute Discrete,And
022f 680b |h | Jump_Zero 0x23b
0230 4802 |H | Short_Literal 0x2
0231 e402 | | Load 0x2,0x2
0232 e7fe | | Load 0x3,-0x2
0233 0267 | g | Execute Discrete,Predecessor
0234 e7ff | | Load 0x3,-0x1
0235 e40c | | Load 0x2,0xc
0236 01a7 | | Execute Matrix,Field_Read
0237 e7fe | | Load 0x3,-0x2
0238 e7ff | | Load 0x3,-0x1
0239 8415 | | Call 0x2,0x15
023a 784d |xM | Jump 0x288
023b e7fd | | Load 0x3,-0x3
023c e404 | | Load 0x2,0x4
023d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
023e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023f 0042 | B | Store_Top_Unchecked Float,At_Offset_2
0240 e7fe | | Load 0x3,-0x2
0241 e406 | | Load 0x2,0x6
0242 0260 | ` | Execute Discrete,In_Type
0243 e7ff | | Load 0x3,-0x1
0244 e407 | | Load 0x2,0x7
0245 0260 | ` | Execute Discrete,In_Type
0246 0279 | y | Execute Discrete,And
0247 6826 |h& | Jump_Zero 0x26e
0248 4802 |H | Short_Literal 0x2
0249 00da | | Load_Top At_Offset_2
024a e40e | | Load 0x2,0xe
024b 023b | ; | Execute Float,Times
024c e7fe | | Load 0x3,-0x2
024d e7ff | | Load 0x3,-0x1
024e 8415 | | Call 0x2,0x15
024f e40e | | Load 0x2,0xe
0250 583f |X? | Indirect_Literal Float,0x290,1.0
0251 0247 | G | Execute Float,Equal
0252 6808 |h | Jump_Zero 0x25b
0253 e7fd | | Load 0x3,-0x3
0254 e40f | | Load 0x2,0xf
0255 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0256 e7fe | | Load 0x3,-0x2
0257 e7ff | | Load 0x3,-0x1
0258 e411 | | Load 0x2,0x11
0259 01a6 | | Execute Matrix,Field_Write
025a 782d |x- | Jump 0x288
025b 0092 05e6 | | Action Push_String_Extended,0x5e6 ; "("
025d e7fd | | Load 0x3,-0x3
025e 01cc | | Execute Vector,Catenate
025f 0092 05e7 | | Action Push_String_Extended,0x5e7 ; ")*"
0261 01cc | | Execute Vector,Catenate
0262 4801 |H | Short_Literal 0x1
0263 4813 |H | Short_Literal 0x13
0264 e404 | | Load 0x2,0x4
0265 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0266 01cc | | Execute Vector,Catenate
0267 e40f | | Load 0x2,0xf
0268 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0269 e7fe | | Load 0x3,-0x2
026a e7ff | | Load 0x3,-0x1
026b e411 | | Load 0x2,0x11
026c 01a6 | | Execute Matrix,Field_Write
026d 781a |x | Jump 0x288
026e e7fd | | Load 0x3,-0x3
026f e40f | | Load 0x2,0xf
0270 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0271 e7fe | | Load 0x3,-0x2
0272 e7ff | | Load 0x3,-0x1
0273 e411 | | Load 0x2,0x11
0274 01a6 | | Execute Matrix,Field_Write
0275 e7fe | | Load 0x3,-0x2
0276 0f01 | | Execute_Immediate Equal,0x1
0277 680b |h | Jump_Zero 0x283
0278 e7ff | | Load 0x3,-0x1
0279 4812 |H | Short_Literal 0x12
027a 4813 |H | Short_Literal 0x13
027b 0262 | b | Execute Discrete,In_Range
027c 6806 |h | Jump_Zero 0x283
027d 4804 |H | Short_Literal 0x4
027e 00da | | Load_Top At_Offset_2
027f e7fe | | Load 0x3,-0x2
0280 e7ff | | Load 0x3,-0x1
0281 8415 | | Call 0x2,0x15
0282 7805 |x | Jump 0x288
0283 4802 |H | Short_Literal 0x2
0284 00da | | Load_Top At_Offset_2
0285 e7fe | | Load 0x3,-0x2
0286 e7ff | | Load 0x3,-0x1
0287 8415 | | Call 0x2,0x15
0288 4801 |H | Short_Literal 0x1
0289 a7fc | | Store_Unchecked 0x3,-0x4
028a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028b TRAP_0210:
028b 0007 | | Action Break_Optional
028c 4800 |H | Short_Literal 0x0
028d a7fc | | Store_Unchecked 0x3,-0x4
028e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028f 0000 | | .XXX[0x1]
0290 3ff0 0000 |? | .DBL 1.0
0292 0000 0000 | |
0294 0000 0000 | | .DBL 0.0
0296 0000 0000 | |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3
029c 00db | | Load_Top At_Offset_3
029d e411 | | Load 0x2,0x11
029e 01a7 | | Execute Matrix,Field_Read
029f 6808 |h | Jump_Zero 0x2a8
02a0 00db | | Load_Top At_Offset_3
02a1 00db | | Load_Top At_Offset_3
02a2 e411 | | Load 0x2,0x11
02a3 01a7 | | Execute Matrix,Field_Read
02a4 0227 | ' | Execute Access,All_Reference
02a5 0335 | 5 | Declare_Variable Array,Duplicate
02a6 00cd | | Action Spare6_Action
02a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02a8 00db | | Load_Top At_Offset_3
02a9 00db | | Load_Top At_Offset_3
02aa e404 | | Load 0x2,0x4
02ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b4 | | .CONST 0x02b4 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 00e1 | | Load_Encached Boolean_Cache
02b4 BODY_02b0:
02b4 e40c | | Load 0x2,0xc
02b5 00d8 | | Load_Top At_Offset_0
02b6 0335 | 5 | Declare_Variable Array,Duplicate
02b7 00cd | | Action Spare6_Action
02b8 4813 |H | Short_Literal 0x13
02b9 4802 |H | Short_Literal 0x2
02ba 4809 |H | Short_Literal 0x9
02bb 4801 |H | Short_Literal 0x1
02bc 587b |X{ | Indirect_Literal Float,0x338,0.0
02bd 00d9 | | Load_Top At_Offset_1
02be e606 | | Load 0x3,0x6
02bf e604 | | Load 0x3,0x4
02c0 01a6 | | Execute Matrix,Field_Write
02c1 3ffa |? | Loop_Increasing 0x2bc
02c2 3ff7 |? | Loop_Increasing 0x2ba
02c3 00cd | | Action Spare6_Action
02c4 e40c | | Load 0x2,0xc
02c5 01a4 | | Execute Matrix,Structure_Write
02c6 e408 | | Load 0x2,0x8
02c7 00d8 | | Load_Top At_Offset_0
02c8 0335 | 5 | Declare_Variable Array,Duplicate
02c9 00cd | | Action Spare6_Action
02ca 4820 |H | Short_Literal 0x20
02cb 4801 |H | Short_Literal 0x1
02cc 00da | | Load_Top At_Offset_2
02cd 01d6 | | Execute Vector,Field_Write
02ce 4820 |H | Short_Literal 0x20
02cf 4802 |H | Short_Literal 0x2
02d0 00da | | Load_Top At_Offset_2
02d1 01d6 | | Execute Vector,Field_Write
02d2 4820 |H | Short_Literal 0x20
02d3 4803 |H | Short_Literal 0x3
02d4 00da | | Load_Top At_Offset_2
02d5 01d6 | | Execute Vector,Field_Write
02d6 4820 |H | Short_Literal 0x20
02d7 4804 |H | Short_Literal 0x4
02d8 00da | | Load_Top At_Offset_2
02d9 01d6 | | Execute Vector,Field_Write
02da 4820 |H | Short_Literal 0x20
02db 4805 |H | Short_Literal 0x5
02dc 00da | | Load_Top At_Offset_2
02dd 01d6 | | Execute Vector,Field_Write
02de 00cd | | Action Spare6_Action
02df e408 | | Load 0x2,0x8
02e0 01d4 | | Execute Vector,Structure_Write
02e1 e404 | | Load 0x2,0x4
02e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02e3 00cf | | Action Mark_Auxiliary
02e4 4813 |H | Short_Literal 0x13
02e5 4810 |H | Short_Literal 0x10
02e6 0007 | | Action Break_Optional
02e7 4800 |H | Short_Literal 0x0
02e8 4809 |H | Short_Literal 0x9
02e9 e404 | | Load 0x2,0x4
02ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02eb 4820 |H | Short_Literal 0x20
02ec 00db | | Load_Top At_Offset_3
02ed e403 | | Load 0x2,0x3
02ee 011c | | Execute Any,Convert_Unchecked
02ef 1c01 | | Execute_Immediate Run_Utility,0x1
02f0 01ca | | Execute Vector,Prepend
02f1 e404 | | Load 0x2,0x4
02f2 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
02f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f4 4809 |H | Short_Literal 0x9
02f5 00db | | Load_Top At_Offset_3
02f6 e404 | | Load 0x2,0x4
02f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02f8 4800 |H | Short_Literal 0x0
02f9 4801 |H | Short_Literal 0x1
02fa 4800 |H | Short_Literal 0x0
02fb e404 | | Load 0x2,0x4
02fc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02fd 00e9 | | Load_Encached String_Cache
02fe 035b | [ | Declare_Type Array,Constrained
02ff 0337 | 7 | Declare_Variable Array
0300 00d8 | | Load_Top At_Offset_0
0301 01dc | | Execute Vector,Last
0302 4801 |H | Short_Literal 0x1
0303 0263 | c | Execute Discrete,Above_Bound
0304 7005 |p | Jump_Nonzero 0x30a
0305 4820 |H | Short_Literal 0x20
0306 00d9 | | Load_Top At_Offset_1
0307 e607 | | Load 0x3,0x7
0308 01d6 | | Execute Vector,Field_Write
0309 3ffb |? | Loop_Increasing 0x305
030a 4800 |H | Short_Literal 0x0
030b 00db | | Load_Top At_Offset_3
030c e404 | | Load 0x2,0x4
030d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030e 00c8 | | Action Pop_Auxiliary_Range
030f 3fd7 |? | Loop_Increasing 0x2e7
0310 00ce | | Action Pop_Auxiliary
0311 4800 |H | Short_Literal 0x0
0312 4800 |H | Short_Literal 0x0
0313 e404 | | Load 0x2,0x4
0314 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0315 0092 05e8 | | Action Push_String_Extended,0x5e8 ; "Mil Rate"
0317 e404 | | Load 0x2,0x4
0318 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0319 180e | | Execute Package,Field_Execute,Field_Number 0xe
031a 4800 |H | Short_Literal 0x0
031b 4812 |H | Short_Literal 0x12
031c e404 | | Load 0x2,0x4
031d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
031e 4800 |H | Short_Literal 0x0
031f 4800 |H | Short_Literal 0x0
0320 e404 | | Load 0x2,0x4
0321 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0322 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "Cur Rate"
0324 e404 | | Load 0x2,0x4
0325 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0326 180e | | Execute Package,Field_Execute,Field_Number 0xe
0327 4800 |H | Short_Literal 0x0
0328 4813 |H | Short_Literal 0x13
0329 e404 | | Load 0x2,0x4
032a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
032b 00e1 | | Load_Encached Boolean_Cache
032c e5ff | | Load 0x2,-0x1
032d 4801 |H | Short_Literal 0x1
032e 4812 |H | Short_Literal 0x12
032f 8419 | | Call 0x2,0x19
0330 0059 | Y | Store_Top Discrete,At_Offset_1
0331 00e1 | | Load_Encached Boolean_Cache
0332 e5fe | | Load 0x2,-0x2
0333 4801 |H | Short_Literal 0x1
0334 4813 |H | Short_Literal 0x13
0335 8419 | | Call 0x2,0x19
0336 0059 | Y | Store_Top Discrete,At_Offset_1
0337 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0338 0000 0000 | | .DBL 0.0
033a 0000 0000 | |
033c 0000 0000 | | .BLANK 0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00db | | Load_Top At_Offset_3
0344 00db | | Load_Top At_Offset_3
0345 e411 | | Load 0x2,0x11
0346 01a7 | | Execute Matrix,Field_Read
0347 6809 |h | Jump_Zero 0x351
0348 4800 |H | Short_Literal 0x0
0349 e7fe | | Load 0x3,-0x2
034a e7ff | | Load 0x3,-0x1
034b e411 | | Load 0x2,0x11
034c 01a7 | | Execute Matrix,Field_Read
034d 0227 | ' | Execute Access,All_Reference
034e e404 | | Load 0x2,0x4
034f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0350 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0351 00da | | Load_Top At_Offset_2
0352 4613 |F | Jump_Case 0x14
0353 7825 |x% | Jump 0x379 ; case 0x0
0354 7827 |x' | Jump 0x37c ; case 0x1
0355 7829 |x) | Jump 0x37f ; case 0x2
0356 782b |x+ | Jump 0x382 ; case 0x3
0357 782d |x- | Jump 0x385 ; case 0x4
0358 782f |x/ | Jump 0x388 ; case 0x5
0359 7831 |x1 | Jump 0x38b ; case 0x6
035a 7833 |x3 | Jump 0x38e ; case 0x7
035b 7832 |x2 | Jump 0x38e ; case 0x8
035c 7831 |x1 | Jump 0x38e ; case 0x9
035d 7830 |x0 | Jump 0x38e ; case 0xa
035e 7832 |x2 | Jump 0x391 ; case 0xb
035f 7834 |x4 | Jump 0x394 ; case 0xc
0360 7836 |x6 | Jump 0x397 ; case 0xd
0361 7835 |x5 | Jump 0x397 ; case 0xe
0362 784c |xL | Jump 0x3af ; case 0xf
0363 7836 |x6 | Jump 0x39a ; case 0x10
0364 7835 |x5 | Jump 0x39a ; case 0x11
0365 7837 |x7 | Jump 0x39d ; case 0x12
0366 7800 |x | Jump 0x367 ; case 0x13
0367 00db | | Load_Top At_Offset_3
0368 4800 |H | Short_Literal 0x0
0369 4801 |H | Short_Literal 0x1
036a 0262 | b | Execute Discrete,In_Range
036b 6803 |h | Jump_Zero 0x36f
036c 0092 05ea | | Action Push_String_Extended,0x5ea ; "Currency exchange rate to MULTIPLY subsequent entries."
036e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
036f 00db | | Load_Top At_Offset_3
0370 4808 |H | Short_Literal 0x8
0371 4809 |H | Short_Literal 0x9
0372 0262 | b | Execute Discrete,In_Range
0373 6803 |h | Jump_Zero 0x377
0374 0092 05eb | | Action Push_String_Extended,0x5eb ; "Amount due to Rational by employee"
0376 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0377 00ea | | Load_Encached Null_String_Cache
0378 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0379 0092 05ec | | Action Push_String_Extended,0x5ec ; "Move to any item an press 'definition'"
037b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
037c 0092 05ed | | Action Push_String_Extended,0x5ed ; "Enter 1 date in any form: 89/5/22 5-22-89 may 5,1989 ..."
037e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
037f 0092 05ee | | Action Push_String_Extended,0x5ee ; "Miles or kilometers driven for company business"
0381 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0382 0092 05ef | | Action Push_String_Extended,0x5ef ; "Product Mileage * Mileage_Reimbursement_Rate"
0384 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0385 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Transportation by plane, train or bus only (what about boat ?)"
0387 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0388 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "Rental car (unless paid directly by Rational)"
038a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038b 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "Local transportation, Taxis, Tolls, Parking, Camels, etc"
038d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038e 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "Meals and lodging. Also includes per diem charge."
0390 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0391 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "Good food and entertainment at low cost"
0393 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0394 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "Telephone, Telex, Telefax, Pigeon, Smoke signals"
0396 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0397 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Any other charge: pens and pencils, aspirin,..."
0399 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
039a 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "Enter amount of any advances from Rational"
039c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
039d 00db | | Load_Top At_Offset_3
039e 4800 |H | Short_Literal 0x0
039f 4801 |H | Short_Literal 0x1
03a0 0262 | b | Execute Discrete,In_Range
03a1 6803 |h | Jump_Zero 0x3a5
03a2 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "Mileage reimbursement rate (per mile or per km)"
03a4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a5 00db | | Load_Top At_Offset_3
03a6 4808 |H | Short_Literal 0x8
03a7 4809 |H | Short_Literal 0x9
03a8 0262 | b | Execute Discrete,In_Range
03a9 6803 |h | Jump_Zero 0x3ad
03aa 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "Amount due to employee by Rational"
03ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ad 00ea | | Load_Encached Null_String_Cache
03ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03af 00ea | | Load_Encached Null_String_Cache
03b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bd | | .CONST 0x03bd ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call
03bd BODY_03b8:
03bd 0092 05fa | | Action Push_String_Extended,0x5fa ; "Press [show] to see cells to be filled in"
03bf 0092 05fb | | Action Push_String_Extended,0x5fb ; " previously saved report"
03c1 0092 05fc | | Action Push_String_Extended,0x5fc ; "Press [load] or give file name as proc. param. to modify"
03c3 0092 05fd | | Action Push_String_Extended,0x5fd ; "Press [save] to save report to a file"
03c5 0092 05fe | | Action Push_String_Extended,0x5fe ; "Press [compute] to actually perform computations."
03c7 0092 05ff | | Action Push_String_Extended,0x5ff ; " current exchange rate at the time entry is committed."
03c9 0092 0600 | | Action Push_String_Extended,0x600 ; " numbers are understood as + . Entries are multiplied by"
03cb 0092 0601 | | Action Push_String_Extended,0x601 ; " simple arithmetic expression. Spaces or commas are between"
03cd 0092 0602 | | Action Push_String_Extended,0x602 ; "Entries can be done with numeric keypad, and can be any"
03cf 0092 0603 | | Action Push_String_Extended,0x603 ; "Computes an expense report according to Rational rules."
03d1 8602 | | Call 0x3,0x2
03d2 8602 | | Call 0x3,0x2
03d3 8602 | | Call 0x3,0x2
03d4 8602 | | Call 0x3,0x2
03d5 8602 | | Call 0x3,0x2
03d6 8602 | | Call 0x3,0x2
03d7 8602 | | Call 0x3,0x2
03d8 8602 | | Call 0x3,0x2
03d9 8602 | | Call 0x3,0x2
03da 00ca | | Action Exit_Nullary_Function
03db 0000 0000 | | .BLANK 0000[0x5]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e6 | | .CONST 0x03e6 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0002 | | .CONST 0x0002 ; Number of locals
03e3 INIT_03e0:
03e3 5830 |X0 | Indirect_Literal Float,0x414,0.0
03e4 e40a | | Load 0x2,0xa
03e5 03df | | Declare_Variable Float,With_Value
03e6 BODY_03e0:
03e6 00cf | | Action Mark_Auxiliary
03e7 4807 |H | Short_Literal 0x7
03e8 4801 |H | Short_Literal 0x1
03e9 0007 | | Action Break_Optional
03ea 00db | | Load_Top At_Offset_3
03eb 00d9 | | Load_Top At_Offset_1
03ec 4802 |H | Short_Literal 0x2
03ed e40c | | Load 0x2,0xc
03ee 01a7 | | Execute Matrix,Field_Read
03ef 023d | = | Execute Float,Plus
03f0 a802 | | Store_Unchecked 0x4,0x2
03f1 4802 |H | Short_Literal 0x2
03f2 e40d | | Load 0x2,0xd
03f3 00da | | Load_Top At_Offset_2
03f4 4802 |H | Short_Literal 0x2
03f5 e40c | | Load 0x2,0xc
03f6 01a7 | | Execute Matrix,Field_Read
03f7 023b | ; | Execute Float,Times
03f8 00da | | Load_Top At_Offset_2
03f9 4803 |H | Short_Literal 0x3
03fa 8415 | | Call 0x2,0x15
03fb 00d8 | | Load_Top At_Offset_0
03fc 4802 |H | Short_Literal 0x2
03fd e40c | | Load 0x2,0xc
03fe 01a7 | | Execute Matrix,Field_Read
03ff 700a |p | Jump_Nonzero 0x40a
0400 4800 |H | Short_Literal 0x0
0401 4820 |H | Short_Literal 0x20
0402 00da | | Load_Top At_Offset_2
0403 e404 | | Load 0x2,0x4
0404 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0405 8405 | | Call 0x2,0x5
0406 00da | | Load_Top At_Offset_2
0407 4803 |H | Short_Literal 0x3
0408 e404 | | Load 0x2,0x4
0409 1816 | | Execute Package,Field_Execute,Field_Number 0x16
040a 00c8 | | Action Pop_Auxiliary_Range
040b 3fde |? | Loop_Increasing 0x3ea
040c 00ce | | Action Pop_Auxiliary
040d 4802 |H | Short_Literal 0x2
040e 00d9 | | Load_Top At_Offset_1
040f 4808 |H | Short_Literal 0x8
0410 4802 |H | Short_Literal 0x2
0411 8415 | | Call 0x2,0x15
0412 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0413 0000 | | .XXX[0x1]
0414 0000 0000 | | .DBL 0.0
0416 0000 0000 | |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041e | | .CONST 0x041e ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0002 | | .CONST 0x0002 ; Number of locals
041b INIT_0418:
041b 5ff8 |_ | Indirect_Literal Float,0x414,0.0
041c e40a | | Load 0x2,0xa
041d 03df | | Declare_Variable Float,With_Value
041e BODY_0418:
041e 00cf | | Action Mark_Auxiliary
041f 4807 |H | Short_Literal 0x7
0420 4801 |H | Short_Literal 0x1
0421 0007 | | Action Break_Optional
0422 5ff1 |_ | Indirect_Literal Float,0x414,0.0
0423 a802 | | Store_Unchecked 0x4,0x2
0424 00cf | | Action Mark_Auxiliary
0425 480e |H | Short_Literal 0xe
0426 4803 |H | Short_Literal 0x3
0427 0007 | | Action Break_Optional
0428 e802 | | Load 0x4,0x2
0429 e805 | | Load 0x4,0x5
042a 00da | | Load_Top At_Offset_2
042b e40c | | Load 0x2,0xc
042c 01a7 | | Execute Matrix,Field_Read
042d 023d | = | Execute Float,Plus
042e a802 | | Store_Unchecked 0x4,0x2
042f 00c8 | | Action Pop_Auxiliary_Range
0430 3ff7 |? | Loop_Increasing 0x428
0431 00ce | | Action Pop_Auxiliary
0432 4802 |H | Short_Literal 0x2
0433 e802 | | Load 0x4,0x2
0434 00da | | Load_Top At_Offset_2
0435 480f |H | Short_Literal 0xf
0436 8415 | | Call 0x2,0x15
0437 00c8 | | Action Pop_Auxiliary_Range
0438 3fe9 |? | Loop_Increasing 0x422
0439 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043a 0000 0000 | | .BLANK 0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0447 | G | .CONST 0x0447 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0003 | | .CONST 0x0003 ; Number of locals
0443 INIT_0440:
0443 582c |X, | Indirect_Literal Float,0x470,0.0
0444 e40a | | Load 0x2,0xa
0445 03df | | Declare_Variable Float,With_Value
0446 03d8 | | Declare_Variable Float,Duplicate
0447 BODY_0440:
0447 00cf | | Action Mark_Auxiliary
0448 480e |H | Short_Literal 0xe
0449 4803 |H | Short_Literal 0x3
044a 0007 | | Action Break_Optional
044b 5824 |X$ | Indirect_Literal Float,0x470,0.0
044c a802 | | Store_Unchecked 0x4,0x2
044d 00cf | | Action Mark_Auxiliary
044e 4807 |H | Short_Literal 0x7
044f 4801 |H | Short_Literal 0x1
0450 0007 | | Action Break_Optional
0451 e802 | | Load 0x4,0x2
0452 00d9 | | Load_Top At_Offset_1
0453 e806 | | Load 0x4,0x6
0454 e40c | | Load 0x2,0xc
0455 01a7 | | Execute Matrix,Field_Read
0456 023d | = | Execute Float,Plus
0457 a802 | | Store_Unchecked 0x4,0x2
0458 00c8 | | Action Pop_Auxiliary_Range
0459 3ff7 |? | Loop_Increasing 0x451
045a 00ce | | Action Pop_Auxiliary
045b 4802 |H | Short_Literal 0x2
045c e802 | | Load 0x4,0x2
045d 4808 |H | Short_Literal 0x8
045e 00db | | Load_Top At_Offset_3
045f 8415 | | Call 0x2,0x15
0460 00db | | Load_Top At_Offset_3
0461 e802 | | Load 0x4,0x2
0462 023d | = | Execute Float,Plus
0463 a803 | | Store_Unchecked 0x4,0x3
0464 00c8 | | Action Pop_Auxiliary_Range
0465 3fe5 |? | Loop_Increasing 0x44b
0466 00ce | | Action Pop_Auxiliary
0467 4802 |H | Short_Literal 0x2
0468 00d9 | | Load_Top At_Offset_1
0469 4808 |H | Short_Literal 0x8
046a 480f |H | Short_Literal 0xf
046b 8415 | | Call 0x2,0x15
046c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 0000 0000 | | .DBL 0.0
0472 0000 0000 | |
0474 0000 0000 | | .BLANK 0000[0x4]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047e | ~ | .CONST 0x047e ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0002 | | .CONST 0x0002 ; Number of locals
047b INIT_0478:
047b 5ff4 |_ | Indirect_Literal Float,0x470,0.0
047c e40a | | Load 0x2,0xa
047d 03df | | Declare_Variable Float,With_Value
047e BODY_0478:
047e 00cf | | Action Mark_Auxiliary
047f 4806 |H | Short_Literal 0x6
0480 4803 |H | Short_Literal 0x3
0481 0007 | | Action Break_Optional
0482 4802 |H | Short_Literal 0x2
0483 4808 |H | Short_Literal 0x8
0484 00da | | Load_Top At_Offset_2
0485 e40c | | Load 0x2,0xc
0486 01a7 | | Execute Matrix,Field_Read
0487 4809 |H | Short_Literal 0x9
0488 00db | | Load_Top At_Offset_3
0489 8415 | | Call 0x2,0x15
048a 00c8 | | Action Pop_Auxiliary_Range
048b 3ff6 |? | Loop_Increasing 0x482
048c 00c9 | | Action Pop_Auxiliary_Loop
048d 480a |H | Short_Literal 0xa
048e 4807 |H | Short_Literal 0x7
048f 0007 | | Action Break_Optional
0490 00db | | Load_Top At_Offset_3
0491 4808 |H | Short_Literal 0x8
0492 00da | | Load_Top At_Offset_2
0493 e40c | | Load 0x2,0xc
0494 01a7 | | Execute Matrix,Field_Read
0495 023d | = | Execute Float,Plus
0496 a802 | | Store_Unchecked 0x4,0x2
0497 00c8 | | Action Pop_Auxiliary_Range
0498 3ff7 |? | Loop_Increasing 0x490
0499 00ce | | Action Pop_Auxiliary
049a 4802 |H | Short_Literal 0x2
049b 00d9 | | Load_Top At_Offset_1
049c 4809 |H | Short_Literal 0x9
049d 480a |H | Short_Literal 0xa
049e 8415 | | Call 0x2,0x15
049f 00cf | | Action Mark_Auxiliary
04a0 480e |H | Short_Literal 0xe
04a1 480b |H | Short_Literal 0xb
04a2 0007 | | Action Break_Optional
04a3 4802 |H | Short_Literal 0x2
04a4 4808 |H | Short_Literal 0x8
04a5 00da | | Load_Top At_Offset_2
04a6 e40c | | Load 0x2,0xc
04a7 01a7 | | Execute Matrix,Field_Read
04a8 4809 |H | Short_Literal 0x9
04a9 00db | | Load_Top At_Offset_3
04aa 8415 | | Call 0x2,0x15
04ab 00c8 | | Action Pop_Auxiliary_Range
04ac 3ff6 |? | Loop_Increasing 0x4a3
04ad 00ce | | Action Pop_Auxiliary
04ae 4802 |H | Short_Literal 0x2
04af 4808 |H | Short_Literal 0x8
04b0 480f |H | Short_Literal 0xf
04b1 e40c | | Load 0x2,0xc
04b2 01a7 | | Execute Matrix,Field_Read
04b3 4809 |H | Short_Literal 0x9
04b4 480f |H | Short_Literal 0xf
04b5 8415 | | Call 0x2,0x15
04b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b7 0000 | | .XXX[0x1]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04cb | | .CONST 0x04cb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0003 | | .CONST 0x0003 ; Number of locals
04bb INIT_04b8:
04bb 4808 |H | Short_Literal 0x8
04bc 4810 |H | Short_Literal 0x10
04bd e40c | | Load 0x2,0xc
04be 01a7 | | Execute Matrix,Field_Read
04bf 4808 |H | Short_Literal 0x8
04c0 4811 |H | Short_Literal 0x11
04c1 e40c | | Load 0x2,0xc
04c2 01a7 | | Execute Matrix,Field_Read
04c3 023d | = | Execute Float,Plus
04c4 e40a | | Load 0x2,0xa
04c5 03df | | Declare_Variable Float,With_Value
04c6 4808 |H | Short_Literal 0x8
04c7 480f |H | Short_Literal 0xf
04c8 e40c | | Load 0x2,0xc
04c9 01a5 | | Execute Matrix,Field_Reference
04ca 0007 | | Action Break_Optional
04cb BODY_04b8:
04cb 00d9 | | Load_Top At_Offset_1
04cc 00d9 | | Load_Top At_Offset_1
04cd 0244 | D | Execute Float,Less
04ce 680d |h | Jump_Zero 0x4dc
04cf 4802 |H | Short_Literal 0x2
04d0 00d9 | | Load_Top At_Offset_1
04d1 00db | | Load_Top At_Offset_3
04d2 023c | < | Execute Float,Minus
04d3 4808 |H | Short_Literal 0x8
04d4 4812 |H | Short_Literal 0x12
04d5 8415 | | Call 0x2,0x15
04d6 4802 |H | Short_Literal 0x2
04d7 5814 |X | Indirect_Literal Float,0x4ec,0.0
04d8 4808 |H | Short_Literal 0x8
04d9 4813 |H | Short_Literal 0x13
04da 8415 | | Call 0x2,0x15
04db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04dc 4802 |H | Short_Literal 0x2
04dd 00da | | Load_Top At_Offset_2
04de 00da | | Load_Top At_Offset_2
04df 023c | < | Execute Float,Minus
04e0 4808 |H | Short_Literal 0x8
04e1 4813 |H | Short_Literal 0x13
04e2 8415 | | Call 0x2,0x15
04e3 4802 |H | Short_Literal 0x2
04e4 5807 |X | Indirect_Literal Float,0x4ec,0.0
04e5 4808 |H | Short_Literal 0x8
04e6 4812 |H | Short_Literal 0x12
04e7 8415 | | Call 0x2,0x15
04e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e9 0000 0000 | | .XXX[0x3]
04eb 0000 | |
04ec 0000 0000 | | .DBL 0.0
04ee 0000 0000 | |
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 0508 | | .CONST 0x0508 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0005 | | .CONST 0x0005 ; Number of locals
04f3 INIT_04f0:
04f3 e00c | | Load 0x0,0xc
04f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04f5 0322 | " | Declare_Variable Record
04f6 00db | | Load_Top At_Offset_3
04f7 e00c | | Load 0x0,0xc
04f8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04f9 00d9 | | Load_Top At_Offset_1
04fa 017d | } | Execute Record,Structure_Write
04fb e00c | | Load 0x0,0xc
04fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
04fd 0322 | " | Declare_Variable Record
04fe e00c | | Load 0x0,0xc
04ff 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0500 00d9 | | Load_Top At_Offset_1
0501 017d | } | Execute Record,Structure_Write
0502 e00d | | Load 0x0,0xd
0503 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0504 02c7 | | Declare_Variable Any
0505 00d8 | | Load_Top At_Offset_0
0506 1c00 | | Execute_Immediate Run_Utility,0x0
0507 00e2 | | Load_Encached Integer_Cache
0508 BODY_04f0:
0508 4801 |H | Short_Literal 0x1
0509 4802 |H | Short_Literal 0x2
050a 4804 |H | Short_Literal 0x4
050b e802 | | Load 0x4,0x2
050c e00c | | Load 0x0,0xc
050d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
050e 4801 |H | Short_Literal 0x1
050f 4802 |H | Short_Literal 0x2
0510 4804 |H | Short_Literal 0x4
0511 e803 | | Load 0x4,0x3
0512 e00c | | Load 0x0,0xc
0513 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0514 01de | | Execute Vector,Not_Equal
0515 6837 |h7 | Jump_Zero 0x54d
0516 00da | | Load_Top At_Offset_2
0517 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0518 00e0 | | Load_Encached Standard_Cache
0519 1818 | | Execute Package,Field_Execute,Field_Number 0x18
051a 0092 0604 | | Action Push_String_Extended,0x604 ; "/"
051c 01cc | | Execute Vector,Catenate
051d e9ff | | Load 0x4,-0x1
051e 01cc | | Execute Vector,Catenate
051f e00c | | Load 0x0,0xc
0520 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0521 e802 | | Load 0x4,0x2
0522 017d | } | Execute Record,Structure_Write
0523 00db | | Load_Top At_Offset_3
0524 e00c | | Load 0x0,0xc
0525 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0526 6089 |` | Indirect_Literal Discrete,0x5b0,{0x00000003, 0xf4800000}
0527 e803 | | Load 0x4,0x3
0528 e00c | | Load 0x0,0xc
0529 1817 | | Execute Package,Field_Execute,Field_Number 0x17
052a e00d | | Load 0x0,0xd
052b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
052c e00d | | Load 0x0,0xd
052d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
052e 681e |h | Jump_Zero 0x54d
052f 00da | | Load_Top At_Offset_2
0530 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0531 0aff | | Execute_Immediate Plus,-0x1
0532 00e0 | | Load_Encached Standard_Cache
0533 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0534 0092 0604 | | Action Push_String_Extended,0x604 ; "/"
0536 01cc | | Execute Vector,Catenate
0537 e9ff | | Load 0x4,-0x1
0538 01cc | | Execute Vector,Catenate
0539 e00c | | Load 0x0,0xc
053a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
053b e802 | | Load 0x4,0x2
053c 017d | } | Execute Record,Structure_Write
053d 4801 |H | Short_Literal 0x1
053e 0092 0605 | | Action Push_String_Extended,0x605 ; "I assumed you meant last year :"
0540 4802 |H | Short_Literal 0x2
0541 4800 |H | Short_Literal 0x0
0542 4800 |H | Short_Literal 0x0
0543 e802 | | Load 0x4,0x2
0544 e00c | | Load 0x0,0xc
0545 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0546 01cc | | Execute Vector,Catenate
0547 0092 0606 | | Action Push_String_Extended,0x606 ; ". If not, please enter year."
0549 01cc | | Execute Vector,Catenate
054a e404 | | Load 0x2,0x4
054b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
054c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
054d 00db | | Load_Top At_Offset_3
054e e00c | | Load 0x0,0xc
054f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0550 c804 | | Store 0x4,0x4
0551 00d9 | | Load_Top At_Offset_1
0552 e00c | | Load 0x0,0xc
0553 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0554 4807 |H | Short_Literal 0x7
0555 026e | n | Execute Discrete,Modulo
0556 0a01 | | Execute_Immediate Plus,0x1
0557 0059 | Y | Store_Top Discrete,At_Offset_1
0558 00d8 | | Load_Top At_Offset_0
0559 e7fe | | Load 0x3,-0x2
055a 027e | ~ | Execute Discrete,Not_Equal
055b 6819 |h | Jump_Zero 0x575
055c 4801 |H | Short_Literal 0x1
055d 0092 0607 | | Action Push_String_Extended,0x607 ; "Note that "
055f 4802 |H | Short_Literal 0x2
0560 4800 |H | Short_Literal 0x0
0561 4800 |H | Short_Literal 0x0
0562 e802 | | Load 0x4,0x2
0563 e00c | | Load 0x0,0xc
0564 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0565 01cc | | Execute Vector,Catenate
0566 0092 0608 | | Action Push_String_Extended,0x608 ; " is a "
0568 01cc | | Execute Vector,Catenate
0569 e802 | | Load 0x4,0x2
056a e00c | | Load 0x0,0xc
056b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
056c e00c | | Load 0x0,0xc
056d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
056e 01cc | | Execute Vector,Catenate
056f 0092 0609 | | Action Push_String_Extended,0x609 ; " !"
0571 01cc | | Execute Vector,Catenate
0572 e404 | | Load 0x2,0x4
0573 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0574 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0575 00cf | | Action Mark_Auxiliary
0576 4807 |H | Short_Literal 0x7
0577 4801 |H | Short_Literal 0x1
0578 0007 | | Action Break_Optional
0579 00d8 | | Load_Top At_Offset_0
057a e805 | | Load 0x4,0x5
057b 0272 | r | Execute Discrete,Minus
057c 602f |`/ | Indirect_Literal Discrete,0x5ac,{0x00000000, 0xa8c00000}
057d 0271 | q | Execute Discrete,Times
057e 00d8 | | Load_Top At_Offset_0
057f 00e7 | | Load_Encached Duration_Cache
0580 0260 | ` | Execute Discrete,In_Type
0581 7001 |p | Jump_Nonzero 0x583
0582 0801 | | Execute_Immediate Raise,0x1
0583 e804 | | Load 0x4,0x4
0584 e00d | | Load 0x0,0xd
0585 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0586 e00c | | Load 0x0,0xc
0587 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0588 e802 | | Load 0x4,0x2
0589 017d | } | Execute Record,Structure_Write
058a 4801 |H | Short_Literal 0x1
058b 0092 060a | | Action Push_String_Extended,0x60a ; " "
058d 4801 |H | Short_Literal 0x1
058e 4805 |H | Short_Literal 0x5
058f 4802 |H | Short_Literal 0x2
0590 4800 |H | Short_Literal 0x0
0591 4801 |H | Short_Literal 0x1
0592 e802 | | Load 0x4,0x2
0593 e00c | | Load 0x0,0xc
0594 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0595 01cf | | Execute Vector,Slice_Read
0596 01cc | | Execute Vector,Catenate
0597 00da | | Load_Top At_Offset_2
0598 4801 |H | Short_Literal 0x1
0599 e404 | | Load 0x2,0x4
059a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
059b 00c8 | | Action Pop_Auxiliary_Range
059c 3fdc |? | Loop_Increasing 0x579
059d 00ce | | Action Pop_Auxiliary
059e 4804 |H | Short_Literal 0x4
059f 4808 |H | Short_Literal 0x8
05a0 4802 |H | Short_Literal 0x2
05a1 4803 |H | Short_Literal 0x3
05a2 4804 |H | Short_Literal 0x4
05a3 e802 | | Load 0x4,0x2
05a4 e00c | | Load 0x0,0xc
05a5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
05a6 01cf | | Execute Vector,Slice_Read
05a7 e408 | | Load 0x2,0x8
05a8 01d4 | | Execute Vector,Structure_Write
05a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05aa 0000 0000 | | .XXX[0x2]
05ac 0000 0000 | | .LITERAL {0x00000000, 0xa8c00000}
05b0 0000 0003 | | .LITERAL {0x00000003, 0xf4800000}
05b4 0000 0000 | | .BLANK 0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 480a |H | Short_Literal 0xa
05bc 00db | | Load_Top At_Offset_3
05bd 01cb | | Execute Vector,Append
05be e9fe | | Load 0x4,-0x2
05bf 01cc | | Execute Vector,Catenate
05c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c1 ; --------------------------------------------------------------------------------------
05c1 ; STRING TABLE
05c1 ; --------------------------------------------------------------------------------------
05c1 0096 | | .STRTAB 0x0096->0x060c ; "CATEGORY"
05c2 009c | | .STRTAB 0x009c->0x0610 ; "SUNDAY"
05c3 00a0 | | .STRTAB 0x00a0->0x0613 ; "MONDAY"
05c4 00a4 | | .STRTAB 0x00a4->0x0616 ; "TUESDAY"
05c5 00a9 | | .STRTAB 0x00a9->0x0619 ; "WEDNESD"
05c6 00ae | | .STRTAB 0x00ae->0x061d ; "THURSD"
05c7 00b2 | | .STRTAB 0x00b2->0x0620 ; "FRIDAY"
05c8 00b6 | | .STRTAB 0x00b6->0x0623 ; "SATURD"
05c9 00ba | | .STRTAB 0x00ba->0x0626 ; "A_TOTAL"
05ca 00bf | | .STRTAB 0x00bf->0x0629 ; "B_TOTAL"
05cb 00c4 | | .STRTAB 0x00c4->0x062d ; "DAYS"
05cc 00c6 | | .STRTAB 0x00c6->0x062f ; "DATES"
05cd 00c9 | | .STRTAB 0x00c9->0x0631 ; "MILEAGE"
05ce 00ce | | .STRTAB 0x00ce->0x0635 ; "MIL_ALLW"
05cf 00d4 | | .STRTAB 0x00d4->0x0639 ; "PLANE"
05d0 00d7 | | .STRTAB 0x00d7->0x063b ; "CAR_RENT"
05d1 00dd | | .STRTAB 0x00dd->0x063f ; "LOC_TRNS"
05d2 00e3 | | .STRTAB 0x00e3->0x0643 ; "LODGING"
05d3 00e8 | | .STRTAB 0x00e8->0x0647 ; "BRKFST"
05d4 00ec | | .STRTAB 0x00ec->0x064a ; "LUNCH"
05d5 00ef | | .STRTAB 0x00ef->0x064c ; "DINNER"
05d6 00f3 | | .STRTAB 0x00f3->0x064f ; "BIZ_CONF"
05d7 00f9 | | .STRTAB 0x00f9->0x0653 ; "T_PHONE"
05d8 00fe | | .STRTAB 0x00fe->0x0657 ; "MISC_1"
05d9 0102 | | .STRTAB 0x0102->0x065a ; "MISC_2"
05da 0106 | | .STRTAB 0x0106->0x065d ; "TOTALS"
05db 010a | | .STRTAB 0x010a->0x0660 ; "ADV_1"
05dc 010d | | .STRTAB 0x010d->0x0662 ; "ADV_2"
05dd 0110 | | .STRTAB 0x0110->0x0665 ; "DUE_EMP"
05de 0115 | | .STRTAB 0x0115->0x0668 ; "DUE_RATIONAL"
05df 011f | | .STRTAB 0x011f->0x066e ; "Expense_Report"
05e0 012b | + | .STRTAB 0x012b->0x0675 ; "2.0"
05e1 012c | , | .STRTAB 0x012c->0x0677 ; "Expenses_Week_Ending_"
05e2 013f | ? | .STRTAB 0x013f->0x0681 ; "<quiet>"
05e3 0144 | D | .STRTAB 0x0144->0x0685 ; " "
05e4 0147 | G | .STRTAB 0x0147->0x0687 ; "Date not set up in report"
05e5 015e | ^ | .STRTAB 0x015e->0x0694 ; "File to load :"
05e6 016a | j | .STRTAB 0x016a->0x069b ; "("
05e7 0169 | i | .STRTAB 0x0169->0x069b ; ")*"
05e8 0169 | i | .STRTAB 0x0169->0x069c ; "Mil Rate"
05e9 016f | o | .STRTAB 0x016f->0x06a0 ; "Cur Rate"
05ea 0175 | u | .STRTAB 0x0175->0x06a4 ; "Currency exchange rate to MULTIPLY subsequent entries."
05eb 01a9 | | .STRTAB 0x01a9->0x06bf ; "Amount due to Rational by employee"
05ec 01c9 | | .STRTAB 0x01c9->0x06d0 ; "Move to any item an press 'definition'"
05ed 01ed | | .STRTAB 0x01ed->0x06e3 ; "Enter 1 date in any form: 89/5/22 5-22-89 may 5,1989 ..."
05ee 0225 | % | .STRTAB 0x0225->0x0700 ; "Miles or kilometers driven for company business"
05ef 0252 | R | .STRTAB 0x0252->0x0718 ; "Product Mileage * Mileage_Reimbursement_Rate"
05f0 027c | | | .STRTAB 0x027c->0x072e ; "Transportation by plane, train or bus only (what about boat ?)"
05f1 02b8 | | .STRTAB 0x02b8->0x074d ; "Rental car (unless paid directly by Rational)"
05f2 02e3 | | .STRTAB 0x02e3->0x0763 ; "Local transportation, Taxis, Tolls, Parking, Camels, etc"
05f3 0319 | | .STRTAB 0x0319->0x077f ; "Meals and lodging. Also includes per diem charge."
05f4 0348 | H | .STRTAB 0x0348->0x0798 ; "Good food and entertainment at low cost"
05f5 036d | m | .STRTAB 0x036d->0x07ab ; "Telephone, Telex, Telefax, Pigeon, Smoke signals"
05f6 039b | | .STRTAB 0x039b->0x07c3 ; "Any other charge: pens and pencils, aspirin,..."
05f7 03c8 | | .STRTAB 0x03c8->0x07db ; "Enter amount of any advances from Rational"
05f8 03f0 | | .STRTAB 0x03f0->0x07f0 ; "Mileage reimbursement rate (per mile or per km)"
05f9 041d | | .STRTAB 0x041d->0x0807 ; "Amount due to employee by Rational"
05fa 043d | = | .STRTAB 0x043d->0x0818 ; "Press [show] to see cells to be filled in"
05fb 0464 | d | .STRTAB 0x0464->0x082d ; " previously saved report"
05fc 047c | | | .STRTAB 0x047c->0x083a ; "Press [load] or give file name as proc. param. to modify"
05fd 04b2 | | .STRTAB 0x04b2->0x0856 ; "Press [save] to save report to a file"
05fe 04d5 | | .STRTAB 0x04d5->0x0868 ; "Press [compute] to actually perform computations."
05ff 0504 | | .STRTAB 0x0504->0x0881 ; " current exchange rate at the time entry is committed."
0600 053a | : | .STRTAB 0x053a->0x089d ; " numbers are understood as + . Entries are multiplied by"
0601 0572 | r | .STRTAB 0x0572->0x08ba ; " simple arithmetic expression. Spaces or commas are between"
0602 05ad | | .STRTAB 0x05ad->0x08d8 ; "Entries can be done with numeric keypad, and can be any"
0603 05e2 | | .STRTAB 0x05e2->0x08f4 ; "Computes an expense report according to Rational rules."
0604 0617 | | .STRTAB 0x0617->0x090f ; "/"
0605 0616 | | .STRTAB 0x0616->0x0910 ; "I assumed you meant last year :"
0606 0633 | 3 | .STRTAB 0x0633->0x091f ; ". If not, please enter year."
0607 064d | M | .STRTAB 0x064d->0x092d ; "Note that "
0608 0655 | U | .STRTAB 0x0655->0x0932 ; " is a "
0609 0659 | Y | .STRTAB 0x0659->0x0935 ; " !"
060a 0659 | Y | .STRTAB 0x0659->0x0936 ; " "
060b 065a | Z | .STREND 0x065a->0x0938
060c 4341 5445 |CATE| .STRTAB_STRINGS
0938 ; --------------------------------------------------------------------------------------
0938 ; Debug Table
0938 ; --------------------------------------------------------------------------------------
0938 0004 0001 | | .DEBUG4 0x0004,0x0001,0x713d,0x0000,0x0001,0x0015
093e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0942 001b 0992 | | .DBG4T 0x001b,0x0992,0x8001,0x8000
0946 00fb 0000 | | .DBG4T 0x00fb,0x0000,0x0005,0x0000
094a 0123 0000 | # | .DBG4T 0x0123,0x0000,0x0005,0x0000
094e 014b 09cb | K | .DBG4T 0x014b,0x09cb,0x0002,0x0000
0952 01ab 09ce | | .DBG4T 0x01ab,0x09ce,0x0001,0x0000
0956 01cb 09d2 | | .DBG4T 0x01cb,0x09d2,0x0001,0x0000
095a 01e3 09de | | .DBG4T 0x01e3,0x09de,0x0002,0x0000
095e 0203 09e6 | | .DBG4T 0x0203,0x09e6,0x0002,0x0000
0962 0213 09e9 | | .DBG4T 0x0213,0x09e9,0x0001,0x8000
0966 029b 0a01 | | .DBG4T 0x029b,0x0a01,0x0002,0x0000
096a 02b3 0a06 | | .DBG4T 0x02b3,0x0a06,0x0001,0x0000
096e 0343 0a13 | C | .DBG4T 0x0343,0x0a13,0x0002,0x4000
0972 03bb 0a49 | I| .DBG4T 0x03bb,0x0a49,0x0002,0x0000
0976 03e3 0a4d | M| .DBG4T 0x03e3,0x0a4d,0x0001,0x0000
097a 041b 0a56 | V| .DBG4T 0x041b,0x0a56,0x0001,0x0000
097e 0443 0a5e | C ^| .DBG4T 0x0443,0x0a5e,0x0001,0x0000
0982 047b 0a68 | { h| .DBG4T 0x047b,0x0a68,0x0001,0x0000
0986 04bb 0a73 | s| .DBG4T 0x04bb,0x0a73,0x0001,0x0000
098a 04f3 0a7c | || .DBG4T 0x04f3,0x0a7c,0x0001,0x0000
098e 05bb 0a8f | | .DBG4T 0x05bb,0x0a8f,0x0002,0x0000
0992 ; --------------------------------------------------------------------------------------
0992 ; Debug chain
0992 ; --------------------------------------------------------------------------------------
0992 001b 0001 | | .DBGLEN 0x001b,0x0001
0994 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0025,0x0031,0x0035,0x0039,0x003d,0x0042,0x0047,0x0048,0x0052,0x0057,0x005c,0x0060,0x006a,0x0072,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x00be
09b0 0001 0002 | | .XXX[0x1b]
09b2 0003 0005 | |
09b4 0006 0007 | |
09b6 000b 000c | |
09b8 000d 000e | |
09ba 000f 0010 | |
09bc 0011 0012 | |
09be 0013 0014 | |
09c0 0015 0016 | |
09c2 0017 0018 | |
09c4 0019 001a | |
09c6 001b 001c | |
09c8 001d 001e | |
09ca 001f | |
09cb ; --------------------------------------------------------------------------------------
09cb ; Debug chain
09cb ; --------------------------------------------------------------------------------------
09cb 0000 0001 | | .DBGLEN 0x0000,0x0001
09cd 014b | K | .DBGLNO 0x014b
09ce ; --------------------------------------------------------------------------------------
09ce ; Debug chain
09ce ; --------------------------------------------------------------------------------------
09ce 0000 0002 | | .DBGLEN 0x0000,0x0002
09d0 01ab 01b0 | | .DBGLNO 0x01ab,0x01b0
09d2 ; --------------------------------------------------------------------------------------
09d2 ; Debug chain
09d2 ; --------------------------------------------------------------------------------------
09d2 0005 0005 | | .DBGLEN 0x0005,0x0005
09d4 01cb 01cd | | .DBGLNO 0x01cb,0x01cd,0x01cf,0x01d1,0x01d3,0x01d5,0x01d6,0x01d7,0x01d8,0x01d9
09de ; --------------------------------------------------------------------------------------
09de ; Debug chain
09de ; --------------------------------------------------------------------------------------
09de 0001 0005 | | .DBGLEN 0x0001,0x0005
09e0 01e3 01e8 | | .DBGLNO 0x01e3,0x01e8,0x01ed,0x01f2,0x01f8,0x01fb
09e6 ; --------------------------------------------------------------------------------------
09e6 ; Debug chain
09e6 ; --------------------------------------------------------------------------------------
09e6 0000 0001 | | .DBGLEN 0x0000,0x0001
09e8 0203 | | .DBGLNO 0x0203
09e9 ; --------------------------------------------------------------------------------------
09e9 ; Debug chain
09e9 ; --------------------------------------------------------------------------------------
09e9 0003 0010 | | .DBGLEN 0x0003,0x0010
09eb 0213 0215 | | .DBGLNO 0x0213,0x0215,0x0219,0x021b,0x021e,0x0221,0x0230,0x023b,0x0240,0x0248,0x024f,0x0253,0x025b,0x026e,0x0275,0x027d,0x0283,0x0288,0x028c
09fe 0001 0002 | | .XXX[0x3]
0a00 0004 | |
0a01 ; --------------------------------------------------------------------------------------
0a01 ; Debug chain
0a01 ; --------------------------------------------------------------------------------------
0a01 0000 0003 | | .DBGLEN 0x0000,0x0003
0a03 029b 02a0 | | .DBGLNO 0x029b,0x02a0,0x02a8
0a06 ; --------------------------------------------------------------------------------------
0a06 ; Debug chain
0a06 ; --------------------------------------------------------------------------------------
0a06 0001 000a | | .DBGLEN 0x0001,0x000a
0a08 02b3 02b4 | | .DBGLNO 0x02b3,0x02b4,0x02c6,0x02e1,0x02e4,0x02e7,0x02f8,0x0311,0x031e,0x032b,0x0331
0a13 ; --------------------------------------------------------------------------------------
0a13 ; Debug chain
0a13 ; --------------------------------------------------------------------------------------
0a13 0000 001a | | .DBGLEN 0x0000,0x001a
0a15 0343 0348 | C H| .DBGLNO 0x0343,0x0348,0x0351,0x0367,0x036c,0x036f,0x0374,0x0377,0x0379,0x037c,0x037f,0x0382,0x0385,0x0388,0x038b,0x038e,0x0391,0x0394,0x0397,0x039a,0x039d,0x03a2,0x03a5,0x03aa,0x03ad,0x03af
0a2f 0001 0002 | | .XXX[0x1a]
0a31 0003 0015 | |
0a33 0016 0017 | |
0a35 0018 0019 | |
0a37 0004 0005 | |
0a39 0006 0007 | |
0a3b 0008 0009 | |
0a3d 000a 000b | |
0a3f 000c 000d | |
0a41 000e 000f | |
0a43 0010 0011 | |
0a45 0012 0013 | |
0a47 0014 001a | |
0a49 ; --------------------------------------------------------------------------------------
0a49 ; Debug chain
0a49 ; --------------------------------------------------------------------------------------
0a49 0001 0001 | | .DBGLEN 0x0001,0x0001
0a4b 03bb 03bd | | .DBGLNO 0x03bb,0x03bd
0a4d ; --------------------------------------------------------------------------------------
0a4d ; Debug chain
0a4d ; --------------------------------------------------------------------------------------
0a4d 0001 0006 | | .DBGLEN 0x0001,0x0006
0a4f 03e3 03e7 | | .DBGLNO 0x03e3,0x03e7,0x03ea,0x03f1,0x03fb,0x0400,0x040d
0a56 ; --------------------------------------------------------------------------------------
0a56 ; Debug chain
0a56 ; --------------------------------------------------------------------------------------
0a56 0001 0005 | | .DBGLEN 0x0001,0x0005
0a58 041b 041f | | .DBGLNO 0x041b,0x041f,0x0422,0x0425,0x0428,0x0432
0a5e ; --------------------------------------------------------------------------------------
0a5e ; Debug chain
0a5e ; --------------------------------------------------------------------------------------
0a5e 0001 0007 | | .DBGLEN 0x0001,0x0007
0a60 0443 0448 | C H| .DBGLNO 0x0443,0x0448,0x044b,0x044e,0x0451,0x045b,0x0460,0x0467
0a68 ; --------------------------------------------------------------------------------------
0a68 ; Debug chain
0a68 ; --------------------------------------------------------------------------------------
0a68 0001 0008 | | .DBGLEN 0x0001,0x0008
0a6a 047b 047f | { | .DBGLNO 0x047b,0x047f,0x0482,0x048d,0x0490,0x049a,0x04a0,0x04a3,0x04ae
0a73 ; --------------------------------------------------------------------------------------
0a73 ; Debug chain
0a73 ; --------------------------------------------------------------------------------------
0a73 0002 0005 | | .DBGLEN 0x0002,0x0005
0a75 04bb 04c6 | | .DBGLNO 0x04bb,0x04c6,0x04cb,0x04cf,0x04d6,0x04dc,0x04e3
0a7c ; --------------------------------------------------------------------------------------
0a7c ; Debug chain
0a7c ; --------------------------------------------------------------------------------------
0a7c 0004 000d | | .DBGLEN 0x0004,0x000d
0a7e 04f3 04fb | | .DBGLNO 0x04f3,0x04fb,0x0502,0x0507,0x0508,0x0516,0x0523,0x052f,0x053d,0x054d,0x0551,0x0558,0x055c,0x0576,0x0579,0x058a,0x059e
0a8f ; --------------------------------------------------------------------------------------
0a8f ; Debug chain
0a8f ; --------------------------------------------------------------------------------------
0a8f 0000 0001 | | .DBGLEN 0x0000,0x0001
0a91 05bb | | .DBGLNO 0x05bb
0a92 0000 0000 | | .BLANK 0000[0x16e]