mirror of https://github.com/nmlgc/ReC98.git
57 lines
1.0 KiB
NASM
57 lines
1.0 KiB
NASM
|
; master library - PC-9801
|
||
|
|
;
|
||
|
|
; Description:
|
||
|
|
; グラフィック画面の初期設定(アナログ16色,400line,消去,表示)
|
||
|
|
;
|
||
|
|
; Function/Procedures:
|
||
|
|
; void graph_start(void) ;
|
||
|
|
;
|
||
|
|
; Parameters:
|
||
|
|
; none
|
||
|
|
;
|
||
|
|
; Returns:
|
||
|
|
; none
|
||
|
|
;
|
||
|
|
; Binding Target:
|
||
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
||
|
|
;
|
||
|
|
; Running Target:
|
||
|
|
; PC-9801V
|
||
|
|
;
|
||
|
|
; Requiring Resources:
|
||
|
|
; CPU: 8086
|
||
|
|
;
|
||
|
|
; Notes:
|
||
|
|
; none
|
||
|
|
;
|
||
|
|
; Compiler/Assembler:
|
||
|
|
; TASM 3.0
|
||
|
|
; OPTASM 1.6
|
||
|
|
;
|
||
|
|
; Author:
|
||
|
|
; 恋塚昭彦
|
||
|
|
;
|
||
|
|
; Revision History:
|
||
|
|
; 92/11/21 Initial
|
||
|
|
; 93/ 5/17 [M0.17] 先に画面を暗くするようにした
|
||
|
|
; 93/ 6/12 [M0.19] 暗くしたら最初に表示ONにするようにした
|
||
|
|
; 93/10/15 [M0.21] 表示頁,アクセスページを 0 にするようにした (from iR)
|
||
|
|
|
||
|
|
func GRAPH_START
|
||
|
|
mov AL,41h ; テキスト／グラフ画面ドットズレ補正
|
||
|
|
out 6Ah,AL ; mode flipflop2
|
||
|
|
|
||
|
|
mov PaletteTone,0 ; 先に暗くする
|
||
|
|
call PALETTE_SHOW
|
||
|
|
|
||
|
|
mov AL,0
|
||
|
|
out 0a4h,AL ; show page
|
||
|
|
out 0a6h,AL ; access page
|
||
|
|
|
||
|
|
call GRAPH_SHOW
|
||
|
|
call GRAPH_400LINE
|
||
|
|
call GRAPH_CLEAR
|
||
|
|
call PALETTE_INIT
|
||
|
|
ret
|
||
|
|
endfunc
|