Mercurial > hg > Members > kono > nitros9-code
changeset 268:b19b5d02a2e1
Source enhancements
| author | boisy |
|---|---|
| date | Sun, 21 Jul 2002 05:13:22 +0000 |
| parents | 6992acfc221f |
| children | 8ac0ef66d530 |
| files | level1/cmds/go51.asm |
| diffstat | 1 files changed, 20 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/go51.asm Sun Jul 21 04:25:57 2002 +0000 +++ b/level1/cmds/go51.asm Sun Jul 21 05:13:22 2002 +0000 @@ -26,7 +26,7 @@ u0000 rmb 2 u0002 rmb 2 u0004 rmb 2 -u0006 rmb 32 +OptBuf rmb 32 size equ . name fcs /go51/ @@ -37,13 +37,13 @@ Desc fcs /term/ start leax >IOMod,pcr - lbsr L00CB - lbcs L00C8 + lbsr DoLink + lbcs Bye stx ,u - lbsr L00D6 + lbsr DoUnlink leax >Driver,pcr - lbsr L00CB - lbcs L00C8 + lbsr DoLink + lbcs Bye stx u0002,u ldd $02,x std u0004,u @@ -73,7 +73,7 @@ sta $03,x puls u,cc ldx u0002,u - lbsr L00D6 + lbsr DoUnlink ldx ,u ldd $04,x leax d,x @@ -85,35 +85,37 @@ bne L008B lda #$01 ldb #SS.Opt - leax u0006,u + leax OptBuf,u os9 I$GetStt - bcs L00C8 - clr $01,x - lda #$18 - sta $08,x + bcs Bye + clr (PD.UPC-PD.OPT),x + lda #24 + sta (PD.PAG-PD.OPT),x lda #$01 ldb #SS.Opt os9 I$SetStt - bcs L00C8 + bcs Bye leax >Desc,pcr lda #Devic+Objct pshs u os9 F$Link tfr u,x puls u - bcs L00C8 + bcs Bye clr <$13,x lda #$18 sta <$1A,x - bsr L00D6 + bsr DoUnlink clrb -L00C8 os9 F$Exit -L00CB pshs u +Bye os9 F$Exit + +DoLink pshs u lda #Drivr+Objct os9 F$Link tfr u,x puls pc,u -L00D6 pshs u + +DoUnlink pshs u tfr x,u os9 F$UnLink puls pc,u