Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/sierra/objs_lsl/scrn.asm @ 2822:4ffb283f6233 lwtools-port
Forgot to add to makefile
| author | Boisy Pitre <boisy.pitre@nuance.com> |
|---|---|
| date | Wed, 22 May 2013 17:04:29 -0500 |
| parents | cacdf4a5aee1 |
| children |
line wrap: on
line source
******************************************************************** * scrn - Kings Quest III screen module * * $Id$ * * Note the header shows a data size of 0 called from the sierra module * and accesses data set up in that module. * * Header for : scrn * Module size: $7CC #1996 * Module CRC : $887015 (Good) * Hdr parity : $E3 * Exec. off : $0012 #18 * Data size : $0000 #0 * Edition : $00 #0 * Ty/La At/Rv: $11 $81 * Prog mod, 6809 Obj, re-ent, R/O * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 0 2003/03/06 Paul W. Zibaila * Disassembly of original distribution. * * 1 2010/04/10 Robert Gault * Disassembly of Leisure Suit Larry version and transfer of comments * from Paul's disassembly. nam scrn ttl program module * Disassembled 2010/04/10 11:01:53 by Disasm v1.5 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 mod eom,name,tylg,atrv,start,size * equates for common data used in this module u0012 EQU $0012 map block value (word) u001C EQU $001C u001E EQU $001E u0024 EQU $0024 u002C EQU $002C u0030 EQU $0030 u0038 EQU $0038 u003E EQU $003E u0040 EQU $0040 u0041 EQU $0041 u0042 EQU $0042 Sierra process descriptor block u0043 EQU $0043 Sierra 2nd 8K data block u0045 EQU $0045 flag for palettes in sierra u0046 EQU $0046 first byte of hi res screen mem addr u0047 EQU $0047 second byte of hi res screen mem addr u007E EQU $007E u0080 EQU $0080 u0081 EQU $0081 u009E EQU $009E busy address here u009F EQU $009F u00A0 EQU $00A0 u00A1 EQU $00A1 u00A2 EQU $00A2 u00A3 EQU $00A3 u00A4 EQU $00A4 u00A5 EQU $00A5 u00A6 EQU $00A6 u00A7 EQU $00A7 u00A8 EQU $00A8 u00A9 EQU $00A9 u00AA EQU $00AA u00AB EQU $00AB u00AC EQU $00AC u00C0 EQU $00C0 u00C6 EQU $00C6 u00CC EQU $00CC u00DE EQU $00DE u00E0 EQU $00E0 u00F6 EQU $00F6 u00F8 EQU $00F8 u00FC EQU $00FC u00FE EQU $00FE u00FF EQU $00FF X0100 equ $0100 pic_visible X024E equ $024E XFFA9 equ $FFA9 u0000 rmb 0 size equ . name equ * fcs /scrn/ fcb $00 * This module is linked to in sierra * upon entry * a -> type language * b -> attributes / revision level * x -> address of the last byte of the module name + 1 * y -> module entry point absolute address * u -> module header absolute address start equ * lbra L015A lbra L014C lbra L009C lbra L00B3 lbra L00D2 lbra L074C lbra L0209 lbra L00C5 lbra L0264 lbra L02A7 L0030 fcc 'AGI (c) copyright 1988 SIERRA On-Line' fcc 'CoCo3 version by Chris Iden' fcb 0 * map block check and sets * u0012 is set in code in L015A sub * entry: * a -> value to be tested L0071 cmpa <u0012 beq L008B orcc #$50 sta <u0012 store the value passed in by a lda <u0042 get sierra process descriptor map block sta >$FFA9 map it in to $2000-$3FFF ldx <u0043 2nd 8K data block in Sierra lda <u0012 get mmu block num sta ,x stb $02,x std >$FFA9 why not stb $FFAA ?? RG andcc #$AF L008B rts * 16 marker bytes for some thing * coco_view_pal[] vid_render.c L008C fcb $00 fcb $11 fcb $22 fcb $33 fcb $44 fcb $55 fcb $66 fcb $77 fcb $88 fcb $99 fcb $AA fcb $BB fcb $CC fcb $DD fcb $EE fcb $FF * Clears the area allocated to the screen in sierra * entry: * d -> value to be written to screen * x -> may contain a value so we save it * exit: * d -> preserved * x -> restored to initial value * u -> contains starting address of the screen L009C pshs x L009E ldu #$D800 ldx #$7800 end address of high res screen L00A4 std ,--u set it to value passed us in d & dec d leax -$02,x bne L00A4 keep going till all of screen is cleared puls x rts * Loads D to clear screen L00AD ldd #$0000 bsr L009C rts L00B3 bsr L00AD clear the screen ldd #$A8A0 pshs b,a ldd #$00A7 pshs b,a lbsr L015A leas $04,s rts L00C5 lda >$024D tfr a,b bsr L009C ldd #$0000 std <u0040 rts L00D2 ldd $06,s pshs b,a ldd $06,s pshs b,a ldd $06,s pshs b,a lbsr L01D4 leas $06,s clra ldb $06,s pshs b,a lda #$01 ldb $07,s subb #$02 pshs b,a ldd $06,s inca decb pshs b,a lbsr L01D4 leas $06,s clra ldb $06,s pshs b,a lda $06,s suba #$04 ldb #$01 pshs b,a ldd $06,s adda $09,s suba #$02 subb #$02 pshs b,a lbsr L01D4 leas $06,s clra ldb $06,s pshs b,a lda #$01 ldb $07,s subb #$02 pshs b,a ldd $06,s inca subb $08,s addb #$02 pshs b,a lbsr L01D4 leas $06,s clra ldb $06,s pshs b,a lda $06,s suba #$04 ldb #$01 pshs b,a ldd $06,s inca subb #$02 pshs b,a lbsr L01D4 leas $06,s rts L014C ldd $04,s pshs b,a ldd $04,s pshs b,a lbsr L015A leas $04,s rts * first call in module is here L015A pshs y ldd $04,s sta <u0047 incb subb $06,s lda #$A0 mul addd <u0046 tfr d,x addd <u002C tfr d,y leax <$40,x ldd $06,s std <u00A0 ldb #$A0 subb <u00A1 clra std <u00A2 sta <u0012 twiddle with the map block value orcc #$50 lda <u0042 sta >$FFA9 cmpx #$A000 bcs L0192 ldd <u001E leax >-$8000,x bra L0198 L0192 ldd <u001C leax >-$4000,x L0198 ldu <u0043 sta ,u stb $02,u std >$FFA9 andcc #$AF leau >L008C,pcr L01A7 ldb <u00A1 L01A9 lda ,x+ anda #$0F lda a,u sta ,y+ decb bne L01A9 dec <u00A0 beq L01D1 ldd <u00A2 leay d,y abx cmpx #$6000 bcs L01A7 orcc #$50 lda <u0042 sta >$FFA9 ldd <u001E leax >-$4000,x bra L0198 L01D1 puls y rts L01D4 ldd $02,s sta <u0047 incb subb $04,s lda #$A0 mul addd <u0046 Hi res screen mem address ($6000) addd <u002C tfr d,x ldd $04,s std <u00A0 ldb #$A0 subb <u00A1 stb <u00A2 leau >L008C,pcr lda $07,s anda #$0F lda a,u L01F8 ldb <u00A1 L01FA sta ,x+ decb bne L01FA dec <u00A0 beq L0208 ldb <u00A2 abx bra L01F8 L0208 rts L0209 leas -$04,s ldd $0A,s std $02,s ldd $08,s std ,s lda $07,s lsla lsla lsla ldb #$A0 mul std <u00A4 changed value from older version clra ldb $01,s lslb lslb addd <u00A4 new line of code tfr d,u new line of code leau >$6000,u ldb $02,s lslb lslb lslb lda #$A0 mul leax d,u lda $03,s lsla lsla lsla ldb ,s new line of code subb $01,s new line of code incb new line of code lslb lslb * This is all new abx exg u,x abx exg u,x * Now code out of sync with older version. This line was L023F L0246 pshs u,x,b,a L0248 lda ,-x sta ,-u decb bne L0248 puls u,x,b,a leau >$00A0,u leax >$00A0,x cmpx #$D800 bcc L0261 deca bne L0246 L0261 leas $04,s rts L0264 leas -$04,s ldx $06,s ldu ,x L026A stu ,s beq L02A4 ldu $04,u stu $02,s pshs u lbsr L02A7 leas $02,s ldu $02,s lda $01,u cmpa ,u bne L029E ldd $03,u cmpd <$1A,u bne L0293 lda <$25,u ora #$40 sta <$25,u bra L029E L0293 std <$1A,u lda <$25,u anda #$BF sta <$25,u L029E ldu ,s ldu ,u bra L026A L02A4 leas $04,s rts L02A7 lda >$0100 pic_visible lbeq L034B ldu $02,s ldd $08,u lbsr L0071 ldx <$10,u ldd ,x std <u00A2 ldd <$14,u lbsr L0071 ldx <$12,u ldd ,x std <u00A0 ldd <$10,u std <$12,u ldd $08,u std <$14,u lda $04,u ldb <u00A3 cmpa <$1B,u bcs L02E8 sta <u00A5 stb <u00A6 lda <$1B,u ldb <u00A1 bra L02F3 L02E8 ldb <$1B,u stb <u00A5 ldb <u00A1 stb <u00A6 ldb <u00A3 L02F3 stb <u00AA inca suba <u00AA ldb <u00A5 incb subb <u00A6 stb <u00A9 cmpa <u00A9 bcs L0305 lda <u00A9 L0305 nega adda <u00A5 inca sta <u00A6 lda $03,u ldb <u00A2 cmpa <$1A,u bhi L031F sta <u00A4 stb <u00AB lda <$1A,u ldb <u00A0 bra L032A L031F ldb <$1A,u stb <u00A4 ldb <u00A0 stb <u00AB ldb <u00A2 L032A stb <u00AC adda <u00AC sta <u00A8 lda <u00A4 adda <u00AB cmpa <u00A8 bhi L033A lda <u00A8 L033A suba <u00A4 sta <u00A7 ldd <u00A6 pshs b,a ldd <u00A4 pshs b,a lbsr L015A leas $04,s L034B rts * This jumbled mass of bytes disassembles * but looks like a data block * or probably a bit map ??? * L034C - L074B is 1024 bytes of data L034C fcb $00,$00,$00,$00 fcb $00,$00,$00,$00 fcb $7E,$81,$A5,$81 fcb $BD,$99,$81,$7E fcb $7E,$FF,$DB,$FF fcb $C3,$E7,$FF,$7E fcb $6C,$FE,$FE,$FE fcb $7C,$38,$10,$00 fcb $10,$38,$7C,$FE fcb $7C,$38,$10,$00 fcb $38,$7C,$38,$FE fcb $FE,$7C,$38,$7C fcb $10,$10,$38,$7C fcb $FE,$7C,$38,$7C fcb $00,$00,$18,$3C fcb $3C,$18,$00,$00 fcb $FF,$FF,$E7,$C3 fcb $C3,$E7,$FF,$FF fcb $00,$3C,$66,$42 fcb $42,$66,$3C,$00 fcb $FF,$C3,$99,$BD fcb $BD,$99,$C3,$FF fcb $0F,$07,$0F,$7D fcb $CC,$CC,$CC,$78 fcb $3C,$66,$66,$66 fcb $3C,$18,$7E,$18 fcb $3F,$33,$3F,$30 fcb $30,$70,$F0,$E0 fcb $7F,$63,$7F,$63 fcb $63,$67,$E6,$C0 fcb $99,$5A,$3C,$E7 fcb $E7,$3C,$5A,$99 fcb $80,$E0,$F8,$FE fcb $F8,$E0,$80,$00 fcb $02,$0E,$3E,$FE fcb $3E,$0E,$02,$00 fcb $18,$3C,$7E,$18 fcb $18,$7E,$3C,$18 fcb $66,$66,$66,$66 fcb $66,$00,$66,$00 fcb $7F,$DB,$DB,$7B fcb $1B,$1B,$1B,$00 fcb $3E,$63,$38,$6C fcb $6C,$38,$CC,$78 fcb $00,$00,$00,$00 fcb $7E,$7E,$7E,$00 fcb $18,$3C,$7E,$18 fcb $7E,$3C,$18,$FF fcb $18,$3C,$7E,$18 fcb $18,$18,$18,$00 fcb $18,$18,$18,$18 fcb $7E,$3C,$18,$00 fcb $00,$18,$0C,$FE fcb $0C,$18,$00,$00 fcb $00,$30,$60,$FE fcb $60,$30,$00,$00 fcb $00,$00,$C0,$C0 fcb $C0,$FE,$00,$00 fcb $00,$24,$66,$FF fcb $66,$24,$00,$00 fcb $00,$18,$3C,$7E fcb $FF,$FF,$00,$00 fcb $00,$FF,$FF,$7E fcb $3C,$18,$00,$00 fcb $00,$00,$00,$00 fcb $00,$00,$00,$00 fcb $30,$78,$78,$30 fcb $30,$00,$30,$00 fcb $6C,$6C,$6C,$00 fcb $00,$00,$00,$00 fcb $6C,$6C,$FE,$6C fcb $FE,$6C,$6C,$00 fcb $30,$7C,$C0,$78 fcb $0C,$F8,$30,$00 fcb $00,$C6,$CC,$18 fcb $30,$66,$C6,$00 fcb $38,$6C,$38,$76 fcb $DC,$CC,$76,$00 fcb $60,$60,$C0,$00 fcb $00,$00,$00,$00 fcb $18,$30,$60,$60 fcb $60,$30,$18,$00 fcb $60,$30,$18,$18 fcb $18,$30,$60,$00 fcb $00,$66,$3C,$FF fcb $3C,$66,$00,$00 fcb $00,$30,$30,$FC fcb $30,$30,$00,$00 fcb $00,$00,$00,$00 fcb $00,$30,$30,$60 fcb $00,$00,$00,$FC fcb $00,$00,$00,$00 fcb $00,$00,$00,$00 fcb $00,$30,$30,$00 fcb $06,$0C,$18,$30 fcb $60,$C0,$80,$00 fcb $7C,$C6,$CE,$DE fcb $F6,$E6,$7C,$00 fcb $30,$70,$30,$30 fcb $30,$30,$FC,$00 fcb $78,$CC,$0C,$38 fcb $60,$CC,$FC,$00 fcb $78,$CC,$0C,$38 fcb $0C,$CC,$78,$00 fcb $1C,$3C,$6C,$CC fcb $FE,$0C,$1E,$00 fcb $FC,$C0,$F8,$0C fcb $0C,$CC,$78,$00 fcb $38,$60,$C0,$F8 fcb $CC,$CC,$78,$00 fcb $FC,$CC,$0C,$18 fcb $30,$30,$30,$00 fcb $78,$CC,$CC,$78 fcb $CC,$CC,$78,$00 fcb $78,$CC,$CC,$7C fcb $0C,$18,$70,$00 fcb $00,$30,$30,$00 fcb $00,$30,$30,$00 fcb $00,$30,$30,$00 fcb $00,$30,$30,$60 fcb $18,$30,$60,$C0 fcb $60,$30,$18,$00 fcb $00,$00,$FC,$00 fcb $00,$FC,$00,$00 fcb $60,$30,$18,$0C fcb $18,$30,$60,$00 fcb $78,$CC,$0C,$18 fcb $30,$00,$30,$00 fcb $7C,$C6,$DE,$DE fcb $DE,$C0,$78,$00 fcb $30,$78,$CC,$CC fcb $FC,$CC,$CC,$00 fcb $FC,$66,$66,$7C fcb $66,$66,$FC,$00 fcb $3C,$66,$C0,$C0 fcb $C0,$66,$3C,$00 fcb $F8,$6C,$66,$66 fcb $66,$6C,$F8,$00 fcb $FE,$62,$68,$78 fcb $68,$62,$FE,$00 fcb $FE,$62,$68,$78 fcb $68,$60,$F0,$00 fcb $3C,$66,$C0,$C0 fcb $CE,$66,$3E,$00 fcb $CC,$CC,$CC,$FC fcb $CC,$CC,$CC,$00 fcb $78,$30,$30,$30 fcb $30,$30,$78,$00 fcb $1E,$0C,$0C,$0C fcb $CC,$CC,$78,$00 fcb $E6,$66,$6C,$78 fcb $6C,$66,$E6,$00 fcb $F0,$60,$60,$60 fcb $62,$66,$FE,$00 fcb $C6,$EE,$FE,$FE fcb $D6,$C6,$C6,$00 fcb $C6,$E6,$F6,$DE fcb $CE,$C6,$C6,$00 fcb $38,$6C,$C6,$C6 fcb $C6,$6C,$38,$00 fcb $FC,$66,$66,$7C fcb $60,$60,$F0,$00 fcb $78,$CC,$CC,$CC fcb $DC,$78,$1C,$00 fcb $FC,$66,$66,$7C fcb $6C,$66,$E6,$00 fcb $78,$CC,$E0,$70 fcb $1C,$CC,$78,$00 fcb $FC,$B4,$30,$30 fcb $30,$30,$78,$00 fcb $CC,$CC,$CC,$CC fcb $CC,$CC,$FC,$00 fcb $CC,$CC,$CC,$CC fcb $CC,$78,$30,$00 fcb $C6,$C6,$C6,$D6 fcb $FE,$EE,$C6,$00 fcb $C6,$C6,$6C,$38 fcb $38,$6C,$C6,$00 fcb $CC,$CC,$CC,$78 fcb $30,$30,$78,$00 fcb $FE,$C6,$8C,$18 fcb $32,$66,$FE,$00 fcb $78,$60,$60,$60 fcb $60,$60,$78,$00 fcb $C0,$60,$30,$18 fcb $0C,$06,$02,$00 fcb $78,$18,$18,$18 fcb $18,$18,$78,$00 fcb $10,$38,$6C,$C6 fcb $00,$00,$00,$00 fcb $00,$00,$00,$00 fcb $00,$00,$00,$FF fcb $30,$30,$18,$00 fcb $00,$00,$00,$00 fcb $00,$00,$78,$0C fcb $7C,$CC,$76,$00 fcb $E0,$60,$60,$7C fcb $66,$66,$DC,$00 fcb $00,$00,$78,$CC fcb $C0,$CC,$78,$00 fcb $1C,$0C,$0C,$7C fcb $CC,$CC,$76,$00 fcb $00,$00,$78,$CC fcb $FC,$C0,$78,$00 fcb $38,$6C,$60,$F0 fcb $60,$60,$F0,$00 fcb $00,$00,$76,$CC fcb $CC,$7C,$0C,$F8 fcb $E0,$60,$6C,$76 fcb $66,$66,$E6,$00 fcb $30,$00,$70,$30 fcb $30,$30,$78,$00 fcb $0C,$00,$0C,$0C fcb $0C,$CC,$CC,$78 fcb $E0,$60,$66,$6C fcb $78,$6C,$E6,$00 fcb $70,$30,$30,$30 fcb $30,$30,$78,$00 fcb $00,$00,$CC,$FE fcb $FE,$D6,$C6,$00 fcb $00,$00,$F8,$CC fcb $CC,$CC,$CC,$00 fcb $00,$00,$78,$CC fcb $CC,$CC,$78,$00 fcb $00,$00,$DC,$66 fcb $66,$7C,$60,$F0 fcb $00,$00,$76,$CC fcb $CC,$7C,$0C,$1E fcb $00,$00,$DC,$76 fcb $66,$60,$F0,$00 fcb $00,$00,$7C,$C0 fcb $78,$0C,$F8,$00 fcb $10,$30,$7C,$30 fcb $30,$34,$18,$00 fcb $00,$00,$CC,$CC fcb $CC,$CC,$76,$00 fcb $00,$00,$CC,$CC fcb $CC,$78,$30,$00 fcb $00,$00,$C6,$D6 fcb $FE,$FE,$6C,$00 fcb $00,$00,$C6,$6C fcb $38,$6C,$C6,$00 fcb $00,$00,$CC,$CC fcb $CC,$7C,$0C,$F8 fcb $00,$00,$FC,$98 fcb $30,$64,$FC,$00 fcb $1C,$30,$30,$E0 fcb $30,$30,$1C,$00 fcb $18,$18,$18,$00 fcb $18,$18,$18,$00 fcb $E0,$30,$30,$1C fcb $30,$30,$E0,$00 fcb $76,$DC,$00,$00 fcb $00,$00,$00,$00 fcb $00,$10,$38,$6C fcb $C6,$C6,$FE,$00 L074C leas -2,s pshs y ldx $06,s ldu #$024D lda <u0040 lsla lsla lsla ldb #$A0 mul tfr d,y clra ldb <u0041 lslb lslb addd #$6000 leay d,y L0769 tst ,x lbeq L07B7 ldb ,x+ stx $06,s leax >L034C,pcr lslb abx abx abx abx lda #$08 sta $02,s L0780 ldb ,x+ lda #$04 sta $03,s L0786 sex lda a,u anda #$F0 sta ,y lslb sex lda a,u anda #$0F ora ,y ora <u0045 flag for palettes set in sierra sta ,y+ lslb dec $03,s bne L0786 lda <u0045 flag for palettes set in sierra beq L07A5 coma sta <u0045 flag for palettes set in sierra L07A5 leay >$009C,y dec $02,s bne L0780 ldx $06,s inc <u0041 leay >-$04FC,y bra L0769 L07B7 puls y leas $02,s rts L07BC fcb 0,0,0,0 fcb 0,0,0,0 L07C4 fcc /scrn/ L07C8 fcb 0 emod eom equ * end