Mercurial > hg > Members > kono > nitros9-code
changeset 1299:1f0995cd0431
REL is now back-ported to OS-9 Level One
| author | boisy |
|---|---|
| date | Mon, 01 Sep 2003 16:59:50 +0000 |
| parents | bfb91dc51fb6 |
| children | 636cabe76c6e |
| files | level1/ChangeLog level1/modules/makefile level1/modules/oscode.asm level1/modules/rel.asm level2/modules/rel.asm |
| diffstat | 5 files changed, 339 insertions(+), 354 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/ChangeLog Mon Sep 01 16:25:55 2003 +0000 +++ b/level1/ChangeLog Mon Sep 01 16:59:50 2003 +0000 @@ -1,4 +1,5 @@ OS-9 Level One V03.01.05: +- REL is now back-ported to OS-9 Level One. - The faster PipeMan, Piper and Pipe have been back-ported from OS-9 Level Two. - The MDir utility now shows proper module revision of 0 and other minor improvements in extended output.
--- a/level1/modules/makefile Mon Sep 01 16:25:55 2003 +0000 +++ b/level1/modules/makefile Mon Sep 01 16:59:50 2003 +0000 @@ -7,7 +7,7 @@ BOOTERS = boot_1773_6ms boot_1773_30ms \ boot_burke boot_idelba boot_rampak boot_wd1002 -BOOTTRACK = oscode $(BOOTERS) +BOOTTRACK = rel $(BOOTERS) KERNEL = os9 os9p2 SYSMODS = ioman init sysgo_dd sysgo_h0 CLOCKS = clock_elim clock_disto2 clock_disto4 clock_bnb \ @@ -98,7 +98,7 @@ d2_80d.dd: ccdiskdesc.asm $(AS) $< $(ASOUT)$@ $(AFLAGS) $(DSDD80) -aDNum=2 -oscode: oscode.asm +rel: rel.asm $(AS) $(AFLAGS) $(ASOUT)$@ $< -aDragon64=0 sysgo_dd: sysgo.asm
--- a/level1/modules/oscode.asm Mon Sep 01 16:25:55 2003 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,82 +0,0 @@ -******************************************************************** -* oscode - OS-9 Level One V2 bootstrap code -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* From Tandy OS-9 Level One VR 02.00.00 -* Also put in conditionals for the Dragon 64 - - IFP1 - use defsfile - ENDC - -ScrnLoc equ $8000 - -* Initial code executed upon booting up to OS-9 - -Start fcc /OS/ - bra L2620 - - fdb $1204 -BootMsg fcc /OSy/ - fcb $60 - fcc /BOOT/ -BootMLen equ *-BootMsg - -L2620 clr PIA0Base+3 - - IFNE Dragon64 - clr PIA0Base+1 added for Dragon, works on CoCo - ENDC - - sta $FFDF turn off ROM -* locate Boot Text Screen at $8000 - ldb #$06 - ldx #$FFC6 -L262B sta ,x++ - decb - bne L262B - sta 1,x - -* Clear VDG screen - ldx #ScrnLoc - ldy #512 - lda #$60 -L263B sta ,x+ - leay -1,y - bne L263B - -* Copy "OS9 BOOT" to screen area - ldx #ScrnLoc+$10C - leay <BootMsg,pcr - ldb #BootMLen -L2649 lda ,y+ - sta ,x+ - decb - bne L2649 - - IFNE Dragon64 - tst <$72 - ELSE - ldd #$1212 - cmpd <$0078 - ENDC - - beq L266E - leau >Start,pcr - ldx #$FE80-Bt.Start - ldy #Bt.Start -L2663 lda ,u+ - sta ,y+ - leax -1,x - bne L2663 - jmp >Bt.Start+L266E -L266E leax <eoc,pcr - ldd $09,x - jmp d,x - -eoc equ * - end -
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/modules/rel.asm Mon Sep 01 16:59:50 2003 +0000 @@ -0,0 +1,336 @@ +******************************************************************** +* REL - Relocation routine +* +* $Id$ +* +* Edt/Rev YYYY/MM/DD Modified by +* Comment +* ------------------------------------------------------------------ +* 5r5 2003/07/31 Boisy G. Pitre +* Back ported NitrOS-9 REL to OS-9 Level Two. + + nam REL + ttl Relocation routine + + IFP1 + use defsfile + ENDC + +XX.Size equ 6 number of bytes before REL actually starts + IFEQ Level-1 +ScStart equ $8000 screen start in memory + ELSE +ScStart equ $8008 screen start in memory +Offset equ Bt.Start+XX.Size + ENDC + +tylg set Systm+Objct +atrv set ReEnt+rev +rev set $05 +edition set 5 + +******************************************************************** +* Any changes to the next 3 lines requires changes in XX.Size, above +Begin fcc /OS/ sync bytes + bra Start+XX.Size execution start + fdb $1205 filler bytes + + mod eom,name,tylg,atrv,start,size + + org 0 +size equ . REL doesn't require any memory + +name fcs /REL/ + fcb edition + + IFGT Level-1 + +L001F fcb $6C MMU, IRQ, Vector page, SCS + fcb $00 map type 0 + fcb $00 no FIRQ + fcb $00 no IRQ + fdb $0900 timer + fcb $00 unused + fcb $00 unused + IFEQ TkPerSec-50 + fcb $0B 50Hz refresh, alphanumeric display, 8 lines/char row + ELSE + fcb $03 60Hz refresh, alphanumeric display, 8 lines/char row + ENDC + + IFEQ Width-80 + fcb $34 200 lines, 80 column mode, no attribute byte (monochrome) + fcb $3F white border + ENDC + + IFEQ Width-40 + fcb $24 200 lines, 40-col, no attribute byte + fcb $3F white border + ENDC + + IFEQ Width-32 + fcb $20 200 lines, 32-col, no attribute byte + fcb $00 black border + ENDC + + fcb $00 display in lower 512k bank + fcb $00 vertical fine scroll set to 0 + fcb Bt.Block*4 display block where-ever + fcb $01 offset 8 bytes + fcb $00 no horizontal scroll + +crash lda #'* signal a crash error + jsr <D.BtBug + tfr b,a save error code + jsr <D.BtBug and dump this out, too + clrb + fcb $8C skip 2 bytes + +reset equ * later on, have reset different from start? +start ldb #$FF negative - do complete boot + clr >$FFDF added for OS-9 ROM Kit boots +BGP+ + +start1 orcc #IntMasks turn off IRQ's + clr >PIA0Base+3 turn off SAM IRQ's + clra make A=0 for later + IFNE H6309 + tfr 0,dp set direct page to $0000 + ELSE + tfr a,dp + ENDC + clr <D.CBStrt cold boot start: don't re-boot on reset + clr >$FFA0 map in block 0 + lds #$1FFF set stack to the end of the block + stb ,-s save status of start, $00=cold, $01=warm +* This is done so I can tell what went on in the direct page if there's +* a crash. 0(crash) 1(reset) -1(startup) + beq Cont --don't clear out direct page is it's a crash + ldb #$20 start out at $20 + tfr d,x here, too +L0072 sta ,x+ clear out the direct page + incb Boot won't be using any of it! + bne L0072 BUT RAMMER/MD DOES!!! + inc <D.Speed 0+1=1; high speed +Cont clrb --make sure B=0 + stb >$FFD9 set to high speed + leay <L001F,pcr point to the video setup data + ldx #$0090 set video mapping + deca now D=$FF00, versus STU >-$0100,x (saves 1 byte) +L0084 ldu ,y++ get the bytes + stu d,x save in the hardware + stu ,x++ and in the direct page + cmpx #$00A0 end of video hardware yet? + bcs L0084 + + IFEQ Width-32 + ldd #$1200 color 0=$12, 1=$00 i.e. black on green + ELSE + ldd #$3F00 color 0=$3F, 1=$00, i.e. black on white + ENDC + std >$FFB0 set only the first two palettes, B=$00 already + lda #Bt.Block + sta >$FFA4 map in the block + + ldx #$8000 start of the block + IFNE H6309 + ldq #Bt.Flag*65536+8 + ELSE + ldd #Bt.Flag + ENDC + tst ,s check status : 0(crash) 1(reset) -1(startup) + bmi StoreQ if NOT a crash or reset, start at the start... + cmpd ,x are they the same? + beq MoveTxt don't bother clearing the screen if it's there +StoreQ + IFNE H6309 + stq ,x otherwise save the bytes on-screen + ELSE + std ,x + ldd #8 + std 2,x + ENDC + + leax 8,x point to the start of the screen in memory + IFNE H6309 + ldw #$2000-8 clear out the entire block of memory + leau <L00E0,pcr point to $20, a space + tfm u,x+ clear out the screen + ELSE + ldy #$2000-8 + ldb #$20 +ClrLoop stb ,x+ + leay -1,y + bne ClrLoop +* ldd #$2000-8 +* ldu #$2020 +*ClrLoop stu ,x++ +* subd #$0002 +* bne ClrLoop + ENDC + +MoveTxt leau <L0011,pcr point to OS-9 Welcome Message + bsr Move1 E=$00 already from TFM above... +* 0 = crash +* 1 = reset +* -1 = startup + ldb ,s+ check state of boot + bne L00E2 if OK, continue +* U=<L0019 already from TFM above (call to L00FD) + bsr Move1 move it on-screen, E=$00 already + clr >$FF40 turn off disk drives +L00E0 bra L00E0 loop forever + +Move1 ldy ,u++ get where to put the text + IFNE H6309 +Move ldf ,u+ get the size of the block to move +L00FD tfm u+,y+ + ELSE +Move clra + ldb ,u+ + tfr d,x +L00FD lda ,u+ + sta ,y+ + leax -1,x + bne L00FD + ENDC + rts + +L0011 fdb ScStart+(11*Width)+((Width-L1)/2) + fcb L1 length of the text below +T1 equ * + IFNE NitrOS9 + fcc /NITR/ + ENDC + fcc /OS9 BOOT/ +L1 equ *-T1 + + fdb ScStart+(13*Width)+((Width-LFail)/2) + fcb LFail length of the 'FAILED' string +TFail fcc /FAILED/ +LFail equ *-TFail + +* saves 2 bytes over leax <L00E2,pc, cmpx #Bt.Start +L00E2 tfr pc,d get the address at which we're executing + cmpa #$26 the bootfile starts out at $2600 + bne L0101 if not at $26xx, continue with booting + ldu #$2600 else move rel, Boot, OS9p1 over + IFNE H6309 + ldw #$1200 size of track 34 boot file + ELSE + ldx #$1200 + ENDC + ldy #Bt.Start where to put it + bsr L00FD 1 byte smaller than tfm in place + jmp >Offset+L0101 + +BtDebug pshs cc,d,x save the register + orcc #IntMasks turn IRQ's off + ldb #Bt.Block block to map in + stb >$FFA0 map the boot screen into block 0 + ldx >$0002 where to put the bytes + sta ,x+ put the character on-screen + stx >$0002 save updated address + clr >$FFA0 map block 0 in again + puls cc,d,x,pc restore X and exit + +L0101 + lda #$7E RTS + sta <D.BtBug + leax <BtDebug,pc point to debug routine + stx <D.BtBug+1 + + leau <R.Crash,pcr point to D.Crash, D.CBStart + ldy #D.Crash move it over + bsr Move E=$00 from call to L00FD above. + IFNE H6309 + ldmd #$03 go to native mode, FIRQ saves all registers + inc <D.MDREG 0+1=1; set MD shadow register (clr'd from above) + ENDC + +* leax <eom,pcr point to the end of REL +* ldd M$Size,x get size of the next module +* leax d,x skip Boot, point to OS9p1 + ldx #$F000 we KNOW where OS9p1 starts in memory + ldd M$Exec,x get execution start address + jmp d,x jump to it + +* D.Crash +R.Crash fcb $10 size of the data to move over +L003F clr >$FF91 go to map type 0 - called by CC3Go from map 1 + jmp >Offset+crash + + fcb $00 warm start flag + fdb $0074 go to $0074, next routine + +* reset vector: map ROMs out and go to REL in the default DECB block map, +* which is still block $3F at the top fo memory + nop required for the ROMs to believe it's a reset vector + clr >$FFDF go to all RAM mode + jmp >Offset+reset and re-start the boot + +Pad fill $39,$127-* + + ELSE + +start clr PIA0Base+3 + + IFNE Dragon64 + clr PIA0Base+1 added for Dragon, works on CoCo + ENDC + + sta $FFDF turn off ROM +* locate Boot Text Screen at $8000 + ldb #$06 + ldx #$FFC6 +L262B sta ,x++ + decb + bne L262B + sta 1,x + +* Clear VDG screen + ldx #ScStart + ldy #512 + lda #$60 +L263B sta ,x+ + leay -1,y + bne L263B + +* Copy "OS9 BOOT" to screen area + ldx #ScStart+$10C + leay <BootMsg,pcr + ldb #BootMLen +L2649 lda ,y+ + sta ,x+ + decb + bne L2649 + + IFNE Dragon64 + tst <$72 + ELSE + ldd #$1212 + cmpd <$0078 + ENDC + + beq L266E + leau >Begin,pcr + ldx #$FE80-Bt.Start + ldy #Bt.Start +L2663 lda ,u+ + sta ,y+ + leax -1,x + bne L2663 + jmp >Bt.Start+L266E +L266E leax <eom,pcr + ldd $09,x + jmp d,x + +BootMsg fcc /OSy/ + fcb $60 + fcc /BOOT/ +BootMLen equ *-BootMsg + + ENDC + + emod +eom equ * + end
--- a/level2/modules/rel.asm Mon Sep 01 16:25:55 2003 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,270 +0,0 @@ -******************************************************************** -* REL - Relocation routine -* -* $Id$ -* -* Edt/Rev YYYY/MM/DD Modified by -* Comment -* ------------------------------------------------------------------ -* 5/5 2003/07/31 Boisy G. Pitre -* Back ported NitrOS-9 REL to OS-9 Level Two. - - nam REL - ttl Relocation routine - - ifp1 - use defsfile - endc - -ScStart equ $8008 screen start in memory -XX.Size equ 6 number of bytes before REL actually starts -Offset equ Bt.Start+XX.Size - -tylg set Systm+Objct -atrv set ReEnt+rev -rev set $05 -edition set 5 - -******************************************************************** -* Any changes to the next 3 lines requires changes in XX.Size, above - fcc /OS/ sync bytes - bra Start+XX.Size execution start - fdb $1205 filler bytes - - mod eom,name,tylg,atrv,start,size - - org 0 -size equ . REL doesn't require any memory - -name fcs /REL/ - fcb edition - -L001F fcb $6C MMU, IRQ, Vector page, SCS - fcb $00 map type 0 - fcb $00 no FIRQ - fcb $00 no IRQ - fdb $0900 timer - fcb $00 unused - fcb $00 unused - IFEQ TkPerSec-50 - fcb $0B 50Hz refresh, alphanumeric display, 8 lines/char row - ELSE - fcb $03 60Hz refresh, alphanumeric display, 8 lines/char row - ENDC - - IFEQ Width-80 - fcb $34 200 lines, 80 column mode, no attribute byte (monochrome) - fcb $3F white border - ENDC - - IFEQ Width-40 - fcb $24 200 lines, 40-col, no attribute byte - fcb $3F white border - ENDC - - IFEQ Width-32 - fcb $20 200 lines, 32-col, no attribute byte - fcb $00 black border - ENDC - - fcb $00 display in lower 512k bank - fcb $00 vertical fine scroll set to 0 - fcb Bt.Block*4 display block where-ever - fcb $01 offset 8 bytes - fcb $00 no horizontal scroll - -crash - lda #'* signal a crash error - jsr <D.BtBug - tfr b,a save error code - jsr <D.BtBug and dump this out, too - clrb - fcb $8C skip 2 bytes - -reset equ * later on, have reset different from start? -start ldb #$FF negative - do complete boot - clr >$FFDF added for OS-9 ROM Kit boots +BGP+ - -start1 orcc #IntMasks turn off IRQ's - clr >$FF03 turn off SAM IRQ's - clra make A=0 for later - IFNE H6309 - tfr 0,dp set direct page to $0000 - ELSE - tfr a,dp - ENDC - clr <D.CBStrt cold boot start: don't re-boot on reset - clr >$FFA0 map in block 0 - lds #$1FFF set stack to the end of the block - stb ,-s save status of start, $00=cold, $01=warm -* This is done so I can tell what went on in the direct page if there's -* a crash. 0(crash) 1(reset) -1(startup) - beq Cont --don't clear out direct page is it's a crash - ldb #$20 start out at $20 - tfr d,x here, too -L0072 sta ,x+ clear out the direct page - incb Boot won't be using any of it! - bne L0072 BUT RAMMER/MD DOES!!! - inc <D.Speed 0+1=1; high speed -Cont clrb --make sure B=0 - stb >$FFD9 set to high speed - leay <L001F,pcr point to the video setup data - ldx #$0090 set video mapping - deca now D=$FF00, versus STU >-$0100,x (saves 1 byte) -L0084 ldu ,y++ get the bytes - stu d,x save in the hardware - stu ,x++ and in the direct page - cmpx #$00A0 end of video hardware yet? - bcs L0084 - - IFEQ Width-32 - ldd #$1200 color 0=$12, 1=$00 i.e. black on green - ELSE - ldd #$3F00 color 0=$3F, 1=$00, i.e. black on white - ENDC - std >$FFB0 set only the first two palettes, B=$00 already - lda #Bt.Block - sta >$FFA4 map in the block - - ldx #$8000 start of the block - IFNE H6309 - ldq #Bt.Flag*65536+8 - ELSE - ldd #Bt.Flag - ENDC - tst ,s check status : 0(crash) 1(reset) -1(startup) - bmi StoreQ if NOT a crash or reset, start at the start... - cmpd ,x are they the same? - beq MoveTxt don't bother clearing the screen if it's there -StoreQ - IFNE H6309 - stq ,x otherwise save the bytes on-screen - ELSE - std ,x - ldd #8 - std 2,x - ENDC - - leax 8,x point to the start of the screen in memory - IFNE H6309 - ldw #$2000-8 clear out the entire block of memory - leau <L00E0,pcr point to $20, a space - tfm u,x+ clear out the screen - ELSE - ldy #$2000-8 - ldb #$20 -ClrLoop stb ,x+ - leay -1,y - bne ClrLoop -* ldd #$2000-8 -* ldu #$2020 -*ClrLoop stu ,x++ -* subd #$0002 -* bne ClrLoop - ENDC - -MoveTxt leau <L0011,pcr point to OS-9 Welcome Message - bsr Move1 E=$00 already from TFM above... -* 0 = crash -* 1 = reset -* -1 = startup - ldb ,s+ check state of boot - bne L00E2 if OK, continue -* U=<L0019 already from TFM above (call to L00FD) - bsr Move1 move it on-screen, E=$00 already - clr >$FF40 turn off disk drives -L00E0 bra L00E0 loop forever - -Move1 ldy ,u++ get where to put the text - IFNE H6309 -Move ldf ,u+ get the size of the block to move -L00FD tfm u+,y+ - ELSE -Move clra - ldb ,u+ - tfr d,x -L00FD lda ,u+ - sta ,y+ - leax -1,x - bne L00FD - ENDC - rts - -L0011 fdb ScStart+(11*Width)+((Width-L1)/2) - fcb L1 length of the text below -T1 equ * - IFNE NitrOS9 - fcc /NITR/ - ENDC - fcc /OS9 BOOT/ -L1 equ *-T1 - - fdb ScStart+(13*Width)+((Width-LFail)/2) - fcb LFail length of the 'FAILED' string -TFail fcc /FAILED/ -LFail equ *-TFail - -* saves 2 bytes over leax <L00E2,pc, cmpx #Bt.Start -L00E2 tfr pc,d get the address at which we're executing - cmpa #$26 the bootfile starts out at $2600 - bne L0101 if not at $26xx, continue with booting - ldu #$2600 else move rel, Boot, OS9p1 over - IFNE H6309 - ldw #$1200 size of track 34 boot file - ELSE - ldx #$1200 - ENDC - ldy #Bt.Start where to put it - bsr L00FD 1 byte smaller than tfm in place - jmp >Offset+L0101 - -BtDebug pshs cc,d,x save the register - orcc #IntMasks turn IRQ's off - ldb #Bt.Block block to map in - stb >$FFA0 map the boot screen into block 0 - ldx >$0002 where to put the bytes - sta ,x+ put the character on-screen - stx >$0002 save updated address - clr >$FFA0 map block 0 in again - puls cc,d,x,pc restore X and exit - -L0101 - lda #$7E RTS - sta <D.BtBug - leax <BtDebug,pc point to debug routine - stx <D.BtBug+1 - - leau <R.Crash,pcr point to D.Crash, D.CBStart - ldy #D.Crash move it over - bsr Move E=$00 from call to L00FD above. - IFNE H6309 - ldmd #$03 go to native mode, FIRQ saves all registers - inc <D.MDREG 0+1=1; set MD shadow register (clr'd from above) - ENDC - -* leax <eom,pcr point to the end of REL -* ldd M$Size,x get size of the next module -* leax d,x skip Boot, point to OS9p1 - ldx #$F000 we KNOW where OS9p1 starts in memory - ldd M$Exec,x get execution start address - jmp d,x jump to it - -* D.Crash -R.Crash fcb $10 size of the data to move over -L003F clr >$FF91 go to map type 0 - called by CC3Go from map 1 - jmp >Offset+crash - - fcb $00 warm start flag - fdb $0074 go to $0074, next routine - -* reset vector: map ROMs out and go to REL in the default DECB block map, -* which is still block $3F at the top fo memory - nop required for the ROMs to believe it's a reset vector - clr >$FFDF go to all RAM mode - jmp >Offset+reset and re-start the boot - -Pad fill $39,$127-* - - emod -eom equ * - end