SCR16
FILE INFORMATION
FILENAME(S): SCR16
FILE TYPE(S): SEQ
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:15:31
APPEARS ON: 1 disk(s)
FILE HASH
f269cd8e0d25079e08460f7ff0f0512e198a8363275205bb7114b77a7428ac46
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FORTH 64 1 | SCR16 | SEQ | DuncanTwain | 24 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 28 20 41 53 53 45 4D 42 4C 45 52 20 43 4F 4E 44 |( ASSEMBLER COND| 00000010: 49 54 49 4F 4E 41 4C 53 20 29 20 48 45 58 20 20 |ITIONALS ) 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: 3A 20 42 45 47 49 4E 2C 20 20 20 20 48 45 52 45 |: BEGIN, HERE| 00000060: 20 31 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 | 1 ; | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 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 55 4E 54 49 4C 2C 20 3E 52 20 31 20 3F 50 |: UNTIL, >R 1 ?P| 000000B0: 41 49 52 53 20 52 3E 20 43 2C 20 20 20 20 20 20 |AIRS R> C, | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 48 45 52 45 | HERE| 000000D0: 20 31 2B 20 2D 20 43 2C 20 3B 20 20 20 20 20 20 | 1+ - C, ; | 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 3A 20 45 4E 44 2C 20 20 | : END, | 00000120: 55 4E 54 49 4C 2C 20 3B 20 20 20 20 20 20 20 20 |UNTIL, ; | 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 3A 20 49 46 2C 20 43 2C | : IF, C,| 00000170: 20 48 45 52 45 20 30 20 43 2C 20 32 20 3B 20 20 | HERE 0 C, 2 ; | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001B0: 20 20 20 20 20 20 20 20 3A 20 45 4E 44 49 46 2C | : ENDIF,| 000001C0: 20 32 20 3F 50 41 49 52 53 20 48 45 52 45 20 4F | 2 ?PAIRS HERE O| 000001D0: 56 45 52 20 43 40 20 49 46 20 20 20 20 20 20 20 |VER C@ IF | 000001E0: 20 20 20 53 57 41 50 20 21 20 45 4C 53 45 20 4F | SWAP ! ELSE O| 000001F0: 56 45 52 20 31 2B 20 2D 20 53 57 41 50 20 43 21 |VER 1+ - SWAP C!| 00000200: 20 54 48 45 4E 20 3B 20 20 20 20 20 20 20 20 20 | THEN ; | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000230: 3A 20 54 48 45 4E 2C 20 45 4E 44 49 46 2C 20 3B |: THEN, ENDIF, ;| 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280: 3A 20 45 4C 53 45 2C 20 32 20 3F 50 41 49 52 53 |: ELSE, 2 ?PAIRS| 00000290: 20 48 45 52 45 20 31 2B 20 31 20 4A 4D 50 2C 20 | HERE 1+ 1 JMP, | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 53 57 41 50 | SWAP| 000002B0: 20 48 45 52 45 20 4F 56 45 52 20 31 2B 20 2D 20 | HERE OVER 1+ - | 000002C0: 53 57 41 50 20 43 21 20 32 20 3B 20 20 20 20 20 |SWAP C! 2 ; | 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 3A 20 4E 4F 54 20 32 30 | : NOT 20| 00000300: 20 4F 52 20 3B 20 20 20 20 20 20 20 20 20 20 20 | OR ; | 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 3A 20 45 4E 44 2D 43 4F | : END-CO| 00000350: 44 45 20 43 55 52 52 45 4E 54 20 40 20 43 4F 4E |DE CURRENT @ CON| 00000360: 54 45 58 54 20 21 20 20 20 20 20 20 20 20 20 20 |TEXT ! | 00000370: 20 20 20 20 20 20 20 20 20 20 3F 43 53 50 20 53 | ?CSP S| 00000380: 4D 55 44 47 45 20 3B 20 20 20 20 20 20 20 20 20 |MUDGE ; | 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: 3A 20 43 3B 20 45 4E 44 2D 43 4F 44 45 20 3B 20 |: C; END-CODE ; | 000003D0: 20 20 20 44 45 43 49 4D 41 4C 20 2D 2D 3E 20 20 | DECIMAL --> | 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 CONDITIONALS ) HEX
: BEGIN, HERE 1 ;
: UNTIL, >R 1 ?PAIRS R> C,
HERE 1+ - C, ;
: END, UNTIL, ;
: IF, C, HERE 0 C, 2 ;
: ENDIF, 2 ?PAIRS HERE OVER C@ IF
SWAP ! ELSE OVER 1+ - SWAP C! THEN ;
: THEN, ENDIF, ;
: ELSE, 2 ?PAIRS HERE 1+ 1 JMP,
SWAP HERE OVER 1+ - SWAP C! 2 ;
: NOT 20 OR ;
: END-CODE CURRENT @ CONTEXT !
?CSP SMUDGE ;
: C; END-CODE ; DECIMAL -->
> CLICK IMAGE PREVIEW FOR FULL MODAL