changeset 1287:10957d54bf16

Made all modules rev 0
author boisy
date Sat, 30 Aug 2003 20:16:51 +0000
parents d5839bc79972
children adad42855d76
files level1/modules/aciapak.asm level1/modules/boot_1773.asm level1/modules/boot_burke.asm level1/modules/boot_d64.asm level1/modules/boot_idelba.asm level1/modules/boot_rampak.asm level1/modules/boot_wd1002.asm level1/modules/ccdisk.asm level1/modules/ccdiskdesc.asm level1/modules/cchdisk.asm level1/modules/ccio.asm level1/modules/clock.asm level1/modules/clock_d64.asm level1/modules/co32.asm level1/modules/co80.asm level1/modules/dd_d64.asm level1/modules/ddisk.asm level1/modules/drvr51.asm level1/modules/grfo.asm level1/modules/h0_15.asm level1/modules/h0_35.asm level1/modules/h1_15.asm level1/modules/h1_35.asm level1/modules/init.asm level1/modules/ioman.asm level1/modules/kbvdio.asm level1/modules/kernel.asm level1/modules/kernelp2.asm level1/modules/m1.asm level1/modules/m2.asm level1/modules/modpak.asm level1/modules/nildrv.asm level1/modules/p1_sc6551dragon.asm level1/modules/p_bbp.asm level1/modules/printer.asm level1/modules/rbf.asm level1/modules/rs232.asm level1/modules/sc6551dragon.asm level1/modules/scf.asm level1/modules/ssc.asm level1/modules/sscpak.asm level1/modules/sysgo.asm level1/modules/sysgo_d64.asm level1/modules/t1_bbt.asm level1/modules/t1_d64.asm level1/modules/term32.asm level1/modules/term80.asm level1/modules/term_d64.asm level1/modules/term_kbvdio.asm level1/modules/term_t1.asm
diffstat 50 files changed, 346 insertions(+), 264 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/aciapak.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/aciapak.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,23 +3,25 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*  10    From Tandy OS-9 Level One VR 02.00.00
+*  10      1985/??/??
+* From Tandy OS-9 Level One VR 02.00.00
 
          nam   ACIAPAK
          ttl   RS-232 Pak driver
 
 * Disassembled 98/08/23 20:25:56 by Disasm v1.6 (C) 1988 by RML
 
-         ifp1
+         IFP1
          use   defsfile
          use   scfdefs
-         endc
+         ENDC
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   10
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/boot_1773.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/boot_1773.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -1,22 +1,29 @@
 ********************************************************************
-* Boot - WD1773 Boot for OS-9
+* Boot - WD1773 Boot module
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*   4    From Tandy OS-9 Level Two VR 02.00.01 and 
-*        modified to work properly under OS-9 Level One
+*   4      1985/??/??   
+* Original Tandy distribution version.
+*
+*   6      1998/10/12  Boisy G. Pitre
+* Obtained from L2 Upgrade archive, has 6ms step rate and disk timeout
+* changes.
+*
+*   6r2    2003/05/18  Boisy G. Pitre
+* Added '.' output for each sector for OS-9 L2 and NitrOS9 for
+* Mark Marlette (a special request :).
 
          nam   Boot
-         ttl   os9 system module    
+         ttl   WD1773 Boot module
 
-* Disassembled 98/08/23 21:21:26 by Disasm v1.6 (C) 1988 by RML
-
-         ifp1
+         IFP1
          use   defsfile
          use   rbfdefs
-         endc
+         ENDC
 
 * Step Rate:
 *      $00  = 6ms
@@ -25,10 +32,10 @@
 *      $03  = 30ms
 STEP     set   $00
 
-tylg     set   Systm+Objct   
+tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
-edition  set   4
+rev      set   $02
+edition  set   6
 
          mod   eom,name,tylg,atrv,start,size
 
@@ -45,18 +52,17 @@
 name     fcs   /Boot/
          fcb   edition
 
-* First, we make a stack...
-start    clra  
-         ldb   #size
-MakeStak pshs  a
-         decb  
-         bne   MakeStak
+start    clra			clear A
+         ldb   #size		get our 'stack' size
+MakeStak pshs  a		save 0 on stack
+         decb			and continue...
+         bne   MakeStak		until we've created our stack
 
-         tfr   s,u
-         ldx   #DPort+8
+         tfr   s,u		put 'stack statics' in U
+         ldx   #$FF48
          lda   #$D0
          sta   ,x
-         lbsr  L01A7
+         lbsr  L01AA
          lda   ,x
          lda   #$FF
          sta   u0004,u
@@ -70,7 +76,7 @@
          sta   >D.XNMI
          lda   #$08
          ENDC
-         sta   >DPort
+         sta   >$FF40
 
 * delay loop
          IFGT  Level-1
@@ -78,24 +84,32 @@
          ELSE
          ldd   #$61A8
          ENDC
-L003A    nop   
-         nop   
+         IFNE  NitrOS9
+         nop
+         ENDC
+L003A    nop
+         nop
+         IFNE  NitrOS9
+         nop
+         nop
+         nop
+         ENDC
          subd  #$0001
          bne   L003A
 
 * search for a free page (to use as a 256 byte disk buffer)
          pshs  u,y,x,b,a
          ldd   #$0001
-         os9   F$SRqMem 
+         os9   F$SRqMem
          bcs   L00AA
          tfr   u,d
          ldu   $06,s
          std   u0002,u
-         clrb  
+         clrb
 
 * go get LSN0
          ldx   #$0000
-         bsr   L00C4
+         bsr   ReadSect
          bcs   L00AA
 
 * get bootfile size from LSN0 and allocate memory for it
@@ -113,10 +127,10 @@
          pshs  x
          ldd   #256
          ldu   u0002,u
-         os9   F$SRtMem 
+         os9   F$SRtMem
          ldd   $02,s
          IFGT  Level-1
-         os9   F$BtMem  
+         os9   F$BtMem
          ELSE
          os9   F$SRqMem
          ENDC
@@ -131,187 +145,182 @@
 
 * this loop reads a sector at a time from the bootfile
 L0091    pshs  x,b,a
-         clrb  
-         bsr   L00C4
+         clrb
+         bsr   ReadSect
          bcs   L00A8
+         IFGT  Level-1
+         lda   #'.		dump out a period for boot debugging
+         jsr   <D.BtBug		do the debug stuff     
+         ENDC
          puls  x,b,a
          inc   u0002,u
          leax  1,x
          subd  #256
          bhi   L0091
-L00A3    clrb  
+L00A3    clrb
          puls  b,a
          bra   L00AC
 L00A8    leas  $04,s
 L00AA    leas  $02,s
 L00AC
          IFGT  Level-1
-         sta   >$FFD9
+         sta   >$FFD9		unnecessary - rel does this for us
          ENDC
          puls  u,y,x
-         leas  size,s
-         rts   
+         leas  size,s		clean up stack
+         clr   >$FF40		shut off floppy disk
+         rts
 
-L00B4    lda   #$29
+L00B7    lda   #$29
          sta   ,u
          clr   u0004,u
          lda   #$05
-         lbsr  L016D
+         lbsr  L0170
          ldb   #STEP
-         lbra  L0192
-
-L00C4    lda   #$91
-         cmpx  #$0000
-         bne   L00DC
-         bsr   L00DC
-         bcs   L00D3
-         ldy   u0002,u
-         clrb  
-L00D3    rts   
+         lbra  L0195
 
-L00D4    bcc   L00DC
+* Read a sector from the 1773
+* Entry: X = LSN to read
+ReadSect lda   #$91
+         cmpx  #$0000		LSN0?
+         bne   L00DF
+         bsr   L00DF
+         bcs   L00D6
+         ldy   u0002,u
+         clrb
+L00D6    rts
+
+L00D7    bcc   L00DF
          pshs  x,b,a
-         bsr   L00B4
+         bsr   L00B7
          puls  x,b,a
-L00DC    pshs  x,b,a
-         bsr   L00E7
+L00DF    pshs  x,b,a
+         bsr   L00EA
          puls  x,b,a
-         bcc   L00D3
-         lsra  
-         bne   L00D4
-L00E7    bsr   L0139
-         bcs   L00D3
+         bcc   L00D6
+         lsra
+         bne   L00D7
+L00EA    bsr   L013C
+         bcs   L00D6
          ldx   u0002,u
          orcc  #IntMasks
          pshs  y
          ldy   #$FFFF
          ldb   #$80
-         stb   >DPort+8
+         stb   >$FF48
          ldb   ,u
          orb   #$30
          tst   u0009,u
-         beq   L0104
+         beq   L0107
          orb   #$40
-L0104    stb   >DPort
-         lbsr  L01A7
+L0107    stb   >$FF40
+         lbsr  L01AA
          orb   #$80
          lda   #$02
-L010E    bita  >DPort+8
-         bne   L0120
+L0111    bita  >$FF48
+         bne   L0123
          leay  -$01,y
-         bne   L010E
+         bne   L0111
          lda   ,u
-         sta   >DPort
+         sta   >$FF40
          puls  y
-         bra   L0135
-L0120    lda   >DPort+$B
+         bra   L0138
+L0123    lda   >$FF4B
          sta   ,x+
-         stb   >DPort
-         bra   L0120
+         stb   >$FF40
+         bra   L0123
 
-NMIRtn   leas  size+2,s
+NMIRtn   leas  R$Size,s
          puls  y
-         ldb   >DPort+8
+         ldb   >$FF48
          bitb  #$04
-         beq   L018C
-L0135    comb  
+         beq   L018F
+L0138    comb
          ldb   #E$Read
-         rts   
+         rts
 
-L0139    lda   #$09
+L013C    lda   #$09
          sta   ,u
          clr   u0009,u
          tfr   x,d
          cmpd  #$0000
-         beq   L0169
+         beq   L016C
          clr   ,-s
          tst   u0008,u
-         beq   L015F
-         bra   L0155
-L014F    com   u0009,u
-         bne   L0155
+         beq   L0162
+         bra   L0158
+L0152    com   u0009,u
+         bne   L0158
          inc   ,s
-L0155    subb  u0006,u
+L0158    subb  u0006,u
          sbca  #$00
-         bcc   L014F
-         bra   L0165
-L015D    inc   ,s
-L015F    subb  u0006,u
+         bcc   L0152
+         bra   L0168
+L0160    inc   ,s
+L0162    subb  u0006,u
          sbca  #$00
-         bcc   L015D
-L0165    addb  #18
+         bcc   L0160
+L0168    addb  #$12
          puls  a
-L0169    incb  
-         stb   >DPort+$A
-L016D    ldb   u0004,u
-         stb   >DPort+9
+L016C    incb
+         stb   >$FF4A
+L0170    ldb   u0004,u
+         stb   >$FF49
          cmpa  u0004,u
-         beq   L018A
+         beq   L018D
          sta   u0004,u
-         sta   >DPort+$B
+         sta   >$FF4B
          ldb   #$10+STEP
-         bsr   L0192
+         bsr   L0195
          pshs  x
          ldx   #$222E
-L0184    leax  -1,x
-         bne   L0184
+L0187    leax  -$01,x
+         bne   L0187
          puls  x
-L018A    clrb  
-         rts   
-L018C    bitb  #$98
-         bne   L0135
-         clrb  
-         rts   
-L0192    bsr   L01A5
-L0194    ldb   >DPort+$8
+L018D    clrb
+         rts
+L018F    bitb  #$98
+         bne   L0138
+         clrb
+         rts
+L0195    bsr   L01A8
+L0197    ldb   >$FF48
          bitb  #$01
-         bne   L0194
-         rts   
-L019C    lda   ,u
-         sta   >DPort
-         stb   >DPort+$8
-         rts   
-L01A5    bsr   L019C
-L01A7    lbsr  L01AA
-L01AA    lbsr  L01AD
-L01AD    rts   
+         bne   L0197
+         rts
+L019F    lda   ,u
+         sta   >$FF40
+         stb   >$FF48
+         rts
+L01A8 
+         IFNE  NitrOS9
+         nop
+         ENDC
+         bsr   L019F
+L01AA  
+         IFNE  NitrOS9
+         nop
+         nop
+         ENDC
+         lbsr  L01AD
+L01AD 
+         IFNE  NitrOS9
+         nop
+         nop
+         ENDC
+         lbsr  L01B0
+L01B0 
+         IFNE  NitrOS9
+         nop
+         ENDC
+         rts
 
          IFGT  Level-1
-
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-         rts   
-
+* Filler to get $1D0
+Filler   fill  $39,$1D0-3-*
          ENDC
 
          emod
 eom      equ   *
          end
+
--- a/level1/modules/boot_burke.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/boot_burke.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -8,8 +8,11 @@
 * Track is the literal cylinder #, Cylinder would be including all heads
 * of that track
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
+*   2      ????/??/??
+* Initial version.
 
          nam   Boot
          ttl   Burke & Burke Boot Module
@@ -26,14 +29,14 @@
 vars     equ   13-buffptr  Size of stack variables buffer
 
 
-         ifp1
+         IFP1
          use   defsfile
          use   rbfdefs
-         endc
+         ENDC
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   $02
+rev      set   $00
 edition  set   2
 
          mod   eom,name,tylg,atrv,start,size
@@ -323,8 +326,11 @@
          bne   nxtready     Nope, keep waiting
          lda   >$FF50       Yes, get byte and return
          rts                Padding to get $1D0 Size
-* Pad to $1d0 bytes exactly
+
+         IFGT  Level-1
+* Pad to $1D0 bytes exactly
 Pad      fill  $39,$1D0-3-*
+         ENDC
 
          emod
 eom      equ   *
--- a/level1/modules/boot_d64.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/boot_d64.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,11 +3,16 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*  -     Original Dragon Data distribution version
+*   1r2    ????/??/??
+* Original Dragon Data distribution version
 *
 * $Log$
+* Revision 1.3  2003/08/30 20:16:51  boisy
+* Made all modules rev 0
+*
 * Revision 1.2  2002/10/10 14:50:21  boisy
 * Added appropriate header
 *
@@ -24,21 +29,24 @@
 
 * Disassembled 02/04/21 22:37:43 by Disasm v1.6 (C) 1988 by RML
 
-         ifp1
+         IFP1
          use   defsfile
-         endc
+         ENDC
+
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $02
 edition  set   1
+
          mod   eom,name,tylg,atrv,start,size
+
 u0000    rmb   2
 u0002    rmb   1
 u0003    rmb   1
 u0004    rmb   1
 size     equ   .
-name     equ   *
-         fcs   /Boot/
+
+name     fcs   /Boot/
          fcb   edition
 
 * First, we make a stack...
@@ -230,5 +238,7 @@
 L0178    lbsr  L017B
 L017B    lbsr  L017E
 L017E    rts   
+
          emod
 eom      equ   *
+         end
--- a/level1/modules/boot_idelba.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/boot_idelba.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,23 +3,29 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-* ?      Disassembled                                   AD  94/06/25
-* 6      Redone for IDE                                 PTB 99/08/17
-* 7      Added use of LSN bits 23-16                    BGP 02/06/27
+*   ?      1994/06/25  Alan DeKok
+* Diassembled.
+*
+*   6      1999/08/17  Paul T. Barton
+* Redone for IDE.
+*
+*   7      2002/06/27  Boisy G. Pitre
+* Added use of LSN bits 23-16.
 
          nam   Boot
          ttl   IDE Boot Module (LBA Mode)
 
-         ifp1
+         IFP1
          use   defsfile
          use   rbfdefs
-         endc
+         ENDC
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   2
+rev      set   $00
 edition  set   7
 
 * Disassembled 94/06/25 11:37:47 by Alan DeKok 
@@ -100,7 +106,7 @@
          os9   F$SRtMem   return the copy of LSN0 to free memory 
 
          ldd   btsiz,s    get size of boot memory to request 
-         IFEQ  Level-2
+         IFGT  Level-1
          os9   F$BtMem    ask for the boot memory 
          ELSE  
          os9   F$SRqMem   ask for the boot memory 
@@ -204,7 +210,7 @@
          clrb             no errors 
          puls  d,y,pc
 
-         IFEQ  Level-2
+         IFGT  Level-1
 Pad      fill  $39,$1D0-3-*
          ENDC
 
@@ -212,3 +218,4 @@
          emod  
 eom      equ   *
          end
+
--- a/level1/modules/boot_rampak.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/boot_rampak.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,20 +3,24 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-* 5      Created                                        ADK
-* 6      Fixed small bugs, improved speed               BGP 98/10/20
+*   5      ????/??/??  Alan DeKok
+* Created.
+*
+*   6      1998/10/20  Boisy G. Pitre
+* Fixed small bugs, improved speed.
 
          nam   Boot
          ttl   Disto RAMPak Boot Module
 
 * Disassembled 94/06/25 11:37:47 by Alan DeKok
 
-         ifp1  
+         IFP1  
          use   defsfile
          use   rbfdefs
-         endc  
+         ENDC  
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
@@ -66,11 +70,11 @@
          os9   F$SRtMem   return the copy of LSN0 to free memory
 
          ldd   R.X,s      get size of boot memory to request
-         ifgt  Level-1
+         IFGT  Level-1
          os9   F$BtMem    ask for the boot memory
-         else
+         ELSE
          os9   F$SRqMem   ask for the boot memory
-         endc
+         ENDC
          puls  x          restore the starting sector number
          bcs   L00AE      no memory: exit with error
 
@@ -122,9 +126,9 @@
          clrb             no errors
          puls  d,x,y,pc   restore registers and return
 
-         ifgt  Level-1
+         IFGT  Level-1
 Pad      fill  $39,$1D0-6-*
-         endc
+         ENDC
 
 Address  fdb   $FF40      address of the device to boot from
 PakSlot  fcb   $01        multipak slot number
--- a/level1/modules/boot_wd1002.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/boot_wd1002.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -7,9 +7,11 @@
 * Copyright 1988, 1989 Bruce Isted
 * All Rights Reserved
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-* 2      Created by Bruce Isted                         BRI ??/??/??
+*   2      ????/??/??  Bruce Isted
+* Created.
 
          nam   Boot
          ttl   Eliminator WD1002-05 Boot Module
@@ -28,10 +30,10 @@
 *!  $03=18mS/6.0mS  !  $07=10mS/4.0mS  !  $0B=04mS/2.0mS  !  $0F=15uS/ 35uS  !
 *+------------------+------------------+------------------+------------------+
 
-         ifp1  
+         IFP1  
          use   defsfile
          use   rbfdefs
-         endc  
+         ENDC  
 
 * These equates should not have to be changed:
 BEdtn    equ   2
@@ -326,8 +328,10 @@
          sta   WDData,y   write data to WD 1002-05
          rts   
 
-* pad Boot module out to $01D0 exactly
+         IFGT  Level-1
+* Pad Boot module out to $01D0 exactly
 Pad      fill  $39,$1D0-3-*
+         ENDC
 
          emod  
 BEnd     equ   *
--- a/level1/modules/ccdisk.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/ccdisk.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,11 +3,15 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*   4    From Tandy OS-9 Level One VR 02.00.00
-*   5    Patched to handle 6ms step rate and ds drives  BGP 02/07/14
-*        from Kissable OS-9, Rainbow, October 1988
+*   4      1985/??/??
+* From Tandy OS-9 Level One VR 02.00.00.
+*
+*   5      2002/07/14  Boisy G. Pitre
+* Patched to handle 6ms step rate and ds drives from the "Kissable OS-9"
+* column, Rainbow Magazine, October 1988.
 
          nam   CCDisk
          ttl   WD1773 disk driver for Tandy/Radio Shack controller
@@ -21,7 +25,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   5
 
 MaxDrv   set   4
--- a/level1/modules/ccdiskdesc.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/ccdiskdesc.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -18,7 +18,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
 DNum     set   0
 Type     set   TYP.CCF+TYP.5
--- a/level1/modules/cchdisk.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/cchdisk.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   4
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/ccio.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/ccio.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -17,7 +17,7 @@
 
 tylg     set   Drivr+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   12
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/clock.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/clock.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -5,12 +5,17 @@
 *
 * NOTE:  This clock is TOTALLY VALID for ALL DATES between 1900-2155
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-* 5      Tandy/Microware original version
-* 6      Modified to handle leap years properly for     BGP 99/05/03
-*        1900 and 2100 A.D.
-*        Added TC^3 SCSI/B&B RTC Clock Support          BGP 02/05/14
+*   5      1985/??/??
+* From Tandy OS-9 Level One VR 02.00.00
+*
+*   6      1999/05/03  Boisy G. Pitre
+* Modified to handle leap years properly for 1900 and 2100 A.D.
+*
+*          2002/05/14  Boisy G. Pitre
+* Added TC^3 SCSI/B&B RTC Clock Support.
 
          nam   Clock
          ttl   OS-9 Level One V2 Clock module
@@ -21,7 +26,7 @@
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   $1
+rev      set   $00
 edition  set   6
 
          mod   eom,name,tylg,atrv,ClkEnt,RTC.Base
--- a/level1/modules/clock_d64.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/clock_d64.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -17,8 +17,10 @@
          endc
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
+
          mod   eom,name,tylg,atrv,start,size
+
 u0000    rmb   0
 size     equ   .
 name     equ   *
--- a/level1/modules/co32.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/co32.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -18,7 +18,7 @@
 
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   1
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/co80.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/co80.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -18,7 +18,7 @@
 
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   2
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/dd_d64.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/dd_d64.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -8,6 +8,9 @@
 *  -     Original Dragon Data distribution version
 *
 * $Log$
+* Revision 1.3  2003/08/30 20:16:51  boisy
+* Made all modules rev 0
+*
 * Revision 1.2  2002/10/10 14:50:21  boisy
 * Added appropriate header
 *
@@ -32,8 +35,10 @@
          endc
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $02
+rev      set   $00
+
          mod   eom,name,tylg,atrv,mgrnam,drvnam
+
          fcb   $FF mode byte
          fcb   $FF extended controller address
          fdb   $FF40  physical controller address
--- a/level1/modules/ddisk.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/ddisk.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   3
 
 MaxDrv   set   4
--- a/level1/modules/drvr51.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/drvr51.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   1
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/grfo.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/grfo.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -18,7 +18,7 @@
 
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   $01
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/h0_15.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/h0_15.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -21,7 +21,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/h0_35.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/h0_35.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -21,7 +21,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/h1_15.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/h1_15.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -21,7 +21,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/h1_35.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/h1_35.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -21,7 +21,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/init.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/init.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -16,7 +16,7 @@
 
 tylg     set   Systm+$00
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,$00f8,size
 
--- a/level1/modules/ioman.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/ioman.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 * edition 11 = Stock OS-9 Level One Vr. 2.00 IOMan
 * edition 12 = IO Queue sort bug fixed, IAttach bug fixed
 edition  equ   12
--- a/level1/modules/kbvdio.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/kbvdio.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -18,7 +18,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   4
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/kernel.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/kernel.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -32,18 +32,18 @@
 *               |                                  |
 *     $0500---->|==================================|
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*  14    From Tandy OS-9 Level One VR 02.00.00
-*  15    Module validation consists only of module      BGP 02/07/21
-*        header parity check.  CRC check is not done
-*        unless D.CRC is set to 1, which is NOT the
-*        default case.  By default, D.CRC is set
-*        to 0, thus there is no CRC checking.  Speeds
-*        up module loads quite a bit.
-*        The Init module has a bit in a compatibility
-*        byte that can turn on/off CRC checking
-
+*  14      1985/??/??
+* From Tandy OS-9 Level One VR 02.00.00
+*
+*  15      2002/07/21  Boisy G. Pitre
+* Module validation consists only of module header parity check.
+* CRC check is not done unless D.CRC is set to 1, which is NOT the
+* default case.  By default, D.CRC is set to 0, thus there is no
+* CRC checking.  Speeds up module loads quite a bit. The Init module
+* has a bit in a compatibility byte that can turn on/off CRC checking
 
          nam   OS9
          ttl   OS-9 Level One V2 P1 module
@@ -55,7 +55,7 @@
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   15
 
 L0000    mod   eom,name,tylg,atrv,OS9Cold,size
--- a/level1/modules/kernelp2.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/kernelp2.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,9 +3,11 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*  10    From Tandy OS-9 Level One VR 02.00.00
+*  10      1985/??/??
+* From Tandy OS-9 Level One VR 02.00.00
 
          nam   OS9p2
          ttl   OS-9 Level One V2 P2 module
@@ -16,7 +18,7 @@
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   10
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/m1.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/m1.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/m2.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/m2.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/modpak.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/modpak.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   $0A
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/nildrv.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/nildrv.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -18,7 +18,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   3
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/p1_sc6551dragon.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/p1_sc6551dragon.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/p_bbp.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/p_bbp.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/printer.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/printer.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   10
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/rbf.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/rbf.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,9 +3,11 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*  24    From Tandy OS-9 Level One VR 02.00.00
+*  24      1985/??/??
+* From Tandy OS-9 Level One VR 02.00.00
 
          nam   RBF
          ttl   Disk file manager
@@ -19,7 +21,7 @@
 
 tylg     set   FlMgr+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   24
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/rs232.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/rs232.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   7
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/sc6551dragon.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/sc6551dragon.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,22 +3,28 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*  -     Original Dragon Data distribution version
+*   4      1985/??/??
+* From Dragon OS-9 Level One VR 02.00.00
 
          nam   ACIA51
          ttl   Serial port device driver    
 
 * Disassembled 02/04/21 22:37:41 by Disasm v1.6 (C) 1988 by RML
 
-         ifp1
+         IFP1
          use   defsfile
-         endc
+         ENDC
+
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
+edition  set   $04
+
          mod   eom,name,tylg,atrv,start,size
+
 u0000    rmb   1
 u0001    rmb   2
 u0003    rmb   1
@@ -47,10 +53,12 @@
 u0080    rmb   46
 u00AE    rmb   85
 size     equ   .
-         fcb   $03 
-name     equ   *
-         fcs   /ACIA51/
-         fcb   $04 
+
+         fcb   UPDAT.
+
+name     fcs   /ACIA51/
+         fcb   edition
+
 start    equ   *
          lbra  L002A
          lbra  L0086
@@ -369,5 +377,8 @@
          sta   <u0022,u
          clrb  
          rts   
+
          emod
 eom      equ   *
+         end
+
--- a/level1/modules/scf.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/scf.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -3,9 +3,11 @@
 *
 * $Id$
 *
-* Ed.    Comments                                       Who YY/MM/DD
+* Edt/Rev  YYYY/MM/DD  Modified by
+* Comment
 * ------------------------------------------------------------------
-*  10    From Tandy OS-9 Level One VR 02.00.00
+*  10      ????/??/??
+* From Tandy OS-9 Level One VR 02.00.00
 
          nam   SCF
          ttl   OS-9 Level One V2 SCF file manager
@@ -17,7 +19,7 @@
 
 tylg     set   FlMgr+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   10
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/ssc.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/ssc.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/sscpak.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/sscpak.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   1
 
 BusyBit  equ   %10000000  SSPak busy status bit (active low)
--- a/level1/modules/sysgo.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/sysgo.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -23,7 +23,7 @@
 
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 edition  set   15
 
          mod   eom,name,tylg,atrv,start,size
--- a/level1/modules/sysgo_d64.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/sysgo_d64.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -8,6 +8,9 @@
 *  -     Original Dragon Data distribution version
 *
 * $Log$
+* Revision 1.3  2003/08/30 20:16:51  boisy
+* Made all modules rev 0
+*
 * Revision 1.2  2002/10/10 14:50:22  boisy
 * Added appropriate header
 *
@@ -30,7 +33,7 @@
          endc
 tylg     set   Systm+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
          mod   eom,name,tylg,atrv,start,size
 dataarea rmb   200
 size     equ   .
--- a/level1/modules/t1_bbt.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/t1_bbt.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/t1_d64.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/t1_d64.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -18,8 +18,10 @@
 
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
+
          mod   eom,name,tylg,atrv,mgrnam,drvnam
+
          fcb   $03 mode byte
          fcb   $FF extended controller address
          fdb   $FF04  physical controller address
--- a/level1/modules/term32.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/term32.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/term80.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/term80.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/term_d64.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/term_d64.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -17,8 +17,10 @@
          endc
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
+
          mod   eom,name,tylg,atrv,mgrnam,drvnam
+
          fcb   $03 mode byte
          fcb   $FF extended controller address
          fdb   $C000  physical controller address
--- a/level1/modules/term_kbvdio.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/term_kbvdio.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct   
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam
 
--- a/level1/modules/term_t1.asm	Wed Aug 27 23:58:52 2003 +0000
+++ b/level1/modules/term_t1.asm	Sat Aug 30 20:16:51 2003 +0000
@@ -19,7 +19,7 @@
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev
-rev      set   $01
+rev      set   $00
 
          mod   eom,name,tylg,atrv,mgrnam,drvnam