# HG changeset patch
# User boisy
# Date 1027224536 0
# Node ID 03af31c2d39db82619a9b72d39c6d20e21412d98
# Parent  4b547814b192c8b7111b99deb0801020fb414d2e
Migrated OS-9 Level Two version over to OS-9 Level One with modifications
to boot track write code

diff -r 4b547814b192 -r 03af31c2d39d level1/cmds/os9gen.asm
--- 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