SCR13
FILE INFORMATION
FILENAME(S): SCR13
FILE TYPE(S): SEQ
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:15:31
APPEARS ON: 1 disk(s)
FILE HASH
b5c48814d9553f3241ec98185b6d0338362e2ed67d1bf2132b632c286136a211
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FORTH 64 1 | SCR13 | SEQ | DuncanTwain | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 28 20 44 41 54 41 20 54 59 50 45 53 20 54 4F 20 |( DATA TYPES TO | 00000010: 44 45 46 49 4E 45 20 4D 4E 45 4D 4F 4E 49 43 53 |DEFINE MNEMONICS| 00000020: 20 29 20 48 45 58 20 20 20 20 20 20 20 20 20 20 | ) HEX | 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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 28 20 44 45 46 49 4E 45 | ( DEFINE| 00000080: 20 31 2D 42 59 54 45 20 49 4E 53 54 52 55 43 54 | 1-BYTE INSTRUCT| 00000090: 49 4F 4E 53 20 29 20 20 20 20 20 20 20 20 20 20 |IONS ) | 000000A0: 3A 20 31 4F 50 20 3C 42 55 49 4C 44 53 20 43 2C |: 1OP <BUILDS C,| 000000B0: 20 44 4F 45 53 3E 20 20 20 20 20 20 20 20 20 20 | DOES> | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 43 40 20 43 | C@ C| 000000D0: 2C 20 38 30 30 20 4D 4F 44 45 20 21 20 3B 20 20 |, 800 MODE ! ; | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 28 20 44 45 46 49 4E 45 20 32 20 26 20 33 20 42 |( DEFINE 2 & 3 B| 00000150: 59 54 45 20 49 4E 53 54 52 55 43 53 20 29 20 48 |YTE INSTRUCS ) H| 00000160: 45 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EX | 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 4E 45 20 3C 42 55 49 4C 44 53 20 43 2C |: MNE <BUILDS C,| 000001A0: 20 2C 20 44 4F 45 53 3E 20 20 20 20 20 20 20 20 | , DOES> | 000001B0: 20 20 20 20 20 20 20 20 20 20 44 55 50 20 31 2B | DUP 1+| 000001C0: 20 40 20 28 20 46 45 54 43 48 20 41 44 44 52 2D | @ ( FETCH ADDR-| 000001D0: 4D 4F 44 45 20 4D 41 53 4B 20 29 20 20 20 20 20 |MODE MASK ) | 000001E0: 20 20 53 57 41 50 20 43 40 20 28 20 46 45 54 43 | SWAP C@ ( FETC| 000001F0: 48 20 4F 50 43 4F 44 45 20 42 41 53 45 20 56 41 |H OPCODE BASE VA| 00000200: 4C 55 45 29 20 20 20 20 20 20 4F 50 45 52 41 4E |LUE) OPERAN| 00000210: 44 20 28 20 46 45 54 43 48 20 43 46 41 20 54 4F |D ( FETCH CFA TO| 00000220: 20 48 41 4E 44 4C 45 20 4D 4F 44 45 29 20 20 20 | HANDLE MODE) | 00000230: 20 20 45 58 45 43 55 54 45 20 28 20 45 58 45 43 | EXECUTE ( EXEC| 00000240: 55 54 45 20 52 4F 55 54 49 4E 45 20 54 4F 20 20 |UTE ROUTINE TO | 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260: 20 20 20 20 48 41 4E 44 4C 45 20 41 44 44 52 45 | HANDLE ADDRE| 00000270: 53 53 20 4D 4F 44 45 20 29 20 20 20 20 20 20 20 |SS MODE ) | 00000280: 20 20 38 30 30 20 4D 4F 44 45 20 21 20 3B 20 28 | 800 MODE ! ; (| 00000290: 20 44 45 46 41 55 4C 54 20 41 44 44 52 20 4D 4F | DEFAULT ADDR MO| 000002A0: 44 45 20 29 20 20 20 20 20 20 20 20 20 20 20 20 |DE ) | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 20 20 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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 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 20 2D 2D 3E 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 | |
( DATA TYPES TO DEFINE MNEMONICS ) HEX
( DEFINE 1-BYTE INSTRUCTIONS )
: 1OP <BUILDS C, DOES>
C@ C, 800 MODE ! ;
( DEFINE 2 & 3 BYTE INSTRUCS ) HEX
: MNE <BUILDS C, , DOES>
DUP 1+ @ ( FETCH ADDR-MODE MASK )
SWAP C@ ( FETCH OPCODE BASE VALUE)
OPERAND ( FETCH CFA TO HANDLE MODE)
EXECUTE ( EXECUTE ROUTINE TO
HANDLE ADDRESS MODE )
800 MODE ! ; ( DEFAULT ADDR MODE )
DECIMAL -->
> CLICK IMAGE PREVIEW FOR FULL MODAL