Mercurial > hg > Members > kono > nitros9-code
changeset 160:0bdd24a428fb
These files are identical to level1 commands
| author | roug |
|---|---|
| date | Mon, 08 Jul 2002 19:25:22 +0000 |
| parents | 828d64d27e63 |
| children | fed96c42e0b4 |
| files | level2/cmds/binex.asm level2/cmds/del.asm level2/cmds/deldir.asm level2/cmds/echo.asm level2/cmds/exbin.asm level2/cmds/ident.asm level2/cmds/link.asm level2/cmds/list.asm level2/cmds/load.asm level2/cmds/makefile level2/cmds/pwd.asm level2/cmds/pxd.asm level2/cmds/save.asm level2/cmds/tee.asm level2/cmds/verify.asm |
| diffstat | 15 files changed, 14 insertions(+), 2821 deletions(-) [+] |
line wrap: on
line diff
--- a/level2/cmds/binex.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,245 +0,0 @@ -******************************************************************** -* Binex - Motorola S-Record utility -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 67 Original Tandy distribution version - - nam Binex - ttl Motorola S-Record utility - -* Disassembled 98/09/15 00:08:52 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 67 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 1 -u0001 rmb 1 -u0002 rmb 2 -u0004 rmb 1 -u0005 rmb 1 -u0006 rmb 1 -u0007 rmb 2 -u0009 rmb 1 -u000A rmb 2 -u000C rmb 1 -u000D rmb 31 -u002C rmb 1 -u002D rmb 1 -u002E rmb 1 -u002F rmb 2 -u0031 rmb 2 -u0033 rmb 2 -u0035 rmb 656 -size equ . - -name fcs /Binex/ - fcc "Copyright 1982 Motorola, Inc." - fcb $01 - -start stx <u0002 - lda #$01 - os9 I$Open - bcc L003C -L0039 os9 F$Exit -L003C sta <u0000 - stx <u0002 - lda #$02 - ldb #$7F - os9 I$Create - bcs L0039 - sta <u0001 - stx <u0002 - ldd #$0000 - sta <u0006 - std <u000A - std <u002F - ldx #$5330 - stx <u002D - ldx #$3030 - stx <u0031 - stx <u0033 -L0062 leax >L0217,pcr - lda #$01 - ldy #$0022 - os9 I$Write - leax <u0031,u - lda #$00 - ldy #$0005 - os9 I$ReadLn - leay -$01,y - cmpy #$0000 - beq L0062 - cmpy #$0004 - bhi L0062 - beq L00A7 - tfr y,d - pshs b - decb - leax <u0031,u - leay $04,x -L0095 lda b,x - sta ,-y - decb - bpl L0095 - ldb #$04 - subb ,s+ - lda #$30 -L00A2 sta ,-y - decb - bgt L00A2 -L00A7 lbsr L0178 - leax >L01F9,pcr - lda #$01 - ldy #$001E - os9 I$Write - leax u000C,u - lda #$00 - ldy #$0015 - os9 I$ReadLn - leay -$01,y - cmpy #$0000 - bne L0120 -L00CA lda <u0000 - leax u000C,u - ldy #$0020 - os9 I$Read - lbcs L0160 - cmpy #$0000 - lbeq L0160 - lda <u0006 - bne L0120 - inc <u0006 - lda #$31 - sta <u002E - ldx <u0004 - stx <u000A - ldx u000C,u - cmpx #$87CD - beq L0120 - leax >L0239,pcr - pshs y - ldy #$003C - lda #$01 - os9 I$Write - leax <u0035,u - ldy #$0002 - lda #$00 - os9 I$ReadLn - puls y - lda <u0035,u - anda #$DF - cmpa #$59 - beq L0120 -L011C clrb - os9 F$Exit -L0120 sty <u0007 - tfr y,d - addb #$03 - stb <u0009 - leax u0009,u - clra - ldb ,x -L012E adda ,x+ - decb - bne L012E - coma - sta ,x - leax u0009,u - leay <u002F,u - ldb ,x - incb -L013E bsr L01B6 - decb - bne L013E - ldb #$0D - stb ,y - leax <u002D,u - ldy #$0073 - lda <u0001 - os9 I$WritLn - lbcs L0039 - ldd <u000A - addd <u0007 - std <u000A - lbra L00CA -L0160 cmpb #$D3 - lbne L0039 - lda #$39 - cmpa <u002E - beq L011C - sta <u002E - ldx <u0004 - stx <u000A - ldy #$0000 - bra L0120 -L0178 bsr L017C - sta <u0004 -L017C lda ,x+ - bsr L0197 - lsla - lsla - lsla - lsla - anda #$F0 - pshs a - lda ,x+ - bsr L0197 - adda ,s+ - sta <u0005 - adda <u002C - sta <u002C - lda <u0005 - rts -L0197 suba #$30 - bmi L01A6 - cmpa #$09 - ble L01A5 - suba #$07 - cmpa #$0F - bhi L01A6 -L01A5 rts -L01A6 leax >L01D7,pcr - lda #$02 - ldy #$00FF - os9 I$WritLn - lbra L011C -L01B6 pshs b,a - lda ,x+ - tfr a,b - lsra - lsra - lsra - lsra - bsr L01CC - sta ,y+ - tfr b,a - bsr L01CC - sta ,y+ - puls pc,b,a -L01CC anda #$0F - adda #$30 - cmpa #$39 - bls L01D6 - adda #$07 -L01D6 rts -L01D7 fcc "** NON-HEX CHARACTER ENCOUNTERED" - fcb $07,C$CR -L01F9 fcc "Enter name for header record: " -L0217 fcc "Enter starting address for file: $" -L0239 fcb $07,C$CR,C$LF - fcc "** Not a binary load module file. Proceed anyway (Y/N)? " - - emod -eom equ * - end
--- a/level2/cmds/del.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,95 +0,0 @@ -******************************************************************** -* Del - File deletion utility -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 3 Original Tandy distribution version BGP - - nam Del - ttl File deletion utility - -* Disassembled 98/09/10 22:43:13 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 5 - - mod eom,name,tylg,atrv,start,size - -InPath rmb 1 - rmb 450 -size equ . - -name fcs /Del/ - fcb edition - -HelpMsg fcb C$LF - fcc "Use: Del [-x] <path> {<path>} [-x]" - fcb C$CR - -start lda ,x - cmpa #C$CR - beq L0093 - lda #1 - sta <InPath - bsr L0054 - leax -1,x -L0043 lda <InPath - os9 I$DeletX - bcs L0051 - lda ,x - cmpa #C$CR - bne L0043 - clrb -L0051 os9 F$Exit -L0054 lda ,x+ - cmpa #C$SPAC - beq L0054 - cmpa #C$COMA - beq L0054 - cmpa #'- - bne L0067 - bsr L0086 - leax 1,x - rts -L0067 pshs x -L0069 lda ,x+ - cmpa #C$SPAC - beq L0069 - cmpa #C$COMA - beq L0069 - cmpa #'- - beq L007E - cmpa #C$CR - bne L0069 -L007B puls x - rts -L007E bsr L0086 - lda #C$CR - sta -2,x - bra L007B -L0086 lda ,x+ - eora #$58 - anda #$DF - bne L0093 - lda #$04 - sta <InPath - rts -L0093 leax >HelpMsg,pcr - ldy #80 - clra - os9 I$WritLn - clrb - bra L0051 - - emod -eom equ * - end -
--- a/level2/cmds/deldir.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,300 +0,0 @@ -******************************************************************** -* Deldir - Delete a directory -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 3 Original Tandy distribution version BGP - - nam Deldir - ttl Delete a directory - -* Disassembled 98/09/10 23:18:11 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 3 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 2 -u0002 rmb 1 -u0003 rmb 1 -u0004 rmb 24 -u001C rmb 4 -u0020 rmb 4 -u0024 rmb 10 -u002E rmb 6 -u0034 rmb 15 -u0043 rmb 1 -u0044 rmb 1 -u0045 rmb 1 -u0046 rmb 2 -u0048 rmb 2 -u004A rmb 2 -u004C rmb 334 -size equ . - -name fcs /Deldir/ - fcb edition - -start bsr L0050 - bcs L0042 - bsr L0091 - bcc L002B - lbsr L010C - bcs L0042 - lbsr L01C3 - bcs L0042 - lbsr L0242 - bcs L0042 -L002B lda <u0002 - os9 I$Close - bcs L004D - ldx <u0000 - os9 I$Delete - bcs L004D - lda ,x - cmpa #C$CR - bne start - clrb - bra L004D -L0042 pshs b - lda <u0002 - os9 I$Close - puls b - orcc #Carry -L004D os9 F$Exit -L0050 stx <u0000 - lda #READ.+WRITE. - os9 I$Open - bcs L005D - sta <u0002 - bra L0089 -L005D ldx <u0000 - lda #DIR.+READ. - os9 I$Open - bcs L0090 - sta <u0002 -L0068 ldx <u0000 - os9 F$PrsNam - clra - incb - std <u0046 - lda ,y - cmpa #PDELIM - bne L0089 - lda #C$CR - sta ,y+ - lda #READ.+WRITE. - ldx <u0000 - os9 I$ChgDir - bcs L0090 - sty <u0000 - bra L0068 -L0089 leax <-u001C,u - stx <u0044 - clr <u0003 -L0090 rts -L0091 lda <u0002 - ldb #SS.OPT - leax u0004,u - os9 I$GetStt - bcs L00AB - ldx <u0044 - lda <$33,x - anda #$80 - beq L00AA - clrb - orcc #Carry - bra L00AB -L00AA clrb -L00AB rts -L00AC fcb C$LF - fcc "Deleting directory file. " - fcb C$LF - fcc "List directory, delete directory, or quit ? (l/d/q) " -L00FB fcb C$LF - fcc "Continue? (y/n) " -L010C tstb - bne L013E - lda #$01 - leax <L00AC,pcr - ldy #$004F - os9 I$WritLn -L011B bcs L013E - bsr L0179 - bcs L013E - ldb <u0003 - cmpb #$01 - bne L012A - clrb - bra L013E -L012A bsr L0145 -L012C bcs L013E - leax <L00FB,pcr - ldy #$0011 - lda #$01 - os9 I$WritLn - bcs L013E - bsr L0179 -L013E rts -L013F fcc "DIR" - fcb C$CR -L0143 fcc "E " -L0145 pshs u - leau <u004A,u - pshs u - ldb #$02 - leax <L0143,pcr - lbsr L0270 - ldx <u0000 - ldd <u0046 - decb - lbsr L0270 - lda #C$CR -L015E sta ,u+ - tfr u,d - subd ,s - tfr d,y - puls u - leax <L013F,pcr - lda #$11 - clrb - os9 F$Fork - puls u - bcs L013E - os9 F$Wait -L0178 rts -L0179 leax <u004A,u - ldy #80 - lda #$00 - os9 I$ReadLn - bcs L01B8 -L0187 lda ,x+ - cmpa #C$SPAC - beq L0187 - eora #$59 - anda #$DF - beq L01AD - lda ,-x - eora #$4C - anda #$DF - beq L01A9 - lda ,x - eora #$44 - anda #$DF - beq L01A5 - bra L01B4 -L01A5 ldb #$01 - bra L01AF -L01A9 ldb #$02 - bra L01AF -L01AD ldb #$04 -L01AF stb <u0003 - clrb - bra L01B8 -L01B4 ldb #$01 - orcc #Carry -L01B8 rts -L01B9 fcc "DELDIR" - fcb C$CR -L01C0 fcc ".." - fcb C$CR -L01C3 ldb <u0003 - bitb #$05 - beq L0210 - lda <u0002 - pshs u - ldu #$0040 -L01D0 ldx #$0000 - os9 I$Seek - puls u -L01D8 bsr L0215 - bcs L0209 - ldx <u0000 - lda #READ.+WRITE. - os9 I$ChgDir - bcs L0214 - ldy <u0048 - clrb - lda #$11 - pshs u - leau <u0024,u - leax <L01B9,pcr - os9 F$Fork - puls u - bcs L0214 - os9 F$Wait - bcs L0214 - leax <L01C0,pcr - lda #READ.+WRITE. - os9 I$ChgDir - bcc L01D8 -L0209 cmpb #E$EOF - bne L0214 - clrb - bra L0214 -L0210 ldb #$01 - orcc #Carry -L0214 rts -L0215 lda <u0002 - leax <u0024,u - ldy #$0020 - os9 I$Read - bcs L0238 - lda ,x - beq L0215 - os9 F$PrsNam - lda -$01,y - anda #$7F - sta -$01,y - lda #C$CR - sta ,y - clra - incb - std <u0048 -L0238 rts -L0239 fcc "ATTR" - fcb C$CR -L023E fcc " -d" - fcb C$CR -L0242 pshs u - leau <u004A,u - pshs u - ldd <u0046 - decb - ldx <u0000 - bsr L0270 - leax <L023E,pcr - ldb #$04 - bsr L0270 - tfr u,d - subd ,s - tfr d,y - puls u - leax <L0239,pcr - clrb - lda #$11 - os9 F$Fork - bcs L026D - os9 F$Wait -L026D puls u - rts -L0270 decb - lda ,x+ - sta ,u+ - tstb - bne L0270 - rts - - emod -eom equ * - end -
--- a/level2/cmds/echo.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,42 +0,0 @@ -******************************************************************** -* Echo - Echo text -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 5 Original Tandy distribution version - - nam Echo - ttl Echo text - -* Disassembled 98/09/10 22:44:14 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 5 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 450 -size equ . - -name fcs /Echo/ - fcb edition - -start tfr d,y - lda #1 - os9 I$WritLn - bcs Exit - clrb -Exit os9 F$Exit - - emod -eom equ * - end -
--- a/level2/cmds/exbin.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,187 +0,0 @@ -******************************************************************** -* Exbin - Motorola S-Record utility -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 67 Original Tandy distribution version - - nam Exbin - ttl Motorola S-Record utility - -* Disassembled 98/09/15 00:16:49 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 -u0001 rmb 1 -u0002 rmb 2 -u0004 rmb 1 -u0005 rmb 1 -u0006 rmb 2 -u0008 rmb 1 -u0009 rmb 2 -u000B rmb 1 -u000C rmb 1 -u000D rmb 1 -u000E rmb 1 -u000F rmb 1 -u0010 rmb 2 -u0012 rmb 2 -u0014 rmb 2 -u0016 rmb 656 -size equ . - -name fcs /Exbin/ - fcc "Copyright 1982 Motorola, Inc." - fcb $01 - -start stx <u0002 - lda #$01 - os9 I$Open - bcc L003C -L0039 os9 F$Exit -L003C sta <u0000 - stx <u0002 - lda #$02 - ldb #$7F - os9 I$Create - bcs L0039 - sta <u0001 - stx <u0002 - ldd #$0000 - std <u0009 - std <u000B - sta <u000F - ldx #$4E61 - stx <u0010 - ldx #$6D65 - stx <u0012 - ldx #$3D20 - stx <u0014 -L0065 lda <u0000 - leax <u0016,u - ldy #$0100 - os9 I$ReadLn - lbcs L0114 - leax <u0016,u - tfr x,y - tfr x,d - addd #$0100 - std <u0006 -L0081 lda ,x+ - cmpa #$53 - beq L008D - cmpx <u0006 - bne L0081 - bra L0065 -L008D lda ,x+ - suba #$30 - sta <u000E - beq L009E - cmpa #$09 - bne L009B - bra L0065 -L009B deca - bne L0065 -L009E bsr L011F - sta <u0008 - suba #$03 - sta <u000C - sta <u000D - bsr L011B - tst <u000E - beq L00CD - pshs x - ldx <u0009 - lda <u000F - beq L00C0 - cmpx <u0004 - beq L00C6 - leax >L018D,pcr - bra L00DE -L00C0 ldx <u0004 - lda #$01 - sta <u000F -L00C6 ldb <u000C - abx - stx <u0009 - puls x -L00CD bsr L011F - sta ,y+ - dec <u000D - bpl L00CD - lda <u0008 - inca - beq L00EB - leax >L0171,pcr -L00DE lda #$02 - ldy #$00FF - os9 I$WritLn -L00E7 clrb - lbra L0039 -L00EB lda <u000E - bne L0102 - lda #$0D - sta ,-y - lda #$01 - ldy #$00FF - leax <u0010,u - os9 I$WritLn - lbra L0065 -L0102 lda <u0001 - ldy <u000B - leax <u0016,u - os9 I$Write - lbcc L0065 - lbra L0039 -L0114 cmpb #$D3 - beq L00E7 - lbra L0039 -L011B bsr L011F - sta <u0004 -L011F lda ,x+ - bsr L013A - lsla - lsla - lsla - lsla - anda #$F0 - pshs a - lda ,x+ - bsr L013A - adda ,s+ - sta <u0005 - adda <u0008 - sta <u0008 - lda <u0005 - rts -L013A suba #$30 - bmi L0149 - cmpa #$09 - ble L0148 - suba #$07 - cmpa #$0F - bhi L0149 -L0148 rts -L0149 leax >L014F,pcr - bra L00DE -L014F fcc "** NON-HEX CHARACTER ENCOUNTERED" - fcb $07,C$CR -L0171 fcc "** CHECKSUM ERROR DETECTED" - fcb $07,C$CR -L018D fcc "** NON-CONTIGUOUS ADDRESS SPACE DETECTED" - fcb $07,C$CR - - emod -eom equ * - end
--- a/level2/cmds/ident.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,1140 +0,0 @@ -******************************************************************** -* Ident - Show module information -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 7 Original Tandy/Microware version - - nam Ident - ttl Show module information - -* Disassembled 98/09/20 15:54:44 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 7 - - mod eom,name,tylg,atrv,start,size -u0000 rmb 1 -u0001 rmb 1 -u0002 rmb 1 -u0003 rmb 1 -u0004 rmb 2 -u0006 rmb 2 -u0008 rmb 2 -u000A rmb 1 -u000B rmb 1 -u000C rmb 1 -u000D rmb 1 -u000E rmb 2 -u0010 rmb 2 -u0012 rmb 1 -u0013 rmb 1 -u0014 rmb 1 -u0015 rmb 1 -u0016 rmb 1 -u0017 rmb 1 -u0018 rmb 1 -u0019 rmb 1 -u001A rmb 1 -u001B rmb 1 -u001C rmb 2 -u001E rmb 2 -u0020 rmb 2 -u0022 rmb 66 -u0064 rmb 14 -u0072 rmb 14 -u0080 rmb 33 -u00A1 rmb 71 -u00E8 rmb 180 -u019C rmb 2048 -size equ . - -name fcs /Ident/ - fcb edition - -L0013 fcb $0A - fcb $55 U - fcb $73 s - fcb $65 e - fcb $3A : - fcb $20 - fcb $49 I - fcb $64 d - fcb $65 e - fcb $6E n - fcb $74 t - fcb $20 - fcb $5B [ - fcb $2D - - fcb $6F o - fcb $70 p - fcb $74 t - fcb $73 s - fcb $5D ] - fcb $20 - fcb $3C < - fcb $6D m - fcb $6F o - fcb $64 d - fcb $75 u - fcb $6C l - fcb $65 e - fcb $3E > - fcb $20 - fcb $5B [ - fcb $2D - - fcb $6F o - fcb $70 p - fcb $74 t - fcb $73 s - fcb $5D ] - fcb $0A - fcb $20 - fcb $20 - fcb $74 t - fcb $6F o - fcb $20 - fcb $64 d - fcb $69 i - fcb $73 s - fcb $70 p - fcb $6C l - fcb $61 a - fcb $79 y - fcb $20 - fcb $6D m - fcb $6F o - fcb $64 d - fcb $75 u - fcb $6C l - fcb $65 e - fcb $20 - fcb $68 h - fcb $65 e - fcb $61 a - fcb $64 d - fcb $65 e - fcb $72 r - fcb $2E . - fcb $0A - fcb $20 - fcb $20 - fcb $2D - - fcb $6D m - fcb $20 - fcb $74 t - fcb $6F o - fcb $20 - fcb $64 d - fcb $69 i - fcb $73 s - fcb $70 p - fcb $6C l - fcb $61 a - fcb $79 y - fcb $20 - fcb $6D m - fcb $6F o - fcb $64 d - fcb $75 u - fcb $6C l - fcb $65 e - fcb $20 - fcb $69 i - fcb $6E n - fcb $20 - fcb $6D m - fcb $65 e - fcb $6D m - fcb $6F o - fcb $72 r - fcb $79 y - fcb $2E . - fcb $0A - fcb $20 - fcb $20 - fcb $2D - - fcb $73 s - fcb $20 - fcb $66 f - fcb $6F o - fcb $72 r - fcb $20 - fcb $73 s - fcb $68 h - fcb $6F o - fcb $72 r - fcb $74 t - fcb $20 - fcb $66 f - fcb $6F o - fcb $72 r - fcb $6D m - fcb $2E . - fcb $0A - fcb $20 - fcb $20 - fcb $2D - - fcb $76 v - fcb $20 - fcb $66 f - fcb $6F o - fcb $72 r - fcb $20 - fcb $6E n - fcb $6F o - fcb $20 - fcb $43 C - fcb $52 R - fcb $43 C - fcb $20 - fcb $76 v - fcb $65 e - fcb $72 r - fcb $69 i - fcb $66 f - fcb $69 i - fcb $63 c - fcb $61 a - fcb $74 t - fcb $69 i - fcb $6F o - fcb $6E n - fcb $0A - fcb $20 - fcb $20 - fcb $2D - - fcb $78 x - fcb $20 - fcb $66 f - fcb $6F o - fcb $72 r - fcb $20 - fcb $66 f - fcb $69 i - fcb $6C l - fcb $65 e - fcb $20 - fcb $69 i - fcb $6E n - fcb $20 - fcb $65 e - fcb $78 x - fcb $65 e - fcb $63 c - fcb $75 u - fcb $74 t - fcb $69 i - fcb $6F o - fcb $6E n - fcb $20 - fcb $64 d - fcb $69 i - fcb $72 r - fcb $65 e - fcb $63 c - fcb $74 t - fcb $6F o - fcb $72 r - fcb $79 y - fcb $0D -L00CD fcb $4D M - fcb $6F o - fcb $64 d - fcb $75 u - fcb $6C l - fcb $65 e - fcb $20 - fcb $68 h - fcb $65 e - fcb $61 a - fcb $64 d - fcb $65 e - fcb $72 r - fcb $20 - fcb $69 i - fcb $73 s - fcb $20 - fcb $69 i - fcb $6E n - fcb $63 c - fcb $6F o - fcb $72 r - fcb $72 r - fcb $65 e - fcb $63 c - fcb $74 t - fcb $A1 ! -L00E8 fcb $48 H - fcb $65 e - fcb $61 a - fcb $64 d - fcb $65 e - fcb $72 r - fcb $20 - fcb $66 f - fcb $6F o - fcb $72 r - fcb $3A : - fcb $A0 -L00F4 fcb $4D M - fcb $6F o - fcb $64 d - fcb $75 u - fcb $6C l - fcb $65 e - fcb $20 - fcb $73 s - fcb $69 i - fcb $7A z - fcb $65 e - fcb $BA : -L0100 fcb $4D M - fcb $6F o - fcb $64 d - fcb $75 u - fcb $6C l - fcb $65 e - fcb $20 - fcb $43 C - fcb $52 R - fcb $43 C - fcb $3A : - fcb $A0 -L010C fcb $48 H - fcb $64 d - fcb $72 r - fcb $20 - fcb $70 p - fcb $61 a - fcb $72 r - fcb $69 i - fcb $74 t - fcb $79 y - fcb $3A : - fcb $A0 -L0118 fcb $45 E - fcb $78 x - fcb $65 e - fcb $63 c - fcb $2E . - fcb $20 - fcb $6F o - fcb $66 f - fcb $66 f - fcb $3A : - fcb $20 - fcb $A0 -L0124 fcb $44 D - fcb $61 a - fcb $74 t - fcb $61 a - fcb $20 - fcb $53 S - fcb $69 i - fcb $7A z - fcb $65 e - fcb $3A : - fcb $20 - fcb $A0 -L0130 fcb $54 T - fcb $79 y - fcb $2F / - fcb $4C L - fcb $61 a - fcb $20 - fcb $41 A - fcb $74 t - fcb $2F / - fcb $52 R - fcb $76 v - fcb $BA : -L013C fcb $45 E - fcb $64 d - fcb $69 i - fcb $74 t - fcb $69 i - fcb $6F o - fcb $6E n - fcb $3A : - fcb $20 - fcb $20 - fcb $20 - fcb $A0 -L0148 fcb $6D m - fcb $6F o - fcb $64 d - fcb $AC , -L014C fcb $72 r - fcb $65 e - fcb $2D - - fcb $65 e - fcb $6E n - fcb $AC , -L0152 fcb $6E n - fcb $6F o - fcb $6E n - fcb $2D - - fcb $73 s - fcb $68 h - fcb $72 r - fcb $AC , -L015A fcb $52 R - fcb $2F / - fcb $CF O -L015D fcb $52 R - fcb $2F / - fcb $D7 W -L0160 fcb $28 ( - fcb $47 G - fcb $6F o - fcb $6F o - fcb $64 d - fcb $A9 ) -L0166 fcb $28 ( - fcb $42 B - fcb $61 a - fcb $64 d - fcb $29 ) - fcb $87 -L016C fcb $10 - fcb $1C - fcb $20 - fcb $24 $ - fcb $29 ) - fcb $2D - - fcb $32 2 - fcb $37 7 - fcb $3C < - fcb $41 A - fcb $46 F - fcb $4B K - fcb $50 P - fcb $56 V - fcb $5E ^ - fcb $65 e - fcb $62 b - fcb $61 a - fcb $64 d - fcb $20 - fcb $74 t - fcb $79 y - fcb $70 p - fcb $65 e - fcb $20 - fcb $66 f - fcb $6F o - fcb $F2 r - fcb $50 P - fcb $72 r - fcb $6F o - fcb $E7 g - fcb $53 S - fcb $75 u - fcb $62 b - fcb $F2 r - fcb $4D M - fcb $75 u - fcb $6C l - fcb $74 t - fcb $E9 i - fcb $44 D - fcb $61 a - fcb $74 t - fcb $E1 a - fcb $55 U - fcb $73 s - fcb $72 r - fcb $20 - fcb $B5 5 - fcb $55 U - fcb $73 s - fcb $72 r - fcb $20 - fcb $B6 6 - fcb $55 U - fcb $73 s - fcb $72 r - fcb $20 - fcb $B7 7 - fcb $55 U - fcb $73 s - fcb $72 r - fcb $20 - fcb $B8 8 - fcb $55 U - fcb $73 s - fcb $72 r - fcb $20 - fcb $B9 9 - fcb $55 U - fcb $73 s - fcb $72 r - fcb $20 - fcb $C1 A - fcb $55 U - fcb $73 s - fcb $72 r - fcb $20 - fcb $C2 B - fcb $53 S - fcb $79 y - fcb $73 s - fcb $74 t - fcb $65 e - fcb $ED m - fcb $46 F - fcb $69 i - fcb $6C l - fcb $65 e - fcb $20 - fcb $4D M - fcb $61 a - fcb $EE n - fcb $44 D - fcb $65 e - fcb $76 v - fcb $20 - fcb $44 D - fcb $76 v - fcb $F2 r - fcb $44 D - fcb $65 e - fcb $76 v - fcb $20 - fcb $44 D - fcb $73 s - fcb $E3 c -L01D8 fcb $10 - fcb $15 - fcb $1E - fcb $2D - - fcb $3B ; - fcb $44 D - fcb $51 Q - fcb $60 ` - fcb $60 ` - fcb $60 ` - fcb $60 ` - fcb $60 ` - fcb $60 ` - fcb $60 ` - fcb $60 ` - fcb $60 ` - fcb $44 D - fcb $61 a - fcb $74 t - fcb $61 a - fcb $AC , - fcb $36 6 - fcb $38 8 - fcb $30 0 - fcb $39 9 - fcb $20 - fcb $6F o - fcb $62 b - fcb $6A j - fcb $AC , - fcb $42 B - fcb $41 A - fcb $53 S - fcb $49 I - fcb $43 C - fcb $30 0 - fcb $39 9 - fcb $20 - fcb $49 I - fcb $2D - - fcb $63 c - fcb $6F o - fcb $64 d - fcb $65 e - fcb $AC , - fcb $50 P - fcb $41 A - fcb $53 S - fcb $43 C - fcb $41 A - fcb $4C L - fcb $20 - fcb $50 P - fcb $2D - - fcb $63 c - fcb $6F o - fcb $64 d - fcb $65 e - fcb $AC , - fcb $43 C - fcb $20 - fcb $49 I - fcb $2D - - fcb $63 c - fcb $6F o - fcb $64 d - fcb $65 e - fcb $AC , - fcb $43 C - fcb $4F O - fcb $42 B - fcb $4F O - fcb $4C L - fcb $20 - fcb $49 I - fcb $2D - - fcb $63 c - fcb $6F o - fcb $64 d - fcb $65 e - fcb $AC , - fcb $46 F - fcb $4F O - fcb $52 R - fcb $54 T - fcb $52 R - fcb $41 A - fcb $4E N - fcb $20 - fcb $49 I - fcb $2D - - fcb $63 c - fcb $6F o - fcb $64 d - fcb $65 e - fcb $AC , - fcb $3F ? - fcb $3F ? - fcb $3F ? - fcb $3F ? - fcb $AC , -start equ * - leas >u019C,u - sts <u0006 - tfr y,d - subd <u0006 - std <u0008 - leay <u0022,u - sty <u0000 - clr <u000A - clr <u000B - clr <u000C - clr <u0018 - lda #$01 - sta <u000D - ldd #$0000 - std <u0002 - std <u0004 -L0263 lda ,x+ -L0265 cmpa #$20 - beq L0263 - cmpa #$2C - beq L0263 - cmpa #$0D - beq L02BB - cmpa #$2D - beq L027E - ldy <u0002 - bne L0263 - stx <u0002 - bra L0263 -L027E lda ,x+ - cmpa #$2D - beq L027E - cmpa #$30 - bcs L0265 - eora #$4D - anda #$DF - bne L0292 - inc <u000A - bra L027E -L0292 lda -$01,x - eora #$53 - anda #$DF - bne L029E - inc <u000B - bra L027E -L029E lda -$01,x - eora #$56 - anda #$DF - bne L02AA - inc <u000C - bra L027E -L02AA lda -$01,x - eora #$58 - anda #$DF - bne L02B8 - lda #$05 - sta <u000D - bra L027E -L02B8 lbra L03C4 -L02BB ldx <u0002 - lbeq L03C4 - leax -$01,x - tst <u000A - beq L0314 - pshs u - clra - os9 F$Link - lbcs L03D2 - stu <u000E - ldd ,u - cmpd #$87CD - beq L02EB - puls u -L02DD leay >L00CD,pcr - lbsr L05FC - lbsr L0612 - clrb - lbra L03D2 -L02EB ldd u0002,u - subd #$0003 - leax d,u - puls u - leay <u0010,u - pshs u - lda #$03 -L02FB ldb ,x+ - stb ,y+ - deca - bne L02FB - puls u - lbsr L03D5 - ldu <u000E - os9 F$UnLink - lbcs L03D2 - clrb - lbra L03D2 -L0314 lda #$80 - sta <u00A1 - lda <u000D - os9 I$Open - lbcs L03D2 - sta <u0019 - ldd #$0000 - std <u001E - std <u0020 - std <u001C -L032C ldd <u0020 - addd <u001C - std <u0020 - bcc L033B - ldd <u001E - addd #$0001 - std <u001E -L033B pshs u - ldx <u001E - ldu <u0020 - lda <u0019 - os9 I$Seek - lbcs L03D2 - puls u - leax <u0072,u - stx <u000E - ldy #$000E - os9 I$Read - bcc L0360 - cmpb #$D3 - bne L03D2 - bra L03C1 -L0360 ldd ,x - cmpd #$87CD - lbne L02DD - pshs u,x - ldd $02,x - std <u001C - addd <u0020 - tfr d,u - leau -u0003,u - ldx <u001E - bcc L037C - leax $01,x -L037C lda <u0019 - os9 I$Seek - bcs L03D2 - puls u,x - leax <u0010,u - ldy #$0003 - lda <u0019 - os9 I$Read - bcs L03D2 - pshs u,x - ldy <u000E - ldd $04,y - addd <u0020 - tfr d,u - ldx <u001E - bcc L03A4 - leax $01,x -L03A4 lda <u0019 - os9 I$Seek - bcs L03D2 - puls u,x - leax >u0080,u - ldy #$0021 - lda <u0019 - os9 I$Read - bcs L03D2 - bsr L03D5 - lbra L032C -L03C1 clrb - bra L03D2 -L03C4 lda #$01 - leax >L0013,pcr - ldy #$00BA - os9 I$WritLn - clrb -L03D2 os9 F$Exit -L03D5 tst <u000B - lbne L0502 - lbsr L0612 - leay >L00E8,pcr - lbsr L05FC - lbsr L04E9 - lbsr L0612 - leay >L00F4,pcr - lbsr L05FC - ldy <u000E - ldd $02,y - lbsr L05D2 - leay >L0100,pcr - lbsr L05FC - lbsr L0543 - tst <u000C - bne L041E - lbsr L0553 - tsta - beq L0417 - leay >L0166,pcr - lbsr L05FC - bra L041E -L0417 leay >L0160,pcr - lbsr L05FC -L041E lbsr L0612 - leay >L010C,pcr - lbsr L05FC - ldy <u000E - ldb $08,y - lbsr L0633 - lbsr L0612 - ldy <u000E - ldb $06,y - stb <u001A - andb #$F0 - cmpb #$E0 - beq L0444 - cmpb #$10 - bne L0462 -L0444 leay >L0118,pcr - lbsr L05FC - ldy <u000E - ldd $09,y - lbsr L05D2 - leay >L0124,pcr - lbsr L05FC - ldy <u000E - ldd $0B,y - lbsr L05D2 -L0462 leay >L013C,pcr - lbsr L05FC - ldb <u0016 - pshs b - lbsr L0633 - ldb #$05 - lbsr L0654 - puls b - clra - lbsr L0649 - lbsr L0612 - leay >L0130,pcr - lbsr L05FC - ldb <u001A - lbsr L0633 - ldy <u000E - ldb $07,y - stb <u001B - lbsr L0633 - lbsr L0612 - ldb <u001A - lsrb - lsrb - lsrb - lsrb - leax >L016C,pcr - lda b,x - leay a,x - lbsr L05FC - leay >L0148,pcr - lbsr L05FC - ldb <u001A - andb #$0F - leax >L01D8,pcr - lda b,x - leay a,x - lbsr L05FC - ldb <u001B - bitb #$80 - beq L04CD - leay >L014C,pcr - lbsr L05FC - bra L04D4 -L04CD leay >L0152,pcr - lbsr L05FC -L04D4 bitb #$40 - beq L04DE - leay >L015D,pcr - bra L04E2 -L04DE leay >L015A,pcr -L04E2 lbsr L05FC - lbsr L0612 - rts -L04E9 tst <u000A - beq L04F6 - ldy <u000E - ldd $04,y - leay d,y - bra L04FA -L04F6 leay >u0080,u -L04FA lbsr L05FC - lda ,y - sta <u0016 - rts -L0502 ldb #$06 - lbsr L0654 - ldy <u000E - ldb $06,y - lbsr L0633 - bsr L0543 - tst <u000C - beq L0519 - lda #$20 - bra L0520 -L0519 bsr L0553 - tsta - bne L0520 - lda #$2E -L0520 lbsr L0608 - lbsr L0666 - bsr L04E9 - ldx <u0000 - pshs x - leax <u0022,u - stx <u0000 - ldb <u0016 - inc <u0018 - clra - lbsr L0692 - clr <u0018 - puls x - stx <u0000 - lbsr L0612 - rts -L0543 lda #$24 - lbsr L0608 - ldd <u0010 - lbsr L066E - ldb <u0012 - lbsr L0664 - rts -L0553 ldd #$FFFF - std <u0013 - stb <u0015 - pshs u,y,x - leau <u0013,u - tst <u000A - beq L0571 - ldx <u000E - ldy $02,x - os9 F$CRC - lbcs L03D2 - bra L058C -L0571 pshs u,x - ldx <u001E - ldu <u0020 - lda <u0019 - os9 I$Seek - puls u,x - lbcs L03D2 - ldd <u001C - pshs b,a - bsr L05BF - puls b,a - std <u001C -L058C puls u,y,x - lda <u0013 - cmpa #$80 - bne L059E - ldd <u0014 - cmpd #$0FE3 - bne L059E - bra L05A1 -L059E lda #$3F - rts -L05A1 clra - rts -L05A3 lda <u0019 - ldx <u0006 - ldy <u0008 - cmpy <u001C - bls L05B2 - ldy <u001C -L05B2 os9 I$Read - sty <u0004 - rts -L05B9 bsr L05A3 - lbcs L03D2 -L05BF ldy <u0004 - beq L05B9 - os9 F$CRC - ldd <u001C - subd <u0004 - std <u001C - bne L05B9 - std <u0004 - rts -L05D2 pshs b,a - bsr L0628 - ldb #$03 - bsr L0654 - puls b,a - bsr L0649 - bsr L0612 - rts - pshs b,a - andb #$F0 - lsrb - lsrb - lsrb - lsrb -L05E9 lda #$24 - bsr L0608 - lbsr L0682 - ldb #$02 - bsr L0654 - puls pc,b,a - pshs b,a - andb #$0F - bra L05E9 -L05FC lda ,y - anda #$7F - bsr L0608 - lda ,y+ - bpl L05FC -L0606 lda #$20 -L0608 pshs x - ldx <u0000 - sta ,x+ - stx <u0000 - puls pc,x -L0612 pshs y,x,a - lda #$0D - bsr L0608 - leax <u0022,u - stx <u0000 - ldy #$0050 - lda #$01 - os9 I$WritLn - puls pc,y,x,a -L0628 pshs a - lda #$24 - bsr L0608 - puls a - bsr L0660 - rts -L0633 pshs a - lda #$24 - bsr L0608 - puls a - bsr L0664 - rts - pshs a - lda #$24 - bsr L0608 - puls a - bsr L0682 - rts -L0649 pshs a - lda #$23 - bsr L0608 - puls a - bsr L0692 - rts -L0654 pshs b,a -L0656 tstb - ble L065E - bsr L0606 - decb - bra L0656 -L065E puls pc,b,a -L0660 bsr L066E - bra L0666 -L0664 bsr L0674 -L0666 pshs a - lda #$20 - bsr L0608 - puls pc,a -L066E exg a,b - bsr L0674 - tfr a,b -L0674 pshs b - andb #$F0 - lsrb - lsrb - lsrb - lsrb - bsr L0682 - puls b - andb #$0F -L0682 cmpb #$09 - bls L0688 - addb #$07 -L0688 addb #$30 - exg a,b - lbsr L0608 - exg a,b - rts -L0692 pshs u,y,b - leau <L06C3,pcr - clr <u0017 - ldy #$0005 -L069D clr ,s -L069F subd ,u - bcs L06A7 - inc ,s - bra L069F -L06A7 addd ,u++ - pshs b - ldb $01,s - exg a,b - bsr L06CD - exg a,b - puls b - cmpy #$0002 - bgt L06BD - inc <u0017 -L06BD leay -$01,y - bne L069D - puls pc,u,y,b -L06C3 fdb $2710,$03e8,$0064,$000a,$0001 -L06CD tsta - beq L06D2 - sta <u0017 -L06D2 tst <u0017 - bne L06DF - tst <u0018 - beq L06DE - lda #$20 - bra L06E1 -L06DE rts -L06DF adda #$30 -L06E1 lbra L0608 - - emod -eom equ * - end
--- a/level2/cmds/link.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,48 +0,0 @@ -******************************************************************** -* Link - Link to a module -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 5 Original Tandy/Microware version - - nam Link - ttl Link to a module - -* Disassembled 98/09/10 23:13:54 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 5 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 450 -size equ . - -name fcs /Link/ - fcb edition - -start clra - clrb - os9 F$Link - bcs L0026 - lda ,x+ - cmpa #C$COMA - beq start - lda ,-x - cmpa #C$CR - bne start - clrb -L0026 os9 F$Exit - - emod -eom equ * - end -
--- a/level2/cmds/list.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,62 +0,0 @@ -******************************************************************** -* List - List a text file -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 5 Original Tandy/Microware version - - nam List - ttl List a text file - -* Disassembled 98/09/10 23:16:25 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 5 - - mod eom,name,tylg,atrv,start,size -u0000 rmb 1 -ParmPtr rmb 2 -u0003 rmb 650 -size equ . - -name fcs /List/ - fcb edition - -start stx <ParmPtr - lda #1 - os9 I$Open - bcs L0049 - sta <u0000 - stx <ParmPtr -L001F lda <u0000 - leax u0003,u - ldy #200 - os9 I$ReadLn - bcs L0035 - lda #1 - os9 I$WritLn - bcc L001F - bra L0049 -L0035 cmpb #E$EOF - bne L0049 - lda <u0000 - os9 I$Close - bcs L0049 - ldx <ParmPtr - lda ,x - cmpa #C$CR - bne start - clrb -L0049 os9 F$Exit - - emod -eom equ * - end
--- a/level2/cmds/load.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,42 +0,0 @@ -******************************************************************** -* Load - Load a module -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 4 Original Tandy/Microware version - - nam Load - ttl Load a module - -* Disassembled 98/09/10 23:08:07 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 4 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 450 -size equ . - -name fcs /Load/ - fcb edition - -start os9 F$Load - bcs Exit - lda ,x - cmpa #C$CR - bne start - clrb -Exit os9 F$Exit - - emod -eom equ * - end
--- a/level2/cmds/makefile Mon Jul 08 07:58:17 2002 +0000 +++ b/level2/cmds/makefile Mon Jul 08 19:25:22 2002 +0000 @@ -16,6 +16,16 @@ UTILPAK1 = attr deldir dirm dmem free ident mmap proc rename setime tmode UTILPAK2 = ddir idir pmap xmode +LEVEL1FILES = binex.asm del.asm deldir.asm \ + echo.asm exbin.asm ident.asm link.asm \ + list.asm load.asm pwd.asm pxd.asm \ + save.asm sleep.asm tee.asm verify.asm + +LEVEL2FILES = attr.asm build.asm deiniz.asm gfx.asm iniz.asm mdir.asm \ + mfree.asm montype.asm procs.asm shell_21.asm tmode.asm \ + unlink.asm wcreate.asm + +# Files not compilable by os9asm: Config attr cmp dcheck dir dsave all: $(ALLOBJS) shell utilpak1 utilpak2 $(DEPENDS) $(CHMOD) a+rx $(ALLOBJS) shell utilpak1 utilpak2 @@ -37,8 +47,11 @@ @ls -l $@ @$(ECHO) +$(LEVEL1FILES): ../../level1/CMDS/$@ + cp ../../level1/CMDS/$@ . + clean: - $(RM) $(ALLOBJS) shell utilpak1 utilpak2 + $(RM) $(ALLOBJS) $(LEVEL1FILES) shell utilpak1 utilpak2 identify: $(IDENT_SHORT) $(ALLOBJS)
--- a/level2/cmds/pwd.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,166 +0,0 @@ -******************************************************************** -* pwd - Print working directory -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 1 Original Tandy/Microware version - - nam pwd - ttl Print working directory - -* Disassembled 98/09/10 23:47:33 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 1 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 1 -u0001 rmb 2 -u0003 rmb 2 -u0005 rmb 1 -u0006 rmb 2 -u0008 rmb 1 -u0009 rmb 2 -u000B rmb 3 -u000E rmb 29 -u002B rmb 2 -u002D rmb 129 -u00AE rmb 1 -u00AF rmb 282 -size equ . - -name fcs /pwd/ - fcb edition -L0011 fcc "pwd: bad name in path" - fcb C$CR -L0027 fcc "." -L0028 fcc "." -L0029 fcb C$CR -L002A fcc "read error" - fcb C$CR - -start leax >u00AE,u - lda #$0D - sta ,x - stx <u0001 - leax >L0028,pcr - bsr L0096 - sta <u0000 - lbsr L00CD - ldd <u0003 - std <u0009 - lda <u0005 - sta <u000B -L0052 bsr L00C6 - beq L0079 - leax >L0027,pcr - bsr L0090 - lda <u0000 - os9 I$Close - bcs L008D - leax >L0028,pcr - bsr L0096 - bsr L00CD - bsr L00A8 - bsr L00E2 - ldd <u0003 - std <u0009 - lda <u0005 - sta <u000B - bra L0052 -L0079 lbsr L00FB - ldx <u0001 - ldy #$0081 - lda #$01 - os9 I$WritLn - lda <u0000 - os9 I$Close - clrb -L008D os9 F$Exit -L0090 lda #$81 - os9 I$ChgDir - rts -L0096 lda #$81 - os9 I$Open - rts -L009C lda <u0000 - leax u000E,u - ldy #$0020 - os9 I$Read - rts -L00A8 lda <u0000 - bsr L009C - bcs L010F - leax u000E,u - leax <$1D,x - leay u0009,u - bsr L00BA - bne L00A8 - rts -L00BA ldd ,x++ - cmpd ,y++ - bne L00C5 - lda ,x - cmpa ,y -L00C5 rts -L00C6 leax u0003,u - leay u0006,u - bsr L00BA - rts -L00CD bsr L009C - ldd <u002B - std <u0006 - lda <u002D - sta <u0008 - bsr L009C - ldd <u002B - std <u0003 - lda <u002D - sta <u0005 - rts -L00E2 leax u000E,u -L00E4 os9 F$PrsNam - bcs L0109 - ldx <u0001 -L00EB lda ,-y - anda #$7F - sta ,-x - decb - bne L00EB - lda #$2F - sta ,-x - stx <u0001 - rts -L00FB lda <u0000 - ldb #$0E - leax >u00AF,u - os9 I$GetStt - bsr L00E4 - rts -L0109 leax >L0011,pcr - bra L0123 -L010F leax >L002A,pcr - bra L0123 -L0115 lda #$02 - os9 I$Write - bcs L0128 - rts - bsr L0115 - leax >L0029,pcr -L0123 lda #$02 - os9 I$WritLn -L0128 ldb #$00 - os9 F$Exit - - emod -eom equ * - end
--- a/level2/cmds/pxd.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,168 +0,0 @@ -******************************************************************** -* pxd - Print execution directory -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 1 Original Tandy/Microware version - - nam pxd - ttl Print working directory - -* Disassembled 98/09/10 23:50:10 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 1 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 1 -u0001 rmb 2 -u0003 rmb 2 -u0005 rmb 1 -u0006 rmb 2 -u0008 rmb 1 -u0009 rmb 2 -u000B rmb 3 -u000E rmb 29 -u002B rmb 2 -u002D rmb 129 -u00AE rmb 1 -u00AF rmb 282 -size equ . - -name fcs /pxd/ - fcb edition - -L0011 fcc "pxd: bad name in path" - fcb C$CR -L0027 fcc "." -L0028 fcc "." -L0029 fcb C$CR -L002A fcc "read error" - fcb C$CR - -start leax >u00AE,u - lda #$0D - sta ,x - stx <u0001 - leax >L0028,pcr - bsr L0096 - sta <u0000 - lbsr L00CD - ldd <u0003 - std <u0009 - lda <u0005 - sta <u000B -L0052 bsr L00C6 - beq L0079 - leax >L0027,pcr - bsr L0090 - lda <u0000 - os9 I$Close - bcs L008D - leax >L0028,pcr - bsr L0096 - bsr L00CD - bsr L00A8 - bsr L00E2 - ldd <u0003 - std <u0009 - lda <u0005 - sta <u000B - bra L0052 -L0079 lbsr L00FB - ldx <u0001 - ldy #$0081 - lda #$01 - os9 I$WritLn - lda <u0000 - os9 I$Close - clrb -L008D os9 F$Exit -L0090 lda #$85 - os9 I$ChgDir - rts -L0096 lda #$85 - os9 I$Open - rts -L009C lda <u0000 - leax u000E,u - ldy #$0020 - os9 I$Read - rts -L00A8 lda <u0000 - bsr L009C - bcs L010F - leax u000E,u - leax <$1D,x - leay u0009,u - bsr L00BA - bne L00A8 - rts -L00BA ldd ,x++ - cmpd ,y++ - bne L00C5 - lda ,x - cmpa ,y -L00C5 rts -L00C6 leax u0003,u - leay u0006,u - bsr L00BA - rts -L00CD bsr L009C - ldd <u002B - std <u0006 - lda <u002D - sta <u0008 - bsr L009C - ldd <u002B - std <u0003 - lda <u002D - sta <u0005 - rts -L00E2 leax u000E,u -L00E4 os9 F$PrsNam - bcs L0109 - ldx <u0001 -L00EB lda ,-y - anda #$7F - sta ,-x - decb - bne L00EB - lda #$2F - sta ,-x - stx <u0001 - rts -L00FB lda <u0000 - ldb #$0E - leax >u00AF,u - os9 I$GetStt - bsr L00E4 - rts -L0109 leax >L0011,pcr - bra L0123 -L010F leax >L002A,pcr - bra L0123 -L0115 lda #$02 - os9 I$Write - bcs L0128 - rts - bsr L0115 - leax >L0029,pcr -L0123 lda #$02 - os9 I$WritLn -L0128 ldb #$00 - os9 F$Exit - - emod -eom equ * - end -
--- a/level2/cmds/save.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,73 +0,0 @@ -******************************************************************** -* Save - Save module from memory to disk -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 3 Original Tandy distribution version - - nam Save - ttl Save module from memory to disk - -* Disassembled 98/09/14 23:45:22 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 3 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 451 -size equ . - -name fcs /Save/ - fcb edition - -start leay -1,y - pshs y,x - cmpx $02,s - bcc L0060 - ldd #$022F - os9 I$Create - bcs L0061 - sta <u0000 - lda ,x - cmpa #C$CR - bne L002C - ldx ,s -L002C lda ,x+ - cmpa #C$SPAC - beq L002C - cmpa #C$COMA - beq L002C - leax -$01,x - clra - os9 F$Link - bcs L0061 - stx ,s - leax ,u - ldy $02,x - lda <u0000 - os9 I$Write - pshs b,cc - os9 F$UnLink - ror ,s+ - puls b - bcs L0061 - ldx ,s - cmpx $02,s - bcs L002C - os9 I$Close - bcs L0061 -L0060 clrb -L0061 os9 F$Exit - - emod -eom equ * - end
--- a/level2/cmds/tee.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,88 +0,0 @@ -******************************************************************** -* Tee - Split output to multiple devices -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 2 Original Tandy distribution version - - nam Tee - ttl Split output to multiple devices - -* Disassembled 98/09/14 23:50:52 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 2 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 1 -u0001 rmb 13 -u000E rmb 1 -u000F rmb 706 -size equ . - -name fcs /Tee/ - fcb edition - -start clrb - clr u000E,u - cmpy #$0000 - lbeq L0076 - leay u0001,u -* Kill any spaces or commas -L001E lda ,x+ - cmpa #C$SPAC - beq L001E - cmpa #C$COMA - beq L001E - cmpa #C$CR - lbeq L0042 - leax -$01,x - lda #WRITE. - ldb #PREAD.+UPDAT. - os9 I$Create - bcs L0077 - ldb u000E,u - sta b,y - incb - stb u000E,u - bra L001E -L0042 stb u000E,u -L0044 clra - leax u000F,u - ldy #256 - os9 I$ReadLn - bcc L0057 - cmpb #E$EOF - beq L0076 - coma - bra L0077 -L0057 inca - os9 I$WritLn - tst u000E,u - beq L0044 - clrb -L0060 leay u0001,u - lda b,y - leax u000F,u - ldy #256 - os9 I$WritLn - bcs L0077 - incb - cmpb u000E,u - bne L0060 - bra L0044 -L0076 clrb -L0077 os9 F$Exit - - emod -eom equ * - end
--- a/level2/cmds/verify.asm Mon Jul 08 07:58:17 2002 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,164 +0,0 @@ -******************************************************************** -* Verify - Verify a module's CRC -* -* $Id$ -* -* Ed. Comments Who YY/MM/DD -* ------------------------------------------------------------------ -* 5 Original Tandy distribution version - - nam Verify - ttl Verify a module's CRC - -* Disassembled 98/09/15 00:03:43 by Disasm v1.6 (C) 1988 by RML - - ifp1 - use defsfile - endc - -tylg set Prgrm+Objct -atrv set ReEnt+rev -rev set $01 -edition set 5 - - mod eom,name,tylg,atrv,start,size - -u0000 rmb 1 -u0001 rmb 1 -u0002 rmb 1 -u0003 rmb 2 -u0005 rmb 1 -u0006 rmb 2 -u0008 rmb 2 -u000A rmb 57 -u0043 rmb 195 -u0106 rmb 1000 -size equ . - -name fcs /Verify/ - fcb edition - -start leas >u0106,u - sts <u0006 - tfr y,d - subd <u0006 - std <u0008 - clr <u0005 -L0023 lda ,x+ - cmpa #C$SPAC - beq L0023 - anda #$5F - cmpa #$55 - bne L0031 - inc <u0005 -L0031 ldd #$0009 - std <u0003 - lbsr L00F6 - bcs L004D - cmpy #$0009 - bne L0055 - ldd ,x - cmpd #M$ID12 - bne L0055 - bsr L0059 - bra L0031 -L004D cmpb #E$EOF - bne L0052 - clrb -L0052 os9 F$Exit -L0055 ldb #M$ID2 - bra L0052 -L0059 clrb - lda #$08 -L005C eorb ,x+ - deca - bne L005C - lda <u0005 - bne L0079 - eorb ,x - incb - beq L0070 - leax >L012F,pcr - bra L0074 -L0070 leax >L0115,pcr -L0074 lbsr L010B - bra L007C -L0079 comb - stb ,x -L007C ldx <u0006 - ldy $02,x - leay -$03,y - sty <u0003 - ldd #$FFFF - std <u0000 - stb <u0002 - bsr L00D6 - lda <u0005 - bne L00B6 - ldd #$0003 - std <u0003 - bsr L00D6 - lda <u0000 - cmpa #$80 - bne L00A8 - ldd <u0001 - cmpd #$0FE3 - beq L00AE -L00A8 leax >L015C,pcr - bra L00B2 -L00AE leax >L014C,pcr -L00B2 bsr L010B - bra L00CF -L00B6 com <u0000 - com <u0001 - com <u0002 - lda #$01 - leax ,u - ldy #$0003 - os9 I$Write - bcs L0052 - clra - os9 I$Read - bcs L0052 -L00CF rts -L00D0 bsr L00F6 - lbcs L0052 -L00D6 ldy <u000A - beq L00D0 - os9 F$CRC - lda <u0005 - beq L00EB - lda #$01 - os9 I$Write - lbcs L0052 -L00EB ldd <u0003 - subd <u000A - std <u0003 - bne L00D0 - std <u000A - rts -L00F6 clra - ldx <u0006 - ldy <u0008 - cmpy <u0003 - bls L0104 - ldy <u0003 -L0104 os9 I$Read - sty <u000A - rts -L010B lda #$02 - ldy #$0050 - os9 I$WritLn - rts -L0115 fcc "Header parity is correct." - fcb C$CR -L012F fcc "Header parity is INCORRECT !" - fcb C$CR -L014C fcc "CRC is correct." - fcb C$CR -L015C fcc "CRC is INCORRECT !" - fcb C$CR - - emod -eom equ * - end