Sample leasing program for Sharp PC-1201 from 1978
Step Menomic Code Description
---- ------- ------- ------------------
Enter vehicle cost, push S/E to start
000 CAM F-45 Clear all memories
001 S1 55-01 Store 1
002 S3 55-03
003 SUB T F-14-83 Gosub T
004 HALT F-12 Enter Cap Cost Reduction
005 S2 55-02
006 +/- 82 Change sign
007 S+3 75-03 Add to 3
008 SUB T F-14-83
009 HALT F-12 Enter Term (months)
010 S5 55-05 Store 5
011 SUB T F-14-83
012 HALT F-12 Enter Residual Value
013 S8 55-08
014 SUB T F-14-83
015 HALT F-12 Enter Rate
016 S9 55-09
017 SUB T F-14-83
018 R9 65-09 Read 9
019 ÷ 44 Divide
020 1 01
021 2 02
022 0 00
023 0 00
024 S+4 75-04
025 R3 65-03
026 + 74
027 R8 65-08
028 x 54
029 R5 65-05
030 x 54
031 R4 65-04
032 + 74
033 R3 65-03
034 - 64
035 R8 65-08
036 ÷ 44
037 R5 65-05
038 = 84
039 INT F-84
040 + 74
041 1 01
042 = 84
043 S6 55-06
044 x 54
045 R5 65-05
046 = 84
047 S7 55-07
048 R6 65-06
049 ÷ 44
050 2 02
051 5 05
052 + 74
053 . 83
054 5 05
055 = 84
056 INT F-84
057 x 54
058 2 02
059 5 05
060 = 84
061 S4 55-04
062 SUB T F-14-83
063 SUB T F-14-83
064 R6 65-06 Display computed payment (rounded to nearest $25)
065 S/E 85 End of main program
066 LBL T F-13-83 Subroutine T
067 CE 35
068 S/E 85
----------
Memory Map
----------
1 Vehicle cost
2 Cap cost reduction
3 Cap cost
4 Security deposit
5 Term
6 Monthly payment
7 Total of monthly payments
8 Residual value
9 Lease rate
|
