SCR9
FILE INFORMATION
FILENAME(S): SCR9
FILE TYPE(S): SEQ
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:15:31
APPEARS ON: 1 disk(s)
FILE HASH
ff432a7c52926f387ea09e8e6353fd7861e4ffe334bf0486d33fe9cff1f176c1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FORTH 64 1 | SCR9 | SEQ | DuncanTwain | 12 | 0 | 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: 3A 20 4D 4F 44 45 31 20 28 20 41 42 53 4F 4C 55 |: MODE1 ( ABSOLU| 00000060: 54 45 20 26 20 5A 2E 50 2E 20 29 20 20 20 20 20 |TE & Z.P. ) | 00000070: 20 20 20 20 20 20 20 20 28 20 49 46 20 41 44 44 | ( IF ADD| 00000080: 52 20 4F 4E 20 53 54 41 43 4B 20 49 53 20 3C 3D |R ON STACK IS <=| 00000090: 20 46 46 20 41 4E 44 20 5A 2E 50 2E 20 20 20 20 | FF AND Z.P. | 000000A0: 4D 4F 44 45 20 49 53 20 41 4C 4C 4F 57 45 44 2C |MODE IS ALLOWED,| 000000B0: 20 54 48 45 4E 20 43 4F 4E 56 45 52 54 20 20 20 | THEN CONVERT | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 4F 50 43 4F 44 | OPCOD| 000000D0: 45 20 54 4F 20 5A 45 52 4F 20 50 41 47 45 20 54 |E TO ZERO PAGE T| 000000E0: 59 50 45 20 29 20 20 20 20 20 20 20 20 20 20 20 |YPE ) | 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 43 20 2B 20 3E 52 20 34 | C + >R 4| 00000120: 30 30 20 41 4E 44 20 30 3D 20 4F 56 45 52 20 46 |00 AND 0= OVER F| 00000130: 46 30 30 20 41 4E 44 20 20 20 20 20 20 20 20 20 |F00 AND | 00000140: 20 4F 52 20 30 3D 20 49 46 20 20 20 20 20 20 20 | OR 0= IF | 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 52 3E 20 38 20 2D | R> 8 -| 00000170: 20 43 2C 20 43 2C 20 20 20 20 20 20 20 20 20 20 | C, C, | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 45 4C 53 45 20 52 3E 20 43 2C 20 2C 20 54 | ELSE R> C, , T| 000001A0: 48 45 4E 20 3B 20 20 20 20 20 20 20 20 20 20 20 |HEN ; | 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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 20 20 20 20 3A 20 4D 4F 44 45 33 20 | : MODE3 | 00000210: 28 20 49 4E 44 49 52 45 43 54 2C 58 20 29 20 20 |( INDIRECT,X ) | 00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000230: 20 20 43 2C 20 44 52 4F 50 20 44 55 50 20 46 46 | C, DROP DUP FF| 00000240: 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |00 | 00000250: 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 49 46 | AND IF| 00000260: 20 35 20 41 45 52 52 20 54 48 45 4E 20 43 2C 20 | 5 AERR THEN C, | 00000270: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 20 20 20 3A 20 4D 4F 44 45 34 20 | : MODE4 | 000002B0: 20 28 20 49 4E 44 49 52 45 43 54 2C 59 20 29 20 | ( INDIRECT,Y ) | 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 31 30 20 2B 20 43 2C | 10 + C,| 00000300: 20 44 52 4F 50 20 44 55 50 20 46 46 30 30 20 41 | DROP DUP FF00 A| 00000310: 4E 44 20 49 46 20 20 20 20 20 20 20 20 20 20 20 |ND IF | 00000320: 20 20 35 20 41 45 52 52 20 54 48 45 4E 20 43 2C | 5 AERR THEN C,| 00000330: 20 3B 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 | |
( ASSEMBLER CONT. ) HEX
: MODE1 ( ABSOLUTE & Z.P. )
( IF ADDR ON STACK IS <= FF AND Z.P.
MODE IS ALLOWED, THEN CONVERT
OPCODE TO ZERO PAGE TYPE )
C + >R 400 AND 0= OVER FF00 AND
OR 0= IF
R> 8 - C, C,
ELSE R> C, , THEN ;
: MODE3 ( INDIRECT,X )
C, DROP DUP FF00
AND IF 5 AERR THEN C, ;
: MODE4 ( INDIRECT,Y )
10 + C, DROP DUP FF00 AND IF
5 AERR THEN C, ;
DECIMAL -->
> CLICK IMAGE PREVIEW FOR FULL MODAL