Mercurial > hg > Members > kono > os9 > sbc09
view CoCoOS9/level2v3/CMDS/save.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
******************************************************************** * Save - Save module from memory to disk * * $Id: save.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 3 Original Tandy distribution version nam Save ttl Save module from memory to disk * Disassembled 98/09/14 23:45:22 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 3 mod eom,name,tylg,atrv,start,size u0000 rmb 451 size equ . name fcs /Save/ fcb edition start leay -1,y pshs y,x cmpx $02,s bcc L0060 ldd #$022F os9 I$Create bcs L0061 sta <u0000 lda ,x cmpa #C$CR bne L002C ldx ,s L002C lda ,x+ cmpa #C$SPAC beq L002C cmpa #C$COMA beq L002C leax -$01,x clra os9 F$Link bcs L0061 stx ,s leax ,u ldy $02,x lda <u0000 os9 I$Write pshs b,cc os9 F$UnLink ror ,s+ puls b bcs L0061 ldx ,s cmpx $02,s bcs L002C os9 I$Close bcs L0061 L0060 clrb L0061 os9 F$Exit emod eom equ * end