SCR7
FILE INFORMATION
FILENAME(S): SCR7
FILE TYPE(S): SEQ
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:15:31
APPEARS ON: 1 disk(s)
FILE HASH
58860777f190db1232d8a93d3a404d3dc2124b1a4f7eae9aa2499fef5d78be39
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FORTH 64 1 | SCR7 | SEQ | DuncanTwain | 23 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 28 20 44 45 46 49 4E 45 20 41 44 44 52 45 53 53 |( DEFINE ADDRESS| 00000010: 20 4D 4F 44 45 53 20 41 4E 44 20 45 52 52 4F 52 | MODES AND ERROR| 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: 38 30 30 20 56 41 52 49 41 42 4C 45 20 4D 4F 44 |800 VARIABLE MOD| 00000060: 45 20 28 20 41 44 44 52 45 53 53 20 4D 4F 44 45 |E ( ADDRESS MODE| 00000070: 20 29 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 2E 41 20 20 32 30 30 20 4D 4F 44 45 20 21 |: .A 200 MODE !| 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 3A 20 23 20 20 31 30 30 | : # 100| 000000D0: 30 20 4D 4F 44 45 20 21 20 3B 20 20 20 20 20 20 |0 MODE ! ; | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 3A 20 58 29 20 20 20 38 30 20 4D 4F 44 45 20 21 |: X) 80 MODE !| 00000100: 20 3B 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 29 59 20 20 20 34 | : )Y 4| 00000120: 30 20 4D 4F 44 45 20 21 20 3B 20 20 20 20 20 20 |0 MODE ! ; | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 3A 20 28 29 20 20 20 20 32 20 4D 4F 44 45 20 21 |: () 2 MODE !| 00000150: 20 3B 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 2C 58 20 20 20 33 | : ,X 3| 00000170: 30 20 4D 4F 44 45 20 21 20 3B 20 20 20 20 20 20 |0 MODE ! ; | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 3A 20 2C 59 20 20 20 20 39 20 4D 4F 44 45 20 21 |: ,Y 9 MODE !| 000001A0: 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ; | 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 28 20 41 53 53 45 4D 42 | ( ASSEMB| 00000210: 4C 45 52 20 45 52 52 4F 52 20 52 4F 55 54 49 4E |LER ERROR ROUTIN| 00000220: 45 20 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 |E - | 00000230: 20 20 52 45 53 45 54 20 4D 4F 44 45 20 42 45 46 | RESET MODE BEF| 00000240: 4F 52 45 20 45 58 49 54 49 4E 47 20 57 49 54 48 |ORE EXITING WITH| 00000250: 20 45 52 52 4F 52 20 29 20 20 20 20 20 20 20 20 | ERROR ) | 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 41 45 52 52 20 38 30 30 20 4D 4F 44 45 20 |: AERR 800 MODE | 00000290: 21 20 45 52 52 4F 52 20 3B 20 20 20 20 20 20 20 |! ERROR ; | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 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 | |
( DEFINE ADDRESS MODES AND ERROR ) HEX
800 VARIABLE MODE ( ADDRESS MODE )
: .A 200 MODE ! ;
: # 1000 MODE ! ;
: X) 80 MODE ! ;
: )Y 40 MODE ! ;
: () 2 MODE ! ;
: ,X 30 MODE ! ;
: ,Y 9 MODE ! ;
( ASSEMBLER ERROR ROUTINE -
RESET MODE BEFORE EXITING WITH ERROR )
: AERR 800 MODE ! ERROR ;
DECIMAL -->
> CLICK IMAGE PREVIEW FOR FULL MODAL