x80-assembler v0.01.100328

File

Open ►

Save to ►

emulator RAM

emulator script

Edit

Cut

Copy

Paste

View

Emulator

Assembler

Disassembler

Help

Topic

About

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Windowed output                                              ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            .trace      ; display translation log
            .80x80      ; 80x80-processor mnemonic set
            .x80        ; 80x80-processor instructions set
            .complex    ; 80x80-processor complex instructions
	    .errors 65535
_Pos_ EQU   0x7600      ; OS-char out address
_SP_  EQU   0xF84D      ; OS-stack pointer
_F800 EQU   0xF800      ; OS-cold start
_F803 EQU   0xF803      ; OS-conin
_F809 EQU   0xF809      ; OS-conout
_F815 EQU   0xF815      ; OS-hexout
_F818 EQU   0xF818      ; OS-text out function
_F86C EQU   0xF86C	; OS-entry
Demo: ORG   0x0000      ; Start point
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	156x60 : 9Cx3C
	MOV	SP,0x75FF
	CALL	Init
	MOV	BX,40000
.loop:	PUSH	BX
	CALL	Show16
	ADD	AL,0x30
	CALL	0xFCB9
	MOV	AL,BH
	CALL	0xF815
	MOV	AL,BL
	CALL	0xF815
	POP	BX
	MOV	CL,0x0D
	CALL	0xF809
	MOV	CX,1
	ADD	BX,CX
;	JNC	.loop
;	CALL	0xF803
	MOV	BX,0x1234
	MOV	DX,0x5678
	MOV	CX,0xFACE
;	CALL	PushHex
	CALL	0xF815
	CALL	0xF803
	MOV	BX,0x1E4E
	MOV	[ViewPort.Size],BX
	MOV	BX,0x0000
	MOV	[ViewPort.Org],BX
	XCHG	DX,BX
	MOV	BX,0x3090
	XCHG	DX,BX
	CALL	Line
	MOV	BX,0x122E
	MOV	CL,0x03
.loop:	PUSH	CX
	PUSH	BX
	CALL	Circle
	POP	BX
	POP	CX
	DEC	CL
	JNZ	.loop
	MOV	BX,DeskTop
	CALL	0xF818
	CALL	Window
	JMP	0xF86C
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Debg:	PUSH	DX,CX
	PUSH	BX
	MOV	BX,0x76D0;77BA
	MOV	DX,ViewPort.Seq
	MOV	AL,[DX]
	AND	AL,AL
	SUB	AL,0x02
	MOV	CL,AL
	INC	DX
	MOV	CH,0x0B
.loop:	MOV	AL,CL
	ADD	AL,0x01
	MOV	CL,AL
	SBB	AL,AL
	PUSHF	AL
	AND	AL,0x3E
	MOV	[BX],AL
	MOV	AL,[DX]
	DEC	DX
	CALL	.decs
	POPF	AL
	DEC	CH
	JNZ	.loop
	POP	CX
	PUSH	CX
	MOV	AL,CH
	AND	AL,0x03
	MOV	CH,AL
	MOV	AL,0xFE
	SUB	AL,CL
	MOV	CL,AL
	MOV	AL,0x03
	SBB	AL,CH
	MOV	CH,AL
	JNC	.end
	MOV	CX,0
.end:	PUSH	CX
	POP	BX
	MOV	[ViewPort.Val],BX
	POP	BX
	POP	CX,DX
	RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.decs:	PUSHF	AL
	PUSH	DX
	PUSH	CX
	PUSH	BX
	INC	BX
	INC	BX
	INC	BX
	INC	BX
	MOV	DH,AL
	MOV	CH,0x02
..loop:	MOV	DL,10
	CALL	Divide
	ADD	AL,0x30
	DEC	BX
	MOV	[BX],AL
	DEC	CH
	JNZ	..loop
	MOV	AL,DH
	ADD	AL,0x30
	DEC	BX
	MOV	[BX],AL
	POP	BX
	MOV	CX,0x004E
	ADD	BX,CX
	POP	CX
	POP	DX
	POPF	AL
	RET
;;;;;;;; DH / DL % AL
Divide:	PUSH	BX
	PUSH	CX
	MOV	CH,0x01
	MOV	BL,DL
	MOV	BH,0x00
	MOV	AL,BL
.shift:	MOV	CL,CH
	MOV	BL,AL
	INC	CH
	ROL	AL
	JNC	.shift
.loop:	MOV	AL,DH
	SUB	AL,BL
	JC	.less
	MOV	DH,AL
.less:	MOV	AL,BH
	CMC
	ADC	AL,AL
	MOV	BH,AL
.next:	MOV	AL,BL
	ROR	AL
	MOV	BL,AL
	DEC	CL
	JNZ	.loop
	MOV	AL,DH
	MOV	DH,BH
	POP	CX
	POP	BX
	RET
;;;;;;;; AB.CD > A.BC.D0 > XA.BC
Show16:	PUSH	DX,CX
	PUSH	BX
	POP	DX
	MOV	AL,4
.loop:	PUSHF	AL
	PUSH	BX
	MOV	BX,10
	CALL	Div16
	POP	BX
	MOV	AL,CL
	ADD	BX,BX
	ADC	AL,AL
	ADD	BX,BX
	ADC	AL,AL
	ADD	BX,BX
	ADC	AL,AL
	ADD	BX,BX
	ADC	AL,AL
	MOV	BL,BH
	MOV	BH,AL
	POPF	AL
	DEC	AL
	JNZ	.loop
	MOV	AL,DL
	POP	CX,DX
	RET
;;;;;;;; DX / BX % CX
Div16:	PUSH	BX
	PUSH	DX
	MOV	AL,BL
	NOT	AL
	MOV	BL,AL
	MOV	AL,BH
	NOT	AL
	MOV	BH,AL
	MOV	DX,0x0001
	ADD	BX,DX
	JC	.end
	POP	CX
	DEC	DX
	PUSH	DX
.shift:	PUSH	BX
	ADD	BX,BX
	JC	.shift
	PUSH	CX
.back:	POP	BX
	PUSH	CX
.loop:	POP	CX
	POP	CX
	PUSH	BX
	MOV	AL,CL
	OR	AL,CH
	JZ	.end
	XCHG	DX,BX
	ADD	BX,BX
	XCHG	BX,DX
	XOR	AL,AL
	ADD	BX,CX
	ADC	AL,DL
	MOV	DL,AL
	ROR	AL
	JNC	.back
	JMP	.loop
.end:	POP	CX
	POP	BX
	RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;
PushView:MOV	[.rbx+1],BX
	POP	BX
	MOV	[.rip+1],BX
	MOV	BX,[ViewPort.Org]
	PUSH	BX
	MOV	BX,[ViewPort.Size]
	PUSH	BX
	MOV	BX,[ViewPort.Cursor]
	PUSH	BX
	MOV	BX,[ViewPort.Blank]
	PUSH	BX
	MOV	BX,[ViewPort.Seq]
	PUSH	BX
	MOV	BX,[ViewPort.Seq-2]
	PUSH	BX
	MOV	BX,[ViewPort.Seq-4]
	PUSH	BX
	MOV	BX,[ViewPort.Seq-6]
	PUSH	BX
	MOV	BX,[ViewPort.Seq-8]
	PUSH	BX
.rip:	MOV	BX,0
	PUSH	BX
.rbx:	MOV	BX,0
	RET
DropView:MOV	[.rbx+1],BX
	POP	BX
	MOV	[.rip+1],BX
	POP	BX
	MOV	[ViewPort.Seq-8],BX
	POP	BX
	MOV	[ViewPort.Seq-6],BX
	POP	BX
	MOV	[ViewPort.Seq-4],BX
	POP	BX
	MOV	[ViewPort.Seq-2],BX
	POP	BX
	MOV	[ViewPort.Seq],BX
	POP	BX
	MOV	[ViewPort.Blank],BX
	POP	BX
	MOV	[ViewPort.Cursor],BX
	POP	BX
	MOV	[ViewPort.Size],BX
	POP	BX
	MOV	[ViewPort.Org],BX
.rip:	MOV	BX,0
	PUSH	BX
.rbx:	MOV	BX,0
	RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Window:	MOV	BX,Windows
	MOV	AL,[BX]
	AND	AL,AL
	RET	Z
.loop:	INC	BX
	PUSH	BX
	MOV	BX,ViewPort.Seq
	MOV	CL,0x07
..loop:	MOV	[BX],0x00
	DEC	BX
	DEC	CL
	JNZ	..loop
	MOV	BH,AL
	MOV	BL,CL
	ADD	BX,BX
	ADD	BX,BX
	MOV	DX,0x1000
	ADD	BX,DX
	MOV	[WinStat],BX
	XOR	AL,AL
	CALL	0xF818
	XCHG	DX,BX
	POP	BX
	MOV	AL,[BX]
	AND	AL,AL
	JNZ	.loop
	XCHG	BX,DX
.type:	MOV	[..rbx+1],BX
	PUSH	BX
	CALL	PushView
	CALL	Debg
	PUSHF	AL
	MOV	BX,State
	CALL	0xF818
..rbx:	MOV	BX,0
	POPF	AL
	CALL	DropView
	PUSHF	AL
	MOV	BX,[ViewPort.Cursor]
	XCHG	DX,BX
	MOV	BX,[ViewPort.Org]
	ADD	BX,DX
	MOV	DX,0xC001
	XCHG	BX,DX
	MOV	AL,0x80
	MOV	[BX],AL
	DEC	BX
	MOV	[BX],DL
	MOV	[BX],DH
	POPF	AL
	POP	BX
	JNC	..inp
	DEC	BX
..inp:	CALL	0xF803
	CMP	AL,0x09
	JZ	.tab
	CMP	AL,0x0C
	JZ	.tabul
	CMP	AL,0x7F
	JZ	.back
..next:	MOV	[BX],AL
	MOV	CL,AL
	CALL	PutChar
.zero:	INC	BX
	MOV	[BX],0x00
	JMP	.type
.back:	DEC	BX
	MOV	AL,[BX]
	CMP	AL,0x80
	JNC	.zero
	XOR	AL,AL
	MOV	[BX],AL
	MOV	BX,[WinStat]
	CALL	0xF818
	JMP	.type
.tabul:	DEC	BX
	MOV	AL,[BX]
	INC	BX
	CMP	AL,0x0C
	MOV	AL,0x0C
	JNZ	.type.next
	DEC	BX
	MOV	[BX],0x00
	MOV	BX,Windows
	MOV	CL,[BX]
..loop:	INC	BX
	MOV	AL,[BX]
	DEC	BX
	MOV	[BX],AL
	INC	BX
	AND	AL,AL
	JNZ	..loop
	DEC	BX
	MOV	[BX],CL
	JMP	Window
.tab:	MOV	AL,[0x7606]
	AND	AL,AL
	MOV	AL,0x09
	JNZ	.type.next
	MOV	BX,[WinStat]
	CALL	0xF818
	MOV	BX,Windows
..loop:	MOV	CH,CL
	MOV	CL,AL
	MOV	AL,[BX]
	INC	BX
	AND	AL,AL
	JNZ	..loop
	DEC	BX
	DEC	BX
	MOV	[BX],CH
	DEC	BX
	MOV	[BX],CL
	MOV	AL,CH
	INC	BX
	JMP	.loop
State:	
	DB	"\e4;248;0;0;0;0;1;1;0;0M"
	DB	"\e5;249M"
	DB	"\e1;246M"
	DB	"\e2;247M"
	DB	"\e1;0;0;0B\e0C\x0C\x19\e0P"
	DB	"\x0D\x18Позиция \eC\eT\e248;1M\e1D:\eT\e249;1M\e1D\x18Памяти:\eC\eT\e247;2M\e246;1M\e4D байт\eC\0"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Circle(BL=X; BH=Y; CL=R)
Circle:	MOV	DL,0x00	; X
	MOV	DH,CL	; Y
	MOV	AL,CL
	ADD	AL,CL
	MOV	CL,AL
	MOV	AL,0x01
	SUB	AL,CL
	MOV	CL,AL	; DELTA
	MOV	CH,0x00	; ERROR
.loop:	MOV	AL,DH
	AND	AL,AL
	JZ	.exit
	CALL	PSets
	MOV	AL,CL
	AND	AL,AL
	JNS	.n1
	MOV	AL,CL
	ADD	AL,DH
	ADD	AL,AL
	SUB	AL,0x01
	JNC	.n1
	INC	DL
	MOV	AL,DL
	ADD	AL,AL
	INC	AL
	ADD	AL,CL
	MOV	CL,AL
	JMP	.loop
.n1:	MOV	AL,CL
	AND	AL,AL
	JS	.n2
	JZ	.n2
	MOV	AL,CL
	SUB	AL,DL
	ADD	AL,AL
	SUB	AL,0x01
	JS	.n2
	JZ	.n2
	DEC	DH
	MOV	AL,DH
	ADD	AL,AL
	MOV	CH,AL
	MOV	AL,0x01
	SUB	AL,CH
	ADD	AL,CL
	MOV	CL,AL
	JMP	.loop
.n2:	INC	DL
	MOV	AL,DL
	SUB	AL,DH
	ADD	AL,AL
	ADD	AL,CL
	MOV	CL,AL
	DEC	DH
	JMP	.loop
.exit:	RET
PSets:	PUSH	BX,DX
	PUSH	CX
	ADD	BX,DX
	CALL	PSet
	JNC	.skip
	XOR	AL,CL
	MOV	[BX],AL
.skip:	POP	CX
	POP	DX,BX
	PUSH	BX,DX
	PUSH	CX
	MOV	AL,BL
	ADD	AL,DL
	MOV	BL,AL
	MOV	AL,BH
	SUB	AL,DH
	MOV	BH,AL
	CALL	PSet
	JNC	.skip1
	XOR	AL,CL
	MOV	[BX],AL
.skip1:POP	CX
	POP	DX,BX
	PUSH	BX,DX
	PUSH	CX
	MOV	AL,BL
	SUB	AL,DL
	MOV	BL,AL
	MOV	AL,BH
	SUB	AL,DH
	MOV	BH,AL
	CALL	PSet
	JNC	.skip2
	XOR	AL,CL
	MOV	[BX],AL
.skip2:POP	CX
	POP	DX,BX
	PUSH	BX,DX
	PUSH	CX
	MOV	AL,BL
	SUB	AL,DL
	MOV	BL,AL
	MOV	AL,BH
	ADD	AL,DH
	MOV	BH,AL
	CALL	PSet
	JNC	.skip3
	XOR	AL,CL
	MOV	[BX],AL
.skip3:POP	CX
	POP	DX,BX
	RET
; Line(BL=X1; BH=Y1; DL=X2; DH=Y2)
Line:	MOV	AL,DH
	SUB	AL,BH
	MOV	DH,AL
	SBB	AL,AL
	MOV	CH,AL	; DH = Y2 < Y1 ? -1 : 0
	XOR	AL,DH
	SUB	AL,CH
	MOV	DH,AL	; CH = abs(Y2 - Y1)
	MOV	AL,DL
	SUB	AL,BL
	MOV	DL,AL
	SBB	AL,AL
	MOV	CL,AL	; DL = X2 < X1 ? -1 : 0
	XOR	AL,DL
	SUB	AL,CL
	MOV	DL,AL	; CL = abs(X2 - X1)
	MOV	AL,CL
	ADD	AL,AL
	MOV	AL,CH
	ADC	AL,AL
	AND	AL,0x81
	MOV	CH,AL	; DH = DY.0.0.0.0.0.0.DX
	MOV	AL,DL
	CMP	AL,DH
	SBB	AL,AL
	AND	AL,0x40
	XOR	AL,CH
	MOV	CH,AL	; DH = DY.CX<CY.DX
	AND	AL,0x40
	MOV	AL,DL
	JNZ	.pre
	MOV	DL,DH
	MOV	DH,AL
	MOV	AL,DL
.pre:	AND	AL,0xFE
	ROR	AL
	MOV	CL,AL
	MOV	AL,DH
	INC	AL
.loop:	PUSHF	AL
	PUSH	BX
	PUSH	DX
	PUSH	CX
	CALL	PSet
	JNC	.skip
	XOR	AL,CL
	MOV	[BX],AL
.skip:	POP	CX
	POP	DX
	POP	BX
	MOV	AL,CH
	AND	AL,0x40
	PUSHF	AL
	CALL	Z,.C
	POPF	AL
	CALL	NZ,.D
	MOV	AL,CL
	ADD	AL,DL
	MOV	CL,AL
	SUB	AL,DH
	JC	.next
	MOV	CL,AL
	MOV	AL,CH
	AND	AL,0x40
	PUSHF	AL
	CALL	Z,.D
	POPF	AL
	CALL	NZ,.C
.next:	POPF	AL
	DEC	AL
	JNZ	.loop
	RET
.C:	MOV	AL,CH
	ROR	AL
	SBB	AL,AL
	STC
	ADC	AL,AL
	ADD	AL,BL
	MOV	BL,AL
	RET
.D:	MOV	AL,CH
	ROL	AL
	SBB	AL,AL
	STC
	ADC	AL,AL
	ADD	AL,BH
	MOV	BH,AL
	RET
; PSet(BL=X; BH=Y)
; BX:Pixel Address; AL:Pixel Data; CL:Pixel Trigger
PSet:	XCHG	DX,BX
	MOV	BX,[ViewPort.Size]
	ADD	BX,BX
	XCHG	DX,BX
	MOV	AL,BH
	CMP	AL,DH
	RET	NC
	MOV	AL,BL
	CMP	AL,DL
	RET	NC
	CMC
	RCR	AL
	MOV	BL,AL
	SBB	AL,AL
	XOR	AL,0x11
	AND	AL,0x17
	MOV	CH,AL
	MOV	AL,BH
	RCR	AL
	MOV	BH,AL
	SBB	AL,AL
	XOR	AL,0x03
	AND	AL,0x17
	AND	AL,CH
	PUSHF	AL
	CALL	PutChar.Mul78
	POPF	AL
	MOV	CL,AL
	MOV	AL,[BX]
	AND	AL,0xE8
	SUB	AL,0x01
	SBB	AL,AL
	AND	AL,0x17
	AND	AL,[BX]
	STC
	RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;	ORG	0x300
PushHex:PUSH	CX
	PUSH	DX,BX
	XOR	AL,AL
	MOV	BH,AL
	MOV	BL,AL
	MOV	CH,AL
	ADD	BX,SP
.puthex:INC	CH
	DEC	CH
	MOV	CL,0x2C
	CALL	NZ,0xF809
	INC	BX
	MOV	DH,[BX]
	DEC	BX
	MOV	DL,[BX]
	MOV	AL,DH
	CALL	0xF815
	MOV	AL,DL
	CALL	0xF815
.input:	CALL	GetChar
	JNZ	..chars
	MOV	AL,DL
	OR	AL,DH
	JZ	..del
	XOR	AL,AL
	XCHG	BX,DX
	ADD	BX,BX
	ADC	AL,AL
	ADD	BX,BX
	ADC	AL,AL
	ADD	BX,BX
	ADC	AL,AL
	ADD	BX,BX
	ADC	AL,AL
	MOV	BL,BH
	MOV	BH,AL
..set:	XCHG	BX,DX
	INC	BX
	MOV	[BX],DH
	DEC	BX
	MOV	[BX],DL
	CALL	.eraser
	JMP	.puthex
..del:	CALL	.spacer
	INC	CH
	DEC	CH
	JZ	.end
	DEC	CH
	CALL	.eraser
	DEC	BX
	DEC	BX
	JMP	.puthex
..chars:CMP	AL,0x0D
	JZ	.enter
	CMP	AL,0x2C
	JZ	.next
	CMP	AL,0x2E
	JZ	0xF86C
	CMP	AL,0x3A
	JC	.hex
	CMP	AL,0x47
	JNC	.input
	SUB	AL,0x07
	CMP	AL,0x3A
	JC	.input
.hex:	SUB	AL,0x30
	JC	.input
	XCHG	BX,DX
	ADD	BX,BX
	ADD	BX,BX
	ADD	BX,BX
	ADD	BX,BX
	ADD	AL,BL
	MOV	BL,AL
	JMP	.input.set
.enter:	MOV	AL,CH
	INC	AL
	CMP	AL,0x01
.end:	POP	BX,DX
	POP	CX
	RET
.next:	MOV	AL,CH
	CMP	AL,0x02
	JNC	.input
	INC	CH
	INC	BX
	INC	BX
	JMP	.PutHex
.spacer:CALL	.eraser
	MOV	CL,0x20
	CALL	.eraser.rep4
.eraser:MOV	CL,0x08
..rep4:	INC	CH
	DEC	CH
	CALL	NZ,0xF809
	CALL	0xF809
	CALL	0xF809
	CALL	0xF809
	JMP	0xF809
GetChar:CALL	0xF803
	CMP	AL,0x08
	RET	Z
	CMP	AL,0x7F
	RET
;	DB	"\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MyAnsi:	MOV	BX,[ViewPort.Val-5]
	XCHG	DX,BX
	MOV	BX,[ViewPort.Val-3]
	CMP	AL,0x56	; View x1 y1 x2 y2
	JZ	.view
	CMP	AL,0x42	; Border UL UR DL DR
	JZ	.brd
	CMP	AL,0x4C	; Line x1 y1 x2 y2
	JZ	.line
	CMP	AL,0x44	; Decimals
	JZ	.deci
	CMP	AL,0x4D	; Memory
	JZ	.mem
	CMP	AL,0x50	; Page
	JZ	.page
	CMP	AL,0x54	; Tmp
	JZ	.tmp
	CMP	AL,0x43	; Clear CHAR
	JZ	.clear
	RET
.clear:	MOV	AL,[ViewPort.Val-2]
	MOV	[ViewPort.Blank],AL
	RET
.page:	MOV	AL,[ViewPort.Val-2]
	MOV	[ViewPort.Page],AL
	RET
.tmp:	MOV	AL,[ViewPort.Val-2]
	MOV	[ViewPort.Val],AL
	RET
.view:	MOV	[ViewPort.Size],BX
	MOV	BX,[ViewPort.Val-5]
	MOV	[ViewPort.Org],BX
.nil:	MOV	BX,0x0000
	MOV	[ViewPort.Cursor],BX
	RET
.brd:	XCHG	DX,BX
	MOV	BX,[ViewPort.Org]
	CALL	..add
	MOV	[ViewPort.Org],BX
	MOV	BX,[ViewPort.Val-5]
	XCHG	DX,BX
	MOV	BX,[ViewPort.Size]
	CALL	..add
	MOV	[ViewPort.Size],BX
	JMP	.nil
..add:	MOV	AL,BH
	ADD	AL,DH
	MOV	BH,AL
	MOV	AL,BL
	ADD	AL,DL
	MOV	BL,AL
	RET
.mem:	XCHG	DX,BX
	MOV	BX,ViewPort.Seq
	PUSH	BX
	MOV	CL,DH
	MOV	AL,0x7F
	CMP	AL,DH
	SBB	AL,AL
	MOV	CH,AL
	MOV	AL,0x7F
	CMP	AL,DL
	SBB	AL,AL
	MOV	DH,AL
	ADD	BX,CX
	MOV	AL,[BX]
	POP	BX
	ADD	BX,DX
	ADD	AL,[BX]
	MOV	[BX],AL
	RET
.line:	XCHG	DX,BX
	MOV	BX,[ViewPort.Val-5]
	XCHG	DX,BX
	JMP	Line
.deci:	XOR	AL,AL
	MOV	[ViewPort.Seq],AL
	MOV	AL,BH
	MOV	BX,[ViewPort.Val]
	PUSHF	AL
	CALL	Show16
	ADD	AL,0x30
	MOV	CL,AL
	POPF	AL
	CMP	AL,0x05
	PUSHF	AL
	CALL	NC,0xF809
	POPF	AL
	CMP	AL,0x04
	PUSHF	AL
	MOV	AL,BH
	CALL	NC,0xF815
	POPF	AL
	MOV	AL,BL
	JMP	0xF815
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Init:	MOV	BX,[AnsiUsr]
	MOV	[StdAnsi],BX
	MOV	BX,MyAnsi
	MOV	[AnsiUsr],BX
	RET
StdAnsi:DW	0x0000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; MONITOR's Patches
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ORG	0xF800	; <--
	JMP	LetIsGo
	ORG	0xF830	; <--
	MOV	BX,[0x7631]
	MOV	[0x7631],BX
	RET
	MOV	AL,0x8A
	MOV	[0x8003],AL
	MOV	SP,0x76CF
	CALL	0xFACE
	MOV	BX,0x7600
	MOV	DX,0x7649
	MOV	CL,BL
	ORG	0xF852	; <--
	MOV	BX,Hello
	ORG	0xF86F	; <--
	MOV	BX,Prompt
	ORG	0xF8E3	; <--
	MOV	BX,Erase
	ORG	0xF911	; <--
	DB	0x42
	ORG	0xF9B1
	MOV	BX,Right
	ORG	0xF887	; <---------------------
	PUSHF	AL
	CALL	0xF92C
	MOV	BX,[0x762B]
	MOV	CX,BX
	MOV	BX,[0x7629]
	XCHG	DX,BX
	MOV	BX,[0x7627]
	POPF	AL
	CMP	AL,0x44
	JZ	0xF9C5
	CMP	AL,0x43
	JZ	0xF9D7
	CMP	AL,0x46
	JZ	0xF9ED
	CMP	AL,0x53
	JZ	0xF9F4
	CMP	AL,0x54
	JZ	0xF9FF
	CMP	AL,0x4D
	JZ	0xFA26
	CMP	AL,0x47
	JZ	0xFA3F
	CMP	AL,0x49
	JZ	0xFA86
	CMP	AL,0x4F
	JZ	0xFB2D
	CMP	AL,0x4C
	JZ	0xFA08
	CMP	AL,0x52
	JZ	0xFA68
Typing:	CALL	0xF803
	CALL	0xFCB9
	JMP	Typing
	DB	"\xFF\xFF\xFF\xFF"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Put Char Patcher
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ORG	0xFCBA
PutChar:PUSH	BX
	PUSH	CX,DX
	PUSHF	AL
	CALL	0xFE01
	MOV	BX,[ViewPort.Size]
	XCHG	DX,BX
	CALL	.main
	MOV	[ViewPort.Cursor],BX
	XCHG	DX,BX
	MOV	BX,[ViewPort.Org]
	ADD	BX,DX
	MOV	DX,0xC001
	XCHG	BX,DX
	MOV	AL,0x80
.exit:	MOV	[BX],AL
	DEC	BX
	MOV	[BX],DL
	MOV	[BX],DH
	MOV	BX,ViewPort.Seq
	MOV	[BX],CH
	MOV	BX,0xFCA0
.ansi:	JMP	BX
..call:	MOV	BX,[AnsiUsr]
	CALL	.ansi
..reset:MOV	CX,0xFF30
..code:	MOV	AL,CL
	CMP	AL,0x3C
	JNC	..call
	CMP	AL,0x3A
	RET	NC
	SUB	AL,0x30
	JC	..reset
	MOV	CL,AL
	POP	BX
	MOV	BX,ViewPort.Val-1
	INC	CH
	MOV	AL,CH
	ADD	AL,BL
	MOV	BL,AL
	XOR	AL,AL
	MOV	DH,AL
	ADD	AL,[BX]
	ADD	AL,AL
	ADD	AL,AL
	ADD	AL,[BX]
	ADD	AL,AL
	ADD	AL,CL
	JMP	.exit
	.PROC
.clrscr:XOR	AL,AL
	MOV	BH,AL
	MOV	BL,AL
	MOV	CL,AL
..loop:	CALL	.put_c
	JNZ	..loop
.home:	XOR	AL,AL
	MOV	BH,AL
.return:MOV	CL,0x20
.set_x:	MOV	AL,CL
	SUB	AL,0x20
..mod:	MOV	BL,AL
	SUB	AL,DL
	JNC	..mod
	RET
.bell:	MOV	CX,0x05F0
.beep:	MOV	AL,CH
..loop:	STI
	LOOP	..loop,AL
	MOV	AL,CH
..loop:	CLI
	LOOP	..loop,AL
	LOOP	.beep,CL
	RET
.set_y:	SUB	AL,0x20
..mod:	MOV	BH,AL
	SUB	AL,DH
	JNC	..mod
	RET
.Mul78:	MOV	AL,[ViewPort.Org.y]
	ADD	AL,BH
	ADD	AL,AL
	MOV	CL,AL
	XOR	AL,AL
	MOV	CH,AL
	MOV	BH,AL
	MOV	AL,[ViewPort.Org.x]
	ADD	AL,BL
	MOV	BL,CL
	ADD	BX,BX
	ADD	BX,BX
	ADD	BX,BX
	ADD	BX,CX
	ADD	BX,BX
	ADD	BX,CX
	ADD	BX,BX
	ADD	BX,CX
	MOV	CL,AL
	ADD	BX,CX
	PUSH	BX
	MOV	BX,[Screen]
	XCHG	BX,[SP]
	POP	CX
	ADD	BX,CX
	RET
.left:	DEC	BL
	RET	NS
	MOV	BL,DL
	DEC	BL
.up:	DEC	BH
	RET	NS
	MOV	BH,DH
	DEC	BH
	RET
.right:	INC	BL
	MOV	AL,BL
	SUB	AL,DL
	RET	C
	MOV	BL,AL
.down:	INC	BH
	MOV	AL,BH
	SUB	AL,DH
	RET	C
	MOV	BH,AL
	RET
.put_c:	PUSH	BX
	PUSH	CX
	CALL	.Mul78
	POP	CX
	MOV	AL,[ViewPort.Page]
	ADD	AL,CL
	MOV	[BX],AL
	POP	BX
	INC	BL
	MOV	AL,BL
.tab:	SUB	AL,DL
	RET	C
	XOR	AL,AL
	MOV	BL,AL
.scroll:INC	BH
	MOV	AL,BH
	SUB	AL,DH
	RET	C
	DEC	BH
	PUSH	DX
	PUSH	BX
	MOV	BL,AL
	CALL	.Mul78
	MOV	CX,0xFFB2
..cols:	PUSH	DX,BX
	MOV	AL,[ViewPort.Blank]
..rows:	MOV	DL,AL
	MOV	AL,[BX]
	MOV	[BX],DL
	ADD	BX,CX
	DEC	DH
	JNZ	..rows
	POP	BX,DX
	INC	BX
	DEC	DL
	JNZ	..cols
	POP	BX
	INC	CH
	POP	DX
	RET
.main:	MOV	BX,[ViewPort.Cursor]
	MOV	CH,0x03
	MOV	AL,CL
	AND	AL,0x7F
	CMP	AL,0x1B
	RET	Z
	MOV	CL,AL
	MOV	AL,[ViewPort.Seq]
	MOV	CH,AL
	SUB	AL,0x01
	JC	.output		; 00:Normal print
	MOV	CH,AL
	JZ	.set_x		; 01:Escape+Y:Y,X
	JS	.ansi.code	; FF:Escape+%d%d%c
	RCR	AL
	MOV	AL,CL
	JC	.set_y		; 02:Escape+Y:Y
	CMP	AL,0x59		; 03:Escape+
	RET	Z
	XOR	AL,AL
	MOV	[ViewPort.Val-2],AL
	MOV	CH,0xFE
	JMP	.ansi.code
.output:MOV	AL,CL
	CMP	AL,0x0A
	JZ	.scroll
	CMP	AL,0x0D
	JZ	.return
	CMP	AL,0x08
	JZ	.left
	CMP	AL,0x18
	JZ	.right
	CMP	AL,0x19
	JZ	.up
	CMP	AL,0x1A
	JZ	.down
	CMP	AL,0x0C
	JZ	.home
	MOV	BX,[CharUsr]
	JMP	BX
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ORG	0xFF52	; <--
.other:	CMP	AL,0x1F
	JZ	.clrscr
	MOV	BX,[ViewPort.Cursor]
	CMP	AL,0x07
	JZ	.bell
	CMP	AL,0x09
	JNZ	.put_c
	MOV	AL,BL
	AND	AL,0x7C
	ADD	AL,0x04
	MOV	BL,AL
	JMP	.tab
	.ENDP

LetIsGo:MOV	SP,Screen+2
	MOV	BX,0x76D0
	PUSH	BX
.loop:	MOV	AL,[BX]
	AND	AL,0x7F
	MOV	[BX],AL
	INC	BX
	MOV	AL,BH
	ADD	AL,AL
	JNC	.loop
MonInit:MOV	BX,PutChar.other
	MOV	DX,0xFD37
	PUSH	BX,DX
	MOV	BX,0x0308
	MOV	DX,0x1940
	PUSH	BX,DX
	MOV	BX,0x0000
	PUSH	BX,BX
	PUSH	BX
	JMP	0xF837
Hello:	DB	"\eC\x1FРАДИО-86РК * ОКНА\0"
Prompt:	DB	"\r\n-->\0"
Right:	DB	"\r\n\t\0"
Erase:	DB	"\x08 \x08\0"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ORG	0x0FF0
Windows:DB	"\x01\x02\x03\0\0\0\0\0\0\0\0\0\0\0\0\0"
	ORG	0x1000
DeskTop:DB	"\e30;78;0;0V\e23C\e23P\x1F\e0P\t\t\t\t\t\t\t\t\t\t\t\tО\e128Pконный менеджер \e0PV1.0 (C)2015 \0"
WinStat:DW	0x0000
	ORG	0x1400
	DB	"\e26;2;3;5V\e0C 1 2 3 4 5 6 7 8 910111213141516171819202122232425"
	DB	"\e0;2;255;255B\e6C\e6P\x1F\e0;65;0;0B\e17C\e17P\x1F\e25;192;232;63B\e3C\e3P\x1F\e230;0;0;0B\e20C\e20P\x1F"
	DB	"\e0;0;0;3B\e0P1\t\t9\t\t17\t\t25\t\t33\t\t41\t\t49\t\t57\t\t\x08\x36\x34\e255;0;0;0B"
	DB	"\e0P W\e128PINDOW #1 \e2;0;24;253B";\x9B\0"
	DB	"\e192C\e192P\x1F\e0C\e0PД\e128Pобро пожаловать в \e0PО\e128Pкна (C)2015!\r\n"
	DB	"\e0PА\e128Pвтор и разработчик - \e0PА\e128Pликберов \e0PР\e128Pуслан\r\n"
	DB	"\e0PС\e128Pправка по \e0PE\e128PSC-кодам:\r\n"
	DB	"\e0PESC + %C\e128PHAR\e0PC\e128PODE\e0P + C :: C\e128PODE\e0PP\e128PAGE(ASCII)\r\n"
	DB	"\e0PESC + %H;%W;%Y;%X + V :: V\e128PIEWPORT(\e0PX,Y,W,H)\r\n"
	DB	"\e0PESC + %H;%W;%Y;%X + B :: B\e128PALANCE \e0PV\e128PIEWPORT(\e0PX,Y,W,H)\r\n"
	DB	"\e0PESC + %Y1;%X1;%Y2;%X2 + L :: L\e128PINE(\e0PX1,Y1,X2,Y2)\r\n"
	DB	"\e0PESC + %Y;%X + M :: M\e128PEM\e0PC\e128POPY(\e0P[0X7651+X] <- [0X7651+Y])\r\n"
	DB	"\e0PESC + %N + D :: D\e128PECIMALS\e0PP\e128PRINT(P2, 4 OR 5 DECIMALS OF \e0P[0X7651])\r\n"
	DB	"\e0P\t========\t========\t========\t========\t========\r\n\x9B"
	DB	"0PУ\e128Pправление интерфейсом:\r\n"
	DB	"\e0P<TAB> - П\e128Pереключение двух окон.\r\n"
	DB	"\e0P<HOME>+<HOME> - Ц\e128Pиклическое переключение.\x0D\x0A\x1B\0"
	ORG	0x1800
	DB	"\e5;1;19;32V"
	DB	"\e6C\e6P\x1F\e0;34;0;0B\e17C\e17P\x1F\e5;223;252;32B\e3C\e3P\x1F\e250;0;0;0B\e20C\e20P\x1F\e255;0;0;0B"
	DB	"\e0C\e0P W\e128PINDOW #2 \e2;0;4;0B"
	DB	"\e192C\e192P\x1F\e0PЛ\e128Pиния:\r\n\x9B"
	DB	"2;3;12;47L\0"
	ORG	0x1C00
	DB	"\e5;1;21;20V"
	DB	"\e6C\e6P\x1F\e0;34;0;0B\e17C\e17P\x1F\e5;223;252;32B\e3C\e3P\x1F\e250;0;0;0B\e20C\e20P\x1F\e255;0;0;0B"
	DB	"\e0C\e0P W\e128PINDOW #3 \e2;0;4;0B"
	DB	"\e192C\e192P\x1F\e0PЛ\e128Pиния:\r\n"
	DB	"\x9B\0"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ORG	0x7644
ViewPort:
	DB	"\0\0\0\0\0\0\0\0\0\0\0\0"
.Seq:	DB	0x00	; Escape sequency
.Val:	DB	0x00	; Temporal Value
.Blank:	DB	0x00	; Clear Screen Symbol
.Page:	DB	0x00	; Code-Page Base
.Cursor:		; Typing relative position (X,Y)
..x:	DB	0x00	; Cursor X-Position
..y:	DB	0x00	; Cursor Y-Position
.Size:			; Typing view port (Columns,Rows)
..sx:	DB	0x40	; View port Width
..sy:	DB	0x19	; View port Height
.Org:			; Typing view offset (Left,Top)
..x:	DB	0x08	; View port X-Offset in Screen Buffer
..y:	DB	0x03	; View port Y-Offset in Screen Buffer
AnsiUsr:DW	0xFD37	; User Escape-Subroutine
CharUsr:DW	PutChar.other
Screen:	DW	0x76D0	; Screen Buffer Base