Mercurial > hg > Members > kono > nitros9-code
changeset 924:c155aac72190
Made cosmetic changes
line wrap: on
line diff
--- a/level1/cmds/cobbler.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/cobbler.asm Sun Jan 19 14:54:09 2003 +0000 @@ -14,10 +14,10 @@ * Disassembled 02/07/06 13:08:41 by Disasm v1.6 (C) 1988 by RML - ifp1 + IFP1 use defsfile use rbfdefs - endc + ENDC DOHELP set 0 @@ -31,28 +31,29 @@ mod eom,name,tylg,atrv,start,size -LSN0Buff rmb 26 -NewBPath rmb 1 -DevPath rmb 3 + org 0 +lsn0buff rmb 26 +newbpath rmb 1 +devpath rmb 3 u001E rmb 2 -FullBName rmb 20 this buffer hodls the entire name (i.e. /D0/OS9Boot) +fullbnam rmb 20 this buffer hodls the entire name (i.e. /D0/OS9Boot) u0034 rmb 16 u0044 rmb 7 u004B rmb 2 u004D rmb 1 u004E rmb 16 -PathOpts rmb 20 +pathopts rmb 20 u0072 rmb 2 u0074 rmb 10 -BFFDBuf rmb 16 +bffdbuf rmb 16 u008E rmb 1 u008F rmb 7 u0096 rmb 232 -BitMBuf rmb 1024 - ifgt Level-1 +bitmbuf rmb 1024 + IFGT Level-1 u057E rmb 76 u05CA rmb 8316 - endc + ENDC size equ . name fcs /Cobbler/ @@ -84,11 +85,11 @@ BootFrag fcb C$LF fcc "Error - OS9boot file fragmented" fcb C$CR - ifgt Level-1 + IFGT Level-1 RelMsg fcb C$LF fcc "Error - can't link to Rel module" fcb C$CR - endc + ENDC BootName fcc "OS9Boot " fcb $FF RelNam fcc "Rel" @@ -103,7 +104,7 @@ lda #PDELIM cmpa ,y lbeq ShowHelp - leay <FullBName,u + leay <fullbnam,u L013C sta ,y+ lda ,x+ decb @@ -112,10 +113,10 @@ lda #PENTIR ldb #C$SPAC std ,y++ - leax <FullBName,u + leax <fullbnam,u lda #UPDAT. os9 I$Open - sta <DevPath + sta <devpath lbcs ShowHelp ldx <u001E leay >BootName,pcr @@ -128,18 +129,18 @@ clrb tfr d,x tfr d,u - lda <DevPath + lda <devpath os9 I$Seek seek to 0 lbcs Bye puls u - leax LSN0Buff,u + leax lsn0buff,u ldy #DD.DAT $1A - lda <DevPath + lda <devpath os9 I$Read read LSN0 lbcs Bye ldd <DD.BSZ get size of bootfile currently beq L019F branch if none - leax <FullBName,u + leax <fullbnam,u os9 I$Delete delete existing bootfile clra clrb @@ -149,12 +150,12 @@ lbsr WriteLSN0 L019F lda #WRITE. ldb #READ.+WRITE. - leax <FullBName,u + leax <fullbnam,u os9 I$Create create new bootfile - sta <NewBPath + sta <newbpath lbcs Bye branch if error - ifgt Level-1 + IFGT Level-1 * OS-9 Level Two: Copy first 90 bytes of system direct page into our space * so we can figure out boot location and size, then copy to our space leax >L0015,pcr @@ -196,7 +197,7 @@ puls u ldy ,s leax >u057E,u - lda <NewBPath + lda <newbpath os9 I$Write lbcs Bye puls b,a @@ -212,7 +213,7 @@ bne L01F7 leas $04,s - else + ELSE * OS-9 Level One: Write out bootfile ldd >D.BTHI get bootfile size @@ -220,48 +221,48 @@ tfr d,y in D, tfr to Y std <DD.BSZ save it ldx >D.BTLO get pointer to boot in mem - lda <NewBPath + lda <newbpath os9 I$Write write out boot to file lbcs Bye - endc + ENDC - leax <PathOpts,u + leax <pathopts,u ldb #SS.Opt - lda <NewBPath + lda <newbpath os9 I$GetStt lbcs Bye - lda <NewBPath + lda <newbpath os9 I$Close lbcs ShowHelp pshs u - ldx <PathOpts+(PD.FD-PD.OPT),u - lda <PathOpts+(PD.FD+2-PD.OPT),u + ldx <pathopts+(PD.FD-PD.OPT),u + lda <pathopts+(PD.FD+2-PD.OPT),u * Now X and A hold file descriptor sector LSN of newly created OS9Boot clrb tfr d,u - lda <DevPath + lda <devpath os9 I$Seek seek to os9boot file descriptor puls u lbcs Bye - leax <BFFDBuf,u + leax <bffdbuf,u ldy #256 os9 I$Read read in filedes sector lbcs Bye - ldd >BFFDBuf+(FD.SEG+FDSL.S+FDSL.B),u + ldd >bffdbuf+(FD.SEG+FDSL.S+FDSL.B),u lbne IsFragd branch if fragmented * Get and save bootfile's LSN - ldb >BFFDBuf+(FD.SEG),u + ldb >bffdbuf+(FD.SEG),u stb <DD.BT - ldd >BFFDBuf+(FD.SEG+1),u + ldd >bffdbuf+(FD.SEG+1),u std <DD.BT+1 lbsr WriteLSN0 lda #$00 ldb #$01 lbsr Seek2LSN - leax >BitMBuf,u + leax >bitmbuf,u ldy <DD.MAP - lda <DevPath + lda <devpath os9 I$Read read bitmap sector(s) lbcs Bye lda #$22 @@ -274,7 +275,7 @@ lbsr Seek2LSN leax <u0044,u ldy #$0007 - lda <DevPath + lda <devpath os9 I$Read lbcs Bye leax <u0044,u @@ -308,13 +309,13 @@ L0315 clra ldb #$01 lbsr Seek2LSN Seek to bitmap sector on disk - leax >BitMBuf,u + leax >bitmbuf,u ldy <DD.MAP - lda <DevPath + lda <devpath os9 I$Write write updated bitmap lbcs Bye - ifgt Level-1 + IFGT Level-1 * OS-9 Level Two: Link to Rel, which brings in boot code pshs u lda #Systm+Objct @@ -335,20 +336,20 @@ lda #$22 ldb #$00 lbsr Seek2LSN - lda <DevPath + lda <devpath ldx <u004B,u - else + ELSE * OS-9 Level One: Write out data at $EF00 lda #$22 ldb #$00 lbsr Seek2LSN - lda <DevPath + lda <devpath ldx #os9l1start ldy #os9l1size - endc + ENDC os9 I$Write lbcs WriteBad @@ -394,7 +395,7 @@ L03A7 pshs y,x,b,a bsr AbsLSN go get absolute LSN - leax >BitMBuf,u point X to our bitmap buffer + leax >bitmbuf,u point X to our bitmap buffer bsr L038C sta ,-s save off bmi L03CB @@ -435,7 +436,7 @@ puls pc,y,x,b,a L03FD pshs y,x,b,a lbsr AbsLSN get absolute LSN - leax >BitMBuf,u + leax >bitmbuf,u bsr L038C sta ,-s bmi L041C @@ -475,7 +476,7 @@ puls b clra tfr d,x - lda <DevPath + lda <devpath os9 I$Seek bcs WriteBad puls pc,u,y,x,b,a @@ -486,12 +487,12 @@ clrb tfr d,x tfr d,u - lda <DevPath + lda <devpath os9 I$Seek Seek to LSN0 puls u added for OS-9 Level One +BGP+ - leax LSN0Buff,u Point to our LSN buffer + leax lsn0buff,u Point to our LSN buffer ldy #DD.DAT - lda <DevPath + lda <devpath os9 I$Write Write to disk bcs Bye branch if error rts @@ -523,10 +524,10 @@ clrb bra L0477 - ifgt Level-1 + IFGT Level-1 NoRel leax >RelMsg,pcr bra L0477 - endc + ENDC emod eom equ *
--- a/level1/cmds/date.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/date.asm Sun Jan 19 14:54:09 2003 +0000 @@ -45,12 +45,12 @@ mod eom,name,tylg,atrv,start,size org 0 -SysYear rmb 1 -SysMonth rmb 1 -SysDay rmb 1 -SysHour rmb 1 -SysMin rmb 1 -SysSec rmb 1 +sysyear rmb 1 +sysmonth rmb 1 +sysday rmb 1 +syshour rmb 1 +sysmin rmb 1 +syssec rmb 1 u0006 rmb 2 u0008 rmb 440 size equ . @@ -73,7 +73,7 @@ fcs 'December' start pshs x - leax SysYear,u + leax sysyear,u leau u0008,u stu <u0006 os9 F$Time @@ -95,17 +95,17 @@ clrb Exit os9 F$Exit -DoTime ldb <SysHour +DoTime ldb <syshour bsr Byte2ASC - ldb <SysMin + ldb <sysmin bsr L00AB - ldb <SysSec + ldb <syssec L00AB lda #': sta ,u+ bra Byte2ASC Add2Buff leay >MonTable,pcr point to month table - ldb <SysMonth get month byte + ldb <sysmonth get month byte beq L00C4 branch if zero (illegal) cmpb #12 compare against last month of year bhi L00C4 if too high, branch @@ -114,12 +114,12 @@ decb else decrement month bne L00BD if not 0, keep going L00C4 bsr PrtStrng - ldb <SysDay + ldb <sysday bsr Byte2ASC ldd #C$COMA*256+C$SPAC get comma and space in D std ,u++ store in buffer and increment twice lda #19 - ldb <SysYear get year + ldb <sysyear get year CntyLp subb #100 bcs pr we have century we need inca
--- a/level1/cmds/dcheck.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/dcheck.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,6 +24,8 @@ edition set 5 mod eom,name,tylg,atrv,start,size + + org 0 u0000 rmb 2946 size equ .
--- a/level1/cmds/debug.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/debug.asm Sun Jan 19 14:54:09 2003 +0000 @@ -19,18 +19,19 @@ use defsfile endc +* Changable settings +NumBrkPt equ 12 number of breakpoints +BuffSiz equ $145 +UnknSiz equ 80 + tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 edition set 10 -* Changable settings -NumBrkPt equ 12 number of breakpoints -BuffSiz equ $145 -UnknSiz equ 80 - L0000 mod eom,name,tylg,atrv,start,size + org 0 curraddr rmb 2 u0002 rmb 2 u0004 rmb 2
--- a/level1/cmds/deiniz.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/deiniz.asm Sun Jan 19 14:54:09 2003 +0000 @@ -17,13 +17,13 @@ use defsfile endc +linebsiz equ 80 + tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 edition set 4 -linebsiz equ 80 - mod eom,name,tylg,atrv,start,size org 0
--- a/level1/cmds/del.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/del.asm Sun Jan 19 14:54:09 2003 +0000 @@ -27,6 +27,7 @@ mod eom,name,tylg,atrv,start,size + org 0 amode rmb 1 rmb 250 stack rmb 200
--- a/level1/cmds/deldir.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/deldir.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,6 +24,7 @@ mod eom,name,tylg,atrv,start,size + org 0 parmptr rmb 2 fpath rmb 1 what2do rmb 1
--- a/level1/cmds/drvr51.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/drvr51.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,6 +24,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1
--- a/level1/cmds/dsave.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/dsave.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 2897 size equ .
--- a/level1/cmds/echo.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/echo.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 450 size equ .
--- a/level1/cmds/edit.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/edit.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ L0000 mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1
--- a/level1/cmds/error.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/error.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ L0000 mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1
--- a/level1/cmds/exbin.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/exbin.asm Sun Jan 19 14:54:09 2003 +0000 @@ -25,6 +25,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 2
--- a/level1/cmds/format.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/format.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,33 +24,34 @@ mod eom,name,tylg,atrv,start,size -SavedU rmb 2 -DiskPath rmb 1 -CurrTrak rmb 2 + org 0 +savedu rmb 2 +diskpath rmb 1 +currtrak rmb 2 u0005 rmb 2 -CurrSct rmb 1 +currsect rmb 1 u0008 rmb 1 u0009 rmb 1 u000A rmb 2 u000C rmb 2 u000E rmb 2 -MFM rmb 1 +mfm rmb 1 u0011 rmb 1 T4896 rmb 1 u0013 rmb 1 u0014 rmb 1 -NCyls rmb 2 +ncyls rmb 2 u0017 rmb 1 u0018 rmb 1 -Sectors rmb 1 +sectors rmb 1 u001A rmb 1 -Sectors0 rmb 1 +sectors0 rmb 1 u001C rmb 1 -DType rmb 1 +dtype rmb 1 u001E rmb 1 u001F rmb 1 u0020 rmb 1 -Interlv rmb 1 +interlv rmb 1 u0022 rmb 2 u0024 rmb 1 u0025 rmb 1 @@ -80,9 +81,9 @@ u0043 rmb 1 u0044 rmb 1 u0045 rmb 1 -DTEntry rmb 2 +dtentry rmb 2 u0048 rmb 1 -STOff rmb 2 +stoff rmb 2 u004B rmb 1 u004C rmb 1 u004D rmb 1 @@ -96,14 +97,14 @@ u008F rmb 40 u00B7 rmb 14 u00C5 rmb 12 -TimePkt rmb 5 +timepkt rmb 5 u00D6 rmb 18 u00E8 rmb 14 u00F6 rmb 177 u01A7 rmb 2 u01A9 rmb 2 u01AB rmb 12 -OptBuf rmb 256 +optbuf rmb 256 u02B7 rmb 3 u02BA rmb 9924 u297E rmb 451 @@ -202,7 +203,7 @@ fcb $01 fcb $54 T -start stu <SavedU +start stu <savedu bsr ClrWork cleark work area bsr OpenDev get device name and open it bsr Default @@ -212,11 +213,11 @@ lbsr Access lbsr Stamps lbsr L0843 - ldu <DTEntry + ldu <dtentry os9 I$Detach clrb L00BB os9 F$Exit -ClrWork leay DiskPath,u +ClrWork leay diskpath,u pshs y leay >u00B7,u ClrOne clr ,-y @@ -246,8 +247,8 @@ clra os9 I$Attach lbcs L0961 - stu <DTEntry - ldu <SavedU + stu <dtentry + ldu <savedu lda #PENTIR ldb #C$SPAC std ,y @@ -255,7 +256,7 @@ leax <u004F,u os9 I$Open bcs L00BB - sta <DiskPath + sta <diskpath rts Default bsr GetOpts @@ -263,7 +264,7 @@ lbsr L025E rts -GetOpts leax >OptBuf,u +GetOpts leax >optbuf,u clrb os9 I$GetStt bcs L00BB @@ -274,7 +275,7 @@ beq L0143 tfr b,a anda #$0F - sta <STOff + sta <stoff lsrb lsrb lsrb @@ -283,7 +284,7 @@ L0143 ldb PD.DNS-PD.OPT,x pshs b andb #DNS.MFM - stb <MFM + stb <mfm stb <u0011 ldb ,s lsrb @@ -299,17 +300,17 @@ stb <u004D beq L0169 stb <u004B - clr <STOff + clr <stoff L0169 ldd PD.CYL-PD.OPT,x - std <NCyls + std <ncyls ldb PD.TYP-PD.OPT,x - stb <DType + stb <dtype ldd PD.SCT-PD.OPT,x - std <Sectors + std <sectors ldd PD.T0S-PD.OPT,x - std <Sectors0 + std <sectors0 ldb PD.ILV-PD.OPT,x - stb <Interlv + stb <interlv ldb #$01 stb <u0027 clrb @@ -384,7 +385,7 @@ bgt L01FE cmpb <u004C blt L01FE - stb <MFM + stb <mfm clrb DoComa @@ -436,7 +437,7 @@ DoSQuote lbsr L092C ldd <u001F - std <NCyls + std <ncyls rts DoColon lbsr L092C @@ -444,7 +445,7 @@ tsta beq L0243 ldb #$01 -L0243 stb <Interlv +L0243 stb <interlv rts lbsr L092C ldd <u001F @@ -462,12 +463,12 @@ L025D rts L025E leax >Title,pcr lbsr L02E2 - leay >OptBuf,u + leay >optbuf,u ldx PD.T0S-PD.OPT,y - tst <MFM + tst <mfm beq L0271 ldx PD.SCT-PD.OPT,y -L0271 stx <Sectors +L0271 stx <sectors leax >FmtMsg,pcr ldy #FmtMLen lbsr L02E6 @@ -485,7 +486,7 @@ sta -$01,y lda <u001E bne L02BC - tst <DType + tst <dtype bpl L02AB leax >HDFmt,pcr ldy #$002A @@ -496,7 +497,7 @@ anda #$DF cmpa #'Y bne L02D5 -L02BC tst <DType +L02BC tst <dtype bpl L025D leax >HDFmt,pcr ldy #$0038 @@ -529,7 +530,7 @@ GetDTyp leax >L001A,pcr stx <u000A - ldb <DType + ldb <dtype bitb #TYP.HARD+TYP.NSF bne L0323 tst <u004D @@ -537,7 +538,7 @@ leax >L0076,pcr bra L032D L031B leax >L0020,pcr - tst <MFM + tst <mfm beq L032D L0323 stx <u000A leax >L0049,pcr @@ -549,17 +550,17 @@ ldb <u0013 tfr d,y clrb - ldx <NCyls + ldx <ncyls bsr L0379 exg d,x subd #$0001 bcc L0344 leax -$01,x L0344 exg d,x - ldy <Sectors + ldy <sectors bsr L0379 exg d,x - addd <Sectors0 + addd <sectors0 std <u0025 exg d,x adcb #$00 @@ -625,7 +626,7 @@ Format tst <u004E bne L03E4 - tst <DType + tst <dtype bpl L03E5 leax >Both,pcr ldy #BothLen @@ -636,28 +637,28 @@ cmpa #'N bne Format L03E4 rts -L03E5 lda <DiskPath +L03E5 lda <diskpath ldb #SS.Reset os9 I$SetStt lbcs L00BB ldd #$0000 - std <CurrTrak + std <currtrak inca - sta <CurrSct + sta <currsect L03F8 clr <u0005 L03FA bsr L045C leax >u00B7,u - ldd <CurrTrak + ldd <currtrak addd <u0048 tfr d,u clrb tst <u004D bne L041B - tst <MFM + tst <mfm beq L041D tst <u004C bne L041B - tst <CurrTrak+1 + tst <currtrak+1 bne L041B tst <u0005 beq L041D @@ -669,20 +670,20 @@ beq L0429 orb #$01 L0429 tfr d,y - lda <DiskPath + lda <diskpath ldb #SS.WTrk os9 I$SetStt lbcs L00BB - ldu <SavedU + ldu <savedu ldb <u0005 incb stb <u0005 cmpb <u0013 bcs L03FA - ldd <CurrTrak + ldd <currtrak addd #$0001 - std <CurrTrak - cmpd <NCyls + std <currtrak + cmpd <ncyls bcs L03F8 rts L044E ldy <u000E @@ -692,7 +693,7 @@ deca bne L0455 bra L0451 -L045C lda <DType +L045C lda <dtype bita #$C0 beq L046C ldy <u000C @@ -701,7 +702,7 @@ L046B rts L046C ldy <u000C ldb <u001A - tst <CurrTrak+1 + tst <currtrak+1 bne L047E tst <u0005 bne L047E @@ -736,14 +737,14 @@ ldd <u003F leay >u008F,u L04C3 leax d,x - ldd <CurrTrak+1 - adda <STOff + ldd <currtrak+1 + adda <stoff std ,x ldb <u0009 lda b,y incb stb <u0009 - ldb <CurrSct + ldb <currsect adda <u004B bcs L04E5 std $02,x @@ -757,12 +758,12 @@ lbra L06F9 L04EC pshs y,b tfr b,a - ldb <CurrTrak+1 + ldb <currtrak+1 cmpb #$01 bhi L0518 leax >u008F,u leay a,x - ldb <Interlv + ldb <interlv bne L0507 L0500 leax >AbortIlv,pcr lbra L06F9 @@ -777,7 +778,7 @@ bne L051A leas $06,s L0518 puls pc,y,b -L051A ldb <Interlv +L051A ldb <interlv abx cmpx $04,s bcs L0525 @@ -793,7 +794,7 @@ std $01,x ldb <u0024 stb ,x - ldd <Sectors + ldd <sectors std <$11,x stb $03,x lda <u0027 @@ -806,7 +807,7 @@ L054F addd #$0001 std $09,x clra - tst <MFM + tst <mfm beq L0561 ora #$02 tst <u004C @@ -824,7 +825,7 @@ std $04,x lda #$FF sta $0D,x - leax >TimePkt,u + leax >timepkt,u os9 F$Time leax >u00D6,u leay <u006F,u @@ -854,7 +855,7 @@ lda ,-x ora #$80 sta ,x -L05C7 leax >TimePkt,u +L05C7 leax >timepkt,u leay <$40,x pshs y ldd #$0000 @@ -869,7 +870,7 @@ std >u01A9,u ldd >L0018,pcr std >u01AB,u - lda <DiskPath + lda <diskpath ldb #SS.Opt leax >u00F6,u os9 I$GetStt @@ -878,26 +879,28 @@ lbcs L00BB leax >u00B7,u lbra L08A4 -Access lda <DiskPath + +Access lda <diskpath os9 I$Close leax <u004F,u lda #READ. os9 I$Open lbcs L06F5 - sta <DiskPath + sta <diskpath leax >u00B7,u ldy #256 os9 I$Read lbcs L06F5 - lda <DiskPath + lda <diskpath os9 I$Close leax <u004F,u lda #UPDAT. os9 I$Open lbcs L06F5 - sta <DiskPath + sta <diskpath rts -Stamps lda <DType + +Stamps lda <dtype clr <u0045 bita #$80 beq L0667 @@ -910,17 +913,17 @@ cmpa #$4E bne L0650 sta <u0045 -L0667 ldd <Sectors0 +L0667 ldd <sectors0 std <u0017 clra clrb std <u0036 - std <CurrTrak + std <currtrak std <u0008 std <u0032 stb <u0031 sta <u003C - leax >OptBuf,u + leax >optbuf,u stx <u0038 lbsr L089C leax >$0100,x @@ -962,7 +965,7 @@ L06CC stb <u002C L06CE tst <u0045 bne L0700 - lda <DiskPath + lda <diskpath leax >u00B7,u ldy #256 os9 I$Read @@ -991,10 +994,10 @@ bne L073A lda #$20 pshs a - lda <CurrTrak+1 + lda <currtrak+1 lbsr L07A7 pshs b,a - lda <CurrTrak + lda <currtrak lbsr L07A7 pshs b tfr s,x @@ -1005,10 +1008,10 @@ bne L0738 lbsr L02DE L0738 leas $04,s -L073A ldd <CurrTrak +L073A ldd <currtrak addd #$0001 - std <CurrTrak - ldd <Sectors + std <currtrak + ldd <sectors std <u0017 L0745 dec <u002B bne L075B @@ -1035,7 +1038,7 @@ lbra L06CE L0773 lda #$FF sta <u002A - leay >OptBuf,u + leay >optbuf,u L077B cmpy <u0038 beq L07BF bsr L0784 @@ -1053,7 +1056,7 @@ cmpx <u003A bne L07A6 bsr L0803 - leax >OptBuf,u + leax >optbuf,u stx <u0038 lbsr L089C L07A6 rts @@ -1108,7 +1111,7 @@ ldb #$01 cmpd <u0034 bne L081E - leax >OptBuf,u + leax >optbuf,u clra ldb <u002F tfr d,y @@ -1116,7 +1119,7 @@ os9 F$AllBit lbcs L06F5 L081E lbsr L08B2 - leax >OptBuf,u + leax >optbuf,u lbsr L08A4 ldd <u0024 cmpd <u0031 @@ -1175,7 +1178,7 @@ decb bne L089E rts -L08A4 lda <DiskPath +L08A4 lda <diskpath ldy #256 os9 I$Write lbcs L00BB @@ -1186,9 +1189,9 @@ lda <u0035 clrb tfr d,u -L08BC lda <DiskPath +L08BC lda <diskpath os9 I$Seek - ldu <SavedU + ldu <savedu lbcs L00BB rts L08C8 ldx <u0031 @@ -1222,7 +1225,7 @@ L090E sta ,u+ lda #C$CR sta ,u - ldu <SavedU + ldu <savedu leas $02,s leax >u00B7,u lbsr L02E2
--- a/level1/cmds/free.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/free.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,6 +24,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1
--- a/level1/cmds/go51.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/go51.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,10 +23,11 @@ mod eom,name,tylg,atrv,start,size + org 0 ioptr rmb 2 drvrptr rmb 2 drvrsiz rmb 2 -OptBuf rmb 32 +optbuf rmb 32 size equ . name fcs /go51/ @@ -86,7 +87,7 @@ bne L008B lda #$01 standard output ldb #SS.Opt option getstat - leax OptBuf,u point to buffer + leax optbuf,u point to buffer os9 I$GetStt get status bcs Bye branch if error clr (PD.UPC-PD.OPT),x
--- a/level1/cmds/grfo.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/grfo.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 0 size equ .
--- a/level1/cmds/help.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/help.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ L0000 mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1
--- a/level1/cmds/ident.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/ident.asm Sun Jan 19 14:54:09 2003 +0000 @@ -25,6 +25,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1
--- a/level1/cmds/link.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/link.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 450 size equ .
--- a/level1/cmds/load.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/load.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 450 size equ .
--- a/level1/cmds/login.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/login.asm Sun Jan 19 14:54:09 2003 +0000 @@ -27,6 +27,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 PassPath rmb 1 u0002 rmb 1
--- a/level1/cmds/makdir.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/makdir.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,8 +24,9 @@ mod eom,name,tylg,atrv,start,size -Param rmb 2 parameter area -MFlag rmb 1 made a directory yet from this pathlist? + org 0 +param rmb 2 parameter area +mflag rmb 1 made a directory yet from this pathlist? rmb 200 stack space size equ . @@ -50,8 +51,8 @@ * skip leading spaces or '/' and setup pointers start1 bsr Skip skip any non-zero characters, if applicable start2 ldb #$FF a non-zero value - stb <MFlag we haven't made a directory from this pathname yet - stx <Param save in the parameter area + stb <mflag we haven't made a directory from this pathname yet + stx <param save in the parameter area cmpa #PDELIM leading slash? bne S.020 if not, go get the name @@ -71,7 +72,7 @@ sta ,x *try to open it for reading, i.e. does it already exists? - ldx <Param get the start address of this pathname + ldx <param get the start address of this pathname lda #DIR.+READ. open the directory for reading os9 I$Open check if the directory already exists bcs S.040 if there was an error opening it, go make it @@ -79,11 +80,11 @@ bra S.050 skip making this directory * The partial pathname doesn't exist, so create it -S.040 ldx <Param get the start address of this pathname +S.040 ldx <param get the start address of this pathname ldb #^SHARE. everything but SHARE. os9 I$MakDir bcs Error - clr <MFlag clear the flag: we've successfully made a directory + clr <mflag clear the flag: we've successfully made a directory * make pathname full again, and continue S.050 puls a,x restore byte, address @@ -92,7 +93,7 @@ beq S.010 yes, make pathname full again, and find next one * searched this pathname, have we made a directory from it? - tst <MFlag have we made a directory? + tst <mflag have we made a directory? bne CEF if not, error out with fake E$CEF * check for end/continue flag
--- a/level1/cmds/merge.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/merge.asm Sun Jan 19 14:54:09 2003 +0000 @@ -21,6 +21,7 @@ mod eom,name,tylg,atrv,start,size + org 0 path rmb 1 param rmb 2 d.ptr rmb 2
--- a/level1/cmds/mfree.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/mfree.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,6 +24,7 @@ mod eom,name,tylg,atrv,start,size + org 0 fmbegin rmb 2 fmend rmb 2 u0004 rmb 1
--- a/level1/cmds/os9gen_d64.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/os9gen_d64.asm Sun Jan 19 14:54:09 2003 +0000 @@ -38,9 +38,10 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 2 u0002 rmb 1 -DevFd rmb 1 +devfd rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 2 @@ -115,7 +116,7 @@ leax <u0031,u lda #$03 os9 I$Open - sta <DevFd + sta <devfd lbcs L035B ldx <u002F leay >L0143,pcr @@ -199,7 +200,7 @@ lda <u0025,u clrb tfr d,u - lda <DevFd + lda <devfd os9 I$Seek ldu <u0000 lbcs L036C @@ -209,7 +210,7 @@ lbcs L036C ldd <u0069,u lbne L036F - lda <DevFd + lda <devfd ldx #$0000 ldu #$0015 os9 I$Seek @@ -255,7 +256,7 @@ std <u000B ldx #$0000 ldu #$0015 - lda <DevFd + lda <devfd os9 I$Seek ldu <u0000 lbcs L036C @@ -281,7 +282,7 @@ lbne L0385 ldx #os9start Address of kernel in RAM ldy #os9size Amount to write - lda <DevFd + lda <devfd os9 I$Write bcs L0354 os9 I$Close @@ -303,7 +304,7 @@ bra L035F SkLSN1 pshs u - lda <DevFd + lda <devfd ldx #$0000 ldu #$0100 os9 I$Seek Seek to allocation map at LSN 1
--- a/level1/cmds/pd.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/pd.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,11 +24,12 @@ mod eom,name,tylg,atrv,start,size + org 0 fildes rmb 1 bufptr rmb 2 -DotDotFD rmb 3 -DotFD rmb 3 -DDCopy rmb 5 +dotdotfd rmb 3 +dotfd rmb 3 +ddcopy rmb 5 dentry rmb 160 buffer rmb 1 sttbuf rmb 282 @@ -65,10 +66,10 @@ bsr open sta <fildes lbsr rdtwo - ldd <DotDotFD - std <DDCopy - lda <DotDotFD+2 - sta <DDCopy+2 + ldd <dotdotfd + std <ddcopy + lda <dotdotfd+2 + sta <ddcopy+2 L0052 bsr L00C6 beq L0079 leax >dotdot,pcr @@ -81,10 +82,10 @@ bsr rdtwo bsr L00A8 bsr L00E2 - ldd <DotDotFD - std <DDCopy - lda <DotDotFD+2 - sta <DDCopy+2 + ldd <dotdotfd + std <ddcopy + lda <dotdotfd+2 + sta <ddcopy+2 bra L0052 L0079 lbsr L00FB ldx <bufptr @@ -125,7 +126,7 @@ bcs L010F leax dentry,u leax <DIR.FD,x - leay DDCopy,u + leay ddcopy,u bsr attop bne L00A8 rts @@ -137,21 +138,21 @@ cmpa ,y L00C5 rts -L00C6 leax DotDotFD,u - leay DotFD,u +L00C6 leax dotdotfd,u + leay dotfd,u bsr attop * check if we're at the top rts rdtwo bsr read32 * read "." from directory ldd <dentry+DIR.FD - std <DotFD + std <dotfd lda <dentry+DIR.FD+2 - sta <DotFD+2 + sta <dotfd+2 bsr read32 * read ".." from directory ldd <dentry+DIR.FD - std <DotDotFD + std <dotdotfd lda <dentry+DIR.FD+2 - sta <DotDotFD+2 + sta <dotdotfd+2 rts L00E2 leax dentry,u
--- a/level1/cmds/procs.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/procs.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,6 +24,7 @@ mod eom,name,tylg,atrv,start,size + org 0 narrow rmb 1 eflag rmb 1 aproc rmb 2
--- a/level1/cmds/rename.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/rename.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 2
--- a/level1/cmds/save.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/save.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 fpath rmb 451 size equ .
--- a/level1/cmds/setime.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/setime.asm Sun Jan 19 14:54:09 2003 +0000 @@ -47,6 +47,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 450 size equ .
--- a/level1/cmds/shell_21.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/shell_21.asm Sun Jan 19 14:54:09 2003 +0000 @@ -24,6 +24,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 2 u0003 rmb 1
--- a/level1/cmds/sleep.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/sleep.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 450 size equ .
--- a/level1/cmds/tee.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/tee.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 13 u000E rmb 1
--- a/level1/cmds/tmode.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/tmode.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,7 @@ mod eom,name,tylg,atrv,start,size + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1
--- a/level1/cmds/tuneport.asm Sun Jan 19 14:17:28 2003 +0000 +++ b/level1/cmds/tuneport.asm Sun Jan 19 14:54:09 2003 +0000 @@ -23,6 +23,8 @@ edition set 3 mod eom,name,tylg,atrv,start,size + + org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 1