Koyaanisqatsi::Info

KISC - is Koyaanisqatsi Instruction Set Computing

CPS - Cycles Per Second: Programm cycle until HALT
Classic Mode: Native Koyaanisqatsi operating
DF - Duplex Flag: Alias for ZF, when compare identical operands
Do n CPS: Run until end of terminal line

Koyaanisqatsi::Help

Context - Set
Device#CB:Part#00 - Set CB:00.1=
Device#CD:Part#00 - Set CD:12.3= CD:12.5= CD:39.1=

Koyaanisqatsi::About

KISC - is Koyaanisqatsi Instruction Set Computing

K	oy-Machine Emulator v1.02
File New Load Load local … … … Edit Cut Copy Select all Debug Step Do CPU Reset Classic Run 1 CPS Run 10 CPS Run 100 CPS Do 1 CPS Do 10 CPS Do 100 CPS View Render Clean Noised Dirty Context Disassembly Listing Memory Help Info Help About LCD-Editor GitHub Status

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; (C) Alikberov - 2021.07.09	;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.IMGUR	OysxF9E.png	; Load LCD-Sprites
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CALL	.DEFW		0xFE	; CALL LABEL
RET	.DEF		0xE9	; RETURN
JC	.DEFW		0xEC	; JUMP IF CARRY
JNC	.DEFW		0xED	; JUMP IF NO CARRY
JZ	.DEFW		0xEE	; JUMP IF ZERO
JNZ	.DEFW		0xEF	; JUMP IF NO ZERO
SHR	.DEF		0xF9	; SHIFT RIGHT
LDA	.DEFB		0xFA	; LOAD A
LDB	.DEFB		0xFB	; LOAD B
LDC	.DEFB		0xFC	; LOAD C
LOAD	.DEFW		0xFD	; LOAD BC
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
STACK	.EQU	0x00A0		; STACK BASE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; CALL ADDRESS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	CALL
	OR	A9,A9		; CLC
	ADD	BC4,BC9		; ADC SP,-1
	CMC			; CMC
	ADD	BC4,BC9		; ADC SP,-1
	MOV	C8,[BC0+1]
	MOV	B8,[BC0+2]
	ADD	BC0,BC1
	ADD	BC0,BC1
	MOV	[BC4+0],C0	; MOV [SP],C0
	MOV	[BC4+1],B0	; MOV [SP+1],B0
	JCF	BC8+0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	RET
	MOV	B0,[BC4+1]
	MOV	C0,[BC4+0]
	OR	C0,C0
	ADD	BC4,BC1
	ADD	BC4,BC1
	CMC
	JCE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; JC ADDRESS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	JC
	JCF	BC0+3	; Is Carry - False?
	MOV	A0,[BC0+1]
	MOV	B0,[BC0+2]
	MOV	C0,A0
	JCE
	CMC
	JCE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; JNC ADDRESS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	JNC
	JCE	BC0+3	; Is Carry - Exist?
	MOV	A0,[BC0+1]
	MOV	B0,[BC0+2]
	MOV	C0,A0
	JCE
	CMC
	JCE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; JZ ADDRESS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	JZ
	JDF	BC0+3	; Is Duplex - False?
	MOV	A0,[BC0+1]
	MOV	B0,[BC0+2]
	MOV	C0,A0
	JDE
	CMD
	JDE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; JNZ ADDRESS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	JNZ
	JDE	BC0+3	; Is Duplex - Exist?
	MOV	A0,[BC0+1]
	MOV	B0,[BC0+2]
	MOV	C0,A0
	JDE
	CMD
	JDE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; SHR
; SHIFT RIGHT A9
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	SHR
	ADD	A9,A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	ADD	A9
	JAE	BC0+1
	JAF	BC0+1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; LOAD A,DATA
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	LDA
	MOV	A,[BC0+1]
	JAE	BC0+2
	JAF	BC0+2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; LOAD B,DATA
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	LDB
	MOV	B,[BC0+1]
	JAE	BC0+2
	JAF	BC0+2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; LOAD C,DATA
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	LDC
	MOV	C,[BC0+1]
	JAE	BC0+2
	JAF	BC0+2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; LOAD BC,ADDRESS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.DEF	LOAD
	MOV	C,[BC0+1]
	MOV	B,[BC0+2]
	JAE	BC0+3
	JAF	BC0+3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; BC1 = +1
; BC9 = -1
; BC6 = GLASS DATA
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
STACK	.EQU	0x1000
	.ORG	0
TETRIS
	OR	C0,B0
	JZ	TETRINI
	CALL	SCORED
	CALL	GLASSED
	CALL	CHECK
	HALT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TETRINI
	LOAD	BC1,1		; BC1 = +1
	LOAD	BC9,65535	; BC9 = -1
	LOAD	BC6,GLASS
	LOAD	BC5,NUMBERS
	LOAD	BC4,STACK
	LDA	A9,0xCB
	MOV	D9,A9
	HALT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SCORED
	LOAD	BC8,0
	LDA	A5,10
	MOV	A9,[BC6+65535]
.DIV10	ARG	A,A
	MOV	A8,A9
	OR	A9,A9
	SUB	A5
	JC	.DIV1
	ADD	BC8,BC1
	JNZ	.DIV10
.DIV1	MOV	D0,[BC5+0+A8]
	MOV	D1,[BC5+0+C8]
	MOV	D2,[BC6+0]
	MOV	D3,[BC6+1]
	MOV	D4,[BC6+2]
	MOV	D5,[BC6+3]
	MOV	D6,[BC6+4]
	MOV	D7,[BC6+5]
	RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CHECK
	LDA	A9,5
	MOV	C7,C6
	MOV	B7,B6
.LOOP
	MOV	A8,[BC7+0]
	OR	A8
	SUB	C9
	JZ	.ERASE
	CMC
	ADD	BC7,BC1
	SUB	A9,C1
	JNC	.LOOP
	RET
.ERASE
	MOV	A8,[BC7+1]
	MOV	[BC7+0],A8
	OR	A9,A9
	ADD	BC7,BC1
	SUB	C1
	JNZ	.ERASE
	HALT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GLASSED
	RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SCORE	.DB	25
GLASS	.DB	0xFD
	.DB	0xFF
	.DB	0xCF
	.DB	0xE1
	.DB	0x00
	.DB	0x00
NUMBERS	.DB	0x7E		; 0
	.DB	0x0C		; 1
	.DB	0xB6		; 2
	.DB	0x9E		; 3
	.DB	0xCC		; 4
	.DB	0xDA		; 5
	.DB	0xFA		; 6
	.DB	0x0E		; 7
	.DB	0xFE		; 8
	.DB	0xDE		; 9