_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

LG-STAMFD

FILE INFORMATION

FILENAME(S): LG-STAMFD

FILE TYPE(S): PRG

FILE SIZE: 318b

FIRST SEEN: 2025-11-30 21:14:31

APPEARS ON: 1 disk(s)

FILE HASH

3f4f94daacbfb2c80d819faf849533e396364e144af22da4dea804e7d3671af5

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-STAMFD PRG DuncanTwain 20 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 53 54 41  4D 50 42 4B 20 3A 44 20  |. TO STAMPBK :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 46 44  20 2D 20 3A 44 20 3A 43  | STAMPFD - :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: 42 4B 20 38 5D 0D 20 53  54 41 4D 50 43 48 41 52  |BK 8]. STAMPCHAR|
00000070: 20 3A 43 48 41 52 0D 20  42 4B 20 52 45 4D 41 49  | :CHAR. BK 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  46 44 20 3A 44 20 3A 43  |TO STAMPFD :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 42 4B 20 2D  20 3A 44 20 3A 43 48 41  |TAMPBK - :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 46 44  |AMPCHAR :CHAR FD|
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 46 44  20 52 45 4D 41 49 4E 44  |CHAR. FD 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        |AR :CHAR.END..  |

. TO STAMPBK :D :CHAR. IF :D < 0 STAMPFD
 - :D :CHAR STOP. REPEAT QUOTIENT :D 8 [
STAMPCHAR :CHAR BK 8]. STAMPCHAR :CHAR. 
BK REMAINDER :D 8. STAMPCHAR :CHAR.END..
TO STAMPFD :D :CHAR. IF :D < 0 STAMPBK -
 :D :CHAR STOP. REPEAT QUOTIENT :D 8 [ST
AMPCHAR :CHAR FD 8]. STAMPCHAR :CHAR. FD
 REMAINDER :D 8. STAMPCHAR :CHAR.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL