Mercurial > hg > Members > kono > nitros9-code

changeset 175:bef0e65448d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed cc versions (now named just to cobbler.asm and os9gen.asm)
author boisy
date Fri, 12 Jul 2002 02:48:09 +0000
parents 8fd3453035a5
children 7b764774569d
files level1/cmds/cobbler_cc.asm level1/cmds/os9gen_cc.asm
diffstat 2 files changed, 0 insertions(+), 747 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/cobbler_cc.asm	Thu Jul 11 21:36:31 2002 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,279 +0,0 @@
-********************************************************************
-* Cobble - Make a bootstrap file
-*
-* $Id$
-*
-* Ed.    Comments                                       Who YY/MM/DD
-* ------------------------------------------------------------------
-* 5      Original Tandy distribution version
-
-         nam   Cobbler
-         ttl   Make a bootstrap file
-
-* Disassembled 02/07/06 23:26:00 by Disasm v1.6 (C) 1988 by RML
-
-         ifp1
-         use   defsfile
-         endc
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $01
-         mod   eom,name,tylg,atrv,start,size
-u0000    rmb   1
-DevFd    rmb   3
-BTLSN    rmb   1
-u0005    rmb   2
-BtSiz    rmb   2
-u0009    rmb   7
-sttbuf   rmb   3
-u0013    rmb   17
-u0024    rmb   2
-u0026    rmb   10
-u0030    rmb   2
-devnam   rmb   32
-u0052    rmb   16
-u0062    rmb   1
-u0063    rmb   7
-u006A    rmb   432
-size     equ   .
-name     equ   *
-         fcs   /Cobbler/
-         fcb   $05 
-L0015    fcb   C$LF
-         fcc   "Use: COBBLER </devname>"
-         fcb   C$LF
-         fcc   "     to create a new system disk"
-         fcb   C$CR
-L004F    fcb   C$LF
-         fcc   "Error writing kernel track"
-         fcb   C$CR
-L006B    fcb   C$LF
-         fcc   "Error - cannot gen to hard disk"
-         fcb   C$CR
-L008C    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
-L00CF    fcb   C$LF
-         fcc   "Error - OS9boot file fragmented"
-         fcb   C$CR
-BfNam    fcc   "OS9Boot "
-         fcb   $FF 
-
-start    equ   *
-         clrb  
-         lda   #'/
-         cmpa  ,x
-         lbne  Usage
-         os9   F$PrsNam 
-         lbcs  Usage
-         lda   #'/
-         cmpa  ,y
-         lbeq  Usage
-         leay  <devnam,u
-L0114    sta   ,y+
-         lda   ,x+
-         decb  
-         bpl   L0114
-         sty   <u0030
-         lda   #'@
-         ldb   #$20
-         std   ,y++
-         leax  <devnam,u
-         lda   #UPDAT.
-         os9   I$Open   
-         sta   <DevFd
-         lbcs  Usage
-         ldx   <u0030
-         leay  >BfNam,pcr
-         lda   #'/
-L013A    sta   ,x+
-         lda   ,y+
-         bpl   L013A
-         lda   <DevFd
-         leax  <sttbuf,u
-         ldb   #$00
-         os9   I$GetStt 
-         lbcs  Exit
-         leax  <sttbuf,u
-         lda   <u0013,u
-         bpl   L015E
-         leax  >L006B,pcr
-         clrb  
-         lbra  wrerr
-L015E    lda   <DevFd
-         pshs  u
-         ldx   #$0000
-         ldu   #$0015   probably DD.BT
-         os9   I$Seek   
-         puls  u
-         lbcs  Exit
-         leax  BTLSN,u
-         ldy   #$0005
-         os9   I$Read    Read bootstrap sector + size = 5 bytes
-         lbcs  Exit
-         ldd   <BtSiz
-         beq   L0193
-         leax  <devnam,u
-         os9   I$Delete 
-         clra  
-         clrb  
-         sta   <BTLSN
-         std   <u0005
-         std   <BtSiz
-         lbsr  UpLSN0
-L0193    lda   #WRITE.
-         ldb   #UPDAT.
-         leax  <devnam,u
-         os9   I$Create 
-         sta   <u0000
-         lbcs  Exit
-         ldd   >$0068
-         subd  >$0066
-         tfr   d,y
-         std   <BtSiz
-         ldx   >$0066
-         lda   <u0000
-         os9   I$Write  
-         lbcs  Exit
-         leax  <sttbuf,u
-         ldb   #SS.OPT
-         os9   I$GetStt 
-         lbcs  Exit
-         lda   <u0000
-         os9   I$Close  
-         lbcs  Usage
-         pshs  u
-         ldx   <u0024,u
-         lda   <u0026,u
-         clrb  
-         tfr   d,u
-         lda   <DevFd
-         os9   I$Seek   
-         puls  u
-         lbcs  Exit
-         leax  <u0052,u
-         ldy   #$0100
-         os9   I$Read   
-         lbcs  Exit
-         ldd   <u006A,u
-         lbne  Fragd
-         ldb   <u0062,u
-         stb   <BTLSN
-         ldd   <u0063,u
-         std   <u0005
-         lbsr  UpLSN0
-         lbsr  SkLSN1
-         leax  <u0052,u
-         ldy   #$0100
-         os9   I$Read   
-         lbcs  wrerr
-         leax  <u0052,u
-         lda   <$4C,x
-         bita  #$0F
-         beq   L0273
-         lda   <DevFd
-         pshs  u
-         ldx   #$0002
-         ldu   #$6400
-         os9   I$Seek      Jump to LSN 612
-         puls  u
-         leax  u0009,u
-         ldy   #$0007
-         os9   I$Read   
-         lbcs  L02ED
-         leax  u0009,u
-         ldd   ,x
-         cmpa  #$4F
-         lbne  L02ED
-         cmpb  #$53
-         lbne  L02ED
-         lda   $04,x
-         cmpa  #$12
-         beq   L025C
-         lda   <$4E,x
-         bita  #$1C
-         lbne  L02ED
-L025C    lda   <$4C,x
-         ora   #$0F
-         sta   <$4C,x
-         lda   #$FF
-         sta   <$4D,x
-         lda   <$4E,x
-         ora   #$FC
-         sta   <$4E,x
-         bra   L028C
-L0273    ora   #$0F
-         sta   <$4C,x
-         tst   <$4D,x
-         bne   L02ED
-         com   <$4D,x
-         lda   <$4E,x
-         bita  #$FC
-         bne   L02ED
-         ora   #$FC
-         sta   <$4E,x
-L028C    bsr   SkLSN1
-         leax  <u0052,u
-         ldy   #$0064
-         os9   I$Write  
-         bcs   wrerr
-         pshs  u
-         ldx   #$0002
-         ldu   #$6400
-         os9   I$Seek   Jump to LSN 612
-         puls  u
-         ldx   #$EF00    Address of kernel in RAM
-         ldy   #$0F80    Amount to write
-         os9   I$Write  
-         bcs   ETrack
-         os9   I$Close  
-         bcs   Usage
-         clrb  
-         bra   Exit
-
-SkLSN1   pshs  u
-         lda   <DevFd
-         ldx   #$0000
-         ldu   #$0100
-         os9   I$Seek   Seek to allocation map at LSN 1
-         puls  pc,u
-
-Usage    leax  >L0015,pcr
-wrerr    pshs  b
-         lda   #$02
-         ldy   #$0100
-         os9   I$WritLn 
-         comb  
-         puls  b
-Exit     os9   F$Exit   
-
-Fragd    leax  >L00CF,pcr
-         clrb  
-         bra   wrerr
-
-ETrack   leax  >L004F,pcr
-         clrb  
-         bra   wrerr
-
-L02ED    leax  >L008C,pcr
-         clrb  
-         bra   wrerr
-
-UpLSN0   pshs  u
-         ldx   #$0000
-         ldu   #$0015   probably DD.BT
-         lda   <DevFd
-         os9   I$Seek   
-         puls  u
-         bcs   Exit
-         leax  BTLSN,u
-         ldy   #$0005
-         os9   I$Write  
-         bcs   Exit
-         rts   
-         emod
-eom      equ   *
--- a/level1/cmds/os9gen_cc.asm	Thu Jul 11 21:36:31 2002 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,468 +0,0 @@
-********************************************************************
-* OS9gen - Build and Link a Bootstrap File
-*
-* $Id$
-*
-* Ed.    Comments                                       Who YY/MM/DD
-* ------------------------------------------------------------------
-*  7     Original Tandy distribution version
-*
-* OS9gen is hardware dependent. On COCO the track to write is 34
-
-         nam   OS9gen
-         ttl   Build and Link a Bootstrap File
-
-* Disassembled 02/07/06 22:40:22 by Disasm v1.6 (C) 1988 by RML
-
-         ifp1
-         use   defsfile
-         endc
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $01
-         mod   eom,name,tylg,atrv,start,size
-u0000    rmb   2
-u0002    rmb   1
-DevFd    rmb   1
-u0004    rmb   1
-u0005    rmb   1
-u0006    rmb   2
-u0008    rmb   1
-u0009    rmb   2
-u000B    rmb   2
-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
-size     equ   .
-name     equ   *
-         fcs   /OS9gen/
-         fcb   $07 
-L0014    fcb   C$LF
-         fcc   "Use (CAUTION): OS9GEN </devname> [-s]"
-         fcb   C$LF
-         fcc   " ..reads (std input) pathnames until EOF,"
-         fcb   C$LF
-         fcc   "   merging paths into New OS9Boot file."
-         fcb   C$LF
-         fcc   " -s = single drive operation"
-         fcb   C$LF
-         fcb   C$CR
-         fcc   "Can't find: "
-L00B7    fcb   C$LF
-         fcc   "Error writing kernel track"
-         fcb   C$CR
-L00D3    fcb   C$LF
-         fcc   "Error - cannot gen to hard disk"
-         fcb   C$CR
-L00F4    fcb   C$CR
-L00F5    fcb   $07 
-L00F6    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
-         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 "
-         fcb   $FF 
-L01B2    fcc   "OS9Boot"
-         fcb   C$CR
-         fcb   $FF 
-
-start    equ   *
-         clrb  
-         stb   <u0005
-         stb   <u003C
-         stu   <u0000
-         leas  >u0200,u
-         pshs  u
-         tfr   y,d
-         subd  ,s++
-         subd  #$0200
-         clrb  
-         std   <u0011
-         lda   #$2F
-         cmpa  ,x
-         lbne  L0503
-         os9   F$PrsNam 
-         lbcs  L0503
-         lda   #$2F
-         cmpa  ,y
-         lbeq  L0503
-         pshs  b,a
-L01EB    lda   ,y+
-         cmpa  #$2D
-         beq   L01F7
-         cmpa  #$0D
-         beq   L0209
-         bra   L01EB
-L01F7    ldd   ,y+
-         eora  #$53
-         anda  #$DF
-         lbne  L0503
-         cmpb  #$30
-         lbcc  L0503
-         inc   <u003C
-L0209    puls  b,a
-         leay  <u003D,u
-L020E    sta   ,y+
-         lda   ,x+
-         decb  
-         bpl   L020E
-         sty   <u003A
-         lda   #'@
-         ldb   #$20
-         std   ,y++
-         lda   #$01
-         lbsr  L0517
-         leax  <u003D,u
-         lda   #$03
-         os9   I$Open   
-         sta   <DevFd
-         lbcs  L0503
-         leax  <u001A,u
-         ldb   #$00
-         os9   I$GetStt 
-         lbcs  L0514
-         leax  <u001A,u
-         lda   <u001D,u
-         bpl   L024D
-         clrb  
-         leax  >L00D3,pcr
-         lbra  L0507
-L024D    ldx   <u003A
-         leay  >L01A8,pcr
-         lda   #$2F
-L0255    sta   ,x+
-         lda   ,y+
-         bpl   L0255
-         leay  >L01B2,pcr
-L025F    lda   ,y+
-         sta   ,x+
-         bpl   L025F
-         tfr   x,d
-         leax  <u003D,u
-         pshs  x
-         subd  ,s++
-         std   <u000D
-         lda   #$02
-         ldb   #$03
-         os9   I$Create 
-         sta   <u0002
-         lbcs  L0514
-         ldx   #$0000
-         stx   <u0006
-         ldu   #$3000
-         ldb   #SS.Size
-         os9   I$SetStt 
-         lbcs  L0514
-         ldu   <u0000
-         lda   #$00
-         lbsr  L0517
-L0295    clra  
-         leax  >u0200,u
-         ldy   #$0400
-         os9   I$ReadLn 
-         bcs   L0322
-         lda   ,x
-         ldb   #$D3
-         cmpa  #$0D
-         beq   L0322
-         lda   #$01
-         os9   I$Open   
-         bcs   L0310
-         sta   <u0004
-         tst   <u003C
-         beq   L02E2
-         lda   #$01
-         lbsr  L0517
-         lda   <DevFd
-         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
-         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
-         lda   <u0002
-         os9   I$GetStt 
-         lbcs  L0514
-         lda   <u0002
-         ldx   #$0000
-         ldu   <u0006
-         ldb   #SS.Size
-         os9   I$SetStt 
-         lbcs  L0514
-         ldu   <u0000
-         os9   I$Close  
-         lbcs  L0503
-         ldx   <u002E,u
-         lda   <u0030,u
-         clrb  
-         tfr   d,u
-         lda   <DevFd
-         os9   I$Seek   
-         ldu   <u0000
-         lbcs  L0514
-         leax  >u0200,u
-         ldy   #$0100
-         os9   I$Read   
-         lbcs  L0514
-         ldd   >u0218,u
-         lbne  L0577
-         lda   <DevFd
-         ldx   #$0000
-         ldu   #$0015
-         os9   I$Seek   
-         ldu   <u0000
-         lbcs  L0514
-         leax  u0008,u
-         ldy   #$0005
-         os9   I$Read   
-         lbcs  L0514
-         ldd   <u000B
-         beq   L03C1
-         ldx   <u003A
-         leay  >L01B2,pcr
-         lda   #$2F
-L03A7    sta   ,x+
-         lda   ,y+
-         bpl   L03A7
-         leax  <u003D,u
-         os9   I$Delete 
-         ldx   <u003A
-         leay  >L01A8,pcr
-         lda   #$2F
-L03BB    sta   ,x+
-         lda   ,y+
-         bpl   L03BB
-L03C1    tst   <u003C
-         beq   L03E1
-         lda   #$00
-         lbsr  L0517
-         clra  
-         leax  >L01A1,pcr
-         os9   F$Load   
-         lbcs  L0514
-         tfr   u,d
-         ldu   <u0000
-         std   u000F,u
-         lda   #$01
-         lbsr  L0517
-L03E1    lda   #$01
-         clrb  
-         leax  >L01A1,pcr
-         ldy   <u000D
-         leau  <u003D,u
-         os9   F$Fork   
-         lbcs  L0514
-         os9   F$Wait   
-         lbcs  L0514
-         tstb  
-         lbne  L0514
-         tst   <u003C
-         beq   L0412
-         ldu   <u0000
-         ldd   u000F,u
-         tfr   d,u
-         os9   F$UnLink 
-         lbcs  L0514
-L0412    ldu   <u0000
-         ldb   >u0210,u
-         stb   <u0008
-         ldd   >u0211,u
-         std   <u0009
-         ldd   <u0006
-         std   <u000B
-         ldx   #$0000
-         ldu   #$0015
-         lda   <DevFd
-         os9   I$Seek   
-         ldu   <u0000
-         lbcs  L0514
-         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
-         pshs  u
-         ldx   #$0002
-         ldu   #$6400
-         os9   I$Seek   
-         puls  u
-         leax  <u0013,u
-         ldy   #$0007
-         os9   I$Read   
-         lbcs  L058D
-         leax  <u0013,u
-         ldd   ,x
-         cmpa  #$4F
-         lbne  L058D
-         cmpb  #$53
-         lbne  L058D
-         lda   $04,x
-         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
-         sta   <$4E,x
-         bra   L04CB
-L04AE    ora   #$0F
-         sta   <$4C,x
-         tst   <$4D,x
-         lbne  L058D
-         com   <$4D,x
-         lda   <$4E,x
-         bita  #$FC
-         lbne  L058D
-         ora   #$FC
-         sta   <$4E,x
-L04CB    lbsr  L057E
-         leax  >u0200,u
-         ldy   #$0064
-         os9   I$Write  
-         bcs   L0507
-         pshs  u
-         ldx   #$0002
-         ldu   #$6400
-         os9   I$Seek   
-         puls  u
-         ldx   #$EF00    Address of kernel in RAM
-         ldy   #$0F80    Amount to write
-         os9   I$Write  
-         bcs   L04FC
-         os9   I$Close  
-         bcs   L0503
-         clrb  
-         bra   L0514
-L04FC    leax  >L00B7,pcr
-         clrb  
-         bra   L0507
-L0503    leax  >L0014,pcr
-L0507    pshs  b
-         lda   #$02
-         ldy   #$0100
-         os9   I$WritLn 
-         puls  b
-L0514    os9   F$Exit   
-L0517    tst   <u003C
-         beq   L055F
-         pshs  y,x
-L051D    pshs  a
-         tsta  
-         bne   L052C
-         leax  >L015A,pcr
-         ldy   #$0021
-         bra   L0534
-L052C    leax  >L017B,pcr
-         ldy   #$0026
-L0534    bsr   L0560
-         leax  ,-s
-         ldy   #$0001
-         lda   #$02
-         os9   I$Read   
-         lda   ,s+
-         eora  #$43
-         anda  #$DF
-         beq   L0559
-         leax  >L00F5,pcr
-         ldy   #$0001
-         bsr   L0560
-         bsr   L0566
-         puls  a
-         bne   L051D
-L0559    bsr   L0566
-         puls  a
-         puls  y,x
-L055F    rts   
-L0560    lda   #$01
-         os9   I$WritLn 
-         rts   
-L0566    pshs  y,x,a
-         lda   #$01
-         leax  >L00F4,pcr
-         ldy   #$0050
-         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
-
-L058D    leax  >L00F6,pcr
-         clrb  
-         lbra  L0507
-         emod
-eom      equ   *