00000000: 3B 43 41 4C 43 55 4C 41 54 49 4F 4E 53 0D 30 20 |;CALCULATIONS.0 |
00000010: 54 4F 20 52 33 0D 3B 4F 52 47 2E 20 56 41 4C 55 |TO R3.;ORG. VALU|
00000020: 45 0D 4E 33 20 2A 20 4E 34 20 54 4F 20 52 31 0D |E.N3 * N4 TO R1.|
00000030: 52 31 20 54 4F 20 32 44 31 0D 3B 43 55 52 20 56 |R1 TO 2D1.;CUR V|
00000040: 41 4C 0D 4E 36 20 2A 20 4E 33 20 54 4F 20 52 32 |AL.N6 * N3 TO R2|
00000050: 0D 52 32 20 54 4F 20 32 44 32 0D 3B 47 41 49 4E |.R2 TO 2D2.;GAIN|
00000060: 2F 4C 4F 53 53 0D 49 46 20 52 31 20 3E 20 52 32 |/LOSS.IF R1 > R2|
00000070: 20 54 48 45 4E 20 52 31 20 2D 20 52 32 20 54 4F | THEN R1 - R2 TO|
00000080: 20 52 33 20 52 33 20 54 4F 20 32 44 34 0D 20 20 | R3 R3 TO 2D4. |
00000090: 45 4C 53 45 0D 20 20 52 32 2D 52 31 20 54 4F 20 |ELSE. R2-R1 TO |
000000A0: 52 33 20 52 33 20 54 4F 20 32 44 33 0D 45 4E 44 |R3 R3 TO 2D3.END|
000000B0: 49 46 0D 3B 52 45 50 4F 52 54 20 4E 45 54 0D 52 |IF.;REPORT NET.R|
000000C0: 32 20 2D 20 52 31 20 54 4F 20 52 34 0D |2 - R1 TO R4. |
;CALCULATIONS.0 TO R3.;ORG. VALUE.N3 * N
4 TO R1.R1 TO 2D1.;CUR VAL.N6 * N3 TO R2
.R2 TO 2D2.;GAIN/LOSS.IF R1 > R2 THEN R1
- R2 TO R3 R3 TO 2D4. ELSE. R2-R1 TO
R3 R3 TO 2D3.ENDIF.;REPORT NET.R2 - R1 T
O R4.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL