Mercurial > hg > Members > kono > nitros9-code
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 |