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
; | |
; CP/M Hello サンプル | |
; | |
CPU Z80 | |
TARGET: equ "Z80" | |
BDOS EQU 5h | |
org 100h |
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
; | |
; MC6840 PLAY | |
; Universal Minitor for 6502 | |
; | |
CPU 6502 | |
TARGET: EQU "6502" | |
; |
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
; | |
; HELLO PRINT | |
; Universal Minitor for 6502 | |
; | |
CPU 6502 | |
TARGET: EQU "6502" | |
org $0200 |
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
#define RS_PIN 2 | |
#define DATA 1 | |
#define CTL 0 | |
#define RW_PIN 8 | |
#define WR 0 | |
#define RD 1 | |
#define E_PIN 3 | |
#define ON 1 | |
#define OFF 0 | |
#define DB4_PIN 4 |
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
10 'RTC4543SA RTC DATE TIME SET | |
20 CLEAR 300,&HBFFF | |
30 DEFUSR0=&HC003 'WRITE RTC | |
40 DEFUSR1=&HC000 'READ RTC AND SET PC-8001 DATE&TIME | |
50 PRINT | |
60 PRINT "-----------------" | |
70 PRINT DATE$;" ";TIME$ | |
80 PRINT "-----------------" | |
90 PRINT "YYMMDDyHHMMSS (y:SUN=0,MON=1...SAT=6)" | |
100 PRINT "-----------------" |
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
; | |
; PC-8001 DATE/TIME Set Test | |
; ex. 06/05/04 03:02:01 | |
org 9000h | |
; | |
DATE_TIME_WK EQU 0EA76h | |
RTC_CMD_SET EQU 01675h | |
RTC_SET EQU 01663h | |
GOTO_MON EQU 05C66h |
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
void blink() | |
{ | |
if (PIND==8) { // If your machine has more one line change this to 9 | |
noInterrupts(); | |
delayMicroseconds(1); | |
if (PIND==8) { | |
PORTC = keyboard.MSX_KB_Matrix(0); | |
}else{ | |
PORTC = keyboard.MSX_KB_Matrix(PIND+1); // 8 bits of the Matrix on PORT C (PIN | |
} |
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
: 8255INIT | |
$80 $C3 P! ; | |
: 8255-A-OUT | |
$C0 P! ; | |
: WAIT10 | |
20000 0 DO | |
WAIT | |
LOOP ; |
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
echo off | |
echo -- source fetch from github | |
if exist "glitchworks_monitor\" ( | |
cd glitchworks_monitor | |
git pull | |
cd .. | |
) ELSE ( | |
git clone git@github.com:kuninet/glitchworks_monitor.git | |
) |
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
#!/bin/bash | |
if [ $# -ne 1 ]; then | |
echo usage rename_kicad New_Filename 1>&2 | |
exit 1 | |
fi | |
rm -f ./*.G* | |
rm -f ./*.TXT | |
rm -f ./*.zip |
NewerOlder