SCR9
FILE INFORMATION
FILENAME(S): SCR9
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-02 23:08:18
APPEARS ON: 2 disk(s)
FILE HASH
36f4b261889d6e237225179de9df990ecb46a6f2490f740b0dfca7a84aa03a10
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPRACHPROGRAMME | SCR9 | SEQ | swasti, flohmarkt, swasti, misc | 11 | 0 | DOWNLOAD FILE |
| SPRACHPROGRAMME | SCR9 | SEQ | swasti, flohmarkt, swasti, misc | 5 | 4 | 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 | | 00000400: 02 64 D2 0F 4A 20 C5 97 88 FF 0E 9E FE 0E 8C F5 |.d..J ..........| 00000410: 52 0F FE 0E 8B F7 8F D4 04 D1 E7 6C 43 90 D0 20 |R..........lC.. | 00000420: 00 00 00 F5 FD 0E CE D8 22 D0 46 13 C5 4E 54 45 |........".F..NTE| 00000430: 52 20 D3 43 52 45 45 4E 20 C3 4F 4C 4F 52 20 D0 |R .CREEN .OLOR .| 00000440: 52 02 64 D2 0F 4A 20 C5 97 88 FF 0F 9E FE 0F 8C |R.d..J .........| 00000450: F5 52 0F FE 0F 8B F7 8F D4 04 D1 28 6D 43 90 D0 |.R.........(mC..| 00000460: 21 00 00 00 F5 FD 0F CE D8 22 D0 46 13 C5 4E 54 |!........".F..NT| 00000470: 45 52 20 D0 52 4F 4D 50 54 20 C3 4F 4C 4F 52 20 |ER .ROMPT .OLOR | 00000480: D0 52 02 64 D2 0F 4A 20 C5 FF 3B 8A FE 3B 8C F5 |.R.d..J ..;..;..| 00000490: 52 10 FE 3B 8B F7 8F D4 04 D1 69 6D FD 3A FE 3B |R..;......im.:.;| 000004A0: E0 79 39 FE 33 91 FF 34 D8 22 D0 46 15 C5 4E 54 |.y9.3..4.".F..NT| 000004B0: 45 52 20 D2 45 53 50 4F 4E 53 45 20 C3 4F 4C 4F |ER .ESPONSE .OLO| 000004C0: 52 20 D0 52 02 64 D2 0F 4A 20 C5 FF 3C 8A FE 3C |R .R.d..J ..<..<| 000004D0: 8C F5 52 10 FE 3C 8B F7 8F D4 04 D1 A9 6D FD 3A |..R..<.......m.:| 000004E0: FE 3C E0 FF 16 D8 22 D0 46 14 C5 4E 54 45 52 20 |.<....".F..NTER | 000004F0: CD 45 53 53 41 47 45 20 C3 4F 4C 4F 52 20 D0 52 |.ESSAGE .OLOR .R| 00000500: 00 |. |
( 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 -->
.DR.J E.........
R......T.Q.LC.P ......NX"PF.ENTER SCREEN
COLOR PR.DR.J E.........R......T.Q(MC.P
!......NX"PF.ENTER PROMPT COLOR PR.DR.J
E.;..;..R..;...T.QIM.:.;.Y9.3..4X"PF.ENT
ER RESPONSE COLOR PR.DR.J E.<..<..R..<..
.T.Q.M.:.<...X"PF.ENTER MESSAGE COLOR PR
.
> CLICK IMAGE PREVIEW FOR FULL MODAL