Mercurial > hg > Members > kono > nitros9-code
changeset 129:39de99977f31
Disassembled to Tandy version edition 7
| author | boisy |
|---|---|
| date | Sun, 07 Jul 2002 04:22:28 +0000 |
| parents | 6b0b0bc5aa41 |
| children | 50b9f8b34867 |
| files | level1/cmds/tsmon.asm |
| diffstat | 1 files changed, 32 insertions(+), 26 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/tsmon.asm Sun Jul 07 02:52:38 2002 +0000 +++ b/level1/cmds/tsmon.asm Sun Jul 07 04:22:28 2002 +0000 @@ -5,41 +5,42 @@ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 6 Original Microware distribution version +* 7 Original Tandy/Microware version nam Tsmon ttl Timesharing monitor -* Disassembled 02/04/03 22:36:47 by Disasm v1.6 (C) 1988 by RML +* Disassembled 02/07/06 23:17:42 by Disasm v1.6 (C) 1988 by RML ifp1 - use os9defs + 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 2 u0003 rmb 452 size equ . -name equ * - fcs /Tsmon/ - fcb $06 -L0013 fcb $4C L - fcb $4F O - fcb $47 G - fcb $49 I - fcb $4E N -L0018 fcb $0D -L0019 fcb $3B ; -start equ * - stx <u0001 + +name fcs /Tsmon/ + fcb $07 + +L0013 fcc "LOGIN" +L0018 fcb C$CR + +L0019 rti + +start stx <u0001 std <u0003 L001E cmpd #$0002 bcs L0047 lda ,x - cmpa #$0D + cmpa #C$CR beq L0047 clra os9 I$Close @@ -47,13 +48,13 @@ os9 I$Close inca os9 I$Close - lda #$03 + lda #UPDAT. os9 I$Open - bcs L007C + bcs L0082 os9 I$Dup - bcs L007C + bcs L0082 os9 I$Dup - bcs L007C + bcs L0082 L0047 leax <L0019,pcr os9 F$Icpt L004D clra @@ -61,8 +62,11 @@ ldy #$0001 os9 I$ReadLn leas $01,s - bcs L004D - lda #$01 + bcc L0061 + cmpb #E$HangUp + bne L004D + bra L007C +L0061 lda #$01 clrb leax <L0013,pcr leau <L0018,pcr @@ -70,12 +74,14 @@ os9 F$Fork bcs L004D sta <u0000 -L006F os9 F$Wait +L0075 os9 F$Wait cmpa <u0000 - bne L006F - ldx <u0001 + bne L0075 +L007C ldx <u0001 ldd <u0003 bra L001E -L007C os9 F$Exit +L0082 os9 F$Exit + emod eom equ * + end