Mercurial > hg > Members > kono > nitros9-code

view 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
line wrap: on
line source

         nam   Ansicode
         ttl   program module       

* Disassembled 2010/01/24 10:52:29 by Disasm v1.5 (C) 1988 by RML

         ifp1
         use   /dd/defs/defsfile
         endc
tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $01
         mod   eom,name,tylg,atrv,start,size
u0000    rmb   400
size     equ   .
name     equ   *
         fcs   /Ansicode/
L0015    fcb   $1B 
         fcb   $5B [
start    equ   *
         pshs  x
         leax  >L0015,pcr
         ldy   #$0002
         lda   #$01
         os9   I$Write  
         puls  x
         ldy   #$00C8
         os9   I$WritLn 
         clrb  
         os9   F$Exit   
         emod
eom      equ   *
         end