00000000: 00 20 54 4F 20 53 54 41 4D 50 46 44 20 3A 44 20 |. TO STAMPFD :D |
00000010: 3A 43 48 41 52 0D 20 49 46 20 3A 44 20 3C 20 30 |:CHAR. IF :D < 0|
00000020: 20 53 54 41 4D 50 42 4B 20 2D 20 3A 44 20 3A 43 | STAMPBK - :D :C|
00000030: 48 41 52 20 53 54 4F 50 0D 20 52 45 50 45 41 54 |HAR STOP. REPEAT|
00000040: 20 51 55 4F 54 49 45 4E 54 20 3A 44 20 38 20 5B | QUOTIENT :D 8 [|
00000050: 53 54 41 4D 50 43 48 41 52 20 3A 43 48 41 52 20 |STAMPCHAR :CHAR |
00000060: 46 44 20 38 5D 0D 20 53 54 41 4D 50 43 48 41 52 |FD 8]. STAMPCHAR|
00000070: 20 3A 43 48 41 52 0D 20 46 44 20 52 45 4D 41 49 | :CHAR. FD REMAI|
00000080: 4E 44 45 52 20 3A 44 20 38 0D 20 53 54 41 4D 50 |NDER :D 8. STAMP|
00000090: 43 48 41 52 20 3A 43 48 41 52 0D 45 4E 44 0D 0D |CHAR :CHAR.END..|
000000A0: 54 4F 20 53 54 41 4D 50 42 4B 20 3A 44 20 3A 43 |TO STAMPBK :D :C|
000000B0: 48 41 52 0D 20 49 46 20 3A 44 20 3C 20 30 20 53 |HAR. IF :D < 0 S|
000000C0: 54 41 4D 50 46 44 20 2D 20 3A 44 20 3A 43 48 41 |TAMPFD - :D :CHA|
000000D0: 52 20 53 54 4F 50 0D 20 52 45 50 45 41 54 20 51 |R STOP. REPEAT Q|
000000E0: 55 4F 54 49 45 4E 54 20 3A 44 20 38 20 5B 53 54 |UOTIENT :D 8 [ST|
000000F0: 41 4D 50 43 48 41 52 20 3A 43 48 41 52 20 42 4B |AMPCHAR :CHAR BK|
00000100: 20 38 5D 0D 20 53 54 41 4D 50 43 48 41 52 20 3A | 8]. STAMPCHAR :|
00000110: 43 48 41 52 0D 20 42 4B 20 52 45 4D 41 49 4E 44 |CHAR. BK REMAIND|
00000120: 45 52 20 3A 44 20 38 0D 20 53 54 41 4D 50 43 48 |ER :D 8. STAMPCH|
00000130: 41 52 20 3A 43 48 41 52 0D 45 4E 44 0D 0D 00 99 |AR :CHAR.END....|
00000140: FB |. |
. TO STAMPFD :D :CHAR. IF :D < 0 STAMPBK
- :D :CHAR STOP. REPEAT QUOTIENT :D 8 [
STAMPCHAR :CHAR FD 8]. STAMPCHAR :CHAR.
FD REMAINDER :D 8. STAMPCHAR :CHAR.END..
TO STAMPBK :D :CHAR. IF :D < 0 STAMPFD -
:D :CHAR STOP. REPEAT QUOTIENT :D 8 [ST
AMPCHAR :CHAR BK 8]. STAMPCHAR :CHAR. BK
REMAINDER :D 8. STAMPCHAR :CHAR.END....
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL