kuninet

;
; CP/M Hello サンプル
;
	CPU	Z80

TARGET:	equ	"Z80"

BDOS	EQU	5h

	org	100h

kuninet

;
; MC6840 PLAY
;  Universal Minitor for 6502 
;

	CPU	6502

TARGET:	EQU	"6502"

;

kuninet

;
; HELLO PRINT
;  Universal Minitor for 6502 
;

	CPU	6502

TARGET:	EQU	"6502"

        org $0200

kuninet

#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

kuninet

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 "-----------------"

kuninet

;
; 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

kuninet

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
      }

kuninet

: 8255INIT
	$80 $C3 P! ;

: 8255-A-OUT
	$C0 P! ;

: WAIT10
    20000 0 DO
	  WAIT
	LOOP ;

kuninet

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
)

kuninet

#!/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