Mercurial > hg > Members > kono > nitros9-code
changeset 266:03af31c2d39d
Migrated OS-9 Level Two version over to OS-9 Level One with modifications
to boot track write code
| author | boisy |
|---|---|
| date | Sun, 21 Jul 2002 04:08:56 +0000 |
| parents | 4b547814b192 |
| children | 6992acfc221f |
| files | level1/cmds/os9gen.asm |
| diffstat | 1 files changed, 507 insertions(+), 294 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/os9gen.asm Sun Jul 21 03:01:36 2002 +0000 +++ b/level1/cmds/os9gen.asm Sun Jul 21 04:08:56 2002 +0000 @@ -1,20 +1,16 @@ ******************************************************************** -* OS9gen - Build and Link a Bootstrap File +* OS9Gen - OS-9 bootfile generator * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 7 From Tandy OS-9 Level One VR 02.00.00 -* 8 Incorporated fix from Rainbow Magazine in the BGP 02/07/20 -* January 1987 issue, page 203 -* -* OS9gen is hardware dependent. On COCO the track to write is 34 +* 9 From OS-9 Level Two Vr. 2.00.01 nam OS9gen - ttl Build and Link a Bootstrap File + ttl OS-9 bootfile generator -* Disassembled 02/07/06 22:40:22 by Disasm v1.6 (C) 1988 by RML +* Disassembled 02/07/06 13:11:11 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile @@ -23,16 +19,16 @@ tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 -edition set 8 +edition set 9 -os9start equ $EF00 -os9size equ $0F80 +os9l1start equ $EF00 +os9l1size equ $0F80 mod eom,name,tylg,atrv,start,size u0000 rmb 2 u0002 rmb 1 -DevFd rmb 1 +u0003 rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 2 @@ -42,24 +38,33 @@ u000D rmb 2 u000F rmb 2 u0011 rmb 2 -u0013 rmb 7 -u001A rmb 3 -u001D rmb 17 -u002E rmb 2 -u0030 rmb 10 -u003A rmb 2 -u003C rmb 1 -u003D rmb 451 -u0200 rmb 16 -u0210 rmb 1 -u0211 rmb 7 -u0218 rmb 1000 +u0013 rmb 2 +u0015 rmb 2 +u0017 rmb 7 +u001E rmb 3 +u0021 rmb 17 +u0032 rmb 2 +u0034 rmb 10 +u003E rmb 2 +u0040 rmb 1 +u0041 rmb 32 +u0061 rmb 3 +u0064 rmb 1 +u0065 rmb 12 +u0071 rmb 10 +u007B rmb 2 +u007D rmb 1 +u007E rmb 1024 +u047E rmb 16 +u048E rmb 1 +u048F rmb 7 +u0496 rmb 7018 size equ . name fcs /OS9gen/ fcb edition -L0014 fcb C$LF +Help fcb C$LF fcc "Use (CAUTION): OS9GEN </devname> [-s]" fcb C$LF fcc " ..reads (std input) pathnames until EOF," @@ -67,411 +72,619 @@ fcc " merging paths into New OS9Boot file." fcb C$LF fcc " -s = single drive operation" - fcb C$LF - fcb C$CR + fcb C$LF,C$CR fcc "Can't find: " -L00B7 fcb C$LF +ErrWrit fcb C$LF fcc "Error writing kernel track" fcb C$CR -L00D3 fcb C$LF +HDGen fcb C$LF fcc "Error - cannot gen to hard disk" fcb C$CR -L00F4 fcb C$CR -L00F5 fcb $07 -L00F6 fcb C$LF + ifgt Level-1 +CantRel fcb C$LF + fcc "Error - can't link to Rel module" + fcb C$CR + endc +CarRet fcb C$CR +TheBell fcb C$BELL +TWarn fcb C$LF fcc "Warning - file(s) present" fcb C$LF fcc "on track 34 - this track" fcb C$LF fcc "not rewritten." fcb C$CR -L0139 fcb C$LF +BootFrag fcb C$LF fcc "Error - OS9boot file fragmented" fcb C$CR -L015A fcc "Ready SOURCE, hit C to continue: " -L017B fcc "Ready DESTINATION, hit C to continue: " -L01A1 fcc "RENAME " -L01A8 fcc "TempBoot " +Source fcc "Ready SOURCE, hit C to continue: " +Destin fcc "Ready DESTINATION, hit C to continue: " +Rename fcc "RENAME " +TempBoot fcc "TempBoot " fcb $FF -L01B2 fcc "OS9Boot" +OS9Boot fcc "OS9Boot" fcb C$CR fcb $FF +TheRel fcc "Rel" + fcb $FF -start equ * - clrb +start clrb stb <u0005 - stb <u003C + stb <u0040 stu <u0000 - leas >u0200,u + leas >u047E,u pshs u tfr y,d subd ,s++ - subd #$0200 + subd #$047E clrb std <u0011 - lda #$2F + lda #PDELIM cmpa ,x - lbne L0503 + lbne L069A os9 F$PrsNam - lbcs L0503 - lda #$2F + lbcs L069C + lda #PDELIM cmpa ,y - lbeq L0503 + lbeq L069A pshs b,a -L01EB lda ,y+ - cmpa #$2D - beq L01F7 - cmpa #$0D - beq L0209 - bra L01EB -L01F7 ldd ,y+ - eora #$53 +L0216 lda ,y+ + cmpa #'- + beq L0222 + cmpa #C$CR + beq L0234 + bra L0216 +L0222 ldd ,y+ + eora #'S anda #$DF - lbne L0503 + lbne L071A cmpb #$30 - lbcc L0503 - inc <u003C -L0209 puls b,a - leay <u003D,u -L020E sta ,y+ + lbcc L071A + inc <u0040 +L0234 puls b,a + leay <u0041,u +L0239 sta ,y+ lda ,x+ decb - bpl L020E - sty <u003A - lda #'@ - ldb #$20 + bpl L0239 + sty <u003E + lda #PENTIR + ldb #C$SPAC std ,y++ - lda #$01 - lbsr L0517 - leax <u003D,u - lda #$03 + lbsr L06B5 + leax <u0041,u + lda #UPDAT. os9 I$Open - sta <DevFd - lbcs L0503 - leax <u001A,u - ldb #$00 + sta <u0003 + lbcs L069C + leax <u001E,u + ldb #SS.Opt os9 I$GetStt - lbcs L0514 - leax <u001A,u - lda <u001D,u - bpl L024D + lbcs Bye + leax <u001E,u + lda <u0021,u + bpl L0276 clrb - leax >L00D3,pcr - lbra L0507 -L024D ldx <u003A - leay >L01A8,pcr - lda #$2F -L0255 sta ,x+ + leax >HDGen,pcr + lbra L06A0 +L0276 ldx <u003E + leay >TempBoot,pcr + lda #PDELIM +L027E sta ,x+ lda ,y+ - bpl L0255 - leay >L01B2,pcr -L025F lda ,y+ + bpl L027E + leay >OS9Boot,pcr +L0288 lda ,y+ sta ,x+ - bpl L025F + bpl L0288 tfr x,d - leax <u003D,u + leax <u0041,u pshs x subd ,s++ std <u000D - lda #$02 - ldb #$03 + lda #WRITE. + ldb #READ.+WRITE. os9 I$Create sta <u0002 - lbcs L0514 + lbcs Bye ldx #$0000 stx <u0006 ldu #$3000 ldb #SS.Size os9 I$SetStt - lbcs L0514 + lbcs Bye ldu <u0000 - lda #$00 - lbsr L0517 -L0295 clra - leax >u0200,u - ldy #$0400 + bsr L032F +L02BB leax <u007E,u + ldy #256 + clra os9 I$ReadLn - bcs L0322 + bcs L0312 lda ,x - ldb #$D3 - cmpa #$0D - beq L0322 - lda #$01 + ldb #E$EOF + cmpa #C$CR + beq L0312 + cmpa #'* + beq L02BB + lda #READ. os9 I$Open - bcs L0310 + bcs L031A sta <u0004 - tst <u003C - beq L02E2 - lda #$01 - lbsr L0517 - lda <DevFd +L02DD ldx <u0015 + ldd <u0011 + subd <u0013 + tfr d,y + lda <u0004 + os9 I$Read + bcc L02F9 + cmpb #E$EOF + lbne Bye + os9 I$Close + clr <u0004 + bra L02BB +L02F9 tfr y,d + leax d,x + stx <u0015 + addd <u0013 + std <u0013 + cmpd <u0011 + bcs L030C + bsr L032B + bcs L0328 +L030C tst <u0004 + bne L02DD + bra L02BB +L0312 cmpb #E$EOF + bne L0328 + bsr L033D + bra L0377 +L031A pshs b + leax <u007E,u + ldy #256 + lda #$02 + os9 I$WritLn +L0328 lbra Bye +L032B bsr L033D + bcs L033C +L032F lbsr L06B0 + clra + clrb + std <u0013 + leax >u047E,u + stx <u0015 +L033C rts +L033D lbsr L06B5 + ldd <u0013 + beq L033C + tst <u0040 + beq L0361 + lda <u0003 ldx #$0000 ldu #$0000 - os9 I$Seek - lbcs L0514 - ldu <u0000 - leax >u0200,u - ldy #$0100 - os9 I$Read - lbcs L0514 -L02DD lda #$00 - lbsr L0517 -L02E2 lda <u0004 - leax >u0200,u - ldy <u0011 - os9 I$Read - bcs L0305 + os9 I$Seek seek to LSN0 + bcs L033C + leax <u007E,u + ldy #256 + os9 I$Read read LSN0 + bcs L033C +L0361 lda <u0002 + leax >u047E,u + ldy <u0013 + os9 I$Write + bcs L033C tfr y,d addd <u0006 std <u0006 - lda #$01 - lbsr L0517 - lda <u0002 - os9 I$Write - bcc L02DD - lbra L0514 -L0305 cmpb #$D3 - lbne L0514 - os9 I$Close - bra L0295 -L0310 pshs b - leax >u0200,u - ldy #$0100 - lda #$02 - os9 I$WritLn -L031F lbra L0514 -L0322 cmpb #$D3 - bne L031F - lda #$01 - lbsr L0517 - leax <u001A,u - ldb #$00 + clrb + rts +L0377 leax <u001E,u + ldb #SS.Opt lda <u0002 os9 I$GetStt - lbcs L0514 + lbcs Bye lda <u0002 ldx #$0000 ldu <u0006 ldb #SS.Size os9 I$SetStt - lbcs L0514 + lbcs Bye ldu <u0000 os9 I$Close - lbcs L0503 - ldx <u002E,u - lda <u0030,u + lbcs L069C + ldx <u0032,u + lda <u0034,u clrb tfr d,u - lda <DevFd + lda <u0003 os9 I$Seek ldu <u0000 - lbcs L0514 - leax >u0200,u - ldy #$0100 + lbcs Bye + leax >u047E,u + ldy #256 os9 I$Read - lbcs L0514 - ldd >u0218,u - lbne L0577 - lda <DevFd + lbcs Bye + ldd >u0496,u + lbne L0716 + lda <u0003 ldx #$0000 ldu #$0015 os9 I$Seek ldu <u0000 - lbcs L0514 + lbcs Bye leax u0008,u ldy #$0005 os9 I$Read - lbcs L0514 + lbcs Bye ldd <u000B - beq L03C1 - ldx <u003A - leay >L01B2,pcr - lda #$2F -L03A7 sta ,x+ + beq L040D + ldx <u003E + leay >OS9Boot,pcr + lda #PDELIM +L03F3 sta ,x+ lda ,y+ - bpl L03A7 - leax <u003D,u + bpl L03F3 + leax <u0041,u os9 I$Delete - ldx <u003A - leay >L01A8,pcr - lda #$2F -L03BB sta ,x+ + ldx <u003E + leay >TempBoot,pcr + lda #PDELIM +L0407 sta ,x+ lda ,y+ - bpl L03BB -L03C1 tst <u003C - beq L03E1 - lda #$00 - lbsr L0517 + bpl L0407 +L040D tst <u0040 + beq L042E clra - leax >L01A1,pcr + leax >Rename,pcr + os9 F$Link + bcc L0428 + lbsr L06B0 os9 F$Load - lbcs L0514 - tfr u,d + lbcs Bye + lbsr L06B5 +L0428 tfr u,d ldu <u0000 std u000F,u - lda #$01 - lbsr L0517 -L03E1 lda #$01 +L042E lda #$01 clrb - leax >L01A1,pcr + leax >Rename,pcr ldy <u000D - leau <u003D,u + leau <u0041,u os9 F$Fork - lbcs L0514 + lbcs Bye os9 F$Wait - lbcs L0514 + lbcs Bye tstb - lbne L0514 - tst <u003C - beq L0412 + lbne Bye + tst <u0040 + beq L045F ldu <u0000 ldd u000F,u tfr d,u os9 F$UnLink - lbcs L0514 -L0412 ldu <u0000 - ldb >u0210,u + lbcs Bye +L045F ldu <u0000 + ldb >u048E,u stb <u0008 - ldd >u0211,u + ldd >u048F,u std <u0009 ldd <u0006 std <u000B ldx #$0000 ldu #$0015 - lda <DevFd + lda <u0003 os9 I$Seek ldu <u0000 - lbcs L0514 + lbcs Bye leax u0008,u ldy #$0005 os9 I$Write - lbcs L0514 - lbsr L057E - leax >u0200,u - ldy #$0100 - os9 I$Read - lbcs L0507 - leax >u0200,u - lda <$4C,x - bita #$0F - beq L04AE - lda <DevFd + lbcs Bye pshs u - ldx #$0002 - ldu #$6400 + clra + clrb + tfr d,x + tfr d,u + lda <u0003 os9 I$Seek + lbcs Bye puls u - leax <u0013,u - ldy #$0007 + leax <u0061,u + ldy #$001A + lda <u0003 + os9 I$Read + lbcs Bye + lda #$00 + ldb #$01 + lbsr L065E + leax <u007E,u + ldy <u0065,u + lda <u0003 os9 I$Read - lbcs L058D - leax <u0013,u - ldd #$4F53 "OS" - cmpd ,x - lbne L058D + lbcs Bye + lda #$22 + clrb + ldy #$0004 + lbsr L05C7 + bcc L0520 + lda #$22 + ldb #$00 + lbsr L065E + leax <u0017,u + ldy #$0007 + lda <u0003 + os9 I$Read + lbcs Bye + leax <u0017,u + ldd ,x + cmpa #'O + lbne L071E + cmpb #'S + lbne L071E lda $04,x - leax >u0200,u cmpa #$12 - beq L049C - lda <$4E,x - bita #$1C - lbne L058D -L049C lda <$4C,x - ora #$0F - sta <$4C,x - lda #$FF - sta <$4D,x - lda <$4E,x - bra L04C6 -L04AE ora #$0F - sta <$4C,x - tst <$4D,x - lbne L058D - com <$4D,x - lda <$4E,x - bita #$FC - lbne L058D -L04C6 ora #$FC - sta <$4E,x -L04CB lbsr L057E - leax >u0200,u - ldy #$0064 + beq L0512 + lda #$22 + ldb #$0F + ldy #$0003 + lbsr L05C7 + lbcs L071E +L0512 clra + ldb <u0064,u + tfr d,y + lda #$22 + clrb + lbsr L061C + bra L0531 +L0520 lda #$22 + ldb #$04 + ldy #$000E + lbsr L05C7 + lbcs L071E + bra L0512 +L0531 clra + ldb #$01 + lbsr L065E + leax <u007E,u + ldy <u0065,u + lda <u0003 + os9 I$Write + lbcs Bye + + ifgt Level-1 +* OS-9 Level Two: Link to Rel, which brings in boot code + pshs u + lda #Systm+Objct + leax >TheRel,pcr + os9 F$Link + lbcs L0724 + tfr u,d + puls u + subd #$0006 + std <u007B,u + lda #$E0 + anda <u007B,u + ora #$1E + ldb #$FF + subd <u007B,u + addd #$0001 + tfr d,y + lda #$22 + ldb #$00 + lbsr L065E + lda <u0003 + ldx <u007B,u + + else + +* OS-9 Level One: Write out boot track data + lda #$22 + ldb #$00 + lbsr L065E + lda <u0003 + ldx #os9l1start + ldy #os9l1size + + endc + os9 I$Write - bcs L0507 - pshs u - ldx #$0002 - ldu #$6400 - os9 I$Seek - puls u - ldx #os9start Address of kernel in RAM - ldy #os9size Amount to write - os9 I$Write - bcs L04FC + lbcs L0694 os9 I$Close - bcs L0503 - clrb - bra L0514 -L04FC leax >L00B7,pcr + lbcs Bye clrb - bra L0507 -L0503 leax >L0014,pcr -L0507 pshs b + lbra Bye +L058F pshs b + ldb <u0071,u + andb #$01 + beq L059C + ldb #$02 + bra L059E +L059C ldb #$01 +L059E mul + lda <u0064,u + mul + addb ,s + adca #$00 + leas $01,s + rts +L05AA pshs y,b + lsra + rorb + lsra + rorb + lsra + rorb + leax d,x + puls b + leay <L05BF,pcr + andb #$07 + lda b,y + puls pc,y + +L05BF fcb $80,$40,$20,$10,$08,$04,$02,$01 + +L05C7 pshs x,y,b,a + bsr L058F + leax <u007E,u + bsr L05AA + sta ,-s + bmi L05EA +L05D3 lda ,x + sta <u007D,u +L05D9 anda ,s + bne L0616 + leay -$01,y + beq L0612 + lda <u007D,u + lsr ,s + bcc L05D9 + leax $01,x +L05EA lda #$FF + sta ,s + bra L05FA +L05F0 lda ,x + anda ,s + bne L0616 + leax $01,x + leay -$08,y +L05FA cmpy #$0008 + bhi L05F0 + beq L060C + lda ,s +L0604 lsra + leay -$01,y + bne L0604 + coma + sta ,s +L060C lda ,x + anda ,s + bne L0616 +L0612 andcc #$FE + bra L0618 +L0616 orcc #$01 +L0618 leas $01,s + puls pc,y,x,b,a +L061C pshs y,x,b,a + lbsr L058F + leax <u007E,u + bsr L05AA + sta ,-s + bmi L063A + lda ,x +L062C ora ,s + leay -$01,y + beq L0658 + lsr ,s + bcc L062C + sta ,x + leax $01,x +L063A lda #$FF + bra L0644 +L063E sta ,x + leax $01,x + leay -$08,y +L0644 cmpy #$0008 + bhi L063E + beq L0658 +L064C lsra + leay -$01,y + bne L064C + coma + sta ,s + lda ,x + ora ,s +L0658 sta ,x + leas $01,s + puls pc,y,x,b,a + +L065E pshs u,y,x,b,a + lbsr L058F + pshs a + tfr b,a + clrb + tfr d,u + puls b + clra + tfr d,x + lda <u0003 + os9 I$Seek + lbcs L0694 + puls pc,u,y,x,b,a + + clra + clrb + tfr d,x + tfr d,u + lda <u0003 + os9 I$Seek + leax <u0061,u + ldy #$001A + lda <u0003 + os9 I$Write + bcs Bye + rts +L0694 leax >ErrWrit,pcr + bra L06A0 +L069A ldb #$D7 +L069C leax >Help,pcr +L06A0 pshs b lda #$02 - ldy #$0100 + ldy #256 os9 I$WritLn puls b -L0514 os9 F$Exit -L0517 tst <u003C - beq L055F - pshs y,x -L051D pshs a +Bye os9 F$Exit +L06B0 pshs u,y,x,b,a + clra + bra L06B9 +L06B5 pshs u,y,x,b,a + lda #$01 +L06B9 tst <u0040 + beq L06FD +L06BD pshs a tsta - bne L052C - leax >L015A,pcr - ldy #$0021 - bra L0534 -L052C leax >L017B,pcr + bne L06CC + leax >Source,pcr ldy #$0026 -L0534 bsr L0560 + bra L06D4 +L06CC leax >Destin,pcr + ldy #$0026 +L06D4 bsr L06FF leax ,-s ldy #$0001 lda #$02 os9 I$Read lda ,s+ - eora #$43 + eora #'C anda #$DF - beq L0559 - leax >L00F5,pcr + beq L06F9 + leax >TheBell,pcr ldy #$0001 - bsr L0560 - bsr L0566 + bsr L06FF + bsr L0705 puls a - bne L051D -L0559 bsr L0566 + bne L06BD +L06F9 bsr L0705 puls a - puls y,x -L055F rts -L0560 lda #$01 +L06FD puls pc,u,y,x,b,a +L06FF lda #$01 os9 I$WritLn rts -L0566 pshs y,x,a +L0705 pshs y,x,a lda #$01 - leax >L00F4,pcr - ldy #$0050 + leax >CarRet,pcr + ldy #80 os9 I$WritLn puls pc,y,x,a -L0577 leax >L0139,pcr - clrb - bra L0507 -L057E pshs u - lda <DevFd - ldx #$0000 - ldu #$0100 - os9 I$Seek - puls pc,u +L0716 leax >BootFrag,pcr +L071A ldb #$01 + bra L06A0 +L071E leax >TWarn,pcr + bra L071A -L058D leax >L00F6,pcr - clrb - lbra L0507 + ifgt Level-1 +L0724 leax >CantRel,pcr + lbra L06A0 + endc + emod eom equ * + end