Mercurial > hg > Members > kono > os9 > sbc09
view CoCoOS9/level2v3/CMDS/list.asm @ 31:bd2b07db8917 cocoos9lv2v3
CoCoOS9 version
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 14 Jul 2018 15:16:13 +0900 |
parents | |
children |
line wrap: on
line source
******************************************************************** * List - List a text file * * $Id: list.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 5 Original Tandy/Microware version nam List ttl List a text file * Disassembled 98/09/10 23:16:25 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 edition set 5 mod eom,name,tylg,atrv,start,size u0000 rmb 1 ParmPtr rmb 2 u0003 rmb 650 size equ . name fcs /List/ fcb edition start stx <ParmPtr lda #1 os9 I$Open bcs L0049 sta <u0000 stx <ParmPtr L001F lda <u0000 leax u0003,u ldy #200 os9 I$ReadLn bcs L0035 lda #1 os9 I$WritLn bcc L001F bra L0049 L0035 cmpb #E$EOF bne L0049 lda <u0000 os9 I$Close bcs L0049 ldx <ParmPtr lda ,x cmpa #C$CR bne start clrb L0049 os9 F$Exit emod eom equ * end