This is an experimental Forth system written in bash.
svofski 2020
MIT Licence
This is an experimental Forth system written in bash.
svofski 2020
MIT Licence
| ; Тетрис 512 байт для Вектора-06ц с кассетной загрузкой. | |
| ; | |
| ; | |
| ; Загружается начиная с адреса $db00, прямо в экранное ОЗУ | |
| ; стандартного загрузчика и перехватывает управление на себя. | |
| ; | |
| ; Особые зоны: DBA8..DBB2 - столбик (см. Around1) | |
| ; DCA8..DCB2 - столбик (см. Around2) | |
| ; DCEC.. - важно для 512-байт загрузчика | |
| ; DCEE.. - перехват адреса возврата |
| ;Vortex Tracker II v1.0 PT3 player for MSX | |
| ;Adapted by Alfonso D. C. aka Dioniso <dioniso072@yahoo.es> | |
| ;09-Jan-05 | |
| ; | |
| ;8080 version by Ivan Gorodetsky 05-Jul-25 (PT3.7 support 06-Jul-25) | |
| ;8080 mnemonics conversion by Viacheslav Slavinsky 06-Jul-25 | |
| ; | |
| ;From: | |
| ;Vortex Tracker II v1.0 PT3 player for ZX Spectrum | |
| ;(c)2004 S.V.Bulba <vorobey@mail.khstu.ru> http://bulba.at.kz |
| ; 🐟 (try me) | |
| ; 8080 assembler code | |
| .project hellorld.com | |
| bdos equ 5 | |
| .org 100h | |
| lxi d, msg | |
| mvi c, 9 | |
| call bdos | |
| ret | |
| msg: |
| @echo off | |
| setlocal enabledelayedexpansion | |
| set input=%1 | |
| set output=%2 | |
| set startaddr=%3 | |
| set inputfile=%~dp0%~1 | |
| set outputfile=%~dp0%~2 |
| ; Быстрое проявление мандрила с использованием LFSR | |
| ; Эту 🐟 сделал Иван Городецкий, 04.10.2017 | |
| .project babdis.rom | |
| .tape v06c-rom | |
| .org 100h | |
| di | |
| xra a |
| ;AY emulator on VI53 v0.1 | |
| ;Компилировать в TASM - A Table Driven Cross Assembler for the MSDOS* Environment (tasm 3.01 или 3.2) | |
| ;Иван Городецкий 04.05.2009 | |
| ;ПО "Счетмаш" 1988-1990 | |
| ; a = psg register number | |
| ; e = data | |
| WRTPSG: | |
| push h |
| 100 CLEAR1000,&HD8FF | |
| :KEYOFF | |
| :SCREEN1,2,0 | |
| :COLOR 2,1,1 | |
| :WIDTH 32 | |
| :DEFINT A-Y | |
| 110 GOSUB 2200 | |
| :GOSUB 1960 | |
| :HS=2000 | |
| 120 DIM FR(5),M(2),MX(2),MY(2): |
| ; Song title: EA at feb 2018 (YM+ABC) | |
| ; | |
| ; compressed into 14 parallel streams from YM6 file saved by register | |
| ; | |
| ; This example is decompressing and playing 14 parallel streams. | |
| ; Compressed data size 2310 bytes (uncompressed 61586) | |
| ; | |
| ; code by svofski 2022 | |
| ; | |
| ; |
| ; jinj_med from Arkos Tracker 2 demo songs | |
| ; wyz.ym stripped from headers | |
| ; salvador -classic -w 255 wyz.ym wyz.w256 | |
| ; compressed data size 4022 bytes (uncompressed 30724) | |
| .project cancion-nueva.rom | |
| .org $100 | |
| ; ----------------------------------------------------------------------------- | |
| ; ZX0 8080 decoder by Ivan Gorodetsky - OLD FILE FORMAT v1 | |
| ; Based on ZX0 z80 decoder by Einar Saukas |