Mercurial > hg > Members > kono > nitros9-code
changeset 1356:2d67237cca33
Added new style comments
| author | boisy |
|---|---|
| date | Wed, 17 Sep 2003 21:44:13 +0000 |
| parents | 5b7cae9ec0be |
| children | 0de024ea86cd |
| files | 3rdparty/packages/koronis/koronis.asm 3rdparty/packages/sierra/objs/mnln.asm 3rdparty/packages/sierra/objs/scrn.asm 3rdparty/packages/sierra/objs/shdw.asm 3rdparty/packages/sierra/objs/sierra.asm 3rdparty/packages/sierra/objs/tocgen.asm |
| diffstat | 6 files changed, 907 insertions(+), 904 deletions(-) [+] |
line wrap: on
line diff
--- a/3rdparty/packages/koronis/koronis.asm Wed Sep 17 21:33:17 2003 +0000 +++ b/3rdparty/packages/koronis/koronis.asm Wed Sep 17 21:44:13 2003 +0000 @@ -15,11 +15,12 @@ * Ty/La At/Rv: $11 $81 * Prog mod, 6809 Obj, re-ent, R/O * -* Ed. Comments Who YY/MM/DD +* Edt/Rev YYYY/MM/DD Modified by +* Comment * ------------------------------------------------------------------ -* ??? Disassembled BGP 03/01/12 -* ??? Patched so that standard output is used and BGP 03/01/12 -* that /TERM is no longer opened. +* 2003/01/12 Boisy G. Pitre +* Disassembled from original binary; patched so that standard output +* is used and /TERM is no longer assumed. nam Koronis ttl Koronis Rift Program
--- a/3rdparty/packages/sierra/objs/mnln.asm Wed Sep 17 21:33:17 2003 +0000 +++ b/3rdparty/packages/sierra/objs/mnln.asm Wed Sep 17 21:44:13 2003 +0000 @@ -13,10 +13,11 @@ * Ty/La At/Rv: $11 $81 * Prog mod, 6809 Obj, re-ent, R/O * -* Ed. Comments Who YY/MM/DD +* Edt/Rev YYYY/MM/DD Modified by +* Comment * ------------------------------------------------------------------ -* 0 Disassembly of original distribution PWZ 03/03/06 -* assembles to original mnln crc +* 0 2003/03/06 Paul W. Zibaila +* Disassembly of original distribution; assembles to original mnln. * >$0154 flag for using extended lookups * >$0541 joystick button status
--- a/3rdparty/packages/sierra/objs/scrn.asm Wed Sep 17 21:33:17 2003 +0000 +++ b/3rdparty/packages/sierra/objs/scrn.asm Wed Sep 17 21:44:13 2003 +0000 @@ -1,860 +1,863 @@ -******************************************************************** -* SCRN - Kings Quest III screen module -* -* $Id$ -* -* Header for : scrn -* Module size: $7C5 #1989 -* Module CRC : $F3E370 (Good) -* Hdr parity : $EA -* 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 -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 0 Disassembly of original distribution PWZ 03/03/06 -* Note the header shows a data size of 0 -* called from the sierra module and accesses -* data set up in that module - - nam scrn - ttl program module - -* Disassembled 00/00/00 00:15:39 by Disasm v1.6 (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 -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 - - -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 twiddles with map blocks ?? - lbra L014C sets up another call to L015A - lbra L009C whats in D here ? call screen clear - lbra L00B3 sets D to 0000 and call clear screen - lbra L00D2 - lbra L0745 - lbra L0209 - lbra L00C5 - lbra L025D - lbra L02A0 - -* probably was an info directive for an include file -L0030 fcc 'AGI (c) copyright 1988 SIERRA On-Line' - fcc 'CoCo3 version by Chris Iden' - fcb $00 -Infosz equ *-L0030 - - - -* map block check and sets -* u0012 is set in code in L015A sub -* entry: -* a -> value to be tested - -L0071 cmpa <u0012 check MMU block - beq L008B if block 0 OK to leave - orcc #IntMasks Turn off interrupts - sta <u0012 store the value passed in by a - lda <u0042 get sierra process descriptor map block - sta >XFFA9 map it in to $2000-$3FFF - ldx <u0043 2nd 8K data block in Sierra - lda <u0012 get mmu block num - sta ,x store that - stb $02,x - std >XFFA9 Map it into task 1 block 2 - andcc #^IntMasks turn on interrupts $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 save the x values as this routine uses it -L009E ldu #$D800 end address of high res screen - ldx #$7800 Scrn is from $6000 to $D800 -L00A4 std ,--u set it to value passed us in d & dec d - leax -$02,x decrement x - bne L00A4 keep going till all of screen is cleared - puls x restore x` - rts move on - -* Loads D to clear screen -L00AD ldd #$0000 zeros screen bytes - bsr L009C go clear it - rts - -L00B3 bsr L00AD clear the screen - ldd #$A8A0 - pshs d - ldd #$00A7 - pshs d - lbsr L015A - leas $04,s - rts - -L00C5 lda >X024E - tfr a,b - bsr L009C - ldd #$0000 clears value at u0040 - std <u0040 - rts - -L00D2 ldd $06,s - pshs d - ldd $06,s - pshs d - ldd $06,s - pshs d - lbsr L01D4 - leas $06,s - clra - ldb $06,s - pshs d - lda #$01 - ldb $07,s - subb #$02 - pshs d - ldd $06,s - inca - decb - pshs d - lbsr L01D4 - leas $06,s - clra - ldb $06,s - pshs d - lda $06,s - suba #$04 - ldb #$01 - pshs d - ldd $06,s - adda $09,s - suba #$02 - subb #$02 - pshs d - lbsr L01D4 - leas $06,s - clra - ldb $06,s - pshs d - lda #$01 - ldb $07,s - subb #$02 - pshs d - ldd $06,s - inca - subb $08,s - addb #$02 - pshs d - lbsr L01D4 - leas $06,s - clra - ldb $06,s - pshs d - lda $06,s - suba #$04 - ldb #$01 - pshs d - ldd $06,s - inca - subb #$02 - pshs d - lbsr L01D4 - leas $06,s - rts - -L014C ldd $04,s - pshs d - ldd $04,s - pshs d - lbsr L015A - leas $04,s - rts - -* first call in module is here -* who put what on the stack for us ? -L015A pshs y save our y module entry abs addr - - 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 <u009E - - ldb #$A0 - subb <u009F - clra - std <u00A0 - sta <u0012 twiddle with the map block value - - orcc #IntMasks turn off interrupts $50 - lda <u0042 - sta >XFFA9 second block in task 1 - 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 >XFFA9 second block in task 1 - andcc #^IntMasks turn on ints $AF - - leau >L008C,pcr point u to the sequential data bytes -L01A7 ldb <u009F -L01A9 lda ,x+ - anda #$0F - lda a,u - sta ,y+ - decb - bne L01A9 - dec <u009E - beq L01D1 pull our y and exit routine - ldd <u00A0 - leay d,y - abx - cmpx #$6000 - bcs L01A7 - - orcc #IntMasks turn off interrupts $50 - lda <u0042 - sta >XFFA9 second block in task 1 - 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 <u009E - ldb #$A0 - subb <u009F - stb <u00A0 - leau >L008C,pcr - lda $07,s - anda #$0F - lda a,u - -L01F8 ldb <u009F -L01FA sta ,x+ - decb - bne L01FA - - dec <u009E - beq L0208 - ldb <u00A0 - 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 <u00A2 - clra - ldb $01,s - lslb - lslb - ldu <u00A2 - leau >$6000,u - ldb $02,s - lslb - lslb - lslb - lda #$A0 - mul - leax d,u - lda $03,s - lsla - lsla - lsla - ldb $01,s - subb ,s - lslb - lslb - addb #$03 -L023F pshs b,a -L0241 lda b,u - sta b,x - decb - bpl L0241 - puls b,a - leau >$00A0,u - leax >$00A0,x - cmpx #$D800 - bcc L025A - deca - bne L023F -L025A leas $04,s - rts - - - -L025D leas -$04,s - ldx $06,s - ldu ,x -L0263 stu ,s - beq L029D - ldu $04,u - stu $02,s - pshs u - lbsr L02A0 - leas $02,s - ldu $02,s - lda $01,u - cmpa ,u - bne L0297 - ldd $03,u - cmpd <$1A,u - bne L028C - lda <$25,u - ora #$40 - sta <$25,u - bra L0297 -L028C std <$1A,u - lda <$25,u - anda #$BF - sta <$25,u -L0297 ldu ,s - ldu ,u - bra L0263 -L029D leas $04,s - rts - - -L02A0 lda >X0100 pic_visible - lbeq L0344 - ldu $02,s - ldd $08,u - lbsr L0071 - ldx <$10,u - ldd ,x - std <u00A0 - ldd <$14,u - lbsr L0071 - ldx <$12,u - ldd ,x - std <u009E - ldd <$10,u - std <$12,u - ldd $08,u - std <$14,u - lda $04,u - ldb <u00A1 - cmpa <$1B,u - bcs L02E1 - sta <u00A3 - stb <u00A4 - lda <$1B,u - ldb <u009F - bra L02EC -L02E1 ldb <$1B,u - stb <u00A3 - ldb <u009F - stb <u00A4 - ldb <u00A1 -L02EC stb <u00A8 - inca - suba <u00A8 - ldb <u00A3 - incb - subb <u00A4 - stb <u00A7 - cmpa <u00A7 - bcs L02FE - lda <u00A7 -L02FE nega - adda <u00A3 - inca - sta <u00A4 - lda $03,u - ldb <u00A0 - cmpa <$1A,u - bhi L0318 - sta <u00A2 - stb <u00A9 - lda <$1A,u - ldb <u009E - bra L0323 -L0318 ldb <$1A,u - stb <u00A2 - ldb <u009E - stb <u00A9 - ldb <u00A0 -L0323 stb <u00AA - adda <u00AA - sta <u00A6 - lda <u00A2 - adda <u00A9 - cmpa <u00A6 - bhi L0333 - lda <u00A6 -L0333 suba <u00A2 - sta <u00A5 - ldd <u00A4 - pshs b,a - ldd <u00A2 - pshs b,a - lbsr L015A - leas $04,s -L0344 rts - -* This jumbled mass of bytes disassembles -* but looks like a data block -* or probably a bit map ??? -* L0345 - L0745 is 1024 bytes of data - -L0345 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 - -L0745 leas -$02,s - pshs y - ldx $06,s - ldu #X024E - lda <u0040 - lsla - lsla - lsla - ldb #$A0 - mul - tfr d,y - clra - ldb <u0041 - lslb - lslb - addd #$6000 - leay d,y -L0762 tst ,x - lbeq L07B0 - ldb ,x+ - stx $06,s - leax >L0345,pcr - lslb - abx - abx - abx - abx - lda #$08 - sta $02,s -L0779 ldb ,x+ - lda #$04 - sta $03,s -L077F 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 L077F - lda <u0045 flag for palettes set in sierra - beq L079E - coma - sta <u0045 flag for palettes set in sierra -L079E leay >$009C,y - dec $02,s - bne L0779 - ldx $06,s - inc <u0041 - leay >-$04FC,y - bra L0762 -L07B0 puls y - leas $02,s - rts - -L07B5 fcb $00,$00,$00,$00 - fcb $00,$00,$00,$00 -L07BD fcc /scrn/ -L07C1 fcb $00 - - emod -eom equ * - +******************************************************************** +* 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: $7C5 #1989 +* Module CRC : $F3E370 (Good) +* Hdr parity : $EA +* 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. + + nam scrn + ttl Kings Quest III screen module + +* Disassembled 00/00/00 00:15:39 by Disasm v1.6 (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 +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 + + +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 twiddles with map blocks ?? + lbra L014C sets up another call to L015A + lbra L009C whats in D here ? call screen clear + lbra L00B3 sets D to 0000 and call clear screen + lbra L00D2 + lbra L0745 + lbra L0209 + lbra L00C5 + lbra L025D + lbra L02A0 + +* probably was an info directive for an include file +L0030 fcc 'AGI (c) copyright 1988 SIERRA On-Line' + fcc 'CoCo3 version by Chris Iden' + fcb $00 +Infosz equ *-L0030 + + + +* map block check and sets +* u0012 is set in code in L015A sub +* entry: +* a -> value to be tested + +L0071 cmpa <u0012 check MMU block + beq L008B if block 0 OK to leave + orcc #IntMasks Turn off interrupts + sta <u0012 store the value passed in by a + lda <u0042 get sierra process descriptor map block + sta >XFFA9 map it in to $2000-$3FFF + ldx <u0043 2nd 8K data block in Sierra + lda <u0012 get mmu block num + sta ,x store that + stb $02,x + std >XFFA9 Map it into task 1 block 2 + andcc #^IntMasks turn on interrupts $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 save the x values as this routine uses it +L009E ldu #$D800 end address of high res screen + ldx #$7800 Scrn is from $6000 to $D800 +L00A4 std ,--u set it to value passed us in d & dec d + leax -$02,x decrement x + bne L00A4 keep going till all of screen is cleared + puls x restore x` + rts move on + +* Loads D to clear screen +L00AD ldd #$0000 zeros screen bytes + bsr L009C go clear it + rts + +L00B3 bsr L00AD clear the screen + ldd #$A8A0 + pshs d + ldd #$00A7 + pshs d + lbsr L015A + leas $04,s + rts + +L00C5 lda >X024E + tfr a,b + bsr L009C + ldd #$0000 clears value at u0040 + std <u0040 + rts + +L00D2 ldd $06,s + pshs d + ldd $06,s + pshs d + ldd $06,s + pshs d + lbsr L01D4 + leas $06,s + clra + ldb $06,s + pshs d + lda #$01 + ldb $07,s + subb #$02 + pshs d + ldd $06,s + inca + decb + pshs d + lbsr L01D4 + leas $06,s + clra + ldb $06,s + pshs d + lda $06,s + suba #$04 + ldb #$01 + pshs d + ldd $06,s + adda $09,s + suba #$02 + subb #$02 + pshs d + lbsr L01D4 + leas $06,s + clra + ldb $06,s + pshs d + lda #$01 + ldb $07,s + subb #$02 + pshs d + ldd $06,s + inca + subb $08,s + addb #$02 + pshs d + lbsr L01D4 + leas $06,s + clra + ldb $06,s + pshs d + lda $06,s + suba #$04 + ldb #$01 + pshs d + ldd $06,s + inca + subb #$02 + pshs d + lbsr L01D4 + leas $06,s + rts + +L014C ldd $04,s + pshs d + ldd $04,s + pshs d + lbsr L015A + leas $04,s + rts + +* first call in module is here +* who put what on the stack for us ? +L015A pshs y save our y module entry abs addr + + 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 <u009E + + ldb #$A0 + subb <u009F + clra + std <u00A0 + sta <u0012 twiddle with the map block value + + orcc #IntMasks turn off interrupts $50 + lda <u0042 + sta >XFFA9 second block in task 1 + 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 >XFFA9 second block in task 1 + andcc #^IntMasks turn on ints $AF + + leau >L008C,pcr point u to the sequential data bytes +L01A7 ldb <u009F +L01A9 lda ,x+ + anda #$0F + lda a,u + sta ,y+ + decb + bne L01A9 + dec <u009E + beq L01D1 pull our y and exit routine + ldd <u00A0 + leay d,y + abx + cmpx #$6000 + bcs L01A7 + + orcc #IntMasks turn off interrupts $50 + lda <u0042 + sta >XFFA9 second block in task 1 + 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 <u009E + ldb #$A0 + subb <u009F + stb <u00A0 + leau >L008C,pcr + lda $07,s + anda #$0F + lda a,u + +L01F8 ldb <u009F +L01FA sta ,x+ + decb + bne L01FA + + dec <u009E + beq L0208 + ldb <u00A0 + 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 <u00A2 + clra + ldb $01,s + lslb + lslb + ldu <u00A2 + leau >$6000,u + ldb $02,s + lslb + lslb + lslb + lda #$A0 + mul + leax d,u + lda $03,s + lsla + lsla + lsla + ldb $01,s + subb ,s + lslb + lslb + addb #$03 +L023F pshs b,a +L0241 lda b,u + sta b,x + decb + bpl L0241 + puls b,a + leau >$00A0,u + leax >$00A0,x + cmpx #$D800 + bcc L025A + deca + bne L023F +L025A leas $04,s + rts + + + +L025D leas -$04,s + ldx $06,s + ldu ,x +L0263 stu ,s + beq L029D + ldu $04,u + stu $02,s + pshs u + lbsr L02A0 + leas $02,s + ldu $02,s + lda $01,u + cmpa ,u + bne L0297 + ldd $03,u + cmpd <$1A,u + bne L028C + lda <$25,u + ora #$40 + sta <$25,u + bra L0297 +L028C std <$1A,u + lda <$25,u + anda #$BF + sta <$25,u +L0297 ldu ,s + ldu ,u + bra L0263 +L029D leas $04,s + rts + + +L02A0 lda >X0100 pic_visible + lbeq L0344 + ldu $02,s + ldd $08,u + lbsr L0071 + ldx <$10,u + ldd ,x + std <u00A0 + ldd <$14,u + lbsr L0071 + ldx <$12,u + ldd ,x + std <u009E + ldd <$10,u + std <$12,u + ldd $08,u + std <$14,u + lda $04,u + ldb <u00A1 + cmpa <$1B,u + bcs L02E1 + sta <u00A3 + stb <u00A4 + lda <$1B,u + ldb <u009F + bra L02EC +L02E1 ldb <$1B,u + stb <u00A3 + ldb <u009F + stb <u00A4 + ldb <u00A1 +L02EC stb <u00A8 + inca + suba <u00A8 + ldb <u00A3 + incb + subb <u00A4 + stb <u00A7 + cmpa <u00A7 + bcs L02FE + lda <u00A7 +L02FE nega + adda <u00A3 + inca + sta <u00A4 + lda $03,u + ldb <u00A0 + cmpa <$1A,u + bhi L0318 + sta <u00A2 + stb <u00A9 + lda <$1A,u + ldb <u009E + bra L0323 +L0318 ldb <$1A,u + stb <u00A2 + ldb <u009E + stb <u00A9 + ldb <u00A0 +L0323 stb <u00AA + adda <u00AA + sta <u00A6 + lda <u00A2 + adda <u00A9 + cmpa <u00A6 + bhi L0333 + lda <u00A6 +L0333 suba <u00A2 + sta <u00A5 + ldd <u00A4 + pshs b,a + ldd <u00A2 + pshs b,a + lbsr L015A + leas $04,s +L0344 rts + +* This jumbled mass of bytes disassembles +* but looks like a data block +* or probably a bit map ??? +* L0345 - L0745 is 1024 bytes of data + +L0345 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 + +L0745 leas -$02,s + pshs y + ldx $06,s + ldu #X024E + lda <u0040 + lsla + lsla + lsla + ldb #$A0 + mul + tfr d,y + clra + ldb <u0041 + lslb + lslb + addd #$6000 + leay d,y +L0762 tst ,x + lbeq L07B0 + ldb ,x+ + stx $06,s + leax >L0345,pcr + lslb + abx + abx + abx + abx + lda #$08 + sta $02,s +L0779 ldb ,x+ + lda #$04 + sta $03,s +L077F 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 L077F + lda <u0045 flag for palettes set in sierra + beq L079E + coma + sta <u0045 flag for palettes set in sierra +L079E leay >$009C,y + dec $02,s + bne L0779 + ldx $06,s + inc <u0041 + leay >-$04FC,y + bra L0762 +L07B0 puls y + leas $02,s + rts + +L07B5 fcb $00,$00,$00,$00 + fcb $00,$00,$00,$00 +L07BD fcc /scrn/ +L07C1 fcb $00 + + emod +eom equ * + end +
--- a/3rdparty/packages/sierra/objs/shdw.asm Wed Sep 17 21:33:17 2003 +0000 +++ b/3rdparty/packages/sierra/objs/shdw.asm Wed Sep 17 21:44:13 2003 +0000 @@ -2,22 +2,14 @@ * SHDW - Kings Quest III screen rendering module?? * $Id$ * -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 0 Disassembly of original distribution PWZ 03/03/14 -* using a combination of disasm v1.6 and -* the os9tools disassembler Os9disasm +* Note the header shows a data size of 0 called from the sierra +* module and accesses data set up in that module. * -* Note the header shows a data size of 0 -* called from the sierra module and accesses -* data set up in that module -* -* Much credit and thanks is give to Nick Sonneveld and -* the other NAGI folks. Following his sources made it -* so much easier to document what was happening in here. - -* This source will assemble byte for byte -* to the original kq3 shdw module. +* Much credit and thanks is give to Nick Sonneveld and the other NAGI +* folks. Following his sources made it so much easier to document what +* was happening in here. +* +* This source will assemble byte for byte to the original kq3 shdw module. * * Header for : shdw * Module size: $A56 #2646 @@ -28,23 +20,24 @@ * Edition : $00 #0 * Ty/La At/Rv: $11 $81 * Prog mod, 6809 Obj, re-ent, R/O - - - -* Disassembly by Os9disasm of shdw - +* +* Edt/Rev YYYY/MM/DD Modified by +* Comment +* ------------------------------------------------------------------ +* 0 2003/03/14 Paul W. Zibaila +* Disassembly of original distribution using a combination of disasm +* v1.6 and the os9tools disassembler Os9disasm. nam shdw ttl program module - ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev -rev set $01 +rev set $00 mod eom,name,tylg,atrv,start,size size equ . @@ -2109,8 +2102,6 @@ fcb $00 emod - eom equ * - end - \ No newline at end of file +
--- a/3rdparty/packages/sierra/objs/sierra.asm Wed Sep 17 21:33:17 2003 +0000 +++ b/3rdparty/packages/sierra/objs/sierra.asm Wed Sep 17 21:44:13 2003 +0000 @@ -3,11 +3,15 @@ * * $Id$ * -* Ed. Comments Who YY/MM/DD +* Edt/Rev YYYY/MM/DD Modified by +* Comment * ------------------------------------------------------------------ -* 0 Disassembly of original distribution and PWZ 03/01/31 -* merged in comments from disasm dated 1992 -* 1 Monitor type bug now fixed BGP 03/03/10 +* 0 2003/01/31 Paul W. Zibaila +* Disassembly of original distribution and merged in comments from +* disasm dated 1992. +* +* 1 2003/03/10 Boisy G. Pitre +* Monitor type bug now fixed. * I/O path definitions @@ -24,7 +28,7 @@ tylg set Prgrm+Objct atrv set ReEnt+rev -rev set $01 +rev set $00 edition set 1 mod eom,name,tylg,atrv,start,size
--- a/3rdparty/packages/sierra/objs/tocgen.asm Wed Sep 17 21:33:17 2003 +0000 +++ b/3rdparty/packages/sierra/objs/tocgen.asm Wed Sep 17 21:44:13 2003 +0000 @@ -16,12 +16,14 @@ * Ty/La At/Rv: $11 $81 * Prog mod, 6809 Obj, re-ent, R/O * -* Ed. Comments Who YY/MM/DD +* Edt/Rev YYYY/MM/DD Modified by +* Comment * ------------------------------------------------------------------ -* 1 Disassembly of original distribution PWZ 03/01/31 -* added comments from the C-modules from -* dev system disk. This code recompiles to -* duplicate of the original module. +* 1 2003/01/31 Paul W. Zibaila +* Disassembly of original distribution; added comments from the +* C-modules from dev system disk; currently assembles to the +* duplicate of the original module. +* ******************************************************************** *** *** @@ -76,11 +78,11 @@ -* OS9 Header info +* OS-9 Header info tylg set Prgrm+Objct atrv set ReEnt+rev -rev set $01 +rev set $00 mod eom,name,tylg,atrv,start,size @@ -3234,6 +3236,7 @@ L1660 fcb $04,$04,$04,$20,$20,$20,$20,$01 ... . L1668 fcb $00,$00,$00,$01,$00,$0D,$74,$6F ......to L1670 fcb $63,$67,$65,$6E,$00 cgen. + emod eom equ * end