SCR8
FILE INFORMATION
FILENAME(S): SCR8
FILE TYPE(S): SEQ
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:15:31
APPEARS ON: 1 disk(s)
FILE HASH
b330c8f9b54c42ec75c55d96707598c820ab4a1b1f5263e0193993bbefdcfdd7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FORTH 64 1 | SCR8 | SEQ | DuncanTwain | 23 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 28 20 41 53 53 45 4D 42 4C 45 52 20 43 4F 4E 54 |( ASSEMBLER CONT| 00000010: 2E 20 29 20 48 45 58 20 20 20 20 20 20 20 20 20 |. ) HEX | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 28 20 53 54 41 52 54 20 4F 46 20 41 44 44 52 45 |( START OF ADDRE| 00000060: 53 53 20 4D 4F 44 45 20 44 45 46 49 4E 49 54 49 |SS MODE DEFINITI| 00000070: 4F 4E 53 29 20 20 20 20 20 20 20 20 20 20 20 20 |ONS) | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 3A 20 45 52 52 4D 4F 44 45 20 33 20 41 45 52 52 |: ERRMODE 3 AERR| 000000B0: 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ; | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 3A 20 4D 4F 44 45 37 20 20 28 20 49 4E 44 49 52 |: MODE7 ( INDIR| 00000100: 45 43 54 20 4A 55 4D 50 20 29 20 20 20 20 20 20 |ECT JUMP ) | 00000110: 20 20 20 20 20 20 20 20 20 20 32 43 20 2B 20 43 | 2C + C| 00000120: 2C 20 44 52 4F 50 20 2C 20 3B 20 20 20 20 20 20 |, DROP , ; | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 3A 20 4D 4F 44 45 30 20 28 20 49 4D 4D 45 44 49 |: MODE0 ( IMMEDI| 000001A0: 41 54 45 20 4D 4F 44 45 20 29 20 20 20 20 20 20 |ATE MODE ) | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001E0: 28 20 49 46 20 4F 50 43 4F 44 45 20 42 41 53 45 |( IF OPCODE BASE| 000001F0: 20 3D 20 41 30 2C 41 32 2C 43 30 2C 20 4F 52 20 | = A0,A2,C0, OR | 00000200: 45 30 2C 20 20 20 20 20 20 20 54 48 45 4E 20 4F |E0, THEN O| 00000210: 50 43 4F 44 45 20 3D 20 4F 50 43 4F 44 45 20 2D |PCODE = OPCODE -| 00000220: 20 38 20 29 20 20 20 20 20 20 20 20 20 20 20 20 | 8 ) | 00000230: 20 20 44 55 50 20 44 55 50 20 41 30 20 3D 20 53 | DUP DUP A0 = S| 00000240: 57 41 50 20 20 20 20 20 20 20 20 20 20 20 20 20 |WAP | 00000250: 20 20 20 20 20 20 20 20 20 20 44 55 50 20 41 32 | DUP A2| 00000260: 20 3D 20 53 57 41 50 20 44 55 50 20 43 30 20 3D | = SWAP DUP C0 =| 00000270: 20 53 57 41 50 20 20 20 20 20 20 20 20 20 20 20 | SWAP | 00000280: 20 20 45 30 20 3D 20 4F 52 20 4F 52 20 4F 52 20 | E0 = OR OR OR | 00000290: 49 46 20 38 20 2D 20 54 48 45 4E 20 20 20 20 20 |IF 8 - THEN | 000002A0: 20 20 20 20 20 20 20 20 20 20 38 20 2B 20 43 2C | 8 + C,| 000002B0: 20 44 52 4F 50 20 20 20 20 20 20 20 20 20 20 20 | DROP | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002D0: 20 20 44 55 50 20 46 46 30 30 20 41 4E 44 20 49 | DUP FF00 AND I| 000002E0: 46 20 35 20 41 45 52 52 20 54 48 45 4E 20 43 2C |F 5 AERR THEN C,| 000002F0: 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ; | 00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 3A 20 4D 4F 44 45 32 20 20 28 20 2E 41 20 29 20 |: MODE2 ( .A ) | 00000330: 38 20 2B 20 43 2C 20 44 52 4F 50 20 3B 20 20 20 |8 + C, DROP ; | 00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003C0: 44 45 43 49 4D 41 4C 20 2D 2D 3E 20 20 20 20 20 |DECIMAL --> | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
( ASSEMBLER CONT. ) HEX
( START OF ADDRESS MODE DEFINITIONS)
: ERRMODE 3 AERR ;
: MODE7 ( INDIRECT JUMP )
2C + C, DROP , ;
: MODE0 ( IMMEDIATE MODE )
( IF OPCODE BASE = A0,A2,C0, OR E0,
THEN OPCODE = OPCODE - 8 )
DUP DUP A0 = SWAP
DUP A2 = SWAP DUP C0 = SWAP
E0 = OR OR OR IF 8 - THEN
8 + C, DROP
DUP FF00 AND IF 5 AERR THEN C, ;
: MODE2 ( .A ) 8 + C, DROP ;
DECIMAL -->
> CLICK IMAGE PREVIEW FOR FULL MODAL