SCR8
FILE INFORMATION
FILENAME(S): SCR8
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-02 23:08:18
APPEARS ON: 2 disk(s)
FILE HASH
2a043756771739fc38b1eab6963fdcba3a05ff650e45883fd8438cc5401e191a
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPRACHPROGRAMME | SCR8 | SEQ | swasti, flohmarkt, swasti, misc | 24 | 9 | DOWNLOAD FILE |
| SPRACHPROGRAMME | SCR8 | SEQ | swasti, flohmarkt, swasti, misc | 5 | 1 | 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 | |
00000400: 9E 71 D8 FD 0D FE 1F 95 D4 06 8A 6E D1 96 67 9E |.q.........n..g.|
00000410: 71 D8 52 02 64 52 03 CB 8A CD 08 28 2F D0 46 24 |q.R.dR.....(/.F$|
00000420: C6 49 45 4C 44 20 23 20 28 45 51 2C 4E 45 2C 47 |.IELD # (EQ,NE,G|
00000430: 54 2C 4C 54 2C 47 45 2C 4C 45 29 20 C1 52 47 55 |T,LT,GE,LE) .RGU|
00000440: 4D 45 4E 54 D0 21 FE 40 82 7B 52 10 77 D2 CA 50 |MENT.!.@.{R.w..P|
00000450: 52 17 64 D2 0F 4A 46 01 91 00 9D F5 8A 01 8B F7 |R.d..JF.........|
00000460: 8D D4 08 8A 01 81 61 D1 45 68 FC 52 47 21 A6 20 |......a.Eh.RG!. |
00000470: F8 46 01 91 00 9D F5 8A 01 94 F7 8D D4 02 D8 8A |.F..............|
00000480: 01 94 F5 46 00 00 9D F7 8D D4 02 D8 D5 D8 46 01 |...F..........F.|
00000490: 93 D0 FD 10 D0 EC FD 34 D0 EC 38 D0 EC EC FD 10 |.......4..8.....|
000004A0: D0 D8 46 09 C6 49 4C 45 20 C4 55 4D 50 78 D2 8E |..F..ILE .UMPx..|
000004B0: 68 22 D0 46 26 C5 4E 54 45 52 20 C2 45 47 49 4E |h".F&.NTER .EGIN|
000004C0: 4E 49 4E 47 20 23 2C 20 5B 41 5D 3D C1 4C 4C 2C |NING #, [A]=.LL,|
000004D0: 20 5B 43 5D 3D C3 41 4E 43 45 4C D0 EC 46 10 13 | [C]=.ANCEL..F..|
000004E0: 11 11 11 11 11 C2 45 47 49 4E 4E 49 4E 47 20 D0 |......EGINNING .|
000004F0: 52 04 64 D2 0F 4A 46 01 43 00 9D D4 04 D1 8C 4B |R.d..JF.C......K|
00000500: 00 |. |
( 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 -->
.QX.....T..NQ.G.
QXR.DR.K.M.(/PF$FIELD # (EQ,NE,GT,LT,GE,
LE) ARGUMENTP!.@.{R.WRJPR.DR.JF.........
.T....AQEH.RG!. .F..........T.X....F....
.T.XUXF..P..P..4P.8P....PXF.FILE DUMPXR.
H"PF&ENTER BEGINNING #, [A]=ALL, [C]=CAN
CELP.F.......BEGINNING PR.DR.JF.C..T.Q.K
.
> CLICK IMAGE PREVIEW FOR FULL MODAL