comparison 3rdparty/packages/sierra/objs_lsl/sierra.asm @ 1080:3d0b20100199

Monitor type bug fixed, edition now 1
author boisy
date Tue, 01 Apr 2003 05:14:51 +0000
parents 9b0571f2c817
children 4e78dd135898
comparison
equal deleted inserted replaced
1079:9b0571f2c817 1080:3d0b20100199
5 * 5 *
6 * Ed. Comments Who YY/MM/DD 6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------ 7 * ------------------------------------------------------------------
8 * 0 Disassembly of original distribution and PWZ 03/01/31 8 * 0 Disassembly of original distribution and PWZ 03/01/31
9 * merged in comments from disasm dated 1992 9 * merged in comments from disasm dated 1992
10 * 1 Monitor type bug now fixed BGP 03/03/10
10 11
11 *Monitor defs 12 *Monitor defs
12 COMP equ 0 13 COMP equ 0
13 RGB equ 1 14 RGB equ 1
14 MONO equ 2 15 MONO equ 2
30 endc 31 endc
31 32
32 tylg set Prgrm+Objct 33 tylg set Prgrm+Objct
33 atrv set ReEnt+rev 34 atrv set ReEnt+rev
34 rev set $01 35 rev set $01
36 edition set 1
35 37
36 mod eom,name,tylg,atrv,start,size 38 mod eom,name,tylg,atrv,start,size
37 39
38 org 0 40 org 0
39 u0000 rmb 2 holds size of data area 41 u0000 rmb 2 holds size of data area
106 rmb 116 108 rmb 116
107 u0xxx rmb 6281 109 u0xxx rmb 6281
108 size equ . 110 size equ .
109 111
110 name fcs /sierra/ 112 name fcs /sierra/
111 fcb $00 113 fcb edition
112 114
113 start equ * 115 start equ *
114 L0014 lbra L007D branch to entry process params 116 L0014 lbra L007D branch to entry process params
115 L0017 lbra L00DB branch to clean up routines 117 L0017 lbra L00DB branch to clean up routines
116 118
308 * 310 *
309 lda #StdOut $01 path number 311 lda #StdOut $01 path number
310 ldb #SS.Montr monitor type code (not listed for getstat $92 312 ldb #SS.Montr monitor type code (not listed for getstat $92
311 os9 I$GetStt make the call 313 os9 I$GetStt make the call
312 tfr x,d save in d appears he expects montype returned 314 tfr x,d save in d appears he expects montype returned
313 sta >L0119,pcr trim it to a byte and save it 315 stb >L0119,pcr trim it to a byte and save it
314 anda #$01 mask out mono type only RGB or COMP 316 andb #$01 mask out mono type only RGB or COMP
315 sta >$0553 save that value off 317 stb >$0553 save that value off
316 318
317 * set current montype 319 * set current montype
318 * SetStat Function Code $92 320 * SetStat Function Code $92
319 * Allocates and maps high res screen 321 * Allocates and maps high res screen
320 * into application address space 322 * into application address space