SCR16
FILE INFORMATION
FILENAME(S): SCR16
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-02 23:08:18
APPEARS ON: 2 disk(s)
FILE HASH
0c691354d1e0b059e7749745cfa13e9769c40e47b9ca66bd14e3139dc5658d6a
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPRACHPROGRAMME | SCR16 | SEQ | swasti, flohmarkt, swasti, misc | 10 | 0 | DOWNLOAD FILE |
| SPRACHPROGRAMME | SCR16 | SEQ | swasti, flohmarkt, swasti, misc | 32 | 5 | 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 | | 00000400: 14 0F 20 0C 09 0E 05 20 15 10 20 4E 55 4D 42 45 |.. .... .. NUMBE| 00000410: 52 53 20 14 08 05 12 05 20 09 13 20 01 20 4E 55 |RS ..... .. . NU| 00000420: 4D 45 52 49 43 41 4C 20 54 41 42 20 06 0F 12 0D |MERICAL TAB ....| 00000430: 01 14 20 13 19 0D 02 0F 0C 3A 2D DC DC DC DD 31 |.. ......:-....1| 00000440: 30 30 31 2E 32 35 DD 36 37 2E 33 34 DD 39 38 39 |001.25.67.34.989| 00000450: 37 2E 36 30 DD 35 34 30 2E 32 30 DD 36 35 32 31 |7.60.540.20.6521| 00000460: 2E 32 39 DD 33 32 31 2E 30 30 DD 33 32 31 20 DD |.29.321.00.321 .| 00000470: 2E 33 34 DC DC DC 41 0E 04 20 09 06 20 19 0F 15 |.34...A.. .. ...| 00000480: 20 03 08 01 0E 07 05 20 14 08 05 20 54 41 42 20 | ...... ... TAB | 00000490: 10 0F 13 09 14 09 0F 0E 13 20 0F 0E 20 14 08 05 |......... .. ...| 000004A0: 20 06 0F 12 0D 01 14 20 0C 09 0E 05 2C 20 09 0E | ...... ...., ..| 000004B0: 04 05 0E 14 05 04 20 01 0E 04 20 14 01 02 02 05 |...... ... .....| 000004C0: 04 20 14 05 18 14 20 09 13 20 01 15 14 0F 0D 01 |. .... .. ......| 000004D0: 14 09 03 01 0C 0C 19 20 12 05 2D 01 12 12 01 0E |....... ..-.....| 000004E0: 07 05 04 2E DC DC E6 20 20 DB 20 20 20 20 20 DB |....... . .| 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000500: 00 |. |
( 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 -->
.. .... .. NUMBE
RS ..... .. . NUMERICAL TAB ...... .....
.:-....1001.25.67.34.9897.60.540.20.6521
.29.321.00.321 ..34...A.. .. ... ......
... TAB ......... .. ... ...... ...., ..
...... ... ...... .... .. .............
..-............ . .
.
> CLICK IMAGE PREVIEW FOR FULL MODAL