167 lines
2.1 KiB
PHP
167 lines
2.1 KiB
PHP
; BIOS Interface Macros - Version 1.0 - for Microsoft Macro Assembler 5.0
|
|
; (C) Copyright Microsoft Corporation, 1987.
|
|
|
|
.XCREF
|
|
.XLIST
|
|
IF1
|
|
; 0Fh
|
|
@GetMode MACRO
|
|
mov ah,0Fh
|
|
int 10h
|
|
ENDM
|
|
; 00h
|
|
@SetMode MACRO mode
|
|
mov al,mode
|
|
xor ah,ah
|
|
int 10h
|
|
ENDM
|
|
; 0Bh
|
|
@SetColor MACRO color
|
|
sub bh,bh
|
|
mov bl,color
|
|
mov ah,0Bh
|
|
int 10h
|
|
ENDM
|
|
; 0Bh
|
|
@SetPalet MACRO color
|
|
mov bh,1
|
|
mov bl,color
|
|
mov ah,0Bh
|
|
int 10h
|
|
ENDM
|
|
; 05h
|
|
@SetPage MACRO page
|
|
mov al,page
|
|
mov ah,05h
|
|
int 10h
|
|
ENDM
|
|
; 03h
|
|
@GetCur MACRO page
|
|
IFNB <page>
|
|
mov bh,page
|
|
ELSE
|
|
xor bh,bh
|
|
ENDIF
|
|
mov ah,03h
|
|
int 10h
|
|
ENDM
|
|
; 02h
|
|
@SetCurPos MACRO column,row,page
|
|
IFNB <column>
|
|
mov dl,column
|
|
ENDIF
|
|
IFNB <row>
|
|
mov dh,row
|
|
ENDIF
|
|
IFNB <page>
|
|
mov bh,page
|
|
ELSE
|
|
xor bh,bh
|
|
ENDIF
|
|
mov ah,02h
|
|
int 10h
|
|
ENDM
|
|
; 01h
|
|
@SetCurSz MACRO first,last
|
|
mov ch,first
|
|
mov cl,last
|
|
mov ah,01h
|
|
int 10h
|
|
ENDM
|
|
; 08h
|
|
@GetChAtr MACRO page
|
|
IFNB <page>
|
|
mov bh,page
|
|
ELSE
|
|
sub bh,bh
|
|
ENDIF
|
|
mov ah,08h
|
|
int 10h
|
|
ENDM
|
|
; 09h
|
|
@PutChAtr MACRO char,atrib,page,repeat
|
|
IFNB <char>
|
|
mov al,char
|
|
ENDIF
|
|
IFNB <atrib>
|
|
mov bl,atrib
|
|
ENDIF
|
|
IFNB <page>
|
|
mov bh,page
|
|
ELSE
|
|
xor bh,bh
|
|
ENDIF
|
|
IFNB <repeat>
|
|
mov cx,repeat
|
|
ELSE
|
|
mov cx,1
|
|
ENDIF
|
|
mov ah,09h
|
|
int 10h
|
|
ENDM
|
|
; 0Ah
|
|
@PutCh MACRO char,atrib,page,repeat
|
|
IFNB <char>
|
|
mov al,char
|
|
ENDIF
|
|
IFNB <atrib>
|
|
mov bl,atrib
|
|
ENDIF
|
|
IFNB <page>
|
|
mov bh,page
|
|
ELSE
|
|
xor bh,bh
|
|
ENDIF
|
|
IFNB <repeat>
|
|
mov cx,repeat
|
|
ELSE
|
|
mov cx,1
|
|
ENDIF
|
|
mov ah,0Ah
|
|
int 10h
|
|
ENDM
|
|
; 06h and 07h
|
|
@Scroll MACRO distance,atrib,upcol,uprow,downcol,downrow
|
|
IFDEF upcol
|
|
mov cl,upcol
|
|
ENDIF
|
|
IFDEF uprow
|
|
mov ch,uprow
|
|
ENDIF
|
|
IFDEF upcol
|
|
mov dl,upcol
|
|
ENDIF
|
|
IFDEF updownrow
|
|
mov dh,downrow
|
|
ENDIF
|
|
IFDEF atrib
|
|
mov bh,atrib
|
|
ELSE
|
|
mov bh,07h
|
|
ENDIF
|
|
IF distance LE 0
|
|
mov ax,0600h + (-(distance) AND 0FFh)
|
|
ELSE
|
|
mov ax,0700h + (distance AND 0FFh)
|
|
ENDIF
|
|
int 10h
|
|
ENDM
|
|
; 08h, 06h, and 02h
|
|
@Cls MACRO
|
|
@GetChAtr
|
|
mov bl,bh
|
|
mov bh,ah
|
|
sub cx,cx
|
|
mov dx,184Fh
|
|
mov ax,0600h
|
|
int 10h
|
|
mov bh,bl
|
|
sub dx,dx
|
|
mov ah,02h
|
|
int 10h
|
|
ENDM
|
|
ENDIF
|
|
.CREF
|
|
.LIST
|
|
|