This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; Monitor vectors: | |
MRESET EQU $E000 | |
MSERIN EQU $E003 | |
MSEROUT EQU $E006 | |
MPRINT2 EQU $E009 | |
MPRINTX EQU $E00C | |
MPRIMM EQU $E00F | |
.ORG $100 | |
.ENT $ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
.pragma segment | |
org 0100h | |
jp begin | |
.dseg | |
org 8000h | |
data: db 10 | |
.eseg |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
.ORG 0 | |
.ENGINE mac | |
SERIALCTRL = 00h | |
SERIALDATA = 01h | |
DI | |
IM 1 | |
LD sp,ramtop | |
JR cold |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
NewerOlder