Skip to content

Instantly share code, notes, and snippets.

View houmei's full-sized avatar

Katunori Takesita houmei

View GitHub Profile
@houmei
houmei / FM11Z80CTRL.PLD
Created December 9, 2025 15:08
FM-11 Z80 CARD CONTROL
Name FM11Z80CTRL;
PartNo FM11Z80;
Revision 01;
Date 25/12/09;
Designer Katunori Takesita;
Company MSD;
Assembly ;
Location ;
Device G22V10;
@houmei
houmei / FM11Z80BANK.PLD
Created December 9, 2025 14:57
FM-11 Z80 CARD BANKREGISTER
Name FM11Z80BANK;
PartNo FM11Z80;
Revision 01;
Date 25/12/08;
Designer Katunori Takesita;
Company MSD;
Assembly ;
Location ;
Device G22V10;
@houmei
houmei / FM11Z80DEC0.PLD
Last active December 7, 2025 11:47
FM-11 Z80 CARD MAIN DECODER
Name FM11ZDEC0;
PartNo FM11Z80;
Revision 01;
Date 25/12/07;
Designer Katunori Takesita;
Company ;
Assembly ;
Location ;
Device G22V10;
@houmei
houmei / FM11Z80DEC1.PLD
Created December 7, 2025 11:44
FM-11 Z80 CARD DECORDER for Z80
Name FM11ZDEC1;
PartNo FM11Z80;
Revision 01;
Date 25/12/01;
Designer Katunori Takesita;
Company ;
Assembly ;
Location ;
Device G16V8;
@houmei
houmei / FM11Z80INTH.PLD
Last active December 7, 2025 11:45
FM-11 Z80 CARD INTERRUPT MASK(UPPER)
Name FM11Z80INTH;
PartNo FM11Z80;
Revision 01;
Date 25/12/03;
Designer Katunori Takesita;
Company MSD;
Assembly ;
Location ;
Device G22V10;
@houmei
houmei / FM11Z80INTL.PLD
Created December 3, 2025 13:36
FM-11 Z80 CARD INTERRUPT MASK(LOWER)
Name FM11Z80INTL;
PartNo FM11Z80;
Revision 01;
Date 25/12/01;
Designer Katunori Takesita;
Company MSD;
Assembly ;
Location ;
Device G22V10;
@houmei
houmei / GQ.BAS
Created June 30, 2025 11:22
Mobile Suit GUNDAM GQuuuuuuX ZEKNOVA Game for MSX
1 L=RND(-TIME)
2 L=INT(RND(1)*20)+6
3 T$="MOBILE SUIT GUNDAM GQ"
4 PRINT
5 FOR I=1 TO LEN(T$)
6 PRINT MID$(T$,I,1);:GOSUB 17
7 NEXT I
8 A$=INKEY$:IF A$<>"" GOTO 8
9 FOR C=0 TO L
10 PRINT "u";:GOSUB 17
@houmei
houmei / KROMCHK.BAS
Last active February 25, 2025 12:49
KROM READ TEST for FM-7/FM-8
100 DEF FNHX$(A)=RIGHT$("0"+HEX$(A),2)
110 DEF FNR(A)=INT(RND(1)*A)
120 FOR I=1 TO 8
130 KH=FNR(256):POKE &HFD20,KH
140 FOR J=1 TO 8
150 KL=FNR(256):POKE &HFD21,KL
160 PRINT FNHX$(KH);FNHX$(KL);" : ";
170 FOR K=1 TO 20
180 T=PEEK(&HFD22):U=PEEK(&HFD23)
190 S$=FNHX$(T)+FNHX$(U)
@houmei
houmei / t1.lua
Created February 24, 2025 09:55
32KB binary sum (get Kanji-ROM checksum)
-- 32KB KROM SUM
if arg[1]==nil then
print("Usage: arg[0] file")
os.exit(-1)
end
--
FH=io.open(arg[1],"rb")
if FH==nil then
print (arg[1]," not found")
os.exit(-2)
@houmei
houmei / HAT.L
Last active June 28, 2024 12:09
AI-1000 hat demonstration
(defun hat ()
(angle 0) ; degree
(clear-screen)
(setq d (make-array 192))
(do ((i 0 (1+ i))) ((= i 191) i) (setf (aref d i) 100))
; (setq rd (/ 3.14 180))
(draw 0 0)
(do ((y -180 (+ y 18))) ((<= 180 y) t) ; step 6
(do ((x -180 (+ x 12))) ((<= 180 x) t) ; step 4
(setf r (sqrt (+ (* x x)(* y y))))