Skip to content

Instantly share code, notes, and snippets.

View maly's full-sized avatar

Martin Malý maly

View GitHub Profile
0000 ;*************************************************************
0000 ;
0000 ; TINY BASIC FOR INTEL 8080
0000 ; VERSION 2.0
0000 ; BY LI-CHEN WANG
0000 ; MODIFIED AND TRANSLATED
0000 ; TO INTEL MNEMONICS
0000 ; BY ROGER RAUSKOLB
0000 ; 10 OCTOBER,1976
0000 ; @COPYLEFT
@maly
maly / fuksoft.sna
Last active February 22, 2020 16:14
0 CLEAR :RANDOMIZE USR VAL "63850":POKE VAL "23607",VAL "249":DIM W$(VAL "135-55",INT PI ):GO SUB VAL "5E3":POKE VAL "63035",VAL "235":POKE VAL "23658",VAL "8":LET SMRT=BIN :POKE VAL "23609",VAL "10":POKE VAL "63171",VAL "7":POKE VAL "63172",VAL "211":BRIGHT SGN PI :POKE VAL "63173",VAL "254":INK VAL "6":BORDER BIN :OVER BIN :PAPER BIN :CLS
1 LET BUM=VAL "0":LET RANA=VAL "-1":LET KOTW=VAL "0":LET PLAMEN=NOT PI :LET PAC=NOT PI :LET OKNO=NOT PI :LET Q$=" "
2 GO SUB VAL "9950"
3 LET Z$="@":LET R$="@"
6 BORDER 2:BORDER 6:BORDER 0
7 IF INKEY$ <> "" THEN INK 6:CLS :LET A=100:DIM C$(4):GO TO 9
8 GO TO 6
9 DRAW 255,0:DRAW 0,175:DRAW -255,0:DRAW 0,-175:PRINT AT 0,12;"FUKSOFT":PRINT ';OVER 1;" VITAJ TIM COLEMAN! PO TVOJOM USPECHU V AFERE 'PODRAZ III' MAM PRE TEBA TVRDY ORIESOK.POMSTYCHTIVY JACK RAGGER A JONATHAN FOX SA DOS- TALI DO BYTU F.FUKU A UKRYLI TAM CASOVANU NALOZ. DUFAM, ZE SA ZACHOVAS AKO
1 REM :H\ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN <> THEN PI OPEN # RETURN <> RESTORE MERGE OR !FORMAT :READ \GOR STEP FORMAT \CDRAW FDRAW # STEP OVER \CDRAW FDRAW #STR$ VERIFY STR$ MOVE LLIST <> .!CONTINUE FOR RESTORE X @OR THEN  ~ THEN IN #NEXT STR$ GO SUB LLIST ### STEP L]STR$ BRIGHT <> OR FOR H:H\ THEN ? THEN ? THEN ? THEN BORDER OPEN # 6SAVE THEN PI OPEN # 6ASAVE STR$ OPEN # STR$ <> ....................................
2 REM pUSR x<LIST LPRINT <OSAVE LPRINT `|8LPRINT PAUSE ><CEp STR$ CgCOPY COPY COPY COPY LIST SAVE DRAW RETURN ?7""!COPY COPY COPY w##ACS ACS COPY CAT CIRCLE CIRCLE DRAW RETURN 3.'COPY 3RUN jMERGE COPY 0AT TSAVE >#COPY 5dBIN COPY USR `8SAVE ~COPY USR @ RETURN  USR `COPY ~`USR ~COPY COPY COPY COPY USR LIST !?COPY COPY COPY COPY COPY COPY NOT COPY COPY LPRINT DRAW COPY COPY ........
3 REM INTR
4 BORDER 1:PAPER 0:INK 7:GO SUB cls:PRINT AT 4,2;"DIKTATOR";AT 8,2;"Autor:"
5 PRINT AT 10,2;"Don PRIESTLEY"
7 PRINT AT 14,2;INK 9;"Copyright D kTRONICS
@maly
maly / AT.A09
Created December 23, 2018 10:05
OMEN Kilo
; Monitor vectors:
MRESET EQU $E000
MSERIN EQU $E003
MSEROUT EQU $E006
MPRINT2 EQU $E009
MPRINTX EQU $E00C
MPRIMM EQU $E00F
.ORG $100
.ENT $
.pragma segment
org 0100h
jp begin
.dseg
org 8000h
data: db 10
.eseg
@maly
maly / 6502.emu
Created October 2, 2017 17:51
EMU files
cpu C6502
memory.ram.from 0x0000
memory.ram.to 0x0fff
memory.rom.from 0xf000
memory.rom.to 0xffff
serial 6850
serial.data 0xa001
serial.control 0xa000
@maly
maly / adent.z80
Created October 2, 2017 17:44
Jednodeskova vyzva 1
.ORG 0
.ENGINE mac
SERIALCTRL = 00h
SERIALDATA = 01h
DI
IM 1
LD sp,ramtop
JR cold
@maly
maly / mac.emu
Last active September 17, 2017 16:06
SBC Challenge
cpu Z80
memory.ram.from 0x1000
memory.ram.to 0x13ff
memory.rom.from 0x0000
memory.rom.to 0x0fff
;serial simple
;serial.in 1
;serial.out 1
@maly
maly / edushield-sleep.ino
Created May 27, 2017 11:37
Edushield + interrupt + sleep
int RED = A2;
int YELLOW = A3;
int GREEN = 13;
int BUTTON = 2;
#include <avr/sleep.h> // library for sleep
#include <avr/power.h> // library for power control
int currentState = 0;