Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/utils/sleuth3/cssgetcd3.asm @ 3210:6353bb024571
Created makefile and defsfile for NoCan RAMMER module driver and descriptor
Updated rammer.asm in the NoCan driver folder to build the NoCan version of the Driver
Updated r0.asm file to create the 6MB version of the descriptor.
The makefile creates a disk image with two sets of the required drivers for
the 6309 and 6809's in their respective module folders.
/NITROS9/6309_L2/MODULES/RBF
for the 6309 files
and
/NITROS9/6809_L2/MODULES/RBF
for the 6809 files.
This will make it easier for doing a dsave from this disk image into a
normal distro disk image so people have these drivers ready for when
new memory upgrades allow compatible usage of the NoCan registers.
| author | David Ladd <drencor-xeen@users.sourceforge.net> |
|---|---|
| date | Wed, 20 Dec 2017 15:15:49 -0600 |
| parents | afd0f7d9b514 |
| children |
line wrap: on
line source
*************************************** ** getin pshs y get next instr ldx #$ffff stx maddr,u lbsr getty get type clra clear instr cmpb #$4b chk ign lbeq getjk cmpb #$52 chk rmb lbeq getjk ldx maddr,u chk for m/z tst disif,u chk source bne getdk cmpx #$ffff from memory beq getmz lda $05,x get desired data ldb ,x chk type cmpb #$5a for z lbeq getjk getmz ldd saddr,u compute addr addd oaddr,u offset lbra getid getdk cmpx #$ffff from disk lbeq getjk lda $05,x get desired locn/data ldb ,x chk type cmpb #$5a lbeq getjk skip if z ldd saddr,u data addr subd $01,x start addr addd $06,x add extent byte address tfr a,b lda $05,x adca #$00 andb #$fe truncate to 512 bytes cmpd inlrec,u chk curr locn beq getsl getss std inlrec,u set curr locn pshs y,u exg a,b tfr d,x clrb byte addr=0 tfr d,y tfr x,d clra tfr d,x lda inblok+iobfd+1,u file desc tfr y,u os9 I$Seek seek puls u,y reset stack bcc getts geter lda #$02 return error leax errirz,pcr ldy #errirl os9 I$WritLn lbsr ende3 close files lbsr stopin stop input clr escswt,u lbra askin abort getts ldx inblok+iobba,u read the block ldy #buflen lda inblok+iobfd+1,u os9 I$Read bcs geter error cmpy #$0000 bcs geter eof ldx maddr,u restore map ptr getsl ldd saddr,u data addr subd $01,x start addr addd $06,x disk byte address anda #$01 mask to 512 bytes leax inbuff,u input buffer addr pshs x addd ,s++ getid std maddr,u disk and memory lda [maddr,u] getjk ldx saddr,u update pointers stx daddr,u leax $01,x stx saddr,u sta instr,u inc fllth,u update length tst flisw,u save instrs? beq getxx ldx iaddr,u leax $01,x sta ,x stx iaddr,u getxx puls y,pc ** getty pshs y return memory type ldx types,u lda defalt,u default type sta insty,u ldd saddr,u getnx cmpx typee,u beq gettx cmpd $01,x beq getn4 getn1 bls getix getn2 cmpd $03,x beq getn4 getn3 bhi getix getn4 pshs b have table hit ldb ,x cmpb #$4d chk m bne getn5 stx maddr,u save table location clrb and set type bra getn9 getn5 cmpb #$5a chk z bne getn9 stx maddr,u save table location ldb insty,u chk type cmpb #$4b bne getn9 clrb getn9 stb insty,u puls b getix leax $08,x bra getnx gettx ldb insty,u puls y,pc