mirror of
				https://github.com/deater/dos33fsprogs.git
				synced 2025-11-04 04:16:07 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			106 lines
		
	
	
		
			2.3 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
			
		
		
	
	
			106 lines
		
	
	
		
			2.3 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
;; HARDWARE LOCATIONS
 | 
						|
 | 
						|
KEYPRESS	=	$C000
 | 
						|
KEYRESET	=	$C010
 | 
						|
 | 
						|
;; SOFT SWITCHES
 | 
						|
CLR80COL	=	$C000	; PAGE0/PAGE1 normal
 | 
						|
SET80COL	=	$C001	; PAGE0/PAGE1 switches PAGE0 in Aux instead
 | 
						|
EIGHTYCOLOFF	=	$C00C
 | 
						|
EIGHTYCOLON	=	$C00D
 | 
						|
TBCOLOR		=	$C022	; IIgs text foreground / background colors
 | 
						|
NEWVIDEO	=	$C029	; IIgs graphics modes
 | 
						|
SPEAKER		=	$C030
 | 
						|
CLOCKCTL	=	$C034	; bits 0-3 are IIgs border color
 | 
						|
SET_GR		=	$C050
 | 
						|
SET_TEXT	=	$C051
 | 
						|
FULLGR		=	$C052
 | 
						|
TEXTGR		=	$C053
 | 
						|
PAGE1		=	$C054
 | 
						|
PAGE2		=	$C055
 | 
						|
LORES		=	$C056	; Enable LORES graphics
 | 
						|
HIRES		=	$C057	; Enable HIRES graphics
 | 
						|
AN3		=	$C05E	; Annunciator 3
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
PADDLE_BUTTON0	=	$C061
 | 
						|
PADDLE_BUTTON1	=	$C062
 | 
						|
PADDL0		=	$C064
 | 
						|
PTRIG		=	$C070
 | 
						|
 | 
						|
;; BASIC ROUTINES
 | 
						|
 | 
						|
NORMAL	=	$F273
 | 
						|
 | 
						|
;; MONITOR ROUTINES
 | 
						|
 | 
						|
PLOT	= $F800			;; PLOT AT Y,A (A colors output, Y preserved)
 | 
						|
PLOT1	= $F80E			;; PLOT at (GBASL),Y (need MASK to be $0f or $f0)
 | 
						|
SCRN2	= $F879			;; set A to top or bottom nibble based on C
 | 
						|
HLINE	= $F819			;; HLINE Y,$2C at A
 | 
						|
VLINE	= $F828			;; VLINE A,$2D at Y
 | 
						|
CLRSCR	= $F832			;; Clear low-res screen
 | 
						|
CLRTOP	= $F836			;; clear only top of low-res screen
 | 
						|
GBASCALC= $F847			;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
 | 
						|
NEXTCOL	= $F85F			;; COLOR=COLOR+3
 | 
						|
SETCOL	= $F864			;; COLOR=A
 | 
						|
ROM_TEXT2COPY = $F962		;; iigs
 | 
						|
SETTXT	= $FB36
 | 
						|
SETGR	= $FB40			;; A is $D0 after
 | 
						|
TABV	= $FB5B			;; VTAB to A
 | 
						|
ROM_MACHINEID = $FBB3		;; iigs
 | 
						|
BELL	= $FBDD			;; ring the bell
 | 
						|
BASCALC	= $FBC1			;;
 | 
						|
VTAB	= $FC22			;; VTAB to CV
 | 
						|
HOME	= $FC58			;; Clear the text screen
 | 
						|
WAIT	= $FCA8			;; delay 1/2(26+27A+5A^2) us
 | 
						|
CROUT1	= $FD8B
 | 
						|
SETINV	= $FE80			;; INVERSE
 | 
						|
SETNORM	= $FE84			;; NORMAL
 | 
						|
COUT	= $FDED			;; output A to screen
 | 
						|
COUT1	= $FDF0			;; output A to screen
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
 | 
						|
COLOR_BLACK		=	0
 | 
						|
COLOR_RED		=	1
 | 
						|
COLOR_DARKBLUE		=	2
 | 
						|
COLOR_PURPLE		=	3
 | 
						|
COLOR_DARKGREEN		=	4
 | 
						|
COLOR_GREY		=	5
 | 
						|
COLOR_MEDIUMBLUE	=	6
 | 
						|
COLOR_LIGHTBLUE		=	7
 | 
						|
COLOR_BROWN		=	8
 | 
						|
COLOR_ORANGE		=	9
 | 
						|
COLOR_GREY2		=	10
 | 
						|
COLOR_PINK		=	11
 | 
						|
COLOR_LIGHTGREEN	=	12
 | 
						|
COLOR_YELLOW		=	13
 | 
						|
COLOR_AQUA		=	14
 | 
						|
COLOR_WHITE		=	15
 | 
						|
 | 
						|
COLOR_BOTH_BLACK	=	$00
 | 
						|
COLOR_BOTH_RED		=	$11
 | 
						|
COLOR_BOTH_DARKBLUE	=	$22
 | 
						|
COLOR_BOTH_DARKGREEN	=	$44
 | 
						|
COLOR_BOTH_GREY		=	$55
 | 
						|
COLOR_BOTH_MEDIUMBLUE	=	$66
 | 
						|
COLOR_BOTH_LIGHTBLUE	=	$77
 | 
						|
COLOR_BOTH_BROWN	=	$88
 | 
						|
COLOR_BOTH_ORANGE	=	$99
 | 
						|
COLOR_BOTH_PINK		=	$BB
 | 
						|
COLOR_BOTH_LIGHTGREEN	=	$CC
 | 
						|
COLOR_BOTH_YELLOW	=	$DD
 | 
						|
COLOR_BOTH_AQUA		=	$EE
 | 
						|
COLOR_BOTH_WHITE	=	$FF
 | 
						|
 |