# HG changeset patch
# User boisy
# Date 1027174813 0
# Node ID 9e9648e1729888e2c134c78f3ff619e58026eb84
# Parent  8537883cc963c45350173ab0350ef44f77a724f7
Additional source improvements

diff -r 8537883cc963 -r 9e9648e17298 level1/modules/aciapak.asm
--- a/level1/modules/aciapak.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/aciapak.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -48,10 +48,11 @@
 u007E    rmb   2
 u0080    rmb   128
 size     equ   .
-         fcb   $03 
+
+         fcb   UPDAT.
 
 name     fcs   /ACIAPAK/
-         fcb   $0A 
+         fcb   edition
 
 start    lbra  Init
          lbra  Read
@@ -60,7 +61,7 @@
          lbra  SetStat
          lbra  Term
 
-IRQPckt  fcb   $00,$80,$0a
+IRQPckt  fcb   $00,$80,$0A
 
 * Driver supplied D.FIRQ routine
 FIRQRtn  tst   ,s
@@ -189,13 +190,13 @@
          ldx   <D.Proc
          ldb   <P$Signal,x
          beq   L0118
-         cmpb  #$03
+         cmpb  #S$Intrpt
          bls   L012E
 L0118    clra
          lda   P$State,x
          bita  #Condem
          bne   L012E
-         ldb   #$DC
+         ldb   #E$HangUp
          lda   V.ERR,u
          bita  #$20
          bne   L0129
@@ -408,8 +409,8 @@
          beq   L02EC
          ldx   <V.PDLHd,u
          beq   L0286
-L027E    inc   <$3F,x
-         ldx   <$3D,x
+L027E    inc   <PD.PST,x
+         ldx   <PD.PLP,x
          bne   L027E
 L0286    lda   #$20
          bsr   L02F6
@@ -527,11 +528,11 @@
          rts   
 L0385    ldx   V.DEV2,u
          beq   L032A
-         sta   $08,x
+         sta   V.PAUS,x
          bra   L032A
-L038D    ldb   #$03
+L038D    ldb   #S$Intrpt
          bra   L0393
-L0391    ldb   #$02
+L0391    ldb   #S$Abort
 L0393    pshs  a
          lda   V.LPRC,u
          lbsr  L02E5
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/ccdisk.asm
--- a/level1/modules/ccdisk.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/ccdisk.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -46,7 +46,7 @@
 DevStRg  rmb   1
 size     equ   .
 
-         fcb   $FF
+         fcb   DIR.+SHARE.+PREAD.+PWRIT.+PEXEC.+READ.+WRITE.+EXEC.
 
 name     fcs   /CCDisk/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/cchdisk.asm
--- a/level1/modules/cchdisk.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/cchdisk.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -51,7 +51,8 @@
 u00BF    rmb   2
 u00C1    rmb   2
 size     equ   .
-         fcb   $FF
+
+         fcb   DIR.+SHARE.+PREAD.+PWRIT.+PEXEC.+READ.+WRITE.+EXEC.
 
 name     fcs   /CCHDisk/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/ccio.asm
--- a/level1/modules/ccio.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/ccio.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -87,7 +87,7 @@
 u007A    rmb   128
 size     equ   .
 
-         fcb   $07
+         fcb   UPDAT.+EXEC.
 
 name     fcs   /CCIO/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/modpak.asm
--- a/level1/modules/modpak.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/modpak.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -46,7 +46,8 @@
 u0081    rmb   45
 u00AE    rmb   82
 size     equ   .
-         fcb   $03 
+
+         fcb   UPDAT.
 
 name     fcs   /MODPAK/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/nildrv.asm
--- a/level1/modules/nildrv.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/nildrv.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -25,7 +25,8 @@
 
 u0000    rmb   6
 size     equ   .
-         fcb   $03 
+
+         fcb   UPDAT.
 
 name     fcs   /NilDrv/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/piper.asm
--- a/level1/modules/piper.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/piper.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -25,7 +25,8 @@
 
 u0000    rmb   6
 size     equ   .
-         fcb   $03 
+
+         fcb   UPDAT.
 
 name     fcs   /Piper/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/printer.asm
--- a/level1/modules/printer.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/printer.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -35,7 +35,8 @@
 u0026    rmb   2
 u0028    rmb   1
 size     equ   .
-         fcb   $03
+
+         fcb   UPDAT.
 
 name     fcs   /PRINTER/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/rs232.asm
--- a/level1/modules/rs232.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/rs232.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -33,7 +33,8 @@
 u0024    rmb   1
 u0025    rmb   1
 size     equ   .
-         fcb   $03 
+
+         fcb   UPDAT.
 
 name     fcs   /RS232/
          fcb   edition
diff -r 8537883cc963 -r 9e9648e17298 level1/modules/sysgo.asm
--- a/level1/modules/sysgo.asm	Sat Jul 20 05:22:50 2002 +0000
+++ b/level1/modules/sysgo.asm	Sat Jul 20 14:20:13 2002 +0000
@@ -8,6 +8,8 @@
 *  12    From Tandy OS-9 Level One VR 02.00.00
 *  13    Incremented version number to reflect Y2K      BGP 99/05/11
 *        fixes
+*  14    Updated to reflect new release, changed /H0    BGP 02/07/19
+*        to /DD
 
          nam   SysGo
          ttl   OS-9 Level One 2 SysGo
@@ -20,7 +22,7 @@
 tylg     set   Systm+Objct
 atrv     set   ReEnt+rev
 rev      set   $01
-edition  set   13
+edition  set   14
 
          mod   eom,name,tylg,atrv,start,size
 
@@ -40,6 +42,8 @@
          fcc   ".0"
          fcb   48+OS9Minor
          fdb   C$CR,C$LF
+         fcc   "COPR. 2002 ACADIAN EMBEDDED"
+         fdb   C$CR,C$LF
          fcc   "COPR. 1980 BY MOTOROLA INC. AND"
          fdb   C$CR,C$LF
          fcc   "MICROWARE SYSTEMS CORP."
@@ -51,26 +55,26 @@
          fcb   C$LF
 MsgEnd   equ   *
 
-ChdDev   fcc   "/H0"
+ChdDev   fcc   "/DD"
          fcb   C$CR
-ChxDev   fcc   "/H0/"
-ChxPath  fcc   "Cmds"
+ChxDev   fcc   "/DD/"
+ChxPath  fcc   "CMDS"
          fcb   C$CR
          fcc   ",,,,,,,,,,"
 
 Shell    fcc   "Shell"
          fcb   C$CR
 
-         fcc   "TSMON"
+         fcc   "tsmon"
          fcb   C$CR
-Startup  fcc   "STARTUP -P"
+Startup  fcc   "startup -p"
          fcb   C$CR
          fcc   ",,,,,,,,,,"
 StartupL equ   *-Startup
 
 * Default time packet
 *              YY MM DD HH MM SS
-TimePckt fcb   85,06,01,00,00,00
+TimePckt fcb   102,08,01,00,00,00
 
 * BASIC reset code
 BasicRst fcb   $55