Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/packages/os9l2bbs/cmds/Ansicode.asm @ 2400:75ba2a80a4e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
OS-9 L2 BBS Commands disassembled
author boisy
date Sun, 24 Jan 2010 17:20:05 +0000
parents
children 04755ee002ba
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2400
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
1 nam Ansicode
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
2 ttl program module
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
3
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
4 * Disassembled 2010/01/24 10:52:29 by Disasm v1.5 (C) 1988 by RML
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
5
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
6 ifp1
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
7 use /dd/defs/defsfile
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
8 endc
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
9 tylg set Prgrm+Objct
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
10 atrv set ReEnt+rev
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
11 rev set $01
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
12 mod eom,name,tylg,atrv,start,size
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
13 u0000 rmb 400
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
14 size equ .
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
15 name equ *
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
16 fcs /Ansicode/
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
17 L0015 fcb $1B
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
18 fcb $5B [
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
19 start equ *
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
20 pshs x
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
21 leax >L0015,pcr
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
22 ldy #$0002
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
23 lda #$01
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
24 os9 I$Write
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
25 puls x
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
26 ldy #$00C8
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
27 os9 I$WritLn
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
28 clrb
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
29 os9 F$Exit
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
30 emod
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
31 eom equ *
75ba2a80a4e3 OS-9 L2 BBS Commands disassembled
boisy
parents:
diff changeset
32 end