Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/os9l2bbs/cmds/T1mon.asm @ 2402:04755ee002ba
Updated
| author | boisy |
|---|---|
| date | Sun, 24 Jan 2010 17:32:49 +0000 |
| parents | 75ba2a80a4e3 |
| children | c491d9c9a4fd |
line wrap: on
line source
nam T1mon ttl program module * Disassembled 2010/01/24 10:49:30 by Disasm v1.5 (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 2 u0003 rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 2 u0008 rmb 32 u0028 rmb 600 size equ . name equ * fcs /T1mon/ fcb $43 C fcb $6F o fcb $70 p fcb $79 y fcb $72 r fcb $69 i fcb $67 g fcb $68 h fcb $74 t fcb $20 fcb $28 ( fcb $43 C fcb $29 ) fcb $20 fcb $31 1 fcb $39 9 fcb $38 8 fcb $38 8 fcb $42 B fcb $79 y fcb $20 fcb $4B K fcb $65 e fcb $69 i fcb $74 t fcb $68 h fcb $20 fcb $41 A fcb $6C l fcb $70 p fcb $68 h fcb $6F o fcb $6E n fcb $73 s fcb $6F o fcb $4C L fcb $69 i fcb $63 c fcb $65 e fcb $6E n fcb $63 c fcb $65 e fcb $64 d fcb $20 fcb $74 t fcb $6F o fcb $20 fcb $41 A fcb $6C l fcb $70 p fcb $68 h fcb $61 a fcb $20 fcb $53 S fcb $6F o fcb $66 f fcb $74 t fcb $77 w fcb $61 a fcb $72 r fcb $65 e fcb $20 fcb $54 T fcb $65 e fcb $63 c fcb $68 h fcb $6E n fcb $6F o fcb $6C l fcb $6F o fcb $67 g fcb $69 i fcb $65 e fcb $73 s fcb $41 A fcb $6C l fcb $6C l fcb $20 fcb $72 r fcb $69 i fcb $67 g fcb $68 h fcb $74 t fcb $73 s fcb $20 fcb $72 r fcb $65 e fcb $73 s fcb $65 e fcb $72 r fcb $76 v fcb $65 e fcb $64 d fcb $EC l fcb $E6 f fcb $EA j fcb $F5 u fcb $E9 i fcb $A0 fcb $E2 b fcb $ED m fcb $F1 q fcb $E9 i fcb $F0 p fcb $EF o fcb $F4 t fcb $F0 p L007D fcb $4C L fcb $6F o fcb $67 g fcb $69 i fcb $6E n fcb $0D fcb $4D M fcb $6F o fcb $6E n fcb $69 i fcb $74 t fcb $6F o fcb $72 r fcb $0D L008B fcb $0D fcb $0A fcb $4D M fcb $6F o fcb $6E n fcb $69 i fcb $74 t fcb $6F o fcb $72 r fcb $69 i fcb $6E n fcb $67 g fcb $20 L0098 fcb $31 1 fcb $31 1 fcb $30 0 fcb $20 fcb $20 fcb $42 B fcb $61 a fcb $75 u fcb $64 d fcb $20 fcb $33 3 fcb $30 0 fcb $30 0 fcb $20 fcb $20 fcb $42 B fcb $61 a fcb $75 u fcb $64 d fcb $20 fcb $36 6 fcb $30 0 fcb $30 0 fcb $20 fcb $20 fcb $42 B fcb $61 a fcb $75 u fcb $64 d fcb $20 fcb $31 1 fcb $32 2 fcb $30 0 fcb $30 0 fcb $20 fcb $42 B fcb $61 a fcb $75 u fcb $64 d fcb $20 fcb $32 2 fcb $34 4 fcb $30 0 fcb $30 0 fcb $20 fcb $42 B fcb $61 a fcb $75 u fcb $64 d fcb $20 L00CA fcb $38 8 fcb $20 fcb $62 b fcb $69 i fcb $74 t fcb $73 s fcb $2C , fcb $20 fcb $6E n fcb $6F o fcb $20 fcb $70 p fcb $61 a fcb $72 r fcb $69 i fcb $74 t fcb $79 y fcb $0D L00DC fcb $55 U fcb $73 s fcb $65 e fcb $72 r fcb $20 fcb $6E n fcb $61 a fcb $6D m fcb $65 e fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $44 D fcb $61 a fcb $74 t fcb $65 e fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $20 fcb $74 t fcb $69 i fcb $6D m fcb $65 e fcb $0D L010A fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $2D - fcb $0D L0153 fcb $2F / fcb $70 p fcb $0D L0156 fcb $4D M fcb $6F o fcb $64 d fcb $65 e fcb $6D m fcb $2E . fcb $73 s fcb $65 e fcb $74 t fcb $0D start equ * clr u0003,u stx u0006,u lda #$FF sta u0003,u leax >L0284,pcr os9 F$Icpt clra os9 I$Close inca os9 I$Close inca os9 I$Close leax >L0153,pcr lda #$02 os9 I$Open leax >L00DC,pcr ldy #$00C8 os9 I$WritLn leax >L010A,pcr ldy #$0050 os9 I$WritLn os9 I$Close L019D ldx u0006,u lda #$03 os9 I$Open lbcs L027E os9 I$Dup os9 I$Dup leax >L0156,pcr lda #$01 os9 I$Open bcs L01D7 L01B9 leax <u0028,u ldy #$00C8 os9 I$ReadLn bcs L01D4 pshs a lda #$01 ldy #$00C8 os9 I$WritLn puls a bra L01B9 L01D4 os9 I$Close L01D7 leax u0008,u clra clrb os9 I$GetStt leax <-$20,x lda #$01 sta u0005,u sta <$35,x clr <$24,x leax u0008,u clra clrb os9 I$SetStt clr u0004,u L01F4 leax ,u clr ,x ldy #$0001 clra os9 I$Read bcc L020A ldx #$000A os9 F$Sleep bra L01F4 L020A lda ,u cmpa #$0D beq L0212 bra L01F4 L0212 leax u0008,u leax <-$20,x lda #$01 sta <$24,x leax u0008,u clra clrb os9 I$SetStt leax <-$20,x ldb <$35,x lda #$0A mul leax >L0098,pcr leax d,x ldy #$000A lda #$01 os9 I$Write leax >L00CA,pcr ldy #$00C8 os9 I$WritLn leax >L007D,pcr ldy #$0001 pshs u leau >L008B,pcr lda #$11 ldb #$03 os9 F$Fork lbcs L027E ldu ,s sta u0001,u puls u os9 F$Wait lbcs L027E clra os9 I$Close inca os9 I$Close inca os9 I$Close os9 F$Wait lbra L019D L027E os9 F$PErr lbra L019D L0284 rti emod eom equ * end